Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 3 $$GET1^DIQ  ^DIR  ^DIWP  
Inpatient Medications 2 $$FINDC^PSJDGAL2  ^PSJRXI  
Outpatient Pharmacy 2 ($$GETSEV,SORTN)^PSODGAL3  ^PSORXI  
Adverse Reaction Tracking 1 $$ORCHK2^GMRAOR  
Kernel 1 SIG^XUSESIG  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 GETOC4^OROCAPI1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 3 PSODGAL3  PSODRG  PSOUTL  
Inpatient Medications 1 PSJGMRA  

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

External References

Name Field # of Occurrence
$$GET1^DIQ DRCL+5
^DIR CHK+21, CHK+22, CHK+24, CHK+32, DRCL+11, NF+12, CRI+9, DIR+2
^DIWP SITE+9, SITE+18, DRCL+7, NF+2, SYM1+5
$$ORCHK2^GMRAOR CHK+2
GETOC4^OROCAPI1 OVRDX+2
$$FINDC^PSJDGAL2 DSPLY1+19
^PSJRXI CHK+39
$$GETSEV^PSODGAL3 DSPLY1+5
SORTN^PSODGAL3 DSPLY+2
^PSORXI CHK+40
FULL^VALM1 DSPLY+2
SIG^XUSESIG CRI+1

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
Routine Call
  • DIR
  • Line Location:
    • CHK+21
    • CHK+22
    • CHK+24
    • CHK+32
    • DRCL+11
    • NF+12
    • CRI+9
    • DIR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.605 - [#50.605] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] OVRD+4
^PS(53.1 - [#53.1] DSPLY1+20, OVRD+10
^PS(55 - [#55] OVRD+11, OVRD+12
^PSRX - [#52] OVRD+6, OVRD+7
^TMP("PSN" SITE+19!
^TMP("PSODAI" CHK+7*, CHK+16*
^TMP("PSODAOC" CHK+39*, CHK+40*, EX+2!, OVRDX+4*
^TMP($J EN+3!, CHK+20, EX+1!
^UTILITY($J DSPLY1+30!, SITE+19!, DRCL+3!, OVRD+1!, NF+3, NF+4!, SYM1+2!, SYM1+7, SYM1+8, SYM1+11!
, UTIL+1, UTIL+2, UTIL+5!
^XUSEC("PSORPH" CHK+4, CHK+21

Label References

Name Line Occurrences
$$GMSGPTR CHK+9, DSPLY+14
CRI CHK+37
DSPLY CHK+3
DSPLY1 DSPLY+16
NF OVRDX+1
OVRD DRCL+9
OVRDX OVRD+2, OVRD+9, OVRD+10, OVRD+11
SYM1 SITE+20
UTIL SITE+9, SITE+18, DRCL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGNL EX!, DSPLY+3!
ALTOT EX!, DSPLY+4*, DSPLY+6*, DRCL+11
APTR EX+1!
CAUSAGNT DSPLY1+31~*, SITE+2
DACNT DSPLY+3~, DSPLY+4*, DSPLY1+7*
DACNT2 DSPLY+3~, DSPLY+4*, DSPLY1+8*
DFN EN+1~, EN+4*, CHK+2, OVRD+11, OVRD+12
DIR CHK+21!, CHK+22!, CHK+32!, CHK+34!, EX!, DRCL+11!, DRCL+12!, NF+12!, CRI+2!, CRI+9!
, DIR+2!
DIR("?" CHK+21*, CHK+22*, CHK+23*, CHK+32*, DRCL+11*, NF+11*, CRI+9*, DIR+1*
DIR("A" CHK+21*, CHK+22*, CHK+24*, CHK+32*, DRCL+11*, NF+11*, CRI+9*, DIR+1*
DIR("B" CHK+24*
DIR(0 CHK+21*, CHK+22*, CHK+24*, CHK+32*, DRCL+11*, NF+11*, CRI+9*, DIR+1*
DIROUT EX!
DIRUT CHK+21!, CHK+22!, CHK+34!, EX!, DRCL+12!
DIWF DSPLY1+30*, SITE+14*, SITE+19!, DRCL+3*, OVRD+1*, NF+4!, SYM1+2*, SYM1+11!, UTIL+5!
DIWL DSPLY1+30*, SITE+14*, SITE+19!, DRCL+3*, OVRD+1*, NF+4!, SYM1+2*, SYM1+11!, UTIL+5!
DIWR DSPLY1+30*, SITE+14*, SITE+19!, DRCL+3*, OVRD+1*, NF+4!, SYM1+2*, SYM1+11!, UTIL+5!
DRCLIEN DSPLY1+2~, DRCL+5*
DRCLIENE DSPLY1+2~, DRCL+5*, DRCL+6
DSPLQ EN+3!, EX!
DTOUT CHK+25, CHK+34, EX!, DRCL+12
DUOUT CHK+21!, CHK+22!, CHK+25, CHK+34!, EX!, DRCL+12!
DUZ CHK+4, CHK+21
GMRA EX+1!
GMRADRCL EN+3!, EX+1!
GMRAING EN+3!, EX+1!
GMRAREAC EN+3!, EX+1!
GMRARSLT EN+3!, EX+1!, DSPLY1+5
GMRARSLT( CHK+8, CHK+11, CHK+12, DSPLY1+3, SITE+5, SITE+20, GMSGPTR+2, GMSGPTR+4
I EN+1~, EX+1!, DSPLY1+27*, SITE+19!, SYM1+11!, UTIL+5!
II EN+1~, SITE+2*
III DRCL+3~
INGLOC DSPLY+3~
IOF CHK+22, DRCL+12
LP EX+1!
LPTR EN+1~, EX!
MSG GMSGPTR~, GMSGPTR+2, GMSGPTR+4
NDF EN+1~, EN+5*, EN+6*, CHK+19*
NODE GMSGPTR~, GMSGPTR+2
>> ON DSPLY1+16
>> ON55 DSPLY1+16
>> ORD OVRD+4
>> PROPSECT DSPLY1+14*
PROSPECT DSPLY1+14~
>> PSGCOPY CHK+30, CRI+7
>> PSGORD DSPLY1+17
PSGORQF CHK+3, CHK+18, CHK+25*, CHK+27*, CHK+35*, CHK+38, EX+2, EX+3!, DSPLY+7, DSPLY+8
, DRCL+12*, CRI+3*
>> PSIVCOPY CHK+30, CRI+7
>> PSJALGCT CHK+1*, CHK+39, CHK+40
>> PSJAOC CHK+24, CHK+25, CHK+27, CHK+28, CHK+35, CHK+39, CHK+40, EX+3, DSPLY1+15, DRCL+12
, CRI+3
>> PSJCOFLG CHK+30*
>> PSJCOM DSPLY1+19, DSPLY1+20
PSJCPROS DSPLY1+14~*, DSPLY1+19*, DSPLY1+20
>> PSJDAL CHK+39*
>> PSJDAL("DA" CHK+39!
>> PSJDGCK CHK+22, EX+2, DSPLY1+20, DSPLY1+21, NF+1
>> PSJDGFLG DSPLY1+11
>> PSJINFIN OVRD+9
PSJNCOM DSPLY1+14~*, DSPLY1+19*
>> PSJNORD DSPLY1+16
>> PSJORD DSPLY1+16, OVRD+2, OVRD+10, OVRD+11, OVRD+12
>> PSJREN CHK+31, CRI+8
>> PSJRNFLG CHK+31*
>> PSJRXI("DA" CHK+41!
PSNDA SITE+19!
PSNID SITE+19!
PSOACK EN+1~, CHK+2*, CHK+5, CHK+20, EX+1!
PSOACNT DSPLY+4~*, DRCL+10*, DRCL+11
PSOADA EN+1~, DSPLY+5*
PSOADAT EN+1~
PSOALGYF EN+3!, EN+5*, DSPLY1+25*
PSOASEV EN+1~, DSPLY1+5*, SITE+12
PSOASITE EN+1~, DSPLY+5*
PSOASORT EN+3!
PSOATYPE DSPLY+4~*, DSPLY+6*, DSPLY+8*, DSPLY+10, DSPLY1+31, SITE+15, DRCL+1, DRCL+4, DRCL+5, SYM1+4
PSOCA DSPLY+4~, DSPLY+5*, DSPLY+6*, DSPLY+7*, DSPLY+8, DSPLY+10, DSPLY1+26, DSPLY1+27, DSPLY1+28, DSPLY1+31
, SITE+15, DRCL+1, DRCL+4, DRCL+5, SYM1+4
PSOCAGNT EN+2~, DSPLY+1!
PSOCAGNT( DSPLY+6, DSPLY+7, DSPLY+8, DSPLY+10, DSPLY1+31, SITE+15
PSOCAR DSPLY1+2~, DSPLY1+25*, DSPLY1+26*, DSPLY1+27*, DSPLY1+28*, SITE+8
PSODAL EN+1~, CHK+40*
PSODAL("DA" CHK+40!, CHK+41!
PSODATA DSPLY1+2~
PSODCLAS DSPLY1+2~, DSPLY1+31*
>> PSODFN EN+4
>> PSODGCK CHK+4, CHK+22, EX+2, DSPLY1+20, DSPLY1+21, NF+1
>> PSODGCKF DSPLY1+11
PSODGCL EN+1~
PSODGCL1 EN+1~
>> PSODLQT CHK+25*, CHK+36*, DRCL+12*
PSODRCL EN+1~, DSPLY+11*
PSODRCL1 EN+1~
PSODRCL1( DRCL+1, DRCL+4, DRCL+5
>> PSODRG CHK+7*
>> PSODRUG("IEN" EN+7
>> PSODRUG("NAME" DSPLY1+20, DSPLY1+21, DSPLY1+22
>> PSODRUG("NDF" EN+6, CHK+19
>> PSODRUG("OIN" DSPLY1+20
>> PSOFOERR OVRD+3
PSOGIEN EN+1~, CHK+9*, CHK+10, CHK+11, DSPLY+5*
PSOGMRA EN+2~
PSOGMRA2 EN+2~, DSPLY+9*, DSPLY+10*, DSPLY+12, DSPLY+13
PSOHIS DSPLY+3!, DSPLY1+2~, DSPLY1+4*, SITE+11
PSOHISI DSPLY1+2~, DSPLY1+3*, DSPLY1+4
PSOIADAT EN+2~, DSPLY+5*
PSOINGR EN+2~, DSPLY+5*, SITE+15*, SITE+17
PSOINGRE EN+1~
PSOINSTL DSPLY1+2~
PSOLCLAS EN+2~
PSOLOC EN+2~, CHK+7*
PSOLOCAL DSPLY+4~, DSPLY1+2~, SITE+3*, SITE+4*, SITE+22*
PSOLOCI DSPLY1+2~
PSOMDC EN+3!, CHK+21, EX!, NF+6, NF+10*
PSOMDC( NF+10
PSOMEDL DSPLY1+2~
PSOMEDLI DSPLY1+2~
>> PSONV OVRD+7
PSOOINGR EN+2~, SITE+13*
PSOOVRDR OVRD+1~, OVRD+4*, OVRD+7*
PSOPRET OVRD+1~, OVRDX+2
PSOPRET( OVRDX+3
PSOPTR DSPLY+4~, DSPLY+11*, DSPLY+12*, DSPLY+14, DSPLY1+3, DSPLY1+5, SITE+20
>> PSOQUIT CHK+28*, CHK+33*, CHK+36*
>> PSOREINS OVRD+5
>> PSORENW CRI+5
>> PSORENW("DFLG" CHK+33*, CRI+5*
>> PSORX("DFLG" CHK+3, CHK+18, CHK+25*, CHK+28*, CHK+33*, CHK+36*, CHK+38, EX+2, DSPLY+7, DSPLY+8
, DRCL+12*, CRI+4*
>> PSORX("INTERVENE" CRI+2!
PSORXORD EN+2~, DSPLY1+13*, DSPLY1+16*, DSPLY1+17*, DSPLY1+19, DSPLY1+20
PSOSEV EN+2~, CHK+7*, DSPLY+5*, DSPLY+6*, DSPLY+7*, DSPLY+8, DSPLY+10, DSPLY1+6, DSPLY1+9, DSPLY1+31
, SITE+15, DRCL+1, DRCL+4, DRCL+5, SYM1+4
PSOSEVI DSPLY1+2~
PSOSEVT EN+1~, DSPLY1+6*
PSOSEVT1 EN+1~
PSOSEVT1("S" CHK+26, CHK+37, DSPLY1+9*
PSOSITT DSPLY+4~, DSPLY+13*, DSPLY1+5
PSOSNAM EN+2~, SITE+3*, SITE+5*, SITE+7
PSOSORT EN+1~
>> PSOSPRNW CHK+32, CHK+33
PSOSTA DSPLY1+2~
PSOSTYP DSPLY1+2~
PSOSTYPI DSPLY1+2~
PSOSYMS EN+1~, DSPLY+1!
PSOSYMS( SYM1+4
PSOSYMX SYM1+1~, SYM1+3*, SYM1+4*, SYM1+5*
>> PSOVER1 OVRD+7
PSOWCA DSPLY1+2~, DSPLY1+25*, DSPLY1+27*
PSOWIN SITE+13~
PSOWINGR SITE+13~
PTR EN+2~, EN+5*, EN+6*, EN+7*, CHK+2
QX SYM1+1~, SYM1+3*, SYM1+4*
REMSITE SITE+13~
REMTMP SITE+13~
RESULT GMSGPTR+1~, GMSGPTR+2*, GMSGPTR+3, GMSGPTR+4*, GMSGPTR+5, GMSGPTR+6*, GMSGPTR+7
RET NF+4!
RXN EN+1~
SEV EX!, DSPLY+3!
SEVN DSPLY+3!
TYP EN+2~, EN+5*, EN+6*
U CHK+11, DSPLY1+3, SITE+5, SITE+20, OVRD+10, OVRD+11, OVRD+12
>> VALMBCK CHK+29*, CRI+4*
X DSPLY1+30!*, DSPLY1+31*, SITE+1*, SITE+7*, SITE+8*, SITE+14*, SITE+17*, SITE+19!, DRCL+3~*, DRCL+6*
, DRCL+7*, OVRD+1~, NF+2*, SYM1+2!, SYM1+5*
X1 CRI+1~
XX DRCL+3~*, DRCL+4*, DRCL+5, DRCL+6
Y CHK+26, EX!
Z SITE+13~, OVRD+1~
ZALL DSPLY1+2~
ZCLA EX+1!, DSPLY+4*
ZCNT EX+1!
ZDATE DSPLY+3~, SITE+3*, SITE+4*, SITE+7
ZGMRA EN+3!, EX!
ZI CHK+6~, CHK+15*, CHK+16, SITE+13~, OVRD+1~, OVRDX+3*
ZINDATE DSPLY1+2~
ZINGLOC DSPLY+3~
ZINGRED CHK+6~, CHK+15*, CHK+16
ZINGREDS CHK+6~, CHK+12*, CHK+13, CHK+14*, CHK+15
ZINSTL EX+1!
ZLOC DSPLY+4~*
ZLOCAL CHK+6~, CHK+11*, CHK+16
ZMED CHK+2!
ZMEDL DSPLY+3~, DSPLY+4*
ZMEDLCL CHK+2!
ZMSG CHK+6~, CHK+8*, CHK+9, CHK+11, CHK+12, DSPLY1+2~, SITE+4*, SITE+5
ZNODE SYM1+7~, SYM1+8*, SYM1+9*, SYM1+10, UTIL+1~, UTIL+2*, UTIL+3*, UTIL+4
ZORN OVRD+1~*, OVRD+4*, OVRD+6*, OVRD+7*, OVRD+10*, OVRD+11*, OVRD+12*, OVRDX+1, OVRDX+2, OVRDX+3
, NF+4!
ZOV SITE+13~, OVRD+1~*, OVRDX+3*, OVRDX+4, NF+2
ZPOP EN+2~, SITE+13*, SITE+16*
ZPOP2 EN+2~
>> ZRXN OVRD+6
ZSAT EX+1!
ZSIGN DSPLY1+2~, SITE+20*, SITE+21
ZSITE EN+2~, DSPLY1+31*, SITE+2*, SITE+4
ZSTA DSPLY+3~
ZSYM SYM1+1~, SYM1+3*, SYM1+4*
ZX SITE+13~, SITE+19!, OVRD+1~, NF+3*, SYM1+7*, SYM1+8, SYM1+11!, UTIL+1*, UTIL+2, UTIL+5!
ZZALL DSPLY+4~, DSPLY+5*, DSPLY+11*, DSPLY+14*, DSPLY+15, DSPLY1+3, SITE+22
ZZING DSPLY+4~, DSPLY+5*
ZZLOC DSPLY+4~, DSPLY+5*
ZZSITE EN+2~, SITE+3*, SITE+4*, SITE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All