Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ZTBKCONT

Package: Kernel

Routine: ZTBKCONT Platform: OpenM


Information

%ZTBKC1 ;SF/GJL,SFCIOFO/AC - OPEN M BLOCK COUNT ;06/05/2007 1720232.438851

Source Information

Source file <ZTBKCONT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZISC  ($$EC,$$VERSION)^%ZOSV  (,UNWIND)^%ZTER  
VA FileMan 2 NOW^%DTC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ONTGD ;FIND AND PARSE GLOBAL DIRECTORY BLOCK
ONTPTBK ;POINTER BLOCK
ONTPTLP ;POINTER BLOCK LOOP
ONTPTNT ;PROCESS NODES IN POINTER BLOCK
ONTPTDW ;SAVE OFF LAST DOWN LINK BLOCK FOR LATER USE
ONTDTBK ;DATA BLOCK
ONTDATA ;DATA BLOCK LOOP TO PROCESS NODES
ONTDTNT ;PROCESS DATA NODES
ONTNODE ;BUILD STRINGS TO COMPARE SUBSCRIPTS
ONTPROC ;PROCESS ENCODED DATA
ONTASCI ;PROCESS ASCII CHAR
ONTPOS ;PROCESS POSITIVE DATA
ONTNEG ;PROCESS NEGATIVE DATA
ONTTSTN
ONTTSTL
ONTTSTC
ONTSTR
ONTSTBIG ;Check for big strings
ASKDIR ;Ask directory/data set name
ASK ; Enter here to select default directory
ASK2 ; Enter here to select directory from a list
RDCHK ; Check to see if ^SYS global is readable with current privs.
ONAPPSVR() ;Check to see if this utility is run from an ECP Application Server
ASKBYAPI ;
HELP ;Single question mark help for 'Use default directory' prompt
ERROR ; Error trap for disconnect error and return back to the read loop.
DD
ALL ;Entry point for block count of all globals.
ALLONT ;Directory at ^UTILITY("GLO")
AONTVUE
AONTNXT
AONTLOP
AONTPTR
EXIT

External References

Name Field # of Occurrence
NOW^%DTC AONTPTR+1
^%ZISC AONTPTR+4
$$EC^%ZOSV ERROR+2
$$VERSION^%ZOSV ONTGD+6, ASKDIR+2, ASKBYAPI+5
^%ZTER ERROR+4
UNWIND^%ZTER ERROR+3, ERROR+5
^DIR ASK+21, ASK2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"An error has just occurred!"
  • Line Location: ASKDIR+4
Function Call: WRITE
  • Prompt: !,"Note: You are attempting to run this utility"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?7,"on a Cache' ECP Application Server."
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,?7,"This utility will not run on an ECP Application Server."
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !,?7,"Please try running this utility again on an ECP Data Server."
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !,"The following error just occurred:"
  • Line Location: ASK+14
Function Call: WRITE
  • Prompt: !,%ZTBKEC
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK2+9
Function Call: WRITE
  • Prompt: !,"Note: You do not have adequate privileges to view the ^SYS global."
  • Line Location: ASKBYAPI+1
Function Call: WRITE
  • Prompt: !,?7,"Therefore, a directory listing will not be available"
  • Line Location: ASKBYAPI+2
Function Call: WRITE
  • Prompt: !,?7,"at the directory prompt."
  • Line Location: ASKBYAPI+3
Function Call: WRITE
  • Prompt: !!,?7,"Also, Cache's API will be used to prompt for directory.",!!
  • Line Location: ASKBYAPI+4
Function Call: WRITE
  • Prompt: !,"An error has just occurred!"
  • Line Location: ASKBYAPI+8
Function Call: WRITE
  • Prompt: !,"Enter either 'Y' or 'N'."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"If you enter 'N' for 'NO', you may then select a directory from a list."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Block count on globals will only be returned for globals that reside"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"in the selected directory."
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: ?(%SK+25),"Global Block Count ",$S(PG>1:"(cont.)",1:""),?(%SK+60),"Page ",PG
  • Line Location: ERROR+9
Function Call: WRITE
  • Prompt: !,$G(^XUTL($J,"ZTBKCDIR"))," "
  • Line Location: ERROR+10
Function Call: WRITE
  • Prompt: "Globals",?(%SK+12),"Data Blocks"
  • Line Location: ERROR+10
Function Call: WRITE
  • Prompt: ?(%SK+34),%ZTBKCDT
  • Line Location: ERROR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ERROR+11
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: ST
  • Timeout: 600
  • Line Location: ERROR+13
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: %ZTBIOC2
  • Line Location: ALLONT+11
Function Call: WRITE
  • Prompt: !!,"Printing report..."
  • Line Location: ALLONT+11
Function Call: WRITE
  • Prompt: !!?%SK,"Total",?(%SK+15),%TOT
  • Line Location: AONTPTR+4
