Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls