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

Package: Controlled Substances

Routine: PSDORP


Information

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

Source Information

Source file <PSDORP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  ^DIWP  ^DIWW  
Controlled Substances 3 LIST^PSDORL  (,ASK)^PSDORP1  ^PSDORP2  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSDORN  PSDORNV  PSDORP2  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC DIE+4
^DIC NAOU+7, DRUG+3
FILE^DICN DIE+3
^DIE DIE+5
^DIR QTY+6, QTY+17
^DIWP NAOU+3
^DIWW NAOU+4
LIST^PSDORL DRUG+9
^PSDORP1 QTY+19
ASK^PSDORP1 QTY+7
^PSDORP2 DRUG+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Controlled Substances Order Entry",!!
  • Line Location: PSDORP+2
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests,"
  • Line Location: QTY+11
Function Call: WRITE
  • Prompt: !!,(PSDQTY\NPKG)," order"
  • Line Location: QTY+13
Function Call: WRITE
  • Prompt: " for ",NPKG," ",NBKU,"."
  • Line Location: QTY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+16
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+18
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: QTY+19
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+20
Function Call: WRITE
  • Prompt: ?10,!!,"processing now..."
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"PSDR")_" 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
  • DIE
  • Line Location:
    • DIE+5
Routine Call
  • DIC
  • Line Location:
    • NAOU+7
    • DRUG+3
Routine Call
  • DIR
  • Line Location:
    • QTY+6
    • QTY+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDORP+2
^PSD(58.8 - [#58.8] NAOU+3, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, NAOU+13, DRUG+4, DRUG+5, DRUG+6
, DRUG+11, QTY+2, DIE+1, DIE+2*, DIE+6
^PSDRUG - [#50] DRUG+3
^UTILITY($J NAOU+1!
^VA(200 - [#200] PSDORP+2

Label References

Name Line Occurrences
DIE QTY+7, QTY+20, DIE+2
DRUG QTY+7, QTY+21
END NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, NAOU+13, DRUG+4, DRUG+5, DRUG+7
, DRUG+8, QTY+6, QTY+7, QTY+17
MSG NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+12, DRUG+4, DRUG+5, DRUG+7, DRUG+8
NAOU DRUG+3
QTY QTY+18

Naked Globals

Name Field # of Occurrence
^(0 DRUG+3, DRUG+6, QTY+2, DIE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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