PACKAGE BODY: APPS.PO_RFQ_VENDORS_PKG_S4

Source

1 PACKAGE BODY PO_RFQ_VENDORS_PKG_S4 as
2 /* $Header: POXPIR5B.pls 115.0 99/07/17 01:50:10 porting ship $ */
3 /*========================================================================
4 ** PROCEDURE NAME : check_unique_supplier_site
5 ** DESCRIPTION    :
6 **
7 **
8 **
9 **
10 ** ======================================================================*/
11 
12 PROCEDURE check_unique_supplier_site
13 			(X_rowid		VARCHAR2,
14 			 X_vendor_id		NUMBER,
15                          X_vendor_site_id	NUMBER,
16 			 X_po_header_id		NUMBER) IS
17 
18   X_progress VARCHAR2(3) := NULL;
19   dummy	   NUMBER;
20 
21  BEGIN
22 
23   X_progress := '010';
24 
25   SELECT  1
26   INTO    dummy
27   FROM    sys.DUAL
28   WHERE  not exists (SELECT 1
29 		     FROM   po_rfq_vendors
30 		     WHERE  po_header_id   = X_po_header_id
31                      AND    vendor_id      = X_vendor_id
32 		     AND    vendor_site_id = X_vendor_site_id
33 		     AND    ((X_rowid is null) or
34                              (X_rowid != rowid)));
35 
36   X_progress := '020';
37 
38  exception
39 
40   when no_data_found then
41       po_message_s.app_error('PO_RFQ_VENDOR_ALREADY_EXISTS');
42       raise;
43 
44   when others then
45 --      po_message_s.sql_error('check_unique',X_progress,sqlcode);
46       po_message_s.app_error('PO_RFQ_VENDOR_ALREADY_EXISTS');
47       raise;
48 
49  end check_unique_supplier_site;
50 
51 END PO_RFQ_VENDORS_PKG_S4;