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 | YSGAFTR.RTN | Thu Sep 6 11:30:10 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSGAFTR.RTN | Wed Sep 12 18:10:14 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 276 |
Changed | 1 | 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 | YSGAFTR^IN T^1^63910, 74846^0 | |
4 | YSGAFTR ;D ALOI/MJE/M JD-GAF INT ENTRY BUI LD ROUTINE ;09/01/98 16:17 | |
5 | ;;5.01;ME NTAL HEALT H;**43,49, 59**;Dec 3 0, 1994 | |
6 | ; | |
7 | ;This rou tine will be execute d from opt ion YS GAF TRANSMISS ION. | |
8 | ;This rou tine will transmit G AF data fo r the date s entered. This | |
9 | ;routine will also be used to re-transm it GAF dat a as neede d. | |
10 | ;It will only trans mit GAF re cords cont aining all necessary | |
11 | ;pieces o f informat ion. A MA ILMAN mess age for ea ch GAF sco re | |
12 | ;transmit ted will b e sent to users enro lled in ma il group | |
13 | ;YS GAF T RANSMISSIO N ACK. | |
14 | ; | |
15 | ; | |
16 | Q | |
17 | START ; | |
18 | ; Date ra nge will b e from no less than 10-01-1997 to any ti me | |
19 | ; in the future. | |
20 | I '$D(DUZ ) D Q | |
21 | .W !!,$C( 7),"ERROR: DUZ is n ot defined . Use ^XU P or ask y our " | |
22 | .W !,"IRM why you d on't have a DUZ vari able defin ed.",!! | |
23 | .D CLNUP | |
24 | ; | |
25 | S YSGFDAT E="" | |
26 | D DTRANGE Q:+Y<1 | |
27 | K ^TMP("Y SGAFTR",$J ) | |
28 | S ZTRTN=" GEN^YSGAFT R" | |
29 | ; | |
30 | ;VARIABLE S TO BE SA VED IN ZTS AVE | |
31 | S ZTSAVE( "*")="" | |
32 | ; | |
33 | S ZTDESC= "MENTAL HE ALTH - GAF TRANSMISS ION" | |
34 | S ZTIO="" | |
35 | D ^%ZTLOA D | |
36 | I '$D(ZTS K) QUIT ; --> | |
37 | W !!,"The Mental He alth GAF T ransmissio n has been Tasked, j ob# " | |
38 | W ZTSK,". ..",! | |
39 | Q | |
40 | ; | |
41 | DTRANGE ; | |
42 | W ! | |
43 | S (YSSTD, YSSPD)=0 | |
44 | S %DT("A" )="Enter t he Start d ate: ",%DT ="AEQ",%DT (0)=297100 1 | |
45 | D ^%DT K %DT | |
46 | Q:+Y<1 | |
47 | S YSSTD=+ Y | |
48 | W ! | |
49 | S %DT("A" )="Enter t he End dat e: ",%DT=" AEQ" | |
50 | D ^%DT K %DT | |
51 | Q:+Y<1 | |
52 | S YSSPD=+ Y | |
53 | I YSSPD<Y SSTD D G DTRANGE | |
54 | .W !?5,". .. Start d ate is aft er the End ing date . .." | |
55 | .W !?5,". .. Please re-enter b oth the St art and En ding Dates ..." | |
56 | .H 2 W $C (7) | |
57 | Q | |
58 | ; | |
59 | GEN ; | |
60 | I $D(ZTQU EUED) S ZT REQ="@" K ZTSK | |
61 | S (YSIEN, YSTOT,YSIN C,YSTRMT,Y SSUBT)=0 | |
62 | F YSJ="I" ,"O" D | |
63 | .S (YSTOT (YSJ),YSTR MT(YSJ),YS INC(YSJ))= 0 | |
64 | F S YSIE N=$O(^YSD( 627.8,YSIE N)) Q:YSIE N=""!('YSI EN) D | |
65 | .S YSGFDA TE=$P($P($ G(^YSD(627 .8,YSIEN,0 )),"^",1), ".",1) | |
66 | .S YSO=$G (^YSD(627. 8,YSIEN,0) ) | |
67 | .S YSPATI D=$P(YSO,U ,2) ; Pa tient ID | |
68 | .S YSGAFD T=$P(YSO,U ,3) ; Da te/time of diagnosis | |
69 | .Q:YSGAFD T="" | |
70 | .S YSGFDA TE=$P($P(Y SO,U,3),". ",1) | |
71 | .I (YSGFD ATE>(YSSTD -1))&(YSGF DATE<(YSSP D+1)) D | |
72 | ..S YSTOT =YSTOT+1 ; Count total reco rds found in this da te range | |
73 | ..S YSP=$ G(^YSD(627 .8,YSIEN,6 0)),YSPATY PE=$P(YSP, U,4) | |
74 | ..I YSPAT YPE="" D Q:YSPATYPE ="" | |
75 | ...Q:YSPA TID="" | |
76 | ...S DFN= YSPATID | |
77 | ...D PATS TAT^YSDX3B | |
78 | ...I '$D( DFN) D QU IT ;---> | |
79 | ....D EN^ YSGAFOBX(Y SIEN) | |
80 | ...S YSPA TYPE=YSSTA T | |
81 | ..S YSTOT (YSPATYPE) =YSTOT(YSP ATYPE)+1 | |
82 | ..S YSAX5 =$P(YSP,U, 3),YSPROV= $P(YSO,U,4 ) | |
83 | ..I YSAX5 =""!(YSPRO V="") D Q | |
84 | ...S YSIN C=YSINC+1 | |
85 | ...S YSIN C(YSPATYPE )=YSINC(YS PATYPE)+1 | |
86 | ..S YSTRM T=YSTRMT+1 | |
87 | ..S YSTRM T(YSPATYPE )=YSTRMT(Y SPATYPE)+1 | |
88 | ..D EN^YS GAFOBX(YSI EN) | |
89 | D REPORT, MAILIT,CLN UP | |
90 | Q | |
91 | REPORT ; | |
92 | S YSSUBT= YSINC+YSTR MT,YSLN=0 | |
93 | S XTMP="G AF TRANSMI SSION TOTA LS" D YSLN ,SPC | |
94 | S XTMP="T otal GAF R ecords:" D YSLN,SPC | |
95 | F YSJ="I" ,"O" D | |
96 | .S XTMP=$ J(+YSTOT(Y SJ),8)_" " | |
97 | .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient" D YSLN | |
98 | S XTMP=$J (YSTOT,8)_ " Total G AF Records " | |
99 | D YSLN,DS H,DSH,SPC | |
100 | S XTMP="G AF Records Transmitt ed:" D YSL N,SPC | |
101 | F YSJ="I" ,"O" D | |
102 | .S XTMP=$ J(+YSTRMT( YSJ),8)_" " | |
103 | .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient" D YSLN | |
104 | S XTMP=$J (YSTRMT,8) _" GAF Re cord(s) tr ansmitted" D YSLN,SP C | |
105 | S XTMP="G AF Records Not Trans mitted:" D YSLN,SPC | |
106 | F YSJ="I" ,"O" D | |
107 | .S XTMP=$ J(+YSINC(Y SJ),8)_" " | |
108 | .S XTMP=X TMP_$S(YSJ ="I":"In", 1:"Out")_" -patient" D YSLN | |
109 | S XTMP=$J (YSINC,8)_ " GAF Rec ord(s) not transmitt ed" D YSLN ,DSH,SPC | |
110 | S XTMP=$J (YSSUBT,8) _" Total GAF Record s" D YSLN, DSH,DSH,SP C | |
111 | S XTMP=$J ((YSTOT-YS SUBT),8)_" Differen ce" D YSLN | |
112 | Q | |
113 | SPC ; | |
114 | S XTMP=" " D YSLN | |
115 | Q | |
116 | DSH ; | |
117 | S XTMP="- -------" D YSLN | |
118 | Q | |
119 | YSLN ;Stor e to ^TMP for MAILMA N message | |
120 | S YSLN=YS LN+1 | |
121 | S ^TMP("Y SGAFTR",$J ,YSLN)=XTM P | |
122 | Q | |
123 | MAILIT ; M ail totals | |
124 | S DTIME=6 00 | |
125 | S XMSUB=" GAF Transm ission" | |
126 | S XMTEXT= "^TMP(""YS GAFTR"",$J ," | |
127 | S XMY(DUZ )="" | |
128 | S XMY("YO UNG,TIM@
|
|
129 | S XMY("DE VLIN,MARK@
|
|
130 | S XMDUZ=" AUTOMATED MESSAGE" | |
131 | D ^XMD | |
132 | S DTIME=$ $DTIME^XUP (DUZ) | |
133 | Q | |
134 | CLNUP ;Thi s section for clean up of vari ables | |
135 | K X,Y,YSD IROUT,YSDI RUT,YSDUOU T,YSDTOUT, YSGFDATE,Y SIEN,YSSPD ,YSSTD | |
136 | K YSANIMA ,YSHH,YSST AT,YSAX5,Y SGAFDT,YSI NC,YSLN,YS O,YSP,YSPA TID | |
137 | K YSPATYP E,YSPROV,Y SSUBT,YSTO T,YSTRMT,Z TDESC,ZTIO ,ZTRTN,ZTS AVE | |
138 | K XTMP,XM DUZ,XMSUB, XMTEXT,XMS UB,XMY,XCN P,XMZ,YSYE AR,YSJ,YSI | |
139 | K ^TMP("Y SGAFTR",$J ) | |
140 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.