Routine: IBCF33

Information

IBCF33 ;ALB/ARH - UB92 HCFA-1450 (GATHER CODES) ;25-AUG-1993

Source file <IBCF33.m>

Package	Total	Call Graph
Integrated Billing	2	^IBCF331 ^IBCF34

Package	Total	Caller Graph
Integrated Billing	2	IBCF3 IBCF331

Name	Comments	DBIA/ICR reference
RV	;rev codes sorted by bedsection
CONT
FILLPG	;fill reast of page with blank lines
SPACE	;checks to see if X can fit on page, if not starts new page
OPV	;add outpatient visit dates
NEXTLN	;checks counter for next line, resets if necessary,
SET1	; add rev codes to array: rev cd ^ rev cd st abbrev. ^ CPT CODE ^ unit charge ^ units ^ total
SET2	;set free text into block 42 array
END
TOTAL	;add totals (print subtotal only if there is an offset)
CPT	;add addtional procedures

Name	Field # of Occurrence
^IBCF331	CONT
^IBCF34	IBCF33+7

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OPV+5
^DGCR(399 - [#399]	IBCF33+6, RV+1, RV+2, RV+3, RV+4, RV+8, OPV+1, OPV+4, OPV+5
^DGCR(399.1 - [#399.1]	RV+5
^DGCR(399.2 - [#399.2]	SET1+4
^ICPT - [#81]	SET1+4
^TMP($J	END, SPACE+1, FILLPG+1, SET1+6, SET2+2, SET2+3, NEXTLN+2

Name	Line Occurrences
CONT	OPV+1
FILLPG	END, SPACE+1
NEXTLN	SET1+2, SET2+1, NEXTLN+2
OPV	CPT+1
SET1	RV+5, RV+8, TOTAL+1, TOTAL+5, TOTAL+7
SET2	IBCF33+9, RV+5, TOTAL+4, TOTAL+5, CPT+2, CPT+3, CPT+5, OPV+3, OPV+6, OPV+7 , FILLPG+1
SPACE	TOTAL+3, CPT+1, OPV+2

Name	Field # of Occurrence
^(	RV+8

Name	Field # of Occurrence
IBARRAY	END+1!
IBBS	RV+1*, RV+2, RV+3, END+1!
IBBSN	RV+1, RV+5, END+1!
>> IBCBCOMM	IBCF33+6*, TOTAL+1, TOTAL+3, TOTAL+5, TOTAL+7
>> IBCBILL	IBCF33+6*
IBCOL	IBCF33+6, IBCF33+9, END+1!, SET2+1*, SET2+3
IBDA	RV+3, RV+4, RV+8, END+1!
IBFILL	FILLPG+1, FILLPG+2!, SET2+2
>> IBFL(80	CPT+1, CPT+4, CPT+5
IBI	CPT+4, CPT+5, OPV+4, OPV+5, FILLPG+1~*
>> IBIFN	IBCF33+6, RV+1, RV+2, RV+3, RV+4, RV+8, OPV+1, OPV+4, OPV+5
>> IBINPAT	IBCF33+6*, IBCF33+9
>> IBJ	OPV+4, OPV+6
IBLINES	END+1!, SPACE+1, SET1+6, SET2+3, NEXTLN+2*
IBLN	END+1!, SPACE+1~, FILLPG+1~, SET1+2~, SET1+6, SET2+1~, SET2+2, SET2+3, NEXTLN+2*
>> IBPG	END*
IBRV	RV+2*, RV+3, END+1!
>> IBSTATE	IBCF33+6*, IBCF33+9
IBX	IBCF33+9, RV+4, RV+5, TOTAL+3, CPT+1, CPT+5, OPV+1, OPV+2, END, SPACE+1 , SET1+2~, SET1+4*
IBY	OPV+1, OPV+2, SPACE+1~, SET1+2~, SET1+4, SET1+5*, SET1+6
IBZ	IBCF33+9, RV+5, RV+8, TOTAL+1, TOTAL+4, TOTAL+5, TOTAL+7, CPT+2, CPT+3, CPT+5 , OPV+3, OPV+5, OPV+6, OPV+7, END+1!, FILLPG+1~, SET1+4, SET1+5, SET2+3
U	IBCF33+6, IBCF33+9, RV+5, RV+8, TOTAL+1, TOTAL+3, TOTAL+5, TOTAL+7, CPT+5, END , SET1+4, SET1+5, SET1+6, SET2+3
>> Y	OPV+5*