Routine: IBCRHBR3

Information

IBCRHBR3 ;ALB/ARH - RATES: UPLOAD HOST FILES (RC) PARSE ; 10-OCT-1998

Name	Comments	DBIA/ICR reference
A	; Inpatient Facility DRG Charges: process a single line, parse out into individual fields and store in XTMP
B	; Inpatient Facility Area Factors: process a single line, parse out into individual fields and store in XTMP
C	; Outpatient Facility CPT Charges: process a single line, parse out into individual fields and store in XTMP
D	; Outpatient Facility Area Factors: process a single line, parse out into individual fields and store in XTMP
E	; Physician CPT Charges: process a single line, parse out into individual fields and store in XTMP
F	; Physician CPT Charges (A&P): process a single line, parse out into individual fields and store in XTMP
G	; Physician CPT Charges (ET): process a single line, parse out into individual fields and store in XTMP
H	; Physician Area Factors: process a single line, parse out into individual fields and store in XTMP
I	; Physician Unit Area Factors: process a single line, parse out into individual fields and store in XTMP
SETHDR(IBFILE,IBXRF1)	; set up header for XTMP file
SET(IBFILE,IBXRF1,LINE)	; set data parsed from host file to XTMP
SET1(IBXRF1,IBXIFN,IBXRF3,LINE)	; set data parsed from host file to XTMP, second line
SETSITE(IBXTMP,IBXIFN,SITE,NAME,ZIP)	; set up site file and xref
STRIP(IBVAL)	; strip blanks, $, and commas
P(LINE,P)	; parse the line and return the piece requested (replaces $P since may be two dilimiters) ; the pieces are delimited by a comma, any piece that includes a comma within the text is surrounded by quotes

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"SITE ERROR: ",IBX,"--",ZIP Line Location: SETSITE+9