PACKAGE BODY: APPS.CN_OBJ_PACKAGES_V_PKG

Source

1 PACKAGE BODY cn_obj_packages_v_pkg AS
2 -- $Header: cnrepkgb.pls 115.1 99/07/16 07:14:56 porting ship $
3 
4 
5   --
6   -- Public Functions
7   --
8 
9   --
10   -- Procedure Name
11   --   insert_row
12   -- Purpose
13   --   Insert row into CN_REP_OBJ_PKGS_V.
14   -- History
15   --   16-FEB-94		Devesh Khatu		Modified
16   --
17   PROCEDURE insert_row (
18 	X_rowid		OUT		ROWID,
19 	X_package_id			cn_obj_packages_v.package_id%TYPE,
20 	X_name				cn_obj_packages_v.name%TYPE,
21 	X_description			cn_obj_packages_v.description%TYPE,
22 	X_dependency_map_complete	cn_obj_packages_v.dependency_map_complete%TYPE,
23 	X_status			cn_obj_packages_v.status%TYPE,
24 	X_repository_id			cn_obj_packages_v.repository_id%TYPE,
25 	X_package_type			cn_obj_packages_v.package_type%TYPE,
26 	X_package_specification_id	cn_obj_packages_v.package_specification_id%TYPE,
27 	X_seed_package_id		cn_obj_packages_v.seed_package_id%TYPE) IS
28 
29     X_object_type		cn_obj_packages_v.object_type%TYPE;
30     X_primary_key		cn_obj_packages_v.package_id%TYPE;
31 
32   BEGIN
33 
34     X_primary_key := X_package_id;
35     IF (X_primary_key IS NULL) THEN
36       SELECT cn_objects_s.NEXTVAL
37         INTO X_primary_key
38         FROM dual;
39     END IF;
40 
41     IF (X_package_specification_id IS NULL) THEN
42       -- package specification
43       X_object_type := 'PKS';
44     ELSE
45       -- package body
46       X_object_type := 'PKB';
47     END IF;
48 
49     INSERT INTO cn_obj_packages_v(
50 	package_id,
51 	name,
52 	description,
53 	dependency_map_complete,
54 	status,
55 	repository_id,
56 	package_type,
57 	package_specification_id,
58 	object_type,
59 	seed_package_id)
60     VALUES(
61 	X_primary_key,
62 	X_name,
63 	X_description,
64 	X_dependency_map_complete,
65 	X_status,
66 	X_repository_id,
67         X_package_type,
68 	X_package_specification_id,
69 	X_object_type,
70 	X_seed_package_id);
71 
72     SELECT ROWID
73       INTO X_rowid
74       FROM cn_obj_packages_v
75      WHERE package_id = X_primary_key;
76 
77     IF (SQL%NOTFOUND) THEN
78       RAISE NO_DATA_FOUND;
79     END IF;
80 
81   END insert_row;
82 
83 
84 
85   --
86   -- Procedure Name
87   --   select_row
88   -- Purpose
89   --   Select row from CN_REP_OBJ_PKGS_V.
90   -- History
91   --
92   PROCEDURE select_row(
93 	row IN OUT cn_obj_packages_v%ROWTYPE) IS
94 
95   BEGIN
96 
97     IF (row.package_id IS NOT NULL) THEN
98       SELECT *
99 	INTO row
100         FROM cn_obj_packages_v
101        WHERE cn_obj_packages_v.package_id = row.package_id;
102     END IF;
103 
104   END select_row;
105 
106 
107 END cn_obj_packages_v_pkg;