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

Package: Controlled Substances

Routine: PSDRF


Information

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

Source Information

Source file <PSDRF.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Controlled Substances 5 UPDAT^PSDRF1  ^PSDRF2  ^PSDRFL  ^PSDRFV  ^PSDSET  
Kernel 3 EN^XQH  SIG^XUSESIG  $$WITNESS^XUVERIFY  
VA Fileman 3 ^DIC  $$FMDIFF^DILIBF  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSD NURSE DISPENSING  PSDRF2  PSDRFL  

Entry Points

Name Comments DBIA/ICR reference
WASTE
PATIENT
DRUG ;select drug
QTY
WIT
LIQ
MSG ;display error message
END
NURSE
NAOU ;select NAOU to dispense from
BAL

External References

Name Field # of Occurrence
^DIC NAOU+5, PATIENT+2, DRUG+19
$$FMDIFF^DILIBF DRUG+11, DRUG+14
^DIR DRUG+4, BAL+8, QTY+1
UPDAT^PSDRF1 WIT+6
^PSDRF2 BAL+9
^PSDRFL LIQ
^PSDRFV BAL+4
^PSDSET PSDRF+6
EN^XQH PSDRF+8
SIG^XUSESIG NURSE
$$WITNESS^XUVERIFY WIT+1

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: PSDRF+7
Function Call: WRITE
  • Prompt: !!,"Please enter the ward from which the drug(s) will be signed out."
  • Line Location: NAOU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+5
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: $C(7),!!,"Please enter more than one character.",!
  • Line Location: DRUG+5
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+16
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+19
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: DRUG+21
Function Call: WRITE
  • Prompt: !!,"Sorry, this drug has a zero balance."
  • Line Location: BAL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BAL+8
Function Call: WRITE
  • Prompt: !!,"Wait a minute, you can't witness yourself!",$C(7)
  • Line Location: WIT+2
Function Call: WRITE
  • Prompt: !!,"Remaining Balance: ",$P(PSDR(1),U,4)-PSDQ," ",$P(PSDR(1),U,8)
  • Line Location: WIT+5
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+5
    • PATIENT+2
    • DRUG+19
Routine Call
  • DIR
  • Line Location:
    • DRUG+4
    • BAL+8
    • QTY+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDRF+9
^PSD(58.8 - [#58.8] NAOU+1, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, DRUG+10, DRUG+16, BAL
, LIQ
^PSD(58.81 - [#58.81] DRUG+6, DRUG+8, BAL+2
^PSDRUG - [#50] DRUG+10, DRUG+13, DRUG+16, DRUG+22
^VA(200 - [#200] PSDRF+8, WIT+4

Label References

Name Line Occurrences
DRUG DRUG+5, BAL+2, WIT+6
END PSDRF+8, NURSE, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+2
, DRUG+4, DRUG+16, DRUG+17, DRUG+21, BAL+4, BAL+8, BAL+9, BAL+10, QTY+1, WASTE
MSG NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11
PATIENT NAOU+1, DRUG+4, DRUG+17
WIT WIT+2, WIT+3

Naked Globals

Name Field # of Occurrence
^( WIT+4

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+3!, END!
DA(1 DRUG+18*
DIC NAOU+3!*, NAOU+5!, PATIENT~*, PATIENT+2!, DRUG+18*, DRUG+19!, END!
DIC("A" NAOU+3*, PATIENT+1*
DIC("S" NAOU+4*
DIC(0 NAOU+3*, PATIENT*, DRUG+18*
DIE END!
DINUM END!
DIR DRUG+1~, DRUG+4!, BAL+8!, QTY+1!, END!
DIR("?" BAL+7*
DIR("A" DRUG+3*, BAL+5*, QTY*
DIR("B" BAL+6*, QTY+1*
DIR(0 DRUG+2*, BAL+5*, QTY*
DIROUT END!
DIRUT DRUG+4, BAL+8, END!
DIWF END!
DIWL END!
DIWR END!
DR END!
DT PSDRF+9, DRUG+11, DRUG+14
DTOUT PATIENT~, DRUG+17, DRUG+19, END!
DUOUT PATIENT~, DRUG+17, DRUG+19, END!
DUZ PSDRF+8, PSDRF+9, BAL+6, WIT+2
LN END!
MSG PSDRF+9*, NAOU+6*, NAOU+7*, NAOU+8*, NAOU+9*, NAOU+10*, NAOU+11*, END!, MSG+1
MSG1 PSDRF+9*, NAOU+7*, NAOU+9*, NAOU+11*, END!, MSG+2
NAOU NAOU+1, NAOU+5*, NAOU+6, NAOU+7, NAOU+8, NAOU+9, DRUG+8, DRUG+10, DRUG+16, DRUG+18
, BAL, END+1!
NAOUN NAOU+5*, END+1!
NBKU END+1!
NPKG END+1!
>> NUR1 BAL+6*
NUR2 WIT+1*, WIT+2, WIT+3, WIT+4, END+1!
NUR2(1 WIT, WIT+1*, WIT+3
OK END+1!
OKTYP END+1!
>> OQTY BAL*, BAL+1, BAL+2, BAL+5, BAL+9*, QTY, QTY+1*
ORD END+1!
PAT PATIENT+2*, END+1!
PSD DRUG+1~, DRUG+7*, DRUG+8*, BAL+2
PSD(1 DRUG+8*, DRUG+11, DRUG+13, DRUG+14
PSDA END+1!
PSDDAVE BAL+4!
PSDDT DRUG+1~, DRUG+11*, DRUG+12, DRUG+14*, DRUG+15
PSDEM END+1!
PSDOUT PATIENT~, BAL+4*, BAL+9, WASTE, WIT+3*, END, END+1!
>> PSDPN DRUG+8*
PSDQ DRUG+1~, QTY+1*, WASTE, WASTE+1, WIT+4*, WIT+5
PSDQ(1 BAL+9
PSDQTY END+1!
PSDR DRUG+1~, DRUG+8*, DRUG+9, DRUG+12*, DRUG+15!, DRUG+16, DRUG+17, DRUG+20*, DRUG+21, DRUG+22
, BAL, LIQ, END+1!
PSDR(1 BAL*, BAL+5, BAL+9*, WIT+5
PSDRD END+1!
PSDRN END+1!
PSDS NAOU+1*, NAOU+9*, NAOU+10, NAOU+11, BAL+10, LIQ, END+1!
>> PSDSITE PSDRF+6
PSDT END+1!
>> PSDTYP DRUG+8*, DRUG+20*, BAL+9*
PSDUZ PSDRF+9*, END+1!
PSDUZN END+1!
REQD PSDRF+9*, END+1!
TEXT END+1!
TYPE END+1!
U PSDRF+8, NAOU+1, NAOU+8, DRUG+8, DRUG+11, DRUG+14, DRUG+22, BAL, BAL+2, BAL+5
, BAL+9, LIQ, WIT+4, WIT+5
WORD END+1!
WQTY DRUG+1~, WASTE+1*
X NURSE~, PATIENT~, END+1!
X1 NURSE~
XQH PSDRF+8~*
Y PSDRF+9*, NAOU+5, PATIENT~, PATIENT+2, DRUG+4, DRUG+5, DRUG+6, DRUG+8, DRUG+9, DRUG+10
, DRUG+12, DRUG+13, DRUG+16, DRUG+17, DRUG+19, DRUG+20, BAL+9, QTY+1, END+1!
Y(0 BAL+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