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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBA(364 - [#364] | ADDTXN+7, ADDTXN+11 |
^IBA(364.1 - [#364.1] | MSG+46, MSG+51 |
^IBA(364.2 - [#364.2] | ADDTXN+15 |
^IBE(364.3 - [#364.3] | MSG1+3, MSG1+6, ADD+8 |
^IBM(361.4 - [#361.4] | ADDTXN+11, ADDTXN+12 |
^TMP("IB-HOLD" | SERVER+3!, SERVER+9!, MSG+20!, MSG+32!, MSG+38*, MSG+58*, MSG+63*, MSG1+16*, MSG1+25*, REST+3 |
^TMP("IBERR" | SERVER+3!, SERVER+9!, MSG+20!, MSG+41*, MSG+42*, MSG+66*, MSG+67* |
^TMP("IBMSG" | SERVER+3!, SERVER+9!, MSG+20!, MSG1+34 |
^TMP("IBMSG-H" | SERVER+3!, SERVER+9!, LOADDET+18 |
^TMP("IBMSGH" | SERVER+3!, SERVER+9!, MSG+20!, MSG1+12* |
^TMP("IBTEXT" | LOADDET+13!, LOADDET+16*, LOADDET+18*, LOADDET+22*, LOADDET+24*, LOADDET+30! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | MSG+29~, MSG+30* |
A | ADDTXN+4~, ADDTXN+14*, ADDTXN+15*, ADDTXN+16 |
CT | REST+1~, REST+2*, REST+3*, REST+4*, LOADDET+11~, LOADDET+15*, LOADDET+16*, LOADDET+18*, LOADDET+22*, LOADDET+24* |
DD | ADDTXN+4~ |
DIC | ADDTXN+4~, ADDTXN+17* |
DIC("DR" | ADDTXN+18* |
DIC(0 | ADDTXN+17* |
DLAYGO | ADDTXN+4~, ADDTXN+17* |
DO | ADDTXN+4~ |
IB | ADD+4~ |
IB0 | MSG+19~, MSG1+6* |
IB1 | LOADDET~, LOADDET+16, LOADDET+18, LOADDET+22, LOADDET+24, LOADDET+28 |
IB2 | LOADDET~, LOADDET+16, LOADDET+18, LOADDET+22, LOADDET+24, LOADDET+28 |
IB3 | LOADDET+11~, LOADDET+15*, LOADDET+16*, LOADDET+18*, LOADDET+22*, LOADDET+24* |
IBA | ADD+4~, ADD+5*, ADD+6, ADD+12 |
IBB | ADD+4~, ADD+5*, ADD+6, ADD+12 |
IBBILL | ADDTXN+4~, ADDTXN+6*, ADDTXN+7, ADDTXN+11, ADDTXN+18 |
IBBTCH | MSG+19~, MSG+44*, MSG+46*, MSG+51*, MSG+53, MSG+54, MSG+57, ADDTXN+4~, ADDTXN+6*, ADDTXN+12 , ADDTXN+18 |
IBC | ADD+4~ |
IBD | MSG+19~, MSG1+18*, MSG1+27*, MSG1+33 |
IBD("MSG#" | MSG+23*, MSG+54, ADDTXN+14 |
IBD("Q" | MSG+33*, MSG+35*, ADDTXN+10 |
IBD("SUBJ" | MSG+25*, MSG+33, MSG+34, MSG+35, MSG+54 |
IBDA | ADDTXN+4~, ADDTXN+6*, ADDTXN+20*, ADDTXN+22 |
IBDATA | ADD+4~, ADDTXN~, ADDTXN+6, ADDTXN+8, ADDTXN+18 |
IBDATE | MSG+19~, MSG+26*, MSG+30*, MSG+54, MSG1+33 |
IBDT | ADDTXN+4~, ADDTXN+8*, ADDTXN+18 |
IBE | LOADDET+11~, LOADDET+26, LOADDET+28, LOADDET+29 |
IBE("DIERR" | LOADDET+28 |
IBEFLG | SERVER+2~, SERVER+5*, SERVER+6, MSG+19~, MSG+22*, MSGQ*, MSGQ+1 |
IBERR | SERVER+2~, SERVER+6, MSG+22*, MSG+34, MSG+40*, MSG+53*, MSG+56*, MSG+65*, MSG1+4*, MSG1+7* , MSG1+20*, MSG1+29*, MSG1+38, MSG1+40*, MSGQ, ADD~, ADD+5, ADD+10*, ADD+12, ADD+13 , LOADDET~, LOADDET+29 |
IBERR( | LOADDET+28* |
IBGBL | MSG+19~, MSG+22*, MSG+53, MSG1+4, MSG1+7, MSG1+11*, MSG1+12, MSG1+20, MSG1+29, MSG1+38 , MSG1+40, MSGQ, REST~, REST+3, REST+4, ADD~, ADD+5, ADD+6, ADD+12, LOADDET~ , LOADDET+16, LOADDET+22, LOADDET+24, CKLABEL~, CKLABEL+5 |
IBHD | MSG+19~, MSG+24*, MSG+25, MSG+26, MSG+41, MSG+66, MSG1+33 |
IBHDR | ADD+4~, ADD+6*, ADD+7, ADD+8, ADD+9, ADD+12 |
IBHOLDCT | SERVER+2~, MSG+19~, MSG+32~*, MSG+38*, MSG+58*, MSG+63*, MSG1, MSG1+16*, MSG1+25* |
IBIFN | ADDTXN+4~, ADDTXN+6*, ADDTXN+7*, ADDTXN+11 |
IBLAST | MSG+19~, MSG+22*, MSG+59*, MSG1*, MSG1+10, MSG1+15, MSG1+17*, MSG1+20*, MSG1+24, MSG1+26* , MSG1+29*, MSG1+38, MSG1+40 |
IBLINE | ADD+4~ |
IBMG | MSG+19~, MSG1+6* |
IBRTN | MSG+19~, MSG1+6*, MSG1+7, ADD+4~, ADD+8*, ADD+14 |
IBTDA | SERVER+2~, SERVER+5, SERVER+6, MSG~, MSG1+38, ADD~, ADD+9*, ADD+10, ADD+11, ADD+12 , ADD+14, LOADDET~, LOADDET+10*, LOADDET+26, LOADDET+28, LOADDET+29 |
IBTDA( | ADD+11* |
IBTEST | ADDTXN+4~, ADDTXN+9*, ADDTXN+11*, ADDTXN+12*, ADDTXN+18 |
IBTNM | LOADDET~, LOADDET+21, LOADDET+23 |
IBTXN | MSG+19~, MSG+22*, MSG+44*, MSG+46, MSG+51, MSG+53, MSG+57*, MSG+69*, MSG1, MSG1+2 , MSG1+4, MSG1+7, MSG1+12, MSG1+14, MSG1+19*, MSG1+20, MSG1+23, MSG1+28*, MSG1+29, MSG1+32 , MSG1+33, REST~, CKLABEL~, CKLABEL+5 |
IBTXN("BATCH" | MSG+54*, MSG+57* |
IBTXND | MSG+19~ |
IBTYP | MSG+19~, MSG1+3*, MSG1+4, MSG1+6, ADD+4~, ADD+8* |
IBTYP1 | MSG+19~, MSG1+2*, MSG1+3 |
IBWANT | MSG+19~, MSG1+9*, MSG1+20*, MSG1+29*, MSG1+34*, MSG1+38 |
IBXMZ | SERVER+2~, SERVER+4*, SERVER+5, SERVER+6, SERVER+8, MSG~, MSG+23, MSG+24 |
IBZ | LOADDET+11~, LOADDET+22*, LOADDET+24* |
LAB | CKLABEL+3~, CKLABEL+4*, CKLABEL+5 |
Q | LOADDET+11~ |
REPORT | ADDTXN~ |
U | MSG+25, MSG+26, MSG+54, MSG1+2, MSG1+6, MSG1+7, MSG1+12, MSG1+14, MSG1+17, MSG1+23 , MSG1+26, MSG1+32, ADD+8, ADD+12, ADD+14, ADDTXN+6, ADDTXN+8, ADDTXN+11, ADDTXN+18, CKLABEL+5 |
X | MSG+19~, MSG+26*, MSG+27, MSG+28*, ADDTXN+4~, ADDTXN+14*, ADDTXN+15, ADDTXN+16*, CKLABEL+3~, CKLABEL+4* , CKLABEL+5*, CKLABEL+6 |
XMDUZ | MSG+19~ |
XMER | SERVER+2~, SERVER+5, MSG~, MSG+2*, MSG+38, MSG+39, MSG+56, MSG+62, MSG+63, MSG+64 , MSG1*, MSG1+10, MSG1+15, MSG1+20*, MSG1+24, MSG1+29*, REST+4 |
>> XMREC | MSG+37, MSG+55, MSG+62, MSG1+15, MSG1+24, REST+4 |
>> XMRG | MSG+38, MSG+42, MSG+44, MSG+57, MSG+58, MSG+62, MSG+63, MSG+67, MSG+69, MSG1+16 , MSG1+17, MSG1+18, MSG1+19, MSG1+25, MSG1+26, MSG1+27, MSG1+28, REST+4 |
>> XMZ | SERVER+4 |
Y | MSG+19~, MSG+30, ADDTXN+4~, ADDTXN+20 |
Z | MSG+19~, MSG1+18*, MSG1+20, MSG1+21, MSG1+27*, MSG1+29, MSG1+30, REST+1~, REST+3*, ADDTXN+4~ , ADDTXN+15*, CKLABEL~, CKLABEL+4 |
ZTREQ | SERVER+7~, SERVER+8* |
Name | Field # of Occurrence |
---|---|
$T(@LAB | CKLABEL+5 |