Produced by Araxis Merge on 9/24/2019 1:38:08 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YTAPI5.RTN | Wed Jul 31 17:35:31 2019 UTC |
| 2 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YTAPI5.RTN | Fri Sep 20 20:13:33 2019 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 2 | 180 |
| Changed | 1 | 2 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | Cache for UNIX^INT^L oad Initia l Release MH VistA S ource^~For mat=Cache. S~^RAW | |
| 2 | %RO on 14 Mar 2017 6:10 PM | |
| 3 | YTAPI5^INT ^1^63910,7 4846^0 | |
| 4 | YTAPI5 ;AL B/ASF - MH API NOTES ;11/14/11 1:03pm | |
| 5 | ;;5.01;ME NTAL HEALT H;**62,85, 106**;Dec 30, 1994;B uild 10 | |
| 6 | ;Referenc e to ^XUSE C( support ed by DBIA #10076 | |
| 7 | Q | |
| 8 | OUTNOTE(YS DATA) ; | |
| 9 | N G,I,N,P ,R,X,Y,YS2 ,YSADATE,Y SCODE,YSGG ,YSGG1,YSG G2,YSJ,YSJ J,YSNCODE, YSSET,YSSR ,YSST,YSX1 ,YSX2,YSX3 ,YIN,YSINN ,YSINE,YSM C | |
| 10 | I $G(YSDA TA(1))?1"[ ERROR".E Q ;----> | |
| 11 | I '$D(YSD ATA(5)) S YSDATA(1)= "[ERROR]", YSDATA(2)= "bad ysdat a to outno te" Q ;-- -> | |
| 12 | S YS2=$G( YSDATA(2)) | |
| 13 | S YSCODE= $P(YS2,U,2 ) | |
| 14 | S YSADATE =$P(YS2,U, 4) | |
| 15 | S YSNCODE =$O(^YTT(6 01,"B",YSC ODE,-1)) | |
| 16 | S YSX1=$P (YSDATA(3) ,U,2) | |
| 17 | S YSX2=$P (YSDATA(4) ,U,2) | |
| 18 | S YSX3=$P (YSDATA(5) ,U,2) | |
| 19 | S YSSR=$P (YSDATA(6) ,U,3) | |
| 20 | S YSST=$P (YSDATA(6) ,U,4) | |
| 21 | S Y=$G(^Y TT(601.6,Y SNCODE,2)) | |
| 22 | I Y="" S YSDATA(1)= "[ERROR]", YSDATA(2)= "no mh mul t outcome code" Q ; ---> | |
| 23 | ; | |
| 24 | X Y | |
| 25 | I X'>0 S YSDATA(1)= "[ERROR]", YSDATA(2)= "bad M exe cutable" Q ;---> | |
| 26 | LD ;LOAD N OTE | |
| 27 | S N=0 | |
| 28 | F S N=$O (^YTT(601. 6,YSNCODE, 3,X,1,N)) Q:N'>0 D | |
| 29 | . S YSDAT A("ON",N,0 )=^YTT(601 .6,YSNCODE ,3,X,1,N,0 ) | |
| 30 | REP ;repla ce || | |
| 31 | S N=0 | |
| 32 | F S N=$O (YSDATA("O N",N)) Q:N '>0 D | |
| 33 | . S G=YSD ATA("ON",N ,0) | |
| 34 | . S R="" | |
| 35 | . F I=1:1 :$L(G,"|") D | |
| 36 | .. S P=$P (G,"|",I) | |
| 37 | .. D:P?1" RSCORE".1N .N RSCORE | |
| 38 | .. D:P?1" SSCORE".1N .N SSCORE | |
| 39 | .. D:P?1" ITEM".1N.E ITEM | |
| 40 | .. D:P?1" EXECUTE".E MC | |
| 41 | .. S R=R_ P | |
| 42 | . S YSDAT A("ON",N,0 )=R | |
| 43 | Q | |
| 44 | RSCORE ; r aw scores | |
| 45 | S YSJ=$E( P,7,99),P= $P(YSDATA( YSJ+5),U,3 ) | |
| 46 | Q | |
| 47 | SSCORE ;sc aled score | |
| 48 | S YSJ=$E( P,7,99),P= $P(YSDATA( YSJ+5),U,4 ) | |
| 49 | Q | |
| 50 | ITEM ;item s resoluti on | |
| 51 | S YSIN=$E (P,5,999) | |
| 52 | S YSSET=$ P(YSIN,";" ,2) | |
| 53 | S YSIN=$P (YSIN,";", 1) | |
| 54 | S YSINN=$ S(YSIN>400 :5,YSIN>20 0:4,1:3) | |
| 55 | S YSINE=$ S(YSIN#200 =0:200,1:Y SIN) | |
| 56 | S P=$P(YS DATA(YSINN ),U,2) | |
| 57 | S P=$E(P, YSINE) | |
| 58 | Q:YSSET=" " | |
| 59 | F YSJJ=1: 1:$L(YSSET ,",") D | |
| 60 | . S YSGG= $P(YSSET," ,",YSJJ),Y SGG1=$P(YS GG,":"),YS GG2=$P(YSG G,":",2) | |
| 61 | . S:P=YSG G1 P=YSGG2 | |
| 62 | Q | |
| 63 | MC ;mumps executable setting P | |
| 64 | S YSMC=$P (P,";",2) | |
| 65 | X YSMC | |
| 66 | Q | |
| 67 | GAFURL(YSD ATA) ;retu rns MH GAF horizonta l sheet | |
| 68 | S YSDATA( 1)="[DATA] " | |
| 69 | S YSDATA( 2)="http:/ / URL /gafsheet" ;ASF 10/1 3/11 | |
| 70 | Q | |
| 71 | PRIVL(YSDA TA,YS) ;ch eck privil eges | |
| 72 | N YSCODE, YSET | |
| 73 | S YSCODE= $G(YS("COD E"),-1) | |
| 74 | ;ASF 03/0 8/06 | |
| 75 | I (YSCODE ="GAF")!(Y SCODE="ASI ") S YSDAT A(1)="[DAT A]",YSDATA (2)="1^exe mpt test" Q ;-->out test exem pt | |
| 76 | I $D(^YTT (601.71,"B ",YSCODE)) D Q ;-- > out | |
| 77 | . S YSET= $O(^YTT(60 1.71,"B",Y SCODE,0)) | |
| 78 | . S YSDAT A(1)="[DAT A]" | |
| 79 | . S YSKEY =$$GET1^DI Q(601.71,Y SET_",",9) | |
| 80 | . I YSKEY ="" S YSDA TA(2)="1^e xempt test " Q ;-->o ut | |
| 81 | . I $D(^X USEC(YSKEY ,DUZ)) S Y SDATA(2)=" 1^user pri vileged" Q ;-->out has key | |
| 82 | . S YSDAT A(2)="0^no access" Q ;->out | |
| 83 | ; | |
| 84 | I '$D(^YT T(601,"B", YSCODE)) S YSDATA(1) ="[ERROR]" ,YSDATA(2) ="BAD TEST CODE" Q ;--> out | |
| 85 | S YSET=$O (^YTT(601, "B",YSCODE ,0)) | |
| 86 | S YSDATA( 1)="[DATA] " | |
| 87 | I $D(^XUS EC("YSP",D UZ)) S YSD ATA(2)="1^ user privi leged for all tests" Q ;has k ey | |
| 88 | I $P(^YTT (601,YSET, 0),U,10)=" Y"!(YSCODE ="GAF")!(Y SCODE="ASI ") S YSDAT A(2)="1^ex empt test" Q ;test exempt | |
| 89 | I $P(^YTT (601,YSET, 0),U,9)="I " S YSDATA (2)="1^int erview" Q ;intervie w | |
| 90 | S YSDATA( 2)="0^no a ccess" | |
| 91 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.