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 |  Local Variables |  All
Print Page as PDF
Routine: PSDNU3

Package: Controlled Substances

Routine: PSDNU3


Information

PSDNU3 ;BIR/JPW-Print NAOU Usage Report Summary Totals ; 2 Aug 94

Source Information

Source file <PSDNU3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^%DT  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSDNU1  PSDNU2  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;prints data for stock drugs
HDR ;lists header information
TOT
NTOT

External References

Name Field # of Occurrence
^%DT PRINT+1
^DIR HDR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"SUMMARY NAOU/DRUG USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "NAOU: ",JJ,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "DRUG: ",JJ,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?2,"=> ",$S(ANS="D":"NAOU",1:"DRUG"),!,"TOTAL # OF ORDERS",?30,"TOTAL QUANTITY",!,LN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?2,"=> ",KK,!,$J(^TMP("PSDNUS",$J,JJ,KK),8),?34,$J(^TMP("PSDNUQ",$J,JJ,KK),6)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!,?2,"=> ",KK
  • Line Location: NTOT+1
Function Call: WRITE
  • Prompt: !!,$S(ANS="D":"DRUG",1:"NAOU")," Subtotal # of Orders: ",^TMP("PSDNUT",$J,JJ)
  • Line Location: NTOT+2
Function Call: WRITE
  • Prompt: " Total Quantity: ",^TMP("PSDNUQT",$J,JJ)
  • Condition for execution: ANS="D"
  • Line Location: NTOT+2
Function Call: WRITE
  • Prompt: !!,"Grand Total # of Orders: ",^TMP("PSDNUG",$J),!
  • Line Location: NTOT+3
Routine Call
  • DIR
  • Line Location:
    • HDR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^TMP("PSDNU" PRINT+2
^TMP("PSDNUG" NTOT+3
^TMP("PSDNUQ" TOT+1
^TMP("PSDNUQT" NTOT+2
^TMP("PSDNUS" PRINT+3, TOT+1
^TMP("PSDNUT" NTOT+2

Label References

Name Line Occurrences
HDR PRINT+2, PRINT+3, TOT, NTOT
NTOT PRINT+3
TOT PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PRINT+1*
>> ANS HDR+3, HDR+4, HDR+6, NTOT+2
DA HDR+1!
DIR HDR+1!
DIR(0 HDR+1*
IOF HDR+2
IOSL TOT, NTOT
IOST HDR+1
>> JJ PRINT+3*, HDR+3, HDR+4, TOT+1, NTOT+2
>> KK PRINT+3*, TOT+1, NTOT+1
LN PRINT+1!*, HDR+6
>> PG PRINT+1*, HDR+1, HDR+2*
>> PSDATE HDR+5
>> PSDOUT PRINT+1*, PRINT+3, HDR+1*, TOT, NTOT
>> RPDT PRINT+1*, HDR+2
>> X PRINT+1*
>> Y PRINT+1, HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All