PACKAGE BODY: APPS.CN_MOD_OBJ_DEPENDS_PKG

Source

1 PACKAGE BODY cn_mod_obj_depends_pkg AS
2 -- $Header: cnremodb.pls 115.1 99/07/16 07:14:39 porting ship $
3 
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT	ROWID,
11 	X_mod_obj_depends_id	cn_mod_obj_depends.mod_obj_depends_id%TYPE,
12 	X_object_id		cn_mod_obj_depends.object_id%TYPE,
13 	X_parent_object_id	cn_mod_obj_depends.parent_object_id%TYPE,
14 	X_action		cn_mod_obj_depends.action%TYPE,
15 	X_module_id		cn_mod_obj_depends.module_id%TYPE) IS
16 
17     X_primary_key		cn_mod_obj_depends.mod_obj_depends_id%TYPE;
18   BEGIN
19 
20     X_primary_key := X_mod_obj_depends_id;
21     IF (X_primary_key IS NULL) THEN
22       SELECT cn_objects_s.NEXTVAL
23         INTO X_primary_key
24         FROM dual;
25     END IF;
26 
27     INSERT INTO cn_mod_obj_depends (
28 	mod_obj_depends_id,
29 	object_id,
30 	parent_object_id,
31 	action,
32 	module_id)
33       VALUES (
34 	X_primary_key,
35 	X_object_id,
36 	X_parent_object_id,
37 	X_action,
38 	X_module_id);
39 
40     SELECT ROWID
41       INTO X_rowid
42       FROM cn_mod_obj_depends
43      WHERE mod_obj_depends_id = X_primary_key;
44 
45     IF (SQL%NOTFOUND) THEN
46       RAISE NO_DATA_FOUND;
47     END IF;
48 
49   END insert_row;
50 
51 
52   PROCEDURE select_row (
53 	recinfo IN OUT cn_mod_obj_depends%ROWTYPE) IS
54   BEGIN
55     -- select row based on mod_obj_depends_id (primary key)
56     IF (recinfo.mod_obj_depends_id IS NOT NULL) THEN
57 
58       SELECT * INTO recinfo
59         FROM cn_mod_obj_depends cmom
60         WHERE cmom.mod_obj_depends_id = recinfo.mod_obj_depends_id;
61 
62     END IF;
63   END select_row;
64 
65 
66 END cn_mod_obj_depends_pkg;