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

Package: Controlled Substances

Routine: PSDRFR


Information

PSDRFR ;BIR/JPW,LTL,BJW-Nurse RF Return to stock ; 11 May 98

Source Information

Source file <PSDRFR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Controlled Substances 3 ^PSDRFV  UPDATE^PSDRFX  ^PSDSET  
Kernel 3 ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XQH  SIG^XUSESIG  
VA Fileman 3 ^DIC  $$FMDIFF^DILIBF  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NURSE NOT GIVEN  

Entry Points

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

External References

Name Field # of Occurrence
^DIC NAOU+5, PATIENT+5, MM+15
$$FMDIFF^DILIBF MM+7, MM+10
^DIR DRUG+3, QTY+2, WASTE+4, REA+1
^PSDRFV BAL+2
UPDATE^PSDRFX REA+6
^PSDSET PSDRFR+6
$$FMADD^XLFDT BAL+5, QTY+4
$$FMTE^XLFDT QTY+5
$$NOW^XLFDT BAL+5, QTY+4
EN^XQH PSDRFR+8
SIG^XUSESIG NURSE

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: PSDRFR+7
Function Call: WRITE
  • Prompt: !!,"Please enter the ward from which the drug(s) was 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: !!,"Returns can only be recorded within "
  • Line Location: PATIENT+0
Function Call: WRITE
  • Prompt: NAOU(1)," hours after signing out a dose."
  • Line Location: PATIENT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please enter more than one character.",!
  • Line Location: MM+1
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: MM+12
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: MM+15
Function Call: WRITE
  • Prompt: $C(7),!!,"This is not a valid Pharmacy Dispensing number for this ward.",!!
  • Line Location: MM+17
Function Call: WRITE
  • Prompt: !!,"No doses signed out",!!
  • Line Location: BAL+3
Function Call: WRITE
  • Prompt: !!,"The last dose was signed out at ",PSDA(2),", over ",NAOU(1)," hours ago.",!!,"It is too late to return to stock.",!!
  • Line Location: BAL+5
Function Call: WRITE
  • Prompt: !!,"Sorry, only the person who signed out the dose can return to stock.",!!
  • Line Location: BAL+6
Function Call: WRITE
  • Prompt: !!,"Starting Balance: "_$P(PSDR(1),U,4)_" "_$P(PSDR(1),U,8)
  • Line Location: BAL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !!,"Balance: ",$P(PSDR(1),U,4)+PSDRETQ," ",$P(PSDR(1),U,8),!!
  • Line Location: REA+6
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+5
    • MM+15
Routine Call
  • DIR
  • Line Location:
    • DRUG+3
    • QTY+2
    • WASTE+4
    • REA+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" PSDRFR+9
