[Home] [Help]
PACKAGE BODY: APPS.PER_RI_CONFIG_IMPORT_PKG
Source
1 Package Body per_ri_config_import_pkg as
2 /* $Header: perricnfimp.pkb 120.0 2005/06/01 00:47:40 appldev noship $ */
3
4
5
6 Procedure load_configuration( p_configuration_code In Varchar2
7 ,p_configuration_type In Varchar2
8 ,p_configuration_status In Varchar2
9 ,p_configuration_name In Varchar2
10 ,p_configuration_description In Varchar2
11 ,p_effective_date In Date
12 ,p_enterprise_shortname In Varchar2
13 ) Is
14 Cursor csr_cnf Is
15 Select object_version_number
16 From per_ri_configurations
17 Where configuration_code = p_configuration_code;
18
19
20 Cursor csr_ent_shtname Is
21 Select config_information2
22 From per_ri_config_information
23 Where configuration_code <> p_configuration_code
24 And config_information_category='CONFIG ENTERPRISE'
25 And config_information2 = p_enterprise_shortname;
26
27
28 l_ovn Number;
29 l_ent_shtname Varchar2(240);
30 import_cnf_exception Exception;
31 ent_shtname_exception Exception;
32 ldt_file_incomp_exception Exception;
33
34 Begin
35
36 Open csr_cnf;
37 Fetch csr_cnf Into l_ovn;
38
39 Open csr_ent_shtname;
40 Fetch csr_ent_shtname Into l_ent_shtname;
41
42 If(p_enterprise_shortname is null) Then
43 RAISE ldt_file_incomp_exception;
44 End if;
45
46
47 If( csr_cnf %Found ) Then
48 RAISE import_cnf_exception ;
49
50 ElsIf ( csr_ent_shtname %Found) Then
51 RAISE ent_shtname_exception;
52
53 Else
54
55 per_ri_configuration_api.create_configuration(p_configuration_code => p_configuration_code
56 ,p_configuration_type => p_configuration_type
57 ,p_configuration_status => p_configuration_status
58 ,p_configuration_name => p_configuration_name
59 ,p_configuration_description => p_configuration_description
60 ,p_effective_date => p_effective_date
61 ,p_object_version_number => l_ovn
62 );
63
64 End If;
65
66 Exception
67 when import_cnf_exception then
68 FND_MESSAGE.SET_NAME('PER','PER_449451_RI_IMP_CFG_ERR');
69 FND_MESSAGE.SET_TOKEN('CONFIGNAME', p_configuration_name);
70 FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
71
72 FND_MESSAGE.SET_NAME('PER','PER_449452_RI_IMP_CFG_ERR');
73 FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
74 FND_MESSAGE.raise_error;
75 when ent_shtname_exception then
76 FND_MESSAGE.SET_NAME('PER','PER_449564_RI_IMP_ESN_WRN');
77 FND_MESSAGE.SET_TOKEN('ENTERPRISESHTNAME', p_enterprise_shortname);
78 FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
79 FND_MESSAGE.raise_error;
80 when ldt_file_incomp_exception then
81 FND_MESSAGE.SET_NAME('PER','PER_449570_RI_IMP_OLD_LDT_ERR');
82 FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
83 FND_MESSAGE.raise_error;
84
85
86 End load_configuration;
87
88 Procedure load_config_information
89 (p_configuration_code In Varchar2
90 ,p_config_information_category In Varchar2
91 ,p_config_sequence In Number
92 ,p_config_information1 In Varchar2 Default Null
93 ,p_config_information2 In Varchar2 Default Null
94 ,p_config_information3 In Varchar2 Default Null
95 ,p_config_information4 In Varchar2 Default Null
96 ,p_config_information5 In Varchar2 Default Null
97 ,p_config_information6 In Varchar2 Default Null
98 ,p_config_information7 In Varchar2 Default Null
99 ,p_config_information8 In Varchar2 Default Null
100 ,p_config_information9 In Varchar2 Default Null
101 ,p_config_information10 In Varchar2 Default Null
102 ,p_config_information11 In Varchar2 Default Null
103 ,p_config_information12 In Varchar2 Default Null
104 ,p_config_information13 In Varchar2 Default Null
105 ,p_config_information14 In Varchar2 Default Null
106 ,p_config_information15 In Varchar2 Default Null
107 ,p_config_information16 In Varchar2 Default Null
108 ,p_config_information17 In Varchar2 Default Null
109 ,p_config_information18 In Varchar2 Default Null
110 ,p_config_information19 In Varchar2 Default Null
111 ,p_config_information20 In Varchar2 Default Null
112 ,p_config_information21 In Varchar2 Default Null
113 ,p_config_information22 In Varchar2 Default Null
114 ,p_config_information23 In Varchar2 Default Null
115 ,p_config_information24 In Varchar2 Default Null
116 ,p_config_information25 In Varchar2 Default Null
117 ,p_config_information26 In Varchar2 Default Null
118 ,p_config_information27 In Varchar2 Default Null
119 ,p_config_information28 In Varchar2 Default Null
120 ,p_config_information29 In Varchar2 Default Null
121 ,p_config_information30 In Varchar2 Default Null
122 ,p_effective_date In Date
123 ) Is
124 Cursor csr_cni Is
125 Select object_version_number
126 ,config_information_id
127 From per_ri_config_information
128 Where configuration_code = p_configuration_code
129 and config_information_category = p_config_information_category
130 and config_sequence = p_config_sequence;
131
132
133 cursor csr_get_locid (p_location_code varchar2, p_configuration_code varchar2)
134 is
135 select location_id
136 from per_ri_config_locations
137 where location_code = p_location_code
138 and configuration_code = p_configuration_code;
139
140
141 l_ovn Number;
142 l_cni_id Number;
143 l_child_location_id number default null;
144
145
146 Begin
147
148 Open csr_cni;
149 Fetch csr_cni Into l_ovn,l_cni_id;
150
151 If csr_cni %NotFound Then
152 If(p_config_information_category ='CONFIG ENTERPRISE' OR p_config_information_category = 'CONFIG LEGAL ENTITY')
153 Then
154 open csr_get_locid(p_config_information5,p_configuration_code);
155 fetch csr_get_locid into l_child_location_id;
156
157 per_ri_config_information_api.create_config_information(p_configuration_code => p_configuration_code
158 ,p_config_information_category => p_config_information_category
159 ,p_config_sequence => p_config_sequence
160 ,p_config_information1 => p_config_information1
161 ,p_config_information2 => p_config_information2
162 ,p_config_information3 => p_config_information3
163 ,p_config_information4 => p_config_information4
164 ,p_config_information5 => l_child_location_id
165 ,p_config_information6 => p_config_information6
166 ,p_config_information7 => p_config_information7
167 ,p_config_information8 => p_config_information8
168 ,p_config_information9 => p_config_information9
169 ,p_config_information10 => p_config_information10
170 ,p_config_information11 => p_config_information11
171 ,p_config_information12 => p_config_information12
172 ,p_config_information13 => p_config_information13
173 ,p_config_information14 => p_config_information14
174 ,p_config_information15 => p_config_information15
175 ,p_config_information16 => p_config_information16
176 ,p_config_information17 => p_config_information17
177 ,p_config_information18 => p_config_information18
178 ,p_config_information19 => p_config_information19
179 ,p_config_information20 => p_config_information20
180 ,p_config_information21 => p_config_information21
181 ,p_config_information22 => p_config_information22
182 ,p_config_information23 => p_config_information23
183 ,p_config_information24 => p_config_information24
184 ,p_config_information25 => p_config_information25
185 ,p_config_information26 => p_config_information26
186 ,p_config_information27 => p_config_information27
187 ,p_config_information28 => p_config_information28
188 ,p_config_information29 => p_config_information29
189 ,p_config_information30 => p_config_information30
190 ,p_effective_date => p_effective_date
191 ,p_object_version_number => l_ovn
192 ,p_config_information_id => l_cni_id
193 );
194 close csr_get_locid;
195
196
197 ElsIf(p_config_information_category ='CONFIG OPERATING COMPANY')
198 Then
199 open csr_get_locid(p_config_information4,p_configuration_code);
200 fetch csr_get_locid into l_child_location_id;
201 per_ri_config_information_api.create_config_information(p_configuration_code => p_configuration_code
202 ,p_config_information_category => p_config_information_category
203 ,p_config_sequence => p_config_sequence
204 ,p_config_information1 => p_config_information1
205 ,p_config_information2 => p_config_information2
206 ,p_config_information3 => p_config_information3
207 ,p_config_information4 => l_child_location_id
208 ,p_config_information5 => p_config_information5
209 ,p_config_information6 => p_config_information6
210 ,p_config_information7 => p_config_information7
211 ,p_config_information8 => p_config_information8
212 ,p_config_information9 => p_config_information9
213 ,p_config_information10 => p_config_information10
214 ,p_config_information11 => p_config_information11
215 ,p_config_information12 => p_config_information12
216 ,p_config_information13 => p_config_information13
217 ,p_config_information14 => p_config_information14
218 ,p_config_information15 => p_config_information15
219 ,p_config_information16 => p_config_information16
220 ,p_config_information17 => p_config_information17
221 ,p_config_information18 => p_config_information18
222 ,p_config_information19 => p_config_information19
223 ,p_config_information20 => p_config_information20
224 ,p_config_information21 => p_config_information21
225 ,p_config_information22 => p_config_information22
226 ,p_config_information23 => p_config_information23
227 ,p_config_information24 => p_config_information24
228 ,p_config_information25 => p_config_information25
229 ,p_config_information26 => p_config_information26
230 ,p_config_information27 => p_config_information27
231 ,p_config_information28 => p_config_information28
232 ,p_config_information29 => p_config_information29
233 ,p_config_information30 => p_config_information30
234 ,p_effective_date => p_effective_date
235 ,p_object_version_number => l_ovn
236 ,p_config_information_id => l_cni_id
237 );
238 close csr_get_locid;
239
240
241 Else
242 per_ri_config_information_api.create_config_information(p_configuration_code => p_configuration_code
243 ,p_config_information_category => p_config_information_category
244 ,p_config_sequence => p_config_sequence
245 ,p_config_information1 => p_config_information1
246 ,p_config_information2 => p_config_information2
247 ,p_config_information3 => p_config_information3
248 ,p_config_information4 => p_config_information4
249 ,p_config_information5 => p_config_information5
250 ,p_config_information6 => p_config_information6
251 ,p_config_information7 => p_config_information7
252 ,p_config_information8 => p_config_information8
253 ,p_config_information9 => p_config_information9
254 ,p_config_information10 => p_config_information10
255 ,p_config_information11 => p_config_information11
256 ,p_config_information12 => p_config_information12
257 ,p_config_information13 => p_config_information13
258 ,p_config_information14 => p_config_information14
259 ,p_config_information15 => p_config_information15
260 ,p_config_information16 => p_config_information16
261 ,p_config_information17 => p_config_information17
262 ,p_config_information18 => p_config_information18
263 ,p_config_information19 => p_config_information19
264 ,p_config_information20 => p_config_information20
265 ,p_config_information21 => p_config_information21
266 ,p_config_information22 => p_config_information22
267 ,p_config_information23 => p_config_information23
268 ,p_config_information24 => p_config_information24
269 ,p_config_information25 => p_config_information25
270 ,p_config_information26 => p_config_information26
271 ,p_config_information27 => p_config_information27
272 ,p_config_information28 => p_config_information28
273 ,p_config_information29 => p_config_information29
274 ,p_config_information30 => p_config_information30
275 ,p_effective_date => p_effective_date
276 ,p_object_version_number => l_ovn
277 ,p_config_information_id => l_cni_id
278 );
279
280
281
282
283
284 End If;
285
286
287
288 End If;
289
290
291 End load_config_information;
292
293
294 Procedure load_config_location(p_configuration_code In Varchar2
295 ,p_configuration_context In Varchar2
296 ,p_location_code In Varchar2
297 ,p_description In Varchar2 Default Null
298 ,p_style In Varchar2 Default Null
299 ,p_address_line_1 In Varchar2 Default Null
300 ,p_address_line_2 In Varchar2 Default Null
301 ,p_address_line_3 In Varchar2 Default Null
302 ,p_town_or_city In Varchar2 Default Null
303 ,p_country In Varchar2 Default Null
304 ,p_postal_code In Varchar2 Default Null
305 ,p_region_1 In Varchar2 Default Null
306 ,p_region_2 In Varchar2 Default Null
307 ,p_region_3 In Varchar2 Default Null
308 ,p_telephone_number_1 In Varchar2 Default Null
309 ,p_telephone_number_2 In Varchar2 Default Null
310 ,p_telephone_number_3 In Varchar2 Default Null
311 ,p_loc_information13 In Varchar2 Default Null
312 ,p_loc_information14 In Varchar2 Default Null
313 ,p_loc_information15 In Varchar2 Default Null
314 ,p_loc_information16 In Varchar2 Default Null
315 ,p_loc_information17 In Varchar2 Default Null
316 ,p_loc_information18 In Varchar2 Default Null
317 ,p_loc_information19 In Varchar2 Default Null
318 ,p_loc_information20 In Varchar2 Default Null
319 ,p_effective_date In Date
320 ) Is
321
322 Cursor csr_cnl Is
323 Select object_version_number , location_id
324 From per_ri_config_locations
325 Where configuration_code = p_configuration_code
326 and configuration_context = p_configuration_context
327 and location_code = p_location_code;
328
329 l_ovn Number;
330 l_location_id Number;
331
332 Begin
333
334 Open csr_cnl;
335 Fetch csr_cnl Into l_ovn,l_location_id;
336
337 If csr_cnl%NotFound Then
338
339 per_ri_config_location_api.create_location(p_configuration_code => p_configuration_code
340 ,p_configuration_context => p_configuration_context
341 ,p_location_code => p_location_code
342 ,p_description => p_description
343 ,p_style => p_style
344 ,p_address_line_1 => p_address_line_1
345 ,p_address_line_2 => p_address_line_2
346 ,p_address_line_3 => p_address_line_3
347 ,p_town_or_city => p_town_or_city
348 ,p_country => p_country
349 ,p_postal_code => p_postal_code
350 ,p_region_1 => p_region_1
351 ,p_region_2 => p_region_2
352 ,p_region_3 => p_region_3
353 ,p_telephone_number_1 => p_telephone_number_1
354 ,p_telephone_number_2 => p_telephone_number_2
355 ,p_telephone_number_3 => p_telephone_number_3
356 ,p_loc_information13 => p_loc_information13
357 ,p_loc_information14 => p_loc_information14
358 ,p_loc_information15 => p_loc_information15
359 ,p_loc_information16 => p_loc_information16
360 ,p_loc_information17 => p_loc_information17
361 ,p_loc_information18 => p_loc_information18
362 ,p_loc_information19 => p_loc_information19
363 ,p_loc_information20 => p_loc_information20
364 ,p_effective_date => p_effective_date
365 ,p_object_version_number => l_ovn
366 ,p_location_id => l_location_id
367 );
368
369
370
371
372
373
374 End If;
375
376
377 End load_config_location;
378
379 End per_ri_config_import_pkg;