Routine: IBCECSA5

Information

IBCECSA5 ;ALB/CXW - VIEW EOB SCREEN ;01-OCT-1999

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for VIEW EOB
INIT	; -- init variables and list array
INITQ
HELP	; -- help code
EXIT	; -- exit code
MIN	;
MINDAT	; data for MIN tag ; format: piece^label^special format code^special decision for disp
REMARK	; set up remarks and line level details
MRALLA
EOBERR	; Display information about any 361.1 message storage or filing errors
TXT(IBRM,IBLN,IBXY)	;display text over 79 chars
REP
SET(IB,IBSAV)	;
A10(X)	;
A7(X)	; returns a dollar amount right justified to 7 characters
TXT1(IBT,DIWL,DIWR)	; sets up text for over 79 chars ; IBT - pass by ref, array of text to be formatted back in array ; DIWL - left margin, DIWR = right margin
RJ(X,Y)	; right just, default is 10
CARC(IBCDE,IBF,IBML,IBARY)	;new CARC/RACR API for IB2.0547 ; IBCDE = reason code from EOB to lookup in carc/rarc file (REQUIRED) ; IBF = file# to do lookup (either 345-CARC or 346-RARC) REQUIRED ; IBML = max length for each line (default is 79) ; IBARY = (required) subscripted array to return description data in: ; array(1)=first line of word-processed description ; array(2)= 2nd line of wp description, and so on

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1