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 | CHM4268H.m | Mon Nov 5 16:44:47 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHM4268H.m | Fri Nov 9 01:35:22 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 334 |
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 | CHM4268H ; HAC/AHJ;SP ONSORS FIL E NUMBERS WITH CHILD HELPLESS BENE'S WIT H CLAIMS L AST 12 MO' S | |
2 | ;;1.0;CHA MPVA;;09/3 0/09;Build 2 | |
3 | ;AHJ FRO M ZA4268HC | |
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 TOTAMT= 0 | |
11 | S BENESW= 0 | |
12 | S ^CHMZHO LD($J,"BEN E-NA-LABEL S")="" | |
13 | K ^CHMZHO LD($J,"NAM E-ADD4268" ) | |
14 | K ^CHMZHO LD($J,"FMP 4268") | |
15 | K ^CHMZHO LD($J,"NO1 2CLAIM4268 ") | |
16 | K ^CHMZHO LD($J,"YES 12CLAIM426 8") | |
17 | K ^CHMZHO LD($J,"NOT ELIG4268") | |
18 | K ^CHMZHO LD($J,"SB4 268") | |
19 | K ^CHMZHO LD($J,"FMP 4268") | |
20 | K ^CHMZHO LD($J,"NOC LAIM4268") | |
21 | ; | |
22 | K ^CHMZHO LD($J,"VBA -SPONSOR-C HILD-PD-CL AIMS-4268" ) | |
23 | S CHTMPDT =$$FMTE^XL FDT(DT,"5D ") | |
24 | S CHFILDT =$$STRIP^X LFSTR(CHTM PDT,"/") | |
25 | ;S DEVICE ="HACFS3"" DNS HACdec741 !""::D:[FS 3BIG]VBASp onChild"_C HFILDT_".T XT" | |
26 | 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 | |
27 | S FILENM1 ="VBASponC hild"_CHFI LDT_".TXT" | |
28 | S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM1 | |
29 | I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM1 | |
30 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;;DEF01655 4 OPEN AND CLOSE MOD IFIED 07/ 30/2015 | |
31 | I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" ) W "FILE NOT AVAIL ABLE AT TH IS MOMENT" Q | |
32 | ;O DEVICE C DEVICE: "D" | |
33 | ;O DEVICE :"NWV" | |
34 | ; | |
35 | A1 ; | |
36 | ;FIND TOD AYS DATE F OR AGE TES T | |
37 | D NOW^%DT C S RUNTIM E=% | |
38 | S Y=$E(RU NTIME,1,7) | |
39 | S CHDATE= Y | |
40 | ; 12 MO NTHS | |
41 | S X1=CHDA TE S X2=-3 65 D C^%DT C S STRDAT =X | |
42 | ;MOVE TO 7 YEARS 3 65*7=2555 | |
43 | S STRDAT= $$FMADD^XL FDT(CHDATE ,-2555,0,0 ,0) ;AEB DEV006444 9/25/2009 | |
44 | ; STRDAT = Start D ate | |
45 | ; CHDATE = Todays Date | |
46 | S TODAY=C HDATE | |
47 | S DAT12=S TRDAT | |
48 | ; | |
49 | S (BENESW ,DFN,BICNT )=0 | |
50 | S DFN=0 | |
51 | D GETDFN, END | |
52 | Q | |
53 | ABA ; | |
54 | S DFN=$O( ^AHCHVA(DF N)) Q:'DF N | |
55 | S BFN=0 | |
56 | ABB ; | |
57 | S BFN=$O( ^AHCHVA(DF N,100,BFN) ) G:'BFN A BA | |
58 | W !,"DFNB FN=",DFN," ",BFN | |
59 | G ABB | |
60 | ; | |
61 | ; ALL ELI GIBLE/ACTI VE BENE'S ON TODAY | |
62 | ;******** ********** ********** ********** ********** ***** | |
63 | ; CHAMPVA BENE FILE | |
64 | GETDFN ; | |
65 | I BENESW= 1 D WANTIT | |
66 | ;Q:CNT=10 00 | |
67 | S TOTAMT= 0 | |
68 | S DFN=$O( ^AHCHVA(DF N)) Q:'DFN | |
69 | G:$D(^AHC HVA("FMP", DFN)) GETD FN | |
70 | G:'$D(^AH CHVA(DFN,0 )) GETDFN | |
71 | S SPON=^A HCHVA(DFN, 0) | |
72 | S SN=$P(S PON,"^",1) ,BFN="",BN ="" ;AEB DEV007799 9/24/2009 | |
73 | S T=$$DEL CHK^CHTFLI B(SN,DFN,B N,BFN) ;A EB DEV0077 99 9/24/20 09 | |
74 | I T=1 G G ETDFN ;AE B DEV00779 9 9/24/200 9 | |
75 | S SPONFIL E=$P(SPON, U,7) | |
76 | S BFN=0 | |
77 | ;W !,"DFN=", DFN | |
78 | GETBFN S B FN=$O(^AHC HVA(DFN,10 0,BFN)) G: 'BFN GETDF N | |
79 | G:$D(^AHC HVA("SB",D FN,BFN)) G ETBFN | |
80 | ;W !,"DFN BFN=",DFN, " ",BFN | |
81 | ;G GETBFN | |
82 | ; | |
83 | ;CHECK DA TES OF ELI GIBILITY F OR BENE | |
84 | ; | |
85 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) D NO109 G GETBFN | |
86 | I '$D(^AH CHVA(DFN,1 00,BFN,1)) D NO109 G GETBFN | |
87 | ; | |
88 | ;WANT BEN E HELPLESS CHILD ONL Y | |
89 | S BEN0=^A HCHVA(DFN, 100,BFN,0) | |
90 | I $P(BEN0 ,"^",6)?7N G GETBFN ;AEB DEV0 07799 9/24 /2009 SKIP IF DATE O F DEATH IS 7 NUMERIC S | |
91 | S BREL=$P (BEN0,U,4) | |
92 | I BREL="C " G G0 | |
93 | G GETBFN | |
94 | G0 ; | |
95 | S BHELP=$ P(BEN0,U,3 3) | |
96 | I BHELP=1 G G1 | |
97 | G GETBFN | |
98 | G1 ; | |
99 | I '$D(^AH CHVA(DFN,1 00,BFN,109 )) D NO109 G GETBFN | |
100 | S J1=0 | |
101 | G2 S J1=$O (^AHCHVA(D FN,100,BFN ,109,J1)) G:'J1 GETB FN | |
102 | S J2=0 | |
103 | S J2=$O(^ AHCHVA(DFN ,100,BFN,1 09,J1,J2)) G:'J2 G2 | |
104 | I J1>CHDA TE D NOTEL IG G GETBF N | |
105 | I J2<CHDA TE D NOTEL IG G GETBF N | |
106 | ; | |
107 | ;CLAIMS P ROCESSING HERE | |
108 | ; | |
109 | L322 S CHD FNI=$O(^CH MDFN("B",D FN,0)) G G ETDFN:'CHD FNI | |
110 | ; | |
111 | S CHDFNJ= $O(^CHMDFN (CHDFNI,10 0,"B",BFN, 0)) G GETD FN:'CHDFNJ | |
112 | S CHDFNK= 0 ;START A T FRONT | |
113 | LOOP22 ; | |
114 | ; RETURN AFTER LAST CLAIM TO BENE NEXT LINE | |
115 | S CHDFNK= $O(^CHMDFN (CHDFNI,10 0,CHDFNJ,1 00,CHDFNK) ) G:'CHDFN K GETBFN | |
116 | G:$D(^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0)) MAI N22 | |
117 | G L322 | |
118 | MAIN22 ; | |
119 | S CI=^CHM DFN(CHDFNI ,100,CHDFN J,100,CHDF NK,0) | |
120 | G LOOP22: '$D(^CHMPA Y(CI,0)) | |
121 | ;CONVERT PDI TO CLA IM FILED D ATE | |
122 | S PDIJ="" | |
123 | S PDIJ=$O (^CHMPAY(C I,"PDI","B ",PDIJ),-1 ) | |
124 | G:PDIJ="" LOOP22 | |
125 | S TFMDT=$ $PDIJULFM^ CHMFPDI2(P DIJ) | |
126 | ;TEST TES T TEST TES T TEST ONL Y NEXT LIN E | |
127 | ;I TFMDT< DAT12 W !, " DATE OLD ER 12 MONT HS=",TFMDT | |
128 | ; | |
129 | G:TFMDT<D AT12 LOOP2 2 ;NO CLAI MS OVER 7 YEARS OLD | |
130 | ;G:TFMDT> 3061215 LO OP22 ;REST OF CLAIMS ARE OVER JAN 1, 200 6 | |
131 | CLAIMDAT ; | |
132 | ; | |
133 | G:'$D(^CH MPAY(CI,1) ) LOOP22 | |
134 | S DATAPAY =^CHMPAY(C I,1) | |
135 | S CLMAMT= $P(DATAPAY ,U,1) | |
136 | I CLMAMT< 1.00 G LOO P22 ;CLAIM S LESS $1 DO NOT QUA LIFY | |
137 | ; | |
138 | S STATUS= $P(^CHMPAY (CI,0),"^" ,2) | |
139 | I STATUS' =4 G LOOP2 2 ; WANT O NLY PAID ( COMPLETED) CLAIMS | |
140 | ;W !,"CLA IM OK TO U SE=",CI," ",TFMDT | |
141 | S BENESW= 1 | |
142 | G LOOP22 | |
143 | Q | |
144 | WANTIT ;NE XT FILE FO R SPONSOR WITH A HEL PLESS CHIL D BENE WIT H DATES OF ELIG W/12 MO CLAIMS | |
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-C HILD-PD-CL AIMS-4268" ,DFN,BFN,S PONFILE)=" " | |
152 | ;I CNT=10 01 G END | |
153 | ;W !,DFN, " ",BFN," ",CNT," ", SPONFILE | |
154 | Q | |
155 | NO109 ; | |
156 | S CNT109= CNT109+1 | |
157 | Q | |
158 | NOTELIG ; | |
159 | ;W !," NOT ELIG DATES ",DF N," ",BFN, " ",J1," " ,J2 | |
160 | S ^CHMZHO LD($J,"NOT ELIG4268", DFN,BFN)=" " | |
161 | S NOAECNT =NOAECNT+1 | |
162 | Q | |
163 | END ; | |
164 | ;C DEVICE ;; DEF016554 REPLACE CL OSE WITH N EW CLOSE | |
165 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") | |
166 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ; ;DEF016554 CLOSE MOD IFIED 07/3 0/2015 | |
167 | D FTPFILE ^CHTFLIB9( DEVICE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
168 | W !," C OUNT=",CNT | |
169 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.