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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call