Routine: AMQQDO

Package	Total	Call Graph
PCC Medical Query	3	APT^AMQQAPT SETLAB^AMQQATAL ^AMQQDOH

Package	Total	Caller Graph
PCC Medical Query	1	AMQQDOH

Entry Points

External References

Name	Field # of Occurrence
APT^AMQQAPT	DIS+5
SETLAB^AMQQATAL	LABCONV+10
^AMQQDOH	DISPLAY+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: AMQQDO+13
Function Call: WRITE	Prompt: !,"BAD POINTER FOR PATIENT NUMBER ",AMQP(AMQQOV) Line Location: M1+12
Function Call: WRITE	Prompt: ?17,$P(^AUPNPAT(AMQP(AMQQOV),41,DUZ(2),0),U,2) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: $S($P(^AUPNPAT(AMQP(AMQQOV),41,DUZ(2),0),U,2)]"":$P(^(0),U,2),1:"NO HRN"),U Line Location: DISPLAY+16
Function Call: WRITE	Prompt: "NO HRN",U Line Location: DISPLAY+17
Function Call: WRITE	Prompt: ?J,$$QUAL(AMQQVMDA) Line Location: DIS+2
Function Call: WRITE	Prompt: !,AMQP(1),?9,Y Line Location: DV+2
Function Call: WRITE	Prompt: !,AMQP(1),U,Y,U Line Location: DV+3
Function Call: WRITE	Prompt: !,AMQP(3) Line Location: DD+0
Function Call: WRITE	Prompt: !,AMQP(3),U Line Location: DD+1
Function Call: WRITE	Prompt: !,$E(%,1,18),?19,$E(Y,1,4) Line Location: DH+2
Function Call: WRITE	Prompt: !,$E(%,1,18),U,$E(Y,1,4),U Line Location: DH+3
Function Call: WRITE	Prompt: ?J,$E(X,1,Z) Line Location: FOR1+0
Function Call: WRITE	Prompt: $E(X,1,Z),U Line Location: FOR1+1
Function Call: WRITE	Prompt: " days" Line Location: FOR1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	M1+1, DIS+2, FORMAT+8, FORMAT+13, FORMAT+14, LABCONV+2, LABCONV+4
^AUPNPAT - [#9000001]	DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17, SUOUT+4, SUOUT+7
^AUPNVHF - [#9000010.23]	FORMAT+16
^AUPNVLAB - [#9000010.09]	M1+4, EXP+10, EXP+15
^AUPNVMSR - [#9000010.01]	QUAL+4, QUAL+5
^AUPNVSIT - [#9000010]	DV
^AUTTLOC - [#9999999.06]	AMQQDO+14, SUOUT+6, SUOUT+7
^DD("DD"	DV+1
^DIBT(	AMQQDO+12, AMQQDO+13, DISPLAY+3*
^DPT - [#2]	M1+12, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11
^GMRD(120.52 - [#120.52]	QUAL+5
^LAB(60 - [#60]	EXP+4
^LAB(61 - [#61]	EXP+16
^TMP(	DIS+3, DIS+4
^UTILITY("AMQQ TAX"	SUOUT+7
^UTILITY("AMQQ"	AMQQDO+15, EXIT!, MULT+1, MULT+2!, M1+1, M1+6, M1+8, DIS+1, DV+5, DD+3 , FORMAT+1, EXP+7

Label References

Name	Line Occurrences
$$CHKVA	DIS, DV+4
$$QUAL	DIS+2
@(	DISPLAY+1
DD	DISPLAY+5
DH	DISPLAY+6
DIS	DH+4
DISPLAY	AMQQDO+16, M1+13
DV	DISPLAY+7
EXIT	AMQQDO+15
FOR1	FORMAT+12
FORMAT	DIS+1, DV+5, DD+3
LABCONV	FORMAT+7
M1	MULT+1
MULT	AMQQDO+15

Naked Globals

Name	Field # of Occurrence
^(	MULT+1, M1+6
^("*"	SUOUT+7
^(0	AMQQDO+14, DISPLAY+16
^(1	FORMAT+13, FORMAT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, MULT+1, M1+1, M1+2, M1+3, M1+4, M1+10, DISPLAY+9, DISPLAY+10, DISPLAY+11 , DISPLAY+12, DISPLAY+13, DIS+2, DH, DH+2, DH+3, FORMAT+1, FORMAT+3, FORMAT+5, FORMAT+6 , FORMAT+8, FORMAT+11, FORMAT+13, FORMAT+14, FOR1+2, LABCONV+1, LABCONV+2, LABCONV+3, LABCONV+4, LABCONV+7 , LABCONV+9~, EXP+1~, EXP+7, EXP+8, EXP+11, EXP+12, EXP+13, EXP+15, EXP+16, SUOUT+1~ , SUOUT+3, SUOUT+4, SUOUT+6, SUOUT+7
%A	SUOUT+5~, SUOUT+6*, SUOUT+7
A	EXIT!, M1+7, M1+9, M1+10, FORMAT+3, FORMAT+4, FORMAT+8, FORMAT+13, FORMAT+14, QUAL+2~ , QUAL+3, QUAL+5*, QUAL+6, LABCONV+9~
>> AMQP(	AMQQDO+12, AMQQDO+13, MULT+1, M1+10*, M1+12, DISPLAY+3, DISPLAY+4, DISPLAY+8, DISPLAY+14, DISPLAY+15 , DISPLAY+16, DISPLAY+17, DIS+1, DIS+5, DV+5, DD+3, FORMAT
>> AMQP(0	M1+12, DISPLAY+9, DISPLAY+10, DISPLAY+11, SUOUT+4, SUOUT+7
>> AMQP(1	DV, DV+2, DV+3
>> AMQP(3	DD, DD+1
>> AMQP(4101	SUOUT+7
>> AMQP(5	DH, DH+1
>> AMQQ(423	FORMAT+17, FORMAT+19, FORMAT+20
>> AMQQ200(16	DH
>> AMQQ200(6	DH+1
AMQQATN	LABCONV+5~, LABCONV+7*
AMQQATNM	LABCONV+5~, LABCONV+8*
>> AMQQBACK	AMQQDO+12
>> AMQQCCLS	AMQQDO+11, DISPLAY+5, DISPLAY+6, DISPLAY+7
AMQQDA	M1+2~, M1+3~, FORMAT+14, FORMAT+16
>> AMQQDIBT	AMQQDO+12, AMQQDO+13, DISPLAY+3
>> AMQQDLIM	DISPLAY+4, DISPLAY+9, DISPLAY+10, DISPLAY+13, DISPLAY+15, DISPLAY+17, DIS+3, DV+2, DD, DH+2 , FOR1
>> AMQQDVQU	DIS+2
>> AMQQEDT	DIS+4*, DIS+5
>> AMQQEN3	AMQQDO+13
>> AMQQHOLD	MULT+1*, EXP+7
>> AMQQJOB	DIS+3, DIS+4
>> AMQQLABB	AMQQDO+14*
AMQQLDFN	EXIT!, M1+4*, EXP+2
>> AMQQMUFV	M1+5, M1+6
>> AMQQMULL	AMQQDO+15, MULT+1, MULT+2, M1+1, M1+8, EXP+7
>> AMQQMUNV	M1+5
>> AMQQND	AMQQDO+13
AMQQOV	AMQQDO+11*, AMQQDO+12, AMQQDO+13, EXIT!, MULT+1, M1+12, DISPLAY+3, DISPLAY+4, DISPLAY+8, DISPLAY+14 , DISPLAY+15, DISPLAY+16, DISPLAY+17, DIS+5
>> AMQQRMFL	DISPLAY+1
>> AMQQSUPF	DISPLAY+12
AMQQSVAR	EXIT!
>> AMQQTOT	DISPLAY, DISPLAY+2, DISPLAY+4, DISPLAY+8
>> AMQQTOTF(	FORMAT+12!
AMQQVMDA	M1+1~*, DIS+2
AMQQXX	LABCONV+5~, LABCONV+6*
>> AMQQYY(0	M1+11
AMQQZ	FORMAT+15~, FORMAT+16, FORMAT+17, FORMAT+21, FORMAT+23, FORMAT+24
>> AMQT(999	M1+2, M1+3, M1+4
>> AMQV(	M1+2, M1+3, M1+4
>> AMQV("OPTION"	DISPLAY+2
B	QUAL+2~, QUAL+4*, QUAL+5
C	QUAL+2~, QUAL+5*, CHKVA~, CHKVA+1
COND	FORMAT+18~, FORMAT+19*, FORMAT+21
DT	DIS+5
DUZ("AG"	CHKVA+1
DUZ(2	AMQQDO+14, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17, SUOUT+7
I	EXIT!, DIS+1, DV+5, DD+3*, FORMAT, FORMAT+1, FORMAT+12, LABCONV+9~
IOSL	DISPLAY+4
IOST	DISPLAY+2, DISPLAY+4
J	EXIT!, DIS, DIS+2, DV+4, DD+2, FOR1, FOR1+3, LABCONV+9~, EXP+1~, EXP+2 , EXP+3, EXP+4
SITE	EXP+1~, EXP+14, EXP+16, EXP+17
T	FORMAT+18~, FORMAT+21*, FORMAT+22
U	AMQQDO+14, M1+1, M1+2, M1+3, M1+4, M1+7, M1+10, DISPLAY+8, DISPLAY+9, DISPLAY+13 , DISPLAY+15, DISPLAY+16, DISPLAY+17, DIS+2, DV+3, DD+1, DH, DH+1, DH+3, FORMAT+3 , FORMAT+5, FORMAT+6, FORMAT+9, FORMAT+11, FORMAT+16, FORMAT+19, FORMAT+20, FOR1+1, FOR1+2, QUAL+5 , LABCONV+3, EXP+4, EXP+8, EXP+10, EXP+11, EXP+15, EXP+16, SUOUT+6, SUOUT+7
VALUE	FORMAT+18~, FORMAT+20*, FORMAT+21
VLAB	EXP+1~, EXP+9*, EXP+15
W	EXIT!
X	EXIT!, M1+6, M1+10, FORMAT, FORMAT+5, FORMAT+6, FORMAT+10, FORMAT+13, FORMAT+14, FORMAT+24 , FOR1, FOR1+1, EXP+17, SUOUT+2, SUOUT+7*
Y	EXIT!, M1+6, M1+7, M1+8, DV, DV+2, DV+3, DH+1, DH+2, DH+3 , FORMAT+2, FORMAT+12, FORMAT+13, FORMAT+14, EXP+1~, EXP+4, EXP+5, EXP+6, EXP+17
Z	EXIT!, M1+5, M1+6, FORMAT+8, FORMAT+9, FORMAT+11, FORMAT+24, FOR1, FOR1+1, FOR1+3 , QUAL~, QUAL+1, QUAL+4, QUAL+5, EXP+1~, EXP+8, EXP+9, EXP+10, EXP+13*, EXP+17

Customize PDF page

Package: PCC Medical Query

Routine: AMQQDO

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LABCONV	;EP;CONVERT FOR TEMP LAB GLOBAL
DH
FORMAT
CHKVA(C)	; RETURN C+3 IF VA, ELSE C
DD
SUOUT	; Output transform for CHART SERVICE UNIT attribute; prints chart #s/su
QUAL(Z)	;
M1	;
EXP	; ENTRY POINT FROM METADICTIONARY
DV
EXIT
FOR1
DISPLAY
MULT	; ENTRY POINT FROM AMQQCMPS
DIS