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

Package: Controlled Substances

Routine: PSDNTT1


Information

PSDNTT1 ;BIR/BJW - Transfer Green Sheet - Receive this NAOU ;17 JUL 97

Source Information

Source file <PSDNTT1.m>

Entry Points

Name Comments DBIA/ICR reference
COM ;complete order and transaction
DIE ;create the order request in 58.8
DIE2
ADD ;find entry number in 58.81
FIND
EDIT ;edit new transaction in 58.81
BAL ;update naou to balance
COMP ;completed msg
MSG ;send mail message
END
DRUG ;add drug and inactivate it

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRGN," information...",!!
  • Line Location: COM+2
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: COM+4
Function Call: WRITE
  • Prompt: "order..."
  • Line Location: DIE2+1
Function Call: WRITE
  • Prompt: "transaction..."
  • Line Location: DIE2+8
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: COMP+1
Function Call: WRITE
  • Prompt: ?2,!,"*** The status of your Green Sheet #"_PSDPN_" is now",!,?2,$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: COMP+3

FileMan Files Accessed Via FileMan Db Call

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