IBCEST1 ;ALB/ESG - IB 837 EDI Status Message Processing Cont ;18-JUL-2005
Source file <IBCEST1.m>
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
|