Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call