Routine: PSJDGAL2

Information

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

Name	Comments	DBIA/ICR reference
START	; This routine is called when the hidden option 'DA' is typed from the IP Medication screen
SORT	;build sort by severity, reactant/causitive agent
LOOP	;
PRT	; print allergy information to screen
ADOC	;
INGRED	; ; DRUG INGREDIENT
SIGNS	; ; SIGNS/SYMPTOMS
UPPER(PSJUCS)	;
LOWER(PSJLCS)	;
EXT	;
EXIT	;
INV	;display intervention
FF	;
FINDC(PSJORD)	;determine if order is part of a complex UD order	ICR #6140 Status: Pending Usage: Private
FINDCP	;COMPLEX PENDING ORDER
FINDCA	;COMPLEX ACTIVE ORDER

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DA is not a valid selection." Line Location: START+3
Function Call: WRITE	Prompt: !,"DA is not a valid selection." Line Location: START+4
Function Call: WRITE	Prompt: !!,"NO Drug Allergy Order Checks found." Line Location: START+5
Function Call: WRITE	Prompt: !!,"NO Drug Allergy Order Checks found." Line Location: START+24
Function Call: WRITE	Prompt: !!,"NO Drug Allergy Order Checks found." Line Location: START+33
Function Call: WRITE	Prompt: !!,"NO Drug Allergy Order Checks found." Line Location: SORT+53
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: $C(7),! Line Location: PRT+3
Function Call: WRITE	Prompt: ! Line Location: PRT+9
Function Call: WRITE	Prompt: ! Line Location: PRT+14
Function Call: WRITE	Prompt: ! Line Location: FF+1
Function Call: WRITE	Prompt: @IOF Line Location: FF+5