Routine: IBEFUNC1

Information

IBEFUNC1 ;ALB/ARH - CPT BILLING EXTRINSIC FUNCTIONS ; 11/27/91

Source file <IBEFUNC1.m>

Package	Total	Call Graph
Integrated Billing	3	RATE^IBAUTL1 $$STDATE^IBCU63 $$CPTCHG^IBEFUNC1

Package	Total	Caller Graph
Integrated Billing	16	IB CPT BILLING CHARGE IB CPT BILLING STATUS IBCCPT IBCU7 IBEFUNC1 IBEFUNC2 IBERSP1 IBOBCC IBOCNC2 IBXCPTC IBXSC61 IBXSC73 IBXX14 REVENUE CODE ^IBE(350.71 PROCEDURES

Name	Comments	DBIA/ICR reference
FCR	;
ENDST
FCBS	;
ENDIV
CPTCHG(CODE,DIV,DATE)	;ambulatory procedure billing charge on a date
RC(D0,D1,DATE)	;find BASC charge for particular revenue code entry (399,42)
MCDIV(DIV,DATE)	;find the medical center division
FCC	;
CPTBSTAT(CODE,DATE)	;ambulatory procedure billing status on a date
ENDRG
CP(D0,D1)	;find BASC charge for particular procedure entry (399,304)
FMCD	;
CPTRG(CPT,DATE)	;find the rate group for the CPT on the given date
ENDCHG

Name	Line Occurrences (* Changed, ! Killed)
^DD(350.4	CPTBSTAT+11
^DGCR(399 - [#399]	RC+4, RC+5, CP+3
^IBE(350.1 - [#350.1]	CPTRG+7
^IBE(350.2 - [#350.2]	CPTBSTAT+10
^IBE(350.4 - [#350.4]	CPTBSTAT+9, CPTRG+7
^IBE(350.5 - [#350.5]	MCDIV+8, MCDIV+9

Name	Field # of Occurrence
^(	CPTBSTAT+9, CPTRG+7, MCDIV+8, MCDIV+9
^(0	CPTBSTAT+9, CPTRG+7

Name	Field # of Occurrence
%	CPTCHG+6~, CPTBSTAT+5~, CPTRG+4~, MCDIV+5~
%H	CPTCHG+6~, CPTBSTAT+5~, CPTRG+4~, MCDIV+5~
%I	CPTCHG+6~, CPTBSTAT+5~, CPTRG+4~, MCDIV+5~
CODE	CPTCHG~, CPTCHG+7, CPTCHG+10, CPTBSTAT~, CPTBSTAT+6, CPTBSTAT+9
CPT	CPTRG~, CPTRG+5, CPTRG+7
D0	RC~, RC+4, RC+5, CP~, CP+3
D1	RC~, RC+5, CP~, CP+3
DA	RC+4~, CP+3~
DATE	CPTCHG~, CPTCHG+8, CPTCHG+9, CPTCHG+10, CPTBSTAT~, CPTBSTAT+7, CPTBSTAT+8, CPTBSTAT+9, CPTBSTAT+10, CPTRG~ , CPTRG+6, CPTRG+7, MCDIV~, MCDIV+7, MCDIV+8, MCDIV+9, RC~, RC+4*, RC+5
DIV	CPTCHG~, CPTCHG+9, CPTCHG+10, MCDIV~, MCDIV+5, MCDIV+8, MCDIV+9*, ENDIV
DT	CPTCHG+8, CPTBSTAT+7, CPTRG+6, MCDIV+7
I	MCDIV+5~, MCDIV+9*
>> IBCDX	FCC+1, FCBS+1, FCR+1
>> IBCHGX	FCC+1*
>> IBDIVX	FCC+1, FMCD+1*
>> IBDTX	FCC+1, FCBS+1, FCR+1, FMCD+1
>> IBRGX	FCR+1*
>> IBSTX	FCBS+1*
INACT	MCDIV+5~
INACT(	MCDIV+9*
LN	CPTBSTAT+5~, CPTBSTAT+9*, CPTBSTAT+10
NDIV	MCDIV+5~, MCDIV+8*, MCDIV+9
RATE	CPTRG+4~, CPTRG+7*, ENDRG
ST	CPTBSTAT+5~, CPTBSTAT+6, CPTBSTAT+9, CPTBSTAT+10, CPTBSTAT+11, ENDST
U	RC+5, CP+3
X	CPTCHG+6~, CPTCHG+10, CPTBSTAT+5~, CPTRG+4~, MCDIV+5~, RC+4~, RC+5, RC+6, CP+3~, CP+4
Y	CPTCHG+6~, CPTCHG+7, ENDCHG, RC+4~, RC+5, CP+3~*