[Home] [Help]
1938: -- History : BAKUCHIB 29-JUL-2003 - 3066346 created
1939: -- : BAKUCHIB 05-FEB-2004 - 3381853 Modified
1940: -- End of Commnets
1941: --------------------------------------------------------------------------------
1942: FUNCTION validate_txd_tax_book(p_asset_number IN OKL_TXD_ASSETS_B.ASSET_NUMBER%TYPE,
1943: x_fed_only_tax_book OUT NOCOPY OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
1944: x_fed_only OUT NOCOPY VARCHAR2)
1945: RETURN VARCHAR2 IS
1946: l_prog_name VARCHAR2(100) := 'VAL_TXD_TAX_BOOK';
1939: -- : BAKUCHIB 05-FEB-2004 - 3381853 Modified
1940: -- End of Commnets
1941: --------------------------------------------------------------------------------
1942: FUNCTION validate_txd_tax_book(p_asset_number IN OKL_TXD_ASSETS_B.ASSET_NUMBER%TYPE,
1943: x_fed_only_tax_book OUT NOCOPY OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
1944: x_fed_only OUT NOCOPY VARCHAR2)
1945: RETURN VARCHAR2 IS
1946: l_prog_name VARCHAR2(100) := 'VAL_TXD_TAX_BOOK';
1947: g_process_error EXCEPTION;
1947: g_process_error EXCEPTION;
1948: G_NO_SETUP_TAX_BOOK CONSTANT VARCHAR2(200) := 'OKL_LLP_TAX_BOOK_MAP';
1949: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1950: i NUMBER := 0;
1951: lv_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
1952: -- Get the OKL_TXD_ASSETS_B info
1953: CURSOR l_txd_csr(p_asset_num VARCHAR2)
1954: IS
1955: SELECT tax_book
1948: G_NO_SETUP_TAX_BOOK CONSTANT VARCHAR2(200) := 'OKL_LLP_TAX_BOOK_MAP';
1949: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1950: i NUMBER := 0;
1951: lv_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
1952: -- Get the OKL_TXD_ASSETS_B info
1953: CURSOR l_txd_csr(p_asset_num VARCHAR2)
1954: IS
1955: SELECT tax_book
1956: FROM okl_txd_assets_v txd
1966: WHERE trns.jtot_object1_code = 'FA_BOOK_CONTROLS'
1967: AND trns.object1_id1 = books.book_type_code
1968: AND books.book_type_code = p_book;
1969: TYPE tax_book_value_rec IS RECORD(
1970: tax_book okl_txd_assets_b.tax_book%TYPE := NULL ,
1971: value okl_sgn_translations.value%TYPE := NULL);
1972: TYPE tax_book_value_tbl IS TABLE OF tax_book_value_rec
1973: INDEX BY BINARY_INTEGER;
1974: lt_tax_book_value_tbl tax_book_value_tbl;
1972: TYPE tax_book_value_tbl IS TABLE OF tax_book_value_rec
1973: INDEX BY BINARY_INTEGER;
1974: lt_tax_book_value_tbl tax_book_value_tbl;
1975: BEGIN
1976: -- We scan thru OKL_TXD_ASSETS_B for tax book
1977: FOR r_txd_csr IN l_txd_csr(p_asset_num => p_asset_number) LOOP
1978: OPEN l_txtrans_csr(p_book => r_txd_csr.tax_book);
1979: FETCH l_txtrans_csr INTO lt_tax_book_value_tbl(i).value,
1980: lt_tax_book_value_tbl(i).tax_book;
2059: -- History : BAKUCHIB 20-FEB-2004 - 3447917 created
2060: -- End of Commnets
2061: --------------------------------------------------------------------------------
2062: -- bug 4194673 fixed by HKPATEL
2063: FUNCTION is_rep_pdt(--p_asset_number IN okl_txd_assets_b.asset_number%TYPE,
2064: p_corp_book IN VARCHAR2,
2065: x_mg_tax_yn OUT NOCOPY VARCHAR2)
2066: RETURN VARCHAR2 IS
2067: l_prog_name VARCHAR2(100) := 'IS_REP_PDT';
2067: l_prog_name VARCHAR2(100) := 'IS_REP_PDT';
2068: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2069: lv_mg_tax_yn VARCHAR2(3) := 'N';
2070: /*
2071: CURSOR get_rep_tax_csr(p_asset_number okl_txd_assets_b.asset_number%TYPE)
2072: IS
2073: SELECT 'Y'
2074: FROM DUAL
2075: WHERE EXISTS (SELECT 'Y'
2072: IS
2073: SELECT 'Y'
2074: FROM DUAL
2075: WHERE EXISTS (SELECT 'Y'
2076: FROM okl_txd_assets_b txd
2077: WHERE txd.asset_number = p_asset_number
2078: AND txd.tax_book = fnd_profile.value('OKL_REPORTING_PDT_ASSET_BOOK'));
2079: */
2080: CURSOR get_rep_tax_csr(p_corp_book VARCHAR2)
17448: l_api_version CONSTANT NUMBER := 1;
17449: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17450: lv_fed_only VARCHAR2(3) := 'N';
17451: ln_value NUMBER := 0;
17452: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
17453: lv_mg_tax_yn VARCHAR2(3) := 'N';
17454: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
17455: lv_currency_code okc_k_headers_b.currency_code%TYPE;
17456: l_rnd_basis_percent NUMBER;
17495: l_feecap OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
17496: l_capint OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
17497: l_discount OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
17498: l_corp_dep_cost OKL_TXL_ASSETS_B.DEPRECIATION_COST%TYPE := 0;
17499: l_tax_dep_cost OKL_TXD_ASSETS_B.COST%TYPE := 0;
17500: l_lease_tax_owner okc_rules_b.rule_information1%TYPE := NULL;
17501: lx_no_data_found BOOLEAN;
17502: -- l_sty_id NUMBER;
17503: l_sty_id strm_rec_type;
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18279: END IF;
18280: -- If the reporting book is of deal type and if the
18281: -- if there is multi gaap tax book create in okl_txd_assets_b table
18282: -- then we go and generate the book dep streams for the Mg tax book
18283: -- else we do not generate stream for the Multi gaap
18284: IF lx_pdt_param_rec.deal_type = 'LEASEOP' AND
18285: lv_mg_tax_yn = 'Y' THEN
21830: ld_last_start_date okc_k_headers_b.start_date%TYPE;
21831: ld_last_end_date okc_k_headers_b.start_date%TYPE;
21832: ld_chr_end_date okc_k_headers_b.end_date%TYPE;
21833: -- End of BAKUCHIB modification bug#3121708
21834: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
21835: ln_org_id okc_k_headers_b.authoring_org_id%TYPE;
21836: lv_currency_code okc_k_headers_b.currency_code%TYPE;
21837: l_rnd_basis_percent NUMBER;
21838: l_level_type NUMBER;
21865: l_feecap OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
21866: l_capint OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
21867: l_discount OKL_K_LINES.CAPITAL_AMOUNT%TYPE := 0;
21868: l_corp_dep_cost OKL_TXL_ASSETS_B.DEPRECIATION_COST%TYPE := 0;
21869: l_tax_dep_cost OKL_TXD_ASSETS_B.COST%TYPE := 0;
21870: l_lease_tax_owner okc_rules_b.rule_information1%TYPE := NULL;
21871: -- get the Contract Header info
21872: CURSOR l_hdr_csr(chrId NUMBER)
21873: IS