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

Package: Controlled Substances

Routine: PSDNACT


Information

PSDNACT ;BIR/JPW-Inactivate NAOUs ; 6 July 94

Source Information

Source file <PSDNACT.m>

Entry Points

Name Comments DBIA/ICR reference
NAOU ;
END
LOOP ;asks for inactivating drugs and loops to complete
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"Inactivate NAOUs"
  • Line Location: PSDNACT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"This NAOU is now ACTIVE. Use the Inactivate NAOU Stock Drug option",!,"to reactivate stocked drugs within "_PSDN_"."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU!!",!!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !!,"Inactivating all stocked drugs within "_PSDN_"..."
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !!,PSDN," has been inactivated.",!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls