| 1 | RCDPEU ;ALB/TMK - ELECTRONIC ERA UTILITIES ;05-NOV-02
|
|---|
| 2 | ;;4.5;Accounts Receivable;**173**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | EFTMTCH ; Match an electronic EFT's deposit to a paper EOB's receipt record
|
|---|
| 7 | ; Select the receipt record. Match the totals.
|
|---|
| 8 | N DIR,X,Y,RCDEP,DUOUT,DTOUT
|
|---|
| 9 | S DIR(0)="PAO^RCY(344.31,:AEMQ",DIR("S")="I $P($G(^(0),U,8)=0" ; must be unmatched
|
|---|
| 10 | S DIR("A")="Select EFT RECORD (Unmatched to an ERA): " D ^DIR K DIR
|
|---|
| 11 | I $D(DTOUT)!$D(DUOUT) G MATCHQ2
|
|---|
| 12 | S RCDEP=+Y
|
|---|
| 13 | MATCHQ2 Q
|
|---|
| 14 | ;
|
|---|
| 15 | MATCH ; Manual start of ERA/EFT automatic matching
|
|---|
| 16 | D EN^RCDPEM(1,1)
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | ADJ(RC3444,RCADJ) ; Function-determines if ERA record contains adjustments
|
|---|
| 20 | ; RC3444 = ien of ERA entry in file 344.4
|
|---|
| 21 | ; Return value = 1 for ERA level adjustments found, 2 if claim level
|
|---|
| 22 | ; adjustments found, 3 if both found
|
|---|
| 23 | ; Also returns RCADJ(ERA ien,seq#)=bill # for claim level adjustments
|
|---|
| 24 | ;
|
|---|
| 25 | N Z,DA
|
|---|
| 26 | S RCADJ=0
|
|---|
| 27 | ;
|
|---|
| 28 | I $O(^RCY(344.4,RC3444,2,0)) S RCADJ=1 ;ERA level adjustment
|
|---|
| 29 | ;
|
|---|
| 30 | I 'RCADJ D ; Claim level adjustment
|
|---|
| 31 | . S DA(1)=RC3444
|
|---|
| 32 | . S Z=0 F S Z=$O(^RCY(344.4,RC3444,1,Z)) Q:'Z I $P($G(^(Z,0)),U,14) S RCADJ=RCADJ+2,DA=Z,RCADJ(RC3444,Z)=$$GETBILL^RCDPESR0(.DA)
|
|---|
| 33 | ;
|
|---|
| 34 | Q RCADJ
|
|---|
| 35 | ;
|
|---|
| 36 | DEPREC(RC3443) ; Returns the ien of the receipt for the EFT deposit RC3443
|
|---|
| 37 | ; RC3443 = ien of entry in file 344.3
|
|---|
| 38 | N Z
|
|---|
| 39 | S Z=+$P($G(^RCY(344.3,+RC3443,0)),U,3)
|
|---|
| 40 | S Z=+$O(^RCY(344,"AD",Z,0))
|
|---|
| 41 | Q Z
|
|---|
| 42 | ;
|
|---|
| 43 | EDILB(RCRCPT) ; Given receipt ien RCRCPT, return 1 if the receipt is for
|
|---|
| 44 | ; an EDI Lockbox deposit (EFT), 2 if for EDI Lockbox detail (EOB/ERA)
|
|---|
| 45 | ; or 0 if not EDI Lockbox related (paper check)
|
|---|
| 46 | N X,Z
|
|---|
| 47 | S Z=0
|
|---|
| 48 | S X=$$EDILBEV($P($G(^RCY(344,RCRCPT,0)),U,4))
|
|---|
| 49 | I X D
|
|---|
| 50 | . I $P($G(^RCY(344,RCRCPT,0)),U,6),$$EDILBDEP(+$P(^(0),U,6)) S Z=1 Q ; EFT deposit associated with receipt
|
|---|
| 51 | . I '$P($G(^RCY(344,RCRCPT,0)),U,6) S Z=2 Q ; EFT detail
|
|---|
| 52 | Q Z
|
|---|
| 53 | ;
|
|---|
| 54 | EDILBDEP(RCDEP) ; Given deposit ien RCDEP (file 344.1), return 1 if there is
|
|---|
| 55 | ; an EFT referrencing it in file 344.3
|
|---|
| 56 | N X,Y
|
|---|
| 57 | S X=$O(^RCY(344.3,"ARDEP",RCDEP,0))
|
|---|
| 58 | Q (X>0)
|
|---|
| 59 | ;
|
|---|
| 60 | EDILBEV(PAYTYP) ; Given ien of file 341.1 PAYTYP, return 1 if the pay type's
|
|---|
| 61 | ; event number is EDI LOCKBOX
|
|---|
| 62 | Q ($P($G(^RC(341.1,+$G(PAYTYP),0)),U,2)=14)
|
|---|
| 63 | ;
|
|---|
| 64 | LBEVENT() ; Returns the IEN of EDI Lockbox event 14 in file 341.1
|
|---|
| 65 | Q +$O(^RC(341.1,"AC",14,0))
|
|---|
| 66 | ;
|
|---|
| 67 | HACERA(RCERA) ; Functions to determine if ERA entry in file 344.4 is an
|
|---|
| 68 | ; ERA received from HAC (CHAMPVA)
|
|---|
| 69 | ; RCERA = ien of entry file 344.4
|
|---|
| 70 | ; Returns 1 if it is, 0 if not
|
|---|
| 71 | N X
|
|---|
| 72 | S X=0 ; Add code here to make the determination
|
|---|
| 73 | Q X
|
|---|
| 74 | ;
|
|---|
| 75 | HACEFT(RCEFT) ; Functions to determine if EFT entry in file 344.3 is an
|
|---|
| 76 | ; EFT received from HAC (CHAMPVA)
|
|---|
| 77 | ; RCEFT = ien of entry file 344.3
|
|---|
| 78 | ; Returns 1 if it is, 0 if not
|
|---|
| 79 | Q ($E($P($G(^RCY(344.3,+RCEFT,0)),U,6),1,3)="HAC")
|
|---|
| 80 | ;
|
|---|
