1 PACKAGE PER_NL_LTSR_ARCHIVE AUTHID CURRENT_USER as
2 /* $Header: penlltsr.pkh 120.1.12020000.1 2012/07/17 08:55:22 asudhaka noship $ */
3
4 level_cnt number;
5
6 /*Record for storing XML tag and its value*/
7 TYPE XMLRec IS RECORD (TagName VARCHAR2(1000)
8 ,TagValue VARCHAR2(4000));
9
10 TYPE tXMLTable IS TABLE OF XMLRec INDEX BY BINARY_INTEGER;
11
12 FUNCTION get_parameter (p_parameter_string IN VARCHAR2
13 ,p_token IN VARCHAR2
14 ,p_segment_number IN NUMBER DEFAULT NULL )
15 RETURN VARCHAR2;
16
17 --Function required for valueset HR_NL_EMPLOYER_LTSR
18 FUNCTION org_check (p_bg_id IN NUMBER
19 ,p_org_struct_id IN NUMBER
20 ,p_org_id IN NUMBER
21 ,p_start_date IN DATE
22 ,p_end_date IN DATE)
23 RETURN NUMBER;
24
25 --Function required for valueset HR_NL_EMPLOYEE_LTSR
26 FUNCTION emp_check (p_bg_id IN NUMBER
27 ,p_org_struct_id IN NUMBER
28 ,p_org_id IN NUMBER
29 ,p_person_id IN NUMBER
30 ,p_start_date IN DATE
31 ,p_end_date IN DATE)
32 RETURN NUMBER;
33
34 PROCEDURE range_code (pactid IN NUMBER
35 ,sqlstr OUT NOCOPY VARCHAR2);
36
37 PROCEDURE initialization_code(p_action_context_id in number);
38
39 PROCEDURE assignment_action_code (p_payroll_action_id IN NUMBER
40 ,p_start_person_id IN NUMBER
41 ,p_end_person_id IN NUMBER
42 ,p_chunk IN NUMBER);
43
44 PROCEDURE archive_code (p_assignment_action_id IN NUMBER
45 ,p_effective_date IN DATE);
46
47 PROCEDURE gen_header_xml;
48
49 PROCEDURE gen_body_xml;
50
51 PROCEDURE gen_footer_xml;
52
53 PROCEDURE deinitialization_code(p_actid IN NUMBER);
54
55 /**************************************************************************/
56 CURSOR c_body IS
57 SELECT 'TRANSFER_ACT_ID=P'
58 ,paa.assignment_action_id
59 FROM pay_assignment_actions paa
60 WHERE paa.payroll_action_id = to_number (pay_magtape_generic.get_parameter_value ('TRANSFER_PAYROLL_ACTION_ID'))
61 ORDER BY paa.assignment_action_id;
62 /**************************************************************************/
63 CURSOR c_hdr IS
64 SELECT 'PAYROLL_ACTION_ID=P'
65 ,pay_magtape_generic.get_parameter_value ('TRANSFER_PAYROLL_ACTION_ID')
66 FROM dual;
67 /**************************************************************************/
68 CURSOR c_asg_actions IS
69 SELECT 'TRANSFER_ACT_ID=P'
70 ,pay_magtape_generic.get_parameter_value ('TRANSFER_ACT_ID')
71 FROM dual;
72
73 END PER_NL_LTSR_ARCHIVE;
74