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

Package: Controlled Substances

Routine: PSDEA41


Information

PSDEA41 ;BIR/BJW/DJE-Destroyed CS Drugs DEA 41 Report ; 15 JAN 96

Source Information

Source file <PSDEA41.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
ASKV ;ask vault(s),added 8/9/95
DEV ;select device
START ;start looping
PRINT ;prints data
DONE
END ;
HDR ;prints header information
SAVE ;saves variables for queueing
SIG ;print signature lines
SET ;sets data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single VAULT, several VAULT(s),",!,?5,"or enter ^ALL to select all VAULT(s).",!
  • Line Location: ASKV+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,?10,"*** NO CONTROLLED SUBSTANCE DESTRUCTIONS ***",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,PSDA,?10,$P(NODE,"^"),?55,$J($P(NODE,"^",2),3),?60,$J($P(NODE,"^",3),6),?69,$P(NODE,"^",4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!,?25,"END OF REPORT!!",!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,"DESTROYED CS DRUGS REPORT for DEA FORM 41",?70,"PAGE: ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,"Dispensing Site: ",PSDSN,!,?15,"Printed: ",RPDT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?55,"# OF",!,"HOLD #",?10,"DRUG",?55,"CONT",?63,"QTY",?69,"UNIT",!,LN,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!!,?23,"Date: _____________________________________",!!!,?15,"Destroyed By: _____________________________________",!
  • Line Location: SIG+1
Function Call: WRITE
  • Prompt: !!,?15,"Witnessed By: _____________________________________",!
  • Line Location: SIG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SIG+3

FileMan Files Accessed Via FileMan Db Call

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