PACKAGE BODY: APPS.IBY_DEFAULT_BEP_PKG

Source

1 package body iby_default_bep_pkg as
2 /*$Header: ibydbepb.pls 115.9 2002/10/04 20:08:15 jleybovi ship $*/
3 
4 /*
5 ** Function: modifyBep.
6 ** Purpose:  modifies rule condition information in the database.
7 */
8 procedure modifyBep (
9                i_instrtype in iby_default_bep.instrtype%type,
10                i_bepid in iby_default_bep.bepid%type,
11                i_version in iby_default_bep.object_version_number%type)
12 is
13 
14 CURSOR c_defaultBep IS
15   SELECT *
16     FROM iby_default_bep  a
17     WHERE
18       i_version = a.object_version_number AND
19       i_instrtype = a.instrtype
20     FOR UPDATE;
21 BEGIN
22 
23 -- Check whether this method name is already being used
24 -- if not create a new row.
25   IF c_defaultBep%ISOPEN
26   THEN
27       CLOSE c_defaultBep;
28       OPEN c_defaultBep;
29   ELSE
30       OPEN c_defaultBep;
31   END IF;
32 
33   IF c_defaultBep%NOTFOUND
34   THEN
35     CLOSE c_defaultBep;
36 	  raise_application_error(-20000, 'IBY_204557#', FALSE);
37   END IF;
38 
39   CLOSE c_defaultBep;
40 
41   FOR v_bepInfo  IN c_defaultBep LOOP
42   UPDATE iby_default_bep
43     SET
44       instrtype = i_instrtype,
45       bepid = i_bepid,
46       last_update_date = sysdate,
47       last_updated_by = fnd_global.user_id,
48       last_update_login = fnd_global.login_id,
49       object_version_number = object_version_number+1
50     WHERE CURRENT OF c_defaultBep;
51 
52   END LOOP;
53 
54   IF c_defaultBep%ISOPEN
55   THEN
56       CLOSE c_defaultBep;
57   END IF;
58 
59   COMMIT;
60 
61 END;
62 
63 end iby_default_bep_pkg;