Routine: XUTMRP

Information

XUTMRP ;ISF/RWF,BOSTON/MEF - REQUEUE ALL TASKS FOR A DEVICE -PART ONE ;06/11/2001 11:13

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	^%ZIS $$FMTE^XLFDT ^XUTMRP1 ENV^XUTMUTL
VA FileMan	2	^DIC ^DIR

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
Kernel	1	XUTMRP1

Entry Points

Name	Comments	DBIA/ICR reference
INIT	;Setup
OPT
DEV
CONF
EXIT
DEVNAM(ARRAY)	;Build @ARRAY@(devname) from DEVNAM
ASKD(%A,%B)	;Ask for a device
DVARRY(II,LTA,OOS)	;Build list of devices for a LTA.
WAIT
FUT
REPNT	;Re-queues tasks to new lta# when dsv/ports are changed
REP2	;
DEV2	;Return Y=0 to quit
D0	;
DT(MES,DEF)
LISTIO	;List the entries in the IO queue.

External References

Name	Field # of Occurrence
^%ZIS	D0+1
^DIC	ASKD+3
^DIR	OPT+2, WAIT+1, FUT, REP2+2, REP2+9, DT+2, LISTIO+8
$$FMTE^XLFDT	FUT+6
^XUTMRP1	CONF+4, REPNT+4
ENV^XUTMUTL	INIT+1, REPNT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OPT+0
Function Call: WRITE	Prompt: ! Line Location: OPT+3
Function Call: WRITE	Prompt: ! Line Location: FUT+0
Function Call: WRITE	Prompt: !,"Now give a date/time range of future tasks to change." Line Location: FUT+2
Function Call: WRITE	Prompt: ! Line Location: REP2+2
Function Call: WRITE	Prompt: !,"There are NO tasks waiting for this device.",! Line Location: REP2+4
Function Call: WRITE	Prompt: ! Line Location: REP2+6
Function Call: WRITE	Prompt: !,$C(7),$P(SRCE,";")," margin ",$P(SRCE,";",3)," page length ",$P(SRCE,";",4),$C(7) Line Location: DEV2+4
Function Call: WRITE	Prompt: !,"doesn't match ",$P(ZTIO,";")," margin ",$P(ZTIO,";",3)," page length ",$P(ZTIO,";",4) Line Location: DEV2+5
Function Call: WRITE	Prompt: !,"Please confirm target device.",!,"If I can find a matching margin/page length",!,"I'll use it for the default.",!!,$C(7) Line Location: DEV2+6
Function Call: WRITE	Prompt: @IOF Line Location: LISTIO+2
Function Call: WRITE	Prompt: !," $IO Device names",!,"_______ ____________" Line Location: LISTIO+3
Function Call: WRITE	Prompt: !,DEV,?14," => " Line Location: LISTIO+6
Function Call: WRITE	Prompt: !,?18 Condition for execution: $X+$L(Y)+2>79 Line Location: LISTIO+7
Function Call: WRITE	Prompt: Y,", " Line Location: LISTIO+7
Function Call: WRITE	Prompt: @IOF Line Location: LISTIO+8
Routine Call	%ZIS Line Location: D0+1
Routine Call	DIC Line Location: ASKD+3
Routine Call	DIR Line Location: OPT+2 WAIT+1 FUT REP2+2 REP2+9 DT+2 LISTIO+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DVARRY+2, D0+2, LISTIO+7
^%ZTSCH("IO"	REP2+4, LISTIO+4, LISTIO+5
^TMP($J	INIT+3!, EXIT+2!, REPNT+2!

Label References

Name	Line Occurrences
$$DT	FUT+3, FUT+4, REP2+16
ASKD	DEV, DEV+2, REP2+6, DEV2+10
D0	DEVNAM+2, DVARRY+3, DEV2+1, DEV2+11
DEV2	DEV+3
DVARRY	DEV+1, DEV+5, REP2+13, DEV2+7
EXIT	INIT+5, DEV, DEV+2, DEV+4, REPNT+4
REP2	REPNT+3
WAIT	INIT+4, REP2+1

Naked Globals

Name	Field # of Occurrence
^("TYPE"	DVARRY+3
^(0	DVARRY+3, D0+2
^(90	DVARRY+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	ASKD~, ASKD+1
%B	ASKD~, ASKD+1
>> %ZIS	D0+1*
ARRAY	DEVNAM~, DEVNAM+2
CONFDEV	DEV+1*, DEV+5, EXIT!, DEV2+2, DEV2+3, DEV2+8
CONFDEV(	DEV+5, CONF+1, CONF+2, REP2+15*
DEF	DT~
DEFDEV	DEV2+9*, DEV2+10!
DEL	EXIT!
DEV	DEV+1, DEV+5, CONF+2, EXIT!, ASKD+4, DEV2+1, DEV2+11, LISTIO+1~, LISTIO+2, LISTIO+4 , LISTIO+5, LISTIO+6, LISTIO+7, LISTIO+8*
DEVNAM	CONF, CONF+1, CONF+2, EXIT!, DEVNAM+1, DEVNAM+2, DEV2+8*, DEV2+9, DEV2+10!
DEVNAM(	DEVNAM+2!, DEV2+8
DIC	DEV!, DEV+2!, EXIT!, ASKD+1~, ASKD+2*, REP2+7!, DEV2+10!
DIC("A"	ASKD+1*
DIC("B"	ASKD+1*
DIC("S"	ASKD+2*
DIC(0	ASKD+2*
DIR	INIT+3~, OPT+2!, WAIT+1!, FUT!, REP2+8!, DT+2!, LISTIO+1~
DIR("?"	OPT+1, REP2+2, DT+1*
DIR("A"	OPT, WAIT+1, FUT, REP2+2, REP2+8, DT
DIR("B"	OPT+1, WAIT+1, FUT, DT
DIR(0	OPT, WAIT+1, FUT, REP2+2, REP2+8, DT+1, LISTIO+8*
DIRUT	OPT+2, EXIT!, WAIT+1, FUT, REP2+1, REP2+3, LISTIO+8
DT	DVARRY+3
DUOUT	OPT+2, EXIT!, WAIT+1, FUT, REP2+1, REP2+3
DUZ	INIT+1, REPNT+1
EDATE	EXIT!, FUT+6*
EDT	EXIT!, FUT+4, FUT+5, FUT+6
EXIT	REPNT+2!, REPNT+4, REP2+1, REP2+3, REP2+4, REP2+5, REP2+7, REP2+9
FUT	INIT+3~, INIT+5, EXIT!, WAIT, FUT, FUT+1
I	EXIT!, LISTIO+1~, LISTIO+7*
II	EXIT!, DVARRY~, DVARRY+3, REP2+14, REP2+15
IO("DOC"	D0+3
IO("HFSIO"	D0+5
IO("P"	D0+3
>> IOCPU	D0+4
IOF	LISTIO+2, LISTIO+8
IOM	D0+3
ION	D0+2
>> IOP	DEVNAM+2, DVARRY+2, DEV2+1, DEV2+11
>> IOPAR	D0+5
>> IOS	D0+2
IOSL	D0+3, LISTIO+8
IOST	D0+3
>> IOT	D0+5
LTA	DEV+1, DEV+5, EXIT!, ASKD+4, DVARRY~, DVARRY+2, REP2+10, REP2+12, DEV2+7
MEFEND	INIT+3~, INIT+5, EXIT!
MES	DT~
NEWDEV	EXIT+1!
NEWDEV(	CONF+2, REP2+15
>> NEWLTA	REP2+12*, REP2+13
OLDDEV	EXIT+1!
OLDDEV(	CONF+1, CONF+2, DEV2+2, DEV2+3, DEV2+8
OLDLTA	DEV+1, EXIT+1!, REP2+5, REP2+10, REP2+13
OOS	DVARRY~, DVARRY+1*, DVARRY+3
OPT	OPT+2*, EXIT+2!
POP	EXIT+1!, D0+2
>> REPNT	REPNT+2*
SDATE	EXIT+1!, FUT+6*
SDT	EXIT+1!, FUT+3, FUT+5, FUT+6
SN	EXIT+1!, DVARRY+1~, DVARRY+2*
SRCE	EXIT+1!, DEV2+3*, DEV2+4
U	ASKD+4, DVARRY+2, DVARRY+3, D0+2, LISTIO+7
WAIT	INIT+3~, INIT+5, EXIT+1!, WAIT, WAIT+1
XQH	EXIT+1!
XUCPU	INIT+1, EXIT+1!, DVARRY+3, REPNT+1, D0+4*
XUTMDTH	INIT+3~, EXIT+2!, REP2+16*
>> XUTMUCI	INIT+1, REPNT+1
Y	OPT+2, DEV, DEV+2, DEV+4, EXIT+1!, ASKD+3, WAIT+1, FUT, REP2+4, REP2+5 , REP2+7, REP2+9, DEV2+1, DEV2+10, DT+3, LISTIO+1~, LISTIO+7
Y(0	ASKD+4
>> ZDT	FUT+5*
ZTC	EXIT+2!
ZTDH	EXIT+1!
ZTIO	EXIT+1!, DEVNAM+2, DVARRY+3, DEV2+2, DEV2+5, D0+2, D0+3
ZTIO("H"	D0+5*
ZTIO("P"	D0+5*
ZTKEY	EXIT+2!
ZTMD	EXIT+2!, DVARRY+2*, DVARRY+3
ZTNAME	EXIT+2!
ZTOPT	EXIT+2!
ZTSK	EXIT+2!
ZTUCI	EXIT+2!

Customize PDF page

Package: Kernel