IBCEOB00 ;ALB/ESG/PJH - 835 EDI EOB MSG PROCESSING CONT ;30-JUN-2003
Source file <IBCEOB00.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RCRU(IBZDATA,IB0,IBLN) | ; Revenue Code Roll-up procedure check -
; Total up outbound line items by revenue code and compare with ; incoming EOB 40 record to see if it has been rolled up |
|
| RCRU2 | ; check roll-up data by rev code and unit charge
|
|
| RCRUX | ;
|
|
| ICN(IBEOB,ICN,COBN,IBOK) | ; File the 835 ICN into the Bill
|
|
| ICNX | ;
|
|
| 15(IB0,IBEGBL,IBEOB) | ; Record '15'
|
|
| Q15 | ||
| 20(IB0,IBEGBL,IBEOB) | ; Record '20'
|
|
| Q20 | ||
| 35(IB0,IBEGBL,IBEOB) | ; Record '35'
|
|
| Q35 | ||
| 37(IB0,IBEGBL,IBEOB) | ; Record '37'
|
|
| Q37 | ||
| DET40(IB0,ARRAY,ERRCOD) | ; Format important details of record 40 for error
; IB0 = data on 40 record (some pieces pre-formatted) ; ARRAY(n)=formatted line is returned if passed by ref |
|
| DET4X(RECID,IB0,ARRAY) | ; Format important details of record 41-46 for error
; RECID = 41,42,45,46 ; IB0 = data on RECID record ; ARRAY(n)=formatted line is returned if passed by ref |
|
| FDT(X) | ; Format date in X (YYYYMMDD) to MM/DD/YYYY
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ICN+19 |
| ^IBM(361.1 - [#361.1] | ICN+18, 15+14, 20+9 |
| ^TMP( | ICN+26*, 15+8*, 15+19*, 20+7*, 20+17*, 20+25*, 20+33*, 35+7*, 37+4*, 37+7* , 37+16* |
| ^TMP($J | 15+20!, 20+5*, 20+6, 37+3, Q37* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | 15+2~, 15+5*, 15+7, 20+2~, 20+31*, 20+32, 35+2~, 35+4*, 35+6, 37+5* , 37+6 |
| ARRAY | DET40~, DET4X~ |
| ARRAY( | DET4X+10*, DET4X+14* |
| ARRAY(1 | DET40+6*, DET4X+6*, DET4X+9*, DET4X+13*, DET4X+17* |
| ARRAY(2 | DET40+7*, DET40+9*, DET40+10*, DET40+13*, DET40+15*, DET40+17*, DET40+18*, DET40+19* |
| ARRAY(3 | DET40+20* |
| ARRAY(4 | DET40+21*, DET40+23*, DET40+24*, DET40+26*, DET40+27*, DET40+28*, DET40+29* |
| ARRAY(5 | DET40+30* |
| CH | RCRU+8~, RCRU+12*, RCRU+16, RCRU+23 |
| COBN | ICN~, ICN+16*, ICN+17, ICN+21, ICN+23 |
| CT | DET4X+4~, DET4X+10*, DET4X+14* |
| D | ICN+15~ |
| D0 | ICN+15~ |
| DA | ICN+15~, ICN+24*, 20+12~, 37+14~, 37+15* |
| DA(1 | 20+13*, 20+21* |
| DA(2 | 20+21* |
| DD | 20+12~, 20+16!, 20+24! |
| DI | ICN+15~ |
| DIC | ICN+15~, 20+12~, 20+13*, 20+16!, 20+21*, 20+24!, 37+14~ |
| DIC("P" | 20+14*, 20+22* |
| DIC(0 | 20+13*, 20+21* |
| DIE | ICN+15~, ICN+24*, 37+14~, 37+15* |
| DLAYGO | 20+12~, 20+13*, 20+16!, 20+21*, 20+24! |
| DO | 20+12~, 20+16!, 20+24! |
| DQ | ICN+15~ |
| DR | ICN+15~, ICN+24*, 37+14~, 37+15* |
| ERRCOD | DET40~, DET40+9, DET40+13 |
| FIELD | ICN+15~, ICN+23*, ICN+24 |
| IB0 | RCRU~, RCRU+9, RCRU+42, RCRU+44, RCRU+45, RCRU+46, RCRU2+2, RCRU2+3, RCRU2+5, RCRU2+6 , RCRU2+7, 15~, 15+7, 15+14, 15+16, 20~, 20+4, 20+23, 20+32, 20+33 , 35~, 35+6, 37~, 37+5, 37+6, 37+13, DET40~, DET40+4, DET40+9, DET40+11 , DET40+15, DET40+16, DET40+17, DET40+18, DET40+19, DET40+21, DET40+23, DET40+24, DET40+26, DET40+27 , DET40+28, DET40+29, DET4X~, DET4X+6, DET4X+9, DET4X+10, DET4X+13, DET4X+14, DET4X+17 |
| IB20 | 15+15~, 15+16*, 15+17*, 15+18 |
| IBBNDL | DET40+3~, DET40+4*, DET40+22, DET40+25 |
| IBCT | 37+2~, 37+3*, 37+4, 37+5 |
| IBDA | 20+2~, 20+17!, 20+25!, 20+26*, 20+28, 20+30 |
| IBDA(1 | 20+9*, 20+11, 20+18*, 20+20, 20+21, 20+29, 20+30 |
| IBEGBL | ICN+26, 15~, 15+8, 15+18, 15+19, 20~, 20+7, 20+17, 20+25, 20+33 , 35~, 35+7, 37~, 37+4, 37+7, 37+16 |
| IBEOB | ICN~, ICN+16*, ICN+17, ICN+18, 15~, 15+7, 15+14, 15+18, 20~, 20+9 , 20+13, 20+21, 20+29, 20+30, 20+32, 35~, 35+6, 37~, 37+6, 37+15 |
| IBGRP | 20+2~, 20+4*, 20+5, 20+6*, 20+7, 20+9, 20+15 |
| IBIFN | ICN+15~, ICN+18*, ICN+19, ICN+24 |
| IBLN | RCRU~, RCRU+10*, RCRU+46*, RCRU2+7* |
| IBOK | ICN~, ICN+25*, ICN+26, 15+2~, 15+7*, 15+8, 15+18*, 15+19, Q15, 20+2~ , 20+32*, 20+33, Q20, 35+2~, 35+6*, 35+7, Q35, 37+2~, 37+6*, 37+7 , 37+15*, 37+16, Q37+1 |
| IBZDATA | RCRU~ |
| IBZDATA( | RCRU+11 |
| ICN | ICN~, ICN+20, ICN+24 |
| LEVEL | 20+2~, 20+29*, 20+32 |
| LEVEL("DIE" | 20+29* |
| LEVEL(0 | 20+30* |
| LEVEL(1 | 20+30* |
| LEVEL(2 | 20+30* |
| LN | RCRU+8~, RCRU+11*, RCRU+12 |
| MRAUCH | RCRU+8~, RCRU2+1*, RCRU2+2*, RCRU2+3, RCRU2+7 |
| Q | DET40+3~, DET40+15*, DET40+17*, DET40+24*, DET40+27*, DET4X+4~, DET4X+10*, DET4X+14* |
| RECID | DET4X~, DET4X+5, DET4X+8, DET4X+12, DET4X+16 |
| REV | RCRU+8~, RCRU+12*, RCRU+13, RCRU+15, RCRU+19, RCRU+20, RCRU+22, RCRU+26, RCRU+27, RCRU+34* , RCRU+35*, RCRU+37*, RCRU+38* |
| RUD | RCRU+8~, RCRU+15*, RCRU+16*, RCRU+17*, RCRU+18*, RCRU+19, RCRU+31, RCRU+40, RCRU+42*, RCRU+43 , RCRU+44, RCRU+45 |
| RUD( | RCRU+15, RCRU+19*, RCRU+20*, RCRU+35!, RCRU+42, RCRU+46 |
| RUD2 | RCRU+8~, RCRU+22*, RCRU+23*, RCRU+24*, RCRU+25*, RCRU+26, RCRU+31, RCRU+40, RCRU2+3*, RCRU2+4 , RCRU2+5, RCRU2+6 |
| RUD2( | RCRU+22, RCRU+26*, RCRU+27*, RCRU+38!, RCRU2+3, RCRU2+7 |
| U | RCRU+9, RCRU+12, RCRU+16, RCRU+17, RCRU+18, RCRU+23, RCRU+24, RCRU+25, RCRU+35, RCRU+38 , RCRU+42, RCRU+44, RCRU+45, RCRU+46, RCRU2+2, RCRU2+3, RCRU2+5, RCRU2+6, RCRU2+7, ICN+18 , 15+14, 15+16, 15+17, 20+4, 20+23, 20+33, 37+5, 37+13, DET40+4, DET40+9 , DET40+11, DET40+13, DET40+15, DET40+16, DET40+17, DET40+18, DET40+19, DET40+21, DET40+23, DET40+24 , DET40+26, DET40+27, DET40+28, DET40+29, DET4X+6, DET4X+9, DET4X+10, DET4X+13, DET4X+14, DET4X+17 |
| UCH | RCRU+8~, RCRU+12*, RCRU+22, RCRU+26, RCRU+27, RCRU+37*, RCRU+38* |
| UN | RCRU+8~, RCRU+12*, RCRU+17, RCRU+24 |
| X | ICN+15~, 20+12~, 20+15*, 20+23*, FDT~, FDT+1*, FDT+2 |
| Y | ICN+15~, ICN+25, 20+12~, 20+17, 20+18, 20+25, 20+26, 37+15 |
| Z | RCRU+8~, RCRU+10*, RCRU+11*, RCRU+20, RCRU+27 |
