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

Package: Controlled Substances

Routine: PSDORD3


Information

PSDORD3 ;BIR/LTL-Reg 2 Nurse CS Order Request Entry (batch) ; 6 Jan 95

Source Information

Source file <PSDORD3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 NOW^%DTC  FILE^DICN  ^DIE  ^DIR  
Controlled Substances 1 DRUG^PSDORD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORD  

Entry Points

Name Comments DBIA/ICR reference
NOMAX
DIE ;create the order request
END
QTY

External References

Name Field # of Occurrence
NOW^%DTC DIE+4
FILE^DICN DIE+3
^DIE DIE+5
^DIR QTY+12, NOMAX+8, NOMAX+18
DRUG^PSDORD NOMAX, NOMAX+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests,"
  • Line Location: NOMAX+12
Function Call: WRITE
  • Prompt: !!,(PSDQTY\PSDR(1))," order"
  • Line Location: NOMAX+14
Function Call: WRITE
  • Prompt: " for ",PSDR(1)," ",NBKU,"."
  • Line Location: NOMAX+16
Function Call: WRITE
  • Prompt: !
  • Line Location: NOMAX+17
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: NOMAX+19
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created.",!
  • Line Location: NOMAX+20
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: NOMAX+21
Function Call: WRITE
  • Prompt: ?10,!!,"processing now..."
  • Line Location: DIE+4
Routine Call
  • DIE
  • Line Location:
    • DIE+5
Routine Call
  • DIR
  • Line Location:
    • QTY+12
    • NOMAX+8
    • NOMAX+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] QTY+2, QTY+6, NOMAX+21, DIE+1, DIE+2*, DIE+6

Label References

Name Line Occurrences
DIE NOMAX, NOMAX+21, DIE+2
END QTY+12, NOMAX, NOMAX+2, NOMAX+18
NOMAX NOMAX+2
QTY NOMAX+2, NOMAX+19

Naked Globals

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