Routine: AMQQAT

Package	Total	Call Graph
PCC Medical Query	4	^AMQQAC ^AMQQATA ^AMQQAV ^AMQQSQ
Kernel	1	$$VERSION^%ZOSV

Package

Total

Call Graph

PCC Medical Query

^AMQQAC ^AMQQATA ^AMQQAV ^AMQQSQ

Kernel

$$VERSION^%ZOSV

Package	Total	Caller Graph
PCC Medical Query	6	AMQQ AMQQATA AMQQGTX AMQQQ2 AMQQSQA1 AMQQSQP

Package

Total

Caller Graph

PCC Medical Query

AMQQ AMQQATA AMQQGTX AMQQQ2 AMQQSQA1 AMQQSQP

Entry Points

Name	Field # of Occurrence
$$VERSION^%ZOSV	VAR+3, VAR+4
^AMQQAC	CND+1, SETTAX+2
^AMQQATA	GET
^AMQQAV	CND+7
^AMQQSQ	CTXS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GET+5
Function Call: WRITE	Prompt: !! Line Location: GET+6
Function Call: WRITE	Prompt: !!,"OK, I'll collect queries for OR GROUP #",AMQQKGNO,! Line Location: GET+10
Function Call: WRITE	Prompt: !!,"WHOOPS!!!!!!!!!!!!!" Line Location: ATERR+1
Function Call: WRITE	Prompt: !,"Something just happened which caused me to come to a grinding halt." Line Location: ATERR+2
Function Call: WRITE	Prompt: !,"Try to enter the ATTRIBUTE again, but if this problem persists you must" Line Location: ATERR+3
Function Call: WRITE	Prompt: !,"take a different approach." Line Location: ATERR+4
Function Call: WRITE	Prompt: !!!,*7 Line Location: ATERR+5
Function Call: WRITE	Prompt: !,"OR GROUP #",(AMQQKGNO+1)," Cancelled",*7,! Line Location: KONGCK+5
Function Call: WRITE	Prompt: !,"Since the OR GROUP has only 1 member, I will treat it as an ordinary attribute.",*7,! Line Location: KONGCK+6
Function Call: WRITE	Prompt: !,I,?4,$P(Y,U,I),": ",$S(((I=4)!(I=16)):$S(@Z:"YES",1:"NO"),1:@Z) Line Location: VIEW+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	VAR+3, VAR+4
^AMQQ(1 - [#9009071]	SET+4
^UTILITY("AMQQ OR"	DEBUG+1*, KONGCK+1, KONGCK+3!
^UTILITY("AMQQ"	KONGCK+7, KONGCK+10*

Name	Line Occurrences
CND	GET+3, CND+5, CND+9
CTXS	GET+4
EXIT	VAR, ATERR, ATERR+6
GET	RUN, GET+6, GET+8, GET+10
KONGCK	GET+8
SET	GET+2, CND+10, CTXS+3, SETTAX+1
SETTAX	GET+7
VAR	ATERR+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+2!, SET+6, SET+11, SET+12, DEBUG, KONGCK+7, KONGCK+9, KONGCK+10, VIEW+1~, VIEW+4
>> AMQQANYF	CND+3
AMQQATN	EXIT+3!, GET+3*, CTXS+1
AMQQATNM	EXIT+2!, GET+10, CTXS+1
AMQQCCHK	EXIT+3!
AMQQCOMP	EXIT+2!, CND+6!, CND+9, SET+6*, SET+8
AMQQCOND	EXIT+2!, GET+10*, CND!, CND+5
AMQQCONM	EXIT+2!, SET+9, SETTAX
AMQQCTXS	EXIT+2!, GET+4, SET+2, SET+9, SETTAX+2, SETTAX+3
AMQQDICB	EXIT+3!
AMQQDNOT	EXIT+3!, SET+10
AMQQETRP	VAR+3, VAR+4, EXIT+1!
AMQQEXST	CND+3!
AMQQFRED	EXIT+3!
AMQQFTYP	EXIT+2!, CTXS+1
>> AMQQILIN	KONGCK+7, KONGCK+10
>> AMQQKGNO	GET+10, DEBUG+1, KONGCK+1, KONGCK+3, KONGCK+4, KONGCK+5, KONGCK+8
AMQQKONG	GET+8, GET+10*, DEBUG+1, KONGCK+2!
AMQQLCOF	EXIT+2!
AMQQLINK	EXIT+2!, GET+3, CTXS+2, SET+4
AMQQMULT	VAR+2!, CND+4
>> AMQQMULX	SET+2, SETTAX+3
AMQQNAR	EXIT+3!
AMQQNATF	EXIT+2!, SET+6
AMQQNOCO	EXIT+2!
>> AMQQNOET	VAR+3, VAR+4, ATERR
AMQQNOT	EXIT+3!, SET+9, SET+10
>> AMQQNULL	CND+3
AMQQNVAR	EXIT+3!, SET+5, SET+6, SET+7, SET+8
>> AMQQONE	CND+4, SETTAX+2, SETTAX+4
AMQQPRST	EXIT+3!, SETTAX+4
>> AMQQQ	VAR+1, DEBUG
>> AMQQQUIT	GET+1, CND+2, CND+8, CTXS+3, ATERR*
AMQQRNDF	GET+6!
AMQQSBCT	EXIT+3!
>> AMQQSCPF	GET+5
AMQQSNOT	EXIT+3!, SET+10*
>> AMQQSQAA	CTXS+1*
>> AMQQSQAN	CTXS+1*
AMQQSQFR	EXIT+3!, SET+7
AMQQSQRC	EXIT+2!
>> AMQQSQSN	CTXS+1*
>> AMQQSQST	CTXS+1*
>> AMQQSVFL	CND+3
AMQQSYMB	EXIT+2!, GET+10, SET+9, SETTAX*
AMQQTAX	EXIT+3!, GET+7, SET+6
>> AMQQTXMT	SETTAX+4*
>> AMQQUATN	CTXS+1, SET+2, DEBUG+1, SETTAX+3
AMQQVCL	EXIT+2!
AMQQVPF	GET+2!
>> AMQQXSQF	CTXS+3
I	EXIT+2!, SET+12, KONGCK, KONGCK+1, KONGCK+2, KONGCK+5, VIEW+1~, VIEW+4
Q	EXIT+2!
U	SET+2, SET+12, SETTAX+3, VIEW+4
X	VAR+3, VAR+4, EXIT+2!, GET+8, GET+9, SET+11, SET+12, KONGCK+1, KONGCK+8, KONGCK+9 , VIEW+1~, VIEW+2, VIEW+4
Y	EXIT+2!, SET+3, SET+4, SET+5, SET+12, VIEW+1~, VIEW+3, VIEW+4
Z	EXIT+2!, SET+4, VIEW+1~, VIEW+4

Customize PDF page

Package: PCC Medical Query

Routine: AMQQAT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ATERR
SET	; ENTRY POINT FROM AMQQSQA1 AND OTHERS ; SET "Q" VARIABLE FOR ^UTILITY("AMQQ",$J,"Q"...
RUN
GET
SETTAX
KONGCK
DEBUG
CND
EXIT	; ENTRY POINT FROM MULTIPLE ROUTINES
VAR
CTXS	; ENTRY POINT FROM AMQQATG
VIEW	; DEBUGGING UTILITY