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: --
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
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:
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;
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
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:
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
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,
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;
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:
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;
62: END IF;
63: END select_row;
64:
65:
66: END cn_mod_obj_depends_pkg;