IBCEST1 ;ALB/ESG - IB 837 EDI Status Message Processing Cont ;18-JUL-2005
Source file <IBCEST1.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 | 1 | IBCEST |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHKSUM(IBARRAY) | ; Incoming 277STAT status message checksum calculation
; This function calculates the checksum of the raw 277stat data from ; the data in array IBARRAY. This is done to prevent duplicates. ; Input parameter IBARRAY is the array reference where the data exists ; at @IBARRAY@(n,0) where n is a sequential # ; For file 364.2, IBARRAY = "^IBA(364.2,IBTDA,2)" where IBTDA = the ien ; of the entry in file 364.2 being evaluated |
|
EXT(DATA) | ; Extracts from the text in DATA if the text contains
; "##RAW DATA: " |
|
SCODE(Z0) | ; status code for message
|
|
CODE | ; *397
|
Name | Line Occurrences |
---|---|
$$EXT | CHKSUM+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATA | CHKSUM+8~, CHKSUM+12*, CHKSUM+13, CHKSUM+19, EXT~, EXT+2 |
IBARRAY | CHKSUM~, CHKSUM+11, CHKSUM+12 |
IBFD | SCODE+1~*, SCODE+2, SCODE+3*, SCODE+4 |
IBI | SCODE+1~, SCODE+2* |
IBRD | SCODE+1~, SCODE+2*, SCODE+3 |
IBREC | CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM+16, CHKSUM+17, CHKSUM+18 |
LN | CHKSUM+8~, CHKSUM+10*, CHKSUM+11*, CHKSUM+12 |
POS | CHKSUM+8~, CHKSUM+19* |
STSFLG | CHKSUM+8~, CHKSUM+9*, CHKSUM+14*, CHKSUM+22 |
U | CHKSUM+13 |
Y | CHKSUM+8~, CHKSUM+9*, CHKSUM+19*, CHKSUM+22*, CHKSUM+23 |
Z0 | SCODE~, SCODE+3 |
Name | Field # of Occurrence |
---|---|
$T(CODE+IBI | SCODE+2 |