540:
541: ELSE
542:
543: IF p_sar_field_name IS NOT NULL THEN
544: lv_cur := DBMS_SQL.OPEN_CURSOR;
545: lv_stmt := 'SELECT '||p_sar_field_name ||' FROM igf_ap_isir_matched_all WHERE payment_isir = ''Y'' AND system_record_type = ''ORIGINAL'' AND base_id = '||to_char(p_base_id);
546:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
543: IF p_sar_field_name IS NOT NULL THEN
544: lv_cur := DBMS_SQL.OPEN_CURSOR;
545: lv_stmt := 'SELECT '||p_sar_field_name ||' FROM igf_ap_isir_matched_all WHERE payment_isir = ''Y'' AND system_record_type = ''ORIGINAL'' AND base_id = '||to_char(p_base_id);
546:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
549: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
550: DBMS_SQL.COLUMN_VALUE(lv_cur,1,lv_retval);
551: DBMS_SQL.CLOSE_CURSOR(lv_cur);
544: lv_cur := DBMS_SQL.OPEN_CURSOR;
545: lv_stmt := 'SELECT '||p_sar_field_name ||' FROM igf_ap_isir_matched_all WHERE payment_isir = ''Y'' AND system_record_type = ''ORIGINAL'' AND base_id = '||to_char(p_base_id);
546:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
549: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
550: DBMS_SQL.COLUMN_VALUE(lv_cur,1,lv_retval);
551: DBMS_SQL.CLOSE_CURSOR(lv_cur);
552:
545: lv_stmt := 'SELECT '||p_sar_field_name ||' FROM igf_ap_isir_matched_all WHERE payment_isir = ''Y'' AND system_record_type = ''ORIGINAL'' AND base_id = '||to_char(p_base_id);
546:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
549: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
550: DBMS_SQL.COLUMN_VALUE(lv_cur,1,lv_retval);
551: DBMS_SQL.CLOSE_CURSOR(lv_cur);
552:
553: RETURN lv_retval;
546:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
549: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
550: DBMS_SQL.COLUMN_VALUE(lv_cur,1,lv_retval);
551: DBMS_SQL.CLOSE_CURSOR(lv_cur);
552:
553: RETURN lv_retval;
554:
547: DBMS_SQL.PARSE(lv_cur, lv_stmt, 2);
548: DBMS_SQL.DEFINE_COLUMN(lv_cur, 1, lv_retval, 30);
549: lv_rows := DBMS_SQL.EXECUTE_AND_FETCH(lv_cur);
550: DBMS_SQL.COLUMN_VALUE(lv_cur,1,lv_retval);
551: DBMS_SQL.CLOSE_CURSOR(lv_cur);
552:
553: RETURN lv_retval;
554:
555: END IF;