26. EPMO Open Source Coordination Office Redaction File Detail Report

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

26.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSAP1.m Mon Nov 5 16:45:22 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCMSAP1.m Tue Nov 6 22:07:28 2018 UTC

26.2 Comparison summary

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

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

26.4 Active regular expressions

No regular expressions were active.

26.5 Comparison detail

  1   CHCMSAP1 ; JSG;CHECK  DOD AND QU EUE TO AUT O POPULATE  BENEFICIA RY FROM CM S REPLY FI LE;04/01/0 8;10:10 AM
  2            ; ;1.0;CHAMP VA SYSTEM; ;JULY 4, 1 990;
  3            ; DEV005832- 02;Auto po pulate DOD s in AP fr om the CMS  file.;DP/ 6/3/10                                    ;
  4            ; Requiremen ts defined  by: BAT00 5832-01                                                         ;
  5            ; Keys: DOD,  CMS, REPL Y FILE, AU TO POPULAT E, AP, CEN TER FOR ME DICARE/MED ICAID SERV ICES,    ;
  6            ; DISCREPANC Y REPORT,  DATES OF D EATH, APPL ICATION PR OCESSING                                  ;
  7            ; Entry poin ts:                                                                                   ;
  8            ;                                                                                                  ;
  9            ;     DODCHK  - transac tion proce ssing comp onent: che cks for CM S DODs dur ing CMS re ply file ;
  10            ;               process ing (calle d by: DOD^ CHCMSRFR)                                            ;
  11            ;    AUTODOD  - batch p rocessing  component:  initiated  at the en d of the H AC CMS Cro ss-Match ;
  12            ;               Discrep ancies Rep ort proces sing (call ed by: DOD POP^CHCMSR FR)                 ;
  13            ; JEH; DEV01 3737-11/14 /11;CMS En d of File  clean up 
  14            ; SBB; DEF01 6554-11/21 /13 - Modi fied Writi ng to a fi le as per  VHA standa rd.
  15            ; SBB; DEF01 6554-07/30 /15 - Addi ng changes  for DECNE T
  16            Q
  17            ;
  18   DODCHK(CDO D,BDOD,CDO B,BDOB,D,B ,A,N) ;(Cm sDOD,BeneD OD,CmsDOB, BeneDOB,Df n,Bfn,Acar d#,beneNam e);Called;
  19            ; for each C MS record  to determi ne whether  the CMS D OD needs t o be auto- populated  or the   ;
  20            ; beneficiar y should b e listed o n the CMS  DOD Discre pancies Re port:                          ;
  21            I  BDOD?8N S  BDOD=($E( BDOD,1)+1) _$E(BDOD,3 ,99)
  22            S :BDOB?8N B DOB=2_$E(B DOB,3,99)
  23            Q :CDOD=""   Q:CDOD=BDO
  24            S  CMSJ=$P(^ CHMZHOLD(" ZSKD_CMSRE PLY"),"^", 2)
  25            N  REC S REC =CDOD_U_BD OD_U_CDOB_ U_BDOB_U_A _U_N
  26            I  CDOB=BDOB ,BDOD=""   S ^TMP(CMS J,"CMS REP LY","DOD A UTOPOP",D, B)=REC Q   ;DP;6/3/10  $J>CMSJ
  27            S  ^TMP(CMSJ ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B)=RE C  ;DP;6/3 /10 Comply  with ^xin dex 
  28            ; IF CDOB=BD OB,BDOD=""  { S ^TMP( $J,"CMS RE PLY","DOD  AUTOPOP",D ,B)=REC }
  29            ; ELSE S ^TM P($J,"CMS  REPLY","DO D DISCREPA NCY",N,D,B )=REC 
  30            Q
  31            ;
  32   DODAUTO  ; Scan the " DOD AUTOPO P" tree an d update a ppropriate  Beneficia ry file no des:                ;
  33            N  CMSD,CMSB ,CMSJ,CMSR EC,CMSN S  CMSD=0,U=" ^"
  34            S  CMSJ=$P($ G(^CHMZHOL D("ZSKD_CM SREPLY")), U,2)  Q:CM SJ=""
  35            S  CMSDOC=$O (^AHADIC(7 41003.01," B","CMS RE PLY FILE", 0))     ;G et CMS doc ument sour ce number;
  36            S  CMSDUZ=$O (^VA(200," B","CMS,RE PLY FILE", 0))                                ;Get CMS  user DUZ;
  37            D  NOW^%DTC  S (CMSDAT, TODAY)=X
  38            ; F  S CMSD= $O(^TMP(CM SJ,"CMS RE PLY","DOD  AUTOPOP",C MSD)) Q:CM SD=""  D     ;Set doc ument date ;
  39            ; .S CMSB=0  F  S CSMB= $O(^TMP(CM SJ,"CMS RE PLY","DOD  AUTOPOP",C MSD,CMSB))  Q:CSMB=""   D
  40              WHILE $O(^ TMP(CMSJ," CMS REPLY" ,"DOD AUTO POP",CMSD) )>0 { 
  41                S CMSD=$ O(^(CMSD)) ,CMSB=0
  42            W HILE $O(^T MP(CMSJ,"C MS REPLY", "DOD AUTOP OP",CMSD,C MSB))>0 { 
  43                S CMSB=$ O(^(CMSB), 1,CMSREC), CDOD=$P(CM SREC,U),CM SN=$P(CMSR EC,U,6)
  44                   IF '$ $CLAIMS(CM SD,CMSB,CD OD,0) { 
  45                       ; w !,CMSD,"  ",CMSB,"  ",CDOD R X XX
  46                       D :$I(TNAP)  POPULATE(C MSD,CMSB,C DOD,CMSN,C MSREC,CMSD UZ,CMSDOC, CMSDAT) }
  47                   ELSE  { S ^TMP(C MSJ,"CMS R EPLY","DOD  DISCREPAN CY",CMSN,C MSD,CMSB)= CMSREC_"^1 " } } }
  48            ; DOD update s complete , initiate  the Discr epancies R eport from  the "DOD  DISCREPANC Y" tree: ;
  49   PRINT    X  ^%ZOSF("U CI") S CHU CI=$P(Y,", ")
  50            S  IOFILE="C MSDODdiscr eps_"_TODA Y_"_"_($P( $H,",",2)\ 60)
  51            I  CHUCI="HA C" S IOFIL E="HAC_HFS $:[SCR.TEM P_FILES]"_ IOFILE_".T XT"
  52         ;S:C HUCI'="HAC " IOFILE=I OFILE_"_TS T" S IOFIL E=IOFILE_" .TXT"
  53            I  CHUCI'="H AC" S IOFI LE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_IOFILE_ "_TST_"_UC I_".TXT"
  54         ;S F OLDR=".CMS _Discrepan cies",SUBF OLDR=".CMS _DOD_Discr epancies"
  55           ;S XFILE=" HACFS3"" DNS       Welcome1!" "::e:[CMS" _FOLDR_SUB FOLDR_"]"
  56         S FO LDR="/CMS/ CMS_Discre pancies/CM S_DOD_Disc repancies"
  57         S XF ILE=IOFILE
  58         ;I $ ANS Q:ANS= 3  
  59         ;DEF 016554-11/ 21/13-SBB  call OPEN^ %ZISH to o pen the fi le
  60         ;O X FILE:"NWS"
  61         ;SBB  07/30/15  DEF016554
  62            X  "D $SYSTE M.Process. SetZEOF(1) "
  63         I '$ $OPENFIWR^ CHTFLIB9(. XFILE,"XFI LE") X "D  $SYSTEM.Pr ocess.SetZ EOF(0)" Q
  64         S U= "^",CMSJ=$ P(^CHMZHOL D("ZSKD_CM SREPLY"),U ,2)
  65         ;DEF 016554-11/ 21/13-SBB  use CLOSE^ %ZISH to c lose file
  66         ;S $ Y=0 D INIT ,README,HE ADER,DETAI L(""),TOTA LS U XFILE  W ! C XFI LE
  67         S $Y =0 D INIT, README,HEA DER,DETAIL (""),TOTAL S
  68         U XF ILE W ! 
  69         D CL OSEF^CHTFL IB9(XFILE, "XFILE")
  70         ;SBB  07/30/15  DEF016554
  71            X  "D $SYSTE M.Process. SetZEOF(0) "
  72           D FTPFILE^ CHTFLIB9(X FILE," DNS    . DNS             ",FOLDR,"P UT")
  73            ; I CHUCI="H AC" K ^TMP (CMSJ,"CMS  REPLY")
  74            ;
  75            D  PRINTPOP    ;Print b ene record s with DOD  autopopul ated,  SKD ,DEV005832 -05
  76            Q
  77            ;
  78   CLAIMS(DFN ,BFN,DOD,N CF) ;Deter mine wheth er there a re any cla ims with D OS > CMS D OD:                 ;
  79            S  CN=0 I '$ D(^CHMPAY( "D",DFN))  Q NCF                                          ;No Cla ims Found;
  80            W HILE $O(^C HMPAY("D", DFN,CN)),' NCF { S CN =$O(^(CN))
  81                IF $D(^C HMPAY(CN,0 ),X),$P(X, U,22)=BFN, $P(X,U,8)' <DOD { S N CF=1 } }
  82            Q  NCF
  83   POPULATE(D FN,BFN,NDO D,N,R,DUZ, DOC,DAT) ; (Dfn,Bfn,N ewDOD,bene Name,Recor d,DUZ,DOCu mentsource ,docDATe);
  84            ; Update Ben eficiary f ile nodes: ;
  85           S: '$D(^CHMZH OLD("CMS_R ESET")) ^( "CMS_RESET ")=$H
  86           N  CHCD,CHPD, CHCD1,CHPD 1,CHCD2,CH CD3,CHCD5, CHCD9,CHPD 9,BSSN         ;SKD,D EV005832-0 5
  87           L  ^AHCHVA(DF N):1                                      ; Lock spons or and ben e for upda te;
  88           IF  $T { D NO W^%DTC                                              ;I f we got l ock, proce ed;
  89              ;Q:CDOD=ND OD
  90              S CHCD=^AH CHVA(DFN,1 00,BFN,0), $P(CHCD,U, 6)=NDOD            ;N ew DOD;
  91              S ^CHMZHOL D("CMS_RES ET",DFN)=%                               ;D P;date and  time of u pdate
  92              S ^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,0)=C HCD                ;D P; HOLD FO R RESET
  93              S (CHPD,^A HCHVA(DFN, 100,BFN,0) )=CHCD                        ;I nsert new  DOD;
  94              S CHCD2=$G (^AHCHVA(D FN,100,BFN ,2)),CHCD3 =$G(^(3))
  95              S ^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,2)=C HCD2               ;D P; HOLD FO R RESET
  96              S ^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,3)=C HCD3               ;D P;
  97              S $P(CHCD2 ,U,6)=DOC, $P(CHCD3,U ,6)=DAT                       ;D ocument so urce, date ;
  98              S ^AHCHVA( DFN,100,BF N,2)=CHCD2 ,^(3)=CHCD 3            ;Insert  document s ource, dat e;
  99              S ^AHCHVA( DFN,101,%, 100,BFN,0) ="^^^^^"_N DOD             ;Indi cate what  was update d;
  100              S ^AHCHVA( DFN,101,%, 100,BFN,99 )=%_U_DUZ_ U_"DOD EDI T"                  ; And by who m;
  101              S BSSN=$P( $G(^AHCHVA (DFN,100,B FN,0)),"^" ,9)                        ;SKD, DEV005832- 05
  102              S ^CHMZHOL D("CMS REP LY","CMSDO D_POPULATE D",%,DFN,B FN,NDOD)=$ G(N)_"^"_$ G(BSSN) K  BSSN  ;SKD ,DEV005832 -05
  103              H 1                                                      ;Wait fo r % to cha nge for Au to Calc;
  104              ;Get remai ning varia bles for A uto Calc:
  105              S (CHCD1,C HPD1)=$G(^ AHCHVA(DFN ,100,BFN,1 ))
  106              S CHCD5=$G (^AHCHVA(D FN,100,BFN ,5))
  107                      S  (CHCD9,CHP D9)=$G(^AH CHVA(DFN,1 00,BFN,9))
  108              ;Auto Calc :
  109              ;W !,"NEXT  TO LAST:  ",^AHCHVA( DFN,101,%, 100,BFN,0) ,!,^(99) R  XXX
  110              ;I ANS'=3 
  111              D ^CHMEAE9  D:CHCD'=C HPD ^CHMEA E8 S CHPD= CHCD D ^CH MEAE81,^CH MEAE9 D:CH CD'=CHPD ^ CHMEAE8
  112              ;Clean-up  after Auto  Calc:
  113              K AGE,BDM, BDY,CDM,CD Y,CHAGE,CH BEG,CHBSTA ,CHDEATH,C HDFNI,CHDF NJ,CHDT,CH END,CHEREA ,CHCD2,CHC D3
  114              K CHINEL,C HIREA,CHNO W,CHPTBEG, CHPTEND,CH REA,CHSTA, CHTDAT,DIF F,LOOP,MED FLAG,RO388 4
  115              L  }
  116                ELSE { S  ^TMP(CMSJ ,"CMS REPL Y","DOD DI SCREPANCY" ,N,DFN,BFN )=R_"^^2"  }  ;Else a  discrepan cy;
  117              Q
  118   DETAIL(N)  ;Drill dow n and prin t report t o file:
  119     WHILE $O (^TMP(CMSJ ,"CMS REPL Y","DOD DI SCREPANCY" ,N))'="" {  S N=$O(^( N)),D=0
  120        WHILE  $O(^TMP(C MSJ,"CMS R EPLY","DOD  DISCREPAN CY",N,D))> 0 { S D=$O (^(D)),B=0
  121           WH ILE $O(^TM P(CMSJ,"CM S REPLY"," DOD DISCRE PANCY",N,D ,B))>0 { S  B=$O(^(B) )
  122                D OUTPUT (^TMP(CMSJ ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B)) }  } }
  123            Q
  124            ;
  125   OUTPUT(X)  ;(Xrec);Pu t a row ou t to file:
  126              ;Q:ANS=3  
  127              U XFILE S  PSSN=$P(X, U,5),PNAM= $P(X,U,6)
  128              S DOS=$S(+ $P(X,U,7): "YES",1:"N O"),LOCK=$ P(X,U,8)
  129              S DOS="NO"  I +$P(X,U ,7),$I(TNC LAIMD) S D OS="YES"
  130              I PSSN?9N  S PSSN=$E( PSSN,1,3)_ "-"_$E(PSS N,4,5)_"-" _$E(PSSN,6 ,9)
  131              S CDOD=$$D FD($P(X,U) ),BDOD=$$D FD($P(X,U, 2))
  132              I BDOD'="" ,CDOD'=BDO D,$I(TNDOD D)
  133              S CDOB=$P( X,U,3),BDO B=$P(X,U,4 ) ;I $E(BD OD,1)'=""  S X=$E(BDO D,2,99),X1 =3 S:$E(X, 1,2)>10 X1 =2 S BDOD= X1_X
  134              I CDOB'=BD OB,$I(TNDO BD)
  135              S CDOB=$$D FD(CDOB),B DOB=$$DFD( BDOB)
  136              I $$HC,$I( TNCMSD) W  !,PNAM,?38 ,PSSN,?52, CDOD,?65,B DOD,?78,CD OB,?91,BDO B,?104,DOS
  137              Q
  138              ;
  139   DFD(D) Q:D ="" "" Q $ E(D,4,5)_" /"_$E(D,6, 7)_"/"_$S( $E(D)=2:"1 9",1:"20") _$E(D,2,3)  ;Format d ate
  140          ;
  141   HEADER ;Re port heade r:
  142          ;Q: ANS=3  
  143          U X FILE 
  144          S $ Y=0,$X=0
  145          W D UZ,?TT,TIT LE,?123,"P age: ",$J( PG,3),!,DA TE,?ST,SUB
  146       W !,TI ME,?PT,PAR AM,! D COL UMN S PG=P G+1
  147          Q
  148          ;
  149   INIT(EF) ; Set up exp ort header :;JAN,FEB, MAR,APR,MA Y,JUN,JUL, AUG,SEP,OC T,NOV,DEC;
  150            S  DATE=$$FI X($$FMTE^D ILIBF(TODA Y,6)),TIME =$$HTIM^AC KQUTL($H,0 )
  151            S  TITLE="HE ALTH ADMIN ISTRATION  CENTER",TT =66-($L(TI TLE)\2)
  152            S  SUB="CMS  Date of De ath Discre pancies"
  153            S  PARAM=$P( $P($T(INIT ),";",3)," ,",+DATE)_ " - "_$P(D ATE,"/",3)
  154            S  ST=66-($L (SUB)\2),P G=1,PT=66- ($L(PARAM) \2)
  155            Q
  156            ;
  157   COLUMN ;Pr int column  titles
  158          W ! ,"Benefici ary Name", ?38,"A-Car d #",?52," CMS DOD",? 65,"HAC DO D"
  159          W ? 78,"CMS DO B",?91,"HA C DOB",?10 4,"CLAIMS? ",?114,"LO CKED?"
  160          W ! ,"-------- ---------- ---------- -------",? 38,"------ -----",?52 ,"-------- --"
  161          W ? 65,"------ ----",?78, "--------- -",?91,"-- --------", ?104,"---- ---",?114, "-------"
  162          Q
  163          ;
  164   TOTALS ;Pr int summar ies for re port:
  165          ;Q: ANS=3  
  166          U X FILE
  167          I $ Y>45 W ! D  HEADER
  168          W ! !,"Total N umber of C MS DOD Dis crepancy:" ,?56,$J(+$ G(TNCMSD), 6)
  169          W ! ,"Total Nu mber of CM S DOD / HA C DOD Disc repancies: ",?56,$J(+ $G(TNDODD) ,6)
  170          W ! ,"Total Nu mber of CM S DODs wit h claim DO Ss > DOD:" ,?56,$J(+$ G(TNCLAIMD ),6)
  171          W ! ,"Total Nu mber of CM S DOB / HA C DOB Disc repancies: ",?56,$J(+ $G(TNDOBD) ,6)
  172          W ! !,"Total N umber of C MS DODs th at were au to populat ed:",?56,$ J(+$G(TNAP ),6)
  173          Q
  174   FIX(D) Q $ E(D,1,2)_" /"_$E(D,4, 5)_"/"_$E( D,7,10) ;< Replace "- " with "/"  in (D)ate
  175          ;
  176   HC() ;Prin t header,  if necessa ry:
  177        I $Y> 51 W ! D H EADER
  178        Q 1
  179   PRINTPOP         ;;Pr int bene r ecords wit h DOD auto populated,  SKD,DEV00 5832-05     ;JEH; DEV 013737-11/ 14/11 - RE LOCATED SU BROUTINE T O PREVENT  DUPLICATE  FILE GENER ATIONS
  180            ; I ANS Q:AN S>2
  181            ; DEF016554- 11/21/13-S BB get UCI , so testi ng can be  done in no n HAC area s
  182            S  IOFILE2=" HAC_HFS$:[ CMS]DEV005 832_DODPOP _"_TODAY_" .TXT"
  183            I  CHUCI'="H AC" S IOFI LE2="HAC_H FS$:[CMS]D EV005832_D ODPOP_"_TO DAY_"_"_CH UCI_".TXT"
  184         ;DEF 016554-11/ 21/13-SBB  call OPEN^ %ZISH to o pen the fi le
  185         ;O I OFILE2:"NW S"
  186         ;SBB  07/30/15  DEF016554
  187            X  "D $SYSTE M.Process. SetZEOF(1) "
  188         I '$ $OPENFIWR^ CHTFLIB9(. IOFILE2,"I OFILE2") X  "D $SYSTE M.Process. SetZEOF(0) " Q
  189         U IO FILE2 W !, "Beneficia ry Records  with DOD  fields Aut o-populate d by CMS D ata Match"
  190            U  IOFILE2 W  !!,"Date  of Pop^DFN ^BFN^Benef iciary Nam e^SSN^DOD  Before^DOD  After Aut opop"
  191            I  '$D(^CHMZ HOLD("CMS  REPLY","CM SDOD_POPUL ATED")) U  IOFILE2 W  !,"No DOD  autopopula ted" C IOF ILE2 Q
  192            N  CHPOPDT,D N,BN,DOD,N M,BSSN,REC
  193            S  CHPOPDT=0
  194            F   S CHPOPD T=$O(^CHMZ HOLD("CMS  REPLY","CM SDOD_POPUL ATED",CHPO PDT)) Q:'C HPOPDT  D   
  195            . S DN=0
  196            . F  S DN=$O (^CHMZHOLD ("CMS REPL Y","CMSDOD _POPULATED ",CHPOPDT, DN)) Q:'DN   D  
  197            . .S BN=0
  198            . .F  S BN=$ O(^CHMZHOL D("CMS REP LY","CMSDO D_POPULATE D",CHPOPDT ,DN,BN)) Q :'BN  D  
  199            . ..S DOD=0
  200            . ..F  S DOD =$O(^CHMZH OLD("CMS R EPLY","CMS DOD_POPULA TED",CHPOP DT,DN,BN,D OD)) Q:'DO D  D 
  201            . ...S NM=$P ($G(^CHMZH OLD("CMS R EPLY","CMS DOD_POPULA TED",CHPOP DT,DN,BN,D OD)),"^",1 )
  202            . ...S BSSN= $P($G(^CHM ZHOLD("CMS  REPLY","C MSDOD_POPU LATED",CHP OPDT,DN,BN ,DOD)),"^" ,2)
  203            . ...S REC=C HPOPDT_"^" _DN_"^"_BN _"^"_NM_"^ "_BSSN_"^^ "_DOD
  204            . ...U IOFIL E2 W !,REC
  205            ; DEF016554- 11/21/13-S BB use CLO SE^%ZISH t o close fi le
  206            ; C IOFILE2     ;JEH; D EV013737-1 1/14/11
  207            D  CLOSEF^CH TFLIB9(IOF ILE2,"IOFI LE2")
  208            ; SBB 07/30/ 15 DEF0165 54
  209            X  "D $SYSTE M.Process. SetZEOF(0) "
  210            K  CHPOPDT,D N,BN,DOD,N M,BSSN,REC
  211            Q
  212            ;
  213   README ;To  assure pr oper pagin ation when  printing  this .TXT  file from  MS Notepad :
  214          ;1)  Pull down  the File  menu, clic k Page Set up...
  215          ;2)  In the Pa ge Setup d ialog box,  click Lan dscape
  216          ;3)  Verify th at Top/Bot tom margin s are set  to 0.25 &  Left/Right  margins t o 0.5
  217          ;4)  Verify th at the Hea der and Fo oter boxes  are blank
  218          ;5)  Click the  [ OK ] bu tton
  219          ;6)  Pull down  the File  menu, clic k Print...
  220          ;7)  On the Ge neral tab,  select th e printer  and click  the [ Prin t ] button
  221          ;8)  The repor t should f ormat prop erly in th e r_ansi f ont, size  9
  222          ;Q: ANS=3  
  223          U X FILE
  224   STARS  ;** ********** ********** ********** ********** ********** ********** ********** ********** ******
  225          W ! !!!
  226          W ! ,?10,$P($T (STARS),"; ",2)
  227          W ! ,?10,"*",? 97,"*"
  228          W ! ,?10,"*    ",$P($T(RE ADME),";", 2),?97,"*" ,!,?10,"*" ,?97,"*"
  229          F I =1:1:8 W ! ,?10,"*",? 17,$P($T(R EADME+I)," ;",2),?97, "*",!,?10, "*",?97,"* "
  230          W ! ,?10,$P($T (STARS),"; ",2)
  231          W ! !!
  232          W ! ,?10,$P($T (STARS),"; ",2)
  233          W ! ,?10,"*",? 97,"*"
  234   LEGEND ;Ti tle Legend :
  235          ;CM S DOD;The  beneficiar y DOD in t he CMS Rep ly File
  236          ;HA C DOD;The  beneficiar y DOD in t he HAC dat abase
  237          ;CM S DOB;The  beneficiar y DOB in t he CMS Rep ly File
  238          ;HA C DOB;The  beneficiar y DOB in t he HAC dat abase
  239          ;CL AIMS?;Does  the benef iciary hav e claims w ith a DOS  after the  CMS DOD?
  240          ;LO CKED?;Was  the benefi ciary reco rd locked  during pro cessing an d the
  241          ;        ;CMS  DOD could  not be aut o populate d?
  242          W ! ,?10,"*    ",$P($T(LE GEND),";", 2),?97,"*" ,!,?10,"*" ,?97,"*"
  243          F I =1:1:6 W ! ,?10,"*",? 17,$P($T(L EGEND+I)," ;",2),?31, $P($T(LEGE ND+I),";", 3),?97,"*"  D
  244          .W  !,?10,"*", ?97,"*"
  245          W ! ,?10,"*",? 31,$P($T(L EGEND+7)," ;",3),?97, "*"
  246          W ! ,?10,"*",? 97,"*"
  247          W ! ,?10,$P($T (STARS),"; ",2)
  248          F I =47:1:52 W  !
  249          ;
  250