Routine: PSODGAL2

Information

PSODGAL2 ; BIR/SAB - displays stored DRUG ALLERGY w/sign/symptoms ;10/27/11 02:22

Name	Comments	DBIA/ICR reference
SORT	;build sort by severity, reactant/causitive agent
LOOP	;
PRT	; print allergy information to screen
ADOC	;
UPPER(PSOUCS)	;
LOWER(PSOLCS)	;
EXT	;
EXIT	;
INV	;display intervention
FF	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO Drug Allergy Order Checks found for Rx#: "_$P(^PSRX(ZRX,0),"^") Line Location: PSODGAL2+17
Function Call: WRITE	Prompt: !,"NO Drug Allergy Order Checks found for Rx#: "_$P(^PSRX(ZRX,0),"^") Line Location: SORT+44
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: $C(7),!,"A Drug-Allergy Reaction exists for this medication and/or class!",! Line Location: PRT+3
Function Call: WRITE	Prompt: ! Line Location: PRT+5
Function Call: WRITE	Prompt: ! Line Location: PRT+10
Function Call: WRITE	Prompt: ! Line Location: FF+1
Function Call: WRITE	Prompt: @IOF Line Location: FF+5