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 Total: 4

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDNU  

Entry Points

Name Comments DBIA/ICR reference
SET ;sets data
END ;
HDR ;lists header information
TOT
NTOT
START ;entry point for report
DONE
PRINT ;prints data for stock drugs
GTOT ;grand total

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: !!,?10,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDR,!!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDR,!!
  • Line Location: PRINT+7
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,NAOU,PSDR),?25,$J(^TMP("PSDNUQ",$J,NAOU,PSDR),6),?37,"Totals",!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,"NAOU Subtotal # of Orders: ",^TMP("PSDNUT",$J,NAOU),!
  • Line Location: NTOT+0
Function Call: WRITE
  • Prompt: !,"Grand Total # of Orders: ",^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
^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, END+4!, SET+13*
^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
^TMP("PSDNUT" START+1!, END+4!, SET+14*, NTOT
^VA(200 - [#200] SET+12

Label References

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

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+6*, PRINT+8, 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+7
IOST DONE, DONE+1, HDR+1
JJ START+2*, START+3, PRINT+5*, PRINT+6, 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!
LOC( SET+2
NAOU PRINT+4*, PRINT+5, PRINT+6, END+2!, HDR+3, TOT, NTOT
NAOUN END+2!, SET+4*, SET+13, SET+14, SET+15, SET+16
NODE PRINT+6*, PRINT+8, END+2!, SET+1*, SET+5
NUM PRINT+5*, PRINT+6, PRINT+8, 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!
PSDOK END+2!, SET+2*, SET+10*, SET+14, SET+15, SET+17, SET+18*
PSDOUT PRINT+2*, PRINT+4, PRINT+5, PRINT+7, 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+4*, PRINT+5, PRINT+6, PRINT+7, 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