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;