Routine: XTVRC2

Information

XTVRC2 ; JLI/SF-ISC.SEATTLE ** PRODUCE LISTING OF CHANGE HISTORY FOR ROUTINE ;12/7/93 15:20

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	^%DT %XY^%RCR ^DIR
Toolkit	1	(LCHEK,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 COMPARE

Entry Points

Name	Comments	DBIA/ICR reference
RSEL
A1
A2
DQ	;
KILL
ONE	;
LIST	;
DELETE	;
INSERT	;
CHANGE	;
DIX

External References

Name	Field # of Occurrence
^%DT	RSEL+2, DQ+1
%XY^%RCR	RSEL+1
^%ZIS	A2+1
^%ZISC	DQ+6, KILL
^%ZTLOAD	A2+1
^DIR	DIX
LCHEK^XTVRC1	ONE+1
LOOP^XTVRC1	ONE+1, ONE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine lists the changes in program code that have been noted.",!! Line Location: XTVRC2+2
Function Call: WRITE	Prompt: !!,"Select the routine(s) which you want changes listed for:",! Line Location: RSEL+0
Function Call: READ	Timeout: DTIME Line Location: RSEL+2
Function Call: READ	Formatting: !! Prompt: "Show changes for how many past versions (or ALL): 1// " Variable: X Timeout: DTIME Line Location: A1+0
Function Call: WRITE	Prompt: !,"Enter a number indicating the number of past versions you want to see changes",! Line Location: A1+0
Function Call: WRITE	Prompt: !!,"The following routines ARE NEW to the file (no prior version to compare):",!! Line Location: DQ+3
Function Call: WRITE	Prompt: ! Condition for execution: XTVI#7 Line Location: DQ+3
Function Call: WRITE	Prompt: $J(XTVNAM,10) Line Location: DQ+3
Function Call: WRITE	Prompt: !!,"The following routines showed no change in the specified number of versions:",!! Line Location: DQ+4
Function Call: WRITE	Prompt: ! Condition for execution: XTVI#7 Line Location: DQ+4
Function Call: WRITE	Prompt: $J(XTVNAM,10) Line Location: DQ+4
Function Call: WRITE	Prompt: ! Line Location: DQ+5
Function Call: WRITE	Prompt: !!,XTVNAM," changes in code ",XTVJ-XTVL," version",$S(XTVJ-XTVL>1:"s",1:"")," back (recorded ",XTVDATX,")" Line Location: LIST+3
Function Call: WRITE	Prompt: !!?4,"original line ",XTVK," deleted. code was:",!,^XTV(8991,DA,1,XTVL,1,XTVK,"DEL") Line Location: DELETE+2
Function Call: WRITE	Prompt: !!?4,"new line",$S($D(^XTV(8991,DA,1,XTVL,1,XTVK,"INS",2)):"s",1:"")," inserted BEFORE original line ",XTVK-1 Line Location: INSERT+1
Function Call: WRITE	Prompt: !,^(M,0) Line Location: INSERT+2
Function Call: WRITE	Prompt: !!?4,"line ",XTVK," replaced:" Line Location: CHANGE+6
Function Call: WRITE	Prompt: !,$E(X,$S(N1>5:N1-6,1:1),N2X+6),!?4,"with:" Line Location: CHANGE+7
Function Call: WRITE	Prompt: !,$E(Y,$S(N1>5:N1-6,1:1),N2Y+6) Line Location: CHANGE+8
Function Call: WRITE	Prompt: @IOF Line Location: DIX+1
Routine Call	DIR Line Location: DIX
Routine Call	%ZIS Line Location: A2+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RSEL"	RSEL+1
^TMP($J	RSEL+1!, DQ+2, DQ+3, DQ+4, ONE+1, ONE+5
^UTILITY($J	RSEL+1!
^XTV(8991 - [#8991]	ONE+1, ONE+3, ONE+4, LIST+1, LIST+4, DELETE+1, DELETE+2, INSERT+1, INSERT+2, CHANGE+1

Label References

Name	Line Occurrences
A1	A1
A2	RSEL+2
CHANGE	DELETE+1
DELETE	LIST+4
DIX	LIST+2, DELETE+2, INSERT+1, INSERT+2, CHANGE+6
INSERT	LIST+4
KILL	RSEL+1, A2+1, DQ+3
LIST	ONE+4
ONE	DQ+2
RSEL	DQ+6

Naked Globals

Name	Field # of Occurrence
^(	ONE+4, LIST+4, INSERT+2
^(2	LIST+1, DELETE+1
^(3	LIST+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LIST+3*!
%DT	RSEL+2!, DQ+1
>> %X	RSEL+1*
>> %Y	RSEL+1*
>> %ZIS	A2+1*
DA	KILL+1!, ONE+1, ONE+2, ONE+3, ONE+4, LIST+1, LIST+4, DELETE+1, DELETE+2, INSERT+1 , INSERT+2, CHANGE+1
DIR	KILL+1!
DIR(0	DQ+2*
DIRUT	DQ+2, DQ+3, KILL+1!, ONE+4, LIST+2, LIST+4, DELETE+2, INSERT+1, INSERT+2, CHANGE+6 , DIX
DTIME	RSEL+2, A1
IO	DQ+2, DQ+7
IO("Q"	A2+1!
IO(0	RSEL
IOF	DQ+7, DIX+1
ION	A2+1
IOSL	LIST+2, DELETE+2, INSERT+1, INSERT+2, CHANGE+6
IOST	DQ+7, DIX
>> L	ONE+1
M	KILL+1!, INSERT+2, CHANGE+2, CHANGE+4*
>> N1	CHANGE+2, CHANGE+5, CHANGE+7, CHANGE+8
>> N2M	CHANGE+3*
>> N2X	CHANGE+3, CHANGE+4, CHANGE+7
>> N2Y	CHANGE+3, CHANGE+4, CHANGE+8
POP	A2+1, KILL+1!
U	A1
X	RSEL+2, A1, A2, DQ+1, KILL+1!, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+4, CHANGE+5 , CHANGE+7, DIX~
>> XTROU	ONE+1*
XTVA	DQ+2*, KILL+1!
XTVC	KILL+1!, ONE+4, ONE+5, LIST+3
XTVD	KILL+1!, LIST+4, DELETE+3, CHANGE+9*
>> XTVDA	ONE+2*
XTVDAT	RSEL+2*, KILL+1!, ONE+4
XTVDAT1	KILL+1!, ONE+4*
>> XTVDATX	ONE+4, LIST+3
XTVI	DQ+3, DQ+4, KILL+1!, LIST+4, INSERT+3, CHANGE+9*
XTVJ	KILL+1!, ONE+3*, ONE+4, LIST+3
XTVK	KILL+1!, LIST+4*, DELETE+1, DELETE+2, DELETE+3, INSERT+1, INSERT+2, INSERT+3, CHANGE+1, CHANGE+6 , CHANGE+9
XTVL	KILL+1!, ONE+3, ONE+4, LIST+1, LIST+3, LIST+4, DELETE+1, DELETE+2, INSERT+1, INSERT+2 , CHANGE+1
XTVNAM	DQ+2, DQ+3, DQ+4*, KILL+1!, ONE+1, ONE+5, LIST+3
XTVNV	A2*, KILL+1!, ONE+4
>> XTVTIM	DQ+1*
Y	RSEL+2, DQ+1, KILL+1!, CHANGE+1, CHANGE+2, CHANGE+3, CHANGE+4, CHANGE+5, CHANGE+8, DIX~
ZTDESC	A2+1*!
ZTIO	A2+1*!, KILL+1!
>> ZTQUEUED	DQ+6, DIX
ZTRTN	A2+1*!, KILL+1!
ZTSAVE	A2+1!, KILL+1!
ZTSAVE("XTVDAT"	A2+1*
ZTSAVE("XTVNV"	A2+1*
ZTSAVE("^TMP($J,"	A2+1*

Customize PDF page

Package: Toolkit