[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.9 2008/03/25 01:18:11 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 ) as
113 ddindx binary_integer; indx binary_integer;
114 begin
115 if a0 is not null and a0.count > 0 then
116 if a0.count > 0 then
117 indx := a0.first;
118 ddindx := 1;
119 while true loop
120 t(ddindx).wip_transaction_detail_id := a0(indx);
121 t(ddindx).required_quantity := a1(indx);
122 t(ddindx).issued_quantity := a2(indx);
123 t(ddindx).job_quantity := a3(indx);
124 t(ddindx).op_scheduled_quantity := a4(indx);
125 t(ddindx).inventory_item_id := a5(indx);
126 t(ddindx).wip_entity_id := a6(indx);
127 t(ddindx).organization_id := a7(indx);
128 t(ddindx).operation_seq_num := a8(indx);
129 t(ddindx).transaction_quantity := a9(indx);
130 t(ddindx).transaction_uom := a10(indx);
131 t(ddindx).uom_code := a11(indx);
132 t(ddindx).serial_number := a12(indx);
133 t(ddindx).lot_number := a13(indx);
134 t(ddindx).revision := a14(indx);
135 t(ddindx).revision_qty_control_code := a15(indx);
136 t(ddindx).serial_number_control_code := a16(indx);
137 t(ddindx).lot_control_code := a17(indx);
138 t(ddindx).supply_subinventory := a18(indx);
139 t(ddindx).supply_locator_id := a19(indx);
140 t(ddindx).transaction_interface_id := a20(indx);
141 t(ddindx).object_version_number := a21(indx);
142 t(ddindx).new_row := a22(indx);
143 t(ddindx).reason_id := a23(indx);
144 ddindx := ddindx+1;
145 if a0.last =indx
146 then exit;
147 end if;
148 indx := a0.next(indx);
149 end loop;
150 end if;
151 end if;
152 end rosetta_table_copy_in_p5;
153 procedure rosetta_table_copy_out_p5(t csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
154 , a1 out nocopy JTF_NUMBER_TABLE
155 , a2 out nocopy JTF_NUMBER_TABLE
156 , a3 out nocopy JTF_NUMBER_TABLE
157 , a4 out nocopy JTF_NUMBER_TABLE
158 , a5 out nocopy JTF_NUMBER_TABLE
159 , a6 out nocopy JTF_NUMBER_TABLE
160 , a7 out nocopy JTF_NUMBER_TABLE
161 , a8 out nocopy JTF_NUMBER_TABLE
162 , a9 out nocopy JTF_NUMBER_TABLE
163 , a10 out nocopy JTF_VARCHAR2_TABLE_100
164 , a11 out nocopy JTF_VARCHAR2_TABLE_100
165 , a12 out nocopy JTF_VARCHAR2_TABLE_100
166 , a13 out nocopy JTF_VARCHAR2_TABLE_100
167 , a14 out nocopy JTF_VARCHAR2_TABLE_100
168 , a15 out nocopy JTF_NUMBER_TABLE
169 , a16 out nocopy JTF_NUMBER_TABLE
170 , a17 out nocopy JTF_NUMBER_TABLE
171 , a18 out nocopy JTF_VARCHAR2_TABLE_100
172 , a19 out nocopy JTF_NUMBER_TABLE
173 , a20 out nocopy JTF_NUMBER_TABLE
174 , a21 out nocopy JTF_NUMBER_TABLE
175 , a22 out nocopy JTF_VARCHAR2_TABLE_100
176 , a23 out nocopy JTF_NUMBER_TABLE
177 ) as
178 ddindx binary_integer; indx binary_integer;
179 begin
180 if t is null or t.count = 0 then
181 a0 := JTF_NUMBER_TABLE();
182 a1 := JTF_NUMBER_TABLE();
183 a2 := JTF_NUMBER_TABLE();
184 a3 := JTF_NUMBER_TABLE();
185 a4 := JTF_NUMBER_TABLE();
186 a5 := JTF_NUMBER_TABLE();
187 a6 := JTF_NUMBER_TABLE();
188 a7 := JTF_NUMBER_TABLE();
189 a8 := JTF_NUMBER_TABLE();
190 a9 := JTF_NUMBER_TABLE();
191 a10 := JTF_VARCHAR2_TABLE_100();
192 a11 := JTF_VARCHAR2_TABLE_100();
193 a12 := JTF_VARCHAR2_TABLE_100();
194 a13 := JTF_VARCHAR2_TABLE_100();
195 a14 := JTF_VARCHAR2_TABLE_100();
196 a15 := JTF_NUMBER_TABLE();
197 a16 := JTF_NUMBER_TABLE();
198 a17 := JTF_NUMBER_TABLE();
199 a18 := JTF_VARCHAR2_TABLE_100();
200 a19 := JTF_NUMBER_TABLE();
201 a20 := JTF_NUMBER_TABLE();
202 a21 := JTF_NUMBER_TABLE();
203 a22 := JTF_VARCHAR2_TABLE_100();
204 a23 := JTF_NUMBER_TABLE();
205 else
206 a0 := JTF_NUMBER_TABLE();
207 a1 := JTF_NUMBER_TABLE();
208 a2 := JTF_NUMBER_TABLE();
209 a3 := JTF_NUMBER_TABLE();
210 a4 := JTF_NUMBER_TABLE();
211 a5 := JTF_NUMBER_TABLE();
212 a6 := JTF_NUMBER_TABLE();
213 a7 := JTF_NUMBER_TABLE();
214 a8 := JTF_NUMBER_TABLE();
215 a9 := JTF_NUMBER_TABLE();
216 a10 := JTF_VARCHAR2_TABLE_100();
217 a11 := JTF_VARCHAR2_TABLE_100();
218 a12 := JTF_VARCHAR2_TABLE_100();
219 a13 := JTF_VARCHAR2_TABLE_100();
220 a14 := JTF_VARCHAR2_TABLE_100();
221 a15 := JTF_NUMBER_TABLE();
222 a16 := JTF_NUMBER_TABLE();
223 a17 := JTF_NUMBER_TABLE();
224 a18 := JTF_VARCHAR2_TABLE_100();
225 a19 := JTF_NUMBER_TABLE();
226 a20 := JTF_NUMBER_TABLE();
227 a21 := JTF_NUMBER_TABLE();
228 a22 := JTF_VARCHAR2_TABLE_100();
229 a23 := JTF_NUMBER_TABLE();
230 if t.count > 0 then
231 a0.extend(t.count);
232 a1.extend(t.count);
233 a2.extend(t.count);
234 a3.extend(t.count);
235 a4.extend(t.count);
236 a5.extend(t.count);
237 a6.extend(t.count);
238 a7.extend(t.count);
239 a8.extend(t.count);
240 a9.extend(t.count);
241 a10.extend(t.count);
242 a11.extend(t.count);
243 a12.extend(t.count);
244 a13.extend(t.count);
245 a14.extend(t.count);
246 a15.extend(t.count);
247 a16.extend(t.count);
248 a17.extend(t.count);
249 a18.extend(t.count);
250 a19.extend(t.count);
251 a20.extend(t.count);
252 a21.extend(t.count);
253 a22.extend(t.count);
254 a23.extend(t.count);
255 ddindx := t.first;
256 indx := 1;
257 while true loop
258 a0(indx) := t(ddindx).wip_transaction_detail_id;
259 a1(indx) := t(ddindx).required_quantity;
260 a2(indx) := t(ddindx).issued_quantity;
261 a3(indx) := t(ddindx).job_quantity;
262 a4(indx) := t(ddindx).op_scheduled_quantity;
263 a5(indx) := t(ddindx).inventory_item_id;
264 a6(indx) := t(ddindx).wip_entity_id;
265 a7(indx) := t(ddindx).organization_id;
266 a8(indx) := t(ddindx).operation_seq_num;
267 a9(indx) := t(ddindx).transaction_quantity;
268 a10(indx) := t(ddindx).transaction_uom;
269 a11(indx) := t(ddindx).uom_code;
270 a12(indx) := t(ddindx).serial_number;
271 a13(indx) := t(ddindx).lot_number;
272 a14(indx) := t(ddindx).revision;
273 a15(indx) := t(ddindx).revision_qty_control_code;
274 a16(indx) := t(ddindx).serial_number_control_code;
275 a17(indx) := t(ddindx).lot_control_code;
276 a18(indx) := t(ddindx).supply_subinventory;
277 a19(indx) := t(ddindx).supply_locator_id;
278 a20(indx) := t(ddindx).transaction_interface_id;
279 a21(indx) := t(ddindx).object_version_number;
280 a22(indx) := t(ddindx).new_row;
281 a23(indx) := t(ddindx).reason_id;
282 indx := indx+1;
283 if t.last =ddindx
284 then exit;
285 end if;
286 ddindx := t.next(ddindx);
287 end loop;
288 end if;
289 end if;
290 end rosetta_table_copy_out_p5;
291
292 procedure rosetta_table_copy_in_p7(t out nocopy csd_hv_wip_job_pvt.res_txn_dtls_tbl_type, a0 JTF_NUMBER_TABLE
293 , a1 JTF_NUMBER_TABLE
294 , a2 JTF_NUMBER_TABLE
295 , a3 JTF_NUMBER_TABLE
296 , a4 JTF_NUMBER_TABLE
297 , a5 JTF_NUMBER_TABLE
298 , a6 JTF_NUMBER_TABLE
299 , a7 JTF_NUMBER_TABLE
300 , a8 JTF_NUMBER_TABLE
301 , a9 JTF_NUMBER_TABLE
302 , a10 JTF_NUMBER_TABLE
303 , a11 JTF_VARCHAR2_TABLE_100
304 , a12 JTF_NUMBER_TABLE
305 , a13 JTF_NUMBER_TABLE
306 , a14 JTF_VARCHAR2_TABLE_100
307 , a15 JTF_VARCHAR2_TABLE_100
308 , a16 JTF_VARCHAR2_TABLE_100
309 , a17 JTF_NUMBER_TABLE
310 , a18 JTF_VARCHAR2_TABLE_100
311 , a19 JTF_NUMBER_TABLE
312 , a20 JTF_VARCHAR2_TABLE_100
313 ) as
314 ddindx binary_integer; indx binary_integer;
315 begin
316 if a0 is not null and a0.count > 0 then
317 if a0.count > 0 then
318 indx := a0.first;
319 ddindx := 1;
320 while true loop
321 t(ddindx).wip_transaction_detail_id := a0(indx);
322 t(ddindx).required_quantity := a1(indx);
323 t(ddindx).applied_quantity := a2(indx);
324 t(ddindx).pending_quantity := a3(indx);
325 t(ddindx).job_quantity := a4(indx);
326 t(ddindx).op_scheduled_quantity := a5(indx);
327 t(ddindx).basis_type := a6(indx);
328 t(ddindx).resource_id := a7(indx);
329 t(ddindx).resource_seq_num := a8(indx);
330 t(ddindx).wip_entity_id := a9(indx);
331 t(ddindx).organization_id := a10(indx);
332 t(ddindx).organization_code := a11(indx);
333 t(ddindx).operation_seq_num := a12(indx);
334 t(ddindx).transaction_quantity := a13(indx);
335 t(ddindx).transaction_uom := a14(indx);
336 t(ddindx).uom_code := a15(indx);
337 t(ddindx).wip_entity_name := a16(indx);
338 t(ddindx).employee_id := a17(indx);
339 t(ddindx).employee_num := a18(indx);
340 t(ddindx).object_version_number := a19(indx);
341 t(ddindx).new_row := a20(indx);
342 ddindx := ddindx+1;
343 if a0.last =indx
344 then exit;
345 end if;
346 indx := a0.next(indx);
347 end loop;
348 end if;
349 end if;
350 end rosetta_table_copy_in_p7;
351 procedure rosetta_table_copy_out_p7(t csd_hv_wip_job_pvt.res_txn_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
352 , a1 out nocopy JTF_NUMBER_TABLE
353 , a2 out nocopy JTF_NUMBER_TABLE
354 , a3 out nocopy JTF_NUMBER_TABLE
355 , a4 out nocopy JTF_NUMBER_TABLE
356 , a5 out nocopy JTF_NUMBER_TABLE
357 , a6 out nocopy JTF_NUMBER_TABLE
358 , a7 out nocopy JTF_NUMBER_TABLE
359 , a8 out nocopy JTF_NUMBER_TABLE
360 , a9 out nocopy JTF_NUMBER_TABLE
361 , a10 out nocopy JTF_NUMBER_TABLE
362 , a11 out nocopy JTF_VARCHAR2_TABLE_100
363 , a12 out nocopy JTF_NUMBER_TABLE
364 , a13 out nocopy JTF_NUMBER_TABLE
365 , a14 out nocopy JTF_VARCHAR2_TABLE_100
366 , a15 out nocopy JTF_VARCHAR2_TABLE_100
367 , a16 out nocopy JTF_VARCHAR2_TABLE_100
368 , a17 out nocopy JTF_NUMBER_TABLE
369 , a18 out nocopy JTF_VARCHAR2_TABLE_100
370 , a19 out nocopy JTF_NUMBER_TABLE
371 , a20 out nocopy JTF_VARCHAR2_TABLE_100
372 ) as
373 ddindx binary_integer; indx binary_integer;
374 begin
375 if t is null or t.count = 0 then
376 a0 := JTF_NUMBER_TABLE();
377 a1 := JTF_NUMBER_TABLE();
378 a2 := JTF_NUMBER_TABLE();
379 a3 := JTF_NUMBER_TABLE();
380 a4 := JTF_NUMBER_TABLE();
381 a5 := JTF_NUMBER_TABLE();
382 a6 := JTF_NUMBER_TABLE();
383 a7 := JTF_NUMBER_TABLE();
384 a8 := JTF_NUMBER_TABLE();
385 a9 := JTF_NUMBER_TABLE();
386 a10 := JTF_NUMBER_TABLE();
387 a11 := JTF_VARCHAR2_TABLE_100();
391 a15 := JTF_VARCHAR2_TABLE_100();
388 a12 := JTF_NUMBER_TABLE();
389 a13 := JTF_NUMBER_TABLE();
390 a14 := JTF_VARCHAR2_TABLE_100();
392 a16 := JTF_VARCHAR2_TABLE_100();
393 a17 := JTF_NUMBER_TABLE();
394 a18 := JTF_VARCHAR2_TABLE_100();
395 a19 := JTF_NUMBER_TABLE();
396 a20 := JTF_VARCHAR2_TABLE_100();
397 else
398 a0 := JTF_NUMBER_TABLE();
399 a1 := JTF_NUMBER_TABLE();
400 a2 := JTF_NUMBER_TABLE();
401 a3 := JTF_NUMBER_TABLE();
402 a4 := JTF_NUMBER_TABLE();
403 a5 := JTF_NUMBER_TABLE();
404 a6 := JTF_NUMBER_TABLE();
405 a7 := JTF_NUMBER_TABLE();
406 a8 := JTF_NUMBER_TABLE();
407 a9 := JTF_NUMBER_TABLE();
408 a10 := JTF_NUMBER_TABLE();
409 a11 := JTF_VARCHAR2_TABLE_100();
410 a12 := JTF_NUMBER_TABLE();
411 a13 := JTF_NUMBER_TABLE();
412 a14 := JTF_VARCHAR2_TABLE_100();
413 a15 := JTF_VARCHAR2_TABLE_100();
414 a16 := JTF_VARCHAR2_TABLE_100();
415 a17 := JTF_NUMBER_TABLE();
416 a18 := JTF_VARCHAR2_TABLE_100();
417 a19 := JTF_NUMBER_TABLE();
418 a20 := JTF_VARCHAR2_TABLE_100();
419 if t.count > 0 then
420 a0.extend(t.count);
421 a1.extend(t.count);
422 a2.extend(t.count);
423 a3.extend(t.count);
424 a4.extend(t.count);
425 a5.extend(t.count);
426 a6.extend(t.count);
427 a7.extend(t.count);
428 a8.extend(t.count);
429 a9.extend(t.count);
430 a10.extend(t.count);
431 a11.extend(t.count);
432 a12.extend(t.count);
433 a13.extend(t.count);
434 a14.extend(t.count);
435 a15.extend(t.count);
436 a16.extend(t.count);
437 a17.extend(t.count);
438 a18.extend(t.count);
439 a19.extend(t.count);
440 a20.extend(t.count);
441 ddindx := t.first;
442 indx := 1;
443 while true loop
444 a0(indx) := t(ddindx).wip_transaction_detail_id;
445 a1(indx) := t(ddindx).required_quantity;
446 a2(indx) := t(ddindx).applied_quantity;
447 a3(indx) := t(ddindx).pending_quantity;
448 a4(indx) := t(ddindx).job_quantity;
449 a5(indx) := t(ddindx).op_scheduled_quantity;
450 a6(indx) := t(ddindx).basis_type;
451 a7(indx) := t(ddindx).resource_id;
452 a8(indx) := t(ddindx).resource_seq_num;
453 a9(indx) := t(ddindx).wip_entity_id;
454 a10(indx) := t(ddindx).organization_id;
455 a11(indx) := t(ddindx).organization_code;
456 a12(indx) := t(ddindx).operation_seq_num;
457 a13(indx) := t(ddindx).transaction_quantity;
458 a14(indx) := t(ddindx).transaction_uom;
459 a15(indx) := t(ddindx).uom_code;
460 a16(indx) := t(ddindx).wip_entity_name;
461 a17(indx) := t(ddindx).employee_id;
462 a18(indx) := t(ddindx).employee_num;
463 a19(indx) := t(ddindx).object_version_number;
464 a20(indx) := t(ddindx).new_row;
465 indx := indx+1;
466 if t.last =ddindx
467 then exit;
468 end if;
469 ddindx := t.next(ddindx);
470 end loop;
471 end if;
472 end if;
473 end rosetta_table_copy_out_p7;
474
475 procedure rosetta_table_copy_in_p9(t out nocopy csd_hv_wip_job_pvt.op_dtls_tbl_type, a0 JTF_NUMBER_TABLE
476 , a1 JTF_NUMBER_TABLE
477 , a2 JTF_NUMBER_TABLE
478 , a3 JTF_NUMBER_TABLE
479 , a4 JTF_VARCHAR2_TABLE_300
480 , a5 JTF_DATE_TABLE
481 , a6 JTF_DATE_TABLE
482 , a7 JTF_DATE_TABLE
483 , a8 JTF_DATE_TABLE
484 , a9 JTF_NUMBER_TABLE
485 , a10 JTF_NUMBER_TABLE
486 , a11 JTF_NUMBER_TABLE
487 , a12 JTF_NUMBER_TABLE
488 , a13 JTF_NUMBER_TABLE
489 , a14 JTF_VARCHAR2_TABLE_100
490 , a15 JTF_VARCHAR2_TABLE_100
491 , a16 JTF_NUMBER_TABLE
492 , a17 JTF_VARCHAR2_TABLE_100
493 ) as
494 ddindx binary_integer; indx binary_integer;
495 begin
496 if a0 is not null and a0.count > 0 then
497 if a0.count > 0 then
498 indx := a0.first;
499 ddindx := 1;
500 while true loop
501 t(ddindx).wip_transaction_detail_id := a0(indx);
502 t(ddindx).backflush_flag := a1(indx);
503 t(ddindx).count_point_type := a2(indx);
504 t(ddindx).department_id := a3(indx);
505 t(ddindx).description := a4(indx);
506 t(ddindx).first_unit_completion_date := a5(indx);
507 t(ddindx).first_unit_start_date := a6(indx);
508 t(ddindx).last_unit_completion_date := a7(indx);
509 t(ddindx).last_unit_start_date := a8(indx);
510 t(ddindx).minimum_transfer_quantity := a9(indx);
511 t(ddindx).operation_seq_num := a10(indx);
512 t(ddindx).standard_operation_id := a11(indx);
513 t(ddindx).wip_entity_id := a12(indx);
514 t(ddindx).organization_id := a13(indx);
515 t(ddindx).organization_code := a14(indx);
516 t(ddindx).wip_entity_name := a15(indx);
520 if a0.last =indx
517 t(ddindx).object_version_number := a16(indx);
518 t(ddindx).new_row := a17(indx);
519 ddindx := ddindx+1;
521 then exit;
522 end if;
523 indx := a0.next(indx);
524 end loop;
525 end if;
526 end if;
527 end rosetta_table_copy_in_p9;
528 procedure rosetta_table_copy_out_p9(t csd_hv_wip_job_pvt.op_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
529 , a1 out nocopy JTF_NUMBER_TABLE
530 , a2 out nocopy JTF_NUMBER_TABLE
531 , a3 out nocopy JTF_NUMBER_TABLE
532 , a4 out nocopy JTF_VARCHAR2_TABLE_300
533 , a5 out nocopy JTF_DATE_TABLE
534 , a6 out nocopy JTF_DATE_TABLE
535 , a7 out nocopy JTF_DATE_TABLE
536 , a8 out nocopy JTF_DATE_TABLE
537 , a9 out nocopy JTF_NUMBER_TABLE
538 , a10 out nocopy JTF_NUMBER_TABLE
539 , a11 out nocopy JTF_NUMBER_TABLE
540 , a12 out nocopy JTF_NUMBER_TABLE
541 , a13 out nocopy JTF_NUMBER_TABLE
542 , a14 out nocopy JTF_VARCHAR2_TABLE_100
543 , a15 out nocopy JTF_VARCHAR2_TABLE_100
544 , a16 out nocopy JTF_NUMBER_TABLE
545 , a17 out nocopy JTF_VARCHAR2_TABLE_100
546 ) as
547 ddindx binary_integer; indx binary_integer;
548 begin
549 if t is null or t.count = 0 then
550 a0 := JTF_NUMBER_TABLE();
551 a1 := JTF_NUMBER_TABLE();
552 a2 := JTF_NUMBER_TABLE();
553 a3 := JTF_NUMBER_TABLE();
554 a4 := JTF_VARCHAR2_TABLE_300();
555 a5 := JTF_DATE_TABLE();
556 a6 := JTF_DATE_TABLE();
557 a7 := JTF_DATE_TABLE();
558 a8 := JTF_DATE_TABLE();
559 a9 := JTF_NUMBER_TABLE();
560 a10 := JTF_NUMBER_TABLE();
561 a11 := JTF_NUMBER_TABLE();
562 a12 := JTF_NUMBER_TABLE();
563 a13 := JTF_NUMBER_TABLE();
564 a14 := JTF_VARCHAR2_TABLE_100();
565 a15 := JTF_VARCHAR2_TABLE_100();
566 a16 := JTF_NUMBER_TABLE();
567 a17 := JTF_VARCHAR2_TABLE_100();
568 else
569 a0 := JTF_NUMBER_TABLE();
570 a1 := JTF_NUMBER_TABLE();
571 a2 := JTF_NUMBER_TABLE();
572 a3 := JTF_NUMBER_TABLE();
573 a4 := JTF_VARCHAR2_TABLE_300();
574 a5 := JTF_DATE_TABLE();
575 a6 := JTF_DATE_TABLE();
576 a7 := JTF_DATE_TABLE();
577 a8 := JTF_DATE_TABLE();
578 a9 := JTF_NUMBER_TABLE();
579 a10 := JTF_NUMBER_TABLE();
580 a11 := JTF_NUMBER_TABLE();
581 a12 := JTF_NUMBER_TABLE();
582 a13 := JTF_NUMBER_TABLE();
583 a14 := JTF_VARCHAR2_TABLE_100();
584 a15 := JTF_VARCHAR2_TABLE_100();
585 a16 := JTF_NUMBER_TABLE();
586 a17 := JTF_VARCHAR2_TABLE_100();
587 if t.count > 0 then
588 a0.extend(t.count);
589 a1.extend(t.count);
590 a2.extend(t.count);
591 a3.extend(t.count);
592 a4.extend(t.count);
593 a5.extend(t.count);
594 a6.extend(t.count);
595 a7.extend(t.count);
596 a8.extend(t.count);
597 a9.extend(t.count);
598 a10.extend(t.count);
599 a11.extend(t.count);
600 a12.extend(t.count);
601 a13.extend(t.count);
602 a14.extend(t.count);
603 a15.extend(t.count);
604 a16.extend(t.count);
605 a17.extend(t.count);
606 ddindx := t.first;
607 indx := 1;
608 while true loop
609 a0(indx) := t(ddindx).wip_transaction_detail_id;
610 a1(indx) := t(ddindx).backflush_flag;
611 a2(indx) := t(ddindx).count_point_type;
612 a3(indx) := t(ddindx).department_id;
613 a4(indx) := t(ddindx).description;
614 a5(indx) := t(ddindx).first_unit_completion_date;
615 a6(indx) := t(ddindx).first_unit_start_date;
616 a7(indx) := t(ddindx).last_unit_completion_date;
617 a8(indx) := t(ddindx).last_unit_start_date;
618 a9(indx) := t(ddindx).minimum_transfer_quantity;
619 a10(indx) := t(ddindx).operation_seq_num;
620 a11(indx) := t(ddindx).standard_operation_id;
621 a12(indx) := t(ddindx).wip_entity_id;
622 a13(indx) := t(ddindx).organization_id;
623 a14(indx) := t(ddindx).organization_code;
624 a15(indx) := t(ddindx).wip_entity_name;
625 a16(indx) := t(ddindx).object_version_number;
626 a17(indx) := t(ddindx).new_row;
627 indx := indx+1;
628 if t.last =ddindx
629 then exit;
630 end if;
631 ddindx := t.next(ddindx);
632 end loop;
633 end if;
634 end if;
635 end rosetta_table_copy_out_p9;
636
637 procedure rosetta_table_copy_in_p11(t out nocopy csd_hv_wip_job_pvt.service_code_tbl_type, a0 JTF_NUMBER_TABLE
638 , a1 JTF_NUMBER_TABLE
639 , a2 JTF_NUMBER_TABLE
640 , a3 JTF_NUMBER_TABLE
641 ) as
642 ddindx binary_integer; indx binary_integer;
643 begin
644 if a0 is not null and a0.count > 0 then
645 if a0.count > 0 then
646 indx := a0.first;
647 ddindx := 1;
648 while true loop
649 t(ddindx).ro_service_code_id := a0(indx);
650 t(ddindx).inventory_item_id := a1(indx);
654 if a0.last =indx
651 t(ddindx).service_code_id := a2(indx);
652 t(ddindx).object_version_number := a3(indx);
653 ddindx := ddindx+1;
655 then exit;
656 end if;
657 indx := a0.next(indx);
658 end loop;
659 end if;
660 end if;
661 end rosetta_table_copy_in_p11;
662 procedure rosetta_table_copy_out_p11(t csd_hv_wip_job_pvt.service_code_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
663 , a1 out nocopy JTF_NUMBER_TABLE
664 , a2 out nocopy JTF_NUMBER_TABLE
665 , a3 out nocopy JTF_NUMBER_TABLE
666 ) as
667 ddindx binary_integer; indx binary_integer;
668 begin
669 if t is null or t.count = 0 then
670 a0 := JTF_NUMBER_TABLE();
671 a1 := JTF_NUMBER_TABLE();
672 a2 := JTF_NUMBER_TABLE();
673 a3 := JTF_NUMBER_TABLE();
674 else
675 a0 := JTF_NUMBER_TABLE();
676 a1 := JTF_NUMBER_TABLE();
677 a2 := JTF_NUMBER_TABLE();
678 a3 := JTF_NUMBER_TABLE();
679 if t.count > 0 then
680 a0.extend(t.count);
681 a1.extend(t.count);
682 a2.extend(t.count);
683 a3.extend(t.count);
684 ddindx := t.first;
685 indx := 1;
686 while true loop
687 a0(indx) := t(ddindx).ro_service_code_id;
688 a1(indx) := t(ddindx).inventory_item_id;
689 a2(indx) := t(ddindx).service_code_id;
690 a3(indx) := t(ddindx).object_version_number;
691 indx := indx+1;
692 if t.last =ddindx
693 then exit;
694 end if;
695 ddindx := t.next(ddindx);
696 end loop;
697 end if;
698 end if;
699 end rosetta_table_copy_out_p11;
700
701 procedure process_oper_comp_txn(p_api_version_number NUMBER
702 , p_init_msg_list VARCHAR2
703 , p_commit VARCHAR2
704 , p_validation_level NUMBER
705 , x_return_status out nocopy VARCHAR2
706 , x_msg_count out nocopy NUMBER
707 , x_msg_data out nocopy VARCHAR2
708 , p7_a0 JTF_VARCHAR2_TABLE_300
709 , p7_a1 JTF_NUMBER_TABLE
710 , p7_a2 JTF_NUMBER_TABLE
711 , p7_a3 JTF_NUMBER_TABLE
712 , p7_a4 JTF_NUMBER_TABLE
713 , p7_a5 JTF_VARCHAR2_TABLE_100
714 , p7_a6 JTF_NUMBER_TABLE
715 )
716
717 as
718 ddp_mv_txn_dtls_tbl csd_hv_wip_job_pvt.mv_txn_dtls_tbl_type;
719 ddindx binary_integer; indx binary_integer;
720 begin
721
722 -- copy data to the local IN or IN-OUT args, if any
723
724
725
726
727
728
729
730 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p3(ddp_mv_txn_dtls_tbl, p7_a0
731 , p7_a1
732 , p7_a2
733 , p7_a3
734 , p7_a4
735 , p7_a5
736 , p7_a6
737 );
738
739 -- here's the delegated call to the old PL/SQL routine
740 csd_hv_wip_job_pvt.process_oper_comp_txn(p_api_version_number,
741 p_init_msg_list,
742 p_commit,
743 p_validation_level,
744 x_return_status,
745 x_msg_count,
746 x_msg_data,
747 ddp_mv_txn_dtls_tbl);
748
749 -- copy data back from the local variables to OUT or IN-OUT args, if any
750
751
752
753
754
755
756
757 end;
758
759 procedure process_job_comp_txn(p_api_version_number NUMBER
760 , p_init_msg_list VARCHAR2
761 , p_commit VARCHAR2
762 , p_validation_level NUMBER
763 , x_return_status out nocopy VARCHAR2
764 , x_msg_count out nocopy NUMBER
765 , x_msg_data out nocopy VARCHAR2
766 , p7_a0 NUMBER
767 , p7_a1 NUMBER
768 , p7_a2 NUMBER
769 , p7_a3 NUMBER
770 , p7_a4 VARCHAR2
771 , p7_a5 NUMBER
772 , p7_a6 VARCHAR2
773 , p7_a7 NUMBER
774 , p7_a8 NUMBER
775 , p7_a9 NUMBER
776 , x_transaction_header_id out nocopy NUMBER
777 )
778
779 as
780 ddp_comp_job_dtls_rec csd_hv_wip_job_pvt.job_dtls_rec_type;
781 ddindx binary_integer; indx binary_integer;
782 begin
783
784 -- copy data to the local IN or IN-OUT args, if any
785
786
787
788
789
790
791
792 ddp_comp_job_dtls_rec.wip_entity_id := p7_a0;
793 ddp_comp_job_dtls_rec.inventory_item_id := p7_a1;
794 ddp_comp_job_dtls_rec.organization_id := p7_a2;
795 ddp_comp_job_dtls_rec.transaction_quantity := p7_a3;
796 ddp_comp_job_dtls_rec.completion_subinventory := p7_a4;
797 ddp_comp_job_dtls_rec.completion_locator_id := p7_a5;
798 ddp_comp_job_dtls_rec.transaction_uom := p7_a6;
799 ddp_comp_job_dtls_rec.revision_qty_control_code := p7_a7;
800 ddp_comp_job_dtls_rec.serial_number_control_code := p7_a8;
801 ddp_comp_job_dtls_rec.lot_control_code := p7_a9;
802
803
804 -- here's the delegated call to the old PL/SQL routine
805 csd_hv_wip_job_pvt.process_job_comp_txn(p_api_version_number,
806 p_init_msg_list,
807 p_commit,
808 p_validation_level,
809 x_return_status,
810 x_msg_count,
811 x_msg_data,
812 ddp_comp_job_dtls_rec,
816
813 x_transaction_header_id);
814
815 -- copy data back from the local variables to OUT or IN-OUT args, if any
817
818
819
820
821
822
823
824 end;
825
826 procedure insert_job_comp_txn(p_api_version_number NUMBER
827 , p_init_msg_list VARCHAR2
828 , p_commit VARCHAR2
829 , p_validation_level NUMBER
830 , x_return_status out nocopy VARCHAR2
831 , x_msg_count out nocopy NUMBER
832 , x_msg_data out nocopy VARCHAR2
833 , p7_a0 NUMBER
834 , p7_a1 NUMBER
835 , p7_a2 NUMBER
836 , p7_a3 NUMBER
837 , p7_a4 VARCHAR2
838 , p7_a5 NUMBER
839 , p7_a6 VARCHAR2
840 , p7_a7 NUMBER
841 , p7_a8 NUMBER
842 , p7_a9 NUMBER
843 , x_need_details_flag out nocopy VARCHAR2
844 , x_transaction_header_id out nocopy NUMBER
845 )
846
847 as
848 ddp_comp_job_dtls_rec csd_hv_wip_job_pvt.job_dtls_rec_type;
849 ddindx binary_integer; indx binary_integer;
850 begin
851
852 -- copy data to the local IN or IN-OUT args, if any
853
854
855
856
857
858
859
860 ddp_comp_job_dtls_rec.wip_entity_id := p7_a0;
861 ddp_comp_job_dtls_rec.inventory_item_id := p7_a1;
862 ddp_comp_job_dtls_rec.organization_id := p7_a2;
863 ddp_comp_job_dtls_rec.transaction_quantity := p7_a3;
864 ddp_comp_job_dtls_rec.completion_subinventory := p7_a4;
865 ddp_comp_job_dtls_rec.completion_locator_id := p7_a5;
866 ddp_comp_job_dtls_rec.transaction_uom := p7_a6;
867 ddp_comp_job_dtls_rec.revision_qty_control_code := p7_a7;
868 ddp_comp_job_dtls_rec.serial_number_control_code := p7_a8;
869 ddp_comp_job_dtls_rec.lot_control_code := p7_a9;
870
871
872
873 -- here's the delegated call to the old PL/SQL routine
874 csd_hv_wip_job_pvt.insert_job_comp_txn(p_api_version_number,
875 p_init_msg_list,
876 p_commit,
877 p_validation_level,
878 x_return_status,
879 x_msg_count,
880 x_msg_data,
881 ddp_comp_job_dtls_rec,
882 x_need_details_flag,
883 x_transaction_header_id);
884
885 -- copy data back from the local variables to OUT or IN-OUT args, if any
886
887
888
889
890
891
892
893
894
895 end;
896
897 procedure process_issue_mtl_txn(p_api_version_number NUMBER
898 , p_init_msg_list VARCHAR2
899 , p_commit VARCHAR2
900 , p_validation_level NUMBER
901 , x_return_status out nocopy VARCHAR2
902 , x_msg_count out nocopy NUMBER
903 , x_msg_data out nocopy VARCHAR2
904 , p7_a0 JTF_NUMBER_TABLE
905 , p7_a1 JTF_NUMBER_TABLE
906 , p7_a2 JTF_NUMBER_TABLE
907 , p7_a3 JTF_NUMBER_TABLE
908 , p7_a4 JTF_NUMBER_TABLE
909 , p7_a5 JTF_NUMBER_TABLE
910 , p7_a6 JTF_NUMBER_TABLE
911 , p7_a7 JTF_NUMBER_TABLE
912 , p7_a8 JTF_NUMBER_TABLE
913 , p7_a9 JTF_NUMBER_TABLE
914 , p7_a10 JTF_VARCHAR2_TABLE_100
915 , p7_a11 JTF_VARCHAR2_TABLE_100
916 , p7_a12 JTF_VARCHAR2_TABLE_100
917 , p7_a13 JTF_VARCHAR2_TABLE_100
918 , p7_a14 JTF_VARCHAR2_TABLE_100
919 , p7_a15 JTF_NUMBER_TABLE
920 , p7_a16 JTF_NUMBER_TABLE
921 , p7_a17 JTF_NUMBER_TABLE
922 , p7_a18 JTF_VARCHAR2_TABLE_100
923 , p7_a19 JTF_NUMBER_TABLE
924 , p7_a20 JTF_NUMBER_TABLE
925 , p7_a21 JTF_NUMBER_TABLE
926 , p7_a22 JTF_VARCHAR2_TABLE_100
927 , p7_a23 JTF_NUMBER_TABLE
928 , x_transaction_header_id out nocopy NUMBER
929 )
930
931 as
932 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
933 ddindx binary_integer; indx binary_integer;
934 begin
935
936 -- copy data to the local IN or IN-OUT args, if any
937
938
939
940
941
942
943
944 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
945 , p7_a1
946 , p7_a2
947 , p7_a3
948 , p7_a4
949 , p7_a5
950 , p7_a6
951 , p7_a7
952 , p7_a8
953 , p7_a9
954 , p7_a10
955 , p7_a11
956 , p7_a12
957 , p7_a13
958 , p7_a14
959 , p7_a15
960 , p7_a16
961 , p7_a17
962 , p7_a18
963 , p7_a19
964 , p7_a20
965 , p7_a21
966 , p7_a22
967 , p7_a23
968 );
969
970
971 -- here's the delegated call to the old PL/SQL routine
972 csd_hv_wip_job_pvt.process_issue_mtl_txn(p_api_version_number,
973 p_init_msg_list,
974 p_commit,
975 p_validation_level,
976 x_return_status,
977 x_msg_count,
978 x_msg_data,
979 ddp_mtl_txn_dtls_tbl,
980 x_transaction_header_id);
981
982 -- copy data back from the local variables to OUT or IN-OUT args, if any
983
984
985
986
987
988
989
990
991 end;
992
996 , p_validation_level NUMBER
993 procedure process_issue_mtl_txns_lot_srl(p_api_version_number NUMBER
994 , p_init_msg_list VARCHAR2
995 , p_commit VARCHAR2
997 , x_return_status out nocopy VARCHAR2
998 , x_msg_count out nocopy NUMBER
999 , x_msg_data out nocopy VARCHAR2
1000 , p7_a0 JTF_NUMBER_TABLE
1001 , p7_a1 JTF_NUMBER_TABLE
1002 , p7_a2 JTF_NUMBER_TABLE
1003 , p7_a3 JTF_NUMBER_TABLE
1004 , p7_a4 JTF_NUMBER_TABLE
1005 , p7_a5 JTF_NUMBER_TABLE
1006 , p7_a6 JTF_NUMBER_TABLE
1007 , p7_a7 JTF_NUMBER_TABLE
1008 , p7_a8 JTF_NUMBER_TABLE
1009 , p7_a9 JTF_NUMBER_TABLE
1010 , p7_a10 JTF_VARCHAR2_TABLE_100
1011 , p7_a11 JTF_VARCHAR2_TABLE_100
1012 , p7_a12 JTF_VARCHAR2_TABLE_100
1013 , p7_a13 JTF_VARCHAR2_TABLE_100
1014 , p7_a14 JTF_VARCHAR2_TABLE_100
1015 , p7_a15 JTF_NUMBER_TABLE
1016 , p7_a16 JTF_NUMBER_TABLE
1017 , p7_a17 JTF_NUMBER_TABLE
1018 , p7_a18 JTF_VARCHAR2_TABLE_100
1019 , p7_a19 JTF_NUMBER_TABLE
1020 , p7_a20 JTF_NUMBER_TABLE
1021 , p7_a21 JTF_NUMBER_TABLE
1022 , p7_a22 JTF_VARCHAR2_TABLE_100
1023 , p7_a23 JTF_NUMBER_TABLE
1024 , p_transaction_header_id NUMBER
1025 )
1026
1027 as
1028 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1029 ddindx binary_integer; indx binary_integer;
1030 begin
1031
1032 -- copy data to the local IN or IN-OUT args, if any
1033
1034
1035
1036
1037
1038
1039
1040 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1041 , p7_a1
1042 , p7_a2
1043 , p7_a3
1044 , p7_a4
1045 , p7_a5
1046 , p7_a6
1047 , p7_a7
1048 , p7_a8
1049 , p7_a9
1050 , p7_a10
1051 , p7_a11
1052 , p7_a12
1053 , p7_a13
1054 , p7_a14
1055 , p7_a15
1056 , p7_a16
1057 , p7_a17
1058 , p7_a18
1059 , p7_a19
1060 , p7_a20
1061 , p7_a21
1062 , p7_a22
1063 , p7_a23
1064 );
1065
1066
1067 -- here's the delegated call to the old PL/SQL routine
1068 csd_hv_wip_job_pvt.process_issue_mtl_txns_lot_srl(p_api_version_number,
1069 p_init_msg_list,
1070 p_commit,
1071 p_validation_level,
1072 x_return_status,
1073 x_msg_count,
1074 x_msg_data,
1075 ddp_mtl_txn_dtls_tbl,
1076 p_transaction_header_id);
1077
1078 -- copy data back from the local variables to OUT or IN-OUT args, if any
1079
1080
1081
1082
1083
1084
1085
1086
1087 end;
1088
1089 procedure update_mtl_txns_lot_srl(p_api_version_number NUMBER
1090 , p_init_msg_list VARCHAR2
1091 , p_commit VARCHAR2
1092 , p_validation_level NUMBER
1093 , x_return_status out nocopy VARCHAR2
1094 , x_msg_count out nocopy NUMBER
1095 , x_msg_data out nocopy VARCHAR2
1096 , p7_a0 JTF_NUMBER_TABLE
1097 , p7_a1 JTF_NUMBER_TABLE
1098 , p7_a2 JTF_NUMBER_TABLE
1099 , p7_a3 JTF_NUMBER_TABLE
1100 , p7_a4 JTF_NUMBER_TABLE
1101 , p7_a5 JTF_NUMBER_TABLE
1102 , p7_a6 JTF_NUMBER_TABLE
1103 , p7_a7 JTF_NUMBER_TABLE
1104 , p7_a8 JTF_NUMBER_TABLE
1105 , p7_a9 JTF_NUMBER_TABLE
1106 , p7_a10 JTF_VARCHAR2_TABLE_100
1107 , p7_a11 JTF_VARCHAR2_TABLE_100
1108 , p7_a12 JTF_VARCHAR2_TABLE_100
1109 , p7_a13 JTF_VARCHAR2_TABLE_100
1110 , p7_a14 JTF_VARCHAR2_TABLE_100
1111 , p7_a15 JTF_NUMBER_TABLE
1112 , p7_a16 JTF_NUMBER_TABLE
1113 , p7_a17 JTF_NUMBER_TABLE
1114 , p7_a18 JTF_VARCHAR2_TABLE_100
1115 , p7_a19 JTF_NUMBER_TABLE
1116 , p7_a20 JTF_NUMBER_TABLE
1117 , p7_a21 JTF_NUMBER_TABLE
1118 , p7_a22 JTF_VARCHAR2_TABLE_100
1119 , p7_a23 JTF_NUMBER_TABLE
1120 , p_transaction_header_id NUMBER
1121 )
1122
1123 as
1124 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1125 ddindx binary_integer; indx binary_integer;
1126 begin
1127
1128 -- copy data to the local IN or IN-OUT args, if any
1129
1130
1131
1132
1133
1134
1135
1136 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1137 , p7_a1
1138 , p7_a2
1139 , p7_a3
1140 , p7_a4
1141 , p7_a5
1142 , p7_a6
1143 , p7_a7
1144 , p7_a8
1145 , p7_a9
1146 , p7_a10
1147 , p7_a11
1148 , p7_a12
1149 , p7_a13
1150 , p7_a14
1151 , p7_a15
1152 , p7_a16
1153 , p7_a17
1154 , p7_a18
1155 , p7_a19
1156 , p7_a20
1157 , p7_a21
1158 , p7_a22
1159 , p7_a23
1160 );
1161
1162
1163 -- here's the delegated call to the old PL/SQL routine
1164 csd_hv_wip_job_pvt.update_mtl_txns_lot_srl(p_api_version_number,
1165 p_init_msg_list,
1166 p_commit,
1167 p_validation_level,
1168 x_return_status,
1169 x_msg_count,
1170 x_msg_data,
1171 ddp_mtl_txn_dtls_tbl,
1175
1172 p_transaction_header_id);
1173
1174 -- copy data back from the local variables to OUT or IN-OUT args, if any
1176
1177
1178
1179
1180
1181
1182
1183 end;
1184
1185 procedure process_transact_res_txn(p_api_version_number NUMBER
1186 , p_init_msg_list VARCHAR2
1187 , p_commit VARCHAR2
1188 , p_validation_level NUMBER
1189 , x_return_status out nocopy VARCHAR2
1190 , x_msg_count out nocopy NUMBER
1191 , x_msg_data out nocopy VARCHAR2
1192 , p7_a0 JTF_NUMBER_TABLE
1193 , p7_a1 JTF_NUMBER_TABLE
1194 , p7_a2 JTF_NUMBER_TABLE
1195 , p7_a3 JTF_NUMBER_TABLE
1196 , p7_a4 JTF_NUMBER_TABLE
1197 , p7_a5 JTF_NUMBER_TABLE
1198 , p7_a6 JTF_NUMBER_TABLE
1199 , p7_a7 JTF_NUMBER_TABLE
1200 , p7_a8 JTF_NUMBER_TABLE
1201 , p7_a9 JTF_NUMBER_TABLE
1202 , p7_a10 JTF_NUMBER_TABLE
1203 , p7_a11 JTF_VARCHAR2_TABLE_100
1204 , p7_a12 JTF_NUMBER_TABLE
1205 , p7_a13 JTF_NUMBER_TABLE
1206 , p7_a14 JTF_VARCHAR2_TABLE_100
1207 , p7_a15 JTF_VARCHAR2_TABLE_100
1208 , p7_a16 JTF_VARCHAR2_TABLE_100
1209 , p7_a17 JTF_NUMBER_TABLE
1210 , p7_a18 JTF_VARCHAR2_TABLE_100
1211 , p7_a19 JTF_NUMBER_TABLE
1212 , p7_a20 JTF_VARCHAR2_TABLE_100
1213 )
1214
1215 as
1216 ddp_res_txn_dtls_tbl csd_hv_wip_job_pvt.res_txn_dtls_tbl_type;
1217 ddindx binary_integer; indx binary_integer;
1218 begin
1219
1220 -- copy data to the local IN or IN-OUT args, if any
1221
1222
1223
1224
1225
1226
1227
1228 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p7(ddp_res_txn_dtls_tbl, p7_a0
1229 , p7_a1
1230 , p7_a2
1231 , p7_a3
1232 , p7_a4
1233 , p7_a5
1234 , p7_a6
1235 , p7_a7
1236 , p7_a8
1237 , p7_a9
1238 , p7_a10
1239 , p7_a11
1240 , p7_a12
1241 , p7_a13
1242 , p7_a14
1243 , p7_a15
1244 , p7_a16
1245 , p7_a17
1246 , p7_a18
1247 , p7_a19
1248 , p7_a20
1249 );
1250
1251 -- here's the delegated call to the old PL/SQL routine
1252 csd_hv_wip_job_pvt.process_transact_res_txn(p_api_version_number,
1253 p_init_msg_list,
1254 p_commit,
1255 p_validation_level,
1256 x_return_status,
1257 x_msg_count,
1258 x_msg_data,
1259 ddp_res_txn_dtls_tbl);
1260
1261 -- copy data back from the local variables to OUT or IN-OUT args, if any
1262
1263
1264
1265
1266
1267
1268
1269 end;
1270
1271 procedure process_save_mtl_txn_dtls(p_api_version_number NUMBER
1272 , p_init_msg_list VARCHAR2
1273 , p_commit VARCHAR2
1274 , p_validation_level NUMBER
1275 , x_return_status out nocopy VARCHAR2
1276 , x_msg_count out nocopy NUMBER
1277 , x_msg_data out nocopy VARCHAR2
1278 , p7_a0 JTF_NUMBER_TABLE
1279 , p7_a1 JTF_NUMBER_TABLE
1280 , p7_a2 JTF_NUMBER_TABLE
1281 , p7_a3 JTF_NUMBER_TABLE
1282 , p7_a4 JTF_NUMBER_TABLE
1283 , p7_a5 JTF_NUMBER_TABLE
1284 , p7_a6 JTF_NUMBER_TABLE
1285 , p7_a7 JTF_NUMBER_TABLE
1286 , p7_a8 JTF_NUMBER_TABLE
1287 , p7_a9 JTF_NUMBER_TABLE
1288 , p7_a10 JTF_VARCHAR2_TABLE_100
1289 , p7_a11 JTF_VARCHAR2_TABLE_100
1290 , p7_a12 JTF_VARCHAR2_TABLE_100
1291 , p7_a13 JTF_VARCHAR2_TABLE_100
1292 , p7_a14 JTF_VARCHAR2_TABLE_100
1293 , p7_a15 JTF_NUMBER_TABLE
1294 , p7_a16 JTF_NUMBER_TABLE
1295 , p7_a17 JTF_NUMBER_TABLE
1296 , p7_a18 JTF_VARCHAR2_TABLE_100
1297 , p7_a19 JTF_NUMBER_TABLE
1298 , p7_a20 JTF_NUMBER_TABLE
1299 , p7_a21 JTF_NUMBER_TABLE
1300 , p7_a22 JTF_VARCHAR2_TABLE_100
1301 , p7_a23 JTF_NUMBER_TABLE
1302 , x_op_created out nocopy VARCHAR
1303 )
1304
1305 as
1306 ddp_mtl_txn_dtls_tbl csd_hv_wip_job_pvt.mtl_txn_dtls_tbl_type;
1307 ddindx binary_integer; indx binary_integer;
1308 begin
1309
1310 -- copy data to the local IN or IN-OUT args, if any
1311
1312
1313
1314
1315
1316
1317
1318 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p5(ddp_mtl_txn_dtls_tbl, p7_a0
1319 , p7_a1
1320 , p7_a2
1321 , p7_a3
1322 , p7_a4
1323 , p7_a5
1324 , p7_a6
1325 , p7_a7
1326 , p7_a8
1327 , p7_a9
1328 , p7_a10
1329 , p7_a11
1330 , p7_a12
1331 , p7_a13
1332 , p7_a14
1333 , p7_a15
1334 , p7_a16
1335 , p7_a17
1336 , p7_a18
1337 , p7_a19
1338 , p7_a20
1339 , p7_a21
1340 , p7_a22
1341 , p7_a23
1342 );
1343
1344
1345 -- here's the delegated call to the old PL/SQL routine
1346 csd_hv_wip_job_pvt.process_save_mtl_txn_dtls(p_api_version_number,
1347 p_init_msg_list,
1348 p_commit,
1349 p_validation_level,
1350 x_return_status,
1351 x_msg_count,
1352 x_msg_data,
1353 ddp_mtl_txn_dtls_tbl,
1354 x_op_created);
1358
1355
1356 -- copy data back from the local variables to OUT or IN-OUT args, if any
1357
1359
1360
1361
1362
1363
1364
1365 end;
1366
1367 procedure process_save_res_txn_dtls(p_api_version_number NUMBER
1368 , p_init_msg_list VARCHAR2
1369 , p_commit VARCHAR2
1370 , p_validation_level NUMBER
1371 , x_return_status out nocopy VARCHAR2
1372 , x_msg_count out nocopy NUMBER
1373 , x_msg_data out nocopy VARCHAR2
1374 , p7_a0 JTF_NUMBER_TABLE
1375 , p7_a1 JTF_NUMBER_TABLE
1376 , p7_a2 JTF_NUMBER_TABLE
1377 , p7_a3 JTF_NUMBER_TABLE
1378 , p7_a4 JTF_NUMBER_TABLE
1379 , p7_a5 JTF_NUMBER_TABLE
1380 , p7_a6 JTF_NUMBER_TABLE
1381 , p7_a7 JTF_NUMBER_TABLE
1382 , p7_a8 JTF_NUMBER_TABLE
1383 , p7_a9 JTF_NUMBER_TABLE
1384 , p7_a10 JTF_NUMBER_TABLE
1385 , p7_a11 JTF_VARCHAR2_TABLE_100
1386 , p7_a12 JTF_NUMBER_TABLE
1387 , p7_a13 JTF_NUMBER_TABLE
1388 , p7_a14 JTF_VARCHAR2_TABLE_100
1389 , p7_a15 JTF_VARCHAR2_TABLE_100
1390 , p7_a16 JTF_VARCHAR2_TABLE_100
1391 , p7_a17 JTF_NUMBER_TABLE
1392 , p7_a18 JTF_VARCHAR2_TABLE_100
1393 , p7_a19 JTF_NUMBER_TABLE
1394 , p7_a20 JTF_VARCHAR2_TABLE_100
1395 )
1396
1397 as
1398 ddp_res_txn_dtls_tbl csd_hv_wip_job_pvt.res_txn_dtls_tbl_type;
1399 ddindx binary_integer; indx binary_integer;
1400 begin
1401
1402 -- copy data to the local IN or IN-OUT args, if any
1403
1404
1405
1406
1407
1408
1409
1410 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p7(ddp_res_txn_dtls_tbl, p7_a0
1411 , p7_a1
1412 , p7_a2
1413 , p7_a3
1414 , p7_a4
1415 , p7_a5
1416 , p7_a6
1417 , p7_a7
1418 , p7_a8
1419 , p7_a9
1420 , p7_a10
1421 , p7_a11
1422 , p7_a12
1423 , p7_a13
1424 , p7_a14
1425 , p7_a15
1426 , p7_a16
1427 , p7_a17
1428 , p7_a18
1429 , p7_a19
1430 , p7_a20
1431 );
1432
1433 -- here's the delegated call to the old PL/SQL routine
1434 csd_hv_wip_job_pvt.process_save_res_txn_dtls(p_api_version_number,
1435 p_init_msg_list,
1436 p_commit,
1437 p_validation_level,
1438 x_return_status,
1439 x_msg_count,
1440 x_msg_data,
1441 ddp_res_txn_dtls_tbl);
1442
1443 -- copy data back from the local variables to OUT or IN-OUT args, if any
1444
1445
1446
1447
1448
1449
1450
1451 end;
1452
1453 procedure process_save_op_dtls(p_api_version_number NUMBER
1454 , p_init_msg_list VARCHAR2
1455 , p_commit VARCHAR2
1456 , p_validation_level NUMBER
1457 , x_return_status out nocopy VARCHAR2
1458 , x_msg_count out nocopy NUMBER
1459 , x_msg_data out nocopy VARCHAR2
1460 , p7_a0 JTF_NUMBER_TABLE
1461 , p7_a1 JTF_NUMBER_TABLE
1462 , p7_a2 JTF_NUMBER_TABLE
1463 , p7_a3 JTF_NUMBER_TABLE
1464 , p7_a4 JTF_VARCHAR2_TABLE_300
1465 , p7_a5 JTF_DATE_TABLE
1466 , p7_a6 JTF_DATE_TABLE
1467 , p7_a7 JTF_DATE_TABLE
1468 , p7_a8 JTF_DATE_TABLE
1469 , p7_a9 JTF_NUMBER_TABLE
1470 , p7_a10 JTF_NUMBER_TABLE
1471 , p7_a11 JTF_NUMBER_TABLE
1472 , p7_a12 JTF_NUMBER_TABLE
1473 , p7_a13 JTF_NUMBER_TABLE
1474 , p7_a14 JTF_VARCHAR2_TABLE_100
1475 , p7_a15 JTF_VARCHAR2_TABLE_100
1476 , p7_a16 JTF_NUMBER_TABLE
1477 , p7_a17 JTF_VARCHAR2_TABLE_100
1478 )
1479
1480 as
1481 ddp_op_dtls_tbl csd_hv_wip_job_pvt.op_dtls_tbl_type;
1482 ddindx binary_integer; indx binary_integer;
1483 begin
1484
1485 -- copy data to the local IN or IN-OUT args, if any
1486
1487
1488
1489
1490
1491
1492
1493 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p9(ddp_op_dtls_tbl, p7_a0
1494 , p7_a1
1495 , p7_a2
1496 , p7_a3
1497 , p7_a4
1498 , p7_a5
1499 , p7_a6
1500 , p7_a7
1501 , p7_a8
1502 , p7_a9
1503 , p7_a10
1504 , p7_a11
1505 , p7_a12
1506 , p7_a13
1507 , p7_a14
1508 , p7_a15
1509 , p7_a16
1510 , p7_a17
1511 );
1512
1513 -- here's the delegated call to the old PL/SQL routine
1514 csd_hv_wip_job_pvt.process_save_op_dtls(p_api_version_number,
1515 p_init_msg_list,
1516 p_commit,
1517 p_validation_level,
1518 x_return_status,
1519 x_msg_count,
1520 x_msg_data,
1521 ddp_op_dtls_tbl);
1522
1523 -- copy data back from the local variables to OUT or IN-OUT args, if any
1524
1525
1526
1527
1528
1529
1530
1531 end;
1532
1533 procedure generate_wip_jobs_from_scs(p_api_version_number NUMBER
1534 , p_init_msg_list VARCHAR2
1535 , p_commit VARCHAR2
1536 , p_validation_level NUMBER
1537 , x_return_status out nocopy VARCHAR2
1538 , x_msg_count out nocopy NUMBER
1539 , x_msg_data out nocopy VARCHAR2
1543 , p9_a1 JTF_NUMBER_TABLE
1540 , p_repair_line_id NUMBER
1541 , p_repair_quantity NUMBER
1542 , p9_a0 JTF_NUMBER_TABLE
1544 , p9_a2 JTF_NUMBER_TABLE
1545 , p9_a3 JTF_NUMBER_TABLE
1546 )
1547
1548 as
1549 ddp_service_code_tbl csd_hv_wip_job_pvt.service_code_tbl_type;
1550 ddindx binary_integer; indx binary_integer;
1551 begin
1552
1553 -- copy data to the local IN or IN-OUT args, if any
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563 csd_hv_wip_job_pvt_w.rosetta_table_copy_in_p11(ddp_service_code_tbl, p9_a0
1564 , p9_a1
1565 , p9_a2
1566 , p9_a3
1567 );
1568
1569 -- here's the delegated call to the old PL/SQL routine
1570 csd_hv_wip_job_pvt.generate_wip_jobs_from_scs(p_api_version_number,
1571 p_init_msg_list,
1572 p_commit,
1573 p_validation_level,
1574 x_return_status,
1575 x_msg_count,
1576 x_msg_data,
1577 p_repair_line_id,
1578 p_repair_quantity,
1579 ddp_service_code_tbl);
1580
1581 -- copy data back from the local variables to OUT or IN-OUT args, if any
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591 end;
1592
1593 end csd_hv_wip_job_pvt_w;