Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSODGAL2

Package: Outpatient Pharmacy

Routine: PSODGAL2


Information

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

Source Information

Source file <PSODGAL2.m>

Entry Points

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 ;

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PS(50.605 - [#50.605] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call