33. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:44 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.

33.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT1.m Mon Nov 5 16:41:43 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT1.m Tue Nov 6 22:12:01 2018 UTC

33.2 Comparison summary

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

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

33.4 Active regular expressions

No regular expressions were active.

33.5 Comparison detail

  1   CHCMSRT1 ; CVA/SKD;CM S DATA MAT CH ;12-2-0 4  1:06 PM
  2    ;;TRC 116 9 - MEDICA RE/HAC DAT A COMPARIS ON REPORT1
  3    ;;
  4    ;;OUTPUT  CRITERIA:
  5    ;;EXCLUDE  FMP,SB BE NES
  6    ;;LIST IF  BENES ARE  UNDER 65  AND CMS PA RT A&B WIT H DIFFEREN T START DA TE S
  7    ;;AND ONL Y IF DISCR EPANCIES B ETWEEN CMS  AND HAC D ATA
  8    ;;SORT BY  LAST NAME
  9    ;;
  10    ;
  11   GETDATA ;
  12    S CHCMS=" ZSKDCMS1"
  13    K ^CHMZHO LD(CHCMS)
  14    S $ZE="", $ZT="PRINT ^CHCMSRT1"
  15    D LOOP  
  16    ;D KILLVA R
  17   END Q
  18   LOOP S $ZE ="",$ZT="P RINT^CHCMS RT1"
  19    K ^CHMZHO LD(CHCMS)
  20    S CNT=0,C NT1=0,CNT2 =0,CNT3=0, CNT4=0,CNT 5=0,CNT6=0 ,CNT7=0,RC NT=0
  21    S GLELG=" ^AHCHVA("
  22    ;;S READF IL1="HAC_H FS$:[SCR.0 00000]CMS. DAT"
  23    S READFIL 1="SYS$SYS DEVICE:[TE STMGR]CMS. DAT"
  24    O READFIL 1 I $ZE["E NDOFFILE"  U 0 W !,"E NDOFFILE"  G END
  25   LOOP1 F  U  READFIL1  R TMPX G:$ ZE["ENDOFF ILE" PRINT   D
  26    .S (BSSN, BFNAME,BLN AME,BMINIT ,CMSNM,CHM DOB,CHMABD T,CHMAEDT, CHMBBDT,CH MBEDT,CHMD OD)=""
  27    .S BSSN=$ E(TMPX,100 ,108),RCNT =RCNT+1,^C HMZHOLD(CH CMS,"CT"," CMSTOT")=R CNT
  28    .S BFNAME =$$REMSP($ E(TMPX,43, 57))
  29    .S BLNAME =$$REMSP($ E(TMPX,59, 82))
  30    .S BMINIT =$$REMSP($ E(TMPX,58) )
  31    .S CMSNM= BLNAME_"," _BFNAME_$S ($L(BMINIT ):" "_BMIN IT,1:"")
  32    .Q:BSSN=" "
  33    .S CHMDOB =$$REMSP($ E(TMPX,83, 90))
  34    .I CHMDOB ="         " S CHMDOB =""
  35    .I CHMDOB '="" S X=$ E(CHMDOB,5 ,8)_$E(CHM DOB,1,4),% DT="P" D ^ %DT S CHMD OB=Y K %DT
  36    .I CHMDOB ="" S CHMD OB=0
  37    .S CHMABD T=$E(TMPX, 109,116)
  38    .I CHMABD T="         " S CHMAB DT=""
  39    .I CHMABD T'="" S X= $E(CHMABDT ,5,8)_$E(C HMABDT,1,4 ),%DT="P"  D ^%DT S C HMABDT=Y K  %DT
  40    .S CHMAED T=$E(TMPX, 117,124)
  41    .I CHMAED T="         " S CHMAE DT=""
  42    .I CHMAED T'="" S X= $E(CHMAEDT ,5,8)_$E(C HMAEDT,1,4 ),%DT="P"  D ^%DT S C HMAEDT=Y K  %DT
  43    .S CHMBBD T=$E(TMPX, 126,133)
  44    .I CHMBBD T="         " S CHMBB DT=""
  45    .I CHMBBD T'="" S X= $E(CHMBBDT ,5,8)_$E(C HMBBDT,1,4 ),%DT="P"  D ^%DT S C HMBBDT=Y K  %DT
  46    .S CHMBED T=$E(TMPX, 134,141)
  47    .I CHMBED T="         " S CHMBE DT=""
  48    .I CHMBED T'="" S X= $E(CHMBEDT ,5,8)_$E(C HMBEDT,1,4 ),%DT="P"  D ^%DT S C HMBEDT=Y K  %DT
  49    .S CHMDOD =$E(TMPX,9 1,98)
  50    .S CHMDOD =$$STRIP^X LFSTR(CHMD OD," ")
  51    .I CHMDOD ="         " S CHMDOD =""
  52    .I CHMDOD '="" S X=$ E(CHMDOD,5 ,8)_$E(CHM DOD,1,4),% DT="P" D ^ %DT S CHMD OD=Y K %DT
  53    .Q:CHMABD T=""!(CHMB BDT="")
  54    .I CHMABD T'=CHMBBDT  S CNT7=CN T7+1,^CHMZ HOLD(CHCMS ,"CT","CMS SEL")=CNT7  D L1
  55    Q
  56    ;       
  57   L1 ;COMPAR ES DATA WI TH M DATAB ASE
  58    K CHMAFG, CHMBFG,CHM DFG,CHMNFG
  59    I '$D(@(G LELG_"""G" ",BSSN)"))  Q
  60    S CHMADT= "",CHMBDT= "",CHMADTE ="",CHMBDT E=""
  61    S (DFN,BF N,AGE,CHBE NDOB,BNAME )=""
  62    S DFN=$O( @(GLELG_"" "G"",BSSN, 0)")) Q:'D FN
  63    S BFN=$O( @(GLELG_"" "G"",BSSN, DFN,0)"))  Q:'BFN
  64    Q:'$D(@(G LELG_"DFN, 100,BFN,0) ")) 
  65    I '$G(DT)  S X="NOW" ,%DT="D" D  ^%DT S DT =Y
  66    S CHBENDO B=$P($G(@( GLELG_"DFN ,100,BFN,0 )")),"^",3 )
  67    S AGE=$$F MDIFF^XLFD T(DT,CHBEN DOB)/365
  68    S AGE=$P( AGE,".",1)  Q:AGE'<65
  69    Q:$D(@(GL ELG_"""SB" ",DFN,BFN) "))
  70    Q:$D(@(GL ELG_"""FMP "",DFN,BFN )"))
  71    S CHSPOUS E="",CHSPO USE=$P($G( @(GLELG_"D FN,100,BFN ,0)")),"^" ,4)
  72    Q:CHSPOUS E'="S"&(CH SPOUSE'="C ")
  73    S CNT=CNT +1,^CHMZHO LD(CHCMS," CT","TOT") =CNT
  74    S BNAME=$ P($G(@(GLE LG_"DFN,10 0,BFN,0)") ),"^",1)
  75    D MEDA,ME DB,DOD,NAM E,DOB
  76    I $D(CHMA FG) S CNT1 =CNT1+1,^C HMZHOLD(CH CMS,"CT"," MEDA")=CNT 1
  77    I $D(CHMB FG) S CNT2 =CNT2+1,^C HMZHOLD(CH CMS,"CT"," MEDB")=CNT 2
  78    I '$D(CHM AFG)&('$D( CHMBFG))&( '$D(CHMDFG ))&('$D(CH MNFG)) S C NT4=CNT4+1 ,^CHMZHOLD (CHCMS,"CT ","NOISSUE ")=CNT4
  79    Q
  80    ;
  81   MEDA K CHM AFG
  82    S (CHMADT ,CHMADTE,C HMADTP)=""
  83    I CHMABDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 111)")) S  CHMAFG="" 
  84    S CHMADTP =999999999 9
  85    S CHMADTP =$O(@(GLEL G_"DFN,100 ,BFN,111,C HMADTP)"), -1)
  86    I CHMABDT '=""&'$D(C HMADTP) S  CHMAFG=""
  87    I CHMADTP  D
  88    .I CHMABD T'=""&'$D( @(GLELG_"D FN,100,BFN ,111,CHMAD TP,0)")) S  CHMAFG=""
  89    .S CHMADT =$P($G(@(G LELG_"DFN, 100,BFN,11 1,CHMADTP, 0)")),"^", 1)
  90    .S CHMADT E=$P($G(@( GLELG_"DFN ,100,BFN,1 11,CHMADTP ,0)")),"^" ,4)
  91    .S CHMADT E=$P(CHMAD TE,".",1)
  92    I CHMABDT '=CHMADT S  CHMAFG=""  
  93    I CHMAEDT '=CHMADTE  S CHMAFG=" "
  94    I $D(CHMA FG) D WRIT EMA
  95    Q
  96    ;
  97   WRITEMA ;
  98    S ^CHMZHO LD(CHCMS,B NAME,BSSN, CHMDOB)=CH MABDT_"^"_ CHMAEDT_"^ "_CHMADT_" ^"_CHMADTE
  99    Q
  100    ;
  101   MEDB K CHM BFG
  102    I CHMBBDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 112)")) S  CHMBFG=""
  103    S CHMBDTP =999999999 9
  104    S CHMBDTP =$O(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP)"), -1)
  105    I CHMBBDT '=""&'$D(C HMBDTP) S  CHMBFG=""
  106    ;I CHMBBD T'=""&'$D( CHMBDTP) D  WRITEMB S  CHMBFG=""  Q
  107    I CHMBDTP  D
  108    .I CHMBBD T'=""&'$D( @(GLELG_"D FN,100,BFN ,112,CHMBD TP,0)")) S  CHMBFG=""
  109    .S CHMBDT =$P(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP,0)" ),"^",1)
  110    .S CHMBDT E=$P(@(GLE LG_"DFN,10 0,BFN,112, CHMBDTP,0) "),"^",4)
  111    .S CHMBDT E=$P(CHMBD TE,".",1)
  112    I CHMBBDT '=CHMBDT S  CHMBFG=""
  113    I CHMBEDT '=CHMBDTE  S CHMBFG=" "
  114    I $D(CHMB FG) D WRIT EMB
  115    Q
  116    ;
  117   WRITEMB ;
  118    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,5)=CHMB BDT
  119    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,6)=CHMB EDT
  120    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,7)=CHMB DT
  121    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,8)=CHMB DTE
  122    Q
  123    ;
  124   DOD K CHMD FG S CHDOD =""
  125    S CHDOD=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",6)
  126    I CHMDOD' =CHDOD D W RITEDOD S  CHMDFG=""  S CNT3=CNT 3+1,^CHMZH OLD(CHCMS, "CT","DOD" )=CNT3
  127    Q
  128    ;
  129   WRITEDOD ;
  130    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,9)=CHMD OD
  131    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,10)=CHD OD
  132    Q
  133    ;
  134   DOB K CHMD BFG S CHDO B=""
  135    S CHDOB=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",3)
  136    I CHMDOB' =CHDOB S C HMDBFG=""  S CNT6=CNT 6+1,^CHMZH OLD(CHCMS, "CT","DOB" )=CNT6 D W RITEDOB
  137    Q
  138   WRITEDOB ;
  139    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,12)=CHM DOB
  140    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,13)=CHD OB
  141    Q
  142    ;       
  143   NAME ;
  144    S HACNM=B NAME
  145    I $E(BNAM E,$L(BNAME ))=" "!($E (BNAME,$L( BNAME))=". ") S HACNM =$E(BNAME, 1,$L(BNAME )-1)
  146    K CHMNFG
  147    I HACNM'= CMSNM S CH MNFG="",CN T5=CNT5+1, ^CHMZHOLD( CHCMS,"CT" ,"NAME")=C NT5,$P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,11)=CM SNM
  148    Q
  149    ;
  150   KILLVAR ;
  151    K DFN,BFN ,BNAME,BSS N
  152    K CHMAFG, CHMBFG,CHM DFG,CHMNFG ,BFNAME,BL NAME,BMINI T,HACNM,CM SNM
  153    K CNT,CNT 1,CNT2,CNT 3,CNT4,CNT 5
  154    K CHMABDT ,CHMAEDT,C HMADT,CHMA DTE,CHMBBD T,CHMBEDT, CHMBDT,CHM BDTE,CHMDO D,CHDOD,CH MDOB,CHDOB
  155    Q
  156    ;
  157   CLEARVAR ;
  158    D CLEARVA R^CHCMSRT2  Q
  159    ;
  160   REMSP(NM)  ;
  161    S NM2=""
  162    F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1)
  163    Q NM2
  164    ;
  165   PRINT ;
  166    I $D(READ FIL1) C RE ADFIL1
  167    ;;S FILE1 ="HAC_HFS$ :[SCR.TEMP _FILES.INS TALLS]CMS_ REPORT1.TX T" O FILE1  C FILE1:" D"
  168    S FILE1=" SYS$SYSDEV ICE:[TESTM GR]SKD_CAC HETEST.TXT " O FILE1  C FILE1:"D "
  169    ;;S FILE1 ="HACFS3""
