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

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Inpatient Medications 8 (ENDDC,IVSOL)^PSGSICHK  ENSTOP^PSIVCAL  ORFLDS^PSIVEDT1  ENHLP^PSIVORC1  ^PSIVQUI  ($$ENU,$$IVDRGSC)^PSIVUTL  (DINIV,NFIV)^PSJDIN  HOLDHDR^PSJOE  
VA FileMan 5 ^DIC  YN^DICN  FIELD^DID  $$GET1^DIQ  ^DIR  
List Manager 1 ($$UPPER,FULL)^VALM1  
Outpatient Pharmacy 1 EN^PSOORDRG  

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

Package Total Caller Graph
Inpatient Medications 6 PSIVEDT  PSIVEDT1  PSIVOC  PSIVORC1  PSIVQUI  PSJLIFN  

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

External References

Name Field # of Occurrence
^DIC DRG1A+8, DRG2+1
YN^DICN ASKCHK+1, DEL+1
FIELD^DID 1+2
$$GET1^DIQ DRG1A+7
^DIR 2+1, GTADSOL+13
ENDDC^PSGSICHK ORDERCHK+9
IVSOL^PSGSICHK ORDERCHK+14
ENSTOP^PSIVCAL ORDERCHK+16
ORFLDS^PSIVEDT1 DRG1A+2
ENHLP^PSIVORC1 IT+2
^PSIVQUI DRG2+10, GTADSOL+28
$$ENU^PSIVUTL DRG3+3, IT+3
$$IVDRGSC^PSIVUTL GTSCRN+3
DINIV^PSJDIN DRG2+8, DRG3+1, GTADSOL+27
NFIV^PSJDIN DRG2+3, GTADSOL+23
HOLDHDR^PSJOE GTSCRN+1
EN^PSOORDRG ORDERCHK+11
$$UPPER^VALM1 CHK+2, CHK+3, CHK+4
FULL^VALM1 DRG1+3

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
Routine Call
  • DIC
  • Line Location:
    • DRG1A+8
    • DRG2+1
Routine Call
  • DIR
  • Line Location:
    • 2+1
    • GTADSOL+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.6 - [#52.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( DRG3+3, ORDERCHK+8, CHK+3, CHK+4, GTADSOL+17
^PS(52.6 - [#52.6] DRG2+10, GTADSOL+21
^TMP("PSODAOC" DRG1A+1!

Label References

Name Line Occurrences
$$SEECMENT CHKSCMNT+1
1 1+1
2 1+1
AMT 1+2
ASKCHK CHK+2, CHK+3
CHK DRG1A+3
CHKSCMNT DRG1+6, DRG1A
DEL DRG1A+1
DRG1 DRG1A, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+8
DRG1A DRG1A+1, DRG1A+3
DRG2 DRG1A+3
DRG3 DRG1A, GTADSOL+31
DRG4 AMT+1
GTADSOL DRG1+5
GTSCRN DRG1A+8, DRG2+1
IT 1+2
ORDERCHK DRG2+7, GTADSOL+26, GTADSOL+29
SAVEDRG ORDERCHK+6, ORDERCHK+15
SETDRG DRG+2, DRG1A+1, DRG3+2, ASKCHK+2, GTADSOL+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DRG1A+1, DRG1A+3*, ASKCHK+1*, ASKCHK+2, DEL+1*
DA GTSCRN+3!
DDONE CHK+1~, CHK+3, ASKCHK+2*
DFN DRG2+7, ORDERCHK~, ORDERCHK+8, ORDERCHK+9, ORDERCHK+11, ORDERCHK+13*, GTADSOL+26, GTADSOL+29
DIC DRG1A+8!, DRG2+1!, GTSCRN+3!*
DIC("S" GTSCRN+3*, GTSCRN+4*
DIC(0 DRG1A+8*, DRG2+1*
DIR 2+1!, GTADSOL+2~
DIR("?" GTADSOL+4*
DIR("A" GTADSOL+6*, GTADSOL+7*, GTADSOL+9*, GTADSOL+11*, GTADSOL+12*
DIR("B" 2+1*
DIR(0 2+1*, GTADSOL+3*
>> DONE DRG1+6*, DRG2+7*, GTADSOL+26*, GTADSOL+29*
>> DRG ORDERCHK+4, ORDERCHK+6, ORDERCHK+15
>> DRG( DRG+2, DRG1A+1!*, DRG1A+3, DRG1A+4, DRG1A+5, DRG1A+6, DRG1A+7, SETDRG+1*, DRG2+9*, DRG4+1*
, CHK+1, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+18*, GTADSOL+19*, GTADSOL+24, GTADSOL+29
>> DRG("AD" SEECMENT+4, SEECMENT+5
>> DRG(1 SETDRG+2, DRG3+1, DRG3+3, IT+3
>> DRG(2 DRG+2*, DRG1+6, DRG1A, DRG1A+1, SETDRG+2*, DRG3+1, DRG4+2*
>> DRG(3 1+1, 1+2*
>> DRG(4 2+1*
>> DRGI DRG+2*, DRG1A+1*, SETDRG+1, DRG2+9*, DRG4+1, ASKCHK+2*, GTADSOL+20*
DRGOC DRG+1~
DRGOC( ORDERCHK+4*
>> DRGT DRG+2, DRG1+5, DRG1A, DRG1A+1, DRG1A+3, DRG1A+4, DRG1A+5, DRG1A+6, DRG1A+7, SETDRG+1
, DRG2+3, DRG2+5, DRG2+8, DRG2+9, DRG2+10, DRG3+3, AMT+1, 1+1, 1+2, 2+1
, DRG4+1, GTSCRN+4, IT+2, IT+3, CHK+1, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+21
, GTADSOL+24, GTADSOL+29
>> DRGTMP DRG2+5*, DRG2+8, DRG2+9, DRG2+10, ORDERCHK+7, ORDERCHK+8, GTADSOL+24*, GTADSOL+27, GTADSOL+29*
>> DRGTN DRG1+4, DRG1A, DRG1A+4, DRG1A+8
DTIME DRG1+6, DRG1A, 1+1
>> DTOUT 2+1
DUOUT DRG1+2!, 2+1
>> F1 IT+2*
>> F2 IT+2*
FIL DRG3+1, DRG3+3, GTSCRN+3, ORDERCHK+8, ORDERCHK+9, ORDERCHK+10, CHK+3, CHK+4, GTADSOL+31~*
I CHK+1~, ASKCHK+1*
INTERVEN ORDERCHK+12~*
J CHK+1~, CHK+3*, CHK+4
ND GTADSOL+2~, GTADSOL+17*, GTADSOL+19
NEW SAVEDRG~, SAVEDRG+1!, SAVEDRG+2*
NEW( SAVEDRG+3*, SAVEDRG+5*, SAVEDRG+6*
OLD SAVEDRG~, SAVEDRG+2
OLD( SAVEDRG+3, SAVEDRG+5, SAVEDRG+6
ON DRG2+6, ORDERCHK~, ORDERCHK+4, GTADSOL+25
ON55 DRG2+6~*, DRG2+7, GTADSOL+25~*, GTADSOL+26, GTADSOL+29
>> P("DTYP" 2+1
>> P("OT" DRG1A+2, GTSCRN+4
>> P(23 AMT+1, 2+1
>> P(4 DRG1A, DRG1A+3, AMT+1, 2+1
PSGDRG ORDERCHK+5~, ORDERCHK+8*, ORDERCHK+9, ORDERCHK+11
PSGDRGN ORDERCHK+5~, ORDERCHK+7*
PSGORQF DRG+1!, DRG1+1, DRG2+7, DRG2+10, GTADSOL+21, GTADSOL+26, GTADSOL+29
PSGP ORDERCHK+5~, ORDERCHK+8*, ORDERCHK+13
>> PSIVAC DRG1A+2, DRG2+10, GTSCRN+4
PSIVDRG0 SEECMENT+2~, SEECMENT+5*, SEECMENT+6
PSIVDRGI SEECMENT+2~, SEECMENT+4*, SEECMENT+5
PSIVFLG SEECMENT+2~, SEECMENT+3*, SEECMENT+4, SEECMENT+6*, SEECMENT+7
PSIVNEW DRG2+5*, ORDERCHK+5~, ORDERCHK+7*
PSIVOI DRG1+5, GTADSOL+4, GTADSOL+7, GTADSOL+9, GTADSOL+11, GTADSOL+16, GTADSOL+17, GTADSOL+18, GTADSOL+19, GTADSOL+30
, GTADSOL+32!
PSIVOI("DILIST" DRG1+5, GTADSOL+3, GTADSOL+5, GTADSOL+6, GTADSOL+7, GTADSOL+8, GTADSOL+9, GTADSOL+11, GTADSOL+12, GTADSOL+15
, GTADSOL+21, GTADSOL+22, GTADSOL+29
PSIVOIND GTADSOL+15~*, GTADSOL+16, GTADSOL+17, GTADSOL+19
PSIVOLD DRG+2!*, DRG2+9!, AMT+1, ASKCHK+2*
>> PSIVSTR DRG2+10, GTADSOL+21
PSIVX DRG2+1~*, DRG2+10, GTSCRN~, GTSCRN+1, GTSCRN+2, GTADSOL+22*
PSJDD ORDERCHK+5~, ORDERCHK+8*
PSJEX 1+2!
PSJEX("XECUTA BLE HELP" , 1+2
PSJIREQ ORDERCHK+12~*
>> PSJIVIEN DRG2+2*, DRG2+3, GTADSOL+22*, GTADSOL+23
PSJNF DRG2+3~, GTADSOL+23~
PSJNF("NF" DRG2+4, GTADSOL+23
PSJPDRG ORDERCHK+13!
PSJRXREQ ORDERCHK+12~*
TDRG CHK+1~*, CHK+2, CHK+3, CHK+4, ASKCHK+1, ASKCHK+2
TDRGP CHK+1~, CHK+3*, CHK+4
TMPDRG ORDERCHK+5~, ORDERCHK+6, ORDERCHK+15
U DRG1+6, DRG1A+6, SETDRG+1, DRG2+5, DRG2+7, DRG3+3, DRG4+1, SEECMENT+6, GTSCRN+4, ORDERCHK+7
, ORDERCHK+8, CHK+2, CHK+3, CHK+4, ASKCHK+1, GTADSOL+6, GTADSOL+7, GTADSOL+8, GTADSOL+9, GTADSOL+11
, GTADSOL+16, GTADSOL+19, GTADSOL+21, GTADSOL+22, GTADSOL+26, GTADSOL+29
X DRG1+2, DRG1+6*, DRG1A*, DRG1A+1, DRG1A+2, DRG1A+3, DRG1A+8, SETDRG+1*, SETDRG+2*, DRG2+1
, DRG2+7*, DRG3+3*, 1+1*, 1+2, 2+1, DRG4+1*, GTSCRN+2*, IT+1*, IT+2, IT+3!*
, IT+4!*, IT+5, ORDERCHK~, ORDERCHK+4, ORDERCHK+5~, ORDERCHK+12*, SAVEDRG+3*, SAVEDRG+6*, CHK+2, CHK+3
, CHK+4, ASKCHK+2*, ASKCHK+3, DEL+1*, GTADSOL+2~, GTADSOL+5*, GTADSOL+6, GTADSOL+7, GTADSOL+8, GTADSOL+9
, GTADSOL+11, GTADSOL+22*, GTADSOL+26*, GTADSOL+29*
X(1 GTSCRN+4*
XX ORDERCHK+5~, SAVEDRG+4*, SAVEDRG+5, SAVEDRG+6
Y DRG1A*, DRG1A+3, DRG1A+5*, DRG1A+6, DRG1A+7, DRG2+1, DRG2+2, DRG2+5, 2+1, ORDERCHK+5~
, ORDERCHK+12*, GTADSOL+2~, GTADSOL+14, GTADSOL+15, GTADSOL+21, GTADSOL+22*, GTADSOL+29
Y(0 DRG2+5
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  | All