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