1 package pay_ca_eoy_rl2_archive AUTHID CURRENT_USER as
2 /* $Header: pycarl2a.pkh 120.2.12020000.2 2012/07/04 21:56:50 amnaraya ship $ */
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 09-APR-2009 sapalani 115.3 6768167 Added Function gen_rl2_pdf_seq.
36 24-Jan-2012 rgottipa 115.4 13584299 Added 'ltr_ppa_arch_ee_further_data'
37 to support further information.
38 */
39
40 procedure eoy_range_cursor(pactid in number,
41 sqlstr out nocopy varchar2);
42
43 procedure eoy_action_creation(pactid in number,
44 stperson in number,
45 endperson in number,
46 chunk in number);
47
48 procedure eoy_archive_data(p_assactid in number, p_effective_date in date);
49
50 procedure eoy_archinit(p_payroll_action_id in number);
51
52 procedure archive_data_records(
53 p_action_context_id in number
54 ,p_action_context_type in varchar2
55 ,p_assignment_id in number
56 ,p_tax_unit_id in number
57 ,p_effective_date in date
58 ,p_tab_rec_data in pay_ca_eoy_rl2_archive.action_info_table
59 );
60
61 function gen_rl2_pdf_seq(p_aaid number,
62 p_reporting_year varchar2,
63 called_from varchar2)
64 return varchar2;
65
66 /* Pl/Sql table to store and insert values into
67 pay_action_information table at one shot */
68
69 TYPE act_info_rec IS RECORD
70 ( action_context_id number(15)
71 ,action_context_type varchar2(1)
72 ,action_info_category varchar2(50)
73 ,jurisdiction_code varchar2(11)
74 ,act_info1 varchar2(300)
75 ,act_info2 varchar2(300)
76 ,act_info3 varchar2(300)
77 ,act_info4 varchar2(300)
78 ,act_info5 varchar2(300)
79 ,act_info6 varchar2(300)
80 ,act_info7 varchar2(300)
81 ,act_info8 varchar2(300)
82 ,act_info9 varchar2(300)
83 ,act_info10 varchar2(300)
84 ,act_info11 varchar2(300)
85 ,act_info12 varchar2(300)
86 ,act_info13 varchar2(300)
87 ,act_info14 varchar2(300)
88 ,act_info15 varchar2(300)
89 ,act_info16 varchar2(300)
90 ,act_info17 varchar2(300)
91 ,act_info18 varchar2(300)
92 ,act_info19 varchar2(300)
93 ,act_info20 varchar2(300)
94 ,act_info21 varchar2(300)
95 ,act_info22 varchar2(300)
96 ,act_info23 varchar2(300)
97 ,act_info24 varchar2(300)
98 ,act_info25 varchar2(300)
99 ,act_info26 varchar2(300)
100 ,act_info27 varchar2(300)
101 ,act_info28 varchar2(300)
102 ,act_info29 varchar2(300)
103 ,act_info30 varchar2(300)
104 );
105
106 TYPE action_info_table IS TABLE OF act_info_rec
107 INDEX BY BINARY_INTEGER;
108
109 ltr_ppa_arch_data action_info_table;
110 ltr_ppa_arch_er_data action_info_table;
111 ltr_ppa_arch_ee_data action_info_table;
112 ltr_ppa_arch_ee_data2 action_info_table;
113 ltr_ppa_arch_ee_ft_data action_info_table;
114 ltr_ppa_arch_ee_further_data action_info_table; --bug 13545861
115
116 TYPE char240_data_type_table IS TABLE OF VARCHAR2(240)
117 INDEX BY BINARY_INTEGER;
118 TYPE number_data_type_table IS TABLE OF NUMBER
119 INDEX BY BINARY_INTEGER;
120
121 g_min_chunk number := -1;
122 g_archive_flag varchar2(1) := 'N';
123 g_rl2_last_slip_number number := 0;
124
125 end pay_ca_eoy_rl2_archive;