[Home] [Help]
PACKAGE BODY: APPS.CSP_TRANSACTIONS_PUB_W
Source
1 package body csp_transactions_pub_w as
2 /* $Header: csptppwb.pls 120.5.12020000.2 2012/07/20 10:00:18 rrajain ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy csp_transactions_pub.trans_items_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_VARCHAR2_TABLE_100
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_VARCHAR2_TABLE_100
20 , a4 JTF_VARCHAR2_TABLE_100
21 , a5 JTF_VARCHAR2_TABLE_100
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_VARCHAR2_TABLE_2000
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_NUMBER_TABLE
37 ) as
38 ddindx binary_integer; indx binary_integer;
39 begin
40 if a0 is not null and a0.count > 0 then
41 if a0.count > 0 then
42 indx := a0.first;
43 ddindx := 1;
44 while true loop
45 t(ddindx).inventory_item_id := a0(indx);
46 t(ddindx).revision := a1(indx);
47 t(ddindx).quantity := a2(indx);
48 t(ddindx).uom_code := a3(indx);
49 t(ddindx).lot_number := a4(indx);
50 t(ddindx).serial_number := a5(indx);
51 t(ddindx).frm_organization_id := a6(indx);
52 t(ddindx).frm_subinventory_code := a7(indx);
53 t(ddindx).frm_locator_id := a8(indx);
54 t(ddindx).to_organization_id := a9(indx);
55 t(ddindx).to_subinventory_code := a10(indx);
56 t(ddindx).to_locator_id := a11(indx);
57 t(ddindx).to_serial_number := a12(indx);
58 t(ddindx).waybill_airbill := a13(indx);
59 t(ddindx).freight_code := a14(indx);
60 t(ddindx).shipment_number := a15(indx);
61 t(ddindx).packlist_line_id := a16(indx);
62 t(ddindx).temp_transaction_id := a17(indx);
63 t(ddindx).error_msg := a18(indx);
64 t(ddindx).shipment_line_id := a19(indx);
65 t(ddindx).reason_id := a20(indx);
66 ddindx := ddindx+1;
67 if a0.last =indx
68 then exit;
69 end if;
70 indx := a0.next(indx);
71 end loop;
72 end if;
73 end if;
74 end rosetta_table_copy_in_p2;
75 procedure rosetta_table_copy_out_p2(t csp_transactions_pub.trans_items_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
76 , a1 out nocopy JTF_VARCHAR2_TABLE_100
77 , a2 out nocopy JTF_NUMBER_TABLE
78 , a3 out nocopy JTF_VARCHAR2_TABLE_100
79 , a4 out nocopy JTF_VARCHAR2_TABLE_100
80 , a5 out nocopy JTF_VARCHAR2_TABLE_100
81 , a6 out nocopy JTF_NUMBER_TABLE
82 , a7 out nocopy JTF_VARCHAR2_TABLE_100
83 , a8 out nocopy JTF_NUMBER_TABLE
84 , a9 out nocopy JTF_NUMBER_TABLE
85 , a10 out nocopy JTF_VARCHAR2_TABLE_100
86 , a11 out nocopy JTF_NUMBER_TABLE
87 , a12 out nocopy JTF_VARCHAR2_TABLE_100
88 , a13 out nocopy JTF_VARCHAR2_TABLE_100
89 , a14 out nocopy JTF_VARCHAR2_TABLE_100
90 , a15 out nocopy JTF_VARCHAR2_TABLE_100
91 , a16 out nocopy JTF_NUMBER_TABLE
92 , a17 out nocopy JTF_NUMBER_TABLE
93 , a18 out nocopy JTF_VARCHAR2_TABLE_2000
94 , a19 out nocopy JTF_NUMBER_TABLE
95 , a20 out nocopy JTF_NUMBER_TABLE
96 ) as
97 ddindx binary_integer; indx binary_integer;
98 begin
99 if t is null or t.count = 0 then
100 a0 := JTF_NUMBER_TABLE();
101 a1 := JTF_VARCHAR2_TABLE_100();
102 a2 := JTF_NUMBER_TABLE();
103 a3 := JTF_VARCHAR2_TABLE_100();
104 a4 := JTF_VARCHAR2_TABLE_100();
105 a5 := JTF_VARCHAR2_TABLE_100();
106 a6 := JTF_NUMBER_TABLE();
107 a7 := JTF_VARCHAR2_TABLE_100();
108 a8 := JTF_NUMBER_TABLE();
109 a9 := JTF_NUMBER_TABLE();
110 a10 := JTF_VARCHAR2_TABLE_100();
111 a11 := JTF_NUMBER_TABLE();
112 a12 := JTF_VARCHAR2_TABLE_100();
113 a13 := JTF_VARCHAR2_TABLE_100();
114 a14 := JTF_VARCHAR2_TABLE_100();
115 a15 := JTF_VARCHAR2_TABLE_100();
116 a16 := JTF_NUMBER_TABLE();
117 a17 := JTF_NUMBER_TABLE();
118 a18 := JTF_VARCHAR2_TABLE_2000();
119 a19 := JTF_NUMBER_TABLE();
120 a20 := JTF_NUMBER_TABLE();
121 else
122 a0 := JTF_NUMBER_TABLE();
123 a1 := JTF_VARCHAR2_TABLE_100();
124 a2 := JTF_NUMBER_TABLE();
125 a3 := JTF_VARCHAR2_TABLE_100();
126 a4 := JTF_VARCHAR2_TABLE_100();
127 a5 := JTF_VARCHAR2_TABLE_100();
128 a6 := JTF_NUMBER_TABLE();
129 a7 := JTF_VARCHAR2_TABLE_100();
130 a8 := JTF_NUMBER_TABLE();
131 a9 := JTF_NUMBER_TABLE();
132 a10 := JTF_VARCHAR2_TABLE_100();
133 a11 := JTF_NUMBER_TABLE();
134 a12 := JTF_VARCHAR2_TABLE_100();
135 a13 := JTF_VARCHAR2_TABLE_100();
136 a14 := JTF_VARCHAR2_TABLE_100();
137 a15 := JTF_VARCHAR2_TABLE_100();
138 a16 := JTF_NUMBER_TABLE();
139 a17 := JTF_NUMBER_TABLE();
140 a18 := JTF_VARCHAR2_TABLE_2000();
141 a19 := JTF_NUMBER_TABLE();
142 a20 := JTF_NUMBER_TABLE();
143 if t.count > 0 then
144 a0.extend(t.count);
145 a1.extend(t.count);
146 a2.extend(t.count);
147 a3.extend(t.count);
148 a4.extend(t.count);
149 a5.extend(t.count);
150 a6.extend(t.count);
151 a7.extend(t.count);
152 a8.extend(t.count);
153 a9.extend(t.count);
154 a10.extend(t.count);
155 a11.extend(t.count);
156 a12.extend(t.count);
157 a13.extend(t.count);
158 a14.extend(t.count);
159 a15.extend(t.count);
160 a16.extend(t.count);
161 a17.extend(t.count);
162 a18.extend(t.count);
163 a19.extend(t.count);
164 a20.extend(t.count);
165 ddindx := t.first;
166 indx := 1;
167 while true loop
168 a0(indx) := t(ddindx).inventory_item_id;
169 a1(indx) := t(ddindx).revision;
170 a2(indx) := t(ddindx).quantity;
171 a3(indx) := t(ddindx).uom_code;
172 a4(indx) := t(ddindx).lot_number;
173 a5(indx) := t(ddindx).serial_number;
174 a6(indx) := t(ddindx).frm_organization_id;
175 a7(indx) := t(ddindx).frm_subinventory_code;
176 a8(indx) := t(ddindx).frm_locator_id;
177 a9(indx) := t(ddindx).to_organization_id;
178 a10(indx) := t(ddindx).to_subinventory_code;
179 a11(indx) := t(ddindx).to_locator_id;
180 a12(indx) := t(ddindx).to_serial_number;
181 a13(indx) := t(ddindx).waybill_airbill;
182 a14(indx) := t(ddindx).freight_code;
183 a15(indx) := t(ddindx).shipment_number;
184 a16(indx) := t(ddindx).packlist_line_id;
185 a17(indx) := t(ddindx).temp_transaction_id;
186 a18(indx) := t(ddindx).error_msg;
187 a19(indx) := t(ddindx).shipment_line_id;
188 a20(indx) := t(ddindx).reason_id;
189 indx := indx+1;
190 if t.last =ddindx
191 then exit;
192 end if;
193 ddindx := t.next(ddindx);
194 end loop;
195 end if;
196 end if;
197 end rosetta_table_copy_out_p2;
198
199 procedure rosetta_table_copy_in_p17(t out nocopy csp_transactions_pub.csparray, a0 JTF_NUMBER_TABLE) as
200 ddindx binary_integer; indx binary_integer;
201 begin
202 if a0 is null then
203 t := null;
204 elsif a0.count = 0 then
205 t := csp_transactions_pub.csparray();
206 else
207 if a0.count > 0 then
208 t := csp_transactions_pub.csparray();
209 t.extend(a0.count);
210 indx := a0.first;
211 ddindx := 1;
212 while true loop
213 t(ddindx) := a0(indx);
214 ddindx := ddindx+1;
215 if a0.last =indx
216 then exit;
217 end if;
218 indx := a0.next(indx);
219 end loop;
220 end if;
221 end if;
222 end rosetta_table_copy_in_p17;
223 procedure rosetta_table_copy_out_p17(t csp_transactions_pub.csparray, a0 out nocopy JTF_NUMBER_TABLE) as
224 ddindx binary_integer; indx binary_integer;
225 begin
226 if t is null then
227 a0 := null;
228 elsif t.count = 0 then
229 a0 := JTF_NUMBER_TABLE();
230 else
231 a0 := JTF_NUMBER_TABLE();
232 if t.count > 0 then
233 a0.extend(t.count);
234 ddindx := t.first;
235 indx := 1;
236 while true loop
237 a0(indx) := t(ddindx);
238 indx := indx+1;
239 if t.last =ddindx
240 then exit;
241 end if;
242 ddindx := t.next(ddindx);
243 end loop;
244 end if;
245 end if;
246 end rosetta_table_copy_out_p17;
247
248 procedure create_move_order_header(px_header_id in out nocopy NUMBER
249 , p_request_number VARCHAR2
250 , p_api_version NUMBER
251 , p_init_msg_list VARCHAR2
252 , p_commit VARCHAR2
253 , p_date_required date
254 , p_organization_id NUMBER
255 , p_from_subinventory_code VARCHAR2
256 , p_to_subinventory_code VARCHAR2
257 , p_address1 VARCHAR2
258 , p_address2 VARCHAR2
259 , p_address3 VARCHAR2
260 , p_address4 VARCHAR2
261 , p_city VARCHAR2
262 , p_postal_code VARCHAR2
263 , p_state VARCHAR2
264 , p_province VARCHAR2
265 , p_country VARCHAR2
266 , p_freight_carrier VARCHAR2
267 , p_shipment_method VARCHAR2
268 , p_autoreceipt_flag VARCHAR2
269 , x_return_status out nocopy VARCHAR2
270 , x_msg_count out nocopy NUMBER
271 , x_msg_data out nocopy VARCHAR2
272 )
273
274 as
275 ddp_date_required date;
276 ddindx binary_integer; indx binary_integer;
277 begin
278
279 -- copy data to the local IN or IN-OUT args, if any
280
281
282
283
284
285 ddp_date_required := rosetta_g_miss_date_in_map(p_date_required);
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305 -- here's the delegated call to the old PL/SQL routine
306 csp_transactions_pub.create_move_order_header(px_header_id,
307 p_request_number,
308 p_api_version,
309 p_init_msg_list,
310 p_commit,
311 ddp_date_required,
312 p_organization_id,
313 p_from_subinventory_code,
314 p_to_subinventory_code,
315 p_address1,
316 p_address2,
317 p_address3,
318 p_address4,
319 p_city,
320 p_postal_code,
321 p_state,
322 p_province,
323 p_country,
324 p_freight_carrier,
325 p_shipment_method,
326 p_autoreceipt_flag,
327 x_return_status,
328 x_msg_count,
329 x_msg_data);
330
331 -- copy data back from the local variables to OUT or IN-OUT args, if any
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355 end;
356
357 procedure create_move_order_line(p_api_version NUMBER
358 , p_init_msg_list VARCHAR2
359 , p_commit VARCHAR2
360 , px_line_id in out nocopy NUMBER
361 , p_header_id NUMBER
362 , p_organization_id NUMBER
363 , p_from_subinventory_code VARCHAR2
364 , p_from_locator_id NUMBER
365 , p_inventory_item_id NUMBER
366 , p_revision VARCHAR2
367 , p_lot_number VARCHAR2
368 , p_serial_number_start VARCHAR2
369 , p_serial_number_end VARCHAR2
370 , p_quantity NUMBER
371 , p_uom_code VARCHAR2
372 , p_quantity_delivered NUMBER
373 , p_to_subinventory_code VARCHAR2
374 , p_to_locator_id VARCHAR2
375 , p_to_organization_id NUMBER
376 , p_service_request VARCHAR2
377 , p_task_id NUMBER
378 , p_task_assignment_id NUMBER
379 , p_customer_po VARCHAR2
380 , p_date_required date
381 , p_comments VARCHAR2
382 , x_return_status out nocopy VARCHAR2
383 , x_msg_count out nocopy NUMBER
384 , x_msg_data out nocopy VARCHAR2
385 )
386
387 as
388 ddp_date_required date;
389 ddindx binary_integer; indx binary_integer;
390 begin
391
392 -- copy data to the local IN or IN-OUT args, if any
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416 ddp_date_required := rosetta_g_miss_date_in_map(p_date_required);
417
418
419
420
421
422 -- here's the delegated call to the old PL/SQL routine
423 csp_transactions_pub.create_move_order_line(p_api_version,
424 p_init_msg_list,
425 p_commit,
426 px_line_id,
427 p_header_id,
428 p_organization_id,
429 p_from_subinventory_code,
430 p_from_locator_id,
431 p_inventory_item_id,
432 p_revision,
433 p_lot_number,
434 p_serial_number_start,
435 p_serial_number_end,
436 p_quantity,
437 p_uom_code,
438 p_quantity_delivered,
439 p_to_subinventory_code,
440 p_to_locator_id,
441 p_to_organization_id,
442 p_service_request,
443 p_task_id,
444 p_task_assignment_id,
445 p_customer_po,
446 ddp_date_required,
447 p_comments,
448 x_return_status,
449 x_msg_count,
450 x_msg_data);
451
452 -- copy data back from the local variables to OUT or IN-OUT args, if any
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480 end;
481
482 procedure transact_material(p_api_version NUMBER
483 , p_init_msg_list VARCHAR2
484 , p_commit VARCHAR2
485 , px_transaction_id in out nocopy NUMBER
486 , px_transaction_header_id in out nocopy NUMBER
487 , p_inventory_item_id NUMBER
488 , p_organization_id NUMBER
489 , p_subinventory_code VARCHAR2
490 , p_locator_id NUMBER
491 , p_lot_number VARCHAR2
492 , p_lot_expiration_date date
493 , p_revision VARCHAR2
494 , p_serial_number VARCHAR2
495 , p_to_serial_number VARCHAR2
496 , p_quantity NUMBER
497 , p_uom VARCHAR2
498 , p_source_id VARCHAR2
499 , p_source_line_id NUMBER
500 , p_transaction_type_id NUMBER
501 , p_account_id NUMBER
502 , p_transfer_to_subinventory VARCHAR2
503 , p_transfer_to_locator NUMBER
504 , p_transfer_to_organization NUMBER
505 , p_online_process_flag number
506 , p_transaction_source_id NUMBER
507 , p_trx_source_line_id NUMBER
508 , p_transaction_source_name VARCHAR2
509 , p_waybill_airbill VARCHAR2
510 , p_shipment_number VARCHAR2
511 , p_freight_code VARCHAR2
512 , p_reason_id NUMBER
513 , p_transaction_reference VARCHAR2
514 , p_transaction_date date
515 , p_expected_delivery_date date
516 , p_final_completion_flag VARCHAR2
517 , x_return_status out nocopy VARCHAR2
518 , x_msg_count out nocopy NUMBER
519 , x_msg_data out nocopy VARCHAR2
520 )
521
522 as
523 ddp_lot_expiration_date date;
524 ddp_online_process_flag boolean;
525 ddp_transaction_date date;
526 ddp_expected_delivery_date date;
527 ddindx binary_integer; indx binary_integer;
528 begin
529
530 -- copy data to the local IN or IN-OUT args, if any
531
532
533
534
535
536
537
538
539
540
541 ddp_lot_expiration_date := rosetta_g_miss_date_in_map(p_lot_expiration_date);
542
543
544
545
546
547
548
549
550
551
552
553
554
555 if p_online_process_flag is null
556 then ddp_online_process_flag := null;
557 elsif p_online_process_flag = 0
558 then ddp_online_process_flag := false;
559 else ddp_online_process_flag := true;
560 end if;
561
562
563
564
565
566
567
568
569
570 ddp_transaction_date := rosetta_g_miss_date_in_map(p_transaction_date);
571
572 ddp_expected_delivery_date := rosetta_g_miss_date_in_map(p_expected_delivery_date);
573
574
575
576
577
578 -- here's the delegated call to the old PL/SQL routine
579 csp_transactions_pub.transact_material(p_api_version,
580 p_init_msg_list,
581 p_commit,
582 px_transaction_id,
583 px_transaction_header_id,
584 p_inventory_item_id,
585 p_organization_id,
586 p_subinventory_code,
587 p_locator_id,
588 p_lot_number,
589 ddp_lot_expiration_date,
590 p_revision,
591 p_serial_number,
592 p_to_serial_number,
593 p_quantity,
594 p_uom,
595 p_source_id,
596 p_source_line_id,
597 p_transaction_type_id,
598 p_account_id,
599 p_transfer_to_subinventory,
600 p_transfer_to_locator,
601 p_transfer_to_organization,
602 ddp_online_process_flag,
603 p_transaction_source_id,
604 p_trx_source_line_id,
605 p_transaction_source_name,
606 p_waybill_airbill,
607 p_shipment_number,
608 p_freight_code,
609 p_reason_id,
610 p_transaction_reference,
611 ddp_transaction_date,
612 ddp_expected_delivery_date,
613 p_final_completion_flag,
614 x_return_status,
615 x_msg_count,
616 x_msg_data);
617
618 -- copy data back from the local variables to OUT or IN-OUT args, if any
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656 end;
657
658 procedure transact_temp_record(p_api_version_number NUMBER
659 , p_init_msg_list VARCHAR2
660 , p_commit VARCHAR2
661 , p_validation_level NUMBER
662 , p_transaction_temp_id NUMBER
663 , px_transaction_header_id in out nocopy NUMBER
664 , p_online_process_flag number
665 , x_return_status out nocopy VARCHAR2
666 , x_msg_count out nocopy NUMBER
667 , x_msg_data out nocopy VARCHAR2
668 )
669
670 as
671 ddp_online_process_flag boolean;
672 ddindx binary_integer; indx binary_integer;
673 begin
674
675 -- copy data to the local IN or IN-OUT args, if any
676
677
678
679
680
681
682 if p_online_process_flag is null
683 then ddp_online_process_flag := null;
684 elsif p_online_process_flag = 0
685 then ddp_online_process_flag := false;
686 else ddp_online_process_flag := true;
687 end if;
688
689
690
691
692 -- here's the delegated call to the old PL/SQL routine
693 csp_transactions_pub.transact_temp_record(p_api_version_number,
694 p_init_msg_list,
695 p_commit,
696 p_validation_level,
697 p_transaction_temp_id,
698 px_transaction_header_id,
699 ddp_online_process_flag,
700 x_return_status,
701 x_msg_count,
702 x_msg_data);
703
704 -- copy data back from the local variables to OUT or IN-OUT args, if any
705
706
707
708
709
710
711
712
713
714 end;
715
716 procedure transact_items_transfer(p_api_version_number NUMBER
717 , p_init_msg_list VARCHAR2
718 , p_commit VARCHAR2
719 , p3_a0 in out nocopy JTF_NUMBER_TABLE
720 , p3_a1 in out nocopy JTF_VARCHAR2_TABLE_100
721 , p3_a2 in out nocopy JTF_NUMBER_TABLE
722 , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_100
723 , p3_a4 in out nocopy JTF_VARCHAR2_TABLE_100
724 , p3_a5 in out nocopy JTF_VARCHAR2_TABLE_100
725 , p3_a6 in out nocopy JTF_NUMBER_TABLE
726 , p3_a7 in out nocopy JTF_VARCHAR2_TABLE_100
727 , p3_a8 in out nocopy JTF_NUMBER_TABLE
728 , p3_a9 in out nocopy JTF_NUMBER_TABLE
729 , p3_a10 in out nocopy JTF_VARCHAR2_TABLE_100
730 , p3_a11 in out nocopy JTF_NUMBER_TABLE
731 , p3_a12 in out nocopy JTF_VARCHAR2_TABLE_100
732 , p3_a13 in out nocopy JTF_VARCHAR2_TABLE_100
733 , p3_a14 in out nocopy JTF_VARCHAR2_TABLE_100
734 , p3_a15 in out nocopy JTF_VARCHAR2_TABLE_100
735 , p3_a16 in out nocopy JTF_NUMBER_TABLE
736 , p3_a17 in out nocopy JTF_NUMBER_TABLE
737 , p3_a18 in out nocopy JTF_VARCHAR2_TABLE_2000
738 , p3_a19 in out nocopy JTF_NUMBER_TABLE
739 , p3_a20 in out nocopy JTF_NUMBER_TABLE
740 , p_trans_type_id NUMBER
741 , x_return_status out nocopy VARCHAR2
742 , x_msg_count out nocopy NUMBER
743 , x_msg_data out nocopy VARCHAR2
744 )
745
746 as
747 ddp_trans_items csp_transactions_pub.trans_items_tbl_type;
748 ddindx binary_integer; indx binary_integer;
749 begin
750
751 -- copy data to the local IN or IN-OUT args, if any
752
753
754
755 csp_transactions_pub_w.rosetta_table_copy_in_p2(ddp_trans_items, p3_a0
756 , p3_a1
757 , p3_a2
758 , p3_a3
759 , p3_a4
760 , p3_a5
761 , p3_a6
762 , p3_a7
763 , p3_a8
764 , p3_a9
765 , p3_a10
766 , p3_a11
767 , p3_a12
768 , p3_a13
769 , p3_a14
770 , p3_a15
771 , p3_a16
772 , p3_a17
773 , p3_a18
774 , p3_a19
775 , p3_a20
776 );
777
778
779
780
781
782 -- here's the delegated call to the old PL/SQL routine
783 csp_transactions_pub.transact_items_transfer(p_api_version_number,
784 p_init_msg_list,
785 p_commit,
786 ddp_trans_items,
787 p_trans_type_id,
788 x_return_status,
789 x_msg_count,
790 x_msg_data);
791
792 -- copy data back from the local variables to OUT or IN-OUT args, if any
793
794
795
796 csp_transactions_pub_w.rosetta_table_copy_out_p2(ddp_trans_items, p3_a0
797 , p3_a1
798 , p3_a2
799 , p3_a3
800 , p3_a4
801 , p3_a5
802 , p3_a6
803 , p3_a7
804 , p3_a8
805 , p3_a9
806 , p3_a10
807 , p3_a11
808 , p3_a12
809 , p3_a13
810 , p3_a14
811 , p3_a15
812 , p3_a16
813 , p3_a17
814 , p3_a18
815 , p3_a19
816 , p3_a20
817 );
818
819
820
821
822 end;
823
824 procedure transact_subinv_transfer(p_api_version_number NUMBER
825 , p_init_msg_list VARCHAR2
826 , p_commit VARCHAR2
827 , p3_a0 in out nocopy JTF_NUMBER_TABLE
828 , p3_a1 in out nocopy JTF_VARCHAR2_TABLE_100
829 , p3_a2 in out nocopy JTF_NUMBER_TABLE
830 , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_100
831 , p3_a4 in out nocopy JTF_VARCHAR2_TABLE_100
832 , p3_a5 in out nocopy JTF_VARCHAR2_TABLE_100
833 , p3_a6 in out nocopy JTF_NUMBER_TABLE
834 , p3_a7 in out nocopy JTF_VARCHAR2_TABLE_100
835 , p3_a8 in out nocopy JTF_NUMBER_TABLE
836 , p3_a9 in out nocopy JTF_NUMBER_TABLE
837 , p3_a10 in out nocopy JTF_VARCHAR2_TABLE_100
838 , p3_a11 in out nocopy JTF_NUMBER_TABLE
839 , p3_a12 in out nocopy JTF_VARCHAR2_TABLE_100
840 , p3_a13 in out nocopy JTF_VARCHAR2_TABLE_100
841 , p3_a14 in out nocopy JTF_VARCHAR2_TABLE_100
842 , p3_a15 in out nocopy JTF_VARCHAR2_TABLE_100
843 , p3_a16 in out nocopy JTF_NUMBER_TABLE
844 , p3_a17 in out nocopy JTF_NUMBER_TABLE
845 , p3_a18 in out nocopy JTF_VARCHAR2_TABLE_2000
846 , p3_a19 in out nocopy JTF_NUMBER_TABLE
847 , p3_a20 in out nocopy JTF_NUMBER_TABLE
848 , x_return_status out nocopy VARCHAR2
849 , x_msg_count out nocopy NUMBER
850 , x_msg_data out nocopy VARCHAR2
851 )
852
853 as
854 ddp_trans_items csp_transactions_pub.trans_items_tbl_type;
855 ddindx binary_integer; indx binary_integer;
856 begin
857
858 -- copy data to the local IN or IN-OUT args, if any
859
860
861
862 csp_transactions_pub_w.rosetta_table_copy_in_p2(ddp_trans_items, p3_a0
863 , p3_a1
864 , p3_a2
865 , p3_a3
866 , p3_a4
867 , p3_a5
868 , p3_a6
869 , p3_a7
870 , p3_a8
871 , p3_a9
872 , p3_a10
873 , p3_a11
874 , p3_a12
875 , p3_a13
876 , p3_a14
877 , p3_a15
878 , p3_a16
879 , p3_a17
880 , p3_a18
881 , p3_a19
882 , p3_a20
883 );
884
885
886
887
888 -- here's the delegated call to the old PL/SQL routine
889 csp_transactions_pub.transact_subinv_transfer(p_api_version_number,
890 p_init_msg_list,
891 p_commit,
892 ddp_trans_items,
893 x_return_status,
894 x_msg_count,
895 x_msg_data);
896
897 -- copy data back from the local variables to OUT or IN-OUT args, if any
898
899
900
901 csp_transactions_pub_w.rosetta_table_copy_out_p2(ddp_trans_items, p3_a0
902 , p3_a1
903 , p3_a2
904 , p3_a3
905 , p3_a4
906 , p3_a5
907 , p3_a6
908 , p3_a7
909 , p3_a8
910 , p3_a9
911 , p3_a10
912 , p3_a11
913 , p3_a12
914 , p3_a13
915 , p3_a14
916 , p3_a15
917 , p3_a16
918 , p3_a17
919 , p3_a18
920 , p3_a19
921 , p3_a20
922 );
923
924
925
926 end;
927
928 procedure transact_intorg_transfer(p_api_version_number NUMBER
929 , p_init_msg_list VARCHAR2
930 , p_commit VARCHAR2
931 , p3_a0 in out nocopy JTF_NUMBER_TABLE
932 , p3_a1 in out nocopy JTF_VARCHAR2_TABLE_100
933 , p3_a2 in out nocopy JTF_NUMBER_TABLE
934 , p3_a3 in out nocopy JTF_VARCHAR2_TABLE_100
935 , p3_a4 in out nocopy JTF_VARCHAR2_TABLE_100
936 , p3_a5 in out nocopy JTF_VARCHAR2_TABLE_100
937 , p3_a6 in out nocopy JTF_NUMBER_TABLE
938 , p3_a7 in out nocopy JTF_VARCHAR2_TABLE_100
939 , p3_a8 in out nocopy JTF_NUMBER_TABLE
940 , p3_a9 in out nocopy JTF_NUMBER_TABLE
941 , p3_a10 in out nocopy JTF_VARCHAR2_TABLE_100
942 , p3_a11 in out nocopy JTF_NUMBER_TABLE
943 , p3_a12 in out nocopy JTF_VARCHAR2_TABLE_100
944 , p3_a13 in out nocopy JTF_VARCHAR2_TABLE_100
945 , p3_a14 in out nocopy JTF_VARCHAR2_TABLE_100
946 , p3_a15 in out nocopy JTF_VARCHAR2_TABLE_100
947 , p3_a16 in out nocopy JTF_NUMBER_TABLE
948 , p3_a17 in out nocopy JTF_NUMBER_TABLE
949 , p3_a18 in out nocopy JTF_VARCHAR2_TABLE_2000
950 , p3_a19 in out nocopy JTF_NUMBER_TABLE
951 , p3_a20 in out nocopy JTF_NUMBER_TABLE
952 , p_if_intransit number
953 , x_return_status out nocopy VARCHAR2
954 , x_msg_count out nocopy NUMBER
955 , x_msg_data out nocopy VARCHAR2
956 )
957
958 as
959 ddp_trans_items csp_transactions_pub.trans_items_tbl_type;
960 ddp_if_intransit boolean;
961 ddindx binary_integer; indx binary_integer;
962 begin
963
964 -- copy data to the local IN or IN-OUT args, if any
965
966
967
968 csp_transactions_pub_w.rosetta_table_copy_in_p2(ddp_trans_items, p3_a0
969 , p3_a1
970 , p3_a2
971 , p3_a3
972 , p3_a4
973 , p3_a5
974 , p3_a6
975 , p3_a7
976 , p3_a8
977 , p3_a9
978 , p3_a10
979 , p3_a11
980 , p3_a12
981 , p3_a13
982 , p3_a14
983 , p3_a15
984 , p3_a16
985 , p3_a17
986 , p3_a18
987 , p3_a19
988 , p3_a20
989 );
990
991 if p_if_intransit is null
992 then ddp_if_intransit := null;
993 elsif p_if_intransit = 0
994 then ddp_if_intransit := false;
995 else ddp_if_intransit := true;
996 end if;
997
998
999
1000
1001 -- here's the delegated call to the old PL/SQL routine
1002 csp_transactions_pub.transact_intorg_transfer(p_api_version_number,
1003 p_init_msg_list,
1004 p_commit,
1005 ddp_trans_items,
1006 ddp_if_intransit,
1007 x_return_status,
1008 x_msg_count,
1009 x_msg_data);
1010
1011 -- copy data back from the local variables to OUT or IN-OUT args, if any
1012
1013
1014
1015 csp_transactions_pub_w.rosetta_table_copy_out_p2(ddp_trans_items, p3_a0
1016 , p3_a1
1017 , p3_a2
1018 , p3_a3
1019 , p3_a4
1020 , p3_a5
1021 , p3_a6
1022 , p3_a7
1023 , p3_a8
1024 , p3_a9
1025 , p3_a10
1026 , p3_a11
1027 , p3_a12
1028 , p3_a13
1029 , p3_a14
1030 , p3_a15
1031 , p3_a16
1032 , p3_a17
1033 , p3_a18
1034 , p3_a19
1035 , p3_a20
1036 );
1037
1038
1039
1040
1041 end;
1042
1043 procedure create_move_order(p0_a0 in out nocopy JTF_NUMBER_TABLE
1044 , p0_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1045 , p0_a2 in out nocopy JTF_NUMBER_TABLE
1046 , p0_a3 in out nocopy JTF_VARCHAR2_TABLE_100
1047 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
1048 , p0_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1049 , p0_a6 in out nocopy JTF_NUMBER_TABLE
1050 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
1051 , p0_a8 in out nocopy JTF_NUMBER_TABLE
1052 , p0_a9 in out nocopy JTF_NUMBER_TABLE
1053 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
1054 , p0_a11 in out nocopy JTF_NUMBER_TABLE
1055 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1056 , p0_a13 in out nocopy JTF_VARCHAR2_TABLE_100
1057 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
1058 , p0_a15 in out nocopy JTF_VARCHAR2_TABLE_100
1059 , p0_a16 in out nocopy JTF_NUMBER_TABLE
1060 , p0_a17 in out nocopy JTF_NUMBER_TABLE
1061 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_2000
1062 , p0_a19 in out nocopy JTF_NUMBER_TABLE
1063 , p0_a20 in out nocopy JTF_NUMBER_TABLE
1064 , p_date_required date
1065 , p_comments VARCHAR2
1066 , x_move_order_number out nocopy VARCHAR2
1067 , x_return_status out nocopy VARCHAR2
1068 , x_msg_count out nocopy NUMBER
1069 , x_msg_data out nocopy VARCHAR2
1070 )
1071
1072 as
1073 ddp_trans_items csp_transactions_pub.trans_items_tbl_type;
1074 ddp_date_required date;
1075 ddindx binary_integer; indx binary_integer;
1076 begin
1077
1078 -- copy data to the local IN or IN-OUT args, if any
1079 csp_transactions_pub_w.rosetta_table_copy_in_p2(ddp_trans_items, p0_a0
1080 , p0_a1
1081 , p0_a2
1082 , p0_a3
1083 , p0_a4
1084 , p0_a5
1085 , p0_a6
1086 , p0_a7
1087 , p0_a8
1088 , p0_a9
1089 , p0_a10
1090 , p0_a11
1091 , p0_a12
1092 , p0_a13
1093 , p0_a14
1094 , p0_a15
1095 , p0_a16
1096 , p0_a17
1097 , p0_a18
1098 , p0_a19
1099 , p0_a20
1100 );
1101
1102 ddp_date_required := rosetta_g_miss_date_in_map(p_date_required);
1103
1104
1105
1106
1107
1108
1109 -- here's the delegated call to the old PL/SQL routine
1110 csp_transactions_pub.create_move_order(ddp_trans_items,
1111 ddp_date_required,
1112 p_comments,
1113 x_move_order_number,
1114 x_return_status,
1115 x_msg_count,
1116 x_msg_data);
1117
1118 -- copy data back from the local variables to OUT or IN-OUT args, if any
1119 csp_transactions_pub_w.rosetta_table_copy_out_p2(ddp_trans_items, p0_a0
1120 , p0_a1
1121 , p0_a2
1122 , p0_a3
1123 , p0_a4
1124 , p0_a5
1125 , p0_a6
1126 , p0_a7
1127 , p0_a8
1128 , p0_a9
1129 , p0_a10
1130 , p0_a11
1131 , p0_a12
1132 , p0_a13
1133 , p0_a14
1134 , p0_a15
1135 , p0_a16
1136 , p0_a17
1137 , p0_a18
1138 , p0_a19
1139 , p0_a20
1140 );
1141
1142
1143
1144
1145
1146
1147 end;
1148
1149 procedure receive_requirement_trans(p_trans_header_id NUMBER
1150 , p_trans_line_id NUMBER
1151 , p2_a0 NUMBER
1152 , p2_a1 VARCHAR2
1153 , p2_a2 NUMBER
1154 , p2_a3 VARCHAR2
1155 , p2_a4 VARCHAR2
1156 , p2_a5 VARCHAR2
1157 , p2_a6 NUMBER
1158 , p2_a7 VARCHAR2
1159 , p2_a8 NUMBER
1160 , p2_a9 NUMBER
1161 , p2_a10 VARCHAR2
1162 , p2_a11 NUMBER
1163 , p2_a12 VARCHAR2
1164 , p2_a13 VARCHAR2
1165 , p2_a14 VARCHAR2
1166 , p2_a15 VARCHAR2
1167 , p2_a16 NUMBER
1168 , p2_a17 NUMBER
1169 , p2_a18 VARCHAR2
1170 , p2_a19 NUMBER
1171 , p2_a20 NUMBER
1172 , p_trans_type VARCHAR2
1173 , p_req_line_detail_id NUMBER
1174 , p_close_short VARCHAR2
1175 , x_return_status out nocopy VARCHAR2
1176 , x_msg_count out nocopy NUMBER
1177 , x_msg_data out nocopy VARCHAR2
1178 )
1179
1180 as
1181 ddp_trans_record csp_transactions_pub.trans_items_rec_type;
1182 ddindx binary_integer; indx binary_integer;
1183 begin
1184
1185 -- copy data to the local IN or IN-OUT args, if any
1186
1187
1188 ddp_trans_record.inventory_item_id := p2_a0;
1189 ddp_trans_record.revision := p2_a1;
1190 ddp_trans_record.quantity := p2_a2;
1191 ddp_trans_record.uom_code := p2_a3;
1192 ddp_trans_record.lot_number := p2_a4;
1193 ddp_trans_record.serial_number := p2_a5;
1194 ddp_trans_record.frm_organization_id := p2_a6;
1195 ddp_trans_record.frm_subinventory_code := p2_a7;
1196 ddp_trans_record.frm_locator_id := p2_a8;
1197 ddp_trans_record.to_organization_id := p2_a9;
1198 ddp_trans_record.to_subinventory_code := p2_a10;
1199 ddp_trans_record.to_locator_id := p2_a11;
1200 ddp_trans_record.to_serial_number := p2_a12;
1201 ddp_trans_record.waybill_airbill := p2_a13;
1202 ddp_trans_record.freight_code := p2_a14;
1203 ddp_trans_record.shipment_number := p2_a15;
1204 ddp_trans_record.packlist_line_id := p2_a16;
1205 ddp_trans_record.temp_transaction_id := p2_a17;
1206 ddp_trans_record.error_msg := p2_a18;
1207 ddp_trans_record.shipment_line_id := p2_a19;
1208 ddp_trans_record.reason_id := p2_a20;
1209
1210
1211
1212
1213
1214
1215
1216 -- here's the delegated call to the old PL/SQL routine
1217 csp_transactions_pub.receive_requirement_trans(p_trans_header_id,
1218 p_trans_line_id,
1219 ddp_trans_record,
1220 p_trans_type,
1221 p_req_line_detail_id,
1222 p_close_short,
1223 x_return_status,
1224 x_msg_count,
1225 x_msg_data);
1226
1227 -- copy data back from the local variables to OUT or IN-OUT args, if any
1228
1229
1230
1231
1232
1233
1234
1235
1236 end;
1237
1238 end csp_transactions_pub_w;