Routine: IBCE837A

Information

IBCE837A ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION - CONTINUED ;8/6/03 10:50am

Name	Comments	DBIA/ICR reference
UPD(MSGNUM,BATCH,CNT,BILLS,DESC,IBBTYP,IBINS)	; Upd current batch + bills w/new status
PRE	; Run before processing a bill entry
POST	; Run after processing a bill entry for cleanup
MAILIT(IBQUEUE,IBBILL,IBCTM,IBDUZ,IBDESC,IBBTYP,IBINS)	; Send mail msg, update bills
MAILQ	;
CHKNEW(IBQ,IBBILL,IBCTM,IBDESC,IBBTYP,IBINS,IBSITE,IBSIZE)	; ; Determine if ok to send msg ; Check for one insurance per batch if IBINS defined ; Returns IBSIZE, IBCTM, IBBILL (pass by reference)
ERRMSG(XMBODY)	; Send bulletin for error message
CLEANUP	; Cleans up bill transmission environment
CLEANP	; Entrypoint for extract data disply
ALERT(XQAMSG,IBGRP)	; Send alert message
CHKBTCH(IBBNO)	; Delete batch whose batch # is IBBNO if no entries in file 364 ; and not a resubmitted batch
TESTLIM(IBINS)	; Check for test bill limit per day has been reached
1
SETVAR(IBXIEN,IBINS,IB0,IBSEC,IBNID,IB837R,IBDIV)	; ; Set up variables needed for subscripts in sort global ; ejk added IBSEC logic for patch 296 ; IBSEC=1 if primary bill, 2 if 2nd/non-MRA, 3 if 2nd/MRA