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

Package: Controlled Substances

Routine: PSDAMIS3


Information

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

Source Information

Source file <PSDAMIS3.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry for printing data
PRINT ;prints data for stock drugs
DONE
END ;
HDR ;lists header information
TOT
NTOT ;print naou 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,"=> ",PSDR,!!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?2,"=> ",PSDR,!!
  • 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: !,"NAOU/DRUG 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,"=> DRUG",!,?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,NAOU,PSDR),?25,$J(^TMP("PSDAMISQ",$J,NAOU,PSDR),6),?44,$J(^TMP("PSDAMISC",$J,NAOU,PSDR),8,2),?60,"** Drug 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,NAOU),6)
  • Line Location: NTOT+3
Function Call: WRITE
  • Prompt: !,"Total Cost of Orders: ",?44,$J(^TMP("PSDAMISCN",$J,NAOU),8,2)
  • Line Location: NTOT+4
Function Call: WRITE
  • Prompt: !,"Average Cost Per Order: ",?44,$S(+^TMP("PSDAMIST",$J,NAOU):$J((^TMP("PSDAMISCN",$J,NAOU)/^TMP("PSDAMIST",$J,NAOU)),8,2),1:$J("0.00",8,2)),!
  • Line Location: NTOT+5
Function Call: WRITE
  • Prompt: !!,?35,"NAOU 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,$J((^TMP("PSDAMISCG",$J)/^TMP("PSDAMISG",$J)),8,2),!
  • Line Location: GTOT+12
Info |  Source |  Entry Points |  Interaction Calls