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

Package: Controlled Substances

Routine: PSDEST


Information

PSDEST ;BIR/BJW - Destroy a Drug from the Holding file ;9 Feb 98

Source Information

Source file <PSDEST.m>

Entry Points

Name Comments DBIA/ICR reference
SETDATE ;7/17/96,inital set to current date
ASKD ;ask disp location
ASKN ;ask holding number
DISPLAY ;
OK ;ask ok
DATE ; ask date,7/17/96 added %DT("B")default date or user can enter new date
OK1 ;ask if entry error
OK2 ;ask do you want to cancel holding #,E3R# 4990
DIRC ;enter reason,date and pharmacist cancelling holding #,E3R# 4990
COM ; enter free-text information(comments)
DIE1 ;update 58.86 for cancelling holding #,E3R# 4990
DIE ;update 58.86
END
MSG
MSG1 ;msg when already destroyed
MSG2 ;msg when cancelled,E3R# 4990

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy Coordinator for access to",!,"destroy Controlled Substances.",!!,"PSDMGR security key required.",!
  • Line Location: PSDEST+4
Function Call: WRITE
  • Prompt: !!,?3,"**Searching for the next available drug awaiting destruction**",!
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !!,?3,"**You Must enter a DATE to destroy or cancel this Holding Num**"
  • Line Location: ASKN+5
Function Call: WRITE
  • Prompt: @IOF,!,"HOLDING FOR DESTRUCTION",!,LN,!!,"Holding Number: ",NUM
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Drug: ",PSDRN,!,"Quantity "_$S($D(^PSD(58.8,+PSDR,0)):"("_NBKU_")",1:"")_": ",QTY,!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,"A semicolon is not allowed in the COMMENTS field. Please edit your entry.",$C(7)
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !,"DATE/TIME CANCELLED: ",PSDT
  • Line Location: COM+6
Function Call: WRITE
  • Prompt: !,"CANCELLED BY: ",PSDUZAN
  • Line Location: COM+7
Function Call: WRITE
  • Prompt: !!,"Holding Number: ",NUM,?19," flagged as entry error"
  • Line Location: DIE1+4
Function Call: WRITE
  • Prompt: !,?3,"** Updating the record **",!
  • Line Location: DIE+2
Function Call: WRITE
  • Prompt: !!,?3,"=> Holding Number: ",NUM," has been destroyed.",!!
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !!,"No action taken",!!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Drug: ",PSDRN,!,"=> Destruction #: ",NUM," was destroyed on ",PSDST,".",!!
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Drug: ",PSDRN,!,"=> Destruction #: ",NUM," was cancelled on ",PSDCAN,".",!!
  • Line Location: MSG2+1
Info |  Source |  Entry Points |  Interaction Calls