[Home] [Help]
605: Cursor Entries (bid number) is
606: Select 1
607: from dual
608: where exists (select null
609: from xtr_journals
610: where batch_id = bid);
611: -- Bug 3805480 end
612:
613: Cursor EVENT_ID is
798: -- In the JEA setup, the amount type of 'UNREAL' and 'REAL' is intended
799: -- to allow the user to post unrealized/realized gains/losses to different
800: -- GL accounts. In addition, any unrealized gains/losses will be flagged
801: -- as requiring a reversal entry in the subsequent period when transferring
802: -- XTR journals to the GL interface table.
803: -- Instead, there are separate columns for REALIZED_PL and UNREALIZED_PL
804: -- amounts in the XTR_REVALUATION_DETAILS table. If the row is for a realized
805: -- profit/loss, then there will be an amount in the REALIZED_PL column, etc.
806: ----------------------------------------------------------------------------------------------
1118: -- Bug 4634182
1119:
1120: CURSOR C_NRA_PERIOD_FROM IS
1121: SELECT min(journal_date)
1122: FROM XTR_JOURNALS
1123: WHERE batch_id = in_batch_id;
1124:
1125: l_nra_period_from DATE;
1126:
1532: Goto NEXT_Q2;
1533: END;
1534:
1535: BEGIN
1536: Insert into XTR_JOURNALS
1537: (batch_id,
1538: company_code,
1539: journal_date,
1540: orig_journal_date,
1851: Goto NEXT_Q3;
1852: END;
1853:
1854: BEGIN
1855: Insert into XTR_JOURNALS
1856: (batch_id,
1857: company_code,
1858: journal_date,
1859: orig_journal_date,
1935: l_accounted_dr := l_accounted_cr;
1936: l_accounted_cr := l_tmp_amt;
1937:
1938: BEGIN
1939: Insert into XTR_JOURNALS
1940: (batch_id,
1941: company_code,
1942: journal_date,
1943: orig_journal_date,
2136: Goto NEXT_Q4;
2137: END;
2138:
2139: BEGIN
2140: Insert into XTR_JOURNALS
2141: (batch_id,
2142: company_code,
2143: journal_date,
2144: orig_journal_date,
2355: l_credit_amount := 0;
2356:
2357:
2358: BEGIN
2359: Insert into XTR_JOURNALS
2360: (batch_id,
2361: company_code,
2362: journal_date,
2363: orig_journal_date,
2423:
2424:
2425:
2426: BEGIN
2427: Insert into XTR_JOURNALS
2428: (batch_id,
2429: company_code,
2430: journal_date,
2431: orig_journal_date,
2657: l_credit_amount := 0;
2658:
2659:
2660: BEGIN
2661: Insert into XTR_JOURNALS
2662: (batch_id,
2663: company_code,
2664: journal_date,
2665: orig_journal_date,
2728:
2729:
2730:
2731: BEGIN
2732: Insert into XTR_JOURNALS
2733: (batch_id,
2734: company_code,
2735: journal_date,
2736: orig_journal_date,
2885: l_ret_value := greatest(l_ret_value,2);
2886: Goto NEXT_Q7;
2887: END;
2888: BEGIN
2889: Insert into XTR_JOURNALS
2890: (batch_id,
2891: company_code,
2892: journal_date,
2893: orig_journal_date,
3078: | |
3079: | NOTES |
3080: | Possible permetations of the JNL_REVERSAL_IND, |
3081: | TRANSFER_TO_EXTERNAL_GL, and CANCELLED_IN_GL fields in |
3082: | XTR_JOURNALS Table. |
3083: | |
3084: | Reversal Transfer to Cancelled |
3085: | Indic External G/L in G/L Description |
3086: | --------- ------------ --------- -------------------------------- |
3089: | C XX-XXX-XX Y A Transaction was cancelled, the |
3090: | journal has been transferred to |
3091: | the G/L and it has been reversed |
3092: | by creation of a reversal entry |
3093: | in XTR_JOURNALS. |
3094: R NULL NULL Reversal entry created as a |
3095: | result of a deal cancellation or |
3096: | closure. Ineligible for journal |
3097: | clearing. |
3131: suspense_gl,
3132: accounted_cr,
3133: accounted_dr,
3134: set_of_books_id
3135: from XTR_JOURNALS
3136: where deal_number=l_deal_nos
3137: and transaction_number=l_trans_nos
3138: and deal_type=l_deal_type;
3139: --
3144: --
3145: fnd_user_id number;
3146: jnl_rec SEL_JNL%ROWTYPE;
3147: --
3148: comment_msg xtr_journals.comments%TYPE;
3149: --
3150: BEGIN
3151: -- Setup reversal comment message.
3152:
3165: Open SEL_JNL;
3166: Fetch SEL_JNL into jnl_rec;
3167: While (SEL_JNL%FOUND) LOOP
3168: If (jnl_rec.TRANSFER_TO_EXTERNAL_GL is null) then
3169: delete from XTR_journals
3170: where rowid=jnl_rec.rowid;
3171: Else
3172: -- Create reversing journal entry.
3173:
3182: jnl_rec.ACCOUNTED_DR := jnl_rec.ACCOUNTED_DR;
3183: jnl_rec.ACCOUNTED_CR := 0;
3184: End If;
3185:
3186: INSERT into XTR_JOURNALS
3187: (COMPANY_CODE,
3188: JOURNAL_DATE,
3189: ORIG_JOURNAL_DATE,
3190: DEAL_NUMBER,
3230: jnl_rec.ACCOUNTED_DR,
3231: 'R');
3232:
3233: If (SQL%FOUND) then
3234: UPDATE XTR_JOURNALS
3235: set JNL_REVERSAL_IND = 'C',
3236: CANCELLED_IN_GL = 'Y'
3237: where ROWID = jnl_rec.ROWID;
3238: End If;
3352:
3353: -- Added below cursors for Bug 4639287
3354: cursor c_max_journal_date is
3355: select max(journal_date)
3356: from xtr_journals
3357: where batch_id = l_next_bid;
3358:
3359: cursor c_min_journal_date is
3360: select min(journal_date)
3357: where batch_id = l_next_bid;
3358:
3359: cursor c_min_journal_date is
3360: select min(journal_date)
3361: from xtr_journals
3362: where batch_id = l_next_bid;
3363:
3364: cursor c_acctg_period(p_journal_date DATE) is
3365: select period_name