IBCESRV2 ;ALB/TMP - Server based Auto-update utilities - IB EDI ;03/05/96
Source file <IBCESRV2.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CON837 | ; Confirmation of 837 batch - auto update
|
|
BILLSTAC(IBBILL,IBTYP) | ;Change status of transmit bill
; IBBILL = the ien of the entry in file 364 to update ; IBTYP = code for new status (see field 364;.03 for details) |
|
REJ837 | ; Rejections 837
|
|
DELMSG(IBTDA) | ;
; Delete message after it successfully updates the database. ; IBTDA = the ien of the message in file 364.2 |
|
BILLSTAR(IBBILL,IBTDA) | ;Change status of transmit bill and bill on rejection
; IBBILL = ien of bill (399) ; IBTDA = ien of error message |
|
UPDMSG(IBTDA,STAT,UPD) | ; Update msg with status of 'P','U' or delete message
; STAT = 'P' 'U' for pending or updating, 'R' to delete ; UPD = flag that says update the data base updated field (.12) if 1 |
|
STOREM(IBTDA,IBTEXT,IBE) | ;Store message text in file 364.2
; INPUT: ; IBTDA = ien in file 364 message field entry #IBTDA ; IBTEXT = name of the array where the message text is retrieved from ; or "@" to delete the text from the message field ; OUTPUT: ; IBE = array of errors (IBE("DIERR")) returned, pass by reference |
|
CKRES(IBBDA,IBDEF,IBLIST) | ;Chk to see if the batch file can be updated to
; completely resubmitted based on finding all bills in it ; having a status of cancelled, resubmitted, deleted or closed ; or if none of these statuses, they at least have a transmission ; record for the same bill created at a later date/time. |
|
UPDCONF(IBBDA,IBTDA,IBTYP,IBAUTO) | ; Add status msgs to STATUS file #361
; Update data base from confirmation msg ; IBBDA = ien of batch ; IBTDA = ien of message ; IBTYP = type of message ; (0=Austin confirmation, 1=confirmation by non-payer ; 2=confirmation by payer) ; IBAUTO = flag for update mode ; 0 or null : manual 1 : auto ; ^TMP("IBCONF",$J,bill ien)="" where bill ien is the internal entry ; number of any bills in file 364 to be excluded from the ; confirmation due to reported errors |
|
UPDREJ(IBBDA,IBTDA) | ; Update data base from rejection msg
; IBBDA = ien of batch ; IBTDA = ien of message |
|
MAILIT | ; Mails the report text (bulletin) to the IB EDI SUPERVISOR mail grp;
|
|
SEND(IBOK) | ; Send actual message for 1 report
|
FileNo | Call Tags |
---|---|
^IBA(364 - [#364] | Classic Fileman Calls |
^IBA(364.1 - [#364.1] | Classic Fileman Calls |
^IBA(364.2 - [#364.2] | Classic Fileman Calls, WP^DIE |
^DGCR(399 - [#399] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | BILLSTAR+7, BILLSTAR+14, UPDCONF+28 |
^DIC(36 - [#36] | BILLSTAR+14 |
^IBA(364 - [#364] | BILLSTAC+6, BILLSTAR+6, BILLSTAR+7, CKRES+22, CKRES+23, CKRES+24, UPDCONF+20, UPDCONF+23, UPDCONF+35, UPDREJ+8 , UPDREJ+20 |
^IBA(364.1 - [#364.1] | CON837+16, CKRES+19, UPDCONF+37, UPDCONF+39 |
^IBA(364.2 - [#364.2] | CON837+5, REJ837+5, BILLSTAR+6, UPDMSG+8, UPDMSG+11, UPDCONF+17, UPDREJ+8, MAILIT+5 |
^IBE(364.3 - [#364.3] | CON837+6 |
^TMP("IBCONF" | UPDCONF+21, UPDCONF+48! |
^TMP("IBMSG" | MAILIT+2!, MAILIT+9, MAILIT+13*, MAILIT+14*, MAILIT+15*, MAILIT+16*, MAILIT+18, MAILIT+20!, SEND+6! |
^TMP("IBMSGH" | MAILIT+2!, MAILIT+10*, SEND+3, SEND+6! |
^TMP($J | MAILIT+20! |
Name | Field # of Occurrence |
---|---|
^( | MAILIT+5 |
^(0 | BILLSTAR+6, UPDCONF+37 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | CON837+3~, BILLSTAC+4~, BILLSTAC+15*, BILLSTAR+4~, BILLSTAR+11*, UPDMSG+4~, UPDMSG+10*, UPDMSG+11, CKRES+16~, CKRES+28* , UPDCONF+13~, UPDCONF+29*, UPDCONF+37*, UPDCONF+40*, UPDREJ+4~, UPDREJ+15* |
DIE | CON837+3~, BILLSTAC+4~, BILLSTAC+15*, BILLSTAR+4~, BILLSTAR+11*, UPDMSG+4~, UPDMSG+10*, CKRES+16~, CKRES+28*, UPDCONF+13~ , UPDCONF+29*, UPDCONF+37*, UPDCONF+40*, UPDREJ+4~, UPDREJ+15* |
DR | CON837+3~, BILLSTAC+4~, BILLSTAC+15*, BILLSTAR+4~, BILLSTAR+11*, UPDMSG+4~, UPDMSG+9*, CKRES+16~, CKRES+28*, UPDCONF+13~ , UPDCONF+27*, UPDCONF+28*, UPDCONF+37*, UPDCONF+41*, UPDREJ+4~, UPDREJ+16* |
IB | CKRES+16~, CKRES+22*, CKRES+23, UPDCONF+34~, UPDCONF+35*, UPDCONF+37 |
IB0 | CON837+3~, CON837+5*, CON837+6, CON837+10, UPDCONF+13~, UPDCONF+17*, UPDCONF+33, UPDCONF+35, UPDCONF+36, UPDCONF+41 , UPDREJ+4~, UPDREJ+8*, UPDREJ+10, UPDREJ+16, MAILIT+1~, MAILIT+5*, MAILIT+6, MAILIT+8, MAILIT+10, MAILIT+12 , MAILIT+16 |
IBAUTO | UPDCONF~ |
IBBDA | CON837+3~, CON837+5*, CON837+16, CON837+22, CKRES~, CKRES+19, CKRES+22, CKRES+23, CKRES+28, UPDCONF~ , UPDCONF+20, UPDCONF+23, UPDCONF+33, UPDCONF+39, UPDCONF+40, UPDREJ~, UPDREJ+14, UPDREJ+15, UPDREJ+20 |
IBBILL | CON837+3~, BILLSTAC~, BILLSTAC+6, BILLSTAC+15, BILLSTAR~, BILLSTAR+6, BILLSTAR+7, BILLSTAR+14, CKRES+16~, UPDCONF+13~ , UPDCONF+20*, UPDCONF+21, UPDCONF+23, UPDCONF+28, UPDCONF+29, UPDREJ+4~, UPDREJ+8*, UPDREJ+12, UPDREJ+14, UPDREJ+20* |
IBBST | CON837+3~, CON837+16*, CON837+18 |
IBCBH | BILLSTAR+4~, BILLSTAR+7*, BILLSTAR+14 |
IBDA | BILLSTAR+4~, BILLSTAR+6*, BILLSTAR+7, BILLSTAR+11 |
IBDEF | CKRES~, CKRES+18*, CKRES+19, CKRES+28 |
IBE | STOREM~ |
IBE("DIERR" | STOREM+12!, STOREM+14! |
IBFLAG | CON837+3~, UPDCONF+13~, UPDCONF+41 |
IBHD | MAILIT+1~, MAILIT+4* |
IBIDA | UPDCONF+13~, UPDCONF+23*, UPDCONF+24 |
IBINC | CKRES+16~, CKRES+18*, CKRES+25*, CKRES+28 |
IBL | MAILIT+1~, MAILIT+4*, MAILIT+13*, MAILIT+14, MAILIT+15*, MAILIT+16* |
IBLIST | CKRES~, CKRES+21!*, CKRES+22, CKRES+25, CKRES+26 |
IBLIST( | CKRES+26* |
IBMSG | CON837+3~ |
IBOK | MAILIT+1~, MAILIT+4*, MAILIT+9, MAILIT+18, MAILIT+19, SEND~, SEND+5* |
IBS | UPDCONF+13~, UPDCONF+18*, UPDCONF+24, UPDCONF+36, UPDCONF+39, UPDCONF+41 |
IBSTAT | BILLSTAC+4~, BILLSTAC+6*, BILLSTAC+8, BILLSTAC+9, BILLSTAC+12, BILLSTAC+13, BILLSTAR+4~, BILLSTAR+7*, BILLSTAR+9, BILLSTAR+11 |
IBTBILL | UPDREJ+4~, UPDREJ+8* |
IBTDA | CON837+4, CON837+5, CON837+10, CON837+20, CON837+22, REJ837+3, REJ837+5, DELMSG~, DELMSG+3, BILLSTAR~ , BILLSTAR+6, BILLSTAR+11, UPDMSG~, UPDMSG+6, UPDMSG+8, UPDMSG+10, STOREM~, STOREM+14, UPDCONF~, UPDCONF+15 , UPDCONF+17, UPDCONF+31, UPDCONF+45, UPDREJ~, UPDREJ+6, UPDREJ+8, UPDREJ+10, UPDREJ+12, UPDREJ+16, UPDREJ+20 , UPDREJ+23, MAILIT+3, MAILIT+5, MAILIT+19 |
IBTEXT | STOREM~, STOREM+10, STOREM+14 |
IBTYP | CON837+3~, CON837+6*, CON837+8, CON837+15*, CON837+18, CON837+22, BILLSTAC~, BILLSTAC+8, BILLSTAC+12, BILLSTAC+13 , BILLSTAC+15, UPDCONF~, UPDCONF+18, UPDCONF+26, UPDCONF+31, UPDCONF+45 |
IBZ | STOREM+8~, STOREM+14*, MAILIT+1~, MAILIT+4*, MAILIT+5* |
PRCASV | UPDCONF+13~ |
STAT | UPDMSG~, UPDMSG+6, UPDMSG+8, UPDMSG+9 |
U | CON837+5, CON837+6, CON837+10, CON837+16, BILLSTAC+6, REJ837+5, BILLSTAR+6, BILLSTAR+7, BILLSTAR+14, UPDMSG+8 , CKRES+19, UPDCONF+28, UPDCONF+33, UPDCONF+35, UPDCONF+36, UPDCONF+37, UPDCONF+39, UPDCONF+41, UPDREJ+8, UPDREJ+10 , UPDREJ+16, MAILIT+6, MAILIT+8 |
UPD | UPDMSG~, UPDMSG+9 |
X | BILLSTAC+4~, STOREM+8~ |
XMBODY | MAILIT+1~, SEND+2~, SEND+3*, SEND+4 |
XMDUZ | MAILIT+1~, SEND+2~ |
XMSUBJ | MAILIT+1~, SEND+2~, SEND+3*, SEND+4 |
XMTO | MAILIT+1~, SEND+2~, SEND+4 |
XMTO("I:G.IB | EDI SUPERVISOR" , SEND+3* |
XMZ | MAILIT+1~, SEND+2~, SEND+4, SEND+5 |
Y | BILLSTAC+4~, STOREM+8~ |
Z | CON837+3~, CKRES+16~, CKRES+23*, CKRES+24, CKRES+26, MAILIT+1~, MAILIT+13*, MAILIT+15* |
Z0 | CKRES+16~, CKRES+24*, CKRES+25, CKRES+26 |
>> ZTREQ | UPDCONF+47*, UPDREJ+25* |