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

Package: Controlled Substances

Routine: PSDNU2


Information

PSDNU2 ;BIR/JPW-Print NAOU Usage Report by NAOU ; 2 Aug 94

Source Information

Source file <PSDNU2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^%DT  ^DIR  
Controlled Substances 1 ^PSDNU3  
Kernel 1 ^%ZISC  

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 PSDNU  

Entry Points

Name Comments DBIA/ICR reference
START ;entry point for report
PRINT ;prints data for stock drugs
DONE
END ;
SET ;sets data
HDR ;lists header information
TOT
NTOT
GTOT ;grand total
NODATA ; PRINT NO DATA MESSAGE FOR NAOUS THAT HAVE NO USAGE ;; RJS*75

External References

Name Field # of Occurrence
^%DT PRINT+2
^%ZISC END+5
^DIR DONE+1, HDR+1
^PSDNU3 PRINT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"***** NO DATA AVAILABLE FOR THIS REPORT *****",!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDR,!!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDR,!!
  • 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: HDR+2
Function Call: WRITE
  • Prompt: !,"NAOU/DRUG USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?2,"=> DRUG",!,?16,"DATE",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?37,"ORDERED BY",?70,"TYPE",!,LN,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDNUS",$J,PSDNAOU,PSDR),?25,$J(^TMP("PSDNUQ",$J,PSDNAOU,PSDR),6),?37,"Totals",!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,"NAOU Subtotal # of Orders: ",^TMP("PSDNUT",$J,PSDNAOU),!
  • Line Location: NTOT+0
Function Call: WRITE
  • Prompt: !,"Grand Total # of Orders: ",+$G(^TMP("PSDNUG",$J)),!
  • Line Location: GTOT+2
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+2
^PSD(58.8 - [#58.8] SET+2, SET+4, NODATA+3
^PSD(58.81 - [#58.81] START+2, START+3, SET+1, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11
^PSDRUG - [#50] SET+3
^TMP("PSDNU" START+1!, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, END+4!, SET+13*, NODATA+4*
^TMP("PSDNUG" START+1!, END+4!, SET+17*, GTOT+2
^TMP("PSDNUQ" START+1!, END+4!, SET+16*, TOT
^TMP("PSDNUS" START+1!, END+4!, SET+15*, TOT, NODATA+4*
^TMP("PSDNUT" START+1!, END+4!, SET+14*, NTOT, NODATA+4*
^VA(200 - [#200] SET+12

Label References

Name Line Occurrences
DONE PRINT+1
GTOT PRINT+3
HDR PRINT+3, PRINT+8
NODATA START+4
NTOT PRINT+4, PRINT+5
SET START+3
TOT PRINT+6

Naked Globals

Name Field # of Occurrence
^(0 SET+3, SET+4, SET+12
^(1 SET+11
^(4 SET+6
^(7 SET+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT PRINT+2*, END+1!
%H END+1!
%I END+1!
%ZIS END+1!
ALL END+1!
ANS END+1!
DA END+1!, HDR+1!
DATE PRINT+7*, PRINT+9, END+1!
DIR DONE+1!, END+1!, HDR+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, HDR+1*
DIROUT END+1!
DIRUT DONE+1!, END+1!
DTOUT END+1!
DUOUT END+1!
IO("Q" END+1!
IOF DONE, HDR+2
IOSL PRINT+8
IOST DONE, DONE+1, HDR+1
JJ START+2*, START+3, PRINT+6*, PRINT+7, END+1!, SET+13
JJ1 START+2*, START+3, END+1!
JJ2 START+2*, START+3, END+1!, SET+7, SET+8, SET+9, SET+13
KK START+3*, END+1!, SET+1, SET+6, SET+7, SET+8, SET+9, SET+11
LN PRINT+2!*, END+1!, HDR+5
LOC END+1!, NODATA+1
LOC( SET+2, NODATA+2
NODE PRINT+7*, PRINT+9, END+2!, SET+1*, SET+5
NUM PRINT+6*, PRINT+7, PRINT+9, END+2!
NURS END+2!, SET+11*, SET+12*, SET+13
PG PRINT+2*, END+2!, HDR+1, HDR+2*
POP END+2!
PSD END+2!, SET+1*, SET+2, SET+4, SET+7, SET+10
PSDATE END+2!, HDR+4
PSDED START+2, END+2!
>> PSDLOC NODATA+2*, NODATA+3
PSDNAOU PRINT+3*, PRINT+4, PRINT+5, PRINT+6, PRINT+7, END+2!, HDR+3, TOT, NTOT
PSDNAOUN END+2!, SET+4*, SET+13, SET+14, SET+15, SET+16, NODATA+3*, NODATA+4
PSDOK END+2!, SET+2*, SET+10*, SET+14, SET+15, SET+17, SET+18*
PSDOUT PRINT+2*, PRINT+3, PRINT+5, PRINT+6, PRINT+8, DONE+1, END+2!, HDR+1*, TOT, NTOT
, GTOT+1
PSDPN END+2!, SET+5*, SET+12, SET+13
PSDR START+2*, START+3, PRINT+5*, PRINT+6, PRINT+7, PRINT+8, END+2!, SET+3, TOT
PSDRN END+2!, SET+3*, SET+13, SET+15, SET+16
PSDSD START+2, END+2!
>> PSDSITE SET+2
PSDT END+2!
PSDTR END+2!, SET+9*, SET+10
QTY END+2!, SET+5*, SET+6*, SET+7*, SET+8*, SET+13, SET+16
RPDT PRINT+2*, END+2!, HDR+2
SUM PRINT+1, END+2!
X PRINT+2*, END+2!
Y PRINT+2, END+2!, HDR+1
ZTDESC END+3!
ZTDTH END+3!
ZTIO END+3!
>> ZTQUEUED END+5
>> ZTREQ END+5*
ZTRTN END+3!
ZTSAVE END+3!
ZTSK END+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All