Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: IBCRHBS7

Package: Integrated Billing

Routine: IBCRHBS7


Information

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

Source Information

Source file <IBCRHBS7.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: A+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: B+7
Function Call: WRITE
  • Prompt: !,"ERROR, UNIT TYPES DON'T MATCH ",IBCPT
  • Line Location: FA+14
Function Call: WRITE
  • Prompt: !!,"ERROR: IBXRF1 NOT SET ",IBXRF1,!!
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !!,"ERROR: IBXRF2 NOT SET ",IBXRF2,!!
  • Line Location: SET+6
Info |  Source |  Entry Points |  Interaction Calls