[Home] [Help]
166: g_old_award_rec c_get_awd_details%ROWTYPE; -- Collects information of the old award (that is getting deleted)
167: g_new_award_rec c_get_awd_details%ROWTYPE; -- Collects information of the new award (that is getting created)
168: g_hist_cnt NUMBER;
169: g_update_mode BOOLEAN := FALSE; -- To Track whether running in update mode or not
170: TYPE g_old_award_hist_tab_type IS TABLE OF igf_aw_award_level_hist%ROWTYPE INDEX BY BINARY_INTEGER;
171: g_old_award_hist_col g_old_award_hist_tab_type; -- Holds the history of the award that is getting deleted when running in update_mode
172:
173:
174: PROCEDURE lock_std_coa (p_base_id igf_ap_fa_base_rec_all.base_id%TYPE
677: -------------------------------------
678: (reverse chronological order - newest change first)
679: */
680:
681: FUNCTION isChangeIn_AwardAttribute(p_award_atrr_code IN igf_aw_award_level_hist.award_attrib_code%TYPE)
682: RETURN BOOLEAN
683: AS
684: l_changed BOOLEAN := FALSE;
685: BEGIN
737: CURSOR c_lookup_attribute IS
738: SELECT lookup_code FROM igf_lookups_view
739: WHERE lookup_type = 'IGF_AW_AWARD_ATTRIBUTES';
740:
741: l_award_hist_tran_id igf_aw_award_level_hist.award_hist_tran_id%TYPE;
742:
743: l_award_atrr_code igf_aw_award_level_hist.award_attrib_code%TYPE;
744: l_awd_attr_changed BOOLEAN := FALSE;
745: l_row_id VARCHAR2(30) ;
739: WHERE lookup_type = 'IGF_AW_AWARD_ATTRIBUTES';
740:
741: l_award_hist_tran_id igf_aw_award_level_hist.award_hist_tran_id%TYPE;
742:
743: l_award_atrr_code igf_aw_award_level_hist.award_attrib_code%TYPE;
744: l_awd_attr_changed BOOLEAN := FALSE;
745: l_row_id VARCHAR2(30) ;
746:
747: BEGIN
751: CLOSE c_get_awd_details;
752:
753: IF g_old_award_rec.award_id IS NOT NULL AND g_new_award_rec.award_id IS NOT NULL THEN
754: -- Get the new transaction Id
755: SELECT igf_aw_award_level_hist_s.NEXTVAL INTO l_award_hist_tran_id from dual;
756: -- insert history record for the 6 attributes IF any change
757: l_row_id := null;
758: OPEN c_lookup_attribute;
759: LOOP
763: l_awd_attr_changed := isChangeIn_AwardAttribute(l_award_atrr_code);
764: l_row_id := null;
765: /* If award attributes Change, then insert */
766: IF (l_awd_attr_changed) THEN
767: igf_aw_award_level_hist_pkg.insert_row
768: (
769: x_rowid => l_row_id,
770: x_award_id => g_new_award_rec.award_id,
771: x_award_hist_tran_id => l_award_hist_tran_id,
809: Who When What
810: ***************************************************************/
811: BEGIN
812: FOR i IN g_old_award_hist_col.FIRST..g_old_award_hist_col.LAST LOOP
813: INSERT INTO igf_aw_award_level_hist (
814: award_id,
815: award_hist_tran_id,
816: award_attrib_code,
817: award_change_source_code,
1070:
1071: -- bvisvana - Bug # 4635941 - Added new cursors
1072: CURSOR c_get_awd_hist IS
1073: SELECT ROWID row_id
1074: FROM igf_aw_award_level_hist
1075: WHERE award_id = p_award_id;
1076:
1077: CURSOR c_get_awd_hist_details IS
1078: SELECT * FROM igf_aw_award_level_hist
1074: FROM igf_aw_award_level_hist
1075: WHERE award_id = p_award_id;
1076:
1077: CURSOR c_get_awd_hist_details IS
1078: SELECT * FROM igf_aw_award_level_hist
1079: WHERE award_id = p_award_id;
1080: c_award_hist_rec c_get_awd_hist_details%ROWTYPE;
1081:
1082: CURSOR c_get_disb_row IS
1182: END LOOP;
1183:
1184: -- bvisvana - Bug # 4635941 - Delete the Award History
1185: FOR award_hist_rec IN c_get_awd_hist LOOP
1186: igf_aw_award_level_hist_pkg.delete_row(award_hist_rec.row_id);
1187: END LOOP;
1188:
1189: FOR c_get_awd_row_rec IN c_get_awd_row LOOP
1190: igf_aw_award_pkg.delete_row(c_get_awd_row_rec.row_id);