[Home] [Help]
1315: p_source IN VARCHAR2) IS
1316:
1317: l_buf VARCHAR2(300);
1318: l_rowid VARCHAR2(30);
1319: l_company XTR_DEALS.COMPANY_CODE%TYPE;
1320: l_deal_no NUMBER;
1321: l_tran_no NUMBER;
1322: l_deal_type XTR_DEALS.DEAL_TYPE%TYPE;
1323: l_start_date DATE;
1318: l_rowid VARCHAR2(30);
1319: l_company XTR_DEALS.COMPANY_CODE%TYPE;
1320: l_deal_no NUMBER;
1321: l_tran_no NUMBER;
1322: l_deal_type XTR_DEALS.DEAL_TYPE%TYPE;
1323: l_start_date DATE;
1324: l_ratefix_date DATE;
1325: l_ric_code XTR_DEALS.RATE_BASIS%TYPE;
1326: l_margin NUMBER;
1321: l_tran_no NUMBER;
1322: l_deal_type XTR_DEALS.DEAL_TYPE%TYPE;
1323: l_start_date DATE;
1324: l_ratefix_date DATE;
1325: l_ric_code XTR_DEALS.RATE_BASIS%TYPE;
1326: l_margin NUMBER;
1327: l_new_rate NUMBER;
1328: l_rate NUMBER;
1329: l_valid_ok BOOLEAN;
1348: a.RATE_FIXING_DATE,
1349: b.RATE_BASIS,
1350: nvl(b.MARGIN,0)
1351: from XTR_ROLLOVER_TRANSACTIONS a,
1352: XTR_DEALS b,
1353: XTR_PARTIES_V c
1354: where a.deal_type = NVL(p_deal_type,a.deal_type)
1355: and a.deal_type in ('TMM','IRS')
1356: and a.company_code = NVL(p_company,a.company_code)
1578: /* Prepaid Interest */
1579: /********************************/
1580: Cursor c_prepaid_int is
1581: select prepaid_interest
1582: from XTR_DEALS_V
1583: where deal_no = p_deal_no;
1584: l_pre_int VARCHAR2(1) := NULL;
1585:
1586: Cursor last_int_set is
1796: p_trans_no IN NUMBER,
1797: p_deal_type IN VARCHAR2,
1798: p_start_date IN DATE,
1799: p_new_rate IN NUMBER)IS
1800: -- Add xtr_deals.rounding_type for Interest Override
1801: cursor TMM_ROLL is
1802: select r.deal_subtype, r.currency, r.rowid, r.adjusted_balance,
1803: r.no_of_days,r.year_basis,r.interest, r.settle_term_interest,
1804: r.accum_interest_bf, r.accum_interest,r.interest_hce,
1815: d.settle_account_no,
1816: d.company_code, d.cparty_code, d.year_calc_type
1817: /**********/
1818: from XTR_ROLLOVER_TRANSACTIONS r,
1819: XTR_DEALS d
1820: where r.deal_number = d.deal_no
1821: and r.deal_type = p_deal_type
1822: and r.deal_type = 'TMM'
1823: and r.deal_number = p_deal_no
1837: --Add d.rounding_type for Interest Override
1838: cursor IRS_ROLL is
1839: select r.currency, r.balance_out, r.no_of_days, d.year_basis,
1840: d.deal_subtype, d.rounding_type
1841: from XTR_DEALS d,
1842: XTR_ROLLOVER_TRANSACTIONS r
1843: where d.deal_type = p_deal_type
1844: and d.deal_type = 'IRS'
1845: and d.deal_no = r.deal_number
2102: p_trans_no IN NUMBER,
2103: p_deal_type IN VARCHAR2,
2104: p_start_date IN DATE,
2105: p_new_rate IN NUMBER)IS
2106: -- Add xtr_deals.rounding_type for Interest Override
2107: cursor TMM_ROLL is
2108: select r.deal_subtype, r.currency, r.rowid, r.adjusted_balance, r.no_of_days, r.year_basis,
2109: r.interest, r.settle_term_interest, r.accum_interest_bf, r.accum_interest,
2110: r.interest_hce, r.interest_settled, r.trans_closeout_no, r.start_date,
2119: d.settle_account_no,
2120: d.company_code, d.cparty_code, d.year_calc_type
2121: /**********/
2122: from XTR_ROLLOVER_TRANSACTIONS_V r,
2123: XTR_DEALS d
2124: where r.deal_number = d.deal_no
2125: and r.deal_type = p_deal_type
2126: and r.deal_type = 'TMM'
2127: and r.deal_number = p_deal_no
2142: --Add d.rounding_type for Interest Override
2143: cursor IRS_ROLL is
2144: select r.rowid, r.transaction_number, d.currency, r.balance_out,
2145: r.no_of_days, d.year_basis, d.deal_subtype, d.rounding_type
2146: from XTR_DEALS d,
2147: XTR_ROLLOVER_TRANSACTIONS r
2148: where d.deal_type = p_deal_type
2149: and d.deal_type = 'IRS'
2150: and d.deal_no = r.deal_number
2956: from xtr_rollover_transactions a
2957: where a.deal_number= p_deal_no and
2958: a.principal_tax_settled_ref is not null;
2959:
2960: cursor xtr_deals is
2961: select a.tax_settled_reference
2962: from xtr_deals a where a.deal_no = p_deal_no;
2963:
2964: --bug 2727920
2958: a.principal_tax_settled_ref is not null;
2959:
2960: cursor xtr_deals is
2961: select a.tax_settled_reference
2962: from xtr_deals a where a.deal_no = p_deal_no;
2963:
2964: --bug 2727920
2965: cursor xtr_deals_int is
2966: select a.income_tax_settled_ref
2961: select a.tax_settled_reference
2962: from xtr_deals a where a.deal_no = p_deal_no;
2963:
2964: --bug 2727920
2965: cursor xtr_deals_int is
2966: select a.income_tax_settled_ref
2967: from xtr_deals a where a.deal_no = p_deal_no;
2968:
2969: BEGIN
2963:
2964: --bug 2727920
2965: cursor xtr_deals_int is
2966: select a.income_tax_settled_ref
2967: from xtr_deals a where a.deal_no = p_deal_no;
2968:
2969: BEGIN
2970:
2971:
2972: --It transaction number is null then all deals in both the deals table
2973: -- and rollover table have their tax_exps deleted.
2974: if p_trans_no is null then
2975:
2976: for deal_record in xtr_deals LOOP
2977: DELETE_TAX_EXP_AND_UPDATE(deal_record.tax_settled_reference);
2978: END LOOP;
2979:
2980: for deal_record_int in xtr_deals_int LOOP
2976: for deal_record in xtr_deals LOOP
2977: DELETE_TAX_EXP_AND_UPDATE(deal_record.tax_settled_reference);
2978: END LOOP;
2979:
2980: for deal_record_int in xtr_deals_int LOOP
2981: DELETE_TAX_EXP_AND_UPDATE(deal_record_int.income_tax_settled_ref);
2982: END LOOP;
2983:
2984: for roll_record in rollover_deal_exposures LOOP
3029: update XTR_ROLLOVER_TRANSACTIONS
3030: set principal_tax_settled_ref = null
3031: where principal_tax_settled_ref = p_tax_settle_no;
3032:
3033: update XTR_DEALS
3034: set tax_settled_reference = null
3035: where tax_settled_reference = p_tax_settle_no;
3036:
3037: update XTR_DEALS
3033: update XTR_DEALS
3034: set tax_settled_reference = null
3035: where tax_settled_reference = p_tax_settle_no;
3036:
3037: update XTR_DEALS
3038: set income_tax_settled_ref = null
3039: where income_tax_settled_ref = p_tax_settle_no;
3040:
3041: END IF;