IBCEF4 ;ALB/TMP - MRA/EDI ACTIVATED UTILITIES ;06-FEB-96
Source file <IBCEF4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDIACTV(IBEDIMRA) | ; Returns 0 if EDI or MRA is not active,
; otherwise, returns 1 ; IBEDIMRA : 1= checking if EDI is active, 2= checking if MRA is active |
|
RATEOK(IBIFN) | ; Returns 1 if rate type of bill IBIFN is transmittable
|
|
INSOK(INS) | ; Determine EDI activation status of insurance co
|
|
BSTATX(IBIFN) | ; Returns internal value of bill's latest transmission status
|
|
LAST364(IBIFN) | ; Determine ien of latest transmit bill record for a bill
|
|
TXMT(IBIFN,IBWHY,IBNEW) | ; Determine if bill # IBIFN is 'transmittable'
; IBNEW = flag is 1 if new entry - don't check for entry in file 364 ; Function returns: ; 0 if not transmittable ; if transmittable, the entire node 3 of the insurance company ; and, if passed by reference IBWHY = reason not transmittable ; 1 if local print ; 2 if EDI/MRA not active ; 3 if rate type not transmittable ; 4 if no transmit for insurance co ; 5 if failed txmn rules ; and IBWHY(0) = ien of rule failed ; 6 if Rx with missing/invalid NDC format |
|
TXMTQ | ;
|
|
MRASEC(IBIFN) | ; Returns 1 if current bill is secondary to MCR WNR
|
|
EDIT(IBIFN,IB,IBWHY) | ; Find, execute edits applying to bill to see if transmittable
; IBIFN = ien of bill in file 399 ; IB = array containing necessary data for xref search from bill ; subscripted by field # in file 364.4 |
|
EDITQ | ||
STATUS(IBIFN) | ; Function returns whether or not bill currently has a status
; message or EOB message not yet fully reviewed - ; (only for transmittable bills) ; IBIFN = ien of bill in file 399 ; Returns: ; 0 = None found ; If found, returns a pieced string as follows: |
|
TEST(IBIFN) | ; Returns 1 if bill IBIFN is a transmission test bill, 0 if not
|