Routine: XTVRCRES

Information

XTVRCRES ;ISC-SF/JLI - RESTORE ROUTINE BACK TO SELECTED VERSION - BE SAVED UNDER ANOTHER NAME ;8/24/93 14:53

Source Information

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	3	^%DT %XY^%RCR ^DIC
Toolkit	1	LOOP^XTVRC1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Toolkit	1	XTVR RESTORE PREV ROUTINE

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
A	;S X=XTROU,XCNP=0,DIF="^TMP($J,0," X ^%ZOSF("LOAD")
EXIT	;

External References

Name	Field # of Occurrence
^%DT	EN+2
%XY^%RCR	EN+7, EN+8
^DIC	EN+1, EN+5
LOOP^XTVRC1	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Save RESTORED ROUTINE as: " Variable: X Timeout: DTIME Line Location: EN+3
Function Call: WRITE	Prompt: $C(7)," ??",! Line Location: EN+3
Function Call: WRITE	Prompt: !?5,$C(7),"Must be a routine name not currently in use.",!! Line Location: EN+4
Function Call: WRITE	Prompt: !!,K Line Location: A+7
Function Call: WRITE	Prompt: !,^TMP($J,"I",P,0) Line Location: A+7
Routine Call	DIC Line Location: EN+1 EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XTV(8991 - [#8991]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("SAVE"	EN+9
^%ZOSF("TEST"	EN+4
^TMP($J	EN+1!, EN+8!, A+1, A+2!, A+3, A+4, A+5!, A+6!, A+7, A+8*
^XTV(8991 - [#8991]	EN+6, A+1, A+2, A+8

Label References

Name	Line Occurrences
A	EN+8
EN	EN+3, EN+4
EXIT	EN+1, EN+3

Naked Globals

Name	Field # of Occurrence
^(	A+1, A+2, A+8
^("DEL"	A+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+2*!
%X	EN+7, EN+8, EXIT+1!
%Y	EN+7, EN+8, EXIT+1!
DA	EN+1, EN+5, EN+8*, A+1, A+2, A+8, EXIT+1!
DA(1	EN+5*
DA1	EN+8*, EXIT+1!
DIC	EN+1!, EN+5!, EXIT+1!
DIC("A"	EN+1*
DIC(0	EN+1, EN+5
DIE	EN+9*, EXIT+1!
DTIME	EN+3
I	EN+6, A+1, A+2, A+8, EXIT+1!
J	A+2*, EXIT+1!
K	A+2, A+3, A+6, A+7, A+8*, EXIT+1!
M	A+3*, A+4, A+5, A+6, EXIT+1!
N1	A+2*, A+3, A+4, A+5, A+7, EXIT+1!
P	A+4, A+5, A+7*, EXIT+1!
U	EN+1
X	EN+2, EN+3, EN+4, EN+9, A+3, A+4, A+5, A+6, A+7, A+8 , EXIT+1!
XCN	EN+9*, EXIT+1!
XTDA	EN+1*, EN+5, EN+6, A+1, A+2, A+8, EXIT+1!
XTDA1	EN+8*, EXIT+1!
XTMAX	EN+6*, EN+8, EXIT+1!
XTMAX(	EN+6*, EN+8
XTROU	EN+1*, EXIT+1!
XTROUA	EN+4*, EN+9, EXIT+1!
>> XTVTIM	EN+2*
Y	EN+1, EN+2, EN+5, EXIT+1!

Customize PDF page

Package: Toolkit