[Home] [Help]
16: /* p_calc_basis : XTR_DEALS.calc_basis, if 'DISCOUNT', pass 'D', if 'YIELD', pass 'Y' */
17: /* p_pre_disc_end : the previous Discount amount. */
18: /* For Reval, it's the value from xtr_revaluation_details.ni_disc_amount */
19: /* from previous batch. */
20: /* For Accrual, it's the value from xtr_accrls_amort.accrls_amount_bal */
21: /* from previous batch */
22: /* p_day_count_type: Added for JPY Interest Override Project. 'B'-Both, 'L'-Last, 'F'-1st. */
23: /* p_resale_both_flag : Added for bug 2448432. Denotes if procedure is being called as a */
24: /* result of a resale in which the day count type of the resale = Both.*/
313: and a.start_date <= p_end_date
314: and (a.maturity_date >= p_start_date
315: or a.deal_no not in
316: ( select b.deal_no
317: from XTR_ACCRLS_AMORT b
318: where b.company_code=p_company
319: and b.deal_type = 'BOND'
320: and b.amount_type <> 'CPMADJ'))
321: and a.maturity_date >= a.start_date;
344: bond_cpn BOND_COUPONS%ROWTYPE;
345:
346: cursor chk_first_accrual is
347: select 'N'
348: from XTR_ACCRLS_AMORT
349: where deal_no=l_deal_nos
350: and trans_no=l_trans_nos
351: and deal_type ='BOND';
352:
358: --
359:
360: cursor get_prv_value is
361: select nvl(EFFECTIVE_CALCULATED_VALUE,0) accrls_value
362: from XTR_ACCRLS_AMORT
363: where deal_no=l_deal_nos
364: and trans_no =l_trans_nos
365: and deal_type = 'BOND'
366: and amount_type=l_amount_type
368: order by period_to desc;
369:
370: cursor get_prv_bal is
371: select nvl(ACCRLS_AMOUNT_BAL,0) accrls_bal
372: from XTR_ACCRLS_AMORT
373: where deal_no=l_deal_nos
374: and trans_no =l_trans_nos
375: and deal_type = 'BOND'
376: and amount_type=l_amount_type
378: order by period_to desc;
379:
380: cursor get_coupon_prv_bal is
381: select trans_no,nvl(ACCRLS_AMOUNT_BAL,0) accrls_bal
382: from XTR_ACCRLS_AMORT
383: where deal_no=l_deal_nos
384: and amount_type=l_amount_type
385: and deal_type='BOND'
386: and action_code='POS'
386: and action_code='POS'
387: and period_to < p_end_date
388: and (trans_no,period_to)
389: in(select trans_no,max(period_to)
390: from XTR_ACCRLS_AMORT
391: where deal_no=l_deal_nos
392: and amount_type=l_amount_type
393: and action_code='POS'
394: and period_to < p_end_date
598: fetch get_prv_bal into l_accrls_amount_bal;
599: close get_prv_bal;
600:
601: if l_accrls_amount_bal <> 0 then
602: insert into XTR_ACCRLS_AMORT
603: (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
604: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
605: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
606: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
618: nvl(l_face_discount,0)+nvl(l_coupon_discount,0)-nvl(l_accr_interest,0),l_action);
619:
620: if bond_det.status_code <> 'CURRENT'
621: and bond_det.bond_sale_date <=p_end_date then
622: insert into XTR_ACCRLS_AMORT
623: (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
624: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
625: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
626: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
872: where b.deal_no = a.deal_number
873: and b.deal_type = 'BOND')))
874: and ((a.maturity_date >= p_start_date or a.maturity_date is NULL)
875: or (a.deal_number,a.transaction_number) not in (select b.deal_no,b.trans_no
876: from XTR_ACCRLS_AMORT b
877: where b.company_code = p_company
878: and b.deal_type in ('TMM','RTMM','IRS','ONC','BOND')))
879: and ((a.deal_type <> 'BOND' and a.status_code <> 'CANCELLED')
880: or (a.deal_type = 'BOND' and a.status_code not in ('CANCELLED','CLOSED')
922: and a.deal_subtype in ('BUY','ISSUE')
923: and decode(l_trade_settle,'TRADE',a.deal_date,a.start_date) <= p_end_date
924: and ((a.maturity_amount <> 0
925: and a.deal_no not in ( select b.deal_no
926: from XTR_ACCRLS_AMORT b
927: where b.company_code = p_company
928: and b.trans_no = 1
929: and b.deal_type = 'BOND'
930: and b.action_code = 'POS'
930: and b.action_code = 'POS'
931: and b.amount_type in ('SLDISC','SLPREM')))
932: or (a.maturity_date >= p_start_date
933: and a.deal_no in (select b.deal_no
934: from XTR_ACCRLS_AMORT b
935: where b.company_code = p_company
936: and b.trans_no = 1
937: and b.deal_type = 'BOND'
938: and b.action_code = 'POS'
938: and b.action_code = 'POS'
939: and b.amount_type in ('SLDISC','SLPREM')
940: and nvl(b.calc_face_value,0) <> 0
941: and b.batch_id = ( select max(c.batch_id)
942: from XTR_ACCRLS_AMORT c
943: where c.company_code = p_company
944: and c.deal_no = b.deal_no
945: and c.trans_no = 1
946: and c.deal_type = 'BOND'
1000: and nvl(a.interest_rate,0) <> 0
1001: and a.start_date <= p_end_date
1002: and (a.maturity_date >= p_start_date or
1003: (a.deal_number,a.transaction_number,'INTADJ') not in (select b.deal_no,b.trans_no,b.amount_type
1004: from XTR_ACCRLS_AMORT b
1005: where b.company_code = p_company
1006: and b.deal_type = 'NI'))
1007: -----------------------------------------------
1008: -- 'FXO','IRO','BDO','SWPTN' -- premium
1042: and a.deal_type in ('IRO','BDO','SWPTN','FXO')
1043: and a.premium_date <= p_end_date
1044: and (a.expiry_date >= p_start_date
1045: or a.deal_no not in ( select b.deal_no
1046: from XTR_ACCRLS_AMORT b
1047: where b.company_code = p_company
1048: and b.deal_type in ('FXO','IRO','BDO','SWPTN')
1049: and b.amount_type = 'PREMADJ')) -- AW 1395208
1050: and a.status_code <> 'CANCELLED'
1097: and a.start_date < a.maturity_date -- avoid Bug 3006377 in BDO allowing Start >= Maturity Date
1098: and a.start_date <= p_end_date
1099: and (a.maturity_date >= p_start_date
1100: or a.deal_no not in ( select b.deal_no
1101: from XTR_ACCRLS_AMORT b
1102: where b.company_code = p_company
1103: and b.deal_type in ('FRA','BDO','IRO','SWPTN')
1104: and b.amount_type in ('INTADJ','SLDISC','SLPREM')))
1105: and a.status_code in ('EXERCISED','SETTLED')
1140: -- and ((a.maturity_date >= p_start_date or
1141: -- a.maturity_date is NULL)
1142: -- or a.deal_no not in
1143: -- ( select b.deal_no
1144: -- from XTR_ACCRLS_AMORT b
1145: -- where b.company_code=p_company
1146: -- and b.deal_type in('FRA','IRO','BDO','SWPTN')))
1147: -- and a.maturity_date > a.start_date
1148: -- and a.status_code <> 'CANCELLED'
1162: from XTR_BOND_ALLOC_DETAILS
1163: where deal_no = l_deal_nos
1164: and decode(l_trade_settle,'TRADE',cross_ref_deal_date,cross_ref_start_date) <= p_end_date
1165: and (deal_no,cross_ref_no) not in (select deal_no,trans_no
1166: from xtr_accrls_amort
1167: where company_code = p_company);
1168:
1169: discprem_det BOND_DISC_PREM%ROWTYPE;
1170:
1189: -- Check if this is the first accrual
1190: --------------------------------------
1191: cursor CHK_FIRST_ACCRUAL is
1192: select 'N'
1193: from XTR_ACCRLS_AMORT
1194: where deal_no = l_deal_nos
1195: and deal_type = l_deal_type
1196: and ((deal_type = 'NI' and amount_type = 'INTADJ') -- To differentiate from new amt type EFFINT for NI.
1197: or (deal_type = 'BOND' and amount_type = l_amount_type and
1259: -- 2422480. Chg from accrls_amount_bal to fix Testing Issue 2.
1260: -- 2751078 Issue 2. Cummulative amount is calculated for SLPREM/SLDISC
1261: select nvl(decode(l_amount_type,'CPMADJ',EFFINT_ACCRLS_AMOUNT_BAL,ACCRLS_AMOUNT_BAL),0),
1262: nvl(CALC_FACE_VALUE,0)
1263: from XTR_ACCRLS_AMORT
1264: where deal_no = l_deal_nos
1265: and trans_no = l_trans_nos
1266: and deal_type = l_deal_type
1267: and amount_type = l_amount_type
1274: -- Check if the deal is closed - if closed, it means 'REV' has been created. Do not create 'REV' again.
1275: ---------------------------------------------------------------------------------------------------------
1276: cursor CHK_CLOSED_DEAL is
1277: select 'Y'
1278: from XTR_ACCRLS_AMORT
1279: where deal_no = l_deal_nos
1280: and trans_no = l_trans_nos
1281: and deal_type = l_deal_type
1282: and amount_type = l_amount_type
1338: -- Cursor added for 2422480 to fix Testing Issue 2 without too hairy an upgrade script.
1339:
1340: cursor GET_TOTAL_BOND_CPN_ACCRUAL is
1341: select sum(decode(action_code,'POS',nvl(ACCRLS_AMOUNT,0),nvl(-ACCRLS_AMOUNT,0)))
1342: from XTR_ACCRLS_AMORT
1343: where deal_no = l_deal_nos
1344: and trans_no = l_trans_nos
1345: and deal_type = 'BOND'
1346: and amount_type = 'CPMADJ'
1419: /*-----------------------------*/
1420: /* Delete before recalculation */
1421: /*-----------------------------*/
1422: if p_batch_id is not null then
1423: delete from XTR_ACCRLS_AMORT
1424: where company_code = p_company
1425: and batch_id = p_batch_id;
1426: end if;
1427:
2034: --------------------------------------
2035: -- AW 2113171 Do not display if both accrual amount and balance are zero.
2036: if l_period_resale_amort <> 0 then
2037: -- if l_period_resale_amort <> 0 and l_resale_total_amort <> 0 then -- 2737823
2038: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
2039: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE, CURRENCY,
2040: PERIOD_FROM, PERIOD_TO,
2041: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
2042: INTEREST_RATE, TRANSACTION_AMOUNT,
2067: -- Reverse Cumulative Amort for the Resold Amount.
2068: -----------------------------------------------------
2069: -- AW 2753088,2751078 Do not display if accrual amount is zero.
2070: if abs(nvl(discprem_det.front_end_prem_disc,0)) <> 0 then
2071: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
2072: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE, CURRENCY,
2073: PERIOD_FROM, PERIOD_TO,
2074: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
2075: INTEREST_RATE, TRANSACTION_AMOUNT,
2096: -- Reverse Unamort Balance for the Resold Amount.
2097: -----------------------------------------------------
2098: -- AW 2753088,2751078 Do not display if accrual amount is zero.
2099: if abs(nvl(discprem_det.front_end_prem_disc,0)) <> 0 and l_resale_total_amort <> 0 then
2100: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
2101: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE, CURRENCY,
2102: PERIOD_FROM, PERIOD_TO,
2103: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
2104: INTEREST_RATE, TRANSACTION_AMOUNT,
2773: l_group_period_accrual_amt := xtr_fps2_p.interest_round(l_group_period_accrual_amt,l_rounding,onc_det.rounding_type);
2774:
2775: l_to_date_amort_amt := nvl(l_to_date_amort_amt,0) + l_group_period_accrual_amt + nvl(l_dda_INT,0);
2776:
2777: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
2778: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE, CURRENCY,
2779: PERIOD_FROM, PERIOD_TO,
2780: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
2781: INTEREST_RATE, TRANSACTION_AMOUNT,
2884:
2885: -- AW 2113171 Do not display if both accrual amount and balance are zero.
2886: if l_period_accrual_amount <> 0 and l_amount_to_accrue_amort <> 0 then
2887:
2888: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
2889: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
2890: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
2891: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
2892: ACTION_CODE,ACCRLS_AMOUNT,CALC_FACE_VALUE,YEAR_BASIS,
2916: ---------------------------------------------------------------------------
2917: if onc_det.date_to <= p_end_date and l_maturity_face_value <> 0 and
2918: nvl(l_amount_to_accrue_amort,0) <> 0 then -- 2753088,2751078 zero PREM/DISC REV for matured deal.
2919:
2920: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
2921: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
2922: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
2923: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
2924: ACTION_CODE,ACCRLS_AMOUNT,CALC_FACE_VALUE,YEAR_BASIS,
3051: -- (1) = Sum all previous CPMADJ accruals
3052: -----------------------------------------------------------------------------
3053: select nvl(sum(decode(ACTION_CODE,'REV',-1*ACCRLS_AMOUNT,ACCRLS_AMOUNT)),0)
3054: into l_sum_prev_accrls
3055: from xtr_accrls_amort
3056: where deal_no = onc_det.deal_nos
3057: and trans_no = onc_det.trans_nos
3058: and amount_type = 'CPMADJ'
3059: and action_code in ('POS','REV');
3106: CLOSE GET_TOTAL_BOND_CPN_ACCRUAL;
3107:
3108: l_to_date_amort_amt := nvl(l_to_date_amort_amt,0) + l_period_accrual_amount + nvl(l_dda_INT,0);
3109:
3110: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
3111: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE, CURRENCY,
3112: PERIOD_FROM, PERIOD_TO,
3113: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
3114: INTEREST_RATE, TRANSACTION_AMOUNT,
3159: close chk_closed_deal;
3160:
3161: if nvl(l_deal_closed,'N') ='N' then
3162: if nvl(l_period_accrual_amount,0) <> 0 then
3163: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
3164: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
3165: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
3166: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
3167: ACTION_CODE,ACCRLS_AMOUNT,YEAR_BASIS,
3179: l_actual_start_date,l_actual_maturity,
3180: l_no_of_days,l_amount_to_accrue_amort);
3181: end if;
3182: if nvl(l_amount_to_accrue_amort,0) <> 0 then
3183: insert into XTR_ACCRLS_AMORT (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
3184: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
3185: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
3186: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
3187: ACTION_CODE,ACCRLS_AMOUNT,YEAR_BASIS,
3207: -----------
3208: else
3209:
3210: if nvl(l_period_accrual_amount,0) <> 0 then
3211: insert into XTR_ACCRLS_AMORT (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,
3212: DEAL_SUBTYPE, DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
3213: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
3214: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
3215: ACTION_CODE,ACCRLS_AMOUNT,YEAR_BASIS,
3324: l_forward_adjust NUMBER;
3325: l_oldest_date DATE;
3326: l_oldest_tran NUMBER;
3327: l_first_tran VARCHAR2(1);
3328: l_prv_subtype XTR_ACCRLS_AMORT.DEAL_SUBTYPE%TYPE;
3329:
3330: -----------------------------------------------------------------------------
3331: -- Get accrual methods Interest in arreas(Following), Forward interest(Prior).
3332: -----------------------------------------------------------------------------
3337:
3338: ---
3339: cursor CHK_FIRST_ACCRUAL is
3340: select 'N'
3341: from XTR_ACCRLS_AMORT
3342: where deal_no = l_deal_nos
3343: and deal_type = l_deal_type;
3344: --
3345:
3344: --
3345:
3346: cursor GET_PRV_BAL is
3347: select nvl(ACCRLS_AMOUNT_BAL,0) accrls_bal, deal_subtype -- 3866372 to get previous deal subtype
3348: from XTR_ACCRLS_AMORT
3349: where deal_no = l_deal_nos
3350: and deal_type = l_deal_type
3351: and amount_type = 'INTADJ'
3352: and action_code = 'POS'
3592: end if;
3593:
3594:
3595: if l_period_accrual_amount <> 0 then
3596: insert into XTR_ACCRLS_AMORT (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
3597: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
3598: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
3599: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
3600: ACTION_CODE,ACCRLS_AMOUNT,YEAR_BASIS,
3728: end if;
3729:
3730:
3731: if l_period_accrual_amount <> 0 and l_deal_nos is not null then
3732: insert into XTR_ACCRLS_AMORT (BATCH_ID,DEAL_NO,TRANS_NO,COMPANY_CODE,DEAL_SUBTYPE,
3733: DEAL_TYPE,CURRENCY,PERIOD_FROM,PERIOD_TO,
3734: CPARTY_CODE,PRODUCT_TYPE,PORTFOLIO_CODE,
3735: INTEREST_RATE,TRANSACTION_AMOUNT,AMOUNT_TYPE,
3736: ACTION_CODE,ACCRLS_AMOUNT,YEAR_BASIS,
3835: and a.start_date <= p_batch_end
3836: --and (a.maturity_date >= p_batch_start
3837: and (nvl(a.ni_reneg_date,a.maturity_date) >= p_batch_start
3838: or (a.deal_number,a.transaction_number,'EFFINT') not in (select b.deal_no,b.trans_no,b.amount_type
3839: from XTR_ACCRLS_AMORT b
3840: where b.company_code = p_company
3841: and b.deal_type = 'NI'));
3842:
3843: /*----------------------------------------------------------*/
3844: /* Check if this is the first EFFINT accrual for the parcel */
3845: /*----------------------------------------------------------*/
3846: cursor CHK_FIRST_ACCRUAL (p_deal_no NUMBER,p_trans_no NUMBER,p_deal_type VARCHAR2,p_amt_type VARCHAR2)is
3847: select 'N'
3848: from XTR_ACCRLS_AMORT
3849: where deal_no = p_deal_no
3850: and trans_no = p_trans_no
3851: and deal_type = p_deal_type
3852: and amount_type = p_amt_type;
3857: cursor GET_PRV_BAL (p_deal_no NUMBER, p_trans_no NUMBER,
3858: p_deal_type VARCHAR2, p_amt_type VARCHAR2,
3859: p_batch_end DATE) is
3860: select nvl(EFFINT_ACCRLS_AMOUNT_BAL,0)
3861: from XTR_ACCRLS_AMORT
3862: where deal_no = p_deal_no
3863: and trans_no = p_trans_no
3864: and deal_type = p_deal_type
3865: and amount_type = p_amt_type
3872: /*-----------------------------*/
3873: cursor GET_TOTAL_POS (p_deal_no NUMBER, p_trans_no NUMBER,
3874: p_deal_type VARCHAR2, p_amt_type VARCHAR2) is
3875: select sum(decode(action_code,'POS',ACCRLS_AMOUNT,-ACCRLS_AMOUNT))
3876: from XTR_ACCRLS_AMORT
3877: where deal_no = p_deal_no
3878: and trans_no = p_trans_no
3879: and deal_type = p_deal_type
3880: and amount_type = p_amt_type
3940: l_cumm_amt_bal NUMBER;
3941: begin
3942: select sum(ACCRLS_AMOUNT)
3943: into l_cumm_amt_bal
3944: from xtr_accrls_amort
3945: where company_code = p_company
3946: and batch_id < p_new_batch_id
3947: and deal_no = p_deal_no
3948: and trans_no = p_trans_no
4172: -- may result.
4173:
4174: if (l_accrls_amt_bal <> 0) and (l_period_accrual_amount <> 0) then
4175:
4176: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
4177: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE,
4178: CURRENCY, PERIOD_FROM, PERIOD_TO,
4179: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
4180: INTEREST_RATE, TRANSACTION_AMOUNT,
4214: -- Create reversal record only if there is an accrual amount to reverse.
4215: -- If resold on the 1st day of the purchase. There will be no accrual (POS) amounts created.
4216:
4217: If (nvl(l_REV_amt,0) <> 0) then
4218: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
4219: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE,
4220: CURRENCY, PERIOD_FROM, PERIOD_TO,
4221: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
4222: INTEREST_RATE, TRANSACTION_AMOUNT,
4254:
4255: if xtr_fps2_p.interest_round(l_accrls_amt_bal,l_rounding,EFF.rounding_type) <> 0 and
4256: xtr_fps2_p.interest_round(abs(l_period_accrual_amount),l_rounding,EFF.rounding_type) <> 0 then
4257:
4258: insert into XTR_ACCRLS_AMORT (BATCH_ID, DEAL_NO, TRANS_NO,
4259: COMPANY_CODE, DEAL_SUBTYPE, DEAL_TYPE,
4260: CURRENCY, PERIOD_FROM, PERIOD_TO,
4261: CPARTY_CODE, PRODUCT_TYPE, PORTFOLIO_CODE,
4262: INTEREST_RATE, TRANSACTION_AMOUNT,
4303: --
4304: cursor GETROWS is
4305: select ROWID,DEAL_NO,TRANS_NO,DEAL_TYPE,DEAL_SUBTYPE,PRODUCT_TYPE,PORTFOLIO_CODE,ACTION_CODE,
4306: CURRENCY,ACCRLS_AMOUNT,AMOUNT_TYPE ACC_AMOUNT_TYPE
4307: from XTR_ACCRLS_AMORT
4308: where COMPANY_CODE = p_company
4309: and PERIOD_TO = p_end_date
4310: order by currency;
4311: --
4359: l_ccy,l_acclrs_amount,l_amt_hce,p_end_date,l_action,0,
4360: p_company,l_trans_nos,l_subty,'N',l_product,'CURRENT',
4361: l_portfolio);
4362: --
4363: update XTR_ACCRLS_AMORT
4364: set TRANSFERED_ON = l_sysdate
4365: where rowid=l_rowid;
4366: END LOOP;
4367: close GETROWS;