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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVDRG

Package: Inpatient Medications

Routine: PSIVDRG


Information

PSIVDRG ;BIR/PR-ADD OR EDIT IV DRUGS ; 15 May 98 / 9:26 AM

Source Information

Source file <PSIVDRG.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 4 ENIVKV^PSGSETU  ENQ^PSIV  ^PSIVHLP1  ^PSIVXU  
VA FileMan 3 ^DIC  ^DIE  EN1^DIP  
Kernel 1 ^%ZISC  

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

Package Total Caller Graph
Inpatient Medications 4 ADDITIVE  PSJI DRUG FORM  PSJI DRUG INQUIRY  PSJI IVCATEGORY  
Pharmacy Data Management 2 ADDITIVE  PSSJI DRUG INQUIRY  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ENS ;Enter here to enter/edit solutions
ENS1 ;
ENA ;Enter here to enter/edit additives.
ENA1 ;
ENC ;Enter here to enter/edit IV Categories
K1 ;
K
KDRG
GETD ;See if generic drug is inactive in file 50.
ENTDRG ;
DRG
WPH ;
WP
ENT ;
BEG
ELECTRO ;Edit Electrolyte file

External References

Name Field # of Occurrence
^%ZISC BEG+1
^DIC ENS1+1, ENC+1, DRGELECTRO+1
^DIE ENS1+2, ENC+1, ELECTRO+2
EN1^DIP BEG+1
ENIVKV^PSGSETU K
ENQ^PSIV ENTDRG+3, BEG
^PSIVHLP1 ENTDRG+3, BEG
^PSIVXU ENC+1, ELECTRO+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENS+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Someone else is entering drugs ... try later !",!!
  • Line Location: ENA+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"This drug is inactive and will not be selectable during IV order entry.",!
  • Line Location: GETD+1
Function Call: WRITE
  • Prompt: !!,"Are you inquiring on"
  • Line Location: ENTDRG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DRG+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WPH+1
Function Call: WRITE
  • Prompt: !,"Drug information on: ",$P(^PS(FI,PSIVDRG,0),"^")
  • Line Location: WPH+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2)
  • Line Location: WPH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WPH+4
Function Call: WRITE
  • Prompt: !,"*** No information on file. ***"
  • Line Location: WP+0
Function Call: READ
  • Variable: I
  • Timeout: DTIME
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WP+2
Function Call: WRITE
  • Prompt: !!,"Are you printing drug information from ..."
  • Line Location: BEG+0
Routine Call
  • DIC
  • Line Location:
    • ENS1+1
    • ENC+1
    • DRG
    • ELECTRO+1
Routine Call
  • DIE
  • Line Location:
    • ENS1+2
    • ENC+1
    • ELECTRO+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WPH+3
^PS( ENS+1, ENA+1, K1+1, GETD+1*, WPH+2, WPH+3, WPWP+1
^PSDRUG - [#50] GETD+1

Label References

Name Line Occurrences
BEG BEG
ELECTRO ELECTRO+2
ENS1 ENS1+2
ENTDRG ENTDRG+3
K ENS+1, ENA+1, ENC+1, BEGBEG+1, ELECTRO+1
K1 ENS1+1
KDRG DRGDRG+1
WP DRG
WPH DRGWP+1

Naked Globals

Name Field # of Occurrence
^( WP+1
^("I" GETD+1
^(0 WPH+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
B KDRG!
D0 ENTDRG+4~
D1 ENTDRG+4~
DA ENS1+1~, ENS1+2*, ENC+1!*, KDRG!, ENTDRG+4~, DRG!, ELECTRO+1!, ELECTRO+2*
DG KDRG!
DI ENTDRG+4~
DIC ENS1+1~*, ENS1+2, ENC+1!*, KDRG!, DRG!*, BEG+1*, ELECTRO+1!*, ELECTRO+2
DIC(0 ENS1+1*, ENC+1*, DRG*, ELECTRO+1*
DIE ENS1+2*, ENC+1!*, KDRG!, ENTDRG+4~, ELECTRO+2*
DIJ KDRG!
DIX KDRG!
DIY KDRG!
DIYS KDRG!
DLAYGO ENS1+1~*, ENC+1!*, KDRG!, ELECTRO+1*
DO KDRG!
DP ENTDRG+4~
DQ ENTDRG+4~
DR ENS1+2*, ENC+1!*, ENTDRG+4~, ELECTRO+2*
DRUG ENS1+2*, KDRG!, GETD+1
DRUGEDIT ENS+1*, ENA+1*, KDRG!
DT GETD+1
DTIME WP+1
FI ENS+1*, ENS1+1, ENA+1*, K1+1, KDRG!, GETD+1, ENTDRG+4*, DRGWPH+2, WPH+3
WPWP+1
>> HELP ENTDRG+3*, BEG*
I KDRG!, WP+1*
IOF WPH+1
IOSL WP+1
J KDRG!
>> L BEG+1*
P KDRG!, ENTDRG+3~
PSIV KDRG!
PSIVAT KDRG!
PSIVDRG KDRG!, DRG*, WPH+2, WPH+3, WPWP+1
PSIVSC KDRG!
>> X GETD+1, ENTDRG+3*, ENTDRG+4, BEG*, BEG+1
>> XQUIT ENC+1, ELECTRO+1
XT KDRG!
>> Y ENS1+1, ENS1+2, ENC+1, DRG*, WPH+1*, WPH+3*, WP+2*, ELECTRO+1, ELECTRO+2
Z KDRG!, WP+1*
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 |  Naked Globals |  Local Variables  | All