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

Package: Controlled Substances

Routine: PSDORD4


Information

PSDORD4 ;BIR/JPW,LTL-Nurse CS Order Request Entry (One time); 22 May 95

Source Information

Source file <PSDORD4.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDORD  

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 PSDORD4+9
FILE^DICN DIE2+1
^DIE DIE2+4
^DIR PSDORD4+7
LIST^PSDORL PSDORD4+14
^PSDORM PSDORD4+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sending a Mailman message to the Pharmacy Supervisor(s)...",!!
  • Line Location: PSDORD4+13
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:
    • PSDORD4+9
Routine Call
  • DIR
  • Line Location:
    • PSDORD4+7

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)
^PSD(58.8 - [#58.8] PSDORD4+4, PSDORD4+8, PSDORD4+9, PSDORD4+10, DIE+1, DIE2*, DIE2+5

Label References

Name Line Occurrences
DIE QTY
DIE2 DIE2
END PSDORD4+8, PSDORD4+11, PSDORD4+12, QTY
MSG PSDORD4+8, PSDORD4+11, PSDORD4+12

Naked Globals

Name Field # of Occurrence
^(0 PSDORD4+10, DIE+1*

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 PSDORD4+9*, DIE2+1*, DIE2+4*
DA(2 DIE2+1*, DIE2+4*
DD DIE2+1!
DIC PSDORD4+9*!, END!, DIE2+1!*
DIC("DR" PSDORD4+9*
DIC(0 PSDORD4+9*, DIE2+1*
DIE END!, DIE2+1!*, DIE2+4!
DINUM PSDORD4+9*, END!, DIE2+1*
DIR PSDORD4+7!, END!
DIR("?" PSDORD4+6*
DIR("A" PSDORD4+3*, PSDORD4+4*, PSDORD4+5*
DIR("B" PSDORD4+2*
DIR(0 PSDORD4+2*
DIROUT END!
DIRUT END!
DIWF END!
DIWL END!
DIWR END!
DLAYGO PSDORD4+9*!
DO DIE2+1!
DR END!, DIE2+1!, DIE2+4*!
DT PSDORD4+9
DTOUT END!
DUOUT END!
LN END!
MSG PSDORD4+8*, END!, MSG+1
MSG1 PSDORD4+11*, PSDORD4+12*, END!, MSG+2
>> NAOU PSDORD4+4, PSDORD4+9, DIE+1, DIE2, DIE2+1, DIE2+4, DIE2+5
>> NAOUN PSDORD4+4
>> NBKU PSDORD4+10*, PSDORD4+11
>> NPKG PSDORD4+10*, PSDORD4+12, QTY
ORD QTY!
>> PSDA DIE2*, DIE2+1, DIE2+4, DIE2+5
>> PSDA( DIE2+5*
PSDEM END+1!
PSDOUT QTY*, END+1!
>> PSDQTY QTY*, DIE2+3, DIE2+4
>> PSDR PSDORD4+4, PSDORD4+8, PSDORD4+9, PSDORD4+10, DIE+1, DIE2, DIE2+1, DIE2+4, DIE2+5
>> PSDRN PSDORD4+3
>> PSDS PSDORD4+8, PSDORD4+10, DIE2+4
>> PSDT DIE2+2*, DIE2+4
>> PSDUZ DIE2+4
X PSDORD4+9*, END+1!, DIE2+1*
Y PSDORD4+7, 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