[Home] [Help]
PACKAGE BODY: APPS.CSD_HV_WIP_JOB_PVT_W
Source
1 package body csd_hv_wip_job_pvt_w as
2 /* $Header: csdwhvjb.pls 120.14.12020000.4 2013/04/02 22:38:03 swai ship $ */
3 procedure rosetta_table_copy_in_p3(t out nocopy csd_hv_wip_job_pvt.mv_txn_dtls_tbl_type, a0 JTF_VARCHAR2_TABLE_300
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 ) as
11 ddindx binary_integer; indx binary_integer;
12 begin
13 if a0 is not null and a0.count > 0 then
14 if a0.count > 0 then
15 indx := a0.first;
16 ddindx := 1;
17 while true loop
18 t(ddindx).wip_entity_name := a0(indx);
19 t(ddindx).organization_id := a1(indx);
20 t(ddindx).fm_operation_seq_num := a2(indx);
21 t(ddindx).to_operation_seq_num := a3(indx);
22 t(ddindx).transaction_quantity := a4(indx);
23 t(ddindx).transaction_uom := a5(indx);
24 t(ddindx).wip_entity_id := a6(indx);
25 ddindx := ddindx+1;
26 if a0.last =indx
27 then exit;
28 end if;
29 indx := a0.next(indx);
30 end loop;
31 end if;
32 end if;
33 end rosetta_table_copy_in_p3;
34 procedure rosetta_table_copy_out_p3(t csd_hv_wip_job_pvt.mv_txn_dtls_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
35 , a1 out nocopy JTF_NUMBER_TABLE
36 , a2 out nocopy JTF_NUMBER_TABLE
37 , a3 out nocopy JTF_NUMBER_TABLE
38 , a4 out nocopy JTF_NUMBER_TABLE
39 , a5 out nocopy JTF_VARCHAR2_TABLE_100
40 , a6 out nocopy JTF_NUMBER_TABLE
41 ) as
42 ddindx binary_integer; indx binary_integer;
43 begin
44 if t is null or t.count = 0 then
45 a0 := JTF_VARCHAR2_TABLE_300();
46 a1 := JTF_NUMBER_TABLE();
47 a2 := JTF_NUMBER_TABLE();
48 a3 := JTF_NUMBER_TABLE();
49 a4 := JTF_NUMBER_TABLE();
50 a5 := JTF_VARCHAR2_TABLE_100();
51 a6 := JTF_NUMBER_TABLE();
52 else
53 a0 := JTF_VARCHAR2_TABLE_300();
54 a1 := JTF_NUMBER_TABLE();
55 a2 := JTF_NUMBER_TABLE();
56 a3 := JTF_NUMBER_TABLE();
57 a4 := JTF_NUMBER_TABLE();
58 a5 := JTF_VARCHAR2_TABLE_100();
59 a6 := JTF_NUMBER_TABLE();
60 if t.count > 0 then
61 a0.extend(t.count);
62 a1.extend(t.count);
63 a2.extend(t.count);
64 a3.extend(t.count);
65 a4.extend(t.count);
66 a5.extend(t.count);
67 a6.extend(t.count);
68 ddindx := t.first;
69 indx := 1;
70 while true loop
71 a0(indx) := t(ddindx).wip_entity_name;
72 a1(indx) := t(ddindx).organization_id;
73 a2(indx) := t(ddindx).fm_operation_seq_num;
74 a3(indx) := t(ddindx).to_operation_seq_num;
75 a4(indx) := t(ddindx).transaction_quantity;
76 a5(indx) := t(ddindx).transaction_uom;
77 a6(indx) := t(ddindx).wip_entity_id;
78 indx := indx+1;
79 if t.last =ddindx
80 then exit;
81 end if;
82 ddindx := t.next(ddindx);
83 end loop;
84 end if;
85 end if;
86 end rosetta_table_copy_out_p3;
87
88 procedure rosetta_table_copy_in_p5(t out nocopy csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type, a0 JTF_NUMBER_TABLE
89 , a1 JTF_NUMBER_TABLE
90 , a2 JTF_NUMBER_TABLE
91 , a3 JTF_NUMBER_TABLE
92 , a4 JTF_NUMBER_TABLE
93 , a5 JTF_NUMBER_TABLE
94 , a6 JTF_NUMBER_TABLE
95 , a7 JTF_NUMBER_TABLE
96 , a8 JTF_NUMBER_TABLE
97 , a9 JTF_NUMBER_TABLE
98 , a10 JTF_VARCHAR2_TABLE_100
99 , a11 JTF_VARCHAR2_TABLE_100
100 , a12 JTF_VARCHAR2_TABLE_100
101 , a13 JTF_VARCHAR2_TABLE_100
102 , a14 JTF_VARCHAR2_TABLE_100
103 , a15 JTF_NUMBER_TABLE
104 , a16 JTF_NUMBER_TABLE
105 , a17 JTF_NUMBER_TABLE
106 , a18 JTF_VARCHAR2_TABLE_100
107 , a19 JTF_NUMBER_TABLE
108 , a20 JTF_NUMBER_TABLE
109 , a21 JTF_NUMBER_TABLE
110 , a22 JTF_VARCHAR2_TABLE_100
111 , a23 JTF_NUMBER_TABLE
112 , a24 JTF_VARCHAR2_TABLE_100
113 , a25 JTF_VARCHAR2_TABLE_200
114 , a26 JTF_VARCHAR2_TABLE_200
115 , a27 JTF_VARCHAR2_TABLE_200
116 , a28 JTF_VARCHAR2_TABLE_200
117 , a29 JTF_VARCHAR2_TABLE_200
118 , a30 JTF_VARCHAR2_TABLE_200
119 , a31 JTF_VARCHAR2_TABLE_200
120 , a32 JTF_VARCHAR2_TABLE_200
121 , a33 JTF_VARCHAR2_TABLE_200
122 , a34 JTF_VARCHAR2_TABLE_200
123 , a35 JTF_VARCHAR2_TABLE_200
124 , a36 JTF_VARCHAR2_TABLE_200
125 , a37 JTF_VARCHAR2_TABLE_200
126 , a38 JTF_VARCHAR2_TABLE_200
127 , a39 JTF_VARCHAR2_TABLE_200
128 , a40 JTF_VARCHAR2_TABLE_100
129 ) as
130 ddindx binary_integer; indx binary_integer;
131 begin
132 if a0 is not null and a0.count > 0 then
133 if a0.count > 0 then
134 indx := a0.first;
135 ddindx := 1;
136 while true loop
137 t(ddindx).wip_transaction_detail_id := a0(indx);
138 t(ddindx).required_quantity := a1(indx);
139 t(ddindx).issued_quantity := a2(indx);
140 t(ddindx).job_quantity := a3(indx);
141 t(ddindx).op_scheduled_quantity := a4(indx);
142 t(ddindx).inventory_item_id := a5(indx);
143 t(ddindx).wip_entity_id := a6(indx);
144 t(ddindx).organization_id := a7(indx);
145 t(ddindx).operation_seq_num := a8(indx);
146 t(ddindx).transaction_quantity := a9(indx);
147 t(ddindx).transaction_uom := a10(indx);
148 t(ddindx).uom_code := a11(indx);
149 t(ddindx).serial_number := a12(indx);
150 t(ddindx).lot_number := a13(indx);
151 t(ddindx).revision := a14(indx);
152 t(ddindx).revision_qty_control_code := a15(indx);
153 t(ddindx).serial_number_control_code := a16(indx);
154 t(ddindx).lot_control_code := a17(indx);
155 t(ddindx).supply_subinventory := a18(indx);
156 t(ddindx).supply_locator_id := a19(indx);
157 t(ddindx).transaction_interface_id := a20(indx);
158 t(ddindx).object_version_number := a21(indx);
159 t(ddindx).new_row := a22(indx);
160 t(ddindx).reason_id := a23(indx);
161 t(ddindx).attribute_category := a24(indx);
162 t(ddindx).attribute1 := a25(indx);
163 t(ddindx).attribute2 := a26(indx);
164 t(ddindx).attribute3 := a27(indx);
165 t(ddindx).attribute4 := a28(indx);
166 t(ddindx).attribute5 := a29(indx);
167 t(ddindx).attribute6 := a30(indx);
168 t(ddindx).attribute7 := a31(indx);
169 t(ddindx).attribute8 := a32(indx);
170 t(ddindx).attribute9 := a33(indx);
171 t(ddindx).attribute10 := a34(indx);
172 t(ddindx).attribute11 := a35(indx);
173 t(ddindx).attribute12 := a36(indx);
174 t(ddindx).attribute13 := a37(indx);
175 t(ddindx).attribute14 := a38(indx);
176 t(ddindx).attribute15 := a39(indx);
177 t(ddindx).create_ro_flag := a40(indx);
178 ddindx := ddindx+1;
179 if a0.last =indx
180 then exit;
181 end if;
182 indx := a0.next(indx);
183 end loop;
184 end if;
185 end if;
186 end rosetta_table_copy_in_p5;
187 procedure rosetta_table_copy_out_p5(t csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
188 , a1 out nocopy JTF_NUMBER_TABLE
189 , a2 out nocopy JTF_NUMBER_TABLE
190 , a3 out nocopy JTF_NUMBER_TABLE
191 , a4 out nocopy JTF_NUMBER_TABLE
192 , a5 out nocopy JTF_NUMBER_TABLE
193 , a6 out nocopy JTF_NUMBER_TABLE
194 , a7 out nocopy JTF_NUMBER_TABLE
195 , a8 out nocopy JTF_NUMBER_TABLE
196 , a9 out nocopy JTF_NUMBER_TABLE
197 , a10 out nocopy JTF_VARCHAR2_TABLE_100
198 , a11 out nocopy JTF_VARCHAR2_TABLE_100
199 , a12 out nocopy JTF_VARCHAR2_TABLE_100
200 , a13 out nocopy JTF_VARCHAR2_TABLE_100
201 , a14 out nocopy JTF_VARCHAR2_TABLE_100
202 , a15 out nocopy JTF_NUMBER_TABLE
203 , a16 out nocopy JTF_NUMBER_TABLE
204 , a17 out nocopy JTF_NUMBER_TABLE
205 , a18 out nocopy JTF_VARCHAR2_TABLE_100
206 , a19 out nocopy JTF_NUMBER_TABLE
207 , a20 out nocopy JTF_NUMBER_TABLE
208 , a21 out nocopy JTF_NUMBER_TABLE
209 , a22 out nocopy JTF_VARCHAR2_TABLE_100
210 , a23 out nocopy JTF_NUMBER_TABLE
211 , a24 out nocopy JTF_VARCHAR2_TABLE_100
212 , a25 out nocopy JTF_VARCHAR2_TABLE_200
213 , a26 out nocopy JTF_VARCHAR2_TABLE_200
214 , a27 out nocopy JTF_VARCHAR2_TABLE_200
215 , a28 out nocopy JTF_VARCHAR2_TABLE_200
216 , a29 out nocopy JTF_VARCHAR2_TABLE_200
217 , a30 out nocopy JTF_VARCHAR2_TABLE_200
218 , a31 out nocopy JTF_VARCHAR2_TABLE_200
219 , a32 out nocopy JTF_VARCHAR2_TABLE_200
220 , a33 out nocopy JTF_VARCHAR2_TABLE_200
221 , a34 out nocopy JTF_VARCHAR2_TABLE_200
222 , a35 out nocopy JTF_VARCHAR2_TABLE_200
223 , a36 out nocopy JTF_VARCHAR2_TABLE_200
224 , a37 out nocopy JTF_VARCHAR2_TABLE_200
225 , a38 out nocopy JTF_VARCHAR2_TABLE_200
226 , a39 out nocopy JTF_VARCHAR2_TABLE_200
227 , a40 out nocopy JTF_VARCHAR2_TABLE_100
228 ) as
229 ddindx binary_integer; indx binary_integer;
230 begin
231 if t is null or t.count = 0 then
232 a0 := JTF_NUMBER_TABLE();
233 a1 := JTF_NUMBER_TABLE();
234 a2 := JTF_NUMBER_TABLE();
235 a3 := JTF_NUMBER_TABLE();
236 a4 := JTF_NUMBER_TABLE();
237 a5 := JTF_NUMBER_TABLE();
238 a6 := JTF_NUMBER_TABLE();
239 a7 := JTF_NUMBER_TABLE();
240 a8 := JTF_NUMBER_TABLE();
241 a9 := JTF_NUMBER_TABLE();
242 a10 := JTF_VARCHAR2_TABLE_100();
243 a11 := JTF_VARCHAR2_TABLE_100();
244 a12 := JTF_VARCHAR2_TABLE_100();
245 a13 := JTF_VARCHAR2_TABLE_100();
246 a14 := JTF_VARCHAR2_TABLE_100();
247 a15 := JTF_NUMBER_TABLE();
248 a16 := JTF_NUMBER_TABLE();
249 a17 := JTF_NUMBER_TABLE();
250 a18 := JTF_VARCHAR2_TABLE_100();
251 a19 := JTF_NUMBER_TABLE();
252 a20 := JTF_NUMBER_TABLE();
253 a21 := JTF_NUMBER_TABLE();
254 a22 := JTF_VARCHAR2_TABLE_100();
255 a23 := JTF_NUMBER_TABLE();
256 a24 := JTF_VARCHAR2_TABLE_100();
257 a25 := JTF_VARCHAR2_TABLE_200();
258 a26 := JTF_VARCHAR2_TABLE_200();
259 a27 := JTF_VARCHAR2_TABLE_200();
260 a28 := JTF_VARCHAR2_TABLE_200();
261 a29 := JTF_VARCHAR2_TABLE_200();
262 a30 := JTF_VARCHAR2_TABLE_200();
263 a31 := JTF_VARCHAR2_TABLE_200();
264 a32 := JTF_VARCHAR2_TABLE_200();
265 a33 := JTF_VARCHAR2_TABLE_200();
266 a34 := JTF_VARCHAR2_TABLE_200();
267 a35 := JTF_VARCHAR2_TABLE_200();
268 a36 := JTF_VARCHAR2_TABLE_200();
269 a37 := JTF_VARCHAR2_TABLE_200();
270 a38 := JTF_VARCHAR2_TABLE_200();
271 a39 := JTF_VARCHAR2_TABLE_200();
272 a40 := JTF_VARCHAR2_TABLE_100();
273 else
274 a0 := JTF_NUMBER_TABLE();
275 a1 := JTF_NUMBER_TABLE();
276 a2 := JTF_NUMBER_TABLE();
277 a3 := JTF_NUMBER_TABLE();
278 a4 := JTF_NUMBER_TABLE();
279 a5 := JTF_NUMBER_TABLE();
280 a6 := JTF_NUMBER_TABLE();
281 a7 := JTF_NUMBER_TABLE();
282 a8 := JTF_NUMBER_TABLE();
283 a9 := JTF_NUMBER_TABLE();
284 a10 := JTF_VARCHAR2_TABLE_100();
285 a11 := JTF_VARCHAR2_TABLE_100();
286 a12 := JTF_VARCHAR2_TABLE_100();
287 a13 := JTF_VARCHAR2_TABLE_100();
288 a14 := JTF_VARCHAR2_TABLE_100();
289 a15 := JTF_NUMBER_TABLE();
290 a16 := JTF_NUMBER_TABLE();
291 a17 := JTF_NUMBER_TABLE();
292 a18 := JTF_VARCHAR2_TABLE_100();
293 a19 := JTF_NUMBER_TABLE();
294 a20 := JTF_NUMBER_TABLE();
295 a21 := JTF_NUMBER_TABLE();
296 a22 := JTF_VARCHAR2_TABLE_100();
297 a23 := JTF_NUMBER_TABLE();
298 a24 := JTF_VARCHAR2_TABLE_100();
299 a25 := JTF_VARCHAR2_TABLE_200();
300 a26 := JTF_VARCHAR2_TABLE_200();
301 a27 := JTF_VARCHAR2_TABLE_200();
302 a28 := JTF_VARCHAR2_TABLE_200();
303 a29 := JTF_VARCHAR2_TABLE_200();
304 a30 := JTF_VARCHAR2_TABLE_200();
305 a31 := JTF_VARCHAR2_TABLE_200();
306 a32 := JTF_VARCHAR2_TABLE_200();
307 a33 := JTF_VARCHAR2_TABLE_200();
308 a34 := JTF_VARCHAR2_TABLE_200();
309 a35 := JTF_VARCHAR2_TABLE_200();
310 a36 := JTF_VARCHAR2_TABLE_200();
311 a37 := JTF_VARCHAR2_TABLE_200();
312 a38 := JTF_VARCHAR2_TABLE_200();
313 a39 := JTF_VARCHAR2_TABLE_200();
314 a40 := JTF_VARCHAR2_TABLE_100();
315 if t.count > 0 then
316 a0.extend(t.count);
317 a1.extend(t.count);
318 a2.extend(t.count);
319 a3.extend(t.count);
320 a4.extend(t.count);
321 a5.extend(t.count);
322 a6.extend(t.count);
323 a7.extend(t.count);
324 a8.extend(t.count);
325 a9.extend(t.count);
326 a10.extend(t.count);
327 a11.extend(t.count);
328 a12.extend(t.count);
329 a13.extend(t.count);
330 a14.extend(t.count);
331 a15.extend(t.count);
332 a16.extend(t.count);
333 a17.extend(t.count);
334 a18.extend(t.count);
335 a19.extend(t.count);
336 a20.extend(t.count);
337 a21.extend(t.count);
338 a22.extend(t.count);
339 a23.extend(t.count);
340 a24.extend(t.count);
341 a25.extend(t.count);
342 a26.extend(t.count);
343 a27.extend(t.count);
344 a28.extend(t.count);
345 a29.extend(t.count);
346 a30.extend(t.count);
347 a31.extend(t.count);
348 a32.extend(t.count);
349 a33.extend(t.count);
350 a34.extend(t.count);
351 a35.extend(t.count);
352 a36.extend(t.count);
353 a37.extend(t.count);
354 a38.extend(t.count);
355 a39.extend(t.count);
356 a40.extend(t.count);
357 ddindx := t.first;
358 indx := 1;
359 while true loop
360 a0(indx) := t(ddindx).wip_transaction_detail_id;
361 a1(indx) := t(ddindx).required_quantity;
362 a2(indx) := t(ddindx).issued_quantity;
363 a3(indx) := t(ddindx).job_quantity;
364 a4(indx) := t(ddindx).op_scheduled_quantity;
365 a5(indx) := t(ddindx).inventory_item_id;
366 a6(indx) := t(ddindx).wip_entity_id;
367 a7(indx) := t(ddindx).organization_id;
368 a8(indx) := t(ddindx).operation_seq_num;
369 a9(indx) := t(ddindx).transaction_quantity;
370 a10(indx) := t(ddindx).transaction_uom;
371 a11(indx) := t(ddindx).uom_code;
372 a12(indx) := t(ddindx).serial_number;
373 a13(indx) := t(ddindx).lot_number;
374 a14(indx) := t(ddindx).revision;
375 a15(indx) := t(ddindx).revision_qty_control_code;
376 a16(indx) := t(ddindx).serial_number_control_code;
377 a17(indx) := t(ddindx).lot_control_code;
378 a18(indx) := t(ddindx).supply_subinventory;
379 a19(indx) := t(ddindx).supply_locator_id;
380 a20(indx) := t(ddindx).transaction_interface_id;
381 a21(indx) := t(ddindx).object_version_number;
382 a22(indx) := t(ddindx).new_row;
383 a23(indx) := t(ddindx).reason_id;
384 a24(indx) := t(ddindx).attribute_category;
385 a25(indx) := t(ddindx).attribute1;
386 a26(indx) := t(ddindx).attribute2;
387 a27(indx) := t(ddindx).attribute3;
388 a28(indx) := t(ddindx).attribute4;
389 a29(indx) := t(ddindx).attribute5;
390 a30(indx) := t(ddindx).attribute6;
391 a31(indx) := t(ddindx).attribute7;
392 a32(indx) := t(ddindx).attribute8;
393 a33(indx) := t(ddindx).attribute9;
394 a34(indx) := t(ddindx).attribute10;
395 a35(indx) := t(ddindx).attribute11;
396 a36(indx) := t(ddindx).attribute12;
397 a37(indx) := t(ddindx).attribute13;
398 a38(indx) := t(ddindx).attribute14;
399 a39(indx) := t(ddindx).attribute15;
400 a40(indx) := t(ddindx).create_ro_flag;
401 indx := indx+1;
402 if t.last =ddindx
403 then exit;
404 end if;
405 ddindx := t.next(ddindx);
406 end loop;
407 end if;
408 end if;
409 end rosetta_table_copy_out_p5;
410
411 procedure rosetta_table_copy_in_p7(t out nocopy csd_hv_wip_job_pvt.res_txn_dtls_tbl_type, a0 JTF_NUMBER_TABLE
412 , a1 JTF_NUMBER_TABLE
413 , a2 JTF_NUMBER_TABLE
414 , a3 JTF_NUMBER_TABLE
415 , a4 JTF_NUMBER_TABLE
416 , a5 JTF_NUMBER_TABLE
417 , a6 JTF_NUMBER_TABLE
418 , a7 JTF_NUMBER_TABLE
419 , a8 JTF_NUMBER_TABLE
420 , a9 JTF_NUMBER_TABLE
421 , a10 JTF_NUMBER_TABLE
422 , a11 JTF_VARCHAR2_TABLE_100
423 , a12 JTF_NUMBER_TABLE
424 , a13 JTF_NUMBER_TABLE
425 , a14 JTF_VARCHAR2_TABLE_100
426 , a15 JTF_VARCHAR2_TABLE_100
427 , a16 JTF_VARCHAR2_TABLE_100
428 , a17 JTF_NUMBER_TABLE
429 , a18 JTF_VARCHAR2_TABLE_100
430 , a19 JTF_NUMBER_TABLE
431 , a20 JTF_VARCHAR2_TABLE_100
432 , a21 JTF_VARCHAR2_TABLE_100
433 , a22 JTF_VARCHAR2_TABLE_200
434 , a23 JTF_VARCHAR2_TABLE_200
435 , a24 JTF_VARCHAR2_TABLE_200
436 , a25 JTF_VARCHAR2_TABLE_200
437 , a26 JTF_VARCHAR2_TABLE_200
438 , a27 JTF_VARCHAR2_TABLE_200
439 , a28 JTF_VARCHAR2_TABLE_200
440 , a29 JTF_VARCHAR2_TABLE_200
441 , a30 JTF_VARCHAR2_TABLE_200
442 , a31 JTF_VARCHAR2_TABLE_200
443 , a32 JTF_VARCHAR2_TABLE_200
444 , a33 JTF_VARCHAR2_TABLE_200
445 , a34 JTF_VARCHAR2_TABLE_200
446 , a35 JTF_VARCHAR2_TABLE_200
447 , a36 JTF_VARCHAR2_TABLE_200
448 ) as
449 ddindx binary_integer; indx binary_integer;
450 begin
451 if a0 is not null and a0.count > 0 then
452 if a0.count > 0 then
453 indx := a0.first;
454 ddindx := 1;
455 while true loop
456 t(ddindx).wip_transaction_detail_id := a0(indx);
457 t(ddindx).required_quantity := a1(indx);
458 t(ddindx).applied_quantity := a2(indx);
459 t(ddindx).pending_quantity := a3(indx);
460 t(ddindx).job_quantity := a4(indx);
461 t(ddindx).op_scheduled_quantity := a5(indx);
462 t(ddindx).basis_type := a6(indx);
463 t(ddindx).resource_id := a7(indx);
464 t(ddindx).resource_seq_num := a8(indx);
465 t(ddindx).wip_entity_id := a9(indx);
466 t(ddindx).organization_id := a10(indx);
467 t(ddindx).organization_code := a11(indx);
468 t(ddindx).operation_seq_num := a12(indx);
469 t(ddindx).transaction_quantity := a13(indx);
470 t(ddindx).transaction_uom := a14(indx);
471 t(ddindx).uom_code := a15(indx);
472 t(ddindx).wip_entity_name := a16(indx);
473 t(ddindx).employee_id := a17(indx);
474 t(ddindx).employee_num := a18(indx);
475 t(ddindx).object_version_number := a19(indx);
476 t(ddindx).new_row := a20(indx);
477 t(ddindx).attribute_category := a21(indx);
478 t(ddindx).attribute1 := a22(indx);
479 t(ddindx).attribute2 := a23(indx);
480 t(ddindx).attribute3 := a24(indx);
481 t(ddindx).attribute4 := a25(indx);
482 t(ddindx).attribute5 := a26(indx);
483 t(ddindx).attribute6 := a27(indx);
484 t(ddindx).attribute7 := a28(indx);
485 t(ddindx).attribute8 := a29(indx);
486 t(ddindx).attribute9 := a30(indx);
487 t(ddindx).attribute10 := a31(indx);
488 t(ddindx).attribute11 := a32(indx);
489 t(ddindx).attribute12 := a33(indx);
490 t(ddindx).attribute13 := a34(indx);
491 t(ddindx).attribute14 := a35(indx);
492 t(ddindx).attribute15 := a36(indx);
493 ddindx := ddindx+1;
494 if a0.last =indx
495 then exit;
496 end if;
497 indx := a0.next(indx);
498 end loop;
499 end if;
500 end if;
501 end rosetta_table_copy_in_p7;
502 procedure rosetta_table_copy_out_p7(t csd_hv_wip_job_pvt.res_txn_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
503 , a1 out nocopy JTF_NUMBER_TABLE
504 , a2 out nocopy JTF_NUMBER_TABLE
505 , a3 out nocopy JTF_NUMBER_TABLE
506 , a4 out nocopy JTF_NUMBER_TABLE
507 , a5 out nocopy JTF_NUMBER_TABLE
508 , a6 out nocopy JTF_NUMBER_TABLE
509 , a7 out nocopy JTF_NUMBER_TABLE
510 , a8 out nocopy JTF_NUMBER_TABLE
511 , a9 out nocopy JTF_NUMBER_TABLE
512 , a10 out nocopy JTF_NUMBER_TABLE
513 , a11 out nocopy JTF_VARCHAR2_TABLE_100
514 , a12 out nocopy JTF_NUMBER_TABLE
515 , a13 out nocopy JTF_NUMBER_TABLE
516 , a14 out nocopy JTF_VARCHAR2_TABLE_100
517 , a15 out nocopy JTF_VARCHAR2_TABLE_100
518 , a16 out nocopy JTF_VARCHAR2_TABLE_100
519 , a17 out nocopy JTF_NUMBER_TABLE
520 , a18 out nocopy JTF_VARCHAR2_TABLE_100
521 , a19 out nocopy JTF_NUMBER_TABLE
522 , a20 out nocopy JTF_VARCHAR2_TABLE_100
523 , a21 out nocopy JTF_VARCHAR2_TABLE_100
524 , a22 out nocopy JTF_VARCHAR2_TABLE_200
525 , a23 out nocopy JTF_VARCHAR2_TABLE_200
526 , a24 out nocopy JTF_VARCHAR2_TABLE_200
527 , a25 out nocopy JTF_VARCHAR2_TABLE_200
528 , a26 out nocopy JTF_VARCHAR2_TABLE_200
529 , a27 out nocopy JTF_VARCHAR2_TABLE_200
530 , a28 out nocopy JTF_VARCHAR2_TABLE_200
531 , a29 out nocopy JTF_VARCHAR2_TABLE_200
532 , a30 out nocopy JTF_VARCHAR2_TABLE_200
533 , a31 out nocopy JTF_VARCHAR2_TABLE_200
534 , a32 out nocopy JTF_VARCHAR2_TABLE_200
535 , a33 out nocopy JTF_VARCHAR2_TABLE_200
536 , a34 out nocopy JTF_VARCHAR2_TABLE_200
537 , a35 out nocopy JTF_VARCHAR2_TABLE_200
538 , a36 out nocopy JTF_VARCHAR2_TABLE_200
539 ) as
540 ddindx binary_integer; indx binary_integer;
541 begin
542 if t is null or t.count = 0 then
543 a0 := JTF_NUMBER_TABLE();
544 a1 := JTF_NUMBER_TABLE();
545 a2 := JTF_NUMBER_TABLE();
546 a3 := JTF_NUMBER_TABLE();
547 a4 := JTF_NUMBER_TABLE();
548 a5 := JTF_NUMBER_TABLE();
549 a6 := JTF_NUMBER_TABLE();
550 a7 := JTF_NUMBER_TABLE();
551 a8 := JTF_NUMBER_TABLE();
552 a9 := JTF_NUMBER_TABLE();
553 a10 := JTF_NUMBER_TABLE();
554 a11 := JTF_VARCHAR2_TABLE_100();
555 a12 := JTF_NUMBER_TABLE();
556 a13 := JTF_NUMBER_TABLE();
557 a14 := JTF_VARCHAR2_TABLE_100();
558 a15 := JTF_VARCHAR2_TABLE_100();
559 a16 := JTF_VARCHAR2_TABLE_100();
560 a17 := JTF_NUMBER_TABLE();
561 a18 := JTF_VARCHAR2_TABLE_100();
562 a19 := JTF_NUMBER_TABLE();
563 a20 := JTF_VARCHAR2_TABLE_100();
564 a21 := JTF_VARCHAR2_TABLE_100();
565 a22 := JTF_VARCHAR2_TABLE_200();
566 a23 := JTF_VARCHAR2_TABLE_200();
567 a24 := JTF_VARCHAR2_TABLE_200();
568 a25 := JTF_VARCHAR2_TABLE_200();
569 a26 := JTF_VARCHAR2_TABLE_200();
570 a27 := JTF_VARCHAR2_TABLE_200();
571 a28 := JTF_VARCHAR2_TABLE_200();
572 a29 := JTF_VARCHAR2_TABLE_200();
573 a30 := JTF_VARCHAR2_TABLE_200();
574 a31 := JTF_VARCHAR2_TABLE_200();
575 a32 := JTF_VARCHAR2_TABLE_200();
576 a33 := JTF_VARCHAR2_TABLE_200();
577 a34 := JTF_VARCHAR2_TABLE_200();
578 a35 := JTF_VARCHAR2_TABLE_200();
579 a36 := JTF_VARCHAR2_TABLE_200();
580 else
581 a0 := JTF_NUMBER_TABLE();
582 a1 := JTF_NUMBER_TABLE();
583 a2 := JTF_NUMBER_TABLE();
584 a3 := JTF_NUMBER_TABLE();
585 a4 := JTF_NUMBER_TABLE();
586 a5 := JTF_NUMBER_TABLE();
587 a6 := JTF_NUMBER_TABLE();
588 a7 := JTF_NUMBER_TABLE();
589 a8 := JTF_NUMBER_TABLE();
590 a9 := JTF_NUMBER_TABLE();
591 a10 := JTF_NUMBER_TABLE();
592 a11 := JTF_VARCHAR2_TABLE_100();
593 a12 := JTF_NUMBER_TABLE();
594 a13 := JTF_NUMBER_TABLE();
595 a14 := JTF_VARCHAR2_TABLE_100();
596 a15 := JTF_VARCHAR2_TABLE_100();
597 a16 := JTF_VARCHAR2_TABLE_100();
598 a17 := JTF_NUMBER_TABLE();
599 a18 := JTF_VARCHAR2_TABLE_100();
600 a19 := JTF_NUMBER_TABLE();
601 a20 := JTF_VARCHAR2_TABLE_100();
602 a21 := JTF_VARCHAR2_TABLE_100();
603 a22 := JTF_VARCHAR2_TABLE_200();
604 a23 := JTF_VARCHAR2_TABLE_200();
605 a24 := JTF_VARCHAR2_TABLE_200();
606 a25 := JTF_VARCHAR2_TABLE_200();
607 a26 := JTF_VARCHAR2_TABLE_200();
608 a27 := JTF_VARCHAR2_TABLE_200();
609 a28 := JTF_VARCHAR2_TABLE_200();
610 a29 := JTF_VARCHAR2_TABLE_200();
611 a30 := JTF_VARCHAR2_TABLE_200();
612 a31 := JTF_VARCHAR2_TABLE_200();
613 a32 := JTF_VARCHAR2_TABLE_200();
614 a33 := JTF_VARCHAR2_TABLE_200();
615 a34 := JTF_VARCHAR2_TABLE_200();
616 a35 := JTF_VARCHAR2_TABLE_200();
617 a36 := JTF_VARCHAR2_TABLE_200();
618 if t.count > 0 then
619 a0.extend(t.count);
620 a1.extend(t.count);
621 a2.extend(t.count);
622 a3.extend(t.count);
623 a4.extend(t.count);
624 a5.extend(t.count);
625 a6.extend(t.count);
626 a7.extend(t.count);
627 a8.extend(t.count);
628 a9.extend(t.count);
629 a10.extend(t.count);
630 a11.extend(t.count);
631 a12.extend(t.count);
632 a13.extend(t.count);
633 a14.extend(t.count);
634 a15.extend(t.count);
635 a16.extend(t.count);
636 a17.extend(t.count);
637 a18.extend(t.count);
638 a19.extend(t.count);
639 a20.extend(t.count);
640 a21.extend(t.count);
641 a22.extend(t.count);
642 a23.extend(t.count);
643 a24.extend(t.count);
644 a25.extend(t.count);
645 a26.extend(t.count);
646 a27.extend(t.count);
647 a28.extend(t.count);
648 a29.extend(t.count);
649 a30.extend(t.count);
650 a31.extend(t.count);
651 a32.extend(t.count);
652 a33.extend(t.count);
653 a34.extend(t.count);
654 a35.extend(t.count);
655 a36.extend(t.count);
656 ddindx := t.first;
657 indx := 1;
658 while true loop
659 a0(indx) := t(ddindx).wip_transaction_detail_id;
660 a1(indx) := t(ddindx).required_quantity;
661 a2(indx) := t(ddindx).applied_quantity;
662 a3(indx) := t(ddindx).pending_quantity;
663 a4(indx) := t(ddindx).job_quantity;
664 a5(indx) := t(ddindx).op_scheduled_quantity;
665 a6(indx) := t(ddindx).basis_type;
666 a7(indx) := t(ddindx).resource_id;
667 a8(indx) := t(ddindx).resource_seq_num;
668 a9(indx) := t(ddindx).wip_entity_id;
669 a10(indx) := t(ddindx).organization_id;
670 a11(indx) := t(ddindx).organization_code;
671 a12(indx) := t(ddindx).operation_seq_num;
672 a13(indx) := t(ddindx).transaction_quantity;
673 a14(indx) := t(ddindx).transaction_uom;
674 a15(indx) := t(ddindx).uom_code;
675 a16(indx) := t(ddindx).wip_entity_name;
676 a17(indx) := t(ddindx).employee_id;
677 a18(indx) := t(ddindx).employee_num;
678 a19(indx) := t(ddindx).object_version_number;
679 a20(indx) := t(ddindx).new_row;
680 a21(indx) := t(ddindx).attribute_category;
681 a22(indx) := t(ddindx).attribute1;
682 a23(indx) := t(ddindx).attribute2;
683 a24(indx) := t(ddindx).attribute3;
684 a25(indx) := t(ddindx).attribute4;
685 a26(indx) := t(ddindx).attribute5;
686 a27(indx) := t(ddindx).attribute6;
687 a28(indx) := t(ddindx).attribute7;
688 a29(indx) := t(ddindx).attribute8;
689 a30(indx) := t(ddindx).attribute9;
690 a31(indx) := t(ddindx).attribute10;
691 a32(indx) := t(ddindx).attribute11;
692 a33(indx) := t(ddindx).attribute12;
693 a34(indx) := t(ddindx).attribute13;
694 a35(indx) := t(ddindx).attribute14;
695 a36(indx) := t(ddindx).attribute15;
696 indx := indx+1;
697 if t.last =ddindx
698 then exit;
699 end if;
700 ddindx := t.next(ddindx);
701 end loop;
702 end if;
703 end if;
704 end rosetta_table_copy_out_p7;
705
706 procedure rosetta_table_copy_in_p9(t out nocopy csd_hv_wip_job_pvt.op_dtls_tbl_type, a0 JTF_NUMBER_TABLE
707 , a1 JTF_NUMBER_TABLE
708 , a2 JTF_NUMBER_TABLE
709 , a3 JTF_NUMBER_TABLE
710 , a4 JTF_VARCHAR2_TABLE_300
711 , a5 JTF_DATE_TABLE
712 , a6 JTF_DATE_TABLE
713 , a7 JTF_DATE_TABLE
714 , a8 JTF_DATE_TABLE
715 , a9 JTF_NUMBER_TABLE
716 , a10 JTF_NUMBER_TABLE
717 , a11 JTF_NUMBER_TABLE
718 , a12 JTF_NUMBER_TABLE
719 , a13 JTF_NUMBER_TABLE
720 , a14 JTF_VARCHAR2_TABLE_100
721 , a15 JTF_VARCHAR2_TABLE_100
722 , a16 JTF_NUMBER_TABLE
723 , a17 JTF_VARCHAR2_TABLE_100
724 , a18 JTF_VARCHAR2_TABLE_100
725 , a19 JTF_VARCHAR2_TABLE_200
726 , a20 JTF_VARCHAR2_TABLE_200
727 , a21 JTF_VARCHAR2_TABLE_200
728 , a22 JTF_VARCHAR2_TABLE_200
729 , a23 JTF_VARCHAR2_TABLE_200
730 , a24 JTF_VARCHAR2_TABLE_200
731 , a25 JTF_VARCHAR2_TABLE_200
732 , a26 JTF_VARCHAR2_TABLE_200
733 , a27 JTF_VARCHAR2_TABLE_200
734 , a28 JTF_VARCHAR2_TABLE_200
735 , a29 JTF_VARCHAR2_TABLE_200
736 , a30 JTF_VARCHAR2_TABLE_200
737 , a31 JTF_VARCHAR2_TABLE_200
738 , a32 JTF_VARCHAR2_TABLE_200
739 , a33 JTF_VARCHAR2_TABLE_200
740 ) as
741 ddindx binary_integer; indx binary_integer;
742 begin
743 if a0 is not null and a0.count > 0 then
744 if a0.count > 0 then
745 indx := a0.first;
746 ddindx := 1;
747 while true loop
748 t(ddindx).wip_transaction_detail_id := a0(indx);
749 t(ddindx).backflush_flag := a1(indx);
750 t(ddindx).count_point_type := a2(indx);
751 t(ddindx).department_id := a3(indx);
752 t(ddindx).description := a4(indx);
753 t(ddindx).first_unit_completion_date := a5(indx);
754 t(ddindx).first_unit_start_date := a6(indx);
755 t(ddindx).last_unit_completion_date := a7(indx);
756 t(ddindx).last_unit_start_date := a8(indx);
757 t(ddindx).minimum_transfer_quantity := a9(indx);
758 t(ddindx).operation_seq_num := a10(indx);
759 t(ddindx).standard_operation_id := a11(indx);
760 t(ddindx).wip_entity_id := a12(indx);
761 t(ddindx).organization_id := a13(indx);
762 t(ddindx).organization_code := a14(indx);
763 t(ddindx).wip_entity_name := a15(indx);
764 t(ddindx).object_version_number := a16(indx);
765 t(ddindx).new_row := a17(indx);
766 t(ddindx).attribute_category := a18(indx);
767 t(ddindx).attribute1 := a19(indx);
768 t(ddindx).attribute2 := a20(indx);
769 t(ddindx).attribute3 := a21(indx);
770 t(ddindx).attribute4 := a22(indx);
771 t(ddindx).attribute5 := a23(indx);
772 t(ddindx).attribute6 := a24(indx);
773 t(ddindx).attribute7 := a25(indx);
774 t(ddindx).attribute8 := a26(indx);
775 t(ddindx).attribute9 := a27(indx);
776 t(ddindx).attribute10 := a28(indx);
777 t(ddindx).attribute11 := a29(indx);
778 t(ddindx).attribute12 := a30(indx);
779 t(ddindx).attribute13 := a31(indx);
780 t(ddindx).attribute14 := a32(indx);
781 t(ddindx).attribute15 := a33(indx);
782 ddindx := ddindx+1;
783 if a0.last =indx
784 then exit;
785 end if;
786 indx := a0.next(indx);
787 end loop;
788 end if;
789 end if;
790 end rosetta_table_copy_in_p9;
791 procedure rosetta_table_copy_out_p9(t csd_hv_wip_job_pvt.op_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
792 , a1 out nocopy JTF_NUMBER_TABLE
793 , a2 out nocopy JTF_NUMBER_TABLE
794 , a3 out nocopy JTF_NUMBER_TABLE
795 , a4 out nocopy JTF_VARCHAR2_TABLE_300
796 , a5 out nocopy JTF_DATE_TABLE
797 , a6 out nocopy JTF_DATE_TABLE
798 , a7 out nocopy JTF_DATE_TABLE
799 , a8 out nocopy JTF_DATE_TABLE
800 , a9 out nocopy JTF_NUMBER_TABLE
801 , a10 out nocopy JTF_NUMBER_TABLE
802 , a11 out nocopy JTF_NUMBER_TABLE
803 , a12 out nocopy JTF_NUMBER_TABLE
804 , a13 out nocopy JTF_NUMBER_TABLE
805 , a14 out nocopy JTF_VARCHAR2_TABLE_100
806 , a15 out nocopy JTF_VARCHAR2_TABLE_100
807 , a16 out nocopy JTF_NUMBER_TABLE
808 , a17 out nocopy JTF_VARCHAR2_TABLE_100
809 , a18 out nocopy JTF_VARCHAR2_TABLE_100
810 , a19 out nocopy JTF_VARCHAR2_TABLE_200
811 , a20 out nocopy JTF_VARCHAR2_TABLE_200
812 , a21 out nocopy JTF_VARCHAR2_TABLE_200
813 , a22 out nocopy JTF_VARCHAR2_TABLE_200
814 , a23 out nocopy JTF_VARCHAR2_TABLE_200
815 , a24 out nocopy JTF_VARCHAR2_TABLE_200
816 , a25 out nocopy JTF_VARCHAR2_TABLE_200
817 , a26 out nocopy JTF_VARCHAR2_TABLE_200
818 , a27 out nocopy JTF_VARCHAR2_TABLE_200
819 , a28 out nocopy JTF_VARCHAR2_TABLE_200
820 , a29 out nocopy JTF_VARCHAR2_TABLE_200
821 , a30 out nocopy JTF_VARCHAR2_TABLE_200
822 , a31 out nocopy JTF_VARCHAR2_TABLE_200
823 , a32 out nocopy JTF_VARCHAR2_TABLE_200
824 , a33 out nocopy JTF_VARCHAR2_TABLE_200
825 ) as
826 ddindx binary_integer; indx binary_integer;
827 begin
828 if t is null or t.count = 0 then
829 a0 := JTF_NUMBER_TABLE();
830 a1 := JTF_NUMBER_TABLE();
831 a2 := JTF_NUMBER_TABLE();
832 a3 := JTF_NUMBER_TABLE();
833 a4 := JTF_VARCHAR2_TABLE_300();
834 a5 := JTF_DATE_TABLE();
835 a6 := JTF_DATE_TABLE();
836 a7 := JTF_DATE_TABLE();
837 a8 := JTF_DATE_TABLE();
838 a9 := JTF_NUMBER_TABLE();
839 a10 := JTF_NUMBER_TABLE();
840 a11 := JTF_NUMBER_TABLE();
841 a12 := JTF_NUMBER_TABLE();
842 a13 := JTF_NUMBER_TABLE();
843 a14 := JTF_VARCHAR2_TABLE_100();
844 a15 := JTF_VARCHAR2_TABLE_100();
845 a16 := JTF_NUMBER_TABLE();
846 a17 := JTF_VARCHAR2_TABLE_100();
847 a18 := JTF_VARCHAR2_TABLE_100();
848 a19 := JTF_VARCHAR2_TABLE_200();
849 a20 := JTF_VARCHAR2_TABLE_200();
850 a21 := JTF_VARCHAR2_TABLE_200();
851 a22 := JTF_VARCHAR2_TABLE_200();
852 a23 := JTF_VARCHAR2_TABLE_200();
853 a24 := JTF_VARCHAR2_TABLE_200();
854 a25 := JTF_VARCHAR2_TABLE_200();
855 a26 := JTF_VARCHAR2_TABLE_200();
856 a27 := JTF_VARCHAR2_TABLE_200();
857 a28 := JTF_VARCHAR2_TABLE_200();
858 a29 := JTF_VARCHAR2_TABLE_200();
859 a30 := JTF_VARCHAR2_TABLE_200();
860 a31 := JTF_VARCHAR2_TABLE_200();
861 a32 := JTF_VARCHAR2_TABLE_200();
862 a33 := JTF_VARCHAR2_TABLE_200();
863 else
864 a0 := JTF_NUMBER_TABLE();
865 a1 := JTF_NUMBER_TABLE();
866 a2 := JTF_NUMBER_TABLE();
867 a3 := JTF_NUMBER_TABLE();
868 a4 := JTF_VARCHAR2_TABLE_300();
869 a5 := JTF_DATE_TABLE();
870 a6 := JTF_DATE_TABLE();
871 a7 := JTF_DATE_TABLE();
872 a8 := JTF_DATE_TABLE();
873 a9 := JTF_NUMBER_TABLE();
874 a10 := JTF_NUMBER_TABLE();
875 a11 := JTF_NUMBER_TABLE();
876 a12 := JTF_NUMBER_TABLE();
877 a13 := JTF_NUMBER_TABLE();
878 a14 := JTF_VARCHAR2_TABLE_100();
879 a15 := JTF_VARCHAR2_TABLE_100();
880 a16 := JTF_NUMBER_TABLE();
881 a17 := JTF_VARCHAR2_TABLE_100();
882 a18 := JTF_VARCHAR2_TABLE_100();
883 a19 := JTF_VARCHAR2_TABLE_200();
884 a20 := JTF_VARCHAR2_TABLE_200();
885 a21 := JTF_VARCHAR2_TABLE_200();
886 a22 := JTF_VARCHAR2_TABLE_200();
887 a23 := JTF_VARCHAR2_TABLE_200();
888 a24 := JTF_VARCHAR2_TABLE_200();
889 a25 := JTF_VARCHAR2_TABLE_200();
890 a26 := JTF_VARCHAR2_TABLE_200();
891 a27 := JTF_VARCHAR2_TABLE_200();
892 a28 := JTF_VARCHAR2_TABLE_200();
893 a29 := JTF_VARCHAR2_TABLE_200();
894 a30 := JTF_VARCHAR2_TABLE_200();
895 a31 := JTF_VARCHAR2_TABLE_200();
896 a32 := JTF_VARCHAR2_TABLE_200();
897 a33 := JTF_VARCHAR2_TABLE_200();
898 if t.count > 0 then
899 a0.extend(t.count);
900 a1.extend(t.count);
901 a2.extend(t.count);
902 a3.extend(t.count);
903 a4.extend(t.count);
904 a5.extend(t.count);
905 a6.extend(t.count);
906 a7.extend(t.count);
907 a8.extend(t.count);
908 a9.extend(t.count);
909 a10.extend(t.count);
910 a11.extend(t.count);
911 a12.extend(t.count);
912 a13.extend(t.count);
913 a14.extend(t.count);
914 a15.extend(t.count);
915 a16.extend(t.count);
916 a17.extend(t.count);
917 a18.extend(t.count);
918 a19.extend(t.count);
919 a20.extend(t.count);
920 a21.extend(t.count);
921 a22.extend(t.count);
922 a23.extend(t.count);
923 a24.extend(t.count);
924 a25.extend(t.count);
925 a26.extend(t.count);
926 a27.extend(t.count);
927 a28.extend(t.count);
928 a29.extend(t.count);
929 a30.extend(t.count);
930 a31.extend(t.count);
931 a32.extend(t.count);
932 a33.extend(t.count);
933 ddindx := t.first;
934 indx := 1;
935 while true loop
936 a0(indx) := t(ddindx).wip_transaction_detail_id;
937 a1(indx) := t(ddindx).backflush_flag;
938 a2(indx) := t(ddindx).count_point_type;
939 a3(indx) := t(ddindx).department_id;
940 a4(indx) := t(ddindx).description;
941 a5(indx) := t(ddindx).first_unit_completion_date;
942 a6(indx) := t(ddindx).first_unit_start_date;
943 a7(indx) := t(ddindx).last_unit_completion_date;
944 a8(indx) := t(ddindx).last_unit_start_date;
945 a9(indx) := t(ddindx).minimum_transfer_quantity;
946 a10(indx) := t(ddindx).operation_seq_num;
947 a11(indx) := t(ddindx).standard_operation_id;
948 a12(indx) := t(ddindx).wip_entity_id;
949 a13(indx) := t(ddindx).organization_id;
950 a14(indx) := t(ddindx).organization_code;
951 a15(indx) := t(ddindx).wip_entity_name;
952 a16(indx) := t(ddindx).object_version_number;
953 a17(indx) := t(ddindx).new_row;
954 a18(indx) := t(ddindx).attribute_category;
955 a19(indx) := t(ddindx).attribute1;
956 a20(indx) := t(ddindx).attribute2;
957 a21(indx) := t(ddindx).attribute3;
958 a22(indx) := t(ddindx).attribute4;
959 a23(indx) := t(ddindx).attribute5;
960 a24(indx) := t(ddindx).attribute6;
961 a25(indx) := t(ddindx).attribute7;
962 a26(indx) := t(ddindx).attribute8;
963 a27(indx) := t(ddindx).attribute9;
964 a28(indx) := t(ddindx).attribute10;
965 a29(indx) := t(ddindx).attribute11;
966 a30(indx) := t(ddindx).attribute12;
967 a31(indx) := t(ddindx).attribute13;
968 a32(indx) := t(ddindx).attribute14;
969 a33(indx) := t(ddindx).attribute15;
970 indx := indx+1;
971 if t.last =ddindx
972 then exit;
973 end if;
974 ddindx := t.next(ddindx);
975 end loop;
976 end if;
977 end if;
978 end rosetta_table_copy_out_p9;
979
980 procedure rosetta_table_copy_in_p11(t out nocopy csd_hv_wip_job_pvt.service_code_tbl_type, a0 JTF_NUMBER_TABLE
981 , a1 JTF_NUMBER_TABLE
982 , a2 JTF_NUMBER_TABLE
983 , a3 JTF_NUMBER_TABLE
984 ) as
985 ddindx binary_integer; indx binary_integer;
986 begin
987 if a0 is not null and a0.count > 0 then
988 if a0.count > 0 then
989 indx := a0.first;
990 ddindx := 1;
991 while true loop
992 t(ddindx).ro_service_code_id := a0(indx);
993 t(ddindx).inventory_item_id := a1(indx);
994 t(ddindx).service_code_id := a2(indx);
995 t(ddindx).object_version_number := a3(indx);
996 ddindx := ddindx+1;
997 if a0.last =indx
998 then exit;
999 end if;
1000 indx := a0.next(indx);
1001 end loop;
1002 end if;
1003 end if;
1004 end rosetta_table_copy_in_p11;
1005 procedure rosetta_table_copy_out_p11(t csd_hv_wip_job_pvt.service_code_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1006 , a1 out nocopy JTF_NUMBER_TABLE
1007 , a2 out nocopy JTF_NUMBER_TABLE
1008 , a3 out nocopy JTF_NUMBER_TABLE
1009 ) as
1010 ddindx binary_integer; indx binary_integer;
1011 begin
1012 if t is null or t.count = 0 then
1013 a0 := JTF_NUMBER_TABLE();
1014 a1 := JTF_NUMBER_TABLE();
1015 a2 := JTF_NUMBER_TABLE();
1016 a3 := JTF_NUMBER_TABLE();
1017 else
1018 a0 := JTF_NUMBER_TABLE();
1019 a1 := JTF_NUMBER_TABLE();
1020 a2 := JTF_NUMBER_TABLE();
1021 a3 := JTF_NUMBER_TABLE();
1022 if t.count > 0 then
1023 a0.extend(t.count);
1024 a1.extend(t.count);
1025 a2.extend(t.count);
1026 a3.extend(t.count);
1027 ddindx := t.first;
1028 indx := 1;
1029 while true loop
1030 a0(indx) := t(ddindx).ro_service_code_id;
1031 a1(indx) := t(ddindx).inventory_item_id;
1032 a2(indx) := t(ddindx).service_code_id;
1033 a3(indx) := t(ddindx).object_version_number;
1034 indx := indx+1;
1035 if t.last =ddindx
1036 then exit;
1037 end if;
1038 ddindx := t.next(ddindx);
1039 end loop;
1040 end if;
1041 end if;
1042 end rosetta_table_copy_out_p11;
1043
1044 procedure process_oper_comp_txn(p_api_version_number NUMBER
1045 , p_init_msg_list VARCHAR2
1046 , p_commit VARCHAR2
1047 , p_validation_level NUMBER
1048 , x_return_status out nocopy VARCHAR2
1049 , x_msg_count out nocopy NUMBER
1050 , x_msg_data out nocopy VARCHAR2
1051 , p7_a0 JTF_VARCHAR2_TABLE_300
1052 , p7_a1 JTF_NUMBER_TABLE
1053 , p7_a2 JTF_NUMBER_TABLE
1054 , p7_a3 JTF_NUMBER_TABLE
1055 , p7_a4 JTF_NUMBER_TABLE
1056 , p7_a5 JTF_VARCHAR2_TABLE_100
1057 , p7_a6 JTF_NUMBER_TABLE
1058 )
1059
1060 as
1061 ddp_mv_txn_dtls_tbl csd_hv_wip_job_pvt.mv_txn_dtls_tbl_type;
1062 ddindx binary_integer; indx binary_integer;
1063 begin
1064
1065 -- copy data to the local IN or IN-OUT args, if any
1066
1067
1068
1069
1070
1071
1072
1073 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p3(ddp_mv_txn_dtls_tbl, p7_a0
1074 , p7_a1
1075 , p7_a2
1076 , p7_a3
1077 , p7_a4
1078 , p7_a5
1079 , p7_a6
1080 );
1081
1082 -- here's the delegated call to the old PL/SQL routine
1083 csd_hv_wip_job_pvt.process_oper_comp_txn(p_api_version_number,
1084 p_init_msg_list,
1085 p_commit,
1086 p_validation_level,
1087 x_return_status,
1088 x_msg_count,
1089 x_msg_data,
1090 ddp_mv_txn_dtls_tbl);
1091
1092 -- copy data back from the local variables to OUT or IN-OUT args, if any
1093
1094
1095
1096
1097
1098
1099
1100 end;
1101
1102 procedure process_job_comp_txn(p_api_version_number NUMBER
1103 , p_init_msg_list VARCHAR2
1104 , p_commit VARCHAR2
1105 , p_validation_level NUMBER
1106 , x_return_status out nocopy VARCHAR2
1107 , x_msg_count out nocopy NUMBER
1108 , x_msg_data out nocopy VARCHAR2
1109 , p7_a0 NUMBER
1110 , p7_a1 NUMBER
1111 , p7_a2 NUMBER
1112 , p7_a3 NUMBER
1113 , p7_a4 VARCHAR2
1114 , p7_a5 NUMBER
1115 , p7_a6 VARCHAR2
1116 , p7_a7 NUMBER
1117 , p7_a8 NUMBER
1118 , p7_a9 NUMBER
1119 , x_transaction_header_id out nocopy NUMBER
1120 )
1121
1122 as
1123 ddp_comp_job_dtls_rec csd_hv_wip_job_pvt.job_dtls_rec_type;
1124 ddindx binary_integer; indx binary_integer;
1125 begin
1126
1127 -- copy data to the local IN or IN-OUT args, if any
1128
1129
1130
1131
1132
1133
1134
1135 ddp_comp_job_dtls_rec.wip_entity_id := p7_a0;
1136 ddp_comp_job_dtls_rec.inventory_item_id := p7_a1;
1137 ddp_comp_job_dtls_rec.organization_id := p7_a2;
1138 ddp_comp_job_dtls_rec.transaction_quantity := p7_a3;
1139 ddp_comp_job_dtls_rec.completion_subinventory := p7_a4;
1140 ddp_comp_job_dtls_rec.completion_locator_id := p7_a5;
1141 ddp_comp_job_dtls_rec.transaction_uom := p7_a6;
1142 ddp_comp_job_dtls_rec.revision_qty_control_code := p7_a7;
1143 ddp_comp_job_dtls_rec.serial_number_control_code := p7_a8;
1144 ddp_comp_job_dtls_rec.lot_control_code := p7_a9;
1145
1146
1147 -- here's the delegated call to the old PL/SQL routine
1148 csd_hv_wip_job_pvt.process_job_comp_txn(p_api_version_number,
1149 p_init_msg_list,
1150 p_commit,
1151 p_validation_level,
1152 x_return_status,
1153 x_msg_count,
1154 x_msg_data,
1155 ddp_comp_job_dtls_rec,
1156 x_transaction_header_id);
1157
1158 -- copy data back from the local variables to OUT or IN-OUT args, if any
1159
1160
1161
1162
1163
1164
1165
1166
1167 end;
1168
1169 procedure insert_job_comp_txn(p_api_version_number NUMBER
1170 , p_init_msg_list VARCHAR2
1171 , p_commit VARCHAR2
1172 , p_validation_level NUMBER
1173 , x_return_status out nocopy VARCHAR2
1174 , x_msg_count out nocopy NUMBER
1175 , x_msg_data out nocopy VARCHAR2
1176 , p7_a0 NUMBER
1177 , p7_a1 NUMBER
1178 , p7_a2 NUMBER
1179 , p7_a3 NUMBER
1180 , p7_a4 VARCHAR2
1181 , p7_a5 NUMBER
1182 , p7_a6 VARCHAR2
1183 , p7_a7 NUMBER
1184 , p7_a8 NUMBER
1185 , p7_a9 NUMBER
1186 , x_need_details_flag out nocopy VARCHAR2
1187 , x_transaction_header_id out nocopy NUMBER
1188 )
1189
1190 as
1191 ddp_comp_job_dtls_rec csd_hv_wip_job_pvt.job_dtls_rec_type;
1192 ddindx binary_integer; indx binary_integer;
1193 begin
1194
1195 -- copy data to the local IN or IN-OUT args, if any
1196
1197
1198
1199
1200
1201
1202
1203 ddp_comp_job_dtls_rec.wip_entity_id := p7_a0;
1204 ddp_comp_job_dtls_rec.inventory_item_id := p7_a1;
1205 ddp_comp_job_dtls_rec.organization_id := p7_a2;
1206 ddp_comp_job_dtls_rec.transaction_quantity := p7_a3;
1207 ddp_comp_job_dtls_rec.completion_subinventory := p7_a4;
1208 ddp_comp_job_dtls_rec.completion_locator_id := p7_a5;
1209 ddp_comp_job_dtls_rec.transaction_uom := p7_a6;
1210 ddp_comp_job_dtls_rec.revision_qty_control_code := p7_a7;
1211 ddp_comp_job_dtls_rec.serial_number_control_code := p7_a8;
1212 ddp_comp_job_dtls_rec.lot_control_code := p7_a9;
1213
1214
1215
1216 -- here's the delegated call to the old PL/SQL routine
1217 csd_hv_wip_job_pvt.insert_job_comp_txn(p_api_version_number,
1218 p_init_msg_list,
1219 p_commit,
1220 p_validation_level,
1221 x_return_status,
1222 x_msg_count,
1223 x_msg_data,
1224 ddp_comp_job_dtls_rec,
1225 x_need_details_flag,
1226 x_transaction_header_id);
1227
1228 -- copy data back from the local variables to OUT or IN-OUT args, if any
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238 end;
1239
1240 procedure process_issue_mtl_txn(p_api_version_number NUMBER
1241 , p_init_msg_list VARCHAR2
1242 , p_commit VARCHAR2
1243 , p_validation_level NUMBER
1244 , x_return_status out nocopy VARCHAR2
1245 , x_msg_count out nocopy NUMBER
1246 , x_msg_data out nocopy VARCHAR2
1247 , p7_a0 JTF_NUMBER_TABLE
1248 , p7_a1 JTF_NUMBER_TABLE
1249 , p7_a2 JTF_NUMBER_TABLE
1250 , p7_a3 JTF_NUMBER_TABLE
1251 , p7_a4 JTF_NUMBER_TABLE
1252 , p7_a5 JTF_NUMBER_TABLE
1253 , p7_a6 JTF_NUMBER_TABLE
1254 , p7_a7 JTF_NUMBER_TABLE
1255 , p7_a8 JTF_NUMBER_TABLE
1256 , p7_a9 JTF_NUMBER_TABLE
1257 , p7_a10 JTF_VARCHAR2_TABLE_100
1258 , p7_a11 JTF_VARCHAR2_TABLE_100
1259 , p7_a12 JTF_VARCHAR2_TABLE_100
1260 , p7_a13 JTF_VARCHAR2_TABLE_100
1261 , p7_a14 JTF_VARCHAR2_TABLE_100
1262 , p7_a15 JTF_NUMBER_TABLE
1263 , p7_a16 JTF_NUMBER_TABLE
1264 , p7_a17 JTF_NUMBER_TABLE
1265 , p7_a18 JTF_VARCHAR2_TABLE_100
1266 , p7_a19 JTF_NUMBER_TABLE
1267 , p7_a20 JTF_NUMBER_TABLE
1268 , p7_a21 JTF_NUMBER_TABLE
1269 , p7_a22 JTF_VARCHAR2_TABLE_100
1270 , p7_a23 JTF_NUMBER_TABLE
1271 , p7_a24 JTF_VARCHAR2_TABLE_100
1272 , p7_a25 JTF_VARCHAR2_TABLE_200
1273 , p7_a26 JTF_VARCHAR2_TABLE_200
1274 , p7_a27 JTF_VARCHAR2_TABLE_200
1275 , p7_a28 JTF_VARCHAR2_TABLE_200
1276 , p7_a29 JTF_VARCHAR2_TABLE_200
1277 , p7_a30 JTF_VARCHAR2_TABLE_200
1278 , p7_a31 JTF_VARCHAR2_TABLE_200
1279 , p7_a32 JTF_VARCHAR2_TABLE_200
1280 , p7_a33 JTF_VARCHAR2_TABLE_200
1281 , p7_a34 JTF_VARCHAR2_TABLE_200
1282 , p7_a35 JTF_VARCHAR2_TABLE_200
1283 , p7_a36 JTF_VARCHAR2_TABLE_200
1284 , p7_a37 JTF_VARCHAR2_TABLE_200
1285 , p7_a38 JTF_VARCHAR2_TABLE_200
1286 , p7_a39 JTF_VARCHAR2_TABLE_200
1287 , p7_a40 JTF_VARCHAR2_TABLE_100
1288 , x_transaction_header_id out nocopy NUMBER
1289 )
1290
1291 as
1292 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1293 ddindx binary_integer; indx binary_integer;
1294 begin
1295
1296 -- copy data to the local IN or IN-OUT args, if any
1297
1298
1299
1300
1301
1302
1303
1304 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1305 , p7_a1
1306 , p7_a2
1307 , p7_a3
1308 , p7_a4
1309 , p7_a5
1310 , p7_a6
1311 , p7_a7
1312 , p7_a8
1313 , p7_a9
1314 , p7_a10
1315 , p7_a11
1316 , p7_a12
1317 , p7_a13
1318 , p7_a14
1319 , p7_a15
1320 , p7_a16
1321 , p7_a17
1322 , p7_a18
1323 , p7_a19
1324 , p7_a20
1325 , p7_a21
1326 , p7_a22
1327 , p7_a23
1328 , p7_a24
1329 , p7_a25
1330 , p7_a26
1331 , p7_a27
1332 , p7_a28
1333 , p7_a29
1334 , p7_a30
1335 , p7_a31
1336 , p7_a32
1337 , p7_a33
1338 , p7_a34
1339 , p7_a35
1340 , p7_a36
1341 , p7_a37
1342 , p7_a38
1343 , p7_a39
1344 , p7_a40
1345 );
1346
1347
1348 -- here's the delegated call to the old PL/SQL routine
1349 csd_hv_wip_job_pvt.process_issue_mtl_txn(p_api_version_number,
1350 p_init_msg_list,
1351 p_commit,
1352 p_validation_level,
1353 x_return_status,
1354 x_msg_count,
1355 x_msg_data,
1356 ddp_mtl_txn_dtls_tbl,
1357 x_transaction_header_id);
1358
1359 -- copy data back from the local variables to OUT or IN-OUT args, if any
1360
1361
1362
1363
1364
1365
1366
1367
1368 end;
1369
1370 procedure process_issue_mtl_txns_lot_srl(p_api_version_number NUMBER
1371 , p_init_msg_list VARCHAR2
1372 , p_commit VARCHAR2
1373 , p_validation_level NUMBER
1374 , x_return_status out nocopy VARCHAR2
1375 , x_msg_count out nocopy NUMBER
1376 , x_msg_data out nocopy VARCHAR2
1377 , p7_a0 JTF_NUMBER_TABLE
1378 , p7_a1 JTF_NUMBER_TABLE
1379 , p7_a2 JTF_NUMBER_TABLE
1380 , p7_a3 JTF_NUMBER_TABLE
1381 , p7_a4 JTF_NUMBER_TABLE
1382 , p7_a5 JTF_NUMBER_TABLE
1383 , p7_a6 JTF_NUMBER_TABLE
1384 , p7_a7 JTF_NUMBER_TABLE
1385 , p7_a8 JTF_NUMBER_TABLE
1386 , p7_a9 JTF_NUMBER_TABLE
1387 , p7_a10 JTF_VARCHAR2_TABLE_100
1388 , p7_a11 JTF_VARCHAR2_TABLE_100
1389 , p7_a12 JTF_VARCHAR2_TABLE_100
1390 , p7_a13 JTF_VARCHAR2_TABLE_100
1391 , p7_a14 JTF_VARCHAR2_TABLE_100
1392 , p7_a15 JTF_NUMBER_TABLE
1393 , p7_a16 JTF_NUMBER_TABLE
1394 , p7_a17 JTF_NUMBER_TABLE
1395 , p7_a18 JTF_VARCHAR2_TABLE_100
1396 , p7_a19 JTF_NUMBER_TABLE
1397 , p7_a20 JTF_NUMBER_TABLE
1398 , p7_a21 JTF_NUMBER_TABLE
1399 , p7_a22 JTF_VARCHAR2_TABLE_100
1400 , p7_a23 JTF_NUMBER_TABLE
1401 , p7_a24 JTF_VARCHAR2_TABLE_100
1402 , p7_a25 JTF_VARCHAR2_TABLE_200
1403 , p7_a26 JTF_VARCHAR2_TABLE_200
1404 , p7_a27 JTF_VARCHAR2_TABLE_200
1405 , p7_a28 JTF_VARCHAR2_TABLE_200
1406 , p7_a29 JTF_VARCHAR2_TABLE_200
1407 , p7_a30 JTF_VARCHAR2_TABLE_200
1408 , p7_a31 JTF_VARCHAR2_TABLE_200
1409 , p7_a32 JTF_VARCHAR2_TABLE_200
1410 , p7_a33 JTF_VARCHAR2_TABLE_200
1411 , p7_a34 JTF_VARCHAR2_TABLE_200
1412 , p7_a35 JTF_VARCHAR2_TABLE_200
1413 , p7_a36 JTF_VARCHAR2_TABLE_200
1414 , p7_a37 JTF_VARCHAR2_TABLE_200
1415 , p7_a38 JTF_VARCHAR2_TABLE_200
1416 , p7_a39 JTF_VARCHAR2_TABLE_200
1417 , p7_a40 JTF_VARCHAR2_TABLE_100
1418 , p_transaction_header_id NUMBER
1419 )
1420
1421 as
1422 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1423 ddindx binary_integer; indx binary_integer;
1424 begin
1425
1426 -- copy data to the local IN or IN-OUT args, if any
1427
1428
1429
1430
1431
1432
1433
1434 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1435 , p7_a1
1436 , p7_a2
1437 , p7_a3
1438 , p7_a4
1439 , p7_a5
1440 , p7_a6
1441 , p7_a7
1442 , p7_a8
1443 , p7_a9
1444 , p7_a10
1445 , p7_a11
1446 , p7_a12
1447 , p7_a13
1448 , p7_a14
1449 , p7_a15
1450 , p7_a16
1451 , p7_a17
1452 , p7_a18
1453 , p7_a19
1454 , p7_a20
1455 , p7_a21
1456 , p7_a22
1457 , p7_a23
1458 , p7_a24
1459 , p7_a25
1460 , p7_a26
1461 , p7_a27
1462 , p7_a28
1463 , p7_a29
1464 , p7_a30
1465 , p7_a31
1466 , p7_a32
1467 , p7_a33
1468 , p7_a34
1469 , p7_a35
1470 , p7_a36
1471 , p7_a37
1472 , p7_a38
1473 , p7_a39
1474 , p7_a40
1475 );
1476
1477
1478 -- here's the delegated call to the old PL/SQL routine
1479 csd_hv_wip_job_pvt.process_issue_mtl_txns_lot_srl(p_api_version_number,
1480 p_init_msg_list,
1481 p_commit,
1482 p_validation_level,
1483 x_return_status,
1484 x_msg_count,
1485 x_msg_data,
1486 ddp_mtl_txn_dtls_tbl,
1487 p_transaction_header_id);
1488
1489 -- copy data back from the local variables to OUT or IN-OUT args, if any
1490
1491
1492
1493
1494
1495
1496
1497
1498 end;
1499
1500 procedure update_mtl_txns_lot_srl(p_api_version_number NUMBER
1501 , p_init_msg_list VARCHAR2
1502 , p_commit VARCHAR2
1503 , p_validation_level NUMBER
1504 , x_return_status out nocopy VARCHAR2
1505 , x_msg_count out nocopy NUMBER
1506 , x_msg_data out nocopy VARCHAR2
1507 , p7_a0 JTF_NUMBER_TABLE
1508 , p7_a1 JTF_NUMBER_TABLE
1509 , p7_a2 JTF_NUMBER_TABLE
1510 , p7_a3 JTF_NUMBER_TABLE
1511 , p7_a4 JTF_NUMBER_TABLE
1512 , p7_a5 JTF_NUMBER_TABLE
1513 , p7_a6 JTF_NUMBER_TABLE
1514 , p7_a7 JTF_NUMBER_TABLE
1515 , p7_a8 JTF_NUMBER_TABLE
1516 , p7_a9 JTF_NUMBER_TABLE
1517 , p7_a10 JTF_VARCHAR2_TABLE_100
1518 , p7_a11 JTF_VARCHAR2_TABLE_100
1519 , p7_a12 JTF_VARCHAR2_TABLE_100
1520 , p7_a13 JTF_VARCHAR2_TABLE_100
1521 , p7_a14 JTF_VARCHAR2_TABLE_100
1522 , p7_a15 JTF_NUMBER_TABLE
1523 , p7_a16 JTF_NUMBER_TABLE
1524 , p7_a17 JTF_NUMBER_TABLE
1525 , p7_a18 JTF_VARCHAR2_TABLE_100
1526 , p7_a19 JTF_NUMBER_TABLE
1527 , p7_a20 JTF_NUMBER_TABLE
1528 , p7_a21 JTF_NUMBER_TABLE
1529 , p7_a22 JTF_VARCHAR2_TABLE_100
1530 , p7_a23 JTF_NUMBER_TABLE
1531 , p7_a24 JTF_VARCHAR2_TABLE_100
1532 , p7_a25 JTF_VARCHAR2_TABLE_200
1533 , p7_a26 JTF_VARCHAR2_TABLE_200
1534 , p7_a27 JTF_VARCHAR2_TABLE_200
1535 , p7_a28 JTF_VARCHAR2_TABLE_200
1536 , p7_a29 JTF_VARCHAR2_TABLE_200
1537 , p7_a30 JTF_VARCHAR2_TABLE_200
1538 , p7_a31 JTF_VARCHAR2_TABLE_200
1539 , p7_a32 JTF_VARCHAR2_TABLE_200
1540 , p7_a33 JTF_VARCHAR2_TABLE_200
1541 , p7_a34 JTF_VARCHAR2_TABLE_200
1542 , p7_a35 JTF_VARCHAR2_TABLE_200
1543 , p7_a36 JTF_VARCHAR2_TABLE_200
1544 , p7_a37 JTF_VARCHAR2_TABLE_200
1545 , p7_a38 JTF_VARCHAR2_TABLE_200
1546 , p7_a39 JTF_VARCHAR2_TABLE_200
1547 , p7_a40 JTF_VARCHAR2_TABLE_100
1548 , p_transaction_header_id NUMBER
1549 )
1550
1551 as
1552 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1553 ddindx binary_integer; indx binary_integer;
1554 begin
1555
1556 -- copy data to the local IN or IN-OUT args, if any
1557
1558
1559
1560
1561
1562
1563
1564 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1565 , p7_a1
1566 , p7_a2
1567 , p7_a3
1568 , p7_a4
1569 , p7_a5
1570 , p7_a6
1571 , p7_a7
1572 , p7_a8
1573 , p7_a9
1574 , p7_a10
1575 , p7_a11
1576 , p7_a12
1577 , p7_a13
1578 , p7_a14
1579 , p7_a15
1580 , p7_a16
1581 , p7_a17
1582 , p7_a18
1583 , p7_a19
1584 , p7_a20
1585 , p7_a21
1586 , p7_a22
1587 , p7_a23
1588 , p7_a24
1589 , p7_a25
1590 , p7_a26
1591 , p7_a27
1592 , p7_a28
1593 , p7_a29
1594 , p7_a30
1595 , p7_a31
1596 , p7_a32
1597 , p7_a33
1598 , p7_a34
1599 , p7_a35
1600 , p7_a36
1601 , p7_a37
1602 , p7_a38
1603 , p7_a39
1604 , p7_a40
1605 );
1606
1607
1608 -- here's the delegated call to the old PL/SQL routine
1609 csd_hv_wip_job_pvt.update_mtl_txns_lot_srl(p_api_version_number,
1610 p_init_msg_list,
1611 p_commit,
1612 p_validation_level,
1613 x_return_status,
1614 x_msg_count,
1615 x_msg_data,
1616 ddp_mtl_txn_dtls_tbl,
1617 p_transaction_header_id);
1618
1619 -- copy data back from the local variables to OUT or IN-OUT args, if any
1620
1621
1622
1623
1624
1625
1626
1627
1628 end;
1629
1630 procedure process_transact_res_txn(p_api_version_number NUMBER
1631 , p_init_msg_list VARCHAR2
1632 , p_commit VARCHAR2
1633 , p_validation_level NUMBER
1634 , x_return_status out nocopy VARCHAR2
1635 , x_msg_count out nocopy NUMBER
1636 , x_msg_data out nocopy VARCHAR2
1637 , p7_a0 JTF_NUMBER_TABLE
1638 , p7_a1 JTF_NUMBER_TABLE
1639 , p7_a2 JTF_NUMBER_TABLE
1640 , p7_a3 JTF_NUMBER_TABLE
1641 , p7_a4 JTF_NUMBER_TABLE
1642 , p7_a5 JTF_NUMBER_TABLE
1643 , p7_a6 JTF_NUMBER_TABLE
1644 , p7_a7 JTF_NUMBER_TABLE
1645 , p7_a8 JTF_NUMBER_TABLE
1646 , p7_a9 JTF_NUMBER_TABLE
1647 , p7_a10 JTF_NUMBER_TABLE
1648 , p7_a11 JTF_VARCHAR2_TABLE_100
1649 , p7_a12 JTF_NUMBER_TABLE
1650 , p7_a13 JTF_NUMBER_TABLE
1651 , p7_a14 JTF_VARCHAR2_TABLE_100
1652 , p7_a15 JTF_VARCHAR2_TABLE_100
1653 , p7_a16 JTF_VARCHAR2_TABLE_100
1654 , p7_a17 JTF_NUMBER_TABLE
1655 , p7_a18 JTF_VARCHAR2_TABLE_100
1656 , p7_a19 JTF_NUMBER_TABLE
1657 , p7_a20 JTF_VARCHAR2_TABLE_100
1658 , p7_a21 JTF_VARCHAR2_TABLE_100
1659 , p7_a22 JTF_VARCHAR2_TABLE_200
1660 , p7_a23 JTF_VARCHAR2_TABLE_200
1661 , p7_a24 JTF_VARCHAR2_TABLE_200
1662 , p7_a25 JTF_VARCHAR2_TABLE_200
1663 , p7_a26 JTF_VARCHAR2_TABLE_200
1664 , p7_a27 JTF_VARCHAR2_TABLE_200
1665 , p7_a28 JTF_VARCHAR2_TABLE_200
1666 , p7_a29 JTF_VARCHAR2_TABLE_200
1667 , p7_a30 JTF_VARCHAR2_TABLE_200
1668 , p7_a31 JTF_VARCHAR2_TABLE_200
1669 , p7_a32 JTF_VARCHAR2_TABLE_200
1670 , p7_a33 JTF_VARCHAR2_TABLE_200
1671 , p7_a34 JTF_VARCHAR2_TABLE_200
1672 , p7_a35 JTF_VARCHAR2_TABLE_200
1673 , p7_a36 JTF_VARCHAR2_TABLE_200
1674 )
1675
1676 as
1677 ddp_res_txn_dtls_tbl csd_hv_wip_job_pvt.res_txn_dtls_tbl_type;
1678 ddindx binary_integer; indx binary_integer;
1679 begin
1680
1681 -- copy data to the local IN or IN-OUT args, if any
1682
1683
1684
1685
1686
1687
1688
1689 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p7(ddp_res_txn_dtls_tbl, p7_a0
1690 , p7_a1
1691 , p7_a2
1692 , p7_a3
1693 , p7_a4
1694 , p7_a5
1695 , p7_a6
1696 , p7_a7
1697 , p7_a8
1698 , p7_a9
1699 , p7_a10
1700 , p7_a11
1701 , p7_a12
1702 , p7_a13
1703 , p7_a14
1704 , p7_a15
1705 , p7_a16
1706 , p7_a17
1707 , p7_a18
1708 , p7_a19
1709 , p7_a20
1710 , p7_a21
1711 , p7_a22
1712 , p7_a23
1713 , p7_a24
1714 , p7_a25
1715 , p7_a26
1716 , p7_a27
1717 , p7_a28
1718 , p7_a29
1719 , p7_a30
1720 , p7_a31
1721 , p7_a32
1722 , p7_a33
1723 , p7_a34
1724 , p7_a35
1725 , p7_a36
1726 );
1727
1728 -- here's the delegated call to the old PL/SQL routine
1729 csd_hv_wip_job_pvt.process_transact_res_txn(p_api_version_number,
1730 p_init_msg_list,
1731 p_commit,
1732 p_validation_level,
1733 x_return_status,
1734 x_msg_count,
1735 x_msg_data,
1736 ddp_res_txn_dtls_tbl);
1737
1738 -- copy data back from the local variables to OUT or IN-OUT args, if any
1739
1740
1741
1742
1743
1744
1745
1746 end;
1747
1748 procedure process_save_mtl_txn_dtls(p_api_version_number NUMBER
1749 , p_init_msg_list VARCHAR2
1750 , p_commit VARCHAR2
1751 , p_validation_level NUMBER
1752 , x_return_status out nocopy VARCHAR2
1753 , x_msg_count out nocopy NUMBER
1754 , x_msg_data out nocopy VARCHAR2
1755 , p7_a0 JTF_NUMBER_TABLE
1756 , p7_a1 JTF_NUMBER_TABLE
1757 , p7_a2 JTF_NUMBER_TABLE
1758 , p7_a3 JTF_NUMBER_TABLE
1759 , p7_a4 JTF_NUMBER_TABLE
1760 , p7_a5 JTF_NUMBER_TABLE
1761 , p7_a6 JTF_NUMBER_TABLE
1762 , p7_a7 JTF_NUMBER_TABLE
1763 , p7_a8 JTF_NUMBER_TABLE
1764 , p7_a9 JTF_NUMBER_TABLE
1765 , p7_a10 JTF_VARCHAR2_TABLE_100
1766 , p7_a11 JTF_VARCHAR2_TABLE_100
1767 , p7_a12 JTF_VARCHAR2_TABLE_100
1768 , p7_a13 JTF_VARCHAR2_TABLE_100
1769 , p7_a14 JTF_VARCHAR2_TABLE_100
1770 , p7_a15 JTF_NUMBER_TABLE
1771 , p7_a16 JTF_NUMBER_TABLE
1772 , p7_a17 JTF_NUMBER_TABLE
1773 , p7_a18 JTF_VARCHAR2_TABLE_100
1774 , p7_a19 JTF_NUMBER_TABLE
1775 , p7_a20 JTF_NUMBER_TABLE
1776 , p7_a21 JTF_NUMBER_TABLE
1777 , p7_a22 JTF_VARCHAR2_TABLE_100
1778 , p7_a23 JTF_NUMBER_TABLE
1779 , p7_a24 JTF_VARCHAR2_TABLE_100
1780 , p7_a25 JTF_VARCHAR2_TABLE_200
1781 , p7_a26 JTF_VARCHAR2_TABLE_200
1782 , p7_a27 JTF_VARCHAR2_TABLE_200
1783 , p7_a28 JTF_VARCHAR2_TABLE_200
1784 , p7_a29 JTF_VARCHAR2_TABLE_200
1785 , p7_a30 JTF_VARCHAR2_TABLE_200
1786 , p7_a31 JTF_VARCHAR2_TABLE_200
1787 , p7_a32 JTF_VARCHAR2_TABLE_200
1788 , p7_a33 JTF_VARCHAR2_TABLE_200
1789 , p7_a34 JTF_VARCHAR2_TABLE_200
1790 , p7_a35 JTF_VARCHAR2_TABLE_200
1791 , p7_a36 JTF_VARCHAR2_TABLE_200
1792 , p7_a37 JTF_VARCHAR2_TABLE_200
1793 , p7_a38 JTF_VARCHAR2_TABLE_200
1794 , p7_a39 JTF_VARCHAR2_TABLE_200
1795 , p7_a40 JTF_VARCHAR2_TABLE_100
1796 , x_op_created out nocopy VARCHAR
1797 )
1798
1799 as
1800 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1801 ddindx binary_integer; indx binary_integer;
1802 begin
1803
1804 -- copy data to the local IN or IN-OUT args, if any
1805
1806
1807
1808
1809
1810
1811
1812 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1813 , p7_a1
1814 , p7_a2
1815 , p7_a3
1816 , p7_a4
1817 , p7_a5
1818 , p7_a6
1819 , p7_a7
1820 , p7_a8
1821 , p7_a9
1822 , p7_a10
1823 , p7_a11
1824 , p7_a12
1825 , p7_a13
1826 , p7_a14
1827 , p7_a15
1828 , p7_a16
1829 , p7_a17
1830 , p7_a18
1831 , p7_a19
1832 , p7_a20
1833 , p7_a21
1834 , p7_a22
1835 , p7_a23
1836 , p7_a24
1837 , p7_a25
1838 , p7_a26
1839 , p7_a27
1840 , p7_a28
1841 , p7_a29
1842 , p7_a30
1843 , p7_a31
1844 , p7_a32
1845 , p7_a33
1846 , p7_a34
1847 , p7_a35
1848 , p7_a36
1849 , p7_a37
1850 , p7_a38
1851 , p7_a39
1852 , p7_a40
1853 );
1854
1855
1856 -- here's the delegated call to the old PL/SQL routine
1857 csd_hv_wip_job_pvt.process_save_mtl_txn_dtls(p_api_version_number,
1858 p_init_msg_list,
1859 p_commit,
1860 p_validation_level,
1861 x_return_status,
1862 x_msg_count,
1863 x_msg_data,
1864 ddp_mtl_txn_dtls_tbl,
1865 x_op_created);
1866
1867 -- copy data back from the local variables to OUT or IN-OUT args, if any
1868
1869
1870
1871
1872
1873
1874
1875
1876 end;
1877
1878 procedure process_save_res_txn_dtls(p_api_version_number NUMBER
1879 , p_init_msg_list VARCHAR2
1880 , p_commit VARCHAR2
1881 , p_validation_level NUMBER
1882 , x_return_status out nocopy VARCHAR2
1883 , x_msg_count out nocopy NUMBER
1884 , x_msg_data out nocopy VARCHAR2
1885 , p7_a0 JTF_NUMBER_TABLE
1886 , p7_a1 JTF_NUMBER_TABLE
1887 , p7_a2 JTF_NUMBER_TABLE
1888 , p7_a3 JTF_NUMBER_TABLE
1889 , p7_a4 JTF_NUMBER_TABLE
1890 , p7_a5 JTF_NUMBER_TABLE
1891 , p7_a6 JTF_NUMBER_TABLE
1892 , p7_a7 JTF_NUMBER_TABLE
1893 , p7_a8 JTF_NUMBER_TABLE
1894 , p7_a9 JTF_NUMBER_TABLE
1895 , p7_a10 JTF_NUMBER_TABLE
1896 , p7_a11 JTF_VARCHAR2_TABLE_100
1897 , p7_a12 JTF_NUMBER_TABLE
1898 , p7_a13 JTF_NUMBER_TABLE
1899 , p7_a14 JTF_VARCHAR2_TABLE_100
1900 , p7_a15 JTF_VARCHAR2_TABLE_100
1901 , p7_a16 JTF_VARCHAR2_TABLE_100
1902 , p7_a17 JTF_NUMBER_TABLE
1903 , p7_a18 JTF_VARCHAR2_TABLE_100
1904 , p7_a19 JTF_NUMBER_TABLE
1905 , p7_a20 JTF_VARCHAR2_TABLE_100
1906 , p7_a21 JTF_VARCHAR2_TABLE_100
1907 , p7_a22 JTF_VARCHAR2_TABLE_200
1908 , p7_a23 JTF_VARCHAR2_TABLE_200
1909 , p7_a24 JTF_VARCHAR2_TABLE_200
1910 , p7_a25 JTF_VARCHAR2_TABLE_200
1911 , p7_a26 JTF_VARCHAR2_TABLE_200
1912 , p7_a27 JTF_VARCHAR2_TABLE_200
1913 , p7_a28 JTF_VARCHAR2_TABLE_200
1914 , p7_a29 JTF_VARCHAR2_TABLE_200
1915 , p7_a30 JTF_VARCHAR2_TABLE_200
1916 , p7_a31 JTF_VARCHAR2_TABLE_200
1917 , p7_a32 JTF_VARCHAR2_TABLE_200
1918 , p7_a33 JTF_VARCHAR2_TABLE_200
1919 , p7_a34 JTF_VARCHAR2_TABLE_200
1920 , p7_a35 JTF_VARCHAR2_TABLE_200
1921 , p7_a36 JTF_VARCHAR2_TABLE_200
1922 )
1923
1924 as
1925 ddp_res_txn_dtls_tbl csd_hv_wip_job_pvt.res_txn_dtls_tbl_type;
1926 ddindx binary_integer; indx binary_integer;
1927 begin
1928
1929 -- copy data to the local IN or IN-OUT args, if any
1930
1931
1932
1933
1934
1935
1936
1937 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p7(ddp_res_txn_dtls_tbl, p7_a0
1938 , p7_a1
1939 , p7_a2
1940 , p7_a3
1941 , p7_a4
1942 , p7_a5
1943 , p7_a6
1944 , p7_a7
1945 , p7_a8
1946 , p7_a9
1947 , p7_a10
1948 , p7_a11
1949 , p7_a12
1950 , p7_a13
1951 , p7_a14
1952 , p7_a15
1953 , p7_a16
1954 , p7_a17
1955 , p7_a18
1956 , p7_a19
1957 , p7_a20
1958 , p7_a21
1959 , p7_a22
1960 , p7_a23
1961 , p7_a24
1962 , p7_a25
1963 , p7_a26
1964 , p7_a27
1965 , p7_a28
1966 , p7_a29
1967 , p7_a30
1968 , p7_a31
1969 , p7_a32
1970 , p7_a33
1971 , p7_a34
1972 , p7_a35
1973 , p7_a36
1974 );
1975
1976 -- here's the delegated call to the old PL/SQL routine
1977 csd_hv_wip_job_pvt.process_save_res_txn_dtls(p_api_version_number,
1978 p_init_msg_list,
1979 p_commit,
1980 p_validation_level,
1981 x_return_status,
1982 x_msg_count,
1983 x_msg_data,
1984 ddp_res_txn_dtls_tbl);
1985
1986 -- copy data back from the local variables to OUT or IN-OUT args, if any
1987
1988
1989
1990
1991
1992
1993
1994 end;
1995
1996 procedure process_save_op_dtls(p_api_version_number NUMBER
1997 , p_init_msg_list VARCHAR2
1998 , p_commit VARCHAR2
1999 , p_validation_level NUMBER
2000 , x_return_status out nocopy VARCHAR2
2001 , x_msg_count out nocopy NUMBER
2002 , x_msg_data out nocopy VARCHAR2
2003 , p7_a0 JTF_NUMBER_TABLE
2004 , p7_a1 JTF_NUMBER_TABLE
2005 , p7_a2 JTF_NUMBER_TABLE
2006 , p7_a3 JTF_NUMBER_TABLE
2007 , p7_a4 JTF_VARCHAR2_TABLE_300
2008 , p7_a5 JTF_DATE_TABLE
2009 , p7_a6 JTF_DATE_TABLE
2010 , p7_a7 JTF_DATE_TABLE
2011 , p7_a8 JTF_DATE_TABLE
2012 , p7_a9 JTF_NUMBER_TABLE
2013 , p7_a10 JTF_NUMBER_TABLE
2014 , p7_a11 JTF_NUMBER_TABLE
2015 , p7_a12 JTF_NUMBER_TABLE
2016 , p7_a13 JTF_NUMBER_TABLE
2017 , p7_a14 JTF_VARCHAR2_TABLE_100
2018 , p7_a15 JTF_VARCHAR2_TABLE_100
2019 , p7_a16 JTF_NUMBER_TABLE
2020 , p7_a17 JTF_VARCHAR2_TABLE_100
2021 , p7_a18 JTF_VARCHAR2_TABLE_100
2022 , p7_a19 JTF_VARCHAR2_TABLE_200
2023 , p7_a20 JTF_VARCHAR2_TABLE_200
2024 , p7_a21 JTF_VARCHAR2_TABLE_200
2025 , p7_a22 JTF_VARCHAR2_TABLE_200
2026 , p7_a23 JTF_VARCHAR2_TABLE_200
2027 , p7_a24 JTF_VARCHAR2_TABLE_200
2028 , p7_a25 JTF_VARCHAR2_TABLE_200
2029 , p7_a26 JTF_VARCHAR2_TABLE_200
2030 , p7_a27 JTF_VARCHAR2_TABLE_200
2031 , p7_a28 JTF_VARCHAR2_TABLE_200
2032 , p7_a29 JTF_VARCHAR2_TABLE_200
2033 , p7_a30 JTF_VARCHAR2_TABLE_200
2034 , p7_a31 JTF_VARCHAR2_TABLE_200
2035 , p7_a32 JTF_VARCHAR2_TABLE_200
2036 , p7_a33 JTF_VARCHAR2_TABLE_200
2037 )
2038
2039 as
2040 ddp_op_dtls_tbl csd_hv_wip_job_pvt.op_dtls_tbl_type;
2041 ddindx binary_integer; indx binary_integer;
2042 begin
2043
2044 -- copy data to the local IN or IN-OUT args, if any
2045
2046
2047
2048
2049
2050
2051
2052 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p9(ddp_op_dtls_tbl, p7_a0
2053 , p7_a1
2054 , p7_a2
2055 , p7_a3
2056 , p7_a4
2057 , p7_a5
2058 , p7_a6
2059 , p7_a7
2060 , p7_a8
2061 , p7_a9
2062 , p7_a10
2063 , p7_a11
2064 , p7_a12
2065 , p7_a13
2066 , p7_a14
2067 , p7_a15
2068 , p7_a16
2069 , p7_a17
2070 , p7_a18
2071 , p7_a19
2072 , p7_a20
2073 , p7_a21
2074 , p7_a22
2075 , p7_a23
2076 , p7_a24
2077 , p7_a25
2078 , p7_a26
2079 , p7_a27
2080 , p7_a28
2081 , p7_a29
2082 , p7_a30
2083 , p7_a31
2084 , p7_a32
2085 , p7_a33
2086 );
2087
2088 -- here's the delegated call to the old PL/SQL routine
2089 csd_hv_wip_job_pvt.process_save_op_dtls(p_api_version_number,
2090 p_init_msg_list,
2091 p_commit,
2092 p_validation_level,
2093 x_return_status,
2094 x_msg_count,
2095 x_msg_data,
2096 ddp_op_dtls_tbl);
2097
2098 -- copy data back from the local variables to OUT or IN-OUT args, if any
2099
2100
2101
2102
2103
2104
2105
2106 end;
2107
2108 procedure generate_wip_jobs_from_scs(p_api_version_number NUMBER
2109 , p_init_msg_list VARCHAR2
2110 , p_commit VARCHAR2
2111 , p_validation_level NUMBER
2112 , x_return_status out nocopy VARCHAR2
2113 , x_msg_count out nocopy NUMBER
2114 , x_msg_data out nocopy VARCHAR2
2115 , p_repair_line_id NUMBER
2116 , p_repair_quantity NUMBER
2117 , p9_a0 JTF_NUMBER_TABLE
2118 , p9_a1 JTF_NUMBER_TABLE
2119 , p9_a2 JTF_NUMBER_TABLE
2120 , p9_a3 JTF_NUMBER_TABLE
2121 )
2122
2123 as
2124 ddp_service_code_tbl csd_hv_wip_job_pvt.service_code_tbl_type;
2125 ddindx binary_integer; indx binary_integer;
2126 begin
2127
2128 -- copy data to the local IN or IN-OUT args, if any
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p11(ddp_service_code_tbl, p9_a0
2139 , p9_a1
2140 , p9_a2
2141 , p9_a3
2142 );
2143
2144 -- here's the delegated call to the old PL/SQL routine
2145 csd_hv_wip_job_pvt.generate_wip_jobs_from_scs(p_api_version_number,
2146 p_init_msg_list,
2147 p_commit,
2148 p_validation_level,
2149 x_return_status,
2150 x_msg_count,
2151 x_msg_data,
2152 p_repair_line_id,
2153 p_repair_quantity,
2154 ddp_service_code_tbl);
2155
2156 -- copy data back from the local variables to OUT or IN-OUT args, if any
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166 end;
2167
2168 procedure process_delete_mtl_txn_dtl(p_api_version_number NUMBER
2169 , p_init_msg_list VARCHAR2
2170 , p_commit VARCHAR2
2171 , p_validation_level NUMBER
2172 , x_return_status out nocopy VARCHAR2
2173 , x_msg_count out nocopy NUMBER
2174 , x_msg_data out nocopy VARCHAR2
2175 , p7_a0 NUMBER
2176 , p7_a1 NUMBER
2177 , p7_a2 NUMBER
2178 , p7_a3 NUMBER
2179 , p7_a4 NUMBER
2180 , p7_a5 NUMBER
2181 , p7_a6 NUMBER
2182 , p7_a7 NUMBER
2183 , p7_a8 NUMBER
2184 , p7_a9 NUMBER
2185 , p7_a10 VARCHAR2
2186 , p7_a11 VARCHAR2
2187 , p7_a12 VARCHAR2
2188 , p7_a13 VARCHAR2
2189 , p7_a14 VARCHAR2
2190 , p7_a15 NUMBER
2191 , p7_a16 NUMBER
2192 , p7_a17 NUMBER
2193 , p7_a18 VARCHAR2
2194 , p7_a19 NUMBER
2195 , p7_a20 NUMBER
2196 , p7_a21 NUMBER
2197 , p7_a22 VARCHAR2
2198 , p7_a23 NUMBER
2199 , p7_a24 VARCHAR2
2200 , p7_a25 VARCHAR2
2201 , p7_a26 VARCHAR2
2202 , p7_a27 VARCHAR2
2203 , p7_a28 VARCHAR2
2204 , p7_a29 VARCHAR2
2205 , p7_a30 VARCHAR2
2206 , p7_a31 VARCHAR2
2207 , p7_a32 VARCHAR2
2208 , p7_a33 VARCHAR2
2209 , p7_a34 VARCHAR2
2210 , p7_a35 VARCHAR2
2211 , p7_a36 VARCHAR2
2212 , p7_a37 VARCHAR2
2213 , p7_a38 VARCHAR2
2214 , p7_a39 VARCHAR2
2215 , p7_a40 VARCHAR2
2216 )
2217
2218 as
2219 ddp_mtl_txn_dtls csd_hv_wip_job_pvt.mtl_txn_dtls_rec_type;
2220 ddindx binary_integer; indx binary_integer;
2221 begin
2222
2223 -- copy data to the local IN or IN-OUT args, if any
2224
2225
2226
2227
2228
2229
2230
2231 ddp_mtl_txn_dtls.wip_transaction_detail_id := p7_a0;
2232 ddp_mtl_txn_dtls.required_quantity := p7_a1;
2233 ddp_mtl_txn_dtls.issued_quantity := p7_a2;
2234 ddp_mtl_txn_dtls.job_quantity := p7_a3;
2235 ddp_mtl_txn_dtls.op_scheduled_quantity := p7_a4;
2236 ddp_mtl_txn_dtls.inventory_item_id := p7_a5;
2237 ddp_mtl_txn_dtls.wip_entity_id := p7_a6;
2238 ddp_mtl_txn_dtls.organization_id := p7_a7;
2239 ddp_mtl_txn_dtls.operation_seq_num := p7_a8;
2240 ddp_mtl_txn_dtls.transaction_quantity := p7_a9;
2241 ddp_mtl_txn_dtls.transaction_uom := p7_a10;
2242 ddp_mtl_txn_dtls.uom_code := p7_a11;
2243 ddp_mtl_txn_dtls.serial_number := p7_a12;
2244 ddp_mtl_txn_dtls.lot_number := p7_a13;
2245 ddp_mtl_txn_dtls.revision := p7_a14;
2246 ddp_mtl_txn_dtls.revision_qty_control_code := p7_a15;
2247 ddp_mtl_txn_dtls.serial_number_control_code := p7_a16;
2248 ddp_mtl_txn_dtls.lot_control_code := p7_a17;
2249 ddp_mtl_txn_dtls.supply_subinventory := p7_a18;
2250 ddp_mtl_txn_dtls.supply_locator_id := p7_a19;
2251 ddp_mtl_txn_dtls.transaction_interface_id := p7_a20;
2252 ddp_mtl_txn_dtls.object_version_number := p7_a21;
2253 ddp_mtl_txn_dtls.new_row := p7_a22;
2254 ddp_mtl_txn_dtls.reason_id := p7_a23;
2255 ddp_mtl_txn_dtls.attribute_category := p7_a24;
2256 ddp_mtl_txn_dtls.attribute1 := p7_a25;
2257 ddp_mtl_txn_dtls.attribute2 := p7_a26;
2258 ddp_mtl_txn_dtls.attribute3 := p7_a27;
2259 ddp_mtl_txn_dtls.attribute4 := p7_a28;
2260 ddp_mtl_txn_dtls.attribute5 := p7_a29;
2261 ddp_mtl_txn_dtls.attribute6 := p7_a30;
2262 ddp_mtl_txn_dtls.attribute7 := p7_a31;
2263 ddp_mtl_txn_dtls.attribute8 := p7_a32;
2264 ddp_mtl_txn_dtls.attribute9 := p7_a33;
2265 ddp_mtl_txn_dtls.attribute10 := p7_a34;
2266 ddp_mtl_txn_dtls.attribute11 := p7_a35;
2267 ddp_mtl_txn_dtls.attribute12 := p7_a36;
2268 ddp_mtl_txn_dtls.attribute13 := p7_a37;
2269 ddp_mtl_txn_dtls.attribute14 := p7_a38;
2270 ddp_mtl_txn_dtls.attribute15 := p7_a39;
2271 ddp_mtl_txn_dtls.create_ro_flag := p7_a40;
2272
2273 -- here's the delegated call to the old PL/SQL routine
2274 csd_hv_wip_job_pvt.process_delete_mtl_txn_dtl(p_api_version_number,
2275 p_init_msg_list,
2276 p_commit,
2277 p_validation_level,
2278 x_return_status,
2279 x_msg_count,
2280 x_msg_data,
2281 ddp_mtl_txn_dtls);
2282
2283 -- copy data back from the local variables to OUT or IN-OUT args, if any
2284
2285
2286
2287
2288
2289
2290
2291 end;
2292
2293 procedure process_delete_op_dtl(p_api_version_number NUMBER
2294 , p_init_msg_list VARCHAR2
2295 , p_commit VARCHAR2
2296 , p_validation_level NUMBER
2297 , x_return_status out nocopy VARCHAR2
2298 , x_msg_count out nocopy NUMBER
2299 , x_msg_data out nocopy VARCHAR2
2300 , p7_a0 NUMBER
2301 , p7_a1 NUMBER
2302 , p7_a2 NUMBER
2303 , p7_a3 NUMBER
2304 , p7_a4 VARCHAR2
2305 , p7_a5 DATE
2306 , p7_a6 DATE
2307 , p7_a7 DATE
2308 , p7_a8 DATE
2309 , p7_a9 NUMBER
2310 , p7_a10 NUMBER
2311 , p7_a11 NUMBER
2312 , p7_a12 NUMBER
2313 , p7_a13 NUMBER
2314 , p7_a14 VARCHAR2
2315 , p7_a15 VARCHAR2
2316 , p7_a16 NUMBER
2317 , p7_a17 VARCHAR2
2318 , p7_a18 VARCHAR2
2319 , p7_a19 VARCHAR2
2320 , p7_a20 VARCHAR2
2321 , p7_a21 VARCHAR2
2322 , p7_a22 VARCHAR2
2323 , p7_a23 VARCHAR2
2324 , p7_a24 VARCHAR2
2325 , p7_a25 VARCHAR2
2326 , p7_a26 VARCHAR2
2327 , p7_a27 VARCHAR2
2328 , p7_a28 VARCHAR2
2329 , p7_a29 VARCHAR2
2330 , p7_a30 VARCHAR2
2331 , p7_a31 VARCHAR2
2332 , p7_a32 VARCHAR2
2333 , p7_a33 VARCHAR2
2334 )
2335
2336 as
2337 ddp_op_dtls csd_hv_wip_job_pvt.op_dtls_rec_type;
2338 ddindx binary_integer; indx binary_integer;
2339 begin
2340
2341 -- copy data to the local IN or IN-OUT args, if any
2342
2343
2344
2345
2346
2347
2348
2349 ddp_op_dtls.wip_transaction_detail_id := p7_a0;
2350 ddp_op_dtls.backflush_flag := p7_a1;
2351 ddp_op_dtls.count_point_type := p7_a2;
2352 ddp_op_dtls.department_id := p7_a3;
2353 ddp_op_dtls.description := p7_a4;
2354 ddp_op_dtls.first_unit_completion_date := p7_a5;
2355 ddp_op_dtls.first_unit_start_date := p7_a6;
2356 ddp_op_dtls.last_unit_completion_date := p7_a7;
2357 ddp_op_dtls.last_unit_start_date := p7_a8;
2358 ddp_op_dtls.minimum_transfer_quantity := p7_a9;
2359 ddp_op_dtls.operation_seq_num := p7_a10;
2360 ddp_op_dtls.standard_operation_id := p7_a11;
2361 ddp_op_dtls.wip_entity_id := p7_a12;
2362 ddp_op_dtls.organization_id := p7_a13;
2363 ddp_op_dtls.organization_code := p7_a14;
2364 ddp_op_dtls.wip_entity_name := p7_a15;
2365 ddp_op_dtls.object_version_number := p7_a16;
2366 ddp_op_dtls.new_row := p7_a17;
2367 ddp_op_dtls.attribute_category := p7_a18;
2368 ddp_op_dtls.attribute1 := p7_a19;
2369 ddp_op_dtls.attribute2 := p7_a20;
2370 ddp_op_dtls.attribute3 := p7_a21;
2371 ddp_op_dtls.attribute4 := p7_a22;
2372 ddp_op_dtls.attribute5 := p7_a23;
2373 ddp_op_dtls.attribute6 := p7_a24;
2374 ddp_op_dtls.attribute7 := p7_a25;
2375 ddp_op_dtls.attribute8 := p7_a26;
2376 ddp_op_dtls.attribute9 := p7_a27;
2377 ddp_op_dtls.attribute10 := p7_a28;
2378 ddp_op_dtls.attribute11 := p7_a29;
2379 ddp_op_dtls.attribute12 := p7_a30;
2380 ddp_op_dtls.attribute13 := p7_a31;
2381 ddp_op_dtls.attribute14 := p7_a32;
2382 ddp_op_dtls.attribute15 := p7_a33;
2383
2384 -- here's the delegated call to the old PL/SQL routine
2385 csd_hv_wip_job_pvt.process_delete_op_dtl(p_api_version_number,
2386 p_init_msg_list,
2387 p_commit,
2388 p_validation_level,
2389 x_return_status,
2390 x_msg_count,
2391 x_msg_data,
2392 ddp_op_dtls);
2393
2394 -- copy data back from the local variables to OUT or IN-OUT args, if any
2395
2396
2397
2398
2399
2400
2401
2402 end;
2403
2404 end csd_hv_wip_job_pvt_w;