611: IF p_hours > 0
612: THEN
613: p_return_code := 2;
614: fnd_message.set_name ('HXT', 'HXT_39467_NO_HRS_4_FIX_PREM');
615: hxt_util.gen_error (
616: p_tim_id,
617: p_id,
618: NULL,
619: NULL,
633: WHEN OTHERS
634: THEN
635: p_return_code := 2;
636: fnd_message.set_name ('HXT', 'HXT_39468_OR_ERR_SEL_PREM_AMT');
637: hxt_util.gen_error (
638: p_tim_id,
639: p_id,
640: NULL,
641: NULL,
907: l_date_worked DATE := p_date_worked;
908: loop_counter NUMBER := 0; -- counts loop iterations for checking SIR282
909: error_code NUMBER := 0; -- PWM Fix for endless loop 01/28/99 SIR282
910: BEGIN
911: hxt_util.DEBUG (
912: 'Top of get_contig_hrs. time_in = '
913: || TO_CHAR (l_current_time_in, 'HH24:MI')
914: );
915:
919: FETCH contig_hrs INTO l_rec;
920:
921: IF contig_hrs%FOUND
922: THEN
923: hxt_util.DEBUG (
924: ' previous summary found. time_in = '
925: || TO_CHAR (l_rec.time_in, 'HH24:MI')
926: );
927: l_contig_hrs := l_contig_hrs
940: IF loop_counter > 50
941: THEN
942: l_continue := FALSE;
943: fnd_message.set_name ('HXT', 'HXT_39506_LOOP_COUNT_EXCEEDED');
944: hxt_util.gen_error (
945: p_tim_id,
946: NULL,
947: NULL,
948: '',
954: );
955: END IF;
956: END LOOP;
957:
958: hxt_util.DEBUG ('');
959: hxt_util.DEBUG ( 'Done. hours = '
960: || TO_CHAR (l_contig_hrs));
961: o_contig_hrs := l_contig_hrs;
962: o_first_time_in := l_current_time_in;
955: END IF;
956: END LOOP;
957:
958: hxt_util.DEBUG ('');
959: hxt_util.DEBUG ( 'Done. hours = '
960: || TO_CHAR (l_contig_hrs));
961: o_contig_hrs := l_contig_hrs;
962: o_first_time_in := l_current_time_in;
963: END;