39. EPMO Open Source Coordination Office Redaction File Detail Report

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

39.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT9.m Mon Nov 5 16:39:55 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSRT9.m Wed Nov 7 13:35:32 2018 UTC

39.2 Comparison summary

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

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

39.4 Active regular expressions

No regular expressions were active.

39.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  SPOUSE IS  UNDER 65
  6    ;;SORT BY  LAST NAME
  7    ;;
  8   START ;
  9    ;D ^CHMIG
  10    ;X OFILE
  11    ;D GETDAT A
  12    ;X CFILE
  13    ;Q
  14    ;
  15   GETDATA ;
  16    K ^CHMZHO LD("ZSKDCM S1")
  17    S $ZE="", $ZT="PRINT ^CHCMSRT6"
  18    D LOOP
  19    ;D KILLVA R
  20   END C READ FILE
  21    C WFILE 
  22    Q
  23   LOOP S $ZE ="",$ZT="P RINT^CHCMS RT6"
  24    S CNT=0,C NT1=0,CNT2 =0,CNT3=0, CNT4=0,CNT 5=0,RCNT=0
  25    S GLELG=" ^AHCHVA("
  26    S READFIL E="HAC_HFS $:[SCR.000 000]CMS1.D AT"
  27    O READFIL E I $ZE["< SYNTAX>" G  END
  28   LOOP1 F  U  READFILE  R TMPX G:$ ZE["<SYNTA X>" PRINT  D
  29    .S (BSSN, BFNAME,BLN AME,BMINIT )=""
  30    .S BSSN=$ E(TMPX,100 ,108),RCNT =RCNT+1,^C HMZHOLD("Z SKDCMS1"," CT","CMSTO T")=RCNT
  31    .S BFNAME =$$REMSP($ E(TMPX,43, 57))
  32    .S BLNAME =$$REMSP($ E(TMPX,59, 82))
  33    .S BMINIT =$$REMSP($ E(TMPX,58) )
  34    .S CMSNM= BLNAME_"," _BFNAME_$S ($L(BMINIT ):" "_BMIN IT,1:"")
  35    .Q:BSSN=" "
  36    .S CHMABD T=$E(TMPX, 109,116)
  37    .I CHMABD T="         " S CHMAB DT=""
  38    .I CHMABD T'="" S X= $E(CHMABDT ,5,8)_$E(C HMABDT,1,4 ),%DT="P"  D ^%DT S C HMABDT=Y K  %DT
  39    .S CHMAED T=$E(TMPX, 117,124)
  40    .I CHMAED T="         " S CHMAE DT=""
  41    .I CHMAED T'="" S X= $E(CHMAEDT ,5,8)_$E(C HMAEDT,1,4 ),%DT="P"  D ^%DT S C HMAEDT=Y K  %DT
  42    .S CHMBBD T=$E(TMPX, 126,133)
  43    .I CHMBBD T="         " S CHMBB DT=""
  44    .I CHMBBD T'="" S X= $E(CHMBBDT ,5,8)_$E(C HMBBDT,1,4 ),%DT="P"  D ^%DT S C HMBBDT=Y K  %DT
  45    .S CHMBED T=$E(TMPX, 134,141)
  46    .I CHMBED T="         " S CHMBE DT=""
  47    .I CHMBED T'="" S X= $E(CHMBEDT ,5,8)_$E(C HMBEDT,1,4 ),%DT="P"  D ^%DT S C HMBEDT=Y K  %DT
  48    .S CHMDOD =$E(TMPX,9 1,98)
  49    .S CHMDOD =$$STRIP^X LFSTR(CHMD OD," ")
  50    .I CHMDOD ="         " S CHMDOD =""
  51    .I CHMDOD '="" S X=$ E(CHMDOD,5 ,8)_$E(CHM DOD,1,4),% DT="P" D ^ %DT S CHMD OD=Y K %DT
  52    .D L1
  53    Q
  54    ;       
  55   L1 ;COMPAR ES DATA WI TH M DATAB ASE
  56    K CHMAFG, CHMBFG,CHM DFG,CHMNFG
  57    I '$D(@(G LELG_"""G" ",BSSN)"))  Q
  58    S CHMADT= "",CHMBDT= "",CHMADTE ="",CHMBDT E=""
  59    S DFN=$O( @(GLELG_"" "G"",BSSN, 0)")) Q:'D FN
  60    S BFN=$O( @(GLELG_"" "G"",BSSN, DFN,0)"))  Q:'BFN
  61    Q:'$D(@(G LELG_"DFN, 100,BFN,0) ")) 
  62    I '$G(DT)  S X="NOW" ,%DT="D" D  ^%DT S DT =Y
  63    S CHBENDO B=$P($G(@( GLELG_"DFN ,100,BFN,0 )")),"^",3 )
  64    S AGE=$$F MDIFF^XLFD T(DT,CHBEN DOB)/365
  65    S AGE=$P( AGE,".",1)  Q:AGE'<65
  66    Q:$D(@(GL ELG_"""SB" ",DFN,BFN) "))
  67    Q:$D(@(GL ELG_"""FMP "",DFN,BFN )"))
  68    S CHSPOUS E="",CHSPO USE=$P($G( @(GLELG_"D FN,100,BFN ,0)")),"^" ,4)
  69    Q:CHSPOUS E'="S"
  70    S CNT=CNT +1,^CHMZHO LD("ZSKDCM S1","CT"," TOT")=CNT
  71    S BSSN=$P (^AHCHVA(D FN,100,BFN ,0),"^",9)
  72    D MEDA,ME DB,DOD,NAM E
  73    I $D(CHMA FG) S CNT1 =CNT1+1,^C HMZHOLD("Z SKDCMS1"," CT","MEDA" )=CNT1
  74    I $D(CHMB FG) S CNT2 =CNT2+1,^C HMZHOLD("Z SKDCMS1"," CT","MEDB" )=CNT2
  75    I '$D(CHM AFG)&('$D( CHMBFG))&( '$D(CHMDFG ))&('$D(CH MNFG)) S C NT4=CNT4+1 ,^CHMZHOLD ("ZSKDCMS1 ","CT","NO ISSUE")=CN T4
  76    Q
  77    ;
  78   MEDA K CHM AFG
  79    I CHMABDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 111)")) D  WRITEMA S  CHMAFG=""  Q
  80    S CHMADTP =999999999 9
  81    S CHMADTP =$O(@(GLEL G_"DFN,100 ,BFN,111,C HMADTP)"), -1)
  82    I CHMABDT '=""&'$D(C HMADTP) D  WRITEMA S  CHMAFG=""  Q
  83    I CHMADTP  D
  84    .I CHMABD T'=""&'$D( @(GLELG_"D FN,100,BFN ,111,CHMAD TP,0)")) D  WRITEMA S  CHMAFG=""  Q
  85    .S CHMADT =$P($G(@(G LELG_"DFN, 100,BFN,11 1,CHMADTP, 0)")),"^", 1)
  86    .S CHMADT E=$P($G(@( GLELG_"DFN ,100,BFN,1 11,CHMADTP ,0)")),"^" ,4)
  87    .S CHMADT E=$P(CHMAD TE,".",1)
  88    I CHMABDT '=CHMADT D  WRITEMA S  CHMAFG=""
  89    Q
  90    ;
  91   WRITEMA ;
  92    S ^CHMZHO LD("ZSKDCM S1",BNAME, BSSN)=CHMA BDT_"^"_CH MAEDT_"^"_ CHMADT_"^" _CHMADTE
  93    Q
  94    ;
  95   MEDB K CHM BFG
  96    I CHMBBDT '=""&'$D(@ (GLELG_"DF N,100,BFN, 112)")) D  WRITEMB S  CHMBFG=""
  97    S CHMBDTP =999999999 9
  98    S CHMBDTP =$O(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP)"), -1)
  99    I CHMBBDT '=""&'$D(C HMBDTP) D  WRITEMB S  CHMBFG=""  Q
  100    I CHMBDTP  D
  101    .I CHMBBD T'=""&'$D( @(GLELG_"D FN,100,BFN ,112,CHMBD TP,0)")) D  WRITEMB S  CHMBFG=""  Q
  102    .S CHMBDT =$P(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP,0)" ),"^",1)
  103    .S CHMBDT E=$P(@(GLE LG_"DFN,10 0,BFN,112, CHMBDTP,0) "),"^",4)
  104    .S CHMBDT E=$P(CHMBD TE,".",1)
  105    I CHMBBDT '=CHMBDT D  WRITEMB S  CHMBFG=""
  106    Q
  107    ;
  108   WRITEMB ;
  109    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,5)=CHMBBD T
  110    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,6)=CHMBED T
  111    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,7)=CHMBDT
  112    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,8)=CHMBDT E
  113    Q
  114    ;
  115   DOD K CHMD FG S CHDOD =""
  116    S CHDOD=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",6)
  117    I CHMDOD' =CHDOD D W RITEDOD S  CHMDFG=""  S CNT3=CNT 3+1,^CHMZH OLD("ZSKDC MS1","CT", "DOD")=CNT 3
  118    Q
  119    ;
  120   WRITEDOD ;
  121    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,9)=CHMDOD
  122    S $P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,10)=CHDOD
  123    Q
  124    ;
  125   NAME ;
  126    S (BNAME, HACNM)=""
  127    S (BNAME, HACNM)=$P( ^AHCHVA(DF N,100,BFN, 0),"^",1)
  128    I $E(BNAM E,$L(BNAME ))=" "!($E (BNAME,$L( BNAME))=". ") S HACNM =$E(BNAME, 1,$L(BNAME )-1)
  129    K CHMNFG
  130    I HACNM'= CMSNM D
  131    .S CHMNFG =""
  132    .S $P(^CH MZHOLD("ZS KDCMS1",BN AME,BSSN), U,11)=CMSN M
  133    .S CNT5=C NT5+1,^CHM ZHOLD("ZSK DCMS1","CT ","NAME")= CNT5
  134    Q
  135    ;
  136   KILLVAR ;
  137    K DFN,BFN ,BNAME,BSS N
  138    K CHMAFG, CHMBFG,CHM DFG,CHMNFG ,BFNAME,BL NAME,BMINI T,HACNM,CM SNM
  139    K CNT,CNT 1,CNT2,CNT 3,CNT4,CNT 5
  140    K CHMABDT ,CHMAEDT,C HMADT,CHMA DTE,CHMBBD T,CHMBEDT, CHMBDT,CHM BDTE,CHMDO D,CHDOD
  141    Q
  142    ;
  143   REMSP(NM)  ;
  144    S NM2=""
  145    F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1)
  146    Q NM2
  147    ;;CMS DAT A MATCH*HA C_HFS$:[AR C.REHOST]C MSU65.TXT*
  148    ;CMS DATA  MATCH*HAC FS3" DNS      HACdec741! "::D:[FS3B IG.VISTA]C MSU65.TXT*
  149   FILE1 ;;CM S DATA MAT CH*HAC_HFS $:[ARC.REH OST]CMSU65 .TXT*
  150    ;;BNAME*B NAME*
  151    ;;BSSN*BS SN*
  152    ;;CHMABDT *CHMABDT*
  153    ;;CHMAEDT *CHMAEDT*
  154    ;;CHMADT* CHMADT*
  155    ;;CHMADTE *CHMADTE*
  156    ;;CHMBBDT *CHMBBDT*
  157    ;;CHMBEDT *CHMBEDT*
  158    ;;CHMBDT* CHMBDT*
  159    ;;CHMBDTE *CHMBDTE*
  160    ;;CHMDOD* CHMDOD*
  161    ;;CHDOD*C HDOD*
  162    ;;CMSNM*C MSNM*
  163    ;;***
  164   PRINT ;
  165    I $D(READ FILE) C RE ADFILE
  166    ;S FILE=" HACFS3""
