Routine: AMQQEM21

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
PCC Medical Query	2	AMQQEM2 AMQQEM3

Entry Points

External References

Name	Field # of Occurrence
^DIR	ASK+6, CONFIRM+13, PATIENT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry, I can't interpret the date you just entered...Try again!",!,"(Remember, JUNE 3, 1992 must be used as the sample. No other date will work.)",!! Line Location: ERROR+0
Function Call: WRITE	Prompt: !,"I need to know what date format to use. You can let me know by entering",!,"the date JUNE 3, 1992 as your example (e.g., 6/3/92 or 3JUN92 or 6.3.92 etc.)",! Line Location: ASK+1
Function Call: WRITE	Prompt: !!!,"Let me confirm the format with some examples =>",! Line Location: CONFIRM+1
Function Call: WRITE	Prompt: !,"APRIL 2, 1958 would be listed as " Line Location: CONFIRM+2
Function Call: WRITE	Prompt: X Line Location: CONFIRM+5
Function Call: WRITE	Prompt: !,"OCTOBER 23, 1985 would be listed as " Line Location: CONFIRM+6
Function Call: WRITE	Prompt: X,! Line Location: CONFIRM+9
Function Call: WRITE	Prompt: !!,"Show me, by example, how you want to format each patient's name =>" Line Location: PATIENT+2
Function Call: WRITE	Prompt: !!,"PATIENT NAME field contains a comma. The comma is also your field delimiter!" Line Location: SUB+0
Function Call: WRITE	Prompt: !,"You should either put the name in quotes or substitute another character",! Line Location: SUB+1
Function Call: WRITE	Prompt: "to prevent problems.",!! Line Location: SUB+2
Function Call: WRITE	Prompt: !,"For example, if you substitute an underscore (_) for the comma, the entry" Line Location: SUB+3
Function Call: WRITE	Prompt: !,"""DOE,JOHN QUINCY"" will be saved as ""DOE_JOHN QUINCY"".",!! Line Location: SUB+4
Function Call: WRITE	Prompt: "DO NOT use the 'up arrow' (^) as the substitute character!!!",!! Line Location: SUB+5
Routine Call	DIR Line Location: ASK+6 CONFIRM+13 PATIENT+7

Label References

Name	Line Occurrences
ASK	RUN
CONFIRM	RUN+4
ERROR	EVAL+2
EXIT	RUN+1, RUN+3, RUN+5, RUN+6, ASK+10
PARSE	RUN+2
SUB	PATIENT+16
TWO	PATIENT+13
VAR	RUN+3, RUN+6

Naked Globals

Name	Field # of Occurrence
^(0	TWO, TWO+1, TWO+3*
^(1	TWO+1, TWO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, EXIT!, PARSE, ASK+11, SUB+6
A	NEW~, EXIT!, EVAL, EVAL+3, EVAL+5*, CODE+1
>> AMQQCCLS	PATIENT+15, PATIENT+17
>> AMQQEM("DATE	FORMAT" , AMQQEM21+3, TRANS" , AMQQEM21+3, AMQQEM21+4, RUN+7
>> AMQQEM("DEL"	PATIENT+16
>> AMQQEM("FIX"	TWO, TWO+1, TWO+3
>> AMQQEM("HLEN"	PATIENT+14, TWO, TWO+1, TWO+3
>> AMQQEM("MLEN"	TWO, TWO+1, TWO+3
>> AMQQEMFS	PATIENT+17, TWO+1, TWO+3*
>> AMQQEMN	PATIENT+14, PATIENT+15
AMQQEMNO	VAR+2!, RUN+1, RUN+3, RUN+6, EVAL+2, EVAL+6, ASK+9, CONFIRM+16, CONFIRM+18, PATIENT+10*
>> AMQQQUIT	RUN+1, RUN+5, ASK+10, CONFIRM+17, PATIENT+11*, PATIENT+16
C	NEW~, RUN+7, EXIT!, CODE, CODE+1, CODE+2, CODE+12, CONFIRM+4, CONFIRM+8, TWO+1* , TWO+2*, TWO+3
DIR	ASK+7!, CONFIRM+14!, PATIENT+8!
DIR("?"	ASK+5, PATIENT+5
DIR("A"	ASK+4, CONFIRM+11, PATIENT+4*
DIR("B"	ASK+3, CONFIRM+12, PATIENT+6*
DIR(0	ASK+2, CONFIRM+10, PATIENT+3*
DIROUT	ASK+10!, CONFIRM+19!, PATIENT+12!
DIRUT	ASK+8, ASK+10!, CONFIRM+15, CONFIRM+19!, PATIENT+9*, PATIENT+12!
DTIME	SUB+6
DTOUT	ASK+10!, CONFIRM+19!, PATIENT+12!
DUOUT	ASK+8, ASK+10!, CONFIRM+15, CONFIRM+19!, PATIENT+9, PATIENT+12!
>> G	PATIENT+14, PATIENT+15, TWO, TWO+1, TWO+3
I	NEW~, EXIT!, PARSE, EVAL+5, CODE+1*
J	NEW~, VAR, EXIT!, PARSE+2, PARSE+3, EVAL+2*
P	NEW~, EXIT!
P(	PARSE+2, PARSE+3, EVAL+2
T	NEW~, VAR+1*, EXIT!, EVAL+3, EVAL+5, CODE+1
U	EVAL+5, ASK+9, CONFIRM+16, PATIENT+10, PATIENT+17, TWO, TWO+1, TWO+3
X	NEW~, VAR, EXIT!, PARSE+2, EVAL+2, EVAL+3, EVAL+5, CODE+1, CODE+3, CODE+4 , CODE+5, CODE+6, CODE+7, CODE+8, CODE+9, CODE+10, CODE+11, CONFIRM+3, CONFIRM+5, CONFIRM+7* , CONFIRM+9, CONFIRM+16, CONFIRM+17, PATIENT+10, PATIENT+11
Y	NEW~, EXIT!, PARSE+1, PARSE+2, EVAL+5, ASK+9, ASK+10, ASK+11, CONFIRM+18, PATIENT+1~ , PATIENT+13, PATIENT+14, PATIENT+15, PATIENT+16, TWO+1
Z	NEW~, EXIT!, PARSE, PARSE+1, PARSE+2, PARSE+3, EVAL+1, EVAL+5

Customize PDF page

Package: PCC Medical Query

Routine: AMQQEM21

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CODE
RUN
SUB
CONFIRM	;
PATIENT	; ENTRY POINT FROM AMQQEM2
TWO
PARSE
ASK	; GET DATE FORMAT
EXIT
EVAL
ERROR
VAR
NEW