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
Print Page as PDF
Routine: PSDNDES

Package: Controlled Substances

Routine: PSDNDES


Information

PSDNDES ;BIR/JPW-Dispense from Pharmacy w/o Green Sheet ; 8 Aug 94

Source Information

Source file <PSDNDES.m>

Entry Points

Name Comments DBIA/ICR reference
TEST ;to be reworked for narcotic disp equipment
ASKD ;ask disp loc
CHKD
DRUG ;select drug
NAOU ;select NAOU
QTY
ASKM
OK
END
MFG
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"dispense narcotic supplies. PSJ RPHARM or PSD TECH ADV",!?12,"security key required.",!
  • Line Location: PSDNDES+6
Function Call: WRITE
  • Prompt: !!,"For now this option is the same as dispense w/o green sheet.",!!
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"** Your Dispensing Site is missing stock drug data.",!,"Please contact your Pharmacy Coordinator for assistance.",!
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN," is missing breakdown unit or",!,"package size data in ",PSDSN,"."
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic breakdown unit",!,"for ",PSDRN,"."
  • Line Location: DRUG+9
Function Call: WRITE
  • Prompt: !!,PSDSN,"is missing narcotic package size",!,"for ",PSDRN,"."
  • Line Location: DRUG+10
Function Call: WRITE
  • Prompt: !!,"The drug balance for this drug is ",+$P(^PSD(58.8,PSDS,1,PSDR,0),"^",4),".",!,"You cannot dispense ",QTY," for this drug.",!!
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"Updating Expiration Date data..."
  • Line Location: MFG+5
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: MFG+5
Function Call: WRITE
  • Prompt: !!,"** No action taken. **",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls