Routine: PSGWEXR

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

PSGWEXR ;BHAM ISC/CML-Drug Expiration Date Report by Selected Date Range/AOU ; 26 Oct 95 8:12AM

Source file <PSGWEXR.m>

Name	Comments	DBIA/ICR reference
BDT
EDT
EN
ASKAOU	;
AOUCNT
DEV
START	;ENTRY POINT WHEN QUEUED
PRTQUE	;AFTER DATA IS COMPILED, QUEUE THE PRINT
QUIT
SET	;
ASKSORT	;
HELP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"NO DATA FOUND FOR THIS DATE RANGE!",! Line Location: EDT+2
Function Call: WRITE	Prompt: !!?5,"Since you have chosen multiple AOUs,",!?5,"please select a sort order for the report:",!!?5,"(1) Date/Drug/AOU or (2) Date/AOU/Drug" Line Location: AOUCNT+2
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: AOUCNT+4
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+0
Function Call: READ	Formatting: !! Prompt: "Enter '1' or '2' or ""^"" to Exit ==> " Variable: SORT Timeout: DTIME Line Location: ASKSORT+1
Function Call: WRITE	Prompt: !!,?5,"Enter '1' to sort by Expiration Date, then Drug, then AOU.",!?5,"Enter '2' to sort by Expiration Date, then AOU, then Drug.",!?5,"Enter ""^"" to Exit." Line Location: HELP+1