Routine: ZIBCKPKG

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
SCAN	;
NOQUE	;
QUE	;
3	;;Display names of non-package routines?;;YES
1	;;Ignore non-package routines?;;YES
EN1	; ENTRY FOR SILENT OPERATION
INIT	; INITIALIZATION
QUEST	;
4	;;
NOTPKG	;
ASKIT2	;
EN	; COMMON INTERNAL ENTRY
ZIS	; SELECT DEVICE
SKIP	;
SHOWLC	;
DSPHLP	;
2	;;Display routine names containing lower case letters?;;YES
SHOWNPR	;
DSPLY	;
KILLS	;
GETNXT	;
EXIT	;
CHKPKG	; CHECK FOR PACKAGE
ASKIT	; ASK A YES/NO QUESTION
GETPKG	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+3
^%ZISC	NOQUE+3
^%ZTLOAD	QUE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+7
Function Call: WRITE	Prompt: "- - - PACKAGE SCAN OF UCI ",Y,$S($D(^DD("SITE")):" ON "_^("SITE"),1:"")," - - -",!! Line Location: SCAN+2
Function Call: WRITE	Prompt: XBPF,?4," - ",$P(^DIC(9.4,XBP,0),U,1) Line Location: CHKPKG+4
Function Call: WRITE	Prompt: " (",XBCNT,")",! Line Location: CHKPKG+7
Function Call: READ	Prompt: " -- Package prefix? " Timeout: DTIME Variable: XBPF Line Location: NOTPKG+2
Function Call: WRITE	Prompt: XBR Line Location: NOTPKG+2
Function Call: WRITE	Prompt: ! Line Location: NOTPKG+4
Function Call: WRITE	Prompt: " ",XBCNT," ROUTINES SKIPPED.",! Line Location: NOTPKG+8
Function Call: WRITE	Prompt: ! Line Location: GETPKG+1
Function Call: WRITE	Prompt: " -- Package id must be upper case, length 1-4",! Line Location: GETPKG+4
Function Call: WRITE	Prompt: ! Line Location: DSPLY+2
Function Call: WRITE	Prompt: !,XBR2 Line Location: DSPLY+6
Function Call: WRITE	Prompt: ! Condition for execution: XBJ#8=0 Line Location: DSPLY+7
Function Call: WRITE	Prompt: ?XBJ#8*10,XBR2 Line Location: DSPLY+7
Function Call: WRITE	Prompt: ! Condition for execution: XBJ#8=0 Line Location: DSPLY+8
Function Call: WRITE	Prompt: ?XBJ#8*10,XBR2 Line Location: DSPLY+8
Function Call: WRITE	Prompt: ! Line Location: DSPLY+10
Function Call: WRITE	Prompt: !!,"Non-package routines:",! Line Location: SHOWNPR+2
Function Call: WRITE	Prompt: ! Condition for execution: XBJ#8=0 Line Location: SHOWNPR+4
Function Call: WRITE	Prompt: ?XBJ#8*10,XBR2 Line Location: SHOWNPR+4
Function Call: WRITE	Prompt: ! Line Location: SHOWNPR+5
Function Call: WRITE	Prompt: !!,"Routine names containing lower case letters:",! Line Location: SHOWLC+2
Function Call: WRITE	Prompt: ! Condition for execution: XBJ#8=0 Line Location: SHOWLC+4
Function Call: WRITE	Prompt: ?XBJ#8*10,XBR2 Line Location: SHOWLC+4
Function Call: WRITE	Prompt: ! Line Location: SHOWLC+5
Function Call: WRITE	Prompt: !,XBQ("Q")," ",XBQ("D"),"// " Line Location: ASKIT2+1
Function Call: WRITE	Prompt: XBQ Line Location: ASKIT2+4
Function Call: WRITE	Prompt: ! Line Location: ASKIT2+11
Function Call: WRITE	Prompt: !,"-- Please answer YES or NO" Line Location: ASKIT2+12
Function Call: WRITE	Prompt: !,"-- ",$P(%,";;",2) Line Location: DSPHLP+1
Function Call: WRITE	Prompt: ! Line Location: DSPHLP+2
Routine Call	%ZIS Line Location: ZIS+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^$R(	GETNXT+3, DSPLY+8
^$R("%zzzzzzz"	SCAN+4
^%ZOSF("TEST"	DSPLY+5
^%ZOSF("UCI"	SCAN+1
^DD("SITE"	SCAN+2
^DIC(9.4 - [#9.4]	CHKPKG+2, CHKPKG+4
^UTILITY($J	EN+2!, KILLS+2!, NOTPKG+1, SKIP+1, GETNXT+1*, SHOWNPR+1, SHOWNPR+4, SHOWLC+1, SHOWLC+4

Label References

Name	Line Occurrences
ASKIT	ZIBCKPKG+5, ZIBCKPKG+6, ZIBCKPKG+7, ASKIT2+14
CHKPKG	SCAN+5
DSPHLP	GETPKG+1, ASKIT2+13
DSPLY	GETPKG+2
EN	NOQUE+2, EN1+3
EXIT	ZIBCKPKG+5, ZIBCKPKG+6, ZIBCKPKG+7, ZIS+4, NOQUE+4
GETNXT	SCAN+7, NOTPKG+1, NOTPKG+5, SKIP+1
GETPKG	NOTPKG+2
INIT	ZIBCKPKG+4, EN1+1
KILLS	EXIT+1
NOTPKG	CHKPKG+3
QUE	ZIS+5
SCAN	EN+3
SHOWLC	EN+6
SHOWNPR	EN+5
SKIP	CHKPKG+6, NOTPKG+7

Naked Globals

Name	Field # of Occurrence
^("SITE"	SCAN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE+2, ASKIT+2, DSPHLP+1*, DSPHLP+3!
%ZIS	ZIS+1!, ZIS+2*
DTIME	INIT+2*, NOTPKG+2, ASKIT2+2
IO	NOQUE+1, QUE+3
IO("Q"	ZIS+5
IOF	EN+7
IOP	ZIS+1!
IOST	EN+7
>> POP	ZIS+4
U	ZIBCKPKG+5, ZIBCKPKG+6, ZIBCKPKG+7, INIT+1*, CHKPKG+4, NOTPKG+2, NOTPKG+3, ASKIT2+3, ASKIT2+6
>> X	DSPLY+4*
XBCNT	KILLS+1!, CHKPKG+7, NOTPKG+8, SKIP+1*
XBI	KILLS+1!, CHKPKG+2, NOTPKG+6, SKIP+1, DSPHLP+1*
XBINPR	ZIBCKPKG+5, EN1+2, KILLS+1!, NOTPKG+1
XBJ	KILLS+1!, DSPLY+3, DSPLY+6, DSPLY+8, SHOWNPR+4, SHOWLC+4*
XBLC	ZIBCKPKG+6, EN1+2, EN+6, KILLS+1!
XBLNPR	ZIBCKPKG+7*, EN+5, KILLS+1!
XBP	KILLS+1!, CHKPKG+2*, CHKPKG+4
XBPF	KILLS+1!, CHKPKG+1, CHKPKG+2, CHKPKG+3, CHKPKG+4, NOTPKG+1, NOTPKG+2, NOTPKG+3, NOTPKG+5, NOTPKG+6 , GETPKG+1, GETPKG+2, GETPKG+3, GETPKG+5, SKIP+1, DSPLY+1, DSPLY+8
XBQ	ZIBCKPKG+5, ZIBCKPKG+6, ZIBCKPKG+7, KILLS+1!, ASKIT+1!, ASKIT2+2, ASKIT2+3, ASKIT2+4, ASKIT2+5, ASKIT2+6* , ASKIT2+7, ASKIT2+8, ASKIT2+9, ASKIT2+10, ASKIT2+11
XBQ("D"	ASKIT+2*, ASKIT2+1, ASKIT2+4
XBQ("Q"	ASKIT+2*, ASKIT2+1
XBQ("R"	ASKIT2+5*, ASKIT2+6, ASKIT2+7, ASKIT2+8, ASKIT2+9, ASKIT2+10
XBQUEST	ZIBCKPKG+5, ZIBCKPKG+6, ZIBCKPKG+7, KILLS+1!, GETPKG+1
XBQUIT	EN+1, EN+4, KILLS+1!, SCAN+5, SCAN+6, NOTPKG+3
XBR	KILLS+1!, SCAN+4, SCAN+5, SCAN+7, CHKPKG+1, NOTPKG+1, NOTPKG+2, SKIP+1, GETNXT+1, GETNXT+3
XBR2	KILLS+1!, DSPLY+1, DSPLY+4, DSPLY+6, DSPLY+8, SHOWNPR+3, SHOWNPR+4, SHOWLC+3, SHOWLC+4
XBRNPR	KILLS+1!, CHKPKG+5, NOTPKG+6, SKIP+1
>> Y	SCAN+2
ZTDESC	QUE+3*, QUE+5!
ZTDTH	QUE+3*, QUE+5!
ZTIO	QUE+3*, QUE+5!
>> ZTQUEUED	EN+8
>> ZTREQ	EN+8*
ZTRTN	QUE+3*, QUE+5!
ZTSAVE	QUE+1!, QUE+5!
ZTSAVE(	QUE+2*
ZTSK	ZIS+1!, QUE+5!, KILLS+2!

Marked Items

Name	Field # of Occurrence
$T(@XBQUEST	ASKIT+2
$T(@XBQUEST+XBI	DSPHLP+1

Customize PDF page

Package: IHS VA %Utilities

Routine: ZIBCKPKG

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items