Produced by Araxis Merge on 9/25/2018 2:13:29 PM Central 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 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YTAPI5.RTN | Thu Sep 6 11:30:06 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YTAPI5.RTN | Wed Sep 12 18:10:54 2018 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:/ /vaww.ment alhealth. DNS /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.