1: PACKAGE BODY igs_he_ut_prt_award_pkg AS
2: /* $Header: IGSWI36B.pls 115.2 2003/09/02 15:31:34 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prt_award%ROWTYPE;
1: PACKAGE BODY igs_he_ut_prt_award_pkg AS
2: /* $Header: IGSWI36B.pls 115.2 2003/09/02 15:31:34 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prt_award%ROWTYPE;
6: new_references igs_he_ut_prt_award%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI36B.pls 115.2 2003/09/02 15:31:34 smaddali noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_ut_prt_award%ROWTYPE;
6: new_references igs_he_ut_prt_award%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_he_ut_prt_award
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
133: || (reverse chronological order - newest change first)
134: */
135: CURSOR cur_rowid IS
136: SELECT rowid
137: FROM igs_he_ut_prt_award
138: WHERE tariff_calc_type_cd = x_tariff_calc_type_cd
139: AND award_cd = x_award_cd ;
140:
141: lv_rowid cur_rowid%RowType;
260: x_last_update_login := -1;
261: END IF;
262: ELSE
263: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
264: fnd_message.set_token ('ROUTINE', 'IGS_HE_UT_PRT_AWARD_PKG.INSERT_ROW');
265: igs_ge_msg_stack.add;
266: app_exception.raise_exception;
267: END IF;
268:
278: x_last_updated_by => x_last_updated_by,
279: x_last_update_login => x_last_update_login
280: );
281:
282: INSERT INTO igs_he_ut_prt_award (
283: tariff_calc_type_cd,
284: award_cd,
285: parent_award_cd,
286: creation_date,
319: */
320: CURSOR c1 IS
321: SELECT
322: parent_award_cd
323: FROM igs_he_ut_prt_award
324: WHERE rowid = x_rowid
325: FOR UPDATE NOWAIT;
326:
327: tlinfo c1%ROWTYPE;
390: x_last_update_login := -1;
391: END IF;
392: ELSE
393: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
394: fnd_message.set_token ('ROUTINE', 'IGS_HE_UT_PRT_AWARD_PKG.UPDATE_ROW');
395: igs_ge_msg_stack.add;
396: app_exception.raise_exception;
397: END IF;
398:
408: x_last_updated_by => x_last_updated_by,
409: x_last_update_login => x_last_update_login
410: );
411:
412: UPDATE igs_he_ut_prt_award
413: SET
414: parent_award_cd = new_references.parent_award_cd,
415: last_update_date = x_last_update_date,
416: last_updated_by = x_last_updated_by,
441: || (reverse chronological order - newest change first)
442: */
443: CURSOR c1 IS
444: SELECT rowid
445: FROM igs_he_ut_prt_award
446: WHERE tariff_calc_type_cd = x_tariff_calc_type_cd
447: AND award_cd = x_award_cd;
448:
449: BEGIN
492: p_action => 'DELETE',
493: x_rowid => x_rowid
494: );
495:
496: DELETE FROM igs_he_ut_prt_award
497: WHERE rowid = x_rowid;
498:
499: IF (SQL%NOTFOUND) THEN
500: RAISE NO_DATA_FOUND;
504:
505:
506:
507:
508: END igs_he_ut_prt_award_pkg;