[Home] [Help]
1: PACKAGE BODY CSD_INTERNAL_ORDERS_PVT AS
2: /* $Header: csdviorb.pls 120.9.12020000.4 2013/04/10 19:20:15 swai ship $ */
3: -- Start of Comments
4: -- Package name : CSD_INTERNAL_ORDERS_PVT
5: -- Purpose : This package will contain all the procedures and functions used by the Internal.
1: PACKAGE BODY CSD_INTERNAL_ORDERS_PVT AS
2: /* $Header: csdviorb.pls 120.9.12020000.4 2013/04/10 19:20:15 swai ship $ */
3: -- Start of Comments
4: -- Package name : CSD_INTERNAL_ORDERS_PVT
5: -- Purpose : This package will contain all the procedures and functions used by the Internal.
6: -- Orders. Usage of this package is strictly confined to Oracle Depot Repair
7: -- Development.
8: --
43: l_deliver_to_location_id NUMBER;
44: l_intf_txn_id JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
45: l_fm_serial_num_tbl JTF_VARCHAR2_TABLE_100 := JTF_VARCHAR2_TABLE_100();
46: l_to_serial_num_tbl JTF_VARCHAR2_TABLE_100 := JTF_VARCHAR2_TABLE_100();
47: lc_api_name CONSTANT VARCHAR2(100) := 'CSD_INTERNAL_ORDERS_PVT.populate_rcv_int_tables';
48: l_shipment_header_id JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
49: l_shipment_line_id JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
50: l_shipment_num JTF_VARCHAR2_TABLE_100 := JTF_VARCHAR2_TABLE_100();
51: l_shipped_date JTF_DATE_TABLE := JTF_DATE_TABLE();
406: x_msg_count OUT NOCOPY NUMBER,
407: x_msg_data OUT NOCOPY VARCHAR2,
408: x_return_status OUT NOCOPY VARCHAR2)
409: IS
410: lc_api_name CONSTANT VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.create_internal_requisition';
411: lc_api_version CONSTANT NUMBER := 1.0;
412: l_product_txn_ids JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
413: l_destination_ous JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
414: l_destination_orgs JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
495: x_msg_count OUT NOCOPY NUMBER,
496: x_msg_data OUT NOCOPY VARCHAR2,
497: x_return_status OUT NOCOPY VARCHAR2)
498: IS
499: lc_api_name CONSTANT VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.create_internal_requisition';
500: lc_api_version CONSTANT NUMBER := 1.0;
501: l_user_id NUMBER := fnd_global.user_id;
502: l_person_id NUMBER;
503: l_currency_code VARCHAR2(15);
774: p_source_subinv IN VARCHAR2 DEFAULT NULL,
775: p_destination_subinv IN VARCHAR2 DEFAULT NULL
776: )
777: IS
778: lc_api_name VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.create_internal_move_orders';
779: l_product_txn_ids JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
780: l_destination_ous JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
781: l_destination_orgs JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
782: l_destination_loc_ids JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
795: -- update csd_product_transactions.
796:
797: -- Step 1. Create internal requisition.
798: IF (G_LEVEL_PROCEDURE >= G_RUNTIME_LEVEL) THEN
799: Fnd_Log.STRING(G_LEVEL_PROCEDURE, lc_api_name,'Calling CSD_INTERNAL_ORDERS_PVT.create_internal_requisition');
800: END IF;
801:
802: l_product_txn_ids.EXTEND;
803: l_destination_ous.EXTEND;
851: p_source_subinvs IN JTF_VARCHAR2_TABLE_100 DEFAULT NULL,
852: p_destination_subinvs IN JTF_VARCHAR2_TABLE_100 DEFAULT NULL
853: )
854: IS
855: lc_api_name VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.create_internal_move_orders';
856: x_msg_data VARCHAR2(2000);
857: x_return_status VARCHAR2(1);
858: x_msg_count NUMBER;
859: x_requisition_number VARCHAR2(30);
872: -- update csd_product_transactions.
873:
874: -- Step 1. Create internal requisition.
875: IF (G_LEVEL_PROCEDURE >= G_RUNTIME_LEVEL) THEN
876: Fnd_Log.STRING(G_LEVEL_PROCEDURE, lc_api_name,'Calling CSD_INTERNAL_ORDERS_PVT.create_internal_requisition');
877: END IF;
878: CSD_INTERNAL_ORDERS_PVT.create_internal_requisition(
879: p_api_version => 1.0,
880: p_product_txn_ids => p_product_txn_ids,
874: -- Step 1. Create internal requisition.
875: IF (G_LEVEL_PROCEDURE >= G_RUNTIME_LEVEL) THEN
876: Fnd_Log.STRING(G_LEVEL_PROCEDURE, lc_api_name,'Calling CSD_INTERNAL_ORDERS_PVT.create_internal_requisition');
877: END IF;
878: CSD_INTERNAL_ORDERS_PVT.create_internal_requisition(
879: p_api_version => 1.0,
880: p_product_txn_ids => p_product_txn_ids,
881: p_destination_ous => p_destination_ous,
882: p_destination_orgs => p_destination_orgs,
1009: x_return_status OUT NOCOPY VARCHAR2)
1010: IS
1011: l_order_rec csd_process_pvt.om_interface_rec;
1012: l_prod_txn_rec csd_process_pvt.product_txn_rec;
1013: lc_api_name CONSTANT VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.pick_release_internal_order';
1014: lc_api_version CONSTANT NUMBER := 1.0;
1015: l_user_id NUMBER := fnd_global.user_id;
1016: l_login_id NUMBER := fnd_global.conc_login_id;
1017: l_document_set_id NUMBER;
1286: x_return_status OUT NOCOPY VARCHAR2)
1287: IS
1288:
1289: lc_api_version CONSTANT NUMBER := 1.0;
1290: lc_api_name CONSTANT VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.ship_confirm_internal_order';
1291: l_serial_control_flag VARCHAR2(1);
1292: l_lot_control_flag VARCHAR2(1);
1293: l_rev_control_flag VARCHAR2(1);
1294: l_item_name VARCHAR2(240);
1771: l_receive_tbl csd_receive_util.rcv_tbl_type;
1772: x_rcv_error_msg_tbl csd_receive_util.rcv_error_msg_tbl;
1773: l_dummy NUMBER;
1774: l_validation EXCEPTION;
1775: lc_api_name VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.RECEIVE_INTERNAL_ORDER';
1776: x_request_group_id NUMBER;
1777: l_received_quantity NUMBER;
1778: l_delivery_detail_id NUMBER;
1779: BEGIN
1989: x_return_status OUT NOCOPY VARCHAR2
1990: )
1991: IS
1992: lc_api_version CONSTANT NUMBER := 1.0;
1993: lc_api_name VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.PICK_RELEASE';
1994: l_batch_rec WSH_PICKING_BATCHES_PUB.batch_info_rec;
1995: l_order_type_id NUMBER;
1996: l_customer_id NUMBER;
1997: l_document_set_id NUMBER;
2657: x_msg_count OUT NOCOPY NUMBER,
2658: x_msg_data OUT NOCOPY VARCHAR2
2659: )
2660: IS
2661: lc_api_name CONSTANT VARCHAR2(80) := 'CSD_INTERNAL_ORDERS_PVT.create_internal_sales_orders';
2662: lc_api_version CONSTANT NUMBER := 1.0;
2663: l_success BOOLEAN;
2664: l_request_id NUMBER;
2665: x_phase VARCHAR2(15);
2726: END IF;
2727:
2728: END create_internal_sales_orders;
2729:
2730: END CSD_INTERNAL_ORDERS_PVT;