[Home] [Help]
539: /* Open cursor to obtain next coupon date for process in loop. */
540:
541: Open GET_NEXT_COUPON_DATE;
542:
543: /* Compute coupon amounts and populate XTR_ROLLOVER_TRANSACTION and XTR_DEAL_DATE_AMOUNTS tables. */
544: /* NOTE: Start transaction number off at 2 since the 'commence' tasks' transaction number
545: would have been set to 1 when the bond deal was committed. */
546:
547: l_transaction_number := 1;
779: IF (l_tax_settle_method = 'NIA') THEN
780: -- for netting the coupon interest
781: l_coupon_amt := l_coupon_amt - l_income_tax_out;
782: -- insert new row with just tax
783: Insert into XTR_DEAL_DATE_AMOUNTS (
784: deal_type,
785: amount_type,
786: date_type,
787: deal_number,
823: p_dealer_code);
824:
825: END IF;
826: END IF;
827: Insert into XTR_DEAL_DATE_AMOUNTS (
828: deal_type,
829: amount_type,
830: date_type,
831: deal_number,
872: errnum := SQLCODE;
873: errmsg := SUBSTR(SQLERRM,1,100);
874: l_errmsg := to_char(errnum) || '. ' || errmsg;
875: FND_MESSAGE.Set_Name ('XTR', 'XTR_2172');
876: FND_MESSAGE.Set_Token ('TABLE', 'XTR_DEAL_DATE_AMOUNTS');
877: FND_MESSAGE.Set_Token ('ERRCODE_TEXT', l_errmsg);
878: APP_EXCEPTION.Raise_Exception;
879: END;
880:
1372: ENDORSER_CODE = l_date_exits
1373: where ROWID = pmt.ROWID;
1374:
1375: --DDA
1376: delete from XTR_DEAL_DATE_AMOUNTS_V
1377: where DEAL_NUMBER = l_deal_no
1378: and TRANSACTION_NUMBER = pmt.TRANSACTION_NUMBER;
1379:
1380: --
1383: if nvl(pmt.PRINCIPAL_ADJUST,0) <> 0 then
1384: -- Principal Increase has ocurred
1385: if pmt.PRINCIPAL_ACTION = 'INCRSE' then
1386: -- Principal Increase has ocurred
1387: insert into XTR_DEAL_DATE_AMOUNTS_V
1388: (deal_type,amount_type,date_type,
1389: deal_number,transaction_number,transaction_date,currency,
1390: amount,hce_amount,amount_date,transaction_rate,
1391: cashflow_amount,company_code,account_no,action_code,
1410: end if;
1411: -- Principal Reduction Row
1412: if nvl(pmt.PRINCIPAL_ACTION,'@#@') = 'DECRSE' then
1413: if nvl(pmt.PRINCIPAL_AMOUNT_TYPE,'PRINFLW') <> 'PRINFLW' then
1414: insert into XTR_DEAL_DATE_AMOUNTS_V
1415: (deal_type,amount_type,date_type,
1416: deal_number,transaction_number,transaction_date,currency,
1417: amount,hce_amount,amount_date,transaction_rate,
1418: cashflow_amount,company_code,account_no,action_code,
1445:
1446: --
1447: -- Reduction in Principal from a repayment (insert forcast row with 0's if not received)
1448: --
1449: insert into XTR_DEAL_DATE_AMOUNTS_V
1450: (deal_type,amount_type,date_type,
1451: deal_number,transaction_number,transaction_date,currency,
1452: amount,hce_amount,amount_date,transaction_rate,
1453: cashflow_amount,company_code,account_no,action_code,
1484: l_dual_authorisation_on);
1485:
1486: if nvl(pmt.BALANCE_OUT,0) <> 0 and pmt.INTEREST_RATE <> 0 then
1487: --- Rateset Date
1488: insert into XTR_DEAL_DATE_AMOUNTS_V
1489: (deal_type,amount_type,date_type,
1490: deal_number,transaction_number,transaction_date,currency,
1491: amount,hce_amount,amount_date,transaction_rate,
1492: cashflow_amount,company_code,account_no,action_code,
1505: end if;
1506:
1507: -- Interest Row
1508:
1509: insert into XTR_DEAL_DATE_AMOUNTS_V
1510: (deal_type,amount_type,date_type,
1511: deal_number,transaction_number,transaction_date,currency,
1512: amount,hce_amount,amount_date,transaction_rate,
1513: cashflow_amount,company_code,account_no,action_code,
1536: l_dual_authorisation_by, -- bug 3958736
1537: l_dual_authorisation_on);
1538: --
1539: if nvl(pmt.PRINCIPAL_ADJUST,0) = 0 then
1540: delete from XTR_DEAL_DATE_AMOUNTS_V
1541: where DEAL_NUMBER = l_deal_no
1542: and TRANSACTION_NUMBER = pmt.TRANSACTION_NUMBER
1543: and AMOUNT_TYPE = 'PRINFLW'
1544: and ACTION_CODE = 'INCRSE';-- Why only INCRSE ????
1545: end if;
1546: --
1547: if pmt.NO_OF_DAYS = 0 and pmt.PRINCIPAL_ACTION is NULL and nvl(pmt.INTEREST,0) = 0 then
1548: -- **** questionable delete
1549: delete from XTR_DEAL_DATE_AMOUNTS_V
1550: where DEAL_NUMBER = l_deal_no
1551: and TRANSACTION_NUMBER = pmt.TRANSACTION_NUMBER
1552: and DATE_TYPE = 'RATESET';
1553: end if;
1567: where DEAL_NUMBER = l_deal_no
1568: and START_DATE > l_nill_date
1569: and SETTLE_DATE is null; --- >=
1570: --
1571: delete from XTR_DEAL_DATE_AMOUNTS_V
1572: where DEAL_NUMBER = l_deal_no
1573: and amount_date > l_nill_date;
1574: end if;
1575: --
1585: g_accum_interest_bf :='0';
1586: g_principal_adjust := to_char(l_face_value_amount);
1587: end if;
1588: else
1589: update XTR_DEAL_DATE_AMOUNTS_V
1590: set amount=nvl(pmt.BALANCE_OUT,0),
1591: hce_amount=nvl(hce_balos,0)
1592: where deal_type='RTMM' and amount_type='BALOUT' and deal_number=l_deal_no;
1593: if SQL%NOTFOUND then
1591: hce_amount=nvl(hce_balos,0)
1592: where deal_type='RTMM' and amount_type='BALOUT' and deal_number=l_deal_no;
1593: if SQL%NOTFOUND then
1594: --- Add 1 more row to DDA for Balout
1595: insert into XTR_DEAL_DATE_AMOUNTS_V
1596: (deal_type,amount_type,date_type,
1597: deal_number,transaction_number,transaction_date,currency,
1598: amount,hce_amount,amount_date,transaction_rate,
1599: cashflow_amount,company_code,account_no,action_code,
1616: end if;
1617:
1618: if nvl(g_chk_bal,'N')='Y' and nvl(c_writoff_int,0)<>0 then
1619: -- Add 1 more row to DDA for WRITINT
1620: insert into XTR_DEAL_DATE_AMOUNTS_V
1621: (deal_type,amount_type,date_type,
1622: deal_number,transaction_number,transaction_date,currency,
1623: amount,hce_amount,amount_date,transaction_rate,
1624: cashflow_amount,company_code,account_no,action_code,