Routine: AMQQEM4

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIK ^DIR
PCC Medical Query	3	^AMQQEM41 (EXIT,MARK)^AMQQEMAN EXIT2^AMQQKILL
Kernel	2	^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
PCC Medical Query	2	AMQQEM41 AMQQEMAN

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	BACK+10, ETASK+4, ERR+2
^%ZTLOAD	ETASK+3
^AMQQEM41	RUN+4
EXIT^AMQQEMAN	BACK
MARK^AMQQEMAN	NAME+1
EXIT2^AMQQKILL	ERUN+7, ERUN18+6
^DIC	N1+3
FILE^DICN	OVER+22
^DIE	ENTRY+5
^DIK	OVER+16
^DIR	BACK+4, OVER+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: AMQQEX("HEADER"),! Line Location: EXPORT+2
Function Call: WRITE	Prompt: AMQQEMX,! Line Location: EXPORT+6
Function Call: WRITE	Prompt: AMQQEMX,! Line Location: EXPORT+7
Function Call: WRITE	Prompt: "MUMPS FILE NAME",! Line Location: NAME+2
Function Call: WRITE	Prompt: " ?? Enter '^^' to terminate the session." Line Location: N1+7
Function Call: WRITE	Prompt: ! Line Location: N1+9
Function Call: WRITE	Prompt: !!,*7,"Someone else has already saved an ASCI file under this name.",!,"Try another name please..." Line Location: OVER+4
Function Call: WRITE	Prompt: !!,*7,"You already have an ASCI file stored under this name!" Line Location: OVER+5
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!! Line Location: ETASK+5
Function Call: WRITE	Prompt: @IOF Line Location: ETASK+7
Function Call: WRITE	Prompt: @IOF Line Location: ERUN+2
Function Call: WRITE	Prompt: @IOF Line Location: ERUN18+2
Function Call: WRITE	Prompt: *7,"WHOOPS...AN ERROR HAS OCCURRED DURING THE SEARCH. SESSION TERMINATED.",!! Line Location: ERR+4
Routine Call	DIE Line Location: ENTRY+5
Routine Call	DIC Line Location: N1+3
Routine Call	DIR Line Location: BACK+4 OVER+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(3.1 - [#9009073.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ERUN+5, ERUN18+4
^AMQQ(3.1 - [#9009073.1]	EXPORT+8, ENTRY+7, OVER+3
^DD("OS" - [#.7]	BACK+9
^UTILITY("AMQQ"	EXIT!, RC+11, EXPORT+3

Label References

Name	Line Occurrences
BACK	RUN+5
BUSY	ERUN+4
ENTRY	RUN+2
ERUN	BACK+10
ERUN18	BACK+9
ETASK	BACK+8
EXIT	ERR+3
INC	RC+6, RC+8, RC+10, RC+12
N1	N1+9
NAME	N1+7
OVER	N1+8
RC	RUN+1
VAR	RUN

Naked Globals

Name	Field # of Occurrence
^(	RC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	RC+1, RC+2, RC+5, RC+8, RC+9, RC+10, RC+11, RC+12, ENTRY+7, OVER+3* , OVER+4, ETASK+2*
A	RC~, RC+3, RC+4, RC+5
AMQQEFN	ERUN+1, ERUN+8!, ERUN18+1, ERUN18+7!
>> AMQQEM("DEL"	VAR+4, VAR+5, RC+2, RC+12
>> AMQQEM("FIX"	VAR+4, RC+4, RC+9
>> AMQQEM("HLEN"	RC+4
>> AMQQEMFS	RC
AMQQEMI	EXIT!, RC*
AMQQEML	EXIT!, INC, VAR+1
>> AMQQEMN	RC*, RC+3, RC+7, RC+8, RC+11
AMQQEMNM	OVER~, OVER+1*, OVER+17
AMQQEMX	EXIT!, EXPORT+4, EXPORT+5*, EXPORT+6, EXPORT+7, EXPORT+8
>> AMQQERUN	N1+11*
AMQQEX	EXIT!
AMQQEX("CLOSE"	ERUN+6, ERUN18+5, ERR+1
AMQQEX("FILE"	ERUN+1, ERUN18+1
AMQQEX("HEADER"	VAR+3, RC+1, RC+5, EXPORT+1, EXPORT+2
AMQQEX("NO HE	ADER" , RC+4, EXPORT+1, EXPORT+2
AMQQEX("TDFN"	EXPORT+8, ENTRY+1, ENTRY+4, ENTRY+7, N1+10*
AMQQEX("USE"	EXPORT+2, EXPORT+7
AMQQEX("WRITE"	ERUN+4, ERUN+5, ERUN18+4, BUSY+9
>> AMQQFNMP	N1+5*
>> AMQQNOET	ERUN+5, ERUN18+4
>> AMQQQUIT	RUN+3, BACK+7, N1+5, N1+6, N1+8, OVER+13
>> AMQQRMFL	ERUN+3, ERUN18+3
AMQQSTOP	ERUN+5, ERUN+8!, ERUN18+4, ERUN18+7!, BUSY+9*
>> AMQQTOT	EXPORT+1, EXPORT+2, EXPORT+8
>> AMQV(0	ERUN+5, ERUN18+4
D	BUSY+5~, BUSY+7*, BUSY+9
DA	ENTRY+4, ENTRY+6!, OVER+2, OVER+3, OVER+18, OVER+23!
DD	OVER+21!
DIC	ENTRY+6!, N1, N1+4!, OVER+19, OVER+23!
DIC("A"	N1+2*
DIC(0	N1+1, OVER+20
DIE	ENTRY+2*, ENTRY+6!
DIK	OVER+15*, OVER+19, OVER+23!
>> DINUM	OVER+18*
DIR	BACK+5!, OVER+10!
DIR("A"	BACK+2, OVER+7
DIR("B"	BACK+3, OVER+8
DIR(0	BACK+1, OVER+6
DIROUT	BACK+7!
DIRUT	BACK+6, BACK+7!, OVER+11
DO	OVER+21!
DR	ENTRY+3*, ENTRY+6!
DT	ENTRY+3, ENTRY+7
DTOUT	BACK+7!, N1+6!
DUOUT	BACK+6, BACK+7!, N1+7!, OVER+11
DUZ	ENTRY+3, OVER+4
>> G	RC+3, RC+7, RC+8
H	BUSY+5~, BUSY+6*, BUSY+7, BUSY+8
>> I	EXPORT+3, ETASK+2
IO	BACK+10
IOF	ETASK+7, ERUN+2, ERUN18+2
IOST	EXPORT+1, EXPORT+6, ERUN+2, ERUN18+2, BUSY+1, ERR+4
T	EXIT!, VAR, VAR+2, RC+7, RC+8, RC+10, RC+12, BUSY+5~, BUSY+8, BUSY+9
U	VAR+5, RC, RC+3, RC+11, EXPORT+8, ENTRY+7, N1+5, N1+8, OVER+1, OVER+3
>> X	BACK+7, N1+5, N1+6, N1+7, OVER+12, OVER+13, OVER+17, ERUN+5, ERUN18+4*
>> Y	BACK+8, N1+8, N1+9, N1+10, OVER+1, OVER+2, OVER+4, OVER+12, OVER+14*
>> ZTDESC	ETASK+1*
>> ZTIO	ETASK*
>> ZTQUEUED	EXPORT+1, EXPORT+6, ERUN+7, ERUN18+6
>> ZTREQ	ERUN+7, ERUN18+6
>> ZTRTN	ETASK*
>> ZTSAVE(	ETASK+2*
>> ZTSK	ETASK+5

Customize PDF page

Package: PCC Medical Query

Routine: AMQQEM4

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

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
BUSY	; EP FROM AMQQEM41 ; HFS IS BUSY
RUN
NAME	; - EP - MUMPS FILE NAME ; ENTRY POINT FROM AMQQEMAN
ERR	; ERROR MGMT
ETASK
OVER
ERUN	; EXPORT DATA
BACK
N1
EXIT
ENTRY	; AMQQ(3.1 ENTRY
RC
VAR
EXPORT	; ENTRY POINT FROM SEARCH CODE
ERUN18	; EXPORT DATA
INC