Routine: AMQQCMPP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
PCC Medical Query	3	ELT^AMQQCMP0 EXIT2^AMQQKILL PRINT^AMQQSEC
VA Fileman	2	YN^DICN ^DIR

Package	Total	Caller Graph
PCC Medical Query	2	AMQQCMPL AMQQRMA1

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
^%ZISC	RUN+7, QUEUE+3, COUNT+6
^%ZTLOAD	QUEUE+2
ELT^AMQQCMP0	TASKC+8
EXIT2^AMQQKILL	TASK+5, TASKC+13
PRINT^AMQQSEC	DEV+6
YN^DICN	SUP+2
^DIR	RUN+4, TASK+3, CV1+13, TASKC+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!! Line Location: QUEUE+4
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+1
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: " <= Not a secure device!!",*7 Line Location: DEV+6
Function Call: WRITE	Prompt: !!,"You can not queue a job to a slave printer..Try again",!!,*7 Line Location: DEV+7
Function Call: WRITE	Prompt: !,"Total: ",+$G(AMQQTOT) Line Location: TASK+2
Function Call: WRITE	Prompt: @IOF Line Location: TASK+4
Function Call: WRITE	Prompt: !!!!,%,! Line Location: COVER+3
Function Call: WRITE	Prompt: " WARNING...The following report may contain CONFIDENTIAL PATIENT DATA. " Line Location: COVER+4
Function Call: WRITE	Prompt: !," You are accountable for keeping the report in a SECURE AREA at all times." Line Location: COVER+5
Function Call: WRITE	Prompt: !," SHRED the report as soon as it is no longer needed. " Line Location: COVER+6
Function Call: WRITE	Prompt: !," PRIVACY ACT violators are subject to a $5000 fine! " Line Location: COVER+7
Function Call: WRITE	Prompt: !,% Line Location: COVER+8
Function Call: WRITE	Prompt: !,"Date of report: " Line Location: CV1+7
Function Call: WRITE	Prompt: Y Line Location: CV1+10
Function Call: WRITE	Prompt: !! Line Location: CV1+11
Function Call: WRITE	Prompt: ! Line Location: CV1+12
Function Call: WRITE	Prompt: !! Line Location: CV1+13
Function Call: WRITE	Prompt: !!!!,"COUNTING....",! Line Location: TASKC+1
Function Call: WRITE	Prompt: !!!! Line Location: TASKC+2
Function Call: WRITE	Prompt: !!! Line Location: TASKC+2
Function Call: WRITE	Prompt: $C(13),?9,$C(13) Line Location: TASKC+4
Function Call: WRITE	Prompt: "Total: ",+$G(AMQQTOT) Line Location: TASKC+5
Function Call: WRITE	Prompt: !,"Search time: ",X Line Location: TASKC+9
Function Call: WRITE	Prompt: !!! Line Location: TASKC+10
Function Call: WRITE	Prompt: @IOF Line Location: TASKC+12
Function Call: WRITE	Prompt: !!,"Want to suppress patient names and only print the chart no." Line Location: SUP+0
Routine Call	DIR Line Location: RUN+4 TASK+3 CV1+13 TASKC+10
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CV1+9
^UTILITY("AMQQ"	CV1+12
^XUSEC("AMQQZRPT"	RUN+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUEUE+1, EXIT!, COVER+1, COVER+2, COVER+3, COVER+8, CV1, CV1+1, CV1+2, CV1+4 , CV1+5, CV1+6, CV1+12, SUP+1*
%Y	SUP+3!, SUP+5!, SUP+7!
>> %ZIS	DEV+1*
>> %ZIS("B"	DEV+2*
>> AMQQ200(3	RUN+4, CV1, CV1+4
>> AMQQFFF	RUN+3, TASK, TASK+2
AMQQH1	TASKC*, TASKC+6, TASKC+11!
>> AMQQIOP	DEV+4*
AMQQNV	RUN~, RUN+1, COUNT+1~, COUNT+2
AMQQQUIT	RUN+3, RUN+4, RUN+6, DEV+5, TASK, COVER+3!, CV1+13, COUNT+5, SUP+3, SUP+4*
AMQQRV	RUN~, RUN+1, COUNT+1~, COUNT+2
AMQQSUPF	EXIT!, SUP+6*
>> AMQQTOT	TASK+2, TASKC+5
AMQQUSR	RUN+4*, EXIT!, CV1+2, CV1+3, CV1+4
AMQQXV	RUN~, RUN+2, COUNT+1~, COUNT+3
>> AMQV(0	TASK+1, TASKC+3
DIR	RUN+4!, TASK+3!, CV1+13!, TASKC+10!
DIR("A"	RUN+4*
DIR("B"	RUN+4*
DIR(0	RUN+4, TASK+3, CV1+13, TASKC+10
DIRUT	RUN+4!, TASK+3!, CV1+13!, TASKC+10!
DT	CV1+8
DTOUT	RUN+4!, TASK+3!, CV1+13!, TASKC+10!, SUP+4!
DUOUT	RUN+4!, TASK+3!, CV1+13!, TASKC+10!, SUP+4!
DUZ	RUN+4, CV1, CV1+2, CV1+3
I	QUEUE+1*, EXIT!
IO	RUN+7, DEV+4, DEV+7, COUNT+6
IO("Q"	RUN+7, DEV+7, COUNT+6
IO(0	DEV+7
IOF	EXIT+1, TASK+4, TASKC+12
ION	RUN+9, COUNT+8
IOST	TASK+3, CV1+13, TASKC+1, TASKC+4, TASKC+10
>> POP	DEV+5
U	RUN+4, CV1, CV1+4, SUP+3
X	EXIT!, TASKC+9
X1	TASKC+6*, TASKC+11!
X2	TASKC+7*, TASKC+11!
Y	RUN+4!, EXIT!, CV1+8*, CV1+10
>> ZTDESC	RUN+11, COUNT+10
>> ZTDTH	RUN+10, COUNT+9
>> ZTIO	RUN+9, COUNT+8
>> ZTQUEUED	TASK+5, TASKC+13
>> ZTREQ	TASK+5, TASKC+13
>> ZTRTN	RUN+8, COUNT+7
>> ZTSAVE(	QUEUE+1*
>> ZTSK	QUEUE+4

Customize PDF page

Package: PCC Medical Query

Routine: AMQQCMPP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
COUNT	; ENTRY POINT FROM AMQQCMPL
TASK
RUN
COVER	; - EP -
DEV
CV1
QUEUE	;F I=1:1 S %=$P("AMQV(;AMQQ200(;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)=""
TASKC
EXIT
SUP

Name	Line Occurrences
COVER	TASK
CV1	TASKC+2
DEV	RUN+5, DEV+6, DEV+7, COUNT+4
EXIT	RUN+7
QUEUE	COUNT+11
SUP	RUN+3
TASK	RUN+7
TASKC	COUNT+6