PACKAGE BODY: APPS.CN_OBJ_PROCEDURES_V_PKG

Source

1 PACKAGE BODY cn_obj_procedures_v_pkg AS
2 -- $Header: cnreprcb.pls 115.1 99/07/16 07:15:02 porting ship $
3 
4 
5   --
6   -- Public Functions
7   --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT		ROWID,
11 	X_procedure_id			cn_obj_procedures_v.procedure_id%TYPE,
12 	X_name				cn_obj_procedures_v.name%TYPE,
13 	X_description			cn_obj_procedures_v.description%TYPE,
14 	X_dependency_map_complete	cn_obj_procedures_v.dependency_map_complete%TYPE,
15 	X_status			cn_obj_procedures_v.status%TYPE,
16 	X_repository_id			cn_obj_procedures_v.repository_id%TYPE,
17 	X_parameter_list		cn_obj_procedures_v.parameter_list%TYPE,
18 	X_procedure_type		cn_obj_procedures_v.procedure_type%TYPE,
19 	X_return_type			cn_obj_procedures_v.return_type%TYPE,
20 	X_package_id			cn_obj_procedures_v.package_id%TYPE,
21 	X_public_flag			cn_obj_procedures_v.public_flag%TYPE,
22 	X_seed_procedure_id		cn_obj_procedures_v.seed_procedure_id%TYPE) IS
23 
24     X_primary_key			cn_obj_procedures_v.procedure_id%TYPE;
25   BEGIN
26 
27     X_primary_key := X_procedure_id;
28     IF (X_primary_key IS NULL) THEN
29       SELECT cn_objects_s.NEXTVAL
30         INTO X_primary_key
31         FROM dual;
32     END IF;
33 
34     INSERT INTO cn_obj_procedures_v(
35 	procedure_id,
36 	name,
37 	description,
38 	dependency_map_complete,
39 	status,
40 	repository_id,
41 	object_type,
42 	parameter_list,
43 	procedure_type,
44 	return_type,
45 	package_id,
46 	public_flag,
47 	seed_procedure_id)
48     VALUES(
49 	X_primary_key,
50 	X_name,
51 	X_description,
52 	X_dependency_map_complete,
53 	X_status,
54 	X_repository_id,
55 	'PRC',
56 	X_parameter_list,
57 	X_procedure_type,
58 	X_return_type,
59 	X_package_id,
60 	X_public_flag,
61 	X_seed_procedure_id);
62 
63     SELECT ROWID
64       INTO X_rowid
65       FROM cn_obj_procedures_v
66      WHERE procedure_id = X_primary_key;
67 
68     IF (SQL%NOTFOUND) THEN
69       RAISE NO_DATA_FOUND;
70     END IF;
71 
72   END insert_row;
73 
74 
75   PROCEDURE select_row (
76 	row IN OUT cn_obj_procedures_v%ROWTYPE) IS
77 
78   BEGIN
79     IF (row.procedure_id IS NOT NULL) THEN
80 
81       SELECT * INTO row
82         FROM cn_obj_procedures_v
83        WHERE cn_obj_procedures_v.procedure_id = row.procedure_id;
84 
85     END IF;
86   END select_row;
87 
88 
89 END cn_obj_procedures_v_pkg;