1 PACKAGE BODY GML_RCV_STD_RCPT_APIS AS
2 /* $Header: GMLSTDRB.pls 120.1 2005/08/30 10:09:57 nchekuri noship $*/
3
4 -- Global constant holding the package name
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'GML_RCV_STD_RCPT_APIS';
6
7 --g_rcpt_lot_qty_rec_tb rcpt_lot_qty_rec_tb_tp;
8 --g_prev_lot_number VARCHAR2(30) := NULL;
9
10
11 PROCEDURE get_project_task (
12 p_po_line_location_id IN NUMBER,
13 p_oe_order_line_id IN NUMBER,
14 x_project_id OUT NOCOPY NUMBER,
15 x_task_id OUT NOCOPY NUMBER
16 )
17 IS
18 l_project_id NUMBER := '';
19 l_task_id NUMBER := '';
20 BEGIN
21
22 NULL;
23
24
25 EXCEPTION
26 WHEN OTHERS THEN
27 NULL;
28 END get_project_task;
29
30
31 FUNCTION insert_txn_interface(
32 p_rcv_transaction_rec IN OUT NOCOPY rcv_transaction_rec_tp
33 , p_rcv_rcpt_rec IN OUT NOCOPY rcv_enter_receipts_rec_tp
34 , p_group_id IN NUMBER
35 , p_transaction_type IN VARCHAR2
36 , p_organization_id IN NUMBER
37 , p_location_id IN NUMBER
38 , p_source_type IN VARCHAR2
39 , p_qa_routing_id IN NUMBER DEFAULT -1
40 , p_project_id IN NUMBER DEFAULT NULL
41 , p_task_id IN NUMBER DEFAULT NULL
42
43 )
44 RETURN NUMBER IS
45 BEGIN
46
47 NULL;
48
49 RETURN NULL;
50
51 END insert_txn_interface;
52
53
54
55 /****************************************************
56 * This procedure populates the data structure that
57 * stores received lot quantity.
58 * It retrieves this info from wms_LPN_contents table
59 ****************************************************/
60
61 PROCEDURE populate_lot_rec(p_lot_number IN VARCHAR2,
62 p_primary_qty IN NUMBER,
63 p_txn_uom_code IN VARCHAR2,
64 p_org_id NUMBER,
65 p_item_id IN NUMBER)
66 IS
67 l_primary_uom VARCHAR2(3);
68 l_txn_qty NUMBER;
69 l_counter NUMBER;
70 l_create_new NUMBER := 1;
71 BEGIN
72
73 NULL;
74
75
76 END populate_lot_rec;
77
78
79
80
81 /****************************************************
82 * This procedure splits the input transaction qty
83 * based on received lot qty
84 * It retrieves this info from global variable g_rcpt_lot_qty_rec_tb
85 ****************************************************/
86
87 PROCEDURE split_qty_for_lot(p_txn_qty IN NUMBER,
88 p_splitted_qty_rec_tb OUT NOCOPY rcpt_lot_qty_rec_tb_tp)
89 IS
90 l_new_txn_quantity NUMBER; -- the quanity user wants to split
91 l_new_counter NUMBER := 0;
92 BEGIN
93 NULL;
94
95
96 END split_qty_for_lot;
97
98
99
100 PROCEDURE create_po_rcpt_intf_rec
101 (p_move_order_header_id IN OUT NOCOPY NUMBER,
102 p_organization_id IN NUMBER,
103 p_po_header_id IN NUMBER,
104 p_po_release_number_id IN NUMBER,
105 p_po_line_id IN NUMBER,
106 p_item_id IN NUMBER,
107 p_location_id IN NUMBER,
108 p_rcv_qty IN NUMBER,
109 p_rcv_uom IN VARCHAR2,
110 p_rcv_uom_code IN VARCHAR2,
111 p_source_type IN VARCHAR2,
112 p_lpn_id IN NUMBER,
113 p_lot_control_code IN NUMBER,
114 p_revision IN VARCHAR2,
115 p_inspect IN NUMBER,
116 x_status OUT NOCOPY VARCHAR2,
117 x_message OUT NOCOPY VARCHAR2,
118 p_inv_item_id IN NUMBER DEFAULT NULL,
119 p_item_desc IN VARCHAR2 DEFAULT NULL,
120 p_project_id IN NUMBER DEFAULT NULL,
121 p_task_id IN NUMBER DEFAULT NULL,
122 p_country_code IN VARCHAR2 DEFAULT NULL
123 )
124 IS
125
126 l_rcpt_match_table_detail GML_RCV_TXN_INTERFACE.cascaded_trans_tab_type; -- output for matching algorithm
127
128 l_rcv_transaction_rec rcv_transaction_rec_tp; -- rcv_transaction block
129
130 l_interface_transaction_id NUMBER := NULL;
131 -- this is used to keep track of the id used to insert the row in rti
132
133 l_transaction_type VARCHAR2(20) := 'RECEIVE';
134 l_total_primary_qty NUMBER := 0;
135
136 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
137 l_msg_count NUMBER;
138 l_msg_data VARCHAR2(4000);
139 BEGIN
140 NULL;
141
142 EXCEPTION
143
144 WHEN OTHERS THEN
145 NULL;
146
147 END create_po_rcpt_intf_rec;
148
149
150 PROCEDURE create_intship_rcpt_intf_rec
151 (p_move_order_header_id IN OUT NOCOPY NUMBER,
152 p_organization_id IN NUMBER,
153 p_shipment_header_id IN NUMBER,
154 p_req_header_id IN NUMBER,
155 p_item_id IN NUMBER,
156 p_location_id IN NUMBER,
157 p_rcv_qty IN NUMBER,
158 p_rcv_uom IN VARCHAR2,
159 p_rcv_uom_code IN VARCHAR2,
160 p_source_type IN VARCHAR2,
161 p_lpn_id IN NUMBER,
162 p_lot_control_code IN NUMBER,
163 p_revision IN VARCHAR2,
164 p_inspect IN NUMBER,
165 x_status OUT NOCOPY VARCHAR2,
166 x_message OUT NOCOPY VARCHAR2,
167 p_project_id IN NUMBER DEFAULT NULL,
168 p_task_id IN NUMBER DEFAULT NULL,
169 p_country_code IN VARCHAR2 DEFAULT NULL
170 )
171 IS
172
173
174
175 BEGIN
176
177 NULL;
178
179
180
181 EXCEPTION
182
183
184 WHEN OTHERS THEN
185
186 NULL;
187 END create_intship_rcpt_intf_rec;
188
189
190
191 PROCEDURE create_rma_rcpt_intf_rec
192 (p_move_order_header_id IN OUT NOCOPY NUMBER,
193 p_organization_id IN NUMBER,
194 p_oe_order_header_id IN NUMBER,
195 p_item_id IN NUMBER,
196 p_location_id IN NUMBER,
197 p_rcv_qty IN NUMBER,
198 p_rcv_uom IN VARCHAR2,
199 p_rcv_uom_code IN VARCHAR2,
200 p_source_type IN VARCHAR2,
201 p_lpn_id IN NUMBER,
202 p_lot_control_code IN NUMBER,
203 p_revision IN VARCHAR2,
204 p_inspect IN NUMBER,
205 x_status OUT NOCOPY VARCHAR2,
206 x_message OUT NOCOPY VARCHAR2,
207 p_project_id IN NUMBER DEFAULT NULL,
208 p_task_id IN NUMBER DEFAULT NULL,
209 p_country_code IN VARCHAR2 DEFAULT NULL
210 )
211 IS
212
213
214 BEGIN
215 NULL;
216 EXCEPTION
217
218 WHEN OTHERS THEN
219 NULL;
220
221 END create_rma_rcpt_intf_rec;
222
223
224
225
226 PROCEDURE create_asn_con_rcpt_intf_rec
227 (p_move_order_header_id IN OUT NOCOPY NUMBER,
228 p_organization_id IN NUMBER,
229 p_shipment_header_id IN NUMBER,
230 p_po_header_id IN NUMBER,
231 p_item_id IN NUMBER,
232 p_location_id IN NUMBER,
233 p_rcv_qty IN NUMBER,
234 p_rcv_uom IN VARCHAR2,
235 p_rcv_uom_code IN VARCHAR2,
236 p_source_type IN VARCHAR2,
237 p_from_lpn_id IN NUMBER,
238 p_lpn_id IN NUMBER,
239 p_lot_control_code IN NUMBER,
240 p_revision IN VARCHAR2,
241 p_inspect IN NUMBER,
242 x_status OUT NOCOPY VARCHAR2,
243 x_message OUT NOCOPY VARCHAR2,
244 p_item_desc IN VARCHAR2 DEFAULT NULL,
245 p_project_id IN NUMBER DEFAULT NULL,
246 p_task_id IN NUMBER DEFAULT NULL,
247 p_country_code IN VARCHAR2 DEFAULT NULL
248 )
249 IS
250
251 l_rcpt_match_table_detail INV_RCV_COMMON_APIS.cascaded_trans_tab_type; -- output for matching algorithm
252
253 l_rcv_transaction_rec rcv_transaction_rec_tp; -- rcv_transaction block
254
255 l_interface_transaction_id NUMBER := NULL;
256 -- this is used to keep track of the id used to insert the row in rti
257
258 l_transaction_type VARCHAR2(20) := 'RECEIVE';
259 l_total_primary_qty NUMBER := 0;
260
261 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
262 l_msg_count NUMBER;
263 l_msg_data VARCHAR2(4000);
264 l_progress VARCHAR2(10);
265
266 l_err_message VARCHAR2(100);
267 l_temp_message VARCHAR2(100);
268 l_msg_prod VARCHAR2(5);
269
270 l_group_id NUMBER;
271
272 l_rcv_rcpt_rec rcv_enter_receipts_rec_tp;
273 l_inspect NUMBER;
274
275 l_match_type VARCHAR2(30);
276 l_receipt_num VARCHAR2(30);
277
278 BEGIN
279
280 NULL;
281
282 EXCEPTION
283
284 WHEN OTHERS THEN
285 NULL;
286
287
288 END create_asn_con_rcpt_intf_rec;
289
290
291 PROCEDURE create_asn_exp_rcpt_intf_rec
292 (p_move_order_header_id IN OUT NOCOPY NUMBER,
293 p_organization_id IN NUMBER,
294 p_shipment_header_id IN NUMBER,
295 p_po_header_id IN NUMBER,
296 p_location_id IN NUMBER,
297 p_source_type IN VARCHAR2,
298 p_lpn_id IN NUMBER,
299 p_inspect IN NUMBER,
300 x_status OUT NOCOPY VARCHAR2,
301 x_message OUT NOCOPY VARCHAR2,
302 p_project_id IN NUMBER DEFAULT NULL,
303 p_task_id IN NUMBER DEFAULT NULL
304 )
305 IS
306 BEGIN
307 NULL;
308 EXCEPTION
309
310 WHEN OTHERS THEN
311 NULL;
312
313
314 END create_asn_exp_rcpt_intf_rec;
315
316
317 PROCEDURE create_std_rcpt_intf_rec(p_move_order_header_id IN OUT NOCOPY NUMBER,
318 p_organization_id IN NUMBER,
319 p_po_header_id IN NUMBER,
320 p_po_release_number_id IN NUMBER,
321 p_po_line_id IN NUMBER,
322 p_shipment_header_id IN NUMBER,
323 p_req_header_id IN NUMBER,
324 p_oe_order_header_id IN NUMBER,
325 p_item_id IN NUMBER,
326 p_location_id IN NUMBER,
327 p_rcv_qty IN NUMBER,
328 p_rcv_uom IN VARCHAR2,
329 p_rcv_uom_code IN VARCHAR2,
330 p_source_type IN VARCHAR2,
331 p_from_lpn_id IN NUMBER,
332 p_lpn_id IN NUMBER,
333 p_lot_control_code IN NUMBER,
334 p_revision IN VARCHAR2,
335 p_inspect IN NUMBER,
336 x_status OUT NOCOPY VARCHAR2,
337 x_message OUT NOCOPY VARCHAR2,
338 p_inv_item_id IN NUMBER DEFAULT NULL,
339 p_item_desc IN VARCHAR2 DEFAULT NULL,
340 p_project_id IN NUMBER DEFAULT NULL,
341 p_task_id IN NUMBER DEFAULT NULL,
342 p_country_code IN VARCHAR2 DEFAULT NULL
343 )
344 IS
345 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
346 l_msg_count NUMBER;
347 l_msg_data VARCHAR2(4000);
348 l_progress VARCHAR2(10);
349 l_label_status VARCHAR2(500);
350 l_txn_id_tbl inv_label.transaction_id_rec_type;
351 l_counter NUMBER := 0;
352 /* Bug 2200851 */
353 /* Changed min to max */
354 /* Group BY LPN_ID is changed for Express Receipts */
355 /* Also duplicate print of LPN labels is avoided */
356
357 CURSOR c_rti_txn_id IS
358 SELECT MAX(rti.interface_transaction_id)
359 FROM rcv_transactions_interface rti
360 WHERE rti.group_id = INV_rcv_common_apis.g_rcv_global_var.interface_group_id
361 GROUP BY decode(p_source_type,'ASNEXP',rti.interface_transaction_id,'SHIPMENTEXP',rti.interface_transaction_id,null) ;
362 -- GROUP BY rti.lpn_id;
363 BEGIN
364 NULL;
365
366
367
368
369 EXCEPTION
370 WHEN OTHERS THEN
371 NULL;
372
373
374 END create_std_rcpt_intf_rec;
375
376
377 PROCEDURE create_mo_for_correction(p_move_order_header_id IN OUT NOCOPY NUMBER,
378 p_po_line_location_id IN NUMBER DEFAULT NULL,
379 p_po_distribution_id IN NUMBER DEFAULT NULL,
380 p_shipment_line_id IN NUMBER DEFAULT NULL,
381 p_oe_order_line_id IN NUMBER DEFAULT NULL,
382 p_routing IN NUMBER,
383 p_lot_control_code IN NUMBER,
384 p_org_id IN NUMBER,
385 p_item_id IN NUMBER,
386 p_qty IN NUMBER,
387 p_uom_code IN VARCHAR2,
388 p_lpn IN NUMBER,
389 p_revision IN VARCHAR2 DEFAULT NULL,
390 p_inspect IN NUMBER,
391 p_txn_source_id IN NUMBER,
392 x_status OUT NOCOPY VARCHAR2,
393 x_message OUT NOCOPY VARCHAR2,
394 p_transfer_org_id IN NUMBER DEFAULT NULL,
395 p_wms_process_flag IN NUMBER DEFAULT NULL
396 )
397 IS
398 BEGIN
399 NULL;
400
401
402 END create_mo_for_correction;
403
404 PROCEDURE create_move_order(p_move_order_header_id IN OUT NOCOPY NUMBER,
405 p_po_line_location_id IN NUMBER,
406 p_po_distribution_id IN NUMBER,
407 p_shipment_line_id IN NUMBER,
408 p_oe_order_line_id IN NUMBER,
409 p_routing IN VARCHAR2,
410 p_lot_control_code IN NUMBER,
411 p_org_id IN NUMBER,
412 p_item_id IN NUMBER,
413 p_qty IN NUMBER,
414 p_uom_code IN VARCHAR2,
415 p_lpn IN NUMBER,
416 p_project_id IN NUMBER DEFAULT NULL,
417 p_task_id IN NUMBER DEFAULT NULL,
418 p_revision IN VARCHAR2 DEFAULT NULL,
419 p_inspect IN NUMBER,
420 p_txn_source_id IN NUMBER,
421 x_status OUT NOCOPY VARCHAR2,
422 x_message OUT NOCOPY VARCHAR2,
423 p_transfer_org_id IN NUMBER DEFAULT NULL,
424 p_wms_process_flag IN NUMBER DEFAULT NULL)
425 IS
426 BEGIN
427 NULL;
428
429
430 END create_move_order;
431
432
433
434 PROCEDURE rcv_update_rti_from_header(
435 p_shipment_num VARCHAR
436 , p_freight_carrier_code VARCHAR2
437 , p_bill_of_lading VARCHAR2
438 , p_packing_slip VARCHAR2
439 , p_num_of_containers NUMBER
440 , p_waybill_airbill_num VARCHAR2
441 , x_return_status OUT NOCOPY VARCHAR2
442 , x_msg_count OUT NOCOPY NUMBER
443 , x_msg_data OUT NOCOPY VARCHAR2
444 ) IS
445 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
446 l_msg_count NUMBER;
447 l_msg_data VARCHAR2(4000);
448 l_progress VARCHAR2(10);
449 l_process_status VARCHAR2(10);
450 BEGIN
451 NULL;
452
453 END rcv_update_rti_from_header;
454
455
456 PROCEDURE rcv_update_header_interface(
457 p_organization_id NUMBER
458 , p_header_intf_id NUMBER
459 , p_source_type VARCHAR2
460 , p_receipt_num VARCHAR2
461 , p_vendor_id NUMBER
462 , p_vendor_site_id NUMBER
463 , p_shipment_num VARCHAR2
464 , p_ship_to_location_id NUMBER
465 , p_bill_of_lading VARCHAR2
466 , p_packing_slip VARCHAR2
467 , p_shipped_date DATE
468 , p_freight_carrier_code VARCHAR2
469 , p_expected_receipt_date DATE
470 , p_num_of_containers NUMBER
471 , p_waybill_airbill_num VARCHAR2
472 , p_comments VARCHAR2
473 , p_ussgl_transaction_code VARCHAR2
474 , p_program_request_id NUMBER
475 , p_customer_id NUMBER
476 , p_customer_site_id NUMBER
477 , x_return_status OUT NOCOPY VARCHAR2
478 , x_msg_count OUT NOCOPY NUMBER
479 , x_msg_data OUT NOCOPY VARCHAR2
480 ) IS
481
482 l_sysdate DATE := SYSDATE;
483 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
484 l_msg_count NUMBER;
485 l_msg_data VARCHAR2(4000);
486 l_progress VARCHAR2(10);
487
488 l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
489 BEGIN
490 NULL;
491
492 EXCEPTION
493 WHEN OTHERS THEN
494 NULL;
495 END rcv_update_header_interface;
496
497 PROCEDURE rcv_insert_header_interface(
498 p_organization_id NUMBER
499 , p_source_type VARCHAR2
500 , p_receipt_num OUT NOCOPY VARCHAR2
501 , p_vendor_id NUMBER
502 , p_vendor_site_id NUMBER
503 , p_shipment_num VARCHAR2
504 , p_ship_to_location_id NUMBER
505 , p_bill_of_lading VARCHAR2
506 , p_packing_slip VARCHAR2
507 , p_shipped_date DATE
508 , p_freight_carrier_code VARCHAR2
509 , p_expected_receipt_date DATE
510 , p_num_of_containers NUMBER
511 , p_waybill_airbill_num VARCHAR2
512 , p_comments VARCHAR2
513 , p_ussgl_transaction_code VARCHAR2
514 , p_government_context VARCHAR2
515 , p_request_id NUMBER
516 , p_program_application_id NUMBER
517 , p_program_id NUMBER
518 , p_program_update_date DATE
519 , p_customer_id NUMBER
520 , p_customer_site_id NUMBER
521 , x_return_status OUT NOCOPY VARCHAR2
522 , x_msg_count OUT NOCOPY NUMBER
523 , x_msg_data OUT NOCOPY VARCHAR2
524 ) IS
525 l_header rcv_headers_interface%ROWTYPE;
526 l_rowid VARCHAR2(40);
527 l_sysdate DATE := SYSDATE;
528 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
529 l_msg_count NUMBER;
530 l_msg_data VARCHAR2(4000);
531 l_progress VARCHAR2(10);
532 BEGIN
533 NULL;
534
535 EXCEPTION
536
537 WHEN OTHERS THEN
538 NULL;
539
540 END rcv_insert_header_interface;
541
542 PROCEDURE rcv_insert_update_header
543 (p_organization_id IN NUMBER,
544 p_shipment_header_id IN OUT NOCOPY NUMBER,
545 p_source_type IN VARCHAR2,
546 p_receipt_num IN OUT NOCOPY VARCHAR2,
547 p_vendor_id IN NUMBER,
548 p_vendor_site_id IN NUMBER,
549 p_shipment_num IN VARCHAR2,
550 p_ship_to_location_id IN NUMBER,
551 p_bill_of_lading IN VARCHAR2,
552 p_packing_slip IN VARCHAR2,
553 p_shipped_date IN DATE,
554 p_freight_carrier_code IN VARCHAR2,
555 p_expected_receipt_date IN DATE,
556 p_num_of_containers IN NUMBER,
557 p_waybill_airbill_num IN VARCHAR2,
558 p_comments IN VARCHAR2,
559 p_ussgl_transaction_code IN VARCHAR2,
560 p_government_context IN VARCHAR2,
561 p_request_id IN NUMBER,
562 p_program_application_id IN NUMBER,
563 p_program_id IN NUMBER,
564 p_program_update_date IN DATE,
565 p_customer_id IN NUMBER,
566 p_customer_site_id IN NUMBER,
567 x_return_status OUT NOCOPY VARCHAR2,
568 x_msg_count OUT NOCOPY NUMBER,
569 x_msg_data OUT NOCOPY VARCHAR2
570 )
571 IS
572 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
573 l_msg_count NUMBER;
574 l_msg_data VARCHAR2(4000);
575 l_progress VARCHAR2(10);
576 l_receipt_number VARCHAR2(12);
577
578 BEGIN
579 NULL;
580
581 EXCEPTION
582 WHEN OTHERS THEN
583 NULL;
584
585 END rcv_insert_update_header;
586
587
588 PROCEDURE PackUnpack_Container
589 (p_api_version IN NUMBER ,
590 p_init_msg_list IN VARCHAR2 := fnd_api.g_false ,
591 p_commit IN VARCHAR2 := fnd_api.g_false ,
592 x_return_status OUT NOCOPY VARCHAR2 ,
593 x_msg_count OUT NOCOPY NUMBER ,
594 x_msg_data OUT NOCOPY VARCHAR2 ,
595 p_from_lpn_id IN NUMBER := NULL ,
596 p_lpn_id IN NUMBER ,
597 p_content_lpn_id IN NUMBER := NULL ,
598 p_content_item_id IN NUMBER := NULL ,
599 p_content_item_desc IN VARCHAR2 := NULL ,
600 p_revision IN VARCHAR2 := NULL ,
601 p_lot_number IN VARCHAR2 := NULL ,
602 p_from_serial_number IN VARCHAR2 := NULL ,
603 p_to_serial_number IN VARCHAR2 := NULL ,
604 p_quantity IN NUMBER := NULL ,
605 p_uom IN VARCHAR2 := NULL ,
606 p_organization_id IN NUMBER ,
607 p_subinventory IN VARCHAR2 := NULL ,
608 p_locator_id IN NUMBER := NULL ,
609 p_enforce_wv_constraints IN NUMBER := 2 ,
610 p_operation IN NUMBER ,
611 p_cost_group_id IN NUMBER := NULL ,
612 p_source_type_id IN NUMBER := NULL ,
613 p_source_header_id IN NUMBER := NULL ,
614 p_source_name IN VARCHAR2 := NULL ,
615 p_source_line_id IN NUMBER := NULL ,
616 p_source_line_detail_id IN NUMBER := NULL ,
617 p_homogeneous_container IN NUMBER := 2 ,
618 p_match_locations IN NUMBER := 2 ,
619 p_match_lpn_context IN NUMBER := 2 ,
620 p_match_lot IN NUMBER := 2 ,
621 p_match_cost_groups IN NUMBER := 2 ,
622 p_match_mtl_status IN NUMBER := 2
623 )
624 IS
625 BEGIN
626 NULL;
627
628 EXCEPTION
629 WHEN OTHERS THEN
630 NULL;
631
632
633
634 END packunpack_container;
635
636
637 PROCEDURE detect_ASN_discrepancy
638 (p_shipment_header_id NUMBER,
639 p_lpn_id NUMBER,
640 p_po_header_id NUMBER,
641 x_discrepancy_flag OUT NOCOPY NUMBER,
642 x_return_status OUT NOCOPY VARCHAR2,
643 x_msg_count OUT NOCOPY NUMBER,
644 x_msg_data OUT NOCOPY VARCHAR2)
645
646 IS
647 BEGIN
648 NULL;
649
650
651 END detect_ASN_discrepancy;
652
653
654 PROCEDURE transfer_lpn_contents
655 (p_to_lpn_id IN NUMBER,
656 x_return_status OUT NOCOPY VARCHAR2,
657 x_msg_count OUT NOCOPY NUMBER,
658 x_msg_data OUT NOCOPY VARCHAR2
659 )
660 IS
661 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
662 l_msg_count NUMBER;
663 l_msg_data VARCHAR2(4000);
664 l_progress VARCHAR2(10);
665 BEGIN
666 NULL;
667
668
669 END transfer_lpn_contents;
670
671
672
673 PROCEDURE remove_lpn_contents
674 (p_lpn_id IN NUMBER,
675 x_return_status OUT NOCOPY VARCHAR2,
676 x_msg_count OUT NOCOPY NUMBER,
677 x_msg_data OUT NOCOPY VARCHAR2,
678 p_routing_id IN NUMBER DEFAULT NULL
679 )
680 IS
681 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
682 l_msg_count NUMBER;
683 l_msg_data VARCHAR2(4000);
684 l_progress VARCHAR2(10);
685 BEGIN
686
687 NULL;
688
689 END remove_lpn_contents;
690
691 PROCEDURE clear_LPN_for_ship
692 (p_organization_id IN NUMBER,
693 p_shipment_header_id IN NUMBER,
694 x_return_status OUT NOCOPY VARCHAR2,
695 x_msg_count OUT NOCOPY NUMBER,
696 x_msg_data OUT NOCOPY VARCHAR2,
697 p_routing_id IN NUMBER DEFAULT NULL
698 )
699 IS
700 BEGIN
701 NULL;
702
703
704 EXCEPTION
705
706 WHEN OTHERS THEN
707 NULL;
708 End clear_LPN_for_ship;
709 -- If theres LPN on this shipment, lpn_flag = 1, else lpn_flag = 0
710
711 PROCEDURE check_lpn_on_shipment
712 (p_shipment_number IN VARCHAR2,
713 p_from_organization_id IN NUMBER,
714 p_to_organization_id IN NUMBER,
715 x_lpn_flag OUT NOCOPY NUMBER,
716 x_return_status OUT NOCOPY VARCHAR2,
717 x_msg_count OUT NOCOPY NUMBER,
718 x_msg_data OUT NOCOPY VARCHAR2)
719 IS
720 l_lpn_count NUMBER := 0;
721 l_lot_serial_flag NUMBER := 1;
722
723 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
724 l_msg_count NUMBER;
725 l_msg_data VARCHAR2(4000);
726 l_progress VARCHAR2(10);
727 BEGIN
728 NULL;
729
730
731 END check_lpn_on_shipment;
732
733
734 PROCEDURE check_lpn_on_ASN
735 (p_shipment_header_id IN VARCHAR2,
736 x_lpn_flag OUT NOCOPY NUMBER,
737 x_return_status OUT NOCOPY VARCHAR2,
738 x_msg_count OUT NOCOPY NUMBER,
739 x_msg_data OUT NOCOPY VARCHAR2
740 )
741 IS
742 l_lpn_count NUMBER := 0;
743 l_lot_serial_flag NUMBER := 1;
744
745 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
746 l_msg_count NUMBER;
747 l_msg_data VARCHAR2(4000);
748 l_progress VARCHAR2(10);
749 BEGIN
750 NULL;
751
752
753
754
755 EXCEPTION
756 WHEN OTHERS THEN
757 NULL;
758 END check_lpn_on_ASN;
759
760
761
762 -- Express Int Req Receiving
763 PROCEDURE CHECK_LPN_ON_REQ (
764 p_req_num IN VARCHAR2,
765 x_lpn_flag OUT NOCOPY NUMBER,
766 x_return_status OUT NOCOPY VARCHAR2,
767 x_msg_count OUT NOCOPY NUMBER,
768 x_msg_data OUT NOCOPY VARCHAR2
769 ) IS
770 l_lpn_flag NUMBER := 0;
771 l_lpn_id NUMBER := NULL;
772 l_order_header_id NUMBER;
773 l_order_line_id NUMBER;
774 l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
775 l_msg_count NUMBER;
776 l_msg_data VARCHAR2(4000);
777 l_progress VARCHAR2(10);
778 l_shipping_org NUMBER;
779 l_lpn_org NUMBER;
780 l_lpn_context NUMBER;
781 l_exit_outer BOOLEAN := FALSE;
782
783 BEGIN
784 NULL;
785
786
787
788 EXCEPTION
789
790 WHEN OTHERS THEN
791 NULL;
792 END;
793 -- Express Int Req Receiving
794
795 PROCEDURE update_LPN_Org (
796 p_organization_id IN NUMBER,
797 p_lpn_id IN NUMBER,
798 x_return_status OUT NOCOPY VARCHAR2,
799 x_msg_count OUT NOCOPY NUMBER,
800 x_msg_data OUT NOCOPY VARCHAR2
801 )
802 IS
803
804 BEGIN
805 NULL;
806 EXCEPTION
807 WHEN OTHERS THEN
808 NULL;
809 END update_LPN_Org;
810 END GML_RCV_STD_RCPT_APIS;