Routine: APSQALLE

Package	Total	Caller Graph
IHS Changes To Pharmacy	2	APSQDRG APSQFAS4

Entry Points

Name	Comments	DBIA/ICR reference
NONE	;SHOULD NOT GET HERE BUT!!!
EN	;EP HERE WE START
END	;CLEAN UP TIME
FULL	;
DRUG	;GO HERE IF NO NDF OR CLASS
QUAR	;WELL NOTHING IS LEFT BUT TO CHECK THE DRUG ITSELF
1	;DELETE THE DRUG
3	;DO BOTH 1 AND 2
XREF	;GET THE DRUG COMPONENTS TO BE CHECKED
4	;DO NOTHING
HALF	;THIS IS USED TO CHECK IF ONLY HAVE A CLASS
ASK	;ASK WHAT IS TO BE DONE
2	;DO AN INTERVENTION
TEST(AZOIT)
CLASS	;CHECKS FOR CLASS IF NO ENTRY IN NDF

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CHECKING FOR DRUG ALLERGIES..." Line Location: EN+1
Function Call: WRITE	Prompt: IORVON Condition for execution: I="MESS" Line Location: ASK+4
Function Call: WRITE	Prompt: !,*7,AZO(I) Line Location: ASK+4
Function Call: WRITE	Prompt: IORVOFF Condition for execution: I="MESS" Line Location: ASK+4
Routine Call	DIR Line Location: ASK+13

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	EN+3, EN+4, FULL+1, FULL+2, FULL+8, HALF+2, HALF+3, HALF+6, QUAR+2, QUAR+4 , QUAR+5, TEST+2, TEST+3
^PS(50.416 - [#50.416]	XREF+1, XREF+2, FULL+5

Name	Field # of Occurrence
^(0	XREF+2, FULL+5, QUAR+4

Name	Field # of Occurrence
>> AZO(	ASK+4
>> AZO("HITC"	HALF+6*
>> AZO("HITD"	QUAR+5*
>> AZO("HITE"	FULL+8*
>> AZO("MESS"	XREF+5, CLASS+4, DRUG+1*
>> AZOALLC	HALF+2*, HALF+3, HALF+6
>> AZOALLD	FULL+1*, FULL+2, FULL+5, FULL+8
>> AZOALLDR	FULL+5*
>> AZOALLI	FULL+2, FULL+4, FULL+8, HALF+3, HALF+5, HALF+6
>> AZOCHECK	TEST+1, TEST+2, TEST+3*, TEST+4
>> AZOCLASS	EN+10*, EN+11, DRUG+1, HALF+6
>> AZODRCOM	XREF+1*, XREF+2, XREF+3
>> AZODREF	XREF+5
>> AZODREF(	XREF+2, XREF+3, FULL+7, FULL+8
>> AZODRUG	QUAR+1*, QUAR+4
>> AZODRUGC	QUAR+2*, QUAR+3, QUAR+4, QUAR+5
>> AZODRUGI	QUAR+4*
AZOHIT	FULL+8, FULL+11, FULL+12!, HALF+6, HALF+8, HALF+9!, QUAR+5*, QUAR+8, QUAR+9!
AZOIT	TEST~, TEST+2, TEST+3
>> AZOQUIT	EN+5, EN+7, EN+8, EN+11, EN+12, EN+13, EN+14, EN+16, XREF+5, DRUG+1
>> AZOXREF	EN+7, EN+8, XREF+1
>> DGI	1+1, 2+1
DIR	ASK+16!
DIR("A"	ASK+6, ASK+7, ASK+8, ASK+9, ASK+10*
DIR("B"	ASK+11*
DIR(0	ASK+12*
DIROUT	ASK+15, ASK+16!
DIRUT	ASK+15, ASK+16!
DTOUT	ASK+16!
DUOUT	ASK+16!
>> I	XREF+1, XREF+2, XREF+3, FULL+7, FULL+8, ASK+4*
>> IORVOFF	ASK+4
>> IORVON	ASK+4
>> PSODFN	EN+2, EN+3, EN+4, FULL+1, FULL+2, HALF+2, HALF+3, QUAR+2
>> PSODRUG("IEN"	QUAR+1
>> PSODRUG("NAME"	XREF+5, CLASS+4, DRUG+1, FULL+8, HALF+6, QUAR+5
>> PSODRUG("NDF"	EN+7
>> PSODRUG("VA C	LASS" , EN+10
>> PSORX("DFLG"	1+1*
>> PSORX("INTERVENE"	2+1*
U	XREF+2, FULL+5, FULL+8, HALF+6, QUAR+4, QUAR+5, TEST+3
>> X	ASK+2*
>> Y	ASK+15*, ASK+17