Routine: IBCEF11

Information

IBCEF11 ;ALB/TMP - FORMATTER SPECIFIC BILL FUNCTIONS - CONT ;30-JAN-96

Source file <IBCEF11.m>

Name	Comments	DBIA/ICR reference
BOX24D(A,IB)	; Returns the lines for boxes 19-24 of the CMS-1500 display ; IB = flag is 1 if only box 24 is needed
RCBOX()	; Returns the lines for revenue code boxes of the UB-04 display
OUTPT(IBIFN,IBPRINT)	; Returns an array of service line data from ; CMS-1500 box 24. Output is in IBXDATA(n) ; IBPRINT = print flag 1: return print fields ; 0: return EDI fields ; Uses diagnosis array ^TMP("IBXSAVE",$J,"DX",IBIFN,DIAG CODE)=SEQ # ; if it already exists. If not, it builds it from N-DIAGNOSES element
ISLAB(LDATA)	; Returns 0/1 if line item data indicates the item is a lab (1) ; 'LAB' is defined here as type of service = 5
FMT(DATA,DLEN,FLEN)	; Returns a string in DATA with a max length of DLEN ; and a field length of FLEN
DATE(X,DEL)	; Returns FM date in X as MMxDDxYYYY where x=DEL
BATCH()	; Sets up record for and stores/returns the next batch number
BATCHQ
GETLDAT(IBXIEN)	; Extract data for 837 transmission LDAT record ; IBXIEN - ien in file 399 ; Sets up IBXSAVE("LDAT",n) array: ; Attachment report type ^ Attachment report transmission code ^ Attachment control number ^ ; OB Anesthesia Additional Units ^ Purchase Service Provider ID ^ Purchase Service Amount ^
LDAT	;
VC80L(IBIFN,LN)	; Extracts the data for the "LDAT" record for VALUE CODE 80 Line item. ; IBIFN = Claims internal id number ; LN =