Routine: XTRUTL

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Kernel	2	HOME^%ZIS $$NOW^XLFDT
Toolkit	1	($$BUILD,RTN)^XTRUTL1

Package	Total	Caller Graph
Toolkit	1	XTRUTL2

Entry Points

Name	Comments	DBIA/ICR reference
LIST	;List all routines that don't match the old checksum
M	;Manual Update of the Routine file
LOCAL(DA)	;Return if this is a local routine in the ROUTINE file.
OLDSUM(X)	;Get the OLD Checksum
NEWSUM(X)	;Get the NEW Checksum
PTLDSP	;Display list of patches.
RSUM()
UPDATE	;Update the ROUTINE file with current checksums
ASKOON()	;Ask if user wants old/new checksum
PTLBLD(Z)	;Build in ^TMP the patches used
GETDA(X)	;Find a DA in file
PTLSRT	;Sort the list
EXIT
BUILD	;
SHOW(RN)	;Show current data
WRAP(C,S)	;Wrap S starting at col C.
UD1(RN)	;

External References

Name	Field # of Occurrence
HOME^%ZIS	BUILD+1
^DIC	M+2
^DIE	M+4
^DIR	ASKOON+4, UPDATE+6
$$NOW^XLFDT	UPDATE+9, UD1+1
$$BUILD^XTRUTL1	BUILD+5, UPDATE+5
RTN^XTRUTL1	BUILD+6, UPDATE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This generates the Checksum/2nd line list for the routines from a BUILD file." Line Location: BUILD+3
Function Call: WRITE	Prompt: !,"No BUILD file to work from." Line Location: BUILD+4
Function Call: WRITE	Prompt: !,"No routines in this build." Line Location: BUILD+7
Function Call: WRITE	Prompt: !,RN,?13,"Routine not in this UCI." Line Location: BUILD+13
Function Call: WRITE	Prompt: !,"No other routines in this build." Line Location: BUILD+16
Function Call: WRITE	Prompt: !!,"Routine Summary" Line Location: BUILD+18
Function Call: WRITE	Prompt: !,"Checksums shown are "_$S(OON=1:"OLD",1:"NEW")_" Checksums" Line Location: BUILD+19
Function Call: WRITE	Prompt: !,"The following routines are included in this patch. The second line of each",!,"of these routines now looks like:" Line Location: BUILD+20
Function Call: WRITE	Prompt: !,L2 Line Location: BUILD+21
Function Call: WRITE	Prompt: !!,?17,"Checksums",!,"Routine",?16,"Old",?28,"New",?39,"Patch List" Line Location: BUILD+22
Function Call: WRITE	Prompt: !,RN,?13,$J(OLDSUM,8),?25,$J(RSUM,8) Line Location: BUILD+29
Function Call: WRITE	Prompt: " <<<No "_PATCH Line Location: BUILD+32
Function Call: WRITE	Prompt: ! Line Location: BUILD+34
Function Call: WRITE	Prompt: !,"Sites should use CHECK"_$S(OON=2:"1",1:"")_"^XTSUMBLD to verify checksums.",! Line Location: BUILD+35
Function Call: WRITE	Prompt: ?C,S Line Location: WRAP+1
Function Call: WRITE	Prompt: ?C,$E(S,1,I-1) Line Location: WRAP+3
Function Call: WRITE	Prompt: !,"List of preceding patches: " Line Location: PTLDSP+4
Function Call: WRITE	Prompt: ! Line Location: PTLDSP+6
Function Call: WRITE	Prompt: J,I Line Location: PTLDSP+7
Function Call: WRITE	Prompt: !!,"This will update the ROUTINE file for the routines from a BUILD file." Line Location: UPDATE+3
Function Call: WRITE	Prompt: !,"No BUILD file to work from." Line Location: UPDATE+4
Function Call: WRITE	Prompt: !,"Done" Line Location: UPDATE+13
Function Call: WRITE	Prompt: !," Routine ",RN," not found in the database." Line Location: UD1+4
Function Call: WRITE	Prompt: !,"This is a national routine and will not be updated" Line Location: UD1+5
Function Call: WRITE	Prompt: !,"RTN",?10,"New ChkSum",?28,"Old ChkSum",?46,"Old Date" Line Location: SHOW+4
Function Call: WRITE	Prompt: !,RN,?10,RSUM,?28,$P(%4,U,2),?46,$P(%4,U) Line Location: SHOW+5
Function Call: WRITE	Prompt: !,$S($$LOCAL(Y):"Local",1:"National")_" Routine" Line Location: SHOW+6
Function Call: WRITE	Prompt: !,"This routine Checksum only updated from FORUM." Line Location: M+3
Function Call: WRITE	Prompt: !,RN,?10,"Checksum mismatch ",$P($T(+2^@RN),";",5) Line Location: LIST+6
Routine Call	%ZIS Line Location: BUILD+1
Routine Call	DIE Line Location: M+4
Routine Call	DIC Line Location: M+2
Routine Call	DIR Line Location: ASKOON+4 UPDATE+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.8 - [#9.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("LOAD"	NEWSUM+2
^%ZOSF("TEST"	BUILD+12
^DIC(9.8 - [#9.8]	OLDSUM+1, OLDSUM+2, UD1+6*, SHOW+2, GETDA+1, LIST+3, LIST+4, LIST+5, LOCAL+1
^TMP($J	BUILD+1!, PTLBLD+2*, PTLSRT+2, PTLSRT+3!, PTLDSP+2!, PTLDSP+3, PTLDSP+5
^UTILITY($J	BUILD+1!, BUILD+7, BUILD+11, BUILD+14!, BUILD+24, UPDATE+1!, UPDATE+10, UPDATE+12
^XPD(9.6 - [#9.6]	BUILD+4, UPDATE+4

Label References

Name	Line Occurrences
$$ASKOON	BUILD+9
$$GETDA	UD1+4, SHOW+2
$$LOCAL	UD1+5, SHOW+6, M+3
$$NEWSUM	BUILD+25, UD1+2, SHOW+3, LIST+5
$$OLDSUM	BUILD+26
$$RSUM	NEWSUM+3
EXIT	BUILD+5, BUILD+7, BUILD+16, UPDATE+5, UPDATE+10
PTLBLD	BUILD+30
PTLDSP	BUILD+34
PTLSRT	PTLDSP+1
UD1	UPDATE+12
WRAP	BUILD+29

Naked Globals

Name	Field # of Occurrence
^(	PTLSRT+2
^(4	SHOW+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, RSUM~, RSUM+1*
%0	SHOW+1~, SHOW+2*
%1	RSUM~, RSUM+1*
%2	RSUM~, RSUM+1*
%3	RSUM~, RSUM+1*
%4	SHOW+1~, SHOW+2, SHOW+5, LIST+5*, LIST+6
BLDA	BUILD+2~, BUILD+5, BUILD+6, UPDATE+2~, UPDATE+5, UPDATE+8
C	WRAP~, WRAP+1, WRAP+3, WRAP+4
DA	M+1~, M+4, LIST+1~, LIST+4, LIST+5, LOCAL~, LOCAL+1
DIC	BUILD+2~, UPDATE+2~, M+1~, M+2*, M+4
DIC(0	M+2*
DIE	M+1~, M+4*
DIF	NEWSUM+1~, NEWSUM+2*, UD1+1~
DIOUT	ASKOON+2~
DIR	ASKOON+2~, UPDATE+2~
DIR("A"	ASKOON+3, UPDATE+6
DIR("B"	ASKOON+3*
DIR(0	ASKOON+3, UPDATE+6
>> DIRUT	ASKOON+5, UPDATE+7
DR	M+1~, M+4*
I	WRAP+2~, WRAP+3, WRAP+4, PTLBLD+1~, PTLBLD+2, PTLSRT+1~, PTLSRT+2, PTLDSP+2~, PTLDSP+5, PTLDSP+7
IX	BUILD+2~, UPDATE+2~
J	PTLBLD+1~, PTLBLD+2, PTLSRT+1~, PTLSRT+3, PTLDSP+2~, PTLDSP+5, PTLDSP+6, PTLDSP+7, PTLDSP+8
K	PTLBLD+1~, PTLBLD+2, PTLSRT+1~, PTLSRT+2*, PTLSRT+3
L	PTLSRT+1~, PTLSRT+3*
L2	BUILD+2~, BUILD+11, BUILD+15, BUILD+16, BUILD+17, BUILD+21
LC	RSUM+1, NEWSUM+2*, UD1+1~
NOW	UPDATE+2~, UPDATE+9, UD1+1, UD1+6
OLDSUM	BUILD+2~, BUILD+26, BUILD+28, BUILD+29
OON	BUILD+2~, BUILD+9*, BUILD+19, BUILD+25, BUILD+26, BUILD+35
P	PTLBLD+1~, PTLBLD+2*
PATCH	BUILD+2~, BUILD+5*, BUILD+32, PTLBLD+2, PTLDSP+2
RN	BUILD+2~, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+23, BUILD+24, BUILD+25, BUILD+26, BUILD+29 , UPDATE+11, UPDATE+12, UD1~, UD1+2, UD1+4, SHOW~, SHOW+2, SHOW+3, SHOW+5, LIST+1~ , LIST+2, LIST+3*, LIST+4, LIST+5, LIST+6
RSUM	BUILD+25, BUILD+28, BUILD+29, UD1+1~, UD1+2, UD1+6, SHOW+1~, SHOW+3, SHOW+5, LIST+1~ , LIST+5*, LIST+6
RTN	BUILD+2~, NEWSUM+1!, NEWSUM+2!, SHOW+1~
RTN(	RSUM+1
RTN(2	BUILD+27, UD1+3
S	WRAP~, WRAP+1, WRAP+3, WRAP+4
T	WRAP+2~
U	UPDATE+6, UD1+2, UD1+6, SHOW+1, SHOW+5, LIST+2*, LIST+5, LIST+6
X	BUILD+2~, BUILD+12, BUILD+27, BUILD+29, BUILD+30, BUILD+31, NEWSUM~, OLDSUM~, OLDSUM+1, OLDSUM+2* , OLDSUM+3, UPDATE+2~, UD1+1~, UD1+3*, UD1+6, GETDA~, GETDA+1, LIST+1~
XCNP	NEWSUM+1~, NEWSUM+2*, UD1+1~
Y	BUILD+5, BUILD+31, ASKOON+5, ASKOON+6, RSUM~, RSUM+1, RSUM+3, OLDSUM+1~, OLDSUM+2, UPDATE+5* , UPDATE+6, UPDATE+7, UD1+1~, UD1+4, UD1+5, UD1+6, SHOW+1~, SHOW+2, SHOW+6, M+2 , M+3, M+4, LIST+1~
Y2	RSUM~, RSUM+1, RSUM+3
Z	BUILD+31, BUILD+32, PTLBLD~, PTLBLD+1, PTLBLD+2

Marked Items

Name	Field # of Occurrence
$T(	BUILD+15, LIST+6
$T(^@X	NEWSUM+1

Customize PDF page

Package: Toolkit

Routine: XTRUTL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items