Routine: PSXCSUTL

Information

PSXCSUTL ;BIR/JMB-Utilities for Cost Routines ;[ 04/09/98 9:41 AM ]

Name	Comments	DBIA/ICR reference
NAME	;Gets drug name by looking up drug ID #
MN	;Gets month & yr
IDYN
ID
BEG
EN
FACYN	;Gets facility
FAC
DV
NODATA	;No data in file
END

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: IDYN+0
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"Future dates are not allowed!",! Line Location: BEG+2
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: FACYN+2
Function Call: WRITE	Prompt: !,"There is no data for "_XSITE Line Location: FAC+5
Function Call: WRITE	Prompt: ! Line Location: FAC+6
Function Call: WRITE	Prompt: !!?4," There is no CMOP cost data between "_PSXSDATE_" and "_PSXEDATE_". " Line Location: NODATA+1
Function Call: WRITE	Prompt: !!?4,"Use the Date Range Compile/Recompile Cost Data option to compile the",!?4,"cost data for this date range." Line Location: NODATA+2