Produced by Araxis Merge on 11/9/2018 12:33:51 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 | CHM4268S.m | Mon Nov 5 16:45:00 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHM4268S.m | Fri Nov 9 01:35:44 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 378 |
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 | CHM4268S ; HAC/AHJ;SP ONSORS FIL E NUMBERS WITH BENE' S WITH CLA IMS LAST 1 2 MO'S | |
2 | ;;1.0;CHA MPVA;;09/3 0/09;Build 2 | |
3 | ;AHJ FORM ZAL4268S | |
4 | ;;DEF0165 54 Remove DECNET and replace w ith standa rd FTP fro m VMS to F S3 DRW 07 /16/2015 | |
5 | CHAMPVA ; | |
6 | S (CNT109 ,TOTDFN,TO TCNT,NOCLM ,NOCCNT,SB CNT,CNT,PC NT,NOAECNT ,YAECNT)=0 | |
7 | S (NOZIPC NT,ICNT,DF NCNT,TOTDF N1,BICNT,B CNT,FMPCNT ,YES12CNT, NO12CNT)=0 | |
8 | S PG=1 | |
9 | S DFN=0,U ="^" | |
10 | S BENESW= 0 | |
11 | S ^CHMZHO LD($J,"BEN E-NA-LABEL S")="" | |
12 | K ^CHMZHO LD($J,"NAM E-ADD4268" ) | |
13 | K ^CHMZHO LD($J,"FMP 4268") | |
14 | K ^CHMZHO LD($J,"NO1 2CLAIM4268 ") | |
15 | K ^CHMZHO LD($J,"YES 12CLAIM426 8") | |
16 | K ^CHMZHO LD($J,"NOT ELIG4268") | |
17 | K ^CHMZHO LD($J,"SB4 268") | |
18 | K ^CHMZHO LD($J,"FMP 4268") | |
19 | K ^CHMZHO LD($J,"NOC LAIM4268") | |
20 | K ^CHMZHO LD($J,"VBA -SPONSOR-S POUSE-CLAI MS") | |
21 | S CHTMPDT =$$FMTE^XL FDT(DT,"5D ") | |
22 | S CHFILDT =$$STRIP^X LFSTR(CHTM PDT,"/") | |
23 | ;S DEVICE ="HACFS3"" DNS HACdec741 !""::D:[FS 3BIG]VBASp onSpouse"_ CHFILDT_". TXT" | |
24 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;;DEF0 16554 REPL ACE DECNET WITH THE NEXT 4 LIN ES OF CODE 07/16/201 5 | |
25 | S FILENM1 ="VBASponS pouse"_CHF ILDT_".TXT " | |
26 | S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM1 | |
27 | I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM1 | |
28 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;;DEF01655 4 OPEN AND CLOSE MOD IFIED 07/ 30/2015 | |
29 | I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" ) W "FILE NOT AVAIL ABLE AT TH IS MOMENT" Q | |
30 | ;O DEVICE C DEVICE: "D" | |
31 | ;O DEVICE :"NWV" | |
32 | ; | |
33 | A1 ; | |
34 | ;FIND TOD AYS DATE F OR AGE TES T | |
35 | D NOW^%DT C S RUNTIM E=% | |
36 | S Y=$E(RU NTIME,1,7) | |
37 | S CHDATE= Y | |
38 | ; 12 MO NTHS | |
39 | ;S X1=CHD ATE S X2=- 365 D C^%D TC S STRDA T=X | |
40 | ;MOVE TO 7 YEARS 3 65*7=2555 | |
41 | S STRDAT= $$FMADD^XL FDT(CHDATE ,-2555,0,0 ,0) ;AEB 9/25/2009 DEV0064444 | |
42 | ; STRDAT = Start D ate | |
43 | ; CHDATE = Todays Date | |
44 | S TODAY=C HDATE | |
45 | S DAT12=S TRDAT | |
46 | ; | |
47 | D GETDFN, END | |
48 | Q | |
49 | ; | |
50 | ; | |
51 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
52 | ;******** ********** ********** ********** ********** ***** | |
53 | ; CHAMPVA BENE FILE | |
54 | GETDFN ; | |
55 | I BENESW= 1 D WANTIT | |
56 | ;Q:CNT=10 00 | |
57 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
58 | S TOTDFN= TOTDFN+1 | |
59 | I $D(^AHC HVA("FMP", DFN)) D FM P G GETDFN | |
60 | ;G:'$D(^A HCHVA(DFN, 100)) GETD FN | |
61 | S TOTDFN1 =TOTDFN1+1 | |
62 | G:'$D(^AH CHVA(DFN,0 )) GETDFN | |
63 | S SPON=^A HCHVA(DFN, 0) | |
64 | S SN=$P(S PON,"^",1) ,BFN="",BN ="" ;AEB DEV007799 9/24/2009 REMOVE DE LETED SPON SORS | |
65 | S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN) ;A EB DEV0077 99 9/24/20 09 | |
66 | I T=1 G G ETDFN ;AE B DEV00779 9 9/24/200 9 | |
67 | S SPONFIL E=$P(SPON, U,7) | |
68 | G:'$D(SPO NFILE) GET DFN | |
69 | I SPONFIL E="" G GET DFN | |
70 | ;I $L(SPO NFILE)=8 I $E(SPONFI LE,U,1)=0 S NEWSPON= " "_SPONFI LE S SPONF ILE=NEWSPO N | |
71 | I $L(SPON FILE)=8 S NEWSPON=" "_SPONFILE S SPONFIL E=NEWSPON | |
72 | S BFN=0 | |
73 | GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N | |
74 | ;W !,"DFN =",DFN," B FN=",BFN," SW=",BENE SW | |
75 | S BICNT=B ICNT+1 | |
76 | ; ELIMINA TE SPINA B IFIDA | |
77 | ;G:$D(^AH CHVA("ZEMC ","CMOP",D FN,BFN)) G ETBFN | |
78 | ; | |
79 | ; | |
80 | I $D(^AHC HVA("SB",D FN,BFN)) D SB G GETB FN | |
81 | ;ELIMINAT E FMP | |
82 | G:'$D(^AH CHVA(DFN,1 00,BFN,0)) GETBFN | |
83 | S BEN0=^A HCHVA(DFN, 100,BFN,0) | |
84 | S SN="",B N=$P(BEN0, "^",1) ; AEB DEV007 799 9/24/2 009 | |
85 | I BN="" G GETBFN ; AEB DEV007 799 9/24/2 009 | |
86 | S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN) ;A EB DEV0077 99 9/24/20 09 | |
87 | I T=1 G G ETBFN | |
88 | I $P(BEN0 ,"^",6)?7N G GETBFN ;AEB DEV0 07799 9/24 /2009 SKIP IF DATE O F DEATH IS 7 NUMERIC S | |
89 | S BENSTAT =$P(BEN0,U ,5) | |
90 | ;I (BENST AT'="EA")! (BENSTAT'= "D")!(BENS TAT'="PS") G GETBFN | |
91 | I (BENSTA T="PR")!(B ENSTAT="PC ")!(BENSTA T="T")!(BE NSTAT="U") !(BENSTAT= "SF")!(BEN STAT="PW") G GETBFN | |
92 | ; | |
93 | S TOTCNT= TOTCNT+1 | |
94 | ;I TOTCNT >5000 Q | |
95 | S BDATA=^ AHCHVA(DFN ,100,BFN,0 ) | |
96 | ;A CCEPT ONLY BENE SPOU SE | |
97 | S BREL=$P (BDATA,U,4 ) | |
98 | I BREL'=" S" G GETBF N ;spons or spouse only | |
99 | ; | |
100 | ;CHECK DA TES OF ELI GIBILITY F OR BENE | |
101 | ; | |
102 | ; | |
103 | ; | |
104 | G C1 ;BYP ASS DATES OF ELIGIBI LITY CHECK | |
105 | ; | |
106 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) D NO109 G GETBFN | |
107 | I '$D(^AH CHVA(DFN,1 00,BFN,1)) D NO109 G GETBFN | |
108 | I '$D(^AH CHVA(DFN,1 00,BFN,109 )) D NO109 G GETBFN | |
109 | S J1=0 | |
110 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
111 | S J2=0 | |
112 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
113 | I J1>CHDA TE D NOTEL IG G GETBF N | |
114 | I J2<CHDA TE D NOTEL IG G GETBF N | |
115 | S YAECNT= YAECNT+1 | |
116 | ; | |
117 | ; | |
118 | C1 ;NEED T O FIND CLA IMS FROM S TART DATE TO TODAY F OR THIS BE NE | |
119 | ; | |
120 | L3 S CHDFN I=$O(^CHMD FN("B",DFN ,0)) I 'CH DFNI D NOI CNT G GETD FN | |
121 | ;S CHDFNJ =$O(^CHMDF N(CHDFNI,1 00,"B",BFN ,0)) G GET DFN:'CHDFN J | |
122 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) I 'CHD FNJ D NOCL M G GETBFN | |
123 | S CHDFNK= 99999999 | |
124 | LOOP ;W !, " LOOP ",DFN," = ",CHDF NK | |
125 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ,-1) I 'CH DFNK D NOC LM G GETBF N | |
126 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N | |
127 | G L3 | |
128 | MAIN ; | |
129 | S CLAIMNO =^CHMDFN(C HDFNI,100, CHDFNJ,100 ,CHDFNK,0) | |
130 | G LOOP:'$ D(^CHMPAY( CLAIMNO,0) ) | |
131 | ;CONVERT PDI TO CLA IM FILED D ATE | |
132 | S PDIJ="" | |
133 | S PDIJ=$O (^CHMPAY(C LAIMNO,"PD I","B",PDI J),-1) | |
134 | G:PDIJ="" LOOP | |
135 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
136 | ;I TFMDT< DAT12 S BE NESW=0 D N O12CLM G G ETBFN | |
137 | ;I TFMDT< 3060630 D NO12CLM G GETBFN | |
138 | I TFMDT<STRD AT D NO12C LM G GETBF N | |
139 | GOODONE ; | |
140 | S BENESW= 1 | |
141 | G GETBFN | |
142 | ; | |
143 | WANTIT ;NE XT FILE FO R SPONSOR WITH A BEN E WITH DAT ES OF ELIG IBILITY AN D 12 MO CL AIMS | |
144 | OK ; | |
145 | S BENESW= 0 | |
146 | S T=$C(9) | |
147 | S CNT=CNT +1 | |
148 | S NEWCFIL E=$$FXLGTH ^CHTFLIB(S PONFILE,"R ",9) | |
149 | S TMP=NEW CFILE | |
150 | U DEVICE W TMP,! | |
151 | S ^CHMZHO LD($J,"VBA -SPONSOR-S POUSE-CLAI MS-4268",D FN,SPONFIL E)="" | |
152 | ;S ELECT 1000 ONLY PER REQUEST | |
153 | ;I CNT=10 01 G END | |
154 | Q | |
155 | NOICNT ; | |
156 | S ICNT=IC NT+1 | |
157 | Q | |
158 | SB ; | |
159 | ;W !,"SB= ",DFN," " ,BFN | |
160 | S SBCNT=S BCNT+1 | |
161 | S ^CHMZHO LD($J,"SB4 268",DFN,B FN)="" | |
162 | Q | |
163 | FMP ; | |
164 | S FMPCNT= FMPCNT+1 | |
165 | S ^CHMZHO LD($J,"FMP 4268",DFN) ="" | |
166 | Q | |
167 | NO109 ; | |
168 | S CNT109= CNT109+1 | |
169 | Q | |
170 | NOCLM ; | |
171 | S NOCLM=N OCLM+1 | |
172 | ;W !," NO CLAI M ",DFN," ",BFN | |
173 | S ^CHMZHO LD($J,"NOC LAIM4268", DFN,BFN)=" " | |
174 | Q | |
175 | NO12CLM ; | |
176 | S NO12CNT =NO12CNT+1 | |
177 | ;W !," NO CLAIM S 12 MOS ",DFN, " ",BFN," ",TFMDT | |
178 | S ^CHMZHO LD($J,"NO1 2CLAIM4268 ",DFN,BFN) ="" | |
179 | Q | |
180 | NOTELIG ; | |
181 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
182 | S ^CHMZHO LD($J,"NOT ELIG4268", DFN,BFN)=" " | |
183 | S NOAECNT =NOAECNT+1 | |
184 | Q | |
185 | END ; | |
186 | ;C DEVICE ;; DEF016554 REPLACE CL OSE WITH N EW CLOSE | |
187 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") | |
188 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ; ;DEF016554 CLOSE MOD IFIED 07/3 0/2015 | |
189 | D FTPFILE ^CHTFLIB9( DEVICE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
190 | W !," C OUNT=",CNT | |
191 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.