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

249.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMW02.m Mon Nov 5 16:41:31 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMXMW02.m Mon Nov 5 17:53:02 2018 UTC

249.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 416
Changed 2 10
Inserted 0 0
Removed 0 0

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

249.4 Active regular expressions

No regular expressions were active.

249.5 Comparison detail

  1   CHMXMW02 ; HAC/RKN;MM I/WEBMD BL D PAY DATA  ELE PART  2;08/06/03  1330 PM
  2    ;;V1.0;
  3    ;;;
  4    ;;;*****  ROUTINE NO T USED RKN  05/24/200 5 *****
  5    ;;;
  6    ;
  7   WRGLOB S C HBRWCT=CHB RWCT+1
  8    S CHMAXL= 10,CHNUM=C HBRWCT D S TRPIT D PA DZROS S CH BRWCT=CHX4  K CHX4,CH NUM,X
  9    ;
  10   DETAIL S C HBDRCID="D TL",CHMAXL =4,CHXAL=C HBDRCID D  PADBLKS S  CHBDRCID=C HXAL
  11    S CHBPAYI D="00232", CHMAXL=5,C HXAL=CHBPA YID D PADB LKS S CHBP AYID=CHXAL
  12    S CHBBPFX =$P(^CHMXC LB(CHMXCLB ,0),"^",2) ,CHMAXL=9, CHXAL=CHBB PFX D PADB LKS S CHBB PFX=CHXAL
  13    S CHBBPLN =$P(^CHMXC LB(CHMXCLB ,0),"^",3) ,CHMAXL=35 ,CHXAL=CHB BPLN D PAD BLKS S CHB BPLN=CHXAL
  14    S CHBBPFN =" ",CHMAX L=25,CHXAL =CHBBPFN D  PADBLKS S  CHBBPFN=C HXAL
  15    S CHBSPFX =" ",CHMAX L=9,CHXAL= CHBSPFX D  PADBLKS S  CHBSPFX=CH XAL
  16    S CHBSPLN =" ",CHMAX L=35,CHXAL =CHBSPLN D  PADBLKS S  CHBSPLN=C HXAL
  17    S CHBSPFN =" ",CHMAX L=25,CHXAL =CHBSPFN D  PADBLKS S  CHBSPFN=C HXAL
  18    S CHBSID= $P(^CHMXCL C(CHMXCLC, 0),"^",4), CHMAXL=30, CHXAL=CHBS ID D PADBL KS S CHBSI D=CHXAL
  19    S CHBLNAM =$P(^CHMXC LC(CHMXCLC ,0),"^",5) ,CHMAXL=35 ,CHXAL=CHB LNAM D PAD BLKS S CHB LNAM=CHXAL
  20    S CHBFNAM =$P(^CHMXC LC(CHMXCLC ,0),"^",6) ,CHMAXL=25 ,CHXAL=CHB FNAM D PAD BLKS S CHB FNAM=CHXAL
  21    S CHBPSID =" ",CHMAX L=30,CHXAL =CHBPSID D  PADBLKS S  CHBPSID=C HXAL
  22    S CHBDOB= $P(^CHMXCL C(CHMXCLC, 0),"^",9), CHMAXL=8,C HNUM=CHBDO B D STRPIT  D PADZROS  S CHBDOB= CHX4 K CHX 4,CHNUM,X
  23    S CHBSEX= $P(^CHMXCL C(CHMXCLC, 0),"^",10)
  24    I (CHBSEX '="M")&(CH BSEX'="F")  S CHBSEX= "U"
  25    S CHMAXL= 1,CHXAL=CH BSEX D PAD BLKS S CHB SEX=CHXAL
  26    S CHBWCLM =$P(^CHMXC LE(CHMXCLE ,0),"^",14 ),CHMAXL=1 5,CHXAL=CH BWCLM D PA DBLKS S CH BWCLM=CHXA L
  27    S CHMAXL= 3,CHXAL=CH BCSCC1 D P ADBLKS S C HBCSCC1=CH XAL
  28    S CHMAXL= 3,CHXAL=CH BCSC1 D PA DBLKS S CH BCSC1=CHXA L
  29    S CHMAXL= 3,CHXAL=CH BCSCE1 D P ADBLKS S C HBCSCE1=CH XAL
  30    S CHMAXL= 3,CHXAL=CH BCSCC2 D P ADBLKS S C HBCSCC2=CH XAL
  31    S CHMAXL= 3,CHXAL=CH BCSC2 D PA DBLKS S CH BCSC2=CHXA L
  32    S CHMAXL= 3,CHXAL=CH BCSCE2 D P ADBLKS S C HBCSCE2=CH XAL
  33    S CHMAXL= 3,CHXAL=CH BCSCC3 D P ADBLKS S C HBCSCC3=CH XAL
  34    S CHMAXL= 3,CHXAL=CH BCSC3 D PA DBLKS S CH BCSC3=CHXA L
  35    S CHMAXL= 3,CHXAL=CH BCSCE3 D P ADBLKS S C HBCSCE3=CH XAL
  36    D NOW^%DT C S CHDRT= $E(%,1,7)
  37    I $E(CHDR T,1,1)="1"  S CENDTE= "18"
  38    I $E(CHDR T,1,1)="2"  S CENDTE= "19"
  39    I $E(CHDR T,1,1)="3"  S CENDTE= "20"
  40    S CHBCDTE =CENDTE_$E (CHDRT,2,3 )_$E(CHDRT ,4,5)_$E(C HDRT,6,7)
  41    S CHMAXL= 8,CHXAL=CH BCDTE D PA DBLKS S CH BCDTE=CHXA L
  42    S CHBCCAM T=$P(^CHMX CLE(CHMXCL E,2),"^",1 ),CHMAXL=1 5,CHNUM=CH BCCAMT D S TRPIT D PA DZROS S CH BCCAMT=CHX 4 K CHX4,C HNUM,X
  43    S X1=$E(C HBCCAMT,2, 13),X2=$E( CHBCCAMT,1 4,15),CHBC CAMT=X1_". "_X2
  44    K X1,X2
  45    S CHMAXL= 15,CHNUM=C HBCPAMT D  STRPIT D P ADZROS S C HBCPAMT=CH X4 K CHX4, CHNUM,X
  46    S X1=$E(C HBCPAMT,2, 13),X2=$E( CHBCPAMT,1 4,15),CHBC PAMT=X1_". "_X2
  47    K X1,X2
  48    S CHMAXL= 8,CHXAL=CH BCAPD D PA DBLKS S CH BCAPD=CHXA L
  49    S CHMAXL= 3,CHXAL=CH BPMC D PAD BLKS S CHB PMC=CHXAL
  50    S CHMAXL= 8,CHXAL=CH BEFTD D PA DBLKS S CH BEFTD=CHXA L
  51    S CHMAXL= 20,CHXAL=C HBEFTN D P ADBLKS S C HBEFTN=CHX AL
  52    S CHBBTYP E=" ",CHMA XL=3,CHNUM =CHBBTYPE  D STRPIT D  PADZROS S  CHBBTYPE= CHX4 K CHX 4,CHNUM,X
  53    S CHBBTYP E=" ",CHMA XL=3,CHXAL =CHBBTYPE  D PADBLKS  S CHBBTYPE =CHXAL
  54    S CHMAXL= 20,CHXAL=C HBPDI D PA DBLKS S CH BPDI=CHXAL
  55    S CHMAXL= 10,CHXAL=C HBPDI2 D P ADBLKS S C HBPDI2=CHX AL
  56    S CHBMRI= " ",CHMAXL =20,CHXAL= CHBMRI D P ADBLKS S C HBMRI=CHXA L
  57    ;
  58    S CHBCSDS =$P(^CHMXC LE(CHMXCLE ,1),"^",1)
  59    I '$D(CHB CSDS) S CH BCSDS=$P(^ CHMPAY(HAC CLM,0),"^" ,8)
  60    S CHMAXL= 8,CHXAL=CH BCSDS D PA DBLKS S CH BCSDS=CHXA L
  61    ;
  62    S CHBSES= $P(^CHMXCL E(CHMXCLE, 1),"^",2)
  63    I '$D(CHB SES) S CHB SES=$P(^CH MPAY(HACCL M,0),"^",8 )
  64    S CHMAXL= 8,CHXAL=CH BSES D PAD BLKS S CHB SES=CHXAL
  65    ;
  66    S CHBCSC2 3=CHBCSCC2 _CHBCSC2_C HBCSCE2_CH BCSCC3_CHB CSC3_CHBCS CE3
  67    ;
  68    I MMXFLAG =1 S CHBDF IL1=" ",CH MAXL=66,CH XAL=CHBDFI L1 D PADBL KS S CHBDF IL1=CHXAL
  69    I WEBFLAG =1 S CHBDF IL1=" ",CH MAXL=97,CH XAL=CHBDFI L1 D PADBL KS S CHBDF IL1=CHXAL
  70    ;
  71    I MMXFLAG =1 D 
  72    .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,0)= CHBDRCID_C HBRWCT_CHB PAYID_CHBB PFX_CHBBPL N_CHBBPFN_ CHBSPFX_CH BSPLN_CHBS PFN_CHBSID _CHBLNAM_C HBFNAM_CHB PSID_CHBLN AM_CHBFNAM _CHBDOB_CH BSEX_CHBWC LM_CHBCSCC 1_CHBCSC1_ CHBCSCE1_C HBCSC23_CH BCDTE_CHBC CAMT
  73    .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,1)= CHBCPAMT_C HBCAPD_CHB PMC_CHBEFT D_CHBEFTN_ CHBBTYPE_C HBPDI_CHBM RI_CHBCSDS _CHBSES_CH BPDI2_CHBD FIL1
  74    .Q
  75    ;
  76    I WEBFLAG =1 D 
  77    .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,0)= CHBDRCID_C HBRWCT_CHB PAYID_CHBB PFX_CHBBPL N_CHBBPFN_ CHBSPFX_CH BSPLN_CHBS PFN_CHBSID _CHBLNAM_C HBFNAM_CHB PSID_CHBLN AM_CHBFNAM _CHBDOB_CH BSEX_CHBWC LM_CHBCSCC 1_CHBCSC1_ CHBCDTE_CH BCCAMT
  78    .S ^CHMZH OLD("RKN", $J,"MMX_27 7U_UPDT",C HBRWCT,1)= CHBCPAMT_C HBCAPD_CHB PMC_CHBEFT D_CHBEFTN_ CHBBTYPE_C HBPDI_CHBM RI_CHBCSDS _CHBSES_CH BDFIL1
  79    .Q
  80    ;
  81    Q
  82    ;
  83   VMSFILE I  MMXFLAG=1  S IO="HAC_ HFS$:[KERM IT.MATRIX] "_"MMICLMP D.DAT"  ;L IVE
  84    I WEBFLAG =1 S IO="H AC_HFS$:[K ERMIT.WEBM D]"_"WEBCL MPD.DAT"   ;LIVE
  85    ;I MMXFLA G=1 S IO=" HAC_HFS$:[ KERMIT.MAT RIX]"_"MD" _CHFMDTE_" .DAT"  ;LI VE
  86    ;I WEBFLA G=1 S IO=" HAC_HFS$:[ KERMIT.MAT RIX]"_"WD" _CHFMDTE_" .DAT"  ;LI VE
  87    S $ZTRAP= "VMSERR"
  88    S (CHDFN, CHBFN)=0,C HRECT1="", CHRECT2=""
  89    C IO
  90    S CHVMSFL ="FILE: "_ IO
  91    O IO:"NWS "
  92    ;O IO:(NE W:PROTECTI ON=(W:RWED ))  ;SKD
  93    U IO
  94    ;
  95   HEADER S C HBHRCID="H DR",CHMAXL =4,CHXAL=C HBHRCID D  PADBLKS S  CHBHRCID=C HXAL
  96    D NOW^%DT C S CHDRT= $E(%,1,7)
  97    I $E(CHDR T,1,1)="1"  S CENDTE= "18"
  98    I $E(CHDR T,1,1)="2"  S CENDTE= "19"
  99    I $E(CHDR T,1,1)="3"  S CENDTE= "20"
  100    S CHBCDTE =CENDTE_$E (CHDRT,2,3 )_$E(CHDRT ,4,5)_$E(C HDRT,6,7), CHMAXL=8,C HXAL=CHBCD TE D PADBL KS S CHBCD TE=CHXAL
  101    S CHBCTIM E=$E(%,9,1 4),CHMAXL= 6,CHNUM=CH BCTIME D S TRPIT D PA DZROS S CH BCTIME=CHX 4 K CHX4,C HNUM,X
  102    S CHBPAYI D="00232", CHMAXL=5,C HXAL=CHBPA YID D PADB LKS S CHBP AYID=CHXAL
  103    S CHBSBNM ="VA HEALT H ADM CTR" ,CHMAXL=30 ,CHXAL=CHB SBNM D PAD BLKS S CHB SBNM=CHXAL
  104    I MMXFLAG =1 S CHBRC NM="MEDICA L MATRIX I NC",CHMAXL =30,CHXAL= CHBRCNM D  PADBLKS S  CHBRCNM=CH XAL
  105    I WEBFLAG =1 S CHBRC NM="WEBMD/ Empower",C HMAXL=30,C HXAL=CHBRC NM D PADBL KS S CHBRC NM=CHXAL
  106    S CHBLOAD T="F"
  107    S CHBTRAC E=CHBCDTE_ CHBCTIME,C HMAXL=20,C HXAL=CHBTR ACE D PADB LKS S CHBT RACE=CHXAL
  108    S CHBVERC D="01",CHM AXL=2,CHNU M=CHBVERCD  D STRPIT  D PADZROS  S CHBVERCD =CHX4 K CH X4,CHNUM,X
  109    S CHBRELC D="03",CHM AXL=2,CHNU M=CHBRELCD  D STRPIT  D PADZROS  S CHBRELCD =CHX4 K CH X4,CHNUM,X
  110    S CHBHFIL 1="",CHMAX L=100,CHXA L=CHBHFIL1  D PADBLKS  S CHBHFIL 1=CHXAL
  111    S CHBHFIL 2="",CHMAX L=392,CHXA L=CHBHFIL2  D PADBLKS  S CHBHFIL 2=CHXAL
  112    W CHBHRCI D_CHBCDTE_ CHBCTIME_C HBPAYID_CH BSBNM_CHBR CNM_CHBLOA DT_CHBTRAC E_CHBVERCD _CHBRELCD_ CHBHFIL1,! ,"~",CHBHF IL2,!,"~", !
  113    S CHRWCT1 =0
  114    D WRCNT
  115    C IO S RC =$ZF(-1,"S ET PROT=(W :RWED) "_I O)
  116    Q
  117    ;
  118   WRCNT S CH RWCT1=$O(^ CHMZHOLD(" RKN",$J,"M MX_277U_UP DT",CHRWCT 1)) G:'CHR WCT1 TRAIL R
  119    S CHRCT1A =^CHMZHOLD ("RKN",$J, "MMX_277U_ UPDT",CHRW CT1,0)
  120    S CHRCT2A =^CHMZHOLD ("RKN",$J, "MMX_277U_ UPDT",CHRW CT1,1)
  121    W CHRCT1A ,!,"~",CHR CT2A,!
  122    K ^CHMZHO LD("RKN",$ J,"MMX_277 U_UPDT",CH RWCT1,0)
  123    K ^CHMZHO LD("RKN",$ J,"MMX_277 U_UPDT",CH RWCT1,1)
  124    G WRCNT
  125    ;
  126   TRAILR S C HBTRCID="T RLR",CHMAX L=4,CHXAL= CHBTRCID D  PADBLKS S  CHBTRCID= CHXAL
  127    S CHBPAYI D="00232"
  128    S CHBRCCN T=CHBRWCT, CHMAXL=7,C HNUM=CHBRC CNT D STRP IT D PADZR OS S CHBRC CNT=CHX4 K  CHX4,CHNU M,X
  129    S CHBTFIL 1=" ",CHMA XL=200,CHX AL=CHBTFIL 1 D PADBLK S S CHBTFI L1=CHXAL
  130    S CHBTFIL 2=" ",CHMA XL=384,CHX AL=CHBTFIL 2 D PADBLK S S CHBTFI L2=CHXAL
  131    W CHBTRCI D_CHBPAYID _CHBRCCNT_ CHBTFIL1,! ,"~",CHBTF IL2
  132    Q
  133    ;
  134   VMSERR C I O
  135    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ DSMMANAG]C HV_DELETE_ WB_WN.COM  /NOPRINT/U SER=HACCAC HEMGR/PARA M="_CHFMDT E)
  136   ERRMM S CH ERRMSG=1,C HNB=2,ZML( CHNB)=""
  137    S ZML(CHN B)=CHVMSFL
  138    I MMXFLAG =1 S CHNB= CHNB+1,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE:  An error  has occurr ed in writ ing Update  for the", CHNB=CHNB+ 1,ZML(CHNB )=" 277U M d Paid Cla ims file!"
  139    I WEBFLAG =1 S CHNB= CHNB+1,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE:  An error  has occurr ed in writ ing Update  for the", CHNB=CHNB+ 1,ZML(CHNB )=" 277U W D Paid Cla ims file!"
  140    S XMDUZ=. 5,XMY("107 22")="" ;R KN LIVE
  141    ;S XMY(" P I                    ")=""
  142    ;S XMY(" PII                               ")= ""
  143    S XMY(" PII                      " )=""
  144    I MMXFLAG =1 S XMTEX T="ZML(",X MSUB="277U  MD Paid C laims..Err or.."_FMDA TE
  145    I WEBFLAG =1 S XMTEX T="ZML(",X MSUB="277U  WD Paid C laims..Err or.."_FMDA TE
  146    D ^XMD
  147    Q
  148    ;
  149   AUTOMM S C HNB=2,ZML( CHNB)=""
  150    I '$D(CHV MSFL) S CH VMSFL="NO  FILE CREAT ED! ",FLFL AG="1"
  151    S ZML(CHN B)=CHVMSFL _"  (Total  Records =  "_CHBRCCN T_")"
  152    I FLFLAG= 1 S CHNB=C HNB+1,ZML( CHNB)="",C HNB=CHNB+1 ,ZML(CHNB) ="NOTICE:  UNSUCESSFU LL CREATIO N MD 277U  Paid Claim s STAT fil e!"
  153    I FLFLAG' =1 I MMXFL AG=1 S CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: Success ful CREATI ON MD 277U  Paid Clai ms STAT fi le!"
  154    I FLFLAG' =1 I WEBFL AG=1 S CHN B=CHNB+1,Z ML(CHNB)=" ",CHNB=CHN B+1,ZML(CH NB)="NOTIC E: Success ful CREATI ON WD 277U  Paid Clai ms STAT fi le!"
  155    S XMDUZ=. 5,XMY("107 22")="" ;R KN LIVE
  156    ;S XMY(" P I                    ")=""
  157    S XMY(" PII                      " )=""
  158    I FLFLAG= 1 S XMTEXT ="ZML(",XM SUB="277U  MD Paid Cl aims..UNSU CESS.."_FM DATE
  159    I FLFLAG' =1 I MMXFL AG=1 S XMT EXT="ZML(" ,XMSUB="27 7U MD Paid  Claims..S uccess.."_ FMDATE
  160    I FLFLAG' =1 I WEBFL AG=1 S XMT EXT="ZML(" ,XMSUB="27 7U WD Paid  Claims..S uccess.."_ FMDATE
  161    D ^XMD
  162    Q
  163    ;
  164   STRPIT S C HNUM2=""
  165    F X=1:1:$ L(CHNUM) D   
  166    .S CHAR=$ E(CHNUM,X)  I CHAR?1N  S CHNUM2= CHNUM2_CHA R
  167    S CHX4=CH NUM2
  168    Q
  169    ;
  170   STRPDL I $ E(CHNUM,1, 1)=0 D  D  STRPIT  ;s trip leadi ng 0's
  171    .S $E(CHN UM,1,1)=""
  172    .Q
  173    I $E(CHNU M,$F(CHNUM ,"."),$F(C HNUM,".")+ 1)="" D  ; Dec only
  174    .S CHNUM= CHNUM_"00"
  175    .Q
  176    S CHX1=$L (CHNUM)
  177    I '$F(CHN UM,".") D   ;No Dec
  178    .S CHX4=C HNUM
  179    .I $D(DOL FLG) S CHX 4=CHNUM_"0 0"
  180    .S CHX4=$ E(CHX4,1,C HMAXL)
  181    .K DOLFLG
  182    .Q
  183    S CHX2=$F (CHNUM,"." ),CHX3=CHX 2-2
  184    S CHX4=$E (CHNUM,1,C HX3)_$E(CH NUM,CHX2,C HX2+1)
  185    I CHX1=CH X2 S CHX4= CHX4_"0"
  186    K CHNUM,C HX1,CHX2,C HX3,CHMAXL
  187    Q
  188    ;
  189   STRPPH S C HLG1=$L(CH NUM)
  190    I ($E(CHN UM,1,1)=0) !($E(CHNUM ,1,1)=" ") !($E(CHNUM ,1,1)="(")  D  G STRP PH
  191    .S $E(CHN UM,1,1)=""
  192    .Q
  193    I $F(CHNU M,")") D   G STRPPH
  194    .S CHLG2= ($F(CHNUM, ")")-1)
  195    .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1)
  196    .Q
  197    I $F(CHNU M," ") D   G STRPPH
  198    .S CHLG2= ($F(CHNUM, " ")-1)
  199    .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1)
  200    .Q
  201    I $F(CHNU M,"-") D   G STRPPH
  202    .S CHLG2= ($F(CHNUM, "-")-1)
  203    .S CHNUM= $E(CHNUM,1 ,CHLG2-1)_ $E(CHNUM,C HLG2+1,CHL G1)
  204    .Q
  205    Q
  206    ;
  207   PADZROS F  I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 ="0"_CHX4
  208    S CHX4=$R E($E($RE(C HX4),1,CHM AXL))
  209    Q
  210    ;
  211   PADBLKS F  I=1:1:(CHM AXL-$L(CHX AL)) S CHX AL=CHXAL_"  "
  212    S CHXAL=$ E(CHXAL,1, CHMAXL)
  213    Q