Routine: ZTMGRSET

Package	Total	Call Graph
Kernel	2	$$VERSION^%ZOSV (BMES,MES)^XPDUTL
Toolkit	1	^ZTEDIT

Package	Total	Caller Graph
Kernel	17	%ZTPP XU8P1017 XU8P1018 XU8P440 XU8P446 XU8P499 XU8P518 XU8P524 XU8P543 XU8P546 XU8P572 XU8P582 XU8P584 XU8P585 XU8P599 XU8P638 ZTP1
VA Fileman	3	DIPR162 DIPR164 DIPR165
IHS VA %Utilities	1	ZIBENVCK
Toolkit	1	XTERSUM1

Entry Points

Name	Comments	DBIA/ICR reference
DES
MOVE	; rename % routines	ICR #6212 Status: Active Usage: Private
DEV
MES(T,B)	;Write message.
FM	;Rename the FileMan routines
R()	; routine directory for GT.M
MGR
COPY(FROM,TO)	;
1	;;VAX DSM(V6), VAX DSM(V7)
3	;;Cache (VMS, NT, Linux), OpenM-NT
TM	;Taskman
5	;;
4	;;
7	;;GT.M (VMS)
6	;;
8	;;GT.M (Unix)
GLOBALS	;Set node zero of file #3.05 & #3.07
A
B
10	;;NOT SUPPORTED
ETRAP	;Error Trap
OSNUM()	;Return the OS number
OTHER
2	;;MSM-PC/PLUS, MSM for NT or UNIX
OS()	;Select the OS
DOIT
ALL
NAME	;Setup the static names for this system
RUM	;Build the routines for Capacity Management (CM)
VOL
RELOAD	;Reload any patched routines
PATCH(PCNM)	;Post install Reload any patched routines
PROD
ZOSF(X)	;

External References

