PACKAGE BODY: APPS.POS_VENDOR_MERGE

Source

1 PACKAGE BODY POS_VENDOR_MERGE as
2 -- $Header: POSMERGB.pls 115.9 2002/11/27 18:29:41 bitang ship $
3 
4 
5 PROCEDURE VENDOR_MERGE (
6    p_vendor_id IN NUMBER,           -- new VENDOR_ID
7    p_vendor_site_id IN NUMBER,      -- new VENDOR_SITE_ID
8    p_dup_vendor_id IN NUMBER,       -- old / disabled VENDOR_ID
9    p_dup_vendor_site_id IN NUMBER  -- old / disabled VENDOR_SITE_ID
10 )
11 AS
12 l_count number;
13 --
14 BEGIN
15 
16 -- Select the number of avtive sites for the old vendor_id
17 select count(*)
18 into l_count
19 from po_vendor_sites_all
20 where vendor_id = p_dup_vendor_id
21 and vendor_site_id <> p_dup_vendor_site_id
22 and
23 (inactive_date is null OR inactive_date >= sysdate) ;
24 
25 IF ( l_count = 0  AND (p_vendor_id <> p_dup_vendor_id) ) THEN
26     POS_VENDOR_UTIL_PKG.merge_vendor_parties(
27        p_vendor_id            -- new VENDOR_ID
28        , p_dup_vendor_id        -- old / disabled VENDOR_ID
29     );
30 END IF;
31 END VENDOR_MERGE;
32 
33 
34 END POS_VENDOR_MERGE;