Routine: IBCNESI1

Information

IBCNESI1 ;ALB/TAZ - MEDICARE POTENTIAL COB Patient Selection ;15 Jan 13

Name	Comments	DBIA/ICR reference
LIST	; Entry Point from IBCNESI ; IBSDT - Start Date ; IBEDT - End Date ; IBSORT - Sort Direction ; IBREP - Report or Screen ; IBCOMP - ; 1 = include completed entries only ; 2 = include completed entries only with comments ; 3 = exclude completed entries ; 4 = exclude completed entries with comments
BLDTMP	; construct the temporary global array according to filter and sort criteria selected by user
MATCH(IBDFN,INSCONM)	;Match Insurance Companies with Insurance Type subfile.
MATCHQ	;
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
EXPNDQ	;
BLDSCRN	;build screen of worklist entries
SET(X,CNT,IBIEN)	;set up list manager screen array
SEL(IBDA,ONE)	; Select entry(s) from list ; IBDA = array returned if selections made ; IBDA(n)=ien of entry selected (file 365) ; ONE = if set to 1, only one selection can be made at a time

Name	Line Occurrences
Function Call: WRITE	Prompt: ". " Line Location: BLDTMP+50
Function Call: WRITE	Prompt: @IOF Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Status of entries displayed:" Line Location: HELP+4
Function Call: WRITE	Prompt: !," Y - Entry has been reviewed but is not yet complete" Line Location: HELP+5
Function Call: WRITE	Prompt: !," N - Entry has not been reviewed" Line Location: HELP+6
Function Call: WRITE	Prompt: ! Line Location: HELP+7
Function Call: WRITE	Prompt: !,"* Denotes that the Insurance Company in the Response Record" Line Location: HELP+8
Function Call: WRITE	Prompt: !," matches an Insurance Company in the Insurance Type " Line Location: HELP+9
Function Call: WRITE	Prompt: !," sub-file of the Patient File." Line Location: HELP+10