[Home] [Help]
1501: app_exception.raise_exception;
1502:
1503: END update_fabase;
1504:
1505: PROCEDURE update_ISIR_corr (p_ISIRc_id igf_ap_ISIR_corr_all.ISIRc_id%TYPE,
1506: p_correction_status igf_ap_ISIR_corr_all.correction_status%TYPE )
1507: IS
1508: /*
1509: || Created By : skoppula
1502:
1503: END update_fabase;
1504:
1505: PROCEDURE update_ISIR_corr (p_ISIRc_id igf_ap_ISIR_corr_all.ISIRc_id%TYPE,
1506: p_correction_status igf_ap_ISIR_corr_all.correction_status%TYPE )
1507: IS
1508: /*
1509: || Created By : skoppula
1510: || Created On : 03-JUL-2001
1514: || Who When What
1515: || (reverse chronological order - newest change first)
1516: */
1517:
1518: l_correction_status igf_ap_ISIR_corr.correction_status%TYPE;
1519: CURSOR cur_corr IS
1520: SELECT *
1521: FROM igf_ap_ISIR_corr
1522: WHERE ISIRc_id = p_ISIRc_id;
1517:
1518: l_correction_status igf_ap_ISIR_corr.correction_status%TYPE;
1519: CURSOR cur_corr IS
1520: SELECT *
1521: FROM igf_ap_ISIR_corr
1522: WHERE ISIRc_id = p_ISIRc_id;
1523:
1524: cur_ISIR_corr cur_corr%ROWTYPE;
1525:
1526: BEGIN
1527:
1528: FOR cur_ISIR_corr IN cur_corr LOOP
1529:
1530: igf_ap_ISIR_corr_pkg.update_row (
1531: x_rowid => cur_ISIR_corr.row_id,
1532: x_ISIRc_id => cur_ISIR_corr.ISIRc_id,
1533: x_ISIR_id => cur_ISIR_corr.ISIR_id,
1534: x_ci_sequence_number => cur_ISIR_corr.ci_sequence_number,
1571: corr.correction_status ,
1572: lkup.meaning meaning
1573: FROM igf_ap_batch_aw_map map,
1574: igf_ap_fa_base_rec_all fabase,
1575: igf_ap_ISIR_corr corr,
1576: Igf_fc_sar_cd_mst sar ,
1577: igf_lookups_view lkup
1578: WHERE fabase.base_id = cp_base_id
1579: AND map.ci_cal_type = fabase.ci_cal_type
1587:
1588: l_correction_value VARCHAR2(255);
1589: l_new_value VARCHAR2(255);
1590: lv_cur PLS_INTEGER ;
1591: lv_retval igf_ap_ISIR_corr.original_value%TYPE;
1592: lv_stmt VARCHAR2(2000);
1593: lv_rows integer;
1594: lv_column_name VARCHAR2(30);
1595: lv_column_meaning igf_lookups_view.meaning%TYPE ;
1628: -- Compare the values and if the value send for correction is same as the value present in the ISIR then
1629: -- Mark the record as ACKNOWLEDGED.
1630: --
1631: IF LTRIM(RTRIM(UPPER(NVL(lv_retval,'##')))) = LTRIM(RTRIM(UPPER(NVL(l_correction_value,'##')))) THEN
1632: IF NOT igf_ap_ISIR_corr_pkg.get_uk_for_validation ( x_ISIR_id => rec_ISIR_corr.ISIR_id,
1633: x_sar_field_number => rec_ISIR_corr.sar_field_number,
1634: x_correction_status => 'ACKNOWLEDGED') THEN
1635: update_ISIR_corr (rec_ISIR_corr.ISIRc_id, 'ACKNOWLEDGED');
1636: fnd_message.set_name('IGF','IGF_AP_ISIR_CORR_ACK');
1632: IF NOT igf_ap_ISIR_corr_pkg.get_uk_for_validation ( x_ISIR_id => rec_ISIR_corr.ISIR_id,
1633: x_sar_field_number => rec_ISIR_corr.sar_field_number,
1634: x_correction_status => 'ACKNOWLEDGED') THEN
1635: update_ISIR_corr (rec_ISIR_corr.ISIRc_id, 'ACKNOWLEDGED');
1636: fnd_message.set_name('IGF','IGF_AP_ISIR_CORR_ACK');
1637: fnd_message.set_token('FIELD', lv_column_meaning);
1638: fnd_file.put_line(fnd_file.log,fnd_message.get);
1639: END IF;
1640:
1638: fnd_file.put_line(fnd_file.log,fnd_message.get);
1639: END IF;
1640:
1641: ELSE
1642: IF NOT igf_ap_ISIR_corr_pkg.get_uk_for_validation ( x_ISIR_id => rec_ISIR_corr.ISIR_id,
1643: x_sar_field_number => rec_ISIR_corr.sar_field_number,
1644: x_correction_status => 'READY') THEN
1645: update_ISIR_corr (rec_ISIR_corr.ISIRc_id, 'READY');
1646: ln_count_corr := ln_count_corr + 1;
1643: x_sar_field_number => rec_ISIR_corr.sar_field_number,
1644: x_correction_status => 'READY') THEN
1645: update_ISIR_corr (rec_ISIR_corr.ISIRc_id, 'READY');
1646: ln_count_corr := ln_count_corr + 1;
1647: fnd_message.set_name('IGF','IGF_AP_ISIR_CORR_READY');
1648: fnd_message.set_token('FIELD', lv_column_meaning);
1649: fnd_file.put_line(fnd_file.log,fnd_message.get);
1650: END IF;
1651: END IF;