eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AK_REGIONS2_PKG

Source


1 package body AK_REGIONS2_PKG as
2 /* $Header: AKDRGN2B.pls 120.1 2005/07/02 04:57:55 appldev ship $ */
3 
4 PROCEDURE copy_records
5 (	p_o_code	in varchar2,
6 p_o_id		in number,
7 p_n_code	in varchar2,
8 p_n_id		in number) IS
9 
10 -- Various REGION record type
11 r_rec		ak_regions%rowtype;
12 
13 -- REGION cursors
14 cursor r_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
15 select	*
16 from	ak_regions
17 where	region_code = p_csr_code
18 and	region_application_id = p_csr_id;
19 cursor rt_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
20 select	*
21 from	ak_regions_tl
22 where	region_code = p_csr_code
23 and	region_application_id = p_csr_id;
24 cursor ri_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
25 select	*
26 from	ak_region_items
27 where	region_code = p_csr_code
28 and	region_application_id = p_csr_id;
29 cursor rit_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
30 select	*
31 from	ak_region_items_tl
32 where	region_code = p_csr_code
33 and	region_application_id = p_csr_id;
34 cursor rlr_csr (p_csr_code IN VARCHAR2, p_csr_id IN NUMBER) is
35 select  *
36 from    ak_region_lov_relations
37 where   region_code = p_csr_code
38 and     region_application_id = p_csr_id;
39 
40 -- Misc variables to be used
41 b_success	boolean;
42 BEGIN
43 open r_csr( p_o_code, p_o_id);
44 FETCH r_csr INTO r_rec;
45 b_success := r_csr%found;
46 close r_csr;
47 -- ak_regions is a parent table. If you can't find a record, exit with an error message.
48 if (not b_success) then
49 fnd_message.set_name('AK', 'AK_NEW_REGION_ALREADY_EXISTS');
50 app_exception.raise_exception;
51 end if;
52 -- Put new code and id into record and insert into appropriate table
53 r_rec.region_code		:= p_n_code;
54 r_rec.region_application_id	:= p_n_id;
55 
56 insert into ak_regions (
57 REGION_APPLICATION_ID,
58 REGION_CODE,
59 DATABASE_OBJECT_NAME,
60 REGION_STYLE,
61 NUM_COLUMNS,
62 ICX_CUSTOM_CALL,
63 REGION_DEFAULTING_API_PKG,
64 REGION_DEFAULTING_API_PROC,
65 REGION_VALIDATION_API_PKG,
66 REGION_VALIDATION_API_PROC,
67 APPLICATIONMODULE_OBJECT_TYPE,
68 NUM_ROWS_DISPLAY,
69 REGION_OBJECT_TYPE,
70 IMAGE_FILE_NAME,
71 ISFORM_FLAG,
72 HELP_TARGET,
73 STYLE_SHEET_FILENAME,
74 VERSION,
75 APPLICATIONMODULE_USAGE_NAME,
76 ADD_INDEXED_CHILDREN,
77 STATEFUL_FLAG,
78 FUNCTION_NAME,
79 CHILDREN_VIEW_USAGE_NAME,
80 SEARCH_PANEL,
81 ADVANCED_SEARCH_PANEL,
82 CUSTOMIZE_PANEL,
83 DEFAULT_SEARCH_PANEL,
84 RESULTS_BASED_SEARCH,
85 DISPLAY_GRAPH_TABLE,
86 DISABLE_HEADER,
87 STANDALONE,
88 AUTO_CUSTOMIZATION_CRITERIA,
89 CREATION_DATE,
90 CREATED_BY,
91 LAST_UPDATE_DATE,
92 LAST_UPDATED_BY,
93 LAST_UPDATE_LOGIN,
94 ATTRIBUTE_CATEGORY,
95 ATTRIBUTE1,
96 ATTRIBUTE2,
97 ATTRIBUTE3,
98 ATTRIBUTE4,
99 ATTRIBUTE5,
100 ATTRIBUTE6,
101 ATTRIBUTE7,
102 ATTRIBUTE8,
103 ATTRIBUTE9,
104 ATTRIBUTE10,
105 ATTRIBUTE11,
106 ATTRIBUTE12,
107 ATTRIBUTE13,
108 ATTRIBUTE14,
109 ATTRIBUTE15
110 ) values (
111 r_rec.REGION_APPLICATION_ID,
112 r_rec.REGION_CODE,
113 r_rec.DATABASE_OBJECT_NAME,
114 r_rec.REGION_STYLE,
115 r_rec.NUM_COLUMNS,
116 r_rec.ICX_CUSTOM_CALL,
117 r_rec.REGION_DEFAULTING_API_PKG,
118 r_rec.REGION_DEFAULTING_API_PROC,
119 r_rec.REGION_VALIDATION_API_PKG,
120 r_rec.REGION_VALIDATION_API_PROC,
121 r_rec.APPLICATIONMODULE_OBJECT_TYPE,
122 r_rec.NUM_ROWS_DISPLAY,
123 r_rec.REGION_OBJECT_TYPE,
124 r_rec.IMAGE_FILE_NAME,
125 r_rec.ISFORM_FLAG,
126 r_rec.HELP_TARGET,
127 r_rec.STYLE_SHEET_FILENAME,
128 r_rec.VERSION,
129 r_rec.APPLICATIONMODULE_USAGE_NAME,
130 r_rec.ADD_INDEXED_CHILDREN,
131 r_rec.STATEFUL_FLAG,
132 r_rec.FUNCTION_NAME,
133 r_rec.CHILDREN_VIEW_USAGE_NAME,
134 r_rec.SEARCH_PANEL,
135 r_rec.ADVANCED_SEARCH_PANEL,
136 r_rec.CUSTOMIZE_PANEL,
137 r_rec.DEFAULT_SEARCH_PANEL,
138 r_rec.RESULTS_BASED_SEARCH,
139 r_rec.DISPLAY_GRAPH_TABLE,
140 r_rec.DISABLE_HEADER,
141 r_rec.STANDALONE,
142 r_rec.AUTO_CUSTOMIZATION_CRITERIA,
143 r_rec.CREATION_DATE,
144 r_rec.CREATED_BY,
145 r_rec.LAST_UPDATE_DATE,
146 r_rec.LAST_UPDATED_BY,
147 r_rec.LAST_UPDATE_LOGIN,
148 r_rec.ATTRIBUTE_CATEGORY,
149 r_rec.ATTRIBUTE1,
150 r_rec.ATTRIBUTE2,
151 r_rec.ATTRIBUTE3,
152 r_rec.ATTRIBUTE4,
153 r_rec.ATTRIBUTE5,
154 r_rec.ATTRIBUTE6,
155 r_rec.ATTRIBUTE7,
156 r_rec.ATTRIBUTE8,
157 r_rec.ATTRIBUTE9,
158 r_rec.ATTRIBUTE10,
159 r_rec.ATTRIBUTE11,
160 r_rec.ATTRIBUTE12,
161 r_rec.ATTRIBUTE13,
162 r_rec.ATTRIBUTE14,
163 r_rec.ATTRIBUTE15
164 );
165 
166 FOR rt_rec IN rt_csr( p_o_code, p_o_id) LOOP
167 -- Put new code and id into record and insert into appropriate table
168 rt_rec.region_code		:= p_n_code;
169 rt_rec.region_application_id	:= p_n_id;
170 insert into AK_REGIONS_TL (
171 REGION_APPLICATION_ID,
172 REGION_CODE,
173 LANGUAGE,
174 NAME,
175 DESCRIPTION,
176 SOURCE_LANG,
177 CREATED_BY,
178 CREATION_DATE,
179 LAST_UPDATED_BY,
180 LAST_UPDATE_DATE,
181 LAST_UPDATE_LOGIN
182 ) values (
183 rt_rec.REGION_APPLICATION_ID,
184 rt_rec.REGION_CODE,
185 rt_rec.LANGUAGE,
186 rt_rec.NAME,
187 rt_rec.DESCRIPTION,
188 rt_rec.SOURCE_LANG,
189 rt_rec.CREATED_BY,
190 rt_rec.CREATION_DATE,
191 rt_rec.LAST_UPDATED_BY,
192 rt_rec.LAST_UPDATE_DATE,
193 rt_rec.LAST_UPDATE_LOGIN
194 );
195 END LOOP;
196 
197 FOR ri_rec IN ri_csr( p_o_code, p_o_id) LOOP
198 -- Put new code and id into record and insert into appropriate table
199 ri_rec.region_code		:= p_n_code;
200 ri_rec.region_application_id	:= p_n_id;
201 
202 insert into AK_REGION_ITEMS (
203 REGION_APPLICATION_ID,
204 REGION_CODE,
205 ATTRIBUTE_APPLICATION_ID,
206 ATTRIBUTE_CODE,
207 DISPLAY_SEQUENCE,
208 NODE_DISPLAY_FLAG,
209 NODE_QUERY_FLAG,
210 ATTRIBUTE_LABEL_LENGTH,
211 BOLD,
212 ITALIC,
213 VERTICAL_ALIGNMENT,
214 HORIZONTAL_ALIGNMENT,
215 ITEM_STYLE,
216 OBJECT_ATTRIBUTE_FLAG,
217 SECURITY_CODE,
218 UPDATE_FLAG,
219 REQUIRED_FLAG,
220 DISPLAY_VALUE_LENGTH,
221 LOV_REGION_APPLICATION_ID,
222 LOV_REGION_CODE,
223 LOV_FOREIGN_KEY_NAME,
224 LOV_ATTRIBUTE_APPLICATION_ID,
225 LOV_ATTRIBUTE_CODE,
226 LOV_DEFAULT_FLAG,
227 REGION_DEFAULTING_API_PKG,
228 REGION_DEFAULTING_API_PROC,
229 REGION_VALIDATION_API_PKG,
230 REGION_VALIDATION_API_PROC,
231 ORDER_SEQUENCE,
232 ORDER_DIRECTION,
233 DEFAULT_VALUE_VARCHAR2,
234 DEFAULT_VALUE_NUMBER,
235 DEFAULT_VALUE_DATE,
236 DISPLAY_HEIGHT,
237 SUBMIT,
238 ENCRYPT,
239 VIEW_USAGE_NAME,
240 VIEW_ATTRIBUTE_NAME,
241 CSS_CLASS_NAME,
242 CSS_LABEL_CLASS_NAME,
243 URL,
244 POPLIST_VIEWOBJECT,
245 POPLIST_DISPLAY_ATTRIBUTE,
246 POPLIST_VALUE_ATTRIBUTE,
247 IMAGE_FILE_NAME,
248 NESTED_REGION_CODE,
249 NESTED_REGION_APPLICATION_ID,
250 ITEM_NAME,
251 MENU_NAME,
252 CREATION_DATE,
253 CREATED_BY,
254 LAST_UPDATE_DATE,
255 LAST_UPDATED_BY,
256 LAST_UPDATE_LOGIN,
257 FLEXFIELD_NAME,
258 FLEXFIELD_APPLICATION_ID,
259 TABULAR_FUNCTION_CODE,
260 TIP_TYPE ,
261 TIP_MESSAGE_NAME,
262 TIP_MESSAGE_APPLICATION_ID,
263 FLEX_SEGMENT_LIST,
264 ENTITY_ID,
265 ANCHOR,
266 POPLIST_VIEW_USAGE_NAME,
267 USER_CUSTOMIZABLE,
268 SORTBY_VIEW_ATTRIBUTE_NAME,
269 ADMIN_CUSTOMIZABLE,
270 INVOKE_FUNCTION_NAME,
271 EXPANSION,
272 ALS_MAX_LENGTH,
273 INITIAL_SORT_SEQUENCE,
274 CUSTOMIZATION_APPLICATION_ID,
275 CUSTOMIZATION_CODE,
276 ATTRIBUTE_CATEGORY,
277 ATTRIBUTE1,
278 ATTRIBUTE2,
279 ATTRIBUTE3,
280 ATTRIBUTE4,
281 ATTRIBUTE5,
282 ATTRIBUTE6,
283 ATTRIBUTE7,
284 ATTRIBUTE8,
285 ATTRIBUTE9,
286 ATTRIBUTE10,
287 ATTRIBUTE11,
288 ATTRIBUTE12,
289 ATTRIBUTE13,
290 ATTRIBUTE14,
291 ATTRIBUTE15
292 ) values (
293 ri_rec.REGION_APPLICATION_ID,
294 ri_rec.REGION_CODE,
295 ri_rec.ATTRIBUTE_APPLICATION_ID,
296 ri_rec.ATTRIBUTE_CODE,
297 ri_rec.DISPLAY_SEQUENCE,
298 ri_rec.NODE_DISPLAY_FLAG,
299 ri_rec.NODE_QUERY_FLAG,
300 ri_rec.ATTRIBUTE_LABEL_LENGTH,
301 ri_rec.BOLD,
302 ri_rec.ITALIC,
303 ri_rec.VERTICAL_ALIGNMENT,
304 ri_rec.HORIZONTAL_ALIGNMENT,
305 ri_rec.ITEM_STYLE,
306 ri_rec.OBJECT_ATTRIBUTE_FLAG,
307 ri_rec.SECURITY_CODE,
308 ri_rec.UPDATE_FLAG,
309 ri_rec.REQUIRED_FLAG,
310 ri_rec.DISPLAY_VALUE_LENGTH,
311 ri_rec.LOV_REGION_APPLICATION_ID,
312 ri_rec.LOV_REGION_CODE,
313 ri_rec.LOV_FOREIGN_KEY_NAME,
314 ri_rec.LOV_ATTRIBUTE_APPLICATION_ID,
315 ri_rec.LOV_ATTRIBUTE_CODE,
316 ri_rec.LOV_DEFAULT_FLAG,
317 ri_rec.REGION_DEFAULTING_API_PKG,
318 ri_rec.REGION_DEFAULTING_API_PROC,
319 ri_rec.REGION_VALIDATION_API_PKG,
320 ri_rec.REGION_VALIDATION_API_PROC,
321 ri_rec.ORDER_SEQUENCE,
322 ri_rec.ORDER_DIRECTION,
323 ri_rec.DEFAULT_VALUE_VARCHAR2,
324 ri_rec.DEFAULT_VALUE_NUMBER,
325 ri_rec.DEFAULT_VALUE_DATE,
326 ri_rec.DISPLAY_HEIGHT,
327 ri_rec.SUBMIT,
328 ri_rec.ENCRYPT,
329 ri_rec.VIEW_USAGE_NAME,
330 ri_rec.VIEW_ATTRIBUTE_NAME,
331 ri_rec.CSS_CLASS_NAME,
332 ri_rec.CSS_LABEL_CLASS_NAME,
333 ri_rec.URL,
334 ri_rec.POPLIST_VIEWOBJECT,
335 ri_rec.POPLIST_DISPLAY_ATTRIBUTE,
336 ri_rec.POPLIST_VALUE_ATTRIBUTE,
337 ri_rec.IMAGE_FILE_NAME,
338 ri_rec.NESTED_REGION_CODE,
339 ri_rec.NESTED_REGION_APPLICATION_ID,
340 ri_rec.ITEM_NAME,
341 ri_rec.MENU_NAME,
342 ri_rec.CREATION_DATE,
343 ri_rec.CREATED_BY,
344 ri_rec.LAST_UPDATE_DATE,
345 ri_rec.LAST_UPDATED_BY,
346 ri_rec.LAST_UPDATE_LOGIN,
347 ri_rec.FLEXFIELD_NAME,
348 ri_rec.FLEXFIELD_APPLICATION_ID,
349 ri_rec.TABULAR_FUNCTION_CODE,
350 ri_rec.TIP_TYPE ,
351 ri_rec.TIP_MESSAGE_NAME,
352 ri_rec.TIP_MESSAGE_APPLICATION_ID,
353 ri_rec.FLEX_SEGMENT_LIST,
354 ri_rec.ENTITY_ID,
355 ri_rec.ANCHOR,
356 ri_rec.POPLIST_VIEW_USAGE_NAME,
357 ri_rec.USER_CUSTOMIZABLE,
358 ri_rec.SORTBY_VIEW_ATTRIBUTE_NAME,
359 ri_rec.ADMIN_CUSTOMIZABLE,
360 ri_rec.INVOKE_FUNCTION_NAME,
361 ri_rec.EXPANSION,
362 ri_rec.ALS_MAX_LENGTH,
363 ri_rec.INITIAL_SORT_SEQUENCE,
364 ri_rec.CUSTOMIZATION_APPLICATION_ID,
365 ri_rec.CUSTOMIZATION_CODE,
366 ri_rec.ATTRIBUTE_CATEGORY,
367 ri_rec.ATTRIBUTE1,
368 ri_rec.ATTRIBUTE2,
369 ri_rec.ATTRIBUTE3,
370 ri_rec.ATTRIBUTE4,
371 ri_rec.ATTRIBUTE5,
372 ri_rec.ATTRIBUTE6,
373 ri_rec.ATTRIBUTE7,
374 ri_rec.ATTRIBUTE8,
375 ri_rec.ATTRIBUTE9,
376 ri_rec.ATTRIBUTE10,
377 ri_rec.ATTRIBUTE11,
378 ri_rec.ATTRIBUTE12,
379 ri_rec.ATTRIBUTE13,
380 ri_rec.ATTRIBUTE14,
381 ri_rec.ATTRIBUTE15
382 );
383 END LOOP;
384 
385 FOR rit_rec IN rit_csr( p_o_code, p_o_id) LOOP
386 -- Put new code and id into record and insert into appropriate table
387 rit_rec.region_code		:= p_n_code;
388 rit_rec.region_application_id	:= p_n_id;
389 
390 insert into AK_REGION_ITEMS_TL (
391 REGION_APPLICATION_ID,
392 REGION_CODE,
393 ATTRIBUTE_APPLICATION_ID,
394 ATTRIBUTE_CODE,
395 LANGUAGE,
396 ATTRIBUTE_LABEL_LONG,
397 DESCRIPTION,
398 SOURCE_LANG,
399 CREATED_BY,
400 CREATION_DATE,
401 LAST_UPDATED_BY,
402 LAST_UPDATE_DATE,
403 LAST_UPDATE_LOGIN
404 ) values (
405 rit_rec.REGION_APPLICATION_ID,
406 rit_rec.REGION_CODE,
407 rit_rec.ATTRIBUTE_APPLICATION_ID,
408 rit_rec.ATTRIBUTE_CODE,
409 rit_rec.LANGUAGE,
410 rit_rec.ATTRIBUTE_LABEL_LONG,
411 rit_rec.DESCRIPTION,
412 rit_rec.SOURCE_LANG,
413 rit_rec.CREATED_BY,
414 rit_rec.CREATION_DATE,
415 rit_rec.LAST_UPDATED_BY,
416 rit_rec.LAST_UPDATE_DATE,
417 rit_rec.LAST_UPDATE_LOGIN
418 );
419 END LOOP;
420 
421 FOR rlr_rec IN rlr_csr( p_o_code, p_o_id) LOOP
422 -- Put new code and id into record and insert into appropriate table
423 rlr_rec.region_code             := p_n_code;
424 rlr_rec.region_application_id   := p_n_id;
425 
426 insert into AK_REGION_LOV_RELATIONS (
427 REGION_APPLICATION_ID,
428 REGION_CODE,
429 ATTRIBUTE_APPLICATION_ID,
430 ATTRIBUTE_CODE,
431 LOV_REGION_APPL_ID,
432 LOV_REGION_CODE,
433 LOV_ATTRIBUTE_APPL_ID,
434 LOV_ATTRIBUTE_CODE,
435 BASE_REGION_APPL_ID,
436 BASE_REGION_CODE,
437 BASE_ATTRIBUTE_APPL_ID,
438 BASE_ATTRIBUTE_CODE,
439 DIRECTION_FLAG,
440 LAST_UPDATE_DATE,
441 LAST_UPDATED_BY,
442 CREATION_DATE,
443 CREATED_BY,
444 LAST_UPDATE_LOGIN,
445 REQUIRED_FLAG
446 ) values (
447 rlr_rec.REGION_APPLICATION_ID,
448 rlr_rec.REGION_CODE,
449 rlr_rec.ATTRIBUTE_APPLICATION_ID,
450 rlr_rec.ATTRIBUTE_CODE,
451 rlr_rec.LOV_REGION_APPL_ID,
452 rlr_rec.LOV_REGION_CODE,
453 rlr_rec.LOV_ATTRIBUTE_APPL_ID,
454 rlr_rec.LOV_ATTRIBUTE_CODE,
455 rlr_rec.BASE_REGION_APPL_ID,
456 rlr_rec.BASE_REGION_CODE,
457 rlr_rec.BASE_ATTRIBUTE_APPL_ID,
458 rlr_rec.BASE_ATTRIBUTE_CODE,
459 rlr_rec.DIRECTION_FLAG,
460 rlr_rec.LAST_UPDATE_DATE,
461 rlr_rec.LAST_UPDATED_BY,
462 rlr_rec.CREATION_DATE,
463 rlr_rec.CREATED_BY,
464 rlr_rec.LAST_UPDATE_LOGIN,
465 rlr_rec.REQUIRED_FLAG
466 );
467 END LOOP;
468 commit;
469 END copy_records;
470 
471 
472 end AK_REGIONS2_PKG;