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 | YSASNAR.RTN | Thu Sep 6 11:30:02 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSASNAR.RTN | Wed Sep 12 18:09:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 314 |
Changed | 2 | 4 |
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 | YSASNAR^IN T^1^63910, 74846^0 | |
4 | YSASNAR ;A LB/ASF,SLC /DKG,HIOFO /FT - ASI INTERVIEW REPORTER ; 3/13/12 3 :25 pm | |
5 | ;;5.01;ME NTAL HEALT H;**24,30, 37,38,44,5 5,67,76,10 3,60**;Dec 30, 1994; Build 47 | |
6 | ; | |
7 | ;Referenc e to ^%ZIS C supporte d by IA #1 0089 | |
8 | ;Referenc e to ^%ZTL OAD suppor ted by IA #10063 | |
9 | ;Referenc e to HOME^ %ZIS suppo rted by IA #1008 | |
10 | ;Referenc e to ^%ZIS supported by IA #10 086 | |
11 | ;Referenc e to $$GET 1^DIQ() su pported by IA #2056 | |
12 | ;Referenc e to $$FMT E^XLFDT su pported by IA #10103 | |
13 | ;Referenc e to DEM^V ADPT suppo rted by IA #10061 | |
14 | ;Referenc e to ^DIWP supported by IA #10 011 | |
15 | ;Referenc e to ^DIR supported by IA #100 26 | |
16 | ;Referenc e to ^DD(" DD" suppor ted by IA #10017 | |
17 | ;Referenc e to ^VA(2 00 support ed by IA # 10060 | |
18 | ;Referenc e to ^DPT( supported by IA #10 035 | |
19 | ; | |
20 | EN1(YSASDA ) ;Entry p oint to di splay ASI | |
21 | Q:$G(YSAS DA)'>0 | |
22 | N YSASN,Y SASNA,YSZZ ,YSHDR,YSA SD,YSAST,Y SAS0,DIERR ,YSI,YSASC ,YSASN2 | |
23 | ;ASK DEVI CE | |
24 | N YSASQUI T,%ZIS,POP | |
25 | S %ZIS="Q M" | |
26 | D ^%ZIS | |
27 | Q:$G(POP) | |
28 | I $D(IO(" Q")) D Q | |
29 | .N ZTRTN, ZTDESC,ZTS AVE | |
30 | .S ZTRTN= "QTEP^YSAS NAR" | |
31 | .S ZTDESC ="YSASPRT ASI NARRAT IVE PRINT" | |
32 | .S ZTSAVE ("YSASDA") ="" | |
33 | .D ^%ZTLO AD W:$D(ZT SK) !!,"Yo ur Task Nu mber is "_ ZTSK | |
34 | .D HOME^% ZIS | |
35 | .Q | |
36 | U IO | |
37 | QTEP ;Queu ed Task En try Point | |
38 | S:$D(ZTQU EUED) ZTRE Q="@" | |
39 | N G,G2,N, P1,P2,R,V, V1,Y1,YSA, YSAGE,YSAS 0,YSASC,YS ASD,YSASIG ,YSASN,YSA SNA,YSASQU IT,YSAST,Y SASWP | |
40 | N YSASWP, YSBID,YSDO B,YSHDR,YS HIML,YSHIM U,YSI,YSJ, YSLAST,YSL CK,YSLFN,Y SNM,YSPART ,YSPOSL,YS POSU | |
41 | N YSPROL, YSPROU,YSS C,YSSCK,YS SEX,YSSSN, YSSTEM,YST ITLE,YSX,Y SYCK,YSYX, YSZ,YSZZ | |
42 | S YSZZ=0 | |
43 | S YSAS0=^ YSTX(604,Y SASDA,0),D FN=$P(YSAS 0,"^",2) | |
44 | D DEM^VAD PT | |
45 | S YSASD=$ $FMTE^XLFD T($P(YSAS0 ,U,5),"5ZD ") | |
46 | S YSAST=$ $GET1^DIQ( 604,YSASDA _",",.04) | |
47 | S YSASC=$ $GET1^DIQ( 604,YSASDA _",",.09) | |
48 | S YSASIG= $$GET1^DIQ (604,YSASD A_",",.51, "I") | |
49 | S YSNM=VA DM(1),YSSE X=$P(VADM( 5),U),YSDO B=$P(VADM( 3),U,2),YS AGE=VADM(4 ),YSSSN=VA ("PID"),YS BID=VA("BI D") | |
50 | S YSHDR=V ADM(1)_" "_"xxx-xx- "_YSBID_$J ("",(20-$L (VADM(1))) )_" ASI "_ YSAST_" o n "_YSASD_ " by: "_YS ASC | |
51 | ; | |
52 | MAIN ; | |
53 | K ^TMP($J ,"YSTMP"), ^TMP($J,"W ") | |
54 | S YSLFN=1 ,^TMP($J," YSTMP",0,1 ,0)="" | |
55 | D DNS O | |
56 | D R1 | |
57 | D SIG | |
58 | D PRT | |
59 | D ^%ZISC | |
60 | Q | |
61 | R1 ; | |
62 | S X=$S(YS AST?1"ASI- MV".E:"ASI -MV NARRAT IVE",YSAST ?1"FO".E:" FOLLOWUP N ARRATIVE", 1:"GENERAL "),YSPART= $O(^YSTX(6 04.68,"B", X,0)) | |
63 | F YSJ=1:1 Q:'$D(^YS TX(604.68, YSPART,1,Y SJ,0)) S YSA=^(0) D R2 | |
64 | Q | |
65 | R2 ; | |
66 | I YSA?1"~ ".E Q | |
67 | I YSA?1"W {".E1"}" K YSWP S YS WP=$$GET1^ DIQ(604,YS ASDA_",",$ E(YSA,3,$L (YSA)-1)," Z","YSWP") D:YSWP'=" " K YSWP Q | |
68 | . S YSN2= "" F S YS N2=$O(YSWP (YSN2)) Q: YSN2'>0 S YSLFN=YSL FN+1,^TMP( $J,"YSTMP" ,0,YSLFN,0 )=YSWP(YSN 2,0) | |
69 | ; | |
70 | I YSA'["{ " S X=YSA D:$L(X) L Q ;DIWL=0 ,DIWR=IOM, X=YSA D ^D IWP Q | |
71 | PRO ;evalu ate pronou n, possess ive etc | |
72 | F YSZ=1:1 :999 Q:YSA '["{" D | |
73 | . S P1=$F (YSA,"{")- 1,P2=$F(YS A,"}") | |
74 | . Q:'P1!' P2 | |
75 | . S G=$E( YSA,P1+1,P 2-2),V=0 | |
76 | . I $P(G, ";")?."."1 N.NP D D CONDIT,ULP | |
77 | .. S G2=$ $GET1^DIQ( 604,YSASDA _",",$P(G, ";"),"","Y SASWP") | |
78 | .. S V=$S (G2?1N.N:+ G2,1:G2) ; 5/30 ASF | |
79 | . S:G="Pr o" V=$S(YS SEX="F":"S he",1:"He" ) | |
80 | . S:G="pr o" V=$S(YS SEX="F":"s he",1:"he" ) | |
81 | . S:G="Po s" V=$S(YS SEX="F":"H er",1:"His ") | |
82 | . S:G="po s" V=$S(YS SEX="F":"h er",1:"his ") | |
83 | . S:G="hi m" V=$S(YS SEX="F":"h er",1:"him ") | |
84 | . S:G="hi mself" V=$ S(YSSEX="F ":"herself ",1:"himse lf") | |
85 | . S:G="Ti tle" V=$S( YSSEX="F": "Ms.",1:"M r.") | |
86 | . I G="Bl ank" S:$L( $G(^TMP($J ,"YSTMP",0 ,YSLFN,0)) ) YSLFN=YS LFN+1 S ^T MP($J,"YST MP",0,YSLF N,0)=$G(^T MP($J,"YST MP",0,YSLF N,0))_"|BL ANK(1)||NO BLANKLINE| ",YSLFN=YS LFN+1,V="" | |
87 | . S:G="Li ne" YSLFN= YSLFN+1,^T MP($J,"YST MP",0,YSLF N,0)="",V= "" | |
88 | . I G="La st" S X=$P ($P(^DPT(D FN,0),U)," ,") D | |
89 | .. F %=2: 1:$L(X) I $E(X,%)?1U ,$E(X,%-1) ?1A S X=$E (X,0,%-1)_ $C($A(X,%) +32)_$E(X, %+1,999) | |
90 | .. S V=X | |
91 | . I $P(G, ";")="Fiel d" S @($P( G,";",2))= $$GET1^DIQ (604,YSASD A_",",$P(G ,";",3)),V ="" I $P(G ,";",4)'=" " S YSSC=" ;",YSX="S @($P(G,YSS C,2))=$S(" _$P(G,";", 4)_")" X Y SX | |
92 | . I $P(G, ";")="List " K V D K V S V="" | |
93 | .. S V1=$ P(G,";",2) ,I1=0 F I= 1:1 Q:$P(V 1,",",I)=" " S:@($P( V1,",",I)) '="" I1=I1 +1,V(I1)=@ ($P(V1,"," ,I)) | |
94 | .. I '$D( V(1)) S X= $P(G,";",3 ) D L Q | |
95 | .. F I1=1 :1 Q:'$D(V (I1)) S X =$S(I1=1:" ",'$D(V(I 1+1)):" an d ",1:", " )_V(I1) D L | |
96 | R . ;calle d from YSA SPNT | |
97 | . S X=$E( YSA,1,P1-1 ) D:$L(X) L | |
98 | . I $D(YS ASWP) S V= "" D K YS ASWP | |
99 | .. F I3=1 :1 Q:'$D(Y SASWP(I3)) S X=YSAS WP(I3)_" " D:$L(X) L | |
100 | . S X=V D :$L(X) L | |
101 | . S YSA=$ E(YSA,P2,9 99) | |
102 | . I YSA'[ "{" S X=YS A D:$L(X) L | |
103 | ; | |
104 | Q | |
105 | SIG ; sign ature | |
106 | S YSLFN=Y SLFN+1,^TM P($J,"YSTM P",0,YSLFN ,0)="" | |
107 | S YSLFN=Y SLFN+1,^TM P($J,"YSTM P",0,YSLFN ,0)="esig: " | |
108 | S Y=$P($G (^YSTX(604 ,YSASDA,.5 )),U,2) S: Y?1N.N Y=$ G(^VA(200, Y,20)),Y=$ P(Y,U,2)_" "_$P(Y,U, 3) | |
109 | S ^TMP($J ,"YSTMP",0 ,YSLFN,0)= ^TMP($J,"Y STMP",0,YS LFN,0)_Y | |
110 | S Y=$G(^Y STX(604,YS ASDA,12)) I Y'="" X ^DD("DD") S YSLFN=YS LFN+1,^TMP ($J,"YSTMP ",0,YSLFN, 0)="signed : "_Y | |
111 | Q | |
112 | END ; | |
113 | K I,YSLCK ,R,YSSTEM, YSYX,YSYCK ,YSSCK Q | |
114 | L ; | |
115 | S ^TMP($J ,"YSTMP",0 ,YSLFN,0)= $G(^TMP($J ,"YSTMP",0 ,YSLFN,0)) _X | |
116 | I $L(^TMP ($J,"YSTMP ",0,YSLFN, 0))>80 D | |
117 | . S Y=^TM P($J,"YSTM P",0,YSLFN ,0) | |
118 | . F I=$L( Y):-1:1 S Y1=$E(Y,I) I Y1=" "& (I<81) S ^ TMP($J,"YS TMP",0,YSL FN,0)=$E(Y ,1,I-1),YS LFN=YSLFN+ 1,^TMP($J, "YSTMP",0, YSLFN,0)=$ E(Y,I+1,99 9) Q | |
119 | Q | |
120 | PRT ; Prin t output | |
121 | W @IOF,YS HDR,! W:'Y SASIG ?25, "##### Uns igned Draf t #####",! | |
122 | S N=0 F S N=$O(^TM P($J,"YSTM P",0,N)) Q :N'>0!YSZZ D | |
123 | . S X=^TM P($J,"YSTM P",0,N,0), DIWL=1,DIW F="WN" D ^ DIWP | |
124 | . I IOT'= "HFS" D:$Y +4>IOSL WA IT ;ASF 3/ 7/03 | |
125 | ; | |
126 | Q | |
127 | WAIT ; | |
128 | F I0=1:1: IOSL-$Y-2 W ! | |
129 | N DTOUT,D UOUT,DIRUT | |
130 | I IOST?1" C".E W $C( 7) K DIR S DIR(0)="E " D ^DIR K DIR S YSZ Z=$D(DIRUT ) | |
131 | Q:YSZZ | |
132 | W @IOF,YS HDR,! W:'Y SASIG ?25, "##### Uns igned Draf t #####",! | |
133 | Q | |
134 | TEST S G=" X;;L",V="T EST" | |
135 | ULP ; | |
136 | Q:$P(G,"; ",3)="" | |
137 | Q:$P(G,"; ",3)="P"&( $P(G,";")= ".09:20.3" ) ;MJD 01 /06/2000 | |
138 | I $P(G,"; ",3)="P" F %=2:1:$L( V) I $E(V, %)?1U,$E(V ,%-1)?1A S V=$E(V,0, %-1)_$C($A (V,%)+32)_ $E(V,%+1,9 99) | |
139 | I $P(G,"; ",3)="L" F %=1:1:$L( V) I $E(V, %)?1U S V= $E(V,0,%-1 )_$C($A(V, %)+32)_$E( V,%+1,999) | |
140 | I $P(G,"; ",3)="U" F %=1:1:$L( V) S:$E(V, %)?1L V=$E (V,0,%-1)_ $C($A(V,%) -32)_$E(V, %+1,999) | |
141 | Q | |
142 | CONDIT ;co nditional | |
143 | Q:$P(G,"; ",2)="" | |
144 | S YSX="S V=$S("_$P( G,";",2)_" )" | |
145 | ;S X=YSX D ^DIM | |
146 | ;I '$D(X) S V="###E RROR Line "_YSJ_" ## #" Q | |
147 | X YSX | |
148 | Q | |
149 | DNS O ; PATIEN T VARIABLE S | |
150 | S YSPROU= $S(YSSEX=" F":"She",1 :"He") | |
151 | S YSPROL= $S(YSSEX=" F":"she",1 :"he") | |
152 | S YSPOSU= $S(YSSEX=" F":"Her",1 :"His") | |
153 | S YSPOSL= $S(YSSEX=" F":"her",1 :"his") | |
154 | S YSHIML= $S(YSSEX=" F":"her",1 :"him") | |
155 | S YSHIMU= $S(YSSEX=" F":"Her",1 :"Him") | |
156 | S YSTITLE =$S(YSSEX= "F":"Ms.", 1:"Mr.") | |
157 | S X=$P($P (^DPT(DFN, 0),U),",") D S YSLA ST=X | |
158 | . F %=2:1 :$L(X) I $ E(X,%)?1U, $E(X,%-1)? 1A S X=$E( X,0,%-1)_$ C($A(X,%)+ 32)_$E(X,% +1,999) | |
159 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.