Routine: AMQQEM11

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

^DIC ^DIR

Package	Total	Caller Graph
PCC Medical Query	1	AMQQEMAN

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
CK
HLEN	; - EP - DEL FIELD LENGTH ; 9 ; ENTRY POINT FROM AMQQEMAN
MLEN	; - EP - DEL FIELD LENGTH ; 7 ; ENTRY POINT FROM AMQQEMAN
FWD
BACKUP
FIX	; - EP -
MARK
SAVE	; SAVE CUSTOM CONFIG
DATA	; EP FROM AMQQEMAN
S1

Name	Field # of Occurrence
^DIC	S1+3
^DIR	DATA+8, MLEN+7, FIX+7, HLEN+10, SAVE+6, S1+15

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"---------",!! Line Location: MARK+0
Function Call: WRITE	Prompt: "ASSIGN DATA TYPE TO EACH FIELD",! Line Location: DATA+2
Function Call: WRITE	Prompt: "MAXIMUM FIELD LENGTH",! Line Location: MLEN+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: MLEN+13
Function Call: WRITE	Prompt: "INDIVIDUAL FIELD LENGTH",! Line Location: FIX+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: FIX+12
Function Call: WRITE	Prompt: "MAXIMUM LENGTH OF FIELD HEADER/VARIABLE NAME",! Line Location: HLEN+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: HLEN+16
Function Call: WRITE	Prompt: "SAVE CUSTOM CONFIGURATION" Line Location: SAVE+2
Function Call: WRITE	Prompt: !! Line Location: SAVE+3
Function Call: WRITE	Prompt: !!,*7,"A configuration with this name already exists." Line Location: S1+9
Function Call: WRITE	Prompt: " Select another name..." Line Location: S1+10
Routine Call	DIC Line Location: S1+3
Routine Call	DIR Line Location: DATA+8 MLEN+7 FIX+7 HLEN+10 SAVE+6 S1+15

FileNo	Call Tags
^AMQQ(3 - [#9009073]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(3 - [#9009073]	S1+10, S1+20*

Name	Field # of Occurrence
>> %	S1+19*, S1+20
>> AMQQEM(	S1+20
>> AMQQEM("DATA"	DATA+3, DATA+15*
>> AMQQEM("FIX"	FIX+3, FIX+13*, HLEN+5, HLEN+6
>> AMQQEM("HLEN"	HLEN+3, HLEN+4, HLEN+6, HLEN+7, HLEN+19*
>> AMQQEM("LEN"	MLEN+4, FIX+4
>> AMQQEM("MLEN"	MLEN+3, MLEN+15*, HLEN+5, HLEN+6
AMQQEMNO	DATA+17!, SAVE+9, S1+5
>> AMQQEMS	FWD, BACKUP, BACKUP+1
>> AMQQERUN	FWD, BACKUP, MLEN+16
>> AMQQEX("NO HE	ADER" , HLEN+3!, HLEN+17*
>> AMQQQUIT	CK*, DATA+13, MLEN+12, FIX+11, HLEN+15, SAVE+11, S1+7, S1+9, S1+18
DIC	S1*, S1+4!
DIC("A"	S1+2*
DIC(0	S1+1*
DIR	DATA+9!, MLEN+8!, FIX+8!, HLEN+11!, SAVE+7!, S1+16!
DIR("?"	DATA+5, MLEN+6, FIX+6, HLEN+9, S1+14*
DIR("A"	DATA+7, MLEN+5, FIX+5, HLEN+8, SAVE+4, S1+12
DIR("B"	DATA+3, DATA+4, MLEN+3, FIX+3, HLEN+4, HLEN+5, SAVE+5, S1+13
DIR(0	DATA+6, MLEN+4, FIX+4, HLEN+7, SAVE+3, S1+11
DIROUT	CK!
DIRUT	CK!, DATA+10, MLEN+9, FIX+9, HLEN+12, SAVE+8*
DTOUT	CK!
DUOUT	CK!, DATA+10, MLEN+9, FIX+9, HLEN+12, SAVE+8
DUZ	S1+10
>> I	S1+20*
U	FWD, BACKUP, BACKUP+1, DATA+11, MLEN+10, FIX+10, HLEN+13, SAVE+9, S1+5, S1+9 , S1+10, S1+20
>> X	CK, DATA+11, MLEN+10, FIX+10, HLEN+13, SAVE+9, S1+5, S1+20*
>> Y	DATA+15, MLEN+13, MLEN+15, FIX+12, FIX+13, HLEN+16, HLEN+17, HLEN+19, SAVE+12, S1+8 , S1+9, S1+10*, S1+20

Information