Routine: PSDNU1

Information

PSDNU1 ;BIR/JPW-Print NAOU Usage Report by Drug ; 2 Aug 94

Source file <PSDNU1.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"*** NO DATA AVAILABLE FOR THIS REPORT ***" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?2,"=> ",NAOU,!! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?2,"=> ",NAOU,!! Line Location: PRINT+7
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+2
Function Call: WRITE	Prompt: !,"DRUG/NAOU USAGE REPORT - DATE: "_RPDT,?70,"PAGE: ",PG,! Line Location: HDR+2
Function Call: WRITE	Prompt: "DRUG: ",PSDR,! Line Location: HDR+3
Function Call: WRITE	Prompt: "From ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!! Line Location: HDR+4
Function Call: WRITE	Prompt: !,?2,"=> NAOU",!,?16,"DATE",!,"DISP #",?15,"FILLED",?25,"QUANTITY",?37,"ORDERED BY",?72,"TYPE",!,LN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !,"---------",?25,"----------",!,?3,^TMP("PSDNUS",$J,PSDR,NAOU),?25,$J(^TMP("PSDNUQ",$J,PSDR,NAOU),6),?37,"Totals",! Line Location: TOT+0
Function Call: WRITE	Prompt: !,"DRUG Subtotal # of Orders: ",^TMP("PSDNUT",$J,PSDR)," Total Quantity: ",^TMP("PSDNUQT",$J,PSDR),! Line Location: NTOT+0
Function Call: WRITE	Prompt: !,"Grand Total # of Orders: ",^TMP("PSDNUG",$J),! Line Location: GTOT+2