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

34.1 Files compared

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

34.2 Comparison summary

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

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

34.4 Active regular expressions

No regular expressions were active.

34.5 Comparison detail

  1   CHCMSRT4 ; CVA/SKD;CM S DATA MAT CH ;12-2-0 4  1:06 PM
  2    ;;TRC 117 2 - MEDICA RE/HAC DAT A COMPARIS ON REPORT4
  3    ;;DEF0165 54 SBB 10/ 24/13 - Mo dified EOF  handling  as per VHA  standard.
  4    ;;DEF0165 54 SBB 11/ 26/13 - Mo dified Wri ting to a  file as pe r VHA stan dard.
  5    ;;DEF0165 54 SBB 12/ 27/13 - Up dating wit h PST API  function c alls
  6    ;;DEF0165 54 SBB 07/ 30/15 - Ad ding chang es for DEC NET
  7    ;;
  8    ;;OUTPUT  CRITERIA:
  9    ;;EXCLUDE  FMP,SB BE NES
  10    ;;LIST IF  BENES ARE  OVER 65 A ND CMS PAR T A&B WITH  DIFFERENT  START DAT E S
  11    ;;AND ONL Y IF DISCR EPANCIES B ETWEEN CMS  AND HAC D ATA
  12    ;;SORT BY  LAST NAME
  13    ;;
  14    ;
  15   GETDATA ;
  16    S CHCMS=" ZJEHCMS4"
  17    K ^CHMZHO LD(CHCMS)
  18    S $ZE="", $ZT="PRINT ^CHCMSRT4"
  19    S ZZZ=0
  20    ;DEF01655 4, SBB, 11 /26/13 - M odified Wr iting to a  file as p er VHA sta ndard. Usi ng POP.
  21    ;SBB 07/3 0/15 DEF01 6554
  22    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  23    N POP
  24    S POP=0
  25    D LOOP  
  26    ;D KILLVA R
  27   END ;
  28    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file, when  go from P RINT after  File open ed.
  29    ;DEF01655 4-12/27/13 -SBB use C LOSE^%ZISH  to close  file, 
  30    ;                 on ly when G  from PRINT  and after  File is o pened.
  31    I POP D 
  32    . D CLOSE F^CHTFLIB9 (FILE1,"FI LE1")
  33    . D FTPFI LE^CHTFLIB 9(FILE1," DNS     . DNS             ","/FS3BIG /VISTA/CMS ","PUT")
  34    . Q
  35    ;SBB 07/3 0/15 DEF01 6554
  36    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  37    Q
  38   LOOP S $ZE ="",$ZT="P RINT^CHCMS RT4"
  39    ;<--- JEH  IN LOOP
  40    K ^CHMZHO LD(CHCMS)
  41    S CNT=0,C NT1=0,CNT2 =0,CNT3=0, CNT4=0,CNT 5=0,CNT6=0 ,CNT7=0,RC NT=0
  42    S GLELG=" ^AHCHVA("
  43    S READFIL 1="HAC_HFS $:[SCR.000 000]CMS.DA T"
  44    ;DEF01655 4-10/24/13 -SBB call  OPEN^%ZISH  to open t he file
  45    ;O READFI L1 I $ZE[" ENDOFFILE"  G END
  46    S POP='$$ OPENFIRD^C HTFLIB9(.R EADFIL1,"R EADFIL1")  I 'POP G E ND          ; Couldn' t open the  file
  47   LOOP1 ;
  48    ;DEF01655 4-10/24/13 -SBB use S TATUS^%ZIS H to check  for EOF
  49    ;F  U REA DFIL1 R TM PX G:$ZE[" ENDOFFILE"  PRINT  D
  50    F  U READ FIL1 R TMP X G:$$STAT US^%ZISH P RINT  D
  51    .S (BSSN, BFNAME,BLN AME,BMINIT ,CMSNM,CHM DOB,CHMABD T,CHMAEDT, CHMBBDT,CH MBEDT,CHMD OD)=""
  52    .S BSSN=$ E(TMPX,100 ,108),RCNT =RCNT+1,^C HMZHOLD(CH CMS,"CT"," CMSTOT")=R CNT
  53    .S BFNAME =$$REMSP($ E(TMPX,43, 57))
  54    .S BLNAME =$$REMSP($ E(TMPX,59, 82))
  55    .S BMINIT =$$REMSP($ E(TMPX,58) )
  56    .S CMSNM= BLNAME_"," _BFNAME_$S ($L(BMINIT ):" "_BMIN IT,1:"")
  57    .Q:BSSN=" "
  58    .S CHMDOB =$$REMSP($ E(TMPX,83, 90))
  59    .I CHMDOB ="         " S CHMDOB =""
  60    .I CHMDOB '="" S X=$ E(CHMDOB,5 ,8)_$E(CHM DOB,1,4),% DT="P" D ^ %DT S CHMD OB=Y K ^%D T
  61    .;I CHMDO B="" S CHM DOB=0
  62    .S CHMABD T=$E(TMPX, 109,116)
  63    .I CHMABD T="         " S CHMAB DT=""
  64    .I CHMABD T'="" S X= $E(CHMABDT ,5,8)_$E(C HMABDT,1,4 ),%DT="P"  D ^%DT S C HMABDT=Y K  %DT
  65    .S CHMAED T=$E(TMPX, 117,124)
  66    .I CHMAED T="         " S CHMAE DT=""
  67    .I CHMAED T'="" S X= $E(CHMAEDT ,5,8)_$E(C HMAEDT,1,4 ),%DT="P"  D ^%DT S C HMAEDT=Y K  %DT
  68    .S CHMBBD T=$E(TMPX, 126,133)
  69    .I CHMBBD T="         " S CHMBB DT=""
  70    .I CHMBBD T'="" S X= $E(CHMBBDT ,5,8)_$E(C HMBBDT,1,4 ),%DT="P"  D ^%DT S C HMBBDT=Y K  %DT
  71    .S CHMBED T=$E(TMPX, 134,141)
  72    .I CHMBED T="         " S CHMBE DT=""
  73    .I CHMBED T'="" S X= $E(CHMBEDT ,5,8)_$E(C HMBEDT,1,4 ),%DT="P"  D ^%DT S C HMBEDT=Y K  %DT
  74    .S CHMDOD =$E(TMPX,9 1,98)
  75    .S CHMDOD =$$STRIP^X LFSTR(CHMD OD," ")
  76    .I CHMDOD ="         " S CHMDOD =""
  77    .I CHMDOD '="" S X=$ E(CHMDOD,5 ,8)_$E(CHM DOD,1,4),% DT="P" D ^ %DT S CHMD OD=Y K %DT
  78    .;Q:CHMAB DT=""!(CHM BBDT="")
  79    .;I CHMAB DT'=CHMBBD T S CNT7=C NT7+1,^CHM ZHOLD(CHCM S,"CT","CM SSEL")=CNT 7 D L1
  80    .S CNT7=C NT7+1,^CHM ZHOLD(CHCM S,"CT","CM SSEL")=CNT 7
  81    .D L1
  82    Q
  83    ;       
  84   L1 ;COMPAR ES DATA WI TH M DATAB ASE
  85    K CHMAFG, CHMBFG,CHM DFG,CHMNFG
  86    I '$D(@(G LELG_"""G" ",BSSN)"))  Q
  87    S CHMADT= "",CHMBDT= "",CHMADTE ="",CHMBDT E=""
  88    S (DFN,BF N,AGE,CHBE NDOB,BNAME )=""
  89    S DFN=$O( @(GLELG_"" "G"",BSSN, 0)")) Q:'D FN
  90    S BFN=$O( @(GLELG_"" "G"",BSSN, DFN,0)"))  Q:'BFN
  91    Q:'$D(@(G LELG_"DFN, 100,BFN,0) ")) 
  92    I '$G(DT)  S X="NOW" ,%DT="D" D  ^%DT S DT =Y
  93    S CHBENDO B=$P($G(@( GLELG_"DFN ,100,BFN,0 )")),"^",3 )
  94    ;Q:CHBEND OB>2360605   ;<--- JE H DATE BEN E IS 65 ON  6/5/01
  95    ;S AGE=$$ FMDIFF^XLF DT(DT,CHBE NDOB)/365
  96    S AGE=$$A GE^CHTFLIB (CHBENDOB, 3010605)
  97    ;<--- JEH  AGE
  98    Q:AGE<65   ;<--- JEH  DATE BENE  IS 65 ON  6/5/01
  99    ;S AGE=$P (AGE,".",1 ) Q:AGE'<6 5
  100    S ZZZ=ZZZ +1 U 0 W ! ,"ZZZ = ", ZZZ,?25,"A GE = ",AGE ,?50,"CHBE NDOB = ",C HBENDOB
  101    Q:$D(@(GL ELG_"""SB" ",DFN,BFN) "))
  102    Q:$D(@(GL ELG_"""FMP "",DFN,BFN )"))
  103    S CHSPOUS E="",CHSPO USE=$P($G( @(GLELG_"D FN,100,BFN ,0)")),"^" ,4)
  104    Q:CHSPOUS E'="S"&(CH SPOUSE'="C ")
  105    S CNT=CNT +1,^CHMZHO LD(CHCMS," CT","TOT") =CNT
  106    S BNAME=$ P($G(@(GLE LG_"DFN,10 0,BFN,0)") ),"^",1)
  107    D MEDA,ME DB,DOD,NAM E,DOB
  108    I $D(CHMA FG) S CNT1 =CNT1+1,^C HMZHOLD(CH CMS,"CT"," MEDA")=CNT 1
  109    I $D(CHMB FG) S CNT2 =CNT2+1,^C HMZHOLD(CH CMS,"CT"," MEDB")=CNT 2
  110    I '$D(CHM AFG)&('$D( CHMBFG))&( '$D(CHMDFG ))&('$D(CH MNFG)) S C NT4=CNT4+1 ,^CHMZHOLD (CHCMS,"CT ","NOISSUE ")=CNT4
  111    Q
  112    ;
  113   MEDA K CHM AFG
  114    S (CHMADT ,CHMADTE,C HMADTP)=""
  115    S CHMADTP =999999999 9
  116    S CHMADTP =$O(@(GLEL G_"DFN,100 ,BFN,111,C HMADTP)"), -1)
  117    I CHMADTP  D
  118    .S CHMADT =$P($G(@(G LELG_"DFN, 100,BFN,11 1,CHMADTP, 0)")),"^", 1)
  119    .S CHMADT E=$P($G(@( GLELG_"DFN ,100,BFN,1 11,CHMADTP ,0)")),"^" ,4)
  120    .S CHMADT E=$P(CHMAD TE,".",1)
  121    I CHMABDT '=CHMADT S  CHMAFG=""  
  122    I $D(CHMA FG) D WRIT EMA
  123    Q
  124    ;
  125   WRITEMA ;
  126    S ^CHMZHO LD(CHCMS,B NAME,BSSN, CHMDOB)=CH MABDT_"^"_ CHMAEDT_"^ "_CHMADT_" ^"_CHMADTE
  127    Q
  128    ;
  129   MEDB K CHM BFG
  130    S CHMBDTP =999999999 9
  131    S CHMBDTP =$O(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP)"), -1)
  132    I CHMBDTP  D
  133    .S CHMBDT =$P(@(GLEL G_"DFN,100 ,BFN,112,C HMBDTP,0)" ),"^",1)
  134    .S CHMBDT E=$P(@(GLE LG_"DFN,10 0,BFN,112, CHMBDTP,0) "),"^",4)
  135    .S CHMBDT E=$P(CHMBD TE,".",1)
  136    I CHMBBDT '=CHMBDT S  CHMBFG=""
  137    I $D(CHMB FG) D WRIT EMB
  138    Q
  139    ;
  140   WRITEMB ;
  141    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,5)=CHMB BDT
  142    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,6)=CHMB EDT
  143    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,7)=CHMB DT
  144    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,8)=CHMB DTE
  145    Q
  146    ;
  147   DOD K CHMD FG S CHDOD =""
  148    S CHDOD=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",6)
  149    I CHMDOD' =CHDOD D W RITEDOD S  CHMDFG=""  S CNT3=CNT 3+1,^CHMZH OLD(CHCMS, "CT","DOD" )=CNT3
  150    Q
  151    ;
  152   WRITEDOD ;
  153    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,9)=CHMD OD
  154    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,10)=CHD OD
  155    Q
  156    ;
  157   DOB K CHMD BFG S CHDO B=""
  158    S CHDOB=$ P(@(GLELG_ "DFN,100,B FN,0)"),"^ ",3)
  159    I CHMDOB' =CHDOB S C HMDBFG=""  S CNT6=CNT 6+1,^CHMZH OLD(CHCMS, "CT","DOB" )=CNT6 D W RITEDOB
  160    Q
  161   WRITEDOB ;
  162    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,12)=CHM DOB
  163    S $P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,13)=CHD OB
  164    Q
  165    ;       
  166   NAME ;
  167    S HACNM=B NAME
  168    I $E(BNAM E,$L(BNAME ))=" "!($E (BNAME,$L( BNAME))=". ") S HACNM =$E(BNAME, 1,$L(BNAME )-1)
  169    K CHMNFG
  170    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
  171    Q
  172    ;
  173   KILLVAR ;
  174    K DFN,BFN ,BNAME,BSS N
  175    K CHMAFG, CHMBFG,CHM DFG,CHMNFG ,BFNAME,BL NAME,BMINI T,HACNM,CM SNM
  176    K CNT,CNT 1,CNT2,CNT 3,CNT4,CNT 5
  177    K CHMABDT ,CHMAEDT,C HMADT,CHMA DTE,CHMBBD T,CHMBEDT, CHMBDT,CHM BDTE,CHMDO D,CHDOD,CH MDOB,CHDOB
  178    Q
  179    ;
  180   CLEARVAR ;
  181    D CLEARVA R^CHCMSRT2  Q
  182    ;
  183   REMSP(NM)  ;
  184    S NM2=""
  185    F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1)
  186    Q NM2
  187    ;
  188   PRINT ;
  189    ;DEF01655 4-10/24/13 -SBB use C LOSE^%ZISH  to close  file
  190    ;I $D(REA DFIL1) C R EADFIL1
  191    D CLOSEF^ CHTFLIB9(R EADFIL1,"R EADFIL1")
  192    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file. this  close is  not needed .
  193    ;S FILE1= "HAC_HFS$: [SCR.TEMP_ FILES.INST ALLS]CMS_R EPORT1.TXT " O FILE1  C FILE1:"D "
  194    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  195    ;S FILE1= "HACFS3"" DNS       Welcome1!" "::D:[FS3B IG.VISTA.C MS]CMS_REP ORT4.TXT"
  196    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  197    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  198    S FILENM= "CMS_REPOR T4.TXT"
  199    S FILE1=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  200    I UCI'="H AC" S FILE 1="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  201    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  202    ;O FILE1: "NWS"
  203    S POP=0 
  204    S POP='$$ OPENFIWR^C HTFLIB9(.F ILE1,"FILE 1") I 'POP  X "D $SYS TEM.Proces s.SetZEOF( 0)" Q
  205    I '$D(CHC MS) S CHCM S="ZJEHCMS 4"
  206    I '$D(^CH MZHOLD(CHC MS)) D  G  END
  207    .D CLEARV AR
  208    .S BNAME= "NO MEDICA RE ISSUES  (CMS PART  A DOES NOT  MATCH CMS  PART B -  SPOUSES AN D CHILDREN  OVER 65 ( as of 6/5/ 01), NO FM P, NO SB)"  
  209    .D WREC
  210    D HEAD
  211    S BNAME=" "
  212    F  S BNAM E=$O(^CHMZ HOLD(CHCMS ,BNAME)) G :'$L(BNAME ) PEND D
  213    .S BSSN=0 ,(CHMABDT, CHMAEDT,CH MADT,CHMAD TE,CHMBBDT ,CHMBEDT,C HMBDT,CHMB DTE,CHMDOD ,CHDOD,CMS NM,CHMDOB, CHDOB,CHDO B2)=""
  214    .S BSSN=$ O(^CHMZHOL D(CHCMS,BN AME,BSSN))  Q:'BSSN
  215    .S CHMDOB =$O(^CHMZH OLD(CHCMS, BNAME,BSSN ,0)) 
  216    .S CHMABD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,1),"2 D")
  217    .S CHMAED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,2),"2 D")
  218    .S CHMADT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,3),"2D ")
  219    .S CHMADT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,4),"2 D")
  220    .S CHMBBD T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,5),"2 D")
  221    .S CHMBED T=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,6),"2 D")
  222    .S CHMBDT =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,7),"2D ")
  223    .S CHMBDT E=$$FMTE^X LFDT($P(^C HMZHOLD(CH CMS,BNAME, BSSN,CHMDO B),U,8),"2 D")
  224    .S CHMDOD =$$FMTE^XL FDT($P(^CH MZHOLD(CHC MS,BNAME,B SSN,CHMDOB ),U,9),"2D ")
  225    .S CHDOD= $$FMTE^XLF DT($P(^CHM ZHOLD(CHCM S,BNAME,BS SN,CHMDOB) ,U,10),"2D ")
  226    .S CMSNM= $P(^CHMZHO LD(CHCMS,B NAME,BSSN, CHMDOB),U, 11)
  227    .S CHDOB2 =$P(^CHMZH OLD(CHCMS, BNAME,BSSN ,CHMDOB),U ,13)
  228    .S CHDOB= "" I CHMDO B'=CHDOB2  S CHDOB=$$ FMTE^XLFDT (CHDOB2,"2 D")
  229    .S CHMDOB =$$FMTE^XL FDT(CHMDOB ,"2D")
  230    .S PWREC= 0
  231    .I CHMABD T'=CHMADT! (CHMBBDT'= CHMBDT) D
  232    ..S PWREC =1
  233    .I CHMAED T'=CHMADTE !(CHMBEDT' =CHMBDTE)  D
  234    ..S PWREC =1
  235    .D:PWREC= 1 WREC
  236   PEND ;
  237    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  238    ;D WRITEC T C FILE1
  239    D WRITECT
  240    D CLOSEF^ CHTFLIB9(F ILE1,"FILE 1")
  241    ;SBB 07/3 0/15 DEF01 6554
  242    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  243    D FTPFILE ^CHTFLIB9( FILE1," DNS     . DNS             ","/FS3BIG /VISTA/CMS ","PUT")
  244    Q
  245    ;
  246   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)
  247    Q
  248   WRITECT ;
  249    D CLEARVA R
  250    S BNAME=" CMSTOT: "_ $G(^CHMZHO LD(CHCMS," CT","CMSTO T"))
  251    S BSSN="H ACTOT: "_$ G(^CHMZHOL D(CHCMS,"C T","TOT"))
  252    S CHMABDT ="MEDA: "
  253    S CHMAEDT =$G(^CHMZH OLD(CHCMS, "CT","MEDA "))
  254    S CHMADT= "MEDB: "
  255    S CHMADTE =$G(^CHMZH OLD(CHCMS, "CT","MEDB "))
  256    S CHMBBDT ="DOD: "
  257    S CHMBEDT =$G(^CHMZH OLD(CHCMS, "CT","DOD" ))
  258    S CHMBDT= "NAME: "
  259    S CHMBDTE =$G(^CHMZH OLD(CHCMS, "CT","NAME "))
  260    S CHMDOD= "DOB: "
  261    S CHDOD=$ G(^CHMZHOL D(CHCMS,"C T","DOB"))
  262    S CMSNM=" NO ISSUE:  "
  263    S CHMDOB= $G(^CHMZHO LD(CHCMS," CT","NOISS UE"))
  264    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 OVER 65  (as of 6/ 5/01), NO  FMP, NO SB )" 
  265    D WREC
  266    Q
  267    ;
  268   HEAD ;
  269    D CLEARVA R
  270    S BNAME=" CROSS MATC HED WITH C MS ON "_$$ FMTE^XLFDT (DT,"5D")  D WREC
  271    S BNAME=" MEDICARE P ART A&B WI TH DIFFERE NT START D ATES - SPO USES AND C HILDREN OV ER 65 (as  of 6/5/01) , NO FMP,  NO SB"
  272    D WREC
  273    S BNAME=" HAC NAME"
  274    S BSSN="S SN"
  275    S CHMABDT ="CMS-A-BE G"
  276    S CHMAEDT ="CMS-A-EN D"
  277    S CHMADT= "HAC-A-BEG "
  278    S CHMADTE ="HAC-A-EN D"
  279    S CHMBBDT ="CMS-B-BE G"
  280    S CHMBEDT ="CMS-B-EN D"
  281    S CHMBDT= "HAC-B-BEG "
  282    S CHMBDTE ="HAC-B-EN D"
  283    S CHMDOD= "CMS-DOD"
  284    S CHDOD=" HAC-DOD"
  285    S CMSNM=" CMS NAME"
  286    S CHMDOB= "CMS DOB"
  287    S CHDOB=" HAC DOB"
  288    D WREC
  289    Q