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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSODGDGI

Package: Outpatient Pharmacy

Routine: PSODGDGI


Information

PSODGDGI ;BIR/SAB - drug drug interaction checker ; 6/28/07 7:36am

Source Information

Source file <PSODGDGI.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 7 NOOR^PSOCAN4  NVA^PSODRDU1  DC^PSOORFI2  (DRGINT,PAUSE)^PSOORRD2  REMOTE^PSORX1  ENQ^PSORXDL  (,EN1)^PSORXI  
VA FileMan 2 FILE^DICN  ^DIR  
Kernel 1 SIG^XUSESIG  
List Manager 1 FULL^VALM1  
National Drug File 1 $$DDIEX^PSNAPIS  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  
Pharmacy Data Management 1 (PSOL,PSOUL)^PSSLOCK  

Entry Points

Name Comments DBIA/ICR reference
MESS
PPL
PHARM ;pharmacist verification of drug interaction
TECH ;add tech entry to RX VERIFY file (#52.4)
BLD
CRI ;process new drug interactions entered by pharmacist
ULRX ;
CRITN ;process multiple new drug interactions

External References

Name Field # of Occurrence
FILE^DICN TECH+1
^DIR PHARM+1, PHARM+10, CRI+2, CRITN+5
$$HAVEHDR^ORRDI1 PSODGDGI+31
HAVEHDR^ORRDI1 PSODGDGI+30
$$DDIEX^PSNAPIS PSODGDGI+8, PSODGDGI+16
NOOR^PSOCAN4 CRITN+8, CRITN+15, CRITN+19, CRITN+26
NVA^PSODRDU1 PSODGDGI+23
DC^PSOORFI2 CRITN+17, CRITN+29
DRGINT^PSOORRD2 PSODGDGI+36
PAUSE^PSOORRD2 PSODGDGI+34, PSODGDGI+35
REMOTE^PSORX1 PSODGDGI+33
ENQ^PSORXDL CRITN+9, CRITN+21, CRITN+28, CRITN+32
^PSORXI CRITN+11
EN1^PSORXI CRITN+22, CRITN+30
PSOL^PSSLOCK PHARM+1
PSOUL^PSSLOCK ULRX+2
FULL^VALM1 CRITN+9, CRITN+11, CRITN+22, CRITN+30, CRITN+32
SIG^XUSESIG CRI+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSODGDGI+23
Function Call: WRITE
  • Prompt: $C(7),!,"DRUG INTERACTION WITH RX #s: "_LSI,!
  • Line Location: PSODGDGI+26
Function Call: WRITE
  • Prompt: !,"Remote data not available - Only local order checks processed."
  • Line Location: PSODGDGI+35
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2)
  • Line Location: PHARM+2
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: PHARM+9
Function Call: WRITE
  • Prompt: $C(7)," ACTION NOT TAKEN!",!
  • Line Location: CRITN+8
Function Call: WRITE
  • Prompt: !!,"Canceling Rx: "_$P($G(^PSRX(DA,0)),"^")_" "_"Drug: "_$P($G(^PSDRUG($P(^PSRX(DA,0),"^",6),0)),"^"),!
  • Line Location: MESS+0
