[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_DISP_MTL_TXN_PVT_W
Source
1 package body ahl_prd_disp_mtl_txn_pvt_w as
2 /* $Header: AHLWDMTB.pls 120.0 2005/05/26 02:21:57 appldev 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_prd_disp_mtl_txn_pvt.disp_mtl_txn_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_DATE_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_DATE_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_NUMBER_TABLE
21 , a8 JTF_NUMBER_TABLE
22 , a9 JTF_NUMBER_TABLE
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_VARCHAR2_TABLE_200
26 , a13 JTF_VARCHAR2_TABLE_200
27 , a14 JTF_VARCHAR2_TABLE_200
28 , a15 JTF_VARCHAR2_TABLE_200
29 , a16 JTF_VARCHAR2_TABLE_200
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 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).disp_mtl_txn_id := a0(indx);
49 t(ddindx).object_version_number := a1(indx);
50 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
51 t(ddindx).last_updated_by := a3(indx);
52 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
53 t(ddindx).created_by := a5(indx);
54 t(ddindx).last_update_login := a6(indx);
55 t(ddindx).disposition_id := a7(indx);
56 t(ddindx).wo_mtl_txn_id := a8(indx);
57 t(ddindx).quantity := a9(indx);
58 t(ddindx).uom := a10(indx);
59 t(ddindx).attribute_category := a11(indx);
60 t(ddindx).attribute1 := a12(indx);
61 t(ddindx).attribute2 := a13(indx);
62 t(ddindx).attribute3 := a14(indx);
63 t(ddindx).attribute4 := a15(indx);
64 t(ddindx).attribute5 := a16(indx);
65 t(ddindx).attribute6 := a17(indx);
66 t(ddindx).attribute7 := a18(indx);
67 t(ddindx).attribute8 := a19(indx);
68 t(ddindx).attribute9 := a20(indx);
69 t(ddindx).attribute10 := a21(indx);
70 t(ddindx).attribute11 := a22(indx);
71 t(ddindx).attribute12 := a23(indx);
72 t(ddindx).attribute13 := a24(indx);
73 t(ddindx).attribute14 := a25(indx);
74 t(ddindx).attribute15 := a26(indx);
75 ddindx := ddindx+1;
76 if a0.last =indx
77 then exit;
78 end if;
79 indx := a0.next(indx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_in_p2;
84 procedure rosetta_table_copy_out_p2(t ahl_prd_disp_mtl_txn_pvt.disp_mtl_txn_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85 , a1 out nocopy JTF_NUMBER_TABLE
86 , a2 out nocopy JTF_DATE_TABLE
87 , a3 out nocopy JTF_NUMBER_TABLE
88 , a4 out nocopy JTF_DATE_TABLE
89 , a5 out nocopy JTF_NUMBER_TABLE
90 , a6 out nocopy JTF_NUMBER_TABLE
91 , a7 out nocopy JTF_NUMBER_TABLE
92 , a8 out nocopy JTF_NUMBER_TABLE
93 , a9 out nocopy JTF_NUMBER_TABLE
94 , a10 out nocopy JTF_VARCHAR2_TABLE_100
95 , a11 out nocopy JTF_VARCHAR2_TABLE_100
96 , a12 out nocopy JTF_VARCHAR2_TABLE_200
97 , a13 out nocopy JTF_VARCHAR2_TABLE_200
98 , a14 out nocopy JTF_VARCHAR2_TABLE_200
99 , a15 out nocopy JTF_VARCHAR2_TABLE_200
100 , a16 out nocopy JTF_VARCHAR2_TABLE_200
101 , a17 out nocopy JTF_VARCHAR2_TABLE_200
102 , a18 out nocopy JTF_VARCHAR2_TABLE_200
103 , a19 out nocopy JTF_VARCHAR2_TABLE_200
104 , a20 out nocopy JTF_VARCHAR2_TABLE_200
105 , a21 out nocopy JTF_VARCHAR2_TABLE_200
106 , a22 out nocopy JTF_VARCHAR2_TABLE_200
107 , a23 out nocopy JTF_VARCHAR2_TABLE_200
108 , a24 out nocopy JTF_VARCHAR2_TABLE_200
109 , a25 out nocopy JTF_VARCHAR2_TABLE_200
110 , a26 out nocopy JTF_VARCHAR2_TABLE_200
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_NUMBER_TABLE();
117 a2 := JTF_DATE_TABLE();
118 a3 := JTF_NUMBER_TABLE();
119 a4 := JTF_DATE_TABLE();
120 a5 := JTF_NUMBER_TABLE();
121 a6 := JTF_NUMBER_TABLE();
122 a7 := JTF_NUMBER_TABLE();
123 a8 := JTF_NUMBER_TABLE();
124 a9 := JTF_NUMBER_TABLE();
125 a10 := JTF_VARCHAR2_TABLE_100();
126 a11 := JTF_VARCHAR2_TABLE_100();
127 a12 := JTF_VARCHAR2_TABLE_200();
128 a13 := JTF_VARCHAR2_TABLE_200();
129 a14 := JTF_VARCHAR2_TABLE_200();
130 a15 := JTF_VARCHAR2_TABLE_200();
131 a16 := JTF_VARCHAR2_TABLE_200();
132 a17 := JTF_VARCHAR2_TABLE_200();
133 a18 := JTF_VARCHAR2_TABLE_200();
134 a19 := JTF_VARCHAR2_TABLE_200();
135 a20 := JTF_VARCHAR2_TABLE_200();
136 a21 := JTF_VARCHAR2_TABLE_200();
137 a22 := JTF_VARCHAR2_TABLE_200();
138 a23 := JTF_VARCHAR2_TABLE_200();
139 a24 := JTF_VARCHAR2_TABLE_200();
140 a25 := JTF_VARCHAR2_TABLE_200();
141 a26 := JTF_VARCHAR2_TABLE_200();
142 else
143 a0 := JTF_NUMBER_TABLE();
144 a1 := JTF_NUMBER_TABLE();
145 a2 := JTF_DATE_TABLE();
146 a3 := JTF_NUMBER_TABLE();
147 a4 := JTF_DATE_TABLE();
148 a5 := JTF_NUMBER_TABLE();
149 a6 := JTF_NUMBER_TABLE();
150 a7 := JTF_NUMBER_TABLE();
151 a8 := JTF_NUMBER_TABLE();
152 a9 := JTF_NUMBER_TABLE();
153 a10 := JTF_VARCHAR2_TABLE_100();
154 a11 := JTF_VARCHAR2_TABLE_100();
155 a12 := JTF_VARCHAR2_TABLE_200();
156 a13 := JTF_VARCHAR2_TABLE_200();
157 a14 := JTF_VARCHAR2_TABLE_200();
158 a15 := JTF_VARCHAR2_TABLE_200();
159 a16 := JTF_VARCHAR2_TABLE_200();
160 a17 := JTF_VARCHAR2_TABLE_200();
161 a18 := JTF_VARCHAR2_TABLE_200();
162 a19 := JTF_VARCHAR2_TABLE_200();
163 a20 := JTF_VARCHAR2_TABLE_200();
164 a21 := JTF_VARCHAR2_TABLE_200();
165 a22 := JTF_VARCHAR2_TABLE_200();
166 a23 := JTF_VARCHAR2_TABLE_200();
167 a24 := JTF_VARCHAR2_TABLE_200();
168 a25 := JTF_VARCHAR2_TABLE_200();
169 a26 := JTF_VARCHAR2_TABLE_200();
170 if t.count > 0 then
171 a0.extend(t.count);
172 a1.extend(t.count);
173 a2.extend(t.count);
174 a3.extend(t.count);
175 a4.extend(t.count);
176 a5.extend(t.count);
177 a6.extend(t.count);
178 a7.extend(t.count);
179 a8.extend(t.count);
180 a9.extend(t.count);
181 a10.extend(t.count);
182 a11.extend(t.count);
183 a12.extend(t.count);
184 a13.extend(t.count);
185 a14.extend(t.count);
186 a15.extend(t.count);
187 a16.extend(t.count);
188 a17.extend(t.count);
189 a18.extend(t.count);
190 a19.extend(t.count);
191 a20.extend(t.count);
192 a21.extend(t.count);
193 a22.extend(t.count);
194 a23.extend(t.count);
195 a24.extend(t.count);
196 a25.extend(t.count);
197 a26.extend(t.count);
198 ddindx := t.first;
199 indx := 1;
200 while true loop
201 a0(indx) := t(ddindx).disp_mtl_txn_id;
202 a1(indx) := t(ddindx).object_version_number;
203 a2(indx) := t(ddindx).last_update_date;
204 a3(indx) := t(ddindx).last_updated_by;
205 a4(indx) := t(ddindx).creation_date;
206 a5(indx) := t(ddindx).created_by;
207 a6(indx) := t(ddindx).last_update_login;
208 a7(indx) := t(ddindx).disposition_id;
209 a8(indx) := t(ddindx).wo_mtl_txn_id;
210 a9(indx) := t(ddindx).quantity;
211 a10(indx) := t(ddindx).uom;
212 a11(indx) := t(ddindx).attribute_category;
213 a12(indx) := t(ddindx).attribute1;
214 a13(indx) := t(ddindx).attribute2;
215 a14(indx) := t(ddindx).attribute3;
216 a15(indx) := t(ddindx).attribute4;
217 a16(indx) := t(ddindx).attribute5;
218 a17(indx) := t(ddindx).attribute6;
219 a18(indx) := t(ddindx).attribute7;
220 a19(indx) := t(ddindx).attribute8;
221 a20(indx) := t(ddindx).attribute9;
222 a21(indx) := t(ddindx).attribute10;
223 a22(indx) := t(ddindx).attribute11;
224 a23(indx) := t(ddindx).attribute12;
225 a24(indx) := t(ddindx).attribute13;
226 a25(indx) := t(ddindx).attribute14;
227 a26(indx) := t(ddindx).attribute15;
228 indx := indx+1;
229 if t.last =ddindx
230 then exit;
231 end if;
232 ddindx := t.next(ddindx);
233 end loop;
234 end if;
235 end if;
236 end rosetta_table_copy_out_p2;
237
238 procedure rosetta_table_copy_in_p3(t out nocopy ahl_prd_disp_mtl_txn_pvt.disp_mtxn_assoc_tbl_type, a0 JTF_NUMBER_TABLE
239 , a1 JTF_NUMBER_TABLE
240 , a2 JTF_NUMBER_TABLE
241 , a3 JTF_VARCHAR2_TABLE_100
242 , a4 JTF_NUMBER_TABLE
243 , a5 JTF_VARCHAR2_TABLE_100
244 , a6 JTF_VARCHAR2_TABLE_100
245 , a7 JTF_VARCHAR2_TABLE_100
246 , a8 JTF_VARCHAR2_TABLE_100
247 , a9 JTF_VARCHAR2_TABLE_200
248 , a10 JTF_VARCHAR2_TABLE_100
249 , a11 JTF_VARCHAR2_TABLE_200
250 , a12 JTF_VARCHAR2_TABLE_100
251 , a13 JTF_VARCHAR2_TABLE_100
252 , a14 JTF_NUMBER_TABLE
253 , a15 JTF_VARCHAR2_TABLE_100
254 , a16 JTF_NUMBER_TABLE
255 , a17 JTF_VARCHAR2_TABLE_100
256 , a18 JTF_NUMBER_TABLE
257 , a19 JTF_VARCHAR2_TABLE_100
258 ) as
259 ddindx binary_integer; indx binary_integer;
260 begin
261 if a0 is not null and a0.count > 0 then
262 if a0.count > 0 then
263 indx := a0.first;
264 ddindx := 1;
265 while true loop
266 t(ddindx).disposition_id := a0(indx);
267 t(ddindx).inventory_item_id := a1(indx);
268 t(ddindx).item_org_id := a2(indx);
269 t(ddindx).item_number := a3(indx);
270 t(ddindx).item_group_id := a4(indx);
271 t(ddindx).item_group_name := a5(indx);
272 t(ddindx).serial_number := a6(indx);
273 t(ddindx).lot_number := a7(indx);
274 t(ddindx).immediate_disposition_code := a8(indx);
275 t(ddindx).immediate_type := a9(indx);
276 t(ddindx).secondary_disposition_code := a10(indx);
277 t(ddindx).secondary_type := a11(indx);
278 t(ddindx).status_code := a12(indx);
279 t(ddindx).status := a13(indx);
280 t(ddindx).quantity := a14(indx);
281 t(ddindx).uom := a15(indx);
282 t(ddindx).assoc_qty := a16(indx);
283 t(ddindx).assoc_uom := a17(indx);
284 t(ddindx).untxned_qty := a18(indx);
285 t(ddindx).untxned_uom := a19(indx);
286 ddindx := ddindx+1;
287 if a0.last =indx
288 then exit;
289 end if;
290 indx := a0.next(indx);
291 end loop;
292 end if;
293 end if;
294 end rosetta_table_copy_in_p3;
295 procedure rosetta_table_copy_out_p3(t ahl_prd_disp_mtl_txn_pvt.disp_mtxn_assoc_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
296 , a1 out nocopy JTF_NUMBER_TABLE
297 , a2 out nocopy JTF_NUMBER_TABLE
298 , a3 out nocopy JTF_VARCHAR2_TABLE_100
299 , a4 out nocopy JTF_NUMBER_TABLE
300 , a5 out nocopy JTF_VARCHAR2_TABLE_100
301 , a6 out nocopy JTF_VARCHAR2_TABLE_100
302 , a7 out nocopy JTF_VARCHAR2_TABLE_100
303 , a8 out nocopy JTF_VARCHAR2_TABLE_100
304 , a9 out nocopy JTF_VARCHAR2_TABLE_200
305 , a10 out nocopy JTF_VARCHAR2_TABLE_100
306 , a11 out nocopy JTF_VARCHAR2_TABLE_200
307 , a12 out nocopy JTF_VARCHAR2_TABLE_100
308 , a13 out nocopy JTF_VARCHAR2_TABLE_100
309 , a14 out nocopy JTF_NUMBER_TABLE
310 , a15 out nocopy JTF_VARCHAR2_TABLE_100
311 , a16 out nocopy JTF_NUMBER_TABLE
312 , a17 out nocopy JTF_VARCHAR2_TABLE_100
316 ddindx binary_integer; indx binary_integer;
313 , a18 out nocopy JTF_NUMBER_TABLE
314 , a19 out nocopy JTF_VARCHAR2_TABLE_100
315 ) as
317 begin
318 if t is null or t.count = 0 then
319 a0 := JTF_NUMBER_TABLE();
320 a1 := JTF_NUMBER_TABLE();
321 a2 := JTF_NUMBER_TABLE();
322 a3 := JTF_VARCHAR2_TABLE_100();
323 a4 := JTF_NUMBER_TABLE();
324 a5 := JTF_VARCHAR2_TABLE_100();
325 a6 := JTF_VARCHAR2_TABLE_100();
326 a7 := JTF_VARCHAR2_TABLE_100();
327 a8 := JTF_VARCHAR2_TABLE_100();
328 a9 := JTF_VARCHAR2_TABLE_200();
329 a10 := JTF_VARCHAR2_TABLE_100();
330 a11 := JTF_VARCHAR2_TABLE_200();
331 a12 := JTF_VARCHAR2_TABLE_100();
332 a13 := JTF_VARCHAR2_TABLE_100();
333 a14 := JTF_NUMBER_TABLE();
334 a15 := JTF_VARCHAR2_TABLE_100();
335 a16 := JTF_NUMBER_TABLE();
336 a17 := JTF_VARCHAR2_TABLE_100();
337 a18 := JTF_NUMBER_TABLE();
338 a19 := JTF_VARCHAR2_TABLE_100();
339 else
340 a0 := JTF_NUMBER_TABLE();
341 a1 := JTF_NUMBER_TABLE();
342 a2 := JTF_NUMBER_TABLE();
343 a3 := JTF_VARCHAR2_TABLE_100();
344 a4 := JTF_NUMBER_TABLE();
345 a5 := JTF_VARCHAR2_TABLE_100();
346 a6 := JTF_VARCHAR2_TABLE_100();
347 a7 := JTF_VARCHAR2_TABLE_100();
348 a8 := JTF_VARCHAR2_TABLE_100();
349 a9 := JTF_VARCHAR2_TABLE_200();
350 a10 := JTF_VARCHAR2_TABLE_100();
351 a11 := JTF_VARCHAR2_TABLE_200();
352 a12 := JTF_VARCHAR2_TABLE_100();
353 a13 := JTF_VARCHAR2_TABLE_100();
354 a14 := JTF_NUMBER_TABLE();
355 a15 := JTF_VARCHAR2_TABLE_100();
356 a16 := JTF_NUMBER_TABLE();
357 a17 := JTF_VARCHAR2_TABLE_100();
358 a18 := JTF_NUMBER_TABLE();
359 a19 := JTF_VARCHAR2_TABLE_100();
360 if t.count > 0 then
361 a0.extend(t.count);
362 a1.extend(t.count);
363 a2.extend(t.count);
364 a3.extend(t.count);
365 a4.extend(t.count);
366 a5.extend(t.count);
367 a6.extend(t.count);
368 a7.extend(t.count);
369 a8.extend(t.count);
370 a9.extend(t.count);
371 a10.extend(t.count);
372 a11.extend(t.count);
373 a12.extend(t.count);
374 a13.extend(t.count);
375 a14.extend(t.count);
376 a15.extend(t.count);
377 a16.extend(t.count);
378 a17.extend(t.count);
379 a18.extend(t.count);
380 a19.extend(t.count);
381 ddindx := t.first;
382 indx := 1;
383 while true loop
384 a0(indx) := t(ddindx).disposition_id;
385 a1(indx) := t(ddindx).inventory_item_id;
386 a2(indx) := t(ddindx).item_org_id;
387 a3(indx) := t(ddindx).item_number;
388 a4(indx) := t(ddindx).item_group_id;
389 a5(indx) := t(ddindx).item_group_name;
390 a6(indx) := t(ddindx).serial_number;
391 a7(indx) := t(ddindx).lot_number;
392 a8(indx) := t(ddindx).immediate_disposition_code;
393 a9(indx) := t(ddindx).immediate_type;
394 a10(indx) := t(ddindx).secondary_disposition_code;
395 a11(indx) := t(ddindx).secondary_type;
396 a12(indx) := t(ddindx).status_code;
397 a13(indx) := t(ddindx).status;
398 a14(indx) := t(ddindx).quantity;
399 a15(indx) := t(ddindx).uom;
400 a16(indx) := t(ddindx).assoc_qty;
401 a17(indx) := t(ddindx).assoc_uom;
402 a18(indx) := t(ddindx).untxned_qty;
403 a19(indx) := t(ddindx).untxned_uom;
404 indx := indx+1;
405 if t.last =ddindx
406 then exit;
407 end if;
408 ddindx := t.next(ddindx);
409 end loop;
410 end if;
411 end if;
412 end rosetta_table_copy_out_p3;
413
414 procedure process_disp_mtl_txn(p_api_version NUMBER
415 , p_init_msg_list VARCHAR2
416 , p_commit VARCHAR2
417 , p_validation_level NUMBER
418 , x_return_status out nocopy VARCHAR2
419 , x_msg_count out nocopy NUMBER
420 , x_msg_data out nocopy VARCHAR2
421 , p_module VARCHAR2
422 , p8_a0 in out nocopy JTF_NUMBER_TABLE
423 , p8_a1 in out nocopy JTF_NUMBER_TABLE
424 , p8_a2 in out nocopy JTF_DATE_TABLE
425 , p8_a3 in out nocopy JTF_NUMBER_TABLE
426 , p8_a4 in out nocopy JTF_DATE_TABLE
427 , p8_a5 in out nocopy JTF_NUMBER_TABLE
428 , p8_a6 in out nocopy JTF_NUMBER_TABLE
429 , p8_a7 in out nocopy JTF_NUMBER_TABLE
430 , p8_a8 in out nocopy JTF_NUMBER_TABLE
431 , p8_a9 in out nocopy JTF_NUMBER_TABLE
432 , p8_a10 in out nocopy JTF_VARCHAR2_TABLE_100
433 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
434 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_200
435 , p8_a13 in out nocopy JTF_VARCHAR2_TABLE_200
436 , p8_a14 in out nocopy JTF_VARCHAR2_TABLE_200
437 , p8_a15 in out nocopy JTF_VARCHAR2_TABLE_200
438 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_200
439 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
440 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
441 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
442 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
443 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
444 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
445 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
446 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_200
447 , p8_a25 in out nocopy JTF_VARCHAR2_TABLE_200
448 , p8_a26 in out nocopy JTF_VARCHAR2_TABLE_200
449 )
450
451 as
452 ddp_x_disp_mtl_txn_tbl ahl_prd_disp_mtl_txn_pvt.disp_mtl_txn_tbl_type;
453 ddindx binary_integer; indx binary_integer;
454 begin
455
459
456 -- copy data to the local IN or IN-OUT args, if any
457
458
460
461
462
463
464
465 ahl_prd_disp_mtl_txn_pvt_w.rosetta_table_copy_in_p2(ddp_x_disp_mtl_txn_tbl, p8_a0
466 , p8_a1
467 , p8_a2
468 , p8_a3
469 , p8_a4
470 , p8_a5
471 , p8_a6
472 , p8_a7
473 , p8_a8
474 , p8_a9
475 , p8_a10
476 , p8_a11
477 , p8_a12
478 , p8_a13
479 , p8_a14
480 , p8_a15
481 , p8_a16
482 , p8_a17
483 , p8_a18
484 , p8_a19
485 , p8_a20
486 , p8_a21
487 , p8_a22
488 , p8_a23
489 , p8_a24
490 , p8_a25
491 , p8_a26
492 );
493
494 -- here's the delegated call to the old PL/SQL routine
495 ahl_prd_disp_mtl_txn_pvt.process_disp_mtl_txn(p_api_version,
496 p_init_msg_list,
497 p_commit,
498 p_validation_level,
499 x_return_status,
500 x_msg_count,
501 x_msg_data,
502 p_module,
503 ddp_x_disp_mtl_txn_tbl);
504
505 -- copy data back from the local variables to OUT or IN-OUT args, if any
506
507
508
509
510
511
512
513
514 ahl_prd_disp_mtl_txn_pvt_w.rosetta_table_copy_out_p2(ddp_x_disp_mtl_txn_tbl, p8_a0
515 , p8_a1
516 , p8_a2
517 , p8_a3
518 , p8_a4
519 , p8_a5
520 , p8_a6
524 , p8_a10
521 , p8_a7
522 , p8_a8
523 , p8_a9
525 , p8_a11
526 , p8_a12
527 , p8_a13
528 , p8_a14
529 , p8_a15
530 , p8_a16
531 , p8_a17
532 , p8_a18
533 , p8_a19
534 , p8_a20
535 , p8_a21
536 , p8_a22
537 , p8_a23
538 , p8_a24
539 , p8_a25
540 , p8_a26
541 );
542 end;
543
544 procedure get_disp_for_mtl_txn(p_api_version NUMBER
545 , p_init_msg_list VARCHAR2
546 , p_commit VARCHAR2
547 , p_validation_level NUMBER
548 , x_return_status out nocopy VARCHAR2
549 , x_msg_count out nocopy NUMBER
550 , x_msg_data out nocopy VARCHAR2
551 , p_wo_mtl_txn_id NUMBER
552 , p8_a0 out nocopy JTF_NUMBER_TABLE
553 , p8_a1 out nocopy JTF_NUMBER_TABLE
554 , p8_a2 out nocopy JTF_NUMBER_TABLE
555 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
556 , p8_a4 out nocopy JTF_NUMBER_TABLE
557 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
558 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
559 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_100
560 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
561 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_200
562 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_100
563 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_200
564 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
565 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
566 , p8_a14 out nocopy JTF_NUMBER_TABLE
567 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
568 , p8_a16 out nocopy JTF_NUMBER_TABLE
569 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
570 , p8_a18 out nocopy JTF_NUMBER_TABLE
571 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
572 )
573
574 as
575 ddx_disp_list_tbl ahl_prd_disp_mtl_txn_pvt.disp_mtxn_assoc_tbl_type;
576 ddindx binary_integer; indx binary_integer;
577 begin
578
579 -- copy data to the local IN or IN-OUT args, if any
580
581
582
583
584
585
586
587
588
589 -- here's the delegated call to the old PL/SQL routine
590 ahl_prd_disp_mtl_txn_pvt.get_disp_for_mtl_txn(p_api_version,
591 p_init_msg_list,
592 p_commit,
593 p_validation_level,
594 x_return_status,
595 x_msg_count,
596 x_msg_data,
597 p_wo_mtl_txn_id,
598 ddx_disp_list_tbl);
599
600 -- copy data back from the local variables to OUT or IN-OUT args, if any
601
602
603
604
605
606
607
608
609 ahl_prd_disp_mtl_txn_pvt_w.rosetta_table_copy_out_p3(ddx_disp_list_tbl, p8_a0
610 , p8_a1
611 , p8_a2
612 , p8_a3
613 , p8_a4
614 , p8_a5
615 , p8_a6
616 , p8_a7
617 , p8_a8
618 , p8_a9
619 , p8_a10
620 , p8_a11
621 , p8_a12
622 , p8_a13
623 , p8_a14
624 , p8_a15
625 , p8_a16
626 , p8_a17
627 , p8_a18
628 , p8_a19
629 );
630 end;
631
632 end ahl_prd_disp_mtl_txn_pvt_w;