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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSDEN

Package: Controlled Substances

Routine: PSDEN


Information

PSDEN ;BIR/JPW-Enter NAOUs ; 6 July 94

Source Information

Source file <PSDEN.m>

Entry Points

Name Comments DBIA/ICR reference
NAOU ;entry for NAOUs into file 58.8
END
TYPE ;selects location type
DIE ;edit
WARD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to enter/edit",!,?12,"NAOUs. PSD PARAM security key required.",!
  • Line Location: PSDEN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"CONTROLLED SUBSTANCES SITE : "_SITEN
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No location type entered. Entry has been deleted!",!!
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: ?20,$P($G(^DIC(42,+PSDA(1),0)),U),!
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !!,PSDA(3)," removed.",!
  • Line Location: WARD+7
Function Call: WRITE
  • Prompt: !!,PSDA(3)," is already linked to ",PSDA(4),"."
  • Line Location: WARD+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call