Routine: AMQQEM31

Package	Total	Call Graph
PCC Medical Query	2	DIR^AMQQEM31 $$KEYCHECK^AMQQUTIL
VA Fileman	2	^DIM ^DIR

Package	Total	Caller Graph
PCC Medical Query	2	AMQQEM3 AMQQEM31

Entry Points

Name	Comments	DBIA/ICR reference
T8	; EP FROM AMQQEM3
T6	; EP FROM AMQQEM3
T51
S1
T5	; EP FROM AMQQEM3 ; THIS SUBROUTINE HAS BEEN MOVED FROM AMQQEM3
FLEN1
FLEN	; EP FROM AMQQEM3 ; FIELD LENGTH
T7	; EP FROM AMQQEM3
DIR	; -ENTRY POINT - DIR SETUP FROM T51^AMQQEM3 (OVERFLOW FROM THAT RTN)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Sorry. This option requires a Q-Man Programmer Access Key. Check with your site manager.",!!,*7 Line Location: T5+2
Function Call: WRITE	Prompt: "MUMPS TRANSFORM",! Line Location: T5+3
Function Call: WRITE	Prompt: *7,"This field already has the following transform: " Line Location: T5+5
Function Call: WRITE	Prompt: !,@G@(AMQQEMN,3) Line Location: T5+6
Function Call: WRITE	Prompt: " ??",*7 Line Location: T51+9
Function Call: WRITE	Prompt: "CHANGE FIELD LENGTH",! Line Location: T6+1
Function Call: WRITE	Prompt: "USE QUOTATION MARKS",! Line Location: T8+1
Function Call: WRITE	Prompt: "SUBSTITUTE FOR DELIMITER CHARACTER",! Line Location: T7+1
Function Call: WRITE	Prompt: " ??",*7 Line Location: S1+9
Function Call: WRITE	Prompt: !!,"Sorry, no more room! You must edit a previously selected field or quit",*7,!! Line Location: FLEN+8
Function Call: WRITE	Prompt: !! Line Location: FLEN1+0
Function Call: WRITE	Prompt: " ??",*7 Line Location: FLEN1+9
Function Call: WRITE	Prompt: " ??",*7,!!,"Sorry, you have exceeded the maximum field length...Try again!",!! Line Location: FLEN1+13
Routine Call	DIR Line Location: T5+9 T51+3 T6+5 T8+4 S1+3 FLEN1+4

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY("AMQQ"	FLEN+5

Name	Field # of Occurrence
%	T5+1, T5+2, T8+9, T8+10, T8+11, T8+12, S1+10, S1+11, S1+12, S1+13 , FLEN+2~, FLEN+3, FLEN+5, FLEN+6, FLEN+7, FLEN1+12
A	FLEN+2~, FLEN+4, FLEN+5, FLEN+6
>> AMQQEM("FIX"	T6+2
>> AMQQEM("LEN"	FLEN+6, FLEN1+13
>> AMQQEM("MLEN"	FLEN+7
>> AMQQEMFS	FLEN+3
>> AMQQEMN	T5+4, T5+6, T5+14, T51+10, T6+2, T6+11, FLEN+3, FLEN1+15
>> AMQQFEDT	FLEN+1
AMQQFLEN	T6+2, T6+10, FLEN1+13!, FLEN1+14, FLEN1+15
>> AMQQQUIT	T5+13, T51+7, T6+9, T8+8, S1+8, FLEN1+7
>> AMQQSTOP	FLEN+8, FLEN1+8
B	FLEN+2~, FLEN+5*
C	FLEN+2~, FLEN+7*, FLEN+8, FLEN1+1
DIR	T5+10!, T51+4!, T6+6!, T8+5!, S1+4!, FLEN1+5!
DIR("?"	S1+2, DIR+1, FLEN1+3*
DIR("A"	T5+8, T51+2, T6+4, T8+3, S1+1, FLEN1+2
DIR(0	T5+7, T51+1, T6+3, T8+2, S1, FLEN1+1
DIROUT	S1+6!
DIRUT	T5+11, T51+5, T6+7, T8+6, S1+5, S1+6!, FLEN1+6
DTOUT	S1+6!
DUOUT	T5+11, T51+5, T6+7, T8+6, S1+5, S1+6!, FLEN1+6
>> G	T5+4, T5+6, T5+14, T51+10, T6+2, T6+11, T8+9, T8+12, S1+10, S1+13 , FLEN1+15
>> H(	FLEN1+12
I	FLEN+2~, FLEN+5, FLEN1+12
N	FLEN+2~, FLEN1+11, FLEN1+12
T	FLEN+2~, FLEN1+10, FLEN1+12, FLEN1+13
U	T6+2, T6+11, T8+7, S1+7, FLEN+3, FLEN+5, FLEN+8, FLEN1+8, FLEN1+12, FLEN1+15
>> X	T5+12, T5+13, T51+6, T51+7, T51+9, T51+10, T6+8, T6+9, T8+7, T8+8 , S1+7, S1+8
Y	T5+14, T6+10, T6+11, T8+7, S1+9, S1+12, FLEN+2~, FLEN1+7, FLEN1+8, FLEN1+9 , FLEN1+10, FLEN1+14