[Home] [Help]
1: PACKAGE BODY igs_fi_lb_cr_types_pkg AS
2: /* $Header: IGSSID2B.pls 115.1 2003/06/20 09:41:09 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_cr_types%ROWTYPE;
1: PACKAGE BODY igs_fi_lb_cr_types_pkg AS
2: /* $Header: IGSSID2B.pls 115.1 2003/06/20 09:41:09 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_cr_types%ROWTYPE;
6: new_references igs_fi_lb_cr_types%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSID2B.pls 115.1 2003/06/20 09:41:09 shtatiko noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_lb_cr_types%ROWTYPE;
6: new_references igs_fi_lb_cr_types%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM igs_fi_lb_cr_types
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
155: || (reverse chronological order - newest change first)
156: */
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igs_fi_lb_cr_types
160: WHERE lockbox_name = x_lockbox_name
161: AND bank_cd = x_bank_cd
162: FOR UPDATE NOWAIT;
163:
192: || (reverse chronological order - newest change first)
193: */
194: CURSOR cur_rowid IS
195: SELECT rowid
196: FROM igs_fi_lb_cr_types
197: WHERE lockbox_name = x_lockbox_name
198: AND credit_type_id = x_credit_type_id
199: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
200:
331: x_last_update_login := -1;
332: END IF;
333: ELSE
334: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
335: fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_CR_TYPES_PKG.INSERT_ROW');
336: igs_ge_msg_stack.add;
337: app_exception.raise_exception;
338: END IF;
339:
349: x_last_updated_by => x_last_updated_by,
350: x_last_update_login => x_last_update_login
351: );
352:
353: INSERT INTO igs_fi_lb_cr_types (
354: lockbox_name,
355: bank_cd,
356: credit_type_id,
357: creation_date,
390: */
391: CURSOR c1 IS
392: SELECT
393: credit_type_id
394: FROM igs_fi_lb_cr_types
395: WHERE rowid = x_rowid
396: FOR UPDATE NOWAIT;
397:
398: tlinfo c1%ROWTYPE;
461: x_last_update_login := -1;
462: END IF;
463: ELSE
464: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
465: fnd_message.set_token ('ROUTINE', 'IGS_FI_LB_CR_TYPES_PKG.UPDATE_ROW');
466: igs_ge_msg_stack.add;
467: app_exception.raise_exception;
468: END IF;
469:
479: x_last_updated_by => x_last_updated_by,
480: x_last_update_login => x_last_update_login
481: );
482:
483: UPDATE igs_fi_lb_cr_types
484: SET
485: credit_type_id = new_references.credit_type_id,
486: last_update_date = x_last_update_date,
487: last_updated_by = x_last_updated_by,
512: || (reverse chronological order - newest change first)
513: */
514: CURSOR c1 IS
515: SELECT rowid
516: FROM igs_fi_lb_cr_types
517: WHERE lockbox_name = x_lockbox_name
518: AND bank_cd = x_bank_cd;
519:
520: BEGIN
564: p_action => 'DELETE',
565: x_rowid => x_rowid
566: );
567:
568: DELETE FROM igs_fi_lb_cr_types
569: WHERE rowid = x_rowid;
570:
571: IF (SQL%NOTFOUND) THEN
572: RAISE NO_DATA_FOUND;
574:
575: END delete_row;
576:
577:
578: END igs_fi_lb_cr_types_pkg;