DBA Data[Home] [Help]

PACKAGE BODY: APPS.WSMPLBMI_W

Source


1 package body wsmplbmi_w as
2   /* $Header: WSMLBMWB.pls 120.0 2005/07/06 11:11 skaradib noship $ */
3   procedure rosetta_table_copy_in_p0(t out nocopy wsmplbmi.t_sec_uom_code_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
4     ddindx binary_integer; indx binary_integer;
5   begin
6   if a0 is not null and a0.count > 0 then
7       if a0.count > 0 then
8         indx := a0.first;
9         ddindx := 1;
10         while true loop
11           t(ddindx) := a0(indx);
12           ddindx := ddindx+1;
13           if a0.last =indx
14             then exit;
15           end if;
16           indx := a0.next(indx);
17         end loop;
18       end if;
19    end if;
20   end rosetta_table_copy_in_p0;
21   procedure rosetta_table_copy_out_p0(t wsmplbmi.t_sec_uom_code_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
22     ddindx binary_integer; indx binary_integer;
23   begin
24   if t is null or t.count = 0 then
25     a0 := JTF_VARCHAR2_TABLE_100();
26   else
27       a0 := JTF_VARCHAR2_TABLE_100();
28       if t.count > 0 then
29         a0.extend(t.count);
30         ddindx := t.first;
31         indx := 1;
32         while true loop
33           a0(indx) := t(ddindx);
34           indx := indx+1;
35           if t.last =ddindx
36             then exit;
37           end if;
38           ddindx := t.next(ddindx);
39         end loop;
40       end if;
41    end if;
42   end rosetta_table_copy_out_p0;
43 
44   procedure rosetta_table_copy_in_p1(t out nocopy wsmplbmi.t_sec_move_out_qty_tbl_type, a0 JTF_NUMBER_TABLE) as
45     ddindx binary_integer; indx binary_integer;
46   begin
47   if a0 is not null and a0.count > 0 then
48       if a0.count > 0 then
49         indx := a0.first;
50         ddindx := 1;
51         while true loop
52           t(ddindx) := a0(indx);
53           ddindx := ddindx+1;
54           if a0.last =indx
55             then exit;
56           end if;
57           indx := a0.next(indx);
58         end loop;
59       end if;
60    end if;
61   end rosetta_table_copy_in_p1;
62   procedure rosetta_table_copy_out_p1(t wsmplbmi.t_sec_move_out_qty_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
63     ddindx binary_integer; indx binary_integer;
64   begin
65   if t is null or t.count = 0 then
66     a0 := JTF_NUMBER_TABLE();
67   else
68       a0 := JTF_NUMBER_TABLE();
69       if t.count > 0 then
70         a0.extend(t.count);
71         ddindx := t.first;
72         indx := 1;
73         while true loop
74           a0(indx) := t(ddindx);
75           indx := indx+1;
76           if t.last =ddindx
77             then exit;
78           end if;
79           ddindx := t.next(ddindx);
80         end loop;
81       end if;
82    end if;
83   end rosetta_table_copy_out_p1;
84 
85   procedure rosetta_table_copy_in_p2(t out nocopy wsmplbmi.t_scrap_codes_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
86     ddindx binary_integer; indx binary_integer;
87   begin
88   if a0 is not null and a0.count > 0 then
89       if a0.count > 0 then
90         indx := a0.first;
91         ddindx := 1;
92         while true loop
93           t(ddindx) := a0(indx);
94           ddindx := ddindx+1;
95           if a0.last =indx
96             then exit;
97           end if;
98           indx := a0.next(indx);
99         end loop;
100       end if;
101    end if;
102   end rosetta_table_copy_in_p2;
103   procedure rosetta_table_copy_out_p2(t wsmplbmi.t_scrap_codes_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
104     ddindx binary_integer; indx binary_integer;
105   begin
106   if t is null or t.count = 0 then
107     a0 := JTF_VARCHAR2_TABLE_100();
108   else
109       a0 := JTF_VARCHAR2_TABLE_100();
110       if t.count > 0 then
111         a0.extend(t.count);
112         ddindx := t.first;
113         indx := 1;
114         while true loop
115           a0(indx) := t(ddindx);
116           indx := indx+1;
117           if t.last =ddindx
118             then exit;
119           end if;
120           ddindx := t.next(ddindx);
121         end loop;
122       end if;
123    end if;
124   end rosetta_table_copy_out_p2;
125 
126   procedure rosetta_table_copy_in_p3(t out nocopy wsmplbmi.t_scrap_code_qty_tbl_type, a0 JTF_NUMBER_TABLE) as
127     ddindx binary_integer; indx binary_integer;
128   begin
129   if a0 is not null and a0.count > 0 then
130       if a0.count > 0 then
131         indx := a0.first;
132         ddindx := 1;
133         while true loop
134           t(ddindx) := a0(indx);
135           ddindx := ddindx+1;
136           if a0.last =indx
137             then exit;
138           end if;
139           indx := a0.next(indx);
140         end loop;
141       end if;
142    end if;
143   end rosetta_table_copy_in_p3;
144   procedure rosetta_table_copy_out_p3(t wsmplbmi.t_scrap_code_qty_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
145     ddindx binary_integer; indx binary_integer;
146   begin
147   if t is null or t.count = 0 then
148     a0 := JTF_NUMBER_TABLE();
149   else
150       a0 := JTF_NUMBER_TABLE();
151       if t.count > 0 then
152         a0.extend(t.count);
153         ddindx := t.first;
154         indx := 1;
155         while true loop
156           a0(indx) := t(ddindx);
157           indx := indx+1;
158           if t.last =ddindx
159             then exit;
160           end if;
161           ddindx := t.next(ddindx);
162         end loop;
163       end if;
164    end if;
165   end rosetta_table_copy_out_p3;
166 
167   procedure rosetta_table_copy_in_p4(t out nocopy wsmplbmi.t_bonus_codes_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
168     ddindx binary_integer; indx binary_integer;
169   begin
170   if a0 is not null and a0.count > 0 then
171       if a0.count > 0 then
172         indx := a0.first;
173         ddindx := 1;
174         while true loop
175           t(ddindx) := a0(indx);
176           ddindx := ddindx+1;
177           if a0.last =indx
178             then exit;
179           end if;
180           indx := a0.next(indx);
181         end loop;
182       end if;
183    end if;
184   end rosetta_table_copy_in_p4;
185   procedure rosetta_table_copy_out_p4(t wsmplbmi.t_bonus_codes_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
186     ddindx binary_integer; indx binary_integer;
187   begin
188   if t is null or t.count = 0 then
189     a0 := JTF_VARCHAR2_TABLE_100();
190   else
191       a0 := JTF_VARCHAR2_TABLE_100();
192       if t.count > 0 then
193         a0.extend(t.count);
194         ddindx := t.first;
195         indx := 1;
196         while true loop
197           a0(indx) := t(ddindx);
198           indx := indx+1;
199           if t.last =ddindx
200             then exit;
201           end if;
202           ddindx := t.next(ddindx);
203         end loop;
204       end if;
205    end if;
206   end rosetta_table_copy_out_p4;
207 
208   procedure rosetta_table_copy_in_p5(t out nocopy wsmplbmi.t_bonus_code_qty_tbl_type, a0 JTF_NUMBER_TABLE) as
209     ddindx binary_integer; indx binary_integer;
210   begin
211   if a0 is not null and a0.count > 0 then
212       if a0.count > 0 then
213         indx := a0.first;
214         ddindx := 1;
215         while true loop
216           t(ddindx) := a0(indx);
217           ddindx := ddindx+1;
218           if a0.last =indx
219             then exit;
220           end if;
221           indx := a0.next(indx);
222         end loop;
223       end if;
224    end if;
225   end rosetta_table_copy_in_p5;
226   procedure rosetta_table_copy_out_p5(t wsmplbmi.t_bonus_code_qty_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
227     ddindx binary_integer; indx binary_integer;
228   begin
229   if t is null or t.count = 0 then
230     a0 := JTF_NUMBER_TABLE();
231   else
232       a0 := JTF_NUMBER_TABLE();
233       if t.count > 0 then
234         a0.extend(t.count);
235         ddindx := t.first;
236         indx := 1;
237         while true loop
238           a0(indx) := t(ddindx);
239           indx := indx+1;
240           if t.last =ddindx
241             then exit;
242           end if;
243           ddindx := t.next(ddindx);
244         end loop;
245       end if;
246    end if;
247   end rosetta_table_copy_out_p5;
248 
249   procedure rosetta_table_copy_in_p7(t out nocopy wsmplbmi.t_jobop_res_usages_tbl_type, a0 JTF_NUMBER_TABLE
250     , a1 JTF_NUMBER_TABLE
251     , a2 JTF_NUMBER_TABLE
252     , a3 JTF_NUMBER_TABLE
253     , a4 JTF_NUMBER_TABLE
254     , a5 JTF_NUMBER_TABLE
255     , a6 JTF_NUMBER_TABLE
256     , a7 JTF_NUMBER_TABLE
257     , a8 JTF_VARCHAR2_TABLE_100
258     , a9 JTF_DATE_TABLE
259     , a10 JTF_NUMBER_TABLE
260     , a11 JTF_DATE_TABLE
261     , a12 JTF_NUMBER_TABLE
262     , a13 JTF_NUMBER_TABLE
263     , a14 JTF_NUMBER_TABLE
264     , a15 JTF_DATE_TABLE
265     , a16 JTF_DATE_TABLE
266     , a17 JTF_DATE_TABLE
267     , a18 JTF_NUMBER_TABLE
268     , a19 JTF_VARCHAR2_TABLE_100
269     , a20 JTF_NUMBER_TABLE
270     , a21 JTF_NUMBER_TABLE
271     , a22 JTF_VARCHAR2_TABLE_100
272     , a23 JTF_VARCHAR2_TABLE_100
273     , a24 JTF_NUMBER_TABLE
274     ) as
275     ddindx binary_integer; indx binary_integer;
276   begin
277   if a0 is not null and a0.count > 0 then
278       if a0.count > 0 then
279         indx := a0.first;
280         ddindx := 1;
281         while true loop
282           t(ddindx).time_entry_id := a0(indx);
283           t(ddindx).object_version_number := a1(indx);
284           t(ddindx).organization_id := a2(indx);
285           t(ddindx).wip_entity_id := a3(indx);
286           t(ddindx).operation_seq_num := a4(indx);
287           t(ddindx).resource_id := a5(indx);
288           t(ddindx).resource_seq_num := a6(indx);
289           t(ddindx).instance_id := a7(indx);
290           t(ddindx).serial_number := a8(indx);
291           t(ddindx).last_update_date := a9(indx);
292           t(ddindx).last_updated_by := a10(indx);
293           t(ddindx).creation_date := a11(indx);
294           t(ddindx).created_by := a12(indx);
295           t(ddindx).last_update_login := a13(indx);
296           t(ddindx).status_type := a14(indx);
297           t(ddindx).start_date := a15(indx);
298           t(ddindx).end_date := a16(indx);
299           t(ddindx).projected_completion_date := a17(indx);
300           t(ddindx).duration := a18(indx);
301           t(ddindx).uom_code := a19(indx);
302           t(ddindx).employee_id := a20(indx);
303           t(ddindx).time_entry_mode := a21(indx);
304           t(ddindx).cost_flag := a22(indx);
305           t(ddindx).add_to_rtg := a23(indx);
306           t(ddindx).process_status := a24(indx);
307           ddindx := ddindx+1;
308           if a0.last =indx
309             then exit;
310           end if;
311           indx := a0.next(indx);
312         end loop;
313       end if;
314    end if;
315   end rosetta_table_copy_in_p7;
316   procedure rosetta_table_copy_out_p7(t wsmplbmi.t_jobop_res_usages_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
317     , a1 out nocopy JTF_NUMBER_TABLE
318     , a2 out nocopy JTF_NUMBER_TABLE
319     , a3 out nocopy JTF_NUMBER_TABLE
320     , a4 out nocopy JTF_NUMBER_TABLE
321     , a5 out nocopy JTF_NUMBER_TABLE
322     , a6 out nocopy JTF_NUMBER_TABLE
323     , a7 out nocopy JTF_NUMBER_TABLE
324     , a8 out nocopy JTF_VARCHAR2_TABLE_100
325     , a9 out nocopy JTF_DATE_TABLE
326     , a10 out nocopy JTF_NUMBER_TABLE
327     , a11 out nocopy JTF_DATE_TABLE
328     , a12 out nocopy JTF_NUMBER_TABLE
329     , a13 out nocopy JTF_NUMBER_TABLE
330     , a14 out nocopy JTF_NUMBER_TABLE
331     , a15 out nocopy JTF_DATE_TABLE
332     , a16 out nocopy JTF_DATE_TABLE
333     , a17 out nocopy JTF_DATE_TABLE
334     , a18 out nocopy JTF_NUMBER_TABLE
335     , a19 out nocopy JTF_VARCHAR2_TABLE_100
336     , a20 out nocopy JTF_NUMBER_TABLE
337     , a21 out nocopy JTF_NUMBER_TABLE
338     , a22 out nocopy JTF_VARCHAR2_TABLE_100
339     , a23 out nocopy JTF_VARCHAR2_TABLE_100
340     , a24 out nocopy JTF_NUMBER_TABLE
341     ) as
342     ddindx binary_integer; indx binary_integer;
343   begin
344   if t is null or t.count = 0 then
345     a0 := JTF_NUMBER_TABLE();
346     a1 := JTF_NUMBER_TABLE();
347     a2 := JTF_NUMBER_TABLE();
348     a3 := JTF_NUMBER_TABLE();
349     a4 := JTF_NUMBER_TABLE();
350     a5 := JTF_NUMBER_TABLE();
351     a6 := JTF_NUMBER_TABLE();
352     a7 := JTF_NUMBER_TABLE();
353     a8 := JTF_VARCHAR2_TABLE_100();
354     a9 := JTF_DATE_TABLE();
355     a10 := JTF_NUMBER_TABLE();
356     a11 := JTF_DATE_TABLE();
357     a12 := JTF_NUMBER_TABLE();
358     a13 := JTF_NUMBER_TABLE();
359     a14 := JTF_NUMBER_TABLE();
360     a15 := JTF_DATE_TABLE();
361     a16 := JTF_DATE_TABLE();
362     a17 := JTF_DATE_TABLE();
363     a18 := JTF_NUMBER_TABLE();
364     a19 := JTF_VARCHAR2_TABLE_100();
365     a20 := JTF_NUMBER_TABLE();
366     a21 := JTF_NUMBER_TABLE();
367     a22 := JTF_VARCHAR2_TABLE_100();
368     a23 := JTF_VARCHAR2_TABLE_100();
369     a24 := JTF_NUMBER_TABLE();
370   else
371       a0 := JTF_NUMBER_TABLE();
372       a1 := JTF_NUMBER_TABLE();
373       a2 := JTF_NUMBER_TABLE();
374       a3 := JTF_NUMBER_TABLE();
375       a4 := JTF_NUMBER_TABLE();
376       a5 := JTF_NUMBER_TABLE();
377       a6 := JTF_NUMBER_TABLE();
378       a7 := JTF_NUMBER_TABLE();
379       a8 := JTF_VARCHAR2_TABLE_100();
380       a9 := JTF_DATE_TABLE();
381       a10 := JTF_NUMBER_TABLE();
382       a11 := JTF_DATE_TABLE();
383       a12 := JTF_NUMBER_TABLE();
384       a13 := JTF_NUMBER_TABLE();
385       a14 := JTF_NUMBER_TABLE();
386       a15 := JTF_DATE_TABLE();
387       a16 := JTF_DATE_TABLE();
388       a17 := JTF_DATE_TABLE();
389       a18 := JTF_NUMBER_TABLE();
390       a19 := JTF_VARCHAR2_TABLE_100();
391       a20 := JTF_NUMBER_TABLE();
392       a21 := JTF_NUMBER_TABLE();
393       a22 := JTF_VARCHAR2_TABLE_100();
394       a23 := JTF_VARCHAR2_TABLE_100();
395       a24 := JTF_NUMBER_TABLE();
396       if t.count > 0 then
397         a0.extend(t.count);
398         a1.extend(t.count);
399         a2.extend(t.count);
400         a3.extend(t.count);
401         a4.extend(t.count);
402         a5.extend(t.count);
403         a6.extend(t.count);
404         a7.extend(t.count);
405         a8.extend(t.count);
406         a9.extend(t.count);
407         a10.extend(t.count);
408         a11.extend(t.count);
409         a12.extend(t.count);
410         a13.extend(t.count);
411         a14.extend(t.count);
412         a15.extend(t.count);
413         a16.extend(t.count);
414         a17.extend(t.count);
415         a18.extend(t.count);
416         a19.extend(t.count);
417         a20.extend(t.count);
418         a21.extend(t.count);
419         a22.extend(t.count);
420         a23.extend(t.count);
421         a24.extend(t.count);
422         ddindx := t.first;
423         indx := 1;
424         while true loop
425           a0(indx) := t(ddindx).time_entry_id;
426           a1(indx) := t(ddindx).object_version_number;
427           a2(indx) := t(ddindx).organization_id;
428           a3(indx) := t(ddindx).wip_entity_id;
429           a4(indx) := t(ddindx).operation_seq_num;
430           a5(indx) := t(ddindx).resource_id;
431           a6(indx) := t(ddindx).resource_seq_num;
432           a7(indx) := t(ddindx).instance_id;
433           a8(indx) := t(ddindx).serial_number;
434           a9(indx) := t(ddindx).last_update_date;
435           a10(indx) := t(ddindx).last_updated_by;
436           a11(indx) := t(ddindx).creation_date;
437           a12(indx) := t(ddindx).created_by;
438           a13(indx) := t(ddindx).last_update_login;
439           a14(indx) := t(ddindx).status_type;
440           a15(indx) := t(ddindx).start_date;
441           a16(indx) := t(ddindx).end_date;
442           a17(indx) := t(ddindx).projected_completion_date;
443           a18(indx) := t(ddindx).duration;
444           a19(indx) := t(ddindx).uom_code;
445           a20(indx) := t(ddindx).employee_id;
446           a21(indx) := t(ddindx).time_entry_mode;
447           a22(indx) := t(ddindx).cost_flag;
448           a23(indx) := t(ddindx).add_to_rtg;
449           a24(indx) := t(ddindx).process_status;
450           indx := indx+1;
451           if t.last =ddindx
452             then exit;
453           end if;
454           ddindx := t.next(ddindx);
455         end loop;
456       end if;
457    end if;
458   end rosetta_table_copy_out_p7;
459 
460   procedure rosetta_table_copy_in_p9(t out nocopy WSM_Serial_support_GRP.WSM_SERIAL_NUM_TBL, a0 JTF_VARCHAR2_TABLE_100
461     , a1 JTF_NUMBER_TABLE
462     , a2 JTF_NUMBER_TABLE
463     , a3 JTF_NUMBER_TABLE
464     , a4 JTF_NUMBER_TABLE
465     , a5 JTF_NUMBER_TABLE
466     , a6 JTF_VARCHAR2_TABLE_300
467     , a7 JTF_VARCHAR2_TABLE_300
468     , a8 JTF_NUMBER_TABLE
469     , a9 JTF_NUMBER_TABLE
470     , a10 JTF_VARCHAR2_TABLE_100
471     , a11 JTF_VARCHAR2_TABLE_100
472     , a12 JTF_DATE_TABLE
473     , a13 JTF_VARCHAR2_TABLE_200
474     , a14 JTF_VARCHAR2_TABLE_200
475     , a15 JTF_VARCHAR2_TABLE_200
476     , a16 JTF_VARCHAR2_TABLE_200
477     , a17 JTF_VARCHAR2_TABLE_200
478     , a18 JTF_VARCHAR2_TABLE_200
479     , a19 JTF_VARCHAR2_TABLE_200
480     , a20 JTF_VARCHAR2_TABLE_200
481     , a21 JTF_VARCHAR2_TABLE_200
482     , a22 JTF_VARCHAR2_TABLE_200
483     , a23 JTF_VARCHAR2_TABLE_200
484     , a24 JTF_VARCHAR2_TABLE_200
485     , a25 JTF_VARCHAR2_TABLE_200
486     , a26 JTF_VARCHAR2_TABLE_200
487     , a27 JTF_VARCHAR2_TABLE_200
488     , a28 JTF_VARCHAR2_TABLE_200
489     , a29 JTF_VARCHAR2_TABLE_200
490     , a30 JTF_VARCHAR2_TABLE_200
491     , a31 JTF_VARCHAR2_TABLE_200
492     , a32 JTF_VARCHAR2_TABLE_200
493     , a33 JTF_DATE_TABLE
494     , a34 JTF_DATE_TABLE
495     , a35 JTF_DATE_TABLE
496     , a36 JTF_DATE_TABLE
497     , a37 JTF_DATE_TABLE
498     , a38 JTF_DATE_TABLE
499     , a39 JTF_DATE_TABLE
500     , a40 JTF_DATE_TABLE
501     , a41 JTF_DATE_TABLE
502     , a42 JTF_DATE_TABLE
503     , a43 JTF_NUMBER_TABLE
504     , a44 JTF_NUMBER_TABLE
505     , a45 JTF_NUMBER_TABLE
506     , a46 JTF_NUMBER_TABLE
507     , a47 JTF_NUMBER_TABLE
508     , a48 JTF_NUMBER_TABLE
509     , a49 JTF_NUMBER_TABLE
510     , a50 JTF_NUMBER_TABLE
511     , a51 JTF_NUMBER_TABLE
512     , a52 JTF_NUMBER_TABLE
513     , a53 JTF_NUMBER_TABLE
514     , a54 JTF_NUMBER_TABLE
515     , a55 JTF_NUMBER_TABLE
516     , a56 JTF_NUMBER_TABLE
517     , a57 JTF_NUMBER_TABLE
518     , a58 JTF_NUMBER_TABLE
519     , a59 JTF_NUMBER_TABLE
520     , a60 JTF_NUMBER_TABLE
521     , a61 JTF_NUMBER_TABLE
522     , a62 JTF_NUMBER_TABLE
523     , a63 JTF_NUMBER_TABLE
524     , a64 JTF_NUMBER_TABLE
525     , a65 JTF_VARCHAR2_TABLE_100
526     , a66 JTF_VARCHAR2_TABLE_200
527     , a67 JTF_VARCHAR2_TABLE_200
528     , a68 JTF_VARCHAR2_TABLE_200
529     , a69 JTF_VARCHAR2_TABLE_200
530     , a70 JTF_VARCHAR2_TABLE_200
531     , a71 JTF_VARCHAR2_TABLE_200
532     , a72 JTF_VARCHAR2_TABLE_200
533     , a73 JTF_VARCHAR2_TABLE_200
534     , a74 JTF_VARCHAR2_TABLE_200
535     , a75 JTF_VARCHAR2_TABLE_200
536     , a76 JTF_VARCHAR2_TABLE_200
537     , a77 JTF_VARCHAR2_TABLE_200
538     , a78 JTF_VARCHAR2_TABLE_200
539     , a79 JTF_VARCHAR2_TABLE_200
540     , a80 JTF_VARCHAR2_TABLE_200
541     ) as
542     ddindx binary_integer; indx binary_integer;
543   begin
544   if a0 is not null and a0.count > 0 then
545       if a0.count > 0 then
546         indx := a0.first;
547         ddindx := 1;
548         while true loop
549           t(ddindx).serial_number := a0(indx);
550           t(ddindx).assembly_item_id := a1(indx);
551           t(ddindx).header_id := a2(indx);
552           t(ddindx).generate_serial_number := a3(indx);
553           t(ddindx).generate_for_qty := a4(indx);
554           t(ddindx).action_flag := a5(indx);
555           t(ddindx).current_wip_entity_name := a6(indx);
556           t(ddindx).changed_wip_entity_name := a7(indx);
557           t(ddindx).current_wip_entity_id := a8(indx);
558           t(ddindx).changed_wip_entity_id := a9(indx);
559           t(ddindx).serial_attribute_category := a10(indx);
560           t(ddindx).territory_code := a11(indx);
561           t(ddindx).origination_date := a12(indx);
562           t(ddindx).c_attribute1 := a13(indx);
563           t(ddindx).c_attribute2 := a14(indx);
564           t(ddindx).c_attribute3 := a15(indx);
565           t(ddindx).c_attribute4 := a16(indx);
566           t(ddindx).c_attribute5 := a17(indx);
567           t(ddindx).c_attribute6 := a18(indx);
568           t(ddindx).c_attribute7 := a19(indx);
569           t(ddindx).c_attribute8 := a20(indx);
570           t(ddindx).c_attribute9 := a21(indx);
571           t(ddindx).c_attribute10 := a22(indx);
572           t(ddindx).c_attribute11 := a23(indx);
573           t(ddindx).c_attribute12 := a24(indx);
574           t(ddindx).c_attribute13 := a25(indx);
575           t(ddindx).c_attribute14 := a26(indx);
576           t(ddindx).c_attribute15 := a27(indx);
577           t(ddindx).c_attribute16 := a28(indx);
578           t(ddindx).c_attribute17 := a29(indx);
579           t(ddindx).c_attribute18 := a30(indx);
580           t(ddindx).c_attribute19 := a31(indx);
581           t(ddindx).c_attribute20 := a32(indx);
582           t(ddindx).d_attribute1 := a33(indx);
583           t(ddindx).d_attribute2 := a34(indx);
584           t(ddindx).d_attribute3 := a35(indx);
585           t(ddindx).d_attribute4 := a36(indx);
586           t(ddindx).d_attribute5 := a37(indx);
587           t(ddindx).d_attribute6 := a38(indx);
588           t(ddindx).d_attribute7 := a39(indx);
589           t(ddindx).d_attribute8 := a40(indx);
590           t(ddindx).d_attribute9 := a41(indx);
591           t(ddindx).d_attribute10 := a42(indx);
592           t(ddindx).n_attribute1 := a43(indx);
593           t(ddindx).n_attribute2 := a44(indx);
594           t(ddindx).n_attribute3 := a45(indx);
595           t(ddindx).n_attribute4 := a46(indx);
596           t(ddindx).n_attribute5 := a47(indx);
597           t(ddindx).n_attribute6 := a48(indx);
598           t(ddindx).n_attribute7 := a49(indx);
599           t(ddindx).n_attribute8 := a50(indx);
600           t(ddindx).n_attribute9 := a51(indx);
601           t(ddindx).n_attribute10 := a52(indx);
602           t(ddindx).status_id := a53(indx);
603           t(ddindx).time_since_new := a54(indx);
604           t(ddindx).cycles_since_new := a55(indx);
605           t(ddindx).time_since_overhaul := a56(indx);
606           t(ddindx).cycles_since_overhaul := a57(indx);
607           t(ddindx).time_since_repair := a58(indx);
608           t(ddindx).cycles_since_repair := a59(indx);
609           t(ddindx).time_since_visit := a60(indx);
610           t(ddindx).cycles_since_visit := a61(indx);
611           t(ddindx).time_since_mark := a62(indx);
612           t(ddindx).cycles_since_mark := a63(indx);
613           t(ddindx).number_of_repairs := a64(indx);
614           t(ddindx).attribute_category := a65(indx);
615           t(ddindx).attribute1 := a66(indx);
616           t(ddindx).attribute2 := a67(indx);
617           t(ddindx).attribute3 := a68(indx);
618           t(ddindx).attribute4 := a69(indx);
619           t(ddindx).attribute5 := a70(indx);
620           t(ddindx).attribute6 := a71(indx);
621           t(ddindx).attribute7 := a72(indx);
622           t(ddindx).attribute8 := a73(indx);
623           t(ddindx).attribute9 := a74(indx);
624           t(ddindx).attribute10 := a75(indx);
625           t(ddindx).attribute11 := a76(indx);
626           t(ddindx).attribute12 := a77(indx);
627           t(ddindx).attribute13 := a78(indx);
628           t(ddindx).attribute14 := a79(indx);
629           t(ddindx).attribute15 := a80(indx);
630           ddindx := ddindx+1;
631           if a0.last =indx
632             then exit;
633           end if;
634           indx := a0.next(indx);
635         end loop;
636       end if;
637    end if;
638   end rosetta_table_copy_in_p9;
639   procedure rosetta_table_copy_out_p9(t WSM_Serial_support_GRP.WSM_SERIAL_NUM_TBL, a0 out nocopy JTF_VARCHAR2_TABLE_100
640     , a1 out nocopy JTF_NUMBER_TABLE
641     , a2 out nocopy JTF_NUMBER_TABLE
642     , a3 out nocopy JTF_NUMBER_TABLE
643     , a4 out nocopy JTF_NUMBER_TABLE
644     , a5 out nocopy JTF_NUMBER_TABLE
645     , a6 out nocopy JTF_VARCHAR2_TABLE_300
646     , a7 out nocopy JTF_VARCHAR2_TABLE_300
647     , a8 out nocopy JTF_NUMBER_TABLE
648     , a9 out nocopy JTF_NUMBER_TABLE
649     , a10 out nocopy JTF_VARCHAR2_TABLE_100
650     , a11 out nocopy JTF_VARCHAR2_TABLE_100
651     , a12 out nocopy JTF_DATE_TABLE
652     , a13 out nocopy JTF_VARCHAR2_TABLE_200
653     , a14 out nocopy JTF_VARCHAR2_TABLE_200
654     , a15 out nocopy JTF_VARCHAR2_TABLE_200
655     , a16 out nocopy JTF_VARCHAR2_TABLE_200
656     , a17 out nocopy JTF_VARCHAR2_TABLE_200
657     , a18 out nocopy JTF_VARCHAR2_TABLE_200
658     , a19 out nocopy JTF_VARCHAR2_TABLE_200
659     , a20 out nocopy JTF_VARCHAR2_TABLE_200
660     , a21 out nocopy JTF_VARCHAR2_TABLE_200
661     , a22 out nocopy JTF_VARCHAR2_TABLE_200
662     , a23 out nocopy JTF_VARCHAR2_TABLE_200
663     , a24 out nocopy JTF_VARCHAR2_TABLE_200
664     , a25 out nocopy JTF_VARCHAR2_TABLE_200
665     , a26 out nocopy JTF_VARCHAR2_TABLE_200
666     , a27 out nocopy JTF_VARCHAR2_TABLE_200
667     , a28 out nocopy JTF_VARCHAR2_TABLE_200
668     , a29 out nocopy JTF_VARCHAR2_TABLE_200
669     , a30 out nocopy JTF_VARCHAR2_TABLE_200
670     , a31 out nocopy JTF_VARCHAR2_TABLE_200
671     , a32 out nocopy JTF_VARCHAR2_TABLE_200
672     , a33 out nocopy JTF_DATE_TABLE
673     , a34 out nocopy JTF_DATE_TABLE
674     , a35 out nocopy JTF_DATE_TABLE
675     , a36 out nocopy JTF_DATE_TABLE
676     , a37 out nocopy JTF_DATE_TABLE
677     , a38 out nocopy JTF_DATE_TABLE
678     , a39 out nocopy JTF_DATE_TABLE
679     , a40 out nocopy JTF_DATE_TABLE
680     , a41 out nocopy JTF_DATE_TABLE
681     , a42 out nocopy JTF_DATE_TABLE
682     , a43 out nocopy JTF_NUMBER_TABLE
683     , a44 out nocopy JTF_NUMBER_TABLE
684     , a45 out nocopy JTF_NUMBER_TABLE
685     , a46 out nocopy JTF_NUMBER_TABLE
686     , a47 out nocopy JTF_NUMBER_TABLE
687     , a48 out nocopy JTF_NUMBER_TABLE
688     , a49 out nocopy JTF_NUMBER_TABLE
689     , a50 out nocopy JTF_NUMBER_TABLE
690     , a51 out nocopy JTF_NUMBER_TABLE
691     , a52 out nocopy JTF_NUMBER_TABLE
692     , a53 out nocopy JTF_NUMBER_TABLE
693     , a54 out nocopy JTF_NUMBER_TABLE
694     , a55 out nocopy JTF_NUMBER_TABLE
695     , a56 out nocopy JTF_NUMBER_TABLE
696     , a57 out nocopy JTF_NUMBER_TABLE
697     , a58 out nocopy JTF_NUMBER_TABLE
698     , a59 out nocopy JTF_NUMBER_TABLE
699     , a60 out nocopy JTF_NUMBER_TABLE
700     , a61 out nocopy JTF_NUMBER_TABLE
701     , a62 out nocopy JTF_NUMBER_TABLE
702     , a63 out nocopy JTF_NUMBER_TABLE
703     , a64 out nocopy JTF_NUMBER_TABLE
704     , a65 out nocopy JTF_VARCHAR2_TABLE_100
705     , a66 out nocopy JTF_VARCHAR2_TABLE_200
706     , a67 out nocopy JTF_VARCHAR2_TABLE_200
707     , a68 out nocopy JTF_VARCHAR2_TABLE_200
708     , a69 out nocopy JTF_VARCHAR2_TABLE_200
709     , a70 out nocopy JTF_VARCHAR2_TABLE_200
710     , a71 out nocopy JTF_VARCHAR2_TABLE_200
711     , a72 out nocopy JTF_VARCHAR2_TABLE_200
712     , a73 out nocopy JTF_VARCHAR2_TABLE_200
713     , a74 out nocopy JTF_VARCHAR2_TABLE_200
714     , a75 out nocopy JTF_VARCHAR2_TABLE_200
715     , a76 out nocopy JTF_VARCHAR2_TABLE_200
716     , a77 out nocopy JTF_VARCHAR2_TABLE_200
717     , a78 out nocopy JTF_VARCHAR2_TABLE_200
718     , a79 out nocopy JTF_VARCHAR2_TABLE_200
719     , a80 out nocopy JTF_VARCHAR2_TABLE_200
720     ) as
721     ddindx binary_integer; indx binary_integer;
722   begin
723   if t is null or t.count = 0 then
724     a0 := JTF_VARCHAR2_TABLE_100();
725     a1 := JTF_NUMBER_TABLE();
726     a2 := JTF_NUMBER_TABLE();
727     a3 := JTF_NUMBER_TABLE();
728     a4 := JTF_NUMBER_TABLE();
729     a5 := JTF_NUMBER_TABLE();
730     a6 := JTF_VARCHAR2_TABLE_300();
731     a7 := JTF_VARCHAR2_TABLE_300();
732     a8 := JTF_NUMBER_TABLE();
733     a9 := JTF_NUMBER_TABLE();
734     a10 := JTF_VARCHAR2_TABLE_100();
735     a11 := JTF_VARCHAR2_TABLE_100();
736     a12 := JTF_DATE_TABLE();
737     a13 := JTF_VARCHAR2_TABLE_200();
738     a14 := JTF_VARCHAR2_TABLE_200();
739     a15 := JTF_VARCHAR2_TABLE_200();
740     a16 := JTF_VARCHAR2_TABLE_200();
741     a17 := JTF_VARCHAR2_TABLE_200();
742     a18 := JTF_VARCHAR2_TABLE_200();
743     a19 := JTF_VARCHAR2_TABLE_200();
744     a20 := JTF_VARCHAR2_TABLE_200();
745     a21 := JTF_VARCHAR2_TABLE_200();
746     a22 := JTF_VARCHAR2_TABLE_200();
747     a23 := JTF_VARCHAR2_TABLE_200();
748     a24 := JTF_VARCHAR2_TABLE_200();
749     a25 := JTF_VARCHAR2_TABLE_200();
750     a26 := JTF_VARCHAR2_TABLE_200();
751     a27 := JTF_VARCHAR2_TABLE_200();
752     a28 := JTF_VARCHAR2_TABLE_200();
753     a29 := JTF_VARCHAR2_TABLE_200();
754     a30 := JTF_VARCHAR2_TABLE_200();
755     a31 := JTF_VARCHAR2_TABLE_200();
756     a32 := JTF_VARCHAR2_TABLE_200();
757     a33 := JTF_DATE_TABLE();
758     a34 := JTF_DATE_TABLE();
759     a35 := JTF_DATE_TABLE();
760     a36 := JTF_DATE_TABLE();
761     a37 := JTF_DATE_TABLE();
762     a38 := JTF_DATE_TABLE();
763     a39 := JTF_DATE_TABLE();
764     a40 := JTF_DATE_TABLE();
765     a41 := JTF_DATE_TABLE();
766     a42 := JTF_DATE_TABLE();
767     a43 := JTF_NUMBER_TABLE();
768     a44 := JTF_NUMBER_TABLE();
769     a45 := JTF_NUMBER_TABLE();
770     a46 := JTF_NUMBER_TABLE();
771     a47 := JTF_NUMBER_TABLE();
772     a48 := JTF_NUMBER_TABLE();
773     a49 := JTF_NUMBER_TABLE();
774     a50 := JTF_NUMBER_TABLE();
775     a51 := JTF_NUMBER_TABLE();
776     a52 := JTF_NUMBER_TABLE();
777     a53 := JTF_NUMBER_TABLE();
778     a54 := JTF_NUMBER_TABLE();
779     a55 := JTF_NUMBER_TABLE();
780     a56 := JTF_NUMBER_TABLE();
781     a57 := JTF_NUMBER_TABLE();
782     a58 := JTF_NUMBER_TABLE();
783     a59 := JTF_NUMBER_TABLE();
784     a60 := JTF_NUMBER_TABLE();
785     a61 := JTF_NUMBER_TABLE();
786     a62 := JTF_NUMBER_TABLE();
787     a63 := JTF_NUMBER_TABLE();
788     a64 := JTF_NUMBER_TABLE();
789     a65 := JTF_VARCHAR2_TABLE_100();
790     a66 := JTF_VARCHAR2_TABLE_200();
791     a67 := JTF_VARCHAR2_TABLE_200();
792     a68 := JTF_VARCHAR2_TABLE_200();
793     a69 := JTF_VARCHAR2_TABLE_200();
794     a70 := JTF_VARCHAR2_TABLE_200();
795     a71 := JTF_VARCHAR2_TABLE_200();
796     a72 := JTF_VARCHAR2_TABLE_200();
797     a73 := JTF_VARCHAR2_TABLE_200();
798     a74 := JTF_VARCHAR2_TABLE_200();
799     a75 := JTF_VARCHAR2_TABLE_200();
800     a76 := JTF_VARCHAR2_TABLE_200();
801     a77 := JTF_VARCHAR2_TABLE_200();
802     a78 := JTF_VARCHAR2_TABLE_200();
803     a79 := JTF_VARCHAR2_TABLE_200();
804     a80 := JTF_VARCHAR2_TABLE_200();
805   else
806       a0 := JTF_VARCHAR2_TABLE_100();
807       a1 := JTF_NUMBER_TABLE();
808       a2 := JTF_NUMBER_TABLE();
809       a3 := JTF_NUMBER_TABLE();
810       a4 := JTF_NUMBER_TABLE();
811       a5 := JTF_NUMBER_TABLE();
812       a6 := JTF_VARCHAR2_TABLE_300();
813       a7 := JTF_VARCHAR2_TABLE_300();
814       a8 := JTF_NUMBER_TABLE();
815       a9 := JTF_NUMBER_TABLE();
816       a10 := JTF_VARCHAR2_TABLE_100();
817       a11 := JTF_VARCHAR2_TABLE_100();
818       a12 := JTF_DATE_TABLE();
819       a13 := JTF_VARCHAR2_TABLE_200();
820       a14 := JTF_VARCHAR2_TABLE_200();
821       a15 := JTF_VARCHAR2_TABLE_200();
822       a16 := JTF_VARCHAR2_TABLE_200();
823       a17 := JTF_VARCHAR2_TABLE_200();
824       a18 := JTF_VARCHAR2_TABLE_200();
825       a19 := JTF_VARCHAR2_TABLE_200();
826       a20 := JTF_VARCHAR2_TABLE_200();
827       a21 := JTF_VARCHAR2_TABLE_200();
828       a22 := JTF_VARCHAR2_TABLE_200();
829       a23 := JTF_VARCHAR2_TABLE_200();
830       a24 := JTF_VARCHAR2_TABLE_200();
831       a25 := JTF_VARCHAR2_TABLE_200();
832       a26 := JTF_VARCHAR2_TABLE_200();
833       a27 := JTF_VARCHAR2_TABLE_200();
834       a28 := JTF_VARCHAR2_TABLE_200();
835       a29 := JTF_VARCHAR2_TABLE_200();
836       a30 := JTF_VARCHAR2_TABLE_200();
837       a31 := JTF_VARCHAR2_TABLE_200();
838       a32 := JTF_VARCHAR2_TABLE_200();
839       a33 := JTF_DATE_TABLE();
840       a34 := JTF_DATE_TABLE();
841       a35 := JTF_DATE_TABLE();
842       a36 := JTF_DATE_TABLE();
843       a37 := JTF_DATE_TABLE();
844       a38 := JTF_DATE_TABLE();
845       a39 := JTF_DATE_TABLE();
846       a40 := JTF_DATE_TABLE();
847       a41 := JTF_DATE_TABLE();
848       a42 := JTF_DATE_TABLE();
849       a43 := JTF_NUMBER_TABLE();
850       a44 := JTF_NUMBER_TABLE();
851       a45 := JTF_NUMBER_TABLE();
852       a46 := JTF_NUMBER_TABLE();
853       a47 := JTF_NUMBER_TABLE();
854       a48 := JTF_NUMBER_TABLE();
855       a49 := JTF_NUMBER_TABLE();
856       a50 := JTF_NUMBER_TABLE();
857       a51 := JTF_NUMBER_TABLE();
858       a52 := JTF_NUMBER_TABLE();
859       a53 := JTF_NUMBER_TABLE();
860       a54 := JTF_NUMBER_TABLE();
861       a55 := JTF_NUMBER_TABLE();
862       a56 := JTF_NUMBER_TABLE();
863       a57 := JTF_NUMBER_TABLE();
864       a58 := JTF_NUMBER_TABLE();
865       a59 := JTF_NUMBER_TABLE();
866       a60 := JTF_NUMBER_TABLE();
867       a61 := JTF_NUMBER_TABLE();
868       a62 := JTF_NUMBER_TABLE();
869       a63 := JTF_NUMBER_TABLE();
870       a64 := JTF_NUMBER_TABLE();
871       a65 := JTF_VARCHAR2_TABLE_100();
872       a66 := JTF_VARCHAR2_TABLE_200();
873       a67 := JTF_VARCHAR2_TABLE_200();
874       a68 := JTF_VARCHAR2_TABLE_200();
875       a69 := JTF_VARCHAR2_TABLE_200();
876       a70 := JTF_VARCHAR2_TABLE_200();
877       a71 := JTF_VARCHAR2_TABLE_200();
878       a72 := JTF_VARCHAR2_TABLE_200();
879       a73 := JTF_VARCHAR2_TABLE_200();
880       a74 := JTF_VARCHAR2_TABLE_200();
881       a75 := JTF_VARCHAR2_TABLE_200();
882       a76 := JTF_VARCHAR2_TABLE_200();
883       a77 := JTF_VARCHAR2_TABLE_200();
884       a78 := JTF_VARCHAR2_TABLE_200();
885       a79 := JTF_VARCHAR2_TABLE_200();
886       a80 := JTF_VARCHAR2_TABLE_200();
887       if t.count > 0 then
888         a0.extend(t.count);
889         a1.extend(t.count);
890         a2.extend(t.count);
891         a3.extend(t.count);
892         a4.extend(t.count);
893         a5.extend(t.count);
894         a6.extend(t.count);
895         a7.extend(t.count);
896         a8.extend(t.count);
897         a9.extend(t.count);
898         a10.extend(t.count);
899         a11.extend(t.count);
900         a12.extend(t.count);
901         a13.extend(t.count);
902         a14.extend(t.count);
903         a15.extend(t.count);
904         a16.extend(t.count);
905         a17.extend(t.count);
906         a18.extend(t.count);
907         a19.extend(t.count);
908         a20.extend(t.count);
909         a21.extend(t.count);
910         a22.extend(t.count);
911         a23.extend(t.count);
912         a24.extend(t.count);
913         a25.extend(t.count);
914         a26.extend(t.count);
915         a27.extend(t.count);
916         a28.extend(t.count);
917         a29.extend(t.count);
918         a30.extend(t.count);
919         a31.extend(t.count);
920         a32.extend(t.count);
921         a33.extend(t.count);
922         a34.extend(t.count);
923         a35.extend(t.count);
924         a36.extend(t.count);
925         a37.extend(t.count);
926         a38.extend(t.count);
927         a39.extend(t.count);
928         a40.extend(t.count);
929         a41.extend(t.count);
930         a42.extend(t.count);
931         a43.extend(t.count);
932         a44.extend(t.count);
933         a45.extend(t.count);
934         a46.extend(t.count);
935         a47.extend(t.count);
936         a48.extend(t.count);
937         a49.extend(t.count);
938         a50.extend(t.count);
939         a51.extend(t.count);
940         a52.extend(t.count);
941         a53.extend(t.count);
942         a54.extend(t.count);
943         a55.extend(t.count);
944         a56.extend(t.count);
945         a57.extend(t.count);
946         a58.extend(t.count);
947         a59.extend(t.count);
948         a60.extend(t.count);
949         a61.extend(t.count);
950         a62.extend(t.count);
951         a63.extend(t.count);
952         a64.extend(t.count);
953         a65.extend(t.count);
954         a66.extend(t.count);
955         a67.extend(t.count);
956         a68.extend(t.count);
957         a69.extend(t.count);
958         a70.extend(t.count);
959         a71.extend(t.count);
960         a72.extend(t.count);
961         a73.extend(t.count);
962         a74.extend(t.count);
963         a75.extend(t.count);
964         a76.extend(t.count);
965         a77.extend(t.count);
966         a78.extend(t.count);
967         a79.extend(t.count);
968         a80.extend(t.count);
969         ddindx := t.first;
970         indx := 1;
971         while true loop
972           a0(indx) := t(ddindx).serial_number;
973           a1(indx) := t(ddindx).assembly_item_id;
974           a2(indx) := t(ddindx).header_id;
975           a3(indx) := t(ddindx).generate_serial_number;
976           a4(indx) := t(ddindx).generate_for_qty;
977           a5(indx) := t(ddindx).action_flag;
978           a6(indx) := t(ddindx).current_wip_entity_name;
979           a7(indx) := t(ddindx).changed_wip_entity_name;
980           a8(indx) := t(ddindx).current_wip_entity_id;
981           a9(indx) := t(ddindx).changed_wip_entity_id;
982           a10(indx) := t(ddindx).serial_attribute_category;
983           a11(indx) := t(ddindx).territory_code;
984           a12(indx) := t(ddindx).origination_date;
985           a13(indx) := t(ddindx).c_attribute1;
986           a14(indx) := t(ddindx).c_attribute2;
987           a15(indx) := t(ddindx).c_attribute3;
988           a16(indx) := t(ddindx).c_attribute4;
989           a17(indx) := t(ddindx).c_attribute5;
990           a18(indx) := t(ddindx).c_attribute6;
991           a19(indx) := t(ddindx).c_attribute7;
992           a20(indx) := t(ddindx).c_attribute8;
993           a21(indx) := t(ddindx).c_attribute9;
994           a22(indx) := t(ddindx).c_attribute10;
995           a23(indx) := t(ddindx).c_attribute11;
996           a24(indx) := t(ddindx).c_attribute12;
997           a25(indx) := t(ddindx).c_attribute13;
998           a26(indx) := t(ddindx).c_attribute14;
999           a27(indx) := t(ddindx).c_attribute15;
1000           a28(indx) := t(ddindx).c_attribute16;
1001           a29(indx) := t(ddindx).c_attribute17;
1002           a30(indx) := t(ddindx).c_attribute18;
1003           a31(indx) := t(ddindx).c_attribute19;
1004           a32(indx) := t(ddindx).c_attribute20;
1005           a33(indx) := t(ddindx).d_attribute1;
1006           a34(indx) := t(ddindx).d_attribute2;
1007           a35(indx) := t(ddindx).d_attribute3;
1008           a36(indx) := t(ddindx).d_attribute4;
1009           a37(indx) := t(ddindx).d_attribute5;
1010           a38(indx) := t(ddindx).d_attribute6;
1011           a39(indx) := t(ddindx).d_attribute7;
1012           a40(indx) := t(ddindx).d_attribute8;
1013           a41(indx) := t(ddindx).d_attribute9;
1014           a42(indx) := t(ddindx).d_attribute10;
1015           a43(indx) := t(ddindx).n_attribute1;
1016           a44(indx) := t(ddindx).n_attribute2;
1017           a45(indx) := t(ddindx).n_attribute3;
1018           a46(indx) := t(ddindx).n_attribute4;
1019           a47(indx) := t(ddindx).n_attribute5;
1020           a48(indx) := t(ddindx).n_attribute6;
1021           a49(indx) := t(ddindx).n_attribute7;
1022           a50(indx) := t(ddindx).n_attribute8;
1023           a51(indx) := t(ddindx).n_attribute9;
1024           a52(indx) := t(ddindx).n_attribute10;
1025           a53(indx) := t(ddindx).status_id;
1026           a54(indx) := t(ddindx).time_since_new;
1027           a55(indx) := t(ddindx).cycles_since_new;
1028           a56(indx) := t(ddindx).time_since_overhaul;
1029           a57(indx) := t(ddindx).cycles_since_overhaul;
1030           a58(indx) := t(ddindx).time_since_repair;
1031           a59(indx) := t(ddindx).cycles_since_repair;
1032           a60(indx) := t(ddindx).time_since_visit;
1033           a61(indx) := t(ddindx).cycles_since_visit;
1034           a62(indx) := t(ddindx).time_since_mark;
1035           a63(indx) := t(ddindx).cycles_since_mark;
1036           a64(indx) := t(ddindx).number_of_repairs;
1037           a65(indx) := t(ddindx).attribute_category;
1038           a66(indx) := t(ddindx).attribute1;
1039           a67(indx) := t(ddindx).attribute2;
1040           a68(indx) := t(ddindx).attribute3;
1041           a69(indx) := t(ddindx).attribute4;
1042           a70(indx) := t(ddindx).attribute5;
1043           a71(indx) := t(ddindx).attribute6;
1044           a72(indx) := t(ddindx).attribute7;
1045           a73(indx) := t(ddindx).attribute8;
1046           a74(indx) := t(ddindx).attribute9;
1047           a75(indx) := t(ddindx).attribute10;
1048           a76(indx) := t(ddindx).attribute11;
1049           a77(indx) := t(ddindx).attribute12;
1050           a78(indx) := t(ddindx).attribute13;
1051           a79(indx) := t(ddindx).attribute14;
1052           a80(indx) := t(ddindx).attribute15;
1053           indx := indx+1;
1054           if t.last =ddindx
1055             then exit;
1056           end if;
1057           ddindx := t.next(ddindx);
1058         end loop;
1059       end if;
1060    end if;
1061   end rosetta_table_copy_out_p9;
1062 
1063   procedure movetransaction(p_group_id  NUMBER
1064     , p_transaction_id  NUMBER
1065     , p_source_code  VARCHAR2
1066     , p_transaction_type  NUMBER
1067     , p_organization_id  NUMBER
1068     , p_wip_entity_id  NUMBER
1069     , p_wip_entity_name  VARCHAR2
1070     , p_primary_item_id  NUMBER
1071     , p_transaction_date  DATE
1072     , p_fm_operation_seq_num  NUMBER
1073     , p_fm_operation_code  VARCHAR2
1074     , p_fm_department_id  NUMBER
1075     , p_fm_department_code  VARCHAR2
1076     , p_fm_intraoperation_step_type  NUMBER
1077     , p_to_operation_seq_num  NUMBER
1078     , p_to_operation_code  VARCHAR2
1079     , p_to_department_id  NUMBER
1080     , p_to_department_code  VARCHAR2
1081     , p_to_intraoperation_step_type  NUMBER
1082     , p_primary_quantity  NUMBER
1083     , p_low_yield_trigger_limit  NUMBER
1084     , p_primary_uom  VARCHAR2
1085     , p_scrap_account_id  NUMBER
1086     , p_reason_id  NUMBER
1087     , p_reason_name  VARCHAR2
1088     , p_reference  VARCHAR2
1089     , p_qa_collection_id  NUMBER
1090     , p_jump_flag  VARCHAR2
1091     , p_header_id  NUMBER
1092     , p_primary_scrap_quantity  NUMBER
1093     , p_bonus_quantity  NUMBER
1094     , p_scrap_at_operation_flag  NUMBER
1095     , p_bonus_account_id  NUMBER
1096     , p_employee_id  NUMBER
1097     , p_operation_start_date  DATE
1098     , p_operation_completion_date  DATE
1099     , p_expected_completion_date  DATE
1100     , p_mtl_txn_hdr_id  NUMBER
1101     , p_sec_uom_code_tbl JTF_VARCHAR2_TABLE_100
1102     , p_sec_move_out_qty_tbl JTF_NUMBER_TABLE
1103     , p40_a0 JTF_VARCHAR2_TABLE_100
1104     , p40_a1 JTF_NUMBER_TABLE
1105     , p40_a2 JTF_NUMBER_TABLE
1106     , p40_a3 JTF_NUMBER_TABLE
1107     , p40_a4 JTF_NUMBER_TABLE
1108     , p40_a5 JTF_NUMBER_TABLE
1109     , p40_a6 JTF_VARCHAR2_TABLE_300
1110     , p40_a7 JTF_VARCHAR2_TABLE_300
1111     , p40_a8 JTF_NUMBER_TABLE
1112     , p40_a9 JTF_NUMBER_TABLE
1113     , p40_a10 JTF_VARCHAR2_TABLE_100
1114     , p40_a11 JTF_VARCHAR2_TABLE_100
1115     , p40_a12 JTF_DATE_TABLE
1116     , p40_a13 JTF_VARCHAR2_TABLE_200
1117     , p40_a14 JTF_VARCHAR2_TABLE_200
1118     , p40_a15 JTF_VARCHAR2_TABLE_200
1119     , p40_a16 JTF_VARCHAR2_TABLE_200
1120     , p40_a17 JTF_VARCHAR2_TABLE_200
1121     , p40_a18 JTF_VARCHAR2_TABLE_200
1122     , p40_a19 JTF_VARCHAR2_TABLE_200
1123     , p40_a20 JTF_VARCHAR2_TABLE_200
1124     , p40_a21 JTF_VARCHAR2_TABLE_200
1125     , p40_a22 JTF_VARCHAR2_TABLE_200
1126     , p40_a23 JTF_VARCHAR2_TABLE_200
1127     , p40_a24 JTF_VARCHAR2_TABLE_200
1128     , p40_a25 JTF_VARCHAR2_TABLE_200
1129     , p40_a26 JTF_VARCHAR2_TABLE_200
1130     , p40_a27 JTF_VARCHAR2_TABLE_200
1131     , p40_a28 JTF_VARCHAR2_TABLE_200
1132     , p40_a29 JTF_VARCHAR2_TABLE_200
1133     , p40_a30 JTF_VARCHAR2_TABLE_200
1134     , p40_a31 JTF_VARCHAR2_TABLE_200
1135     , p40_a32 JTF_VARCHAR2_TABLE_200
1136     , p40_a33 JTF_DATE_TABLE
1137     , p40_a34 JTF_DATE_TABLE
1138     , p40_a35 JTF_DATE_TABLE
1139     , p40_a36 JTF_DATE_TABLE
1140     , p40_a37 JTF_DATE_TABLE
1141     , p40_a38 JTF_DATE_TABLE
1142     , p40_a39 JTF_DATE_TABLE
1143     , p40_a40 JTF_DATE_TABLE
1144     , p40_a41 JTF_DATE_TABLE
1145     , p40_a42 JTF_DATE_TABLE
1146     , p40_a43 JTF_NUMBER_TABLE
1147     , p40_a44 JTF_NUMBER_TABLE
1148     , p40_a45 JTF_NUMBER_TABLE
1149     , p40_a46 JTF_NUMBER_TABLE
1150     , p40_a47 JTF_NUMBER_TABLE
1151     , p40_a48 JTF_NUMBER_TABLE
1152     , p40_a49 JTF_NUMBER_TABLE
1153     , p40_a50 JTF_NUMBER_TABLE
1154     , p40_a51 JTF_NUMBER_TABLE
1155     , p40_a52 JTF_NUMBER_TABLE
1156     , p40_a53 JTF_NUMBER_TABLE
1157     , p40_a54 JTF_NUMBER_TABLE
1158     , p40_a55 JTF_NUMBER_TABLE
1159     , p40_a56 JTF_NUMBER_TABLE
1160     , p40_a57 JTF_NUMBER_TABLE
1161     , p40_a58 JTF_NUMBER_TABLE
1162     , p40_a59 JTF_NUMBER_TABLE
1163     , p40_a60 JTF_NUMBER_TABLE
1164     , p40_a61 JTF_NUMBER_TABLE
1165     , p40_a62 JTF_NUMBER_TABLE
1166     , p40_a63 JTF_NUMBER_TABLE
1167     , p40_a64 JTF_NUMBER_TABLE
1168     , p40_a65 JTF_VARCHAR2_TABLE_100
1169     , p40_a66 JTF_VARCHAR2_TABLE_200
1170     , p40_a67 JTF_VARCHAR2_TABLE_200
1171     , p40_a68 JTF_VARCHAR2_TABLE_200
1172     , p40_a69 JTF_VARCHAR2_TABLE_200
1173     , p40_a70 JTF_VARCHAR2_TABLE_200
1174     , p40_a71 JTF_VARCHAR2_TABLE_200
1175     , p40_a72 JTF_VARCHAR2_TABLE_200
1176     , p40_a73 JTF_VARCHAR2_TABLE_200
1177     , p40_a74 JTF_VARCHAR2_TABLE_200
1178     , p40_a75 JTF_VARCHAR2_TABLE_200
1179     , p40_a76 JTF_VARCHAR2_TABLE_200
1180     , p40_a77 JTF_VARCHAR2_TABLE_200
1181     , p40_a78 JTF_VARCHAR2_TABLE_200
1182     , p40_a79 JTF_VARCHAR2_TABLE_200
1183     , p40_a80 JTF_VARCHAR2_TABLE_200
1184     , p41_a0 JTF_VARCHAR2_TABLE_100
1185     , p41_a1 JTF_NUMBER_TABLE
1186     , p41_a2 JTF_NUMBER_TABLE
1187     , p41_a3 JTF_NUMBER_TABLE
1188     , p41_a4 JTF_NUMBER_TABLE
1189     , p41_a5 JTF_NUMBER_TABLE
1190     , p41_a6 JTF_VARCHAR2_TABLE_300
1191     , p41_a7 JTF_VARCHAR2_TABLE_300
1192     , p41_a8 JTF_NUMBER_TABLE
1193     , p41_a9 JTF_NUMBER_TABLE
1194     , p41_a10 JTF_VARCHAR2_TABLE_100
1195     , p41_a11 JTF_VARCHAR2_TABLE_100
1196     , p41_a12 JTF_DATE_TABLE
1197     , p41_a13 JTF_VARCHAR2_TABLE_200
1198     , p41_a14 JTF_VARCHAR2_TABLE_200
1199     , p41_a15 JTF_VARCHAR2_TABLE_200
1200     , p41_a16 JTF_VARCHAR2_TABLE_200
1201     , p41_a17 JTF_VARCHAR2_TABLE_200
1202     , p41_a18 JTF_VARCHAR2_TABLE_200
1203     , p41_a19 JTF_VARCHAR2_TABLE_200
1204     , p41_a20 JTF_VARCHAR2_TABLE_200
1205     , p41_a21 JTF_VARCHAR2_TABLE_200
1206     , p41_a22 JTF_VARCHAR2_TABLE_200
1207     , p41_a23 JTF_VARCHAR2_TABLE_200
1208     , p41_a24 JTF_VARCHAR2_TABLE_200
1209     , p41_a25 JTF_VARCHAR2_TABLE_200
1210     , p41_a26 JTF_VARCHAR2_TABLE_200
1211     , p41_a27 JTF_VARCHAR2_TABLE_200
1212     , p41_a28 JTF_VARCHAR2_TABLE_200
1213     , p41_a29 JTF_VARCHAR2_TABLE_200
1214     , p41_a30 JTF_VARCHAR2_TABLE_200
1215     , p41_a31 JTF_VARCHAR2_TABLE_200
1216     , p41_a32 JTF_VARCHAR2_TABLE_200
1217     , p41_a33 JTF_DATE_TABLE
1218     , p41_a34 JTF_DATE_TABLE
1219     , p41_a35 JTF_DATE_TABLE
1220     , p41_a36 JTF_DATE_TABLE
1221     , p41_a37 JTF_DATE_TABLE
1222     , p41_a38 JTF_DATE_TABLE
1223     , p41_a39 JTF_DATE_TABLE
1224     , p41_a40 JTF_DATE_TABLE
1225     , p41_a41 JTF_DATE_TABLE
1226     , p41_a42 JTF_DATE_TABLE
1227     , p41_a43 JTF_NUMBER_TABLE
1228     , p41_a44 JTF_NUMBER_TABLE
1229     , p41_a45 JTF_NUMBER_TABLE
1230     , p41_a46 JTF_NUMBER_TABLE
1231     , p41_a47 JTF_NUMBER_TABLE
1232     , p41_a48 JTF_NUMBER_TABLE
1233     , p41_a49 JTF_NUMBER_TABLE
1234     , p41_a50 JTF_NUMBER_TABLE
1235     , p41_a51 JTF_NUMBER_TABLE
1236     , p41_a52 JTF_NUMBER_TABLE
1237     , p41_a53 JTF_NUMBER_TABLE
1238     , p41_a54 JTF_NUMBER_TABLE
1239     , p41_a55 JTF_NUMBER_TABLE
1240     , p41_a56 JTF_NUMBER_TABLE
1241     , p41_a57 JTF_NUMBER_TABLE
1242     , p41_a58 JTF_NUMBER_TABLE
1243     , p41_a59 JTF_NUMBER_TABLE
1244     , p41_a60 JTF_NUMBER_TABLE
1245     , p41_a61 JTF_NUMBER_TABLE
1246     , p41_a62 JTF_NUMBER_TABLE
1247     , p41_a63 JTF_NUMBER_TABLE
1248     , p41_a64 JTF_NUMBER_TABLE
1249     , p41_a65 JTF_VARCHAR2_TABLE_100
1250     , p41_a66 JTF_VARCHAR2_TABLE_200
1251     , p41_a67 JTF_VARCHAR2_TABLE_200
1252     , p41_a68 JTF_VARCHAR2_TABLE_200
1253     , p41_a69 JTF_VARCHAR2_TABLE_200
1254     , p41_a70 JTF_VARCHAR2_TABLE_200
1255     , p41_a71 JTF_VARCHAR2_TABLE_200
1256     , p41_a72 JTF_VARCHAR2_TABLE_200
1257     , p41_a73 JTF_VARCHAR2_TABLE_200
1258     , p41_a74 JTF_VARCHAR2_TABLE_200
1259     , p41_a75 JTF_VARCHAR2_TABLE_200
1260     , p41_a76 JTF_VARCHAR2_TABLE_200
1261     , p41_a77 JTF_VARCHAR2_TABLE_200
1262     , p41_a78 JTF_VARCHAR2_TABLE_200
1263     , p41_a79 JTF_VARCHAR2_TABLE_200
1264     , p41_a80 JTF_VARCHAR2_TABLE_200
1265     , p_scrap_codes_tbl JTF_VARCHAR2_TABLE_100
1266     , p_scrap_code_qty_tbl JTF_NUMBER_TABLE
1267     , p_bonus_codes_tbl JTF_VARCHAR2_TABLE_100
1268     , p_bonus_code_qty_tbl JTF_NUMBER_TABLE
1269     , p46_a0 JTF_NUMBER_TABLE
1270     , p46_a1 JTF_NUMBER_TABLE
1271     , p46_a2 JTF_NUMBER_TABLE
1272     , p46_a3 JTF_NUMBER_TABLE
1273     , p46_a4 JTF_NUMBER_TABLE
1274     , p46_a5 JTF_NUMBER_TABLE
1275     , p46_a6 JTF_NUMBER_TABLE
1276     , p46_a7 JTF_NUMBER_TABLE
1277     , p46_a8 JTF_VARCHAR2_TABLE_100
1278     , p46_a9 JTF_DATE_TABLE
1279     , p46_a10 JTF_NUMBER_TABLE
1280     , p46_a11 JTF_DATE_TABLE
1281     , p46_a12 JTF_NUMBER_TABLE
1282     , p46_a13 JTF_NUMBER_TABLE
1283     , p46_a14 JTF_NUMBER_TABLE
1284     , p46_a15 JTF_DATE_TABLE
1285     , p46_a16 JTF_DATE_TABLE
1286     , p46_a17 JTF_DATE_TABLE
1287     , p46_a18 JTF_NUMBER_TABLE
1288     , p46_a19 JTF_VARCHAR2_TABLE_100
1289     , p46_a20 JTF_NUMBER_TABLE
1290     , p46_a21 JTF_NUMBER_TABLE
1291     , p46_a22 JTF_VARCHAR2_TABLE_100
1292     , p46_a23 JTF_VARCHAR2_TABLE_100
1293     , p46_a24 JTF_NUMBER_TABLE
1294     , x_wip_move_api_sucess_msg out nocopy  VARCHAR2
1295     , x_return_status out nocopy  VARCHAR2
1296     , x_msg_count out nocopy  NUMBER
1297     , x_msg_data out nocopy  VARCHAR2
1298   )
1299 
1300   as
1301     ddp_sec_uom_code_tbl wsmplbmi.t_sec_uom_code_tbl_type;
1302     ddp_sec_move_out_qty_tbl wsmplbmi.t_sec_move_out_qty_tbl_type;
1303     ddp_jobop_scrap_serials_tbl WSM_Serial_support_GRP.WSM_SERIAL_NUM_TBL;
1304     ddp_jobop_bonus_serials_tbl WSM_Serial_support_GRP.WSM_SERIAL_NUM_TBL;
1305     ddp_scrap_codes_tbl wsmplbmi.t_scrap_codes_tbl_type;
1306     ddp_scrap_code_qty_tbl wsmplbmi.t_scrap_code_qty_tbl_type;
1307     ddp_bonus_codes_tbl wsmplbmi.t_bonus_codes_tbl_type;
1308     ddp_bonus_code_qty_tbl wsmplbmi.t_bonus_code_qty_tbl_type;
1309     ddp_jobop_resource_usages_tbl wsmplbmi.t_jobop_res_usages_tbl_type;
1310     ddindx binary_integer; indx binary_integer;
1311   begin
1312 
1313     -- copy data to the local IN or IN-OUT args, if any
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352     wsmplbmi_w.rosetta_table_copy_in_p0(ddp_sec_uom_code_tbl, p_sec_uom_code_tbl);
1353 
1354     wsmplbmi_w.rosetta_table_copy_in_p1(ddp_sec_move_out_qty_tbl, p_sec_move_out_qty_tbl);
1355 
1356     wsmplbmi_w.rosetta_table_copy_in_p9(ddp_jobop_scrap_serials_tbl, p40_a0
1357       , p40_a1
1358       , p40_a2
1359       , p40_a3
1360       , p40_a4
1361       , p40_a5
1362       , p40_a6
1363       , p40_a7
1364       , p40_a8
1365       , p40_a9
1366       , p40_a10
1367       , p40_a11
1368       , p40_a12
1369       , p40_a13
1370       , p40_a14
1371       , p40_a15
1372       , p40_a16
1373       , p40_a17
1374       , p40_a18
1375       , p40_a19
1376       , p40_a20
1377       , p40_a21
1378       , p40_a22
1379       , p40_a23
1380       , p40_a24
1381       , p40_a25
1382       , p40_a26
1383       , p40_a27
1384       , p40_a28
1385       , p40_a29
1386       , p40_a30
1387       , p40_a31
1388       , p40_a32
1389       , p40_a33
1390       , p40_a34
1391       , p40_a35
1392       , p40_a36
1393       , p40_a37
1394       , p40_a38
1395       , p40_a39
1396       , p40_a40
1397       , p40_a41
1398       , p40_a42
1399       , p40_a43
1400       , p40_a44
1401       , p40_a45
1402       , p40_a46
1403       , p40_a47
1404       , p40_a48
1405       , p40_a49
1406       , p40_a50
1407       , p40_a51
1408       , p40_a52
1409       , p40_a53
1410       , p40_a54
1411       , p40_a55
1412       , p40_a56
1413       , p40_a57
1414       , p40_a58
1415       , p40_a59
1416       , p40_a60
1417       , p40_a61
1418       , p40_a62
1419       , p40_a63
1420       , p40_a64
1421       , p40_a65
1422       , p40_a66
1423       , p40_a67
1424       , p40_a68
1425       , p40_a69
1426       , p40_a70
1427       , p40_a71
1428       , p40_a72
1429       , p40_a73
1430       , p40_a74
1431       , p40_a75
1432       , p40_a76
1433       , p40_a77
1434       , p40_a78
1435       , p40_a79
1436       , p40_a80
1437       );
1438 
1439     wsmplbmi_w.rosetta_table_copy_in_p9(ddp_jobop_bonus_serials_tbl, p41_a0
1440       , p41_a1
1441       , p41_a2
1442       , p41_a3
1443       , p41_a4
1444       , p41_a5
1445       , p41_a6
1446       , p41_a7
1447       , p41_a8
1448       , p41_a9
1449       , p41_a10
1450       , p41_a11
1451       , p41_a12
1452       , p41_a13
1453       , p41_a14
1454       , p41_a15
1455       , p41_a16
1456       , p41_a17
1457       , p41_a18
1458       , p41_a19
1459       , p41_a20
1460       , p41_a21
1461       , p41_a22
1462       , p41_a23
1463       , p41_a24
1464       , p41_a25
1465       , p41_a26
1466       , p41_a27
1467       , p41_a28
1468       , p41_a29
1469       , p41_a30
1470       , p41_a31
1471       , p41_a32
1472       , p41_a33
1473       , p41_a34
1474       , p41_a35
1475       , p41_a36
1476       , p41_a37
1477       , p41_a38
1478       , p41_a39
1479       , p41_a40
1480       , p41_a41
1481       , p41_a42
1482       , p41_a43
1483       , p41_a44
1484       , p41_a45
1485       , p41_a46
1486       , p41_a47
1487       , p41_a48
1488       , p41_a49
1489       , p41_a50
1490       , p41_a51
1491       , p41_a52
1492       , p41_a53
1493       , p41_a54
1494       , p41_a55
1495       , p41_a56
1496       , p41_a57
1497       , p41_a58
1498       , p41_a59
1499       , p41_a60
1500       , p41_a61
1501       , p41_a62
1502       , p41_a63
1503       , p41_a64
1504       , p41_a65
1505       , p41_a66
1506       , p41_a67
1507       , p41_a68
1508       , p41_a69
1509       , p41_a70
1510       , p41_a71
1511       , p41_a72
1512       , p41_a73
1513       , p41_a74
1514       , p41_a75
1515       , p41_a76
1516       , p41_a77
1517       , p41_a78
1518       , p41_a79
1519       , p41_a80
1520       );
1521 
1522     wsmplbmi_w.rosetta_table_copy_in_p2(ddp_scrap_codes_tbl, p_scrap_codes_tbl);
1523 
1524     wsmplbmi_w.rosetta_table_copy_in_p3(ddp_scrap_code_qty_tbl, p_scrap_code_qty_tbl);
1525 
1526     wsmplbmi_w.rosetta_table_copy_in_p4(ddp_bonus_codes_tbl, p_bonus_codes_tbl);
1527 
1528     wsmplbmi_w.rosetta_table_copy_in_p5(ddp_bonus_code_qty_tbl, p_bonus_code_qty_tbl);
1529 
1530     wsmplbmi_w.rosetta_table_copy_in_p7(ddp_jobop_resource_usages_tbl, p46_a0
1531       , p46_a1
1532       , p46_a2
1533       , p46_a3
1534       , p46_a4
1535       , p46_a5
1536       , p46_a6
1537       , p46_a7
1538       , p46_a8
1539       , p46_a9
1540       , p46_a10
1541       , p46_a11
1542       , p46_a12
1543       , p46_a13
1544       , p46_a14
1545       , p46_a15
1546       , p46_a16
1547       , p46_a17
1548       , p46_a18
1549       , p46_a19
1550       , p46_a20
1551       , p46_a21
1552       , p46_a22
1553       , p46_a23
1554       , p46_a24
1555       );
1556 
1557 
1558 
1559 
1560 
1561     -- here's the delegated call to the old PL/SQL routine
1562     wsmplbmi.movetransaction(p_group_id,
1563       p_transaction_id,
1564       p_source_code,
1565       p_transaction_type,
1566       p_organization_id,
1567       p_wip_entity_id,
1568       p_wip_entity_name,
1569       p_primary_item_id,
1570       p_transaction_date,
1571       p_fm_operation_seq_num,
1572       p_fm_operation_code,
1573       p_fm_department_id,
1574       p_fm_department_code,
1575       p_fm_intraoperation_step_type,
1576       p_to_operation_seq_num,
1577       p_to_operation_code,
1578       p_to_department_id,
1579       p_to_department_code,
1580       p_to_intraoperation_step_type,
1581       p_primary_quantity,
1582       p_low_yield_trigger_limit,
1583       p_primary_uom,
1584       p_scrap_account_id,
1585       p_reason_id,
1586       p_reason_name,
1587       p_reference,
1588       p_qa_collection_id,
1589       p_jump_flag,
1590       p_header_id,
1591       p_primary_scrap_quantity,
1592       p_bonus_quantity,
1593       p_scrap_at_operation_flag,
1594       p_bonus_account_id,
1595       p_employee_id,
1596       p_operation_start_date,
1597       p_operation_completion_date,
1598       p_expected_completion_date,
1599       p_mtl_txn_hdr_id,
1600       ddp_sec_uom_code_tbl,
1601       ddp_sec_move_out_qty_tbl,
1602       ddp_jobop_scrap_serials_tbl,
1603       ddp_jobop_bonus_serials_tbl,
1604       ddp_scrap_codes_tbl,
1605       ddp_scrap_code_qty_tbl,
1606       ddp_bonus_codes_tbl,
1607       ddp_bonus_code_qty_tbl,
1608       ddp_jobop_resource_usages_tbl,
1609       x_wip_move_api_sucess_msg,
1610       x_return_status,
1611       x_msg_count,
1612       x_msg_data);
1613 
1614     -- copy data back from the local variables to OUT or IN-OUT args, if any
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665   end;
1666 
1667 end wsmplbmi_w;