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 | YSGAFUTL.RTN | Thu Sep 6 11:30:08 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YSGAFUTL.RTN | Wed Sep 12 18:10:15 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 350 |
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 | YSGAFUTL^I NT^1^63910 ,74846^0 | |
4 | YSGAFUTL ; DALCIOFO/M JD-GAF CLE ANUP UTILI TY ROUTINE ;02/17/99 | |
5 | ;;5.01;ME NTAL HEALT H;**49**;D ec 30, 199 4 | |
6 | ; | |
7 | ;This rou tine will perform th e followin g: | |
8 | ; | |
9 | ;1) Ident ify the DI AGNOSTIC R ESULTS - M ENTAL HEAL TH file (# 627.8) | |
10 | ;records that conta in no AXIS 5 (#65) d ata or DIA GNOSIS BY (#.04) | |
11 | ;data aft er the ins tallation of patch Y S*5.01*43. Only rec ords with | |
12 | ;a DATE/T IME OF DIA GNOSIS fie ld (#.04) containing a fiscal year 1998 | |
13 | ;or fisca l year 199 9 date wil l be revie wed. | |
14 | ;2) Delet e these re cords if t hey contai n no other related d ata. | |
15 | ;3) Creat e a MAILMA N message that summa rizes the status of the record s. | |
16 | ;4) Verif y that the PATIENT T YPE (#66) is correct by | |
17 | ;calling IN5^VADPT. If the p atient typ e is incor rect, the routine | |
18 | ;updates the field with the c orrect typ e (In-pati ent or Out -patient). | |
19 | ; | |
20 | ;NOTE: PL EASE EXECU TE THIS RO UTINE BY C ALLING LIN E TAG "STA RT^YSGAFUT L" | |
21 | ; | |
22 | Q | |
23 | START ;Set up task | |
24 | ; | |
25 | I '$D(DUZ ) D Q | |
26 | .W !!,$C( 7),"ERROR: DUZ is n ot defined . Use ^XU P or ask y our " | |
27 | .W !,"IRM why you d on't have a DUZ vari able defin ed.",!! | |
28 | .D CLNUP | |
29 | S YSGFDAT E="",YSSTD =2971001,Y SSPD=29909 30 | |
30 | S ZTRTN=" EN^YSGAFUT L" | |
31 | ; | |
32 | ;VARIABLE S TO BE SA VED IN ZTS AVE | |
33 | S ZTSAVE( "*")="" | |
34 | S ZTDESC= "MENTAL HE ALTH - YS GAF UTILIT Y" | |
35 | S ZTIO="" | |
36 | D ^%ZTLOA D | |
37 | I '$D(ZTS K) QUIT ; --> | |
38 | W !!,"The Mental He alth GAF U tility has been Task ed, job# " ,ZTSK,"... ",! | |
39 | Q | |
40 | ; | |
41 | EN ; Main subroutine | |
42 | I $D(ZTQU EUED) S ZT REQ="@" K ZTSK | |
43 | K ^TMP("Y SGAFUTL",$ J),^TMP("Y SGMM",$J) | |
44 | ; Date ra nge will b e from 10- 01-97 to T ODAY | |
45 | S:$G(U)=" " U="^" | |
46 | S YSAOF=" " | |
47 | S (YSIEN, YSPIEN,YSP ATID,YSAPA TID,YSADT, YSPTC,YSDD C,YSPTO,YS ERC)=0 | |
48 | S (YSTOT, YSGDC,YSNM C,YSDEL)=0 | |
49 | F YSI="FY 98","FY99" D | |
50 | .F YSJ="I ","O" S YS TOT(YSI,YS J)=0 | |
51 | F S YSIE N=$O(^YSD( 627.8,YSIE N)) Q:YSIE N=""!('YSI EN) D | |
52 | .S YSO=$G (^YSD(627. 8,YSIEN,0) ),YSYEAR=" FY99" | |
53 | .S YSPATI D=$P(YSO,U ,2) ; Pa tient ID | |
54 | .S YSGAFD T=$P(YSO,U ,3) ; Da te/time of diagnosis | |
55 | .S MDFLG= 0 | |
56 | .I YSGAFD T="" D Q ; Co unt the nu mber of re cords miss ing | |
57 | ..S MDFLG =1 ; th e date/tim e of diagn osis and d elete | |
58 | ..D DELCH K ; if no other data is fo und. | |
59 | ..S YSDDC =YSDDC+1 ; Co unt both d eleted/non -deleted i n YSDDC | |
60 | .S YSGFDA TE=$P($P(Y SO,U,3),". ",1) | |
61 | .I (YSGFD ATE>(YSSTD -1))&(YSGF DATE<(YSSP D+1)) D | |
62 | ..S YSTOT =YSTOT+1 ; Count total reco rds found in this da te range | |
63 | ..S:YSGFD ATE<298100 1 YSYEAR=" FY98" | |
64 | ..S YSTOT (YSYEAR)=$ G(YSTOT(YS YEAR))+1 | |
65 | ..S YSP=$ G(^YSD(627 .8,YSIEN,6 0)),YSPATY PE=$P(YSP, U,4) | |
66 | ..; Re-ev aulate pat ient type indicator (In/Out pa tient) | |
67 | ..S DFN=Y SPATID | |
68 | ..S VAIP( "D")=YSGAF DT | |
69 | ..D IN5^V ADPT | |
70 | ..S YSSTA T=$S(VAIP( 1):"I",1:" O") | |
71 | ..; If pa tient type s don't ma tch, updat e the reco rd | |
72 | ..I YSPAT YPE'=YSSTA T D | |
73 | ...S YSPA TYPE=YSSTA T | |
74 | ...S YSPT C=YSPTC+1 | |
75 | ...S DIE= "^YSD(627. 8,",DA=YSI EN | |
76 | ...S DR=" 66////"_YS STAT | |
77 | ...L +^YS D(627.8,DA ):0 | |
78 | ...D ^DIE | |
79 | ...L -^YS D(627.8,DA ) | |
80 | ..S YSTOT (YSYEAR,YS PATYPE)=$G (YSTOT(YSY EAR,YSPATY PE))+1 | |
81 | ..; Check for missi ng data (G AF or Prov ider) | |
82 | ..S YSAX5 =$P(YSP,U, 3),YSPROV= $P(YSO,U,4 ) | |
83 | ..I YSAX5 =""!(YSPRO V="") D | |
84 | ...; Veri fy that re cord is no t entered in error | |
85 | ...S YSEF LG=0 | |
86 | ...I $D(^ YSD(627.8, YSIEN,80)) D | |
87 | ....S YSE RN=0 | |
88 | ....F S YSERN=$O(^ YSD(627.8, YSIEN,80,Y SERN)) Q:Y SERN'>0!(Y SEFLG) D | |
89 | .....I $G (^YSD(627. 8,YSIEN,80 ,YSERN,0)) ["Error" S YSEFLG=1 Q | |
90 | ...I YSEF LG S YSERC =YSERC+1 Q | |
91 | ...; If o utpatient, update to tals and q uit | |
92 | ...I YSPA TYPE="O" D Q | |
93 | ....D DEL CHK Q:FLG DEL | |
94 | ....S YSP TO=YSPTO+1 | |
95 | ...D DELC HK Q:FLGD EL | |
96 | ...S YSNM C=YSNMC+1 ; Inpatien t | |
97 | ..E S YS GDC=YSGDC+ 1 ; Curr ently cont ains both GAF and Pr ovider | |
98 | D DELREC, TOTREP | |
99 | D MAILIT, CLNUP | |
100 | Q | |
101 | DELREC ; D elete reco rds | |
102 | Q:'$D(^TM P("YSGAFUT L",$J)) | |
103 | S DIK="^Y SD(627.8," ,DA="" | |
104 | F S DA=$ O(^TMP("YS GAFUTL",$J ,DA)) Q:DA ="" D ^DI K | |
105 | Q | |
106 | TOTREP ;Wr ite totals to ^TMP | |
107 | S YSLN=0 | |
108 | S YSSUBT= YSGDC+YSER C+YSPTO+YS NMC+YSDEL | |
109 | S XTMP="G AF CLEANUP UTILITY T OTALS" D Y SLN,SPC | |
110 | S XTMP="T otal GAF R ecords:" D YSLN,SPC | |
111 | F YSI="FY 98","FY99" D | |
112 | .F YSJ="I ","O" D | |
113 | ..S XTMP= $J(+$G(YST OT(YSI,YSJ )),8)_" " | |
114 | ..S XTMP= XTMP_$S(YS J="I":"In" ,1:"Out")_ "-patient" D YSLN | |
115 | .D DSH | |
116 | .S XTMP=$ J(+$G(YSTO T(YSI)),8) _" Total "_YSI_" GA F Records" D YSLN,DS H | |
117 | S XTMP=$J (YSTOT,8)_ " Total G AF Records for Fisca l Years 98 and 99" | |
118 | D YSLN | |
119 | F YSI=1:1 :2 D DSH | |
120 | D SPC | |
121 | S XTMP="G AF Record Summary:" D YSLN,SPC | |
122 | S XTMP=$J (YSGDC,8)_ " Record( s) current ly contain Provider " | |
123 | S XTMP=XT MP_"and GA F data" D YSLN | |
124 | S XTMP=$J (YSERC,8)_ " Record( s) entered in error" D YSLN | |
125 | S XTMP=$J (YSPTO,8)_ " Outpati ent record (s) missin g data" D YSLN | |
126 | S XTMP=$J (YSNMC,8)_ " Inpatie nt record( s) missing data" D Y SLN | |
127 | S XTMP=$J (YSDEL,8)_ " Record( s) deleted due to in complete d ata" | |
128 | D YSLN,DS H | |
129 | S XTMP=$J (YSSUBT,8) _" Total GAF Record s" | |
130 | D YSLN,DS H,DSH,SPC | |
131 | S XTMP=$J ((YSTOT-YS SUBT),8)_" Differen ce" D YSLN ,SPC | |
132 | I YSPTC D | |
133 | .S XTMP=" The PATIEN T TYPE fie ld (#66) w as updated for "_YSP TC | |
134 | .S XTMP=X TMP_" GAF record(s). " D YSLN | |
135 | I YSDDC D | |
136 | .S XTMP=" DATE/TIME OF DIAGNOS IS field ( #.04) was missing fo r "_YSDDC | |
137 | .S XTMP=X TMP_" GAF record(s). " D YSLN | |
138 | Q | |
139 | SPC ; | |
140 | S XTMP=" " D YSLN | |
141 | Q | |
142 | DSH ; | |
143 | S XTMP="- -------" D YSLN | |
144 | Q | |
145 | MAILIT ; M ail totals | |
146 | S DTIME=6 00 | |
147 | S XMSUB=" GAF Cleanu p Utility" | |
148 | S XMTEXT= "^TMP(""YS GMM"",$J," | |
149 | S XMY(DUZ )="" | |
150 | S XMY("YO UNG,TIM@
|
|
151 | S XMY("DE VLIN,MARK@
|
|
152 | S XMDUZ=" AUTOMATED MESSAGE" | |
153 | D ^XMD | |
154 | Q | |
155 | YSLN ;Stor e to ^TMP for MAILMA N message | |
156 | S YSLN=YS LN+1 | |
157 | S ^TMP("Y SGMM",$J,Y SLN)=XTMP | |
158 | Q | |
159 | DELCHK ;Ch eck record s and flag for delet ion if nec essary | |
160 | S (FLGDEL ,FLGDATA)= 0 | |
161 | F I=1,5,8 0 D Q:FLG DATA | |
162 | .S:$D(^YS D(627.8,YS IEN,I)) FL GDATA=1 | |
163 | I $D(^YSD (627.8,YSI EN,60)) D Q:FLGDATA | |
164 | .I $P(^YS D(627.8,YS IEN,60),"^ ")'="" S F LGDATA=1 Q | |
165 | .I $P(^YS D(627.8,YS IEN,60),"^ ",2)'="" S FLGDATA=1 | |
166 | ;No data was found so flag it for delet ion and up date count er | |
167 | S ^TMP("Y SGAFUTL",$ J,YSIEN)=" ",FLGDEL=1 | |
168 | S:'MDFLG YSDEL=YSDE L+1 | |
169 | Q | |
170 | CLNUP ;Cle an up vari ables | |
171 | K X,Y,YSA DT,YSAOF,Y SAPATID,YS GAFDT | |
172 | K YSGFDAT E,YSIEN,YS O,YSPATID, YSPIEN,YSO ,YSSPD,YSS TD,XTMP,VA IP | |
173 | K YSAX5,Y SDDC,YSDEL ,YSEFLG,YS ERC,YSERN, YSGDC,YSLN ,YSNMC,YSP ,YSSUBT | |
174 | K YSPATYP E,YSPROV,Y SPTC,YSPTO ,YSSTAT,YS TOT | |
175 | K YSYEAR, YSI,YSJ,XM DUZ,XCNP,X MZ,VAERR,F LGDATA,FLG DEL,DFN | |
176 | K MDFLG,^ TMP("YSGAF UTL",$J),^ TMP("YSGMM ",$J) | |
177 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.