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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 496 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 D | |
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.