[Home] [Help]
PACKAGE BODY: APPS.CN_OBJ_TABLES_V_PKG
Source
1 PACKAGE BODY cn_obj_tables_v_pkg AS
2 -- $Header: cnretblb.pls 115.1 99/07/16 07:15:14 porting ship $
3
4
5 --
6 -- Public Procedures
7 --
8
9 --
10 -- Procedure Name
11 -- insert_row
12 -- Purpose
13 -- Insert a new record in the table underlying the view with the values
14 -- supplied by the parameters.
15 -- History
16 -- 11/17/93 Devesh Khatu Created
17 -- 16-FEB-94 Devesh Khatu Modified
18 --
19 PROCEDURE insert_row (
20 X_rowid OUT rowid,
21 X_row_id rowid default NULL,
22 X_table_id IN OUT number,
23 X_name varchar2,
24 X_description varchar2 default NULL,
25 X_status varchar2,
26 X_dependency_map_complete varchar2,
27 X_repository_id number,
28 X_alias varchar2 default NULL,
29 X_table_level varchar2 default NULL,
30 X_table_type varchar2 default NULL,
31 X_seed_table_id varchar2 default NULL) IS
32
33
34 CURSOR C IS SELECT rowid
35 FROM cn_obj_tables_v
36 WHERE table_id = X_table_id;
37
38 CURSOR C2 IS SELECT cn_objects_s.nextval
39 FROM sys.dual;
40
41 BEGIN
42
43 IF (X_table_id is NULL) THEN
44 OPEN C2;
45 FETCH C2 INTO X_table_id;
46 CLOSE C2;
47 END IF;
48
49 INSERT INTO cn_obj_tables_v(
50 row_id,
51 table_id,
52 name,
53 description,
54 repository_id,
55 object_type,
56 status,
57 dependency_map_complete,
58 alias,
59 table_level,
60 table_type,
61 seed_table_id)
62 VALUES (
63 X_row_id,
64 X_table_id,
65 X_name,
66 X_description,
67 X_repository_id,
68 'TBL',
69 X_status,
70 X_dependency_map_complete,
71 X_alias,
72 X_table_level,
73 X_table_type,
74 X_seed_table_id);
75
76 OPEN C;
77 FETCH C INTO X_rowid;
78
79 if (C%NOTFOUND) THEN
80 CLOSE C;
81 RAISE NO_DATA_FOUND;
82 end if;
83
84 CLOSE C;
85
86 END insert_row;
87
88
89
90 --
91 -- Procedure Name
92 -- update_row
93 -- History
94 -- 11/17/93 Devesh Khatu Created
95 --
96 PROCEDURE update_row (
97 X_rowid varchar2,
98 X_table_id number,
99 X_name varchar2,
100 X_description varchar2 default NULL,
101 X_repository_id number,
102 X_alias varchar2 default NULL,
103 X_table_level varchar2 default NULL,
104 X_table_type varchar2 default NULL) IS
105
106 BEGIN
107 UPDATE cn_obj_tables_v
108 SET
109 name = X_name,
110 description = X_description,
111 repository_id = X_repository_id,
112 object_type = 'TBL',
113 alias = X_alias,
114 table_level = X_table_level,
115 table_type = X_table_type
116 WHERE table_id = X_table_id;
117
118 IF (SQL%NOTFOUND) THEN
119 RAISE NO_DATA_FOUND;
120 END IF;
121
122 END update_row;
123
124
125
126 --
127 -- Procedure Name
128 -- lock_row
129 -- History
130 -- 11/17/93 Devesh Khatu Created
131 --
132 PROCEDURE lock_row (tab_id IN number) IS
133 Tony Number;
134 BEGIN
135 -- Tony, I have commented this out, so that the procedure compiles
136 -- without errors. Devesh
137 Tony := NULL;
138 /*
139 select rep_tables.table_id into Tony
140 from rep_tables, rep_objects
141 where rep_tables.table_id = tab_id AND rep_objects.object_id = tab_id
142 for update of rep_tables.table_type, rep_objects.name,
143 rep_objects.description, rep_tables.alias;
144 */
145 END lock_row;
146
147
148
149 --
150 -- Procedure Name
151 -- select_row
152 -- Purpose
153 -- Select a row from the table, given the primary key
154 -- History
155 -- 11/17/93 Devesh Khatu Created
156 --
157 PROCEDURE select_row
158 (row IN OUT cn_obj_tables_v%ROWTYPE) IS
159
160 BEGIN
161 IF (row.table_id IS NOT NULL) THEN
162
163 SELECT * INTO row
164 FROM cn_obj_tables_v
165 WHERE cn_obj_tables_v.table_id = row.table_id;
166
167 END IF;
168
169 END select_row;
170
171
172 END cn_obj_tables_v_pkg;