[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
1052: -- Start of comments
1053: --
1054: -- Procedure Name : additional_tld_attr
1055: -- Description : Internal procedure to add additional columns for
1056: -- OKL_TXD_AR_LN_DTLS_B
1057: -- Business Rules :
1058: -- Parameters :
1059: --
1060: -- Version : 1.0
1105:
1106: l_min_acct_unit fnd_currencies.minimum_accountable_unit%TYPE;
1107: l_precision fnd_currencies.PRECISION %TYPE;
1108:
1109: l_rounded_amount OKL_TXD_AR_LN_DTLS_B.amount%TYPE;
1110:
1111: -- to get inventory_org_id bug 4890024 begin
1112: CURSOR inv_org_id_csr(p_contract_id NUMBER) IS
1113: SELECT NVL(inv_organization_id, -99)
1580: ----------------------------------------------------------------------------------
1581: -- Start of comments
1582: -- Procedure Name : validate_tld_values
1583: -- Description : this procedure checks to make sure calling apis, do not pass
1584: -- values to some of the derived columns of OKL_TXD_AR_LN_DTLS_B
1585: -- The reason this procedure need not be invoked in the beginning
1586: -- is APIs normally would not pass these values and if we invoke
1587: -- it in the beginning then it would have to make an additional
1588: -- loop of p_tldv_rec, which would be not performant
1850: -- In this scenario, p_tilv_tbl(n).TXL_AR_LINE_NUMBER is not a required attribute.
1851: -- If user does pass p_tilv_tbl(n).TXL_AR_LINE_NUMBER, system will assume this is a
1852: -- redundant data.
1853: -- System will copy the major attributes (STY_ID, AMOUNT, etc) from p_tilv_rec to
1854: -- create record in OKL_TXD_AR_LN_DTLS_b/tl table (Internal billing invoice/invoce line)
1855: --
1856: -- Note: 1. Assume all calling API will validate attributes before make the call. This is
1857: -- the current architecture and we will adopt all validation logic from calling API
1858: -- to this central API in the future.
2186:
2187: If lp_tldv_tbl(l_tld_loop_cnt).TXL_AR_LINE_NUMBER = l_til_ln_number then
2188: -- Assign lx_til_rec.ID to lp_tld_rec.TIL_ID_DETAILS;
2189: lp_tldv_tbl(l_tld_loop_cnt).TIL_ID_DETAILS := l_til_id;
2190: -- Create okl_TXD_AR_LN_DTLS_B record: okl_tld_pvt.insert_row;
2191: okl_tld_pvt.insert_row(
2192: p_api_version => p_api_version,
2193: p_init_msg_list => p_init_msg_list,
2194: x_return_status => l_return_status,
2257: l_tld_loop_cnt := lp_tldv_tbl.first;
2258: loop
2259: --FOR l_tld_loop_cnt in 1 .. lp_tldv_tbl.count loop
2260: p_bpd_acc_rec.id := lp_tldv_tbl(l_tld_loop_cnt).id;
2261: p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
2262:
2263:
2264: /* apaul -- Code commented out because new accing API uptake not complete
2265: Okl_Acc_Call_Pub.CREATE_ACC_TRANS(p_api_version => p_api_version,
2678: lp_tldv_tbl(l_tld_loop_cnt).TIL_ID_DETAILS := l_til_id;
2679: lp_tldv_tbl(l_til_loop_cnt).LINE_DETAIL_NUMBER := l_til_loop_cnt;
2680: lp_tldv_tbl(l_tld_loop_cnt).KHR_ID := lp_taiv_rec.KHR_ID;
2681: lp_tldv_tbl(l_til_loop_cnt).KLE_ID := lp_tilv_tbl(l_til_loop_cnt).KLE_ID;
2682: -- Create okl_TXD_AR_LN_DTLS_B record: okl_tld_pvt.insert_row;
2683:
2684: -- rmunjulu R12 Fixes -- Added the below to populate the tld columns
2685: -- lp_tldv_tbl(l_til_loop_cnt).STY_ID := lx_tilv_rec.STY_ID;
2686: -- start: cklee til.amount may not be the same as tld amount, so commented the following code
2790:
2791: loop
2792: --FOR l_tld_loop_cnt in 1 .. lp_tldv_tbl.count loop
2793: p_bpd_acc_rec.id := lp_tldv_tbl(l_tld_loop_cnt).id;
2794: p_bpd_acc_rec.source_table := 'OKL_TXD_AR_LN_DTLS_B';
2795:
2796:
2797: /* apaul -- Code commented out because new accing API uptake not complete
2798: Okl_Acc_Call_Pub.CREATE_ACC_TRANS(p_api_version => p_api_version,
2971: -- In this scenario, p_tilv_tbl(n).TXL_AR_LINE_NUMBER is not a required attribute.
2972: -- If user does pass p_tilv_tbl(n).TXL_AR_LINE_NUMBER, system will assume this is a
2973: -- redundant data.
2974: -- System will copy the major attributes (STY_ID, AMOUNT, etc) from p_tilv_rec to
2975: -- create record in OKL_TXD_AR_LN_DTLS_b/tl table (Internal billing invoice/invoce line)
2976: --
2977: -- (3) Caller pass 1 layer of billing data:
2978: -- -----------------------------------------
2979: -- If p_tilv_tbl.count = 0, throw error.
3465: l_tilv_Updt_tbl okl_til_pvt.tilv_tbl_type;
3466: l_tilv_Crt_tbl okl_til_pvt.tilv_tbl_type;
3467: l_flag_acc_call VARCHAR2(5);
3468:
3469: CURSOR get_tld_csr(p_til_id_details okl_txd_ar_ln_dtls_b.TIL_ID_DETAILS%TYPE) IS
3470: SELECT ID FROM OKL_TXD_AR_LN_DTLS_B
3471: WHERE TIL_ID_DETAILS = p_til_id_details;
3472:
3473:
3466: l_tilv_Crt_tbl okl_til_pvt.tilv_tbl_type;
3467: l_flag_acc_call VARCHAR2(5);
3468:
3469: CURSOR get_tld_csr(p_til_id_details okl_txd_ar_ln_dtls_b.TIL_ID_DETAILS%TYPE) IS
3470: SELECT ID FROM OKL_TXD_AR_LN_DTLS_B
3471: WHERE TIL_ID_DETAILS = p_til_id_details;
3472:
3473:
3474:
3855: lp_tai_id OKL_TRX_AR_INVOICES_B.ID%TYPE :=p_taiv_id;
3856: lp_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE :=p_tilv_id;
3857: l_tai_id OKL_TRX_AR_INVOICES_B.ID%TYPE;
3858: l_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE ;
3859: l_til_id OKL_TXD_AR_LN_DTLS_B.ID%TYPE ;
3860: l_taiv_rec okl_tai_pvt.taiv_rec_type;
3861: l_tilv_rec okl_til_pvt.tilv_rec_type;
3862: l_tldv_rec okl_tld_pvt.tldv_rec_type;
3863:
3869: get_til_dtl_rec get_til_dtl_csr%rowtype;
3870:
3871: CURSOR get_tld_dtl_csr (g_til_id OKL_TXL_AR_INV_LNS_B.ID%TYPE) IS
3872: SELECT ID tld_id
3873: FROM OKL_TXD_AR_LN_DTLS_B
3874: WHERE TIL_ID_DETAILS = g_til_id;
3875:
3876: get_tld_dtl_rec get_tld_dtl_csr%rowtype;
3877: