[Home] [Help]
1: PACKAGE BODY igf_aw_award_level_hist_pkg AS
2: /* $Header: IGFWI72B.pls 120.0 2005/09/09 17:14:08 appldev noship $ */
3: /*=======================================================================+
4: | Copyright (c) 1994, 1996 Oracle Corp. Redwood Shores, California, USA|
5: | All rights reserved. |
5: | All rights reserved. |
6: +=======================================================================+
7: | |
8: | DESCRIPTION |
9: | PL/SQL body for package: IGF_AW_AWARD_LEVEL_HIST_PKG
10: | |
11: | NOTES |
12: | |
13: | This package has a flag on the end of some of the procedures called |
27: | HISTORY |
28: *=======================================================================*/
29:
30: l_rowid VARCHAR2(25);
31: old_references igf_aw_award_level_hist%ROWTYPE;
32: new_references igf_aw_award_level_hist%ROWTYPE;
33:
34: PROCEDURE set_column_values (
35: p_action IN VARCHAR2,
28: *=======================================================================*/
29:
30: l_rowid VARCHAR2(25);
31: old_references igf_aw_award_level_hist%ROWTYPE;
32: new_references igf_aw_award_level_hist%ROWTYPE;
33:
34: PROCEDURE set_column_values (
35: p_action IN VARCHAR2,
36: x_rowid IN VARCHAR2,
67: */
68:
69: CURSOR cur_old_ref_values IS
70: SELECT *
71: FROM igf_aw_award_level_hist
72: WHERE rowid = x_rowid;
73:
74: BEGIN
75:
184: || (reverse chronological order - newest change first)
185: */
186: CURSOR cur_rowid IS
187: SELECT rowid
188: FROM igf_aw_award_level_hist
189: WHERE award_id = x_award_id
190: AND award_hist_tran_id = x_award_hist_tran_id
191: AND award_attrib_code = x_award_attrib_code
192: FOR UPDATE NOWAIT;
221: || (reverse chronological order - newest change first)
222: */
223: CURSOR cur_rowid IS
224: SELECT rowid
225: FROM igf_aw_award_level_hist
226: WHERE ((old_adplans_id = x_adplans_id))
227: OR ((new_adplans_id = x_adplans_id));
228:
229: lv_rowid cur_rowid%RowType;
257: || (reverse chronological order - newest change first)
258: */
259: CURSOR cur_rowid IS
260: SELECT rowid
261: FROM igf_aw_award_level_hist
262: WHERE ((award_id = x_award_id));
263:
264: lv_rowid cur_rowid%RowType;
265:
441: x_program_update_date := SYSDATE;
442: END IF;
443: ELSE
444: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
445: fnd_message.set_token ('ROUTINE', 'IGF_AW_AWARD_LEVEL_HIST_PKG.INSERT_ROW');
446: igs_ge_msg_stack.add;
447: app_exception.raise_exception;
448: END IF;
449:
474: x_last_updated_by => x_last_updated_by,
475: x_last_update_login => x_last_update_login
476: );
477:
478: INSERT INTO igf_aw_award_level_hist (
479: award_id,
480: award_hist_tran_id,
481: award_attrib_code,
482: award_change_source_code,
574: old_award_status_code,
575: new_award_status_code,
576: old_adplans_id,
577: new_adplans_id
578: FROM igf_aw_award_level_hist
579: WHERE rowid = x_rowid
580: FOR UPDATE NOWAIT;
581:
582: tlinfo c1%ROWTYPE;
674: x_last_update_login := -1;
675: END IF;
676: ELSE
677: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
678: fnd_message.set_token ('ROUTINE', 'IGF_AW_AWARD_LEVEL_HIST_PKG.UPDATE_ROW');
679: igs_ge_msg_stack.add;
680: app_exception.raise_exception;
681: END IF;
682:
724: -- In case of disbursments there could be updation in different disbursments but
725: -- yet the transaction is the same and hence to preserve the old values it is not updated
726:
727:
728: UPDATE igf_aw_award_level_hist
729: SET
730: award_change_source_code = new_references.award_change_source_code,
731: -- old_offered_amt = new_references.old_offered_amt,
732: new_offered_amt = new_references.new_offered_amt,
786: || (reverse chronological order - newest change first)
787: */
788: CURSOR c1 IS
789: SELECT rowid
790: FROM igf_aw_award_level_hist
791: WHERE award_id = x_award_id
792: AND award_hist_tran_id = x_award_hist_tran_id
793: AND award_attrib_code = x_award_attrib_code;
794:
865: p_action => 'DELETE',
866: x_rowid => x_rowid
867: );
868:
869: DELETE FROM igf_aw_award_level_hist
870: WHERE rowid = x_rowid;
871:
872: IF (SQL%NOTFOUND) THEN
873: RAISE NO_DATA_FOUND;
875:
876: END delete_row;
877:
878:
879: END igf_aw_award_level_hist_pkg;