[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_PARTS_CHANGE_PVT_W
Source
1 package body ahl_prd_parts_change_pvt_w as
2 /* $Header: AHLWPPCB.pls 120.4 2008/02/01 03:22:50 sikumar ship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ahl_prd_parts_change_pvt.ahl_parts_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_VARCHAR2_TABLE_100
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_DATE_TABLE
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_VARCHAR2_TABLE_100
33 , a17 JTF_VARCHAR2_TABLE_100
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_DATE_TABLE
37 , a21 JTF_NUMBER_TABLE
38 , a22 JTF_NUMBER_TABLE
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_NUMBER_TABLE
41 , a25 JTF_NUMBER_TABLE
42 , a26 JTF_DATE_TABLE
43 , a27 JTF_NUMBER_TABLE
44 , a28 JTF_DATE_TABLE
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_NUMBER_TABLE
47 , a31 JTF_NUMBER_TABLE
48 , a32 JTF_NUMBER_TABLE
49 ) as
50 ddindx binary_integer; indx binary_integer;
51 begin
52 if a0 is not null and a0.count > 0 then
53 if a0.count > 0 then
54 indx := a0.first;
55 ddindx := 1;
56 while true loop
57 t(ddindx).workorder_id := a0(indx);
58 t(ddindx).operation_sequence_num := a1(indx);
59 t(ddindx).workorder_operation_id := a2(indx);
60 t(ddindx).unit_config_header_id := a3(indx);
61 t(ddindx).unit_config_name := a4(indx);
62 t(ddindx).unit_config_obj_ver_num := a5(indx);
63 t(ddindx).mc_relationship_id := a6(indx);
64 t(ddindx).installed_instance_id := a7(indx);
65 t(ddindx).installed_instance_num := a8(indx);
66 t(ddindx).installed_quantity := a9(indx);
67 t(ddindx).installation_date := rosetta_g_miss_date_in_map(a10(indx));
68 t(ddindx).parent_installed_instance_id := a11(indx);
69 t(ddindx).parent_installed_instance_num := a12(indx);
70 t(ddindx).removed_instance_id := a13(indx);
71 t(ddindx).removed_instance_num := a14(indx);
72 t(ddindx).removed_quantity := a15(indx);
73 t(ddindx).removal_code := a16(indx);
74 t(ddindx).removal_meaning := a17(indx);
75 t(ddindx).removal_reason_id := a18(indx);
76 t(ddindx).removal_reason_name := a19(indx);
77 t(ddindx).removal_date := rosetta_g_miss_date_in_map(a20(indx));
78 t(ddindx).csi_ii_relationship_id := a21(indx);
79 t(ddindx).csi_ii_object_version_num := a22(indx);
80 t(ddindx).operation_type := a23(indx);
81 t(ddindx).installed_instance_obj_ver_num := a24(indx);
82 t(ddindx).removed_instance_obj_ver_num := a25(indx);
83 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a26(indx));
84 t(ddindx).last_update_by := a27(indx);
85 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a28(indx));
86 t(ddindx).created_by := a29(indx);
87 t(ddindx).last_update_login := a30(indx);
88 t(ddindx).part_change_txn_id := a31(indx);
89 t(ddindx).path_position_id := a32(indx);
90 ddindx := ddindx+1;
91 if a0.last =indx
92 then exit;
93 end if;
94 indx := a0.next(indx);
95 end loop;
96 end if;
97 end if;
98 end rosetta_table_copy_in_p1;
99 procedure rosetta_table_copy_out_p1(t ahl_prd_parts_change_pvt.ahl_parts_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
100 , a1 out nocopy JTF_NUMBER_TABLE
101 , a2 out nocopy JTF_NUMBER_TABLE
102 , a3 out nocopy JTF_NUMBER_TABLE
103 , a4 out nocopy JTF_VARCHAR2_TABLE_100
104 , a5 out nocopy JTF_NUMBER_TABLE
105 , a6 out nocopy JTF_NUMBER_TABLE
106 , a7 out nocopy JTF_NUMBER_TABLE
107 , a8 out nocopy JTF_VARCHAR2_TABLE_100
108 , a9 out nocopy JTF_NUMBER_TABLE
109 , a10 out nocopy JTF_DATE_TABLE
110 , a11 out nocopy JTF_NUMBER_TABLE
111 , a12 out nocopy JTF_VARCHAR2_TABLE_100
112 , a13 out nocopy JTF_NUMBER_TABLE
113 , a14 out nocopy JTF_VARCHAR2_TABLE_100
114 , a15 out nocopy JTF_NUMBER_TABLE
115 , a16 out nocopy JTF_VARCHAR2_TABLE_100
116 , a17 out nocopy JTF_VARCHAR2_TABLE_100
117 , a18 out nocopy JTF_NUMBER_TABLE
118 , a19 out nocopy JTF_VARCHAR2_TABLE_100
119 , a20 out nocopy JTF_DATE_TABLE
120 , a21 out nocopy JTF_NUMBER_TABLE
121 , a22 out nocopy JTF_NUMBER_TABLE
122 , a23 out nocopy JTF_VARCHAR2_TABLE_100
123 , a24 out nocopy JTF_NUMBER_TABLE
124 , a25 out nocopy JTF_NUMBER_TABLE
125 , a26 out nocopy JTF_DATE_TABLE
126 , a27 out nocopy JTF_NUMBER_TABLE
127 , a28 out nocopy JTF_DATE_TABLE
128 , a29 out nocopy JTF_NUMBER_TABLE
129 , a30 out nocopy JTF_NUMBER_TABLE
130 , a31 out nocopy JTF_NUMBER_TABLE
131 , a32 out nocopy JTF_NUMBER_TABLE
132 ) as
133 ddindx binary_integer; indx binary_integer;
134 begin
135 if t is null or t.count = 0 then
136 a0 := JTF_NUMBER_TABLE();
137 a1 := JTF_NUMBER_TABLE();
138 a2 := JTF_NUMBER_TABLE();
139 a3 := JTF_NUMBER_TABLE();
140 a4 := JTF_VARCHAR2_TABLE_100();
141 a5 := JTF_NUMBER_TABLE();
142 a6 := JTF_NUMBER_TABLE();
143 a7 := JTF_NUMBER_TABLE();
144 a8 := JTF_VARCHAR2_TABLE_100();
145 a9 := JTF_NUMBER_TABLE();
146 a10 := JTF_DATE_TABLE();
147 a11 := JTF_NUMBER_TABLE();
148 a12 := JTF_VARCHAR2_TABLE_100();
149 a13 := JTF_NUMBER_TABLE();
150 a14 := JTF_VARCHAR2_TABLE_100();
151 a15 := JTF_NUMBER_TABLE();
152 a16 := JTF_VARCHAR2_TABLE_100();
153 a17 := JTF_VARCHAR2_TABLE_100();
154 a18 := JTF_NUMBER_TABLE();
155 a19 := JTF_VARCHAR2_TABLE_100();
156 a20 := JTF_DATE_TABLE();
157 a21 := JTF_NUMBER_TABLE();
158 a22 := JTF_NUMBER_TABLE();
159 a23 := JTF_VARCHAR2_TABLE_100();
160 a24 := JTF_NUMBER_TABLE();
161 a25 := JTF_NUMBER_TABLE();
162 a26 := JTF_DATE_TABLE();
163 a27 := JTF_NUMBER_TABLE();
164 a28 := JTF_DATE_TABLE();
165 a29 := JTF_NUMBER_TABLE();
166 a30 := JTF_NUMBER_TABLE();
167 a31 := JTF_NUMBER_TABLE();
168 a32 := JTF_NUMBER_TABLE();
169 else
170 a0 := JTF_NUMBER_TABLE();
171 a1 := JTF_NUMBER_TABLE();
172 a2 := JTF_NUMBER_TABLE();
173 a3 := JTF_NUMBER_TABLE();
174 a4 := JTF_VARCHAR2_TABLE_100();
175 a5 := JTF_NUMBER_TABLE();
176 a6 := JTF_NUMBER_TABLE();
177 a7 := JTF_NUMBER_TABLE();
178 a8 := JTF_VARCHAR2_TABLE_100();
179 a9 := JTF_NUMBER_TABLE();
180 a10 := JTF_DATE_TABLE();
181 a11 := JTF_NUMBER_TABLE();
182 a12 := JTF_VARCHAR2_TABLE_100();
183 a13 := JTF_NUMBER_TABLE();
184 a14 := JTF_VARCHAR2_TABLE_100();
185 a15 := JTF_NUMBER_TABLE();
186 a16 := JTF_VARCHAR2_TABLE_100();
187 a17 := JTF_VARCHAR2_TABLE_100();
188 a18 := JTF_NUMBER_TABLE();
189 a19 := JTF_VARCHAR2_TABLE_100();
190 a20 := JTF_DATE_TABLE();
191 a21 := JTF_NUMBER_TABLE();
192 a22 := JTF_NUMBER_TABLE();
193 a23 := JTF_VARCHAR2_TABLE_100();
194 a24 := JTF_NUMBER_TABLE();
195 a25 := JTF_NUMBER_TABLE();
196 a26 := JTF_DATE_TABLE();
197 a27 := JTF_NUMBER_TABLE();
198 a28 := JTF_DATE_TABLE();
199 a29 := JTF_NUMBER_TABLE();
200 a30 := JTF_NUMBER_TABLE();
201 a31 := JTF_NUMBER_TABLE();
202 a32 := JTF_NUMBER_TABLE();
203 if t.count > 0 then
204 a0.extend(t.count);
205 a1.extend(t.count);
206 a2.extend(t.count);
207 a3.extend(t.count);
208 a4.extend(t.count);
209 a5.extend(t.count);
210 a6.extend(t.count);
211 a7.extend(t.count);
212 a8.extend(t.count);
213 a9.extend(t.count);
214 a10.extend(t.count);
215 a11.extend(t.count);
216 a12.extend(t.count);
217 a13.extend(t.count);
218 a14.extend(t.count);
219 a15.extend(t.count);
220 a16.extend(t.count);
221 a17.extend(t.count);
222 a18.extend(t.count);
223 a19.extend(t.count);
224 a20.extend(t.count);
225 a21.extend(t.count);
226 a22.extend(t.count);
227 a23.extend(t.count);
228 a24.extend(t.count);
229 a25.extend(t.count);
230 a26.extend(t.count);
231 a27.extend(t.count);
232 a28.extend(t.count);
233 a29.extend(t.count);
234 a30.extend(t.count);
235 a31.extend(t.count);
236 a32.extend(t.count);
237 ddindx := t.first;
238 indx := 1;
239 while true loop
240 a0(indx) := t(ddindx).workorder_id;
241 a1(indx) := t(ddindx).operation_sequence_num;
242 a2(indx) := t(ddindx).workorder_operation_id;
243 a3(indx) := t(ddindx).unit_config_header_id;
244 a4(indx) := t(ddindx).unit_config_name;
245 a5(indx) := t(ddindx).unit_config_obj_ver_num;
246 a6(indx) := t(ddindx).mc_relationship_id;
247 a7(indx) := t(ddindx).installed_instance_id;
248 a8(indx) := t(ddindx).installed_instance_num;
249 a9(indx) := t(ddindx).installed_quantity;
250 a10(indx) := t(ddindx).installation_date;
251 a11(indx) := t(ddindx).parent_installed_instance_id;
252 a12(indx) := t(ddindx).parent_installed_instance_num;
253 a13(indx) := t(ddindx).removed_instance_id;
254 a14(indx) := t(ddindx).removed_instance_num;
255 a15(indx) := t(ddindx).removed_quantity;
256 a16(indx) := t(ddindx).removal_code;
257 a17(indx) := t(ddindx).removal_meaning;
258 a18(indx) := t(ddindx).removal_reason_id;
259 a19(indx) := t(ddindx).removal_reason_name;
260 a20(indx) := t(ddindx).removal_date;
261 a21(indx) := t(ddindx).csi_ii_relationship_id;
262 a22(indx) := t(ddindx).csi_ii_object_version_num;
263 a23(indx) := t(ddindx).operation_type;
264 a24(indx) := t(ddindx).installed_instance_obj_ver_num;
265 a25(indx) := t(ddindx).removed_instance_obj_ver_num;
266 a26(indx) := t(ddindx).last_update_date;
267 a27(indx) := t(ddindx).last_update_by;
268 a28(indx) := t(ddindx).creation_date;
269 a29(indx) := t(ddindx).created_by;
270 a30(indx) := t(ddindx).last_update_login;
271 a31(indx) := t(ddindx).part_change_txn_id;
272 a32(indx) := t(ddindx).path_position_id;
273 indx := indx+1;
274 if t.last =ddindx
275 then exit;
276 end if;
277 ddindx := t.next(ddindx);
278 end loop;
279 end if;
280 end if;
281 end rosetta_table_copy_out_p1;
282
283 procedure rosetta_table_copy_in_p7(t out nocopy ahl_prd_parts_change_pvt.move_item_instance_tbl_type, a0 JTF_NUMBER_TABLE
284 , a1 JTF_VARCHAR2_TABLE_100
285 , a2 JTF_NUMBER_TABLE
286 , a3 JTF_NUMBER_TABLE
287 , a4 JTF_VARCHAR2_TABLE_100
288 , a5 JTF_NUMBER_TABLE
289 , a6 JTF_VARCHAR2_TABLE_100
290 ) as
291 ddindx binary_integer; indx binary_integer;
292 begin
293 if a0 is not null and a0.count > 0 then
294 if a0.count > 0 then
295 indx := a0.first;
296 ddindx := 1;
297 while true loop
298 t(ddindx).instance_id := a0(indx);
299 t(ddindx).instance_number := a1(indx);
300 t(ddindx).quantity := a2(indx);
301 t(ddindx).from_workorder_id := a3(indx);
302 t(ddindx).from_workorder_number := a4(indx);
303 t(ddindx).to_workorder_id := a5(indx);
304 t(ddindx).to_workorder_number := a6(indx);
305 ddindx := ddindx+1;
306 if a0.last =indx
307 then exit;
308 end if;
309 indx := a0.next(indx);
310 end loop;
311 end if;
312 end if;
313 end rosetta_table_copy_in_p7;
314 procedure rosetta_table_copy_out_p7(t ahl_prd_parts_change_pvt.move_item_instance_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
315 , a1 out nocopy JTF_VARCHAR2_TABLE_100
316 , a2 out nocopy JTF_NUMBER_TABLE
317 , a3 out nocopy JTF_NUMBER_TABLE
318 , a4 out nocopy JTF_VARCHAR2_TABLE_100
319 , a5 out nocopy JTF_NUMBER_TABLE
320 , a6 out nocopy JTF_VARCHAR2_TABLE_100
321 ) as
322 ddindx binary_integer; indx binary_integer;
323 begin
324 if t is null or t.count = 0 then
325 a0 := JTF_NUMBER_TABLE();
326 a1 := JTF_VARCHAR2_TABLE_100();
327 a2 := JTF_NUMBER_TABLE();
328 a3 := JTF_NUMBER_TABLE();
329 a4 := JTF_VARCHAR2_TABLE_100();
330 a5 := JTF_NUMBER_TABLE();
331 a6 := JTF_VARCHAR2_TABLE_100();
332 else
333 a0 := JTF_NUMBER_TABLE();
334 a1 := JTF_VARCHAR2_TABLE_100();
335 a2 := JTF_NUMBER_TABLE();
336 a3 := JTF_NUMBER_TABLE();
337 a4 := JTF_VARCHAR2_TABLE_100();
338 a5 := JTF_NUMBER_TABLE();
339 a6 := JTF_VARCHAR2_TABLE_100();
340 if t.count > 0 then
341 a0.extend(t.count);
342 a1.extend(t.count);
343 a2.extend(t.count);
344 a3.extend(t.count);
345 a4.extend(t.count);
346 a5.extend(t.count);
347 a6.extend(t.count);
348 ddindx := t.first;
349 indx := 1;
350 while true loop
351 a0(indx) := t(ddindx).instance_id;
352 a1(indx) := t(ddindx).instance_number;
353 a2(indx) := t(ddindx).quantity;
354 a3(indx) := t(ddindx).from_workorder_id;
355 a4(indx) := t(ddindx).from_workorder_number;
356 a5(indx) := t(ddindx).to_workorder_id;
357 a6(indx) := t(ddindx).to_workorder_number;
358 indx := indx+1;
359 if t.last =ddindx
360 then exit;
361 end if;
362 ddindx := t.next(ddindx);
363 end loop;
364 end if;
365 end if;
366 end rosetta_table_copy_out_p7;
367
368 procedure process_part(p_api_version NUMBER
369 , p_init_msg_list VARCHAR2
370 , p_commit VARCHAR2
371 , p_validation_level NUMBER
372 , p_module_type VARCHAR2
373 , p_default VARCHAR2
374 , p6_a0 in out nocopy JTF_NUMBER_TABLE
375 , p6_a1 in out nocopy JTF_NUMBER_TABLE
376 , p6_a2 in out nocopy JTF_NUMBER_TABLE
377 , p6_a3 in out nocopy JTF_NUMBER_TABLE
378 , p6_a4 in out nocopy JTF_VARCHAR2_TABLE_100
379 , p6_a5 in out nocopy JTF_NUMBER_TABLE
380 , p6_a6 in out nocopy JTF_NUMBER_TABLE
381 , p6_a7 in out nocopy JTF_NUMBER_TABLE
382 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_100
383 , p6_a9 in out nocopy JTF_NUMBER_TABLE
384 , p6_a10 in out nocopy JTF_DATE_TABLE
385 , p6_a11 in out nocopy JTF_NUMBER_TABLE
386 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_100
387 , p6_a13 in out nocopy JTF_NUMBER_TABLE
388 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_100
389 , p6_a15 in out nocopy JTF_NUMBER_TABLE
390 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_100
391 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_100
392 , p6_a18 in out nocopy JTF_NUMBER_TABLE
393 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_100
394 , p6_a20 in out nocopy JTF_DATE_TABLE
395 , p6_a21 in out nocopy JTF_NUMBER_TABLE
396 , p6_a22 in out nocopy JTF_NUMBER_TABLE
397 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_100
398 , p6_a24 in out nocopy JTF_NUMBER_TABLE
399 , p6_a25 in out nocopy JTF_NUMBER_TABLE
400 , p6_a26 in out nocopy JTF_DATE_TABLE
401 , p6_a27 in out nocopy JTF_NUMBER_TABLE
402 , p6_a28 in out nocopy JTF_DATE_TABLE
403 , p6_a29 in out nocopy JTF_NUMBER_TABLE
404 , p6_a30 in out nocopy JTF_NUMBER_TABLE
405 , p6_a31 in out nocopy JTF_NUMBER_TABLE
406 , p6_a32 in out nocopy JTF_NUMBER_TABLE
407 , x_error_code out nocopy VARCHAR2
408 , x_return_status out nocopy VARCHAR2
409 , x_msg_count out nocopy NUMBER
410 , x_msg_data out nocopy VARCHAR2
411 , x_warning_msg_tbl out nocopy JTF_VARCHAR2_TABLE_2000
412 )
413
414 as
415 ddp_x_parts_rec_tbl ahl_prd_parts_change_pvt.ahl_parts_tbl_type;
416 ddx_warning_msg_tbl ahl_uc_validation_pub.error_tbl_type;
417 ddindx binary_integer; indx binary_integer;
418 begin
419
420 -- copy data to the local IN or IN-OUT args, if any
421
422
423
424
425
426
427 ahl_prd_parts_change_pvt_w.rosetta_table_copy_in_p1(ddp_x_parts_rec_tbl, p6_a0
428 , p6_a1
429 , p6_a2
430 , p6_a3
431 , p6_a4
432 , p6_a5
433 , p6_a6
434 , p6_a7
435 , p6_a8
436 , p6_a9
437 , p6_a10
438 , p6_a11
439 , p6_a12
440 , p6_a13
441 , p6_a14
442 , p6_a15
443 , p6_a16
444 , p6_a17
445 , p6_a18
446 , p6_a19
447 , p6_a20
448 , p6_a21
449 , p6_a22
450 , p6_a23
451 , p6_a24
452 , p6_a25
453 , p6_a26
454 , p6_a27
455 , p6_a28
456 , p6_a29
457 , p6_a30
458 , p6_a31
459 , p6_a32
460 );
461
462
463
464
465
466
467 -- here's the delegated call to the old PL/SQL routine
468 ahl_prd_parts_change_pvt.process_part(p_api_version,
469 p_init_msg_list,
470 p_commit,
471 p_validation_level,
472 p_module_type,
473 p_default,
474 ddp_x_parts_rec_tbl,
475 x_error_code,
476 x_return_status,
477 x_msg_count,
478 x_msg_data,
479 ddx_warning_msg_tbl);
480
481 -- copy data back from the local variables to OUT or IN-OUT args, if any
482
483
484
485
486
487
488 ahl_prd_parts_change_pvt_w.rosetta_table_copy_out_p1(ddp_x_parts_rec_tbl, p6_a0
489 , p6_a1
490 , p6_a2
491 , p6_a3
492 , p6_a4
493 , p6_a5
494 , p6_a6
495 , p6_a7
496 , p6_a8
497 , p6_a9
498 , p6_a10
499 , p6_a11
500 , p6_a12
501 , p6_a13
502 , p6_a14
503 , p6_a15
504 , p6_a16
505 , p6_a17
506 , p6_a18
507 , p6_a19
508 , p6_a20
509 , p6_a21
510 , p6_a22
511 , p6_a23
512 , p6_a24
513 , p6_a25
514 , p6_a26
515 , p6_a27
516 , p6_a28
517 , p6_a29
518 , p6_a30
519 , p6_a31
520 , p6_a32
521 );
522
523
524
525
526
527 ahl_uc_validation_pub_w.rosetta_table_copy_out_p0(ddx_warning_msg_tbl, x_warning_msg_tbl);
528 end;
529
530 procedure returnto_workorder_locator(p_init_msg_list VARCHAR2
531 , p_commit VARCHAR2
532 , p_part_change_id NUMBER
533 , p_disposition_id NUMBER
534 , x_return_status out nocopy VARCHAR2
535 , x_msg_data out nocopy VARCHAR2
536 , x_msg_count out nocopy NUMBER
537 , p7_a0 out nocopy NUMBER
538 , p7_a1 out nocopy NUMBER
539 , p7_a2 out nocopy VARCHAR2
540 , p7_a3 out nocopy VARCHAR2
541 , p7_a4 out nocopy VARCHAR2
542 , p7_a5 out nocopy NUMBER
543 , p7_a6 out nocopy VARCHAR2
544 , p7_a7 out nocopy VARCHAR2
545 , p7_a8 out nocopy VARCHAR2
546 , p7_a9 out nocopy NUMBER
547 , p7_a10 out nocopy VARCHAR2
548 , p7_a11 out nocopy NUMBER
549 , p7_a12 out nocopy NUMBER
550 , p7_a13 out nocopy VARCHAR2
551 , p7_a14 out nocopy VARCHAR2
552 , p7_a15 out nocopy NUMBER
553 , p7_a16 out nocopy VARCHAR2
554 , p7_a17 out nocopy NUMBER
555 , p7_a18 out nocopy NUMBER
556 , p7_a19 out nocopy VARCHAR2
557 , p7_a20 out nocopy VARCHAR2
558 , p7_a21 out nocopy NUMBER
559 , p7_a22 out nocopy VARCHAR2
560 , p7_a23 out nocopy VARCHAR2
561 , p7_a24 out nocopy NUMBER
562 , p7_a25 out nocopy NUMBER
563 , p7_a26 out nocopy VARCHAR2
564 , p7_a27 out nocopy VARCHAR2
565 , p7_a28 out nocopy NUMBER
566 , p7_a29 out nocopy VARCHAR2
567 , p7_a30 out nocopy VARCHAR2
568 , p7_a31 out nocopy VARCHAR2
569 , p7_a32 out nocopy NUMBER
570 , p7_a33 out nocopy VARCHAR2
571 , p7_a34 out nocopy NUMBER
572 , p7_a35 out nocopy NUMBER
573 , p7_a36 out nocopy DATE
574 , p7_a37 out nocopy NUMBER
575 , p7_a38 out nocopy VARCHAR2
576 , p7_a39 out nocopy NUMBER
577 , p7_a40 out nocopy VARCHAR2
578 , p7_a41 out nocopy VARCHAR2
579 , p7_a42 out nocopy VARCHAR2
580 , p7_a43 out nocopy VARCHAR2
581 , p7_a44 out nocopy VARCHAR2
582 , p7_a45 out nocopy VARCHAR2
583 , p7_a46 out nocopy VARCHAR2
584 , p7_a47 out nocopy VARCHAR2
585 , p7_a48 out nocopy VARCHAR2
586 , p7_a49 out nocopy VARCHAR2
587 , p7_a50 out nocopy VARCHAR2
588 , p7_a51 out nocopy VARCHAR2
589 , p7_a52 out nocopy VARCHAR2
590 , p7_a53 out nocopy VARCHAR2
591 , p7_a54 out nocopy VARCHAR2
592 , p7_a55 out nocopy VARCHAR2
593 , p7_a56 out nocopy VARCHAR2
594 , p7_a57 out nocopy VARCHAR2
595 )
596
597 as
598 ddx_ahl_mtltxn_rec ahl_prd_mtltxn_pvt.ahl_mtltxn_rec_type;
599 ddindx binary_integer; indx binary_integer;
600 begin
601
602 -- copy data to the local IN or IN-OUT args, if any
603
604
605
606
607
608
609
610
611 -- here's the delegated call to the old PL/SQL routine
612 ahl_prd_parts_change_pvt.returnto_workorder_locator(p_init_msg_list,
613 p_commit,
614 p_part_change_id,
615 p_disposition_id,
616 x_return_status,
617 x_msg_data,
618 x_msg_count,
619 ddx_ahl_mtltxn_rec);
620
621 -- copy data back from the local variables to OUT or IN-OUT args, if any
622
623
624
625
626
627
628
629 p7_a0 := ddx_ahl_mtltxn_rec.ahl_mtltxn_id;
630 p7_a1 := ddx_ahl_mtltxn_rec.workorder_id;
631 p7_a2 := ddx_ahl_mtltxn_rec.workorder_name;
632 p7_a3 := ddx_ahl_mtltxn_rec.workorder_status;
633 p7_a4 := ddx_ahl_mtltxn_rec.workorder_status_code;
634 p7_a5 := ddx_ahl_mtltxn_rec.inventory_item_id;
635 p7_a6 := ddx_ahl_mtltxn_rec.inventory_item_segments;
636 p7_a7 := ddx_ahl_mtltxn_rec.inventory_item_description;
637 p7_a8 := ddx_ahl_mtltxn_rec.item_instance_number;
638 p7_a9 := ddx_ahl_mtltxn_rec.item_instance_id;
639 p7_a10 := ddx_ahl_mtltxn_rec.revision;
640 p7_a11 := ddx_ahl_mtltxn_rec.organization_id;
641 p7_a12 := ddx_ahl_mtltxn_rec.condition;
642 p7_a13 := ddx_ahl_mtltxn_rec.condition_desc;
643 p7_a14 := ddx_ahl_mtltxn_rec.subinventory_name;
644 p7_a15 := ddx_ahl_mtltxn_rec.locator_id;
645 p7_a16 := ddx_ahl_mtltxn_rec.locator_segments;
646 p7_a17 := ddx_ahl_mtltxn_rec.quantity;
647 p7_a18 := ddx_ahl_mtltxn_rec.net_quantity;
648 p7_a19 := ddx_ahl_mtltxn_rec.uom;
649 p7_a20 := ddx_ahl_mtltxn_rec.uom_desc;
650 p7_a21 := ddx_ahl_mtltxn_rec.transaction_type_id;
651 p7_a22 := ddx_ahl_mtltxn_rec.transaction_type_name;
652 p7_a23 := ddx_ahl_mtltxn_rec.transaction_reference;
653 p7_a24 := ddx_ahl_mtltxn_rec.wip_entity_id;
654 p7_a25 := ddx_ahl_mtltxn_rec.operation_seq_num;
655 p7_a26 := ddx_ahl_mtltxn_rec.serial_number;
656 p7_a27 := ddx_ahl_mtltxn_rec.lot_number;
657 p7_a28 := ddx_ahl_mtltxn_rec.reason_id;
658 p7_a29 := ddx_ahl_mtltxn_rec.reason_name;
659 p7_a30 := ddx_ahl_mtltxn_rec.problem_code;
660 p7_a31 := ddx_ahl_mtltxn_rec.problem_code_meaning;
661 p7_a32 := ddx_ahl_mtltxn_rec.target_visit_id;
662 p7_a33 := ddx_ahl_mtltxn_rec.sr_summary;
663 p7_a34 := ddx_ahl_mtltxn_rec.qa_collection_id;
664 p7_a35 := ddx_ahl_mtltxn_rec.workorder_operation_id;
665 p7_a36 := ddx_ahl_mtltxn_rec.transaction_date;
666 p7_a37 := ddx_ahl_mtltxn_rec.recepient_id;
667 p7_a38 := ddx_ahl_mtltxn_rec.recepient_name;
668 p7_a39 := ddx_ahl_mtltxn_rec.disposition_id;
669 p7_a40 := ddx_ahl_mtltxn_rec.disposition_name;
670 p7_a41 := ddx_ahl_mtltxn_rec.create_wo_option;
671 p7_a42 := ddx_ahl_mtltxn_rec.attribute_category;
672 p7_a43 := ddx_ahl_mtltxn_rec.attribute1;
673 p7_a44 := ddx_ahl_mtltxn_rec.attribute2;
674 p7_a45 := ddx_ahl_mtltxn_rec.attribute3;
675 p7_a46 := ddx_ahl_mtltxn_rec.attribute4;
676 p7_a47 := ddx_ahl_mtltxn_rec.attribute5;
677 p7_a48 := ddx_ahl_mtltxn_rec.attribute6;
678 p7_a49 := ddx_ahl_mtltxn_rec.attribute7;
679 p7_a50 := ddx_ahl_mtltxn_rec.attribute8;
680 p7_a51 := ddx_ahl_mtltxn_rec.attribute9;
681 p7_a52 := ddx_ahl_mtltxn_rec.attribute10;
682 p7_a53 := ddx_ahl_mtltxn_rec.attribute11;
683 p7_a54 := ddx_ahl_mtltxn_rec.attribute12;
684 p7_a55 := ddx_ahl_mtltxn_rec.attribute13;
685 p7_a56 := ddx_ahl_mtltxn_rec.attribute14;
686 p7_a57 := ddx_ahl_mtltxn_rec.attribute15;
687 end;
688
689 procedure move_instance_location(p_api_version NUMBER
690 , p_init_msg_list VARCHAR2
691 , p_commit VARCHAR2
692 , p_validation_level NUMBER
693 , p_module_type VARCHAR2
694 , p_default VARCHAR2
695 , p6_a0 JTF_NUMBER_TABLE
696 , p6_a1 JTF_VARCHAR2_TABLE_100
697 , p6_a2 JTF_NUMBER_TABLE
698 , p6_a3 JTF_NUMBER_TABLE
699 , p6_a4 JTF_VARCHAR2_TABLE_100
700 , p6_a5 JTF_NUMBER_TABLE
701 , p6_a6 JTF_VARCHAR2_TABLE_100
702 , x_return_status out nocopy VARCHAR2
703 , x_msg_count out nocopy NUMBER
704 , x_msg_data out nocopy VARCHAR2
705 )
706
707 as
708 ddp_move_item_instance_tbl ahl_prd_parts_change_pvt.move_item_instance_tbl_type;
709 ddindx binary_integer; indx binary_integer;
710 begin
711
712 -- copy data to the local IN or IN-OUT args, if any
713
714
715
716
717
718
719 ahl_prd_parts_change_pvt_w.rosetta_table_copy_in_p7(ddp_move_item_instance_tbl, p6_a0
720 , p6_a1
721 , p6_a2
722 , p6_a3
723 , p6_a4
724 , p6_a5
725 , p6_a6
726 );
727
728
729
730
731 -- here's the delegated call to the old PL/SQL routine
732 ahl_prd_parts_change_pvt.move_instance_location(p_api_version,
733 p_init_msg_list,
734 p_commit,
735 p_validation_level,
736 p_module_type,
737 p_default,
738 ddp_move_item_instance_tbl,
739 x_return_status,
740 x_msg_count,
741 x_msg_data);
742
743 -- copy data back from the local variables to OUT or IN-OUT args, if any
744
745
746
747
748
749
750
751
752
753 end;
754
755 end ahl_prd_parts_change_pvt_w;