D NS      Welcome1!" "::d:[FS3B IG.CODEUPD T.REDBOOK. LIVE]SKD_C ACHETEST.T XT" O FILE 1 C FILE1: "D"
  170    O FILE1:" NWS"
  171    I '$D(CHC MS) S CHCM S="ZSKDCMS 1"
  172    I '$D(^CH MZHOLD(CHC MS)) D  G  END
  173    .D CLEARV AR
  174    .S BNAME= "NO MEDICA RE ISSUES  (CMS PART  A DOES NOT  MATCH CMS  PART B -  SPOUSES AN D CHILDREN  UNDER 65,  NO FMP, N O SB)" 
  175    .D WREC
  176    D HEAD
  177    S BNAME=" "
  178    F  S BNAM E=$O(^CHMZ HOLD(CHCMS ,BNAME)) G :'$L(BNAME ) PEND D
  179    .S BSSN=0 ,(CHMABDT, CHMAEDT,CH MADT,CHMAD TE,CHMBBDT ,CHMBEDT,C HMBDT,CHMB DTE,CHMDOD ,CHDOD,CMS NM,CHMDOB, CHDOB,CHDO B2)=""
  180    .S BSSN=$ O(^CHMZHOL D(CHCMS,BN AME,BSSN))  Q:'BSSN
  181    .S CHMDOB =$O(^CHMZH OLD(CHCMS, BNAME,BSSN ,0)) 
  182    .S CHMABD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,1),"2 D")
  183    .S CHMAED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,2),"2 D")
  184    .S CHMADT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,3),"2D ")
  185    .S CHMADT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,4),"2 D")
  186    .S CHMBBD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,5),"2 D")
  187    .S CHMBED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,6),"2 D")
  188    .S CHMBDT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,7),"2D ")
  189    .S CHMBDT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,8),"2 D")
  190    .S CHMDOD =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,9),"2D ")
  191    .S CHDOD= $$FMTE^XLF DT($P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,10),"2D ")
  192    .S CMSNM= $P(^CHMZHO LD(CHCMS,B NAME,BSSN, CHMDOB),U, 11)
  193    .S CHDOB2 =$P(^CHMZH OLD(CHCMS, BNAME,BSSN ,CHMDOB),U ,13)
  194    .S CHDOB= "" I CHMDO B'=CHDOB2  S CHDOB=$$ FMTE^XLFDT (CHDOB2,"2 D")
  195    .S CHMDOB =$$FMTE^XL FDT(CHMDOB ,"2D")
  196    .D WREC
  197   PEND D WRI TECT C FIL E1
  198    Q
  199    ;
  200   WREC U FIL E1 W !,$G( BNAME)_U_$ G(BSSN)_U_ $G(CHMABDT )_U_$G(CHM AEDT)_U_$G (CHMADT)_U _$G(CHMADT E)_U_$G(CH MBBDT)_U_$ G(CHMBEDT) _U_$G(CHMB DT)_U_$G(C HMBDTE)_U_ $G(CHMDOD) _U_$G(CHDO D)_U_$G(CM SNM)_U_$G( CHMDOB)_U_ $G(CHDOB)
  201    Q
  202   WRITECT ;
  203    D CLEARVA R
  204    S BNAME=" CMSTOT: "_ $G(^CHMZHO LD(CHCMS," CT","CMSTO T"))
  205    S BSSN="H ACTOT: "_$ G(^CHMZHOL D(CHCMS,"C T","TOT"))
  206    S CHMABDT ="MEDA: "
  207    S CHMAEDT =$G(^CHMZH OLD(CHCMS, "CT","MEDA "))
  208    S CHMADT= "MEDB: "
  209    S CHMADTE =$G(^CHMZH OLD(CHCMS, "CT","MEDB "))
  210    S CHMBBDT ="DOD: "
  211    S CHMBEDT =$G(^CHMZH OLD(CHCMS, "CT","DOD" ))
  212    S CHMBDT= "NAME: "
  213    S CHMBDTE =$G(^CHMZH OLD(CHCMS, "CT","NAME "))
  214    S CHMDOD= "DOB: "
  215    S CHDOD=$ G(^CHMZHOL D(CHCMS,"C T","DOB"))
  216    S CMSNM=" NO ISSUE:  "
  217    S CHMDOB= $G(^CHMZHO LD(CHCMS," CT","NOISS UE"))
  218    S CHDOB=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")_ " (CMS PAR T A DOES N OT MATCH C MS PART B  - SPOUSES  AND CHILDR EN UNDER 6 5, NO FMP,  NO SB)" 
  219    D WREC
  220    Q
  221    ;
  222   HEAD ;
  223    D CLEARVA R
  224    S BNAME=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")  D WREC
  225    S BNAME=" MEDICARE P ART A&B WI TH DIFFERE NT START D ATES - SPO USES AND C HILDREN UN DER 65, NO  FMP, NO S B"
  226    D WREC
  227    S BNAME=" HAC NAME"
  228    S BSSN="S SN"
  229    S CHMABDT ="CMS-A-BE G"
  230    S CHMAEDT ="CMS-A-EN D"
  231    S CHMADT= "HAC-A-BEG "
  232    S CHMADTE ="HAC-A-EN D"
  233    S CHMBBDT ="CMS-B-BE G"
  234    S CHMBEDT ="CMS-B-EN D"
  235    S CHMBDT= "HAC-B-BEG "
  236    S CHMBDTE ="HAC-B-EN D"
  237    S CHMDOD= "CMS-DOD"
  238    S CHDOD=" HAC-DOD"
  239    S CMSNM=" CMS NAME"
  240    S CHMDOB= "CMS DOB"
  241    S CHDOB=" HAC DOB"
  242    D WREC
  243    Q