Routine: IBCF12

Information

IBCF12 ;ALB/AAS - PRINT BILL CONT. ;24 MAY 90

Source file <IBCF12.m>

Name	Comments	DBIA/ICR reference
REVCOD	;I $D(IBIP) S X=IBLS_" DAY"_$S(IBLS>1:"S ",1:" ")_$S(IBBS'=IBU:IBBS,1:"INPATIENT CARE") D SET
RCODE	;Find revenue codes sorted by bedsection
ADDCOD	;Find additional codes
TOTAL	;Find offsets and Totals
OPVIS	;Find outpatient Visit dates
SET
RSPACE	;Find remaining blank lines
FILL	;fill space with blank lines so all will fit on page