Produced by Araxis Merge on 11/9/2018 12:34:08 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 | CHMRZIP2.m | Mon Nov 5 16:44:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRZIP2.m | Mon Nov 5 17:51:29 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 464 |
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 | CHMRZIP2 ; HAC/AHJ;LA BELS WITH DATE OF EL IG BENE'S FROM SELEC TED ZIPS | |
2 | ;;V1.0 | |
3 | ;INPUT FR OM CHMRZIP 1 ROUTINE ^CHMZHOLD( "ZIPS",FNA ME,"ZIP-MA TCH" | |
4 | ;OUTPUT O N FS3BIG S HARED DRIV E FILE NAM E IS ZIPMA TCH(JOB NO .).TXT | |
5 | ;TEMP FIL E FOR QA V ERIFICATIO N IS ^CHMZ HOLD("ZIPS ",FNAME,"Q A-ZIP-SELE CTION" | |
6 | ;TEMP FIL E FOR DISP LAYING JOB NUMBER FO R FS3BIG N &A FILE ^C HMZHOLD("Z IPS",FNAME ,"ZIPMATCH " | |
7 | ;JEH 11/1 3/08 TT # MTN006023 Name and a ddress of all CHAMPV A benies i n Fargo | |
8 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE | |
9 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
10 | ; | |
11 | CHAMPVA ; | |
12 | S (ZIPCNT ,PART,TOTB FN,BYCNT,T OTCNT,BCNT ,CLAIM,CNT )=0 | |
13 | S DFN=0,U ="^" | |
14 | D NOW^%DT C S CHDATE =X | |
15 | S NUMBER= 0 | |
16 | ;S NUMBER =$O(^CHMZH OLD("ZIP-M ATCH",$J,N UMBER)) | |
17 | S NUMBER= $O(^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",NU MBER)) | |
18 | S LOWTST= NUMBER | |
19 | S NUMBER= 999999 | |
20 | ;S NUMBER =$O(^CHMZH OLD("ZIP-M ATCH",$J,N UMBER),-1) | |
21 | S NUMBER= $O(^CHMZHO LD("ZIPS", FNAME,"ZIP -MATCH",NU MBER),-1) | |
22 | S HIGHTST =NUMBER | |
23 | ; | |
24 | K ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -QA") | |
25 | S ^CHMZHO LD("ZIPS", FNAME,"SEL ECTED-ZIP- BENE-NA-LA BELS")="" | |
26 | ; | |
27 | ;;S FIO=" HAC_HFS$:[ DSMMANAG]Z IPMATCH.TX T" | |
28 | S JOBNO=$ J | |
29 | S FILENM= "ZIPMATCH" _$J_".TXT" | |
30 | S ZTSAVE( "CHSTDT")= "",ZTSAVE( "IOFILE")= "",ZTSAVE( "*")="" | |
31 | S ZTSAVE( "FNAME")=" " | |
32 | S ZTRTN=" START^CHMR ZIP2",ZTDE SC="Select N&A from zip codes" ,ZTIO="" | |
33 | D ^%ZTLOA D S IOP=0 D HOME^%ZI S ; | |
34 | Q ; | |
35 | START ; DG C 1/17/201 4 DEV01289 3 - BEGIN | |
36 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]"_FNAME_" .TXT" ;JEH 1/9/0 9 | |
37 | ;;S HOLDI T="ZIPMATC H"_JOBNO_" .TXT" | |
38 | ;;S FIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_LST ]""HOLDIT" "" | |
39 | ;;S ^CHMZ HOLD(JOBNO ,"ZIPMATCH ")="" | |
40 | ;O FIO C FIO:"D" | |
41 | ;O FIO:"N WV" | |
42 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
43 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
44 | S FILENM2 ="_FNAME_. TXT" | |
45 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
46 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
47 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q ;DGC 7/30 /2015 DEV0 12893 ;DGC 1/17/2014 DEV012893 - END | |
48 | ;S DFN=52 0186 | |
49 | D STRT ;NEW SEARC H JEH 11/ 13/08 | |
50 | D END | |
51 | ;D GETDFN ,END | |
52 | Q | |
53 | ; | |
54 | ; ALL BEN E'S | |
55 | ;******** ********** ********** ********** ********** ***** | |
56 | ; CHAMPVA BENE FILE | |
57 | GETDFN S T OTCNT=TOTC NT+1 | |
58 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
59 | G:'$D(^AH CHVA(DFN,0 )) GETDFN | |
60 | ;W !,DFN | |
61 | S SPON=^A HCHVA(DFN, 0) | |
62 | G:'$D(^AH CHVA(DFN,1 )) GETDFN | |
63 | S SPON1=^ AHCHVA(DFN ,1) | |
64 | G:'$D(^AH CHVA(DFN,1 00)) GETDF N | |
65 | S BFN=0 | |
66 | GETBFN S T OTBFN=TOTB FN+1 | |
67 | S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN | |
68 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
69 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) GETBFN | |
70 | S J1=0 | |
71 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
72 | S J2=0 | |
73 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 GET BFN | |
74 | ; | |
75 | OK ;NEXT L INE DATES OF ELIGIBI LITY ONLY | |
76 | G:J1>CHDA TE WRITEIT | |
77 | G:J2<CHDA TE WRITEIT | |
78 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
79 | S NAMELAB =^AHCHVA(D FN,100,BFN ,0) | |
80 | G:'$D(^AH CHVA(DFN,1 00,BFN,1)) GETBFN | |
81 | S ADDRLAB =^AHCHVA(D FN,100,BFN ,1) | |
82 | ; | |
83 | S STATE=$ P(ADDRLAB, U,4) | |
84 | I STATE=" " G GETBFN | |
85 | G GETBFN: '$D(^DIC(5 ,STATE,0)) | |
86 | S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2) | |
87 | S BIGZIP= $P(ADDRLAB ,U,5) | |
88 | ;I $E(BIG ZIP,1,1)=0 S BIGZIP= $E(BIGZIP, 2,5) ;**** ********** *COMMENT O UT FOR TES T | |
89 | ; | |
90 | S ZIP=$E( BIGZIP,1,5 ) | |
91 | S PART=$E (BIGZIP,1, 2) | |
92 | NEXT ;I PA RT="00" S ZIP=$E(BIG ZIP,3,5) G JUMP ;*** ********** COMMENT OU T FOR TEST | |
93 | ;S PART=$ E(BIGZIP,1 ,1) | |
94 | ;I PART=" 0" S ZIP=$ E(BIGZIP,2 ,5) G JUMP ;******** ********** *COMMENT O UT FOR TES T | |
95 | ;I $E(BIG ZIP,1,2)=0 0 S ZIP=$E (BIGZIP,3, 5) G JUMP | |
96 | ;I $E(BIG ZIP,1,1)=0 S ZIP=$E( BIGZIP,2,5 ) | |
97 | JUMP ; | |
98 | ; | |
99 | ;BAD ADDR ESS FLAG B YPASS | |
100 | I $P(ADDR LAB,U,10)' =1 S BCNT= BCNT+1 G G ETBFN | |
101 | ;NEXT LIN ES FOR SEL ECTED INDI VIDUAL ZIP S | |
102 | I $E(ZIP, 1,1)=0 S Z IP=$E(ZIP, 2,5) | |
103 | S MATCH=$ E(ZIP,1,5) | |
104 | ;I $L(MAT CH)=4 S MA TCH=0_MATC H | |
105 | ;I $L(MAT CH)=3 S MA TCH=00_MAT CH | |
106 | ;I $D(^CH MZHOLD("ZI P-MATCH",$ J,MATCH)) G GOOD | |
107 | I $D(^CHM ZHOLD("ZIP S",FNAME," ZIP-MATCH" ,MATCH)) G GOOD | |
108 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++ | |
109 | ;W !," NO T=",MATCH | |
110 | ;G GETBFN | |
111 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++ | |
112 | G GETBFN | |
113 | GOOD ; | |
114 | ; NEXT CO DE FOR DEL IMITED WIT H TAB CHAR | |
115 | ;******** ********** ********** **** | |
116 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++ | |
117 | ;W !," MINN=",M ATCH | |
118 | ;S ZIPCNT =ZIPCNT+1 | |
119 | ;G GETBFN | |
120 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++ | |
121 | S SSN=$P( NAMELAB,U, 9) | |
122 | S NAME=$P (NAMELAB,U ,1) | |
123 | S LAST=$P (NAME,",", 1) | |
124 | S FIRST=$ P(NAME,"," ,2) | |
125 | S NAME=FI RST_" "_LA ST | |
126 | S ADDR1=$ P(ADDRLAB, U,1) | |
127 | S ADDR2=$ P(ADDRLAB, U,2) | |
128 | S ADDR3=$ P(ADDRLAB, U,12) | |
129 | S CITY=$P (ADDRLAB,U ,3) | |
130 | S T=$C(9) | |
131 | ;I BIGZIP ="" G GETB FN | |
132 | S ZIP=BIG ZIP | |
133 | I $L(BIGZ IP)=9 S ZI P=$E(BIGZI P,1,5)_"-" _$E(BIGZIP ,6,9) | |
134 | S TMPS=NA ME_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_STAT E_T_ZIP_T | |
135 | ;S ^CHMZH OLD("ZIP-S ELECTION-Q A",$J,DFN, BFN)=DFN_U _BFN_U_NAM E_U_ADDR1_ U_ADDR2_U_ ADDR3_U_CI TY_U_STATE _U_ZIP_U | |
136 | S ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -QA",DFN,B FN)=DFN_U_ BFN_U_NAME _U_ADDR1_U _ADDR2_U_A DDR3_U_CIT Y_U_STATE_ U_ZIP_U | |
137 | ;S ^CHMZH OLD("ZIP-S ELECTION-D FN",$J,DFN ,BFN)="" | |
138 | S ^CHMZHO LD("ZIPS", FNAME,"ZIP -SELECTION -DFN")=DFN _U_BFN | |
139 | ; | |
140 | N1 ; | |
141 | ; | |
142 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ +++++++++ | |
143 | U FIO W T MPS,! | |
144 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ ++ | |
145 | ;******** ********** ********** ***** | |
146 | S ZIPCNT= ZIPCNT+1 | |
147 | ;I CNT=3 G END | |
148 | ;G GETBFN | |
149 | Q | |
150 | WRITEIT ;B YPASS DATE OF ELIG N OT TODAY | |
151 | S BYCNT=B YCNT+1 | |
152 | G GETBFN | |
153 | Q | |
154 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
155 | I '$T W * 7 R Y:15 G SBRS:Y=". " S:'$T Y= IOZFO | |
156 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
157 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
158 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
159 | Q | |
160 | BOMB C DEV ICE | |
161 | W !,MESSA GE | |
162 | D INT^%ET | |
163 | Q | |
164 | END ; | |
165 | D CLOSEF^ CHTFLIB9(F IO,"FIO") ;C FIO - D GC 1/17/20 14 DEV0128 93 | |
166 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
167 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG /COMMO_RPT S/BENE_LST ","PUT") ; DGC 1/17/2 014 DEV012 893 | |
168 | S Y=CHDAT E D DD^%DT S PTODAYD T=Y | |
169 | ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2 | |
170 | ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U | |
171 | S CNTZ=1, ^CHMZHOLD( "ZIPS",FNA ME,"BENEZ- TEXTMESSZ" ,CNTZ)="", CNTZ=CNTZ+ 1 | |
172 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
173 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= " BENEFIC IARY NAME AND ADDRES S LIST ",CNT Z=CNTZ+1 | |
174 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= " SELECTE D ZIPS HAS COMPLETE D ",CNTZ =CNTZ+1 | |
175 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= " ", CNTZ=CNTZ+ 1 | |
176 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1 | |
177 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "TOTAL COU NT="_ZIPCN T,CNTZ=CNT Z+1 | |
178 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "(OUTPUT F ILE NAMES ) ", CNTZ=CNTZ+ 1 | |
179 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "SELECTED ZIP CODES FILE NAME ON:",CNTZ= CNTZ+1 | |
180 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= " FS3BIG .COMMO_RPT S.BENE_LST ="_FNAME_" .TXT",CNTZ =CNTZ+1 | |
181 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
182 | S ^CHMZHO LD("ZIPS", FNAME,"BEN EZ-TEXTMES SZ",CNTZ)= "" | |
183 | S XMTEXT= "^CHMZHOLD (""ZIPS"", FNAME,""BE NEZ-TEXTME SSZ""," | |
184 | S XMDUZ=. 5 | |
185 | S XMY(DUZ )="" | |
186 | S XMSUB=" SELECTED Z IP BENE NA ME AND ADD RESS" D ^X MD | |
187 | ; | |
188 | K ^CHMZHO LD("ZIPS", FNAME) | |
189 | Q | |
190 | ;S ^CHMZH OLD("ZIP-S ELECTION-C NT",$J,CNT )="" | |
191 | ;K CHMZHO LD("ZIP-MA TCH",$J) | |
192 | ;K ^CHMZH OLD("ZIP-S ELECTION-D FN",$J) | |
193 | ;W !," CO UNT=",CNT | |
194 | ; | |
195 | ;K ADDRLA B,BFN | |
196 | ;K DELETE ,DFN,FIO,J 1,J2,NAMEL AB,STATE,U ,X,ZIP | |
197 | Q | |
198 | STRT ;NEW SEARCH | |
199 | D NOW^%DT C S CHDATE =X ;GET CURRENT DA TE | |
200 | S CTR=0 | |
201 | S DFN=0 F S DFN=$O (^AHCHVA(D FN)) Q:'DF N D | |
202 | .S BFN=0 F S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN D | |
203 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
204 | ..Q:$P(^A HCHVA(DFN, 100,BFN,0) ,"^",5)="D " ;STATS D-INELIGI BLE | |
205 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,1 )) | |
206 | ..S ZIP=$ E($P(^AHCH VA(DFN,100 ,BFN,1),"^ ",5),1,5) | |
207 | ..Q:'$G(Z IP) | |
208 | ..Q:$P(^A HCHVA(DFN, 100,BFN,1) ,"^",10)'= 1 ;BENE REMIT ADDR ESS CORREC T 1-YES | |
209 | ..Q:$$DT1 09^CHMRZIP 2(DFN,BFN) =0 | |
210 | ..S PRTMT CH=0 | |
211 | ..I $D(^C HMZHOLD("Z IPS",FNAME ,"ZIP-MATC H",ZIP)) D | |
212 | ...S CTR= CTR+1 | |
213 | ...;S PRT MTCH=1 | |
214 | ...S NAME LAB=^AHCHV A(DFN,100, BFN,0) | |
215 | ...S ADDR LAB=^AHCHV A(DFN,100, BFN,1) | |
216 | ...S STAT E=$P(ADDRL AB,U,4) | |
217 | ...S:STAT E STATE=$P (^DIC(5,ST ATE,0),U,2 ) | |
218 | ...Q:STAT E="" | |
219 | ...S BIGZ IP=$P(ADDR LAB,U,5) | |
220 | ...S ZIP= $E(BIGZIP, 1,5) | |
221 | ...S PART =$E(BIGZIP ,1,2) | |
222 | ...D GOOD | |
223 | .;W:PRTMT CH=1 !,CTR ,?10,DFN,? 30,BFN,?50 ,ZIP | |
224 | .;S PRTMT CH=0 | |
225 | Q | |
226 | DT109(DDFN ,DBFN) ;10 9 NODE - E LIGIBILITY DATES | |
227 | N EBEGDT, EENDDT | |
228 | N ELIG109 | |
229 | S ELIG109 =0 ;SET TO NOT ELI G 0-NOT E LIG | |
230 | Q:'$D(^AH CHVA(DFN,1 00,BFN,109 )) ELIG109 | |
231 | S EBEGDT= 0 F S EB EGDT=$O(^A HCHVA(DFN, 100,BFN,10 9,EBEGDT)) Q:'EBEGDT D | |
232 | .S EENDDT =0 F S EE NDDT=$O(^A HCHVA(DFN, 100,BFN,10 9,EBEGDT,E ENDDT)) Q: 'EENDDT D | |
233 | ..I CHDAT E>=EBEGDT& (CHDATE<=E ENDDT) S E LIG109=1 ;BENE EL IG | |
234 | Q ELIG109 | |
235 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.