Routine: AMQQQE

Package	Total	Call Graph
VA Fileman	5	^DIC WAIT^DICD YN^DICN ^DIK ^DIR
PCC Medical Query	2	SEARCH^AMQQ (COPY,EDIT,IMPORT,PURGE,RUN)^AMQQQE1

Package

Total

Call Graph

VA Fileman

^DIC WAIT^DICD YN^DICN ^DIK ^DIR

PCC Medical Query

SEARCH^AMQQ (COPY,EDIT,IMPORT,PURGE,RUN)^AMQQQE1

Package	Total	Caller Graph
PCC Medical Query	4	AMQQ AMQQCMPL AMQQEM41 AMQQQE1

Package

Total

Caller Graph

PCC Medical Query

AMQQ AMQQCMPL AMQQEM41 AMQQQE1

Entry Points

Name	Field # of Occurrence
SEARCH^AMQQ	COMPILE+6
COPY^AMQQQE1	COPY+3
EDIT^AMQQQE1	EDIT+2
IMPORT^AMQQQE1	IMPORT
PURGE^AMQQQE1	PURGE+2
RUN^AMQQQE1	RUN+9
^DIC	ADD+5, GET1+3, RUN+5
WAIT^DICD	COMPILE+4
YN^DICN	CR1+7
^DIK	CR1+13
^DIR	W1+2, PAUSE, HELPME+2, VIEW+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEL+4
Function Call: WRITE	Prompt: ! Line Location: W1+0
Function Call: WRITE	Prompt: !!,*7,"This script already exists...Try another name.",!! Line Location: CR1+4
Function Call: WRITE	Prompt: !!,*7,"This script already exists. Want to overwrite" Line Location: CR1+5
Function Call: WRITE	Prompt: ! Line Location: CR1+9
Function Call: WRITE	Prompt: !! Line Location: ADD+0
Function Call: WRITE	Prompt: !! Line Location: COMPILE+3
Function Call: WRITE	Prompt: !! Line Location: COMPILE+5
Function Call: WRITE	Prompt: !,"OK, I have saved your script """,$P(AMQQYY,U,2),""" and its compiled" Line Location: COMPILE+9
Function Call: WRITE	Prompt: !,"search code in the Q-Man Script file. It is ready for use at any time!" Line Location: COMPILE+10
Function Call: WRITE	Prompt: !!! Line Location: PAUSE+0
Function Call: WRITE	Prompt: !!,"Script error detected...Unable to compile...Request terminated" Line Location: FAIL+2
Function Call: WRITE	Prompt: !,"Source of error: ",%,!,"Use the EDIT function to correct script error.",*7 Line Location: FAIL+3
Function Call: WRITE	Prompt: !!!,"Select a code from the list or type '??' for more information",!! Line Location: HELPME+0
Function Call: READ	Timeout: DTIME Variable: Z Line Location: VIEW+3
Function Call: WRITE	Prompt: ^(%,0) Line Location: VIEW+3
Function Call: WRITE	Prompt: !! Line Location: VIEW+4
Function Call: WRITE	Prompt: "OK, I will store this search logic for future use.",!!! Line Location: STORE+8
Routine Call	DIC Line Location: ADD+5 GET1+3 RUN+5
Routine Call	DIR Line Location: W1+2 PAUSE HELPME+2 VIEW+6

FileNo	Call Tags
^AMQQ(2 - [#9009072]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(2 - [#9009072]	CR1+1, CR1+4, ADD+9, CHK+1, VIEW+3

Name	Line Occurrences
@(	SEL+5
ADD	CR1+3
CHKOUT	SEL+1, W1+4, RUN+7
FAIL	COMPILE+7
GET	PURGE, VIEW, EDIT
GET1	COPY+1
PAUSE	COMPILE+7
SEL	LOOP
W1	STORE+3
WRITE	CR1+4, CR1+9

Name	Field # of Occurrence
^(	VIEW+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, CR1+6, FAIL, FAIL+1, FAIL+3, VIEW+2, VIEW+3*
%Y	EXIT!, CR1+9
>> AMQQCPLF	STORE+6*
AMQQESN	ADD+4, ADD+7, STORE+2*, STORE+5!
AMQQFAIL	EXIT!, WRITE+1!, COMPILE+7!, FAIL, FAIL+4!, GET+1!
AMQQQENA	CR1+12*, CR1+15, CR1+16!
>> AMQQQUIT	LOOP, SEL+3, ADD+9, COMPILE+7, COMPILE+8, CHKOUT, STORE+4
AMQQXX	EXIT!, COMPILE+1*
AMQQYY	EXIT!, COMPILE+2, COMPILE+9, STORE+7
DA	CR1+11*, CR1+14!
DIC	CR1+14!, ADD+1, ADD+6!, GET1, GET1+4!, RUN+3*, RUN+6!
DIC("A"	GET, RUN+2, COPY*
DIC("DR"	ADD+3, ADD+4
DIC("S"	GET1+2*
DIC(0	ADD+2, GET1+1, RUN+4*
DIK	CR1+10*, CR1+14!
DIR	W1+3!, PAUSE!, HELPME+3!, VIEW+7!
DIR("A"	WRITE, STORE+1
DIR(0	W1+1, PAUSE, HELPME+1, VIEW+5
DIRUT	CHKOUT!
DT	ADD+3, ADD+4
DTOUT	CR1+8, ADD+8!, CHKOUT!
DUOUT	CR1+8, ADD+8!, CHKOUT!
DUZ	CR1+4, ADD+3, ADD+4, CHK+1
I	EXIT!, VIEW+2, VIEW+3
IOF	RUN+1
IOSL	VIEW+3
U	SEL+5, CR1+2, CR1+4, CR1+12, ADD+9, COMPILE+9, CHK+1, VIEW+3
X	EXIT!, CR1+1, CR1+2, CR1+15*
Y	SEL, SEL+2, SEL+3, SEL+5, EXIT!, CR1+1, CR1+2, CR1+3, CR1+4, CR1+11 , CR1+12, ADD+8, ADD+9, COMPILE+1, COMPILE+2, CHK+1, CHKOUT, CHKOUT+1, VIEW+3, STORE+7
>> Z	VIEW+3*

Customize PDF page

Package: PCC Medical Query

Routine: AMQQQE

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PURGE
CHKOUT
GET
IMPORT
SEL
PAUSE
CHK	; ENTRY POINT FROM AMQQE1
COMPILE	; ENTRY POINT FROM ^AMQQQE1
ADD
FAIL
GET1
COPY
STORE	; ENTRY POINT FROM AMQQCMPL
WRITE
CR1	; ENTRY POINT FROM AMQQE1
RUN	;EP;TO RUN A SCRIPT
EDIT
HELPME
EXIT
W1
LOOP
VIEW