[Home] [Help]
5: --
6: -- Procedure Name : create_residual_value_trx
7: -- Description : The main body of the package. This procedure gets a table of line ids along with the new
8: -- residual values as parameter. It then validates the new RV to make sure that it is less than
9: -- the current RV and then creates residual value transactions in OKL_TRX_ASSETS_V and
10: -- OKL_TXL_ASSETS_V
11: -- Business Rules :
12: -- Parameters : p_assets_tbl
13: -- History : SECHAWLA 24-DEC-02 : Bug # 2726739
29: -- we are keeping it for the time
30: -- being to avoid
31: -- rosetta regeneration
32:
33: SUBTYPE thpv_rec_type IS okl_trx_assets_pub.thpv_rec_type;
34: SUBTYPE tlpv_rec_type IS okl_txl_assets_pub.tlpv_rec_type;
35:
36:
37: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
79:
80: -- This cursor is used to check if a pending residual value writedown transaction already exists for a contract.
81: CURSOR l_assettrx_csr(p_khr_id NUMBER) IS
82: SELECT count(*)
83: FROM OKL_TRX_ASSETS h, okl_txl_assets_v l
84: WHERE h.id = l.tas_id
85: AND h.tsu_code = 'ENTERED'
86: AND h.tas_type = 'ARC'
87: AND l.dnz_khr_id = p_khr_id;
146:
147: i := p_assets_tbl.FIRST;
148: -- loop thru the table of records receieved as input. For each record get the line item information from
149: -- cursor l_linesfullv_csr. Validate the input data and then create transaction header and transaction line records
150: -- in okl_trx_assets_v and okl_txl_assets_v
151: LOOP
152: IF p_assets_tbl(i).p_id IS NULL OR p_assets_tbl(i).p_id = OKL_API.G_MISS_NUM THEN
153: l_record_status := OKL_API.G_RET_STS_ERROR;
154: -- Line id is required
245: lp_thpv_rec.try_id := l_try_id;
246: lp_thpv_rec.date_trans_occurred := l_sysdate;
247: END IF;
248:
249: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
250: p_api_version => p_api_version,
251: p_init_msg_list => OKL_API.G_FALSE,
252: x_return_status => l_record_status,
253: x_msg_count => x_msg_count,