[Home] [Help]
1: PACKAGE BODY PO_AUTOSOURCE_SV AS
2: /* $Header: POXSRCDB.pls 120.42.12020000.3 2013/02/10 20:15:26 vegajula ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_AUTOSOURCE_SV';
5:
1: PACKAGE BODY PO_AUTOSOURCE_SV AS
2: /* $Header: POXSRCDB.pls 120.42.12020000.3 2013/02/10 20:15:26 vegajula ship $*/
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_AUTOSOURCE_SV';
5:
6: --
7: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.' || g_pkg_name || '.';
8:
80: -- None
81: --End of Comments
82: -----------------------------------------------------------------------------*/
83: --
84: -- We need the value of the asl_id in the PO_AUTOSOURCE_SV.reqimport_sourcing. We
85: -- have to get it from the PO_AUTOSOURCE_SV.autosource. Added a new parameter
86: -- x_asl_id as IN OUT type so that we can pass this value back to the
87: -- calling procedure.
88: --
81: --End of Comments
82: -----------------------------------------------------------------------------*/
83: --
84: -- We need the value of the asl_id in the PO_AUTOSOURCE_SV.reqimport_sourcing. We
85: -- have to get it from the PO_AUTOSOURCE_SV.autosource. Added a new parameter
86: -- x_asl_id as IN OUT type so that we can pass this value back to the
87: -- calling procedure.
88: --
89: PROCEDURE autosource(
477: --Locks:
478: -- None.
479: --Function:
480: -- This is the overloaded procedure that will be called by all the routines,
481: -- which were already calling PO_AUTOSOURCE_SV.autosource without ASL_ID parameter.
482: -- This procedure in turn will call the autosource procedure, which has the
483: -- additional parameter x_asl_id with a NULL value.
484: --End of Comments
485: -------------------------------------------------------------------------------
1009: this procedure calls get_document_from_asl OR get_latest_document.
1010:
1011:
1012: * Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1013: communicate the ASL_ID back to PO_AUTOSOURCE_SV.autosourcing or
1014: PO_AUTOSOURCE_SV.reqimport_sourcing.
1015:
1016: * We need not make any changes to the existing code of this procedure,
1017: as we just make calls to Get_document_from_asl or Get_latest_document
1010:
1011:
1012: * Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1013: communicate the ASL_ID back to PO_AUTOSOURCE_SV.autosourcing or
1014: PO_AUTOSOURCE_SV.reqimport_sourcing.
1015:
1016: * We need not make any changes to the existing code of this procedure,
1017: as we just make calls to Get_document_from_asl or Get_latest_document
1018: procedure depending on the value of 'PO: Automatic Document Sourcing'
1421: --End of Comments
1422: -------------------------------------------------------------------------------
1423: --
1424: --* Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1425: -- communicate the ASL_ID back to PO_AUTOSOURCE_SV.document_sourcing.
1426:
1427: --* In the existing code of the procedure, we make a local copy of x_asl_id
1428: -- (x_local_asl_id) and use it.
1429:
5231: exception when others then
5232: l_enforce_full_lot_qty := null;
5233: end;
5234: -- Calling the procedure for applying order modifier, quantity conversion and rounding
5235: PO_AUTOSOURCE_SV.process_req_qty(p_mode => x_mode,
5236: p_request_id => x_request_id,
5237: p_multi_dist_flag => p_multi_dist_flag,
5238: p_req_dist_sequence_id => l_req_dist_sequence_id,
5239: p_min_order_qty => l_min_ord_qty,
5307: WHERE rowid = x_rowid;
5308:
5309: EXCEPTION
5310: WHEN OTHERS THEN
5311: po_message_s.sql_error('PO_AUTOSOURCE_SV.L_GET_REQ_INFO_VENDOR_CSR',l_progress,sqlcode);
5312: END;
5313:
5314: --
5315: END LOOP;
5501: x_item_id),1);
5502: END IF;
5503:
5504: -- Calling the procedure for applying order modifier, quantity conversion and rounding
5505: PO_AUTOSOURCE_SV.process_req_qty(p_mode => x_mode,
5506: p_request_id => x_request_id,
5507: p_multi_dist_flag => p_multi_dist_flag,
5508: p_req_dist_sequence_id => l_req_dist_sequence_id,
5509: p_min_order_qty => l_min_ord_qty,
5544:
5545: Procedure Get_All_Item_Asl(
5546: x_item_id IN Mtl_system_items.inventory_item_id%type,
5547: x_using_organization_id IN Number, --will be -1
5548: X_vendor_details IN OUT NOCOPY PO_AUTOSOURCE_SV.vendor_record_details,
5549: x_return_status OUT NOCOPY varchar2,
5550: x_msg_count OUT NOCOPY Number,
5551: x_msg_data OUT NOCOPY Varchar2 ) is
5552:
6692:
6693: EXCEPTION
6694:
6695: WHEN OTHERS THEN
6696: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.get_source_info','000',sqlcode);
6697: RAISE;
6698:
6699: END get_source_info;
6700:
6744: l_from_line_location_id_db PO_LINES_ALL.from_line_location_id%TYPE;
6745:
6746: BEGIN
6747:
6748: PO_AUTOSOURCE_SV.get_source_info
6749: ( p_po_line_id => p_po_line_id
6750: , x_from_header_id => l_from_header_id_db
6751: , x_from_line_id => l_from_line_id_db
6752: , x_from_line_location_id => l_from_line_location_id_db
6773:
6774: EXCEPTION
6775:
6776: WHEN OTHERS THEN
6777: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.has_source_changed','000',sqlcode);
6778: RAISE;
6779:
6780: END has_source_changed;
6781:
6879:
6880: EXCEPTION
6881:
6882: WHEN OTHERS THEN
6883: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.get_line_amount','000',sqlcode);
6884: RAISE;
6885: END get_line_amount;
6886:
6887: --
7077: x_consignEnabled_flag:='N';
7078: x_VmiEnabled_flag :='N';
7079:
7080: WHEN OTHERS THEN
7081: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.Check_VmiOrConsign_Enabled','000',sqlcode);
7082: RAISE;
7083:
7084: END get_VmiOrConsignEnabled_info;
7085:
7082: RAISE;
7083:
7084: END get_VmiOrConsignEnabled_info;
7085:
7086: END PO_AUTOSOURCE_SV;