Routine: IBCRHBC3

Information

IBCRHBC3 ;ALB/ARH - RATES: UPLOAD HOST FILES (CMAC 2005+) ; 10-MAY-2005

Name	Comments	DBIA/ICR reference
CMAC(IBPATH,IBFILE,IBNAME,IBMODP,IBMODT)	; upload CMAC file from a VMS file into ^XTMP
CMACQ
ENDF()
LNFORM(LINE)	; check an individual line of the file for proper format (length=98 characters)
PARSE	; process a single line from a CMAC file: parse out into individual fields and store the line in XTMP
STORE	;
CGF(AMT)	; return charge string from file line in dollar format
SET	;
SETHDR	;
DATE(DATE)	; return yymmdd in FM format
LNDT(LINE)	; return the date of an individual line, in FM format
SETUP(IBFILE,IBNAME)	; set up Charge Sets, Billing Regions, Rate Schedule links for new charges ; if new region entered, asks user for divisions

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"**** Unable to open ",IBPATH,IBFILE,! Line Location: CMAC+8
Function Call: WRITE	Prompt: !!,"Loading ",IBFILE," into ^XTMP " Line Location: CMAC+10
Function Call: READ	Variable: IBFLINE Timeout: 5 Line Location: CMAC+12
Function Call: WRITE	Prompt: "." Line Location: CMAC+12
Function Call: WRITE	Prompt: !!,"**** Error while reading file: line not expected format (98 numeric characters):" Line Location: ENDF+4
Function Call: WRITE	Prompt: !!,"Line Length=",$L(IBFLINE)," characters" Line Location: ENDF+5
Function Call: WRITE	Prompt: ?40,"Line read is null" Condition for execution: IBFLINE="" Line Location: ENDF+5
Function Call: WRITE	Prompt: !,"LINE='",IBFLINE,"'",!!,"Upload Aborted!" Line Location: ENDF+6
Function Call: WRITE	Prompt: !!,"First line of file has no data, can not continue!" Line Location: ENDF+8