316. EPMO Open Source Coordination Office Redaction File Detail Report

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.

316.1 Files compared

# 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

316.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 350
Changed 1 4
Inserted 0 0
Removed 0 0

316.3 Comparison options

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

316.4 Active regular expressions

No regular expressions were active.

316.5 Comparison detail

  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@
D N S          .VA.GOV")= ""
  151    S XMY("DE VLIN,MARK@
D N S          .VA.GOV")= ""
  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