Routine: PSDNU3

Information

PSDNU3 ;BIR/JPW-Print NAOU Usage Report Summary Totals ; 2 Aug 94

Source file <PSDNU3.m>

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+2
Function Call: WRITE	Prompt: !,"SUMMARY NAOU/DRUG USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,! Line Location: HDR+2
Function Call: WRITE	Prompt: "NAOU: ",JJ,! Line Location: HDR+3
Function Call: WRITE	Prompt: "DRUG: ",JJ,! Line Location: HDR+4
Function Call: WRITE	Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?2,"=> ",$S(ANS="D":"NAOU",1:"DRUG"),!,"TOTAL # OF ORDERS",?30,"TOTAL QUANTITY",!,LN,! Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?10,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: TOT+1
Function Call: WRITE	Prompt: !!,?2,"=> ",KK,!,$J(^TMP("PSDNUS",$J,JJ,KK),8),?34,$J(^TMP("PSDNUQ",$J,JJ,KK),6) Line Location: TOT+2
Function Call: WRITE	Prompt: !!,?2,"=> ",KK Line Location: NTOT+1
Function Call: WRITE	Prompt: !!,$S(ANS="D":"DRUG",1:"NAOU")," Subtotal # of Orders: ",^TMP("PSDNUT",$J,JJ) Line Location: NTOT+2
Function Call: WRITE	Prompt: " Total Quantity: ",^TMP("PSDNUQT",$J,JJ) Condition for execution: ANS="D" Line Location: NTOT+2
Function Call: WRITE	Prompt: !!,"Grand Total # of Orders: ",+$G(^TMP("PSDNUG",$J)),! Line Location: NTOT+3