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

Package: Controlled Substances

Routine: PSDEA


Information

PSDEA ;BIR/JPW-List Drug Name & DEA Special Handling ; 2 Aug 94

Source Information

Source file <PSDEA.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;asks device and queueing information
START ;compiles and prints data for report
PRINT ;print from ^tmp
DONE
END ;
HEADER ;prints header information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report lists Drug name, DEA Special Handling, and NDC information",!,"for all drugs marked for Controlled Substances use.",!
  • Line Location: PSDEA+2
Function Call: WRITE
  • Prompt: !,"This report is designed for an 80 column format.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,?10,"NO DATA FOR THE DEA SPECIAL HANDLING REPORT!!",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?15,"DEA SPECIAL HANDLING FOR CS PHARM DRUGS",!,?29,RPDT,?70,"PAGE: "_PG
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,?48,"DEA SPECIAL",!,"DRUG NAME",?49,"HANDLING",?70,"NDC",!,LN,!
  • Line Location: HEADER+4
Info |  Source |  Entry Points |  Interaction Calls