Routine: IBCRHBS7

Information

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

Package	Total	Call Graph
CPT HCPCS Codes	1	($$MOD,$$MODP)^ICPTMOD
Integrated Billing	1	($$FAC,$$IIA,$$IIR,$$ISA,$$ISNF,$$ISR,$$PROF)^IBCRHBS8

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBCRHBS5

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

External References

Name	Field # of Occurrence
$$FAC^IBCRHBS8	B+12
$$IIA^IBCRHBS8	A+22
$$IIR^IBCRHBS8	A+21
$$ISA^IBCRHBS8	A+20
$$ISNF^IBCRHBS8	A+14
$$ISR^IBCRHBS8	A+19
$$PROF^IBCRHBS8	C+12
$$MOD^ICPTMOD	MODIFN+4
$$MODP^ICPTMOD	MODIFN+5, MODIFN+6

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	FA+7, FA+8, FA+9, FA+10, FA+11, FA+12, FA+23!, SET+15*
^XTMP(	A+7, A+8, B+7, B+8, C+7, C+8, FA+10, FA+12, SET+3, SET+6 , SET+8, SET+9, SET+13*
^XTMP("IBCR RC B"	INFAC+2
^XTMP("IBCR RC C"	INPHYS+8, INPHYS+9
^XTMP("IBCR RC SITE"	ENDDT+1

Label References

Name	Line Occurrences
$$DATE	SET+13, ENDDT+1, MODIFN+3
$$ENDDT	SET+13
$$INFAC	C+19
$$INPHYS	B+26
$$MODIFN	SET+11
$$UNITYPE	FA+10, FA+12
SET	A+15, A+16, A+19, A+20, A+21, A+22, B+16, B+19, B+20, B+23 , B+27, B+28, C+16, C+22, C+23, C+26, FA+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHRG	SET~, SET+13
DT	MODIFN+3
EFFDT	SET~, SET+11, SET+13, MODIFN~, MODIFN+3*, MODIFN+4, MODIFN+5, MODIFN+6
IB26	FA+1~, FA+10*, FA+16, FA+18, FA+19
IB26UT	FA+1~, FA+10*, FA+14
>> IBCHGB	FA+19
IBCHRG	A+1~, A+14, A+15, A+16, A+19, A+20, A+21, A+22, B+1~, B+12 , B+16, B+19, B+20, B+23, B+27, B+28, C+1~, C+12, C+16, C+22 , C+23, C+26, FA+1~, FA+18, FA+19*, FA+21
IBCHRGB	FA+1~, FA+19*
IBCPT	B+1~, B+10, B+19, B+20, B+23, B+26, B+27, B+28, C+1~, C+10 , C+16, C+19, C+22, C+23, C+26, FA+1~, FA+7*, FA+8, FA+9, FA+10 , FA+11, FA+12, FA+14, INPHYS~, INPHYS+8, INFAC~, INFAC+2
IBCT	A+1~, A+10*, A+13, A+18
IBDRG	A+1~, A+10*, A+19, A+20, A+21, A+22
IBEFF	A+1~, A+10, A+15, A+16, A+19, A+20, A+21, A+22, B+1~, B+10 , B+16, B+19, B+20, B+23, B+27, B+28, C+1~, C+10, C+16, C+22 , C+23, C+26, FA+1~, FA+16, FA+21
IBFAC	B+1~, B+26*, B+27, B+28
IBI	A+1~, A+7, A+8, B+1~, B+7, B+8, C+1~, C+7*, C+8
IBINA	A+1~, A+10, A+15, A+16, A+19, A+20, A+21, A+22, B+1~, B+10 , B+16, B+19, B+20, B+23, B+27, B+28, C+1~, C+10, C+16, C+22 , C+23, C+26, FA+1~, FA+16, FA+21
IBINACT	SET+2~
IBITEM	FA+1~, FA+16*, FA+21
IBK	FA+1~, FA+9, FA+10, FA+11, FA+12, SET+2~, SET+8*, SET+13, SET+15
IBLINE	A+1~, A+8, A+10, A+14, A+19, A+20, A+21, A+22, B+1~, B+8 , B+10, B+12, B+15, B+19, B+20, C+1~, C+8*, C+10, C+12, C+16 , C+19, C+22, C+23, C+26
IBMOD	C+1~, C+10, C+16, C+19, C+22, C+23, C+26, FA+1~, FA+16*, FA+21
IBMODI	SET+2~, SET+11, SET+13
IBTC	FA+1~, FA+12*, FA+18, FA+19
IBTCUT	FA+1~, FA+12*, FA+14
IBTMPX	FA+1~, FA+3*, FA+7, FA+8, FA+9, FA+10, FA+11, FA+12, FA+23
IBUT	B+1~, B+10, B+19, B+20, B+23, B+26, B+27, B+28, C+1~, C+10 , C+16, C+22, C+23, C+26, FA+1~, FA+14*, FA+21
IBX	SET+2~, SET+3, SET+5, SET+8, MODIFN+3~, MODIFN+7, MODIFN+8, INPHYS+6~, INPHYS+8, INPHYS+9 , INFAC+2~, INFAC+3, UNITYPE+1~, UNITYPE+2*, UNITYPE+3
IBXRF1	A~, A+15, A+16, A+19, A+20, A+21, A+22, B~, B+16, B+19 , B+20, B+23, B+27, B+28, C~, C+16, C+22, C+23, C+26, FA~ , FA+10, FA+12, FA+21, SET~, SET+3, SET+5, SET+6, SET+8, SET+9, SET+13
IBXRF2	FA+1~, FA+10, FA+12, SET~, SET+6, SET+9, SET+13, SET+15, UNITYPE~, UNITYPE+2
IBXRF2A	C+1~, C+18, C+19, C+22, C+23, C+26
IBXTMPC	A+1~, A+5, A+7, A+8, B+1~, B+5, B+7, B+8, C+1~, C+5* , C+7, C+8
IBY	SET+2~, SET+11, MODIFN+3~, MODIFN+4, MODIFN+5, MODIFN+6, MODIFN+7, INPHYS+6~, INPHYS+9, INPHYS+10 , UNITYPE+1~, UNITYPE+2*
IBZ	UNITYPE+1~, UNITYPE+2*
INACTDT	SET~, SET+13
ITEM	SET~, SET+13, SET+15
MOD	SET~, SET+11, SET+15, MODIFN~, MODIFN+4, MODIFN+5, MODIFN+6, INPHYS+6~, INPHYS+10, INPHYS+11
MODS	INPHYS+6~, INPHYS+9, INPHYS+11*, INPHYS+12
SITE	A~, A+3, A+14, A+19, A+20, A+21, A+22, B~, B+3, B+12 , C~, C+3, C+12, FA~, FA+5
TYPE	B+1~, B+3, B+16, B+18, B+22, B+25, C+1~, C+3, C+15, C+21 , C+25
U	A+3, A+10, B+3, B+10, B+15, B+19, B+20, C+3, C+10, C+16 , C+19, C+22, C+23, C+26, FA+5, FA+16, FA+18, FA+19, SET+8, SET+9 , SET+13, INPHYS+9, INPHYS+10
UNITYPE	INPHYS~, INPHYS+9
V	ENDDT+1~*
X	DATE~, DATE+1, ENDDT~, ENDDT+1
Y	DATE+1~, DATE+2, ENDDT+1~, ENDDT+2

Customize PDF page

Package: Integrated Billing