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: PSODGAL1

Package: Outpatient Pharmacy

Routine: PSODGAL1


Information

PSODGAL1 ;BIR/LC,SAB - enhanced DRUG ALLERGY REACTION CHECKING ;Dec 04, 2024@13:50

Source Information

Source file <PSODGAL1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Called from both inpatient and outpatient pharmacy
CHK ;matched to ndf
EX
DSPLY ;
DSPLY1 ;
; 1 2 3 4 5 6 7 8 9 10
SITE ;
DRCL ;PSODRCL1(99,"AMPICILLIN/SULBACTAM","PENICILLINS,AMINO DERIVATIVES")=1
OVRD ; Override Reason
OVRDX ;
NF ;
SYM1 ;format signs/symptoms
CRI ;input electronic sig
DIR ;
UTIL ;
GMSGPTR(MSG,NODE) ; retrieve second level pointer from new allergy array

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+22
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+24
Function Call: WRITE
  • Prompt: !,"Order not copied!",!
  • Line Location: CHK+30
Function Call: WRITE
  • Prompt: !,"No changes made to this order!",!
  • Line Location: CHK+31
Function Call: WRITE
  • Prompt: !
  • Line Location: CHK+34
Function Call: WRITE
  • Prompt: $C(7),!!,"A Drug-Allergy Reaction exists for this medication and/or class!",!
  • Line Location: DSPLY1+10
Function Call: WRITE
  • Prompt: !,$S($G(PSODGCKF)!($G(PSJDGFLG)):" Profile Drug: ",1:" Prospective Drug: ")
  • Line Location: DSPLY1+11
Function Call: WRITE
  • Prompt: $S($G(PSORXORD)["V":PSODRUG("OIN"),$G(PSORXORD)["P"&($D(^PS(53.1,+$G(PSORXORD),"AD"))):PSODRUG("OIN"),$G(PSJCOM):PSJCPROS,1:PSODRUG("NAME"))
  • Line Location: DSPLY1+20
Function Call: WRITE
  • Prompt: PSODRUG("NAME")
  • Line Location: DSPLY1+21
Function Call: WRITE
  • Prompt: PSODRUG("NAME")
  • Line Location: DSPLY1+22
Function Call: WRITE
  • Prompt: !," Causative Agent: "
  • Line Location: DSPLY1+24
Function Call: WRITE
  • Prompt: " Historical/Observed: "_$P(PSOHIS,";")
  • Line Location: SITE+11
Function Call: WRITE
  • Prompt: !," Severity: "_$S(PSOASEV="":"Not Entered",1:PSOASEV)
  • Line Location: SITE+12
Function Call: WRITE
  • Prompt: !?7," Ingredients: "
  • Line Location: SITE+16
Function Call: WRITE
  • Prompt: ?3," Signs/Symptoms: None Entered",!
  • Line Location: SITE+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DRCL+12
Function Call: WRITE
  • Prompt: ?29,^UTILITY($J,"W",1,ZX,0),!
  • Line Location: NF+3
Function Call: WRITE
  • Prompt: !,"VA Drug Class: "_PSOMDC,!
  • Line Location: NF+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NF+12
Function Call: WRITE
  • Prompt: ?4," Signs/Symptoms: "
  • Line Location: SYM1+6
Function Call: WRITE
  • Prompt: !,"Order not copied!",!
  • Line Location: CRI+7
Function Call: WRITE
  • Prompt: !,"No changes made to this order!",!
  • Line Location: CRI+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CRI+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+2

FileMan Files Accessed Via FileMan Db Call

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