^PSD(58.8 - [#58.8] NAOU+1, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+1, MM+6, MM+12
, BAL
^PSD(58.81 - [#58.81] MM+2, MM+4, BAL+4, END*
^PSDRUG - [#50] MM+6, MM+9, MM+12, MM+18
^VA(200 - [#200] PSDRFR+8

Label References

Name Line Occurrences
DRUG MM+1
END PSDRFR+8, NURSE, NAOU+5, NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PATIENT+5
, DRUG+3, MM+12, MM+13, MM+17, BAL+2, BAL+3, BAL+5, BAL+6, QTY+2, WASTE
MSG NAOU+6, NAOU+7, NAOU+8, NAOU+9, NAOU+10, NAOU+11
PATIENT NAOU+1, MM+13
REA WASTE+2

Naked Globals

Name Field # of Occurrence
^(6 PATIENT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+1!
%H END+1!
%I END+1!
CNT END+1!
CNT1 END+1!
DA NAOU+3!, END+1!
DA(1 MM+14*
DIC NAOU+3!*, NAOU+5!, PATIENT+3~*, PATIENT+5!, MM+14*, MM+15!, END+1!
DIC("A" NAOU+3*, PATIENT+4*
DIC("S" NAOU+4*
DIC(0 NAOU+3*, PATIENT+3*, MM+14*
DIE END+1!
DINUM END+1!
DIR DRUG+1~, DRUG+3!, QTY+2!, WASTE+4!, REA+1!, END+1!
DIR("A" DRUG+2*, QTY+1*, WASTE+3*
DIR("B" WASTE+4*, REA*
DIR(0 DRUG+2*, QTY*, WASTE+3*, REA*
DIROUT END+1!
DIRUT DRUG+3, QTY+2, WASTE+4, REA+1, END+1!
DIWF END+1!
DIWL END+1!
DIWR END+1!
DR END+1!
DT PSDRFR+9, MM+7, MM+10
DTOUT PATIENT+3~, MM+13, MM+15, END+1!
DUOUT PATIENT+3~, MM+13, MM+15, END+1!
DUZ PSDRFR+8, PSDRFR+9, BAL+6
LN END+1!
MSG PSDRFR+9*, NAOU+6*, NAOU+7*, NAOU+8*, NAOU+9*, NAOU+10*, NAOU+11*, END+1!, MSG+1
MSG1 PSDRFR+9*, NAOU+7*, NAOU+9*, NAOU+11*, END+1!, MSG+2
NAOU NAOU+1, NAOU+5*, NAOU+6, NAOU+7, NAOU+8, NAOU+9, PATIENT+1, MM+4, MM+6, MM+12
, MM+14, BAL, END+2!
NAOU(1 PATIENT+1*, PATIENT+2, BAL+5
NAOUN NAOU+5*, END+2!
NBKU END+2!
NPKG END+2!
OK END+2!
OKTYP END+2!
OQTY BAL*, BAL+4*, QTY, QTY+2, WASTE, WASTE+2, WASTE+3, WASTE+4, WASTE+5, WASTE+6
, END+2!
ORD END+2!
PAT PATIENT+5*, END+2!
PSD DRUG+1~, MM+3*, MM+4*
PSD(1 MM+4*, MM+7, MM+9, MM+10
PSDA END+2!
PSDA(1 BAL+3, BAL+4, END
PSDA(2 BAL+5, QTY+1
PSDA(3 BAL+5
PSDA(4 BAL+6
PSDAR END+2!
PSDAR(1 QTY+5*, WASTE+1*, WASTE+3
PSDDAVE BAL+2!
PSDDT DRUG+1~, MM+7*, MM+8, MM+10*, MM+11
PSDEM END+2!
PSDOUT PATIENT+3~, BAL+2*, QTY+2*, WASTE, WASTE+2, WASTE+4*, REA+1*, END, END+1, END+2!
PSDPN MM+4*, END+2!
PSDQ DRUG+1~, QTY+3*, WASTE, WASTE+2, WASTE+3, WASTE+4, WASTE+6, REA+5*, END, END+2!
PSDQ(1 WASTE+5*, REA+5
PSDQ(2 WASTE+6, END
PSDQTY END+2!
PSDR DRUG+1~, MM+4*, MM+5, MM+8*, MM+11!, MM+12, MM+13, MM+16*, MM+17, MM+18
, BAL, END+2!
PSDR(1 BAL*, BAL+7, REA+6
PSDRD END+2!
PSDRE END+2!
PSDRE(1 REA+2*
PSDRET QTY+4*, QTY+5, END+2!
PSDRETQ REA+4~, REA+5*, REA+6, END+2!
PSDRN END+2!
PSDS NAOU+1*, NAOU+9*, NAOU+10, NAOU+11, END+2!
>> PSDSITE PSDRFR+6
PSDT END+2!
PSDTYP MM+4*, MM+16*, END+1!
PSDUZ PSDRFR+9*, END+2!
PSDUZN END+2!
REQD PSDRFR+9*, END+2!
TEXT END+2!
TYPE END+2!
U PSDRFR+8, NAOU+1, NAOU+8, PATIENT+1, MM+4, MM+7, MM+10, MM+18, BAL, BAL+4
, BAL+7, REA+6, END
WORD END+2!
WQTY WASTE+5*, WASTE+6*, WASTE+7, REA+5, END+2!
X NURSE~, PATIENT+3~, END+2!
X1 NURSE~
XQH PSDRFR+8~*
Y PSDRFR+9*, NAOU+5, PATIENT+3~, PATIENT+5, MM+1, MM+2, MM+4, MM+5, MM+6, MM+8
, MM+9, MM+12, MM+13, MM+15, MM+16, QTY+2, QTY+3, WASTE+5, REA+2, END+2!
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