[Home] [Help]
1: PACKAGE BODY pay_mix_rollback_pkg AS
2: /* $Header: pymixrbk.pkb 120.4 2010/10/05 10:02:36 priupadh ship $ */
3: --
4: -- type defs
5: --
236: l_entry_exists varchar2(1) := 'N';
237:
238: begin
239:
240: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix',10);
241:
242: --
243: if p_asg_action_id is null then
244: l_payroll_action_id := null;
276:
277: begin
278:
279: -- Ensure batch is valid for rollback
280: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix',20);
281:
282: select 'Y'
283: into l_check_batch_id
284: from pay_batch_headers
285: where batch_id = p_batch_header_id
286: and batch_status = 'T';
287:
288: -- Get business_group_id
289: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix',30);
290:
291: select business_group_id,
292: nvl(REJECT_ENTRY_NOT_REMOVED,'N'),
293: nvl(ROLLBACK_ENTRY_UPDATES,'N'),
325: purge_rollback_messages(p_batch_header_id,'H');
326: end if;
327:
328: if (l_check_batch_id = 'Y') or (l_check_batch_id = 'N' and p_asg_action_id is not null) then
329: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix',40);
330:
331: open c_batch_lines;
332: fetch c_batch_lines into l_batch_line;
333:
680: l_parent_id NUMBER := null;
681: --
682: begin
683: --
684: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix_asg',10);
685: --
686: open csr_asg_act;
687: fetch csr_asg_act into l_rec;
688: close csr_asg_act;
686: open csr_asg_act;
687: fetch csr_asg_act into l_rec;
688: close csr_asg_act;
689: --
690: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix_asg',20);
691: --
692: if l_rec.batch_status = 'T' then
693: -- For bug 8971846
694: open csr_parent_req_id (fnd_global.conc_request_id);
714: p_assignment_id => l_rec.assignment_id,
715: p_asg_action_id => p_asg_action_id
716: );
717: --
718: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix_asg',30);
719: --
720: -- Now check o see if the batch lines have been changed. If so
721: -- then reset the control totals.
722: open csr_reset_control_total(l_rec.batch_id);
723: fetch csr_reset_control_total into l_rec_exists;
724: --
725: if csr_reset_control_total%found then
726: --
727: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix_asg',40);
728: --
729: for l_ctl_rec in csr_control_lines(l_rec.batch_id) loop
730: purge_rollback_messages(l_ctl_rec.batch_control_id,'C');
731: end loop;
742: close csr_reset_control_total;
743: --
744: end if;
745: --
746: hr_utility.set_location('pay_mix_rollback_pkg.undo_mix_asg',50);
747: --
748: end;
749:
750: --
793: --
794: --
795: begin
796: --
797: hr_utility.set_location('pay_mix_rollback_pkg.set_status',10);
798: --
799: open csr_asg_act;
800: fetch csr_asg_act into l_rec;
801: -- IF batch doesn't exists thenno need to reset the batch status.
825: end if;
826: end if;
827:
828:
829: hr_utility.set_location('pay_mix_rollback_pkg.set_status',20);
830: --
831: -- Only purge the batch if the payroll action is purged.
832: if (l_leave_batch = 'N' and l_rec.BATCH_PROCESS_MODE = 'TRANSFER') then
833: -- Purge the batch regarless of the status of the leave_row flag.
832: if (l_leave_batch = 'N' and l_rec.BATCH_PROCESS_MODE = 'TRANSFER') then
833: -- Purge the batch regarless of the status of the leave_row flag.
834: -- and p_leave_row = false) then
835: --
836: hr_utility.set_location('pay_mix_rollback_pkg.set_status',30);
837: --
838: -- The user wants the batch to be deleted from the database.
839: payplnk.run_process(l_errbuf,
840: l_retcode,
841: l_rec.business_group_id,
842: 'PURGE',
843: l_rec.batch_id);
844: --
845: hr_utility.set_location('pay_mix_rollback_pkg.set_status',40);
846: --
847: else
848: --
849: hr_utility.set_location('pay_mix_rollback_pkg.set_status',50);
845: hr_utility.set_location('pay_mix_rollback_pkg.set_status',40);
846: --
847: else
848: --
849: hr_utility.set_location('pay_mix_rollback_pkg.set_status',50);
850: -- Change batch header status to 'unprocessed'
851: --
852: purge_rollback_messages(l_rec.batch_id,'H');
853: --
854: update pay_batch_headers
855: set batch_status = 'U'
856: where batch_id = l_rec.batch_id;
857: --
858: hr_utility.set_location('pay_mix_rollback_pkg.set_status',60);
859: --
860: end if;
861: --
862: hr_utility.set_location('pay_mix_rollback_pkg.set_status',70);
858: hr_utility.set_location('pay_mix_rollback_pkg.set_status',60);
859: --
860: end if;
861: --
862: hr_utility.set_location('pay_mix_rollback_pkg.set_status',70);
863: --
864: end;
865:
866:
876:
877: begin
878:
879: begin
880: hr_utility.set_location('pay_mix_rollback_pkg.run_results_exist',10);
881:
882: if p_chk_rollback_upd = 'Y' then
883: select 'Y' into l_results_found
884: from pay_run_results prr,
932: l_line_text pay_message_lines.line_text%type;
933: l_payroll_id number;
934:
935: begin
936: hr_utility.set_location('pay_mix_rollback_pkg.insert_rollback_message',10);
937:
938: if p_level = 'H' then -- error occurred at header level
939:
940: l_line_text := substrb(hr_utility.get_message, 1, 240);
972: param_value pay_action_parameters.parameter_value%type;
973:
974: begin
975: begin
976: hr_utility.set_location('pay_mix_rollback_pkg.action_parameter',10);
977:
978: -- attempt to find value of the parameter in the action parameter table.
979: select par.parameter_value
980: into param_value
1003:
1004: i number;
1005:
1006: begin
1007: hr_utility.set_location('pay_mix_rollback_pkg.commit_messages',10);
1008:
1009: for i in 1..g_message_count loop
1010: if g_message_tbl(i) is not null and g_message_id_tbl(i) is not null then
1011: insert into pay_message_lines(
1034: --
1035: -- commit;
1036: --
1037:
1038: hr_utility.set_location('pay_mix_rollback_pkg.commit_messages',20);
1039:
1040: end commit_messages;
1041:
1042: --
1045:
1046: procedure purge_rollback_messages(p_source_id in number, p_msg_type varchar2) is
1047:
1048: begin
1049: hr_utility.set_location('pay_mix_rollback_pkg.purge_rollback_messages',10);
1050:
1051: delete from pay_message_lines
1052: where source_id = p_source_id
1053: and source_type = p_msg_type;
1056:
1057: end purge_rollback_messages;
1058:
1059:
1060: end pay_mix_rollback_pkg;