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

Package: Controlled Substances

Routine: PSDRFS


Information

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

Source Information

Source file <PSDRFS.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Controlled Substances 6 ^PSDRF2  UPDAT^PSDRFT  ^PSDRFU  ^PSDRFV  ^PSDRFZ  ^PSDSET  
VA FileMan 4 ^%DT  ^DIC  $$FMDIFF^DILIBF  ^DIR  
Kernel 3 EN^XQH  SIG^XUSESIG  $$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: 2

Package Total Caller Graph
Controlled Substances 2 PSD NURSE DELAYED DISPENSE  PSDRFU  

Entry Points

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

External References

Name Field # of Occurrence
^%DT WIT+5
^DIC NAOU+5, PATIENT+2, DRUG+19, ADMN+1
$$FMDIFF^DILIBF DRUG+11, DRUG+14
^DIR DRUG+4, BAL+7, QTY+1
^PSDRF2 BAL+8
UPDAT^PSDRFT ADMN+4
^PSDRFU LIQ
^PSDRFV BAL+3
^PSDRFZ WIT+5
^PSDSET PSDRFS+6
EN^XQH PSDRFS+8
SIG^XUSESIG NURSE
$$WITNESS^XUVERIFY WIT

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: PSDRFS+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+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BAL+7
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+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMN+1
Function Call: WRITE
  • Prompt: !,"Witness and Sign Out Nurse can not be the same person"
  • Line Location: ADMN+2
Function Call: WRITE
  • Prompt: !!,"Remaining Balance: ",$P(PSDR(1),U,4)-PSDQ," ",$P(PSDR(1),U,8)
  • Line Location: ADMN+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
  • DIC
  • Line Location:
    • NAOU+5
    • PATIENT+2
    • DRUG+19
    • ADMN+1
Routine Call
  • DIR
  • Line Location:
    • DRUG+4
    • BAL+7
    • QTY+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDRFS+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+1
^PSDRUG - [#50] DRUG+10, DRUG+13, DRUG+16, DRUG+22
^VA(200 - [#200] PSDRFS+8, WIT+3

Label References

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