Routine: IBDVAUT1

Information

IBDVAUT1 ;ALB/CS/SS - ICD-9 LOOKUP UTILITY ; 06/18/2012

Name	Comments	DBIA/ICR reference
EN1(IBDUTVB,IBDAUTNI,IBDUTSTR,IBDUTNALL)	;
FIRST	;
REDO
SET	;
QQ
ERR
QUIT

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: REDO+0
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+0
Function Call: WRITE	Prompt: D:X["?" Condition for execution: '$D(IBDUTNALL) "ALL// " R X:DTIME G ERR:(X="^")!'$T Line Location: REDO+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: REDO+2
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+2
Function Call: WRITE	Prompt: !?3,*7,"You have already selected that ",IBDUTSTR,". Try again." Line Location: SET+4
Function Call: WRITE	Prompt: !?5,"- A ",IBDUTSTR," and return when all ",IBDUTSTR,"s have been selected--limit 20" Line Location: QQ+0
Function Call: WRITE	Prompt: !?5,"Imprecise selections will yield an additional prompt." Line Location: QQ+1
Function Call: WRITE	Prompt: !?5,"(e.g. When a user enters 'A', all items beginning with 'A' are displayed.)" Line Location: QQ+2
Function Call: WRITE	Prompt: !?5,"- An entry preceded by a minus [-] sign to remove entry from list." Line Location: QQ+3
Function Call: WRITE	Prompt: !,"NOTE, you have already selected:" Line Location: QQ+4
Function Call: WRITE	Prompt: !?8,$S(IBDAUTNI=1:IBDAJ,1:@IBDUTVB@(IBDAJ)) Line Location: QQ+4