1 PACKAGE PER_NL_DSR_ARCHIVE AUTHID CURRENT_USER as
2 /* $Header: penldsr.pkh 120.1.12020000.1 2012/07/17 08:51:54 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 returning Person EIT details to Absence EIT
18 FUNCTION get_person_details (p_id IN NUMBER
19 ,p_effective_date IN DATE
20 ,p_info IN VARCHAR2
21 ,p_language IN VARCHAR2 DEFAULT userenv('lang'))
22 RETURN VARCHAR2;
23
24 --Function required for valueset HR_NL_EMPLOYER_DSR
25 FUNCTION org_check (p_bg_id IN NUMBER
26 ,p_org_struct_id IN NUMBER
27 ,p_org_id IN NUMBER
28 ,p_start_date IN DATE
29 ,p_end_date IN DATE)
30 RETURN NUMBER;
31
32 --Function required for valueset HR_NL_EMPLOYEE_DSR
33 FUNCTION emp_check (p_bg_id IN NUMBER
34 ,p_org_struct_id IN NUMBER
35 ,p_org_id IN NUMBER
36 ,p_person_id IN NUMBER
37 ,p_start_date IN DATE
38 ,p_end_date IN DATE)
39 RETURN NUMBER;
40
41 PROCEDURE range_code (pactid IN NUMBER
42 ,sqlstr OUT NOCOPY VARCHAR2);
43
44 PROCEDURE initialization_code(p_action_context_id in number);
45
46 PROCEDURE assignment_action_code (p_payroll_action_id IN NUMBER
47 ,p_start_person_id IN NUMBER
48 ,p_end_person_id IN NUMBER
49 ,p_chunk IN NUMBER);
50
51 PROCEDURE archive_code (p_assignment_action_id IN NUMBER
52 ,p_effective_date IN DATE);
53
54 PROCEDURE gen_header_xml;
55
56 PROCEDURE gen_body_xml;
57
58 PROCEDURE gen_footer_xml;
59
60 PROCEDURE deinitialization_code(p_actid IN NUMBER);
61
62 /**************************************************************************/
63 CURSOR c_body IS
64 SELECT 'TRANSFER_ACT_ID=P'
65 ,paa.assignment_action_id
66 FROM pay_assignment_actions paa
67 WHERE paa.payroll_action_id = to_number (pay_magtape_generic.get_parameter_value ('TRANSFER_PAYROLL_ACTION_ID'))
68 ORDER BY paa.assignment_action_id;
69 /**************************************************************************/
70 CURSOR c_hdr IS
71 SELECT 'PAYROLL_ACTION_ID=P'
72 ,pay_magtape_generic.get_parameter_value ('TRANSFER_PAYROLL_ACTION_ID')
73 FROM dual;
74 /**************************************************************************/
75 CURSOR c_asg_actions IS
76 SELECT 'TRANSFER_ACT_ID=P'
77 ,pay_magtape_generic.get_parameter_value ('TRANSFER_ACT_ID')
78 FROM dual;
79
80 END PER_NL_DSR_ARCHIVE;
81
82