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

36.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT6.m Mon Nov 5 16:44:47 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT6.m Wed Nov 7 13:34:34 2018 UTC

36.2 Comparison summary

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

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

36.4 Active regular expressions

No regular expressions were active.

36.5 Comparison detail

  1   CHCMSRT6 ; CVA/SKD;RE AD RTN DAT A FILES FO R CMS CONT RACT;12/08 /97  1:06  PM
  2    ;;V1.0
  3    ;;OUTPUT  CRITERIA:
  4    ;;EXCLUDE  FMP,SB BE NES
  5    ;;LIST IF  CHILD
  6    ;;SORT BY  LAST NAME
  7    ;;
  8   START ;
  9    ;D ^CHMIG
  10    ;X OFILE
  11    ;D GETDAT A
  12    ;X CFILE
  13    ;D PRINT
  14    ;Q
  15    ;
  16   GETDATA ;
  17    S CHCMS=" ZSKDCMS3"
  18    K ^CHMZHO LD(CHCMS)
  19    S $ZE="", $ZT="PRINT ^CHCMSRT7"
  20    D LOOP     ;SEND JUS T TMP NAME S
  21    ;D KILLVA R
  22   END Q
  23   LOOP S $ZE ="",$ZT="P RINT^CHCMS RT7"
  24    K ^CHMZHO LD(CHCMS)
  25    S CNT=0,C NT1=0,CNT2 =0,CNT3=0, CNT4=0,CNT 5=0,RCNT=0
  26    S GLELG=" ^AHCHVA("
  27    S READFIL E="HAC_HFS $:[SCR.000 000]CMS2.D AT"
  28    O READFIL E I $ZE["E NDOFFILE"  G END
  29   LOOP1 F  U  READFILE  R TMPX G:$ ZE["ENDOFF ILE" PRINT   D
  30    .S (BSSN, BFNAME,BLN AME,BMINIT )=""
  31    .S BSSN=$ E(TMPX,100 ,108),RCNT =RCNT+1,^C HMZHOLD(CH CMS,"CT"," CMSTOT")=R CNT
  32    .S BFNAME =$$REMSP($ E(TMPX,43, 57))
  33    .S BLNAME =$$REMSP($ E(TMPX,59, 82))
  34    .S BMINIT =$$REMSP($ E(TMPX,58) )
  35    .S CMSNM= BLNAME_"," _BFNAME_$S ($L(BMINIT ):" "_BMIN IT,1:"")
  36    .Q:BSSN=" "
  37    .S BDOB=$ $REMSP($E( TMPX,83,90 ))
  38    .S CHMABD T=$E(TMPX, 109,116)
  39    .I CHMABD T="         " S CHMAB DT=""
  40    .I CHMABD T'="" S X= $E(CHMABDT ,5,8)_$E(C HMABDT,1,4 ),%DT="P"  D ^%DT S C HMABDT=Y K  %DT
  41    .S CHMAED T=$E(TMPX, 117,124)
  42    .I CHMAED T="         " S CHMAE DT=""
  43    .I CHMAED T'="" S X= $E(CHMAEDT ,5,8)_$E(C HMAEDT,1,4 ),%DT="P"  D ^%DT S C HMAEDT=Y K  %DT
  44    .S CHMBBD T=$E(TMPX, 126,133)
  45    .I CHMBBD T="         " S CHMBB DT=""
  46    .I CHMBBD T'="" S X= $E(CHMBBDT ,5,8)_$E(C HMBBDT,1,4 ),%DT="P"  D ^%DT S C HMBBDT=Y K  %DT
  47    .S CHMBED T=$E(TMPX, 134,141)
  48    .I CHMBED T="         " S CHMBE DT=""
  49    .I CHMBED T'="" S X= $E(CHMBEDT ,5,8)_$E(C HMBEDT,1,4 ),%DT="P"  D ^%DT S C HMBEDT=Y K  %DT
  50    .S CHMDOD =$E(TMPX,9 1,98)
  51    .S CHMDOD =$$STRIP^X LFSTR(CHMD OD," ")
  52    .I CHMDOD ="         " S CHMDOD =""
  53    .I CHMDOD '="" S X=$ E(CHMDOD,5 ,8)_$E(CHM DOD,1,4),% DT="P" D ^ %DT S CHMD OD=Y K %DT
  54    .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=$O( @(GLELG_"" "G"",BSSN, 0)")) Q:'D FN
  62    S BFN=$O( @(GLELG_"" "G"",BSSN, DFN,0)"))  Q:'BFN
  63    Q:'$D(@(G LELG_"DFN, 100,BFN,0) ")) 
  64    I '$G(DT)  S X="NOW" ,%DT="D" D  ^%DT S DT =Y
  65    S CHBENDO B=$P($G(@( GLELG_"DFN ,100,BFN,0 )")),"^",3 )
  66    S AGE=$$F MDIFF^XLFD T(DT,CHBEN DOB)/365
  67    S AGE=$P( AGE,".",1)  Q:AGE'<65
  68    Q:$D(@(GL ELG_"""SB" ",DFN,BFN) "))
  69    Q:$D(@(GL ELG_"""FMP "",DFN,BFN )"))
  70    S CHSPOUS E="",CHSPO USE=$P($G( @(GLELG_"D FN,100,BFN ,0)")),"^" ,4)
  71    Q:CHSPOUS E'="C"
  72    S CNT=CNT +1,^CHMZHO LD(CHCMS," CT","TOT") =CNT
  73    S BSSN=$P (^AHCHVA(D FN,100,BFN ,0),"^",9)
  74    ;D MEDA,M EDB,DOD,NA ME
  75    D DOD
  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    I CHMABDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 111)")) D  WRITEMA S  CHMAFG=""  Q
  83    S CHMADTP =999999999 9
  84    S CHMADTP =$O(@(GLEL G_"DFN,100 ,BFN,111,C HMADTP)"), -1)
  85    I CHMABDT '=""&'$D(C HMADTP) D  WRITEMA S  CHMAFG=""  Q
  86    I CHMADTP  D
  87    .I CHMABD T'=""&'$D( @(GLELG_"D FN,100,BFN ,111,CHMAD TP,0)")) D  WRITEMA S  CHMAFG=""  Q
  88    .S CHMADT =$P($G(@(G LELG_"DFN, 100,BFN,11 1,CHMADTP, 0)")),"^", 1)
  89    .S CHMADT E=$P($G(@( GLELG_"DFN ,100,BFN,1 11,CHMADTP ,0)")),"^" ,4)
  90    .S CHMADT E=$P(CHMAD TE,".",1)
  91    I CHMABDT '=CHMADT D  WRITEMA S  CHMAFG=""
  92    Q
  93    ;
  94   WRITEMA ;
  95    S ^CHMZHO LD(CHCMS,B NAME,BSSN) =CHMABDT_" ^"_CHMAEDT _"^"_CHMAD T_"^"_CHMA DTE
  96    Q
  97    ;
  98   MEDB K CHM BFG
  99    I CHMBBDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 112)")) D  WRITEMB S  CHMBFG=""
  100    S CHMBDTP =999999999 9
  101    S CHMBDTP =$O(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP)"), -1)
  102    I CHMBBDT '=""&'$D(C HMBDTP) D  WRITEMB S  CHMBFG=""  Q
  103    I CHMBDTP  D
  104    .I CHMBBD T'=""&'$D( @(GLELG_"D FN,100,BFN ,112,CHMBD TP,0)")) D  WRITEMB S  CHMBFG=""  Q
  105    .S CHMBDT =$P(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP,0)" ),"^",1)
  106    .S CHMBDT E=$P(@(GLE LG_"DFN,10 0,BFN,112, CHMBDTP,0) "),"^",4)
  107    .S CHMBDT E=$P(CHMBD TE,".",1)
  108    I CHMBBDT '=CHMBDT D  WRITEMB S  CHMBFG=""
  109    Q
  110    ;
  111   WRITEMB ;
  112    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,5)=C HMBBDT
  113    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,6)=C HMBEDT
  114    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,7)=C HMBDT
  115    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,8)=C HMBDTE
  116    Q
  117    ;
  118   DOD K CHMD FG S CHDOD =""
  119    S CHDOD=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",6)
  120    I CHMDOD' =CHDOD D W RITEDOD S  CHMDFG=""  S CNT3=CNT 3+1,^CHMZH OLD(CHCMS, "CT","DOD" )=CNT3
  121    Q
  122    ;
  123   WRITEDOD ;
  124    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,9)=C HMDOD
  125    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,10)= CHDOD
  126    Q
  127    ;
  128   NAME ;
  129    S (BNAME, HACNM)=""
  130    S (BNAME, HACNM)=$P( ^AHCHVA(DF N,100,BFN, 0),"^",1)
  131    I $E(BNAM E,$L(BNAME ))=" "!($E (BNAME,$L( BNAME))=". ") S HACNM =$E(BNAME, 1,$L(BNAME )-1)
  132    K CHMNFG
  133    I HACNM'= CMSNM D
  134    .S CHMNFG =""
  135    .S $P(^CH MZHOLD(CHC MS,BNAME,B SSN),U,11) =CMSNM
  136    .S CNT5=C NT5+1,^CHM ZHOLD(CHCM S,"CT","NA ME")=CNT5
  137    Q
  138    ;
  139   KILLVAR ;
  140    K DFN,BFN ,BNAME,BSS N
  141    K CHMAFG, CHMBFG,CHM DFG,CHMNFG ,BFNAME,BL NAME,BMINI T,HACNM,CM SNM
  142    K CNT,CNT 1,CNT2,CNT 3,CNT4,CNT 5
  143    K CHMABDT ,CHMAEDT,C HMADT,CHMA DTE,CHMBBD T,CHMBEDT, CHMBDT,CHM BDTE,CHMDO D,CHDOD
  144    Q
  145    ;
  146   REMSP(NM)  ;
  147    S NM2=""
  148    F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1)
  149    Q NM2
  150    ;;CMS DAT A MATCH*HA C_HFS$:[AR C.REHOST]C MSU65.TXT*
  151    ;CMS DATA  MATCH*HAC FS3" DNS     HACdec741! "::D:[FS3B IG.VISTA]C MSU65.TXT*
  152   FILE1 ;;CM S DATA MAT CH*HAC_HFS $:[ARC.REH OST]CMSCHI LD.TXT*
  153    ;;BNAME*B NAME*
  154    ;;BSSN*BS SN*
  155    ;;CHMABDT *CHMABDT*
  156    ;;CHMAEDT *CHMAEDT*
  157    ;;CHMADT* CHMADT*
  158    ;;CHMADTE *CHMADTE*
  159    ;;CHMBBDT *CHMBBDT*
  160    ;;CHMBEDT *CHMBEDT*
  161    ;;CHMBDT* CHMBDT*
  162    ;;CHMBDTE *CHMBDTE*
  163    ;;CHMDOD* CHMDOD*
  164    ;;CHDOD*C HDOD*
  165    ;;CMSNM*C MSNM*
  166    ;;***
  167   PRINT BREA K
  168    I $D(READ FILE) C RE ADFILE
  169    S FILE="H AC_HFS$:[S CR.TEMP_FI LES.INSTAL LS]CMSCHIL D.TXT" O F ILE C FILE :"D"
  170    O FILE:"N WS"
  171    I '$D(CHC MS) S CHCM S="ZSKDCMS 3"
  172    I '$D(^CH MZHOLD(CHC MS)) D  G  END
  173    .S BNAME= "NO MEDICA RE ISSUES  (CHILDREN,  NO FMP, N O SB)" 
  174    .S (BSSN, CHMABDT,CH MAEDT,CHMA DT,CHMADTE ,CHMBBDT,C HMBEDT,CHM BDT,CHMBDT E,CHMDOD,C HDOD,CMSNM )=""
  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)=""
  180    .S BSSN=$ O(^CHMZHOL D(CHCMS,BN AME,BSSN))  Q:'BSSN
  181    .S CHMABD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,1) ,"2D")
  182    .S CHMAED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,2) ,"2D")
  183    .S CHMADT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN),U,3), "2D")
  184    .S CHMADT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,4) ,"2D")
  185    .S CHMBBD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,5) ,"2D")
  186    .S CHMBED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,6) ,"2D")
  187    .S CHMBDT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN),U,7), "2D")
  188    .S CHMBDT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN),U,8) ,"2D")
  189    .S CHMDOD =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN),U,9), "2D")
  190    .S CHDOD= $$FMTE^XLF DT($P(^CHM ZHOLD(CHCM S,BNAME,BS SN),U,10), "2D")
  191    .S CMSNM= $P(^CHMZHO LD(CHCMS,B NAME,BSSN) ,U,11)
  192    .D WREC
  193   PEND D WRI TECT C FIL E
  194    Q
  195    ;
  196   WREC U FIL E W !,BNAM E_U_BSSN_U _CHMABDT_U _CHMAEDT_U _CHMADT_U_ CHMADTE_U_ CHMBBDT_U_ CHMBEDT_U_ CHMBDT_U_C HMBDTE_U_C HMDOD_U_CH DOD_U_CMSN M
  197    Q
  198   WRITECT S  BNAME="CMS TOT: "_^CH MZHOLD(CHC MS,"CT","C MSTOT")
  199    S BSSN="H ACTOT: "_^ CHMZHOLD(C HCMS,"CT", "TOT")
  200    ;S CHMABD T="MEDA: "
  201    ;S CHMAED T=^CHMZHOL D(CHCMS,"C T","MEDA")
  202    ;S CHMADT ="MEDB: "
  203    ;S CHMADT E=^CHMZHOL D(CHCMS,"C T","MEDB")
  204    S CHMBBDT ="DOD: "
  205    S CHMBEDT =^CHMZHOLD (CHCMS,"CT ","DOD")
  206    ;S CHMBDT ="NAME :"
  207    ;S CHMBDT E=^CHMZHOL D(CHCMS,"C T","NAME")
  208    ;S CHMDOD ="NO ISSUE : "
  209    ;S CHDOD= ^CHMZHOLD( CHCMS,"CT" ,"NOISSUE" )
  210    S CMSNM=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")_ " (CHILDRE N, NO FMP,  NO SB)" 
  211    D WREC
  212    Q
  213    ;
  214   HEAD ;
  215    S BNAME=" HAC NAME"
  216    S BSSN="S SN"
  217    S CHMABDT ="CMS-A-BE G"
  218    S CHMAEDT ="CMS-A-EN D"
  219    S CHMADT= "HAC-A-BEG "
  220    S CHMADTE ="HAC-A-EN D"
  221    S CHMBBDT ="CMS-B-BE G"
  222    S CHMBEDT ="CMS-B-EN D"
  223    S CHMBDT= "HAC-B-BEG "
  224    S CHMBDTE ="HAC-B-EN D"
  225    S CHMDOD= "CMS-DOD"
  226    S CHDOD=" HAC-DOD"
  227    S CMSNM=" CMS NAME"
  228    D WREC
  229    Q
  230   SHEAD ;
  231    S TITLE=" Health Adm inistrtati on Center" ,PG=PG+1
  232    S TAB=(13 2-$L(TITLE ))/2
  233    W @IOF,DU Z,?TAB,TIT LE,?124,"P age ",PG
  234    S TITLE=" SUMMARY OF  CROSS MAT CH WITH CM S DATA"
  235    S TAB=(13 2-$L(TITLE ))/2
  236    D NOW^%DT C S PRNTDT =$$FMTE^XL FDT(%,"5D" ),PRNTTM=$ E($P(%,"." ,2),1,4)
  237    W !,PRNTD T,?TAB,TIT LE
  238    S TITLE=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")
  239    S TAB=(13 2-$L(TITLE ))/2
  240    W !,PRNTT M,?TAB,TIT LE
  241    S TITLE=" (SPOUSES U NDER 65, N O FMP, NO  SB)"
  242    S TAB=(13 2-$L(TITLE ))/2
  243    W !,?TAB, TITLE
  244    W !
  245    Q