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

Package: Controlled Substances

Routine: PSDORP2


Information

PSDORP2 ;BIR/JPW,LTL - Pharm CS Order Request Entry ;22 Jun 94

Source Information

Source file <PSDORP2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 NOW^%DTC  FILE^DICN  ^DIE  ^DIR  
Controlled Substances 2 DRUG^PSDORP  (,ASK)^PSDORP1  

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 PSDORP  

Entry Points

Name Comments DBIA/ICR reference
QTY
NOMAX
END
DIE ;create the order request
DIE2
MSG ;display error message

External References

Name Field # of Occurrence
NOW^%DTC DIE2+2
FILE^DICN DIE2+1
^DIE DIE2+3
^DIR QTY+12, NOMAX+10
DRUG^PSDORP NOMAX, NOMAX+14
^PSDORP1 NOMAX+12
ASK^PSDORP1 NOMAX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests,"
  • Line Location: NOMAX+4
Function Call: WRITE
  • Prompt: !!,(PSDQTY\PSDR(1))," order"
  • Line Location: NOMAX+6
Function Call: WRITE
  • Prompt: " for ",PSDR(1)," ",NBKU,"."
  • Line Location: NOMAX+8
Function Call: WRITE
  • Prompt: !
  • Line Location: NOMAX+9
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: NOMAX+11
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: NOMAX+12
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: NOMAX+13
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:"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:
    • DIE2+3
Routine Call
  • DIR
  • Line Location:
    • QTY+12
    • NOMAX+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] QTY+2, QTY+4, DIE+1, DIE+2, DIE2*, DIE2+4, DIE2+5

Label References

Name Line Occurrences
DIE NOMAX, NOMAX+13
DIE2 DIE2
END QTY+12, NOMAX, NOMAX+10
QTY NOMAX+11

Naked Globals

Name Field # of Occurrence
^(0 QTY+2, 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*, NOMAX+2*, NOMAX+3*, NOMAX+4, NOMAX+7, NOMAX+9, NOMAX+12, NOMAX+13, END!
CNT1 END!
DA NOMAX+9!, END!, DIE2+1!, DIE2+3*
DA(1 DIE2+1*, DIE2+3*
DA(2 DIE2+1*, DIE2+3*
DD DIE2+1!
DIC END!, DIE2+1!*
DIC(0 DIE2+1*
DIE END!, DIE2+1!*, DIE2+3!
>> DILOCKTM DIE+1
DINUM END!, DIE2+1*
DIR QTY+12!, NOMAX+9!, NOMAX+10!, END!
DIR("?" QTY+9*, QTY+10*, QTY+11*, NOMAX+9*, NOMAX+10*
DIR("A" QTY+7*, QTY+8*, NOMAX+9*
DIR("B" QTY+7*, NOMAX+9*
DIR(0 QTY+6*, NOMAX+9*
DIROUT END!
DIRUT NOMAX+9!, NOMAX+10, END!
DIWF END!
DIWL END!
DIWR END!
DO DIE2+1!
DR END!, DIE2+1!, DIE2+3*!
DTOUT END!
DUOUT END!
LN END!
MSG END!, MSG+1
MSG1 END!, MSG+2
NAOU QTY+2, END+1!, DIE+1, DIE+2, DIE2, DIE2+1, DIE2+3, DIE2+4, DIE2+5
NAOUN QTY+9, END+1!
NBKU QTY+2, QTY+7, QTY+8, QTY+10, QTY+11, NOMAX+5, NOMAX+8, END+1!
NPKG QTY+7, END+1!
OK END+1!
OKTYP END+1!
ORD QTY!, NOMAX+13*, END+1!
ORD( NOMAX+13*
PSDA NOMAX+13, END+1!, DIE2*, DIE2+1, DIE2+3, DIE2+4
PSDOUT QTY*, NOMAX, NOMAX+14, END+1!
PSDQTY QTY+12*, NOMAX+2, NOMAX+6, NOMAX+12*, END+1!, DIE2+3
PSDR QTY+2, QTY+4, END+1!, DIE+1, DIE+2, DIE2, DIE2+1, DIE2+3, DIE2+4, DIE2+5
PSDR(1 QTY+4*, QTY+8, QTY+10, QTY+11, NOMAX, NOMAX+2, NOMAX+3, NOMAX+6, NOMAX+8, NOMAX+12
PSDR(2 QTY*, NOMAX+2*, NOMAX+5, NOMAX+7, NOMAX+12
PSDRD END+1!
PSDRN QTY+10, QTY+11, NOMAX+13, END+1!
PSDS QTY+4, END+1!, DIE2+3
PSDT END+1!, DIE2+2*, DIE2+3
PSDUZ END+1!
PSDUZA END+1!, DIE2+4*
PSDUZN END+1!
REQD END+1!
TEXT END+1!
TYPE END+1!
U QTY+2, QTY+4
WORD END+1!
X END+1!, DIE2+1*
Y QTY+12, NOMAX, NOMAX+3, NOMAX+11, NOMAX+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