1 PACKAGE BODY per_taskflow_migration AS
2 /* $Header: petflupg.pkb 115.4 2004/01/12 03:00:47 adhunter noship $ */
3 --
4 procedure migrateNavUnitdata
5 ( p_process_number IN varchar2
6 , p_max_number_proc IN varchar2
7 , p_param1 IN varchar2
8 , p_param2 IN varchar2
9 , p_param3 IN varchar2
10 , p_param4 IN varchar2
11 , p_param5 IN varchar2
12 , p_param6 IN varchar2
13 , p_param7 IN varchar2
14 , p_param8 IN varchar2
15 , p_param9 IN varchar2
16 , p_param10 IN varchar2
17 )
18 --
19 is
20 cursor csr_installed_languages is
21 select language_code,
22 nls_language
23 from fnd_languages
24 where installed_flag in ('I','B');
25
26 l_userenv_language_code varchar2(4) := userenv('LANG');
27 l_current_nls_language varchar2(30);
28 l_current_language varchar2(4);
29
30 begin
31 /*
32 ** clear out any existing data for this range of records
33 */
34 delete from HR_NAVIGATION_UNITS_TL T
35 where not exists
36 (select NULL
37 from HR_NAVIGATION_UNITS B
38 where B.NAV_UNIT_ID = T.NAV_UNIT_ID
39 );
40 /*
41 **
42 ** For each installed language insert a new record into the TL table for
43 ** each record in the range provided that is present in the base table.
44 */
45 for c_language in csr_installed_languages loop
46
47 /*
48 ** Set language for iteration....
49 */
50
51 hr_kflex_utility.set_session_nls_language(c_language.nls_language);
52 l_current_language := c_language.language_code;
53
54 /*
55 ** insert the TL rows
56 */
57
58 insert into hr_navigation_units_tl (
59 nav_unit_id
60 ,language
61 ,source_lang
62 ,default_label
63 ,created_by
64 ,creation_date
65 ,last_updated_by
66 ,last_update_date
67 )
68 select b.nav_unit_id
69 ,l_current_language
70 ,l_userenv_language_code
71 ,b.default_label
72 ,1
73 ,sysdate
74 ,1
75 ,sysdate
76 from hr_navigation_units b
77 where not exists
78 (select '1'
79 from hr_navigation_units_tl t
80 where t.nav_unit_id = b.nav_unit_id
81 and t.language = l_current_language);
82
83 end loop;
84
85 hr_kflex_utility.set_session_language_code(l_userenv_language_code );
86
87 Exception
88 --
89 When Others Then
90 --
91 hr_kflex_utility.set_session_language_code(l_userenv_language_code );
92 --
93 raise;
94
95 end migrateNavUnitData;
96
97 procedure migrateNavPathdata
98 ( p_process_number IN varchar2
99 , p_max_number_proc IN varchar2
100 , p_param1 IN varchar2
101 , p_param2 IN varchar2
102 , p_param3 IN varchar2
103 , p_param4 IN varchar2
104 , p_param5 IN varchar2
105 , p_param6 IN varchar2
106 , p_param7 IN varchar2
107 , p_param8 IN varchar2
108 , p_param9 IN varchar2
109 , p_param10 IN varchar2
110 )
111 --
112 is
113 cursor csr_installed_languages is
114 select language_code,
115 nls_language
116 from fnd_languages
117 where installed_flag in ('I','B');
118
119 l_userenv_language_code varchar2(4) := userenv('LANG');
120 l_current_nls_language varchar2(30);
121 l_current_language varchar2(4);
122
123 begin
124 /*
125 ** clear out any existing data for this range of records
126 */
127 delete from HR_NAVIGATION_PATHS_TL T
128 where not exists
129 (select NULL
130 from HR_NAVIGATION_PATHS B
131 where B.NAV_PATH_ID = T.NAV_PATH_ID
132 );
133 /*
134 **
135 ** For each installed language insert a new record into the TL table for
136 ** each record in the range provided that is present in the base table.
137 */
138 for c_language in csr_installed_languages loop
139
140 /*
141 ** Set language for iteration....
142 */
143
144 hr_kflex_utility.set_session_nls_language(c_language.nls_language);
145 l_current_language := c_language.language_code;
146
147 /*
148 ** insert the TL rows
149 */
150
151 insert into hr_navigation_paths_tl (
152 nav_path_id
153 ,language
154 ,source_lang
155 ,override_label
156 ,created_by
157 ,creation_date
158 ,last_updated_by
159 ,last_update_date
160 )
161 select b.nav_path_id
162 ,l_current_language
163 ,l_userenv_language_code
164 ,b.override_label
165 ,1
166 ,sysdate
167 ,1
168 ,sysdate
169 from hr_navigation_paths b
170 where not exists
171 (select '1'
172 from hr_navigation_paths_tl t
173 where t.nav_path_id = b.nav_path_id
174 and t.language = l_current_language);
175
176 end loop;
177
178 hr_kflex_utility.set_session_language_code(l_userenv_language_code );
179
180 Exception
181 --
182 When Others Then
183 --
184 hr_kflex_utility.set_session_language_code(l_userenv_language_code );
185 --
186 raise;
187
188 end migrateNavPathData;
189
190 end per_taskflow_migration;