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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDORNO

Package: Controlled Substances

Routine: PSDORNO


Information

PSDORNO ;BIR/JPW,LTL-Nurse CS Order Request Entry (One time); 15 Jan 95

Source Information

Source file <PSDORNO.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Controlled Substances 3 LIST^PSDORL  ^PSDORM  ASK^PSDORN1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSDORN  PSDORNC  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC DIE2+2
^DIC PSDORNO+18
FILE^DICN DIE2+1
^DIE DIE2+4
^DIR PSDORNO+11, PSDORNO+17
LIST^PSDORL PSDORNO+23
^PSDORM PSDORNO+23
ASK^PSDORN1 QTY+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDORNO+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDORNO+17
Function Call: WRITE
  • Prompt: !,"Inactive drug"
  • Line Location: PSDORNO+18
Function Call: WRITE
  • Prompt: !!,"Sending a Mailman message to the Pharmacy Supervisor(s)...",!!
  • Line Location: PSDORNO+22
Function Call: WRITE
  • Prompt: ?10,!!,"processing one order for ",PSDQTY," now..."
  • Line Location: DIE2+3
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
  • DIE
  • Line Location:
    • DIE2+4
Routine Call
  • DIC
  • Line Location:
    • PSDORNO+18
Routine Call
  • DIR
  • Line Location:
    • PSDORNO+11
    • PSDORNO+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDORNO+17
^PSD(58.8 - [#58.8] PSDORNO+8, PSDORNO+12, PSDORNO+18, PSDORNO+19, DIE+1, DIE+3, DIE2*

Label References

Name Line Occurrences
DIE QTY
DIE2 DIE2
END PSDORNO+12, PSDORNO+17, PSDORNO+18, PSDORNO+20, PSDORNO+21, QTY, QTY+1
MSG PSDORNO+12, PSDORNO+20, PSDORNO+21

Naked Globals

Name Field # of Occurrence
^(0 PSDORNO+19, DIE+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, DIE2+2
%DT END!
%H END!
%I END!
CNT QTY*, END!
CNT1 END!
DA END!, DIE2+1!, DIE2+4*
DA(1 PSDORNO+18*, DIE2+1*, DIE2+4*
DA(2 DIE2+1*, DIE2+4*
DD DIE2+1!
DIC PSDORNO+18*!, END!, DIE2+1!*
DIC("DR" PSDORNO+18*
DIC(0 PSDORNO+18*, DIE2+1*
DIE END!, DIE2+1!*, DIE2+4!
DINUM PSDORNO+18*, END!, DIE2+1*
DIR PSDORNO+11!, PSDORNO+17!, END!
DIR("?" PSDORNO+10*, PSDORNO+14*, PSDORNO+15*, PSDORNO+16*
DIR("A" PSDORNO+7*, PSDORNO+8*, PSDORNO+9*, PSDORNO+13*
DIR("B" PSDORNO+6*
DIR(0 PSDORNO+6*, PSDORNO+13*
DIROUT END!
DIRUT PSDORNO+17, END!
DIWF END!
DIWL END!
DIWR END!
DLAYGO PSDORNO+18*!
DO DIE2+1!
DR END!, DIE2+1!, DIE2+4*!
DT PSDORNO+18
DTOUT END!
DUOUT END!
LN END!
MSG PSDORNO+12*, END!, MSG+1
MSG1 PSDORNO+20*, PSDORNO+21*, END!, MSG+2
>> NAOU PSDORNO+8, PSDORNO+18, DIE+1, DIE+3, DIE2, DIE2+1, DIE2+4
>> NAOUN PSDORNO+8
>> NBKU PSDORNO+19*, PSDORNO+20
>> NPKG PSDORNO+19*, PSDORNO+21, QTY
ORD QTY!
>> PSDA DIE2*, DIE2+1, DIE2+4
PSDEM END+1!, DIE+2*, DIE2+4
PSDOUT QTY*, QTY+1, END+1!
>> PSDQTY QTY*, DIE2+3, DIE2+4
>> PSDR PSDORNO+8, PSDORNO+12, PSDORNO+18, PSDORNO+19, DIE+1, DIE+3, DIE2, DIE2+1, DIE2+4
>> PSDRN PSDORNO+7
>> PSDS PSDORNO+12, PSDORNO+19, DIE2+4
>> PSDT DIE2+2*, DIE2+4
>> PSDT(9 PSDORNO+17*
>> PSDUZ DIE2+4
X PSDORNO+18*, END+1!, DIE2+1*
Y PSDORNO+11, PSDORNO+17, PSDORNO+18, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All