[Home] [Help]
PACKAGE BODY: APPS.PN_VAR_DEDUCTIONS_PKG
Source
1 package body PN_VAR_DEDUCTIONS_PKG as
2 /* $Header: PNVRDEDB.pls 120.1 2005/07/28 02:39:56 appldev noship $ */
3
4 -------------------------------------------------------------------------------
5 -- PROCDURE : INSERT_ROW
6 -- INVOKED FROM : insert_row procedure
7 -- PURPOSE : inserts the row
8 -- HISTORY :
9 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_DEDUCTIONS with _ALL table.
10 -------------------------------------------------------------------------------
11 procedure INSERT_ROW (
12 X_ROWID in out NOCOPY VARCHAR2,
13 X_DEDUCTION_ID in out NOCOPY NUMBER,
14 X_DEDUCTION_NUM in out NOCOPY NUMBER,
15 X_EXPORTED_CODE in VARCHAR2,
16 X_LINE_ITEM_ID in NUMBER,
17 X_PERIOD_ID in NUMBER,
18 X_START_DATE in DATE,
19 X_END_DATE in DATE,
20 X_GRP_DATE_ID in NUMBER,
21 X_GROUP_DATE in DATE,
22 X_INVOICING_DATE in DATE,
23 X_GL_ACCOUNT_ID in NUMBER,
24 X_DEDUCTION_TYPE_CODE in VARCHAR2,
25 X_DEDUCTION_AMOUNT in NUMBER,
26 X_COMMENTS in VARCHAR2,
27 X_ATTRIBUTE_CATEGORY in VARCHAR2,
28 X_ATTRIBUTE1 in VARCHAR2,
29 X_ATTRIBUTE2 in VARCHAR2,
30 X_ATTRIBUTE3 in VARCHAR2,
31 X_ATTRIBUTE4 in VARCHAR2,
32 X_ATTRIBUTE5 in VARCHAR2,
33 X_ATTRIBUTE6 in VARCHAR2,
34 X_ATTRIBUTE7 in VARCHAR2,
35 X_ATTRIBUTE8 in VARCHAR2,
36 X_ATTRIBUTE9 in VARCHAR2,
37 X_ATTRIBUTE10 in VARCHAR2,
38 X_ATTRIBUTE11 in VARCHAR2,
39 X_ATTRIBUTE12 in VARCHAR2,
40 X_ATTRIBUTE13 in VARCHAR2,
41 X_ATTRIBUTE14 in VARCHAR2,
42 X_ATTRIBUTE15 in VARCHAR2,
43 X_ORG_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 )
50 IS
51 CURSOR C IS
52 SELECT ROWID
53 FROM PN_VAR_DEDUCTIONS_ALL
54 WHERE DEDUCTION_ID = X_DEDUCTION_ID;
55
56 BEGIN
57
58 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.INSERT_ROW (+)');
59
60 -------------------------------------------------------
61 -- We need to generate the deductions number
62 -------------------------------------------------------
63
64 SELECT NVL(max(deduction_num),0)
65 INTO X_DEDUCTION_NUM
66 FROM PN_VAR_DEDUCTIONS_ALL
67 WHERE LINE_ITEM_ID = X_LINE_ITEM_ID;
68
69 X_DEDUCTION_NUM := X_DEDUCTION_NUM + 1;
70
71 -------------------------------------------------------
72 -- Select the nextval for Deductions Id
73 -------------------------------------------------------
74
75 IF (X_DEDUCTION_ID IS NULL) THEN
76 SELECT PN_VAR_DEDUCTIONS_S.nextval
77 INTO X_DEDUCTION_ID
78 FROM dual;
79 END IF;
80
81
82 INSERT INTO PN_VAR_DEDUCTIONS_ALL
83 (
84 DEDUCTION_ID,
85 DEDUCTION_NUM,
86 EXPORTED_CODE,
87 LINE_ITEM_ID,
88 PERIOD_ID,
89 START_DATE,
90 END_DATE,
91 GRP_DATE_ID,
92 GROUP_DATE,
93 INVOICING_DATE,
94 GL_ACCOUNT_ID,
95 DEDUCTION_TYPE_CODE,
96 DEDUCTION_AMOUNT,
97 COMMENTS,
98 ATTRIBUTE_CATEGORY,
99 ATTRIBUTE1,
100 ATTRIBUTE2,
101 ATTRIBUTE3,
102 ATTRIBUTE4,
103 ATTRIBUTE5,
104 ATTRIBUTE6,
105 ATTRIBUTE7,
106 ATTRIBUTE8,
107 ATTRIBUTE9,
108 ATTRIBUTE10,
109 ATTRIBUTE11,
110 ATTRIBUTE12,
111 ATTRIBUTE13,
112 ATTRIBUTE14,
113 ATTRIBUTE15,
114 ORG_ID,
115 CREATION_DATE,
116 CREATED_BY,
117 LAST_UPDATE_DATE,
118 LAST_UPDATED_BY,
119 LAST_UPDATE_LOGIN
120 )
121 VALUES
122 (
123 X_DEDUCTION_ID,
124 X_DEDUCTION_NUM,
125 X_EXPORTED_CODE,
126 X_LINE_ITEM_ID,
127 X_PERIOD_ID,
128 X_START_DATE,
129 X_END_DATE,
130 X_GRP_DATE_ID,
131 X_GROUP_DATE,
132 X_INVOICING_DATE,
133 X_GL_ACCOUNT_ID,
134 X_DEDUCTION_TYPE_CODE,
135 X_DEDUCTION_AMOUNT,
136 X_COMMENTS,
137 X_ATTRIBUTE_CATEGORY,
138 X_ATTRIBUTE1,
139 X_ATTRIBUTE2,
140 X_ATTRIBUTE3,
141 X_ATTRIBUTE4,
142 X_ATTRIBUTE5,
143 X_ATTRIBUTE6,
144 X_ATTRIBUTE7,
145 X_ATTRIBUTE8,
146 X_ATTRIBUTE9,
147 X_ATTRIBUTE10,
148 X_ATTRIBUTE11,
149 X_ATTRIBUTE12,
150 X_ATTRIBUTE13,
151 X_ATTRIBUTE14,
152 X_ATTRIBUTE15,
153 X_ORG_ID,
154 X_CREATION_DATE,
155 X_CREATED_BY,
156 X_LAST_UPDATE_DATE,
157 X_LAST_UPDATED_BY,
158 X_LAST_UPDATE_LOGIN
159 );
160
161 OPEN c;
162 FETCH c INTO X_ROWID;
163 IF (c%notfound) THEN
164 CLOSE c;
165 RAISE NO_DATA_FOUND;
166 END IF;
167 CLOSE c;
168
169 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.INSERT_ROW (-)');
170
171 END INSERT_ROW;
172
173 -------------------------------------------------------------------------------
174 -- PROCDURE : LOCK_ROW
175 -- INVOKED FROM : LOCK_ROW procedure
176 -- PURPOSE : locks the row
177 -- HISTORY :
178 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_DEDUCTIONS with _ALL table.
179 -------------------------------------------------------------------------------
180 procedure LOCK_ROW (
181 X_DEDUCTION_ID in NUMBER,
182 X_DEDUCTION_NUM in NUMBER,
183 X_EXPORTED_CODE in VARCHAR2,
184 X_LINE_ITEM_ID in NUMBER,
185 X_PERIOD_ID in NUMBER,
186 X_START_DATE in DATE,
187 X_END_DATE in DATE,
188 X_GRP_DATE_ID in NUMBER,
189 X_GROUP_DATE in DATE,
190 X_INVOICING_DATE in DATE,
191 X_GL_ACCOUNT_ID in NUMBER,
192 X_DEDUCTION_TYPE_CODE in VARCHAR2,
193 X_DEDUCTION_AMOUNT in NUMBER,
194 X_COMMENTS in VARCHAR2,
195 X_ATTRIBUTE_CATEGORY in VARCHAR2,
196 X_ATTRIBUTE1 in VARCHAR2,
197 X_ATTRIBUTE2 in VARCHAR2,
198 X_ATTRIBUTE3 in VARCHAR2,
199 X_ATTRIBUTE4 in VARCHAR2,
200 X_ATTRIBUTE5 in VARCHAR2,
201 X_ATTRIBUTE6 in VARCHAR2,
202 X_ATTRIBUTE7 in VARCHAR2,
203 X_ATTRIBUTE8 in VARCHAR2,
204 X_ATTRIBUTE9 in VARCHAR2,
205 X_ATTRIBUTE10 in VARCHAR2,
206 X_ATTRIBUTE11 in VARCHAR2,
207 X_ATTRIBUTE12 in VARCHAR2,
208 X_ATTRIBUTE13 in VARCHAR2,
209 X_ATTRIBUTE14 in VARCHAR2,
210 X_ATTRIBUTE15 in VARCHAR2
211 )
212 IS
213 CURSOR c1 IS
214 SELECT *
215 FROM PN_VAR_DEDUCTIONS_ALL
216 WHERE DEDUCTION_ID = X_DEDUCTION_ID
217 FOR UPDATE OF DEDUCTION_ID NOWAIT;
218
219 tlinfo c1%rowtype;
220
221 BEGIN
222
223 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.LOCK_ROW (+)');
224
225 OPEN c1;
226 FETCH c1 INTO tlinfo;
227 IF (c1%notfound) THEN
228 CLOSE c1;
229 RETURN;
230 END IF;
231 CLOSE c1;
232
233 if (tlinfo.DEDUCTION_ID = X_DEDUCTION_ID) then
234 null;
235 else
236 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('DEDUCTION_ID',to_char(tlinfo.DEDUCTION_ID));
237 end if;
238
239 if ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
240 OR ((tlinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null))) then
241 null;
242 else
243 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE10',tlinfo.ATTRIBUTE10);
244 end if;
245
246 if ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
247 OR ((tlinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null))) then
248 null;
249 else
250 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
251 end if;
252
253
254 if ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
255 OR ((tlinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null))) then
256 null;
257 else
258 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
259 end if;
260
261 if ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
262 OR ((tlinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null))) then
263 null;
264 else
265 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
266 end if;
267
268 if ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
269 OR ((tlinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null))) then
270 null;
271 else
272 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
273 end if;
274
275 if (tlinfo.DEDUCTION_NUM = X_DEDUCTION_NUM) then
276 null;
277 else
278 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('DEDUCTION_NUM',to_char(tlinfo.DEDUCTION_NUM));
279 end if;
280
281 if (tlinfo.EXPORTED_CODE = X_EXPORTED_CODE) then
282 null;
283 else
284 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('EXPORTED_CODE',tlinfo.EXPORTED_CODE);
285 end if;
286
287 if ((tlinfo.COMMENTS = X_COMMENTS)
288 OR ((tlinfo.COMMENTS is null) AND (X_COMMENTS is null))) then
289 null;
290 else
291 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('COMMENTS',tlinfo.COMMENTS);
292 end if;
293
294 if ((tlinfo.DEDUCTION_TYPE_CODE = X_DEDUCTION_TYPE_CODE)
295 OR ((tlinfo.DEDUCTION_TYPE_CODE is null) AND (X_DEDUCTION_TYPE_CODE is null))) then
296 null;
297 else
298 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('DEDUCTION_TYPE_CODE',tlinfo.DEDUCTION_TYPE_CODE);
299 end if;
300
301 if ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
302 OR ((tlinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null))) then
303 null;
304 else
305 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
306 end if;
307
308 if ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
309 OR ((tlinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null))) then
310 null;
311 else
312 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
313 end if;
314
315 if ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
316 OR ((tlinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null))) then
317 null;
318 else
319 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
320 end if;
321
322 if ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
323 OR ((tlinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null))) then
324 null;
325 else
326 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
327 end if;
328
329 if ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
330 OR ((tlinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null))) then
331 null;
332 else
333 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
334 end if;
335
336 if ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
337 OR ((tlinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null))) then
338 null;
339 else
340 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
341 end if;
342
343 if ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
344 OR ((tlinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null))) then
345 null;
346 else
347 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
348 end if;
349
350 if ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
351 OR ((tlinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null))) then
352 null;
353 else
354 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
355 end if;
356
357 if ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
358 OR ((tlinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null))) then
359 null;
360 else
361 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
362 end if;
363
364 if ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
365 OR ((tlinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null))) then
366 null;
367 else
368 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
369 end if;
370
371 if ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
372 OR ((tlinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null))) then
373 null;
374 else
375 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
376 end if;
377
378 if ((tlinfo.LINE_ITEM_ID = X_LINE_ITEM_ID)
379 OR ((tlinfo.LINE_ITEM_ID is null) AND (X_LINE_ITEM_ID is null))) then
380 null;
381 else
382 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_ITEM_ID',to_char(tlinfo.LINE_ITEM_ID));
383 end if;
384
385 if ((tlinfo.PERIOD_ID = X_PERIOD_ID)
386 OR ((tlinfo.PERIOD_ID is null) AND (X_PERIOD_ID is null))) then
387 null;
388 else
389 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('PERIOD_ID',to_char(tlinfo.PERIOD_ID));
390 end if;
391
392 if ((tlinfo.GRP_DATE_ID = X_GRP_DATE_ID)
393 OR ((tlinfo.GRP_DATE_ID is null) AND (X_GRP_DATE_ID is null))) then
394 null;
395 else
396 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('GRP_DATE_ID',to_char(tlinfo.GRP_DATE_ID));
397 end if;
398
399 if (tlinfo.START_DATE = X_START_DATE) then
400 null;
401 else
402 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('START_DATE',to_char(tlinfo.START_DATE));
403 end if;
404
405 if (tlinfo.END_DATE = X_END_DATE) then
406 null;
407 else
408 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('END_DATE',to_char(tlinfo.END_DATE));
409 end if;
410
411 if (tlinfo.GROUP_DATE = X_GROUP_DATE) then
412 null;
413 else
414 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('GROUP_DATE',to_char(tlinfo.GROUP_DATE));
415 end if;
416
417 if (tlinfo.INVOICING_DATE = X_INVOICING_DATE) then
418 null;
419 else
420 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVOICING_DATE',to_char(tlinfo.INVOICING_DATE));
421 end if;
422
423 if ((tlinfo.GL_ACCOUNT_ID = X_GL_ACCOUNT_ID)
424 OR ((tlinfo.GL_ACCOUNT_ID is null) AND (X_GL_ACCOUNT_ID is null))) then
425 null;
426 else
427 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('GL_ACCOUNT_ID',to_char(tlinfo.GL_ACCOUNT_ID));
428 end if;
429
430 if (tlinfo.DEDUCTION_AMOUNT = X_DEDUCTION_AMOUNT)then
431 null;
432 else
433 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('DEDUCTION_AMOUNT',to_char(tlinfo.DEDUCTION_AMOUNT));
434 end if;
435
436
437 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.LOCK_ROW (-)');
438
439 END;
440
441 -------------------------------------------------------------------------------
442 -- PROCDURE : UPDATE_ROW
443 -- INVOKED FROM : UPDATE_ROW procedure
444 -- PURPOSE : updates the row
445 -- HISTORY :
446 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_DEDUCTIONS with _ALL table.
447 -------------------------------------------------------------------------------
448
449 procedure UPDATE_ROW (
450 X_DEDUCTION_ID in NUMBER,
451 X_DEDUCTION_NUM in NUMBER,
452 X_EXPORTED_CODE in VARCHAR2,
453 X_LINE_ITEM_ID in NUMBER,
454 X_PERIOD_ID in NUMBER,
455 X_START_DATE in DATE,
456 X_END_DATE in DATE,
457 X_GRP_DATE_ID in NUMBER,
461 X_DEDUCTION_TYPE_CODE in VARCHAR2,
458 X_GROUP_DATE in DATE,
459 X_INVOICING_DATE in DATE,
460 X_GL_ACCOUNT_ID in NUMBER,
462 X_DEDUCTION_AMOUNT in NUMBER,
463 X_COMMENTS in VARCHAR2,
464 X_ATTRIBUTE_CATEGORY in VARCHAR2,
465 X_ATTRIBUTE1 in VARCHAR2,
466 X_ATTRIBUTE2 in VARCHAR2,
467 X_ATTRIBUTE3 in VARCHAR2,
468 X_ATTRIBUTE4 in VARCHAR2,
469 X_ATTRIBUTE5 in VARCHAR2,
470 X_ATTRIBUTE6 in VARCHAR2,
471 X_ATTRIBUTE7 in VARCHAR2,
472 X_ATTRIBUTE8 in VARCHAR2,
473 X_ATTRIBUTE9 in VARCHAR2,
474 X_ATTRIBUTE10 in VARCHAR2,
475 X_ATTRIBUTE11 in VARCHAR2,
476 X_ATTRIBUTE12 in VARCHAR2,
477 X_ATTRIBUTE13 in VARCHAR2,
478 X_ATTRIBUTE14 in VARCHAR2,
479 X_ATTRIBUTE15 in VARCHAR2,
480 X_LAST_UPDATE_DATE in DATE,
481 X_LAST_UPDATED_BY in NUMBER,
482 X_LAST_UPDATE_LOGIN in NUMBER
483 )
484 IS
485 BEGIN
486
487 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.UPDATE_ROW (+)');
488
489 UPDATE PN_VAR_DEDUCTIONS_ALL
490 SET
491 DEDUCTION_ID = X_DEDUCTION_ID,
492 DEDUCTION_NUM = X_DEDUCTION_NUM,
493 EXPORTED_CODE = X_EXPORTED_CODE,
494 LINE_ITEM_ID = X_LINE_ITEM_ID,
495 PERIOD_ID = X_PERIOD_ID,
496 START_DATE = X_START_DATE,
497 END_DATE = X_END_DATE,
498 GRP_DATE_ID = X_GRP_DATE_ID,
499 GROUP_DATE = X_GROUP_DATE,
500 INVOICING_DATE = X_INVOICING_DATE,
501 GL_ACCOUNT_ID = X_GL_ACCOUNT_ID,
502 DEDUCTION_TYPE_CODE = X_DEDUCTION_TYPE_CODE,
503 DEDUCTION_AMOUNT = X_DEDUCTION_AMOUNT,
504 COMMENTS = X_COMMENTS,
505 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
506 ATTRIBUTE1 = X_ATTRIBUTE1,
507 ATTRIBUTE2 = X_ATTRIBUTE2,
508 ATTRIBUTE3 = X_ATTRIBUTE3,
509 ATTRIBUTE4 = X_ATTRIBUTE4,
510 ATTRIBUTE5 = X_ATTRIBUTE5,
511 ATTRIBUTE6 = X_ATTRIBUTE6,
512 ATTRIBUTE7 = X_ATTRIBUTE7,
513 ATTRIBUTE8 = X_ATTRIBUTE8,
514 ATTRIBUTE9 = X_ATTRIBUTE9,
515 ATTRIBUTE10 = X_ATTRIBUTE10,
516 ATTRIBUTE11 = X_ATTRIBUTE11,
517 ATTRIBUTE12 = X_ATTRIBUTE12,
518 ATTRIBUTE13 = X_ATTRIBUTE13,
519 ATTRIBUTE14 = X_ATTRIBUTE14,
520 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
521 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
522 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
523 WHERE DEDUCTION_ID = X_DEDUCTION_ID;
524
525 IF (sql%notfound) THEN
526 RAISE NO_DATA_FOUND;
527 END IF;
528
529 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.UPDATE_ROW (-)');
530
531 END UPDATE_ROW;
532
533
534 -------------------------------------------------------------------------------
535 -- PROCDURE : DELETE_ROW
536 -- INVOKED FROM : DELETE_ROW procedure
537 -- PURPOSE : deletes the row
538 -- HISTORY :
539 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_DEDUCTIONS with _ALL table.
540 -------------------------------------------------------------------------------
541 procedure DELETE_ROW (
542 X_DEDUCTION_ID in NUMBER
543 )
544 IS
545 BEGIN
546
547 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.DELETE_ROW (+)');
548
549 DELETE FROM PN_VAR_DEDUCTIONS_ALL
550 WHERE DEDUCTION_ID = X_DEDUCTION_ID;
551
552 IF (sql%notfound) THEN
553 RAISE NO_DATA_FOUND;
554 END IF;
555
556 PNP_DEBUG_PKG.debug ('PN_VAR_DEDUCTIONS_PKG.DELETE_ROW (-)');
557
558 END DELETE_ROW;
559
560
561 END PN_VAR_DEDUCTIONS_PKG;
562