Routine: AMQQEM41

Package	Total	Call Graph
PCC Medical Query	3	^AMQQCMPS BUSY^AMQQEM4 STORE^AMQQQE
VA Fileman	1	^DIR

Package

Total

Call Graph

^AMQQCMPS BUSY^AMQQEM4 STORE^AMQQQE

^DIR

Package	Total	Caller Graph
PCC Medical Query	1	AMQQEM4

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
TMP	; THIS OPTION IS TEMPORARILY DISABLED UNTIL DR. GRAU RESTORES THE SCRIPT OPTION ON THE OPENING SCREEN
SET	;
RUN
FIELD	;
INTRO	;
EXIT
LOGIC	;
VAR
SAVE	; SAVE SEARCH LOGIC AND FORMATTING INSTRUCTIONS
INC

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(3.1 - [#9009073.1]	SET+1*
^DD("DD"	INTRO+8
^UTILITY("AMQQ"	LOGIC+5, FIELD+11, SET+1, SET+3

Name	Line Occurrences
FIELD	RUN+1
INC	INTRO+4, INTRO+6, INTRO+10, INTRO+12, INTRO+14, INTRO+16, INTRO+18, INTRO+20, INTRO+21, LOGIC+1 , LOGIC+3, LOGIC+8, FIELD+1, FIELD+2, FIELD+4, FIELD+6, FIELD+8, FIELD+21
INTRO	RUN+1
LOGIC	RUN+1
SAVE	RUN+1
SET	RUN+1
VAR	RUN+1

Name	Field # of Occurrence
^(	LOGIC+5, SET+1, SET+3

Name	Field # of Occurrence
%	RUN~, INTRO+1, INTRO+2, INTRO+3, INTRO+5, INTRO+10, INTRO+11, INTRO+12, INTRO+13, INTRO+14 , INTRO+15, INTRO+16, INTRO+17, INTRO+18, INTRO+19, INTRO+20, INTRO+21, LOGIC+6, LOGIC+7, LOGIC+8 , FIELD+1*
>> AMQQ200(3	INTRO+1
>> AMQQCPLF	TMP+14
>> AMQQEFN	SET+2*
>> AMQQEM("DEL"	INTRO+15
>> AMQQEM("FILE"	INTRO+19
>> AMQQEM("FIX"	INTRO+17, FIELD+17
>> AMQQEM("LEN"	INTRO+13
>> AMQQEM("MLEN"	INTRO+11
>> AMQQEMFS	FIELD+10
AMQQEML	EXIT!, VAR+1, INC
>> AMQQEX("CLOSE"	SET+4
>> AMQQEX("DOC"	SET+2, SET+3
>> AMQQEX("TDFN"	SET+1
>> AMQQEX("USE"	SET+3
>> AMQQEX("WRITE"	SET+2
>> AMQQQUIT	TMP+11*, TMP+13
AMQQSTOP	SET+3, SET+5!
DIR	TMP+8!
DIR("A"	TMP+5*
DIR("B"	TMP+6*
DIR(0	TMP+4*
>> DIRUT	TMP+9*
DT	INTRO+7
>> DUOUT	TMP+9
DUZ	INTRO+1
I	RUN~, LOGIC+5, FIELD+10, FIELD+15, SET+1, SET+3
J	RUN~, LOGIC+6, LOGIC+7, FIELD+18, FIELD+20
T	RUN~, VAR*, INTRO+5, INTRO+9, INTRO+10, INTRO+12, INTRO+14, INTRO+16, INTRO+18, INTRO+20 , INTRO+21, LOGIC+2, LOGIC+4, LOGIC+8, FIELD+1, FIELD+3, FIELD+5, FIELD+7, FIELD+9, FIELD+22
U	INTRO+1, FIELD+10, FIELD+12, FIELD+13, FIELD+14, SET+1
X	RUN~, LOGIC+5, LOGIC+6, LOGIC+7, FIELD+10, FIELD+11, FIELD+12, FIELD+13, FIELD+14, FIELD+19 , FIELD+20*, FIELD+22, TMP+10, TMP+11
X(	FIELD+18*, FIELD+20
X(1	FIELD+12, FIELD+16
X(2	FIELD+13*
X(3	FIELD+14, FIELD+17
X(4	FIELD+15*
Y	RUN~, INTRO+7, INTRO+9, LOGIC+7, TMP+10
Z	RUN~, LOGIC+6*

Information