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

Package: Controlled Substances

Routine: PSDORN


Information

PSDORN ;BIR/JPW,LTL-Nurse CS Order Request Entry ;12/14/99 16:04

Source Information

Source file <PSDORN.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Controlled Substances 8 ^PSDOR2  ^PSDORD  LIST^PSDORL  DIE^PSDORN0  (,ASK)^PSDORN1  ^PSDORNO  ^PSDORP  ^PSDSET  
VA FileMan 4 ^DIC  ^DIR  ^DIWP  ^DIWW  
Kernel 2 (ENDR,ENS,KILL)^%ZISS  EN^XQH  

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

Package Total Caller Graph
Controlled Substances 2 PSD ORDER ENTRY  PSDOR2  

Entry Points

Name Comments DBIA/ICR reference
NAOU ;select NAOU to order supplies for
TYPE
DRUG ;select drug
QTY
END
MSG ;display error message

External References

Name Field # of Occurrence
ENDR^%ZISS NAOU+13
ENS^%ZISS DRUG+12
KILL^%ZISS NAOU+15, DRUG+12
^DIC NAOU+3, DRUG+10
^DIR TYPE+4, QTY+5, QTY+10
^DIWP NAOU+14
^DIWW NAOU+15
^PSDOR2 DRUG+20
^PSDORD TYPE+4
LIST^PSDORL DRUG+18
DIE^PSDORN0 QTY+6, QTY+13
^PSDORN1 QTY+12
ASK^PSDORN1 QTY+6
^PSDORNO DRUG+13
^PSDORP PSDORN+14
^PSDSET PSDORN+10
EN^XQH PSDORN+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RNURSE, PSJ RPHARM, PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDORN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+3
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+12
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: NAOU+15
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+4
Function Call: WRITE
  • Prompt: IOBON,!!,?20,"ZERO BALANCE IN PHARMACY",IOBOFF
  • Line Location: DRUG+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+5
Function Call: WRITE
  • Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,!
  • Line Location: QTY+7
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request."
  • Line Location: QTY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+9
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+11
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: QTY+12
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+13
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+3
    • DRUG+10
Routine Call
  • DIR
  • Line Location:
    • TYPE+4
    • QTY+5
    • QTY+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDORN+15, QTY+5
^PSD(58.8 - [#58.8] NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+12
, DRUG+13, DRUG+14, DRUG+15, DRUG+20
^PSDRUG - [#50] DRUG+10
^UTILITY($J NAOU+12!
^VA(200 - [#200] PSDORN+13
^XUSEC("PSD TECH ADV" PSDORN+11
^XUSEC("PSJ PHARM TECH" PSDORN+11
^XUSEC("PSJ RNURSE" PSDORN+11
^XUSEC("PSJ RPHARM" PSDORN+11

Label References

Name Line Occurrences
DRUG QTY+6, QTY+14
END PSDORN+13, NAOU+3, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, NAOU+11, TYPE+4, DRUG+10
, DRUG+13, DRUG+14, DRUG+16, DRUG+17, QTY, QTY+6, QTY+10, QTY+12
MSG NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+14, DRUG+16, DRUG+17
QTY QTY+7, QTY+11
TYPE DRUG+13, QTY+5

Naked Globals

Name Field # of Occurrence
^(0 DRUG+10, DRUG+13, DRUG+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
CNT QTY+6*, QTY+8*, QTY+9, QTY+12, QTY+13, END!
CNT1 END!
DA NAOU+1!, DRUG+1!, QTY+9!, END!
DA(1 DRUG+4*, DRUG+9*
DIC NAOU+1!*, NAOU+3!, DRUG+1!, DRUG+4*, DRUG+9*, DRUG+10!, END!
DIC("A" NAOU+1*
DIC("S" NAOU+2*, DRUG+3*, DRUG+8*
DIC("W" DRUG+2*, DRUG+7*
DIC(0 NAOU+1*, DRUG+4*
DIE END!
DINUM END!
DIR TYPE+4!, QTY+5!, QTY+9!, QTY+10!, END!
DIR("?" TYPE+3*, QTY+2*, QTY+3*, QTY+4*, QTY+9*, QTY+10*
DIR("A" TYPE+1*, QTY+1*, QTY+9*
DIR("B" TYPE+2*, QTY+9*
DIR(0 TYPE*, QTY+1*, QTY+9*
DIROUT END!
DIRUT TYPE+4, DRUG+13, QTY+5, QTY+9!, QTY+10, END!
DIWF NAOU+12~, NAOU+13*, END!
DIWL NAOU+12~, NAOU+13*, END!
DIWR NAOU+12~, NAOU+13*, END!
DR END!
DT PSDORN+15, DRUG+13
DTIME QTY
DTOUT END!
DUOUT END!
DUZ PSDORN+11, PSDORN+13, PSDORN+15
>> IOBOFF DRUG+12
>> IOBON DRUG+12
>> IORVOFF NAOU+15
>> IORVON NAOU+13
LN END!
MSG PSDORN+15*, NAOU+4*, NAOU+5*, NAOU+8*, NAOU+9*, NAOU+10*, DRUG+14*, END!, MSG+1
MSG1 PSDORN+15*, NAOU+5*, NAOU+8*, NAOU+10*, DRUG+16*, DRUG+17*, END!, MSG+2
>> NAOU NAOU+3*, NAOU+4, NAOU+5, NAOU+6, DRUG+9, DRUG+13, DRUG+20
>> NAOUN NAOU+3*
NBKU DRUG+15*, DRUG+16, QTY, END+1!
NPKG DRUG+15*, DRUG+17, QTY, QTY+6, QTY+7, QTY+8, QTY+12, END+1!
OK PSDORN+11*, PSDORN+12!, PSDORN+14, END+1!
OKTYP NAOU+11*, END+1!
ORD QTY!, QTY+13*, END+1!
ORD( QTY+13*
PSD NAOU+12~, NAOU+13*, NAOU+14*
PSDA QTY+13, END+1!
PSDEM QTY+6!, END+1!
PSDOUT QTY*, QTY+6, QTY+12, QTY+13, QTY+14, END+1!
PSDQTY QTY+6*, QTY+12*, END+1!
PSDR DRUG+1!, DRUG+10*, DRUG+12, DRUG+13, DRUG+14, DRUG+15, END+1!
PSDRD END+1!
PSDRN DRUG+10*, QTY+13, END+1!
>> PSDS NAOU+6*, NAOU+7*, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+4, DRUG+6, DRUG+12
, DRUG+14, DRUG+15
>> PSDSITE PSDORN+10
PSDT END+1!
PSDT(8 QTY*, QTY+6*, QTY+7, QTY+8
PSDT(9 QTY+5*
>> PSDUZ PSDORN+15*
REQD PSDORN+15*, END+1!
TEXT END+1!
TYPE NAOU+11*, END+1!
U PSDORN+13, DRUG+6, DRUG+12, DRUG+13, DRUG+20
WORD END+1!
X NAOU+12~, NAOU+13*, NAOU+14*, QTY*, END+1!
XQH PSDORN+13~*
Y PSDORN+15*, NAOU+3, TYPE+4, DRUG+10, QTY+5, QTY+11, QTY+12, 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