[Home] [Help]
PACKAGE BODY: APPS.CN_OBJ_COLUMNS_V_PKG
Source
1 PACKAGE BODY cn_obj_columns_v_pkg as
2 -- $Header: cnrecolb.pls 115.1 99/07/16 07:13:36 porting ship $
3
4
5 --
6 -- Public Procedures
7 --
8
9 --
10 -- Procedure Name
11 -- insert_row
12 -- History
13 -- 12/28/93 Paul Mitchell Created
14 -- 16-FEB-94 Devesh Khatu Modified
15 --
16 PROCEDURE Insert_Row(
17 X_Rowid OUT rowid,
18 X_Row_Id rowid default NULL,
19 X_Column_Id number,
20 X_Last_Update_Date date default NULL,
21 X_Last_Updated_By number default NULL,
22 X_Creation_Date date default NULL,
23 X_Created_By number default NULL,
24 X_Last_Update_Login number default NULL,
25 X_Name varchar2,
26 X_Description varchar2 default NULL,
27 X_Dependency_Map_Complete varchar2,
28 X_Next_Synchronization_Date date default NULL,
29 X_Synchronization_Frequency varchar2 default NULL,
30 X_Status varchar2,
31 X_Repository_Id number,
32 X_Table_Id number default NULL,
33 X_Data_Length number default NULL,
34 X_Data_Type varchar2 default NULL,
35 X_Nullable varchar2 default NULL,
36 X_Primary_Key varchar2 default NULL,
37 X_Position number default NULL,
38 X_Dimension_Id number default NULL,
39 X_Data_Scale number default NULL,
40 X_Column_Type varchar2 default NULL,
41 X_user_column_name varchar2,
42 X_Seed_Column_Id number default NULL) IS
43
44 X_primary_key_id number;
45
46 CURSOR C IS SELECT rowid
47 FROM cn_obj_columns_v
48 WHERE column_id = X_primary_key_id;
49
50 CURSOR C2 IS SELECT cn_objects_s.nextval
51 FROM sys.dual;
52
53 BEGIN
54
55 if (X_Column_Id is NULL) then
56 OPEN C2;
57 FETCH C2 INTO X_primary_key_id;
58 CLOSE C2;
59 else
60 X_primary_key_id := X_Column_Id;
61 end if;
62
63 INSERT INTO cn_obj_columns_v(
64 row_id,
65 column_id,
66 last_update_date,
67 last_updated_by,
68 creation_date,
69 created_by,
70 last_update_login,
71 name,
72 description,
73 dependency_map_complete,
74 next_synchronization_date,
75 synchronization_frequency,
76 status,
77 repository_id,
78 table_id,
79 data_length,
80 data_type,
81 nullable,
82 primary_key,
83 position,
84 dimension_id,
85 data_scale,
86 column_type,
87 user_column_name,
88 seed_column_id,
89 object_type)
90 VALUES (
91 X_Row_Id,
92 X_primary_key_id,
93 X_Last_Update_Date,
94 X_Last_Updated_By,
95 X_Creation_Date,
96 X_Created_By,
97 X_Last_Update_Login,
98 X_Name,
99 X_Description,
100 X_Dependency_Map_Complete,
101 X_Next_Synchronization_Date,
102 X_Synchronization_Frequency,
103 X_Status,
104 X_Repository_Id,
105 X_Table_Id,
106 X_Data_Length,
107 X_Data_Type,
108 X_Nullable,
109 X_Primary_Key,
110 X_Position,
111 X_Dimension_Id,
112 X_Data_Scale,
113 X_Column_Type,
114 X_user_column_name,
115 X_Seed_Column_Id,
116 'COL');
117
118 OPEN C;
119 FETCH C INTO X_Rowid;
120 if (C%NOTFOUND) then
121 CLOSE C;
122 RAISE NO_DATA_FOUND;
123 end if;
124 CLOSE C;
125
126 END Insert_Row;
127
128
129
130 --
131 -- Procedure Name
132 -- update_row
133 -- History
134 -- 12/28/93 Paul Mitchell Created
135 --
136 PROCEDURE update_row(
137 X_rowid varchar2,
138 X_row_id rowid default NULL,
139 X_column_id number,
140 X_name varchar2,
141 X_description varchar2 default NULL,
142 X_dependency_map_complete varchar2,
143 X_next_synchronization_date date default NULL,
144 X_synchronization_frequency varchar2 default NULL,
145 X_status varchar2,
146 X_repository_id number,
147 X_table_id number default NULL,
148 X_data_length number default NULL,
149 X_data_type varchar2 default NULL,
150 X_nullable varchar2 default NULL,
151 X_primary_key varchar2 default NULL,
152 X_position number default NULL,
153 X_dimension_id number default NULL,
154 X_data_scale number default NULL,
155 X_column_type varchar2 default NULL,
156 X_seed_column_id number default NULL) IS
157
158 BEGIN
159 UPDATE cn_obj_columns_v
160 SET
161
162 row_id = X_row_id,
163 column_id = X_column_id,
164 name = X_name,
165 description = X_description,
166 dependency_map_complete = X_dependency_map_complete,
167 next_synchronization_date = X_next_synchronization_date,
168 synchronization_frequency = X_synchronization_frequency,
169 status = X_status,
170 repository_id = X_repository_id,
171 table_id = X_table_id,
172 data_length = X_data_length,
173 data_type = X_data_type,
174 nullable = X_nullable,
175 primary_key = X_primary_key,
176 position = X_position,
177 dimension_id = X_dimension_id,
178 data_scale = X_data_scale,
179 column_type = X_column_type,
180 seed_column_id = X_seed_column_id
181 WHERE rowid = X_rowid;
182
183 if (SQL%NOTFOUND) then
184 RAISE NO_DATA_FOUND;
185 end if;
186
187 END Update_Row;
188
189
190
191
192 --
193 -- Procedure Name
194 -- delete_row
195 -- History
196 -- 12/28/93 Paul Mitchell Created
197 --
198 PROCEDURE delete_row(
199 X_Rowid varchar2) IS
200
201 BEGIN
202 DELETE FROM cn_obj_columns_v
203 WHERE rowid = X_Rowid;
204
205 if (SQL%NOTFOUND) then
206 RAISE NO_DATA_FOUND;
207 end if;
208
209 END Delete_Row;
210
211
212 END cn_obj_columns_v_pkg;