Routine: DIKKUTL2

Information

DIKKUTL2 ;SFISC/MKO-KEY DEFINITION, SOME UTILITIES ;1:25 PM 17 Jul 1998

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	$$FSTR^DIKCUTL2 $$EXTERNAL^DILFD ^DIR

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: 2

Package	Total	Caller Graph
VA FileMan	2	DDUCHK5 DIKKUTL

Entry Points

Name	Comments	DBIA/ICR reference
GET(FIL,CNT)	;Get information about keys on file FIL
LIST(CNT,HDR)	;
CHOOSE(DIKKCNT,DIKKPR)	;Choose a key
GETFLD(KEY,UI,KEYFLD,UIFLD)	;

External References

Name	Field # of Occurrence
$$FSTR^DIKCUTL2	LIST+2, LIST+7
$$EXTERNAL^DILFD	LIST+19
^DIR	CHOOSE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no Keys defined on "_$$FSTR^DIKCUTL2($P(CNT,U,2))_"." Line Location: LIST+2
Function Call: WRITE	Prompt: !,HDR Line Location: LIST+8
Function Call: WRITE	Prompt: !!?2,NAM,?5,$$EXTERNAL^DILFD(.31,1,"",PRIO,"MSG")_" KEY" Line Location: LIST+19
Function Call: WRITE	Prompt: !?9,TAG_SN_") "_$P($G(^DD(FIL,FLD,0)),U)_" (#"_FLD_$S(FIL=FILE01:")",1:", from File #"_FIL) Line Location: LIST+26
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+7
Routine Call	DIR Line Location: CHOOSE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	LIST+26
^DD("IX" - [#.11]	LIST+16, GETFLD+16, GETFLD+17, GETFLD+18, GETFLD+19
^DD("KEY" - [#.31]	GET+5, GET+6, GET+7!, GET+10, GET+11, GET+12, GETFLD+6, GETFLD+7, GETFLD+8

Naked Globals

Name	Field # of Occurrence
^(	GET+5, GETFLD+8
^(0	GET+12, GETFLD+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	GET~, GET+4!, GET+8, GET+13*, LIST~, LIST+1, LIST+2, LIST+7
CNT(	GET+9, GET+10, GET+12*, LIST+11, LIST+12, LIST+13, LIST+14, LIST+24, LIST+25
DIERR	LIST+4~
DIKKCNT	CHOOSE~, CHOOSE+1, CHOOSE+5
DIKKCNT(	CHOOSE+8
DIKKCNT(0	CHOOSE+5
DIKKPR	CHOOSE~, CHOOSE+4
DIR	GET+2~, CHOOSE+2~
DIR("?"	CHOOSE+6*
DIR("A"	CHOOSE+4*
DIR("B"	CHOOSE+5*
DIR(0	CHOOSE+3*
DIROUT	GET+2~, CHOOSE+2~
DIRUT	GET+2~, CHOOSE+2~, CHOOSE+7
DTOUT	GET+2~, CHOOSE+2~
DUOUT	GET+2~, CHOOSE+2~
FIL	GET~, GET+5, GET+7, GET+13, LIST+4~, LIST+25, LIST+26, GETFLD+1~, GETFLD+8, GETFLD+9 , GETFLD+19*, GETFLD+20, GETFLD+21
FILE01	LIST+4~, LIST+13*, LIST+26
FLD	GET+1~, GET+11, GET+12, LIST+4~, LIST+25, LIST+26, GETFLD+1~, GETFLD+8, GETFLD+9, GETFLD+19 , GETFLD+20, GETFLD+21
HDR	LIST~, LIST+7*, LIST+8
I	GETFLD+1~, GETFLD+5, GETFLD+9, GETFLD+10, GETFLD+15, GETFLD+21, GETFLD+22
KEY	GET+1~, GET+5, GET+6, GET+7, GET+9, GET+10, GET+11, GET+12, LIST+4~, LIST+12 , GETFLD~, GETFLD+6, GETFLD+7, GETFLD+8
KEYFLD	GETFLD~, GETFLD+5!, GETFLD+10*
KEYFLD(	GETFLD+9*
MSG	LIST+4~
NAM	GET+1~, GET+5, GET+7, GET+9, GET+10, GET+12, LIST+4~, LIST+11, LIST+12, LIST+13 , LIST+14, LIST+19, LIST+24, LIST+25
ORD	GETFLD+1~, GETFLD+18*, GETFLD+19
PRIO	LIST+4~, LIST+13*, LIST+19
S	GETFLD+1~, GETFLD+7, GETFLD+8, GETFLD+17, GETFLD+18
SN	LIST+4~, LIST+24*, LIST+25, LIST+26
TAG	LIST+4~, LIST+23, LIST+26, LIST+27
U	GET+12, GET+13, LIST+2, LIST+7, LIST+13, LIST+14, LIST+17, LIST+18, LIST+25, LIST+26 , GETFLD+9, GETFLD+19, GETFLD+21
UI	LIST+4~, LIST+14, LIST+15, LIST+16, LIST+17, LIST+18, LIST+20, GETFLD~, GETFLD+16, GETFLD+17 , GETFLD+18, GETFLD+19
UIFLD	GETFLD~, GETFLD+15!, GETFLD+22*
UIFLD(	GETFLD+21*
UITXT	LIST+4~, LIST+17, LIST+18, LIST+20
X	GET+2~, CHOOSE+2~
Y	GET+2~, CHOOSE+2~, CHOOSE+8

Customize PDF page

Package: VA FileMan