[Home] [Help]
PACKAGE BODY: APPS.IGS_FI_LB_RECT_ERRS_PKG
Source
1 PACKAGE BODY igs_fi_lb_rect_errs_pkg AS
2 /* $Header: IGSSID5B.pls 115.0 2003/06/19 06:32:36 agairola noship $ */
3
4 l_rowid VARCHAR2(25);
5 old_references igs_fi_lb_rect_errs%ROWTYPE;
6 new_references igs_fi_lb_rect_errs%ROWTYPE;
7
8 PROCEDURE set_column_values (
9 p_action IN VARCHAR2,
10 x_rowid IN VARCHAR2,
11 x_lockbox_receipt_error_id IN NUMBER,
12 x_lockbox_interface_id IN NUMBER,
13 x_item_number IN NUMBER,
14 x_lockbox_name IN VARCHAR2,
15 x_receipt_amt IN NUMBER,
16 x_batch_name IN VARCHAR2,
17 x_party_number IN VARCHAR2,
18 x_payer_name IN VARCHAR2,
19 x_check_cd IN VARCHAR2,
20 x_deposit_date IN DATE,
21 x_credit_type_cd IN VARCHAR2,
22 x_fee_cal_instance_cd IN VARCHAR2,
23 x_charge_cd1 IN VARCHAR2,
24 x_charge_cd2 IN VARCHAR2,
25 x_charge_cd3 IN VARCHAR2,
26 x_charge_cd4 IN VARCHAR2,
27 x_charge_cd5 IN VARCHAR2,
28 x_charge_cd6 IN VARCHAR2,
29 x_charge_cd7 IN VARCHAR2,
30 x_charge_cd8 IN VARCHAR2,
31 x_applied_amt1 IN NUMBER,
32 x_applied_amt2 IN NUMBER,
33 x_applied_amt3 IN NUMBER,
34 x_applied_amt4 IN NUMBER,
35 x_applied_amt5 IN NUMBER,
36 x_applied_amt6 IN NUMBER,
37 x_applied_amt7 IN NUMBER,
38 x_applied_amt8 IN NUMBER,
39 x_adm_application_id IN NUMBER,
40 x_attribute_category IN VARCHAR2,
41 x_attribute1 IN VARCHAR2,
42 x_attribute2 IN VARCHAR2,
43 x_attribute3 IN VARCHAR2,
44 x_attribute4 IN VARCHAR2,
45 x_attribute5 IN VARCHAR2,
46 x_attribute6 IN VARCHAR2,
47 x_attribute7 IN VARCHAR2,
48 x_attribute8 IN VARCHAR2,
49 x_attribute9 IN VARCHAR2,
50 x_attribute10 IN VARCHAR2,
51 x_attribute11 IN VARCHAR2,
52 x_attribute12 IN VARCHAR2,
53 x_attribute13 IN VARCHAR2,
54 x_attribute14 IN VARCHAR2,
55 x_attribute15 IN VARCHAR2,
56 x_attribute16 IN VARCHAR2,
57 x_attribute17 IN VARCHAR2,
58 x_attribute18 IN VARCHAR2,
59 x_attribute19 IN VARCHAR2,
60 x_attribute20 IN VARCHAR2,
61 x_creation_date IN DATE,
62 x_created_by IN NUMBER,
63 x_last_update_date IN DATE,
64 x_last_updated_by IN NUMBER,
65 x_last_update_login IN NUMBER
66 ) AS
67 /*
68 || Created By : [email protected]
69 || Created On : 05-JUN-2003
70 || Purpose : Initialises the Old and New references for the columns of the table.
71 || Known limitations, enhancements or remarks :
72 || Change History :
73 || Who When What
74 || (reverse chronological order - newest change first)
75 */
76
77 CURSOR cur_old_ref_values IS
78 SELECT *
79 FROM igs_fi_lb_rect_errs
80 WHERE rowid = x_rowid;
81
82 BEGIN
83
84 l_rowid := x_rowid;
85
86 -- Code for setting the Old and New Reference Values.
87 -- Populate Old Values.
88 OPEN cur_old_ref_values;
89 FETCH cur_old_ref_values INTO old_references;
90 IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
91 CLOSE cur_old_ref_values;
92 fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
93 igs_ge_msg_stack.add;
94 app_exception.raise_exception;
95 RETURN;
96 END IF;
97 CLOSE cur_old_ref_values;
98
99 -- Populate New Values.
100 new_references.lockbox_receipt_error_id := x_lockbox_receipt_error_id;
101 new_references.lockbox_interface_id := x_lockbox_interface_id;
102 new_references.item_number := x_item_number;
103 new_references.lockbox_name := x_lockbox_name;
104 new_references.receipt_amt := x_receipt_amt;
105 new_references.batch_name := x_batch_name;
106 new_references.party_number := x_party_number;
107 new_references.payer_name := x_payer_name;
108 new_references.check_cd := x_check_cd;
109 new_references.deposit_date := x_deposit_date;
110 new_references.credit_type_cd := x_credit_type_cd;
111 new_references.fee_cal_instance_cd := x_fee_cal_instance_cd;
112 new_references.charge_cd1 := x_charge_cd1;
113 new_references.charge_cd2 := x_charge_cd2;
114 new_references.charge_cd3 := x_charge_cd3;
115 new_references.charge_cd4 := x_charge_cd4;
116 new_references.charge_cd5 := x_charge_cd5;
117 new_references.charge_cd6 := x_charge_cd6;
118 new_references.charge_cd7 := x_charge_cd7;
119 new_references.charge_cd8 := x_charge_cd8;
120 new_references.applied_amt1 := x_applied_amt1;
121 new_references.applied_amt2 := x_applied_amt2;
122 new_references.applied_amt3 := x_applied_amt3;
123 new_references.applied_amt4 := x_applied_amt4;
124 new_references.applied_amt5 := x_applied_amt5;
125 new_references.applied_amt6 := x_applied_amt6;
126 new_references.applied_amt7 := x_applied_amt7;
127 new_references.applied_amt8 := x_applied_amt8;
128 new_references.adm_application_id := x_adm_application_id;
129 new_references.attribute_category := x_attribute_category;
130 new_references.attribute1 := x_attribute1;
131 new_references.attribute2 := x_attribute2;
132 new_references.attribute3 := x_attribute3;
133 new_references.attribute4 := x_attribute4;
134 new_references.attribute5 := x_attribute5;
135 new_references.attribute6 := x_attribute6;
136 new_references.attribute7 := x_attribute7;
137 new_references.attribute8 := x_attribute8;
138 new_references.attribute9 := x_attribute9;
139 new_references.attribute10 := x_attribute10;
140 new_references.attribute11 := x_attribute11;
141 new_references.attribute12 := x_attribute12;
142 new_references.attribute13 := x_attribute13;
143 new_references.attribute14 := x_attribute14;
144 new_references.attribute15 := x_attribute15;
145 new_references.attribute16 := x_attribute16;
146 new_references.attribute17 := x_attribute17;
147 new_references.attribute18 := x_attribute18;
148 new_references.attribute19 := x_attribute19;
149 new_references.attribute20 := x_attribute20;
150
151 IF (p_action = 'UPDATE') THEN
152 new_references.creation_date := old_references.creation_date;
153 new_references.created_by := old_references.created_by;
154 ELSE
155 new_references.creation_date := x_creation_date;
156 new_references.created_by := x_created_by;
157 END IF;
158
159 new_references.last_update_date := x_last_update_date;
160 new_references.last_updated_by := x_last_updated_by;
161 new_references.last_update_login := x_last_update_login;
162
163 END set_column_values;
164
165
166 PROCEDURE check_parent_existance AS
167 /*
168 || Created By : [email protected]
169 || Created On : 05-JUN-2003
170 || Purpose : Checks for the existance of Parent records.
171 || Known limitations, enhancements or remarks :
172 || Change History :
173 || Who When What
174 || (reverse chronological order - newest change first)
175 */
176 BEGIN
177
178 IF (((old_references.lockbox_name = new_references.lockbox_name)) OR
179 ((new_references.lockbox_name IS NULL))) THEN
180 NULL;
181 ELSIF NOT igs_fi_lockboxes_pkg.get_pk_for_validation (
182 new_references.lockbox_name
183 ) THEN
184 fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
185 igs_ge_msg_stack.add;
186 app_exception.raise_exception;
187 END IF;
188
189 END check_parent_existance;
190
191
192 PROCEDURE check_child_existance AS
193 /*
194 || Created By : [email protected]
195 || Created On : 05-JUN-2003
196 || Purpose : Checks for the existance of Child records.
197 || Known limitations, enhancements or remarks :
198 || Change History :
199 || Who When What
200 || (reverse chronological order - newest change first)
201 */
202 BEGIN
203
204 igs_fi_lb_ovfl_errs_pkg.get_fk_igs_fi_lb_rect_errs (
205 old_references.lockbox_receipt_error_id
206 );
207
208 END check_child_existance;
209
210
211 FUNCTION get_pk_for_validation (
212 x_lockbox_receipt_error_id IN NUMBER
213 ) RETURN BOOLEAN AS
214 /*
215 || Created By : [email protected]
216 || Created On : 05-JUN-2003
217 || Purpose : Validates the Primary Key of the table.
218 || Known limitations, enhancements or remarks :
219 || Change History :
220 || Who When What
221 || (reverse chronological order - newest change first)
222 */
223 CURSOR cur_rowid IS
224 SELECT rowid
225 FROM igs_fi_lb_rect_errs
226 WHERE lockbox_receipt_error_id = x_lockbox_receipt_error_id
227 FOR UPDATE NOWAIT;
228
229 lv_rowid cur_rowid%RowType;
230
231 BEGIN
232
233 OPEN cur_rowid;
234 FETCH cur_rowid INTO lv_rowid;
235 IF (cur_rowid%FOUND) THEN
236 CLOSE cur_rowid;
237 RETURN(TRUE);
238 ELSE
239 CLOSE cur_rowid;
240 RETURN(FALSE);
241 END IF;
242
243 END get_pk_for_validation;
244
245 PROCEDURE before_dml (
246 p_action IN VARCHAR2,
247 x_rowid IN VARCHAR2,
248 x_lockbox_receipt_error_id IN NUMBER,
249 x_lockbox_interface_id IN NUMBER,
250 x_item_number IN NUMBER,
251 x_lockbox_name IN VARCHAR2,
252 x_receipt_amt IN NUMBER,
253 x_batch_name IN VARCHAR2,
254 x_party_number IN VARCHAR2,
255 x_payer_name IN VARCHAR2,
256 x_check_cd IN VARCHAR2,
257 x_deposit_date IN DATE,
258 x_credit_type_cd IN VARCHAR2,
259 x_fee_cal_instance_cd IN VARCHAR2,
260 x_charge_cd1 IN VARCHAR2,
261 x_charge_cd2 IN VARCHAR2,
262 x_charge_cd3 IN VARCHAR2,
263 x_charge_cd4 IN VARCHAR2,
264 x_charge_cd5 IN VARCHAR2,
265 x_charge_cd6 IN VARCHAR2,
266 x_charge_cd7 IN VARCHAR2,
267 x_charge_cd8 IN VARCHAR2,
268 x_applied_amt1 IN NUMBER,
269 x_applied_amt2 IN NUMBER,
270 x_applied_amt3 IN NUMBER,
271 x_applied_amt4 IN NUMBER,
272 x_applied_amt5 IN NUMBER,
273 x_applied_amt6 IN NUMBER,
274 x_applied_amt7 IN NUMBER,
275 x_applied_amt8 IN NUMBER,
276 x_adm_application_id IN NUMBER,
277 x_attribute_category IN VARCHAR2,
278 x_attribute1 IN VARCHAR2,
279 x_attribute2 IN VARCHAR2,
280 x_attribute3 IN VARCHAR2,
281 x_attribute4 IN VARCHAR2,
282 x_attribute5 IN VARCHAR2,
283 x_attribute6 IN VARCHAR2,
284 x_attribute7 IN VARCHAR2,
285 x_attribute8 IN VARCHAR2,
286 x_attribute9 IN VARCHAR2,
287 x_attribute10 IN VARCHAR2,
288 x_attribute11 IN VARCHAR2,
289 x_attribute12 IN VARCHAR2,
290 x_attribute13 IN VARCHAR2,
291 x_attribute14 IN VARCHAR2,
292 x_attribute15 IN VARCHAR2,
293 x_attribute16 IN VARCHAR2,
294 x_attribute17 IN VARCHAR2,
295 x_attribute18 IN VARCHAR2,
296 x_attribute19 IN VARCHAR2,
297 x_attribute20 IN VARCHAR2,
298 x_creation_date IN DATE,
299 x_created_by IN NUMBER,
300 x_last_update_date IN DATE,
301 x_last_updated_by IN NUMBER,
302 x_last_update_login IN NUMBER
303 ) AS
304 /*
305 || Created By : [email protected]
306 || Created On : 05-JUN-2003
307 || Purpose : Initialises the columns, Checks Constraints, Calls the
308 || Trigger Handlers for the table, before any DML operation.
309 || Known limitations, enhancements or remarks :
310 || Change History :
311 || Who When What
312 || (reverse chronological order - newest change first)
313 */
314 BEGIN
315
316 set_column_values (
317 p_action,
318 x_rowid,
319 x_lockbox_receipt_error_id,
320 x_lockbox_interface_id,
321 x_item_number,
322 x_lockbox_name,
323 x_receipt_amt,
324 x_batch_name,
325 x_party_number,
326 x_payer_name,
327 x_check_cd,
328 x_deposit_date,
329 x_credit_type_cd,
330 x_fee_cal_instance_cd,
331 x_charge_cd1,
332 x_charge_cd2,
333 x_charge_cd3,
334 x_charge_cd4,
335 x_charge_cd5,
336 x_charge_cd6,
337 x_charge_cd7,
338 x_charge_cd8,
339 x_applied_amt1,
340 x_applied_amt2,
341 x_applied_amt3,
342 x_applied_amt4,
343 x_applied_amt5,
344 x_applied_amt6,
345 x_applied_amt7,
346 x_applied_amt8,
347 x_adm_application_id,
348 x_attribute_category,
349 x_attribute1,
350 x_attribute2,
351 x_attribute3,
352 x_attribute4,
353 x_attribute5,
354 x_attribute6,
355 x_attribute7,
356 x_attribute8,
357 x_attribute9,
358 x_attribute10,
359 x_attribute11,
360 x_attribute12,
361 x_attribute13,
362 x_attribute14,
363 x_attribute15,
364 x_attribute16,
365 x_attribute17,
366 x_attribute18,
367 x_attribute19,
368 x_attribute20,
369 x_creation_date,
370 x_created_by,
371 x_last_update_date,
372 x_last_updated_by,
373 x_last_update_login
374 );
375
376 IF (p_action = 'INSERT') THEN
377 -- Call all the procedures related to Before Insert.
378 IF ( get_pk_for_validation(
379 new_references.lockbox_receipt_error_id
380 )
381 ) THEN
382 fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
383 igs_ge_msg_stack.add;
384 app_exception.raise_exception;
385 END IF;
386 check_parent_existance;
387 ELSIF (p_action = 'UPDATE') THEN
388 -- Call all the procedures related to Before Update.
389 check_parent_existance;
390 ELSIF (p_action = 'DELETE') THEN
391 -- Call all the procedures related to Before Delete.
392 check_child_existance;
393 ELSIF (p_action = 'VALIDATE_INSERT') THEN
394 -- Call all the procedures related to Before Insert.
395 IF ( get_pk_for_validation (
396 new_references.lockbox_receipt_error_id
397 )
398 ) THEN
399 fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
400 igs_ge_msg_stack.add;
401 app_exception.raise_exception;
402 END IF;
403 ELSIF (p_action = 'VALIDATE_DELETE') THEN
404 check_child_existance;
405 END IF;
406
407 END before_dml;
408
409
410 PROCEDURE insert_row (
411 x_rowid IN OUT NOCOPY VARCHAR2,
412 x_lockbox_receipt_error_id IN OUT NOCOPY NUMBER,
413 x_lockbox_interface_id IN NUMBER,
414 x_item_number IN NUMBER,
415 x_lockbox_name IN VARCHAR2,
416 x_receipt_amt IN NUMBER,
417 x_batch_name IN VARCHAR2,
418 x_party_number IN VARCHAR2,
419 x_payer_name IN VARCHAR2,
420 x_check_cd IN VARCHAR2,
421 x_deposit_date IN DATE,
422 x_credit_type_cd IN VARCHAR2,
423 x_fee_cal_instance_cd IN VARCHAR2,
424 x_charge_cd1 IN VARCHAR2,
425 x_charge_cd2 IN VARCHAR2,
426 x_charge_cd3 IN VARCHAR2,
427 x_charge_cd4 IN VARCHAR2,
428 x_charge_cd5 IN VARCHAR2,
429 x_charge_cd6 IN VARCHAR2,
430 x_charge_cd7 IN VARCHAR2,
431 x_charge_cd8 IN VARCHAR2,
432 x_applied_amt1 IN NUMBER,
433 x_applied_amt2 IN NUMBER,
434 x_applied_amt3 IN NUMBER,
435 x_applied_amt4 IN NUMBER,
436 x_applied_amt5 IN NUMBER,
437 x_applied_amt6 IN NUMBER,
438 x_applied_amt7 IN NUMBER,
439 x_applied_amt8 IN NUMBER,
440 x_adm_application_id IN NUMBER,
441 x_attribute_category IN VARCHAR2,
442 x_attribute1 IN VARCHAR2,
443 x_attribute2 IN VARCHAR2,
444 x_attribute3 IN VARCHAR2,
445 x_attribute4 IN VARCHAR2,
446 x_attribute5 IN VARCHAR2,
447 x_attribute6 IN VARCHAR2,
448 x_attribute7 IN VARCHAR2,
449 x_attribute8 IN VARCHAR2,
450 x_attribute9 IN VARCHAR2,
451 x_attribute10 IN VARCHAR2,
452 x_attribute11 IN VARCHAR2,
453 x_attribute12 IN VARCHAR2,
454 x_attribute13 IN VARCHAR2,
455 x_attribute14 IN VARCHAR2,
456 x_attribute15 IN VARCHAR2,
457 x_attribute16 IN VARCHAR2,
458 x_attribute17 IN VARCHAR2,
459 x_attribute18 IN VARCHAR2,
460 x_attribute19 IN VARCHAR2,
461 x_attribute20 IN VARCHAR2,
462 x_mode IN VARCHAR2
463 ) AS
464 /*
465 || Created By : [email protected]
466 || Created On : 05-JUN-2003
467 || Purpose : Handles the INSERT DML logic for the table.
468 || Known limitations, enhancements or remarks :
469 || Change History :
470 || Who When What
471 || (reverse chronological order - newest change first)
472 */
473
474 x_last_update_date DATE;
475 x_last_updated_by NUMBER;
476 x_last_update_login NUMBER;
477 x_request_id NUMBER;
478 x_program_id NUMBER;
479 x_program_application_id NUMBER;
480 x_program_update_date DATE;
481
482 BEGIN
483
484 x_last_update_date := SYSDATE;
485 IF (x_mode = 'I') THEN
486 x_last_updated_by := 1;
487 x_last_update_login := 0;
488 ELSIF (x_mode = 'R') THEN
489 x_last_updated_by := fnd_global.user_id;
490 IF (x_last_updated_by IS NULL) THEN
491 x_last_updated_by := -1;
492 END IF;
493 x_last_update_login := fnd_global.login_id;
494 IF (x_last_update_login IS NULL) THEN
495 x_last_update_login := -1;
496 END IF;
497 x_request_id := fnd_global.conc_request_id;
498 x_program_id := fnd_global.conc_program_id;
499 x_program_application_id := fnd_global.prog_appl_id;
500
501 IF (x_request_id = -1) THEN
502 x_request_id := NULL;
503 x_program_id := NULL;
504 x_program_application_id := NULL;
505 x_program_update_date := NULL;
506 ELSE
507 x_program_update_date := SYSDATE;
508 END IF;
509 ELSE
510 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
511 fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_RECT_ERRS_PKG.INSERT_ROW');
512 igs_ge_msg_stack.add;
513 app_exception.raise_exception;
514 END IF;
515
516 SELECT igs_fi_lb_rect_errs_s.NEXTVAL
517 INTO x_lockbox_receipt_error_id
518 FROM dual;
519
520 before_dml(
521 p_action => 'INSERT',
522 x_rowid => x_rowid,
523 x_lockbox_receipt_error_id => x_lockbox_receipt_error_id,
524 x_lockbox_interface_id => x_lockbox_interface_id,
525 x_item_number => x_item_number,
526 x_lockbox_name => x_lockbox_name,
527 x_receipt_amt => x_receipt_amt,
528 x_batch_name => x_batch_name,
529 x_party_number => x_party_number,
530 x_payer_name => x_payer_name,
531 x_check_cd => x_check_cd,
532 x_deposit_date => x_deposit_date,
533 x_credit_type_cd => x_credit_type_cd,
534 x_fee_cal_instance_cd => x_fee_cal_instance_cd,
535 x_charge_cd1 => x_charge_cd1,
536 x_charge_cd2 => x_charge_cd2,
537 x_charge_cd3 => x_charge_cd3,
538 x_charge_cd4 => x_charge_cd4,
539 x_charge_cd5 => x_charge_cd5,
540 x_charge_cd6 => x_charge_cd6,
541 x_charge_cd7 => x_charge_cd7,
542 x_charge_cd8 => x_charge_cd8,
543 x_applied_amt1 => x_applied_amt1,
544 x_applied_amt2 => x_applied_amt2,
545 x_applied_amt3 => x_applied_amt3,
546 x_applied_amt4 => x_applied_amt4,
547 x_applied_amt5 => x_applied_amt5,
548 x_applied_amt6 => x_applied_amt6,
549 x_applied_amt7 => x_applied_amt7,
550 x_applied_amt8 => x_applied_amt8,
551 x_adm_application_id => x_adm_application_id,
552 x_attribute_category => x_attribute_category,
553 x_attribute1 => x_attribute1,
554 x_attribute2 => x_attribute2,
555 x_attribute3 => x_attribute3,
556 x_attribute4 => x_attribute4,
557 x_attribute5 => x_attribute5,
558 x_attribute6 => x_attribute6,
559 x_attribute7 => x_attribute7,
560 x_attribute8 => x_attribute8,
561 x_attribute9 => x_attribute9,
562 x_attribute10 => x_attribute10,
563 x_attribute11 => x_attribute11,
564 x_attribute12 => x_attribute12,
565 x_attribute13 => x_attribute13,
566 x_attribute14 => x_attribute14,
567 x_attribute15 => x_attribute15,
568 x_attribute16 => x_attribute16,
569 x_attribute17 => x_attribute17,
570 x_attribute18 => x_attribute18,
571 x_attribute19 => x_attribute19,
572 x_attribute20 => x_attribute20,
573 x_creation_date => x_last_update_date,
574 x_created_by => x_last_updated_by,
575 x_last_update_date => x_last_update_date,
576 x_last_updated_by => x_last_updated_by,
577 x_last_update_login => x_last_update_login
578 );
579
580 INSERT INTO igs_fi_lb_rect_errs (
581 lockbox_receipt_error_id,
582 lockbox_interface_id,
583 item_number,
584 lockbox_name,
585 receipt_amt,
586 batch_name,
587 party_number,
588 payer_name,
589 check_cd,
590 deposit_date,
591 credit_type_cd,
592 fee_cal_instance_cd,
593 charge_cd1,
594 charge_cd2,
595 charge_cd3,
596 charge_cd4,
597 charge_cd5,
598 charge_cd6,
599 charge_cd7,
600 charge_cd8,
601 applied_amt1,
602 applied_amt2,
603 applied_amt3,
604 applied_amt4,
605 applied_amt5,
606 applied_amt6,
607 applied_amt7,
608 applied_amt8,
609 adm_application_id,
610 attribute_category,
611 attribute1,
612 attribute2,
613 attribute3,
614 attribute4,
615 attribute5,
616 attribute6,
617 attribute7,
618 attribute8,
619 attribute9,
620 attribute10,
621 attribute11,
622 attribute12,
623 attribute13,
624 attribute14,
625 attribute15,
626 attribute16,
627 attribute17,
628 attribute18,
629 attribute19,
630 attribute20,
631 creation_date,
632 created_by,
633 last_update_date,
634 last_updated_by,
635 last_update_login,
636 request_id,
637 program_id,
638 program_application_id,
639 program_update_date
640 ) VALUES (
641 new_references.lockbox_receipt_error_id,
642 new_references.lockbox_interface_id,
643 new_references.item_number,
644 new_references.lockbox_name,
645 new_references.receipt_amt,
646 new_references.batch_name,
647 new_references.party_number,
648 new_references.payer_name,
649 new_references.check_cd,
650 new_references.deposit_date,
651 new_references.credit_type_cd,
652 new_references.fee_cal_instance_cd,
653 new_references.charge_cd1,
654 new_references.charge_cd2,
655 new_references.charge_cd3,
656 new_references.charge_cd4,
657 new_references.charge_cd5,
658 new_references.charge_cd6,
659 new_references.charge_cd7,
660 new_references.charge_cd8,
661 new_references.applied_amt1,
662 new_references.applied_amt2,
663 new_references.applied_amt3,
664 new_references.applied_amt4,
665 new_references.applied_amt5,
666 new_references.applied_amt6,
667 new_references.applied_amt7,
668 new_references.applied_amt8,
669 new_references.adm_application_id,
670 new_references.attribute_category,
671 new_references.attribute1,
672 new_references.attribute2,
673 new_references.attribute3,
674 new_references.attribute4,
675 new_references.attribute5,
676 new_references.attribute6,
677 new_references.attribute7,
678 new_references.attribute8,
679 new_references.attribute9,
680 new_references.attribute10,
681 new_references.attribute11,
682 new_references.attribute12,
683 new_references.attribute13,
684 new_references.attribute14,
685 new_references.attribute15,
686 new_references.attribute16,
687 new_references.attribute17,
688 new_references.attribute18,
689 new_references.attribute19,
690 new_references.attribute20,
691 x_last_update_date,
692 x_last_updated_by,
693 x_last_update_date,
694 x_last_updated_by,
695 x_last_update_login ,
696 x_request_id,
697 x_program_id,
698 x_program_application_id,
699 x_program_update_date
700 ) RETURNING ROWID INTO x_rowid;
701
702 END insert_row;
703
704
705 PROCEDURE lock_row (
706 x_rowid IN VARCHAR2,
707 x_lockbox_receipt_error_id IN NUMBER,
708 x_lockbox_interface_id IN NUMBER,
709 x_item_number IN NUMBER,
710 x_lockbox_name IN VARCHAR2,
711 x_receipt_amt IN NUMBER,
712 x_batch_name IN VARCHAR2,
713 x_party_number IN VARCHAR2,
714 x_payer_name IN VARCHAR2,
715 x_check_cd IN VARCHAR2,
716 x_deposit_date IN DATE,
717 x_credit_type_cd IN VARCHAR2,
718 x_fee_cal_instance_cd IN VARCHAR2,
719 x_charge_cd1 IN VARCHAR2,
720 x_charge_cd2 IN VARCHAR2,
721 x_charge_cd3 IN VARCHAR2,
722 x_charge_cd4 IN VARCHAR2,
723 x_charge_cd5 IN VARCHAR2,
724 x_charge_cd6 IN VARCHAR2,
725 x_charge_cd7 IN VARCHAR2,
726 x_charge_cd8 IN VARCHAR2,
727 x_applied_amt1 IN NUMBER,
728 x_applied_amt2 IN NUMBER,
729 x_applied_amt3 IN NUMBER,
730 x_applied_amt4 IN NUMBER,
731 x_applied_amt5 IN NUMBER,
732 x_applied_amt6 IN NUMBER,
733 x_applied_amt7 IN NUMBER,
734 x_applied_amt8 IN NUMBER,
735 x_adm_application_id IN NUMBER,
736 x_attribute_category IN VARCHAR2,
737 x_attribute1 IN VARCHAR2,
738 x_attribute2 IN VARCHAR2,
739 x_attribute3 IN VARCHAR2,
740 x_attribute4 IN VARCHAR2,
741 x_attribute5 IN VARCHAR2,
742 x_attribute6 IN VARCHAR2,
743 x_attribute7 IN VARCHAR2,
744 x_attribute8 IN VARCHAR2,
745 x_attribute9 IN VARCHAR2,
746 x_attribute10 IN VARCHAR2,
747 x_attribute11 IN VARCHAR2,
748 x_attribute12 IN VARCHAR2,
749 x_attribute13 IN VARCHAR2,
750 x_attribute14 IN VARCHAR2,
751 x_attribute15 IN VARCHAR2,
752 x_attribute16 IN VARCHAR2,
753 x_attribute17 IN VARCHAR2,
754 x_attribute18 IN VARCHAR2,
755 x_attribute19 IN VARCHAR2,
756 x_attribute20 IN VARCHAR2
757 ) AS
758 /*
759 || Created By : [email protected]
760 || Created On : 05-JUN-2003
761 || Purpose : Handles the LOCK mechanism for the table.
762 || Known limitations, enhancements or remarks :
763 || Change History :
764 || Who When What
765 || (reverse chronological order - newest change first)
766 */
767 CURSOR c1 IS
768 SELECT
769 lockbox_interface_id,
770 item_number,
771 lockbox_name,
772 receipt_amt,
773 batch_name,
774 party_number,
775 payer_name,
776 check_cd,
777 deposit_date,
778 credit_type_cd,
779 fee_cal_instance_cd,
780 charge_cd1,
781 charge_cd2,
782 charge_cd3,
783 charge_cd4,
784 charge_cd5,
785 charge_cd6,
786 charge_cd7,
787 charge_cd8,
788 applied_amt1,
789 applied_amt2,
790 applied_amt3,
791 applied_amt4,
792 applied_amt5,
793 applied_amt6,
794 applied_amt7,
795 applied_amt8,
796 adm_application_id,
797 attribute_category,
798 attribute1,
799 attribute2,
800 attribute3,
801 attribute4,
802 attribute5,
803 attribute6,
804 attribute7,
805 attribute8,
806 attribute9,
807 attribute10,
808 attribute11,
809 attribute12,
810 attribute13,
811 attribute14,
812 attribute15,
813 attribute16,
814 attribute17,
815 attribute18,
816 attribute19,
817 attribute20
818 FROM igs_fi_lb_rect_errs
819 WHERE rowid = x_rowid
820 FOR UPDATE NOWAIT;
821
822 tlinfo c1%ROWTYPE;
823
824 BEGIN
825
826 OPEN c1;
827 FETCH c1 INTO tlinfo;
828 IF (c1%notfound) THEN
829 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
830 igs_ge_msg_stack.add;
831 CLOSE c1;
832 app_exception.raise_exception;
833 RETURN;
834 END IF;
835 CLOSE c1;
836
837 IF (
838 (tlinfo.lockbox_interface_id = x_lockbox_interface_id)
839 AND (tlinfo.item_number = x_item_number)
840 AND (tlinfo.lockbox_name = x_lockbox_name)
841 AND (tlinfo.receipt_amt = x_receipt_amt)
842 AND ((tlinfo.batch_name = x_batch_name) OR ((tlinfo.batch_name IS NULL) AND (X_batch_name IS NULL)))
843 AND ((tlinfo.party_number = x_party_number) OR ((tlinfo.party_number IS NULL) AND (X_party_number IS NULL)))
844 AND ((tlinfo.payer_name = x_payer_name) OR ((tlinfo.payer_name IS NULL) AND (X_payer_name IS NULL)))
845 AND ((tlinfo.check_cd = x_check_cd) OR ((tlinfo.check_cd IS NULL) AND (X_check_cd IS NULL)))
846 AND ((tlinfo.deposit_date = x_deposit_date) OR ((tlinfo.deposit_date IS NULL) AND (X_deposit_date IS NULL)))
847 AND ((tlinfo.credit_type_cd = x_credit_type_cd) OR ((tlinfo.credit_type_cd IS NULL) AND (X_credit_type_cd IS NULL)))
848 AND ((tlinfo.fee_cal_instance_cd = x_fee_cal_instance_cd) OR ((tlinfo.fee_cal_instance_cd IS NULL) AND (X_fee_cal_instance_cd IS NULL)))
849 AND ((tlinfo.charge_cd1 = x_charge_cd1) OR ((tlinfo.charge_cd1 IS NULL) AND (X_charge_cd1 IS NULL)))
850 AND ((tlinfo.charge_cd2 = x_charge_cd2) OR ((tlinfo.charge_cd2 IS NULL) AND (X_charge_cd2 IS NULL)))
851 AND ((tlinfo.charge_cd3 = x_charge_cd3) OR ((tlinfo.charge_cd3 IS NULL) AND (X_charge_cd3 IS NULL)))
852 AND ((tlinfo.charge_cd4 = x_charge_cd4) OR ((tlinfo.charge_cd4 IS NULL) AND (X_charge_cd4 IS NULL)))
853 AND ((tlinfo.charge_cd5 = x_charge_cd5) OR ((tlinfo.charge_cd5 IS NULL) AND (X_charge_cd5 IS NULL)))
854 AND ((tlinfo.charge_cd6 = x_charge_cd6) OR ((tlinfo.charge_cd6 IS NULL) AND (X_charge_cd6 IS NULL)))
855 AND ((tlinfo.charge_cd7 = x_charge_cd7) OR ((tlinfo.charge_cd7 IS NULL) AND (X_charge_cd7 IS NULL)))
856 AND ((tlinfo.charge_cd8 = x_charge_cd8) OR ((tlinfo.charge_cd8 IS NULL) AND (X_charge_cd8 IS NULL)))
857 AND ((tlinfo.applied_amt1 = x_applied_amt1) OR ((tlinfo.applied_amt1 IS NULL) AND (X_applied_amt1 IS NULL)))
858 AND ((tlinfo.applied_amt2 = x_applied_amt2) OR ((tlinfo.applied_amt2 IS NULL) AND (X_applied_amt2 IS NULL)))
859 AND ((tlinfo.applied_amt3 = x_applied_amt3) OR ((tlinfo.applied_amt3 IS NULL) AND (X_applied_amt3 IS NULL)))
860 AND ((tlinfo.applied_amt4 = x_applied_amt4) OR ((tlinfo.applied_amt4 IS NULL) AND (X_applied_amt4 IS NULL)))
861 AND ((tlinfo.applied_amt5 = x_applied_amt5) OR ((tlinfo.applied_amt5 IS NULL) AND (X_applied_amt5 IS NULL)))
862 AND ((tlinfo.applied_amt6 = x_applied_amt6) OR ((tlinfo.applied_amt6 IS NULL) AND (X_applied_amt6 IS NULL)))
863 AND ((tlinfo.applied_amt7 = x_applied_amt7) OR ((tlinfo.applied_amt7 IS NULL) AND (X_applied_amt7 IS NULL)))
864 AND ((tlinfo.applied_amt8 = x_applied_amt8) OR ((tlinfo.applied_amt8 IS NULL) AND (X_applied_amt8 IS NULL)))
865 AND ((tlinfo.adm_application_id = x_adm_application_id) OR ((tlinfo.adm_application_id IS NULL) AND (X_adm_application_id IS NULL)))
866 AND ((tlinfo.attribute_category = x_attribute_category) OR ((tlinfo.attribute_category IS NULL) AND (X_attribute_category IS NULL)))
867 AND ((tlinfo.attribute1 = x_attribute1) OR ((tlinfo.attribute1 IS NULL) AND (X_attribute1 IS NULL)))
868 AND ((tlinfo.attribute2 = x_attribute2) OR ((tlinfo.attribute2 IS NULL) AND (X_attribute2 IS NULL)))
869 AND ((tlinfo.attribute3 = x_attribute3) OR ((tlinfo.attribute3 IS NULL) AND (X_attribute3 IS NULL)))
870 AND ((tlinfo.attribute4 = x_attribute4) OR ((tlinfo.attribute4 IS NULL) AND (X_attribute4 IS NULL)))
871 AND ((tlinfo.attribute5 = x_attribute5) OR ((tlinfo.attribute5 IS NULL) AND (X_attribute5 IS NULL)))
872 AND ((tlinfo.attribute6 = x_attribute6) OR ((tlinfo.attribute6 IS NULL) AND (X_attribute6 IS NULL)))
873 AND ((tlinfo.attribute7 = x_attribute7) OR ((tlinfo.attribute7 IS NULL) AND (X_attribute7 IS NULL)))
874 AND ((tlinfo.attribute8 = x_attribute8) OR ((tlinfo.attribute8 IS NULL) AND (X_attribute8 IS NULL)))
875 AND ((tlinfo.attribute9 = x_attribute9) OR ((tlinfo.attribute9 IS NULL) AND (X_attribute9 IS NULL)))
876 AND ((tlinfo.attribute10 = x_attribute10) OR ((tlinfo.attribute10 IS NULL) AND (X_attribute10 IS NULL)))
877 AND ((tlinfo.attribute11 = x_attribute11) OR ((tlinfo.attribute11 IS NULL) AND (X_attribute11 IS NULL)))
878 AND ((tlinfo.attribute12 = x_attribute12) OR ((tlinfo.attribute12 IS NULL) AND (X_attribute12 IS NULL)))
879 AND ((tlinfo.attribute13 = x_attribute13) OR ((tlinfo.attribute13 IS NULL) AND (X_attribute13 IS NULL)))
880 AND ((tlinfo.attribute14 = x_attribute14) OR ((tlinfo.attribute14 IS NULL) AND (X_attribute14 IS NULL)))
881 AND ((tlinfo.attribute15 = x_attribute15) OR ((tlinfo.attribute15 IS NULL) AND (X_attribute15 IS NULL)))
882 AND ((tlinfo.attribute16 = x_attribute16) OR ((tlinfo.attribute16 IS NULL) AND (X_attribute16 IS NULL)))
883 AND ((tlinfo.attribute17 = x_attribute17) OR ((tlinfo.attribute17 IS NULL) AND (X_attribute17 IS NULL)))
884 AND ((tlinfo.attribute18 = x_attribute18) OR ((tlinfo.attribute18 IS NULL) AND (X_attribute18 IS NULL)))
885 AND ((tlinfo.attribute19 = x_attribute19) OR ((tlinfo.attribute19 IS NULL) AND (X_attribute19 IS NULL)))
886 AND ((tlinfo.attribute20 = x_attribute20) OR ((tlinfo.attribute20 IS NULL) AND (X_attribute20 IS NULL)))
887 ) THEN
888 NULL;
889 ELSE
890 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
891 igs_ge_msg_stack.add;
892 app_exception.raise_exception;
893 END IF;
894
895 RETURN;
896
897 END lock_row;
898
899
900 PROCEDURE update_row (
901 x_rowid IN VARCHAR2,
902 x_lockbox_receipt_error_id IN NUMBER,
903 x_lockbox_interface_id IN NUMBER,
904 x_item_number IN NUMBER,
905 x_lockbox_name IN VARCHAR2,
906 x_receipt_amt IN NUMBER,
907 x_batch_name IN VARCHAR2,
908 x_party_number IN VARCHAR2,
909 x_payer_name IN VARCHAR2,
910 x_check_cd IN VARCHAR2,
911 x_deposit_date IN DATE,
912 x_credit_type_cd IN VARCHAR2,
913 x_fee_cal_instance_cd IN VARCHAR2,
914 x_charge_cd1 IN VARCHAR2,
915 x_charge_cd2 IN VARCHAR2,
916 x_charge_cd3 IN VARCHAR2,
917 x_charge_cd4 IN VARCHAR2,
918 x_charge_cd5 IN VARCHAR2,
919 x_charge_cd6 IN VARCHAR2,
920 x_charge_cd7 IN VARCHAR2,
921 x_charge_cd8 IN VARCHAR2,
922 x_applied_amt1 IN NUMBER,
923 x_applied_amt2 IN NUMBER,
924 x_applied_amt3 IN NUMBER,
925 x_applied_amt4 IN NUMBER,
926 x_applied_amt5 IN NUMBER,
927 x_applied_amt6 IN NUMBER,
928 x_applied_amt7 IN NUMBER,
929 x_applied_amt8 IN NUMBER,
930 x_adm_application_id IN NUMBER,
931 x_attribute_category IN VARCHAR2,
932 x_attribute1 IN VARCHAR2,
933 x_attribute2 IN VARCHAR2,
934 x_attribute3 IN VARCHAR2,
935 x_attribute4 IN VARCHAR2,
936 x_attribute5 IN VARCHAR2,
937 x_attribute6 IN VARCHAR2,
938 x_attribute7 IN VARCHAR2,
939 x_attribute8 IN VARCHAR2,
940 x_attribute9 IN VARCHAR2,
941 x_attribute10 IN VARCHAR2,
942 x_attribute11 IN VARCHAR2,
943 x_attribute12 IN VARCHAR2,
944 x_attribute13 IN VARCHAR2,
945 x_attribute14 IN VARCHAR2,
946 x_attribute15 IN VARCHAR2,
947 x_attribute16 IN VARCHAR2,
948 x_attribute17 IN VARCHAR2,
949 x_attribute18 IN VARCHAR2,
950 x_attribute19 IN VARCHAR2,
951 x_attribute20 IN VARCHAR2,
952 x_mode IN VARCHAR2
953 ) AS
954 /*
955 || Created By : [email protected]
956 || Created On : 05-JUN-2003
957 || Purpose : Handles the UPDATE DML logic for the table.
958 || Known limitations, enhancements or remarks :
959 || Change History :
960 || Who When What
961 || (reverse chronological order - newest change first)
962 */
963 x_last_update_date DATE ;
964 x_last_updated_by NUMBER;
965 x_last_update_login NUMBER;
966 x_request_id NUMBER;
967 x_program_id NUMBER;
968 x_program_application_id NUMBER;
969 x_program_update_date DATE;
970
971 BEGIN
972
973 x_last_update_date := SYSDATE;
974 IF (X_MODE = 'I') THEN
975 x_last_updated_by := 1;
976 x_last_update_login := 0;
977 ELSIF (x_mode = 'R') THEN
978 x_last_updated_by := fnd_global.user_id;
979 IF x_last_updated_by IS NULL THEN
980 x_last_updated_by := -1;
981 END IF;
982 x_last_update_login := fnd_global.login_id;
983 IF (x_last_update_login IS NULL) THEN
984 x_last_update_login := -1;
985 END IF;
986 ELSE
987 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
988 fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_RECT_ERRS_PKG.UPDATE_ROW');
989 igs_ge_msg_stack.add;
990 app_exception.raise_exception;
991 END IF;
992
993 before_dml(
994 p_action => 'UPDATE',
995 x_rowid => x_rowid,
996 x_lockbox_receipt_error_id => x_lockbox_receipt_error_id,
997 x_lockbox_interface_id => x_lockbox_interface_id,
998 x_item_number => x_item_number,
999 x_lockbox_name => x_lockbox_name,
1000 x_receipt_amt => x_receipt_amt,
1001 x_batch_name => x_batch_name,
1002 x_party_number => x_party_number,
1003 x_payer_name => x_payer_name,
1004 x_check_cd => x_check_cd,
1005 x_deposit_date => x_deposit_date,
1006 x_credit_type_cd => x_credit_type_cd,
1007 x_fee_cal_instance_cd => x_fee_cal_instance_cd,
1008 x_charge_cd1 => x_charge_cd1,
1009 x_charge_cd2 => x_charge_cd2,
1010 x_charge_cd3 => x_charge_cd3,
1011 x_charge_cd4 => x_charge_cd4,
1012 x_charge_cd5 => x_charge_cd5,
1013 x_charge_cd6 => x_charge_cd6,
1014 x_charge_cd7 => x_charge_cd7,
1015 x_charge_cd8 => x_charge_cd8,
1016 x_applied_amt1 => x_applied_amt1,
1017 x_applied_amt2 => x_applied_amt2,
1018 x_applied_amt3 => x_applied_amt3,
1019 x_applied_amt4 => x_applied_amt4,
1020 x_applied_amt5 => x_applied_amt5,
1021 x_applied_amt6 => x_applied_amt6,
1022 x_applied_amt7 => x_applied_amt7,
1023 x_applied_amt8 => x_applied_amt8,
1024 x_adm_application_id => x_adm_application_id,
1025 x_attribute_category => x_attribute_category,
1026 x_attribute1 => x_attribute1,
1027 x_attribute2 => x_attribute2,
1028 x_attribute3 => x_attribute3,
1029 x_attribute4 => x_attribute4,
1030 x_attribute5 => x_attribute5,
1031 x_attribute6 => x_attribute6,
1032 x_attribute7 => x_attribute7,
1033 x_attribute8 => x_attribute8,
1034 x_attribute9 => x_attribute9,
1035 x_attribute10 => x_attribute10,
1036 x_attribute11 => x_attribute11,
1037 x_attribute12 => x_attribute12,
1038 x_attribute13 => x_attribute13,
1039 x_attribute14 => x_attribute14,
1040 x_attribute15 => x_attribute15,
1041 x_attribute16 => x_attribute16,
1042 x_attribute17 => x_attribute17,
1043 x_attribute18 => x_attribute18,
1044 x_attribute19 => x_attribute19,
1045 x_attribute20 => x_attribute20,
1046 x_creation_date => x_last_update_date,
1047 x_created_by => x_last_updated_by,
1048 x_last_update_date => x_last_update_date,
1049 x_last_updated_by => x_last_updated_by,
1050 x_last_update_login => x_last_update_login
1051 );
1052
1053 IF (x_mode = 'R') THEN
1054 x_request_id := fnd_global.conc_request_id;
1055 x_program_id := fnd_global.conc_program_id;
1056 x_program_application_id := fnd_global.prog_appl_id;
1057 IF (x_request_id = -1) THEN
1058 x_request_id := old_references.request_id;
1059 x_program_id := old_references.program_id;
1060 x_program_application_id := old_references.program_application_id;
1061 x_program_update_date := old_references.program_update_date;
1062 ELSE
1063 x_program_update_date := SYSDATE;
1064 END IF;
1065 END IF;
1066
1067 UPDATE igs_fi_lb_rect_errs
1068 SET
1069 lockbox_interface_id = new_references.lockbox_interface_id,
1070 item_number = new_references.item_number,
1071 lockbox_name = new_references.lockbox_name,
1072 receipt_amt = new_references.receipt_amt,
1073 batch_name = new_references.batch_name,
1074 party_number = new_references.party_number,
1075 payer_name = new_references.payer_name,
1076 check_cd = new_references.check_cd,
1077 deposit_date = new_references.deposit_date,
1078 credit_type_cd = new_references.credit_type_cd,
1079 fee_cal_instance_cd = new_references.fee_cal_instance_cd,
1080 charge_cd1 = new_references.charge_cd1,
1081 charge_cd2 = new_references.charge_cd2,
1082 charge_cd3 = new_references.charge_cd3,
1083 charge_cd4 = new_references.charge_cd4,
1084 charge_cd5 = new_references.charge_cd5,
1085 charge_cd6 = new_references.charge_cd6,
1086 charge_cd7 = new_references.charge_cd7,
1087 charge_cd8 = new_references.charge_cd8,
1088 applied_amt1 = new_references.applied_amt1,
1089 applied_amt2 = new_references.applied_amt2,
1090 applied_amt3 = new_references.applied_amt3,
1091 applied_amt4 = new_references.applied_amt4,
1092 applied_amt5 = new_references.applied_amt5,
1093 applied_amt6 = new_references.applied_amt6,
1094 applied_amt7 = new_references.applied_amt7,
1095 applied_amt8 = new_references.applied_amt8,
1096 adm_application_id = new_references.adm_application_id,
1097 attribute_category = new_references.attribute_category,
1098 attribute1 = new_references.attribute1,
1099 attribute2 = new_references.attribute2,
1100 attribute3 = new_references.attribute3,
1101 attribute4 = new_references.attribute4,
1102 attribute5 = new_references.attribute5,
1103 attribute6 = new_references.attribute6,
1104 attribute7 = new_references.attribute7,
1105 attribute8 = new_references.attribute8,
1106 attribute9 = new_references.attribute9,
1107 attribute10 = new_references.attribute10,
1108 attribute11 = new_references.attribute11,
1109 attribute12 = new_references.attribute12,
1110 attribute13 = new_references.attribute13,
1111 attribute14 = new_references.attribute14,
1112 attribute15 = new_references.attribute15,
1113 attribute16 = new_references.attribute16,
1114 attribute17 = new_references.attribute17,
1115 attribute18 = new_references.attribute18,
1116 attribute19 = new_references.attribute19,
1117 attribute20 = new_references.attribute20,
1118 last_update_date = x_last_update_date,
1119 last_updated_by = x_last_updated_by,
1120 last_update_login = x_last_update_login ,
1121 request_id = x_request_id,
1122 program_id = x_program_id,
1123 program_application_id = x_program_application_id,
1124 program_update_date = x_program_update_date
1125 WHERE rowid = x_rowid;
1126
1127 IF (SQL%NOTFOUND) THEN
1128 RAISE NO_DATA_FOUND;
1129 END IF;
1130
1131 END update_row;
1132
1133 PROCEDURE delete_row (
1134 x_rowid IN VARCHAR2
1135 ) AS
1136 /*
1137 || Created By : [email protected]
1138 || Created On : 05-JUN-2003
1139 || Purpose : Handles the DELETE DML logic for the table.
1140 || Known limitations, enhancements or remarks :
1141 || Change History :
1142 || Who When What
1143 || (reverse chronological order - newest change first)
1144 */
1145 BEGIN
1146
1147 before_dml (
1148 p_action => 'DELETE',
1149 x_rowid => x_rowid
1150 );
1151
1152 DELETE FROM igs_fi_lb_rect_errs
1153 WHERE rowid = x_rowid;
1154
1155 IF (SQL%NOTFOUND) THEN
1156 RAISE NO_DATA_FOUND;
1157 END IF;
1158
1159 END delete_row;
1160
1161 END igs_fi_lb_rect_errs_pkg;