1 package body PN_VAR_RENT_DATES_PKG as
2 /* $Header: PNVRDATB.pls 120.3 2006/12/20 09:27:23 pseeram 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_RENT_DATES with _ALL
9 -- table.
10 -------------------------------------------------------------------------------
11 procedure INSERT_ROW (
12 X_ROWID in out NOCOPY VARCHAR2,
13 X_VAR_RENT_DATE_ID in out NOCOPY NUMBER,
14 X_VAR_RENT_ID in NUMBER,
15 X_GL_PERIOD_SET_NAME in VARCHAR2,
16 X_PERIOD_FREQ_CODE in VARCHAR2,
17 X_REPTG_FREQ_CODE in VARCHAR2,
18 X_REPTG_DAY_OF_MONTH in NUMBER,
19 X_REPTG_DAYS_AFTER in NUMBER,
20 X_INVG_FREQ_CODE in VARCHAR2,
21 X_INVG_DAY_OF_MONTH in NUMBER,
22 X_INVG_DAYS_AFTER in NUMBER,
23 X_INVG_SPREAD_CODE in VARCHAR2,
24 X_INVG_TERM in NUMBER,
25 X_AUDIT_FREQ_CODE in VARCHAR2,
26 X_AUDIT_DAY_OF_MONTH in NUMBER,
27 X_AUDIT_DAYS_AFTER in NUMBER,
28 X_RECON_FREQ_CODE in VARCHAR2,
29 X_RECON_DAY_OF_MONTH in NUMBER,
30 X_RECON_DAYS_AFTER in NUMBER,
31 X_ATTRIBUTE_CATEGORY in VARCHAR2,
32 X_ATTRIBUTE1 in VARCHAR2,
33 X_ATTRIBUTE2 in VARCHAR2,
34 X_ATTRIBUTE3 in VARCHAR2,
35 X_ATTRIBUTE4 in VARCHAR2,
36 X_ATTRIBUTE5 in VARCHAR2,
37 X_ATTRIBUTE6 in VARCHAR2,
38 X_ATTRIBUTE7 in VARCHAR2,
39 X_ATTRIBUTE8 in VARCHAR2,
40 X_ATTRIBUTE9 in VARCHAR2,
41 X_ATTRIBUTE10 in VARCHAR2,
42 X_ATTRIBUTE11 in VARCHAR2,
43 X_ATTRIBUTE12 in VARCHAR2,
44 X_ATTRIBUTE13 in VARCHAR2,
45 X_ATTRIBUTE14 in VARCHAR2,
46 X_ATTRIBUTE15 in VARCHAR2,
47 X_ORG_ID in NUMBER,
48 X_CREATION_DATE in DATE,
49 X_CREATED_BY in NUMBER,
50 X_LAST_UPDATE_DATE in DATE,
51 X_LAST_UPDATED_BY in NUMBER,
52 X_LAST_UPDATE_LOGIN in NUMBER,
53 X_USE_GL_CALENDAR in VARCHAR2,
54 X_PERIOD_TYPE in VARCHAR2,
55 X_YEAR_START_DATE in DATE,
56 X_COMMENTS in VARCHAR2,
57 X_VRG_REPTG_FREQ_CODE in VARCHAR2
58 )
59 IS
60
61 CURSOR var_rent_dates IS
62 SELECT ROWID
63 FROM PN_VAR_RENT_DATES_ALL
64 WHERE VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID;
65
66 CURSOR org_cur IS
67 SELECT org_id FROM PN_VAR_RENTS_ALL WHERE VAR_RENT_ID = X_VAR_RENT_ID;
68 l_org_ID NUMBER;
69
70 BEGIN
71
72 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.INSERT_ROW (+)');
73
74 -------------------------------------------------------
75 -- Select the nextval for var rent date id
76 -------------------------------------------------------
77 IF ( X_VAR_RENT_DATE_ID IS NULL) THEN
78 SELECT pn_var_rent_dates_s.nextval
79 INTO X_VAR_RENT_DATE_ID
80 FROM dual;
81 END IF;
82
83 IF x_org_id IS NULL THEN
84 FOR rec IN org_cur LOOP
85 l_org_id := rec.org_id;
86 END LOOP;
87 ELSE
88 l_org_id := x_org_id;
89 END IF;
90
91 INSERT INTO PN_VAR_RENT_DATES_ALL
92 (
93 VAR_RENT_DATE_ID,
94 VAR_RENT_ID,
95 GL_PERIOD_SET_NAME,
96 PERIOD_FREQ_CODE,
97 REPTG_FREQ_CODE,
98 REPTG_DAY_OF_MONTH,
99 REPTG_DAYS_AFTER,
100 INVG_FREQ_CODE,
101 INVG_DAY_OF_MONTH,
102 INVG_DAYS_AFTER,
103 INVG_SPREAD_CODE,
104 INVG_TERM,
105 AUDIT_FREQ_CODE,
106 AUDIT_DAY_OF_MONTH,
107 AUDIT_DAYS_AFTER,
108 RECON_FREQ_CODE,
109 RECON_DAY_OF_MONTH,
110 RECON_DAYS_AFTER,
111 ATTRIBUTE_CATEGORY,
112 ATTRIBUTE1,
113 ATTRIBUTE2,
114 ATTRIBUTE3,
115 ATTRIBUTE4,
116 ATTRIBUTE5,
117 ATTRIBUTE6,
118 ATTRIBUTE7,
119 ATTRIBUTE8,
120 ATTRIBUTE9,
121 ATTRIBUTE10,
122 ATTRIBUTE11,
123 ATTRIBUTE12,
124 ATTRIBUTE13,
125 ATTRIBUTE14,
126 ATTRIBUTE15,
127 ORG_ID,
128 LAST_UPDATE_DATE,
129 LAST_UPDATED_BY,
130 CREATION_DATE,
131 CREATED_BY,
132 LAST_UPDATE_LOGIN,
133 USE_GL_CALENDAR,
134 PERIOD_TYPE,
135 YEAR_START_DATE,
136 COMMENTS,
137 VRG_REPTG_FREQ_CODE
138 )
139 VALUES
140 (
141 X_VAR_RENT_DATE_ID,
142 X_VAR_RENT_ID,
143 X_GL_PERIOD_SET_NAME,
144 X_PERIOD_FREQ_CODE,
145 X_REPTG_FREQ_CODE,
146 X_REPTG_DAY_OF_MONTH,
147 X_REPTG_DAYS_AFTER,
148 X_INVG_FREQ_CODE,
149 X_INVG_DAY_OF_MONTH,
150 X_INVG_DAYS_AFTER,
151 X_INVG_SPREAD_CODE,
152 X_INVG_TERM,
153 X_AUDIT_FREQ_CODE,
154 X_AUDIT_DAY_OF_MONTH,
155 X_AUDIT_DAYS_AFTER,
156 X_RECON_FREQ_CODE,
157 X_RECON_DAY_OF_MONTH,
158 X_RECON_DAYS_AFTER,
159 X_ATTRIBUTE_CATEGORY,
160 X_ATTRIBUTE1,
161 X_ATTRIBUTE2,
162 X_ATTRIBUTE3,
163 X_ATTRIBUTE4,
164 X_ATTRIBUTE5,
165 X_ATTRIBUTE6,
166 X_ATTRIBUTE7,
167 X_ATTRIBUTE8,
168 X_ATTRIBUTE9,
169 X_ATTRIBUTE10,
170 X_ATTRIBUTE11,
171 X_ATTRIBUTE12,
172 X_ATTRIBUTE13,
173 X_ATTRIBUTE14,
174 X_ATTRIBUTE15,
175 l_org_id,
176 X_CREATION_DATE,
177 X_CREATED_BY,
178 X_LAST_UPDATE_DATE,
179 X_LAST_UPDATED_BY,
180 X_LAST_UPDATE_LOGIN,
181 X_USE_GL_CALENDAR,
182 X_PERIOD_TYPE,
183 X_YEAR_START_DATE,
184 X_COMMENTS,
185 X_VRG_REPTG_FREQ_CODE
186 );
187
188 OPEN var_rent_dates;
189 FETCH var_rent_dates INTO X_ROWID;
190 IF (var_rent_dates%notfound) THEN
191 CLOSE var_rent_dates;
192 RAISE NO_DATA_FOUND;
193 END IF;
194 CLOSE var_rent_dates;
195
196 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.INSERT_ROW (-)');
197
198 END INSERT_ROW;
199
200 -------------------------------------------------------------------------------
201 -- PROCDURE : LOCK_ROW
202 -- INVOKED FROM : LOCK_ROW procedure
203 -- PURPOSE : locks the row
204 -- HISTORY :
205 -- 04-JUL-05 piagrawa o Bug 4284035 Replaced PN_VAR_RENT_DATES with _ALL
206 -- 21-SEP-06 pikhar o Bug 5531068 Removed call to audit_freq_code,
207 -- recon_freq_code and invg_spread_code
208 -------------------------------------------------------------------------------
209 procedure LOCK_ROW (
210 X_VAR_RENT_DATE_ID IN NUMBER,
211 X_VAR_RENT_ID IN NUMBER,
212 X_GL_PERIOD_SET_NAME IN VARCHAR2,
213 X_PERIOD_FREQ_CODE IN VARCHAR2,
214 X_REPTG_FREQ_CODE IN VARCHAR2,
215 X_REPTG_DAY_OF_MONTH IN NUMBER,
216 X_REPTG_DAYS_AFTER IN NUMBER,
217 X_INVG_FREQ_CODE IN VARCHAR2,
218 X_INVG_DAY_OF_MONTH IN NUMBER,
219 X_INVG_DAYS_AFTER IN NUMBER,
220 X_INVG_SPREAD_CODE IN VARCHAR2,
221 X_INVG_TERM IN NUMBER,
222 X_AUDIT_FREQ_CODE IN VARCHAR2,
223 X_AUDIT_DAY_OF_MONTH IN NUMBER,
224 X_AUDIT_DAYS_AFTER IN NUMBER,
225 X_RECON_FREQ_CODE IN VARCHAR2,
226 X_RECON_DAY_OF_MONTH IN NUMBER,
227 X_RECON_DAYS_AFTER IN NUMBER,
228 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
229 X_ATTRIBUTE1 IN VARCHAR2,
230 X_ATTRIBUTE2 IN VARCHAR2,
231 X_ATTRIBUTE3 IN VARCHAR2,
232 X_ATTRIBUTE4 IN VARCHAR2,
233 X_ATTRIBUTE5 IN VARCHAR2,
234 X_ATTRIBUTE6 IN VARCHAR2,
235 X_ATTRIBUTE7 IN VARCHAR2,
236 X_ATTRIBUTE8 IN VARCHAR2,
237 X_ATTRIBUTE9 IN VARCHAR2,
238 X_ATTRIBUTE10 IN VARCHAR2,
239 X_ATTRIBUTE11 IN VARCHAR2,
240 X_ATTRIBUTE12 IN VARCHAR2,
241 X_ATTRIBUTE13 IN VARCHAR2,
242 X_ATTRIBUTE14 IN VARCHAR2,
243 X_ATTRIBUTE15 IN VARCHAR2,
244 X_USE_GL_CALENDAR IN VARCHAR2,
245 X_PERIOD_TYPE IN VARCHAR2,
246 X_YEAR_START_DATE IN DATE,
247 X_COMMENTS IN VARCHAR2,
248 X_VRG_REPTG_FREQ_CODE IN VARCHAR2
249 )
250 IS
251 CURSOR c1 IS
252 SELECT *
253 FROM PN_VAR_RENT_DATES_ALL
254 WHERE VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID
255 FOR UPDATE OF VAR_RENT_DATE_ID NOWAIT;
256
257 tlinfo c1%rowtype;
258
259 BEGIN
260
261 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.LOCK_ROW (+)');
262
263 OPEN c1;
264 FETCH c1 INTO tlinfo;
265 IF (c1%notfound) THEN
266 CLOSE c1;
267 RETURN;
268 END IF;
269 CLOSE c1;
270
271 if (tlinfo.VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID) then
272 null;
273 else
274 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VAR_RENT_DATE_ID', to_char(tlinfo.VAR_RENT_DATE_ID));
275 end if;
276 if (tlinfo.VAR_RENT_ID = X_VAR_RENT_ID) then
277 null;
278 else
279 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VAR_RENT_ID', to_char(tlinfo.VAR_RENT_ID));
280 end if;
281 if ((tlinfo.GL_PERIOD_SET_NAME = X_GL_PERIOD_SET_NAME)
282 OR ((tlinfo.GL_PERIOD_SET_NAME is null) and (X_GL_PERIOD_SET_NAME is null))) then
283 null;
284 else
285 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('GL_PERIOD_SET_NAME', tlinfo.GL_PERIOD_SET_NAME);
286 end if;
287 if (tlinfo.PERIOD_FREQ_CODE = X_PERIOD_FREQ_CODE) then
288 null;
289 else
290 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('PERIOD_FREQ_CODE', tlinfo.PERIOD_FREQ_CODE);
291 end if;
292 if (tlinfo.REPTG_FREQ_CODE = X_REPTG_FREQ_CODE) then
293 null;
294 else
295 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('REPTG_FREQ_CODE', tlinfo.REPTG_FREQ_CODE);
296 end if;
297 if ((tlinfo.REPTG_DAY_OF_MONTH = X_REPTG_DAY_OF_MONTH)
298 OR ((tlinfo.REPTG_DAY_OF_MONTH is null) AND (X_REPTG_DAY_OF_MONTH is null))) then
299 null;
300 else
301 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('REPTG_DAY_OF_MONTH', to_char(tlinfo.REPTG_DAY_OF_MONTH));
302 end if;
303 if ((tlinfo.REPTG_DAYS_AFTER = X_REPTG_DAYS_AFTER)
304 OR ((tlinfo.REPTG_DAYS_AFTER is null) AND (X_REPTG_DAYS_AFTER is null))) then
305 null;
306 else
307 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('REPTG_DAYS_AFTER', to_char(tlinfo.REPTG_DAYS_AFTER));
308 end if;
309 if (tlinfo.INVG_FREQ_CODE = X_INVG_FREQ_CODE) then
310 null;
311 else
312 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVG_FREQ_CODE', tlinfo.INVG_FREQ_CODE);
313 end if;
314 if ((tlinfo.INVG_DAY_OF_MONTH = X_INVG_DAY_OF_MONTH)
315 OR ((tlinfo.INVG_DAY_OF_MONTH is null) AND (X_INVG_DAY_OF_MONTH is null))) then
316 null;
317 else
318 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVG_DAY_OF_MONTH', to_char(tlinfo.INVG_DAY_OF_MONTH));
319 end if;
320 if ((tlinfo.INVG_DAYS_AFTER = X_INVG_DAYS_AFTER)
321 OR ((tlinfo.INVG_DAYS_AFTER is null) AND (X_INVG_DAYS_AFTER is null))) then
322 null;
323 else
324 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVG_DAYS_AFTER', to_char(tlinfo.INVG_DAYS_AFTER));
325 end if;
326 /*if (tlinfo.INVG_SPREAD_CODE = X_INVG_SPREAD_CODE) then
327 null;
328 else
329 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVG_SPREAD_CODE', tlinfo.INVG_SPREAD_CODE);
330 end if;*/
331 if ((tlinfo.INVG_TERM = X_INVG_TERM)
332 OR ((tlinfo.INVG_TERM is null) AND (X_INVG_TERM is null))) then
333 null;
334 else
335 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('INVG_TERM', tlinfo.INVG_TERM);
336 end if;
337 /*if (tlinfo.AUDIT_FREQ_CODE = X_AUDIT_FREQ_CODE) then
338 null;
339 else
343 OR ((tlinfo.AUDIT_DAY_OF_MONTH is null) AND (X_AUDIT_DAY_OF_MONTH is null))) then
340 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('AUDIT_FREQ_CODE', tlinfo.AUDIT_FREQ_CODE);
341 end if;*/
342 if ((tlinfo.AUDIT_DAY_OF_MONTH = X_AUDIT_DAY_OF_MONTH)
344 null;
345 else
346 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('AUDIT_DAY_OF_MONTH', to_char(tlinfo.AUDIT_DAY_OF_MONTH));
347 end if;
348 if ((tlinfo.AUDIT_DAYS_AFTER = X_AUDIT_DAYS_AFTER)
349 OR ((tlinfo.AUDIT_DAYS_AFTER is null) AND (X_AUDIT_DAYS_AFTER is null))) then
350 null;
351 else
352 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('AUDIT_DAYS_AFTER', to_char(tlinfo.AUDIT_DAYS_AFTER));
353 end if;
354 /*if (tlinfo.RECON_FREQ_CODE = X_RECON_FREQ_CODE) then
355 null;
356 else
357 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('RECON_FREQ_CODE', tlinfo.RECON_FREQ_CODE);
358 end if;*/
359 if ((tlinfo.RECON_DAY_OF_MONTH = X_RECON_DAY_OF_MONTH)
360 OR ((tlinfo.RECON_DAY_OF_MONTH is null) AND (X_RECON_DAY_OF_MONTH is null))) then
361 null;
362 else
363 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('RECON_DAY_OF_MONTH', to_char(tlinfo.RECON_DAY_OF_MONTH));
364 end if;
365 if ((tlinfo.RECON_DAYS_AFTER = X_RECON_DAYS_AFTER)
366 OR ((tlinfo.RECON_DAYS_AFTER is null) AND (X_RECON_DAYS_AFTER is null))) then
367 null;
368 else
369 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('RECON_DAYS_AFTER', to_char(tlinfo.RECON_DAYS_AFTER));
370 end if;
371 if ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
372 OR ((tlinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null))) then
373 null;
374 else
375 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
376 end if;
377 if ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
378 OR ((tlinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null))) then
379 null;
380 else
381 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
382 end if;
383 if ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
384 OR ((tlinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null))) then
385 null;
386 else
387 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
388 end if;
389 if ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
390 OR ((tlinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null))) then
391 null;
392 else
393 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
394 end if;
395 if ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
396 OR ((tlinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null))) then
397 null;
398 else
399 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
400 end if;
401 if ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
402 OR ((tlinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null))) then
403 null;
404 else
405 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
406 end if;
407 if ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
408 OR ((tlinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null))) then
409 null;
410 else
411 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
412 end if;
413 if ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
414 OR ((tlinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null))) then
415 null;
416 else
417 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
418 end if;
419 if ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
420 OR ((tlinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null))) then
421 null;
422 else
423 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
424 end if;
425 if ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
426 OR ((tlinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null))) then
427 null;
428 else
429 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
430 end if;
431 if ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
432 OR ((tlinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null))) then
433 null;
434 else
435 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE10', tlinfo.ATTRIBUTE10);
436 end if;
437 if ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
438 OR ((tlinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null))) then
439 null;
440 else
441 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
442 end if;
443 if ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
444 OR ((tlinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null))) then
445 null;
446 else
447 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
448 end if;
449 if ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
450 OR ((tlinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null))) then
451 null;
452 else
453 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
454 end if;
455 if ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
456 OR ((tlinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null))) then
457 null;
458 else
459 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
460 end if;
461 if ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
462 OR ((tlinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null))) then
463 null;
464 else
468 if ((tlinfo.USE_GL_CALENDAR = X_USE_GL_CALENDAR)
465 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
466 end if;
467
469 OR ((tlinfo.USE_GL_CALENDAR is null) AND (X_USE_GL_CALENDAR is null))) then
470 null;
471 else
472 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('USE_GL_CALENDAR',tlinfo.USE_GL_CALENDAR);
473 end if;
474
475 if ((tlinfo.PERIOD_TYPE = X_PERIOD_TYPE)
476 OR ((tlinfo.PERIOD_TYPE is null) AND (X_PERIOD_TYPE is null))) then
477 null;
478 else
479 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('PERIOD_TYPE',tlinfo.PERIOD_TYPE);
480 end if;
481
482 if ((tlinfo.YEAR_START_DATE = X_YEAR_START_DATE)
483 OR ((tlinfo.YEAR_START_DATE is null) AND (X_YEAR_START_DATE is null))) then
484 null;
485 else
486 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('YEAR_START_DATE',tlinfo.YEAR_START_DATE);
487 end if;
488
489 if ((tlinfo.COMMENTS = X_COMMENTS)
490 OR ((tlinfo.COMMENTS is null) AND (X_COMMENTS is null))) then
491 null;
492 else
493 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('COMMENTS',tlinfo.COMMENTS);
494 end if;
495
496 if ((tlinfo.VRG_REPTG_FREQ_CODE = X_VRG_REPTG_FREQ_CODE)
497 OR ((tlinfo.VRG_REPTG_FREQ_CODE is null) AND (X_VRG_REPTG_FREQ_CODE is null))) then
498 null;
499 else
500 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VRG_REPTG_FREQ_CODE',tlinfo.VRG_REPTG_FREQ_CODE);
501 end if;
502
503 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.LOCK_ROW (-)');
504
505 END LOCK_ROW;
506
507 -------------------------------------------------------------------------------
508 -- PROCDURE : UPDATE_ROW
509 -- INVOKED FROM : UPDATE_ROW procedure
510 -- PURPOSE : updates the row
511 -- HISTORY :
512 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_RENT_DATES with _ALL
513 -- table.
514 -------------------------------------------------------------------------------
515 procedure UPDATE_ROW (
516 X_VAR_RENT_DATE_ID in NUMBER,
517 X_VAR_RENT_ID in NUMBER,
518 X_GL_PERIOD_SET_NAME in VARCHAR2,
519 X_PERIOD_FREQ_CODE in VARCHAR2,
520 X_REPTG_FREQ_CODE in VARCHAR2,
521 X_REPTG_DAY_OF_MONTH in NUMBER,
522 X_REPTG_DAYS_AFTER in NUMBER,
523 X_INVG_FREQ_CODE in VARCHAR2,
524 X_INVG_DAY_OF_MONTH in NUMBER,
525 X_INVG_DAYS_AFTER in NUMBER,
526 X_INVG_SPREAD_CODE in VARCHAR2,
527 X_INVG_TERM in NUMBER,
528 X_AUDIT_FREQ_CODE in VARCHAR2,
529 X_AUDIT_DAY_OF_MONTH in NUMBER,
530 X_AUDIT_DAYS_AFTER in NUMBER,
531 X_RECON_FREQ_CODE in VARCHAR2,
532 X_RECON_DAY_OF_MONTH in NUMBER,
533 X_RECON_DAYS_AFTER in NUMBER,
534 X_ATTRIBUTE_CATEGORY in VARCHAR2,
535 X_ATTRIBUTE1 in VARCHAR2,
536 X_ATTRIBUTE2 in VARCHAR2,
537 X_ATTRIBUTE3 in VARCHAR2,
538 X_ATTRIBUTE4 in VARCHAR2,
539 X_ATTRIBUTE5 in VARCHAR2,
540 X_ATTRIBUTE6 in VARCHAR2,
541 X_ATTRIBUTE7 in VARCHAR2,
542 X_ATTRIBUTE8 in VARCHAR2,
543 X_ATTRIBUTE9 in VARCHAR2,
544 X_ATTRIBUTE10 in VARCHAR2,
545 X_ATTRIBUTE11 in VARCHAR2,
546 X_ATTRIBUTE12 in VARCHAR2,
547 X_ATTRIBUTE13 in VARCHAR2,
548 X_ATTRIBUTE14 in VARCHAR2,
549 X_ATTRIBUTE15 in VARCHAR2,
550 X_LAST_UPDATE_DATE in DATE,
551 X_LAST_UPDATED_BY in NUMBER,
552 X_LAST_UPDATE_LOGIN in NUMBER,
553 X_USE_GL_CALENDAR in VARCHAR2,
554 X_PERIOD_TYPE in VARCHAR2,
555 X_YEAR_START_DATE in DATE,
556 X_COMMENTS in VARCHAR2,
557 X_VRG_REPTG_FREQ_CODE in VARCHAR2
558 )
559 IS
560 BEGIN
561
562 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.UPDATE_ROW (+)');
563
564 UPDATE PN_VAR_RENT_DATES_ALL
565 SET
566 VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID,
567 VAR_RENT_ID = X_VAR_RENT_ID,
568 GL_PERIOD_SET_NAME = X_GL_PERIOD_SET_NAME,
569 PERIOD_FREQ_CODE = X_PERIOD_FREQ_CODE,
570 REPTG_FREQ_CODE = X_REPTG_FREQ_CODE,
571 REPTG_DAY_OF_MONTH = X_REPTG_DAY_OF_MONTH,
572 REPTG_DAYS_AFTER = X_REPTG_DAYS_AFTER,
573 INVG_FREQ_CODE = X_INVG_FREQ_CODE,
574 INVG_DAY_OF_MONTH = X_INVG_DAY_OF_MONTH,
575 INVG_DAYS_AFTER = X_INVG_DAYS_AFTER,
579 AUDIT_DAY_OF_MONTH = X_AUDIT_DAY_OF_MONTH,
576 INVG_SPREAD_CODE = X_INVG_SPREAD_CODE,
577 INVG_TERM = X_INVG_TERM,
578 AUDIT_FREQ_CODE = X_AUDIT_FREQ_CODE,
580 AUDIT_DAYS_AFTER = X_AUDIT_DAYS_AFTER,
581 RECON_FREQ_CODE = X_RECON_FREQ_CODE,
582 RECON_DAY_OF_MONTH = X_RECON_DAY_OF_MONTH,
583 RECON_DAYS_AFTER = X_RECON_DAYS_AFTER,
584 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
585 ATTRIBUTE1 = X_ATTRIBUTE1,
586 ATTRIBUTE2 = X_ATTRIBUTE2,
587 ATTRIBUTE3 = X_ATTRIBUTE3,
588 ATTRIBUTE4 = X_ATTRIBUTE4,
589 ATTRIBUTE5 = X_ATTRIBUTE5,
590 ATTRIBUTE6 = X_ATTRIBUTE6,
591 ATTRIBUTE7 = X_ATTRIBUTE7,
592 ATTRIBUTE8 = X_ATTRIBUTE8,
593 ATTRIBUTE9 = X_ATTRIBUTE9,
594 ATTRIBUTE10 = X_ATTRIBUTE10,
595 ATTRIBUTE11 = X_ATTRIBUTE11,
596 ATTRIBUTE12 = X_ATTRIBUTE12,
597 ATTRIBUTE13 = X_ATTRIBUTE13,
598 ATTRIBUTE14 = X_ATTRIBUTE14,
599 ATTRIBUTE15 = X_ATTRIBUTE15,
600 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
601 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
602 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
603 USE_GL_CALENDAR = X_USE_GL_CALENDAR,
604 PERIOD_TYPE = X_PERIOD_TYPE,
605 YEAR_START_DATE = X_YEAR_START_DATE,
606 COMMENTS = X_COMMENTS,
607 VRG_REPTG_FREQ_CODE = X_VRG_REPTG_FREQ_CODE
608 WHERE VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID ;
609
610 IF (sql%notfound) THEN
611 RAISE NO_DATA_FOUND;
612 END IF;
613
614 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.UPDATE_ROW (-)');
615
616 END UPDATE_ROW;
617
618 -------------------------------------------------------------------------------
619 -- PROCDURE : DELETE_ROW
620 -- INVOKED FROM : DELETE_ROW procedure
621 -- PURPOSE : deletes the row
622 -- HISTORY :
623 -- 04-JUL-05 piagrawa o Bug 4284035 - Replaced PN_VAR_RENT_DATES with _ALL
624 -- table.
625 -------------------------------------------------------------------------------
626
627 procedure DELETE_ROW
628 (
629 X_VAR_RENT_DATE_ID in NUMBER
630 )
631 IS
632 BEGIN
633
634 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.DELETE_ROW (+)');
635
636 DELETE FROM PN_VAR_RENT_DATES_ALL
637 WHERE VAR_RENT_DATE_ID = X_VAR_RENT_DATE_ID;
638
639 IF (sql%notfound) THEN
640 RAISE NO_DATA_FOUND;
641 END IF;
642
643 PNP_DEBUG_PKG.debug ('PN_VAR_RENT_DATES_PKG.DELETE_ROW (-)');
644
645 END DELETE_ROW;
646
647 END PN_VAR_RENT_DATES_PKG;
[Home] [Help]