Routine: IBCNINSL

Information

IBCNINSL ;AITC/TAZ/VAD - GENERAL INSURANCE UTILITIES - LOOKUP ;8/20/20 12:46p.m.

Name	Comments	DBIA/ICR reference
DIVISION	;
CLINIC	;
PATIENT	;
INST(ARRAY,PROMPT)	; Institution/Facility Lookup
INSTS(IEN)	;Screen for Institution IA #2171
INSTSQ	;Exit Screen
PAYER(APP,ARRAY)	;Payer Lookup
LOOKUP(FILE,IBPROMPT,ARRAY,IBALL,IBONE,SCREEN)	; Perform a lookup on the selected Dictionary
FIRST
SET	;Set into or remove from ARRAY
SETQ	;
QQ	;Display Help
ERR
QUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,"...not on list...can't remove" Line Location: SET+4
Function Call: WRITE	Prompt: *7,"...removed from list..." Line Location: SET+5
Function Call: WRITE	Prompt: !?3,*7,"You have already selected that ",IBPROMPT,". Try again." Line Location: SET+7
Function Call: WRITE	Prompt: !,"ENTER:" Line Location: QQ+3
Function Call: WRITE	Prompt: !?5,"- ALL (Default) for all ",PROMPT,", or" Line Location: QQ+4
Function Call: WRITE	Prompt: !?5,"- Individual ",IBPROMPT Line Location: QQ+5
Function Call: WRITE	Prompt: !?5,"- RETURN once all ",PROMPT," have been selected" Line Location: QQ+6
Function Call: WRITE	Prompt: !?5,"- An entry preceeded by a minus [-] sign to remove that entry from list." Line Location: QQ+8
Function Call: WRITE	Prompt: !!,"NOTE, you have already selected:" Line Location: QQ+9
Function Call: WRITE	Prompt: !?8,$S(IBUTNI=1:IBJ,1:@ARRAY@(IBJ)) Line Location: QQ+10
Function Call: WRITE	Prompt: ! Line Location: QQ+11