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

Package: Controlled Substances

Routine: PSDESTF


Information

PSDESTF ;BIR/BJW - Add Non-CS Drug to Holding file ;26 Feb 98

Source Information

Source file <PSDESTF.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
DEST ;set up file 58.86
DIR ;ask free-text drug name
DIR0 ;
DIR2
DIR3 ;enter free-text information(comments)
ASKY ;ask ok to continue
FIND
PRINT ;print 2321
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: PSDESTF+6
Function Call: WRITE
  • Prompt: !!,?5,"NOTE: This Holding for Destruction transaction WILL NOT update your",!,?5,"Controlled Substances inventory balance.",!!
  • Line Location: PSDESTF+8
Function Call: WRITE
  • Prompt: !!,"You may create a free-text CS drug to place on hold for destruction.",!,"Your Dispensing Site inventory balance WILL NOT be updated.",!!
  • Line Location: DIR+1
Function Call: WRITE
  • Prompt: !,"A semicolon is not allowed in the DRUG ITEM field. Please edit your entry.",!,$C(7)
  • Line Location: DIR0+4
Function Call: WRITE
  • Prompt: !!,"You may enter free-text info regarding drug placed on hold for destruction."
  • Line Location: DIR3+1
Function Call: WRITE
  • Prompt: !,"A semicolon is not allowed in the COMMENTS field. Please edit your entry.",!,$C(7)
  • Line Location: DIR3+4
Function Call: WRITE
  • Prompt: !!,PSDRN," has been selected.",!
  • Line Location: ASKY+1
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: PRINT+1
Function Call: WRITE
  • Prompt: !!,"No copies printed!!",!!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 9",!
  • Line Location: PRINT+2
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