IBCEST ;ALB/TMP - 837 EDI STATUS MESSAGE PROCESSING ;17-APR-96
Source file <IBCEST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UPD361(IBTDA) | ; Update IB BILL STATUS MESSAGES file
; IBTDA = ien of return message in file 364.2 |
|
UPDTBILL() | ||
STORE(IB0,IBBTCH,IBMNUM,IBTDA,IBBILL,IBSEQ,IBPID,IB1) | ;
|
|
UPDQ | ||
BLDMSG(IB1,IBTDA,IBT,IBAUTO) | ; Builds message text
; IB1 = flag for batch message ; IBTDA = ien of entry in file 364.2 ; IBT = array returned with message text ; IBAUTO = if passed by reference, returns 1 if text indicates review ; not needed |
|
UPDINS(IBPID,IBINS,IBIFN,IBTDA) | ||
UPDINSQ | ||
UPDLOG(UPD,IBDATE,IBINS,IBLOOK,IBTYP,IBID) | ||
MSGLNSZ(MSG) | ; Change Input Message Lines to be no more than 70 characters long each
|
FileNo | Call Tags |
---|---|
^DIC(36 - [#36] | Classic Fileman Calls, GET1^DIQ |
^IBM(361 - [#361] | Classic Fileman Calls, WP^DIE |
^IBA(364.2 - [#364.2] | EXTERNAL^DILFD |
^DGCR(399 - [#399] | Classic Fileman Calls |