[Home] [Help]
1: PACKAGE BODY PO_AUTOSOURCE_SV AS
2: /* $Header: POXSRCDB.pls 120.24.12010000.9 2008/11/01 09:40:36 adevadul 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.24.12010000.9 2008/11/01 09:40:36 adevadul 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: -------------------------------------------------------------------------------
1005: this procedure calls get_document_from_asl OR get_latest_document.
1006:
1007:
1008: * Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1009: communicate the ASL_ID back to PO_AUTOSOURCE_SV.autosourcing or
1010: PO_AUTOSOURCE_SV.reqimport_sourcing.
1011:
1012: * We need not make any changes to the existing code of this procedure,
1013: as we just make calls to Get_document_from_asl or Get_latest_document
1006:
1007:
1008: * Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1009: communicate the ASL_ID back to PO_AUTOSOURCE_SV.autosourcing or
1010: PO_AUTOSOURCE_SV.reqimport_sourcing.
1011:
1012: * We need not make any changes to the existing code of this procedure,
1013: as we just make calls to Get_document_from_asl or Get_latest_document
1014: procedure depending on the value of 'PO: Automatic Document Sourcing'
1417: --End of Comments
1418: -------------------------------------------------------------------------------
1419: --
1420: --* Modifying the parameter x_asl_id from IN to IN OUT parameter in order to
1421: -- communicate the ASL_ID back to PO_AUTOSOURCE_SV.document_sourcing.
1422:
1423: --* In the existing code of the procedure, we make a local copy of x_asl_id
1424: -- (x_local_asl_id) and use it.
1425:
5181: x_item_id),1);
5182: END IF;
5183:
5184: -- Calling the procedure for applying order modifier, quantity conversion and rounding
5185: PO_AUTOSOURCE_SV.process_req_qty(p_mode => x_mode,
5186: p_request_id => x_request_id,
5187: p_multi_dist_flag => p_multi_dist_flag,
5188: p_req_dist_sequence_id => l_req_dist_sequence_id,
5189: p_min_order_qty => l_min_ord_qty,
5424: x_item_id),1);
5425: END IF;
5426:
5427: -- Calling the procedure for applying order modifier, quantity conversion and rounding
5428: PO_AUTOSOURCE_SV.process_req_qty(p_mode => x_mode,
5429: p_request_id => x_request_id,
5430: p_multi_dist_flag => p_multi_dist_flag,
5431: p_req_dist_sequence_id => l_req_dist_sequence_id,
5432: p_min_order_qty => l_min_ord_qty,
5467:
5468: Procedure Get_All_Item_Asl(
5469: x_item_id IN Mtl_system_items.inventory_item_id%type,
5470: x_using_organization_id IN Number, --will be -1
5471: X_vendor_details IN OUT NOCOPY PO_AUTOSOURCE_SV.vendor_record_details,
5472: x_return_status OUT NOCOPY varchar2,
5473: x_msg_count OUT NOCOPY Number,
5474: x_msg_data OUT NOCOPY Varchar2 ) is
5475:
6615:
6616: EXCEPTION
6617:
6618: WHEN OTHERS THEN
6619: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.get_source_info','000',sqlcode);
6620: RAISE;
6621:
6622: END get_source_info;
6623:
6667: l_from_line_location_id_db PO_LINES_ALL.from_line_location_id%TYPE;
6668:
6669: BEGIN
6670:
6671: PO_AUTOSOURCE_SV.get_source_info
6672: ( p_po_line_id => p_po_line_id
6673: , x_from_header_id => l_from_header_id_db
6674: , x_from_line_id => l_from_line_id_db
6675: , x_from_line_location_id => l_from_line_location_id_db
6696:
6697: EXCEPTION
6698:
6699: WHEN OTHERS THEN
6700: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.has_source_changed','000',sqlcode);
6701: RAISE;
6702:
6703: END has_source_changed;
6704:
6802:
6803: EXCEPTION
6804:
6805: WHEN OTHERS THEN
6806: PO_MESSAGE_S.sql_error('PO_AUTOSOURCE_SV.get_line_amount','000',sqlcode);
6807: RAISE;
6808: END get_line_amount;
6809:
6810: --
6917:
6918: END should_return_contract;
6919: --
6920:
6921: END PO_AUTOSOURCE_SV;