Routine Call
  • DIR
  • Line Location:
    • ASK+21
    • ASK2+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("%ZTBKC" ALLONT+1!, AONTLOP+1*, AONTPTR+3
^XUTL($J %ZTBKC1+5, %ZTBKC1+8*, ASKDIR+7*, %Z3+3, ALLONT+3, ALLONT+6*

Label References

Name Line Occurrences
$$GETGLOBALPOINTERS ONTGD+12
$$ONAPPSVR %ZTBKC1+3, ASK+2
%Z3 AONTPTR+2, AONTPTR+3
%Z5 %Z3
%ZTBKC1 AONTPTR+3
AONTLOP AONTLOP
AONTNXT AONTLOP+2
AONTPTR AONTNXT
AONTVUE AONTPTR
ASK ASKDIR+3
ASK2 ASK+23
ASKBYAPI ASK+11
DD AONTPTR+1
EXIT %ZTBKC1+3, %ZTBKC1+4, %ZTBKC1+9, ONTGD+9, ONTGD+15, ONTPTLP+2, ONTDATA+3, ONTDTNT+3, ONTDTNT+4, ALLONT+2
ALLONT+7, AONTVUE+5
ONTDATA ONTGD+14, ONTDTNT+1, ONTDTNT+2
ONTDTBK ONTDATA+2
ONTDTNT ONTDATA+1
ONTNODE ONTDTNT+1
ONTSTBIG ONTDTNT+1
ONTSTR ONTTSTL
ONTTSTC ONTSTR+3
ONTTSTL ONTTSTC+2
ONTTSTN ONTNODE+2
RDCHK ASK+10

Naked Globals

Name Field # of Occurrence
^ ASK2+3, RDCHK+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ONTGD+11*, ONTGD+12*, ONTGD+14, AONTPTR+1, EXIT!
%A ONTGD+8*, ONTGD+9, ONTSTBIG+2*, ONTSTBIG+3, ONTSTBIG+9, ASKDIR+1~, EXIT!
%B %ZTBKC1+9*, ONTGD+11, ONTGD+12, ONTDATA+2*, ALLONT+7*, AONTPTR*, EXIT!
>> %BS ONTGD+7
%C EXIT!
%D ALLONT+12!, EXIT!
%E ONTGD+14*, ONTDTBK+2*, ONTDATA+1, ONTDTNT+1*, ONTSTBIG+2*, AONTVUE+4*, AONTVUE+5, AONTNXT, EXIT!
%F ONTNODE+1*, EXIT!
%G %ZTBKC1+5*, %ZTBKC1+6, %ZTBKC1+7*, %ZTBKC1+8, %ZTBKC1+9, ONTGD+5, ONTGD+11, ONTGD+12, ALLONT+3*, ALLONT+4
ALLONT+5*, ALLONT+6, ALLONT+7, AONTVUE+1, EXIT!
%GLO %Z5*, AONTPTR+3*, AONTPTR+4!
%H ONTGD+14*, ONTDTNT+1*, EXIT!
%I ONTDTNT+1, ONTDTNT+2, ONTTSTN*, ONTTSTL+1*, ONTTSTL+2*, ONTTSTL+3*, ONTTSTL+4*, ONTTSTC*, ONTTSTC+1*, ONTSTR*
ONTSTR+1*, ONTSTR+2*, ASKDIR+1~, ASK2+3*, ASK2+4, ASK2+5, ASK2+6, ASK2+8, EXIT!
%II AONTPTR+3*, AONTPTR+4!
%J ONTGD+14*, ONTDTBK+2*, ONTDTNT+1*, ONTDTNT+3, EXIT!
%K EXIT!
%L EXIT!
%M ONTNODE+1*, ONTTSTN*, ONTTSTLONTTSTC+1*, EXIT!
%N EXIT!
%O ONTGD+14*, ONTDTBK+2*, ONTDTNT+2*, ONTNODE+1, ONTSTBIG+2, AONTVUE+6*, AONTNXTAONTNXT+1, AONTNXT+6*, AONTLOP*
AONTLOP+2*, EXIT!
%S ONTTSTN*, ONTTSTL, ONTTSTC*, EXIT!
%SK %Z3+2*, %Z3+3*, %Z3+4, AONTPTR+3, AONTPTR+4!
%ST EXIT!
%T %ZTBKC1+4*, ONTGD+14*, ONTDTBK+2*, ONTDTNT+1*, ONTDTNT+3*, ONTSTBIG+12*, ALLONT+2*, ALLONT+12!, AONTPTR+3*, AONTPTR+4!
%TIM ALLONT+12!
%TOT AONTPTR+3*, AONTPTR+4!
%U ASK2+3*, ASK2+4, ASK2+5, ASK2+6, RDCHK+1~, RDCHK+2*, RDCHK+3*
%V EXIT!
%W EXIT!
%X ONTTSTL*, ONTTSTL+3, ONTTSTL+4, ONTSTR+1, ONTSTR+2, EXIT!
%Y ONTTSTL*, ONTTSTL+1, ONTTSTL+2, ONTTSTL+3, ONTTSTL+4, ONTSTRONTSTR+1, ONTSTR+2, EXIT!
%Z AONTLOP*, EXIT!
%ZTBIOC %Z3, ALLONT+10*, ALLONT+11, AONTPTR+4!
%ZTBIOC2 %Z3, ALLONT+10*, ALLONT+11, AONTPTR+4!
%ZTBKA AONTNXT+1*, AONTNXT+2*, AONTNXT+6, EXIT+1!
%ZTBKBDB %ZTBKC1+9*, ONTDATA+2, ONTSTBIG+10, EXIT+1!
%ZTBKBIG AONTVUE+2*, AONTVUE+3, AONTVUE+4, AONTVUE+6, EXIT+1!
%ZTBKCCC AONTNXT+3*, AONTNXT+5, EXIT+1!
%ZTBKCDT %Z3+4, AONTPTR+1*, AONTPTR+4!
%ZTBKCE AONTNXT+6*, AONTLOPAONTLOP+2, EXIT+1!
%ZTBKCG AONTVUE*, AONTNXT+5*, AONTLOP*, AONTLOP+1, AONTLOP+2*, EXIT+1!
%ZTBKCL AONTVUE+3*, AONTPTREXIT+1!
%ZTBKCX ONTSTBIG+5*, ONTSTBIG+6, ONTSTBIG+8, ONTSTBIG+11*, ONTSTBIG+12, EXIT+1!
%ZTBKCX1 ONTSTBIG+6*, ONTSTBIG+7, ONTSTBIG+8, ONTSTBIG+11*, ONTSTBIG+12, EXIT+1!
%ZTBKCY ONTSTBIG+3*, ONTSTBIG+4, ONTSTBIG+8, ONTSTBIG+9*, ONTSTBIG+10, ONTSTBIG+11, EXIT+1!
%ZTBKCY1 ONTSTBIG+4*, ONTSTBIG+7, EXIT+1!
%ZTBKCZY ALLONT+12*, AONTPTR+3, AONTPTR+4!
%ZTBKEC ASK+1~, ASK+15, ERROR+2*, ERROR+3
%ZTBKEND ONTSTBIG+1*, ONTSTBIG+2, ONTSTBIG+7*, ONTSTBIG+8*, EXIT+1!
%ZTBKERR ASK+1~*, ASK+11, ASK+12, ERROR+3*, ERROR+4*
%ZTBKGLO ONTGD+8*, ONTGD+11, ONTGD+12, EXIT+1!
%ZTBKINF AONTNXT+1*, AONTNXT+3, AONTNXT+4, EXIT+1!
%ZTBKLEN AONTNXT+3*, AONTLOP+2, EXIT+1!
%ZTBKNSP ONTGD+5~*, ONTGD+8
%ZTBKPAD AONTNXT+4*, EXIT+1!
%ZTBKPRV AONTNXT+5, AONTLOP+2*, EXIT+1!
%ZTBKRAW AONTNXT+1*, EXIT+1!
%ZTBKSIZ AONTVUE+1*, AONTVUE+2, AONTVUE+5, EXIT+1!
%ZTBKSUB AONTNXT+4*, AONTNXT+6, AONTLOP+2, EXIT+1!
%ZTBKTOP ONTGD+11, ONTGD+12, EXIT+1!
%ZTBKVER ONTGD+6*, ONTGD+10, ASKDIR+2*, ASKDIR+3, ASKBYAPI+5*, ASKBYAPI+6, ASKBYAPI+7, EXIT+1!
DEND ASKDIR+1~
DIR ASK+17!, ASK2+2!
DIR("?" ASK+20*
DIR("A" ASK+18*, ASK+19*, ASK2+2*, ASK2+4*, ASK2+7*
DIR("B" ASK+17*, ASK2+6*
DIR(0 ASK+17*, ASK2+8*
DIRNAM ASKDIR+1~, ASKDIR+6, ASKDIR+7, ASK+16*, ASK+19, ASK2+6, ASK2+11*
>> DIRUT ASK+22, ASK2+10
>> DTOUT ASK+22, ASK2+10
>> DUOUT ASKDIR+5, ASKDIR+6*, ASK+3*, ASK+13*
GD ASKDIR+1~
IO %Z3+1, ALLONT+10, ALLONT+11
IO(0 %Z5, ALLONT+10, ALLONT+11, AONTPTR+4
IOF %Z3+1, ALLONT+11
IOM ALLONT+12
IOSL %Z3+1, ALLONT+12
IOST ALLONT+10
MGDIR ASK2+1~, ASK2+3*, RDCHK+1~, RDCHK+2*, RDCHK+3
PG %Z3*, %Z3+1, %Z3+2, ALLONT+9~, AONTPTR+2*
ST %Z3*, %Z5*, ALLONT+9~, AONTPTR+3
>> SYS("UCI" ASK2+3, RDCHK+3
X ONTGD+7*, ONTGD+8, ONTTSTNONTSTBIG+5, %Z3~, AONTPTR+3*, AONTPTR+4!
Y ASK+23, ASK2+11, DD*, AONTPTR+1*, AONTPTR+4!
ZTBKCDIR ASK2+1~
ZTBKCDIR( ASK2+5*, ASK2+11
>> ZTQUEUED ALLONT+11
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All