Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls