1: PACKAGE BODY igs_fi_sub_er_rt_pkg AS
2: /* $Header: IGSSIF2B.pls 120.0 2005/09/09 20:08:31 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_sub_er_rt%ROWTYPE;
1: PACKAGE BODY igs_fi_sub_er_rt_pkg AS
2: /* $Header: IGSSIF2B.pls 120.0 2005/09/09 20:08:31 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_sub_er_rt%ROWTYPE;
6: new_references igs_fi_sub_er_rt%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIF2B.pls 120.0 2005/09/09 20:08:31 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_sub_er_rt%ROWTYPE;
6: new_references igs_fi_sub_er_rt%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM igs_fi_sub_er_rt
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
149: || (reverse chronological order - newest change first)
150: */
151: CURSOR cur_rowid IS
152: SELECT rowid
153: FROM igs_fi_sub_er_rt
154: WHERE sub_err_id = x_sub_err_id
155: FOR UPDATE NOWAIT;
156:
157: lv_rowid cur_rowid%RowType;
186: || (reverse chronological order - newest change first)
187: */
188: CURSOR cur_rowid IS
189: SELECT rowid
190: FROM igs_fi_sub_er_rt
191: WHERE sub_er_id = x_sub_er_id
192: AND far_id = x_far_id
193: AND create_date = x_create_date
194: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
222: || (reverse chronological order - newest change first)
223: */
224: CURSOR cur_rowid IS
225: SELECT rowid
226: FROM igs_fi_sub_er_rt
227: WHERE ((far_id = x_far_id));
228:
229: lv_rowid cur_rowid%RowType;
230:
358: x_last_update_login := -1;
359: END IF;
360: ELSE
361: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
362: fnd_message.set_token ('ROUTINE', 'IGS_FI_SUB_ER_RT_PKG.INSERT_ROW');
363: igs_ge_msg_stack.add;
364: app_exception.raise_exception;
365: END IF;
366:
380: x_last_updated_by => x_last_updated_by,
381: x_last_update_login => x_last_update_login
382: );
383:
384: INSERT INTO igs_fi_sub_er_rt (
385: sub_err_id,
386: sub_er_id,
387: far_id,
388: create_date,
392: last_update_date,
393: last_updated_by,
394: last_update_login
395: ) VALUES (
396: igs_fi_sub_er_rt_s.NEXTVAL,
397: new_references.sub_er_id,
398: new_references.far_id,
399: new_references.create_date,
400: new_references.logical_delete_date,
430: sub_er_id,
431: far_id,
432: create_date,
433: logical_delete_date
434: FROM igs_fi_sub_er_rt
435: WHERE rowid = x_rowid
436: FOR UPDATE NOWAIT;
437:
438: tlinfo c1%ROWTYPE;
506: x_last_update_login := -1;
507: END IF;
508: ELSE
509: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
510: fnd_message.set_token ('ROUTINE', 'IGS_FI_SUB_ER_RT_PKG.UPDATE_ROW');
511: igs_ge_msg_stack.add;
512: app_exception.raise_exception;
513: END IF;
514:
526: x_last_updated_by => x_last_updated_by,
527: x_last_update_login => x_last_update_login
528: );
529:
530: UPDATE igs_fi_sub_er_rt
531: SET
532: sub_er_id = new_references.sub_er_id,
533: far_id = new_references.far_id,
534: create_date = new_references.create_date,
564: || (reverse chronological order - newest change first)
565: */
566: CURSOR c1 IS
567: SELECT rowid
568: FROM igs_fi_sub_er_rt
569: WHERE sub_err_id = x_sub_err_id;
570:
571: BEGIN
572:
599: );
600:
601: END add_row;
602:
603: END igs_fi_sub_er_rt_pkg;