Routine: AMQQEM2

Information

AMQQEM2 ; IHS/CMI/THL - FORMAT FLAT FILE ;

Package	Total	Call Graph
PCC Medical Query	4	PATIENT^AMQQEM21 ACCN^AMQQEM22 OTHER^AMQQEM2O (,LIST)^AMQQEM3
VA Fileman	2	^DIK ^DIR

Package	Total	Caller Graph
PCC Medical Query	2	AMQQEM22 AMQQEMAN

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,%,!! Line Location: AMQQEM2+5
Function Call: WRITE	Prompt: "So far, so good. Now I need to know exactly how the ASCII file should look.",! Line Location: AMQQEM2+6
Function Call: WRITE	Prompt: !!,"Enter the field (variable) names on the header line of the flat file =>" Line Location: AMQQEM2+8
Function Call: WRITE	Prompt: ! Line Location: LOOP+2
Function Call: WRITE	Prompt: !!,"You may not back up here.",!,"Type '^^' if you want to terminate this session.",! Line Location: L1+2
Function Call: WRITE	Prompt: !!,"You have not entered a field yet.",!,"Type '^^' if you want to terminate this session.",! Line Location: L1+3
Function Call: WRITE	Prompt: !!,"You have already entered this field...Try again!",*7,!! Line Location: L2+0
Function Call: WRITE	Prompt: !! Line Location: EDIT+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: EDIT+4
Function Call: WRITE	Prompt: " ??",*7 Line Location: EDIT+7
Function Call: WRITE	Prompt: " ??",*7 Line Location: E1+1
Routine Call	DIR Line Location: L1+1 EQ+3

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

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	PT+5, PT+8, PT+10
^UTILITY("AMQQ"	PT+4, EDIT+7

Name	Field # of Occurrence
%	AMQQEM2+3, AMQQEM2+4, AMQQEM2+5, VAR+6, VAR+9, VAR+10!, PT~, PT+4, PT+8, PT+9 , EDIT~
A	VAR+7*, VAR+9, VAR+10!, PT~, PT+17!
>> AMQQCCLS	AMQQEM2+7, RUN, L2+1, L2+2
>> AMQQEM("ACCN"	PT+18
>> AMQQEM("DATE	TRANS" , VAR!
>> AMQQEM("FIX"	PT+8, PT+18
>> AMQQEM("HLEN"	VAR+9, PT+8, PT+18
>> AMQQEM("MLEN"	PT+8, PT+18
AMQQEM3	OOPS~, OOPS+1*
>> AMQQEMAX	EDIT+8*, E1
AMQQEMFN	L2+5, L2+6!
>> AMQQEMFS	VAR+4, PT+18, L1+3, L2, L2+3*, EDIT+3, EDIT+4, EDIT+6, EDIT+7, E1
>> AMQQEMN	L2+1, L2+2
AMQQEMNO	LOOP+3, L1+4, L1+8, L1+9, L2+1, L2+2, L2+5, L2+6!, EQ+6*, OOPS+2!
>> AMQQEMP	PT+2*
>> AMQQEMZ	PT+16*, L1
>> AMQQEX("TDFN"	L1+6, L1+7
AMQQFEDT	EDIT~, EDIT+1*
>> AMQQQUIT	AMQQEM2+7, RUN+1, LOOP+3, L1+5, L2+1, L2+2, EQ+7
B	VAR+8*, VAR+9, VAR+10!, PT~, PT+17!
>> C	VAR+1, VAR+9, PT+7, PT+8, PT+9, PT+10, PT+12, PT+13, PT+14, PT+15 , PT+18
>> C("EDIT"	PT+15*, L1+9
>> C("OTHER"	PT+13*, L1+8
DA	L1+7*!
DIK	L1+7*!
DIR	EQ+4!
DIR("?"	EQ+2*
DIR("A"	L1, EQ+1
DIR(0	L1, EQ
DIROUT	L2+6!
DIRUT	L2+6!, EQ+5*
DTOUT	L2+6!
DUOUT	L2+6!, EQ+5
>> G	VAR+2*, VAR+5, VAR+9, PT+8, PT+9, PT+10, PT+18
H	VAR!
I	LOOP+1, EDIT~, EDIT+6
J	LOOP+1, EDIT~, EDIT+5, EDIT+6*, EDIT+7, EDIT+8, EDIT+9, EQ+1
>> N	LOOP+1*
>> P	PT+2*, PT+6
>> T	VAR+3*
U	VAR+9, PT+5, PT+6, PT+8, PT+10, PT+18, L1+2, L2, L2+3, EDIT+3 , EDIT+6, EDIT+7, EQ+6, E1
X	PT~, PT+4, PT+5, PT+8, PT+10, L1+2, L1+3, L1+4, EDIT~, EDIT+6 , EDIT+9, EQ+6, EQ+7, E1
Y	PT~, PT+5, PT+6, PT+7, PT+8, L1+5, L1+8, L1+9, L2, L2+1 , L2+2, L2+3, EDIT~, EDIT+3, E1
Z	PT~, PT+3, PT+7, PT+12, PT+14, PT+16, PT+17!, EDIT~