Routine: XUTMRP1

Package	Total	Call Graph
Kernel	5	(DQ,REQ)^%ZTLOAD $$HTFM^XLFDT ^XQH (ASKD,D0)^XUTMRP EN^XUTMTP
VA Fileman	2	YN^DICN ^DIR

Package

Total

Call Graph

(DQ,REQ)^%ZTLOAD $$HTFM^XLFDT ^XQH (ASKD,D0)^XUTMRP EN^XUTMTP

YN^DICN ^DIR

Package	Total	Caller Graph
Kernel	1	XUTMRP

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: XUTMRP1+4
Function Call: WRITE	Prompt: !!,"Requeued ",$S(WAIT:"waiting ",1:""),"task #",ZTSK," to device ",CONFDEV(DEVNAM),! Line Location: REQ+4
Function Call: WRITE	Prompt: !!,"I can't find a printer for task #",ZTSK,!," with old device ",DEVNAM," with the correct parameters." Line Location: ASKD+1
Function Call: WRITE	Prompt: !," (MARGIN= ",$P(OLDDEV(DEVNAM),";",3),"/ PAGE LENGTH= ",$P(OLDDEV(DEVNAM),";",4)," )." Line Location: ASKD+2
Function Call: WRITE	Prompt: !!,"You didn't select a device. Do you want to delete the task" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Task #",ZTSK," deleted." Line Location: ASK+9
Function Call: WRITE	Prompt: !!?5,"That task is not defined in this volume set's Task File." Line Location: LIST+3
Routine Call	DIR Line Location: ASK+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH(	FTSK
^%ZTSCH("IO"	WTSK
^%ZTSK - [#14.4]	WTSK+1, WTSK+3, FTSK, FTSK+2, DATCK, LIST+2
^DIC(19.2 - [#19.2]	OPT, OPT+1, OPT+2, OPT+4*, OPT+5
^TMP($J	WTSK+2*, FTSK+5

Name	Field # of Occurrence
^(	FTSK+2
^(0	FTSK+3

Name	Field # of Occurrence
>> %	ASK+1*, ASK+2
>> CONFDEV(	WTSK+2, FTSK+4, REQ, REQ+2, REQ+4, CONF+2, CONF+4, CONF+7, CONF+10*
>> DEL	ASK+2*, ASK+7
>> DEV	CONF+1*, CONF+2, CONF+7
>> DEVNAM	WTSK+1, WTSK+2, FTSK+2, FTSK+4, OPT+1*, OPT+2, REQ, REQ+2, REQ+4, CONF+2 , CONF+4, CONF+7, CONF+9, CONF+10, ASKD+1, ASKD+2
>> DEVNAME	OPT+3
DIR	ASK+4!, LIST+1~
DIR("A"	ASK+3*
DIR("B"	ASK+4*
DIR(0	ASK+3*
DIRUT	ASK+5, LIST+1~
DTOUT	LIST+1~
DUOUT	LIST+1~
>> EDT	DATCK+1
>> FLAG	WT*
>> FUT	FTSK
>> II	CONF+7, CONF+8, CONF+10
>> IOP	CONF+7*
>> NEWDEV(	OPT+3, REQ+2, CONF+1, CONF+2, CONF+7*
>> OLDDEV(	FTSK+2, OPT+2, CONF+2, CONF+8, CONF+9, CONF+10, ASKD+2
>> OLDLTA	WTSK
>> OPT	OPT
>> REPNT	WTSK+2, FTSK+5
>> SDT	DATCK+1
>> T1	OPT+1*, OPT+3
>> TT	FTSK, OPT, OPT+1, OPT+2, OPT+4, OPT+5
U	WTSK+1, FTSK+2, FTSK+3, OPT+1, OPT+3, OPT+4, DATCK
>> WAIT	WTSK, WTSK+4*, REQ+4
X	OPT+3, OPT+4, DATCK~, DATCK+1
>> XQH	ASK+1*
>> XUTMDTH	REQ+1
>> Y	CONF+6, ASKD+3, ASK+5
>> ZTC	DTSK, LIST+2*, LIST+3
>> ZTDH	WTSK*
ZTDTH	FTSK+3, REQ+1, REQ+2!
>> ZTIO	REQ+2*, CONF+7
>> ZTSK	WTSK, WTSK+1, WTSK+2, WTSK+3, FTSK, FTSK+2, FTSK+5, REQ+4, ASKD+1, ASK+9 , DATCK, LIST+2
>> ZTSK(0	REQ+3, ASK+9

Information

Name	Comments	DBIA/ICR reference
OPT
END
LIST	;List a task.
REQ
FTSK
WTSK
ASKD	;For devices that don't match ask user
WT
CONF	;Build the CONFDEV array
ASK
DATCK()
DTSK