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 | CHBPACS.m | Mon Nov 5 16:44:14 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPACS.m | Tue Nov 6 21:31:37 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 6 | 522 |
Changed | 5 | 14 |
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 | CHBPACS ;C VA/JEH;CHE CK OUTGOIN G BAT FILE S TO AAC F OR DUPS;04 /13/98 3: 21 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;MAY 29, 2014 | |
3 | ;JEH 2/29 /08 - FIX $T LOGIC | |
4 | ;JEH 7/15 /08 - TT I ssue DEF00 5326 Modif iy ZEOB tr ansmit pro cess to Au stin | |
5 | ;JEH (DEF 007125) 4/ 23/09 - FI X DUP CHEC K LOGIC | |
6 | ;RVS 12/8 /2011 - ad ded Austin Return Fi le backups to be sto red in HAC _HFS$:[ARC .BATCH.RET URN] | |
7 | ;JEH 12/0 9/11 - Add ed ARC mes sage | |
8 | ;JEH 7/27 /12 - TT M TN015348: Added ADHO C vendor u pdate | |
9 | ;SBB 12/2 4/13 DEF01 6554 - Mod ified EOF handling a s per VHA standard. | |
10 | ; - Con verting fr om DECNET to FTP. | |
11 | ;MTN02114 3: CORRECT ION TO BAT CH UPDATE MESSAGE;; DRW 05/29/ 2014 | |
12 | ;SBB 07/3 0/15 - DEF 016554: Ad ding chang es for DEC NET | |
13 | ; | |
14 | START ;USE QUEA^CHBP ACS TO QUE ROUTINE T O RUN IN B ACKGROUND | |
15 | Q:$$ENVRM T="TRAIN" ;QUIT IF NOT LIVE | |
16 | Q:$$ENVRM T="DEV" ;QUIT IF NOT LIVE | |
17 | Q:$$ENVRM T="TRAIN" ;QUIT IF NOT LIVE | |
18 | G:$D(^CHM ZHOLD("BAT CH_DUP_CHK _RUNNING") ) ENDB | |
19 | G:$D(^CHM ZHOLD("BAT CH_RUNNING ")) ENDC | |
20 | D INIT | |
21 | D LDFCAPP | |
22 | Q:QNFLG=1 | |
23 | D LDFCALM | |
24 | Q:QNFLG=1 | |
25 | I $D(^CHM ZHOLD("POS _BP_DUPS") ) D | |
26 | .D MMMSG ; SEN D DUPLICAT E MESSAGE | |
27 | E D | |
28 | .U 0 W !! ,"*** SEND ING FILES - NO DUPS ***" | |
29 | .D SNDFLS ; SEND FILES IF N O DUPLICAT ES | |
30 | .D FS3FL ;SEND FI LE TO FS3B IG TO ALER T MOVEIT | |
31 | D END | |
32 | Q | |
33 | INIT ;INIT IALIZING | |
34 | S (CTR,DC TR)=0 | |
35 | S QNFLG=0 | |
36 | S SENDDT= "" | |
37 | D NOW^%DT C S SENDDT =X ; DA TE SENDING FILES TO AAC | |
38 | S ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")="C HBPACS" | |
39 | Q | |
40 | LDFCAPP ;L OADING FMS CAPP CLAI MS | |
41 | U 0 W !," INSIDE LDF CAPP",! | |
42 | ;SBB 07/3 0/15 DEF01 6554 | |
43 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
44 | S FCPIO=" HAC_HFS$:[ DSMMANAG]F MS_CAPP_FI LE.DAT" | |
45 | ;DEF01655 4-12/24/13 -SBB call OPEN^%ZISH to open t he file | |
46 | ;O IO:"R" :5 | |
47 | ;I $T=0 D OERR Q ;JEH 7/2 2/09 - MOV ED UP A LI NE | |
48 | I '$$OPEN FIRD^CHTFL IB9(.FCPIO ,"FCPIO") D OERR(FCP IO) Q | |
49 | S CTRPP=0 | |
50 | S $ZE="" S $ZT="LFQ ^CHBPACS" | |
51 | ;S $ZT="O ERR^CHBPAC S" S $ZE=" " U IO I $ ZE["NOTOPE N" Q ;JE H 2/29/08 | |
52 | ;DEF01655 4-12/24/13 -SBB use S TATUS^%ZIS H to check for EOF | |
53 | ;F U IO R REC S RE CLN=$E(REC ,1) D:RECL N="L" | |
54 | F U FCPI O R REC G: $$STATUS^% ZISH LFQ S RECLN=$E( REC,1) D:R ECLN="L" | |
55 | .S CHCLM= "" S CHCLM =$E(REC,65 ,71) | |
56 | .S CHPRGM =$E(REC,62 ,64) | |
57 | .S CTRPP= CTRPP+1 | |
58 | .;I $D(^C HBPACC("B" ,CHCLM)) I '$D(^CHMS NA(741008. 6,"F",CHCL MI)) D LDD UP | |
59 | .I $D(^CH BPACC("B", CHCLM)) D LDDUP | |
60 | .;U 0 W ! ,"INSIDE L DFCAPP F-L OOP",?35,C HCLM,?50,C TRPP ;UNC OMMENT TO DISPLAY CL AIMS BEING CHECKED | |
61 | ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH to close file | |
62 | ;C IO | |
63 | D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O") | |
64 | ;SBB 07/3 0/15 DEF01 6554 | |
65 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
66 | Q | |
67 | LDFCALM ;L OADING FMS CALM CLAI MS | |
68 | U 0 W !," INSIDE LDF CALM",! | |
69 | ;SBB 07/3 0/15 DEF01 6554 | |
70 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
71 | S FCLIO=" HAC_HFS$:[ DSMMANAG]F MS_CALM_FI LE.DAT" | |
72 | ;DEF01655 4-12/24/13 -SBB call OPEN^%ZISH to open t he file | |
73 | ;O IO:"R" :5 | |
74 | ;I $T=0 D OERR Q ;JEH 7/2 2/09 - MOV ED UP A LI NE | |
75 | I '$$OPEN FIRD^CHTFL IB9(.FCLIO ,"FCLIO") D OERR(FCL IO) Q | |
76 | S CTRLM=0 | |
77 | S $ZE="" S $ZT="LLQ ^CHBPACS" | |
78 | ;S $ZT="O ERR^CHBPAC S" S $ZE=" " U IO I $ ZE["NOTOPE N" Q ;JE H 2/29/08 | |
79 | ;DEF01655 4-12/24/13 -SBB use S TATUS^%ZIS H to check for EOF | |
80 | ;F U IO R REC S RE CLN=$E(REC ,1) D:RECL N="L" | |
81 | F U FCLI O R REC G: $$STATUS^% ZISH LLQ S RECLN=$E( REC,1) D:R ECLN="L" | |
82 | .S CHCLM= "" S CHCLM =$E(REC,65 ,71) | |
83 | .S CHPRGM =$E(REC,62 ,64) | |
84 | .S CTRLM= CTRLM+1 | |
85 | .;I $D(^C HBPACC("B" ,CHCLM)) I '$D(^CHMS NA(741008. 6,"F",CHCL MI)) D LDD UP | |
86 | .I $D(^CH BPACC("B", CHCLM)) D LDDUP | |
87 | .;U 0 W ! ,"INSIDE L DFCALM F-L OOP",?35,C HCLM,?50,C TRLM ;UNC OMMENT TO DISPLAY CL AIMS BEING CHECKED | |
88 | ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH to close file | |
89 | ;C IO | |
90 | D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O") | |
91 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
92 | Q | |
93 | OERR(FN) ; | |
94 | W !!,"NOT ABLE TO O PEN FILE: ",FN,!! | |
95 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
96 | D KVAR | |
97 | S QNFLG=1 ;QUIT NO W FLAG | |
98 | Q | |
99 | LFQ ;QUIT LOOP IF EN D OF FILE IS REACHED | |
100 | ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH to close file | |
101 | ;C IO | |
102 | D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O") | |
103 | ;SBB 07/3 0/15 DEF01 6554 | |
104 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
105 | Q | |
106 | LLQ ; ;SBB 08/04/15 DEF016554 | |
107 | ; | |
108 | D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O") | |
109 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
110 | Q | |
111 | LDDUP ;LOA D DUP CLMS IN TEMP G LOBAL | |
112 | K QFLG | |
113 | S I=0 F S I=$O(^CH BPACC("B", CHCLM,I)) Q:'I D | |
114 | .S CHCLMI =0 S CHCLM I=$O(^CHMP AY("B",CHC LM,CHCLMI) ) | |
115 | .Q:$D(^CH MSNA(74100 8.6,"F",CH CLMI)) ; QUIT IF R EISSUE CLA IM/CHECK | |
116 | .S (CHDOC ID,CHPRGM, CHPAYEE,CH CAT)="" | |
117 | .S CHDOCI D=$E(REC,2 5,35) | |
118 | .S CHPRGM =$E(REC,62 ,64) | |
119 | .S CHPAYE E=$E(REC,7 3,81) | |
120 | .S ACCDT= $P(^CHBPAC C(I,0),"^" ,1) | |
121 | .S CHCAT= "" | |
122 | .S IVAL=I ;JEH 7/22/09 - ADDED IVAL | |
123 | Q:'$D(CHD OCID) | |
124 | I $D(^CHM SNA(741008 .2,"AE",CH DOCID)) S CHCAT="P" ; SET C AT TYPE TO PROVIDER/ VENDOR | |
125 | I $D(^CHM SNA(741008 .3,"AE",CH DOCID)) S CHCAT="B" ; SET C AT TYPE TO BENE/FMP | |
126 | ;LOGIC TO DETERMINE IF CLAIM IS TRUELY A DUP | |
127 | I $D(^CHM SNA(741008 .2,"AE",CH DOCID))&($ D(^CHMSNA( 741008.3," AE",CHDOCI D))) D | |
128 | .S QFLG=" " | |
129 | E I $D(^ CHMSNA(741 008.2,"AE" ,CHDOCID)) D | |
130 | .S CHCAT= "P" ; S ET CAT TYP E TO PROVI DER/VENDOR | |
131 | .I ((CHCA T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHCAT="P" )) D ; JEH 7/22/0 9 - ADDED IVAL | |
132 | ..S QFLG= "" | |
133 | E I $D(^ CHMSNA(741 008.3,"AE" ,CHDOCID)) D | |
134 | .S CHCAT= "B" ; S ET CAT TYP E TO BENE/ FMP | |
135 | .I ((CHCA T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHCAT="B" )) D ; JEH 7/22/0 9 - ADDED IVAL | |
136 | ..S QFLG= "" | |
137 | I CHCAT=" " D Q ;JEH (DE F007125) 4 /23/09 | |
138 | .S QFLG=" " | |
139 | Q:'$D(QFL G) | |
140 | S ^CHMZHO LD("POS_BP _DUPS",$J, CHCLM)=ACC DT_"^"_CHD OCID_"^"_C HPRGM_"^"_ CHPAYEE_"^ "_CHCAT_"^ "_SENDDT | |
141 | S DCTR=DC TR+1 | |
142 | Q | |
143 | MMMSG ;MES SAGE ALERT ING POSSIB LE DUPS | |
144 | U 0 W !," *** POSSIB LE DUPL CL AIMS - BAT CH FILES N OT SENT ** *" | |
145 | S CNT=1,^ TMP($J,"PO SS-DUPL-CL MS",CNT)=" ",CNT=CNT+ 1 | |
146 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="****** ********** ********** *********" ,CNT=CNT+1 | |
147 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="** BATCH FIL ES NOT SEN T **" ,CNT=CNT+1 | |
148 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="*** ***" ,CNT=CNT+1 | |
149 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="**** P OSSIBLE DU PLICATE CL AIMS ****" ,CNT=CNT+1 | |
150 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="*** ***" ,CNT=CNT+1 | |
151 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="** FROM ^CHBPACS **" ,CNT=CNT+1 ;JEH 2/29/08 | |
152 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="****** ********** ********** *********" ,CNT=CNT+1 | |
153 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
154 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" NUMB ER OF POSS IBLE DUPLI CATE CLAIM S: "_DCTR, CNT=CNT+1 | |
155 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
156 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" SEE GLOBAL ^CH MZHOLD(""P OS_BP_DUPS "","_$J,CN T=CNT+1 | |
157 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="" | |
158 | S XMTEXT= "^TMP($J," "POSS-DUPL -CLMS""," | |
159 | S XMDUZ=. 5 | |
160 | S XMY(582 43)="" | |
161 | S XMY(988 7)="" | |
162 | S XMY(" PII ")="" | |
163 | S XMY(" PII ")="" | |
164 | S XMSUB=" BP DUP CLA IMS CHK - ^CHBPACS" D ^XMD | |
165 | Q | |
166 | SNDFLS ;SE ND FILES T O AUSTIN | |
167 | U 0 W !," *** SENDIN G FILES TO AUSTIN ** *" | |
168 | S DUMMY=" HAC_HFS$:[ DSMMANAG.C HAMPVA]DUM MY.LOG" | |
169 | U 0 W:'$D (ZTSK) !," SAVING PAY MENT DATA FILES TO H AC_HFS$:[A RC.EOB]" ;JEH 12/4/ 09 | |
170 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _COPY_DATA _FILES.COM ") H 60 ; JEH 12/4/0 9 | |
171 | U 0 W:'$D (ZTSK) !," SAVING ZEO B DATA FIL E TO HAC_H FS$:[ARC.E OB]" ;JEH 12/4/09 | |
172 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _COPY_ZEOB _DATA_FILE S.COM") H 10 ;JEH 1 2/4/09 | |
173 | U 0 W:'$D (ZTSK) !," SAVING S74 1CH*.1PART DATA FILE s TO HAC_H FS$:[ARC.B ATCH.RETUR N]" ;JEH 12/9/2011 | |
174 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG]B ATCHRETURN .COM") H 1 0 ;RVS 12/ 8/2011 | |
175 | U 0 W:'$D (ZTSK) !," SAVING FMS _VNUPDT_FI LE.DAT DAT A FILE TO HAC_HFS$:[ ARC.EOB]" ;JEH 7/27 /12 - TT M TN01534 | |
176 | S X=$ZF(- 1,"SUBMIT/ LOG=HAC_HF S$:[DSMMAN AG.CHAMPVA ] HAC_HFS$ :[DSMMANAG .CHAMPVA]F MS_SEND_VN UPDT.COM") H 3 ;JEH 7/27/12 - TT MTN0153 4 DRW - R EMOVE THE LOG MTN019 518 | |
177 | D QFLCHK^ CHBPACS ; QUE OFF AU STIN FILE CHECK 1HR LATER | |
178 | Q | |
179 | UPLG ;UPDA TE LOG | |
180 | N DTGD,DT GT,DT ;;MT N021143 DR W 05/29/20 14 | |
181 | I '$D(DT) D NOW^%DT C S DT=X,D TGD=$P(%," .",1),DTGT =$P(%,".", 2) | |
182 | I '$D(DUZ ) S DUZ=39 8103,DUZ(0 )="@" ;;MT N021143 AD DED HARD C ODED DUZ I N ORDER TO RUN COM F ILE | |
183 | D FILOG^C HBPACL(DT, 1,1,1,1,1, 1,1,0,0,0, 0,0) ;LA YOUT (DT,E OB,EOB1,ZE OB,FCAPP,F CALM,VCAPP ,VCALM,CH2 1,CH22,CH2 3,CH24,CH2 7) ;JEH 12/17/08 | |
184 | S ^TMP($J ,"AUSTIN-V ERI-FILE", 1)="CHAMPV A BATCH FI LE LOG HAS BEEN UPDA TED" | |
185 | S XMTEXT= "^TMP($J," "AUSTIN-VE RI-FILE"", " | |
186 | S XMDUZ=. 5 | |
187 | S XMY(582 43)="" | |
188 | S XMY(988 7)="" | |
189 | S XMY(" PII ")="" | |
190 | S XMY(" PII ")="" | |
191 | S XMSUB=" BATCH LOG UPDTD/COMP LTD "_DTGD _"@"_DTGT D ^XMD | |
192 | Q | |
193 | QUEA ;QUE THIS ROUTI NE MANUALL Y. | |
194 | I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@" | |
195 | D NOW^%DT C S DT=X | |
196 | S DTIME=3 00 | |
197 | S U="^" | |
198 | S CHFIO=" " | |
199 | S ZTRTN=" START^CHBP ACS",ZTDES C="LOADING ACCPT CLM S FROM RET URN BATCH FILE" | |
200 | S ZTIO="" ,ZTSAVE("C HFIO")="" | |
201 | D ^%ZTLOA D | |
202 | Q | |
203 | END ;END O F ROUTINE CHBPACS | |
204 | ;C IO | |
205 | ;SBB 07/3 0/15 DEF01 6554 | |
206 | D CLOSEF^ CHTFLIB9(F CLIO,"FCLI O") | |
207 | D CLOSEF^ CHTFLIB9(F CPIO,"FCPI O") | |
208 | D KVAR | |
209 | W !,"*** End of ^CH BPACS ***" | |
210 | Q | |
211 | ENDB ;END IF DUP CHK IS RUNNIN G | |
212 | W !,"The Duplicate Claims Che ck is Runn ing. Try a gain later ...",! | |
213 | Q | |
214 | ENDC ;END IF BATCH P ROCESSING IS RUNNING | |
215 | W !,"Batc h Processi ng is Runn ing. Try a gain later ...",! | |
216 | Q | |
217 | KVAR ; | |
218 | K ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING") | |
219 | K CTR,DCT R,IO,RECLN ,CHCLM,CHC LMI,QFLG | |
220 | K ACCDT,C HDOCID,CHP RGM,CHPAYE E,CHCAT,SE NDDT,DUMMY | |
221 | Q | |
222 | ENVRMT() ; SET ENVIRO NMENT | |
223 | I '$D(XQV OL) D | |
224 | .S ENVIR= ^DD("SITE" ) | |
225 | .S ENVIR= $S(ENVIR=" D NS ":"DEV",EN VIR="
|
|
226 | E D | |
227 | .S AYGSYS =XQVOL | |
228 | .S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
229 | Q ENVIR | |
230 | QFLCHK ;QU EUE FILE C HECK IN AU STIN | |
231 | D NOW^%DT C S PKDT=% | |
232 | S PICKDT= $$FMADD^XL FDT(PKDT,0 ,0,30,0) | |
233 | S ZTIO="" ,ZTRTN="QF L1^CHBPACS ",ZTDESC=" CHECK FMS FILE EXIST ANCE" | |
234 | S ZTDTH=P ICKDT S ZT IO="" D ^% ZTLOAD | |
235 | Q | |
236 | QFL1 ; | |
237 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG.C HAMPVA]FMS _AUTO_FILE _VERIFY.CO M") H 15 | |
238 | Q | |
239 | FS3FL ;SEN D FILE TO FS3BIG TO ALERT MOVE IT | |
240 | N FNAME | |
241 | S FNAME=" BP_TX_AITC .TXT" | |
242 | S ENVIR=$ $ENVIR^CHT FLIB | |
243 | ;DEF01655 4-12/24/13 -SBB chang ing based on UCI on VMS | |
244 | ;S IO="HA CFS3"" DNS HACdec741! ""::D:[FS3 BIG.BP_MOV EIT."_ENVI R_"]"_FNAM E | |
245 | ;SBB 07/3 0/15 DEF01 6554 | |
246 | X "D $ SYSTEM.Pro cess.SetZE OF(1)" | |
247 | S FSIO="H AC_HFS$:[S CR.TEMP_FI LES]"_FNAM E | |
248 | I ENVIR'= "LIVE" S I O="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FNAME | |
249 | S FOLDER= "/FS3BIG/B P_MOVEIT/" _ENVIR | |
250 | ;DEF01655 4-12/24/13 -SBB call OPEN^%ZISH to open t he file | |
251 | ;O IO:"NW S":3 | |
252 | ;I $T D | |
253 | ;.U IO W !,"READY F OR MOVEIT TO START T RANSFERRIN G AITC FIL ES." | |
254 | ;.C IO | |
255 | ;E W !,F NAME," DID NOT OPEN" | |
256 | N POP | |
257 | S POP=0 | |
258 | S POP=$$O PENFIWR^CH TFLIB9(.FS IO,"FSIO") | |
259 | I POP D | |
260 | . U FSIO W !,"READY FOR MOVEI T TO START TRANSFERR ING AITC F ILES." | |
261 | . D CLOSE F^CHTFLIB9 (FSIO,"FSI O") | |
262 | . D FTPFI LE^CHTFLIB 9(FSIO," DNS . DNS ",FOLDER," PUT") | |
263 | . Q | |
264 | E W !,FN AME," DID NOT OPEN" | |
265 | ; | |
266 | ;SBB 07/3 0/15 DEF01 6554 | |
267 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" | |
268 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.