[Home] [Help]
93:
94: loop
95: --FOR l_tld_loop_cnt in 1 .. lp_tldv_tbl.count loop
96: p_bpd_acc_rec.id := lp_tldv_tbl(l_tld_loop_cnt).id;
97: p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
98:
99:
100:
101: /* apaul -- Code commented out because new accing API uptake not complete
949: -- Start of comments
950: --
951: -- Procedure Name : additional_tld_attr
952: -- Description : Internal procedure to add additional columns for
953: -- OKL_TXD_AR_LN_DTLS_B
954: -- Business Rules :
955: -- Parameters :
956: --
957: -- Version : 1.0
1002:
1003: l_min_acct_unit fnd_currencies.minimum_accountable_unit%TYPE;
1004: l_precision fnd_currencies.PRECISION %TYPE;
1005:
1006: l_rounded_amount OKL_TXD_AR_LN_DTLS_B.amount%TYPE;
1007:
1008: -- to get inventory_org_id bug 4890024 begin
1009: CURSOR inv_org_id_csr(p_contract_id NUMBER) IS
1010: SELECT NVL(inv_organization_id, -99)
1477: ----------------------------------------------------------------------------------
1478: -- Start of comments
1479: -- Procedure Name : validate_tld_values
1480: -- Description : this procedure checks to make sure calling apis, do not pass
1481: -- values to some of the derived columns of OKL_TXD_AR_LN_DTLS_B
1482: -- The reason this procedure need not be invoked in the beginning
1483: -- is APIs normally would not pass these values and if we invoke
1484: -- it in the beginning then it would have to make an additional
1485: -- loop of p_tldv_rec, which would be not performant
1699: -- In this scenario, p_tilv_tbl(n).TXL_AR_LINE_NUMBER is not a required attribute.
1700: -- If user does pass p_tilv_tbl(n).TXL_AR_LINE_NUMBER, system will assume this is a
1701: -- redundant data.
1702: -- System will copy the major attributes (STY_ID, AMOUNT, etc) from p_tilv_rec to
1703: -- create record in OKL_TXD_AR_LN_DTLS_b/tl table (Internal billing invoice/invoce line)
1704: --
1705: -- Note: 1. Assume all calling API will validate attributes before make the call. This is
1706: -- the current architecture and we will adopt all validation logic from calling API
1707: -- to this central API in the future.
2017:
2018: If lp_tldv_tbl(l_tld_loop_cnt).TXL_AR_LINE_NUMBER = l_til_ln_number then
2019: -- Assign lx_til_rec.ID to lp_tld_rec.TIL_ID_DETAILS;
2020: lp_tldv_tbl(l_tld_loop_cnt).TIL_ID_DETAILS := l_til_id;
2021: -- Create okl_TXD_AR_LN_DTLS_B record: okl_tld_pvt.insert_row;
2022: okl_tld_pvt.insert_row(
2023: p_api_version => p_api_version,
2024: p_init_msg_list => p_init_msg_list,
2025: x_return_status => l_return_status,
2088: l_tld_loop_cnt := lp_tldv_tbl.first;
2089: loop
2090: --FOR l_tld_loop_cnt in 1 .. lp_tldv_tbl.count loop
2091: p_bpd_acc_rec.id := lp_tldv_tbl(l_tld_loop_cnt).id;
2092: p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
2093:
2094:
2095: /* apaul -- Code commented out because new accing API uptake not complete
2096: Okl_Acc_Call_Pub.CREATE_ACC_TRANS(p_api_version => p_api_version,
2509: lp_tldv_tbl(l_tld_loop_cnt).TIL_ID_DETAILS := l_til_id;
2510: lp_tldv_tbl(l_til_loop_cnt).LINE_DETAIL_NUMBER := l_til_loop_cnt;
2511: lp_tldv_tbl(l_tld_loop_cnt).KHR_ID := lp_taiv_rec.KHR_ID;
2512: lp_tldv_tbl(l_til_loop_cnt).KLE_ID := lp_tilv_tbl(l_til_loop_cnt).KLE_ID;
2513: -- Create okl_TXD_AR_LN_DTLS_B record: okl_tld_pvt.insert_row;
2514:
2515: -- rmunjulu R12 Fixes -- Added the below to populate the tld columns
2516: -- lp_tldv_tbl(l_til_loop_cnt).STY_ID := lx_tilv_rec.STY_ID;
2517: -- start: cklee til.amount may not be the same as tld amount, so commented the following code
2621:
2622: loop
2623: --FOR l_tld_loop_cnt in 1 .. lp_tldv_tbl.count loop
2624: p_bpd_acc_rec.id := lp_tldv_tbl(l_tld_loop_cnt).id;
2625: p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
2626:
2627:
2628: /* apaul -- Code commented out because new accing API uptake not complete
2629: Okl_Acc_Call_Pub.CREATE_ACC_TRANS(p_api_version => p_api_version,
2802: -- In this scenario, p_tilv_tbl(n).TXL_AR_LINE_NUMBER is not a required attribute.
2803: -- If user does pass p_tilv_tbl(n).TXL_AR_LINE_NUMBER, system will assume this is a
2804: -- redundant data.
2805: -- System will copy the major attributes (STY_ID, AMOUNT, etc) from p_tilv_rec to
2806: -- create record in OKL_TXD_AR_LN_DTLS_b/tl table (Internal billing invoice/invoce line)
2807: --
2808: -- (3) Caller pass 1 layer of billing data:
2809: -- -----------------------------------------
2810: -- If p_tilv_tbl.count = 0, throw error.
3220: l_tilv_Updt_tbl okl_til_pvt.tilv_tbl_type;
3221: l_tilv_Crt_tbl okl_til_pvt.tilv_tbl_type;
3222: l_flag_acc_call VARCHAR2(5);
3223:
3224: CURSOR get_tld_csr(p_til_id_details okl_txd_ar_ln_dtls_b.TIL_ID_DETAILS%TYPE) IS
3225: SELECT ID FROM OKL_TXD_AR_LN_DTLS_B
3226: WHERE TIL_ID_DETAILS = p_til_id_details;
3227:
3228:
3221: l_tilv_Crt_tbl okl_til_pvt.tilv_tbl_type;
3222: l_flag_acc_call VARCHAR2(5);
3223:
3224: CURSOR get_tld_csr(p_til_id_details okl_txd_ar_ln_dtls_b.TIL_ID_DETAILS%TYPE) IS
3225: SELECT ID FROM OKL_TXD_AR_LN_DTLS_B
3226: WHERE TIL_ID_DETAILS = p_til_id_details;
3227:
3228:
3229:
3610: lp_tai_id OKL_TRX_AR_INVOICES_B.ID%TYPE :=p_taiv_id;
3611: lp_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE :=p_tilv_id;
3612: l_tai_id OKL_TRX_AR_INVOICES_B.ID%TYPE;
3613: l_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE ;
3614: l_til_id OKL_TXD_AR_LN_DTLS_B.ID%TYPE ;
3615: l_taiv_rec okl_tai_pvt.taiv_rec_type;
3616: l_tilv_rec okl_til_pvt.tilv_rec_type;
3617: l_tldv_rec okl_tld_pvt.tldv_rec_type;
3618:
3624: get_til_dtl_rec get_til_dtl_csr%rowtype;
3625:
3626: CURSOR get_tld_dtl_csr (g_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE) IS
3627: SELECT ID tld_id
3628: FROM OKL_TXD_AR_LN_DTLS_B
3629: WHERE TIL_ID_DETAILS = g_til_id;
3630:
3631: get_tld_dtl_rec get_tld_dtl_csr%rowtype;
3632: