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 | CHBPACC.m | Mon Nov 5 16:40:50 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPACC.m | Mon Nov 5 17:37:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 322 |
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 | CHBPACC ;C VA/JEH;LOA D ACCEPTD CLMS FROM RETURN FMS ACC/REJ F ILE FROM A USTIN;04/1 3/98 3:21 PM | |
2 | ; | |
3 | ;JEH 2/29 /08 MTN004 438-01 - F IX $T LOGI C | |
4 | ;JEH 12/1 9/08 DEF00 6423 - Fix Dup check logic for grabbing FMP claims | |
5 | ;JEH (DEF 007125) 4/ 23/09 - FI X DUP CHEC K LOGIC | |
6 | ;DEV01273 8-02 AEB 7 /25/2011 S KIP ID CG - CG NOT U PLOADED | |
7 | ;JEH 1/3/ 13 DEF0170 35 - FIX D ATA IN 741 309 GLOBAL | |
8 | START ;USE QUEA^CHBP ACC TO QUE ROUTINE T O RUN IN B ACKGROUND | |
9 | D INIT | |
10 | D GETADT | |
11 | Q:QNFLG=1 | |
12 | D LOADACC | |
13 | Q:QNFLG=1 | |
14 | D:$D(MMFL G2) MMMSG | |
15 | D END | |
16 | Q | |
17 | INIT ; INI TIALIZING | |
18 | S (CTR,DC TR)=0 | |
19 | S QNFLG=0 | |
20 | K MMFLG,M MFLG2 | |
21 | S ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")="C HBPACC" | |
22 | Q | |
23 | GETADT ; G ETTING AAC ACCEPT DA TE FROM IN PUT FILE | |
24 | ;D OPNFIL E S $ZE="" ,$ZT="ENDF L^CHBPACC" | |
25 | Q:$$OPNFI LE()=0 | |
26 | S $ZE="" | |
27 | S $ZT="EN DFL^CHBPAC C" | |
28 | F U IO R REC Q:$E( REC,63,71) ["PAGE 2" | |
29 | C IO | |
30 | S X=$E(RE C,9,16) S %DT="P" D ^%DT S ACC DT=Y | |
31 | D NOW^%DT C S CHFLDT =% ;D/T FILE WAS L OADED INTO ^CHBPACC GBL | |
32 | Q | |
33 | LOADACC ; LOADING AC CEPTED REC ORDS INTO ^CHBPACC G LOBAL | |
34 | S DUPDT=0 ;Indicat es if file has been processed | |
35 | ;D OPNFIL E S $ZE="" ,$ZT="ENDF L^CHBPACC" | |
36 | Q:$$OPNFI LE()=0 ;Q UIT IF FIL E NOT OPEN ;JEH 2/ 29/08 | |
37 | Q:QNFLG=1 | |
38 | S $ZE="" | |
39 | S $ZT="EN DFL^CHBPAC C" | |
40 | F U IO R REC S CHS TAT=$E(REC ,1) D:CHST AT="A" | |
41 | .S REFDOC ="" S REFD OC=$E(REC, 61,62) | |
42 | .I REFDOC ="SO" D | |
43 | ..S (CHST AT,CHDOCID ,CHPRGM,CH CLM,CHPAYE E,CHCAT)=" " | |
44 | ..S CHDOC ID=$E(REC, 4,14) I CH DOCID'="" I $D(^CHCG PAY(741850 .6,"B",CHD OCID)) Q ;AEB 7/25/ 2011 SKIP ID CG - CG NOT UPLOA DED | |
45 | ..S CHCLM =$$TRIM^CH TFLIB($E(R EC,22,33)) ;JEH 1/ 3/13 DEF01 7035 | |
46 | ..I $E(CH CLM,1,1)=" C" S CHCLM =$E(CHCLM, 4,10) ; JEH 6 /25/07 FIX TO GET NO N-CHAMPVA CLAIM NUMB ERS ;JEH 1/3/13 DE F017035 | |
47 | ..;I $E(C HCLM,1,1)= "F" S CHCL M=$$TRIM^C HTFLIB($E( REC,22,33) ) ; JEH 12/19 /08 FIX TO GET FMP C LAIM NUMBE RS ;JEH 1/3/13 DEF 017035 | |
48 | ..S CHCLM I=0 S CHCL MI=$O(^CHM PAY("B",CH CLM,CHCLMI )) | |
49 | ..I CHCLM I'="" Q:$D (^CHMSNA(7 41008.6,"F ",CHCLMI)) ; QUIT IF REISSUE CLAIM/CHE CK | |
50 | ..S CHPRG M=$E(REC,2 2,24) | |
51 | ..S CHPAY EE=$E(REC, 33,41) | |
52 | ..S X=+$E (REC,44,58 ) | |
53 | ..S CHAMT =0 | |
54 | ..S:X'=0 CHAMT=$E(X ,1,($L(X)- 2))_"."_$E (X,($L(X)- 1),$L(X)) | |
55 | ..I $D(^C HMSNA(7410 08.2,"AE", CHDOCID)) S CHCAT="P " ; SET CAT TYPE TO PROVIDE R/VENDOR | |
56 | ..I $D(^C HMSNA(7410 08.3,"AE", CHDOCID)) S CHCAT="B " ; SET CAT TYPE TO BENE/FM P | |
57 | ..I CHCAT ="" D Q ;JEH ( DEF007125) 4/23/09 | |
58 | ...S ^CHM ZHOLD("POS _BP_DUPS", $J,CHCLM)= ACCDT_"^"_ CHDOCID_"^ "_CHPRGM_" ^"_CHPAYEE _"^"_CHCAT _"^"_CHFLD T | |
59 | ...S DCTR =DCTR+1 | |
60 | ...K MMFL G | |
61 | ...S MMFL G2="Poss. Dup Claim Sent - mis sin CHCAT" | |
62 | ..I $D(^C HBPACC("B" ,CHCLM)) D | |
63 | ...S IVAL =0 F S IV AL=$O(^CHB PACC("B",C HCLM,IVAL) ) Q:'IVAL D | |
64 | ....;DUPL ICATE CHEC KS ARE DON E HERE | |
65 | ....I ACC DT'=$P(^CH BPACC(IVAL ,0),"^",3) D ;Che cks dates to prevent dups when loading s ame file m ore than o nce | |
66 | .....S DU PDAT=0 ;File has not run | |
67 | .....I (C HDOCID=$P( ^CHBPACC(I VAL,0),"^" ,2))&(CHAM T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHPRGM=$P (^CHBPACC( IVAL,0),"^ ",6))&(CHC AT=$P(^CHB PACC(IVAL, 0),"^",7)) D | |
68 | ......S M MFLG=1 | |
69 | ......S M MSG1="Dup File Sent" | |
70 | .....I CH CAT=$P(^CH BPACC(IVAL ,0),"^",7) D | |
71 | ......S M MFLG=1 | |
72 | ......S M MSG2="Dup Claim Sent " | |
73 | ....E S DUPDT=1 ;File has run | |
74 | ....; | |
75 | ...I $D(M MFLG) D | |
76 | ....S ^CH MZHOLD("PO S_BP_DUPS" ,$J,CHCLM) =ACCDT_"^" _CHDOCID_" ^"_CHPRGM_ "^"_CHPAYE E_"^"_CHCA T_"^"_CHFL DT | |
77 | ....S DCT R=DCTR+1 | |
78 | ....K MMF LG | |
79 | ....S MMF LG2="" | |
80 | ...I DUPD T=0 D UPDR CD | |
81 | ..E D UP DRCD | |
82 | Q | |
83 | OPNFILE() ; OPENING INPUT FILE | |
84 | NEW OPNTS T | |
85 | S OPNTST= 0 | |
86 | S IO="HAC _HFS$:[DSM MANAG.CHAM PVA]S741CH 22.1PART", U="^" | |
87 | O IO:"R": 5 | |
88 | ;S $ZT="O ERR^CHBPAC C" S $ZE=" " U IO I $ ZE["NOTOPE N" Q ;JE H 2/29/08 | |
89 | S OPNTST= $T | |
90 | I $T=0 D OERR | |
91 | Q OPNTST | |
92 | OERR ; | |
93 | W !!,"NOT ABLE TO O PEN FILE: ",IO,!! | |
94 | D KVAR | |
95 | S QNFLG=1 ;SETTING QUIT NOW FLAG | |
96 | S OPNTST= 0 | |
97 | Q | |
98 | ENDFL ; | |
99 | C IO | |
100 | Q | |
101 | UPDRCD ;Up date globa l using UP DATE^DIE() :Updater | |
102 | U 0 W !," IN UPDRCD" ,?33,CHCLM | |
103 | S GBLIEN= +($P(^CHBP ACC(0),"^" ,3))+1 | |
104 | S FDA(1,7 41309,"+1, ",.01)=CHC LM ; CLAIM NUMB ER | |
105 | S FDA(1,7 41309,"+1, ",1)=CHDOC ID ; FMS ID NUM BER | |
106 | S FDA(1,7 41309,"+1, ",2)=ACCDT ; ACC ACCE PTED DATE | |
107 | S FDA(1,7 41309,"+1, ",3)=CHPAY EE ; PAYEE NAME (if prese nt) | |
108 | S FDA(1,7 41309,"+1, ",4)=CHAMT ; PAYMENT AMOUNT | |
109 | S FDA(1,7 41309,"+1, ",5)=CHPRG M ; HAC PROG RAM | |
110 | S FDA(1,7 41309,"+1, ",6)=CHCAT ; CLAIM CA TEGORY (P) rovider -v s- (B)ene | |
111 | S FDA(1,7 41309,"+1, ",7)=CHFLD T ; DATE/TIM E FILE LOA DED INTO ^ CHBPACC GB L | |
112 | S FDAIEN( 1)=GBLIEN | |
113 | D UPDATE^ DIE("S","F DA(1)","FD AIEN","ORO UT(1)") | |
114 | S CTR=CTR +1 | |
115 | Q | |
116 | MMMSG ; ME SSAGE ALER TING POSSI BLE DUPS | |
117 | S CNT=1,^ TMP($J,"PO SS-DUPL-CL MS",CNT)=" ",CNT=CNT+ 1 | |
118 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" **** ********** ********** ********** *",CNT=CNT +1 | |
119 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" ** R ETURN BATC H FILES PR OCESSED * *",CNT=CNT +1 | |
120 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" *** ** *",CNT=CNT +1 | |
121 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" **** POSSIBLE DUPLICATE CLAIMS *** *",CNT=CNT +1 | |
122 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" *** ** *",CNT=CNT +1 | |
123 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" ** FRO M ^CHBPACC * *",CNT=CNT +1 | |
124 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" **** ********** ********** ********** *",CNT=CNT +1 | |
125 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
126 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" NUMB ER OF POSS IBLE DUPLI CATE CLAIM S: "_DCTR, CNT=CNT+1 | |
127 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
128 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" SEE TEMP GLOBA L: ^CHMZHO LD(""POS_B P_DUPS""," _$J,CNT=CN T+1 | |
129 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
130 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" FILE WAS LOADE D: "_CHFLD T,CNT=CNT+ 1 | |
131 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1 | |
132 | S:$D(MMSG 1) ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" Chec k the foll owing: "_M MSG1,CNT=C NT+1 | |
133 | S:$D(MMSG 2) ^TMP($J ,"POSS-DUP L-CLMS",CN T)=" Chec k the foll owing: "_M MSG2,CNT=C NT+1 | |
134 | S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="" | |
135 | S XMTEXT= "^TMP($J," "POSS-DUPL -CLMS""," | |
136 | S XMDUZ=. 5 | |
137 | S XMY(" PII ")="" | |
138 | S XMY(582 43)="",XMY (319955)=" " | |
139 | S XMY(" PII ")="" | |
140 | S XMSUB=" BP DUP CLA IMS CHK - ^CHBPACC" D ^XMD | |
141 | Q | |
142 | QUEA ;QUE THIS ROUTI NE MANUALL Y. | |
143 | I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@" | |
144 | D NOW^%DT C S DT=X | |
145 | S DTIME=3 00 | |
146 | S U="^" | |
147 | S CHFIO=" " | |
148 | S ZTRTN=" START^CHBP ACC",ZTDES C="LOADING ACCPT CLM S FROM RET URN BATCH FILE" | |
149 | S ZTIO="" ,ZTSAVE("C HFIO")="" | |
150 | D ^%ZTLOA D | |
151 | Q | |
152 | END ; | |
153 | C IO | |
154 | D KVAR | |
155 | Q | |
156 | KVAR ;KILL VARIABLES | |
157 | K CTR,DCT R,MMFLG,MM FLG2 | |
158 | K CHCLM,C HDOCID,ACC DT,CHPAYEE ,CHAMT,CHP RGM,CHCAT | |
159 | K FDA(1), FDAIEN(1), GBLIEN | |
160 | K PNFLG,O PNTST | |
161 | K ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING") | |
162 | Q | |
163 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.