IBCESRV2 ;ALB/TMP - Server based Auto-update utilities - IB EDI ;03/05/96
Source file <IBCESRV2.m>
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 |