Routine: PSGWCPA

Information

PSGWCPA ;BHAM ISC/PTD,CML-Cost Per AOU for Selected Date Range ; 03 Sep 93 / 12:07 PM

Source file <PSGWCPA.m>

Name	Comments	DBIA/ICR reference
BDT
EDT
ASKAOU
AOUCNT
ASKPRT
DEV
ENQ	;ENTRY POINT WHEN QUEUED
AOU
DRUG	;LOOP THROUGH DRUGS FOR AOU
DRGLP
AR	;AUTOMATIC REPLENISHMENT INVENTORIES
INVLP
OD	;ON DEMAND REQUESTS
ODLP
RET	;RETURNS
RETLP
CHKDTA	;DETERMINE TOTAL COST FOR DRGQD OF SELECTED DRUG
COST
SETGL
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Before printing this report, be sure accurate data exists for drug cost.",!?5,"Use ""Prepare AMIS Data"": ""Enter AMIS Data for All Drugs/All AOUs"".",!! Line Location: PSGWCPA+2
Function Call: WRITE	Prompt: !!,"Do you want to print:",!?5,"(1) A complete report",!?5,"(2) Totals and Summaries only" Line Location: AOUCNT+1
Function Call: READ	Formatting: !! Prompt: "Enter '1' or '2': " Variable: FLG Timeout: DTIME Line Location: ASKPRT+0
Function Call: WRITE	Prompt: *7,!!,"Enter '1' to print a complete report including all items in the AOU.",!,"Enter '2' to print only the totals for the AOU(s) and Cost Summaries." Line Location: ASKPRT+1
Function Call: WRITE	Prompt: !!,"The right margin for this report is 80.",!,"You may queue the report to print at a later time.",!! Line Location: ASKPRT+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0

FileNo	Call Tags
^PSI(58.1 - [#58.1]	Classic Fileman Calls