1 PACKAGE BODY pn_lease_milestones_pkg aS
2 -- $Header: PNTMLSTB.pls 120.2 2005/12/01 08:24:39 appldev ship $
3
4 -------------------------------------------------------------------------------
5 -- PROCDURE : INSERT_ROW
6 -- INVOKED FROM : insert_row procedure
7 -- PURPOSE : inserts the row
8 -- HISTORY :
9 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_milestones with
10 -- _ALL table.
11 -- 28-NOV-05 pikhar o fetched org_id using cursor
12 -------------------------------------------------------------------------------
13 PROCEDURE Insert_Row (
14 X_ROWID IN OUT NOCOPY VARCHAR2,
15 X_LEASE_MILESTONE_ID IN OUT NOCOPY NUMBER,
16 X_LEASE_CHANGE_ID IN NUMBER,
17 X_MILESTONE_TYPE_CODE IN VARCHAR2,
18 X_OPTION_ID IN NUMBER,
19 X_INSURANCE_REQUIREMENT_ID IN NUMBER,
20 X_PAYMENT_TERM_ID IN NUMBER,
21 X_LEAD_DAYS IN NUMBER,
22 X_EVERY_DAYS IN NUMBER,
23 X_ACTION_TAKEN IN VARCHAR2,
24 X_ACTION_DATE IN DATE,
25 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
26 X_ATTRIBUTE1 IN VARCHAR2,
27 X_ATTRIBUTE2 IN VARCHAR2,
28 X_ATTRIBUTE3 IN VARCHAR2,
29 X_ATTRIBUTE4 IN VARCHAR2,
30 X_ATTRIBUTE5 IN VARCHAR2,
31 X_ATTRIBUTE6 IN VARCHAR2,
32 X_ATTRIBUTE7 IN VARCHAR2,
33 X_ATTRIBUTE8 IN VARCHAR2,
34 X_ATTRIBUTE9 IN VARCHAR2,
35 X_ATTRIBUTE10 IN VARCHAR2,
36 X_ATTRIBUTE11 IN VARCHAR2,
37 X_ATTRIBUTE12 IN VARCHAR2,
38 X_ATTRIBUTE13 IN VARCHAR2,
39 X_ATTRIBUTE14 IN VARCHAR2,
40 X_ATTRIBUTE15 IN VARCHAR2,
41 X_MILESTONE_DATE IN DATE,
42 X_USER_ID IN NUMBER,
43 X_LEASE_ID IN NUMBER,
44 X_CREATION_DATE IN DATE,
45 X_CREATED_BY IN NUMBER,
46 X_LAST_UPDATE_DATE IN DATE,
47 X_LAST_UPDATED_BY IN NUMBER,
48 X_LAST_UPDATE_LOGIN IN NUMBER,
49 x_org_id IN NUMBER
50 )
51 IS
52 CURSOR c IS
53 SELECT ROWID
54 FROM pn_lease_milestones_all
55 WHERE lease_milestone_id = x_lease_milestone_id;
56
57 CURSOR org_cur IS
58 SELECT org_id
59 FROM pn_leases_all
60 WHERE lease_id = x_lease_id;
61
62 l_org_id NUMBER;
63
64 BEGIN
65
66 /*--------------------------------------------------------------------------
67 -- Assign Nextval when argument value IS passed as NULL
68 --------------------------------------------------------------------------*/
69
70 IF x_org_id IS NULL THEN
71 FOR rec IN org_cur LOOP
72 l_org_id := rec.org_id;
73 END LOOP;
74 ELSE
75 l_org_id := x_org_id;
76 END IF;
77
78 IF X_LEASE_MILESTONE_ID IS NULL THEN
79
80 SELECT pn_lease_milestones_s.NEXTVAL
81 INTO x_lease_milestone_id
82 FROM DUAL;
83
84 END IF;
85
86 INSERT INTO pn_lease_milestones_all
87 (
88 LEASE_CHANGE_ID,
89 MILESTONE_TYPE_CODE,
90 OPTION_ID,
91 INSURANCE_REQUIREMENT_ID,
92 PAYMENT_TERM_ID,
93 LEAD_DAYS,
94 EVERY_DAYS,
95 ACTION_TAKEN,
96 ACTION_DATE,
97 ATTRIBUTE_CATEGORY,
98 ATTRIBUTE1,
99 ATTRIBUTE2,
100 ATTRIBUTE3,
101 ATTRIBUTE4,
102 ATTRIBUTE5,
103 ATTRIBUTE6,
104 ATTRIBUTE7,
105 ATTRIBUTE8,
106 ATTRIBUTE9,
107 ATTRIBUTE10,
108 ATTRIBUTE11,
109 ATTRIBUTE12,
110 ATTRIBUTE13,
111 ATTRIBUTE14,
112 ATTRIBUTE15,
113 LEASE_MILESTONE_ID,
114 LAST_UPDATE_DATE,
115 LAST_UPDATED_BY,
116 CREATION_DATE,
117 CREATED_BY,
118 LAST_UPDATE_LOGIN,
119 MILESTONE_DATE,
120 USER_ID,
121 LEASE_ID,
122 org_id
123 )
124 VALUES (
125 X_LEASE_CHANGE_ID,
126 X_MILESTONE_TYPE_CODE,
127 X_OPTION_ID,
128 X_INSURANCE_REQUIREMENT_ID,
129 X_PAYMENT_TERM_ID,
130 X_LEAD_DAYS,
131 X_EVERY_DAYS,
132 X_ACTION_TAKEN,
133 X_ACTION_DATE,
134 X_ATTRIBUTE_CATEGORY,
135 X_ATTRIBUTE1,
136 X_ATTRIBUTE2,
137 X_ATTRIBUTE3,
138 X_ATTRIBUTE4,
139 X_ATTRIBUTE5,
140 X_ATTRIBUTE6,
141 X_ATTRIBUTE7,
142 X_ATTRIBUTE8,
143 X_ATTRIBUTE9,
144 X_ATTRIBUTE10,
145 X_ATTRIBUTE11,
146 X_ATTRIBUTE12,
147 X_ATTRIBUTE13,
148 X_ATTRIBUTE14,
149 X_ATTRIBUTE15,
150 X_LEASE_MILESTONE_ID,
151 X_LAST_UPDATE_DATE,
152 X_LAST_UPDATED_BY,
153 X_CREATION_DATE,
154 X_CREATED_BY,
155 X_LAST_UPDATE_LOGIN,
156 X_MILESTONE_DATE,
157 X_USER_ID,
158 X_LEASE_ID ,
159 l_org_id
160 );
161
162 OPEN c;
163 FETCH c INTO X_ROWID;
164 IF (c%NOTFOUND) THEN
165 CLOSE c;
166 RAISE NO_DATA_FOUND;
167 END IF;
168 CLOSE c;
169
170 END Insert_Row;
171
172 -------------------------------------------------------------------------------
173 -- PROCDURE : Lock_Row
174 -- INVOKED FROM : Lock_Row procedure
175 -- PURPOSE : locks the row
176 -- HISTORY :
177 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_milestones with
178 -- _ALL table.
179 -------------------------------------------------------------------------------
180 PROCEDURE Lock_Row (
181 X_LEASE_MILESTONE_ID IN NUMBER,
182 X_LEASE_CHANGE_ID IN NUMBER,
183 X_MILESTONE_TYPE_CODE IN VARCHAR2,
184 X_OPTION_ID IN NUMBER,
185 X_INSURANCE_REQUIREMENT_ID IN NUMBER,
186 X_PAYMENT_TERM_ID IN NUMBER,
187 X_LEAD_DAYS IN NUMBER,
188 X_EVERY_DAYS IN NUMBER,
189 X_ACTION_TAKEN IN VARCHAR2,
190 X_ACTION_DATE IN DATE,
191 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
192 X_ATTRIBUTE1 IN VARCHAR2,
193 X_ATTRIBUTE2 IN VARCHAR2,
194 X_ATTRIBUTE3 IN VARCHAR2,
195 X_ATTRIBUTE4 IN VARCHAR2,
196 X_ATTRIBUTE5 IN VARCHAR2,
197 X_ATTRIBUTE6 IN VARCHAR2,
198 X_ATTRIBUTE7 IN VARCHAR2,
199 X_ATTRIBUTE8 IN VARCHAR2,
200 X_ATTRIBUTE9 IN VARCHAR2,
201 X_ATTRIBUTE10 IN VARCHAR2,
202 X_ATTRIBUTE11 IN VARCHAR2,
203 X_ATTRIBUTE12 IN VARCHAR2,
204 X_ATTRIBUTE13 IN VARCHAR2,
205 X_ATTRIBUTE14 IN VARCHAR2,
206 X_ATTRIBUTE15 IN VARCHAR2,
207 X_MILESTONE_DATE IN DATE,
208 X_USER_ID IN NUMBER,
209 X_LEASE_ID IN NUMBER
210 )
211 IS
212 CURSOR c1 IS
213 SELECT *
214 FROM pn_lease_milestones_all
215 WHERE lease_milestone_id = x_lease_milestone_id
216 FOR UPDATE OF lease_milestone_id NOWAIT;
217
218 tlinfo c1%ROWTYPE;
219
220 BEGIN
221
222 OPEN c1;
223 FETCH c1 INTO tlinfo;
224 IF (c1%NOTFOUND) THEN
225 CLOSE c1;
226 RETURN;
227 END IF;
228 CLOSE c1;
229
230 IF NOT (tlinfo.LEASE_MILESTONE_ID = X_LEASE_MILESTONE_ID) THEN
231 pn_var_rent_pkg.lock_row_exception('LEASE_MILESTONE_ID',tlinfo.LEASE_MILESTONE_ID);
232 END IF;
233
234 IF NOT (tlinfo.LEASE_CHANGE_ID = X_LEASE_CHANGE_ID) THEN
235 pn_var_rent_pkg.lock_row_exception('LEASE_CHANGE_ID',tlinfo.LEASE_CHANGE_ID);
236 END IF;
237
238 IF NOT (tlinfo.MILESTONE_TYPE_CODE = X_MILESTONE_TYPE_CODE) THEN
239 pn_var_rent_pkg.lock_row_exception('MILESTONE_TYPE_CODE',tlinfo.MILESTONE_TYPE_CODE);
240 END IF;
241
242 IF NOT ((tlinfo.OPTION_ID = X_OPTION_ID)
243 OR ((tlinfo.OPTION_ID IS NULL) AND (X_OPTION_ID IS NULL))) THEN
244 pn_var_rent_pkg.lock_row_exception('OPTION_ID',tlinfo.OPTION_ID);
245 END IF;
246
247 IF NOT ((tlinfo.INSURANCE_REQUIREMENT_ID = X_INSURANCE_REQUIREMENT_ID)
248 OR ((tlinfo.INSURANCE_REQUIREMENT_ID IS NULL) AND (X_INSURANCE_REQUIREMENT_ID IS NULL))) THEN
249 pn_var_rent_pkg.lock_row_exception('INSURANCE_REQUIREMENT_ID',tlinfo.INSURANCE_REQUIREMENT_ID);
250 END IF;
251
252 IF NOT ((tlinfo.PAYMENT_TERM_ID = X_PAYMENT_TERM_ID)
253 OR ((tlinfo.PAYMENT_TERM_ID IS NULL) AND (X_PAYMENT_TERM_ID IS NULL))) THEN
254 pn_var_rent_pkg.lock_row_exception('PAYMENT_TERM_ID',tlinfo.PAYMENT_TERM_ID);
255 END IF;
256
257 IF NOT ((tlinfo.LEAD_DAYS = X_LEAD_DAYS)
258 OR ((tlinfo.LEAD_DAYS IS NULL) AND (X_LEAD_DAYS IS NULL))) THEN
259 pn_var_rent_pkg.lock_row_exception('LEAD_DAYS',tlinfo.LEAD_DAYS);
260 END IF;
261
262 IF NOT ((tlinfo.EVERY_DAYS = X_EVERY_DAYS)
263 OR ((tlinfo.EVERY_DAYS IS NULL) AND (X_EVERY_DAYS IS NULL))) THEN
264 pn_var_rent_pkg.lock_row_exception('EVERY_DAYS',tlinfo.EVERY_DAYS);
265 END IF;
266
267 IF NOT ((tlinfo.ACTION_TAKEN = X_ACTION_TAKEN)
268 OR ((tlinfo.ACTION_TAKEN IS NULL) AND (X_ACTION_TAKEN IS NULL))) THEN
269 pn_var_rent_pkg.lock_row_exception('ACTION_TAKEN',tlinfo.ACTION_TAKEN);
270 END IF;
271
272 IF NOT ((tlinfo.ACTION_DATE = X_ACTION_DATE)
273 OR ((tlinfo.ACTION_DATE IS NULL) AND (X_ACTION_DATE IS NULL))) THEN
274 pn_var_rent_pkg.lock_row_exception('ACTION_DATE',tlinfo.ACTION_DATE);
275 END IF;
276
277 IF NOT ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
278 OR ((tlinfo.ATTRIBUTE_CATEGORY IS NULL) AND (X_ATTRIBUTE_CATEGORY IS NULL))) THEN
279 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
280 END IF;
281
282 IF NOT ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
283 OR ((tlinfo.ATTRIBUTE1 IS NULL) AND (X_ATTRIBUTE1 IS NULL))) THEN
284 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
285 END IF;
286
287 IF NOT ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
288 OR ((tlinfo.ATTRIBUTE2 IS NULL) AND (X_ATTRIBUTE2 IS NULL))) THEN
289 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
290 END IF;
291
292 IF NOT ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
293 OR ((tlinfo.ATTRIBUTE3 IS NULL) AND (X_ATTRIBUTE3 IS NULL))) THEN
294 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
295 END IF;
296
297 IF NOT ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
298 OR ((tlinfo.ATTRIBUTE4 IS NULL) AND (X_ATTRIBUTE4 IS NULL))) THEN
299 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
300 END IF;
301
302 IF NOT ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
303 OR ((tlinfo.ATTRIBUTE5 IS NULL) AND (X_ATTRIBUTE5 IS NULL))) THEN
304 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
305 END IF;
306
307 IF NOT ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
308 OR ((tlinfo.ATTRIBUTE6 IS NULL) AND (X_ATTRIBUTE6 IS NULL))) THEN
309 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
310 END IF;
311
312 IF NOT ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
313 OR ((tlinfo.ATTRIBUTE7 IS NULL) AND (X_ATTRIBUTE7 IS NULL))) THEN
314 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
315 END IF;
316
317 IF NOT ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
318 OR ((tlinfo.ATTRIBUTE8 IS NULL) AND (X_ATTRIBUTE8 IS NULL))) THEN
319 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
320 END IF;
321
322 IF NOT ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
323 OR ((tlinfo.ATTRIBUTE9 IS NULL) AND (X_ATTRIBUTE9 IS NULL))) THEN
324 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
325 END IF;
326
327 IF NOT ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
328 OR ((tlinfo.ATTRIBUTE10 IS NULL) AND (X_ATTRIBUTE10 IS NULL))) THEN
329 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE10',tlinfo.ATTRIBUTE10);
330 END IF;
331
332 IF NOT ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
333 OR ((tlinfo.ATTRIBUTE11 IS NULL) AND (X_ATTRIBUTE11 IS NULL))) THEN
334 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
335 END IF;
336
337 IF NOT ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
338 OR ((tlinfo.ATTRIBUTE12 IS NULL) AND (X_ATTRIBUTE12 IS NULL))) THEN
339 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
340 END IF;
341
342 IF NOT ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
343 OR ((tlinfo.ATTRIBUTE13 IS NULL) AND (X_ATTRIBUTE13 IS NULL))) THEN
344 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
345 END IF;
346
347 IF NOT ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
348 OR ((tlinfo.ATTRIBUTE14 IS NULL) AND (X_ATTRIBUTE14 IS NULL))) THEN
349 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
350 END IF;
351
352 IF NOT ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
353 OR ((tlinfo.ATTRIBUTE15 IS NULL) AND (X_ATTRIBUTE15 IS NULL))) THEN
354 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
355 END IF;
356
357 IF NOT (tlinfo.MILESTONE_DATE = X_MILESTONE_DATE) THEN
358 pn_var_rent_pkg.lock_row_exception('MILESTONE_DATE',tlinfo.MILESTONE_DATE);
359 END IF;
360
361 IF NOT (tlinfo.USER_ID = X_USER_ID) THEN
362 pn_var_rent_pkg.lock_row_exception('USER_ID',tlinfo.USER_ID);
363 END IF;
364
365 IF NOT (tlinfo.LEASE_ID = X_LEASE_ID) THEN
366 pn_var_rent_pkg.lock_row_exception('LEASE_ID',tlinfo.LEASE_ID);
367 END IF;
368
369 RETURN;
370
371 END Lock_Row;
372
373 -------------------------------------------------------------------------------
374 -- PROCDURE : Update_Row
375 -- INVOKED FROM : Update_Row procedure
376 -- PURPOSE : updates the row
377 -- HISTORY :
378 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_milestones with
379 -- _ALL table.
380 -------------------------------------------------------------------------------
381 PROCEDURE Update_Row
382 (
383 X_LEASE_MILESTONE_ID IN NUMBER,
384 X_LEASE_CHANGE_ID IN NUMBER,
385 X_MILESTONE_TYPE_CODE IN VARCHAR2,
386 X_OPTION_ID IN NUMBER,
387 X_INSURANCE_REQUIREMENT_ID IN NUMBER,
388 X_PAYMENT_TERM_ID IN NUMBER,
389 X_LEAD_DAYS IN NUMBER,
390 X_EVERY_DAYS IN NUMBER,
391 X_ACTION_TAKEN IN VARCHAR2,
392 X_ACTION_DATE IN DATE,
393 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
394 X_ATTRIBUTE1 IN VARCHAR2,
395 X_ATTRIBUTE2 IN VARCHAR2,
396 X_ATTRIBUTE3 IN VARCHAR2,
397 X_ATTRIBUTE4 IN VARCHAR2,
401 X_ATTRIBUTE8 IN VARCHAR2,
398 X_ATTRIBUTE5 IN VARCHAR2,
399 X_ATTRIBUTE6 IN VARCHAR2,
400 X_ATTRIBUTE7 IN VARCHAR2,
402 X_ATTRIBUTE9 IN VARCHAR2,
403 X_ATTRIBUTE10 IN VARCHAR2,
404 X_ATTRIBUTE11 IN VARCHAR2,
405 X_ATTRIBUTE12 IN VARCHAR2,
406 X_ATTRIBUTE13 IN VARCHAR2,
407 X_ATTRIBUTE14 IN VARCHAR2,
408 X_ATTRIBUTE15 IN VARCHAR2,
409 X_MILESTONE_DATE IN DATE,
410 X_USER_ID IN NUMBER,
411 X_LEASE_ID IN NUMBER,
412 X_LAST_UPDATE_DATE IN DATE,
413 X_LAST_UPDATED_BY IN NUMBER,
414 X_LAST_UPDATE_LOGIN IN NUMBER
415 )
416 IS
417 BEGIN
418
419 UPDATE pn_lease_milestones_all
420 SET LEASE_CHANGE_ID = X_LEASE_CHANGE_ID,
421 MILESTONE_TYPE_CODE = X_MILESTONE_TYPE_CODE,
422 OPTION_ID = X_OPTION_ID,
423 INSURANCE_REQUIREMENT_ID = X_INSURANCE_REQUIREMENT_ID,
424 PAYMENT_TERM_ID = X_PAYMENT_TERM_ID,
425 LEAD_DAYS = X_LEAD_DAYS,
426 EVERY_DAYS = X_EVERY_DAYS,
427 ACTION_TAKEN = X_ACTION_TAKEN,
428 ACTION_DATE = X_ACTION_DATE,
429 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
430 ATTRIBUTE1 = X_ATTRIBUTE1,
431 ATTRIBUTE2 = X_ATTRIBUTE2,
432 ATTRIBUTE3 = X_ATTRIBUTE3,
433 ATTRIBUTE4 = X_ATTRIBUTE4,
434 ATTRIBUTE5 = X_ATTRIBUTE5,
435 ATTRIBUTE6 = X_ATTRIBUTE6,
436 ATTRIBUTE7 = X_ATTRIBUTE7,
437 ATTRIBUTE8 = X_ATTRIBUTE8,
438 ATTRIBUTE9 = X_ATTRIBUTE9,
439 ATTRIBUTE10 = X_ATTRIBUTE10,
440 ATTRIBUTE11 = X_ATTRIBUTE11,
441 ATTRIBUTE12 = X_ATTRIBUTE12,
442 ATTRIBUTE13 = X_ATTRIBUTE13,
443 ATTRIBUTE14 = X_ATTRIBUTE14,
444 ATTRIBUTE15 = X_ATTRIBUTE15,
445 MILESTONE_DATE = X_MILESTONE_DATE,
446 USER_ID = X_USER_ID,
447 LEASE_ID = X_LEASE_ID,
448 LEASE_MILESTONE_ID = X_LEASE_MILESTONE_ID,
449 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
450 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
451 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
452 WHERE LEASE_MILESTONE_ID = X_LEASE_MILESTONE_ID;
453
454 IF (SQL%NOTFOUND) THEN
455 RAISE NO_DATA_FOUND;
456 END IF;
457
458 END Update_Row;
459
460 -------------------------------------------------------------------------------
461 -- PROCDURE : Delete_Row
462 -- INVOKED FROM : Delete_Row procedure
463 -- PURPOSE : deletes the row
464 -- HISTORY :
465 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_milestones with
466 -- _ALL table.
467 -------------------------------------------------------------------------------
468 PROCEDURE Delete_Row
469 (
470 X_LEASE_MILESTONE_ID in NUMBER
471 )
472 IS
473 BEGIN
474
475 DELETE FROM pn_lease_milestones_all
476 WHERE lease_milestone_id = x_lease_milestone_id;
477
478 IF (SQL%NOTFOUND) THEN
479 RAISE NO_DATA_FOUND;
480 END IF;
481
482 END Delete_Row;
483
484
485 END pn_lease_milestones_pkg;