Routine: APSPALG

Name	Comments	DBIA/ICR reference
NONE	;SHOULD NOT GET HERE
FULL
END	;CLEAN UP TIME
TEST(APSZIT)
DRUG	;GO HERE IF NO NDF OR CLASS
QUAR
1	;DELETE THE DRUG
3	;DO BOTH 1 AND 2
EN	;EP ENTRY POINT FROM PSODRG
4	;DO NOTHING
HALF
ASK
2	;DO AN INTERVENTION
XREF	;GET THE DRUG COMPONENTS TO BE CHECKED
CLASS	;CHECKS FOR CLASS IF NO ENTRY IN NDF

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

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

Name	Field # of Occurrence
^(0	XREF+2, FULL+3, QUAR+3, QUAR+7

Name	Field # of Occurrence
>> APSZ(	ASK+2
>> APSZ("HITC"	HALF+3*
>> APSZ("HITD"	QUAR+4*
>> APSZ("HITE"	FULL+5*
>> APSZ("HITS"	QUAR+8*
>> APSZ("MESS"	XREF+6, CLASS+1, DRUG+1*
>> APSZALLC	HALF*, HALF+1, HALF+3
>> APSZALLD	FULL*, FULL+1, FULL+3, FULL+5
>> APSZALLDR	FULL+3*
>> APSZALLI	FULL+1, FULL+2, FULL+5, HALF+1, HALF+2, HALF+3
>> APSZCHECK	TEST+1, TEST+2, TEST+3*, TEST+5
>> APSZCLASS	EN+9*, EN+10, HALF+3
>> APSZDRCOM	XREF+1*, XREF+2, XREF+4
>> APSZDREF	XREF+6
>> APSZDREF(	XREF+2, XREF+4, FULL+4, FULL+5
>> APSZDRUG	QUAR*, QUAR+3
>> APSZDRUGC	QUAR+1*, QUAR+2, QUAR+3, QUAR+4, QUAR+7, QUAR+8
>> APSZDRUGI	QUAR+3*
>> APSZDRUGN	QUAR+7*
APSZHIT	FULL+5, FULL+9, FULL+10!, HALF+3, HALF+5, HALF+6!, QUAR+4, QUAR+6, QUAR+8, QUAR+11 , QUAR+12!
APSZIT	TEST~, TEST+2, TEST+3
>> APSZQUIT	EN+5, EN+7, EN+8, EN+10, EN+11, EN+14, XREF+6*
>> APSZXREF	EN+7, EN+8, XREF+1
>> DGI	1+1, 2+1
DIR	ASK+10!
DIR("A"	ASK+4, ASK+5, ASK+6, ASK+7
DIR("B"	ASK+7*
DIR(0	ASK+7*
DIROUT	ASK+9, ASK+10!
DIRUT	ASK+9, ASK+10!
DTOUT	ASK+10!
DUOUT	ASK+10!
>> I	XREF+1, XREF+2, XREF+4, FULL+4, FULL+5, ASK+2*
>> IORVOFF	ASK+2
>> IORVON	ASK+2
>> PSODFN	EN+2, EN+3, EN+4, FULL, FULL+1, HALF, HALF+1, QUAR+1
>> PSODRUG("IEN"	QUAR
>> PSODRUG("NAME"	XREF+6, CLASS+1, DRUG+1, FULL+5, HALF+3, QUAR+4, QUAR+7, QUAR+8
>> PSODRUG("NDF"	EN+7
>> PSODRUG("VA C	LASS" , EN+9
>> PSORX("DFLG"	1+1*
>> PSORX("INTERVENE"	2+1*
U	XREF+2, FULL+3, FULL+5, HALF+3, QUAR+3, QUAR+4, QUAR+7, QUAR+8, TEST+3
>> X	ASK*
>> Y	ASK+9*, ASK+11

Information