Routine: IBCECSA6

Information

IBCECSA6 ;ALB/CXW/PJH - VIEW EOB SCREEN ;01-OCT-1999

Name	Comments	DBIA/ICR reference
BLD	;build EOB data display
GETEOB(IBCNT,IBSRC,IBFULL,IBJTIBLN)	; Get EOB data in display format ; IBCNT = the ien of the entry in file 361.1 ; IBSRC = 1 if called from AR, 0 if List Manager format needed ; = 2 if called from AR and header data is desired ; If IBSRC > 0 ^TMP("PRCA_EOB",$J,IBCNT,n)=line n's text is ret'd ; IBFULL = 1 if no check should be made to eliminate a fld whose value=0 ; IBJTIBLN = line number to start VALMCNT with (optional) ; used by IBJTBA1	ICR #4044 Status: Active Usage: Private
SEL(IB,ONE)	;
ACT	; Reposition display using actions
SET(IBSRC,X,CNT,IBCNT)	;set list manager arrays
GEN	;
PAY	;
CLVL	;
MOUT	;
CLVLA	;
A10(X)	; returns a dollar amount right justified to 10 characters
P10(X)	; returns a % right just 10 ; X is a decimal between 0-1
PPR	;Display Payer Policy References
AUDIT	;Display details of any EEOB MOVE/COPY