[Home] [Help]
PACKAGE BODY: APPS.AHL_MC_ITEMGROUP_PVT_W
Source
1 package body ahl_mc_itemgroup_pvt_w as
2 /* $Header: AHLVIGWB.pls 120.1 2005/08/09 11:02 priyan noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p2(t out nocopy ahl_mc_itemgroup_pvt.item_association_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_100
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_VARCHAR2_TABLE_2000
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_NUMBER_TABLE
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_100
27 , a14 JTF_VARCHAR2_TABLE_2000
28 , a15 JTF_NUMBER_TABLE
29 , a16 JTF_VARCHAR2_TABLE_100
30 , a17 JTF_VARCHAR2_TABLE_200
31 , a18 JTF_VARCHAR2_TABLE_200
32 , a19 JTF_VARCHAR2_TABLE_200
33 , a20 JTF_VARCHAR2_TABLE_200
34 , a21 JTF_VARCHAR2_TABLE_200
35 , a22 JTF_VARCHAR2_TABLE_200
36 , a23 JTF_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_200
43 , a30 JTF_VARCHAR2_TABLE_200
44 , a31 JTF_VARCHAR2_TABLE_200
45 , a32 JTF_VARCHAR2_TABLE_100
46 ) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if a0 is not null and a0.count > 0 then
50 if a0.count > 0 then
51 indx := a0.first;
52 ddindx := 1;
53 while true loop
54 t(ddindx).item_association_id := a0(indx);
55 t(ddindx).item_group_name := a1(indx);
56 t(ddindx).item_group_id := a2(indx);
57 t(ddindx).source_item_association_id := a3(indx);
58 t(ddindx).inventory_org_code := a4(indx);
59 t(ddindx).inventory_org_id := a5(indx);
60 t(ddindx).inventory_item_name := a6(indx);
61 t(ddindx).inventory_item_id := a7(indx);
62 t(ddindx).revision := a8(indx);
63 t(ddindx).priority := a9(indx);
64 t(ddindx).uom_code := a10(indx);
65 t(ddindx).quantity := a11(indx);
66 t(ddindx).interchange_type_meaning := a12(indx);
67 t(ddindx).interchange_type_code := a13(indx);
68 t(ddindx).interchange_reason := a14(indx);
69 t(ddindx).object_version_number := a15(indx);
70 t(ddindx).attribute_category := a16(indx);
71 t(ddindx).attribute1 := a17(indx);
72 t(ddindx).attribute2 := a18(indx);
73 t(ddindx).attribute3 := a19(indx);
74 t(ddindx).attribute4 := a20(indx);
75 t(ddindx).attribute5 := a21(indx);
76 t(ddindx).attribute6 := a22(indx);
77 t(ddindx).attribute7 := a23(indx);
78 t(ddindx).attribute8 := a24(indx);
79 t(ddindx).attribute9 := a25(indx);
80 t(ddindx).attribute10 := a26(indx);
81 t(ddindx).attribute11 := a27(indx);
82 t(ddindx).attribute12 := a28(indx);
83 t(ddindx).attribute13 := a29(indx);
84 t(ddindx).attribute14 := a30(indx);
85 t(ddindx).attribute15 := a31(indx);
86 t(ddindx).operation_flag := a32(indx);
87 ddindx := ddindx+1;
88 if a0.last =indx
89 then exit;
90 end if;
91 indx := a0.next(indx);
92 end loop;
93 end if;
94 end if;
95 end rosetta_table_copy_in_p2;
96 procedure rosetta_table_copy_out_p2(t ahl_mc_itemgroup_pvt.item_association_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
97 , a1 out nocopy JTF_VARCHAR2_TABLE_100
98 , a2 out nocopy JTF_NUMBER_TABLE
99 , a3 out nocopy JTF_NUMBER_TABLE
100 , a4 out nocopy JTF_VARCHAR2_TABLE_100
101 , a5 out nocopy JTF_NUMBER_TABLE
102 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
103 , a7 out nocopy JTF_NUMBER_TABLE
104 , a8 out nocopy JTF_VARCHAR2_TABLE_100
105 , a9 out nocopy JTF_NUMBER_TABLE
106 , a10 out nocopy JTF_VARCHAR2_TABLE_100
107 , a11 out nocopy JTF_NUMBER_TABLE
108 , a12 out nocopy JTF_VARCHAR2_TABLE_100
109 , a13 out nocopy JTF_VARCHAR2_TABLE_100
110 , a14 out nocopy JTF_VARCHAR2_TABLE_2000
111 , a15 out nocopy JTF_NUMBER_TABLE
112 , a16 out nocopy JTF_VARCHAR2_TABLE_100
113 , a17 out nocopy JTF_VARCHAR2_TABLE_200
114 , a18 out nocopy JTF_VARCHAR2_TABLE_200
115 , a19 out nocopy JTF_VARCHAR2_TABLE_200
116 , a20 out nocopy JTF_VARCHAR2_TABLE_200
117 , a21 out nocopy JTF_VARCHAR2_TABLE_200
118 , a22 out nocopy JTF_VARCHAR2_TABLE_200
119 , a23 out nocopy JTF_VARCHAR2_TABLE_200
120 , a24 out nocopy JTF_VARCHAR2_TABLE_200
121 , a25 out nocopy JTF_VARCHAR2_TABLE_200
122 , a26 out nocopy JTF_VARCHAR2_TABLE_200
123 , a27 out nocopy JTF_VARCHAR2_TABLE_200
124 , a28 out nocopy JTF_VARCHAR2_TABLE_200
125 , a29 out nocopy JTF_VARCHAR2_TABLE_200
126 , a30 out nocopy JTF_VARCHAR2_TABLE_200
127 , a31 out nocopy JTF_VARCHAR2_TABLE_200
128 , a32 out nocopy JTF_VARCHAR2_TABLE_100
129 ) as
130 ddindx binary_integer; indx binary_integer;
131 begin
132 if t is null or t.count = 0 then
133 a0 := JTF_NUMBER_TABLE();
134 a1 := JTF_VARCHAR2_TABLE_100();
135 a2 := JTF_NUMBER_TABLE();
136 a3 := JTF_NUMBER_TABLE();
137 a4 := JTF_VARCHAR2_TABLE_100();
138 a5 := JTF_NUMBER_TABLE();
139 a6 := JTF_VARCHAR2_TABLE_2000();
140 a7 := JTF_NUMBER_TABLE();
141 a8 := JTF_VARCHAR2_TABLE_100();
142 a9 := JTF_NUMBER_TABLE();
143 a10 := JTF_VARCHAR2_TABLE_100();
144 a11 := JTF_NUMBER_TABLE();
145 a12 := JTF_VARCHAR2_TABLE_100();
146 a13 := JTF_VARCHAR2_TABLE_100();
147 a14 := JTF_VARCHAR2_TABLE_2000();
148 a15 := JTF_NUMBER_TABLE();
149 a16 := JTF_VARCHAR2_TABLE_100();
150 a17 := JTF_VARCHAR2_TABLE_200();
151 a18 := JTF_VARCHAR2_TABLE_200();
152 a19 := JTF_VARCHAR2_TABLE_200();
153 a20 := JTF_VARCHAR2_TABLE_200();
154 a21 := JTF_VARCHAR2_TABLE_200();
155 a22 := JTF_VARCHAR2_TABLE_200();
156 a23 := JTF_VARCHAR2_TABLE_200();
157 a24 := JTF_VARCHAR2_TABLE_200();
158 a25 := JTF_VARCHAR2_TABLE_200();
159 a26 := JTF_VARCHAR2_TABLE_200();
160 a27 := JTF_VARCHAR2_TABLE_200();
161 a28 := JTF_VARCHAR2_TABLE_200();
162 a29 := JTF_VARCHAR2_TABLE_200();
163 a30 := JTF_VARCHAR2_TABLE_200();
164 a31 := JTF_VARCHAR2_TABLE_200();
165 a32 := JTF_VARCHAR2_TABLE_100();
166 else
167 a0 := JTF_NUMBER_TABLE();
168 a1 := JTF_VARCHAR2_TABLE_100();
169 a2 := JTF_NUMBER_TABLE();
170 a3 := JTF_NUMBER_TABLE();
171 a4 := JTF_VARCHAR2_TABLE_100();
172 a5 := JTF_NUMBER_TABLE();
173 a6 := JTF_VARCHAR2_TABLE_2000();
174 a7 := JTF_NUMBER_TABLE();
175 a8 := JTF_VARCHAR2_TABLE_100();
176 a9 := JTF_NUMBER_TABLE();
177 a10 := JTF_VARCHAR2_TABLE_100();
178 a11 := JTF_NUMBER_TABLE();
179 a12 := JTF_VARCHAR2_TABLE_100();
180 a13 := JTF_VARCHAR2_TABLE_100();
181 a14 := JTF_VARCHAR2_TABLE_2000();
182 a15 := JTF_NUMBER_TABLE();
183 a16 := JTF_VARCHAR2_TABLE_100();
184 a17 := JTF_VARCHAR2_TABLE_200();
185 a18 := JTF_VARCHAR2_TABLE_200();
186 a19 := JTF_VARCHAR2_TABLE_200();
187 a20 := JTF_VARCHAR2_TABLE_200();
188 a21 := JTF_VARCHAR2_TABLE_200();
189 a22 := JTF_VARCHAR2_TABLE_200();
190 a23 := JTF_VARCHAR2_TABLE_200();
191 a24 := JTF_VARCHAR2_TABLE_200();
192 a25 := JTF_VARCHAR2_TABLE_200();
193 a26 := JTF_VARCHAR2_TABLE_200();
194 a27 := JTF_VARCHAR2_TABLE_200();
195 a28 := JTF_VARCHAR2_TABLE_200();
196 a29 := JTF_VARCHAR2_TABLE_200();
197 a30 := JTF_VARCHAR2_TABLE_200();
198 a31 := JTF_VARCHAR2_TABLE_200();
199 a32 := JTF_VARCHAR2_TABLE_100();
200 if t.count > 0 then
201 a0.extend(t.count);
202 a1.extend(t.count);
203 a2.extend(t.count);
204 a3.extend(t.count);
205 a4.extend(t.count);
206 a5.extend(t.count);
207 a6.extend(t.count);
208 a7.extend(t.count);
209 a8.extend(t.count);
210 a9.extend(t.count);
211 a10.extend(t.count);
212 a11.extend(t.count);
213 a12.extend(t.count);
214 a13.extend(t.count);
215 a14.extend(t.count);
216 a15.extend(t.count);
217 a16.extend(t.count);
218 a17.extend(t.count);
219 a18.extend(t.count);
220 a19.extend(t.count);
221 a20.extend(t.count);
222 a21.extend(t.count);
223 a22.extend(t.count);
224 a23.extend(t.count);
225 a24.extend(t.count);
226 a25.extend(t.count);
227 a26.extend(t.count);
228 a27.extend(t.count);
229 a28.extend(t.count);
230 a29.extend(t.count);
231 a30.extend(t.count);
232 a31.extend(t.count);
233 a32.extend(t.count);
234 ddindx := t.first;
235 indx := 1;
236 while true loop
237 a0(indx) := t(ddindx).item_association_id;
238 a1(indx) := t(ddindx).item_group_name;
239 a2(indx) := t(ddindx).item_group_id;
240 a3(indx) := t(ddindx).source_item_association_id;
241 a4(indx) := t(ddindx).inventory_org_code;
242 a5(indx) := t(ddindx).inventory_org_id;
243 a6(indx) := t(ddindx).inventory_item_name;
244 a7(indx) := t(ddindx).inventory_item_id;
245 a8(indx) := t(ddindx).revision;
246 a9(indx) := t(ddindx).priority;
247 a10(indx) := t(ddindx).uom_code;
248 a11(indx) := t(ddindx).quantity;
249 a12(indx) := t(ddindx).interchange_type_meaning;
250 a13(indx) := t(ddindx).interchange_type_code;
251 a14(indx) := t(ddindx).interchange_reason;
252 a15(indx) := t(ddindx).object_version_number;
253 a16(indx) := t(ddindx).attribute_category;
254 a17(indx) := t(ddindx).attribute1;
255 a18(indx) := t(ddindx).attribute2;
256 a19(indx) := t(ddindx).attribute3;
257 a20(indx) := t(ddindx).attribute4;
258 a21(indx) := t(ddindx).attribute5;
259 a22(indx) := t(ddindx).attribute6;
260 a23(indx) := t(ddindx).attribute7;
261 a24(indx) := t(ddindx).attribute8;
262 a25(indx) := t(ddindx).attribute9;
263 a26(indx) := t(ddindx).attribute10;
264 a27(indx) := t(ddindx).attribute11;
265 a28(indx) := t(ddindx).attribute12;
266 a29(indx) := t(ddindx).attribute13;
267 a30(indx) := t(ddindx).attribute14;
268 a31(indx) := t(ddindx).attribute15;
269 a32(indx) := t(ddindx).operation_flag;
270 indx := indx+1;
271 if t.last =ddindx
272 then exit;
273 end if;
274 ddindx := t.next(ddindx);
275 end loop;
276 end if;
277 end if;
278 end rosetta_table_copy_out_p2;
279
280 procedure create_item_group(p_api_version NUMBER
281 , p_init_msg_list VARCHAR2
282 , p_validation_level NUMBER
283 , x_return_status out nocopy VARCHAR2
284 , x_msg_count out nocopy NUMBER
285 , x_msg_data out nocopy VARCHAR2
286 , p6_a0 in out nocopy NUMBER
287 , p6_a1 in out nocopy VARCHAR2
288 , p6_a2 in out nocopy NUMBER
289 , p6_a3 in out nocopy VARCHAR2
290 , p6_a4 in out nocopy VARCHAR2
291 , p6_a5 in out nocopy VARCHAR2
292 , p6_a6 in out nocopy VARCHAR2
293 , p6_a7 in out nocopy VARCHAR2
294 , p6_a8 in out nocopy NUMBER
295 , p6_a9 in out nocopy VARCHAR2
296 , p6_a10 in out nocopy VARCHAR2
297 , p6_a11 in out nocopy VARCHAR2
298 , p6_a12 in out nocopy VARCHAR2
299 , p6_a13 in out nocopy VARCHAR2
300 , p6_a14 in out nocopy VARCHAR2
301 , p6_a15 in out nocopy VARCHAR2
302 , p6_a16 in out nocopy VARCHAR2
303 , p6_a17 in out nocopy VARCHAR2
304 , p6_a18 in out nocopy VARCHAR2
305 , p6_a19 in out nocopy VARCHAR2
306 , p6_a20 in out nocopy VARCHAR2
307 , p6_a21 in out nocopy VARCHAR2
308 , p6_a22 in out nocopy VARCHAR2
309 , p6_a23 in out nocopy VARCHAR2
310 , p6_a24 in out nocopy VARCHAR2
311 , p6_a25 in out nocopy VARCHAR2
312 , p7_a0 in out nocopy JTF_NUMBER_TABLE
313 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
314 , p7_a2 in out nocopy JTF_NUMBER_TABLE
315 , p7_a3 in out nocopy JTF_NUMBER_TABLE
316 , p7_a4 in out nocopy JTF_VARCHAR2_TABLE_100
317 , p7_a5 in out nocopy JTF_NUMBER_TABLE
318 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_2000
319 , p7_a7 in out nocopy JTF_NUMBER_TABLE
320 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_100
321 , p7_a9 in out nocopy JTF_NUMBER_TABLE
322 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_100
323 , p7_a11 in out nocopy JTF_NUMBER_TABLE
324 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_100
325 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_100
326 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_2000
327 , p7_a15 in out nocopy JTF_NUMBER_TABLE
328 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_100
329 , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_200
330 , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_200
331 , p7_a19 in out nocopy JTF_VARCHAR2_TABLE_200
332 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
333 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_200
334 , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_200
335 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_200
336 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_200
337 , p7_a25 in out nocopy JTF_VARCHAR2_TABLE_200
338 , p7_a26 in out nocopy JTF_VARCHAR2_TABLE_200
339 , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_200
340 , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_200
341 , p7_a29 in out nocopy JTF_VARCHAR2_TABLE_200
342 , p7_a30 in out nocopy JTF_VARCHAR2_TABLE_200
343 , p7_a31 in out nocopy JTF_VARCHAR2_TABLE_200
344 , p7_a32 in out nocopy JTF_VARCHAR2_TABLE_100
345 )
346
347 as
348 ddp_x_item_group_rec ahl_mc_itemgroup_pvt.item_group_rec_type;
349 ddp_x_items_tbl ahl_mc_itemgroup_pvt.item_association_tbl_type;
350 ddindx binary_integer; indx binary_integer;
351 begin
352
353 -- copy data to the local IN or IN-OUT args, if any
354
355
356
357
358
359
360 ddp_x_item_group_rec.item_group_id := p6_a0;
361 ddp_x_item_group_rec.name := p6_a1;
362 ddp_x_item_group_rec.source_item_group_id := p6_a2;
363 ddp_x_item_group_rec.status_code := p6_a3;
364 ddp_x_item_group_rec.status_meaning := p6_a4;
365 ddp_x_item_group_rec.type_code := p6_a5;
366 ddp_x_item_group_rec.type_meaning := p6_a6;
367 ddp_x_item_group_rec.description := p6_a7;
368 ddp_x_item_group_rec.object_version_number := p6_a8;
369 ddp_x_item_group_rec.attribute_category := p6_a9;
370 ddp_x_item_group_rec.attribute1 := p6_a10;
371 ddp_x_item_group_rec.attribute2 := p6_a11;
372 ddp_x_item_group_rec.attribute3 := p6_a12;
373 ddp_x_item_group_rec.attribute4 := p6_a13;
374 ddp_x_item_group_rec.attribute5 := p6_a14;
375 ddp_x_item_group_rec.attribute6 := p6_a15;
376 ddp_x_item_group_rec.attribute7 := p6_a16;
377 ddp_x_item_group_rec.attribute8 := p6_a17;
378 ddp_x_item_group_rec.attribute9 := p6_a18;
379 ddp_x_item_group_rec.attribute10 := p6_a19;
380 ddp_x_item_group_rec.attribute11 := p6_a20;
381 ddp_x_item_group_rec.attribute12 := p6_a21;
382 ddp_x_item_group_rec.attribute13 := p6_a22;
383 ddp_x_item_group_rec.attribute14 := p6_a23;
384 ddp_x_item_group_rec.attribute15 := p6_a24;
385 ddp_x_item_group_rec.operation_flag := p6_a25;
386
387 ahl_mc_itemgroup_pvt_w.rosetta_table_copy_in_p2(ddp_x_items_tbl, p7_a0
388 , p7_a1
389 , p7_a2
390 , p7_a3
391 , p7_a4
392 , p7_a5
393 , p7_a6
394 , p7_a7
395 , p7_a8
396 , p7_a9
397 , p7_a10
398 , p7_a11
399 , p7_a12
400 , p7_a13
401 , p7_a14
402 , p7_a15
403 , p7_a16
404 , p7_a17
405 , p7_a18
406 , p7_a19
407 , p7_a20
408 , p7_a21
409 , p7_a22
410 , p7_a23
411 , p7_a24
412 , p7_a25
413 , p7_a26
414 , p7_a27
415 , p7_a28
416 , p7_a29
417 , p7_a30
418 , p7_a31
419 , p7_a32
420 );
421
422 -- here's the delegated call to the old PL/SQL routine
423 ahl_mc_itemgroup_pvt.create_item_group(p_api_version,
424 p_init_msg_list,
425 p_validation_level,
426 x_return_status,
427 x_msg_count,
428 x_msg_data,
429 ddp_x_item_group_rec,
430 ddp_x_items_tbl);
431
432 -- copy data back from the local variables to OUT or IN-OUT args, if any
433
434
435
436
437
438
439 p6_a0 := ddp_x_item_group_rec.item_group_id;
440 p6_a1 := ddp_x_item_group_rec.name;
441 p6_a2 := ddp_x_item_group_rec.source_item_group_id;
442 p6_a3 := ddp_x_item_group_rec.status_code;
443 p6_a4 := ddp_x_item_group_rec.status_meaning;
444 p6_a5 := ddp_x_item_group_rec.type_code;
445 p6_a6 := ddp_x_item_group_rec.type_meaning;
446 p6_a7 := ddp_x_item_group_rec.description;
447 p6_a8 := ddp_x_item_group_rec.object_version_number;
448 p6_a9 := ddp_x_item_group_rec.attribute_category;
449 p6_a10 := ddp_x_item_group_rec.attribute1;
450 p6_a11 := ddp_x_item_group_rec.attribute2;
451 p6_a12 := ddp_x_item_group_rec.attribute3;
452 p6_a13 := ddp_x_item_group_rec.attribute4;
453 p6_a14 := ddp_x_item_group_rec.attribute5;
454 p6_a15 := ddp_x_item_group_rec.attribute6;
455 p6_a16 := ddp_x_item_group_rec.attribute7;
456 p6_a17 := ddp_x_item_group_rec.attribute8;
457 p6_a18 := ddp_x_item_group_rec.attribute9;
458 p6_a19 := ddp_x_item_group_rec.attribute10;
459 p6_a20 := ddp_x_item_group_rec.attribute11;
460 p6_a21 := ddp_x_item_group_rec.attribute12;
461 p6_a22 := ddp_x_item_group_rec.attribute13;
462 p6_a23 := ddp_x_item_group_rec.attribute14;
463 p6_a24 := ddp_x_item_group_rec.attribute15;
464 p6_a25 := ddp_x_item_group_rec.operation_flag;
465
466 ahl_mc_itemgroup_pvt_w.rosetta_table_copy_out_p2(ddp_x_items_tbl, p7_a0
467 , p7_a1
468 , p7_a2
469 , p7_a3
470 , p7_a4
471 , p7_a5
472 , p7_a6
473 , p7_a7
474 , p7_a8
475 , p7_a9
476 , p7_a10
477 , p7_a11
478 , p7_a12
479 , p7_a13
480 , p7_a14
481 , p7_a15
482 , p7_a16
483 , p7_a17
484 , p7_a18
485 , p7_a19
486 , p7_a20
487 , p7_a21
488 , p7_a22
489 , p7_a23
490 , p7_a24
491 , p7_a25
492 , p7_a26
493 , p7_a27
494 , p7_a28
495 , p7_a29
496 , p7_a30
497 , p7_a31
498 , p7_a32
499 );
500 end;
501
502 procedure modify_item_group(p_api_version NUMBER
503 , p_init_msg_list VARCHAR2
504 , p_validation_level NUMBER
505 , x_return_status out nocopy VARCHAR2
506 , x_msg_count out nocopy NUMBER
507 , x_msg_data out nocopy VARCHAR2
508 , p6_a0 NUMBER
509 , p6_a1 VARCHAR2
510 , p6_a2 NUMBER
511 , p6_a3 VARCHAR2
512 , p6_a4 VARCHAR2
513 , p6_a5 VARCHAR2
514 , p6_a6 VARCHAR2
515 , p6_a7 VARCHAR2
516 , p6_a8 NUMBER
517 , p6_a9 VARCHAR2
518 , p6_a10 VARCHAR2
519 , p6_a11 VARCHAR2
520 , p6_a12 VARCHAR2
521 , p6_a13 VARCHAR2
522 , p6_a14 VARCHAR2
523 , p6_a15 VARCHAR2
524 , p6_a16 VARCHAR2
525 , p6_a17 VARCHAR2
526 , p6_a18 VARCHAR2
527 , p6_a19 VARCHAR2
528 , p6_a20 VARCHAR2
529 , p6_a21 VARCHAR2
530 , p6_a22 VARCHAR2
531 , p6_a23 VARCHAR2
532 , p6_a24 VARCHAR2
533 , p6_a25 VARCHAR2
534 , p7_a0 in out nocopy JTF_NUMBER_TABLE
535 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
536 , p7_a2 in out nocopy JTF_NUMBER_TABLE
537 , p7_a3 in out nocopy JTF_NUMBER_TABLE
538 , p7_a4 in out nocopy JTF_VARCHAR2_TABLE_100
539 , p7_a5 in out nocopy JTF_NUMBER_TABLE
540 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_2000
541 , p7_a7 in out nocopy JTF_NUMBER_TABLE
542 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_100
543 , p7_a9 in out nocopy JTF_NUMBER_TABLE
544 , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_100
545 , p7_a11 in out nocopy JTF_NUMBER_TABLE
546 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_100
547 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_100
548 , p7_a14 in out nocopy JTF_VARCHAR2_TABLE_2000
549 , p7_a15 in out nocopy JTF_NUMBER_TABLE
550 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_100
551 , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_200
552 , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_200
553 , p7_a19 in out nocopy JTF_VARCHAR2_TABLE_200
554 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
555 , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_200
556 , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_200
557 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_200
558 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_200
559 , p7_a25 in out nocopy JTF_VARCHAR2_TABLE_200
560 , p7_a26 in out nocopy JTF_VARCHAR2_TABLE_200
561 , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_200
562 , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_200
563 , p7_a29 in out nocopy JTF_VARCHAR2_TABLE_200
564 , p7_a30 in out nocopy JTF_VARCHAR2_TABLE_200
565 , p7_a31 in out nocopy JTF_VARCHAR2_TABLE_200
566 , p7_a32 in out nocopy JTF_VARCHAR2_TABLE_100
567 )
568
569 as
570 ddp_item_group_rec ahl_mc_itemgroup_pvt.item_group_rec_type;
571 ddp_x_items_tbl ahl_mc_itemgroup_pvt.item_association_tbl_type;
572 ddindx binary_integer; indx binary_integer;
573 begin
574
575 -- copy data to the local IN or IN-OUT args, if any
576
577
578
579
580
581
582 ddp_item_group_rec.item_group_id := p6_a0;
583 ddp_item_group_rec.name := p6_a1;
584 ddp_item_group_rec.source_item_group_id := p6_a2;
585 ddp_item_group_rec.status_code := p6_a3;
586 ddp_item_group_rec.status_meaning := p6_a4;
587 ddp_item_group_rec.type_code := p6_a5;
588 ddp_item_group_rec.type_meaning := p6_a6;
589 ddp_item_group_rec.description := p6_a7;
590 ddp_item_group_rec.object_version_number := p6_a8;
591 ddp_item_group_rec.attribute_category := p6_a9;
592 ddp_item_group_rec.attribute1 := p6_a10;
593 ddp_item_group_rec.attribute2 := p6_a11;
594 ddp_item_group_rec.attribute3 := p6_a12;
595 ddp_item_group_rec.attribute4 := p6_a13;
596 ddp_item_group_rec.attribute5 := p6_a14;
597 ddp_item_group_rec.attribute6 := p6_a15;
598 ddp_item_group_rec.attribute7 := p6_a16;
599 ddp_item_group_rec.attribute8 := p6_a17;
600 ddp_item_group_rec.attribute9 := p6_a18;
601 ddp_item_group_rec.attribute10 := p6_a19;
602 ddp_item_group_rec.attribute11 := p6_a20;
603 ddp_item_group_rec.attribute12 := p6_a21;
604 ddp_item_group_rec.attribute13 := p6_a22;
605 ddp_item_group_rec.attribute14 := p6_a23;
606 ddp_item_group_rec.attribute15 := p6_a24;
607 ddp_item_group_rec.operation_flag := p6_a25;
608
609 ahl_mc_itemgroup_pvt_w.rosetta_table_copy_in_p2(ddp_x_items_tbl, p7_a0
610 , p7_a1
611 , p7_a2
612 , p7_a3
613 , p7_a4
614 , p7_a5
615 , p7_a6
616 , p7_a7
617 , p7_a8
618 , p7_a9
619 , p7_a10
620 , p7_a11
621 , p7_a12
622 , p7_a13
623 , p7_a14
624 , p7_a15
625 , p7_a16
626 , p7_a17
627 , p7_a18
628 , p7_a19
629 , p7_a20
630 , p7_a21
631 , p7_a22
632 , p7_a23
633 , p7_a24
634 , p7_a25
635 , p7_a26
636 , p7_a27
637 , p7_a28
638 , p7_a29
639 , p7_a30
640 , p7_a31
641 , p7_a32
642 );
643
644 -- here's the delegated call to the old PL/SQL routine
645 ahl_mc_itemgroup_pvt.modify_item_group(p_api_version,
646 p_init_msg_list,
647 p_validation_level,
648 x_return_status,
649 x_msg_count,
650 x_msg_data,
651 ddp_item_group_rec,
652 ddp_x_items_tbl);
653
654 -- copy data back from the local variables to OUT or IN-OUT args, if any
655
656
657
658
659
660
661
662 ahl_mc_itemgroup_pvt_w.rosetta_table_copy_out_p2(ddp_x_items_tbl, p7_a0
663 , p7_a1
664 , p7_a2
665 , p7_a3
666 , p7_a4
667 , p7_a5
668 , p7_a6
669 , p7_a7
670 , p7_a8
671 , p7_a9
672 , p7_a10
673 , p7_a11
674 , p7_a12
675 , p7_a13
676 , p7_a14
677 , p7_a15
678 , p7_a16
679 , p7_a17
680 , p7_a18
681 , p7_a19
682 , p7_a20
683 , p7_a21
684 , p7_a22
685 , p7_a23
686 , p7_a24
687 , p7_a25
688 , p7_a26
689 , p7_a27
690 , p7_a28
691 , p7_a29
692 , p7_a30
693 , p7_a31
694 , p7_a32
695 );
696 end;
697
698 procedure remove_item_group(p_api_version NUMBER
699 , p_init_msg_list VARCHAR2
700 , p_validation_level NUMBER
701 , x_return_status out nocopy VARCHAR2
702 , x_msg_count out nocopy NUMBER
703 , x_msg_data out nocopy VARCHAR2
704 , p6_a0 NUMBER
705 , p6_a1 VARCHAR2
706 , p6_a2 NUMBER
707 , p6_a3 VARCHAR2
708 , p6_a4 VARCHAR2
709 , p6_a5 VARCHAR2
710 , p6_a6 VARCHAR2
711 , p6_a7 VARCHAR2
712 , p6_a8 NUMBER
713 , p6_a9 VARCHAR2
714 , p6_a10 VARCHAR2
715 , p6_a11 VARCHAR2
716 , p6_a12 VARCHAR2
717 , p6_a13 VARCHAR2
718 , p6_a14 VARCHAR2
719 , p6_a15 VARCHAR2
720 , p6_a16 VARCHAR2
721 , p6_a17 VARCHAR2
722 , p6_a18 VARCHAR2
723 , p6_a19 VARCHAR2
724 , p6_a20 VARCHAR2
725 , p6_a21 VARCHAR2
726 , p6_a22 VARCHAR2
727 , p6_a23 VARCHAR2
728 , p6_a24 VARCHAR2
729 , p6_a25 VARCHAR2
730 )
731
732 as
733 ddp_item_group_rec ahl_mc_itemgroup_pvt.item_group_rec_type;
734 ddindx binary_integer; indx binary_integer;
735 begin
736
737 -- copy data to the local IN or IN-OUT args, if any
738
739
740
741
742
743
744 ddp_item_group_rec.item_group_id := p6_a0;
745 ddp_item_group_rec.name := p6_a1;
746 ddp_item_group_rec.source_item_group_id := p6_a2;
747 ddp_item_group_rec.status_code := p6_a3;
748 ddp_item_group_rec.status_meaning := p6_a4;
749 ddp_item_group_rec.type_code := p6_a5;
750 ddp_item_group_rec.type_meaning := p6_a6;
751 ddp_item_group_rec.description := p6_a7;
752 ddp_item_group_rec.object_version_number := p6_a8;
753 ddp_item_group_rec.attribute_category := p6_a9;
754 ddp_item_group_rec.attribute1 := p6_a10;
755 ddp_item_group_rec.attribute2 := p6_a11;
756 ddp_item_group_rec.attribute3 := p6_a12;
757 ddp_item_group_rec.attribute4 := p6_a13;
758 ddp_item_group_rec.attribute5 := p6_a14;
759 ddp_item_group_rec.attribute6 := p6_a15;
760 ddp_item_group_rec.attribute7 := p6_a16;
761 ddp_item_group_rec.attribute8 := p6_a17;
762 ddp_item_group_rec.attribute9 := p6_a18;
763 ddp_item_group_rec.attribute10 := p6_a19;
764 ddp_item_group_rec.attribute11 := p6_a20;
765 ddp_item_group_rec.attribute12 := p6_a21;
766 ddp_item_group_rec.attribute13 := p6_a22;
767 ddp_item_group_rec.attribute14 := p6_a23;
768 ddp_item_group_rec.attribute15 := p6_a24;
769 ddp_item_group_rec.operation_flag := p6_a25;
770
771 -- here's the delegated call to the old PL/SQL routine
772 ahl_mc_itemgroup_pvt.remove_item_group(p_api_version,
773 p_init_msg_list,
774 p_validation_level,
775 x_return_status,
776 x_msg_count,
777 x_msg_data,
778 ddp_item_group_rec);
779
780 -- copy data back from the local variables to OUT or IN-OUT args, if any
781
782
783
784
785
786
787 end;
788
789 procedure modify_position_assos(p_api_version NUMBER
790 , p_init_msg_list VARCHAR2
791 , p_commit VARCHAR2
792 , p_validation_level NUMBER
793 , p_module_type VARCHAR2
794 , x_return_status out nocopy VARCHAR2
795 , x_msg_count out nocopy NUMBER
796 , x_msg_data out nocopy VARCHAR2
797 , p_item_group_id NUMBER
798 , p_object_version_number NUMBER
799 , p10_a0 JTF_NUMBER_TABLE
800 , p10_a1 JTF_NUMBER_TABLE
801 , p10_a2 JTF_NUMBER_TABLE
802 , p10_a3 JTF_VARCHAR2_TABLE_100
803 , p10_a4 JTF_VARCHAR2_TABLE_100
804 , p10_a5 JTF_VARCHAR2_TABLE_100
805 , p10_a6 JTF_VARCHAR2_TABLE_100
806 , p10_a7 JTF_VARCHAR2_TABLE_100
807 , p10_a8 JTF_VARCHAR2_TABLE_100
808 , p10_a9 JTF_VARCHAR2_TABLE_100
809 , p10_a10 JTF_NUMBER_TABLE
810 , p10_a11 JTF_NUMBER_TABLE
811 , p10_a12 JTF_NUMBER_TABLE
812 , p10_a13 JTF_VARCHAR2_TABLE_100
813 , p10_a14 JTF_NUMBER_TABLE
814 , p10_a15 JTF_DATE_TABLE
815 , p10_a16 JTF_DATE_TABLE
816 , p10_a17 JTF_NUMBER_TABLE
817 , p10_a18 JTF_NUMBER_TABLE
818 , p10_a19 JTF_VARCHAR2_TABLE_100
819 , p10_a20 JTF_VARCHAR2_TABLE_200
820 , p10_a21 JTF_VARCHAR2_TABLE_200
821 , p10_a22 JTF_VARCHAR2_TABLE_200
822 , p10_a23 JTF_VARCHAR2_TABLE_200
823 , p10_a24 JTF_VARCHAR2_TABLE_200
824 , p10_a25 JTF_VARCHAR2_TABLE_200
825 , p10_a26 JTF_VARCHAR2_TABLE_200
826 , p10_a27 JTF_VARCHAR2_TABLE_200
827 , p10_a28 JTF_VARCHAR2_TABLE_200
828 , p10_a29 JTF_VARCHAR2_TABLE_200
829 , p10_a30 JTF_VARCHAR2_TABLE_200
830 , p10_a31 JTF_VARCHAR2_TABLE_200
831 , p10_a32 JTF_VARCHAR2_TABLE_200
832 , p10_a33 JTF_VARCHAR2_TABLE_200
833 , p10_a34 JTF_VARCHAR2_TABLE_200
834 , p10_a35 JTF_VARCHAR2_TABLE_100
835 , p10_a36 JTF_NUMBER_TABLE
836 )
837
838 as
839 ddp_nodes_tbl ahl_mc_node_pvt.node_tbl_type;
840 ddindx binary_integer; indx binary_integer;
841 begin
842
843 -- copy data to the local IN or IN-OUT args, if any
844
845
846
847
848
849
850
851
852
853
854 ahl_mc_node_pvt_w.rosetta_table_copy_in_p6(ddp_nodes_tbl, p10_a0
855 , p10_a1
856 , p10_a2
857 , p10_a3
858 , p10_a4
859 , p10_a5
860 , p10_a6
861 , p10_a7
862 , p10_a8
863 , p10_a9
864 , p10_a10
865 , p10_a11
866 , p10_a12
867 , p10_a13
868 , p10_a14
869 , p10_a15
870 , p10_a16
871 , p10_a17
872 , p10_a18
873 , p10_a19
874 , p10_a20
875 , p10_a21
876 , p10_a22
877 , p10_a23
878 , p10_a24
879 , p10_a25
880 , p10_a26
881 , p10_a27
882 , p10_a28
883 , p10_a29
884 , p10_a30
885 , p10_a31
886 , p10_a32
887 , p10_a33
888 , p10_a34
889 , p10_a35
890 , p10_a36
891 );
892
893 -- here's the delegated call to the old PL/SQL routine
894 ahl_mc_itemgroup_pvt.modify_position_assos(p_api_version,
895 p_init_msg_list,
896 p_commit,
897 p_validation_level,
898 p_module_type,
899 x_return_status,
900 x_msg_count,
901 x_msg_data,
902 p_item_group_id,
903 p_object_version_number,
904 ddp_nodes_tbl);
905
906 -- copy data back from the local variables to OUT or IN-OUT args, if any
907
908
909
910
911
912
913
914
915
916
917 end;
918
919 end ahl_mc_itemgroup_pvt_w;