Routine: %ZTBKC

Information

%ZTBKC ;SF/GJL - GLOBAL BLOCK COUNT ;05/24/2007 686246.738699

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC $$VERSION^%ZOSV (,ALL,ASKDIR)^%ZTBKC1 ^%ZTLOAD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Kernel	3	XU BLOCK COUNT XUFILESIZE XUGBLSIZE

Entry Points

Name	Comments	DBIA/ICR reference
QQ	;Double question mark response
DSEL	;Ask directory
ALL	;All Globals in Directory
ENCOUNT	; X = Full Global Reference: NAME(SUB1,...,SUBn) ; Surrounding/doubled quotes should have been removed from subscripts ; The count is not accurate for subscripts containing commas
ALLEXIT
ALLM11	;Directory at
SHOW	;Show current selection
READ
SYNTAX2
SYNTAX
QUOTES
XTNDHELP	;Extended help
EXIT
QUIT
STRIP
READY
DQ	;

External References

Name	Field # of Occurrence
^%ZIS	READY+2
HOME^%ZIS	SHOW+1, XTNDHELP+1
^%ZISC	READY+3, READY+4, QUIT
$$VERSION^%ZOSV	%ZTBKC+8
^%ZTBKC1	ENCOUNT+4
ALL^%ZTBKC1	READY+4, ALL+2
ASKDIR^%ZTBKC1	%ZTBKC+9
^%ZTLOAD	READY+3
^DIR	QQ+4, SHOW+4, SHOW+8, DSEL+4, DSEL+11, XTNDHELP+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This version of the Block Count Utility does not support this version of Cache'" Line Location: %ZTBKC+10
Function Call: WRITE	Prompt: !!,"Block Count for Global ^" Line Location: READ+0
Function Call: WRITE	Prompt: %BS,"//" Line Location: READ+0
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:300),! Variable: X Line Location: READ+1
Function Call: WRITE	Prompt: !,$C(7),"Wild cards not allowed as part of the global name." Line Location: STRIP+3
Function Call: WRITE	Prompt: !,$C(7),"Only alphanumerics are allowed in global names." Line Location: STRIP+7
Function Call: WRITE	Prompt: $S(Y=0:" doesn't exist.",1:"OK") Line Location: STRIP+12
Function Call: WRITE	Prompt: !,"Enter: * for all globals in current directory, or" Line Location: SYNTAX+0
Function Call: WRITE	Prompt: !,"Enter: a FULL Global Reference, e.g. ^DD(3,""GL""), or" Line Location: SYNTAX+1
Function Call: WRITE	Prompt: !," ^ " Line Location: SYNTAX+2
Function Call: WRITE	Prompt: "or NULL " Condition for execution: %BS="" Line Location: SYNTAX+2
Function Call: WRITE	Prompt: "to quit." Line Location: SYNTAX+2
Function Call: WRITE	Prompt: !!,"Enter: ? for this help, or" Line Location: SYNTAX+3
Function Call: WRITE	Prompt: !," ?? for more help." Line Location: SYNTAX+4
Function Call: WRITE	Prompt: !,?5,"I'm sorry, but I don't understand your use of quotes." Line Location: SYNTAX2+0
Function Call: WRITE	Prompt: !,"Please surround string subscripts with quotes and any quote" Line Location: SYNTAX2+1
Function Call: WRITE	Prompt: !,"which is a part of the subscript should be doubled." Line Location: SYNTAX2+2
Function Call: WRITE	Prompt: !!,?20,"You have not selected any globals.",! Line Location: SHOW+3
Function Call: WRITE	Prompt: @IOF,!,"You have selected the following globals:",! Line Location: SHOW+5
Function Call: WRITE	Prompt: !,?8,"^"_$P(%A,U) Line Location: SHOW+7
Function Call: WRITE	Prompt: !!,?20,"You have not selected any globals.",! Line Location: DSEL+3
Function Call: WRITE	Prompt: ! Line Location: DSEL+11
Function Call: WRITE	Prompt: ! Line Location: DSEL+13
Function Call: WRITE	Prompt: "." Line Location: DSEL+14
Function Call: WRITE	Prompt: @IOF,!,?35,"More Help",! Line Location: XTNDHELP+2
Function Call: WRITE	Prompt: !,?10,"Globals that contain commas in subscripts may not produce accurate" Line Location: XTNDHELP+3
Function Call: WRITE	Prompt: !,?10,"block counts. Also, avoid specifying full global references" Line Location: XTNDHELP+4
Function Call: WRITE	Prompt: !,?10,"that contain commas in the subscripts when entering globals" Line Location: XTNDHELP+5
Function Call: WRITE	Prompt: !,?10,"at the 'Block Count for Global ^' prompt." Line Location: XTNDHELP+6
Function Call: WRITE	Prompt: !,?10,"" Line Location: XTNDHELP+7
Function Call: WRITE	Prompt: !,?10,"After entering a double question mark ('??') response to the" Line Location: XTNDHELP+8
Function Call: WRITE	Prompt: !,?10,"'Block Count for Global ^' prompt, enter 'S' for a listing" Line Location: XTNDHELP+9
Function Call: WRITE	Prompt: !,?10,"of globals selected or 'D' to de-select globals from this list." Line Location: XTNDHELP+10
Function Call: WRITE	Prompt: ! Line Location: XTNDHELP+11
Function Call: WRITE	Prompt: !!,?20,"No globals have been selected!!!",! Line Location: READY+1
Function Call: WRITE	Prompt: !,"Output results on" Line Location: READY+2
Function Call: WRITE	Prompt: "s" Condition for execution: X>1 Line Location: DQ+1
Function Call: WRITE	Prompt: $C(7)," NOT AVAILABLE!!!!" Line Location: ALLM11+1
Routine Call	%ZIS Line Location: SHOW+1 XTNDHELP+1
Routine Call	DIR Line Location: QQ+4 SHOW+4 SHOW+8 DSEL+4 DSEL+11 XTNDHELP+11
Routine Call	%ZIS Line Location: READY+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	%ZTBKC+7, ALL+1, ENCOUNT+3
^XUTL($J	%ZTBKC+6!, STRIP+12, SHOW+2, SHOW+6, DSEL+2, DSEL+6, DSEL+16!, DSEL+18, DSEL+19, DSEL+20! , READY, DQ+1

Label References

Name	Line Occurrences
ALLEXIT	ALL+2
DSEL	QQ+6
ENCOUNT	DQ+1
QQ	STRIP+4, QQ+5, QQ+6, QQ+7
QUIT	%ZTBKC+7, READ+1, READY, READY+2, READY+3, READY+4
QUOTES	STRIP+10
READ	STRIP+4, STRIP+13, SYNTAX+5, SYNTAX2+3
READY	STRIP+1, STRIP+2
SHOW	QQ+5
STRIP	STRIP
SYNTAX	STRIP+3, STRIP+5, STRIP+6, STRIP+7, STRIP+8, STRIP+9
SYNTAX2	STRIP+11
XTNDHELP	QQ+7

Naked Globals

Name	Field # of Occurrence
^(	DQ+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	STRIP+10, QUOTES, QUOTES+1, SHOW+6, SHOW+7, DSEL+6, DSEL+7, DSEL+8, DSEL+14, DSEL+15 , DSEL+18, DSEL+19, QUIT!, ALL+1, ALLEXIT!, ENCOUNT+3*, EXIT!
%BS	%ZTBKC+6, READ, READ+1, STRIP+6, STRIP+12, STRIP+13, SYNTAX+2, DQ+1*, QUIT!
%I	SHOW+6, DSEL+6, DSEL+7, DSEL+8, DSEL+10, DSEL+14, DSEL+16, DSEL+18*, DSEL+19, DSEL+20 , QUIT!
%T	STRIP+10, STRIP+12, QUOTES, QUOTES+1, DQ+1, QUIT!, ENCOUNT+3*, EXIT!
%U	SHOW+6, DSEL+6, QUIT!
%Z	STRIP+10, STRIP+11, QUOTES, QUOTES+1, QUIT!
%ZIS	%ZTBKC+5~, READY+2*
%ZTBKVER	%ZTBKC+7~, %ZTBKC+8, %ZTBKC+9, %ZTBKC+11
DIR	QQ+1!, SHOW+4!, SHOW+8!, DSEL+4!, DSEL+5!, XTNDHELP+11!, QUIT!
DIR("A"	DSEL+5, DSEL+7, DSEL+9*
DIR(0	QQ+1, QQ+2, QQ+3, SHOW+4, SHOW+8, DSEL+4, DSEL+10, XTNDHELP+11
DIRUT	%ZTBKC+5~, %ZTBKC+7, DSEL+12
DTIME	READ+1
DTOUT	%ZTBKC+5~, DSEL+12
DUOUT	%ZTBKC+5~, %ZTBKC+7
IO	READY+4, DQ+1
IO("Q"	READY+3
IO(0	READY+3, READY+4, QUIT
IOF	SHOW+1, SHOW+5, XTNDHELP+1, XTNDHELP+2
POP	%ZTBKC+5~, READY+2
U	%ZTBKC+6*, STRIP+12, SHOW+7, DSEL+7, DQ+1
X	READ+1, STRIP, STRIP+1, STRIP+2, STRIP+3, STRIP+4, STRIP+5, STRIP+6, STRIP+7, STRIP+8 , STRIP+9, STRIP+10, STRIP+12, DQ+1, QUIT!, ENCOUNT+3, EXIT
>> XUTL(	DSEL+21
XX1	%ZTBKC+6, STRIP+12, DSEL+17, DSEL+21, DQ+1*, QUIT!
Y	STRIP+12*, QQ+5, QQ+6, QQ+7, DSEL+14, QUIT!
ZTBKCALL	STRIP+2*, READY, READY+3, READY+4, QUIT!
ZTBKCLST	DSEL+1~
ZTBKCLST(	DSEL+8*, DSEL+14!, DSEL+19
ZTBKCLST(""	DSEL+15
ZTDESC	READY+3*!
>> ZTQUEUED	QUIT
>> ZTREQ	QUIT*
ZTRTN	READY+3*!
ZTSAVE	READY+3!
ZTSAVE("^XUTL($J,"	READY+3*
ZTSK	READY+3!

Customize PDF page

Package: Kernel

Routine: %ZTBKC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: