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

Package: Controlled Substances

Routine: PSDRFU


Information

PSDRFU ;BIR/JPW,LTL-Nurse RF Delayed Dispensing Liquid ;8 Aug 94

Source Information

Source file <PSDRFU.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Controlled Substances 2 DRUG^PSDRFS  UPDAT^PSDRFT  
Kernel 1 $$WITNESS^XUVERIFY  

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 PSDRFS  

Entry Points

Name Comments DBIA/ICR reference
QTY
WASTE
WIT
ADMN
END
MSG ;display error message

External References

Name Field # of Occurrence
^%DT WIT+6
^DIC ADMN
^DIR QTY+1, WASTE+2
DRUG^PSDRFS ADMN+3
UPDAT^PSDRFT ADMN+3
$$WITNESS^XUVERIFY WIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Wait a minute, you can't witness yourself!",$C(7)
  • Line Location: WIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMN+0
Function Call: WRITE
  • Prompt: !,"Witness and Sign Out Nurse can not be the same person"
  • Line Location: ADMN+1
Function Call: WRITE
  • Prompt: !!,"Remaining Balance: ",$P(PSDR(1),U,4)-PSDQ," ",$P(PSDR(1),U,8)
  • Line Location: ADMN+2
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:
    • ADMN
Routine Call
  • DIR
  • Line Location:
    • QTY+1
    • WASTE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] WIT+3

Label References

Name Line Occurrences
ADMN ADMN+1
END QTY+1, WASTE, WIT+6, ADMN
WIT WIT+1

Naked Globals

Name Field # of Occurrence
^( WIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT WIT+5*, WIT+6!, END!
%DT("A" WIT+5*
%DT(0 WIT+5*
%H END!
%I END!
CNT END!
CNT1 END!
DA END!
DIC WIT+7*, ADMN!, END!
DIC("A" WIT+7*
DIC(0 WIT+7*
DIE END!
DINUM END!
DIR QTY+1!, WASTE+2!, END!
DIR("A" QTY*, WASTE+1*
DIR(0 QTY*, WASTE+1*
DIROUT END!
DIRUT WASTE+2, END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DTOUT END!
DUOUT END!
DUZ WIT+1, ADMN
LN END!
MSG END!, MSG+1
MSG1 END!, MSG+2
NAOU END+1!
NAOUN END+1!
NBKU END+1!
NPKG END+1!
>> NUR1 ADMN*, ADMN+1
>> NUR1(1 ADMN*
>> NUR2 WIT*, WIT+1, WIT+2, WIT+3, ADMN+1
OK END+1!
OKTYP END+1!
>> OQTY QTY, QTY+1*
ORD END+1!
PSDA END+1!
PSDEM END+1!
PSDOUT WASTE, WASTE+2*, WIT+2*, END, END+1!
>> PSDQ QTY+1*, WASTE, WASTE+3, WIT+4*, ADMN+2
PSDQTY END+1!
PSDR END+1!
PSDR(1 ADMN+2
PSDRD END+1!
PSDRN END+1!
PSDS END+1!
PSDT WIT+6*, END+1!
PSDUZ END+1!
PSDUZN END+1!
REQD END+1!
TEXT END+1!
TYPE END+1!
U WIT+3, ADMN+2
WORD END+1!
>> WQTY WASTE+3*, WIT+4
X END+1!
Y QTY+1, WASTE+2, WIT+6, ADMN, 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