D NS       Welcome1!" "::D:[FS3B IG.VISTA.S KD]CMSU65. TXT"
  167    S FILE="H AC_HFS$:[S CR.TEMP_FI LES.INSTAL LS]CMSU65. TXT" 
  168    O FILE C  FILE:"D"
  169    O FILE:"N WS"
  170    I '$D(^CH MZHOLD("ZS KDCMS1"))  D  G END
  171    .S BNAME= "NO MEDICA RE ISSUES  (SPOUSES U NDER 65, N O FMP, NO  SB)" 
  172    .S (BSSN, CHMABDT,CH MAEDT,CHMA DT,CHMADTE ,CHMBBDT,C HMBEDT,CHM BDT,CHMBDT E,CHMDOD,C HDOD,CMSNM )=""
  173    .D WREC
  174    D HEAD
  175    S BNAME=" "
  176    F  S BNAM E=$O(^CHMZ HOLD("ZSKD CMS1",BNAM E)) G:'$L( BNAME) PEN D D
  177    .S BSSN=0 ,(CHMABDT, CHMAEDT,CH MADT,CHMAD TE,CHMBBDT ,CHMBEDT,C HMBDT,CHMB DTE,CHMDOD ,CHDOD,CMS NM)=""
  178    .S BSSN=$ O(^CHMZHOL D("ZSKDCMS 1",BNAME,B SSN)) Q:'B SSN
  179    .S CHMABD T=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,1),"2D" )
  180    .S CHMAED T=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,2),"2D" )
  181    .S CHMADT =$$FMTE^XL FDT($P(^CH MZHOLD("ZS KDCMS1",BN AME,BSSN), U,3),"2D")
  182    .S CHMADT E=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,4),"2D" )
  183    .S CHMBBD T=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,5),"2D" )
  184    .S CHMBED T=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,6),"2D" )
  185    .S CHMBDT =$$FMTE^XL FDT($P(^CH MZHOLD("ZS KDCMS1",BN AME,BSSN), U,7),"2D")
  186    .S CHMBDT E=$$FMTE^X LFDT($P(^C HMZHOLD("Z SKDCMS1",B NAME,BSSN) ,U,8),"2D" )
  187    .S CHMDOD =$$FMTE^XL FDT($P(^CH MZHOLD("ZS KDCMS1",BN AME,BSSN), U,9),"2D")
  188    .S CHDOD= $$FMTE^XLF DT($P(^CHM ZHOLD("ZSK DCMS1",BNA ME,BSSN),U ,10),"2D")
  189    .S CMSNM= $P(^CHMZHO LD("ZSKDCM S1",BNAME, BSSN),U,11 )
  190    .D WREC
  191   PEND D WRI TECT^CHCMS RT6 C WFIL E
  192    Q
  193    ;
  194   WREC ;
  195    ;S TEXT=" FILE1" X W REC
  196    U FILE W  !,BNAME_U_ BSSN_U_CHM ABDT_U_CHM AEDT_U_CHM ADT_U_CHMA DTE_U_CHMB BDT_U_CHMB EDT_U_CHMB DT_U_CHMBD TE_U_CHMDO D_U_CHDOD_ U_CMSNM
  197    Q
  198    ;
  199   WRITECT S  BNAME="CMS TOT: "_^CH MZHOLD("ZS KDCMS1","C T","CMSTOT ")
  200    S BSSN="H ACTOT: "_^ CHMZHOLD(" ZSKDCMS1", "CT","TOT" )
  201    S CHMABDT ="MEDA: "
  202    S CHMAEDT =^CHMZHOLD ("ZSKDCMS1 ","CT","ME DA")
  203    S CHMADT= "MEDB: "
  204    S CHMADTE =^CHMZHOLD ("ZSKDCMS1 ","CT","ME DB")
  205    S CHMBBDT ="DOD: "
  206    S CHMBEDT =^CHMZHOLD ("ZSKDCMS1 ","CT","DO D")
  207    S CHMBDT= "NAME :"
  208    S CHMBDTE =^CHMZHOLD ("ZSKDCMS1 ","CT","NA ME")
  209    S CHMDOD= "NO ISSUE:  "
  210    S CHDOD=^ CHMZHOLD(" ZSKDCMS1", "CT","NOIS SUE")
  211    S CMSNM=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")_ " (SPOUSES  UNDER 65,  NO FMP, N O SB)" 
  212    D WREC
  213    Q
  214    ;
  215   HEAD ;
  216    S BNAME=" HAC NAME"
  217    S BSSN="S SN"
  218    S CHMABDT ="CMS-A-BE G"
  219    S CHMAEDT ="CMS-A-EN D"
  220    S CHMADT= "HAC-A-BEG "
  221    S CHMADTE ="HAC-A-EN D"
  222    S CHMBBDT ="CMS-B-BE G"
  223    S CHMBEDT ="CMS-B-EN D"
  224    S CHMBDT= "HAC-B-BEG "
  225    S CHMBDTE ="HAC-B-EN D"
  226    S CHMDOD= "CMS-DOD"
  227    S CHDOD=" HAC-DOD"
  228    S CMSNM=" CMS NAME"
  229    D WREC
  230    Q
  231   SHEAD ;
  232    S TITLE=" Health Adm inistrtati on Center" ,PG=PG+1
  233    S TAB=(13 2-$L(TITLE ))/2
  234    W @IOF,DU Z,?TAB,TIT LE,?124,"P age ",PG
  235    S TITLE=" SUMMARY OF  CROSS MAT CH WITH CM S DATA"
  236    S TAB=(13 2-$L(TITLE ))/2
  237    D NOW^%DT C S PRNTDT =$$FMTE^XL FDT(%,"5D" ),PRNTTM=$ E($P(%,"." ,2),1,4)
  238    W !,PRNTD T,?TAB,TIT LE
  239    S TITLE=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")
  240    S TAB=(13 2-$L(TITLE ))/2
  241    W !,PRNTT M,?TAB,TIT LE
  242    S TITLE=" (SPOUSES U NDER 65, N O FMP, NO  SB)"
  243    S TAB=(13 2-$L(TITLE ))/2
  244    W !,?TAB, TITLE
  245    W !
  246    Q