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 | YSASU1.RTN | Thu Sep 6 11:30:08 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSASU1.RTN | Wed Sep 12 18:09:59 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 72 |
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 | YSASU1^INT ^1^63910,7 4846^0 | |
4 | YSASU1 ;AS F/ALB- ASI MANAGEMEN T UTILITIT IES CONT ; 2/4/98 10 :02 | |
5 | ;;5.01;ME NTAL HEALT H;**38**;D ec 30, 199 4 | |
6 | PTLST ;pat ient list | |
7 | S YSASN=Y SASN+1,^TM P("YSASU", $J,"M",YSA SN)=" " | |
8 | S YSASN=Y SASN+1,^TM P("YSASU", $J,"M",YSA SN)="Name" _$E(YSASS, 1,17)_"SSN Intervi ew Class S pecial Transm itted Queu ed" | |
9 | S YSFL="" F S YSFL =$O(^TMP(" YSASU",$J, "A",YSFL)) Q:YSFL="" D | |
10 | . S YSASN =YSASN+1,^ TMP("YSASU ",$J,"M",Y SASN)=$E(Y SFL_YSASS, 1,20) | |
11 | . S YSIFN =0,J=0 F S YSIFN=$O (^TMP("YSA SU",$J,"A" ,YSFL,YSIF N)) Q:YSIF N'>0 S J= J+1 D | |
12 | .. S G=^T MP("YSASU" ,$J,YSIFN) | |
13 | .. I J=1 S DFN=$P(G ,U,2),VA(" BID")=" " D:DFN D EM^VADPT S ^TMP("YSA SU",$J,"M" ,YSASN)=^T MP("YSASU" ,$J,"M",YS ASN)_" "_$ E(VA("BID" )_" ",1,6) | |
14 | .. I J>1 S YSASN=YS ASN+1,^TMP ("YSASU",$ J,"M",YSAS N)=$E(YSAS S,1,27) | |
15 | .. S Y=+G ,^TMP("YSA SU",$J,"M" ,YSASN)=^T MP("YSASU" ,$J,"M",YS ASN)_$E(Y, 4,5)_"/"_$ E(Y,6,7)_$ S(Y>299999 9:"/20",1: "/19")_$E( Y,2,3) | |
16 | .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ " "_$S($P (G,U,3)=1: "Full",$P( G,U,3)=2:" Lite",$P(G ,U,3)=3:"F -up",1:" ") | |
17 | .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ " "_$S($P (G,U,4)="" :" ",1:$P( G,U,4)) | |
18 | .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ " "_$S($P (G,U,6)=1: " signed" ,1:"unsign ed") | |
19 | .. S Y=$P (G,U,9),^T MP("YSASU" ,$J,"M",YS ASN)=^TMP( "YSASU",$J ,"M",YSASN )_" "_$S( Y>1:$E(Y,4 ,5)_"/"_$E (Y,6,7)_$S (Y>2999999 :"/20",1:" /19")_$E(Y ,2,3),1:" " ) | |
20 | .. S ^TMP ("YSASU",$ J,"M",YSAS N)=^TMP("Y SASU",$J," M",YSASN)_ " "_$S($P (G,U,8)=1: "queued",1 :"") | |
21 | Q | |
22 | MAIL2 ; SE ND MAILMAN | |
23 | S YSASMCN T=0,YSASMT C=(YSASN\1 000)+1 | |
24 | S YSASCNT =0,YSASCNT 2=0 F S Y SASCNT=$O( ^TMP("YSAS U",$J,"M", YSASCNT)) Q:(YSASCNT '>0) D | |
25 | .S YSASCN T2=YSASCNT 2+1,^TMP(" YSASM",$J, YSASCNT)=^ TMP("YSASU ",$J,"M",Y SASCNT) | |
26 | .I (YSASC NT2=1000)! (YSASCNT=Y SASN) D | |
27 | ..S YSASM CNT=YSASMC NT+1 | |
28 | ..S DTIME =600 | |
29 | .. S XMSU B="ASI Sta ts "_YSASI TE_" ("_Y SASMCNT_" OF "_YSASM TC_")" | |
30 | ..S XMTEX T="^TMP("" YSASM"",$J ," | |
31 | ..S XMY(" G.ASI PERF ORMAN D E N M
|
|
32 | ..S XMY(D UZ)="" | |
33 | ..S XMDUZ ="AUTOMATE D MESSAGE" | |
34 | ..D ^XMD | |
35 | ..S YSASC NT2=0 | |
36 | ..K ^TMP( "YSASM",$J ) | |
37 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.