PACKAGE BODY: APPS.PO_VENDOR_SITES_SV1

Source

1 PACKAGE BODY PO_VENDOR_SITES_SV1 AS
2 /* $Header: POXPIVSB.pls 115.0 99/07/17 01:52:02 porting ship $ */
3 
4 /*==============================================================
5 
6   FUNCTION NAME : derive_vendor_site_id
7 
8 ===============================================================*/
9 FUNCTION  derive_vendor_site_id(X_vendor_id        IN NUMBER,
10                                 X_vendor_site_code IN VARCHAR2)
11 return NUMBER IS
12 
13 X_progress         varchar2(3)     := NULL;
14 X_vendor_site_id_v number          := NULL;
15 
16 BEGIN
17 
18  X_progress := '010';
19 /*
20    Get the vendor site id from po_supplier_sites_val_v based on
21    the parameters supplied from the input.                     */
22 
23  SELECT		 vendor_site_id
24  INTO		 X_vendor_site_id_v
25  FROM		 po_supplier_sites_val_v
26  WHERE		 vendor_id = X_vendor_id
27  AND		 vendor_site_code = X_vendor_site_code;
28 
29 RETURN X_vendor_site_id_v;
30 
31 EXCEPTION
32 
33    WHEN no_data_found THEN
34         RETURN NULL;
35    WHEN others THEN
36         po_message_s.sql_error('derive_vendor_site_id',X_progress, sqlcode);
37         raise;
38 
39 END derive_vendor_site_id;
40 
41 END PO_VENDOR_SITES_SV1;