IBCESRV ;ALB/TMP - Server interface to IB from Austin ;8/6/03 10:04am
Source file <IBCESRV.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERVER | ; Entry point for server option to process EDI msgs received from Austin
|
|
| MSG(XMER,IBTDA,IBXMZ) | ; Read/Store message lines
|
|
| MSG1 | ||
| MSGQ | ||
| REST(IBTXN,IBGBL) | ;Extract raw message data if not id-ed or can't process
|
|
| ADD(IBGBL,IBTDA,IBERR) | ; Add message(s) in @IBGBL to file #364.2
; Errors returned in IBERR ; Message entry #'s are returned in IBTDA(ien)="" |
|
| ADDTXN(IBDATA,REPORT) | ; Add a trxn for msg in IBDATA to file 364.2
; REPORT = 1 if storing a report format message |
|
| LOADDET(IB1,IB2,IBTDA,IBGBL,IBERR,IBTNM) | ; Load the rest of the message text into the message
; IB1 = "BATCH" or "CLAIM" or "REPORT" ; IB2 = batch # or claim # or 0 ; IBTDA = ien in file 364.2 being updated ; IBGBL = name of the array holding the detail message text to be loaded ; IBTNM = message name (i.e. "835EOB","837REC0","REPORT",etc.) |
|
| CKLABEL(Z,IBTXN,IBGBL) | ; Checks to be sure label in Z exists.
; If it doesn't exist, files an error and returns 0 ; OR returns 1 if it does exist |
|
| ERROR | ; Error condition messages
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(364.2 - [#364.2] | Classic Fileman Calls |
