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 |  Marked Items  | All
Print Page as PDF
Routine: PSODGDGP

Package: Outpatient Pharmacy

Routine: PSODGDGP


Information

PSODGDGP ;BIR/SAB - drug drug interaction checker ;4/14/93

Source Information

Source file <PSODGDGP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 6 NOOR^PSOCAN4  HD^PSODDPR2  DC^PSOORFI2  DRGINT^PSOORRD2  ENQ^PSORXDL  (,EN1)^PSORXI  
VA FileMan 3 FILE^DICN  IX^DIK  ^DIR  
Pharmacy Data Management 2 $$DS^PSSDSAPI  PSOUL^PSSLOCK  
Kernel 1 SIG^XUSESIG  
List Manager 1 FULL^VALM1  
Order Entry Results Reporting 1 ($$HAVEHDR,HAVEHDR)^ORRDI1  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSODDPR2  PSODDPR5  PSON52  PSORN52  PSORN52C  

Entry Points

Name Comments DBIA/ICR reference
TECH ;add tech entry to RX VERIFY file (#52.4); called from new order/copy/renew
TECH2(PSOXIRXN,PSODFN,DUZ,PSOX) ;
T3 ;
; The only time PSOX("NOPSDRPH) key is defined equal to 1 is for controlled substances and the user doesn't hold
; the PSDRPH key.
BLD
BLD2 ;
PHARM ;pharmacist verification of drug interaction
CRI ;process new drug interactions entered by pharmacist
CRITN ;process multiple new drug interactions
MESS
PPL
ULRX ;

External References

Name Field # of Occurrence
FILE^DICN T3+24
IX^DIK T3+28
^DIR PSODGDGP+20, PHARM+4, CRI+3, CRITN+5
$$HAVEHDR^ORRDI1 PSODGDGP+15
HAVEHDR^ORRDI1 PSODGDGP+14
NOOR^PSOCAN4 CRITN+8, CRITN+15, CRITN+19, CRITN+26
HD^PSODDPR2 PSODGDGP+17
DC^PSOORFI2 CRITN+17, CRITN+29
DRGINT^PSOORRD2 PSODGDGP+18
ENQ^PSORXDL CRITN+9, CRITN+21, CRITN+28, CRITN+32
^PSORXI CRITN+11
EN1^PSORXI CRITN+22, CRITN+30
$$DS^PSSDSAPI TECH+1, T3+4
PSOUL^PSSLOCK ULRX+2
FULL^VALM1 CRITN+9, CRITN+11, CRITN+22, CRITN+30, CRITN+32
SIG^XUSESIG CRI+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"DRUG INTERACTON WITH RX #s: "_LSI,!
  • Line Location: PSODGDGP+9
Function Call: WRITE
  • Prompt: !!,"Remote data not available - Only local order checks processed.",!!
  • Line Location: PSODGDGP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PHARM+4
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:
    • PSODGDGP+20
    • PHARM+4
    • CRI+3
    • 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(52.4 - [#52.4] TECH+1*, TECH+4*, T3+24*, T3+28
^PSDRUG - [#50] BLD2+2, MESS
^PSRX - [#52] TECH+3*, T3+13*, T3+14*, BLD2+2, CRITN+1, CRITN+3, CRITN+4, CRITN+11, MESS
^TMP("PSODGI" PSODGDGP+10, TECH+2, TECH+3, TECH+4, T3+14, BLD2+3, BLD2+4*, BLD2+5, BLD2+6*
^TMP("PSODGS" BLD2+8*
^TMP("PSODOSF" TECH+1, T3+4
^TMP("PSOSER" PSODGDGP+10, TECH+3, TECH+4, T3+5, T3+13, BLD2+4*, BLD2+7*
^TMP("PSOSERS" BLD2+8*
^TMP("PSOTDD" BLD2+9*
^TMP($J PSODGDGP+18!*, PSODGDGP+19!
^XTMP("ORRDI" PSODGDGP+17
^XUSEC("PSORPH" PSODGDGP+9, PSODGDGP+10, PSODGDGP+20, TECH2+2, BLD

Label References

Name Line Occurrences
BLD PSODGDGP+8
CRI PHARM+6
MESS CRITN+9, CRITN+21, CRITN+28, CRITN+32
PHARM BLD
PPL CRITN+22, CRITN+30
T3 TECH2+1
TECH T3+26
ULRX PHARM+7, PHARM+9, CRI+3, CRI+7, CRITN+6, CRITN+18, CRITN+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CRIT PSODGDGP+7*, PSODGDGP+9
DA T3+28!*, CRITN+9*, CRITN+18*, CRITN+22*, CRITN+25*, CRITN+30*, CRITN+32*, MESS
DD T3+23!, T3+24!
>> DGI PSODGDGP+7*, PSODGDGP+9, PSODGDGP+20, PHARM+5*, PHARM+6*, PHARM+8*, CRI+3*, CRITN+6*
>> DGS PSODGDGP+7*
DIADD T3+23!
DIC T3+23!*, T3+24!
DIC(0 T3+23*
DIK T3+28!*
DINUM T3+23!*, T3+24!
DIR PSODGDGP+20!, PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+1!, CRI+3!, CRITN+1!, CRITN+5!
DIR("?" PSODGDGP+20*, PHARM+2*, PHARM+3*, CRI+3*, CRITN+3*, CRITN+4*, CRITN+5*
DIR("A" PSODGDGP+20*, PHARM+4*, CRI+2*, CRITN+1*, CRITN+2*
DIR("B" PHARM+4*, CRI+2*
DIR(0 PSODGDGP+20*, PHARM+4*, CRI+2*, CRITN+2*
DIROUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+7!, CRITN+10!, CRITN+13!, CRITN+23!, CRITN+33!
CRITN+34!
DIRUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+7!, CRITN+8, CRITN+10!, CRITN+13!, CRITN+15
CRITN+19, CRITN+23!, CRITN+26, CRITN+33!, CRITN+34!
DLAYGO T3+23!*, T3+24!
DO T3+23!, T3+24!
DRG PSODGDGP+7~*, PSODGDGP+11!, CRITN+1, CRITN+2
DTOUT PSODGDGP+20!, PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+7!, CRITN+10!, CRITN+13!, CRITN+23!
CRITN+33!, CRITN+34!
DUOUT PSODGDGP+20!, PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+7!, CRITN+10!, CRITN+13!, CRITN+23!
CRITN+33!, CRITN+34!
DUZ PSODGDGP+9, PSODGDGP+10, PSODGDGP+20, TECH2~, TECH2+2, T3+24, BLD
ENT PPL+2*, PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
IOSL PSODGDGP+17
IT PSODGDGP+11!, BLD2+4, BLD2+7, BLD2+8, BLD2+9, PHARM+2, PHARM+3, PHARM+4, PHARM+5, PHARM+6
PHARM+7, PHARM+8, CRI+4, CRI+5
LSI PSODGDGP+7*, PSODGDGP+9, PSODGDGP+11!, BLD2+2*
NDF PSODGDGP+11!
>> ON BLD2+1, BLD2+2, BLD2+4, BLD2+5, BLD2+6, BLD2+8, PHARM+1, CRITN+1, CRITN+3, CRITN+4
CRITN+9, CRITN+10, CRITN+11, CRITN+18, CRITN+25, CRITN+32, PPL+2
>> OR0 CRITN+14, CRITN+29
PSHLDDRG CRITN+6*, CRITN+12, CRITN+13!
PSODFN PSODGDGP+17, PSODGDGP+18, PSODGDGP+19, TECH2~, T3+24
PSODGRLX PHARM+1*, ULRX+1, ULRX+2!
>> PSODLQT PSODGDGP+8, PHARM+5*, PHARM+7*
>> PSODRUG("IEN" CRITN+6, CRITN+11*, CRITN+12*
>> PSODRUG("NAME" CRI+2, CRITN+1, CRITN+10
>> PSODRUG("NDF" PSODGDGP+13
PSODWARN T3+3~*, T3+4*, T3+5*, T3+12, T3+22, T3+25, T3+29, T3+30
PSOHOLDA CRITN+18*, CRITN+22, CRITN+23!, CRITN+25*, CRITN+30!
PSOICT PSODGDGP+7*, PSODGDGP+11!
PSOINTSV T3+3~*, T3+5*, T3+25
PSOL PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
PSOL( PPL+2*, PPL+3
>> PSOLST( CRITN+10
>> PSONEW("STATUS" PSODGDGP+9*, PSODGDGP+10*
>> PSOPAR T3+15
>> PSOQUIT PHARM+5*, PHARM+7*
>> PSOREINS PHARM+5
PSOREMOT PSODGDGP+7~*, PSODGDGP+17*, PSODGDGP+20
>> PSORX("DFLG" PSODGDGP+8, PSODGDGP+12, PHARM+5*, CRI+3*, CRI+6*, CRITN+6*, CRITN+8*, CRITN+16*, CRITN+20*, CRITN+27*
CRITN+28*
>> PSORX("INTERVENE" PHARM+6*, PHARM+8*, CRI+3!, CRI+5*, CRI+6!, CRITN+8!, CRITN+16!, CRITN+20!, CRITN+27!
>> PSORX("PSOL" PPLPPL+2, PPL+4!, PPL+5*, PPL+6*
>> PSORX("VERIFY" T3+12, T3+22, T3+29, T3+30
>> PSORXED PHARM+5, CRITN+7, CRITN+31
>> PSOSD CRITN+10*, CRITN+24*, CRITN+28*, CRITN+33*
>> PSOSD( CRITN+10!
PSOSIGNIF T3+3~*, T3+5*, T3+12, T3+30
PSOSL PPL*, PPL+2*, PPL+7!
PSOTLBL T3+3~*, T3+12, T3+15*, T3+29*, T3+30*, T3+35*, T3+36
PSOX TECH2~
PSOX("IRXN" T3+28
PSOX("LOGIN D ATE" , T3+24
PSOX("NOPSDRPH" TECH2+1, T3+12, T3+22, T3+25, T3+35
PSOX("STATUS" T3+29
PSOX("STOP DA TE" , T3+24
PSOX2 PPL*, PPL+1, PPL+2, PPL+7!
PSOXIRXN TECH+1, TECH+3, TECH+4, TECH2~, T3+13, T3+14, T3+23, T3+24, T3+28
>> SER PSODGDGP+7*
>> SERS PSODGDGP+7*
>> STA PSODGDGP+7*
>> VALMBCK CRITN+12*, CRITN+24*, CRITN+25*
X T3+23!*
X1 CRI+3!, CRI+6, CRITN+1!
>> Y PHARM+5, PHARM+6, PHARM+7, PHARM+8, CRI+3, CRITN+6, CRITN+18, CRITN+25
>> ZONE CRITN+10*, CRITN+33*

Marked Items

Name Field # of Occurrence
$T(HAVEHDR^ORRDI1 PSODGDGP+14
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 |  Marked Items  | All