Routine: A1B2MSP

Information

A1B2MSP ;ALB/AAS - UTILITY TO SET BEDSECTIONSAND LOS FROM PTF ; 16-JAN-91

Source file <A1B2MSP.m>

Name	Comments	DBIA/ICR reference
1	;build array of movement dates, billable specialties
2	;build array of billable specialties = los in specialties ; -- ptf record is closed, use all movements
3	;find specialties and set up in file.
SETU	;utility array of all movements by date, billing specialty
SETU1	;determine los - set utility=los
STORE	;store bedsection and los in 11500.61
END	;K ^UTILITY($J)