Routine: PSDEXP

Information

PSDEXP ;BIR/BJW-CS Drug Expiration Date Report ; 10 Feb 98

Source file <PSDEXP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to print",!,?12,"CS reports. PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDEXP+5
Function Call: WRITE	Prompt: !!,"Controlled Substances Expiration Date Report",!! Line Location: PSDEXP+6
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",! Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2