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

Package: Controlled Substances

Routine: PSDSTK


Information

PSDSTK ;BIR/JPW-Stock Drugs Enter/Edit ; 8 Aug 94

Source Information

Source file <PSDSTK.m>

Entry Points

Name Comments DBIA/ICR reference
STOCK ;entry for NAOU stocked drugs into file 58.8
END
DRUG ;add drugs
DIE
CHKID ;check for current inactivation date
CHKNP ;check for non-CS entries in file 50
VAULT ;check for stock drugs in vault

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOCK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"This Drug is currently defined for this NAOU with an INACTIVATION DATE.",!!,?5,"If you want to add this Drug as a new standard Stock Drug for this NAOU",!,?5,"you must delete the INACTIVATION DATE.",!
  • Line Location: CHKID+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKID+4
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"This stocked drug is currently defined for this NAOU but appears to be",!,?5,"a non-CS drug. It has been inactivated as of "
  • Line Location: CHKNP+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: CHKNP+3
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: VAULT+1
Function Call: WRITE
  • Prompt: !!,"You may select only CS drugs stocked in your dispensing vault.",!!
  • Line Location: VAULT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VAULT+3
Info |  Source |  Entry Points |  Interaction Calls