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

Package: Controlled Substances

Routine: PSDRF4


Information

PSDRF4 ;BIR/JPW,LTL-Nurse RF damaged dose ; 8 Aug 94

Source Information

Source file <PSDRF4.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please enter the ward from which the defective drug(s) will be destroyed."
  • Line Location: NAOU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+5
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: !
  • Line Location: DEF+0
Function Call: WRITE
  • Prompt: !!,"Wait a minute, you can't witness yourself!",$C(7)
  • Line Location: WIT+1
Function Call: WRITE
  • Prompt: !!,"Thank you, ",$S($P($G(^VA(200,NUR2,.1)),U,4)]"":$P($G(^(.1)),U,4),1:$P($G(^VA(200,NUR2,0)),U))
  • Line Location: WIT+3
Function Call: WRITE
  • Prompt: !!,"Remaining Balance: ",$P(PSDR(1),U,4)-PSDQ," ",$P(PSDR(1),U,8)
  • Line Location: WIT+4
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
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call