[Home] [Help]
8: ----------------------------------------------------------------------
9: -- Record with payroll action details populated in Initialization_code
10: ----------------------------------------------------------------------
11: type t_pact is record (
12: report_type pay_payroll_actions.report_type%TYPE,
13: report_qualifier pay_payroll_actions.report_qualifier%TYPE,
14: report_category pay_payroll_actions.report_category%TYPE,
15: business_group_id number,
16: effective_date date,
9: -- Record with payroll action details populated in Initialization_code
10: ----------------------------------------------------------------------
11: type t_pact is record (
12: report_type pay_payroll_actions.report_type%TYPE,
13: report_qualifier pay_payroll_actions.report_qualifier%TYPE,
14: report_category pay_payroll_actions.report_category%TYPE,
15: business_group_id number,
16: effective_date date,
17: retain_archive_data char(1),
10: ----------------------------------------------------------------------
11: type t_pact is record (
12: report_type pay_payroll_actions.report_type%TYPE,
13: report_qualifier pay_payroll_actions.report_qualifier%TYPE,
14: report_category pay_payroll_actions.report_category%TYPE,
15: business_group_id number,
16: effective_date date,
17: retain_archive_data char(1),
18: person_id per_people_f.person_id%type,
64: -- the archive process knows what code to execute for each step of
65: -- the archive.
66: --------------------------------------------------------------------
67: procedure range_code
68: ( p_payroll_action_id in pay_payroll_actions.payroll_action_id%type,
69: p_sql out nocopy varchar2)
70: is
71: l_proc_name varchar2(100);
72: c_range_cursor constant varchar2(3000) :=
70: is
71: l_proc_name varchar2(100);
72: c_range_cursor constant varchar2(3000) :=
73: ' select distinct pap.person_id
74: from pay_payroll_actions ppa,
75: per_people_f pap
76: where ppa.payroll_action_id = :payroll_action_id
77: and pap.business_group_id = ppa.business_group_id
78: order by pap.person_id ' ;
89: ------------------------------------------------------------
90: -- Assignment Action Code
91: ------------------------------------------------------------
92: procedure assignment_action_code
93: ( p_payroll_action_id in pay_payroll_actions.payroll_action_id%type,
94: p_start_person_id in per_all_people_f.person_id%type,
95: p_end_person_id in per_all_people_f.person_id%type,
96: p_chunk in number )
97: is
100: --
101: cursor c_assact
102: is
103: select max(paa.assignment_id) assignment_id
104: from pay_payroll_actions rppa,
105: pay_assignment_actions rpac,
106: per_assignments_f paa
107: where paa.person_id between p_start_person_id
108: and p_end_person_id
169: -- Initialization Code
170: ------------------------------------------------------------
171: --
172: procedure initialization_code
173: ( p_payroll_action_id in pay_payroll_actions.payroll_action_id%type )
174: is
175: l_proc_name varchar2(100) ;
176: begin
177: l_proc_name := l_package || 'initialization_code';
194: to_number(pay_core_utils.get_parameter('LEGAL_ENTITY_ID',ppa.legislative_parameters)) legal_entity_id,
195: to_date('01-01-'||pay_core_utils.get_parameter('BASIS_YEAR',legislative_parameters),'DD-MM-YYYY'),
196: to_date('31-12-'|| pay_core_utils.get_parameter('BASIS_YEAR',legislative_parameters),'DD-MM-YYYY')
197: into g_pact
198: from pay_payroll_actions ppa
199: where ppa.payroll_action_id = p_payroll_action_id;
200: end if ;
201: --
202: if g_debug then
219:
220: l_proc_name varchar2(100) ;
221: --
222: l_assignment_id per_all_assignments_f.assignment_id%type;
223: l_payroll_id pay_payroll_actions.payroll_action_id%type ;
224: --------------------------
225: -- Tables for pay_balance_pkg
226: --------------------------
227: g_balance_value_tab pay_balance_pkg.t_balance_value_tab;
277: max(pacmax.action_sequence) act_seq,
278: to_char(ppamax.effective_date,'MM')
279: from per_assignments_f paamax,
280: pay_assignment_actions pacmax,
281: pay_payroll_actions ppamax
282: where ppamax.business_group_id = c_business_group_id
283: and pacmax.tax_unit_id = c_legal_entity_id
284: and paamax.person_id = c_person_id
285: and paamax.assignment_id = pacmax.assignment_id
301: decode(ppa.action_type,'V',ppa.effective_date,ppa.date_earned) date_earned,
302: pac.tax_unit_id tax_uid
303: from per_assignments_f paa,
304: pay_assignment_actions pac,
305: pay_payroll_actions ppa
306: where ppa.business_group_id = c_business_group_id
307: and pac.tax_unit_id = c_legal_entity_id
308: and paa.person_id = c_person_id
309: and paa.assignment_id = pac.assignment_id
574: max(paa.action_sequence),
575: to_number(to_char(ppa.effective_date,'MM'))
576: from per_assignments_f paaf,
577: pay_assignment_actions paa,
578: pay_payroll_actions ppa
579: where paaf.person_id = p_person_id
580: and paa.assignment_id = paaf.assignment_id
581: and ppa.payroll_action_id = paa.payroll_action_id
582: and ppa.action_type in ('R','Q','B','V','I')
592: paa.assignment_action_id,
593: ppa.effective_date
594: from per_assignments_f paaf,
595: pay_assignment_actions paa,
596: pay_payroll_actions ppa
597: where paaf.person_id = p_person_id
598: and paa.assignment_id = paaf.assignment_id
599: and ppa.payroll_action_id = paa.payroll_action_id
600: and paa.action_sequence = c_action_sequence
748:
749: end get_cur_year_ord_ytd;
750: --
751: procedure deinit_code
752: ( p_payroll_action_id in pay_payroll_actions.payroll_action_id%type )
753: is
754: retain_archive_flag char(1);
755: l_rep_req_id number;
756: