[Home] [Help]
184: ,p_message_name varchar2
185: ,p_message_num binary_integer) is
186: begin
187: if not tbl_messages.exists(p_message_num) then
188: hr_utility.set_message(801, p_message_name);
189: tbl_messages(p_message_num) := substrb(hr_utility.get_message, 1, 240);
190: end if;
191: tbl_msg_lines(l_next_msg_line).batch_line_id := p_batch_line_id;
192: tbl_msg_lines(l_next_msg_line).message_number := p_message_num;
185: ,p_message_num binary_integer) is
186: begin
187: if not tbl_messages.exists(p_message_num) then
188: hr_utility.set_message(801, p_message_name);
189: tbl_messages(p_message_num) := substrb(hr_utility.get_message, 1, 240);
190: end if;
191: tbl_msg_lines(l_next_msg_line).batch_line_id := p_batch_line_id;
192: tbl_msg_lines(l_next_msg_line).message_number := p_message_num;
193: l_next_msg_line := l_next_msg_line + 1;
219: and batch_line_id = p_batch_line_id;
220: end error_message_line;
221: --
222: begin -- validate_batch_lines
223: hr_utility.set_location('Entering: '|| l_proc, 10);
224: --open csr_batch_header_details(p_batch_id);
225: --fetch csr_batch_header_details into l_batch;
226: --close csr_batch_header_details;
227: --
241: error_message_line(batch_line.batch_line_id);
242: end if;
243: end loop;
244: write_message_lines;
245: hr_utility.set_location(' Leaving: '||l_proc, 90);
246: end validate_batch_lines;
247: --
248: -----------------------------------------------------------------------------
249: -- NAME
545: p_business_group_id => p_business_group_id);
546: --
547: commit;
548: exception
549: WHEN HR_UTILITY.HR_ERROR THEN
550: retcode := 2;
551: errbuf := SUBSTRB(HR_UTILITY.GET_MESSAGE,1,240);
552: rollback;
553: when others then
547: commit;
548: exception
549: WHEN HR_UTILITY.HR_ERROR THEN
550: retcode := 2;
551: errbuf := SUBSTRB(HR_UTILITY.GET_MESSAGE,1,240);
552: rollback;
553: when others then
554: retcode := 2;
555: errbuf := substrb(SQLERRM,1,240);