1 package body PN_VAR_LINES_PKG as
2 /* $Header: PNVRLINB.pls 120.2 2006/12/20 07:33:41 rdonthul noship $ */
3 -------------------------------------------------------------------------------
4 -- PROCDURE : INSERT_ROW
5 -- INVOKED FROM : insert_row procedure
6 -- PURPOSE : inserts the row
7 -- HISTORY :
8 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_LINES with _ALL table.
9 -------------------------------------------------------------------------------
10 procedure INSERT_ROW (
11 X_ROWID in out NOCOPY VARCHAR2,
12 X_LINE_ITEM_ID in out NOCOPY NUMBER,
13 X_LINE_ITEM_NUM in out NOCOPY NUMBER,
14 X_PERIOD_ID in NUMBER,
15 X_SALES_TYPE_CODE in VARCHAR2,
16 X_ITEM_CATEGORY_CODE in VARCHAR2,
17 X_COMMENTS in VARCHAR2,
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_ORG_ID in NUMBER,
35 X_CREATION_DATE in DATE,
36 X_CREATED_BY in NUMBER,
37 X_LAST_UPDATE_DATE in DATE,
38 X_LAST_UPDATED_BY in NUMBER,
39 X_LAST_UPDATE_LOGIN in NUMBER,
40 X_LINE_TEMPLATE_ID in NUMBER,
41 X_AGREEMENT_TEMPLATE_ID in NUMBER,
42 X_LINE_DEFAULT_ID in NUMBER,
43 X_VAR_RENT_ID in NUMBER
44 )
45 IS
46 CURSOR C IS
47 SELECT ROWID
48 FROM PN_VAR_LINES_ALL
49 WHERE LINE_ITEM_ID = X_LINE_ITEM_ID;
50
51 BEGIN
52
53 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.INSERT_ROW (+)');
54
55 -------------------------------------------------------
56 -- We need to generate the line number
57 -------------------------------------------------------
58 SELECT nvl(max(lines.LINE_ITEM_NUM),0)
59 INTO X_LINE_ITEM_NUM
60 FROM PN_VAR_LINES_ALL lines
61 WHERE lines.PERIOD_ID = X_PERIOD_ID;
62
63 X_LINE_ITEM_NUM := X_LINE_ITEM_NUM + 1;
64
65 -------------------------------------------------------
66 -- Select the nextval for line item id
67 -------------------------------------------------------
68 IF ( X_LINE_ITEM_ID IS NULL) THEN
69 SELECT pn_var_lines_s.nextval
70 INTO X_LINE_ITEM_ID
71 FROM dual;
72 END IF;
73
74 INSERT INTO PN_VAR_LINES_ALL
75 (
76 LINE_ITEM_ID,
77 LINE_ITEM_NUM,
78 LAST_UPDATE_DATE,
79 LAST_UPDATED_BY,
80 CREATION_DATE,
81 CREATED_BY,
82 LAST_UPDATE_LOGIN,
83 PERIOD_ID,
84 SALES_TYPE_CODE,
85 ITEM_CATEGORY_CODE,
86 COMMENTS,
87 ATTRIBUTE_CATEGORY,
88 ATTRIBUTE1,
89 ATTRIBUTE2,
90 ATTRIBUTE3,
91 ATTRIBUTE4,
92 ATTRIBUTE5,
93 ATTRIBUTE6,
94 ATTRIBUTE7,
95 ATTRIBUTE8,
96 ATTRIBUTE9,
97 ATTRIBUTE10,
98 ATTRIBUTE11,
99 ATTRIBUTE12,
100 ATTRIBUTE13,
101 ATTRIBUTE14,
102 ATTRIBUTE15,
103 ORG_ID,
104 LINE_TEMPLATE_ID ,
105 AGREEMENT_TEMPLATE_ID,
106 LINE_DEFAULT_ID,
107 VAR_RENT_ID,
108 BKPT_UPDATE_FLAG
109 )
110 VALUES
111 (
112 X_LINE_ITEM_ID,
113 X_LINE_ITEM_NUM,
114 X_LAST_UPDATE_DATE,
115 X_LAST_UPDATED_BY,
116 X_CREATION_DATE,
117 X_CREATED_BY,
118 X_LAST_UPDATE_LOGIN,
119 X_PERIOD_ID,
120 X_SALES_TYPE_CODE,
121 X_ITEM_CATEGORY_CODE,
122 X_COMMENTS,
123 X_ATTRIBUTE_CATEGORY,
124 X_ATTRIBUTE1,
125 X_ATTRIBUTE2,
126 X_ATTRIBUTE3,
127 X_ATTRIBUTE4,
128 X_ATTRIBUTE5,
129 X_ATTRIBUTE6,
130 X_ATTRIBUTE7,
131 X_ATTRIBUTE8,
132 X_ATTRIBUTE9,
133 X_ATTRIBUTE10,
134 X_ATTRIBUTE11,
135 X_ATTRIBUTE12,
136 X_ATTRIBUTE13,
137 X_ATTRIBUTE14,
138 X_ATTRIBUTE15,
139 X_ORG_ID,
140 X_LINE_TEMPLATE_ID ,
141 X_AGREEMENT_TEMPLATE_ID,
142 X_LINE_DEFAULT_ID,
143 X_VAR_RENT_ID,
144 'Y'
145 ) ;
146
147 OPEN c;
148 FETCH c INTO X_ROWID;
149 IF (c%notfound) THEN
150 CLOSE c;
151 RAISE NO_DATA_FOUND;
152 END IF;
153 CLOSE c;
154
155 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.INSERT_ROW (-)');
156
157 END INSERT_ROW;
158
159 -------------------------------------------------------------------------------
160 -- PROCDURE : LOCK_ROW
161 -- INVOKED FROM : LOCK_ROW procedure
162 -- PURPOSE : locks the row
163 -- HISTORY :
164 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_LINES with _ALL table.
165 -------------------------------------------------------------------------------
166 procedure LOCK_ROW (
167 X_LINE_ITEM_ID in NUMBER,
168 X_LINE_ITEM_NUM in NUMBER,
169 X_PERIOD_ID in NUMBER,
170 X_SALES_TYPE_CODE in VARCHAR2,
171 X_ITEM_CATEGORY_CODE in VARCHAR2,
172 X_COMMENTS in VARCHAR2,
173 X_ATTRIBUTE_CATEGORY in VARCHAR2,
174 X_ATTRIBUTE1 in VARCHAR2,
175 X_ATTRIBUTE2 in VARCHAR2,
176 X_ATTRIBUTE3 in VARCHAR2,
177 X_ATTRIBUTE4 in VARCHAR2,
178 X_ATTRIBUTE5 in VARCHAR2,
179 X_ATTRIBUTE6 in VARCHAR2,
180 X_ATTRIBUTE7 in VARCHAR2,
181 X_ATTRIBUTE8 in VARCHAR2,
182 X_ATTRIBUTE9 in VARCHAR2,
183 X_ATTRIBUTE10 in VARCHAR2,
184 X_ATTRIBUTE11 in VARCHAR2,
185 X_ATTRIBUTE12 in VARCHAR2,
186 X_ATTRIBUTE13 in VARCHAR2,
187 X_ATTRIBUTE14 in VARCHAR2,
188 X_ATTRIBUTE15 in VARCHAR2,
189 X_LINE_TEMPLATE_ID in NUMBER,
190 X_AGREEMENT_TEMPLATE_ID in NUMBER,
191 X_LINE_DEFAULT_ID in NUMBER,
192 X_VAR_RENT_ID in NUMBER
193 )
194 IS
195 CURSOR c1 IS
196 SELECT *
197 FROM PN_VAR_LINES_ALL
198 WHERE LINE_ITEM_ID = X_LINE_ITEM_ID
199 FOR UPDATE OF LINE_ITEM_ID NOWAIT;
200
201 tlinfo c1%rowtype;
202
203 BEGIN
204
205 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.LOCK_ROW (+)');
206
207 OPEN c1;
208 FETCH c1 INTO tlinfo;
209 IF (c1%notfound) THEN
210 CLOSE c1;
211 RETURN;
212 END IF;
213 CLOSE c1;
214
215 if (tlinfo.LINE_ITEM_ID = X_LINE_ITEM_ID) then
216 null;
217 else
218 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_ITEM_ID', to_char(tlinfo.LINE_ITEM_ID));
219 end if;
220 if (tlinfo.LINE_ITEM_NUM = X_LINE_ITEM_NUM) then
221 null;
222 else
223 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_ITEM_NUM', to_char(tlinfo.LINE_ITEM_NUM));
224 end if;
225 if ((tlinfo.PERIOD_ID = X_PERIOD_ID)
226 OR ((tlinfo.PERIOD_ID is null) AND (X_PERIOD_ID is null))) then
227 null;
228 else
229 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('PERIOD_ID', to_char(tlinfo.PERIOD_ID));
230 end if;
231 if ((tlinfo.SALES_TYPE_CODE = X_SALES_TYPE_CODE)
232 OR ((tlinfo.SALES_TYPE_CODE is null) AND (X_SALES_TYPE_CODE is null))) then
233 null;
234 else
235 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('SALES_TYPE_CODE',tlinfo.SALES_TYPE_CODE);
236 end if;
237 if ((tlinfo.ITEM_CATEGORY_CODE = X_ITEM_CATEGORY_CODE)
238 OR ((tlinfo.ITEM_CATEGORY_CODE is null) AND (X_ITEM_CATEGORY_CODE is null))) then
239 null;
240 else
241 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ITEM_CATEGORY_CODE',tlinfo.ITEM_CATEGORY_CODE);
242 end if;
243 if ((tlinfo.COMMENTS = X_COMMENTS)
244 OR ((tlinfo.COMMENTS is null) AND (X_COMMENTS is null))) then
245 null;
246 else
247 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('COMMENTS',tlinfo.COMMENTS);
248 end if;
249 if ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
250 OR ((tlinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null))) then
251 null;
252 else
253 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
254 end if;
255 if ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
256 OR ((tlinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null))) then
257 null;
258 else
259 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
260 end if;
261 if ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
262 OR ((tlinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null))) then
263 null;
264 else
265 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
266 end if;
267 if ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
268 OR ((tlinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null))) then
269 null;
270 else
271 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
272 end if;
273 if ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
274 OR ((tlinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null))) then
275 null;
276 else
277 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
278 end if;
279 if ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
280 OR ((tlinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null))) then
281 null;
282 else
283 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
284 end if;
285 if ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
286 OR ((tlinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null))) then
287 null;
288 else
289 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
290 end if;
291 if ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
292 OR ((tlinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null))) then
293 null;
294 else
295 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
296 end if;
297 if ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
298 OR ((tlinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null))) then
299 null;
300 else
301 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
302 end if;
303 if ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
304 OR ((tlinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null))) then
305 null;
306 else
307 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
308 end if;
309 if ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
310 OR ((tlinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null))) then
311 null;
312 else
313 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE10', tlinfo.ATTRIBUTE10);
314 end if;
315 if ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
316 OR ((tlinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null))) then
317 null;
318 else
319 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
320 end if;
321 if ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
322 OR ((tlinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null))) then
323 null;
324 else
325 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
326 end if;
327 if ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
328 OR ((tlinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null))) then
329 null;
330 else
331 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
332 end if;
333 if ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
334 OR ((tlinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null))) then
335 null;
336 else
337 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
338 end if;
339 if ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
340 OR ((tlinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null))) then
341 null;
342 else
343 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
344 end if;
345
346 if ((tlinfo.LINE_TEMPLATE_ID = X_LINE_TEMPLATE_ID )
347 OR ((tlinfo.LINE_TEMPLATE_ID is null) AND (X_LINE_TEMPLATE_ID is null))) then
348 null;
349 else
350 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_TEMPLATE_ID ',tlinfo.LINE_TEMPLATE_ID );
351 end if;
352 if ((tlinfo.AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID)
353 OR ((tlinfo.AGREEMENT_TEMPLATE_ID is null) AND (X_AGREEMENT_TEMPLATE_ID is null))) then
354 null;
355 else
356 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('AGREEMENT_TEMPLATE_ID',tlinfo.AGREEMENT_TEMPLATE_ID);
357 end if;
358 if ((tlinfo.LINE_DEFAULT_ID = X_LINE_DEFAULT_ID)
359 OR ((tlinfo.LINE_DEFAULT_ID is null) AND (X_LINE_DEFAULT_ID is null))) then
360 null;
361 else
362 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_DEFAULT_ID',tlinfo.LINE_DEFAULT_ID);
363 end if;
364 if ((tlinfo.VAR_RENT_ID = X_VAR_RENT_ID)
365 OR ((tlinfo.VAR_RENT_ID is null) AND (X_VAR_RENT_ID is null))) then
366 null;
367 else
368 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VAR_RENT_ID',tlinfo.VAR_RENT_ID);
369 end if;
370 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.LOCK_ROW (-)');
371
372 END LOCK_ROW;
373
374 -------------------------------------------------------------------------------
375 -- PROCDURE : UPDATE_ROW
376 -- INVOKED FROM : UPDATE_ROW procedure
377 -- PURPOSE : updates the row
378 -- HISTORY :
379 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_LINES with _ALL table.
380 -------------------------------------------------------------------------------
381 procedure UPDATE_ROW (
382 X_LINE_ITEM_ID in NUMBER,
383 X_LINE_ITEM_NUM in NUMBER,
384 X_PERIOD_ID in NUMBER,
385 X_SALES_TYPE_CODE in VARCHAR2,
386 X_ITEM_CATEGORY_CODE in VARCHAR2,
387 X_COMMENTS in VARCHAR2,
388 X_ATTRIBUTE_CATEGORY in VARCHAR2,
389 X_ATTRIBUTE1 in VARCHAR2,
390 X_ATTRIBUTE2 in VARCHAR2,
391 X_ATTRIBUTE3 in VARCHAR2,
392 X_ATTRIBUTE4 in VARCHAR2,
393 X_ATTRIBUTE5 in VARCHAR2,
394 X_ATTRIBUTE6 in VARCHAR2,
395 X_ATTRIBUTE7 in VARCHAR2,
396 X_ATTRIBUTE8 in VARCHAR2,
397 X_ATTRIBUTE9 in VARCHAR2,
398 X_ATTRIBUTE10 in VARCHAR2,
399 X_ATTRIBUTE11 in VARCHAR2,
400 X_ATTRIBUTE12 in VARCHAR2,
401 X_ATTRIBUTE13 in VARCHAR2,
402 X_ATTRIBUTE14 in VARCHAR2,
403 X_ATTRIBUTE15 in VARCHAR2,
404 X_LAST_UPDATE_DATE in DATE,
405 X_LAST_UPDATED_BY in NUMBER,
406 X_LAST_UPDATE_LOGIN in NUMBER,
407 X_LINE_TEMPLATE_ID in NUMBER,
408 X_AGREEMENT_TEMPLATE_ID in NUMBER,
409 X_LINE_DEFAULT_ID in NUMBER,
410 X_VAR_RENT_ID in NUMBER
411 )
412 IS
413 BEGIN
414
415 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.UPDATE_ROW (+)');
416
417 UPDATE PN_VAR_LINES_ALL
418 SET
419 LINE_ITEM_NUM = X_LINE_ITEM_NUM,
420 PERIOD_ID = X_PERIOD_ID,
421 SALES_TYPE_CODE = X_SALES_TYPE_CODE,
422 ITEM_CATEGORY_CODE = X_ITEM_CATEGORY_CODE,
426 ATTRIBUTE2 = X_ATTRIBUTE2,
423 COMMENTS = X_COMMENTS,
424 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
425 ATTRIBUTE1 = X_ATTRIBUTE1,
427 ATTRIBUTE3 = X_ATTRIBUTE3,
428 ATTRIBUTE4 = X_ATTRIBUTE4,
429 ATTRIBUTE5 = X_ATTRIBUTE5,
430 ATTRIBUTE6 = X_ATTRIBUTE6,
431 ATTRIBUTE7 = X_ATTRIBUTE7,
432 ATTRIBUTE8 = X_ATTRIBUTE8,
433 ATTRIBUTE9 = X_ATTRIBUTE9,
434 ATTRIBUTE10 = X_ATTRIBUTE10,
435 ATTRIBUTE11 = X_ATTRIBUTE11,
436 ATTRIBUTE12 = X_ATTRIBUTE12,
437 ATTRIBUTE13 = X_ATTRIBUTE13,
438 ATTRIBUTE14 = X_ATTRIBUTE14,
439 ATTRIBUTE15 = X_ATTRIBUTE15,
440 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
441 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
442 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
443 LINE_TEMPLATE_ID = X_LINE_TEMPLATE_ID ,
444 AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID,
445 LINE_DEFAULT_ID = X_LINE_DEFAULT_ID,
446 VAR_RENT_ID = X_VAR_RENT_ID
447 WHERE LINE_ITEM_ID = X_LINE_ITEM_ID;
448
449 IF (sql%notfound) THEN
450 RAISE NO_DATA_FOUND;
451 END IF;
452
453 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.UPDATE_ROW (-)');
454
455 END UPDATE_ROW;
456
457 -------------------------------------------------------------------------------
458 -- PROCDURE : DELETE_ROW
459 -- INVOKED FROM : DELETE_ROW procedure
460 -- PURPOSE : deletes the row
461 -- HISTORY :
462 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_LINES with _ALL table.
463 -------------------------------------------------------------------------------
464 procedure DELETE_ROW ( X_LINE_ITEM_ID in NUMBER)
465 IS
466 -- Get the details of
467 CURSOR line_info_cur IS
468 SELECT period_id, var_rent_id
469 FROM pn_var_lines_all
470 WHERE line_item_id = x_line_item_id;
471
472 BEGIN
473
474 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.DELETE_ROW (+)');
475
476 /* Delete the transaction records for this line item */
477 FOR rec IN line_info_cur LOOP
478 NULL;
479 --pn_var_trx_pkg.delete_transactions (var_rent_id, period_id, x_line_item_id);
480 END LOOP;
481
482 DELETE from PN_VAR_LINES_ALL
483 WHERE LINE_ITEM_ID = X_LINE_ITEM_ID;
484
485 IF (sql%notfound) THEN
486 RAISE NO_DATA_FOUND;
487 END IF;
488
489 PNP_DEBUG_PKG.debug ('PN_VAR_LINES_PKG.DELETE_ROW (-)');
490
491 END DELETE_ROW;
492
493 END PN_VAR_LINES_PKG;
[Home] [Help]