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 | YSASFUR.RTN | Thu Sep 6 11:30:06 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSASFUR.RTN | Wed Sep 12 18:09:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 198 |
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 | YSASFUR^IN T^1^63910, 74846^0 | |
4 | YSASFUR ;A SF/ASL ASI FOLLOWUP REQUIRED ; 3/13/98 1 0:39 | |
5 | ;;5.01;ME NTAL HEALT H;**38,55* *;Dec 30, 1994 | |
6 | MAIN ; | |
7 | K ^TMP("Y SAS",$J) | |
8 | N DIR,DIR UT,G,G2,VA ,X,X1,X2,Y ,YS2G12,YS ASAD1,YSAS BDT,YSASCL ,YSASCNT,Y SASCNT2,YS ASCNT3,YSA SDLY,YSASD T,YSASEDT, YSASG12,YS ASIN,YSASI N2,YSASITE ,YSASN,YSA SS,YSASTC, YSASTYP2,Y SCK,YSIN1, YSIN2,YSIN TER,YSLOC, YSNM,YSTOT | |
9 | W @IOF,!? 10,"Addict ion Severi ty Index F ollowup Re minder",! | |
10 | D DTRANGE Q:YSASBDT =""!(YSASE DT="") Q: (YSASDLY=0 ) | |
11 | W !!,"Res ults retur ned via Ma ilman. Ple ase queue this repor t for afte r hours." | |
12 | QUEUE ; | |
13 | K IOP,ZTI O,ZTSAVE | |
14 | S ZTIO="" ,ZTSAVE("Y SAS*")="", ZTRTN="ENQ ^YSASFUR", ZTDESC="AS I Followup Reminder" D ^%ZTLOA D W:$D(ZTS K) !!,"You r Task Num ber is "_Z TSK D ^%ZI SC | |
15 | K ^TMP("Y SAS",$J),^ TMP("YSAS" ,$J,"G") | |
16 | Q | |
17 | ENQ ;queue entry | |
18 | ;S:$D(ZTQ UEUED) ZTR EQ="@" | |
19 | S YSASN=0 ,YSTOT=0 | |
20 | D DATELP | |
21 | D HEAD,PT LST,BOT | |
22 | D MAIL2 ; output | |
23 | Q | |
24 | DTRANGE ;d ate range | |
25 | W ! S (YS ASBDT,YSAS EDT)="",%D T("A")="Be ginning Da te for ASI Followup Reminder D ate Range: ",%DT="AE X" D ^%DT | |
26 | Q:Y'>0 | |
27 | S YSASBDT =+Y | |
28 | W ! S %DT ("A")="End ing Date f or ASI Fol lowup Remi nder Date Range: " D ^%DT | |
29 | Q:Y'>0 | |
30 | S YSASEDT =+Y | |
31 | I (YSASED T>0)&(YSAS EDT<YSASBD T) W !,?7, "Ending Da te must be closer to today tha n Beginnin g Date",! H 2 W $C(7 ) G DTRANG E | |
32 | W ! K DIR S DIR(0)= "N^31:999: 0",DIR("B" )=180,DIR( "A")="Numb er of days after whi ch a follo w-up is re quired" D ^DIR S:$D( DIRUT) Y=0 S YSASDLY =Y K DIR | |
33 | Q | |
34 | DATELP ;lo ok for all ASIs in r ange | |
35 | S YSASDT= YSASBDT-.0 001 F S Y SASDT=$O(^ YSTX(604," AD",YSASDT )) Q:YSASD T>YSASEDT! (YSASDT'>0 ) S YSASI N=0 F S Y SASIN=$O(^ YSTX(604," AD",YSASDT ,YSASIN)) Q:YSASIN'> 0 D | |
36 | . S G=^YS TX(604,YSA SIN,0),DFN =$P(G,U,2) ,YSASG12=$ P(G,U,11), YSASCL=$P( G,U,4),YSA SAD1=$P(G, U,5) | |
37 | . Q:YSASG 12'="N" ; only sear ch on comp letes | |
38 | . Q:DFN=" " | |
39 | . ;Q:YSAS CL=3 ;it is a follo wup alread y | |
40 | . S YSIN2 ="" | |
41 | . D NEXTC K ;look fo r a fu | |
42 | . S ^TMP( "YSAS",$J, "A",$P(^DP T(DFN,0),U ),DFN)=YSC K_U_YSASIN _U_YSIN2 | |
43 | Q | |
44 | NEXTCK ;FU checker | |
45 | S YSCK=0 ; DEFAULT= NEEDS FU | |
46 | S X1=DT,X 2=YSASAD1 D ^%DTC I X<YSASDLY S YSCK=-1 Q ; if fi rst admin closer tha n delay | |
47 | S YSASIN2 =YSASIN F S YSASIN2 =$O(^YSTX( 604,"C",DF N,YSASIN2) ) Q:YSASIN 2'>0 D | |
48 | . S G2=^Y STX(604,YS ASIN2,0),Y SASTYP2=$P (G2,U,4),Y S2G12=$P(G ,U,11),YSI N2=YSASIN2 | |
49 | . S YSCK= YSASTYP2 | |
50 | Q | |
51 | PTLST ; li st pts | |
52 | S YSNM="" F S YSNM =$O(^TMP(" YSAS",$J," A",YSNM)) Q:YSNM="" S DFN=0 F S DFN=$O (^TMP("YSA S",$J,"A", YSNM,DFN)) Q:DFN'>0 D | |
53 | . S G=^TM P("YSAS",$ J,"A",YSNM ,DFN),YSCK =+G,YSIN1= $P(G,U,2), YSIN2=$P(G ,U,3) | |
54 | . Q:YSCK= 3 ; has a fU | |
55 | . Q:YSCK= -1 ;admin less than delay | |
56 | . D DEM^V ADPT S YSA SN=YSASN+1 ,^TMP("YSA S",$J,"G", YSASN)=$E( YSNM_YSASS ,1,20)_" " _$E(VA("BI D")_YSASS, 1,6)_" " | |
57 | . S YSTOT =YSTOT+1 | |
58 | . S G=^YS TX(604,YSI N1,0),YSAS CL=$P(G,U, 4),Y=$P(G, U,5) X ^DD ("DD") | |
59 | . S YSINT ER=$P(G,U, 9) S:YSINT ER?1N.N YS INTER=$P($ G(^VA(200, YSINTER,0) ),U) | |
60 | . S ^TMP( "YSAS",$J, "G",YSASN) =^TMP("YSA S",$J,"G", YSASN)_$S( YSASCL=1:" Full",YSAS CL=2:"Lite ",YSASCL=3 :"F-Up",1: " ")_" "_$E(Y_" ",1,13)_$ E(YSINTER_ YSASS,1,15 ) | |
61 | . S ^TMP( "YSAS",$J, "G",YSASN) =^TMP("YSA S",$J,"G", YSASN)_" " _$S(YSCK=1 :" subsequ ent Full", YSCK=2:" s ubsequent Lite",1:"" ) | |
62 | Q | |
63 | HEAD ;head er | |
64 | K ^TMP("Y SAS",$J,"G ") S YSASS ="",$P(YSA SS," ",75) ="" | |
65 | ;S YSASN= 0,YSASITE= $P($G(^YST X(604.8,1, 0)),U) S:Y SASITE'="" YSASITE=$ P($G(^DIC( 4,YSASITE, 0)),U) | |
66 | S YSASN=0 | |
67 | S YSASITE =$$SITE^YS ASCF | |
68 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=$E(YSAS S,1,15)_"A ddiction S everity In dex Follow up Reminde r" | |
69 | S Y=YSASB DT\1 X ^DD ("DD") S Y SASN=YSASN +1,^TMP("Y SAS",$J,"G ",YSASN)=" Beginn ing Date: "_Y | |
70 | S Y=YSASE DT\1 X ^DD ("DD") S Y SASN=YSASN +1,^TMP("Y SAS",$J,"G ",YSASN)=" Endi ng Date: " _Y | |
71 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="Days t o Follow-u p: "_YSASD LY | |
72 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=" Facilit y: "_YSASI TE | |
73 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=" " | |
74 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="The fo llowing is a list of all patie nts who ha ve not rec eived foll owup ASI's " | |
75 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="after completed interviews between t he above d ates." | |
76 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=$E(YSAS S,1,34)_"L ast ASI Ad ministrati on in Rang e" | |
77 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)="Name"_ $E(YSASS,1 ,17)_"SSN Type D ate Interview er" | |
78 | Q | |
79 | BOT ; bott om | |
80 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=" " | |
81 | S YSASN=Y SASN+1,^TM P("YSAS",$ J,"G",YSAS N)=YSTOT_" patients listed." | |
82 | Q | |
83 | MAIL2 ; SE ND MAILMAN | |
84 | K ^TMP("Y SMM",$J) | |
85 | S YSASCNT 3=0,YSASTC =(YSASN\10 00)+1 | |
86 | S YSASCNT =0,YSASCNT 2=0 F S Y SASCNT=$O( ^TMP("YSAS ",$J,"G",Y SASCNT)) Q :(YSASCNT' >0) D | |
87 | .S YSASCN T2=YSASCNT 2+1,^TMP(" YSMM",$J,Y SASCNT)=^T MP("YSAS", $J,"G",YSA SCNT) | |
88 | .I (YSASC NT2=1000)! (YSASCNT=Y SASN) D | |
89 | ..S YSASC NT3=YSASCN T3+1 | |
90 | ..S DTIME =600 | |
91 | ..S XMSUB ="ASI Foll ow-up Remi nder ("_YSASCNT 3_" OF "_Y SASTC_")" | |
92 | ..S XMTEX T="^TMP("" YSMM"",$J, " | |
93 | ..S XMY(" G.ASI PERF ORMAN D E N M
|
|
94 | ..S XMY(D UZ)="" | |
95 | ..S XMDUZ ="AUTOMATE D MESSAGE" | |
96 | ..D ^XMD | |
97 | ..S YSASC NT2=0 | |
98 | ..K ^TMP( "YSMM",$J) | |
99 | ..S DTIME =$$DTIME^X UP(DUZ) | |
100 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.