12: procedure range_code
13: (p_payroll_action_id in pay_payroll_actions.payroll_action_id%type,
14: p_sql out nocopy varchar2) is
15: begin
16: hr_utility.set_location('Start of range_code',1);
17:
18: p_sql := 'select distinct person_id ' ||
19: 'from per_people_f ppf, ' ||
20: 'pay_payroll_actions ppa ' ||
21: 'where ppa.payroll_action_id = :payroll_action_id ' ||
22: 'and ppa.business_group_id = ppf.business_group_id ' ||
23: 'order by ppf.person_id';
24:
25: hr_utility.set_location('End of range_code',2);
26: end range_code;
27: ------------------------------------------------------------------------
28: -- This procedure is used to restrict the Assignment Action Creation.
29: -- It calls the procedure that actually inserts the Assignment Actions.
119: where pac.assignment_id = c_assignment_id
120: and pac.payroll_action_id = c_payroll_action_id;
121:
122: begin
123: hr_utility.set_location('Start of assignment_action_code',3);
124:
125: for process_rec in process_assignments (p_payroll_action_id,
126: p_start_person_id,
127: p_end_person_id) loop
128: open next_action_id;
129: fetch next_action_id into v_next_action_id;
130: close next_action_id;
131:
132: hr_utility.set_location('Before calling hr_nonrun_asact.insact',4);
133:
134: pay_balance_pkg.set_context('TAX_UNIT_ID',process_rec.legal_entity_id);
135: pay_balance_pkg.set_context('ASSIGNMENT_ACTION_ID',v_next_action_id);
136:
148: v_archive_action_id); -- locked action id
149: else
150: close locked_action;
151: end if;
152: hr_utility.set_location('After calling hr_nonrun_asact.insact',4);
153:
154: end loop;
155:
156: hr_utility.set_location('End of assignment_action_code',5);
152: hr_utility.set_location('After calling hr_nonrun_asact.insact',4);
153:
154: end loop;
155:
156: hr_utility.set_location('End of assignment_action_code',5);
157: end assignment_action_code;
158: ------------------------------------------------------------------------
159: -- This is used by legislation groups to set global contexts that are
160: -- required for the lifetime of the archiving process. This is null
164: ------------------------------------------------------------------------
165: procedure initialization_code
166: (p_payroll_action_id in pay_payroll_actions.payroll_action_id%type) is
167: begin
168: hr_utility.set_location('Start of initialization_code',6);
169: null;
170: hr_utility.set_location('End of initialization_code',7);
171: end initialization_code;
172: ------------------------------------------------------------------------
166: (p_payroll_action_id in pay_payroll_actions.payroll_action_id%type) is
167: begin
168: hr_utility.set_location('Start of initialization_code',6);
169: null;
170: hr_utility.set_location('End of initialization_code',7);
171: end initialization_code;
172: ------------------------------------------------------------------------
173: -- Used to actually perform the archival of data. We are not archiving
174: -- any data here, so this is null.
177: (p_assignment_action_id in pay_assignment_actions.assignment_action_id%type,
178: p_effective_date in date) is
179:
180: begin
181: hr_utility.set_location('Start of archive_code',8);
182: null;
183: hr_utility.set_location('End of archive_code',9);
184: end archive_code;
185: ---------------------------------------------------------------------------
179:
180: begin
181: hr_utility.set_location('Start of archive_code',8);
182: null;
183: hr_utility.set_location('End of archive_code',9);
184: end archive_code;
185: ---------------------------------------------------------------------------
186: -- 5616519, This function is not needed anymore.
187: ---------------------------------------------------------------------------