PACKAGE BODY: APPS.POS_SUP_PROF_PRG_GRP

Source

1 package body POS_SUP_PROF_PRG_GRP as
2 /* $Header: POSSPPGB.pls 120.1 2006/01/10 13:37:40 bitang noship $ */
3 
4 procedure handle_purge(x_return_status OUT NOCOPY VARCHAR2)
5 IS
6 BEGIN
7    -- delete pending suppliser user registration of vendors no longer in ap_suppliers table
8    DELETE FROM fnd_registrations
9      WHERE registration_id IN
10      (SELECT registration_id
11       FROM fnd_registration_details frd
12       WHERE field_name = 'Supplier Number'
13       AND not exists
14       (select vendor_id from ap_suppliers where vendor_id= frd.field_value_number) )
15      AND registration_status <> 'APPROVED';
16 
17    -- Remove all the registrations details that dont have a parent
18    DELETE FROM fnd_registration_details
19      WHERE registration_id not IN
20      (SELECT registration_id
21       FROM fnd_registrations
22       );
23 
24    x_return_status := fnd_api.g_ret_sts_success ;
25 
26 END handle_purge;
27 
28 END POS_SUP_PROF_PRG_GRP;