Routine: APSQFAS2

Entry Points

Name	Comments	DBIA/ICR reference
EXIT	;KILL AND EXIT
GETEM
LIST	;LIST OF DRUGS CHOOSEN
DIQ
EXPAND	;EXPAND ANY EXPLODING ENTRIES

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NEED TO DEFINE DUZ" Line Location: APSQFAS2+4
Function Call: WRITE	Prompt: !,"THE DRUG YOU SELECT WILL BE DELETED FROM YOUR LIST IF IT IS ON THE LIST" Line Location: GETEM+0
Function Call: WRITE	Prompt: @IOF Line Location: GETEM+7
Function Call: WRITE	Prompt: "DELETED" Line Location: GETEM+11
Function Call: WRITE	Prompt: "IS NOT A MEMBER OF SELECTED FAST CODES!" Line Location: GETEM+12
Function Call: WRITE	Prompt: !,"LISTED ARE THE FAST CODES SELECTED SO FAR:",! Line Location: LIST+1
Function Call: WRITE	Prompt: !,"NO FAST CODES HAVE BEEN SELECTED",! Line Location: LIST+2
Function Call: WRITE	Prompt: !,DRUGNAM Line Location: LIST+3
Routine Call	DIC Line Location: GETEM+6
Routine Call	DIR Line Location: LIST+9
Routine Call	%ZIS Line Location: APSQFAS2+2

FileNo	Call Tags
^APSQFA - [#9009035.3]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APSQFAST(	GETEM+9, GETEM+16, GETEM+17, EXPAND+3, EXPAND+4, EXPAND+5, EXPAND+6
^PSDRUG - [#50]	GETEM+17

Name	Field # of Occurrence
>> %ZIS	APSQFAS2+2*
>> ALL	GETEM+1
APSQ	DIQ+4!
APSQ(	DIQ+4
>> APSQDG	DIQ+1*, DIQ+2, DIQ+3, DIQ+4
>> APSQEXP	EXPAND+4*, EXPAND+5
>> APSQEXPI	EXPAND+5*, EXPAND+6
>> APSQF	DIQ+4*
>> APSQHIT	DIQ*, DIQ+1
DELETE	GETEM, GETEM+5, GETEM+7!, GETEM+8, LIST+11*
DIC	GETEM!, GETEM+2*, GETEM+6!
DIC("A"	GETEM+5*
DIC("S"	GETEM+4*
DIC("W"	GETEM+3*
DIC(0	GETEM+2*
DIR	LIST+5!, LIST+9!
DIR("A"	LIST+8*
DIR("B"	LIST+7*
DIR(0	LIST+6*
>> DIRUT	LIST+12
>> DNUM	APSQFAS2+3, GETEM+1
DRUG	LIST+2, LIST+14, EXPAND+8*, EXIT+3!
DRUG(	GETEM+11!, GETEM+16*, LIST+3, DIQ, DIQ+1, EXPAND+1, EXPAND+2, EXPAND+7!
DRUGALSO	EXPAND+8, EXPAND+9!, EXIT+3!
DRUGALSO(	EXPAND+6*
>> DRUGNAM	GETEM+16, GETEM+17, LIST+3, EXPAND+1, EXPAND+2, EXPAND+7
>> DRUGNAMI	EXPAND+2*, EXPAND+3, EXPAND+4, EXPAND+5
>> DRUGX	GETEM+9*, GETEM+10, GETEM+11
DT	APSQFAS2+6*
DUZ	APSQFAS2+4
IOF	APSQFAS2+2, GETEM+7
>> IOP	APSQFAS2+2*
PSONEW	EXIT+1!
PSONEW("QFLG"	EXIT+2*
PSONEW1	EXIT+1!
U	APSQFAS2+3*, GETEM+1, GETEM+9, GETEM+16, GETEM+17, EXPAND+6
X	APSQFAS2+6, GETEM+1, GETEM+7, LIST+9!
>> Y	GETEM+9, GETEM+15, GETEM+16, GETEM+17, LIST+10, LIST+11