Routine: AQAQMLE

Information

AQAQMLE ;IHS/ANMC/LJF - EDIT MED LICENSE ENTRIES; [ 05/27/92 11:12 AM ]

Source file <AQAQMLE.m>

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE Y^DIQ ^DIR

Name	Comments	DBIA/ICR reference
EDIT
ADD
END
DISPLAY	;EP;***> display any entries already in med licensure file
CHOOSE

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: ?35,"Expires: ",Y Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !,AQACNT,") ADD NEW ENTRY" Line Location: DISPLAY+11
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+0
Routine Call	DIE Line Location: EDIT
Routine Call	DIC Line Location: ADD
Routine Call	DIR Line Location: CHOOSE+2 EDIT+4

FileNo	Call Tags
^AQAQML - [#9002161.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AQAQML - [#9002161.2]	DISPLAY+5, DISPLAY+7, DISPLAY+8
^AQAQML("C"	DISPLAY+3
^DD(9002161.2	DISPLAY+5
^DD(9002161.21	DISPLAY+8

Name	Field # of Occurrence
AQA	END!
AQA(	DISPLAY+4*, CHOOSE+4
AQACNT	DISPLAY+2, DISPLAY+4, DISPLAY+6, DISPLAY+10, DISPLAY+11*, CHOOSE, CHOOSE+3, END!
>> AQAQDA	DISPLAY+2*, EDIT+4, END
>> AQAQLAST	DISPLAY+7*, DISPLAY+8
AQAX	DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, DISPLAY+7, DISPLAY+8, END!
>> C	DISPLAY+5, DISPLAY+8
>> DA	DISPLAY+2, DISPLAY+3, CHOOSE+4, ADD+4, EDIT+4, END
DD	ADD+2!
DIC	ADD!, ADD+2!, EDIT!, END!
DIC("DR"	ADD+2*
DIC(0	ADD, ADD+3
>> DIDEL	EDIT*
DIE	EDIT!*, END!
DIR	CHOOSE!, EDIT+2!, END!
DIR("A"	CHOOSE+1, EDIT+3
DIR("B"	EDIT+2*
DIR(0	CHOOSE, EDIT+2
>> DIRUT	CHOOSE+2
>> DLAYGO	ADD+3*
>> DR	EDIT*
U	DISPLAY+5, DISPLAY+7, DISPLAY+8
>> X	CHOOSE+2, ADD+1, ADD+2*
>> Y	DISPLAY+5, DISPLAY+6, DISPLAY+8, CHOOSE+2, CHOOSE+3, CHOOSE+4, ADD+1, ADD+2, ADD+4, EDIT+4