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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: NVSLOOP

Package: National VistA Support

Routine: NVSLOOP


Information

NVSLOOP ;WJW@OIOFO for CACHE ;1/3/05 mod: 2/24/05

Source Information

Source file <NVSLOOP.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
LMT
GBL
SUBS
MAIN
EXIT
TOTAL
SUBTOT ;total by first level subscript.
SUBTOT2 ;total by 2nd level subscript
HELP ;
HELPL ;

External References

Name Field # of Occurrence
^%ZIS SUBS+3
^%ZISC MAIN+5
^%ZTLOAD SUBS+7
YN^DICN SUBS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Global must start with ^ ",!
  • Line Location: GBL+9
Function Call: WRITE
  • Prompt: !!,"Subscripts not allowed",!
  • Line Location: GBL+11
Function Call: WRITE
  • Prompt: !!,"Global does not exist. Please try again.",!
  • Line Location: GBL+12
Function Call: WRITE
  • Prompt: !,"Do you want counts on 2nd level subscript also"
  • Line Location: SUBS+0
Function Call: WRITE
  • Prompt: !!,*7,"REQUEST (",ZTSK,") QUEUED!!"
  • Line Location: SUBS+7
Function Call: WRITE
  • Prompt: !,"Working...",!
  • Line Location: MAIN+0
Function Call: WRITE
  • Prompt: !,"TOTAL NODES ","= ",tot,!
  • Line Location: TOTAL+1
Function Call: WRITE
  • Prompt: !!!,?40,"Working on 2nd level Subscripts....",!!!
  • Line Location: SUBTOT2+1
Function Call: WRITE
  • Prompt: !!,"This routine loops through globals to count the number"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"of nodes. It gives a Grand Total, Total for each top"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"level subscript, and a Total for each second level."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"Enter 1 to check ^TMP, 2 to check ^XTMP, or 3 to enter"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"a global of your choice. You must enter the ^ and it"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"must be the global name only, no subscripts allowed."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"You can queue the output to a printer or HFS device.",!
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!,"This number is used to limit the amount of output. Only"
  • Line Location: HELPL+1
Function Call: WRITE
  • Prompt: !,"those first and second level subsripts with this number"
  • Line Location: HELPL+2
Function Call: WRITE
  • Prompt: !,"of nodes will be reported.",!
  • Line Location: HELPL+3
Routine Call
  • %ZIS
  • Line Location:
    • SUBS+3

Label References

Name Line Occurrences
EXIT LMT+1, LMT+2, LMT+5, GBL+1, GBL+2, GBL+8, GBL+10, SUBS+1, SUBS+4, SUBS+8
GBL LMT+3, GBL+5, GBL+9, GBL+11, GBL+12
HELP GBL+5
HELPL LMT+4
LMT LMT+4
SUBS GBL+3, GBL+4, GBL+6
SUBTOT MAIN+3
SUBTOT2 MAIN+4
TOTAL MAIN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % SUBS*, SUBS+1, SUBS+2
>> %ZIS SUBS+3*
DTIME NVSLOOP+8*, LMTGBLGBL+7
I EXIT!, SUBTOT+1*, SUBTOT+2*, SUBTOT+3, SUBTOT+4, SUBTOT2+2*, SUBTOT2+3*, SUBTOT2+4, SUBTOT2+5
IO SUBS+4, MAINTOTAL+1, SUBTOT+8, SUBTOT2+1, SUBTOT2+14
>> IO("Q" SUBS+5, SUBS+8
ION SUBS+6
NVSCKSUB SUBS+2*, MAIN+4, EXIT!
NVSGBL GBL*, GBL+2, GBL+3*, GBL+4*, GBL+5, GBL+6, GBL+7, EXIT!
NVSGBR GBL+3*, GBL+4*, GBL+6*, GBL+7*, GBL+9, GBL+10, GBL+11, GBL+12, SUBS+6, MAIN+1
, EXIT!, SUBTOT+2, SUBTOT+3, SUBTOT+4, SUBTOT2+3, SUBTOT2+4, SUBTOT2+5
NVSLMT LMT*, LMT+2, LMT+3*, LMT+4, LMT+5, EXIT!, SUBTOT+8, SUBTOT2+14
U NVSLOOP+7*, LMT+2, GBL+2, GBL+9
X EXIT!, SUBTOT2+7*
Y EXIT!, SUBTOT+2*, SUBTOT2+3*
Z EXIT!, SUBTOT+5*, SUBTOT+7*, SUBTOT+8, SUBTOT2+8*, SUBTOT2+12*, SUBTOT2+14
>> ZTDESC SUBS+6*
>> ZTION SUBS+6*
>> ZTRTN SUBS+6*
>> ZTSAVE("NVS*" SUBS+7*
>> ZTSK SUBS+7
oref EXIT!, SUBTOT+5*, SUBTOT+6, SUBTOT+8, SUBTOT2+8*, SUBTOT2+10, SUBTOT2+14
ref MAIN+1*, EXIT!, TOTAL*, SUBTOT+3*, SUBTOT+4*, SUBTOT+5, SUBTOT+6*, SUBTOT2+4*, SUBTOT2+5*, SUBTOT2+7
SUBTOT2+8, SUBTOT2+10*
tot MAIN+2*, EXIT!, TOTAL*, TOTAL+1
x EXIT!, TOTAL*, SUBTOT+6*, SUBTOT2+10*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All