Routine: ICDEXLK2

Information

ICDEXLK2 ;SLC/KER - ICD Extractor - Lookup, SBR/Ask/One/Mul ;12/19/2014

Name	Comments	DBIA/ICR reference
ASK	; Ask for Selection
SBR	; Space-Bar Return DIC(0) not contain "A"
ONE(X)	; One Entry Found
ONERS(X)	; One Entry Found Roll and Scroll
ONESM(X)	; One Entry Found ScreenMan
MUL(X)	; Multiple Entries Found
MULRS(X)	; Multiple Entries Found Roll and Scroll
MULRSW	; Write Multiple Roll and Scroll
MULRSS(LEX,LS)	; Select Multiple Roll and Scroll
MULRSSH	; Select Multiple Help Roll and Scroll
MULSM(X)	; Multiple Entries Found ScreenMan
MULSMW	; Write Multiple ScreenMan
MULSMS(LEX,LS)	; Select Multiple ScreenMan
MULQ	; Quit Multiple
INP(X,VER,CDT)	; Get User Input
INPH(X)	; Input Help
INPH2(X)	; Input Help
INPRE(X)	; Input Pre-Processing
OUT(X,Y,FMT,ARY)	; Output Array
TM(X,Y)	; Trim Y
X(SEL,SUB)	; Set X
Y(ROOT,IEN,CDT,FMT)	; Set Y
SH	; Show TMP

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ONERS+20
Function Call: WRITE	Prompt: !,DIR("A",LN2) Line Location: ONERS+24
Function Call: READ	Variable: ANS Timeout: 300 Line Location: ONESM+8
Function Call: WRITE	Prompt: ! Line Location: MULRS+10
Function Call: WRITE	Prompt: !,$J(ENT,5),".",?TAB Line Location: MULRSW+4
Function Call: WRITE	Prompt: $P(NR,"^",1)," " Line Location: MULRSW+9
Function Call: WRITE	Prompt: $P($G(@(RT_+IEN_",0)")),"^",1) Line Location: MULRSW+11
Function Call: WRITE	Prompt: $G(TXT(1)) Line Location: MULRSW+15
Function Call: WRITE	Prompt: !,?IND,$G(TX2(ICDI)) Line Location: MULRSW+19
Function Call: WRITE	Prompt: ! Condition for execution: ICDI>1 Line Location: MULRSW+22
Function Call: WRITE	Prompt: ?IND,$G(TXT(ICDI)) Line Location: MULRSW+22
Function Call: WRITE	Prompt: !,$G(HLP) Line Location: MULRSSH+1
Function Call: READ	Variable: ANS Timeout: 300 Line Location: MULSMS+6
Function Call: WRITE	Prompt: !,?4,$G(TXT(TMP)) Line Location: INPH+7
Function Call: WRITE	Prompt: !,?4,$G(TXT(TMP)) Line Location: INPH+11
Function Call: WRITE	Prompt: !,?4,$G(TXT(TMP)) Line Location: INPH2+12
Function Call: WRITE	Prompt: !,?4,$G(TXT(TMP)) Line Location: INPH2+23
Function Call: WRITE	Prompt: Condition for execution: '$D(@NN) ! Q:'$D(@NN) Line Location: SH+3
Function Call: WRITE	Prompt: !,NN,"=",@NN Line Location: SH+3
Function Call: WRITE	Prompt: ! Line Location: SH+4