eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CN_ROLE_PLANS_PKG

Source


1 PACKAGE BODY CN_ROLE_PLANS_PKG AS
2 /* $Header: cntrlplb.pls 120.0 2005/07/13 00:41:51 chanthon noship $ */
3 
4 G_LAST_UPDATE_DATE          DATE    := sysdate;
5 G_LAST_UPDATED_BY           NUMBER  := fnd_global.user_id;
6 G_CREATION_DATE             DATE    := sysdate;
7 G_CREATED_BY                NUMBER  := fnd_global.user_id;
8 G_LAST_UPDATE_LOGIN         NUMBER  := fnd_global.login_id;
9 
10 
11 procedure INSERT_ROW
12   (X_ROWID      		          IN OUT NOCOPY VARCHAR2,  -- required
13    X_ROLE_PLAN_ID          	          IN NUMBER,  -- required
14    X_ROLE_ID	       	                  IN NUMBER,  -- required
15    X_COMP_PLAN_ID	       	          IN NUMBER,  -- required
16    X_START_DATE                           IN DATE,    -- required
17    X_END_DATE                             IN DATE,
18    X_CREATE_MODULE                        IN VARCHAR2,
19    X_ATTRIBUTE_CATEGORY	         	  IN VARCHAR2,
20    X_ATTRIBUTE1		        	  IN VARCHAR2,
21    X_ATTRIBUTE2		        	  IN VARCHAR2,
22    X_ATTRIBUTE3		        	  IN VARCHAR2,
23    X_ATTRIBUTE4		        	  IN VARCHAR2,
24    X_ATTRIBUTE5		        	  IN VARCHAR2,
25    X_ATTRIBUTE6		        	  IN VARCHAR2,
26    X_ATTRIBUTE7		        	  IN VARCHAR2,
27    X_ATTRIBUTE8		        	  IN VARCHAR2,
28    X_ATTRIBUTE9		        	  IN VARCHAR2,
29    X_ATTRIBUTE10		       	  IN VARCHAR2,
30    X_ATTRIBUTE11		       	  IN VARCHAR2,
31    X_ATTRIBUTE12		       	  IN VARCHAR2,
32    X_ATTRIBUTE13		       	  IN VARCHAR2,
33   X_ATTRIBUTE14		        	  IN VARCHAR2,
34   X_ATTRIBUTE15	       	  	          IN VARCHAR2,
35   X_CREATED_BY	        		  IN NUMBER,
36   X_CREATION_DATE		       	  IN DATE,
37   X_LAST_UPDATE_LOGIN	        	  IN NUMBER,
38   X_LAST_UPDATE_DATE 	        	  IN DATE,
39   X_LAST_UPDATED_BY			  IN NUMBER,
40   X_ORG_ID                    IN NUMBER,
41   X_OBJECT_VERSION_NUMBER     IN NUMBER) IS
42 
43 
44     L_END_DATE 				  cn_role_plans.END_DATE%type;
45     L_ATTRIBUTE_CATEGORY	       	  cn_role_plans.ATTRIBUTE_CATEGORY%type;
46     L_ATTRIBUTE1		       	  cn_role_plans.ATTRIBUTE1%type;
47     L_ATTRIBUTE2		       	  cn_role_plans.ATTRIBUTE2%type;
48     L_ATTRIBUTE3		       	  cn_role_plans.ATTRIBUTE3%type;
49     L_ATTRIBUTE4		       	  cn_role_plans.ATTRIBUTE4%type;
50     L_ATTRIBUTE5		       	  cn_role_plans.ATTRIBUTE5%type;
51     L_ATTRIBUTE6		       	  cn_role_plans.ATTRIBUTE6%type;
52     L_ATTRIBUTE7		       	  cn_role_plans.ATTRIBUTE7%type;
53     L_ATTRIBUTE8		       	  cn_role_plans.ATTRIBUTE8%type;
54     L_ATTRIBUTE9		       	  cn_role_plans.ATTRIBUTE9%type;
55     L_ATTRIBUTE10		       	  cn_role_plans.ATTRIBUTE10%type;
56     L_ATTRIBUTE11		       	  cn_role_plans.ATTRIBUTE11%type;
57     L_ATTRIBUTE12		       	  cn_role_plans.ATTRIBUTE12%type;
58     L_ATTRIBUTE13		       	  cn_role_plans.ATTRIBUTE13%type;
59     L_ATTRIBUTE14		       	  cn_role_plans.ATTRIBUTE14%type;
60     L_ATTRIBUTE15	       		  cn_role_plans.ATTRIBUTE15%type;
61     L_CREATED_BY	       		  cn_role_plans.CREATED_BY%type;
62     L_CREATION_DATE		       	  cn_role_plans.CREATION_DATE%type;
63     L_LAST_UPDATE_LOGIN	       	          cn_role_plans.LAST_UPDATE_LOGIN%type;
64     L_LAST_UPDATE_DATE		          cn_role_plans.LAST_UPDATE_DATE%type;
65     L_LAST_UPDATED_BY			  cn_role_plans.LAST_UPDATED_BY%type;
66 
67     cursor C is select ROWID from CN_ROLE_PLANS
68     where ROLE_PLAN_ID = X_ROLE_PLAN_ID;
69 
70 BEGIN
71 --   dbms_output.put_line('begin insert_row');
72 
73 	SELECT DECODE(X_end_date, FND_API.G_MISS_DATE,
74 		      to_date(NULL),X_end_date)
75 	  INTO L_end_date FROM dual;
76 	SELECT DECODE(X_attribute_category, FND_API.G_MISS_CHAR,
77 		      NULL,Ltrim(Rtrim(X_attribute_category)))
78 	  INTO L_attribute_category FROM dual;
79 	SELECT DECODE(X_ATTRIBUTE1, FND_API.G_MISS_CHAR,
80 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE1)))
81 	  INTO L_ATTRIBUTE1 FROM dual;
82 	SELECT DECODE(X_ATTRIBUTE2, FND_API.G_MISS_CHAR,
83 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE2)))
84 	  INTO L_ATTRIBUTE2 FROM dual;
85 	SELECT DECODE(X_ATTRIBUTE3, FND_API.G_MISS_CHAR,
86 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE3)))
87 	  INTO L_ATTRIBUTE3 FROM dual;
88 	SELECT DECODE(X_ATTRIBUTE4, FND_API.G_MISS_CHAR,
89 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE4)))
90 	  INTO L_ATTRIBUTE4 FROM dual;
91 	SELECT DECODE(X_ATTRIBUTE5, FND_API.G_MISS_CHAR,
92 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE5)))
93 	  INTO L_ATTRIBUTE5 FROM dual;
94 	SELECT DECODE(X_ATTRIBUTE6, FND_API.G_MISS_CHAR,
95 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE6)))
96 	  INTO L_ATTRIBUTE6 FROM dual;
97 	SELECT DECODE(X_ATTRIBUTE7, FND_API.G_MISS_CHAR,
98 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE7)))
99 	  INTO L_ATTRIBUTE7 FROM dual;
100 	SELECT DECODE(X_ATTRIBUTE8, FND_API.G_MISS_CHAR,
101 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE8)))
102 	  INTO L_ATTRIBUTE8 FROM dual;
103 	SELECT DECODE(X_ATTRIBUTE9, FND_API.G_MISS_CHAR,
104 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE9)))
105 	  INTO L_ATTRIBUTE9 FROM dual;
106 	SELECT DECODE(X_ATTRIBUTE10, FND_API.G_MISS_CHAR,
107 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE10)))
108 	  INTO L_ATTRIBUTE10 FROM dual;
109 	SELECT DECODE(X_ATTRIBUTE11, FND_API.G_MISS_CHAR,
110 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE11)))
111 	  INTO L_ATTRIBUTE11 FROM dual;
112 	SELECT DECODE(X_ATTRIBUTE12, FND_API.G_MISS_CHAR,
113 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE12)))
114 	  INTO L_ATTRIBUTE12 FROM dual;
115 	SELECT DECODE(X_ATTRIBUTE13, FND_API.G_MISS_CHAR,
116 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE13)))
117 	  INTO L_ATTRIBUTE13 FROM dual;
118 	SELECT DECODE(X_ATTRIBUTE14, FND_API.G_MISS_CHAR,
119 		      NULL,Ltrim(Rtrim(X_ATTRIBUTE14)))
120 	  INTO L_ATTRIBUTE14 FROM dual;
121 	SELECT DECODE(X_attribute15, FND_API.G_MISS_CHAR,
122 		      NULL,Ltrim(Rtrim(X_attribute15)))
123 	  INTO L_attribute15 FROM dual;
124 	SELECT DECODE(X_created_by, FND_API.G_MISS_NUM,
125 		      G_CREATED_BY,Ltrim(Rtrim(X_CREATED_BY)))
126 	  INTO L_created_by FROM dual;
127 	SELECT DECODE(X_creation_date, FND_API.G_MISS_DATE,
128 		      G_CREATION_DATE,X_CREATION_DATE)
129 	  INTO L_creation_date FROM dual;
130 	SELECT DECODE(X_last_update_login, FND_API.G_MISS_NUM,
131 		      G_LAST_UPDATE_LOGIN,Ltrim(Rtrim(X_LAST_UPDATE_LOGIN)))
132 	  INTO L_last_update_login FROM dual;
133 	SELECT DECODE(X_last_update_date, FND_API.G_MISS_DATE,
134 		      G_LAST_UPDATE_DATE,X_LAST_UPDATE_DATE)
135 	  INTO L_last_update_date FROM dual;
136 	SELECT DECODE(X_last_updated_by, FND_API.G_MISS_NUM,
137 		      G_LAST_UPDATED_BY,Ltrim(Rtrim(X_LAST_UPDATED_BY)))
138 	  INTO L_last_updated_by FROM dual;
139 
140 	-- dbms_output.put_line('before insert_row');
141 
142 	INSERT INTO cn_role_plans (
143 			 ROLE_PLAN_ID,
144 			 ROLE_ID,
145 			 COMP_PLAN_ID,
146 			 START_DATE,
147 			 END_DATE,
148 			 CREATE_MODULE,
149 			 ATTRIBUTE_CATEGORY,
150 			 ATTRIBUTE1,
151 			 ATTRIBUTE2,
152 			 ATTRIBUTE3,
153 			 ATTRIBUTE4,
154 			 ATTRIBUTE5,
155 			 ATTRIBUTE6,
156 			 ATTRIBUTE7,
157 			 ATTRIBUTE8,
158 			 ATTRIBUTE9,
159 			 ATTRIBUTE10,
160 			 ATTRIBUTE11,
161 			 ATTRIBUTE12,
162 			 ATTRIBUTE13,
163 			 ATTRIBUTE14,
164 			 ATTRIBUTE15,
165 			 CREATED_BY,
166 			 CREATION_DATE,
167 			 LAST_UPDATE_LOGIN,
168 			 LAST_UPDATE_DATE,
169 			 LAST_UPDATED_BY,
170              ORG_ID,
171              OBJECT_VERSION_NUMBER)
172                   VALUES (
173 			 X_ROLE_PLAN_ID,
174 			 X_ROLE_ID,
175 			 X_COMP_PLAN_ID,
176 			 X_START_DATE,
177 			 L_END_DATE,
178 			 X_CREATE_MODULE,
179 			 L_ATTRIBUTE_CATEGORY,
180 			 L_ATTRIBUTE1,
181 			 L_ATTRIBUTE2,
182 			 L_ATTRIBUTE3,
183 			 L_ATTRIBUTE4,
184 			 L_ATTRIBUTE5,
185 			 L_ATTRIBUTE6,
186 			 L_ATTRIBUTE7,
187 			 L_ATTRIBUTE8,
188 			 L_ATTRIBUTE9,
189 			 L_ATTRIBUTE10,
190 			 L_ATTRIBUTE11,
191 			 L_ATTRIBUTE12,
192 			 L_ATTRIBUTE13,
193 			 L_ATTRIBUTE14,
194 			 L_ATTRIBUTE15,
195 			 L_CREATED_BY,
196 			 L_CREATION_DATE,
197 			 L_LAST_UPDATE_LOGIN,
198 			 L_LAST_UPDATE_DATE,
199 		     L_LAST_UPDATED_BY,
200              X_ORG_ID,
201              X_OBJECT_VERSION_NUMBER);
202 
203 	-- dbms_output.put_line('after insert_row');
204 /*
205   open c;
206   fetch c into X_ROWID;
207   if (c%notfound) THEN
208     dbms_output.put_line('fail insert');
209     close c;
210     raise no_data_found;
211   end if;
212   close c;
213 
214   dbms_output.put_line('leaving insert_row');
215 */
216 
217 END insert_row;
218 
219 
220 procedure UPDATE_ROW (
221 		      X_ROLE_PLAN_ID	       	          IN NUMBER,  -- required
222 		      X_ROLE_ID	       	                  IN NUMBER,
223 		      X_COMP_PLAN_ID	       	          IN NUMBER,
224 		      X_START_DATE                        IN DATE,
225 		      X_END_DATE                          IN DATE,
226 		      X_ATTRIBUTE_CATEGORY	       	  IN VARCHAR2,
227 		      X_ATTRIBUTE1		       	  IN VARCHAR2,
228 		      X_ATTRIBUTE2		       	  IN VARCHAR2,
229 		      X_ATTRIBUTE3		       	  IN VARCHAR2,
230 		      X_ATTRIBUTE4		       	  IN VARCHAR2,
231 		      X_ATTRIBUTE5		       	  IN VARCHAR2,
232 		      X_ATTRIBUTE6		       	  IN VARCHAR2,
233 		      X_ATTRIBUTE7		       	  IN VARCHAR2,
234 		      X_ATTRIBUTE8		       	  IN VARCHAR2,
235 		      X_ATTRIBUTE9		       	  IN VARCHAR2,
236 		      X_ATTRIBUTE10		       	  IN VARCHAR2,
237 		      X_ATTRIBUTE11		       	  IN VARCHAR2,
238 		      X_ATTRIBUTE12		       	  IN VARCHAR2,
239 		      X_ATTRIBUTE13		       	  IN VARCHAR2,
240 		      X_ATTRIBUTE14		       	  IN VARCHAR2,
241 		      X_ATTRIBUTE15	       		  IN VARCHAR2,
242 		      X_CREATED_BY	       		  IN NUMBER,
243 		      X_CREATION_DATE		       	  IN DATE,
244 		      X_LAST_UPDATE_LOGIN	       	  IN NUMBER,
245 		      X_LAST_UPDATE_DATE		  IN DATE,
246               X_LAST_UPDATED_BY			  IN NUMBER,
247               X_OBJECT_VERSION_NUMBER     IN NUMBER,
248               X_ORG_ID                      IN NUMBER) IS
249 
250    CURSOR cur IS
251      SELECT * FROM cn_role_plans
252        WHERE role_plan_id = x_role_plan_id;
253 
254    rec cur%ROWTYPE;
255 
256 BEGIN
257    OPEN cur;
258    FETCH cur INTO rec;
259 
260    IF (cur%notfound) THEN
261       CLOSE cur;
262       RAISE no_data_found;
263    ELSE
264         IF (rec.object_version_number <> X_OBJECT_VERSION_NUMBER ) THEN
265            fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
266            fnd_msg_pub.add;
267            raise fnd_api.g_exc_unexpected_error;
268         END IF;
269         SELECT DECODE(X_role_id, FND_API.G_MISS_NUM,
270 		      rec.role_id,Ltrim(Rtrim(X_role_id)))
271 	  INTO rec.role_id FROM dual;
272         SELECT DECODE(X_comp_plan_id, FND_API.G_MISS_NUM,
273 		      rec.comp_plan_id,Ltrim(Rtrim(X_comp_plan_id)))
274 	  INTO rec.comp_plan_id FROM dual;
275         SELECT DECODE(X_start_date, FND_API.G_MISS_DATE,
276 		      rec.start_date,X_start_date)
277 	  INTO rec.start_date FROM dual;
278         SELECT DECODE(X_end_date, FND_API.G_MISS_DATE,
279 		      rec.end_date,X_end_date)
280 	  INTO rec.end_date FROM dual;
281 	SELECT DECODE(X_attribute_category, FND_API.G_MISS_CHAR,
282 		      rec.attribute_category,Ltrim(Rtrim(X_attribute_category)))
283 	  INTO rec.attribute_category FROM dual;
284 	SELECT DECODE(X_ATTRIBUTE1, FND_API.G_MISS_CHAR,
285 		      rec.ATTRIBUTE1,Ltrim(Rtrim(X_ATTRIBUTE1)))
286 	  INTO rec.ATTRIBUTE1 FROM dual;
287 	SELECT DECODE(X_ATTRIBUTE2, FND_API.G_MISS_CHAR,
288 		      rec.ATTRIBUTE2,Ltrim(Rtrim(X_ATTRIBUTE2)))
289 	  INTO rec.ATTRIBUTE2 FROM dual;
290 	SELECT DECODE(X_ATTRIBUTE3, FND_API.G_MISS_CHAR,
291 		      rec.ATTRIBUTE3,Ltrim(Rtrim(X_ATTRIBUTE3)))
292 	  INTO rec.ATTRIBUTE3 FROM dual;
293 	SELECT DECODE(X_ATTRIBUTE4, FND_API.G_MISS_CHAR,
294 		      rec.ATTRIBUTE4,Ltrim(Rtrim(X_ATTRIBUTE4)))
295 	  INTO rec.ATTRIBUTE4 FROM dual;
296 	SELECT DECODE(X_ATTRIBUTE5, FND_API.G_MISS_CHAR,
297 		      rec.ATTRIBUTE5,Ltrim(Rtrim(X_ATTRIBUTE5)))
298 	  INTO rec.ATTRIBUTE5 FROM dual;
299 	SELECT DECODE(X_ATTRIBUTE6, FND_API.G_MISS_CHAR,
300 		      rec.ATTRIBUTE6,Ltrim(Rtrim(X_ATTRIBUTE6)))
301 	  INTO rec.ATTRIBUTE6 FROM dual;
302 	SELECT DECODE(X_ATTRIBUTE7, FND_API.G_MISS_CHAR,
303 		      rec.ATTRIBUTE7,Ltrim(Rtrim(X_ATTRIBUTE7)))
304 	  INTO rec.ATTRIBUTE7 FROM dual;
305 	SELECT DECODE(X_ATTRIBUTE8, FND_API.G_MISS_CHAR,
306 		      rec.ATTRIBUTE8,Ltrim(Rtrim(X_ATTRIBUTE8)))
307 	  INTO rec.ATTRIBUTE8 FROM dual;
308 	SELECT DECODE(X_ATTRIBUTE9, FND_API.G_MISS_CHAR,
309 		      rec.ATTRIBUTE9,Ltrim(Rtrim(X_ATTRIBUTE9)))
310 	  INTO rec.ATTRIBUTE9 FROM dual;
311 	SELECT DECODE(X_ATTRIBUTE10, FND_API.G_MISS_CHAR,
312 		      rec.ATTRIBUTE10,Ltrim(Rtrim(X_ATTRIBUTE10)))
313 	  INTO rec.ATTRIBUTE10 FROM dual;
314 	SELECT DECODE(X_ATTRIBUTE11, FND_API.G_MISS_CHAR,
315 		      rec.ATTRIBUTE11,Ltrim(Rtrim(X_ATTRIBUTE11)))
316 	  INTO rec.ATTRIBUTE11 FROM dual;
317 	SELECT DECODE(X_ATTRIBUTE12, FND_API.G_MISS_CHAR,
318 		      rec.ATTRIBUTE12,Ltrim(Rtrim(X_ATTRIBUTE12)))
319 	  INTO rec.ATTRIBUTE12 FROM dual;
320 	SELECT DECODE(X_ATTRIBUTE13, FND_API.G_MISS_CHAR,
321 		      rec.ATTRIBUTE13,Ltrim(Rtrim(X_ATTRIBUTE13)))
322 	  INTO rec.ATTRIBUTE13 FROM dual;
323 	SELECT DECODE(X_ATTRIBUTE14, FND_API.G_MISS_CHAR,
324 		      rec.ATTRIBUTE14,Ltrim(Rtrim(X_ATTRIBUTE14)))
325 	  INTO rec.ATTRIBUTE14 FROM dual;
326 	SELECT DECODE(X_attribute15, FND_API.G_MISS_CHAR,
327 		      rec.attribute15,Ltrim(Rtrim(X_attribute15)))
328 	  INTO rec.attribute15 FROM dual;
329 	SELECT DECODE(X_created_by, FND_API.G_MISS_NUM,
330 		      G_CREATED_BY,Ltrim(Rtrim(X_created_by)))
331 	  INTO rec.created_by FROM dual;
332 	SELECT DECODE(X_creation_date, FND_API.G_MISS_DATE,
333 		      G_CREATION_DATE,X_creation_date)
334 	  INTO rec.creation_date FROM dual;
335 	SELECT DECODE(X_last_update_login, FND_API.G_MISS_NUM,
336 		      G_LAST_UPDATE_LOGIN,Ltrim(Rtrim(X_last_update_login)))
337 	  INTO rec.last_update_login FROM dual;
338 	SELECT DECODE(X_last_update_date, FND_API.G_MISS_DATE,
339 		      G_LAST_UPDATE_DATE,X_last_update_date)
340 	  INTO rec.last_update_date FROM dual;
341 	SELECT DECODE(X_last_updated_by, FND_API.G_MISS_NUM,
342 		      G_LAST_UPDATED_BY,Ltrim(Rtrim(X_last_updated_by)))
343 	  INTO rec.last_updated_by FROM dual;
344 
345 	UPDATE cn_role_plans SET
346 	  role_id      = rec.role_id,
347 	  comp_plan_id = rec.comp_plan_id,
348 	  start_date   = rec.start_date,
349 	  end_date     = rec.end_date,
350 	  ATTRIBUTE_CATEGORY = rec.ATTRIBUTE_CATEGORY,
351 	  ATTRIBUTE1 = rec.ATTRIBUTE1,
352 	  ATTRIBUTE2 = rec.ATTRIBUTE2,
353 	  ATTRIBUTE3 = rec.ATTRIBUTE3,
354 	  ATTRIBUTE4 = rec.ATTRIBUTE4,
355 	  ATTRIBUTE5 = rec.ATTRIBUTE5,
356 	  ATTRIBUTE6 = rec.ATTRIBUTE6,
357 	  ATTRIBUTE7 = rec.ATTRIBUTE7,
358 	  ATTRIBUTE8 = rec.ATTRIBUTE8,
359 	  ATTRIBUTE9 = rec.ATTRIBUTE9,
360 	  ATTRIBUTE10 = rec.ATTRIBUTE10,
361 	  ATTRIBUTE11 = rec.ATTRIBUTE11,
362 	  ATTRIBUTE12 = rec.ATTRIBUTE12,
363 	  ATTRIBUTE13 = rec.ATTRIBUTE13,
364 	  ATTRIBUTE14 = rec.ATTRIBUTE14,
365 	  ATTRIBUTE15 = rec.ATTRIBUTE15,
366 	  CREATED_BY = rec.CREATED_BY,
367 	  CREATION_DATE = rec.CREATION_DATE,
368 	  LAST_UPDATE_LOGIN = rec.LAST_UPDATE_LOGIN,
369 	  LAST_UPDATE_DATE = rec.LAST_UPDATE_DATE,
370 	  LAST_UPDATED_BY = rec.LAST_UPDATED_BY,
371       OBJECT_VERSION_NUMBER = rec.OBJECT_VERSION_NUMBER +1,
372       ORG_ID = rec.ORG_ID
373 	WHERE role_plan_id =  rec.role_plan_id;
374 
375         IF (sql%notfound) THEN
376            CLOSE cur;
377            raise no_data_found;
378         END IF;
379    END IF;
380    CLOSE cur;
381 
382 END UPDATE_ROW;
383 
384 
385 procedure LOCK_ROW (X_ROLE_PLAN_ID	  IN NUMBER) IS
386 BEGIN
387    NULL;
388 END lock_row;
389 
390 procedure DELETE_ROW (X_ROLE_PLAN_ID	  IN NUMBER) IS
391 BEGIN
392    DELETE FROM cn_role_plans
393      WHERE role_plan_id = x_role_plan_id;
394    IF  (sql%notfound) THEN
395     raise no_data_found;
396    END IF;
397 END delete_row;
398 
399 END cn_role_plans_pkg;