Routine: IBCRHBS5

Information

IBCRHBS5 ;ALB/ARH - RATES: UPLOAD (RC 2+) CALCULATIONS DRIVER ; 10-OCT-03

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 ^ 3-digit zip ^ type
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

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: !!,"Done.",!!,"The following files were created, they will be purged in 2 days:" Line Location: CALCRC+34
Function Call: WRITE	Prompt: !!,"The above files already exist in XTMP." Line Location: CONT+7
Function Call: WRITE	Prompt: "." Line Location: CONT+10