[Home] [Help]
50: vg_acct_flag Fv_Ye_Sequence_Accounts.account_flag%TYPE;
51: vg_from_acct Fv_Ye_Sequence_Accounts.from_account%TYPE;
52: vg_child_acct Fv_Ye_Sequence_Accounts.from_account%TYPE;
53: vg_to_acct Fv_Ye_Sequence_Accounts.to_account%TYPE;
54: vg_balance_read_flag Fv_Ye_Seq_Bal_Temp.balance_read_flag%TYPE;
55: vg_bal_seq_amt NUMBER;
56: vg_gl_bal_amt NUMBER;
57: vg_coy_dr NUMBER;
58: vg_coy_cr NUMBER;
181: Chk_To_Accounts;
182: END IF;
183:
184: IF (vp_retcode = 0) THEN
185: -- Purging the Fv_Ye_Seq_Bal_Temp Table
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
187: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
188: END IF;
189: Purge_Bal_Temp_Table;
183:
184: IF (vp_retcode = 0) THEN
185: -- Purging the Fv_Ye_Seq_Bal_Temp Table
186: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
187: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PURGING THE FV_YE_SEQ_BAL_TEMP TABLE.');
188: END IF;
189: Purge_Bal_Temp_Table;
190: END IF;
191:
769: BEGIN
770:
771: l_module_name := g_module_name ||'Purge_Bal_Temp_Table ';
772:
773: DELETE FROM Fv_Ye_Seq_Bal_Temp WHERE set_of_books_id = vg_sob_id;
774:
775: COMMIT;
776: EXCEPTION
777: WHEN OTHERS THEN
802:
803:
804: SELECT COUNT(*)
805: INTO vl_reccnt
806: FROM Fv_Ye_Seq_Bal_Temp
807: WHERE set_of_books_id = vg_sob_id;
808:
809: IF (vl_reccnt = 0) THEN
810: RAISE e_no_gldata;
1837: vg_balance_read_flag := 'N';
1838:
1839: SELECT DISTINCT balance_read_flag
1840: INTO vg_balance_read_flag
1841: FROM Fv_Ye_Seq_Bal_Temp
1842: WHERE account_seg = vg_child_acct
1843: AND balance_seg = vg_fund_value
1844: AND set_of_books_id = vg_sob_id
1845: AND fiscal_year = vp_closing_fyr
1884: vl_exists VARCHAR2(1) ;
1885:
1886: CURSOR get_sumtemp_cur IS
1887: SELECT NVL(SUM(bal_seq_amt),0) amt,code_combination_id
1888: FROM Fv_Ye_Seq_Bal_Temp
1889: WHERE account_seg = vg_child_acct
1890: AND balance_seg = vg_fund_value
1891: AND set_of_books_id = vg_sob_id
1892: AND group_id = vg_group_id
1895: GROUP BY code_combination_id;
1896:
1897: CURSOR get_sumtemp_seqcur IS
1898: SELECT NVL(SUM(bal_seq_amt),0) amt,code_combination_id
1899: FROM Fv_Ye_Seq_Bal_Temp
1900: WHERE account_seg = vg_child_acct
1901: AND balance_seg = vg_fund_value
1902: AND set_of_books_id = vg_sob_id
1903: AND group_id = vg_group_id
1903: AND group_id = vg_group_id
1904: AND fiscal_year = vp_closing_fyr
1905: AND balance_read_flag = 'Y'
1906: AND SEQUENCE IN (SELECT MAX(SEQUENCE)
1907: FROM Fv_Ye_Seq_Bal_Temp g
1908: WHERE g.account_seg = vg_from_acct
1909: AND g.balance_seg = vg_fund_value
1910: AND g.set_of_books_id = vg_sob_id
1911: AND g.group_id = vg_group_id
1913: GROUP BY code_combination_id;
1914:
1915: CURSOR get_addccid_cur IS
1916: SELECT NVL(SUM(bal_seq_amt),0) amt,code_combination_id
1917: FROM Fv_Ye_Seq_Bal_Temp
1918: WHERE account_seg = vg_child_acct
1919: AND balance_seg = vg_fund_value
1920: AND set_of_books_id = vg_sob_id
1921: AND group_id = vg_group_id
1940: END IF;
1941: -- Purge the Pl/Sql table
1942: vt_ccid.DELETE;
1943:
1944: /* If there are no records defined in the Fv_Ye_Seq_Bal_Temp table *
1945: * for the fund and the from acct within the group that is being *
1946: * processed. This is the scenario when vg_balance_read_flag = N */
1947: IF (vg_balance_read_flag = 'N') THEN -- vg_balance_read_flag
1948: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1995:
1996: BEGIN
1997: SELECT NVL(SUM(bal_seq_amt),0)
1998: INTO vg_bal_seq_amt
1999: FROM Fv_Ye_Seq_Bal_Temp
2000: WHERE account_seg = vg_child_acct
2001: AND balance_seg = vg_fund_value
2002: AND set_of_books_id = vg_sob_id
2003: AND group_id = vg_group_id
2226: vl_remaining_bal NUMBER;
2227: vl_drcr_flag VARCHAR2(1);
2228: vl_read_flag VARCHAR2(1);
2229: vl_ccid Gl_Code_Combinations.code_combination_id%TYPE;
2230: vl_processing_type Fv_Ye_Seq_Bal_Temp.processing_type%TYPE;
2231: vl_acct_combi VARCHAR2(2000);
2232: vl_delimeter VARCHAR2(1);
2233: v_cross_val_msg VARCHAR2(2000);
2234: l_ccid_select varchar2(2048);
2628: -- ------------------------------------------------------------------
2629: -- Procedure Insert_Balances
2630: -- ------------------------------------------------------------------
2631: -- Insert_Balances procedure is called from Determine_DrCr procedure.
2632: -- This proc inserts into the Fv_Ye_Seq_Bal_Temp table.
2633: -- ------------------------------------------------------------------
2634: PROCEDURE Insert_Balances(ccid NUMBER,
2635: acct VARCHAR2,
2636: bal_amt NUMBER,
2691: END IF;
2692:
2693: -- Get the report sequence
2694: BEGIN
2695: SELECT Fv_Ye_Seq_Bal_Temp_S.NEXTVAL
2696: INTO vl_report_seq
2697: FROM DUAL;
2698: EXCEPTION
2699: WHEN OTHERS THEN
2727:
2728:
2729:
2730: -- Insert into the Temp table.
2731: INSERT INTO Fv_Ye_Seq_Bal_Temp(
2732: code_combination_id,
2733: group_id,
2734: SEQUENCE,
2735: account_seg,
3103: vl_amount_dr NUMBER;
3104: vl_amount_cr NUMBER;
3105: vl_ccid NUMBER(15);
3106: vl_ccid_cnt NUMBER;
3107: vl_ptype Fv_Ye_Seq_Bal_Temp.processing_type%TYPE;
3108: vl_factsi_amount NUMBER;
3109: vl_factsi_tempamt NUMBER;
3110: vl_trading_partner Fv_Facts1_Period_Balances_v.eliminations_dept%TYPE;
3111:
3143: period_net_cr,
3144: period_name ,
3145: balance_read_flag,
3146: processing_type
3147: FROM Fv_Ye_Seq_Bal_Temp
3148: WHERE period_net_dr + period_net_cr > 0
3149: AND set_of_books_id = vg_sob_id
3150: ORDER BY report_sequence;
3151: