IBCE837A ;ALB/TMP - OUTPUT FOR 837 TRANSMISSION - CONTINUED ;8/6/03 10:50am
Source file <IBCE837A.m>
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 |
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | GET1^DIQ |
^IBA(364 - [#364] | Classic Fileman Calls |
^IBA(364.1 - [#364.1] | Classic Fileman Calls |
^DGCR(399 - [#399] | Classic Fileman Calls |