IBCEM1 ;ALB/TMP - 837 EDI RETURN MESSAGE MAIN LIST TEMPLATE ;02-MAY-96
Source file <IBCEM1.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 |
---|---|---|
Integrated Billing | 4 | IB20P407 IBCE RETURN MSG PROCESSING IBCEM IBCEM 837 MESSAGE LIST |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Main entry point
|
|
INIT | ; -- set up inital variables
|
|
REBLD | ; Set up formatted global
|
|
BLD | ; -- build list of messages
|
|
FNL | ; -- Clean up list
|
|
SET(X) | ; -- set arrays for 837 return messages
|
|
BILLNO(DA) | ; Return bill # from entry in file 364
|
|
BATNO(DA) | ; Return batch # from entry in file 364
|
|
HDR | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | BILLNO+2 |
^IBA(364 - [#364] | BILLNO+2, BATNO+1 |
^IBA(364.1 - [#364.1] | BLD+19, BATNO+1 |
^IBA(364.2 - [#364.2] | BLD+4, BLD+10 |
^IBE(364.3 - [#364.3] | BLD+3, BLD+17 |
^TMP("IBCEM-837" | BLD+2!, BLD+24*, SET+1*, SET+2* |
^TMP("IBCEM-837DX" | BLD+2!, FNL+1!, SET+3* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | BILLNO~, BILLNO+2, BILLNO+3, BATNO~, BATNO+1 |
IB0 | BLD+1~, BLD+4*, BLD+7, BLD+14, BLD+15, BLD+16, BLD+17, BLD+19, BLD+20, BLD+21 |
IBCNT | BLD+1~, BLD+3*, BLD+12*, BLD+13, BLD+24*, SET+2, SET+3 |
IBDA | EN+2!, EN+4! |
IBEOB | BLD+1~, BLD+3*, BLD+8 |
IBFASTXT | EN+2!, EN+4!, FNL+3! |
IBMSG | BLD+1~, BLD+3*, BLD+4*, BLD+10, SET+3 |
IBMSGT | BLD+1~, BLD+7*, BLD+8 |
IBSTOP | BLD+5~, BLD+6*, BLD+8, BLD+10* |
U | INIT+1*, BLD+7, BLD+10, BLD+14, BLD+15, BLD+17, BLD+19, BLD+20, BLD+21, SET+3 , BILLNO+2, BATNO+1 |
>> VALMBG | INIT+1* |
>> VALMCNT | INIT+1*, BLD+3*, BLD+24*, SET+1*, SET+2, SET+3 |
VALMEVL | EN+2! |
>> VALMHDR(1 | HDR+1* |
>> VALMHDR(2 | HDR+2* |
X | BLD+1~, BLD+12*, BLD+13*, BLD+14*, BLD+15*, BLD+16*, BLD+18*, BLD+19*, BLD+20*, BLD+21* , BLD+22, SET~, SET+1 |
XQORS | EN+2! |
Z | BLD+9~, BLD+10*, BLD+17*, BLD+18, BILLNO+1~, BILLNO+2*, BILLNO+3 |
Z0 | BLD+9~, BLD+10* |