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

Package: Controlled Substances

Routine: PSDNU1


Information

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

Source Information

Source file <PSDNU1.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
ALL ;loops for all drugs
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,"=> ",NAOU,!!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?2,"=> ",NAOU,!!
  • 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: !,"DRUG/NAOU USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "DRUG: ",PSDR,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU",!,?16,"DATE",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?37,"ORDERED BY",?72,"TYPE",!,LN,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDNUS",$J,PSDR,NAOU),?25,$J(^TMP("PSDNUQ",$J,PSDR,NAOU),6),?37,"Totals",!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,"DRUG Subtotal # of Orders: ",^TMP("PSDNUT",$J,PSDR)," Total Quantity: ",^TMP("PSDNUQT",$J,PSDR),!
  • 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+3, START+4, ALL+2, ALL+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!, GTOT+2, SET+18*
^TMP("PSDNUQ" START+1!, END+4!, TOT, SET+17*
^TMP("PSDNUQT" START+1!, END+4!, NTOT, SET+15*
^TMP("PSDNUS" START+1!, END+4!, TOT, SET+16*
^TMP("PSDNUT" START+1!, END+4!, NTOT, SET+14*
^VA(200 - [#200] SET+12

Label References

Name Line Occurrences
ALL START+2
DONE PRINT+1, PRINT+3
GTOT PRINT+4
HDR PRINT+3, PRINT+4, PRINT+7
NTOT PRINT+4
PRINT START+2
SET START+4, ALL+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 START+2, END+1!, ALL+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+3*, START+4, PRINT+5*, PRINT+6, END+1!, ALL+2*, ALL+3, SET+13
JJ1 START+3*, START+4, END+1!, ALL+2*, ALL+3
JJ2 START+3*, START+4, END+1!, ALL+2*, ALL+3, SET+7, SET+8, SET+9, SET+13
KK START+4*, END+1!, ALL+3*, SET+1, SET+6, SET+7, SET+8, SET+9, SET+11
LN PRINT+2!*, END+1!, HDR+5
LOC END+1!
LOC( START+3
NAOU PRINT+4*, PRINT+5, PRINT+6, PRINT+7, END+2!, TOT
NAOUN END+2!, SET+4*, SET+13, SET+16, SET+17
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+3, END+2!, ALL+2
PSDOK END+2!, SET+2*, SET+10*, SET+14, SET+16, SET+18, SET+19*
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+3*, START+4, PRINT+4*, PRINT+5, PRINT+6, END+2!, ALL+2*, ALL+3, HDR+3, TOT
, NTOT, SET+3
PSDRN END+2!, SET+3*, SET+13, SET+14, SET+15, SET+16, SET+17
PSDSD START+3, END+2!, ALL+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+15, SET+17
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