Routine: IBCRHBR6

Information

IBCRHBR6 ;ALB/ARH - RATES: UPLOAD (RC) SITE CALCULATIONS ; 10-OCT-1998

Name	Comments	DBIA/ICR reference
INPT(SITE)	; use Inpatient Facility National Rates to calculate Site Specific Rates
SNF(SITE)	; Skilled Nursing
OPT(SITE)	; use Outpatient Facility National Rates to calculate Site Specific Rates
PCE(SITE)	; use Physician (General) National Rates to calculate Site Specific Rates
PCF(SITE)	; use Physician (Path & Anesthesia) National Rates to calculate Site Specific Rates
PCG(SITE)	; use Physician (Total RVU) National Rates to calculate Site Specific Rates
SITE(IBSXIFN,IBXTMP,IBCHGTYP)	; return site data: XTMP file IFN ^ div num ^ name ^ 3-digit zip
SETHDR(IBXRF1)	; set up header for XTMP file
SET(IBXRF1,IBXRF2,ITEM,EFFDT,INACTDT,CHRG,MOD,CS,ITYPE)	; set calculated charges into XTMP
CGP(CG,TXT)	; if Code Group is defined return benefit category number in list
DATE(X)	; return yyyymmdd in FM format
ENDDT(X)	; return yyyymmdd date in FM format, check version inactive date
RND()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Facility Charges" Line Location: INPT+5
Function Call: WRITE	Prompt: "." Line Location: INPT+16
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Inpatient Skilled Nursing Charges" Line Location: SNF+6
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Outpatient Facility Charges" Line Location: OPT+5
Function Call: WRITE	Prompt: "." Line Location: OPT+15
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges E" Line Location: PCE+5
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges F" Line Location: PCF+5
Function Call: WRITE	Prompt: !,$P(IBSITE,U,2)," ",$P(IBSITE,U,3)," - Physician Charges G" Line Location: PCG+5
Function Call: WRITE	Prompt: "." Line Location: PCG+12
Function Call: WRITE	Prompt: !,"There are no ",$G(IBCHGTYP)," charges for ",$P(IBSITEN,U,1)," ",$P(IBSITEN,U,2),"!",! Line Location: SITE+4
Function Call: WRITE	Prompt: !," *** Fatal Error: ",$G(TXT),!,?21,"could not find Code Group: ",CG Line Location: CGP+3