Routine: IBCRHBR5

Information

IBCRHBR5 ;ALB/ARH - RATES: UPLOAD (RC) CALCULATIONS SETUP ; 10-OCT-1998

Name	Comments	DBIA/ICR reference
CALCRC(SITE)	; calculate a sites RC charges, create XTMP file that can be loaded into CM ; input: IFN of site in IBCR RC SITE ^ site number ^ site name
CONT(SITE)	; check for existing files stored in XTMP with same subscript ; returns true if user wants to continue, any existing files are deleted, 0 otherwise
CONT1(SITE)	; get final OK to start charge calculations, return true if want to continue, 0 if not

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Site incompletely defined in upload, can not continue!" Line Location: CALCRC+4
Function Call: WRITE	Prompt: @IOF,!,"Calculating Reasonable Charges v"_$$VERSION^IBCRHBRV_" for "_IBSITE_":" Line Location: CALCRC+5
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: CALCRC+6
Function Call: WRITE	Prompt: ! Line Location: CALCRC+12
Function Call: WRITE	Prompt: !!,"Done.",!!,"The following files were created, they will be purged in 2 days:" Line Location: CALCRC+24
Function Call: WRITE	Prompt: !!,"The above files already exist in XTMP." Line Location: CONT+7
Function Call: WRITE	Prompt: "." Line Location: CONT+10
Function Call: WRITE	Prompt: !! Line Location: CONT1+1
Function Call: WRITE	Prompt: ! Line Location: CONT1+3