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

Package: Controlled Substances

Routine: PSDAMIS0


Information

PSDAMIS0 ;BIR/JPW-Print NAOU AMIS Report by Drug ; 1 Sept 94

Source Information

Source file <PSDAMIS0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry to print report
PRINT ;prints data for stock drugs
DONE
END ;
HDR ;lists header information
TOT
NTOT ;print drug subtotals
GTOT ;grand total

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"***** NO DATA AVAILABLE FOR THIS REPORT *****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?2,"=> ",NAOU,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> ",NAOU,!
  • Line Location: PRINT+6
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+3
Function Call: WRITE
  • Prompt: !,"DRUG/NAOU AMIS REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU",!,?16,"DATE",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?40,"COST PER ORDER",!,LN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDAMISS",$J,PSDR,NAOU),?25,$J(^TMP("PSDAMISQ",$J,PSDR,NAOU),6),?44,$J(^TMP("PSDAMISC",$J,PSDR,NAOU),8,2),?60,"** NAOU Totals **",!
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: "=========",?25,"=========",?40,"=============",!
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: !,"Number of Orders: ",?25,$J(^TMP("PSDAMIST",$J,PSDR),7)
  • Line Location: NTOT+3
Function Call: WRITE
  • Prompt: !,"Total Quantity of Orders: ",?25,$J(^TMP("PSDAMISQT",$J,PSDR),6)
  • Line Location: NTOT+4
Function Call: WRITE
  • Prompt: !,"Total Cost of Orders: ",?44,$J(^TMP("PSDAMISCN",$J,PSDR),8,2)
  • Line Location: NTOT+5
Function Call: WRITE
  • Prompt: !,"Average Cost Per Order: ",?44,$S(+^TMP("PSDAMIST",$J,PSDR):$J((^TMP("PSDAMISCN",$J,PSDR)/^TMP("PSDAMIST",$J,PSDR)),8,2),1:$J("0.00",8,2)),!
  • Line Location: NTOT+6
Function Call: WRITE
  • Prompt: !!,?35,"Drug Subtotals Summary",!!
  • Line Location: GTOT+2
Function Call: WRITE
  • Prompt: !,"Grand Totals by Dispensing Site: ",PSDSN,!
  • Line Location: GTOT+5
Function Call: WRITE
  • Prompt: !,"Grand Totals: ",!,"Number of Orders: ",?25,$J(^TMP("PSDAMISG",$J),6),!,"Cost of Orders: ",?44,$J(^TMP("PSDAMISCG",$J),8,2),!
  • Line Location: GTOT+11
Function Call: WRITE
  • Prompt: "Average Cost Per Order: ",?44,$S(+^TMP("PSDAMISG",$J):$J((^TMP("PSDAMISCG",$J)/^TMP("PSDAMISG",$J)),8,2),1:$J("0.00",8,2)),!
  • Line Location: GTOT+12
Info |  Source |  Entry Points |  Interaction Calls