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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSDORV

Package: Controlled Substances

Routine: PSDORV


Information

PSDORV ;BIR/JPW - IV Pharm CS Order Request Entry ;8 Aug 94

Source Information

Source file <PSDORV.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIWP  ^DIWW  
Controlled Substances 3 LIST^PSDORL  ASK^PSDORV1  ^PSDSET  

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

Package Total Caller Graph
Controlled Substances 1 PSD INFUSION O/E  

Entry Points

Name Comments DBIA/ICR reference
NAOU ;select NAOU to order supplies for
DRUG ;select drug
QTY
END
DIE ;create the order request
DIE2
MSG ;display error message

External References

Name Field # of Occurrence
NOW^%DTC DIE2+2
^DIC NAOU+6, DRUG+2
FILE^DICN DIE2+1
^DIE DIE2+3
^DIWP NAOU+3
^DIWW NAOU+4
LIST^PSDORL DRUG+8
ASK^PSDORV1 QTY+2
^PSDSET PSDORV+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDORV+4
Function Call: WRITE
  • Prompt: !!,"Controlled Substances Order Entry",!!
  • Line Location: PSDORV+5
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: !!,"Quantity must be a whole number between 1 and 999999",!
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: ?10,!!,"processing now..."
  • Line Location: DIE2+2
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"DRUG")_" is missing "
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",!
  • Line Location: MSG+2
Routine Call
  • DIC
  • Line Location:
    • NAOU+6
    • DRUG+2
Routine Call
  • DIE
  • Line Location:
    • DIE2+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDORV+5
^PSD(58.8 - [#58.8] NAOU+3, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+3, DRUG+4, DRUG+5
, DIE+1, DIE+2, DIE2*, DIE2+4
^PSDRUG - [#50] DRUG+2
^UTILITY($J NAOU+1!
^VA(200 - [#200] PSDORV+5
^XUSEC("PSJ PHARM TECH" PSDORV+3
^XUSEC("PSJ RPHARM" PSDORV+3

Label References

Name Line Occurrences
DIE QTY+2
DIE2 DIE2
DRUG QTY+2
END NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+2, DRUG+3, DRUG+4
, DRUG+6, DRUG+7, QTY, QTY+2
MSG NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, DRUG+3, DRUG+4, DRUG+6, DRUG+7
QTY QTY+1

Naked Globals

Name Field # of Occurrence
^(0 DRUG+2, DRUG+5, DIE+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, DIE2+2
%DT END!
%H END!
%I END!
CNT QTY+2*, END!
CNT1 END!
DA NAOU+5!, DRUG+1!, END!, DIE2+1!, DIE2+3*
DA(1 DRUG+2*, DIE2+1*, DIE2+3*
DA(2 DIE2+1*, DIE2+3*
DD DIE2+1!
DIC NAOU+5!*, NAOU+6!, DRUG+1!, DRUG+2*!, END!, DIE2+1!*
DIC("A" NAOU+5*
DIC("S" NAOU+5*
DIC("W" DRUG+1*
DIC(0 NAOU+5*, DRUG+2*, DIE2+1*
DIE END!, DIE2+1!*, DIE2+3!
>> DILOCKTM DIE+1
DINUM END!, DIE2+1*
DIR END!
DIROUT END!
DIRUT END!
DIWF NAOU+2~*, END!
DIWL NAOU+2~*, END!
DIWR NAOU+2~*, END!
DO DIE2+1!
DR END!, DIE2+1!, DIE2+3*!
DT PSDORV+5
DTIME QTY
DTOUT END!
DUOUT END!
DUZ PSDORV+3, PSDORV+5
LN END!
MSG PSDORV+5*, NAOU+7*, NAOU+8*, NAOU+9*, NAOU+10*, NAOU+11*, DRUG+4*, END!, MSG+1
MSG1 PSDORV+5*, NAOU+8*, NAOU+9*, NAOU+11*, DRUG+6*, DRUG+7*, END!, MSG+2
NAOU NAOU+6*, NAOU+7, NAOU+8, NAOU+9, DRUG+2, DRUG+3, END+1!, DIE+1, DIE+2, DIE2
, DIE2+1, DIE2+3, DIE2+4
NAOUN NAOU+6*, END+1!
NBKU DRUG+5*, DRUG+6, QTY, END+1!
NPKG DRUG+5*, DRUG+7, QTY, QTY+1, END+1!
OK PSDORV+3*, PSDORV+4!, END+1!
OKTYP NAOU+12*, END+1!
ORD QTY!, END+1!
PSD NAOU+2~*, NAOU+3*
PSDA END+1!, DIE2*, DIE2+1, DIE2+3
PSDOUT QTY*, QTY+2, END+1!
PSDQTY QTY+1*, QTY+2*, END+1!, DIE2+3
PSDR DRUG+2*, DRUG+3, DRUG+4, DRUG+5, END+1!, DIE+1, DIE+2, DIE2, DIE2+1, DIE2+3
, DIE2+4
PSDRD END+1!
PSDRN DRUG+2*, END+1!
PSDS NAOU+9*, NAOU+10, NAOU+11, NAOU+12, DRUG+4, DRUG+5, END+1!, DIE2+3
>> PSDSITE PSDORV+2, NAOU+3
PSDT END+1!, DIE2+2*, DIE2+3
PSDUZ PSDORV+5*, END+1!, DIE2+3
PSDUZN PSDORV+5*, END+1!
REQD PSDORV+5*, END+1!
TEXT END+1!
TYPE NAOU+12*, END+1!
U NAOU+3
WORD END+1!
X NAOU+2~, NAOU+3*, QTY*, QTY+1*, QTY+2, END+1!, DIE2+1*
Y PSDORV+5*, NAOU+6, DRUG+2, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All