1: PACKAGE BODY pay_payslip_report AS
2: /* $Header: pygpsrep.pkb 120.0.12010000.1 2008/07/27 22:47:28 appldev ship $ */
3: --
4: -- Globals
5: --
257: l_start_dt := TO_DATE(l_start_date,'YYYY/MM/DD');
258: l_end_dt := TO_DATE(l_end_date,'YYYY/MM/DD');
259: --EXECUTE IMMEDIATE 'SELECT pay_'||l_legislation_code||'_rules.get_payroll_token FROM DUAL' into l_token;
260: --
261: IF pay_payslip_report.g_pa_token IS NULL THEN
262: DECLARE
263: BEGIN
264: statem := 'BEGIN pay_'||l_legislation_code||'_rules.get_token_names(:p_pa_token, :p_cs_token); END;';
265: --hr_utility.trace(statem);
266: sql_cur := dbms_sql.open_cursor;
267: dbms_sql.parse(sql_cur
268: ,statem
269: ,dbms_sql.v7);
270: dbms_sql.bind_variable(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token, 50);
271: dbms_sql.bind_variable(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token, 50);
272: l_rows := dbms_sql.execute(sql_cur);
273: dbms_sql.variable_value(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token);
274: dbms_sql.variable_value(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token);
267: dbms_sql.parse(sql_cur
268: ,statem
269: ,dbms_sql.v7);
270: dbms_sql.bind_variable(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token, 50);
271: dbms_sql.bind_variable(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token, 50);
272: l_rows := dbms_sql.execute(sql_cur);
273: dbms_sql.variable_value(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token);
274: dbms_sql.variable_value(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token);
275: dbms_sql.close_cursor(sql_cur);
269: ,dbms_sql.v7);
270: dbms_sql.bind_variable(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token, 50);
271: dbms_sql.bind_variable(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token, 50);
272: l_rows := dbms_sql.execute(sql_cur);
273: dbms_sql.variable_value(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token);
274: dbms_sql.variable_value(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token);
275: dbms_sql.close_cursor(sql_cur);
276: Exception
277: WHEN OTHERS THEN
270: dbms_sql.bind_variable(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token, 50);
271: dbms_sql.bind_variable(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token, 50);
272: l_rows := dbms_sql.execute(sql_cur);
273: dbms_sql.variable_value(sql_cur, 'p_pa_token', pay_payslip_report.g_pa_token);
274: dbms_sql.variable_value(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token);
275: dbms_sql.close_cursor(sql_cur);
276: Exception
277: WHEN OTHERS THEN
278: pay_payslip_report.g_pa_token := NVL(pay_payslip_report.g_pa_token,'PAYROLL_ID');
274: dbms_sql.variable_value(sql_cur, 'p_cs_token', pay_payslip_report.g_cs_token);
275: dbms_sql.close_cursor(sql_cur);
276: Exception
277: WHEN OTHERS THEN
278: pay_payslip_report.g_pa_token := NVL(pay_payslip_report.g_pa_token,'PAYROLL_ID');
279: pay_payslip_report.g_cs_token := NVL(pay_payslip_report.g_cs_token,'CONSOLIDATION_SET_ID');
280: --
281: IF dbms_sql.IS_OPEN(sql_cur) THEN
282: dbms_sql.close_cursor(sql_cur);
275: dbms_sql.close_cursor(sql_cur);
276: Exception
277: WHEN OTHERS THEN
278: pay_payslip_report.g_pa_token := NVL(pay_payslip_report.g_pa_token,'PAYROLL_ID');
279: pay_payslip_report.g_cs_token := NVL(pay_payslip_report.g_cs_token,'CONSOLIDATION_SET_ID');
280: --
281: IF dbms_sql.IS_OPEN(sql_cur) THEN
282: dbms_sql.close_cursor(sql_cur);
283: END IF;
306: ,l_payroll_id
307: ,l_consolidation_set_id
308: ,l_start_dt
309: ,l_end_dt
310: ,pay_payslip_report.g_pa_token
311: ,pay_payslip_report.g_cs_token
312: ,l_legislation_code );
313: FETCH csr_asg INTO l_qualifier;
314: CLOSE csr_asg;
307: ,l_consolidation_set_id
308: ,l_start_dt
309: ,l_end_dt
310: ,pay_payslip_report.g_pa_token
311: ,pay_payslip_report.g_cs_token
312: ,l_legislation_code );
313: FETCH csr_asg INTO l_qualifier;
314: CLOSE csr_asg;
315: --
333: ,l_payroll_id
334: ,l_consolidation_set_id
335: ,l_start_dt
336: ,l_end_dt
337: ,pay_payslip_report.g_pa_token
338: ,pay_payslip_report.g_cs_token
339: ,l_legislation_code
340: ,l_assignment_set_id );
341: FETCH csr_inc_asg INTO l_qualifier;
334: ,l_consolidation_set_id
335: ,l_start_dt
336: ,l_end_dt
337: ,pay_payslip_report.g_pa_token
338: ,pay_payslip_report.g_cs_token
339: ,l_legislation_code
340: ,l_assignment_set_id );
341: FETCH csr_inc_asg INTO l_qualifier;
342: CLOSE csr_inc_asg;
431: FOR csr_archive_act_rec in csr_archive_act(l_payroll_id
432: ,l_consolidation_set_id
433: ,l_start_dt
434: ,l_end_dt
435: ,pay_payslip_report.g_pa_token
436: ,pay_payslip_report.g_cs_token
437: ,l_legislation_code) LOOP
438: --
439: pay_payroll_xml_extract_pkg.generate(
432: ,l_consolidation_set_id
433: ,l_start_dt
434: ,l_end_dt
435: ,pay_payslip_report.g_pa_token
436: ,pay_payslip_report.g_cs_token
437: ,l_legislation_code) LOOP
438: --
439: pay_payroll_xml_extract_pkg.generate(
440: P_ACTION_CONTEXT_ID => csr_archive_act_rec.action_context_id
451: pay_core_files.write_to_magtape_lob('');
452: --
453: END xml_asg;
454: --
455: END pay_payslip_report;