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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 572 |
Changed | 3 | 6 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.