RCDPESR9 ;ALB/TMK,DWA - ERA return file field captions ;09-SEP-2003
Source file <RCDPESR9.m>
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 |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 3 | RCDPESR1 RCDPESR3 RCDPESR4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
835 | ;;HEADER DATA
|
|
01 | ;;PAYER CONTACT INFORMATION
|
|
02 | ;;PAYER ADJUSTMENT RECORD
|
|
05 | ;;CLAIM PATIENT ID
|
|
06 | ;;CORECT PATIENT DATA
|
|
10 | ;;CLAIM STATUS DATA
|
|
15 | ;;CLAIM STATUS DATA
|
|
17 | ;;CLAIM LEVEL PAYER CONTACT INFORMATION
|
|
20 | ;;CLAIM LEVEL ADJUSTMENT DATA
|
|
30 | ;;CLAIM LEVEL MEDICARE INPT ADJUDICATION DATA
|
|
35 | ;;CLAIM LEVEL MEDICARE ADJUDICATION DATA
|
|
37 | ;;CLAIM LEVEL MEDICARE ADJUDICATION DATA REMARKS
|
|
40 | ;;SERVICE LINE DATA
|
|
41 | ;;SERVICE LINE DATA
|
|
42 | ;;SERVICE LINE DATA
|
|
45 | ;;SERVICE LINE ADJUSTMENT DATA
|
|
FDT(X) | ; returns MM/DD/YYYY or MM/DD/YY from YYYYMMDD or YYMMDD in X
|
|
ZERO(X,D,NULL) | ; Returns numeric value of X without leading 0's
; or null if no value wanted for 0 amount ; D = 1 if dollar amt |
|
YN(X) | ; Returns YES for X="Y" and NO for X="N"
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D | ZERO~, ZERO+6, ZERO+7 |
NULL | ZERO~, ZERO+8 |
X | FDT~, FDT+1*, FDT+2*, FDT+3, ZERO~, ZERO+4*, ZERO+5, ZERO+6*, ZERO+7*, ZERO+8 , YN~, YN+1*, YN+2 |
Z | ZERO+3~, ZERO+4* |