RCDPEU ;ALB/TMK - ELECTRONIC ERA UTILITIES ;05-NOV-02
Source file <RCDPEU.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 2 | EN^RCDPEM $$GETBILL^RCDPESR0 |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EFTMTCH | ; Match an electronic EFT's deposit to a paper EOB's receipt record
; Select the receipt record. Match the totals. |
|
MATCHQ2 | ||
MATCH | ; Manual start of ERA/EFT automatic matching
|
|
ADJ(RC3444,RCADJ) | ; Function-determines if ERA record contains adjustments
; RC3444 = ien of ERA entry in file 344.4 ; Return value = 1 for ERA level adjustments found, 2 if claim level ; adjustments found, 3 if both found ; Also returns RCADJ(ERA ien,seq#)=bill # for claim level adjustments |
|
DEPREC(RC3443) | ; Returns the ien of the receipt for the EFT deposit RC3443
; RC3443 = ien of entry in file 344.3 |
|
EDILB(RCRCPT) | ; Given receipt ien RCRCPT, return 1 if the receipt is for
; an EDI Lockbox deposit (EFT), 2 if for EDI Lockbox detail (EOB/ERA) ; or 0 if not EDI Lockbox related (paper check) |
|
EDILBDEP(RCDEP) | ; Given deposit ien RCDEP (file 344.1), return 1 if there is
; an EFT referrencing it in file 344.3 |
|
EDILBEV(PAYTYP) | ; Given ien of file 341.1 PAYTYP, return 1 if the pay type's
; event number is EDI LOCKBOX ; Input: PAYTYP - IEN for AR EVENT TYPE (341.1) ; Returns: 0 if PAYTP is not 14 or 18, Otherwise returns PAYTYP IEN |
|
LBEVENT() | ; Returns the IEN of EDI Lockbox event 14 in file 341.1
|
|
HACERA(RCERA) | ; Functions to determine if ERA entry in file 344.4 is an
; ERA received from HAC (CHAMPVA) ; RCERA = ien of entry file 344.4 ; Returns 1 if it is, 0 if not ; PRCA*4.5*367 - Add logic to determine if ERA is CHAMPVA |
|
HACEFT(RCEFT) | ; Functions to determine if EFT entry in file 344.3 is an
; EFT received from HAC (CHAMPVA) ; RCEFT = ien of entry file 344.3 ; Returns 1 if it is, 0 if not |
FileNo | Call Tags |
---|---|
^RCY(344.4 - [#344.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RC(341.1 - [#341.1] | EDILBEV+7, LBEVENT+1 |
^RCY(344 - [#344] | DEPREC+4, EDILB+5, EDILB+7, EDILB+8 |
^RCY(344.3 - [#344.3] | DEPREC+3, EDILBDEP+3, HACEFT+4 |
^RCY(344.4 - [#344.4] | ADJ+9, ADJ+13 |
Name | Field # of Occurrence |
---|---|
^( | ADJ+13 |
^(0 | EDILB+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ADJ+6~, ADJ+13* |
DA(1 | ADJ+12* |
DIR | EFTMTCH+2~, EFTMTCH+4! |
DIR("A" | EFTMTCH+4* |
DIR("S" | EFTMTCH+3* |
DIR(0 | EFTMTCH+3* |
DTOUT | EFTMTCH+2~, EFTMTCH+5 |
DUOUT | EFTMTCH+2~, EFTMTCH+5 |
PAYTYP | EDILBEV~, EDILBEV+7, EDILBEV+9 |
RC3443 | DEPREC~, DEPREC+3 |
RC3444 | ADJ~, ADJ+9, ADJ+12, ADJ+13 |
RCADJ | ADJ~, ADJ+7*, ADJ+9*, ADJ+11, ADJ+13*, ADJ+15 |
RCADJ( | ADJ+13* |
RCDEP | EFTMTCH+2~, EFTMTCH+6*, EDILBDEP~, EDILBDEP+3 |
RCEFT | HACEFT~, HACEFT+4 |
RCERA | HACERA~, HACERA+6, HACERA+7 |
RCPMTHD | HACERA+5~, HACERA+7*, HACERA+8 |
RCRCPT | EDILB~, EDILB+5, EDILB+7, EDILB+8 |
RCTRACE | HACERA+5~, HACERA+6*, HACERA+8 |
U | ADJ+13, DEPREC+3, EDILB+5, EDILB+7, EDILB+8, EDILBEV+7, HACEFT+4 |
X | EFTMTCH+2~, EDILB+3~, EDILB+5*, EDILB+6, EDILBDEP+2~, EDILBDEP+3*, EDILBDEP+4, EDILBEV+6~, EDILBEV+7*, EDILBEV+8 |
Y | EFTMTCH+2~, EFTMTCH+6, EDILBDEP+2~ |
Z | ADJ+6~, ADJ+13*, DEPREC+2~, DEPREC+3*, DEPREC+4*, DEPREC+5, EDILB+3~, EDILB+4*, EDILB+7*, EDILB+8* , EDILB+9 |