Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHBPEBN.m | Mon Nov 5 16:40:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPEBN.m | Mon Nov 5 17:37:12 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 408 |
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 | CHBPEBN ;C VA/AEB;SOR T/CREATE Z ERO PAY EO B VMS FILE ;05/17/99 8:29 AM | |
2 | ;V1.0 | |
3 | ;CPTS - 1 0283*,1080 4*, #16481 (RLC) | |
4 | ;TT DEF00 4849 - JEH 4/30/08 | |
5 | ;JEH 7/15 /08 - TT I ssue DEF00 5326 Modif iy ZEOB tr ansmit pro cess to Au stin | |
6 | ;TT #ENC0 05750: Bat ch file tr ansmission automated checklist - JEH 12/ 17/08 | |
7 | ;JEH 7/7/ 09 ENC0036 99: Set up a test en vironment for the pa yment batc h testing with AAC | |
8 | ;JEH 10/2 6/11 - Add ed file ba ckup '.COM ' | |
9 | ;DEV01580 3 AEB 11/ 20/2013 F IX PAYING OF REJECTE D CLAIMS | |
10 | ;DEF01655 4 SBB 11/ 27/2013 M odified Wr iting to a file as p er VHA sta ndard. | |
11 | ;MTN02123 6 Undefine d problem in line ta g PELIG ch anging CLM PT to CHCL MPT DRW 06 /09/2014 | |
12 | ;DEF01655 4 SBB 07/ 30/2015 A dding chan ges for DE CNET | |
13 | ; | |
14 | S ZTRTN=" A^CHBPEBN" ,ZTDESC="Z ERO EOB CR EATION" | |
15 | S ZTIO="" D ^%ZTLOA D | |
16 | I $$ENVIR ^CHTFLIB=" LIVE" W !! ,"Your tas k number i s ",ZTSK | |
17 | Q | |
18 | A D ^CHBPF 121 | |
19 | S:'$D(^CH MEOBQ("ZER O")) ^CHME OBQ("ZERO" )=1 | |
20 | I $P(^CHM EOBQ("ZERO "),"^",1)= 0 D MAIL1 Q | |
21 | I '$D(DT) D NOW^%DT C S DT=X | |
22 | S DAYPT=$ $DOW^XLFDT (DT,1) I ( DAYPT=0)!( DAYPT=6) Q ;SAT OR SUN CHK | |
23 | I $D(^HOL IDAY(DT)) Q ;CHECK S FOR HOLI DAY | |
24 | ;D SNATST 1 G:$D(CHM ERR) END | |
25 | K ^CHMZHO LD($J) | |
26 | S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG" | |
27 | I $$ENVIR ^CHTFLIB=" LIVE" S X= $ZF(-1,"SU BMIT HAC_H FS$:[DSMMA NAG.CHAMPV A]FMS_ZERO _COPY_DATA .COM") H 1 0 ;JEH 7/ 7/09 | |
28 | S1 S EOBFI L="HAC_HFS $:[DSMMANA G]ZEOB.DAT " | |
29 | I $$ENVIR ^CHTFLIB'= "LIVE" S E OBFIL="HAC _HFS$:[DSM MANAG]ZEOB _"_$$ENVIR ^CHTFLIB_" .DAT" ;JE H 7/7/09 | |
30 | ;DEF01655 4-11/27/13 -SBB use O PEN^%ZISH to open fi le | |
31 | ;O EOBFIL :"NWS" | |
32 | ;SBB 07/3 0/15 DEF01 6554 | |
33 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
34 | I '$$OPEN FIWR^CHTFL IB9(.EOBFI L,"EOBFIL" ) G END | |
35 | S U="^",C HEOBI=0,IN DFL=1,PFLG =1,TOT=0,T OT1=0,TOT2 =0,TOT3=0 | |
36 | D NOW^%DT C S CHHOLD I="EOB-"_X ,CHMMCT=3 | |
37 | START S CH EOBI=$O(^C HMEOBQ("C" ,0,CHEOBI) ) G:'CHEOB I END | |
38 | I '$D(^CH MEOBQ(CHEO BI,0)) K ^ CHMEOBQ("C ",0,CHEOBI ) G START | |
39 | S TOT1=TO T1+1 I TOT 1>30000 G END ;JEH 4/30/08 FIXED LOGI C ERROR OF LIMITING NUMBER OF ZEOB'S GOI NG TO AUST IN | |
40 | S CHCLMPT =$P(^CHMEO BQ(CHEOBI, 0),U,2) G: CHCLMPT="" START | |
41 | S X1=CHCL MPT D PROG TYP^CHFCD0 01 | |
42 | I $D(@(GL PAY_"CHCLM PT,""ARCHI VE"")")) D G START | |
43 | .Q:'$D(CH CLMPT) | |
44 | .S CHEOBI I=0,CHEOBI I=$O(^CHME OBQ("D",CH CLMPT,CHEO BII)) I 'C HEOBII K C HEOBII Q | |
45 | .S DIE=74 1010.1,DA= CHEOBII | |
46 | .S DR=".0 3///^S X=1 " D ^DIE K DIE | |
47 | .S CHMQNA M="CHMEOBQ (",CHMOUT= "" K CHMIN D ^CHMIS0 41 K CHEOB II | |
48 | .Q | |
49 | I '$D(@(G LPAY_"CHCL MPT,0)")) W !,"NO CH MPAY ZERO NODE ",CHC LMPT G STA RT | |
50 | S CHMC0=@ (GLPAY_"CH CLMPT,0)") | |
51 | S DFN=$P( CHMC0,U,21 ),BFN=$P(C HMC0,U,22) | |
52 | G:DFN="" START G:BF N="" START | |
53 | D BADDCHK I $D(SKFL G) K SKFLG G START | |
54 | I $P(CHMC 0,"^",5)=1 D G STAR T | |
55 | .S TOT=TO T+1,EDITYP ="NON" | |
56 | .S VENPT= $P(CHMC0,U ,3) I VENP T="" D Q | |
57 | ..S CHCI= CHCLMPT D ^CHMG4303 I BADFL=1 D Q ;IF BAD ADDRES S MUST BE VENDORIZED | |
58 | ...S ^CHM EOBQ("ZBAD ",CHCLMPT) ="" | |
59 | ...Q | |
60 | ..;HR-PBM -PHASE 1B- Begin | |
61 | ..;Team T rack #: 55 92 - HIPAA READY | |
62 | ..;Change d to call new 835 ro utine...th is routine phase out | |
63 | ..;S EDIT YP=$$CHPID ^CHEDIFU1( CHCLMPT) I EDITYP="" S EDITYP= "NON" | |
64 | ..S EDITY P=$$CHPID^ CH835FU1(C HCLMPT) I EDITYP="" S EDITYP=" NON" | |
65 | ..;HR-PBM -PHASE 1B- End | |
66 | ..I EDITY P'="NON" D Q ;IF N O VENDOR A ND EDI MUS T BE VENDO RIZED. | |
67 | ...S ^CHM EOBQ("ZBAD ",CHCLMPT) ="" | |
68 | ...Q | |
69 | ..S VENPT =EDITYP_"_ 0",^CHMZHO LD($J,"VEN ",VENPT,DF N,BFN,CHCL MPT)="" | |
70 | .;HR-PBM- PHASE 1B-B egin | |
71 | .;Team Tr ack #: 559 2 - HIPAA READY | |
72 | .;Changed to call n ew 835 rou tine...thi s routine phase out | |
73 | .;S EDITY P=$$CHPID^ CHEDIFU1(C HCLMPT) I EDITYP="" S EDITYP=" NON" | |
74 | .S EDITYP =$$CHPID^C H835FU1(CH CLMPT) I E DITYP="" S EDITYP="N ON" | |
75 | .;HR-PBM- PHASE 1B-E nd | |
76 | .S VENPT= EDITYP_"_" _VENPT | |
77 | .S ^CHMZH OLD($J,"VE N",VENPT,D FN,BFN,CHC LMPT)="" | |
78 | .;S ^CHMZ TONY("EOB- VEN",VENPT ,DFN,BFN,C HCLMPT)="" | |
79 | .Q | |
80 | I '$P(CHM C0,"^",5)= 1 D G STA RT | |
81 | .S TOT2=T OT2+1 | |
82 | .S ^CHMZH OLD($J,"BE N",DFN,BFN ,CHCLMPT)= "" | |
83 | .;S ^CHMZ TONY("EOB- BEN",DFN,B FN,CHCLMPT )="" | |
84 | .Q | |
85 | G START | |
86 | END ; | |
87 | D ^CHBPEB SD K ^CHMZ HOLD($J) | |
88 | D ^CHBPEB NF K ^CHMZ HOLD($J) | |
89 | D PSUDO | |
90 | ;DEF01655 4-11/27/13 -SBB use C LOSE^%ZISH to close file | |
91 | ;C EOBFIL | |
92 | D CLOSEF^ CHTFLIB9(E OBFIL,"EOB FIL") | |
93 | ;SBB 07/3 0/15 DEF01 6554 | |
94 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
95 | D ZWCLOSE ^CHMSNUTL( EOBFIL,132 ,512) ; JEH | |
96 | END1 K CHM C0,CHMC1,D FN,BFN,CHE OBI,^CHMZH OLD($J,"VE N"),^CHMZH OLD($J,"BE N") | |
97 | K CHEOB,X ,I,FILE,FM PCPT,FMPI, FMPINT,FMP J,FMSDOCID ,INDFL,IND FLG,J,LN,M | |
98 | K MAX,MAX CT,N,NCL,N UM,NY,ODFN ,OFFSET,OI ,EOBFIL,CH TRID,CHVIM ,CLMPT1 | |
99 | K CNTRY,C NTRYPT,CON TR,COUNT5, CPG,CTI,CT Z,DOS1,DR, ADDR3,ADDR 4,AMT1,ANC | |
100 | K AOB,BAD FL,BARCODE ,BASE,BENE PAY,BENESH ,CAB,CCODE ,CHADDID,C HBARCD,CHB M | |
101 | K CHCKINC ,CHCLIND,C HCLMPT,CHC LPT,CHDLIN ES,CHDUBL, CHELCT,CHE LCT1,CHEOB PT | |
102 | K CHFMSHD R,CHHOLDI, CHMFPDI,CH MINUS,CHPA GES,CHPG,C HPRGID,CHP RST,CHSINL | |
103 | K CHSTD,C HSTTYP,CHS TTYP1,COUN T,CT,PGLIM IT,PROFL,P STATE,R,RE AS,REC1,RL N | |
104 | K STATUS, TOT,TOT2,T OT3,VENDSH ,VET,VNPT, VREC1,VSSN ,X1,XX,Y,Z IP,CHSTID, CT1 | |
105 | K DA,DDER ,DIGIT,ETA B,PADDR3,P ADDR4,PAGE S,PCNTRYPT ,PDIJ,PFLG ,PG,PG1 | |
106 | K PCNTRY, PROVFL,IOV AR | |
107 | S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG" | |
108 | I $$ENVIR ^CHTFLIB=" LIVE" S X= $ZF(-1,"SU BMIT HAC_H FS$:[DSMMA NAG]BPZCOP Y.COM") H 15 ;BACK ING UP BP FILES TO H AC_HFS$:[A RC.BATCH] ;JEH 10/2 6/11 | |
109 | Q | |
110 | SET ;SET S TATUS IN E OBQ TO 3 A ND SUBTRAC T 1 FORM C HV SCREEN | |
111 | Q:'$D(CHC LPT) | |
112 | S CHEOBI= 0,CHEOBI=$ O(^CHMEOBQ ("D",CHCLP T,CHEOBI)) I 'CHEOBI K CHEOBI Q | |
113 | S DIE=741 010.1,DA=C HEOBI | |
114 | S DR=".03 ///^S X=3" D ^DIE K DIE | |
115 | S CHMQNAM ="CHMEOBQ( ",CHMOUT=" " K CHMIN D ^CHMIS04 1 K CHEOBI | |
116 | Q | |
117 | SNATST1 D START^CHMS N11B I $D( CHMERR) K CHMERR D S TART^CHMSN 11A I $D(C HMERR) S C HMSTAT=30 Q | |
118 | Q | |
119 | MAIL S TMP CT=1 | |
120 | S ^TMP($J ,"ZERO-EOB ",TMPCT)=" ",TMPCT=TM PCT+1 | |
121 | S ^TMP($J ,"ZERO-EOB ",TMPCT)=" The Zero/r ejected EO B file cre ated on "_ $$FMTE^XLF DT(DT,"1D" ) | |
122 | S TMPCT=T MPCT+1 | |
123 | S ^TMP($J ,"ZERO-EOB ",TMPCT)=" still need s to be se nt. Pleas e log onto the manag er account CHAMPVA d irectory a nd run FMS _SEND_ZERO _FTP.COM." | |
124 | S TMPCT=T MPCT+1,^TM P($J,"ZERO -EOB",TMPC T)="After sending se t ^CHMEOBQ (""ZERO"") =1. THAN K YOU" | |
125 | S XMDUZ=. 5,XMY("988 7")="",XMY ("2488")=" ",XMY("13" )="",XMY(" 9900")="", XMY("58243 ")="",XMY( "G.BATCH T RAN")="" | |
126 | S XMY("10 722")="",X MY("9993") ="",XMY("9 898")="" | |
127 | S XMY(" PII ")="" | |
128 | S XMTEXT= "^TMP($J," "ZERO-EOB" "," | |
129 | S XMSUB=" CVA/SB ZER O/REJ EOB SEND PROBL EM" D ^XMD | |
130 | Q | |
131 | MAIL1 S TM PCT=1 | |
132 | S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "",TMPCT=T MPCT+1 | |
133 | S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "The flag in ^CHMEOB Q(""ZERO"" ) is 0. P lease send the data file if ne ed, set " | |
134 | S TMPCT=T MPCT+1 | |
135 | S ^TMP($J ,"ZERO-EOB 1",TMPCT)= "^CHMEOBQ( ""ZERO"")= 1 and retr y." | |
136 | S TMPCT=T MPCT+1,^TM P($J,"ZERO -EOB1",TMP CT)=" TH ANK YOU" | |
137 | S XMDUZ=. 5,XMY("988 7")="",XMY ("2488")=" ",XMY("13" )="",XMY(" 9900")="", XMY("58243 ")="" | |
138 | S XMY("10 722")="",X MY("9993") ="",XMY("9 898")="",X MY("G.BATC H TRAN")=" " | |
139 | S XMY(" PII ")="" | |
140 | S XMTEXT= "^TMP($J," "ZERO-EOB1 ""," | |
141 | S XMSUB=" CVA & SB Z ERO/REJ EO B PROBLEM" D ^XMD | |
142 | Q | |
143 | PSUDO ;SET PSUDO VEN DOR WITH B AD ADDRESS ES INTO VE NDOR QUE | |
144 | S CLMPT=0 | |
145 | A1 S CLMPT =$O(^CHMEO BQ("ZBAD", CLMPT)) Q: CLMPT="" | |
146 | G:'$D(^CH MEOBQ("ZBA D",CLMPT)) A1 S X1=C LMPT D PRO GTYP^CHFCD 001 | |
147 | G:'$D(@(G LPAY_"CLMP T,0)")) A1 | |
148 | S CHMFCLN M=$P(@(GLP AY_"CLMPT, 0)"),"^",1 ) G:CHMFCL NM="" A1 | |
149 | S $P(@(GL PAY_"CLMPT ,0)"),"^", 2)=1 | |
150 | I $D(@(GL PAY_"CLMPT ,""EOB-CAT /DED"")")) K @(GLPAY _"CLMPT,"" EOB-CAT/DE D"")") | |
151 | I $D(@(GL PAY_"CLMPT ,""EOB-CLA IMS"")")) K @(GLPAY_ "CLMPT,""E OB-CLAIMS" ")") | |
152 | I $D(@(GL PAY_"CLMPT ,""EOB-CLA IMS/PROV"" )")) K @(G LPAY_"CLMP T,""EOB-CL AIMS/PROV" ")") | |
153 | I $D(^CHM EOBQ("D",C LMPT)) D | |
154 | .S CHEOBP T=0,CHEOBP T=$O(^CHME OBQ("D",CL MPT,CHEOBP T)) Q:'CHE OBPT | |
155 | .S DIK="^ CHMEOBQ(", DA=CHEOBPT D ^DIK | |
156 | .Q | |
157 | I $D(^CHM QVN("G",CL MPT)) D | |
158 | .S CHQVNP T=0,CHQVNP T=$O(^CHMQ VN("G",CLM PT,CHQVNPT )) Q:'CHQV NPT | |
159 | .S DIK="^ CHMQVN(",D A=CHQVNPT D ^DIK | |
160 | .Q | |
161 | S CHMFCLP T=CLMPT,X1 =CLMPT D P ROGTYP^CHF CD001 | |
162 | D ^CHFCD1 03 K ^CHME OBQ("ZBAD" ,CLMPT) | |
163 | S $P(@(GL PAY_"CLMPT ,3)"),"^", 7)=1 ;AEB DEV015803 11/20/201 3 | |
164 | G A1 | |
165 | Q | |
166 | BADDCHK ;C HECKS FOR A VALID BE NE ADDRESS | |
167 | I '$D(^AH CHVA(DFN,1 00,BFN,1)) S SKFLG=" " D PELIG D EKILL Q | |
168 | I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",1)="" S SKFLG="" D PELIG D EKILL Q | |
169 | I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=0 D Q | |
170 | .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",3)="" S SKFLG="" D PELIG D EKILL Q | |
171 | .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",4)="" S SKFLG="" D PELIG D EKILL Q | |
172 | .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",5)="" S SKFLG="" D PELIG D EKILL Q | |
173 | I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=1 D Q | |
174 | .I $P(^AH CHVA(DFN,1 00,BFN,1), "^",13)="" S SKFLG=" " D PELIG D EKILL Q | |
175 | Q | |
176 | PELIG ;P UT INTO PE NDING STAT US, PUT IN ELIGIBLIT Y QUEUE | |
177 | I '$D(CHM FPDI) D | |
178 | .S CHPDIP T=9999999 | |
179 | .S CHPDIP T=$O(@(GLP AY_"CHCLMP T,""PDI"", CHPDIPT)") ,-1) Q:'CH PDIPT | |
180 | .Q:'$D(@( GLPAY_"CHC LMPT,""PDI "",CHPDIPT ,0)")) | |
181 | .S CHMFPD I=$P(@(GLP AY_"CHCLMP T,""PDI"", CHPDIPT,0) "),"^",1) | |
182 | .Q | |
183 | I $D(@(GL PAY_"CHCLM PT,""ZEMC" ",""CMOP"" )")) S CHC MPCLI=CHCL MPT,CHQNAM ="ELIGIBIL ITY",CHQUR SN="ELG/3" D ^CHMXCP BP I $D(CH CMPFG) K C HCMPFG Q ; ADDED BY DTP (MAY/ 1995) FOR CMOP PROJE CT | |
184 | I $P(@(GL PAY_"CHCLM PT,0)"),"^ ",28)=1 S REAS="Elig ibility Qu eue - Pend ing Review Status" D MAIL^CHFC D015 Q | |
185 | S %DT="", X="T" D ^% DT S DT=Y Q:'$D(CHMF PDI) S I= CHCLMPT | |
186 | Q:$D(^CHM ELQ("C",I) ) | |
187 | G PEXIT:' $D(@(GLPAY _"I,0)")) G:DFN="" P EXIT G:BFN ="" PEXIT | |
188 | S:'$D(^CH MELQ(0)) ^ (0)="CHAMP VA ELIGIBI LITY QUEUE ^741010.14 ^0^0" | |
189 | S X=$P($H ,",",2),H= X\3600,M=X #3600\60,S =X-(H*3600 )-(M*60) S :H<10 H=0_ H | |
190 | S:M<10 M= 0_M S:S<10 S=0_S S C HMDATE=+(D T_"."_H_M_ S) L ^CHME LQ(0) | |
191 | S X=$P(^C HMELQ(0)," ^",3)+1,$P (^(0),"^", 3)=X,$P(^( 0),"^",4)= X L S DAX =X | |
192 | S CHMFI=I ,CHMFPP="S QELG" D ^C HMFWK02 ; ADDED BY J LR FOR WOR KFLOW | |
193 | S ^CHMELQ (DAX,0)=CH MDATE_"^"_ I_"^"_DUZ_ "^^^0^"_DU Z_"^"_DFN_ "^"_BFN_"^ "_CHMFPDI | |
194 | S CHMQNAM ="CHMELQ(" ,CHMIN="" K CHMOUT D ^CHMIS041 ;SYSTEM S TATISTICS | |
195 | S ^CHMELQ ("B",0,999 9999-(CHMD ATE\1),DAX )="",^CHME LQ("C",I,D AX)="" | |
196 | S ^CHMELQ ("D",0,DFN ,BFN,DAX)= "" | |
197 | S ^CHMELQ ("F",0,DAX )="" | |
198 | S DIE=GLP AY,DA=X1 | |
199 | S DR=".02 ///^S X=1" D ^DIE | |
200 | S $P(@(GL PAY_"CHCLM PT,3)"),"^ ",7)=1 ;AEB DEV01 5803 11/20 /2013 ;MTN 021236 06 /09/2014 | |
201 | PEXIT Q | |
202 | EKILL ;KIL L CLAIM FR OM EOB QUE | |
203 | S CHEOBII =0,CHEOBII =$O(^CHMEO BQ("D",CHC LMPT,CHEOB II)) I 'CH EOBII K CH EOBII Q | |
204 | S DIK="^C HMEOBQ(",D A=CHEOBII D ^DIK K D IK,DA | |
205 | S CHMQNAM ="CHMEOBQ( ",CHMOUT=" " K CHMIN D ^CHMIS04 1 K CHEOBI I | |
206 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.