Produced by Araxis Merge on 9/24/2019 1:38:08 PM Eastern 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 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSGAFUTL.RTN | Wed Jul 31 17:35:31 2019 UTC |
| 2 | PCL-5_v1_build_8.zip\v1_build 8\Unredacted\spp_mha_web-development.zip\spp_mha_web-development\MUMPS\RTN | YSGAFUTL.RTN | Fri Sep 20 20:38:00 2019 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(" P I
|
|
| 151 | S XMY(" P I
|
|
| 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.