Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCESRV2

Package: Integrated Billing

Routine: IBCESRV2


Information

IBCESRV2 ;ALB/TMP - Server based Auto-update utilities - IB EDI ;03/05/96

Source Information

Source file <IBCESRV2.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call