Produced by Araxis Merge on 11/9/2018 12:33:40 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 | CH835EFT.m | Mon Nov 5 16:44:28 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CH835EFT.m | Mon Nov 5 17:36:38 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 162 |
Changed | 1 | 2 |
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 | CH835EFT ; HR/JBM;Che ck for val id EFT. | |
2 | ;;1.0;CHA MPVA SYSTE M;;MARCH 2 4, 2011;Bu ild 10 | |
3 | ; If cla im flagged for EFT a nd vendor is missing EFT infor mation the n;;;;;Buil d 11 | |
4 | ; send f iscal an e mail and l eave in st atus of ze ro - needs 835 sent. | |
5 | ;HR - Tea m Track #: 5592 | |
6 | ;HR - New 835 Routi ne that re places the old CHEDI * Routines | |
7 | ;MTN01404 0 12/20/11 JEH - Cha nge Email list for M issing Ven dor EFT re port | |
8 | ; DEV7820 DLB COMME NTED THE E XISTING CO DE, ADDED PARAMETERS TO LOAD() | |
9 | ;JEH 2/1/ 11 DEV0078 20 - SLLA | |
10 | Q | |
11 | ; | |
12 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;; | |
13 | ; NOEFT() DETERMINE S IF THE R EQUIRED EF T BANKING INFORMATIO N IS AVAIL ABLE, | |
14 | ; AND IF NO T, ABORTS THE 835 RE CORD GENER ATION FOR THE CLAIM. | |
15 | ; 1) RET URN 0 IF P AYMENT AMO UNT=0 | |
16 | ; 2) RET URN 0 IF E FT INDICAT OR IS NOT VENDOR ONL Y | |
17 | ; 3) RET URN 0 IF V ENDOR ID I S NULL | |
18 | ; 4) RET URN 1 IF 1 -3 SATISFI ED, BUT NO EFT INFO AVAILABLE | |
19 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;; | |
20 | ; | |
21 | NOEFT(INI) | |
22 | ; INPUT P arameter I NI - I val ue from CH MEDI | |
23 | ; OUTPUT NOEFT - | |
24 | N CI,X1,F OUND,NOEFT ,CLM,CHPDI ,CHEFTCK,C HVID,VREC | |
25 | S NOEFT=0 ;Initial ize flag. | |
26 | I +$P(^CH MEDI(INI,0 ),"^",4)=0 G NOEFTX ; ^04 CHK AMT NUMER IC 0-9999 999999 | |
27 | ; NEW var s called b y PROGTYP^ CHFCD001 s o it does interfere with | |
28 | ; vars al ready defi ned before this func tion is ca lled | |
29 | N CHPGPT, CHUCIPT,GL PAY,GLELG, GLDFN,GLPA YH,GLPAYW, GLEOB,CHUC I,CHSYS | |
30 | ; Get the claim poi nter in ^C HMEDI(INI) to check EFT flag | |
31 | S CI=$P(^ CHMEDI(INI ,1,1,0),"^ ",1) ; ^0 1 CLAIM NUMBER PT CHMPAY | |
32 | S X1=CI D PROGTYP^C HFCD001 | |
33 | S CHPDI=$ P(^CHMPAY( CI,"PDI",1 ,0),"^",1) ; UNDOCUMENT ED XREF FP R PDI (USE D IN LOAD( )) | |
34 | S CHEFTCK =$P($G(^CH MPAY(CI,7) ),"^",7) ; ^07 EFT IN DICATOR 1: VNDR ONLY 2:BENE ONL Y 3:BOTH | |
35 | S CLM=$P( $G(^CHMPAY (CI,0)),"^ ",1) ; ^0 1 CLAIM NU MBER FT 1 TO 30 | |
36 | G:CHEFTCK '=1 NOEFTX ; If n o eft on c laim then go to exit | |
37 | S CHVID=$ $GETVID() ; get vendor inf ormation | |
38 | I CHVID=" " G NOEFTX ; No v endor/repo rt error/d on't send on 835 (Co nfirm w/ T ony) | |
39 | S VREC=$G (^CHMVEN(C HVID,3)) | |
40 | I $P(VREC ,"^",1)="" !($P(VREC, "^",3)="") D | |
41 | .D LOAD(C HPDI,CLM,I NI,CHVID) | |
42 | .S NOEFT= 1 | |
43 | NOEFTX | |
44 | Q NOEFT | |
45 | ; | |
46 | LOAD(CHPDI ,CLM,INI,C HVID) ;No eft error int o tmp glob al | |
47 | N X | |
48 | D NOW^%DT C | |
49 | S ^TMP($J ,"NOEFT",C HPDI)=CHPD I_"^"_CLM_ "^"_INI_"^ "_CHVID_"^ "_X ;AEB 8/3/2005 | |
50 | Q | |
51 | GETVID() ; Get vend or id from fms doc i d...compar e against vendor lis t on first claim | |
52 | N VID | |
53 | S VID="" | |
54 | I $P(^CHM EDI(INI,0) ,"^",5)]"" I $P(^CHM EDI(INI,0) ,"^",5)=$P (@(GLPAY_" CI,0)"),"^ ",3) D G GETVIDX | |
55 | .S VID=$P (^CHMEDI(I NI,0),"^", 5) ; ^05 VEND OR PT PT CHMVEN | |
56 | GETVIDX | |
57 | Q VID | |
58 | ; | |
59 | ; | |
60 | EFTERR ;Em ail missin g vendors and missin g EFT erro rs | |
61 | N PID,ZML ,DATA,CHPI D,VENCT | |
62 | S VENCT=0 | |
63 | S CHNB=2, ZML(CHNB)= "Unknown V endor or m issing EFT info ...C laims not processed! ",CHNB=CHN B+2,ZML(CH NB)=" " | |
64 | S CHPDI=" " | |
65 | F S CHPD I=$O(^TMP( $J,"NOEFT" ,CHPDI)) Q :CHPDI="" D | |
66 | .S DATA=$ G(^TMP($J, "NOEFT",CH PDI)) | |
67 | .S CHNB=C HNB+1,ZML( CHNB)="PDI = "_$ P(DATA,"^" ,1) | |
68 | .S CHNB=C HNB+1,ZML( CHNB)="CLA IM NUMBER = "_$P (DATA,"^", 2) | |
69 | .S CHNB=C HNB+1,ZML( CHNB)="IVA L..^CHMEDI (""D"",0,I = "_$P(DA TA,"^",3) | |
70 | .S CHNB=C HNB+1,ZML( CHNB)="VEN DOR ID..^C HMIMAGE(PD I,""P-VEN" " = "_$P( DATA,"^",4 ) | |
71 | .S CHNB=C HNB+1,ZML( CHNB)="DAT E & TIME R ECORDED = "_$P(DAT A,"^",5) | |
72 | .S CHNB=C HNB+1,CHNB =CHNB+1,ZM L(CHNB)="- ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------" | |
73 | .S VENCT= VENCT+1 | |
74 | S CHNB=CH NB+1,ZML(C HNB)="TOTA L NUMBER O F VENDORS TO CORRECT "_VENCT | |
75 | S XMDUZ=. 5 | |
76 | S XMY(" PII ")="" ;MTN014040 12/20/11 JEH - ADDE D PST EMAI L ADDRESS | |
77 | S XMY(XMD UZ)="" | |
78 | S XMY(DUZ )="" ;JE H 2/1/11 D EV007820 | |
79 | S XMTEXT= "ZML(",XMS UB="835 Un known Vend ors or Mis sing EFT I nfo" | |
80 | D ^XMD | |
81 | Q | |
82 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.