Routine: XBGCMP

Package	Total	Call Graph
IHS VA Utilities	3	$$DIR^XBDIR HELP^XBHELP ^XBKVAR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS VA %Utilities	1	$$Z^ZIBNSSV

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;EP - Dooda about the utility
EOJ	;
SETUP	; Get print parameters, task?
NOQUE	;
PRINT	; Prints or displays results
CHECK2	; Check both globals
CHANGE	; Temp change double quotes to single
SCHED	; Schedules another task to print
1	;
INIT	; Setup
2	;
X2	;
X3
X1	;
X6	;
CHECK	; Check each global
X4
X5	;
A	;
PAUSE	; Quit display?
ASK	; Get globals to be compared
PROCESS	; Compare
QUE	;
TRAP	; Error trap for missing quotes

External References

Name	Field # of Occurrence
^%ZIS	SETUP+3
^%ZISC	NOQUE+4, QUE+7
^%ZTLOAD	QUE+5, SCHED+4
$$DIR^XBDIR	PAUSE+1
HELP^XBHELP	1+2, 2+2
^XBKVAR	INIT+1
$$Z^ZIBNSSV	TRAP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7," Must end in "")""" Line Location: CHECK+1
Function Call: WRITE	Prompt: !,*7," Invalid cross UCI notation" Line Location: CHECK+4
Function Call: WRITE	Prompt: !,*7," Invalid cross UCI notation" Line Location: CHECK+8
Function Call: WRITE	Prompt: !,*7," Invalid global name" Line Location: X4+2
Function Call: WRITE	Prompt: !,*7," Invalid global name" Line Location: X4+4
Function Call: WRITE	Prompt: !,*7," Global does not exist" Line Location: X4+6
Function Call: WRITE	Prompt: !,7,"** Probably missing quotes",! Line Location: TRAP+1
Function Call: WRITE	Prompt: !,*7," Starting globals must be identically subscripted",! Line Location: CHECK2+1
Function Call: WRITE	Prompt: !,*7," Starting globals must be identically subscripted",! Line Location: CHECK2+3
Function Call: WRITE	Prompt: !,*7," Starting globals must end in a "")""",! Line Location: CHECK2+4
Function Call: WRITE	Prompt: ! Line Location: QUE+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PROCESS+2
Function Call: WRITE	Prompt: !!,"Comparison of globals ",XBG1," and ",XBG2,! Line Location: PROCESS+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"Comparison of globals ",XBG1," and ",XBG2,! Line Location: PRINT+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$P(^(XB),"~"),!,$P(^(XB),"~",2),! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$P(^TMP("XBGCMP",XBN,XB),"~")," ",$P(^(XB),"~",2),! Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: SETUP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	NOQUE+1
^%ZOSF("TRAP"	X4+5
^%ZOSF("UCI"	INIT+3
^DISV($I	NOQUE+1*
^TMP("XBGCMP"	PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, X3+3, PRINT+3, PRINT+4, PRINT+5, PRINT+7!

Label References

Name	Line Occurrences
1	1+3, 1+6, 2+9
2	2+3, 2+6
A	A+4
ASK	A+1
CHANGE	PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, X3+3
CHECK	1+5, 2+5
CHECK2	2+8
EOJ	X1+1, PRINT+8
INIT	XBGCMP+14
NOQUE	SETUP+6
PAUSE	PRINT+3
PRINT	X3+4
PROCESS	NOQUE+3
QUE	SETUP+5
SCHED	X3+5
SETUP	A+3
X1	A+2
X2	1+4, 2+4
X3	PROCESS+8
X4	CHECK+4, CHECK+8, CHECK+9
X5	CHECK2+1, CHECK2+3
X6	CHECK+1, X4+2, X4+4

Naked Globals

Name	Field # of Occurrence
^(	PRINT+4, PRINT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUE+3, SCHED+2
%ZIS	SETUP+1!, SETUP+2*
DIRUT	PAUSE+1!
DT	SCHED+3
DTIME	1+1, 2+1
DUOUT	PAUSE+1!
IO	NOQUE+1, NOQUE+2
IO("Q"	SETUP+5
IOF	PROCESS+2, PRINT+1
ION	QUE+1
IOP	SETUP+1!
IOSL	PRINT+2, PRINT+3
IOST	PAUSE+1
>> POP	SETUP+4
X	XBGCMP+13~, 1+1, 1+2, 1+3, 1+4, 1+7, 2+1, 2+2, 2+3, 2+4 , 2+7, CHECK+1, CHECK+2, CHECK+9, CHECK+10, X4+1, X4+5*, X4+6
XB	PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, X3+1, X3+2, X3+3, PRINT+2, PRINT+3, PRINT+4 , PRINT+5, EOJ+1!
XBA	PROCESS+6, PROCESS+8, PROCESS+9, X3+1, X3+3, EOJ+1!
XBB	PROCESS+6, PROCESS+8, PROCESS+9, X3+1, X3+3, EOJ+1!
XBC	PROCESS+1, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, X3+3*, PRINT+6, EOJ+1!
XBG1	1+7, CHECK2+1, CHECK2+2, CHECK2+3, CHECK2+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5 , PROCESS+6, X3+1, PRINT+1, EOJ+1!
XBG2	2+7, CHECK2+1, CHECK2+3, CHECK2+4, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6 , X3+1, PRINT+1, EOJ+1!
XBI	CHECK+6, CHANGE+1, EOJ+1!
XBION	QUE+1*, SCHED+3, EOJ+1!
XBL	PRINT+2, PRINT+3, PRINT+4, PRINT+5, EOJ+1!
XBN	PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, X3+3, PRINT+3, PRINT+4, PRINT+5 , PRINT+7, EOJ+1!
XBQ	A+2, INIT+2, 1+4, 2+4*, EOJ+1!
XBQTE	CHANGE+1*, CHANGE+2, CHANGE+3!
XBS	INIT+2, 1+6, 2+6, 2+9, CHECK+1, CHECK+4, CHECK+8, X4+2, X4+4, X4+6 , TRAP+1, CHECK2+1, CHECK2+3, CHECK2+4, EOJ+1!
XBSTP	PRINT+3, PRINT+6, PAUSE+1*, EOJ+1!
XBT	CHECK+2, CHECK+3, CHECK+4, CHECK+5, CHECK+6*, CHECK+7, CHECK+9, CHECK+10, EOJ+1!
XBT(1	X4+1*, X4+2, X4+3
XBT(2	X4+5*
XBTEMP	PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, X3+3, CHANGE+1, CHANGE+2*, EOJ+1!
XBTMP	CHANGE+1*, CHANGE+2, CHANGE+3!, EOJ+1!
XBVOL	INIT+4*, CHECK+9, EOJ+1!
>> Y	INIT+4, PAUSE+1*
ZTDESC	QUE+4, QUE+6!, SCHED+3, SCHED+5!
ZTDTH	QUE+4, QUE+6!, SCHED+3, SCHED+5!
ZTIO	QUE+4, QUE+6!, SCHED+3, SCHED+5!
>> ZTQUEUED	PROCESS+2, X3+4, PRINT+1, PRINT+8
>> ZTREQ	PRINT+8*
ZTRTN	QUE+4, QUE+6!, SCHED+3, SCHED+5!
ZTSAVE	QUE+2!, QUE+6!, SCHED+1!, SCHED+5!
ZTSAVE(	QUE+3, SCHED+2
ZTSK	SETUP+1!, QUE+6!, SCHED+5!

Customize PDF page

Package: IHS VA Utilities

Routine: XBGCMP

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: