Routine: AMQQRMD

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
PCC Medical Query	2	EXIT2^AMQQKILL PRINT^AMQQSEC
VA Fileman	1	H^%DTC

Package	Total	Caller Graph
PCC Medical Query	1	AMQQCMPL

Entry Points

External References

Name	Field # of Occurrence
H^%DTC	COUNT+9, SET+11
^%ZIS	DEV+2
^%ZISC	PRINT+10, PRINT+11, WORKTASK+6, WORK+4, WORK+5
^%ZTLOAD	WORKTASK+5
EXIT2^AMQQKILL	WORKRUN+4
PRINT^AMQQSEC	DEV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(13),AMQQDZ Line Location: START+2
Function Call: WRITE	Prompt: " (",AMQQDX,")" Line Location: START+2
Function Call: WRITE	Prompt: !!!!,"CRUNCH, CRUNCH....",!! Line Location: START+4
Function Call: WRITE	Prompt: $C(13),AMQQDZ," (",AMQQDX,")" Line Location: FAIL+1
Function Call: WRITE	Prompt: !!,"TOTAL" Line Location: PRINT+5
Function Call: WRITE	Prompt: ?J,@AMQQDGR@("C",I) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?(J+8),AMQQDTOT Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"DAYS" Line Location: PRINT+8
Function Call: WRITE	Prompt: ?J,$P(AMQQDD,U,I) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?J,$P(AMQQDD,U,I) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"AVERAGE" Line Location: PRINT+9
Function Call: WRITE	Prompt: ?(J+8) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?(J+8) Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+10
Function Call: WRITE	Prompt: ?J,% Line Location: AVE+4
Function Call: WRITE	Prompt: !,X,"-",Y Line Location: B1+7
Function Call: WRITE	Prompt: ?J,$S($D(@AMQQDGR@("A",AMQQDLIN,I)):^(I),1:".") Line Location: B1+8
Function Call: WRITE	Prompt: ?(J+8),@AMQQDGR@("B",AMQQDLIN) Line Location: B1+8
Function Call: READ	Prompt: "<>" Formatting: ! Timeout: DTIME Variable: AMQQRQ Line Location: PAUSE+0
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+0
Function Call: WRITE	Prompt: !,"WORKLOAD DISTRIBUTION REPORT: ",AMQQDDS," to ",AMQQDDF,! Line Location: HEADER+1
Function Call: WRITE	Prompt: "VISIT TIME" Line Location: HEADER+2
Function Call: WRITE	Prompt: ?J,$P("SUN^MON^TUE^WED^THU^FRI^SAT",U,I) Line Location: HEADER+4
Function Call: WRITE	Prompt: ?(J+8),"TOT" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,AMQQDY Line Location: HEADER+7
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!! Line Location: WORKTASK+7
Function Call: WRITE	Prompt: @IOF Line Location: WORK+4
Function Call: WRITE	Prompt: !!! Line Location: DEV+0
Function Call: WRITE	Prompt: " <= Not a secure device!!",*7 Line Location: DEV+4
Function Call: WRITE	Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7 Line Location: DEV+5
Function Call: WRITE	Prompt: @IOF Line Location: WORKRUN+0
Function Call: WRITE	Prompt: @IOF Line Location: WORKRUN+3
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	SET
^DD("DD"	COUNT+3, COUNT+6
^UTILITY("AMQQ"	AMQQRMD+5, PRE!

Label References

Name	Line Occurrences
AVE	PRINT+9
B1	PRINT+4
COUNT	PRINT+1
DEV	WORK+1, DEV+4, DEV+5
FAIL	SET+1
HEADER	PRINT+2, PAUSE+2
PAUSE	PRINT+4
PEXIT	PRINT, PRINT+4, PRINT+10
PRE	START+5
PRINT	WORKRUN+2
SET	START+3, START+6
START	AMQQRMD+3
WORKRUN	WORK+5
WORKTASK	WORK+4

Naked Globals

Name	Field # of Occurrence
^(	SET+13, SET+14, SET+15*, B1+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	AMQQRMD+5, AMQQRMD+6, AMQQRMD+7, EXIT!, COUNT+14, COUNT+16, SET, SET+1, SET+2, SET+3 , SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+13, SET+14, SET+15, PRINT+9 , AVE+1, AVE+2, AVE+3, AVE+4, B1, B1+1, B1+2, B1+3, B1+5, WORKTASK+4
%H	EXIT!, COUNT+9, PEXIT!
%T	EXIT!, PEXIT!
%Y	EXIT!, COUNT+10, COUNT+14, SET+12, PEXIT!
>> %ZIS	DEV+1*
A	EXIT!, PEXIT!
>> AMQP(1	AMQQRMD+3, AMQQRMD+7*, SET
>> AMQQCCLS	AMQQRMD+3
AMQQDAY	SET, SET+10, SET+12, SET+13, SET+15, PEXIT!
AMQQDD	COUNT+17*, PRINT+8, PRINT+9, PEXIT!, AVE+1, AVE+2
AMQQDDF	COUNT+1, COUNT+5, COUNT+7, SET+3, SET+5, PEXIT!, HEADER+1
AMQQDDS	COUNT, COUNT+2, COUNT+4, SET+2, SET+4, PRINT, PEXIT!, HEADER+1
AMQQDGR	PRE+1, PRE+2, PRE+3, SET+13, SET+14, SET+15, PRINT+3, PRINT+7, PEXIT!, AVE+2 , B1+8
AMQQDLIN	PRINT+4, PEXIT!, B1, B1+8, PAUSE, PAUSE+1
AMQQDTIM	SET+9*, SET+13, SET+14, PEXIT!
AMQQDTOT	PRE+4, SET+16, PRINT+7, PRINT+9, PEXIT!
AMQQDX	START, START+2, FAIL, FAIL+1, PEXIT!
AMQQDY	PRINT+12, PEXIT!, HEADER+5, HEADER+6*, HEADER+7, HEADER+8!
AMQQDZ	START, START+1, START+2, START+3, FAIL+1, PEXIT!
>> AMQQHOLD	AMQQRMD+4, AMQQRMD+5
>> AMQQQUIT	WORK+2, DEV+3*
AMQQRI	HEADER+8!
AMQQRJ	HEADER+8!
AMQQRMFL	PEXIT!, WORK+3*
AMQQRQ	PAUSE*!
>> AMQQUATN	AMQQRMD+4, AMQQRMD+5
>> AMQV(0	WORKRUN+1
D1	COUNT*, COUNT+8!, COUNT+17!
D2	COUNT+1*, COUNT+8!, COUNT+17!
DTIME	PRINT+12, PAUSE
DTOUT	DEV+3!
DUOUT	DEV+3!
G	EXIT!, PEXIT!
I	EXIT!, COUNT+16, PRE+2, PRE+3, PRINT+6, PRINT+7, PRINT+8, PRINT+9, AVE, AVE+1 , AVE+2, B1+4, B1+8, HEADER+3, HEADER+4, WORKTASK+4*
IO	WORK+5, DEV+5
IO("Q"	WORK+4, DEV+5
IO(0	DEV+5
IOF	PRINT+10, HEADER, WORK+4, WORKRUN, WORKRUN+3
ION	WORKTASK+1
IOSL	PRINT+4
IOST	START+2, START+4, PRINT+10, PAUSE, WORKRUN+3
J	EXIT!, PRINT+7, PRINT+8, PRINT+9, AVE+4, B1+8, HEADER+4*
N	EXIT!, PRINT+8*, PRINT+9, PEXIT!
POP	DEV+3!
U	AMQQRMD+5, COUNT+16, PRINT+8, AVE+1, AVE+2, PAUSE, HEADER+4
X	COUNT+9, COUNT+11, COUNT+12, COUNT+13, COUNT+15, COUNT+16, COUNT+17, SET+10, PEXIT!, B1+2 , B1+5, B1+6, B1+7
X(	COUNT+9*
X(0	COUNT+10*
X(1	COUNT+11
X(2	COUNT+11
Y	COUNT+2, COUNT+4, COUNT+5, COUNT+7, COUNT+9, COUNT+12, COUNT+16, PEXIT!, B1+3, B1+5 , B1+6*, B1+7
Z	EXIT!, COUNT+13*, COUNT+14, PEXIT!
>> ZTDESC	WORKTASK+3*
>> ZTDTH	WORKTASK+2*
>> ZTIO	WORKTASK+1*
>> ZTQUEUED	WORKRUN+4
>> ZTREQ	WORKRUN+4*
>> ZTRTN	WORKTASK*
>> ZTSAVE(	WORKTASK+4*
>> ZTSK	WORKTASK+7

Customize PDF page

Package: PCC Medical Query

Routine: AMQQRMD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: