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 |  Local Variables  | All
Print Page as PDF
Routine: PSDRFD

Package: Controlled Substances

Routine: PSDRFD


Information

PSDRFD ;BIR/JPW,LTL-Nurse RF Dispensing ; 8 Aug 94

Source Information

Source file <PSDRFD.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Controlled Substances 1 ^PSDSET  
VA FileMan 1 ^DIC  

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

Package Total Caller Graph
Controlled Substances 1 PSD NURSE DISP MENU  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
NURSE ;N X,X1 D SIG^XUSESIG I X1="" G END
NAOU ;select NAOU to dispense from
END
MSG ;display error message

External References

Name Field # of Occurrence
^DIC NAOU+4
^PSDSET PSDRFD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to order",!,?12,"narcotic supplies.",!
  • Line Location: PSDRFD+3
Function Call: WRITE
  • Prompt: !!,"Please enter the ward from which the drug(s) will be signed out."
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+4
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+11
Function Call: WRITE
  • Prompt: !!,"Sorry, Pharmacy has not set up ",$G(NAOUN)," to keep a perpetual inventory."
  • Line Location: NAOU+13
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
  • DIC
  • Line Location:
    • NAOU+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDRFD+5
^PSD(58.8 - [#58.8] NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+13

Label References

Name Line Occurrences
END NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10
MSG NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
CNT END!
CNT1 END!
DA NAOU+2!, END!
DIC NAOU+2!*, NAOU+4!, END!
DIC("A" NAOU+2*
DIC("S" NAOU+3*
DIC(0 NAOU+2*
DIE END!
DINUM END!
DIR END!
DIROUT END!
DIRUT END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DT PSDRFD+5
DTOUT END!
DUOUT END!
DUZ PSDRFD+5
LN END!
MSG PSDRFD+5*, NAOU+5*, NAOU+6*, NAOU+7*, NAOU+8*, NAOU+9*, NAOU+10*, END!, MSG+1
MSG1 PSDRFD+5*, NAOU+6*, NAOU+8*, NAOU+10*, END!, MSG+2
>> NAOU NAOU+4*, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+13, END+2
>> NAOUN NAOU+4*, NAOU+13
NBKU END+1!
NPKG END+1!
OK END+1!
OKTYP END+1!
ORD END+1!
PSDA END+1!
PSDEM END+1!
PSDOUT END, END+1!
PSDQTY END+1!
PSDR END+1!
PSDRD END+1!
PSDRN END+1!
PSDS NAOU+8*, NAOU+9, NAOU+10, END+1!
>> PSDSITE PSDRFD+2
PSDT END+1!
PSDUZ PSDRFD+5*, END+1!
PSDUZN END+1!
REQD PSDRFD+5*, END+1!
TEXT END+1!
TYPE END+1!
U NAOU+7, NAOU+13
WORD END+1!
X END+1!
>> XQUIT NAOU+13*, END+2*, MSG+3*
Y PSDRFD+5*, NAOU+4, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All