Routine: NVSLOOP

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*, LMT, GBL, GBL+7
I	EXIT!, SUBTOT+1, SUBTOT+2, SUBTOT+3, SUBTOT+4, SUBTOT2+2, SUBTOT2+3, SUBTOT2+4, SUBTOT2+5
IO	SUBS+4, MAIN, TOTAL+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*

Customize PDF page

Package: National VistA Support

Routine: NVSLOOP

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: