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

Package: Controlled Substances

Routine: PSDNSTK


Information

PSDNSTK ;BIR/JPW-Inactivate Stocked Drugs ; 8 Aug 94

Source Information

Source file <PSDNSTK.m>

Entry Points

Name Comments DBIA/ICR reference
END
INACT1 ;inactivate a drug for a single NAOU
LOOP
ASK ;ask inactivation date and reason
QUE ;asks queueing information
START ;
MSG ;send mailman message with completed info
DIE ;inactivate a Drug for NAOUs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may inactivate a Stocked Drug for a single NAOU,",!,?5,"or enter ^ALL to inactivate the Drug in ALL NAOUs.",!
  • Line Location: PSDNSTK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDNSTK+4
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU!!",!!
  • Line Location: INACT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!,PSDRN," is now INACTIVE.",!!
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!,"This "_PSDRN_" is ACTIVE on "_NAOUN_".",!!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"The DRUG you selected will not be inactivated.",!!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Inactivating now..."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed. ",!!
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN_" has been inactivated in "_CNT_" NAOU(s).",!
  • Line Location: START+2
Info |  Source |  Entry Points |  Interaction Calls