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

Package: Inpatient Medications

Routine: PSIVEDRG


Information

PSIVEDRG ;BIR/MLM - ENTER/EDIT DRUGS FOR IV ORDER ;16 Mar 99 / 2:14 PM

Source Information

Source file <PSIVEDRG.m>

Entry Points

Name Comments DBIA/ICR reference
DRG ; Edit Additive/Solution data
DRG1 ;
DRG1A
SETDRG ; Put Drug data into DRG(x).
DRG2 ;
DRG3 ;
AMT ;
1 ; Strength/Volume
2 ;
DRG4 ;
CHKSCMNT ;
SEECMENT() ;
GTSCRN(PSIVX) ;Set DIC("S") if MD OE or matching drug has already been selected.
IT ; Input Transform for Strength/Volume.
ORDERCHK(DFN,ON,X) ; Do order check
SAVEDRG(NEW,OLD)
CHK ; Check if drug is already part of order
ASKCHK ; Do you want a drug that was previously selected.
DEL ;
GTADSOL ;Prompt for an ad/sol if there were multiple ad/sol matched to an OI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select ",DRGTN,": "
  • Line Location: DRG1+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DRG1+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DRG1A+0
Function Call: WRITE
  • Prompt: !,"This order includes the following ",DRGTN,"S:",!
  • Line Location: DRG1A+4
Function Call: WRITE
  • Prompt: !,$P(DRG(DRGT,Y),U,2)
  • Line Location: DRG1A+6
Function Call: WRITE
  • Prompt: !!,"YOU MAY ENTER A NEW ",DRGTN,", IF YOU WISH",!
  • Line Location: DRG1A+8
Function Call: WRITE
  • Prompt: PSJNF("NF")
  • Line Location: DRG2+4
Function Call: WRITE
  • Prompt: !!,"(The units of strength for this additive are in ",$$ENU^PSIVUTL(DRG(1)),")"
  • Line Location: DRG3+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: $C(7),$S(DRGT="AD":"Strength",1:"Volume")," is REQUIRED!"
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !!,"*** One or more additives has 'See Comments' in the Bottle field.",!," Please correct.",!!
  • Line Location: CHKSCMNT+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: IT+2
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: IT+3
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: IT+4
Function Call: WRITE
  • Prompt: $P($$UPPER^VALM1($P(DRG(DRGT,+TDRG),U,2)),$$UPPER^VALM1(X),2)
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: " ",$S($P(I,U,4):" ("_$P(I,U,4)_")",1:""),!,"...OK"
  • Line Location: ASKCHK+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: ASKCHK+3
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: " "_$P(PSIVOIND,U,2)_$S(PSIVOI="SOL":" "_$P(PSIVOIND,U,3),1:"")
  • Line Location: GTADSOL+16
Function Call: WRITE
  • Prompt: PSJNF("NF")
  • Line Location: GTADSOL+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.6 - [#52.6] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call