Routine: XTLKTICD

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

XTLKTICD ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC- DRIVER ROUTINE FOR ICD LOOKUP UTILITY ;04/06/95 14:19

Source Information

Source file <XTLKTICD.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Toolkit	2	QU^XTLKEFOP LKUP^XTLKMGR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Toolkit	1	XTLKLKUP

Entry Points

Name	Comments	DBIA/ICR reference
KL
A
COMMON
LOOKUP	;
CODE	;;;S DIC=$S($E(XTLKTTYP)="D":80,1:80.1),DIC(0)="EQMZ" D ^DIC W ! Q
NARR	;;;W ! G ICDDX^XTLKKWLD:$E(XTLKTTYP)="D",ICDOP^XTLKKWLD

External References

Name	Field # of Occurrence
QU^XTLKEFOP	A
LKUP^XTLKMGR	A+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: XTLKX Timeout: DTIME Line Location: A+2
Function Call: WRITE	Prompt: !,"NARRATIVE: " Line Location: A+2
Function Call: READ	Prompt: "NARRATIVE: " Variable: X Timeout: $S($D(DTIME):DTIME,1:300) Line Location: COMMON+0
Function Call: WRITE	Prompt: ! Line Location: COMMON+0
Function Call: WRITE	Prompt: ! Line Location: COMMON+1
Function Call: WRITE	Prompt: ! Line Location: LOOKUP+1
Function Call: WRITE	Prompt: ! Line Location: CODE+0

Label References

Name	Line Occurrences
KL	A+1, A+3
LOOKUP	COMMON
NARR	LOOKUP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	KL!, LOOKUP+2!
DIC("S"	LOOKUP+2, LOOKUP+3, LOOKUP+4*
DTIME	A+2, COMMON
Q	COMMON*, COMMON+2!
>> X	COMMON*, LOOKUP+5
XTLKPF	KL!
XTLKTTYP	COMMON+2!, LOOKUP+2, LOOKUP+3, LOOKUP+4
XTLKUT	KL!
XTLKWD2	KL!
XTLKX	KL!, A+2*
XTLKY	KL!, A+1, A+2