Routine: AMQQAT2

Package	Total	Call Graph
VA Fileman	3	^DIC WAIT^DICD ^DIR
PCC Medical Query	1	CNP1^AMQQAT1

Package	Total	Caller Graph
PCC Medical Query	1	AMQQAT1

Entry Points

Name	Comments	DBIA/ICR reference
FQ
FSET
FRAND
FR1	; ENTRY POINT FROM STUFF
STUFF	; ENTRY POINT FROM METADICTIONARY
EXIT
FCOUNT
C1
CHECK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I assume that ALL patients are members of this file...Try another attribute.",*7,! Line Location: FQ+7
Function Call: WRITE	Prompt: !,"Sorry...I cannot find any patient fields in this file which are indexed" Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,"OK, I'll check the ",$P(^DD(+Y,X,0),U)," field of this file." Line Location: CHECK+3
Function Call: WRITE	Prompt: !! Line Location: FSET+15
Function Call: WRITE	Prompt: !!!,"Counting...",! Line Location: FCOUNT+0
Function Call: WRITE	Prompt: !! Line Location: FRAND+0
Function Call: WRITE	Prompt: $C(13)," ",$C(13),"There are ",AMQQCHTT," patients in this file" Line Location: FRAND+5
Function Call: WRITE	Prompt: !!! Line Location: FRAND+6
Function Call: WRITE	Prompt: !!,"Collecting a random sample",! Line Location: FRAND+10
Function Call: WRITE	Prompt: !! Line Location: STUFF+8
Function Call: WRITE	Prompt: !! Line Location: STUFF+8
Routine Call	DIC Line Location: FQ+3
Routine Call	DIR Line Location: FSET+9

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CHECK+1, CHECK+3, C1, FSET+2
^DIC - [#1]	FSET
^UTILITY("AMER TEMP"	FSET+12!
^UTILITY("AMQQ FRAND"	FRAND+11!, FR1+1
^UTILITY("AMQQ FTEMP"	FCOUNT+4*, FR1+1, FR1+2!
^UTILITY("AMQQ TEMP"	FCOUNT+3!, FCOUNT+4, FR1+2!

Name	Field # of Occurrence
^(	C1, FCOUNT+4, FR1+1
^(0	C1

Name	Field # of Occurrence
%	EXIT!, CHECK+1, FSET+2, FSET+3, FSET+4, FCOUNT+2, FCOUNT+4, FCOUNT+5, STUFF+12!
%(1	STUFF+2
%(2	STUFF+3
%(4	STUFF+4
%(5	STUFF+5
>> A	FCOUNT+1*, FCOUNT+4
>> AMQQATN	FRAND+11
>> AMQQCCLS	FQ+7
AMQQCHNN	FRAND+12, FR1+1, FR1+2!, STUFF+4*
>> AMQQCHRT	FSET+1, FRAND+12
AMQQCHTT	EXIT!, FCOUNT+5*, FRAND+5, FRAND+7, FRAND+12, FR1+2!, STUFF+9
AMQQCRFG	EXIT!
>> AMQQCRFL	FRAND+8*
AMQQFFFG	FCOUNT+4, FRAND+2, FRAND+4!, STUFF+1~, STUFF+6
AMQQFFIL	EXIT!, C1*, FSET, FSET+2
AMQQFFLD	FQ+9, EXIT!, CHECK!, CHECK+1, CHECK+2, C1*, FSET+2
AMQQFGBL	EXIT!, FSET, FSET+1, FCOUNT+1, STUFF+1~, STUFF+2
AMQQFPC	EXIT!, FSET+4*
AMQQFSBS	EXIT!, FSET+3*
AMQQFXR	EXIT!, C1, FSET+1, FCOUNT+1, STUFF+1~, STUFF+3
>> AMQQLINK	FSET+14, FRAND+13
>> AMQQQUIT	FQ+5, FSET+11
AMQQRNDN	EXIT!, FRAND+7*, FR1+2!
AMQQUATN	FRAND+12, FR1+1, STUFF+1~, STUFF+5*
DIC	FQ+2*, FQ+4!
DIC("A"	FQ*
DIC(0	FQ+1*
DIR	FSET+10!
DIR("?"	FSET+8*
DIR("A"	FSET+6*
DIR("B"	FSET+7*
DIR(0	FSET+5*
I	EXIT!, FRAND+12, FR1+1, STUFF+10*
IOST	FCOUNT, FCOUNT+4, FRAND+10, FR1+1, STUFF+8
N	EXIT!, FRAND+12, FR1+1, STUFF+9
U	FQ+5, CHECK+1, CHECK+3, C1, FSET+2, FSET+11, STUFF+2
>> X	FQ+5, CHECK+1, CHECK+3, C1, FCOUNT+4
>> Y	FQ+5, FQ+6, FQ+7, CHECK+1, CHECK+3, C1, FSET+11, FSET+12, FSET+13, FSET+14 , FR1+1*
Z	EXIT!, C1, FR1+1