Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  
VA FileMan 2 ^%DT  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD DEA LIST  

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

External References

Name Field # of Occurrence
^%DT START+2
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD HEADER+2
^DIR DONE+1, HEADER+1

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
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2
^PSDRUG - [#50] START+3, START+4, START+5
^PSDRUG("AIUN" START+3
^TMP("PSDEA" START+1!, START+6*, PRINT+2, PRINT+3, PRINT+4, END+2!
^VA(200 - [#200] HEADER+2

Label References

Name Line Occurrences
DONE PRINT+2
END DEV+2, DEV+3
HEADER PRINT+1, PRINT+3

Naked Globals

Name Field # of Occurrence
^(2 START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+2*, END+1!
%ZIS DEV+2!*, END+1!
%ZIS("B" DEV+2*
DA END+1!, HEADER+1!
DEA END+1!
DIR DONE+1!, END+1!, HEADER+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HEADER+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DTOUT END+1!
DUOUT END+1!
DUZ HEADER+2
IO DEV+4
IO("Q" DEV+2!, DEV+3!
IOF DONE, HEADER+3
IOP DEV+2!
IOSL PRINT+3
IOST DONE, DONE+1, HEADER+1
LN PRINT+1!*, END+1!, HEADER+4
NODE START+4*, PRINT+4*, PRINT+5, END+1!
NUM START+3*, START+4, START+5, START+6, PRINT+3*, PRINT+4, END+1!
PG START+2*, END+1!, HEADER+1, HEADER+3*
POP DEV+2!
PSD START+3*, END+1!
PSDEA START+4*, START+6, END+1!
PSDN START+4*, START+6, PRINT+3*, PRINT+4, PRINT+5, END+1!
PSDNDC START+5*, START+6, END+1!
PSDOUT START+2*, PRINT+3, DONE+1, END+1!, HEADER+1*, HEADER+2*
RPDT START+2*, END+1!, HEADER+3
U HEADER+2
X START+2*, END+1!
Y START+2, END+1!, HEADER+1
ZTDESC DEV+3*, END+1!, HEADER+2
ZTDTH DEV+3!
ZTIO DEV+3!, END+1!
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN DEV+3*, END+1!
ZTSAVE DEV+3!
ZTSK DEV+3!, END+1!, HEADER+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All