Name	Field # of Occurrence
$$VERSION^%ZOSV	2+6
BMES^XPDUTL	MES+2
MES^XPDUTL	MES+2
^ZTEDIT	ALL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"ZTMGRSET Version ",$P($T(+2),";",3)," Patch level ",$P($T(+2),";",5) Line Location: A+0
Function Call: WRITE	Prompt: !,"HELLO! I exist to assist you in correctly initializing the current account." Line Location: A+1
Function Call: WRITE	Prompt: $C(7),!!,"This is namespace or uci ",Y,".",! Line Location: A+4
Function Call: WRITE	Prompt: !,"OS type not selected. Exiting ZTMGRSET." Line Location: A+7
Function Call: WRITE	Prompt: !,"Need a Patch number to load." Line Location: A+8
Function Call: READ	Prompt: "Patch number to load: " Formatting: !! Timeout: 120 Variable: PCNM Line Location: A+9
Function Call: WRITE	Prompt: ! Condition for execution: B Line Location: MES+3
Function Call: WRITE	Prompt: !,T Line Location: MES+3
Function Call: WRITE	Prompt: !,"I think you are using ",X1 Line Location: B+1
Function Call: WRITE	Prompt: !,"Which MUMPS system should I install?",! Line Location: B+3
Function Call: WRITE	Prompt: !,I," = ",$P($T(@I),";",3) Line Location: B+4
Function Call: WRITE	Prompt: !,"System: " Line Location: B+5
Function Call: WRITE	Prompt: ZTOS,"//" Condition for execution: ZTOS Line Location: B+5
Function Call: READ	Timeout: 300 Variable: X Line Location: B+6
Function Call: WRITE	Prompt: !,"NOT A VALID CHOICE" Line Location: B+7
Function Call: WRITE	Prompt: !!,"Now to load routines common to all systems." Line Location: ALL+0
Function Call: WRITE	Prompt: !,"Installing ^%Z editor" Line Location: ALL+5
Function Call: WRITE	Prompt: !,"Setting ^%ZIS('C')" Line Location: ALL+7
Function Call: READ	Prompt: "Want to rename the FileMan routines: No//" Formatting: ! Timeout: 600 Variable: X Line Location: FM+2
Function Call: WRITE	Prompt: ! Line Location: ZOSF+1
Function Call: WRITE	Prompt: ! Line Location: ZOSF+1
Function Call: WRITE	Prompt: !,"- Use autostart to do ZTMB don't resave as STUSER." Line Location: 2+1
Function Call: WRITE	Prompt: !!,"Now, I will check your % globals." Line Location: GLOBALS+1
Function Call: WRITE	Prompt: ".........." Line Location: GLOBALS+2
Function Call: READ	Timeout: $S($G(DTIME):DTIME,1:9999) Variable: X Line Location: MGR+0
Function Call: WRITE	Prompt: !,"NAME OF MANAGER'S UCI,VOLUME SET: "_^%ZOSF("MGR")_"// " Line Location: MGR+0
Function Call: READ	Timeout: $S($G(DTIME):DTIME,1:9999) Variable: X Line Location: PROD+0
Function Call: WRITE	Prompt: !,"PRODUCTION (SIGN-ON) UCI,VOLUME SET: "_^%ZOSF("PROD")_"// " Line Location: PROD+0
Function Call: READ	Timeout: $S($G(DTIME):DTIME,1:9999) Variable: X Line Location: VOL+0
Function Call: WRITE	Prompt: "MUST BE 3 Upper case." Line Location: VOL+0
Function Call: WRITE	Prompt: ! Line Location: VOL+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZE	ALL+3*
^%ZIS("C"	ALL+7!*
^%ZOSF("MASTER"	A+12!
^%ZOSF("MGR"	MGR*
^%ZOSF("OS"	B, B+1, OSNUM+1
^%ZOSF("PROD"	PROD*
^%ZOSF("UCI"	A+2
^%ZOSF("VOL"	VOL*
^%ZTSCH(	GLOBALS+4*
^%ZTSK - [#14.4]	GLOBALS+4, GLOBALS+5, GLOBALS+6
^%ZTSK(0	GLOBALS+4, GLOBALS+5, GLOBALS+6*
^%ZUA(3.05 - [#3.05]	GLOBALS+7*
^%ZUA(3.07 - [#3.07]	GLOBALS+8*

Label References

Name	Line Occurrences
$$OS	A+7
$$OSNUM	B+1
$$R	COPY+3
@(	DOIT+1, ZOSF+1
A	A+2, RELOAD+2, PATCH+4
ALL	DOIT+1
B	B+7
COPY	MOVE+10
DES	1+2, 2+3, 3+2, 7+3, 8+3
DEV	ALL+1
ETRAP	ALL+1
FM	ALL+1
GLOBALS	DOIT+1
MES	DOIT, DOIT+1, PATCH+2, PATCH+3, MOVE+2
MGR	MGR
MOVE	TM+3, TM+6, TM+9, FM+4, ETRAP+2, OTHER+2, DEV+2, RUM+7, 1+2, 1+4 , 2+3, 2+5, 2+6, 3+2, 3+4, 7+3, 7+5, 8+3, 8+5
OTHER	ALL+1
PROD	PROD
RUM	1+4, 2+5, 3+4
TM	ALL+1
VOL	VOL
ZOSF	1+4, 2+5, 3+4, 7+5, 8+5

Naked Globals

Name	Field # of Occurrence
^("SIGNOFF"	A+12!
^("UCICHECK"	MGR, PROD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MOVE+1~, MOVE+2, MOVE+3, MOVE+4, GLOBALS+3
%D	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, TM+2, TM+5, TM+8, FM+3, ETRAP+1, OTHER+1, DEV+1* , RUM+6, 1+3, 2+4, 2+6, 3+3, 7+4, 8+4, MOVE+2, MOVE+4, DES
%S	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, TM+1, TM+4, TM+7, FM+3, ETRAP+1, OTHER, DEV* , RUM+1, RUM+2, RUM+3, RUM+4, RUM+5, 1+1, 1+3, 2+2, 2+4, 2+6 , 3+1, 3+3, 7+2, 7+4, 8+2, 8+4, MOVE+3
>> %ZE	7+1, 8+1
B	MES~, MES+1*, MES+2, MES+3
CMD	COPY+3~, COPY+7*
COPY	COPY+3~, COPY+6*, COPY+7
DTIME	MGR, PROD, VOL
FROM	COPY~, COPY+4*, COPY+7
I	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, OS+2, B+4, OSNUM+1~, OSNUM+2*
M	MOVE+1~, MOVE+2, MOVE+3, MOVE+6, MOVE+7, MOVE+9, MOVE+11*
OSMAX	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, OS+1~, OS+2*, B+4, B+7
PATH	COPY+3~*, COPY+4, COPY+5
PCNM	A+8, A+9*, A+10, PATCH~, PATCH+2, PATCH+3
SCR	ZTMGRSET+4~, A+10, RELOAD+1~, PATCH+1~, OS+2, ZOSF+1, MOVE+8
T	MES~, MES+2, MES+3
TO	COPY~, COPY+5*, COPY+7
U	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, OS+2*, B+1, B+7, ZOSF+1, MOVE+3, MOVE+4
X	ZTMGRSET+4~, A+2, A+3, A+5, RELOAD+1~, PATCH+1~, OS+1~, OS+2, B+6, B+7 , B+8, FM+2, ZOSF~, ZOSF+1, MOVE+1~, MOVE+3, MOVE+5, MOVE+6, MOVE+10, MGR* , PROD, VOL
X1	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, OS+1~, B+1, OSNUM+1~, OSNUM+2
X2	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, OSNUM+1~, OSNUM+2*
Y	ZTMGRSET+4~, A+4, RELOAD+1~, PATCH+1~, OS+1~, B, OSNUM+1~, OSNUM+2, OSNUM+3, MOVE+1~ , MOVE+4, MOVE+7, MOVE+10, MOVE+11, MGR, PROD
Z1	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, GLOBALS+5*, GLOBALS+6
Z2	ZTMGRSET+4~, RELOAD+1~, PATCH+1~, GLOBALS+5*, GLOBALS+6
ZRO	R+1~, R+2, R+3, R+4, R+5*, R+6
ZTMODE	ZTMGRSET+4~, ZTMGRSET+5, A+3, A+8, A+9, DOIT+1, RELOAD+1~, RELOAD+2, PATCH+1~, PATCH+4* , B+2, ALL+7, FM+1
ZTOS	ZTMGRSET+4~, A+7, DOIT+1, RELOAD+1~, PATCH+1~, B, B+1*, B+2, B+5, B+6 , ALL+2, RUM+2, RUM+3, RUM+4, RUM+5, COPY+1, COPY+6, R+2, R+6

Marked Items

Name	Field # of Occurrence
$T(	A
$T(@I	OS+2, B+4, OSNUM+2
$T(@X	B+7
$T(BMES^XPDUTL	MES+2
$T(^@X	MOVE+7

Customize PDF page

Package: Kernel

Routine: ZTMGRSET

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 22

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items