1: PACKAGE BODY igs_pe_depd_active_pkg AS
2: /* $Header: IGSNI42B.pls 120.1 2005/06/28 05:20:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_depd_active%ROWTYPE;
1: PACKAGE BODY igs_pe_depd_active_pkg AS
2: /* $Header: IGSNI42B.pls 120.1 2005/06/28 05:20:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_depd_active%ROWTYPE;
6: new_references igs_pe_depd_active%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI42B.pls 120.1 2005/06/28 05:20:33 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_depd_active%ROWTYPE;
6: new_references igs_pe_depd_active%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_pe_depd_active
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
90: || (reverse chronological order - newest change first)
91: */
92: CURSOR cur_rowid IS
93: SELECT rowid
94: FROM igs_pe_depd_active
95: WHERE relationship_id = x_relationship_id
96: AND action_code = x_action_code
97: AND effective_date = x_effective_date
98: FOR UPDATE NOWAIT;
249:
250: IF (x_mode = 'S') THEN
251: igs_sc_gen_001.set_ctx('R');
252: END IF;
253: INSERT INTO igs_pe_depd_active (
254: relationship_id,
255: action_code,
256: effective_date,
257: reason_code,
318: SELECT
319: reason_code,
320: remarks,
321: other_reason_remarks
322: FROM igs_pe_depd_active
323: WHERE rowid = x_rowid
324: FOR UPDATE NOWAIT;
325:
326: tlinfo c1%ROWTYPE;
417:
418: IF (x_mode = 'S') THEN
419: igs_sc_gen_001.set_ctx('R');
420: END IF;
421: UPDATE igs_pe_depd_active
422: SET
423: reason_code = new_references.reason_code,
424: remarks = new_references.remarks,
425: last_update_date = x_last_update_date,
475: || (reverse chronological order - newest change first)
476: */
477: CURSOR c1 IS
478: SELECT rowid
479: FROM igs_pe_depd_active
480: WHERE relationship_id = x_relationship_id
481: AND action_code = x_action_code
482: AND effective_date = x_effective_date;
483:
538:
539: IF (x_mode = 'S') THEN
540: igs_sc_gen_001.set_ctx('R');
541: END IF;
542: DELETE FROM igs_pe_depd_active
543: WHERE rowid = x_rowid;
544:
545: IF (SQL%NOTFOUND) THEN
546: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
555:
556: END delete_row;
557:
558:
559: END igs_pe_depd_active_pkg;