IBCRHBS7 ;ALB/ARH - RATES: UPLOAD (RC 2+) CALCULATIONS SITE ; 10-OCT-03
Source file <IBCRHBS7.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
A(SITE,IBXRF1) | ; use Inpatient Facility National Rates to calculate Site Specific Rates
|
|
B(SITE,IBXRF1) | ; use Outpatient Facility National Rates to calculate Site Specific Rates
|
|
C(SITE,IBXRF1) | ; use Physician National Rates to calculate Site Specific Rates
|
|
FA(SITE,IBXRF1) | ; Add TC and 26 Freestanding Professional charges to create global charge
|
|
SET(IBXRF1,IBXRF2,ITEM,EFFDT,INACTDT,CHRG,MOD) | ; set calculated charges into XTMP
|
|
DATE(X) | ; return yyyymmdd in FM format
|
|
ENDDT(X) | ; return yyyymmdd date in FM format, check version inactive date
|
|
MODIFN(MOD,EFFDT) | ; return internal form of modifier
; extra check is required because there are two RR modifiers so MOD will not return any ; base the get on a CPT code for which RR is known to be a valid modifier |
|
INPHYS(IBCPT,UNITYPE) | ; returns string of all modifiers associated with Physician charges for CPT and Unit Type
; if charge exists but it has no modifier then uses 00, so if CPT has no charge then returns null ; if a charge is found for the CPT but it has a different Unit Type then -1 is returned ; note: if no freestanding physician charge then can add opt facility charge as physician charge ; note: if only a freestanding 26 physician charge then can add the opt facility charge as TC physician charge (same unit type) |
|
INFAC(IBCPT) | ; check if the CPT code has a charge in the Opt Facility file (table B)
; return true if CPT code has a Opt Facility Charge |
|
UNITYPE(IBXRF2) | ; return unit type of group of charges last piece of IBXRF2
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|