243. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:11 AM Central Standard 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.

243.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMFU2.m Mon Nov 5 16:40:51 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMFU2.m Mon Nov 5 17:52:53 2018 UTC

243.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 380
Changed 1 8
Inserted 0 0
Removed 0 0

243.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

243.4 Active regular expressions

No regular expressions were active.

243.5 Comparison detail

  1   CHMXMFU2         ;HAC /RKN;Full  Ntly Updt  MMI-Calc/P rt;03/03/0 5 10:00 AM
  2           ;; V1.0;;PROJ  # 1241 03 /03/2005 R KN
  3           ;; CALLED BY  ^CHMXMFU1
  4           ;; CALLS NONE
  5           ;;
  6           ;; AJM 07-03- 07 DEV0026 59 FIXED D ATE FORMAT TING FOR D ATES PAST  2099
  7           ;D EV012841 B MJ added C aregiver a s choice f or the Rel ationship
  8           ;;
  9   CORRADD I  $D(CHREC3)  D
  10           .S  CHBADC1=$ E($P(CHREC 3,"^",1),1 ,30),CHBAD C2=$E($P(C HREC3,"^", 2),1,30)
  11           .S  CHBADC3=$ E($P(CHREC 3,"^",3),1 ,30),CHBAD C4=$E($P(C HREC3,"^", 4),1,30)
  12           .S  CHCCTY=$E ($P(CHREC3 ,"^",6),1, 20),CHBCST E=$E($P(CH REC3,"^",7 ),1,2)
  13           .S  CHBCZIP=$ E($P(CHREC 3,"^",8),1 ,10)
  14           I  CHBCSTE'=" " I $D(^DI C(5,CHBCST E,0)) S CH BCSTE=$P(^ DIC(5,CHBC STE,0),"^" ,2)
  15           S  CHMAXL=30, CHXAL=CHBA DC1 D PADB LKS S CHBA DC1=CHXAL
  16           S  CHXAL=CHBA DC2 D PADB LKS S CHBA DC2=CHXAL
  17           S  CHXAL=CHBA DC3 D PADB LKS S CHBA DC3=CHXAL
  18           S  CHXAL=CHBA DC4 D PADB LKS S CHBA DC4=CHXAL
  19           S  CHMAXL=20, CHXAL=CHCC TY D PADBL KS S CHCCT Y=CHXAL
  20           S  CHMAXL=2,C HXAL=CHBCS TE D PADBL KS S CHBCS TE=CHXAL
  21           Q
  22   RMITADD I  $D(CHREC2)  D
  23           .S  CHBADR1=$ E($P(CHREC 2,"^",1),1 ,30),CHBAD R2=$E($P(C HREC2,"^", 2),1,30)
  24           .S  CHRCTY=$E ($P(CHREC2 ,"^",3),1, 20),CHBRST E=$E($P(CH REC2,"^",4 ),1,2)
  25           .S  CHBRZIP=$ E($P(CHREC 2,"^",5),1 ,10)
  26           I  CHBRSTE'=" " I $D(^DI C(5,CHBRST E,0)) S CH BRSTE=$P(^ DIC(5,CHBR STE,0),"^" ,2)
  27           S  CHBNAME=$P (CHREC1,"^ ",1),CHBLN AM=$E($P(C HBNAME,"," ,1),1,20), CHBFNAM=$E ($P(CHBNAM E,",",2),1 ,15),CHBSE X=$E($P(CH REC1,"^",2 ),1,1)
  28           I  (CHBSEX="" )!(CHBSEX' ="M") S CH BSEX="F"
  29           S  CHBSSN=$E( $P(CHREC1, "^",9),1,9 ),CHBDOB=$ E($P(CHREC 1,"^",3),1 ,7)
  30           S: $D(CHBDOB)  CHBDOB=$$ FMTOYYYYMM DD^CHEDILI B(CHBDOB)  ;AJM 07-03 -07 DEV002 659
  31           S  CHBCPH=$E( $P(CHREC3, "^",10),1, 20),CHBRPH =$E($P(CHR EC2,"^",6) ,1,20),CHB REL=$E($P( CHREC1,"^" ,4),1,9)
  32           S: CHBREL=""  CHBREL="C"     ;corre cts SB w/n il for rel ation rkn  09/27/04
  33           S: CHBREL'=""  CHBREL=$S (CHBREL="C ":"CHILD", CHBREL="S" :"SPOUSE", CHBREL="XS ":"EX-SPOU SE",CHBREL ="CG":"CAR EGIVER",1: "UNKNOWN")  ;DEV01284 1 BMJ
  34           S  CHMAXL=30, CHXAL=CHBA DR1 D PADB LKS S CHBA DR1=CHXAL
  35           S  CHMAXL=30, CHXAL=CHBA DR2 D PADB LKS S CHBA DR2=CHXAL
  36           S  CHMAXL=20, CHXAL=CHRC TY D PADBL KS S CHRCT Y=CHXAL
  37           S  CHMAXL=2,C HXAL=CHBRS TE D PADBL KS S CHBRS TE=CHXAL
  38           S  CHMAXL=20, CHXAL=CHBL NAM D PADB LKS S CHBL NAM=CHXAL
  39           S  CHMAXL=15, CHXAL=CHBF NAM D PADB LKS S CHBF NAM=CHXAL
  40           S  CHMAXL=9,C HNUM=CHBSS N D STRPIT  D PADZROS  S CHBSSN= CHX4
  41           S  CHMAXL=8,C HNUM=CHBDO B D STRPIT  D PADZROS  S CHBDOB= CHX4
  42           S  CHMAXL=20, CHNUM=CHBC PH D STRPP H D STRPIT  D PADZROS  S CHBCPH= CHX4
  43           S  CHMAXL=20, CHNUM=CHBR PH D STRPP H D STRPIT  D PADZROS  S CHBRPH= CHX4
  44           S  CHMAXL=10, CHNUM=CHBC ZIP D STRP IT D PADRZ RO S CHBCZ IP=CHX4
  45           S  CHMAXL=10, CHNUM=CHBR ZIP D STRP IT D PADRZ RO S CHBRZ IP=CHX4
  46           S  CHMAXL=9,C HXAL=CHBRE L D PADBLK S S CHBREL =CHXAL
  47           S  CHDNAME=$P (^AHCHVA(C HDFN,0),"^ ",1),CHDLN AM=$E($P(C HDNAME,"," ,1),1,20), CHDFNAM=$E ($P(CHDNAM E,",",2),1 ,15)
  48           S  CHMAXL=20, CHXAL=CHDL NAM D PADB LKS S CHDL NAM=CHXAL
  49           S  CHMAXL=15, CHXAL=CHDF NAM D PADB LKS S CHDF NAM=CHXAL
  50           S  CHDFSSN=$E ($P(^AHCHV A(CHDFN,0) ,"^",9),1, 9)
  51           ;S  CHMAXL=9, CHXAL=CHDF SSN D PADZ ROS S CHDF SSN=CHX4
  52           Q
  53   WRGLOB  S  WRFLAG=0,^ CHMXRX("MM X_NTLY_UPD T",FMDATE, CHDFN,CHBF N,0)=CHBAD C1_CHBADC2 _CHBADC3_C HBADC4_CHB ADR1_CHBAD R2_CHCCTY_ CHRCTY_CHB DED1_CHBDE D2_CHBDOB_ CHBELDT1
  54           S  ^CHMXRX("M MX_NTLY_UP DT",FMDATE ,CHDFN,CHB FN,1)=CHBE LDT2_CHBEL STA_CHBLNA M_CHBFNAM_ CHBSEX_CHB OSDT_CHBOE DT_CHBODES _CHBOPH_CH BCPH_CHBRE L_CHBRPH_C HBSSN
  55           S  ^CHMXRX("M MX_NTLY_UP DT",FMDATE ,CHDFN,CHB FN,2)=CHBC STE_CHBCZI P_CHBRSTE_ CHBRZIP_CH DLNAM_CHDF NAM_CHDFSS N_CHFCTCP1 _CHFCTCP2_ CHFDED1_CH FDED2_CHBO HIC1_CHBOH IC2_CHCSFL AG_CHBDEDA _CHFCTCPA_ CHFDEDA
  56           ;
  57           K  ^CHMXRX("M MX_NTLY_FC K")
  58           S  ^CHMXRX("M MX_NTLY_FC K",FMDATE) =""
  59           ;
  60           ;/ ////////// ////////// ////////// //////////
  61           I  FMPDATE'=" " D  ; *** * TO FORCE  A COMPLET E FILE COM MENT OFF N EXT 4 LINE S ****
  62           .; I '$D(^CHM XRX("MMX_N TLY_UPDT", FMPDATE,CH DFN,CHBFN) ) S WRFLAG =1 Q
  63           .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,0)) '=(CHBADC1 _CHBADC2_C HBADC3_CHB ADC4_CHBAD R1_CHBADR2 _CHCCTY_CH RCTY_CHBDE D1_CHBDED2 _CHBDOB_CH BELDT1) S  WRFLAG=1
  64           .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,1)) '=(CHBELDT 2_CHBELSTA _CHBLNAM_C HBFNAM_CHB SEX_CHBOSD T_CHBOEDT_ CHBODES_CH BOPH_CHBCP H_CHBREL_C HBRPH_CHBS SN) S WRFL AG=1
  65           .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,2)) '=(CHBCSTE _CHBCZIP_C HBRSTE_CHB RZIP_CHDLN AM_CHDFNAM _CHDFSSN_C HFCTCP1_CH FCTCP2_CHF DED1_CHFDE D2_CHBOHIC 1_CHBOHIC2 _CHCSFLAG_ CHBDEDA_CH FCTCPA_CHF DEDA) S WR FLAG=1
  66           .; S WRFLAG=1  ; ** TO F ORCE COMPL ETE FILE U N-COMMENT  THIS LINE  **
  67           ;/ ////////// ////////// ////////// //////////
  68           ;
  69   WRTMPJ  I  FMPDATE=""  S WRFLAG= 1
  70           I  WRFLAG=0 Q
  71           S  ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,0)= CHBADC1_CH BADC2_CHBA DC3_CHBADC 4_CHBADR1_ CHBADR2_CH CCTY_CHRCT Y_CHBDED1_ CHBDED2_CH BDOB_CHBEL DT1
  72           S  ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,1)= CHBELDT2_C HBELSTA_CH BLNAM_CHBF NAM_CHBSEX _CHBOSDT_C HBOEDT_CHB ODES_CHBOP H_CHBCPH_C HBREL_CHBR PH_CHBSSN
  73           S  ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,2)= CHBCSTE_CH BCZIP_CHBR STE_CHBRZI P_CHDLNAM_ CHDFNAM_CH DFSSN_CHFC TCP1_CHFCT CP2_CHFDED 1_CHFDED2_ CHBOHIC1_C HBOHIC2_CH CSFLAG_CHB DEDA_CHFCT CPA_CHFDED A
  74           K  WRFLAG
  75           Q
  76   EMPTYMM S  CHNB=2,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE:  Prior hol d file mis sing for t he Nightly  MMX Updat e!"
  77           S  XMDUZ=.5,X MY("G.MMIF ILES")=""   ;MMIFILES  GROUP LIV E
  78           D  ^XMD
  79           Q
  80   VMSFILE S  IO="HAC_HF S$:[KERMIT .MATRIX]"_ "NU"_CHFMD TE_".DAT", $ZTRAP="VM SERR",(CHD FN,CHBFN)= 0,CHRECT1= "",CHRECT2 ="",CHRECT 3=""
  81           ;
  82           C  IO
  83           S  CHVMSFL="F ILE: "_IO
  84           O  IO:"NWS"
  85           U  IO
  86           D  GETTMP
  87           C  IO
  88           Q
  89   GETTMP  S  CHDFN=$O(^ CHMXRX("MM X_NTLY_UPD TX",CHDFN) ) G:'CHDFN  WRCNT
  90           S  CHBFN=0
  91   GETTMP1 S  CHBFN=$O(^ CHMXRX("MM X_NTLY_UPD TX",CHDFN, CHBFN)) G: 'CHBFN GET TMP
  92           S  CHRECT1=^C HMXRX("MMX _NTLY_UPDT X",CHDFN,C HBFN,0),CH RECT2=^CHM XRX("MMX_N TLY_UPDTX" ,CHDFN,CHB FN,1),CHRE CT3=^CHMXR X("MMX_NTL Y_UPDTX",C HDFN,CHBFN ,2)
  93           W  CHRECT1_CH RECT2_CHRE CT3,!
  94           S  CHRECCNT=C HRECCNT+1
  95           G  GETTMP1
  96   WRCNT   D  NOW^%DTC S  CHDT=$E(% ,1,7)
  97           I  $E(CHDT,1, 1)="1" S C ENDTE="18"
  98           I  $E(CHDT,1, 1)="2" S C ENDTE="19"
  99           I  $E(CHDT,1, 1)="3" S C ENDTE="20"
  100           W  "///////// /////////  [End Of Fi le - Tot R ec Cnt = " _CHRECCNT_ " - "_$E(C HDT,4,5)_" /"_$E(CHDT ,6,7)_"/"_ CENDTE_$E( CHDT,2,3)_ "("_$E(%,9 ,14)_")] / /"
  101           Q
  102   VMSERR  C  IO
  103           ;
  104           ;S  X=$&ZLIB. %SUBMIT("H AC_HFS$:[D SMMANAG]CH V_DELETE_M M_NU.COM", "/NOPRINT/ USER=HACCA CHEMGR",CH FMDTE) ; D ELETE ABOR TED FILE I N LIVE
  105           ;
  106   ERRMM   S  CHERRMSG=1 ,CHNB=2,ZM L(CHNB)="" ,ZML(CHNB) =CHVMSFL
  107           S  CHNB=CHNB+ 1,ZML(CHNB )="",CHNB= CHNB+1,ZML (CHNB)="NO TICE: An e rror has o ccurred in  writing t he Nightly  Update fo r the"
  108           S  CHNB=CHNB+ 1,ZML(CHNB )="         MMI FULL  FILE!"
  109           S  XMDUZ=.5,X MY("G.MMIF ILES")=""   ;MMIFILES  GROUP LIV E
  110           S  XMTEXT="ZM L(",XMSUB= "Ntly Up M M..Error.. "_FMDATE
  111           D  ^XMD
  112           Q
  113   AUTOMM  S  CHNB=2,ZML (CHNB)="", ZML(CHNB)= CHVMSFL_"   (Total Re cords = "_ CHRECCNT_" )",CHNB=CH NB+1,ZML(C HNB)="",CH NB=CHNB+1
  114           S  ZML(CHNB)= "NOTICE: S uccessful  CREATION M MX FULL NI GHTLY file !"
  115           S  XMDUZ=.5,X MY("G.MMIF ILES")=""   ;MMIFILES  GROUP LIV E
  116             S XMY(" PII                   ")=""
  117             S XMY("
P II                   ")=""
  118             S XMY("
P II                     ")=""
  119             S XMY(" P I
I                         ")=""
  120           S  XMTEXT="ZM L(",XMSUB= "Ntly Up M M..Success .."_FMDATE
  121           D  ^XMD
  122           Q
  123   SDADM1  K  ZMREC,ZM1, ZM2,ZM3,ZM 4,ZML,ZM1L ,ZM2L,ZM3L ,ZM4L,NB,X MDUZ,XMTEX T,XMSUB,ZM DATE,ZOHIX CNT,ZDFN,Z BFN
  124           D  NOW^%DTC S  ZMDATE=$E (%,1,7)
  125           S  ZOHIXCNT=0 ,NB=1,ZML( NB)="",NB= NB+1,ZML(N B)="NOTE:   Corrected  OHI Excep tions will  automatic ally drop  from next  report!"
  126           S  NB=NB+1,ZM L(NB)="",N B=NB+1,ZML (NB)="Bene ficiary                    Bene  SSN  Spons or                        Spon S SN",NB=NB+ 1
  127           S  ZML(NB)="- ---------- ---------- ------- -- ------- -- ---------- ---------- ------ --- ------",NB =NB+1,ZBFN =0
  128   SDADM2  S  ZBFN=$O(^C HMZHOLD("O HIEXCEP_TM P",ZBFN))  G:ZBFN=""  SDADSD
  129           S  ZMREC=^CHM ZHOLD("OHI EXCEP_TMP" ,ZBFN)
  130           S  ZM1=$P(ZMR EC,"^",3), ZM1L=28                ;BFN NAME
  131           F  I=1:1:(ZM1 L-$L(ZM1))  S ZM1=ZM1 _" "        ;BFN NAME
  132           S  ZM2=$P(ZMR EC,"^",4), ZM2L=9                 ;BFN SSN
  133           F  I=1:1:(ZM2 L-$L(ZM2))  S ZM2=ZM2 _" "        ;BFN SSN
  134           S  ZM3=$P(ZMR EC,"^",5), ZM3L=28                ;DFN NAME
  135           F  I=1:1:(ZM3 L-$L(ZM3))  S ZM3=ZM3 _" "        ;DFN NAME
  136           S  ZM4=$P(ZMR EC,"^",6), ZM4L=9                 ;DFN SSN
  137           F  I=1:1:(ZM4 L-$L(ZM4))  S ZM4=ZM4 _" "        ;DFN SSN
  138           S  ZML(NB)=ZM 1_" "_ZM2_ " "_ZM3_"  "_ZM4
  139           S  NB=NB+1,ZO HIXCNT=ZOH IXCNT+1
  140           G  SDADM2
  141   SDADSD  S  XMDUZ=.5,X MY("G.OHI  EXCEPTIONS ")=""
  142           S  XMTEXT="ZM L(",XMSUB= "OHI Excep tions"_" ( Total: "_Z OHIXCNT_")  (Date: "_ $E(ZMDATE, 1,7)_" )"
  143           D  ^XMD
  144           K  ZMREC,ZM1, ZM2,ZM3,ZM 4,ZML,ZM1L ,ZM2L,ZM3L ,ZM4L,NB,X MDUZ,XMTEX T,XMSUB,ZM DATE,ZOHIX CNT,ZDFN,Z BFN
  145           Q
  146           ;
  147   END     K  CHBADC1,CH BADC2,CHBA DC3,CHBADC 4,CHBADR1, CHBADR2,CH CCTY,CHRCT Y,CHBDED1, CHBDED2,CH BDOB,CHBEL DT,CHBELDT 1,CHBELDT2 ,CHBELSTA, CHBFN,CHBN AME,CHBLNA M,CHBFNAM, CHBSEX,CHB OSDT,CHBOE DT,CHBODES ,CHBOPH,CH BCPH,CHBRP H
  148           K  CHBREL,CHB SSN,CHRECC NT,CHBCSTE ,CHBRSTE,C HBCZIP,CHB RZIP,CHDT, CHLDT,CHDF N,CHDNAME, CHDFSSN,CH FCTCP1,CHF CTCP2,CHFD ED1,CHFDED 2,CHBOHIC1 ,CHBOHIC2, CHCSFLAG
  149           K  CHFMDTE,CH FLDT,CHIVL ,CHJVL,CHK VL,CHREC1, CHREC2,CHR EC3,CHREC4 ,CHRECT1,C HRECT2,CHR ECT3,CHVMS FL,CHX1,CH X2,CHX3,CH X4,CHXAL,C HMAXL,CHNU M
  150           K  CHERRMSG,C HDLNAM,CHD FNAM,CHLG1 ,CHLG2,DOL FLG,TDFNNA M,TDFNSSN, TBFNNAM,TB FNSSN,CHBD EDA,CHFCTC PA,CHFDEDA
  151           ;I  FMPDATE'= "" K ^CHMX RX("MMX_NT LY_UPDT",F MPDATE)
  152           K  ^CHMXRX("M MX_NTLY_UP DT"),^CHMX RX("MMX_NT LY_UPDTX") ,FMDATE,FM PDATE,WRFL AG,CHFILE, CHFTPTIM,C HFTPWT,QFL AG
  153           Q
  154           ;
  155   STRPIT  S  CHNUM2=""
  156           F  X=1:1:$L(C HNUM) D
  157           .S  CHAR=$E(C HNUM,X) I  CHAR?1N S  CHNUM2=CHN UM2_CHAR
  158           S  CHX4=CHNUM 2
  159           Q
  160   STRPDL  I  $E(CHNUM,1 ,1)=0 D  G  STRPIT                     ;str ip leading  0's
  161           .S  $E(CHNUM, 1,1)=""
  162           I  $E(CHNUM,$ F(CHNUM,". "),$F(CHNU M,".")+1)= "" D  ;Dec  only
  163           .S  CHNUM=CHN UM_"00"
  164           S  CHX1=$L(CH NUM)
  165           I  '$F(CHNUM, ".") D  Q                              ;No  Dec
  166           .S  CHX4=CHNU M
  167           .I  $D(DOLFLG ) S CHX4=C HNUM_"00"
  168           .S  CHX4=$E(C HX4,1,CHMA XL)
  169           .K  DOLFLG
  170           S  CHX2=$F(CH NUM,"."),C HX3=CHX2-2 ,CHX4=$E(C HNUM,1,CHX 3)_$E(CHNU M,CHX2,CHX 2+1)
  171           I  CHX1=CHX2  S CHX4=CHX 4_"0"
  172   STRPPH  S  CHLG1=$L(C HNUM)
  173           I  ($E(CHNUM, 1,1)=0)!($ E(CHNUM,1, 1)=" ")!($ E(CHNUM,1, 1)="(") D   G STRPPH
  174           .S  $E(CHNUM, 1,1)=""
  175           I  $F(CHNUM," )") D  G S TRPPH
  176           .S  CHLG2=($F (CHNUM,")" )-1)
  177           .S  CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1)
  178           I  $F(CHNUM,"  ") D  G S TRPPH
  179           .S  CHLG2=($F (CHNUM," " )-1)
  180           .S  CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1)
  181           I  $F(CHNUM," -") D  G S TRPPH
  182           .S  CHLG2=($F (CHNUM,"-" )-1)
  183           .S  CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1)
  184           Q
  185   PADZROS F  I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 ="0"_CHX4
  186           S  CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL ))
  187           Q
  188   PADBLKS F  I=1:1:(CHM AXL-$L(CHX AL)) S CHX AL=CHXAL_"  "
  189           S  CHXAL=$E(C HXAL,1,CHM AXL)
  190           Q
  191   PADRZRO F  I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 =CHX4_"0"
  192           S  CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL ))
  193           Q
  194