Routine Call
  • DIR
  • Line Location:
    • PHARM+1
    • PHARM+10
    • CRI+2
    • CRITN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.4 - [#52.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(56 - [#56] PSODGDGI+15, PSODGDGI+17, PSODGDGI+19, BLD+1, BLD+2, BLD+3, PHARM+7
^PSDRUG - [#50] BLD+1, PHARM+3, MESS
^PSRX - [#52] TECH+2*, BLD+1*, PHARM+3, PHARM+5, PHARM+9, CRITN+1, CRITN+3, CRITN+4, CRITN+11, MESS
^TMP($J PSODGDGI+36!*, PSODGDGI+37!
^XTMP("ORRDI" PSODGDGI+32, PSODGDGI+35
^XUSEC("PSORPH" PSODGDGI+26, BLD

Label References

Name Line Occurrences
BLD PSODGDGI+24
CRI PHARM+12
CRITN CRI+1
MESS CRITN+9, CRITN+21, CRITN+28, CRITN+32
PHARM BLD
PPL CRITN+22, CRITN+30
ULRX PHARM+13, PHARM+15, CRI+2, CRI+6, CRITN+6, CRITN+18, CRITN+35

Naked Globals

Name Field # of Occurrence
^(0 BLD+1, PHARM+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CRIT PSODGDGI+9*, PSODGDGI+26, TECH+1, TECH+2!, BLD+3*
>> DA CRITN+9*, CRITN+18*, CRITN+22*, CRITN+25*, CRITN+30*, CRITN+32*, MESS
DD TECH+1!
DGI PSODGDGI+9*, PSODGDGI+26, TECH+1, TECH+2!, BLD+1*, PHARM+11*, PHARM+12*, PHARM+14*, CRI+2*, CRITN+6*
DGS PSODGDGI+9*, TECH+2!, BLD+2*
DIC TECH+1*, TECH+2!
DIC("DR" TECH+1*
DIC(0 TECH+1*
DINUM TECH+1*, TECH+2!
DIR PHARM+1!, PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+1!, CRI+2!, CRITN+1!, CRITN+5!
DIR("?" PHARM+7*, PHARM+8*, CRI+2*, CRITN+3*, CRITN+4*, CRITN+5*
DIR("A" PHARM+1*, PHARM+9*, PHARM+10*, CRI+1*, CRITN+1*, CRITN+2*
DIR("B" PHARM+10*, CRI+1*
DIR(0 PHARM+1*, PHARM+10*, CRI+1*, CRITN+2*
DIROUT PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33!
, CRITN+34!
DIRUT PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+8, CRITN+10!, CRITN+13!, CRITN+15
, CRITN+19, CRITN+23!, CRITN+26, CRITN+33!, CRITN+34!
DLAYGO TECH+1*, TECH+2!
DNM PSODGDGI+23*!
DO TECH+1!
DRG PSODGDGI+9*, PSODGDGI+10*, PSODGDGI+11, PSODGDGI+12, PSODGDGI+23, PSODGDGI+26!, BLD+1, BLD+2, PHARM+1, PHARM+3
, PHARM+5, PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+2, CRITN+3, CRITN+4, CRITN+11, CRITN+18
, CRITN+23, CRITN+25, CRITN+30, PPL+2
DT PSODGDGI+17, TECH+1
DTOUT PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33!
, CRITN+34!
DUOUT PHARM+11!, PHARM+12!, PHARM+13!, PHARM+14!, CRI+2!, CRI+6!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33!
, CRITN+34!
DUZ PSODGDGI+26, TECH+1, BLD
ENT PPL+2*, PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
IT PSODGDGI+14*, PSODGDGI+15*, PSODGDGI+17, PSODGDGI+18, PSODGDGI+19, PSODGDGI+22*, PSODGDGI+23!, PSODGDGI+26!, PSODGDGI+27!, BLD+1
, BLD+2, BLD+3, PHARM+7
LSI PSODGDGI+9*, PSODGDGI+26!, BLD+1*
NDF PSODGDGI+12*, PSODGDGI+15, PSODGDGI+16, PSODGDGI+26!
>> OR0 CRITN+14, CRITN+29
>> ORN CRITN+9, CRITN+10, CRITN+32, CRITN+33
PSHLDDRG CRITN+6*, CRITN+12, CRITN+13!
>> PSODFN PSODGDGI+35, PSODGDGI+36, PSODGDGI+37, TECH+1
PSODGRLX PHARM+6*, ULRX+1, ULRX+2!
PSODI TECH+1*, TECH+2!
>> PSODRUG("IEN" CRITN+6, CRITN+11*, CRITN+12*
>> PSODRUG("NAME" CRI+1, CRITN+1, CRITN+10, CRITN+33
>> PSODRUG("NDF" PSODGDGI+8, PSODGDGI+15
PSOHOLDA CRITN+18*, CRITN+22, CRITN+23!, CRITN+25*, CRITN+30!
PSOICT PSODGDGI+9~*, PSODGDGI+14*, PSODGDGI+18*, PSODGDGI+19*, PSODGDGI+21, PSODGDGI+22, PSODGDGI+23!, PSODGDGI+26!
PSOL PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
PSOL( PPL+2*, PPL+3
>> PSOLST( CRITN+9, CRITN+10, CRITN+32, CRITN+33
PSOMSG PHARM+1!, PHARM+2
>> PSONEW("STATUS" PSODGDGI+26*
>> PSORX("DFLG" PSODGDGI+10, PSODGDGI+24, PSODGDGI+29, PHARM+1*, PHARM+11*, CRI+2*, CRI+4*, CRITN+6*, CRITN+8*, CRITN+16*
, CRITN+20*, CRITN+27*, CRITN+28*
>> PSORX("INTERVENE" PHARM+12*, PHARM+14*, CRI+2!, CRI+4!, CRI+5*, CRITN+8!, CRITN+16!, CRITN+20!, CRITN+27!
>> PSORX("PSOL" PPL, PPL+2, PPL+4!, PPL+5*, PPL+6*
>> PSORXED CRITN+7, CRITN+31
>> PSOSD CRITN+10*, CRITN+24*, CRITN+28*, CRITN+33*
>> PSOSD( PSODGDGI+10, PSODGDGI+11, PSODGDGI+12, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5, PHARM+6, PHARM+9
, CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+10!, CRITN+11, CRITN+18, CRITN+23!, CRITN+25, CRITN+30!
, CRITN+33!, PPL+2
PSOSL PPL*, PPL+2*, PPL+7!
>> PSOX("IRXN" TECH+1, TECH+2
PSOX2 PPL*, PPL+1, PPL+2, PPL+7!
SER PSODGDGI+9*, TECH+1, TECH+2!, BLD+1*, PHARM+7*, PHARM+8, PHARM+9, PHARM+10, PHARM+11, PHARM+12
, PHARM+13, PHARM+14, CRI+3, CRI+5
SERS PSODGDGI+9*, TECH+2!, BLD+2*
>> STA PSODGDGI+9*, PSODGDGI+10*, PSODGDGI+11, PSODGDGI+12, PSODGDGI+23, BLD+1, BLD+2, PHARM+1, PHARM+3, PHARM+5
, PHARM+6, PHARM+9, CRI+1, CRITN+1, CRITN+3, CRITN+4, CRITN+11, CRITN+18, CRITN+23, CRITN+25
, CRITN+30, PPL+2
>> VALMBCK CRITN+12*, CRITN+24*, CRITN+25*
>> X TECH+1*
X1 CRI+2!, CRI+4, CRITN+1!
>> Y PHARM+11, PHARM+12, PHARM+13, PHARM+14, CRI+2, CRITN+6, CRITN+18, CRITN+25
>> ZONE CRITN+10*, CRITN+33*

Marked Items

Name Field # of Occurrence
$T(HAVEHDR^ORRDI1 PSODGDGI+30
$T(REMOTE^PSORX1 PSODGDGI+33
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All