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

Package: Controlled Substances

Routine: PSDAMIS4


Information

PSDAMIS4 ;BIR/JPW-Print NAOU AMIS Summary Totals ; 1 Sept 94

Source Information

Source file <PSDAMIS4.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 PSDAMIS0  PSDAMIS3  

Entry Points

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

External References

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

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+3
Function Call: WRITE
  • Prompt: !,"SUMMARY NAOU/DRUG USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "NAOU: ",JJ,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "DRUG: ",JJ,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?2,"=> ",$S(ANS="D":"NAOU",1:"DRUG"),!,"TOTAL # OF ORDERS",?30,"TOTAL QUANTITY",?60,"TOTAL COST",!,LN,!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,?2,"=> ",KK,!,$J(^TMP("PSDAMISS",$J,JJ,KK),8),?30,$J(^TMP("PSDAMISQ",$J,JJ,KK),8),?60,$J(^TMP("PSDAMISC",$J,JJ,KK),8,2)
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !!,?2,"=> ",KK
  • Line Location: NTOT+1
Function Call: WRITE
  • Prompt: !!,$S(ANS="D":"DRUG",1:"NAOU")," Subtotals: ",!,"Number of Orders: ",?30,$J(^TMP("PSDAMIST",$J,JJ),8),!
  • Line Location: NTOT+2
Function Call: WRITE
  • Prompt: "Total Quantity: ",?30,$J(^TMP("PSDAMISQT",$J,JJ),8),!
  • Condition for execution: ANS="D"
  • Line Location: NTOT+2
Function Call: WRITE
  • Prompt: "Total Cost of Orders: ",?60,$J(^TMP("PSDAMISCN",$J,JJ),8,2)
  • Line Location: NTOT+3
Function Call: WRITE
  • Prompt: !,"Average Cost of Orders: ",?60,$S(+^TMP("PSDAMIST",$J,JJ):$J((^TMP("PSDAMISCN",$J,JJ)/^TMP("PSDAMIST",$J,JJ)),8,2),1:$J("0.00",8,2)),!
  • Line Location: NTOT+4
Function Call: WRITE
  • Prompt: !,"Grand Totals by Dispensing Site: ",PSDSN,!
  • Line Location: GTOT+2
Function Call: WRITE
  • Prompt: !!,"Grand Totals: ",!,"Number of Orders: ",?30,$J(^TMP("PSDAMISG",$J),8),!,"Cost of Orders: ",?60,$J(^TMP("PSDAMISCG",$J),8,2),!
  • Line Location: GTOT+8
Function Call: WRITE
  • Prompt: "Average Cost Per Order: ",?60,$J((^TMP("PSDAMISCG",$J)/^TMP("PSDAMISG",$J)),8,2),!
  • Line Location: GTOT+9
Routine Call
  • DIR
  • Line Location:
    • HDR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+1
^TMP("PSDAMIS" PRINT+2
^TMP("PSDAMISC" TOT+1
^TMP("PSDAMISCG" GTOT+8, GTOT+9
^TMP("PSDAMISCN" NTOT+3, NTOT+4
^TMP("PSDAMISCVG" GTOT+5, GTOT+6
^TMP("PSDAMISG" GTOT+8, GTOT+9
^TMP("PSDAMISQ" TOT+1
^TMP("PSDAMISQT" NTOT+2
^TMP("PSDAMISS" PRINT+3, TOT+1
^TMP("PSDAMIST" NTOT+2, NTOT+4
^TMP("PSDAMISVG" GTOT+3, GTOT+5, GTOT+6

Label References

Name Line Occurrences
GTOT PRINT+3
HDR PRINT+2, PRINT+3, TOT, NTOT, GTOT+1, GTOT+4, GTOT+7
NTOT PRINT+3
TOT PRINT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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