Routine: AMQQRMA

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD EN^XQH
PCC Medical Query	3	EXIT2^AMQQKILL PRINT^AMQQRMA1 PRINT^AMQQSEC
VA Fileman	3	^%DT YN^DICN ^DIR

Package	Total	Caller Graph
PCC Medical Query	2	AMQQCMPL AMQQRMAN

Entry Points

External References

Name	Field # of Occurrence
^%DT	NEWDATE+3
^%ZIS	DEV+3
^%ZISC	BUCKET+8, AGETASK+6
^%ZTLOAD	AGETASK+5
EXIT2^AMQQKILL	AGERUN+4
PRINT^AMQQRMA1	AGERUN+2
PRINT^AMQQSEC	DEV+6
YN^DICN	ASK+2, AGIN+2
^DIR	VARQ+17
EN^XQH	VARQ+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CURR+0
Function Call: WRITE	Prompt: !!,"CURRENT SET UP" Line Location: CURR+1
Function Call: WRITE	Prompt: ! Line Location: CURR+2
Function Call: WRITE	Prompt: !,"Do you want to define a new set of age groups" Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Answering yes will allow you to define a new set of age groups.",! Line Location: ASK+4
Function Call: WRITE	Prompt: !,"Do you want to have ages calculated as of a date other than today's date" Line Location: AGIN+0
Function Call: WRITE	Prompt: !,"QMAN will detemine the ages of patients based on the date you enter subsequent",!,"to answering yes to this question.",! Line Location: AGIN+3
Function Call: WRITE	Prompt: !,"If you exceed 8 groups, the display will wrap...",!! Line Location: NEWAGE+2
Function Call: WRITE	Prompt: !,"Enter the starting age of the ",$S(%="":"first",1:"next")," age group: " Line Location: AGE+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: AGE+1
Function Call: WRITE	Prompt: " ??",*7 Line Location: AGE+6
Function Call: WRITE	Prompt: !,"Enter the highest age for the last group: " Line Location: GC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: GC+1
Function Call: WRITE	Prompt: " ??",*7 Line Location: GC+7
Function Call: WRITE	Prompt: !,"Enter an age between 0 and 199. Ages must be entered in ascending order.",! Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"At the present time, no set of age groups is on file",!! Line Location: LIST+0
Function Call: WRITE	Prompt: !,"AGE GROUPS =>",! Line Location: LIST+1
Function Call: WRITE	Prompt: $P(X,":",2) Line Location: LIST+3
Function Call: WRITE	Prompt: !! Line Location: LIST+4
Function Call: WRITE	Prompt: !!,"Subtotaling Options:" Line Location: VARQ+2
Function Call: WRITE	Prompt: !!,"You now have the option of choosing an attribute such as Sex, Community," Line Location: VARQ+3
Function Call: WRITE	Prompt: !,"or Tribe that will allow subtotaling (i.e. cross-tabulation) of your" Line Location: VARQ+4
Function Call: WRITE	Prompt: !,"Age Distribution Report. You may only select one attribute to subtotal by," Line Location: VARQ+5
Function Call: WRITE	Prompt: !,"and that attribute must have been included in your search logic in order to" Line Location: VARQ+6
Function Call: WRITE	Prompt: !,"be one of your choices below. If you have not used any demographic attributes" Line Location: VARQ+7
Function Call: WRITE	Prompt: !,"in your search, you will have no subtotaling option and will see only the" Line Location: VARQ+8
Function Call: WRITE	Prompt: !,"choices 'None, Help, and Exit.' When you have only those choices, choose None" Line Location: VARQ+9
Function Call: WRITE	Prompt: !,"and you will get your Age Distribution Report with no subtotaling.",! Line Location: VARQ+10
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: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!! Line Location: AGETASK+7
Function Call: WRITE	Prompt: @IOF Line Location: AGETASK+9
Function Call: WRITE	Prompt: @IOF Line Location: AGERUN+0
Function Call: WRITE	Prompt: @IOF Line Location: AGERUN+3
Routine Call	DIR Line Location: VARQ+17
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	V1+5
^AMQQ(5 - [#9009075]	CLIN+2, CLIN+5, CLIN+6
^AMQQ(8 - [#9009078]	CURR+1, AGIN+7, GC+6*, LIST, LIST+2
^UTILITY("AMQQ"	VAR!, VAR+1, VAR+2, VAR+3, VARQ+21, VARQ+24!, CLIN+2, V1, V1+8, V2+2*

Label References

Name	Line Occurrences
AGE	NEWAGE+3, AGE+4, AGE+7
AGERUN	BUCKET+8
AGETASK	BUCKET+7
AGIN	AGIN+3
ASK	ASK+4
CEXIT	ASK+3, AGIN+4
CLIN	VARQ+1
CLOSE	NEWAGE+4
CURR	RUN
DEV	BUCKET+3, DEV+6, DEV+7
EXIT	RUN+1, NEWAGE+3
GC	GC+3, GC+8
HELP	AGE+4, GC+3
LIST	CURR+3, NEWAGE+6
NEWAGE	ASK+5
NEWDATE	AGIN+5, NEWDATE+6
NEXIT	NEWAGE+5
SET	AGE+5
V1	VAR+1
V2	VAR+3
VAR	BUCKET+1, VARQ+23
VARQ	VAR+2

Naked Globals

Name	Field # of Occurrence
^(	VAR+1, VAR+3, CLIN+2, V1, V1+8*
^(3	CURR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+1, ASK+4, AGIN+1, AGIN+3, NEWAGE, NEXIT!, AGE, SET+1, SET+2, CLOSE , GC+6, LIST+2, LIST+3, VAR+2, VAR+3, VARQ+12, VARQ+24!, CLIN+5, CLIN+8, CLIN+12 , CLIN+13, CLIN+14, V1, V1+1, V2, V2+1, AGETASK+4
>> %DT	NEWDATE+1*
>> %DT("A"	NEWDATE+2*
%Y	EXIT!, ASK+3, ASK+5, AGIN+4, AGIN+5
>> %ZIS	DEV+1*
>> %ZIS("B"	DEV+2*
A	EXIT!, NEWAGE+1, NEXIT!, AGE+5, SET, GC+6, VARQ+24!, V1+2*, V1+6, V1+8
AMQQBUCC	VARQ+11!, CLIN+4, CLIN+7, CLIN+9
AMQQBUCV	VARQ+11!, CLIN+5*, CLIN+6
AMQQCNTP	VARQ+11!, CLIN+11, CLIN+12
AMQQDFN	CLIN+1~, CLIN+2*
>> AMQQDTE	AGIN+6, NEWDATE+5
AMQQI	CLIN+1~, CLIN+2*
>> AMQQIOP	DEV+4*
AMQQNCHK	CLIN+1~, CLIN+2*, CLIN+3
>> AMQQOPT("SPEC"	VARQ+19*
AMQQPCE	VARQ+19!, CLIN+5, CLIN+8, CLIN+9, CLIN+12
AMQQPCE(	VARQ+20, CLIN+12*
>> AMQQQUIT	RUN+1, ASK+3, AGIN+4, NEWAGE+3, NEWAGE+5, AGE+2, GC+2, BUCKET+2, BUCKET+4, BUCKET+5* , VARQ+19, DEV+5
>> AMQQRERF	AGIN+4*
>> AMQQRMA	BUCKET+5, VARQ+21, VARQ+22
>> AMQQRMB	CURR+1, GC+6, BUCKET+5
>> AMQQRMFL	BUCKET+6*
>> AMQQTMP	CLIN+10, CLIN+12, CLIN+13, CLIN+14
AMQQTMPM	VARQ+11!
>> AMQV("OPTION"	RUN+2*
>> AMQV(0	AGERUN+1
B	EXIT!, VARQ+24!, V1+3*, V1+6, V1+7
C	EXIT!, VAR+3, VARQ+24!, V1+4, V1+5*, V1+8, V2+2
DIR	VARQ+18!
DIR("?"	VARQ+15*
DIR("??"	VARQ+16*
DIR("A"	VARQ+14*
DIR("B"	VARQ+13*
DIR(0	VARQ+12*
DIRUT	VARQ+19!
DT	AGIN+6
DTIME	AGE+1, GC+1
DTOUT	CEXIT!, VARQ+19!
DUOUT	CEXIT!, VARQ+19!
DUZ(2	CURR+1, AGIN+7, GC+6, LIST, LIST+2
I	EXIT!, NEXIT!, LIST+3, VAR+3, V2+1, V2+2, AGETASK+4*
IO	BUCKET+8, DEV+4, DEV+7
IO("Q"	BUCKET+7, DEV+7
IO(0	DEV+7
IOF	CURR, AGETASK+9, AGERUN, AGERUN+3
ION	AGETASK+1
IOST	AGERUN, AGERUN+3
L	NEXIT!
N	EXIT!, NEWAGE+3*
POP	DEV+5!
U	ASK+3, AGIN+4, NEWDATE+4, AGE+1, AGE+2, GC+1, GC+2, CLIN+2, CLIN+6, V1+2 , V1+3
X	EXIT!, NEWDATE+4, NEWDATE+6, NEWAGE+3, NEXIT!, AGE+1, AGE+2, AGE+3, AGE+4, AGE+5 , SET, SET+1, SET+2, GC+1, GC+2, GC+3, GC+4, GC+5, GC+6, LIST+3* , VAR+1*, VARQ+24!, V1+8
>> XQH	VARQ+23*
Y	EXIT!, NEWDATE+5, NEWDATE+6, NEXIT!, VAR+1, VARQ+19, VARQ+20, VARQ+21, VARQ+22, VARQ+23 , VARQ+24!, V1*, V1+2, V1+3, V1+4
Z	EXIT!, NEXIT!, VAR+3*, VARQ+24!, V2+1
>> ZTDESC	AGETASK+3*
>> ZTDTH	AGETASK+2*
>> ZTIO	AGETASK+1*
>> ZTQUEUED	AGERUN+4
>> ZTREQ	AGERUN+4*
>> ZTRTN	AGETASK*
>> ZTSAVE(	AGETASK+4*
>> ZTSK	AGETASK+7

Customize PDF page

Package: PCC Medical Query

Routine: AMQQRMA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: