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