1 package pay_ca_eoy_rl2_archive as
2 /* $Header: pycarl2a.pkh 120.1.12000000.1 2007/01/17 17:19:53 appldev noship $ */
3 --
4 /*
5 ******************************************************************
6 * *
7 * Copyright (C) 1992 Oracle Corporation UK Ltd., *
8 * Chertsey, England. *
9 * *
10 * All rights reserved. *
11 * *
12 * This material has been provided pursuant to an agreement *
13 * containing restrictions on its use. The material is also *
14 * protected by copyright law. No part of this material may *
15 * be copied or distributed, transmitted or transcribed, in *
16 * any form or by any means, electronic, mechanical, magnetic, *
17 * manual, or otherwise, or disclosed to third parties without *
18 * the express written permission of Oracle Corporation UK Ltd, *
19 * Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey, *
20 * England. *
21 * *
22 ******************************************************************
23
24 Description : Canadian RL2 Archiver Process
25
26 Change List
27 -----------
28 Date Name Vers Bug No Description
29 ----------- ---------- ----- ------- -----------------------------------
30 30-SEP-2002 SSattini 115.0 Created.
31 02-DEC-2002 SSattini 115.1 Added 'nocopy' for out and in out
32 parameters, GSCC compliance.
33 02-FEB-06 SSouresr 115.2 Added new plsql table for extra
34 employee data
35 */
36
37 procedure eoy_range_cursor(pactid in number,
38 sqlstr out nocopy varchar2);
39
40 procedure eoy_action_creation(pactid in number,
41 stperson in number,
42 endperson in number,
43 chunk in number);
44
45 procedure eoy_archive_data(p_assactid in number, p_effective_date in date);
46
47 procedure eoy_archinit(p_payroll_action_id in number);
48
49 procedure archive_data_records(
50 p_action_context_id in number
51 ,p_action_context_type in varchar2
52 ,p_assignment_id in number
53 ,p_tax_unit_id in number
54 ,p_effective_date in date
55 ,p_tab_rec_data in pay_ca_eoy_rl2_archive.action_info_table
56 );
57
58 /* Pl/Sql table to store and insert values into
59 pay_action_information table at one shot */
60
61 TYPE act_info_rec IS RECORD
62 ( action_context_id number(15)
63 ,action_context_type varchar2(1)
64 ,action_info_category varchar2(50)
65 ,jurisdiction_code varchar2(11)
66 ,act_info1 varchar2(300)
67 ,act_info2 varchar2(300)
68 ,act_info3 varchar2(300)
69 ,act_info4 varchar2(300)
70 ,act_info5 varchar2(300)
71 ,act_info6 varchar2(300)
72 ,act_info7 varchar2(300)
73 ,act_info8 varchar2(300)
74 ,act_info9 varchar2(300)
75 ,act_info10 varchar2(300)
76 ,act_info11 varchar2(300)
77 ,act_info12 varchar2(300)
78 ,act_info13 varchar2(300)
79 ,act_info14 varchar2(300)
80 ,act_info15 varchar2(300)
81 ,act_info16 varchar2(300)
82 ,act_info17 varchar2(300)
83 ,act_info18 varchar2(300)
84 ,act_info19 varchar2(300)
85 ,act_info20 varchar2(300)
86 ,act_info21 varchar2(300)
87 ,act_info22 varchar2(300)
88 ,act_info23 varchar2(300)
89 ,act_info24 varchar2(300)
90 ,act_info25 varchar2(300)
91 ,act_info26 varchar2(300)
92 ,act_info27 varchar2(300)
93 ,act_info28 varchar2(300)
94 ,act_info29 varchar2(300)
95 ,act_info30 varchar2(300)
96 );
97
98 TYPE action_info_table IS TABLE OF act_info_rec
99 INDEX BY BINARY_INTEGER;
100
101 ltr_ppa_arch_data action_info_table;
102 ltr_ppa_arch_er_data action_info_table;
103 ltr_ppa_arch_ee_data action_info_table;
104 ltr_ppa_arch_ee_data2 action_info_table;
105 ltr_ppa_arch_ee_ft_data action_info_table;
106
107 TYPE char240_data_type_table IS TABLE OF VARCHAR2(240)
108 INDEX BY BINARY_INTEGER;
109 TYPE number_data_type_table IS TABLE OF NUMBER
110 INDEX BY BINARY_INTEGER;
111
112 g_min_chunk number := -1;
113 g_archive_flag varchar2(1) := 'N';
114 g_rl2_last_slip_number number := 0;
115
116 end pay_ca_eoy_rl2_archive;