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

External References

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

Label References

Local Variables

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Local Variables | All