Produced by Araxis Merge on 11/9/2018 12:33:49 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 | CHL3030.m | Mon Nov 5 16:43:30 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHL3030.m | Mon Nov 5 17:41:44 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 470 |
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 | CHL3030 ; AHJ/DEN;SE LECT VETS WITH DIC R EASON FOR REPORT | |
2 | ;V1.1 | |
3 | ; | |
4 | ;OUTPUT L IST ON FS3 BIG | |
5 | ; | |
6 | ; MODIFIC ATIONS CR | |
7 | ; PN 09-1 9-2007 DEV003030- 01 | |
8 | ; IDENTIF IED BY IDE NTIFIER 00 1 | |
9 | ; | |
10 | ; | |
11 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
12 | S (BCNT,F MPCNT,YES1 8CNT,NO18C NT,FCNT,DC NT)=0 | |
13 | S PG=1 | |
14 | S DFN=0,U ="^" | |
15 | S SFILENO ="" | |
16 | S T=$C(9) | |
17 | S PDAMT=0 | |
18 | S PCNT=0 ;001 PROCE SSING COUN TER | |
19 | ;001 COMM ENTED OUT THE DEVICE AND FILE AND WILL M OVE THEM T O THERE OW N LINE TAG | |
20 | ;EVERTHIN G HAS BEEN PROCESSED . THIS WI LL REDUCE PROCESS TI ME AS THE FILE WILL | |
21 | ;NOT HAVE TO BE OPE N THE WHOL E TIME THE FILE IS R UNNING | |
22 | ;S DEVICE ="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG ]DICMAILIN FO.TXT" | |
23 | ;O DEVICE C DEVICE: "D" | |
24 | ;O DEVICE :"NWV" ;st art at fro nt of file | |
25 | ; | |
26 | ;O FIO:"A WU" ;add o n to last file | |
27 | K ^CHMZHO LD("NAME-A DD3030") | |
28 | K ^CHMZHO LD("NO18CL AIM3030") | |
29 | K ^CHMZHO LD("YES5YR CLAIM3030" ) | |
30 | K ^CHMZHO LD("NOTELI G3030") | |
31 | K ^CHMZHO LD("SB3030 ") | |
32 | K ^CHMZHO LD("FMP303 0") | |
33 | K ^CHMZHO LD("NOCLAI M3030") | |
34 | K ^CHMZHO LD("CHL303 0") ;001 N EW TEMP GL OBAL | |
35 | ; | |
36 | S EA="DIE D ON ACTIV E DUTY",EB ="DIED WHI LE P&T ",E C="DIED OF SC DISABI LITY",ED=" P&T/PERM & TOTL DISA BL",EE="DV B TAPE",EF ="MIL RET DIET WHILE P&T",EG=" DIE/P&T WH ILE ROTC" | |
37 | ; | |
38 | A1 ; | |
39 | ;FIND TOD AYS DATE F OR AGE TES T | |
40 | D NOW^%DT C S RUNTIM E=% | |
41 | S Y=$E(RU NTIME,1,7) | |
42 | S CHDATE= Y | |
43 | ; 5 YEAR S BACK = 1 826 DAYS C LAIMS | |
44 | ;CHANGE N EXT LINE F OR NUMBER OF DAYS (Y RS) BACK T O LOOK AT CLAIMS | |
45 | S X1=CHDA TE S X2=-1 826 D C^%D TC S STRDA T=X | |
46 | ; | |
47 | ;S DFN=97 56 | |
48 | ; | |
49 | S TODAY=C HDATE ;TOD AYS DATE | |
50 | S DAT18=S TRDAT ;STA RT DATE | |
51 | ;001 CHAN GED TO CAL L OUTPUT L INE TAG WH ICH WILL C ALL END PR OCESS RETU RNED HERE | |
52 | ;D GETDFN ,END | |
53 | D GETDFN, OUTPUT | |
54 | Q ;0 01 END OF ROUTINE | |
55 | ; | |
56 | ;******** ********** ********** ********** ********** ***** | |
57 | GETDFN S D FN=$O(^AHC HVA(DFN)) I DFN="" Q | |
58 | G:'$D(^AH CHVA(DFN,1 00)) GETDF N | |
59 | I '$D(^AH CHVA("DIC" ,DFN)) G G ETDFN ;001 MOVED CODE UP I F NOT "DIC " THEN GET NEXT | |
60 | S SPON0=^ AHCHVA(DFN ,0) | |
61 | ;I $P(SPO N0,U,15)'= "" G GETDF N ;001 NO 3884 FILES | |
62 | S SPON109 =$G(^AHCHV A(DFN,109, 1,0)) | |
63 | I $P(SPON 109,U,1)'= "" G GETDF N | |
64 | ;I $P(SPO N109,U,4)' ="" G GETD FN | |
65 | S RETRN=0 | |
66 | D INELREA ;CHE CK FOR INE LIGIBLE RE ASON | |
67 | I RETRN=1 G GETDFN | |
68 | S SNAME=$ P(SPON0,U, 1) ; SPONS OR NAME | |
69 | S SSSN=$P (SPON0,U,9 ) ;SPONSOR SSN | |
70 | S SFILENO =$P(SPON0, U,7) | |
71 | I SFILENO ="" G GETD FN | |
72 | ;001 TOOK OUT CAUSE THERE IS NO RECORD OF THIS IN PRODUCTIO N SO THIS WOULD NEVE R RUN NOT | |
73 | ;SURE WHY IT IS IN THIS ROUTI NE OTHER T HAN A COMP ARE | |
74 | ;I '$D(^C HMZHOLD("C -FILE-NO-3 030",SFILE NO)) G GET DFN | |
75 | S SREAS=$ P(SPON0,U, 14) | |
76 | S PCNT=PC NT+1 | |
77 | I PCNT=1 W "Process ing" | |
78 | I PCNT#50 0=0 W "." | |
79 | ;NEED TO COPY NEXT FILE TO TE MP FILE FO R NEXT LIN E MATCH | |
80 | ; | |
81 | G:'$D(SFI LENO) GETD FN | |
82 | ; | |
83 | ;MATCH BE NE C-FILE NO TO DIC FILE HERE | |
84 | ;001 DONT NEED TO W RITE OUT T O SCREEN C OMMENTING OUT | |
85 | ;W !,"SPO NSOR CFIL E NO =",SF ILENO | |
86 | ;001 MOVE D CODE UP IF NOT "DI C" THEN GE T NEXT | |
87 | ;I '$D(^C HMZHOLD("C -FILE-NO-3 030",SFILE NO)) G GET DFN | |
88 | ;I '$D(^A HCHVA("DIC ",DFN)) G GETDFN | |
89 | ;NEXT TWO LINE FOR TEST ONLY ++++++++++ ++++++++++ ++++++++ | |
90 | ;W !," MATCH=",S FILENO | |
91 | ;G GETDFN | |
92 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ +++++ | |
93 | ; | |
94 | S TOTDFN= TOTDFN+1 | |
95 | S BFN=0 | |
96 | ;++++++++ ++++++++++ ++++++++++ ++++++++++ ++++++++++ +++++ | |
97 | GETBFN ;GE TS THE BFN | |
98 | S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN G ETDFN | |
99 | ; ELIMINA TE SPINA B IFIDA AND FMP | |
100 | G SB:$D(^ AHCHVA("SB ",DFN,BFN) ) | |
101 | G FMP:$D( ^AHCHVA("F MP",DFN)) | |
102 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
103 | G:'$D(^AH CHVA(DFN,1 00,BFN,109 )) NO109 | |
104 | S TOTCNT= TOTCNT+1 | |
105 | ;001 NOT SURE WHY T HE FOLLOWI NG 6 LINES OF CODE A RE HERE? T HESE ELIGI BLE DATES ARE | |
106 | ;NOT THE DATES THAT ARE ON TE H CR FOR T ODAY TO 5 YEARS BACK SO I AM C OMMENTING OUT | |
107 | S J1=9999 9999 | |
108 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1),- 1) Q:'J1 | |
109 | S J2=0 | |
110 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
111 | ; | |
112 | ; | |
113 | G:J1>CHDA TE NOTELIG | |
114 | G:J2<CHDA TE NOTELIG | |
115 | ; | |
116 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETDFN | |
117 | S NAMLAB= ^AHCHVA(DF N,100,BFN, 0) | |
118 | S BNAME=$ P(NAMLAB,U ,1) ;BENE NAME | |
119 | S BSSN=$P (NAMLAB,U, 9) ;BENE S SN | |
120 | ; | |
121 | C1 ;NEED T O FIND CLA IMS FROM S TART DATE TO TODAY F OR THIS BE NE | |
122 | S YAECNT= YAECNT+1 | |
123 | L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) G GET DFN:'CHDFN I | |
124 | ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J | |
125 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G NOCL M:'CHDFNJ | |
126 | ;S CHDFNK =99999999 | |
127 | S CHDFNK= 0 | |
128 | LOOP ;W !, " LOOP ",DFN," = ",CHDF NK | |
129 | ;S CHDFNK =$O(^CHMDF N(CHDFNI,1 00,CHDFNJ, 100,CHDFNK ),-1) G:'C HDFNK NOCL M | |
130 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K OK ;AFTE R LAST CLA IM | |
131 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N | |
132 | G L3 | |
133 | MAIN ; | |
134 | S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0) | |
135 | G LOOP:'$ D(^CHMPAY( CLAIMNO,0) ) | |
136 | ; | |
137 | ;CONVERT PDI TO CLA IM FILED D ATE | |
138 | S PDIJ="" | |
139 | S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1) | |
140 | G:PDIJ="" LOOP | |
141 | ;W !,DFND ATA | |
142 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
143 | ; | |
144 | ; ******* ********** ********* | |
145 | G:TFMDT<S TRDAT NO18 CLM ;001 D ATE RANGE OF TODAY | |
146 | G:TFMDT>T ODAY NO18C LM ;MINUS 5 YEARS B ACK | |
147 | M1 ; | |
148 | S CLAIMDA T=TFMDT | |
149 | ; | |
150 | ; Accept Bene with claims dat e between start/toda y | |
151 | G:'$D(^CH MPAY(CLAIM NO,1)) LOO P | |
152 | S CLMREC= ^CHMPAY(CL AIMNO,1) | |
153 | S CLMAMT= $P(CLMREC, U,1) | |
154 | S PDAMT=P DAMT+CLMAM T | |
155 | G LOOP | |
156 | OK ; | |
157 | S PPDAMT= $J(PDAMT,1 2,2) | |
158 | I PDAMT'> .99 G GETB FN | |
159 | I SREAS=1 S PREAS=E A | |
160 | I SREAS=2 S PREAS=E B | |
161 | I SREAS=3 S PREAS=E C | |
162 | I SREAS=4 S PREAS=E D | |
163 | I SREAS=5 S PREAS=E E | |
164 | I SREAS=6 S PREAS=E F | |
165 | I SREAS=7 S PREAS=E G | |
166 | ;S TMPS=S NAME_T_SSS N_T_PREAS_ T_BNAME_T_ BSSN_T_PPD AMT | |
167 | ;001 COMM ENTED OUT THE LINE A BOVE TO AN D REPLACED WITH LINE BELOW TO SET INFO I NTO TMP | |
168 | ;GLOBAL T O WRITE OU T TO THE F ILE FROM T HE OUTPUT LINE TAG | |
169 | S ^CHMZHO LD("CHL303 0",DFN,BFN )=SNAME_U_ SSSN_U_PRE AS_U_BNAME _U_BSSN_U_ PPDAMT | |
170 | ;W !,DFN, " ",BFN," ",SNAME," ",SSSN," " ,SREAS," " ,BNAME," " ,BSSN," ", PPDAMT | |
171 | ;U DEVICE W !,TMPS **001 COMM ENTED OUT WRITTING I N OUTPUT S ECTION | |
172 | S ^CHMZHO LD("YES5YR CLAIM3030" ,DFN,BFN)= DFN_U_BFN_ U_SNAME_U_ SSSN_U_PRE AS_U_BNAME _U_BSSN_U_ PPDAMT_U | |
173 | S ^CHMZHO LD("YES5YR CLAIMFILEN O",SFILENO ,CNT)=DFN_ U_BFN_U | |
174 | S PDAMT=0 | |
175 | S CNT=CNT +1 | |
176 | G GETBFN | |
177 | Q | |
178 | SB ; | |
179 | ;W !,"SB= ",DFN," " ,BFN | |
180 | S SBCNT=S BCNT+1 | |
181 | S ^CHMZHO LD("SB3030 ",DFN,BFN) ="" | |
182 | G GETBFN | |
183 | FMP ; | |
184 | S FMPCNT= FMPCNT+1 | |
185 | S ^CHMZHO LD("FMP303 0",DFN,BFN )="" | |
186 | G GETBFN | |
187 | NO109 ; | |
188 | S CNT109= CNT109+1 | |
189 | G GETBFN | |
190 | NOCLM ; | |
191 | S NOCLM=N OCLM+1 | |
192 | S ^CHMZHO LD("NOCLAI M3030",DFN ,BFN)="" | |
193 | G GETBFN | |
194 | NO18CLM ; | |
195 | S NO18CNT =NO18CNT+1 | |
196 | ;W !,"NO CLAIMS 18 MOS " ,DFN," ",B FN," ",TFM DT | |
197 | S ^CHMZHO LD("NO18CL AIM3030",D FN,BFN)="" | |
198 | G LOOP | |
199 | ; | |
200 | NOTELIG ; | |
201 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
202 | S ^CHMZHO LD("NOTELI G3030",DFN ,BFN)="" | |
203 | S NOAECNT =NOAECNT+1 | |
204 | G GETBFN | |
205 | OUTPUT ;00 1 OUTPUT S ECTION WIL L SEND THE INFO TO T HE FILE | |
206 | S DEVICE ="HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]DICMAILIN FO.TXT" | |
207 | O DEVICE C DEVICE:" D" | |
208 | O DEVICE: "NWV" ;sta rt at fron t of file | |
209 | S DFN=0 | |
210 | F S DFN= $O(^CHMZHO LD("CHL303 0",DFN)) Q :DFN="" D | |
211 | . S BFN=0 | |
212 | . F S BF N=$O(^CHMZ HOLD("CHL3 030",DFN,B FN)) Q:BFN ="" D | |
213 | .. S FILE =$G(^CHMZH OLD("CHL30 30",DFN,BF N)) | |
214 | .. S TMPS =$TR(FILE, "^",T) ;001 TRA NSLATES "^ " TO TAB | |
215 | .. U DEVI CE W !,TMP S | |
216 | .. Q | |
217 | .Q | |
218 | D END | |
219 | Q | |
220 | END ; | |
221 | ;C FIO * * 001 COMM ENTED OUT NO FILE C ALLED FIO | |
222 | C DEVICE | |
223 | ;W !,"DAT E = ",STRD AT | |
224 | W !,"TOTA L COUNT = ",CNT | |
225 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
226 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
227 | Q | |
228 | ; | |
229 | INELREA ;I NELIGIBLE REASON | |
230 | S J=0,CHI NEL="",TST REA="" | |
231 | F S J=$O (^ACHHVA(D FN,100,J)) Q:J="" D | |
232 | . S CHINE L=$P(^ACHH VA(DFN,100 ,J,0),"^", 12) | |
233 | . S TSTRE A=^(AHADIC (554801.7, "B",CHINEL ,TSTREA)) | |
234 | . I TSTRE A=12 S RET RN=1 | |
235 | . Q | |
236 | Q | |
237 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.