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

Package: Controlled Substances

Routine: PSDESTO


Information

PSDESTO ;BIR/BJW-Add CS Non-Inv Drug to Holding file ; 28 Feb 98

Source Information

Source file <PSDESTO.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
DRUG ;ask non-inv CS drug
DEST ;set up file 58.86
DIR2
DIR ;enter free-text information
COM
ASKY ;ask ok to continue
FIND
TEMPX ;build temp file added june 96
RPTCPY ;ask # of report copies
END ;kill variables
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Please contact your Pharmacy Coordinator for access to",!,"destroy Controlled Substances.",!!,"PSJ RPHARM or PSD TECH ADV security key required.",!
  • Line Location: PSDESTO+6
Function Call: WRITE
  • Prompt: !!,?5,"NOTE: This Holding for Destruction transaction WILL NOT update your",!,?5,"Controlled Substances inventory balance.",!!
  • Line Location: PSDESTO+8
Function Call: WRITE
  • Prompt: !!,"You may select a Controlled Substances drug to place on hold for destruction.",!,"Your Dispensing Site inventory balance WILL NOT be updated.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,"You may enter free-text info regarding drug placed on hold for destruction."
  • Line Location: DIR+1
Function Call: WRITE
  • Prompt: !,"A semicolon is not allowed in the COMMENTS field. Please edit your entry.",!
  • Line Location: COM+3
Function Call: WRITE
  • Prompt: !!,PSDRN," has been selected.",!
  • Line Location: ASKY+1
Function Call: WRITE
  • Prompt: !!,"Select a new CS drug to place on hold for destruction",!!
  • Line Location: ASKY+5
Function Call: WRITE
  • Prompt: !!,"Creating an entry in the Destructions file..."
  • Line Location: ASKY+6
Function Call: WRITE
  • Prompt: !!,"Your Destructions Holding number is ",PSDHLD
  • Line Location: FIND+3
Function Call: READ
  • Variable: NUM
  • Timeout: DTIME
  • Line Location: RPTCPY+2
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: RPTCPY+2
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: RPTCPY+4
Function Call: WRITE
  • Prompt: $C(7),!!,"WARNING: Holding for Destructions entry HAS NOT been created.",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls