[Home] [Help]
300: -- Start of Comments
301: -- Procedure name : confirm_receipt
302: -- Purpose : This procedure initiates the material transactions for manual receipt orders when the
303: -- users confirm that they receive the shipped orders. In addition to updating the mmtt table,
304: -- it also updates quantity_received column in the csp_packlist_lines table.
305: --
306: -- History :
307: -- Person Date Descriptions
308: -- ------ ---- --------------
598: WHERE transaction_temp_id = l_transaction_temp_id
599: AND organization_id = p_organization_id;
600: CURSOR l_Get_Shipped_Received_Qty IS
601: SELECT nvl(quantity_shipped, 0), nvl(quantity_received, 0)
602: FROM CSP_Packlist_Lines
603: WHERE packlist_line_id = p_packlist_line_id
604: and organization_id = p_organization_id;
605: CURSOR l_Get_Moveorder_Headers(l_line_id NUMBER) IS
606: SELECT distinct header_id
668:
669: -- Added to fix bug 1321353.
670: CURSOR l_Get_Org_Qty_Csr Is
671: Select nvl(quantity_shipped,0)-nvl(quantity_received,0)
672: From csp_packlist_lines
673: Where packlist_line_id = p_packlist_line_id
674: And organization_id = p_organization_id;
675: BEGIN
676: SAVEPOINT confirm_receipt_PUB;
732: ELSE
733: -- get the packlist_header_id
734: BEGIN
735: select packlist_header_id into l_packlist_header_id
736: from csp_packlist_lines
737: where organization_id = p_organization_id
738: and packlist_line_id = p_packlist_line_id;
739: EXCEPTION
740: WHEN NO_DATA_FOUND THEN
745: WHEN OTHERS THEN
746: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_ERRORS');
747: fnd_message.set_token('ERR_FIELD', 'p_packlist_line_id', FALSE);
748: fnd_message.set_token('ROUTINE', l_api_name, FALSE);
749: fnd_message.set_token('TABLE', 'csp_packlist_lines', FALSE);
750: fnd_msg_pub.add;
751: RAISE EXCP_USER_DEFINED;
752: END;
753:
775:
776: IF p_validation_level = fnd_api.g_valid_level_full THEN
777: BEGIN
778: select packlist_line_id into l_check_existence
779: from csp_packlist_lines
780: where packlist_line_id = p_packlist_line_id
781: and organization_id = p_organization_id;
782: EXCEPTION
783: WHEN NO_DATA_FOUND THEN
788: WHEN OTHERS THEN
789: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_ERRORS');
790: fnd_message.set_token('ERR_FIELD', 'p_packlist_line_id', FALSE);
791: fnd_message.set_token('ROUTINE', l_api_name, FALSE);
792: fnd_message.set_token('TABLE', 'csp_packlist_lines', FALSE);
793: fnd_msg_pub.add;
794: RAISE EXCP_USER_DEFINED;
795: END;
796: END IF;
799: -- Validate the quantity received
800: IF nvl(p_quantity_received, fnd_api.g_miss_num) = fnd_api.g_miss_num OR p_quantity_received < 0 THEN
801: /* IF p_quantity_received = 0 AND p_receiving_option = 1 THEN
802: -- close the move order and ship order because the receiving option is receiving short.
803: -- update quantity_received in the csp_packlist_lines table
804: CSP_PL_SHIP_UTIL.Update_Packlist_Sts_Qty (
805: P_Api_Version_Number => l_api_version_number,
806: P_Init_Msg_List => FND_API.G_true,
807: P_Commit => l_commit,
925: WHEN OTHERS THEN
926: fnd_message.set_name('CSP', 'CSP_UNEXPECTED_ERRORS');
927: fnd_message.set_token('ERR_FIELD', 'p_to_subinventory_code', FALSE);
928: fnd_message.set_token('ROUTINE', l_api_name, FALSE);
929: fnd_message.set_token('TABLE', 'csp_packlist_lines', FALSE);
930: fnd_msg_pub.add;
931: RAISE EXCP_USER_DEFINED;
932: END;
933: END IF;
981: INTO l_csp_mtltxn_rec.move_order_line_id, l_csp_mtltxn_rec.inventory_item_id,
982: l_csp_mtltxn_rec.transfer_subinventory, l_csp_mtltxn_rec.transfer_to_location,
983: l_csp_mtltxn_rec.transaction_uom
984: FROM mtl_txn_request_lines
985: WHERE line_id = (SELECT line_id FROM csp_packlist_lines WHERE packlist_line_id = p_packlist_line_id)
986: AND organization_id = p_organization_id;
987:
988: -- Find the serial control code, lot control code and item primary uom.
989: SELECT primary_uom_code, serial_number_control_code, lot_control_code
2023: ELSE
2024: l_packlist_line_status := NULL;
2025: END IF;
2026:
2027: -- Update quantity_received in the csp_packlist_lines table
2028: CSP_PL_SHIP_UTIL.Update_Packlist_Sts_Qty (
2029: P_Api_Version_Number => l_api_version_number,
2030: P_Init_Msg_List => FND_API.G_true,
2031: P_Commit => l_commit,
2049: IF p_receiving_option = 0 OR p_receiving_option = 3 THEN
2050: BEGIN
2051: SELECT count(packlist_line_status)
2052: INTO l_count
2053: FROM csp_packlist_lines
2054: WHERE packlist_header_id = l_packlist_header_id
2055: AND packlist_line_status = 4;
2056: EXCEPTION
2057: WHEN no_data_found THEN