1 PACKAGE pay_nz_edf AUTHID CURRENT_USER AS
2 /** $Header: pynzedf.pkh 120.0 2010/05/11 12:13:33 pmatamsr noship $
3 *** +======================================================================+
4 *** | Copyright (c) 2000 Oracle Corporation |
5 *** | Redwood Shores, California, USA |
6 *** | All rights reserved. |
7 *** +======================================================================+
8 ***
9 *** Package Body Name : PAY_NZ_EDF
10 *** Package File Name : pynzedf.pkh
11 *** Description : This package is created for supporting the new
12 *** 'EDF/IR345 (New Zealand)' process in New Zealand
13 *** payroll. The cursors and procedures in the package
14 *** will be called by the XML generation process and adds
15 *** required XML tags in output XML.
16 ***
17 *** Name Date Version Bug Text
18 *** ------------ ----------- ------- ------- ------------------------------
19 *** PMATAMSR 07-APR-2010 115.0 9299387 Created
20 *** PMATAMSR 12-APR-2010 115.1 9299387 Corrected GSCC errors.
21 **/
22
23 level_cnt number;
24
25 /* Bug# 9299387 -- Cursor to retrieve Payroll Action Id for XML generation process */
26
27 CURSOR edf_hf IS
28 SELECT 'PAYROLL_ACTION_ID=P',
29 pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
30 FROM dual;
31
32 PROCEDURE range_code(p_payroll_action_id IN pay_payroll_actions.payroll_action_id%type,
33 p_sql OUT NOCOPY VARCHAR2);
34
35 PROCEDURE assignment_action_code(p_payroll_action_id IN pay_payroll_actions.payroll_action_id%TYPE,
36 p_start_person_id IN per_all_people_f.person_id%TYPE,
37 p_end_person_id IN per_all_people_f.person_id%TYPE,
38 p_chunk IN NUMBER);
39
40 /* Bug# 9299387 -- The following procedures will be called by the XML generation process
41 and adds required XML tags. */
42
43 PROCEDURE generate_detail_xml;
44
45 PROCEDURE generate_header_xml;
46
47 PROCEDURE generate_footer_xml;
48
49 END pay_nz_edf;