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_PMT_PLANS_PKG

Source


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