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

Package: Controlled Substances

Routine: PSDCSL


Information

PSDCSL ;BIR/JPW-List Drug Name & Stats from DRUG file (#50) ; 29 Aug 94

Source Information

Source file <PSDCSL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%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 DRUG FILE DATA  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report lists Drug name, order unit, price per order unit, dispense unit,",!,"dispense units per order unit, and price per dispense unit.",!
  • Line Location: PSDCSL+2
Function Call: WRITE
  • Prompt: !,"This report is designed for a 132 column format.",!!
  • Line Location: PSDCSL+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,?30,"NO DATA FOR THE DRUG FILE STATS REPORT!!",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
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: HEADER+2
Function Call: WRITE
  • Prompt: !,?45,"DRUG FILE STATS FOR CS PHARM DRUGS",!,?55,RPDT,?120,"PAGE: "_PG,!!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: ?47,"ORDER",?59,"PRICE PER",?80,"DISPENSE",?97,"DISPENSE UNITS",?118,"PRICE PER"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"DRUG NAME",?47,"UNIT",?59,"ORDER UNIT",?82,"UNIT",?97,"PER ORDER UNIT",?118,"DISPENSE UNIT",!,LN,!
  • Line Location: HEADER+4
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HEADER+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2
^DIC(51.5 - [#51.5] START+7
^PSDRUG - [#50] START+3, START+4, START+5, START+6, START+7
^PSDRUG("AIUN" START+3
^TMP("PSDCSL" START+1!, START+9*, PRINT+2, PRINT+3, PRINT+5, END+2!

Label References

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

Naked Globals

Name Field # of Occurrence
^("I" START+4
^(0 START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT START+2*, END+1!
%ZIS DEV+1!*, END+1!
%ZIS("B" DEV+1*
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!
DT START+4
DTOUT END+1!
DUOUT END+1!
IO DEV+3
IO("Q" DEV+1!, DEV+2!
IOF DONE, HEADER+2
IOP DEV+1!
IOSL PRINT+3
IOST DONE, DONE+1, HEADER+1
LN PRINT+1!*, END+1!, HEADER+4
NODE START+7*, START+8, PRINT+5*, END+1!
NUM START+3*, START+5, START+6, START+7, START+9, PRINT+3*, PRINT+5, END+1!
OK START+4*, END+1!
ORD START+6*, START+8*, START+9, PRINT+5*, PRINT+7, END+1!
ORDP START+6*, START+8*, START+9, PRINT+5*, PRINT+7, END+1!
ORDU START+6*, START+8*, START+9, PRINT+5*, PRINT+6, END+1!
ORU START+6*, START+7*, START+9, PRINT+5*, PRINT+6, END+1!
ORUP START+6*, START+7*, START+9, PRINT+5*, PRINT+6, END+1!
PG START+2*, END+1!, HEADER+1, HEADER+2*
POP DEV+1!, END+1!
PSD START+3*, START+4, PRINT+3*, PRINT+4, PRINT+5, END+1!
PSDOUT START+2*, PRINT+3, DONE+1, END+1!, HEADER+1*
PSDRN START+5*, START+9, END+1!
RPDT START+2*, END+1!, HEADER+2
X START+2*, END+1!
Y START+2, END+1!, HEADER+1
ZTDESC DEV+2*, END+1!
ZTDTH DEV+2!
ZTIO DEV+2!, END+1!
>> ZTQUEUED END+3
>> ZTREQ END+3*
ZTRTN DEV+2*, END+1!
ZTSAVE DEV+2!
ZTSK DEV+2!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All