[Home] [Help]
8: G_FIN_AST_LTY_CODE CONSTANT VARCHAR2(30) := 'FREE_FORM1';
9: --------------------------------------------------------------------------------
10: -- GLOBAL MESSAGE CONSTANTS
11: --------------------------------------------------------------------------------
12: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
13: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: --------------------------------------------------------------------------------
10: -- GLOBAL MESSAGE CONSTANTS
11: --------------------------------------------------------------------------------
12: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
13: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
11: --------------------------------------------------------------------------------
12: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
13: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
12: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
13: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: -- Bug# 4542290 - smadhava - Added - Start
13: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
17: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
19: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
20: -- Bug# 4542290 - smadhava - Added - Start
21: G_METHOD CONSTANT VARCHAR2(200) := 'METHOD';
162: from okc_k_lines_b cleb
163: where id = p_cle_id
164: and lse_id = 33;
165:
166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
167:
168: Begin
169: x_return_status := OKL_API.G_RET_STS_SUCCESS;
170: -- Call start_activity to create savepoint, check compatibility
165:
166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
167:
168: Begin
169: x_return_status := OKL_API.G_RET_STS_SUCCESS;
170: -- Call start_activity to create savepoint, check compatibility
171: -- and initialize message list
172: x_return_status := OKL_API.START_ACTIVITY (
173: l_api_name
168: Begin
169: x_return_status := OKL_API.G_RET_STS_SUCCESS;
170: -- Call start_activity to create savepoint, check compatibility
171: -- and initialize message list
172: x_return_status := OKL_API.START_ACTIVITY (
173: l_api_name
174: ,p_init_msg_list
175: ,'_PVT'
176: ,x_return_status);
174: ,p_init_msg_list
175: ,'_PVT'
176: ,x_return_status);
177: -- Check if activity started successfully
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
175: ,'_PVT'
176: ,x_return_status);
177: -- Check if activity started successfully
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183: --1. Validate Revision Date
176: ,x_return_status);
177: -- Check if activity started successfully
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183: --1. Validate Revision Date
184: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
177: -- Check if activity started successfully
178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183: --1. Validate Revision Date
184: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
185: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183: --1. Validate Revision Date
184: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
185: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
186: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
187: p_token1 => 'COLUMN_PROMPT',
188: p_token1_value => 'Revision Date'
181: RAISE OKL_API.G_EXCEPTION_ERROR;
182: END IF;
183: --1. Validate Revision Date
184: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
185: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
186: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
187: p_token1 => 'COLUMN_PROMPT',
188: p_token1_value => 'Revision Date'
189: );
186: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
187: p_token1 => 'COLUMN_PROMPT',
188: p_token1_value => 'Revision Date'
189: );
190: l_return_status := OKL_API.G_RET_STS_ERROR;
191: END IF;
192: --2. Validate the Asset Id
193: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
194: --Asset Number to split is andatory
189: );
190: l_return_status := OKL_API.G_RET_STS_ERROR;
191: END IF;
192: --2. Validate the Asset Id
193: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
194: --Asset Number to split is andatory
195: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
196: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
197: p_token1 => 'COLUMN_PROMPT',
191: END IF;
192: --2. Validate the Asset Id
193: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
194: --Asset Number to split is andatory
195: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
196: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
197: p_token1 => 'COLUMN_PROMPT',
198: p_token1_value => 'Asset'
199: );
196: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
197: p_token1 => 'COLUMN_PROMPT',
198: p_token1_value => 'Asset'
199: );
200: l_return_status := OKL_API.G_RET_STS_ERROR;
201: ElsIf nvl(p_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
202: --find out whether the asset number provided is valid
203: l_valid_asset_flag := 'N';
204: Open l_cle_csr(p_cle_id => p_cle_id);
197: p_token1 => 'COLUMN_PROMPT',
198: p_token1_value => 'Asset'
199: );
200: l_return_status := OKL_API.G_RET_STS_ERROR;
201: ElsIf nvl(p_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
202: --find out whether the asset number provided is valid
203: l_valid_asset_flag := 'N';
204: Open l_cle_csr(p_cle_id => p_cle_id);
205: Fetch l_cle_csr into l_valid_asset_flag;
204: Open l_cle_csr(p_cle_id => p_cle_id);
205: Fetch l_cle_csr into l_valid_asset_flag;
206: Close l_cle_csr;
207: If l_valid_asset_flag = 'N' Then
208: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
209: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
210: p_token1 => 'COL_NAME',
211: p_token1_value => 'Asset'
212: );
209: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
210: p_token1 => 'COL_NAME',
211: p_token1_value => 'Asset'
212: );
213: l_return_status := OKL_API.G_RET_STS_ERROR;
214: End If;
215: End If;
216: --3. validate units to split
217: If (
214: End If;
215: End If;
216: --3. validate units to split
217: If (
218: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
215: End If;
216: --3. validate units to split
217: If (
218: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
223: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
218: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
223: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
224: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
225: p_token1 => 'COL_NAME1',
226: p_token1_value => 'Split Into Single Units',
219: OKL_API.G_MISS_CHAR
220: ) OR (p_split_into_individuals_yn = 'N')
221: ) AND
222: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
223: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
224: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
225: p_token1 => 'COL_NAME1',
226: p_token1_value => 'Split Into Single Units',
227: p_token2 => 'COL_NAME2',
226: p_token1_value => 'Split Into Single Units',
227: p_token2 => 'COL_NAME2',
228: p_token2_value => 'Number of Units'
229: );
230: l_return_status := OKL_API.G_RET_STS_ERROR;
231: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
232: Then
233: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
234: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
227: p_token2 => 'COL_NAME2',
228: p_token2_value => 'Number of Units'
229: );
230: l_return_status := OKL_API.G_RET_STS_ERROR;
231: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
232: Then
233: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
234: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
235: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
229: );
230: l_return_status := OKL_API.G_RET_STS_ERROR;
231: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
232: Then
233: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
234: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
235: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
236: p_token1 => 'PROMPT',
237: p_token1_value => 'Number of Units'
230: l_return_status := OKL_API.G_RET_STS_ERROR;
231: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
232: Then
233: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
234: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
235: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
236: p_token1 => 'PROMPT',
237: p_token1_value => 'Number of Units'
238: );
235: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
236: p_token1 => 'PROMPT',
237: p_token1_value => 'Number of Units'
238: );
239: l_return_status := OKL_API.G_RET_STS_ERROR;
240: End If;
241: End IF;
242:
243: x_return_status := l_return_status;
242:
243: x_return_status := l_return_status;
244:
245: --Call end Activity
246: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
247: EXCEPTION
248: WHEN OKL_API.G_EXCEPTION_ERROR Then
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
250: (
244:
245: --Call end Activity
246: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
247: EXCEPTION
248: WHEN OKL_API.G_EXCEPTION_ERROR Then
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
250: (
251: l_api_name,
252: G_PKG_NAME,
245: --Call end Activity
246: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
247: EXCEPTION
248: WHEN OKL_API.G_EXCEPTION_ERROR Then
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
250: (
251: l_api_name,
252: G_PKG_NAME,
253: 'OKL_API.G_RET_STS_ERROR',
249: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
250: (
251: l_api_name,
252: G_PKG_NAME,
253: 'OKL_API.G_RET_STS_ERROR',
254: x_msg_count,
255: x_msg_data,
256: '_PVT'
257: );
254: x_msg_count,
255: x_msg_data,
256: '_PVT'
257: );
258: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
259: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
260: (
261: l_api_name,
262: G_PKG_NAME,
255: x_msg_data,
256: '_PVT'
257: );
258: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
259: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
260: (
261: l_api_name,
262: G_PKG_NAME,
263: 'OKL_API.G_RET_STS_UNEXP_ERROR',
259: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
260: (
261: l_api_name,
262: G_PKG_NAME,
263: 'OKL_API.G_RET_STS_UNEXP_ERROR',
264: x_msg_count,
265: x_msg_data,
266: '_PVT'
267: );
265: x_msg_data,
266: '_PVT'
267: );
268: WHEN OTHERS THEN
269: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
270: (
271: l_api_name,
272: G_PKG_NAME,
273: 'OTHERS',
305: ,x_klev_rec OUT NOCOPY klev_rec_type
306: ,x_clev_rec OUT NOCOPY clev_rec_type
307: ) IS
308:
309: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
310: l_api_name CONSTANT VARCHAR2(30) := 'get_split_round_amount';
311: l_api_version CONSTANT NUMBER := 1.0;
312:
313: --Fix Bug# 2727161
365: l_round_amount:=p_amount;
366:
367: IF (p_amount IS NOT NULL
368: AND
369: p_amount <> OKL_API.G_MISS_NUM) THEN
370:
371: l_round_amount := NULL;
372:
373: l_round_amount := okl_accounting_util.cross_currency_round_amount(
378: RETURN l_round_amount;
379:
380: EXCEPTION
381: WHEN OTHERS THEN
382: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
383: p_msg_name => 'OKL_UNEXPECTED_ERROR',
384: p_token1 => 'OKL_SQLCODE',
385: p_token1_value => SQLCODE,
386: p_token2 => 'OKL_SQLERRM',
392:
393: BEGIN
394: -- Call start_activity to create savepoint, check compatibility
395: -- and initialize message list
396: x_return_status := OKL_API.START_ACTIVITY (
397: l_api_name
398: ,p_init_msg_list
399: ,'_PVT'
400: ,x_return_status);
398: ,p_init_msg_list
399: ,'_PVT'
400: ,x_return_status);
401: -- Check if activity started successfully
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
399: ,'_PVT'
400: ,x_return_status);
401: -- Check if activity started successfully
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
400: ,x_return_status);
401: -- Check if activity started successfully
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: l_currency_code := '?';
401: -- Check if activity started successfully
402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
405: RAISE OKL_API.G_EXCEPTION_ERROR;
406: END IF;
407:
408: l_currency_code := '?';
409: OPEN curr_hdr_csr (p_clev_rec.dnz_chr_id);
420: CLOSE curr_ln_csr;
421: END IF;
422:
423: IF (l_currency_code = '?') THEN -- Fatal error, Not a valid currency_code
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426:
427: l_klev_rec_out:=p_klev_rec;
428: l_clev_rec_out:=p_clev_rec;
464:
465:
466: for l_txd_rec in l_txd_csr(p_txl_id)
467: loop
468: if nvl(l_txd_rec.split_percent,0) in (0,okl_api.g_miss_num) then
469: l_child_split_factor := l_txd_rec.quantity/l_txd_rec.current_units;
470: l_split_by_unit:='Y';
471: else
472: l_child_split_factor := l_txd_rec.split_percent/100;
616:
617: x_klev_rec:=l_klev_rec_out;
618: x_clev_rec:=l_clev_rec_out;
619:
620: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
621:
622: EXCEPTION
623:
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
620: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
621:
622: EXCEPTION
623:
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: l_api_name,
627: G_PKG_NAME,
628: 'OKL_API.G_RET_STS_ERROR',
621:
622: EXCEPTION
623:
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: l_api_name,
627: G_PKG_NAME,
628: 'OKL_API.G_RET_STS_ERROR',
629: x_msg_count,
624: WHEN OKL_API.G_EXCEPTION_ERROR THEN
625: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: l_api_name,
627: G_PKG_NAME,
628: 'OKL_API.G_RET_STS_ERROR',
629: x_msg_count,
630: x_msg_data,
631: '_PVT');
632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
628: 'OKL_API.G_RET_STS_ERROR',
629: x_msg_count,
630: x_msg_data,
631: '_PVT');
632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
633: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
634: l_api_name,
635: G_PKG_NAME,
636: 'OKL_API.G_RET_STS_UNEXP_ERROR',
629: x_msg_count,
630: x_msg_data,
631: '_PVT');
632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
633: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
634: l_api_name,
635: G_PKG_NAME,
636: 'OKL_API.G_RET_STS_UNEXP_ERROR',
637: x_msg_count,
632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
633: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
634: l_api_name,
635: G_PKG_NAME,
636: 'OKL_API.G_RET_STS_UNEXP_ERROR',
637: x_msg_count,
638: x_msg_data,
639: '_PVT');
640: WHEN OTHERS THEN
637: x_msg_count,
638: x_msg_data,
639: '_PVT');
640: WHEN OTHERS THEN
641: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
642: l_api_name,
643: G_PKG_NAME,
644: 'OTHERS',
645: x_msg_count,
669: p_txlv_rec IN txlv_rec_type
670: ) IS
671:
672:
673: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
674: l_api_name CONSTANT VARCHAR2(30) := 'adjust_unit_cost';
675: l_api_version CONSTANT NUMBER := 1.0;
676:
677: l_fa_line_id NUMBER;
828: p_chr_id IN NUMBER,
829: p_kle_id IN NUMBER) RETURN NUMBER IS
830: l_tot_amount NUMBER := 0;
831: BEGIN
832: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
833: FOR l_pmnt_strm_check_rec2 IN l_pmnt_strm_check2('LALEVL','LASLH','UNSCHEDULED_PRINCIPAL_PAYMENT', p_chr_id)
834: LOOP
835: IF (l_pmnt_strm_check_rec2.cle_id = p_kle_id) THEN
836: FOR l_pmnt_lns_in_hdr_rec2 IN l_pmnt_lns_in_hdr2(l_pmnt_strm_check_rec2.id ,p_chr_id)
843: RETURN(l_tot_amount);
844:
845: EXCEPTION WHEN OTHERS THEN
846: --print('Exception In tot_unsched_prin_payment...sqlcode=' || sqlcode || ' sqlerrm=' || sqlerrm);
847: x_return_status := Okl_Api.G_RET_STS_ERROR;
848: RETURN(0);
849: END; -- tot_unsched_prin_payment
850:
851:
852: begin
853:
854: -- Call start_activity to create savepoint, check compatibility
855: -- and initialize message list
856: x_return_status := OKL_API.START_ACTIVITY (
857: l_api_name
858: ,p_init_msg_list
859: ,'_PVT'
860: ,x_return_status);
858: ,p_init_msg_list
859: ,'_PVT'
860: ,x_return_status);
861: -- Check if activity started successfully
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
859: ,'_PVT'
860: ,x_return_status);
861: -- Check if activity started successfully
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
860: ,x_return_status);
861: -- Check if activity started successfully
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
868: l_fa_line_id:= p_cle_id;
861: -- Check if activity started successfully
862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
865: RAISE OKL_API.G_EXCEPTION_ERROR;
866: END IF;
867:
868: l_fa_line_id:= p_cle_id;
869: l_chr_id:= p_txlv_rec.dnz_khr_id;
905: ---------get subsidy amount if any--
906: l_amort_subsidy_amount :=0;
907: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount(
908: p_api_version => 1.0,
909: p_init_msg_list => Okl_Api.G_FALSE,
910: x_return_status => l_return_status,
911: x_msg_count => x_msg_count,
912: x_msg_data => x_msg_data,
913: p_asset_cle_id => l_curr_cle_id,
986: x_clev_tbl => lx_clev_price_tbl,
987: x_klev_tbl => lx_klev_price_tbl);
988:
989: --dbms_output.put_line('After updating contract line :'||x_return_status);
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
987: x_klev_tbl => lx_klev_price_tbl);
988:
989: --dbms_output.put_line('After updating contract line :'||x_return_status);
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: END IF; -- l_principal_payment_found
988:
989: --dbms_output.put_line('After updating contract line :'||x_return_status);
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: END IF; -- l_principal_payment_found
996: END IF; --l_ste_code
989: --dbms_output.put_line('After updating contract line :'||x_return_status);
990: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: END IF; -- l_principal_payment_found
996: END IF; --l_ste_code
997:
995: END IF; -- l_principal_payment_found
996: END IF; --l_ste_code
997:
998: EXCEPTION
999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OKL_API.G_RET_STS_ERROR',
996: END IF; --l_ste_code
997:
998: EXCEPTION
999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OKL_API.G_RET_STS_ERROR',
1004: x_msg_count,
999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1000: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1001: l_api_name,
1002: G_PKG_NAME,
1003: 'OKL_API.G_RET_STS_ERROR',
1004: x_msg_count,
1005: x_msg_data,
1006: '_PVT');
1007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1003: 'OKL_API.G_RET_STS_ERROR',
1004: x_msg_count,
1005: x_msg_data,
1006: '_PVT');
1007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1008: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1009: l_api_name,
1010: G_PKG_NAME,
1011: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1004: x_msg_count,
1005: x_msg_data,
1006: '_PVT');
1007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1008: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1009: l_api_name,
1010: G_PKG_NAME,
1011: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1012: x_msg_count,
1007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1008: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1009: l_api_name,
1010: G_PKG_NAME,
1011: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1012: x_msg_count,
1013: x_msg_data,
1014: '_PVT');
1015: WHEN OTHERS THEN
1012: x_msg_count,
1013: x_msg_data,
1014: '_PVT');
1015: WHEN OTHERS THEN
1016: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1017: l_api_name,
1018: G_PKG_NAME,
1019: 'OTHERS',
1020: x_msg_count,
1047: l_trx_status VARCHAR2(100);
1048: BEGIN
1049: -- Call start_activity to create savepoint, check compatibility
1050: -- and initialize message list
1051: x_return_status := OKL_API.START_ACTIVITY (
1052: l_api_name
1053: ,p_init_msg_list
1054: ,'_PVT'
1055: ,x_return_status);
1053: ,p_init_msg_list
1054: ,'_PVT'
1055: ,x_return_status);
1056: -- Check if activity started successfully
1057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1060: RAISE OKL_API.G_EXCEPTION_ERROR;
1061: END IF;
1054: ,'_PVT'
1055: ,x_return_status);
1056: -- Check if activity started successfully
1057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1060: RAISE OKL_API.G_EXCEPTION_ERROR;
1061: END IF;
1062:
1055: ,x_return_status);
1056: -- Check if activity started successfully
1057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1060: RAISE OKL_API.G_EXCEPTION_ERROR;
1061: END IF;
1062:
1063: okl_contract_status_pub.update_contract_status(
1056: -- Check if activity started successfully
1057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1060: RAISE OKL_API.G_EXCEPTION_ERROR;
1061: END IF;
1062:
1063: okl_contract_status_pub.update_contract_status(
1064: p_api_version => l_api_version,
1067: x_msg_count => x_msg_count,
1068: x_msg_data => x_msg_data,
1069: p_khr_status => 'PASSED',
1070: p_chr_id => p_chr_id);
1071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_ERROR;
1075: END IF;
1068: x_msg_data => x_msg_data,
1069: p_khr_status => 'PASSED',
1070: p_chr_id => p_chr_id);
1071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_ERROR;
1075: END IF;
1076:
1069: p_khr_status => 'PASSED',
1070: p_chr_id => p_chr_id);
1071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_ERROR;
1075: END IF;
1076:
1077: --cascade status to lines
1070: p_chr_id => p_chr_id);
1071: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1074: RAISE Okl_Api.G_EXCEPTION_ERROR;
1075: END IF;
1076:
1077: --cascade status to lines
1078: okl_contract_status_pub.cascade_lease_status(
1082: x_msg_count => x_msg_count,
1083: x_msg_data => x_msg_data,
1084: p_chr_id => p_chr_id);
1085:
1086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1089: RAISE Okl_Api.G_EXCEPTION_ERROR;
1090: END IF;
1083: x_msg_data => x_msg_data,
1084: p_chr_id => p_chr_id);
1085:
1086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1089: RAISE Okl_Api.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1084: p_chr_id => p_chr_id);
1085:
1086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1089: RAISE Okl_Api.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1092: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
1085:
1086: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1087: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1088: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1089: RAISE Okl_Api.G_EXCEPTION_ERROR;
1090: END IF;
1091:
1092: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
1093: p_api_version => l_api_version,
1100: x_trx_number => l_trx_number,
1101: x_trx_status => l_trx_status);
1102:
1103: -- check if activity started successfully
1104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1107: RAISE OKL_API.G_EXCEPTION_ERROR;
1108: END IF;
1101: x_trx_status => l_trx_status);
1102:
1103: -- check if activity started successfully
1104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1107: RAISE OKL_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: OKL_API.END_ACTIVITY (x_msg_count,
1102:
1103: -- check if activity started successfully
1104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1107: RAISE OKL_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: OKL_API.END_ACTIVITY (x_msg_count,
1110: x_msg_data);
1103: -- check if activity started successfully
1104: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1107: RAISE OKL_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: OKL_API.END_ACTIVITY (x_msg_count,
1110: x_msg_data);
1111: EXCEPTION
1105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1106: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1107: RAISE OKL_API.G_EXCEPTION_ERROR;
1108: END IF;
1109: OKL_API.END_ACTIVITY (x_msg_count,
1110: x_msg_data);
1111: EXCEPTION
1112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1108: END IF;
1109: OKL_API.END_ACTIVITY (x_msg_count,
1110: x_msg_data);
1111: EXCEPTION
1112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1114: l_api_name,
1115: G_PKG_NAME,
1116: 'OKL_API.G_RET_STS_ERROR',
1109: OKL_API.END_ACTIVITY (x_msg_count,
1110: x_msg_data);
1111: EXCEPTION
1112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1114: l_api_name,
1115: G_PKG_NAME,
1116: 'OKL_API.G_RET_STS_ERROR',
1117: x_msg_count,
1112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1114: l_api_name,
1115: G_PKG_NAME,
1116: 'OKL_API.G_RET_STS_ERROR',
1117: x_msg_count,
1118: x_msg_data,
1119: '_PVT');
1120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1116: 'OKL_API.G_RET_STS_ERROR',
1117: x_msg_count,
1118: x_msg_data,
1119: '_PVT');
1120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1117: x_msg_count,
1118: x_msg_data,
1119: '_PVT');
1120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1125: x_msg_count,
1120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT');
1128: WHEN OTHERS THEN
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT');
1128: WHEN OTHERS THEN
1129: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1130: l_api_name,
1131: G_PKG_NAME,
1132: 'OTHERS',
1133: x_msg_count,
1147: -- 25-Jul-2007 bkatraga Creation
1148: --End of Comments
1149: ------------------------------------------------------------------------------
1150: PROCEDURE SPLIT_ASSET_AFTER_YIELD (p_api_version IN NUMBER,
1151: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1152: x_return_status OUT NOCOPY VARCHAR2,
1153: x_msg_count OUT NOCOPY NUMBER,
1154: x_msg_data OUT NOCOPY VARCHAR2,
1155: p_chr_id IN NUMBER) IS
1153: x_msg_count OUT NOCOPY NUMBER,
1154: x_msg_data OUT NOCOPY VARCHAR2,
1155: p_chr_id IN NUMBER) IS
1156:
1157: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
1158: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_ASSET_AFTER_YIELD';
1159: l_api_version CONSTANT NUMBER := 1.0;
1160: l_split_trx_flag VARCHAR2(1);
1161: l_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1159: l_api_version CONSTANT NUMBER := 1.0;
1160: l_split_trx_flag VARCHAR2(1);
1161: l_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1162: l_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
1163: l_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
1164: l_inv_agmt_chr_id_tbl OKL_SECURITIZATION_PVT.inv_agmt_chr_id_tbl_type;
1165: l_inv_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1166: l_inv_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
1167: l_trxv_rec trxv_rec_type;
1199:
1200: BEGIN
1201: -- Call start_activity to create savepoint, check compatibility
1202: -- and initialize message list
1203: x_return_status := OKL_API.START_ACTIVITY (
1204: l_api_name
1205: ,p_init_msg_list
1206: ,'_PVT'
1207: ,x_return_status);
1205: ,p_init_msg_list
1206: ,'_PVT'
1207: ,x_return_status);
1208: -- Check if activity started successfully
1209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1206: ,'_PVT'
1207: ,x_return_status);
1208: -- Check if activity started successfully
1209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1207: ,x_return_status);
1208: -- Check if activity started successfully
1209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: -- MGAAP start 7263041
1208: -- Check if activity started successfully
1209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1212: RAISE OKL_API.G_EXCEPTION_ERROR;
1213: END IF;
1214:
1215: -- MGAAP start 7263041
1216: OPEN check_csr(p_chr_id);
1232: x_msg_count => x_msg_count,
1233: x_msg_data => x_msg_data,
1234: p_khr_status => 'BOOKED',
1235: p_chr_id => p_chr_id);
1236: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1233: x_msg_data => x_msg_data,
1234: p_khr_status => 'BOOKED',
1235: p_chr_id => p_chr_id);
1236: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1234: p_khr_status => 'BOOKED',
1235: p_chr_id => p_chr_id);
1236: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242: --cascade status to lines
1235: p_chr_id => p_chr_id);
1236: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1239: RAISE Okl_Api.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242: --cascade status to lines
1243: okl_contract_status_pub.cascade_lease_status(
1246: x_return_status => x_return_status,
1247: x_msg_count => x_msg_count,
1248: x_msg_data => x_msg_data,
1249: p_chr_id => p_chr_id);
1250: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1251: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1252: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1253: RAISE Okl_Api.G_EXCEPTION_ERROR;
1254: END IF;
1247: x_msg_count => x_msg_count,
1248: x_msg_data => x_msg_data,
1249: p_chr_id => p_chr_id);
1250: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1251: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1252: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1253: RAISE Okl_Api.G_EXCEPTION_ERROR;
1254: END IF;
1255:
1248: x_msg_data => x_msg_data,
1249: p_chr_id => p_chr_id);
1250: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1251: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1252: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1253: RAISE Okl_Api.G_EXCEPTION_ERROR;
1254: END IF;
1255:
1256: --Bug# 6336455
1249: p_chr_id => p_chr_id);
1250: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1251: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1252: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1253: RAISE Okl_Api.G_EXCEPTION_ERROR;
1254: END IF;
1255:
1256: --Bug# 6336455
1257: -- R12B Authoring OA Migration
1265: p_khr_id => p_chr_id ,
1266: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
1267: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1268:
1269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1270: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1272: Raise OKL_API.G_EXCEPTION_ERROR;
1273: END IF;
1266: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
1267: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1268:
1269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1270: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1272: Raise OKL_API.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1267: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1268:
1269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1270: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1272: Raise OKL_API.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1275: OKL_CONTRACT_REBOOK_PVT.create_billing_adjustment(
1268:
1269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1270: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1272: Raise OKL_API.G_EXCEPTION_ERROR;
1273: END IF;
1274:
1275: OKL_CONTRACT_REBOOK_PVT.create_billing_adjustment(
1276: p_api_version => p_api_version,
1281: p_rbk_khr_id => p_chr_id,
1282: p_orig_khr_id => p_chr_id,
1283: p_trx_id => l_split_trans_id,
1284: p_trx_date => sysdate);
1285: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1286: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1287: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1288: RAISE Okl_Api.G_EXCEPTION_ERROR;
1289: END IF;
1282: p_orig_khr_id => p_chr_id,
1283: p_trx_id => l_split_trans_id,
1284: p_trx_date => sysdate);
1285: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1286: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1287: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1288: RAISE Okl_Api.G_EXCEPTION_ERROR;
1289: END IF;
1290:
1283: p_trx_id => l_split_trans_id,
1284: p_trx_date => sysdate);
1285: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1286: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1287: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1288: RAISE Okl_Api.G_EXCEPTION_ERROR;
1289: END IF;
1290:
1291: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1284: p_trx_date => sysdate);
1285: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1286: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1287: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1288: RAISE Okl_Api.G_EXCEPTION_ERROR;
1289: END IF;
1290:
1291: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1292: OKL_CONTRACT_REBOOK_PVT.calc_accrual_adjustment(
1302: x_accrual_rec => l_accrual_rec,
1303: x_stream_tbl => l_stream_tbl,
1304: p_trx_tbl_code => 'TAS',
1305: p_trx_type => 'ALI');
1306: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1308: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1309: RAISE Okl_Api.G_EXCEPTION_ERROR;
1310: END IF;
1303: x_stream_tbl => l_stream_tbl,
1304: p_trx_tbl_code => 'TAS',
1305: p_trx_type => 'ALI');
1306: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1308: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1309: RAISE Okl_Api.G_EXCEPTION_ERROR;
1310: END IF;
1311:
1304: p_trx_tbl_code => 'TAS',
1305: p_trx_type => 'ALI');
1306: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1308: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1309: RAISE Okl_Api.G_EXCEPTION_ERROR;
1310: END IF;
1311:
1312: IF (l_stream_tbl.COUNT > 0) THEN
1305: p_trx_type => 'ALI');
1306: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1307: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1308: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1309: RAISE Okl_Api.G_EXCEPTION_ERROR;
1310: END IF;
1311:
1312: IF (l_stream_tbl.COUNT > 0) THEN
1313: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
1320: --x_trx_number => l_trx_number,
1321: x_trx_tbl => lx_trxnum_tbl,
1322: p_accrual_rec => l_accrual_rec,
1323: p_stream_tbl => l_stream_tbl);
1324: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1321: x_trx_tbl => lx_trxnum_tbl,
1322: p_accrual_rec => l_accrual_rec,
1323: p_stream_tbl => l_stream_tbl);
1324: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: END IF;
1322: p_accrual_rec => l_accrual_rec,
1323: p_stream_tbl => l_stream_tbl);
1324: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: END IF;
1330:
1323: p_stream_tbl => l_stream_tbl);
1324: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1325: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1326: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1327: RAISE Okl_Api.G_EXCEPTION_ERROR;
1328: END IF;
1329: END IF;
1330:
1331: -- MGAAP start 7263041
1345: p_trx_tbl_code => 'TAS',
1346: p_trx_type => 'ALI');
1347:
1348: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1349: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1352: RAISE Okl_Api.G_EXCEPTION_ERROR;
1353: END IF;
1346: p_trx_type => 'ALI');
1347:
1348: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1349: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1352: RAISE Okl_Api.G_EXCEPTION_ERROR;
1353: END IF;
1354:
1347:
1348: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1349: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1352: RAISE Okl_Api.G_EXCEPTION_ERROR;
1353: END IF;
1354:
1355: IF (l_stream_tbl.COUNT > 0) THEN
1348: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1349: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1350: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1351: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1352: RAISE Okl_Api.G_EXCEPTION_ERROR;
1353: END IF;
1354:
1355: IF (l_stream_tbl.COUNT > 0) THEN
1356: --Bug# 9191475
1366: x_trx_tbl => lx_trxnum_tbl,
1367: p_accrual_rec => l_accrual_rec,
1368: p_stream_tbl => l_stream_tbl,
1369: p_representation_type => 'SECONDARY');
1370: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_ERROR;
1374: END IF;
1367: p_accrual_rec => l_accrual_rec,
1368: p_stream_tbl => l_stream_tbl,
1369: p_representation_type => 'SECONDARY');
1370: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_ERROR;
1374: END IF;
1375: END IF;
1368: p_stream_tbl => l_stream_tbl,
1369: p_representation_type => 'SECONDARY');
1370: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_ERROR;
1374: END IF;
1375: END IF;
1376: -- MGAAP end 7263041
1369: p_representation_type => 'SECONDARY');
1370: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1371: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1372: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_ERROR;
1374: END IF;
1375: END IF;
1376: -- MGAAP end 7263041
1377:
1384: p_khr_id => p_chr_id,
1385: p_effective_date => sysdate,
1386: x_value => l_chr_secure,
1387: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1388: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_ERROR;
1392: END IF;
1385: p_effective_date => sysdate,
1386: x_value => l_chr_secure,
1387: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1388: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1386: x_value => l_chr_secure,
1387: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1388: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1394: --Bug# 6788253
1387: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1388: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1394: --Bug# 6788253
1395: IF l_chr_secure = OKL_API.G_TRUE THEN
1391: RAISE Okl_Api.G_EXCEPTION_ERROR;
1392: END IF;
1393:
1394: --Bug# 6788253
1395: IF l_chr_secure = OKL_API.G_TRUE THEN
1396: OKL_SECURITIZATION_PVT.modify_pool_contents(
1397: p_api_version => p_api_version,
1398: p_init_msg_list => p_init_msg_list,
1399: p_transaction_reason => l_trx_reason_asset_split,
1402: p_effective_date => SYSDATE,
1403: x_return_status => x_return_status,
1404: x_msg_count => x_msg_count,
1405: x_msg_data => x_msg_data);
1406: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1407: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1408: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1409: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: END IF;
1403: x_return_status => x_return_status,
1404: x_msg_count => x_msg_count,
1405: x_msg_data => x_msg_data);
1406: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1407: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1408: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1409: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: END IF;
1411:
1404: x_msg_count => x_msg_count,
1405: x_msg_data => x_msg_data);
1406: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1407: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1408: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1409: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: END IF;
1411:
1412: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
1405: x_msg_data => x_msg_data);
1406: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1407: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1408: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1409: RAISE Okl_Api.G_EXCEPTION_ERROR;
1410: END IF;
1411:
1412: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
1413: p_api_version => p_api_version,
1415: x_return_status => x_return_status,
1416: x_msg_count => x_msg_count,
1417: x_msg_data => x_msg_data,
1418: p_contract_id => p_chr_id);
1419: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1421: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1422: RAISE Okl_Api.G_EXCEPTION_ERROR;
1423: END IF;
1416: x_msg_count => x_msg_count,
1417: x_msg_data => x_msg_data,
1418: p_contract_id => p_chr_id);
1419: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1421: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1422: RAISE Okl_Api.G_EXCEPTION_ERROR;
1423: END IF;
1424:
1417: x_msg_data => x_msg_data,
1418: p_contract_id => p_chr_id);
1419: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1421: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1422: RAISE Okl_Api.G_EXCEPTION_ERROR;
1423: END IF;
1424:
1425: OKL_STREAM_GENERATOR_PVT.create_pv_streams(
1418: p_contract_id => p_chr_id);
1419: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1421: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1422: RAISE Okl_Api.G_EXCEPTION_ERROR;
1423: END IF;
1424:
1425: OKL_STREAM_GENERATOR_PVT.create_pv_streams(
1426: p_api_version => p_api_version,
1428: x_return_status => x_return_status,
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data,
1431: p_contract_id => p_chr_id);
1432: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1429: x_msg_count => x_msg_count,
1430: x_msg_data => x_msg_data,
1431: p_contract_id => p_chr_id);
1432: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1430: x_msg_data => x_msg_data,
1431: p_contract_id => p_chr_id);
1432: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
1431: p_contract_id => p_chr_id);
1432: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1435: RAISE Okl_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
1439: p_api_version => p_api_version,
1441: x_return_status => x_return_status,
1442: x_msg_count => x_msg_count,
1443: x_msg_data => x_msg_data,
1444: p_khr_id => p_chr_id);
1445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1442: x_msg_count => x_msg_count,
1443: x_msg_data => x_msg_data,
1444: p_khr_id => p_chr_id);
1445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1443: x_msg_data => x_msg_data,
1444: p_khr_id => p_chr_id);
1445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1451: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
1444: p_khr_id => p_chr_id);
1445: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1446: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1447: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1448: RAISE Okl_Api.G_EXCEPTION_ERROR;
1449: END IF;
1450:
1451: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
1452: p_api_version => p_api_version,
1454: x_return_status => x_return_status,
1455: x_msg_count => x_msg_count,
1456: x_msg_data => x_msg_data,
1457: p_orig_khr_id => p_chr_id);
1458: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1461: RAISE Okl_Api.G_EXCEPTION_ERROR;
1462: END IF;
1455: x_msg_count => x_msg_count,
1456: x_msg_data => x_msg_data,
1457: p_orig_khr_id => p_chr_id);
1458: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1461: RAISE Okl_Api.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1456: x_msg_data => x_msg_data,
1457: p_orig_khr_id => p_chr_id);
1458: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1461: RAISE Okl_Api.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1464: l_trx_number := null; -- MGAAP 7263041
1457: p_orig_khr_id => p_chr_id);
1458: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1459: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1460: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1461: RAISE Okl_Api.G_EXCEPTION_ERROR;
1462: END IF;
1463:
1464: l_trx_number := null; -- MGAAP 7263041
1465: --Bug# 9191475
1476: x_inv_accrual_rec => l_inv_accrual_rec,
1477: x_inv_stream_tbl => l_inv_stream_tbl,
1478: p_trx_tbl_code => 'TAS',
1479: p_trx_type => 'ALI');
1480: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1483: RAISE Okl_Api.G_EXCEPTION_ERROR;
1484: END IF;
1477: x_inv_stream_tbl => l_inv_stream_tbl,
1478: p_trx_tbl_code => 'TAS',
1479: p_trx_type => 'ALI');
1480: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1483: RAISE Okl_Api.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1478: p_trx_tbl_code => 'TAS',
1479: p_trx_type => 'ALI');
1480: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1483: RAISE Okl_Api.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1486: IF (l_inv_stream_tbl.COUNT > 0) THEN
1479: p_trx_type => 'ALI');
1480: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1483: RAISE Okl_Api.G_EXCEPTION_ERROR;
1484: END IF;
1485:
1486: IF (l_inv_stream_tbl.COUNT > 0) THEN
1487: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
1494: --x_trx_number => l_trx_number,
1495: x_trx_tbl => lx_trxnum_tbl,
1496: p_accrual_rec => l_inv_accrual_rec,
1497: p_stream_tbl => l_inv_stream_tbl);
1498: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1499: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1500: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1501: RAISE Okl_Api.G_EXCEPTION_ERROR;
1502: END IF;
1495: x_trx_tbl => lx_trxnum_tbl,
1496: p_accrual_rec => l_inv_accrual_rec,
1497: p_stream_tbl => l_inv_stream_tbl);
1498: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1499: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1500: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1501: RAISE Okl_Api.G_EXCEPTION_ERROR;
1502: END IF;
1503: END IF;
1496: p_accrual_rec => l_inv_accrual_rec,
1497: p_stream_tbl => l_inv_stream_tbl);
1498: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1499: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1500: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1501: RAISE Okl_Api.G_EXCEPTION_ERROR;
1502: END IF;
1503: END IF;
1504:
1497: p_stream_tbl => l_inv_stream_tbl);
1498: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1499: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1500: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1501: RAISE Okl_Api.G_EXCEPTION_ERROR;
1502: END IF;
1503: END IF;
1504:
1505: -- MGAAP start 7263041
1520: p_trx_type => 'ALI',
1521: p_product_id => l_reporting_pdt_id); -- MGAAP 7263041
1522:
1523: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okl_Api.G_EXCEPTION_ERROR;
1528: END IF;
1521: p_product_id => l_reporting_pdt_id); -- MGAAP 7263041
1522:
1523: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okl_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529:
1522:
1523: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okl_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529:
1530: IF (l_inv_stream_tbl.COUNT > 0) THEN
1523: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okl_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529:
1530: IF (l_inv_stream_tbl.COUNT > 0) THEN
1531: --Bug# 9191475
1541: --x_trx_number => l_trx_number,
1542: p_accrual_rec => l_inv_accrual_rec,
1543: p_stream_tbl => l_inv_stream_tbl,
1544: p_representation_type => 'SECONDARY');
1545: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1542: p_accrual_rec => l_inv_accrual_rec,
1543: p_stream_tbl => l_inv_stream_tbl,
1544: p_representation_type => 'SECONDARY');
1545: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: END IF;
1543: p_stream_tbl => l_inv_stream_tbl,
1544: p_representation_type => 'SECONDARY');
1545: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: END IF;
1551: END IF;
1544: p_representation_type => 'SECONDARY');
1545: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1546: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1547: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1548: RAISE Okl_Api.G_EXCEPTION_ERROR;
1549: END IF;
1550: END IF;
1551: END IF;
1552: -- MGAAP end 7263041
1564: p_source_trx_id => l_split_trans_id, --
1565: p_source_trx_name => 'Split Asset',
1566: p_source_table => 'OKL_TRX_ASSETS');
1567:
1568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1571: RAISE OKL_API.G_EXCEPTION_ERROR;
1572: END IF;
1565: p_source_trx_name => 'Split Asset',
1566: p_source_table => 'OKL_TRX_ASSETS');
1567:
1568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1571: RAISE OKL_API.G_EXCEPTION_ERROR;
1572: END IF;
1573:
1566: p_source_table => 'OKL_TRX_ASSETS');
1567:
1568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1571: RAISE OKL_API.G_EXCEPTION_ERROR;
1572: END IF;
1573:
1574: ------------------------------------------------------------------------
1567:
1568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1571: RAISE OKL_API.G_EXCEPTION_ERROR;
1572: END IF;
1573:
1574: ------------------------------------------------------------------------
1575: --Bug# : R12.B eBTax impact End
1584: x_msg_count => x_msg_count,
1585: x_msg_data => x_msg_data,
1586: p_thpv_rec => l_trxv_rec,
1587: x_thpv_rec => lx_trxv_rec);
1588: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1590: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1591: RAISE Okl_Api.G_EXCEPTION_ERROR;
1592: END IF;
1585: x_msg_data => x_msg_data,
1586: p_thpv_rec => l_trxv_rec,
1587: x_thpv_rec => lx_trxv_rec);
1588: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1590: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1591: RAISE Okl_Api.G_EXCEPTION_ERROR;
1592: END IF;
1593:
1586: p_thpv_rec => l_trxv_rec,
1587: x_thpv_rec => lx_trxv_rec);
1588: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1590: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1591: RAISE Okl_Api.G_EXCEPTION_ERROR;
1592: END IF;
1593:
1594: -- racheruv: added update of okl_stream_trx_data.last_trx_state
1587: x_thpv_rec => lx_trxv_rec);
1588: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1589: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1590: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1591: RAISE Okl_Api.G_EXCEPTION_ERROR;
1592: END IF;
1593:
1594: -- racheruv: added update of okl_stream_trx_data.last_trx_state
1595: okl_streams_util.update_trx_state(p_chr_id, 'BOTH');
1596: -- end update of okl_stream_trx_data.last_trx_state
1597:
1598: END IF;
1599:
1600: OKL_API.END_ACTIVITY (x_msg_count,
1601: x_msg_data);
1602: EXCEPTION
1603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1599:
1600: OKL_API.END_ACTIVITY (x_msg_count,
1601: x_msg_data);
1602: EXCEPTION
1603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1605: l_api_name,
1606: G_PKG_NAME,
1607: 'OKL_API.G_RET_STS_ERROR',
1600: OKL_API.END_ACTIVITY (x_msg_count,
1601: x_msg_data);
1602: EXCEPTION
1603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1605: l_api_name,
1606: G_PKG_NAME,
1607: 'OKL_API.G_RET_STS_ERROR',
1608: x_msg_count,
1603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1605: l_api_name,
1606: G_PKG_NAME,
1607: 'OKL_API.G_RET_STS_ERROR',
1608: x_msg_count,
1609: x_msg_data,
1610: '_PVT');
1611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1607: 'OKL_API.G_RET_STS_ERROR',
1608: x_msg_count,
1609: x_msg_data,
1610: '_PVT');
1611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1613: l_api_name,
1614: G_PKG_NAME,
1615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1608: x_msg_count,
1609: x_msg_data,
1610: '_PVT');
1611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1613: l_api_name,
1614: G_PKG_NAME,
1615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1616: x_msg_count,
1611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1612: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1613: l_api_name,
1614: G_PKG_NAME,
1615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1616: x_msg_count,
1617: x_msg_data,
1618: '_PVT');
1619: WHEN OTHERS THEN
1616: x_msg_count,
1617: x_msg_data,
1618: '_PVT');
1619: WHEN OTHERS THEN
1620: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1621: l_api_name,
1622: G_PKG_NAME,
1623: 'OTHERS',
1624: x_msg_count,
1637: --End of Comments
1638: ------------------------------------------------------------------------------
1639: PROCEDURE process_split_accounting(
1640: p_api_version IN NUMBER
1641: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
1642: ,x_return_status OUT NOCOPY VARCHAR2
1643: ,x_msg_count OUT NOCOPY NUMBER
1644: ,x_msg_data OUT NOCOPY VARCHAR2
1645: ,p_contract_id IN NUMBER
1649: IS
1650: l_api_name CONSTANT VARCHAR2(30) := 'process_split_accounting';
1651: l_api_version CONSTANT NUMBER := 1.0;
1652:
1653: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1654:
1655: -- Define PL/SQL Records and Tables
1656: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
1657: l_trxL_in_rec Okl_Trx_Contracts_Pvt.tclv_rec_type;
1661: -- Define variables
1662: l_post_to_gl_yn VARCHAR2(1);
1663:
1664: l_amount NUMBER;
1665: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1666: l_msg_count NUMBER;
1667: l_msg_data VARCHAR2(2000);
1668: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
1669:
1758: p_api_version,
1759: l_api_name,
1760: G_PKG_NAME ))
1761: THEN
1762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1763: END IF;
1764:
1765: -- Initialize message list if requested
1766: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1767: FND_MSG_PUB.initialize;
1768: END IF;
1769:
1770: -- Initialize API status to success
1771: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1772: --------------------------------------------------------------------------
1773: -- Initialize API variables
1774: --------------------------------------------------------------------------
1775:
1801: -- Get product_id
1802: OPEN Product_csr(p_contract_id);
1803: FETCH Product_csr INTO l_Product_rec;
1804: IF Product_csr%NOTFOUND THEN
1805: Okl_Api.SET_MESSAGE(G_APP_NAME,
1806: 'OKL_REQUIRED_VALUE',
1807: OKL_API.G_COL_NAME_TOKEN,
1808: 'Product');
1809: CLOSE Product_csr;
1803: FETCH Product_csr INTO l_Product_rec;
1804: IF Product_csr%NOTFOUND THEN
1805: Okl_Api.SET_MESSAGE(G_APP_NAME,
1806: 'OKL_REQUIRED_VALUE',
1807: OKL_API.G_COL_NAME_TOKEN,
1808: 'Product');
1809: CLOSE Product_csr;
1810: RAISE Okl_Api.G_EXCEPTION_ERROR;
1811: END IF;
1806: 'OKL_REQUIRED_VALUE',
1807: OKL_API.G_COL_NAME_TOKEN,
1808: 'Product');
1809: CLOSE Product_csr;
1810: RAISE Okl_Api.G_EXCEPTION_ERROR;
1811: END IF;
1812: CLOSE Product_csr;
1813:
1814: l_currency_code := l_Product_rec.currency_code;
1873: ,x_msg_data => l_msg_data
1874: ,p_tcnv_rec => l_trxH_in_rec
1875: ,x_tcnv_rec => l_trxH_out_rec);
1876:
1877: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: END IF;
1874: ,p_tcnv_rec => l_trxH_in_rec
1875: ,x_tcnv_rec => l_trxH_out_rec);
1876:
1877: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: END IF;
1882:
1875: ,x_tcnv_rec => l_trxH_out_rec);
1876:
1877: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: END IF;
1882:
1883: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1876:
1877: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: END IF;
1882:
1883: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1884: (l_trxH_out_rec.id IS NULL) ) THEN
1879: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1880: RAISE Okl_Api.G_EXCEPTION_ERROR;
1881: END IF;
1882:
1883: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1884: (l_trxH_out_rec.id IS NULL) ) THEN
1885: OKL_API.set_message(G_APP_NAME,
1886: 'OKL_REQUIRED_VALUE',
1887: OKL_API.G_COL_NAME_TOKEN,
1881: END IF;
1882:
1883: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1884: (l_trxH_out_rec.id IS NULL) ) THEN
1885: OKL_API.set_message(G_APP_NAME,
1886: 'OKL_REQUIRED_VALUE',
1887: OKL_API.G_COL_NAME_TOKEN,
1888: 'TRANSACTION_ID');
1889: RAISE OKL_API.G_EXCEPTION_ERROR;
1883: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1884: (l_trxH_out_rec.id IS NULL) ) THEN
1885: OKL_API.set_message(G_APP_NAME,
1886: 'OKL_REQUIRED_VALUE',
1887: OKL_API.G_COL_NAME_TOKEN,
1888: 'TRANSACTION_ID');
1889: RAISE OKL_API.G_EXCEPTION_ERROR;
1890: END IF;
1891:
1885: OKL_API.set_message(G_APP_NAME,
1886: 'OKL_REQUIRED_VALUE',
1887: OKL_API.G_COL_NAME_TOKEN,
1888: 'TRANSACTION_ID');
1889: RAISE OKL_API.G_EXCEPTION_ERROR;
1890: END IF;
1891:
1892: --------------------------------------------------------------------------
1893: -- accounting template record
1922: x_fact_synd_code => l_fact_synd_code,
1923: x_inv_acct_code => l_inv_acct_code
1924: );
1925:
1926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1923: x_inv_acct_code => l_inv_acct_code
1924: );
1925:
1926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1924: );
1925:
1926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1932: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
1925:
1926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_ERROR;
1930: END IF;
1931:
1932: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
1933: l_tmpl_identify_rec.investor_code := l_inv_acct_code;
1933: l_tmpl_identify_rec.investor_code := l_inv_acct_code;
1934:
1935: OKL_ACCOUNT_DIST_PUB.get_template_info(
1936: p_api_version => p_api_version,
1937: p_init_msg_list => OKL_API.G_FALSE,
1938: x_return_status => l_return_status,
1939: x_msg_count => x_msg_count,
1940: x_msg_data => x_msg_data,
1941: p_tmpl_identify_rec => l_tmpl_identify_rec,
1941: p_tmpl_identify_rec => l_tmpl_identify_rec,
1942: x_template_tbl => l_template_tbl,
1943: p_validity_date => l_valid_gl_date);
1944:
1945: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1946: -- No accounting templates found matching the transaction type TRX_TYPE
1947: -- and product PRODUCT.
1948: OKL_API.set_message(
1949: p_app_name => G_APP_NAME,
1944:
1945: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1946: -- No accounting templates found matching the transaction type TRX_TYPE
1947: -- and product PRODUCT.
1948: OKL_API.set_message(
1949: p_app_name => G_APP_NAME,
1950: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
1951: p_token1 => 'TRX_TYPE',
1952: p_token1_value => l_trans_meaning,
1954: p_token2_value => l_product_type);
1955:
1956: END IF;
1957:
1958: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: END IF;
1955:
1956: END IF;
1957:
1958: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: END IF;
1963:
1956: END IF;
1957:
1958: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: END IF;
1963:
1964: -- If no templates present
1957:
1958: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1960: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1961: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: END IF;
1963:
1964: -- If no templates present
1965: IF l_template_tbl.COUNT = 0 THEN
1964: -- If no templates present
1965: IF l_template_tbl.COUNT = 0 THEN
1966: -- No accounting templates found matching the transaction type TRX_TYPE
1967: -- and product PRODUCT.
1968: OKL_API.set_message(
1969: p_app_name => G_APP_NAME,
1970: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
1971: p_token1 => 'TRX_TYPE',
1972: p_token1_value => l_trans_meaning,
1973: p_token2 => 'PRODUCT',
1974: p_token2_value => l_product_type);
1975:
1976:
1977: RAISE OKL_API.G_EXCEPTION_ERROR;
1978:
1979: END IF;
1980:
1981: --Build the transaction line table of records
2002: ,x_msg_data => l_msg_data
2003: ,p_tclv_tbl => l_tclv_tbl
2004: ,x_tclv_tbl => x_tclv_tbl);
2005:
2006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2010: END IF;
2003: ,p_tclv_tbl => l_tclv_tbl
2004: ,x_tclv_tbl => x_tclv_tbl);
2005:
2006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2010: END IF;
2011:
2004: ,x_tclv_tbl => x_tclv_tbl);
2005:
2006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2010: END IF;
2011:
2012: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
2005:
2006: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2010: END IF;
2011:
2012: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
2013:
2032: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
2033: x_return_status => l_return_status);
2034:
2035: -- Raise exception to rollback to savepoint for this block
2036: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2033: x_return_status => l_return_status);
2034:
2035: -- Raise exception to rollback to savepoint for this block
2036: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041:
2034:
2035: -- Raise exception to rollback to savepoint for this block
2036: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041:
2042: /* Populating the dist_info_Tbl */
2035: -- Raise exception to rollback to savepoint for this block
2036: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041:
2042: /* Populating the dist_info_Tbl */
2043: FOR i in x_tclv_tbl.FIRST..x_tclv_tbl.LAST
2077: x_template_tbl => l_template_out_tbl,
2078: x_amount_tbl => l_amount_out_tbl,
2079: p_trx_header_id => l_trxH_out_rec.id);
2080:
2081: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2084: RAISE Okl_Api.G_EXCEPTION_ERROR;
2085: END IF;
2078: x_amount_tbl => l_amount_out_tbl,
2079: p_trx_header_id => l_trxH_out_rec.id);
2080:
2081: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2084: RAISE Okl_Api.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2079: p_trx_header_id => l_trxH_out_rec.id);
2080:
2081: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2084: RAISE Okl_Api.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2087: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2080:
2081: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2084: RAISE Okl_Api.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2087: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2088: FETCH fnd_lookups_csr INTO l_fnd_rec;
2086:
2087: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2088: FETCH fnd_lookups_csr INTO l_fnd_rec;
2089: IF fnd_lookups_csr%NOTFOUND THEN
2090: Okl_Api.SET_MESSAGE(G_APP_NAME, OKL_API.G_INVALID_VALUE,OKL_API.G_COL_NAME_TOKEN,l_try_name);
2091: CLOSE fnd_lookups_csr;
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: CLOSE fnd_lookups_csr;
2088: FETCH fnd_lookups_csr INTO l_fnd_rec;
2089: IF fnd_lookups_csr%NOTFOUND THEN
2090: Okl_Api.SET_MESSAGE(G_APP_NAME, OKL_API.G_INVALID_VALUE,OKL_API.G_COL_NAME_TOKEN,l_try_name);
2091: CLOSE fnd_lookups_csr;
2092: RAISE Okl_Api.G_EXCEPTION_ERROR;
2093: END IF;
2094: CLOSE fnd_lookups_csr;
2095:
2096: --From the l_amount_out_tbl returned , the transaction line amount and header amount need to be updated back on the contract
2130: ,p_tclv_tbl => l_tclv_tbl
2131: ,x_tcnv_rec => x_tcnv_rec
2132: ,x_tclv_tbl => x_tclv_tbl );
2133:
2134: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2135: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2136: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2137: RAISE Okl_Api.G_EXCEPTION_ERROR;
2138: END IF;
2131: ,x_tcnv_rec => x_tcnv_rec
2132: ,x_tclv_tbl => x_tclv_tbl );
2133:
2134: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2135: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2136: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2137: RAISE Okl_Api.G_EXCEPTION_ERROR;
2138: END IF;
2139:
2132: ,x_tclv_tbl => x_tclv_tbl );
2133:
2134: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2135: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2136: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2137: RAISE Okl_Api.G_EXCEPTION_ERROR;
2138: END IF;
2139:
2140: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
2133:
2134: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2135: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2136: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2137: RAISE Okl_Api.G_EXCEPTION_ERROR;
2138: END IF;
2139:
2140: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
2141: (p_api_version => p_api_version
2147: ,P_TCLV_TBL => x_tclv_tbl
2148: ,p_ctxt_val_tbl => l_ctxt_tbl
2149: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2150:
2151: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2154: RAISE Okl_Api.G_EXCEPTION_ERROR;
2155: END IF;
2148: ,p_ctxt_val_tbl => l_ctxt_tbl
2149: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2150:
2151: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2154: RAISE Okl_Api.G_EXCEPTION_ERROR;
2155: END IF;
2156:
2149: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2150:
2151: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2154: RAISE Okl_Api.G_EXCEPTION_ERROR;
2155: END IF;
2156:
2157:
2150:
2151: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2154: RAISE Okl_Api.G_EXCEPTION_ERROR;
2155: END IF;
2156:
2157:
2158: -- Get message count and if count is 1, get message info
2160: (p_count => x_msg_count,
2161: p_data => x_msg_data);
2162:
2163: EXCEPTION
2164: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2165: ROLLBACK TO process_split_accounting_PVT;
2166: x_return_status := OKL_API.G_RET_STS_ERROR;
2167: FND_MSG_PUB.Count_And_Get
2168: (p_count => x_msg_count,
2162:
2163: EXCEPTION
2164: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2165: ROLLBACK TO process_split_accounting_PVT;
2166: x_return_status := OKL_API.G_RET_STS_ERROR;
2167: FND_MSG_PUB.Count_And_Get
2168: (p_count => x_msg_count,
2169: p_data => x_msg_data);
2170:
2167: FND_MSG_PUB.Count_And_Get
2168: (p_count => x_msg_count,
2169: p_data => x_msg_data);
2170:
2171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2172: ROLLBACK TO process_split_accounting_PVT;
2173: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2174: FND_MSG_PUB.Count_And_Get
2175: (p_count => x_msg_count,
2169: p_data => x_msg_data);
2170:
2171: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2172: ROLLBACK TO process_split_accounting_PVT;
2173: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2174: FND_MSG_PUB.Count_And_Get
2175: (p_count => x_msg_count,
2176: p_data => x_msg_data);
2177:
2176: p_data => x_msg_data);
2177:
2178: WHEN OTHERS THEN
2179: ROLLBACK TO process_split_accounting_PVT;
2180: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2181: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2182: p_msg_name => G_UNEXPECTED_ERROR,
2183: p_token1 => G_SQLCODE_TOKEN,
2184: p_token1_value => SQLCODE,
2177:
2178: WHEN OTHERS THEN
2179: ROLLBACK TO process_split_accounting_PVT;
2180: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2181: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2182: p_msg_name => G_UNEXPECTED_ERROR,
2183: p_token1 => G_SQLCODE_TOKEN,
2184: p_token1_value => SQLCODE,
2185: p_token2 => G_SQLERRM_TOKEN,
2213: p_asset_id IN NUMBER,
2214: p_book_type_code IN VARCHAR2,
2215: x_asset_deprn_rec OUT NOCOPY FA_API_TYPES.asset_deprn_rec_type) IS
2216:
2217: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2218: l_api_name CONSTANT VARCHAR2(30) := 'GET_DEPRN_RESERVE';
2219: l_api_version CONSTANT NUMBER := 1.0;
2220:
2221: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
2225: l_deprn_reserve NUMBER;
2226:
2227: BEGIN
2228: --call start activity to set savepoint
2229: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2230: p_init_msg_list,
2231: '_PVT',
2232: x_return_status);
2233: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2229: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2230: p_init_msg_list,
2231: '_PVT',
2232: x_return_status);
2233: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2236: RAISE OKL_API.G_EXCEPTION_ERROR;
2237: END IF;
2230: p_init_msg_list,
2231: '_PVT',
2232: x_return_status);
2233: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2236: RAISE OKL_API.G_EXCEPTION_ERROR;
2237: END IF;
2238:
2231: '_PVT',
2232: x_return_status);
2233: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2236: RAISE OKL_API.G_EXCEPTION_ERROR;
2237: END IF;
2238:
2239: l_asset_hdr_rec.asset_id := p_asset_id;
2232: x_return_status);
2233: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2236: RAISE OKL_API.G_EXCEPTION_ERROR;
2237: END IF;
2238:
2239: l_asset_hdr_rec.asset_id := p_asset_id;
2240: l_asset_hdr_rec.book_type_code := p_book_type_code;
2239: l_asset_hdr_rec.asset_id := p_asset_id;
2240: l_asset_hdr_rec.book_type_code := p_book_type_code;
2241:
2242: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
2243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2244: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
2245: );
2246: Raise OKL_API.G_EXCEPTION_ERROR;
2247: end if;
2242: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
2243: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2244: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
2245: );
2246: Raise OKL_API.G_EXCEPTION_ERROR;
2247: end if;
2248:
2249: -- To fetch Depreciation Reserve
2250: if not FA_UTIL_PVT.get_asset_deprn_rec
2252: px_asset_deprn_rec => l_asset_deprn_rec,
2253: p_period_counter => NULL,
2254: p_mrc_sob_type_code => 'P'
2255: ) then
2256: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2257: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
2258: );
2259: Raise OKL_API.G_EXCEPTION_ERROR;
2260: end if;
2255: ) then
2256: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2257: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
2258: );
2259: Raise OKL_API.G_EXCEPTION_ERROR;
2260: end if;
2261:
2262: x_asset_deprn_rec := l_asset_deprn_rec;
2263:
2261:
2262: x_asset_deprn_rec := l_asset_deprn_rec;
2263:
2264: --Call end Activity
2265: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2266: EXCEPTION
2267: WHEN OKL_API.G_EXCEPTION_ERROR Then
2268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2269: (
2263:
2264: --Call end Activity
2265: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2266: EXCEPTION
2267: WHEN OKL_API.G_EXCEPTION_ERROR Then
2268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2264: --Call end Activity
2265: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2266: EXCEPTION
2267: WHEN OKL_API.G_EXCEPTION_ERROR Then
2268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_ERROR',
2268: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2269: (
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_ERROR',
2273: x_msg_count,
2274: x_msg_data,
2275: '_PVT'
2276: );
2273: x_msg_count,
2274: x_msg_data,
2275: '_PVT'
2276: );
2277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2278: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2279: (
2280: l_api_name,
2281: G_PKG_NAME,
2274: x_msg_data,
2275: '_PVT'
2276: );
2277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2278: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2279: (
2280: l_api_name,
2281: G_PKG_NAME,
2282: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2278: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2279: (
2280: l_api_name,
2281: G_PKG_NAME,
2282: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2283: x_msg_count,
2284: x_msg_data,
2285: '_PVT'
2286: );
2284: x_msg_data,
2285: '_PVT'
2286: );
2287: WHEN OTHERS THEN
2288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2289: (
2290: l_api_name,
2291: G_PKG_NAME,
2292: 'OTHERS',
2371: lx_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
2372: lx_klev_rec OKL_CONTRACT_PUB.klev_rec_type;
2373: l_chld_total_flr_price NUMBER:=0.0;
2374: begin
2375: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2376: -- Call start_activity to create savepoint, check compatibility
2377: -- and initialize message list
2378: x_return_status := OKL_API.START_ACTIVITY (
2379: l_api_name
2374: begin
2375: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2376: -- Call start_activity to create savepoint, check compatibility
2377: -- and initialize message list
2378: x_return_status := OKL_API.START_ACTIVITY (
2379: l_api_name
2380: ,p_init_msg_list
2381: ,'_PVT'
2382: ,x_return_status);
2380: ,p_init_msg_list
2381: ,'_PVT'
2382: ,x_return_status);
2383: -- Check if activity started successfully
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2381: ,'_PVT'
2382: ,x_return_status);
2383: -- Check if activity started successfully
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: l_source_cle_id :=p_kle_id;
2382: ,x_return_status);
2383: -- Check if activity started successfully
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: l_source_cle_id :=p_kle_id;
2390: --dbms_output.put_line(' l_source_cle_id'||l_source_cle_id);
2383: -- Check if activity started successfully
2384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2385: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2386: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2387: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: END IF;
2389: l_source_cle_id :=p_kle_id;
2390: --dbms_output.put_line(' l_source_cle_id'||l_source_cle_id);
2391: FOR l_asset_return_rec in l_asset_return_csr(l_source_cle_id)
2445:
2446: -- call insert of tapi
2447: OKL_ASSET_RETURNS_PUB.insert_asset_returns(
2448: p_api_version => p_api_version,
2449: p_init_msg_list => OKL_API.G_FALSE,
2450: x_return_status => x_return_status,
2451: x_msg_count => x_msg_count,
2452: x_msg_data => x_msg_data,
2453: p_artv_rec => lp_artv_rec,
2452: x_msg_data => x_msg_data,
2453: p_artv_rec => lp_artv_rec,
2454: x_artv_rec => lx_artv_rec);
2455: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2453: p_artv_rec => lp_artv_rec,
2454: x_artv_rec => lx_artv_rec);
2455: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461: --upade the termination date on the lines and subliines
2454: x_artv_rec => lx_artv_rec);
2455: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461: --upade the termination date on the lines and subliines
2462: FOR r_trmnt_line_csr IN
2455: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2459: RAISE OKL_API.G_EXCEPTION_ERROR;
2460: END IF;
2461: --upade the termination date on the lines and subliines
2462: FOR r_trmnt_line_csr IN
2463: l_trmnt_line_csr(p_cle_id => p_cle_tbl(i).cle_id) LOOP
2473: p_clev_rec => l_clev_rec,
2474: p_klev_rec => l_klev_rec,
2475: x_clev_rec => lx_clev_rec,
2476: x_klev_rec => lx_klev_rec);
2477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2480: RAISE OKL_API.G_EXCEPTION_ERROR;
2481: END IF;
2474: p_klev_rec => l_klev_rec,
2475: x_clev_rec => lx_clev_rec,
2476: x_klev_rec => lx_klev_rec);
2477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2480: RAISE OKL_API.G_EXCEPTION_ERROR;
2481: END IF;
2482: END LOOP; --inner loop
2475: x_clev_rec => lx_clev_rec,
2476: x_klev_rec => lx_klev_rec);
2477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2480: RAISE OKL_API.G_EXCEPTION_ERROR;
2481: END IF;
2482: END LOOP; --inner loop
2483: END IF; --return needed
2476: x_klev_rec => lx_klev_rec);
2477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2480: RAISE OKL_API.G_EXCEPTION_ERROR;
2481: END IF;
2482: END LOOP; --inner loop
2483: END IF; --return needed
2484: END IF; --soucer id<> pkle_id
2488: lp_upd_artv_rec.FLOOR_PRICE := NVL(l_asset_return_rec.FLOOR_PRICE,0.0)-l_chld_total_flr_price;
2489: -- call update of tapi
2490: OKL_ASSET_RETURNS_PUB.update_asset_returns(
2491: p_api_version => p_api_version,
2492: p_init_msg_list => OKL_API.G_FALSE,
2493: x_return_status => x_return_status,
2494: x_msg_count => x_msg_count,
2495: x_msg_data => x_msg_data,
2496: p_artv_rec => lp_upd_artv_rec,
2495: x_msg_data => x_msg_data,
2496: p_artv_rec => lp_upd_artv_rec,
2497: x_artv_rec => lx_artv_rec);
2498: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2496: p_artv_rec => lp_upd_artv_rec,
2497: x_artv_rec => lx_artv_rec);
2498: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504: END IF; --p_cle_tbl >0
2497: x_artv_rec => lx_artv_rec);
2498: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504: END IF; --p_cle_tbl >0
2505: END LOOP; --aset rturn record
2498: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504: END IF; --p_cle_tbl >0
2505: END LOOP; --aset rturn record
2506: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2502: RAISE OKL_API.G_EXCEPTION_ERROR;
2503: END IF;
2504: END IF; --p_cle_tbl >0
2505: END LOOP; --aset rturn record
2506: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2510: l_api_name,
2504: END IF; --p_cle_tbl >0
2505: END LOOP; --aset rturn record
2506: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2510: l_api_name,
2511: G_PKG_NAME,
2512: 'OKL_API.G_RET_STS_ERROR',
2505: END LOOP; --aset rturn record
2506: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2510: l_api_name,
2511: G_PKG_NAME,
2512: 'OKL_API.G_RET_STS_ERROR',
2513: x_msg_count,
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2510: l_api_name,
2511: G_PKG_NAME,
2512: 'OKL_API.G_RET_STS_ERROR',
2513: x_msg_count,
2514: x_msg_data,
2515: '_PVT');
2516: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2512: 'OKL_API.G_RET_STS_ERROR',
2513: x_msg_count,
2514: x_msg_data,
2515: '_PVT');
2516: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2517: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2518: l_api_name,
2519: G_PKG_NAME,
2520: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2513: x_msg_count,
2514: x_msg_data,
2515: '_PVT');
2516: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2517: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2518: l_api_name,
2519: G_PKG_NAME,
2520: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2521: x_msg_count,
2516: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2517: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2518: l_api_name,
2519: G_PKG_NAME,
2520: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2521: x_msg_count,
2522: x_msg_data,
2523: '_PVT');
2524: WHEN OTHERS THEN
2521: x_msg_count,
2522: x_msg_data,
2523: '_PVT');
2524: WHEN OTHERS THEN
2525: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2526: l_api_name,
2527: G_PKG_NAME,
2528: 'OTHERS',
2529: x_msg_count,
2541: x_msg_count OUT NOCOPY NUMBER,
2542: x_msg_data OUT NOCOPY VARCHAR2,
2543: p_cle_id IN NUMBER
2544: ) is
2545: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2546: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_OFFLEASE_TRANS';
2547: l_api_version CONSTANT NUMBER := 1.0;
2548:
2549: --cursor to fetch the corporate and tax book for the given asset
2574:
2575: BEGIN
2576: -- Call start_activity to create savepoint, check compatibility
2577: -- and initialize message list
2578: x_return_status := OKL_API.START_ACTIVITY (
2579: l_api_name
2580: ,p_init_msg_list
2581: ,'_PVT'
2582: ,x_return_status);
2580: ,p_init_msg_list
2581: ,'_PVT'
2582: ,x_return_status);
2583: -- Check if activity started successfully
2584: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2581: ,'_PVT'
2582: ,x_return_status);
2583: -- Check if activity started successfully
2584: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589:
2582: ,x_return_status);
2583: -- Check if activity started successfully
2584: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589:
2590: FOR l_okxassetlines_rec IN l_okxassetlines_csr(p_cle_id) LOOP
2583: -- Check if activity started successfully
2584: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589:
2590: FOR l_okxassetlines_rec IN l_okxassetlines_csr(p_cle_id) LOOP
2591: l_name:=l_okxassetlines_rec.asset_number;
2597: END IF;
2598: END LOOP;
2599: IF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
2600: --dbms_output.put_line('Pending transactions');
2601: x_return_status := OKL_API.G_RET_STS_ERROR;
2602: OKL_API.set_message( p_app_name => 'OKL',
2603: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2604: p_token1 => 'ASSET_NUMBER',
2605: p_token1_value => l_name);
2598: END LOOP;
2599: IF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
2600: --dbms_output.put_line('Pending transactions');
2601: x_return_status := OKL_API.G_RET_STS_ERROR;
2602: OKL_API.set_message( p_app_name => 'OKL',
2603: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2604: p_token1 => 'ASSET_NUMBER',
2605: p_token1_value => l_name);
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2602: OKL_API.set_message( p_app_name => 'OKL',
2603: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2604: p_token1 => 'ASSET_NUMBER',
2605: p_token1_value => l_name);
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2607: end if ;
2608: end loop;
2609: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2610: EXCEPTION
2605: p_token1_value => l_name);
2606: RAISE OKL_API.G_EXCEPTION_ERROR;
2607: end if ;
2608: end loop;
2609: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2610: EXCEPTION
2611: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2612: IF l_offlseassettrx_csr%ISOPEN THEN
2613: CLOSE l_offlseassettrx_csr;
2607: end if ;
2608: end loop;
2609: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2610: EXCEPTION
2611: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2612: IF l_offlseassettrx_csr%ISOPEN THEN
2613: CLOSE l_offlseassettrx_csr;
2614: END IF;
2615: IF l_okxassetlines_csr%ISOPEN THEN
2614: END IF;
2615: IF l_okxassetlines_csr%ISOPEN THEN
2616: CLOSE l_okxassetlines_csr;
2617: END IF;
2618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2619: l_api_name,
2620: G_PKG_NAME,
2621: 'OKL_API.G_RET_STS_ERROR',
2622: x_msg_count,
2617: END IF;
2618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2619: l_api_name,
2620: G_PKG_NAME,
2621: 'OKL_API.G_RET_STS_ERROR',
2622: x_msg_count,
2623: x_msg_data,
2624: '_PVT');
2625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2621: 'OKL_API.G_RET_STS_ERROR',
2622: x_msg_count,
2623: x_msg_data,
2624: '_PVT');
2625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2626: IF l_offlseassettrx_csr%ISOPEN THEN
2627: CLOSE l_offlseassettrx_csr;
2628: END IF;
2629: IF l_okxassetlines_csr%ISOPEN THEN
2628: END IF;
2629: IF l_okxassetlines_csr%ISOPEN THEN
2630: CLOSE l_okxassetlines_csr;
2631: END IF;
2632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2633: l_api_name,
2634: G_PKG_NAME,
2635: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2636: x_msg_count,
2631: END IF;
2632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2633: l_api_name,
2634: G_PKG_NAME,
2635: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2636: x_msg_count,
2637: x_msg_data,
2638: '_PVT');
2639: WHEN OTHERS THEN
2642: END IF;
2643: IF l_okxassetlines_csr%ISOPEN THEN
2644: CLOSE l_okxassetlines_csr;
2645: END IF;
2646: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2647: l_api_name,
2648: G_PKG_NAME,
2649: 'OTHERS',
2650: x_msg_count,
2665: x_msg_data OUT NOCOPY VARCHAR2,
2666: p_chr_id IN NUMBER,
2667: p_trx_date IN VARCHAR2) IS
2668:
2669: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2670: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_DATE';
2671: l_api_version CONSTANT NUMBER := 1.0;
2672:
2673:
2692: x_return_status := l_return_status;
2693:
2694: -- Call start_activity to create savepoint, check compatibility
2695: -- and initialize message list
2696: x_return_status := OKL_API.START_ACTIVITY (
2697: l_api_name
2698: ,p_init_msg_list
2699: ,'_PVT'
2700: ,x_return_status);
2698: ,p_init_msg_list
2699: ,'_PVT'
2700: ,x_return_status);
2701: -- Check if activity started successfully
2702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2705: RAISE OKL_API.G_EXCEPTION_ERROR;
2706: END IF;
2699: ,'_PVT'
2700: ,x_return_status);
2701: -- Check if activity started successfully
2702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2705: RAISE OKL_API.G_EXCEPTION_ERROR;
2706: END IF;
2707:
2700: ,x_return_status);
2701: -- Check if activity started successfully
2702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2705: RAISE OKL_API.G_EXCEPTION_ERROR;
2706: END IF;
2707:
2708: --0. verify date format
2701: -- Check if activity started successfully
2702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2705: RAISE OKL_API.G_EXCEPTION_ERROR;
2706: END IF;
2707:
2708: --0. verify date format
2709: BEGIN
2710: l_icx_date_format := fnd_profile.value('ICX_DATE_FORMAT_MASK');
2711: l_trx_date := TO_DATE(p_trx_date, l_icx_date_format);
2712: EXCEPTION
2713: WHEN OTHERS THEN
2714: okl_api.set_message(
2715: G_APP_NAME,
2716: G_LLA_INVALID_DATE_FORMAT,
2717: 'DATE_FORMAT',
2718: l_icx_date_format,
2718: l_icx_date_format,
2719: 'COL_NAME',
2720: 'Revision Date'
2721: );
2722: x_return_status := OKL_API.G_RET_STS_ERROR;
2723: END;
2724:
2725: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2721: );
2722: x_return_status := OKL_API.G_RET_STS_ERROR;
2723: END;
2724:
2725: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: END IF;
2728:
2729:
2722: x_return_status := OKL_API.G_RET_STS_ERROR;
2723: END;
2724:
2725: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: END IF;
2728:
2729:
2730: --1. Transaction date is required
2727: END IF;
2728:
2729:
2730: --1. Transaction date is required
2731: IF NVL(p_trx_date,okl_api.g_miss_char) = okl_api.g_miss_char THEN
2732: okl_api.set_message(
2733: G_APP_NAME,
2734: G_LLA_MISSING_TRX_DATE
2735: );
2728:
2729:
2730: --1. Transaction date is required
2731: IF NVL(p_trx_date,okl_api.g_miss_char) = okl_api.g_miss_char THEN
2732: okl_api.set_message(
2733: G_APP_NAME,
2734: G_LLA_MISSING_TRX_DATE
2735: );
2736: x_return_status := OKL_API.G_RET_STS_ERROR;
2732: okl_api.set_message(
2733: G_APP_NAME,
2734: G_LLA_MISSING_TRX_DATE
2735: );
2736: x_return_status := OKL_API.G_RET_STS_ERROR;
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --2. Transaction date is between contract start and end date
2733: G_APP_NAME,
2734: G_LLA_MISSING_TRX_DATE
2735: );
2736: x_return_status := OKL_API.G_RET_STS_ERROR;
2737: RAISE OKL_API.G_EXCEPTION_ERROR;
2738: END IF;
2739:
2740: --2. Transaction date is between contract start and end date
2741: l_date_valid := 'N';
2749: CLOSE l_chrb_csr;
2750:
2751:
2752: IF (l_date_valid = 'N') THEN
2753: okl_api.set_message(
2754: G_APP_NAME,
2755: G_LLA_WRONG_TRX_DATE,
2756: 'START_DATE',
2757: l_chrb_rec.con_start_date,
2757: l_chrb_rec.con_start_date,
2758: 'END_DATE',
2759: l_chrb_rec.con_end_date
2760: );
2761: x_return_status := OKL_API.G_RET_STS_ERROR;
2762: RAISE OKL_API.G_EXCEPTION_ERROR;
2763: END IF;
2764:
2765: --3. contracts which are not active can not be split asset
2758: 'END_DATE',
2759: l_chrb_rec.con_end_date
2760: );
2761: x_return_status := OKL_API.G_RET_STS_ERROR;
2762: RAISE OKL_API.G_EXCEPTION_ERROR;
2763: END IF;
2764:
2765: --3. contracts which are not active can not be split asset
2766: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2762: RAISE OKL_API.G_EXCEPTION_ERROR;
2763: END IF;
2764:
2765: --3. contracts which are not active can not be split asset
2766: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2767: okl_api.set_message(
2768: G_APP_NAME,
2769: G_LLA_REV_ONLY_BOOKED
2770: );
2763: END IF;
2764:
2765: --3. contracts which are not active can not be split asset
2766: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2767: okl_api.set_message(
2768: G_APP_NAME,
2769: G_LLA_REV_ONLY_BOOKED
2770: );
2771: x_return_status := OKL_API.G_RET_STS_ERROR;
2767: okl_api.set_message(
2768: G_APP_NAME,
2769: G_LLA_REV_ONLY_BOOKED
2770: );
2771: x_return_status := OKL_API.G_RET_STS_ERROR;
2772: RAISE OKL_API.G_EXCEPTION_ERROR;
2773: END IF;
2774: OKL_API.END_ACTIVITY (x_msg_count,
2775: x_msg_data );
2768: G_APP_NAME,
2769: G_LLA_REV_ONLY_BOOKED
2770: );
2771: x_return_status := OKL_API.G_RET_STS_ERROR;
2772: RAISE OKL_API.G_EXCEPTION_ERROR;
2773: END IF;
2774: OKL_API.END_ACTIVITY (x_msg_count,
2775: x_msg_data );
2776: EXCEPTION
2770: );
2771: x_return_status := OKL_API.G_RET_STS_ERROR;
2772: RAISE OKL_API.G_EXCEPTION_ERROR;
2773: END IF;
2774: OKL_API.END_ACTIVITY (x_msg_count,
2775: x_msg_data );
2776: EXCEPTION
2777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2778: IF l_chrb_csr%ISOPEN THEN
2773: END IF;
2774: OKL_API.END_ACTIVITY (x_msg_count,
2775: x_msg_data );
2776: EXCEPTION
2777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2778: IF l_chrb_csr%ISOPEN THEN
2779: CLOSE l_chrb_csr;
2780: END IF;
2781: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2777: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2778: IF l_chrb_csr%ISOPEN THEN
2779: CLOSE l_chrb_csr;
2780: END IF;
2781: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2782: l_api_name,
2783: G_PKG_NAME,
2784: 'OKL_API.G_RET_STS_ERROR',
2785: x_msg_count,
2780: END IF;
2781: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2782: l_api_name,
2783: G_PKG_NAME,
2784: 'OKL_API.G_RET_STS_ERROR',
2785: x_msg_count,
2786: x_msg_data,
2787: '_PVT');
2788: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2784: 'OKL_API.G_RET_STS_ERROR',
2785: x_msg_count,
2786: x_msg_data,
2787: '_PVT');
2788: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2789: IF l_chrb_csr%ISOPEN THEN
2790: CLOSE l_chrb_csr;
2791: END IF;
2792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2788: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2789: IF l_chrb_csr%ISOPEN THEN
2790: CLOSE l_chrb_csr;
2791: END IF;
2792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2793: l_api_name,
2794: G_PKG_NAME,
2795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2796: x_msg_count,
2791: END IF;
2792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2793: l_api_name,
2794: G_PKG_NAME,
2795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2796: x_msg_count,
2797: x_msg_data,
2798: '_PVT');
2799: WHEN OTHERS THEN
2799: WHEN OTHERS THEN
2800: IF l_chrb_csr%ISOPEN THEN
2801: CLOSE l_chrb_csr;
2802: END IF;
2803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2804: l_api_name,
2805: G_PKG_NAME,
2806: 'OTHERS',
2807: x_msg_count,
2821: x_msg_data OUT NOCOPY VARCHAR2,
2822: p_cle_id IN NUMBER,
2823: p_trx_date IN DATE) IS
2824:
2825: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2826: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_DATE';
2827: l_api_version CONSTANT NUMBER := 1.0;
2828:
2829:
2868: x_return_status := l_return_status;
2869:
2870: -- Call start_activity to create savepoint, check compatibility
2871: -- and initialize message list
2872: x_return_status := OKL_API.START_ACTIVITY (
2873: l_api_name
2874: ,p_init_msg_list
2875: ,'_PVT'
2876: ,x_return_status);
2874: ,p_init_msg_list
2875: ,'_PVT'
2876: ,x_return_status);
2877: -- Check if activity started successfully
2878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2881: RAISE OKL_API.G_EXCEPTION_ERROR;
2882: END IF;
2875: ,'_PVT'
2876: ,x_return_status);
2877: -- Check if activity started successfully
2878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2881: RAISE OKL_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2876: ,x_return_status);
2877: -- Check if activity started successfully
2878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2881: RAISE OKL_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2884: --1. Transaction date is required
2877: -- Check if activity started successfully
2878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2881: RAISE OKL_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2884: --1. Transaction date is required
2885: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2881: RAISE OKL_API.G_EXCEPTION_ERROR;
2882: END IF;
2883:
2884: --1. Transaction date is required
2885: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2886: okl_api.set_message(
2887: G_APP_NAME,
2888: G_LLA_MISSING_TRX_DATE
2889: );
2882: END IF;
2883:
2884: --1. Transaction date is required
2885: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2886: okl_api.set_message(
2887: G_APP_NAME,
2888: G_LLA_MISSING_TRX_DATE
2889: );
2890: x_return_status := OKL_API.G_RET_STS_ERROR;
2886: okl_api.set_message(
2887: G_APP_NAME,
2888: G_LLA_MISSING_TRX_DATE
2889: );
2890: x_return_status := OKL_API.G_RET_STS_ERROR;
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: l_icx_date_format := NVL(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY');
2887: G_APP_NAME,
2888: G_LLA_MISSING_TRX_DATE
2889: );
2890: x_return_status := OKL_API.G_RET_STS_ERROR;
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2893:
2894: l_icx_date_format := NVL(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY');
2895: --2. Transaction date is between contract start and end date
2929: ELSE
2930: l_date_valid := l_cleb_rec.date_valid;
2931: END IF;
2932: CLOSE l_strdate_csr;*/
2933: okl_api.set_message(
2934: G_APP_NAME,
2935: G_LLA_WRONG_TRX_DATE,
2936: 'START_DATE',
2937: l_cleb_rec.line_start_date,
2937: l_cleb_rec.line_start_date,
2938: 'END_DATE',
2939: l_cleb_rec.line_end_date
2940: );
2941: x_return_status := OKL_API.G_RET_STS_ERROR;
2942: RAISE OKL_API.G_EXCEPTION_ERROR;
2943: END IF;
2944: EXCEPTION
2945: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2938: 'END_DATE',
2939: l_cleb_rec.line_end_date
2940: );
2941: x_return_status := OKL_API.G_RET_STS_ERROR;
2942: RAISE OKL_API.G_EXCEPTION_ERROR;
2943: END IF;
2944: EXCEPTION
2945: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2946: IF l_cleb_csr%ISOPEN THEN
2941: x_return_status := OKL_API.G_RET_STS_ERROR;
2942: RAISE OKL_API.G_EXCEPTION_ERROR;
2943: END IF;
2944: EXCEPTION
2945: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2946: IF l_cleb_csr%ISOPEN THEN
2947: CLOSE l_cleb_csr;
2948: END IF;
2949: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2945: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2946: IF l_cleb_csr%ISOPEN THEN
2947: CLOSE l_cleb_csr;
2948: END IF;
2949: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKL_API.G_RET_STS_ERROR',
2953: x_msg_count,
2948: END IF;
2949: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKL_API.G_RET_STS_ERROR',
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT');
2956: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2952: 'OKL_API.G_RET_STS_ERROR',
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT');
2956: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2957: IF l_cleb_csr%ISOPEN THEN
2958: CLOSE l_cleb_csr;
2959: END IF;
2960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2956: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2957: IF l_cleb_csr%ISOPEN THEN
2958: CLOSE l_cleb_csr;
2959: END IF;
2960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2961: l_api_name,
2962: G_PKG_NAME,
2963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2964: x_msg_count,
2959: END IF;
2960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2961: l_api_name,
2962: G_PKG_NAME,
2963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2964: x_msg_count,
2965: x_msg_data,
2966: '_PVT');
2967: WHEN OTHERS THEN
2967: WHEN OTHERS THEN
2968: IF l_cleb_csr%ISOPEN THEN
2969: CLOSE l_cleb_csr;
2970: END IF;
2971: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2972: l_api_name,
2973: G_PKG_NAME,
2974: 'OTHERS',
2975: x_msg_count,
3425: --------------------------------------------------------------------------------
3426: FUNCTION Asset_Number_Exists(p_asset_number IN VARCHAR2,
3427: x_asset_exists OUT NOCOPY VARCHAR2) RETURN VARCHAR2 IS
3428: l_asset_exists VARCHAR2(1) DEFAULT 'N';
3429: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3430:
3431: --chk for asset in FA
3432: CURSOR asset_chk_curs1 (p_asset_number IN VARCHAR2) IS
3433: SELECT 'Y'
3461: AND txl.id = txd.tal_id);
3462:
3463:
3464: BEGIN
3465: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3466: --dbms_output.put_line('Asset Number'||p_asset_number);
3467: l_asset_exists := 'N';
3468: OPEN asset_chk_curs1(p_asset_number);
3469: FETCH asset_chk_curs1 INTO l_asset_exists;
3486: RETURN(l_return_status);
3487: EXCEPTION
3488: WHEN OTHERS THEN
3489: -- store SQL error message on message stack for caller
3490: OKL_API.set_message(
3491: G_APP_NAME,
3492: G_UNEXPECTED_ERROR,
3493: G_SQLCODE_TOKEN,
3494: SQLCODE,
3504: IF asset_chk_curs3%ISOPEN THEN
3505: CLOSE asset_chk_curs3;
3506: END IF;
3507: --send back status to caller
3508: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3509: RETURN(l_return_status);
3510: END Asset_Number_Exists;
3511: --------------------------------------------------------------------------------
3512: --Function to validate okl_txd_Assets_v attributes
3513: --------------------------------------------------------------------------------
3514: FUNCTION Validate_Attributes (p_txdv_rec IN txdv_rec_type)
3515: RETURN VARCHAR2 IS
3516:
3517: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3518:
3519: --chk for asset in FA
3520: CURSOR asset_chk_curs1 (p_asset_number IN VARCHAR2) IS
3521: SELECT 'Y'
3561: l_asset_exists VARCHAR2(1) DEFAULT 'N';
3562:
3563: BEGIN
3564: l_txdv_rec := p_txdv_rec;
3565: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3566: --1.Validate existence of asset number
3567: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3568: -- store SQL error message on message stack
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3563: BEGIN
3564: l_txdv_rec := p_txdv_rec;
3565: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3566: --1.Validate existence of asset number
3567: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3568: -- store SQL error message on message stack
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_ASSET_REQUIRED);
3571: l_return_status := OKL_API.G_RET_STS_ERROR;
3565: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3566: --1.Validate existence of asset number
3567: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3568: -- store SQL error message on message stack
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_ASSET_REQUIRED);
3571: l_return_status := OKL_API.G_RET_STS_ERROR;
3572: -- halt validation as it is a required field
3573: RAISE G_EXCEPTION_HALT_VALIDATION;
3567: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3568: -- store SQL error message on message stack
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_ASSET_REQUIRED);
3571: l_return_status := OKL_API.G_RET_STS_ERROR;
3572: -- halt validation as it is a required field
3573: RAISE G_EXCEPTION_HALT_VALIDATION;
3574: ELSE
3575: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3573: RAISE G_EXCEPTION_HALT_VALIDATION;
3574: ELSE
3575: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3576: -- store SQL error message on message stack
3577: OKL_API.set_message(p_app_name => G_APP_NAME,
3578: p_msg_name => G_ASSET_LENGTH);
3579: l_return_status := OKL_API.G_RET_STS_ERROR;
3580: -- halt validation as it is a required field
3581: RAISE G_EXCEPTION_HALT_VALIDATION;
3575: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3576: -- store SQL error message on message stack
3577: OKL_API.set_message(p_app_name => G_APP_NAME,
3578: p_msg_name => G_ASSET_LENGTH);
3579: l_return_status := OKL_API.G_RET_STS_ERROR;
3580: -- halt validation as it is a required field
3581: RAISE G_EXCEPTION_HALT_VALIDATION;
3582: ELSE
3583: l_asset_exists := 'N';
3602: END IF;
3603: CLOSE asset_chk_curs1;
3604: IF l_asset_exists = 'Y' THEN
3605: -- store SQL error message on message stack
3606: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3607: p_msg_name => G_NOT_UNIQUE,
3608: p_token1 => G_COL_NAME_TOKEN,
3609: p_token1_value => 'Asset Number '|| l_txdv_rec.asset_number);
3610: l_return_status := OKL_API.G_RET_STS_ERROR;
3606: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3607: p_msg_name => G_NOT_UNIQUE,
3608: p_token1 => G_COL_NAME_TOKEN,
3609: p_token1_value => 'Asset Number '|| l_txdv_rec.asset_number);
3610: l_return_status := OKL_API.G_RET_STS_ERROR;
3611: -- halt validation as it is a required field
3612: RAISE G_EXCEPTION_HALT_VALIDATION;
3613: END IF;
3614: END IF;
3619: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3620: RETURN(l_return_status);
3621: WHEN OTHERS THEN
3622: -- store SQL error message on message stack for caller
3623: OKL_API.set_message(
3624: G_APP_NAME,
3625: G_UNEXPECTED_ERROR,
3626: G_SQLCODE_TOKEN,
3627: SQLCODE,
3640: IF asset_chk_curs4%ISOPEN THEN
3641: CLOSE asset_chk_curs4;
3642: END IF;
3643: --send back status to caller
3644: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3645: RETURN(l_return_status);
3646: END Validate_Attributes;
3647: -------------------------------------------------------------------------------
3648: --Function to verify TRY_ID for the transaction try_id
3649: -------------------------------------------------------------------------------
3650: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,
3651: x_try_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
3652: RETURN VARCHAR2 IS
3653: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3654: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
3655: SELECT id
3656: FROM OKL_TRX_TYPES_TL
3657: WHERE UPPER(name) = UPPER(p_try_name)
3656: FROM OKL_TRX_TYPES_TL
3657: WHERE UPPER(name) = UPPER(p_try_name)
3658: AND LANGUAGE = 'US';
3659: BEGIN
3660: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
3661: (p_try_name IS NULL) THEN
3662: -- store SQL error message on message stack
3663: OKL_API.set_message(p_app_name => G_APP_NAME,
3664: p_msg_name => G_NO_DATA_FOUND,
3659: BEGIN
3660: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
3661: (p_try_name IS NULL) THEN
3662: -- store SQL error message on message stack
3663: OKL_API.set_message(p_app_name => G_APP_NAME,
3664: p_msg_name => G_NO_DATA_FOUND,
3665: p_token1 => G_COL_NAME_TOKEN,
3666: p_token1_value => p_try_name);
3667: -- halt validation as it is a required field
3669: END IF;
3670: OPEN c_get_try_id(p_try_name);
3671: FETCH c_get_try_id INTO x_try_id;
3672: IF c_get_try_id%NOTFOUND THEN
3673: OKL_API.set_message(p_app_name => G_APP_NAME,
3674: p_msg_name => G_NO_DATA_FOUND,
3675: p_token1 => G_COL_NAME_TOKEN,
3676: p_token1_value => p_try_name);
3677: RAISE G_EXCEPTION_HALT_VALIDATION;
3681: EXCEPTION
3682: WHEN G_EXCEPTION_STOP_VALIDATION THEN
3683: -- We are here since the field is required
3684: -- Notify Error
3685: x_return_status := OKL_API.G_RET_STS_ERROR;
3686: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3687: -- We are here b'cause we have no parent record
3688: -- If the cursor is open then it has to be closed
3689: IF c_get_try_id%ISOPEN THEN
3689: IF c_get_try_id%ISOPEN THEN
3690: CLOSE c_get_try_id;
3691: END IF;
3692: -- notify caller of an error
3693: x_return_status := OKL_API.G_RET_STS_ERROR;
3694: WHEN OTHERS THEN
3695: -- store SQL error message on message stack for caller
3696: OKL_API.set_message(
3697: G_APP_NAME,
3692: -- notify caller of an error
3693: x_return_status := OKL_API.G_RET_STS_ERROR;
3694: WHEN OTHERS THEN
3695: -- store SQL error message on message stack for caller
3696: OKL_API.set_message(
3697: G_APP_NAME,
3698: G_UNEXPECTED_ERROR,
3699: G_SQLCODE_TOKEN,
3700: SQLCODE,
3700: SQLCODE,
3701: G_SQLERRM_TOKEN,
3702: SQLERRM);
3703: -- notify caller of an UNEXPECTED error
3704: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3705: -- if the cursor is open
3706: IF c_get_try_id%ISOPEN THEN
3707: CLOSE c_get_try_id;
3708: END IF;
3727: WHERE stl.lse_id = cle.lse_id
3728: AND stl.scs_code = CHR.scs_code
3729: AND CHR.id = cle.chr_id);
3730: l_chk_top_line VARCHAR2(1) DEFAULT 'N';
3731: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3732: BEGIN
3733: OPEN Chk_Top_Line(p_cle_id);
3734: FETCH Chk_Top_Line INTO l_chk_top_line;
3735: IF chk_top_line%NOTFOUND THEN
3737: NULL;
3738: END IF;
3739: CLOSE Chk_Top_Line;
3740: IF l_chk_top_line <> 'Y' THEN
3741: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3742: p_msg_name => G_INVALID_TOP_LINE);
3743: l_return_status := OKL_API.G_RET_STS_ERROR;
3744: END IF;
3745: RETURN(l_return_status);
3739: CLOSE Chk_Top_Line;
3740: IF l_chk_top_line <> 'Y' THEN
3741: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3742: p_msg_name => G_INVALID_TOP_LINE);
3743: l_return_status := OKL_API.G_RET_STS_ERROR;
3744: END IF;
3745: RETURN(l_return_status);
3746: EXCEPTION
3747: WHEN OTHERS THEN
3744: END IF;
3745: RETURN(l_return_status);
3746: EXCEPTION
3747: WHEN OTHERS THEN
3748: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3749: OKL_API.set_message(
3750: G_APP_NAME,
3751: G_UNEXPECTED_ERROR,
3752: G_SQLCODE_TOKEN,
3745: RETURN(l_return_status);
3746: EXCEPTION
3747: WHEN OTHERS THEN
3748: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3749: OKL_API.set_message(
3750: G_APP_NAME,
3751: G_UNEXPECTED_ERROR,
3752: G_SQLCODE_TOKEN,
3753: SQLCODE,
3782: --This is strange way to get one location
3783: --since asset can be assigned to multiple
3784: --fa locations. But till we know what we have to do
3785: --this is it.
3786: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3787: l_location_id NUMBER DEFAULT NULL;
3788: BEGIN
3789: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3790: OPEN fa_location_curs(p_asset_id,
3785: --this is it.
3786: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3787: l_location_id NUMBER DEFAULT NULL;
3788: BEGIN
3789: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3790: OPEN fa_location_curs(p_asset_id,
3791: p_book_type_code);
3792: FETCH fa_location_curs
3793: INTO l_location_id;
3799: RETURN(l_return_status);
3800: EXCEPTION
3801: WHEN OTHERS THEN
3802: -- notify caller of an UNEXPECTED error
3803: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3804: OKL_API.set_message(
3805: G_APP_NAME,
3806: G_UNEXPECTED_ERROR,
3807: G_SQLCODE_TOKEN,
3800: EXCEPTION
3801: WHEN OTHERS THEN
3802: -- notify caller of an UNEXPECTED error
3803: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3804: OKL_API.set_message(
3805: G_APP_NAME,
3806: G_UNEXPECTED_ERROR,
3807: G_SQLCODE_TOKEN,
3808: SQLCODE,
3818: --Procedure to create transaction header (OKL_TRX_ASSETS_V)
3819: --------------------------------------------------------------------------------
3820: PROCEDURE Create_trx_header(
3821: p_api_version IN NUMBER,
3822: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3823: x_return_status OUT NOCOPY VARCHAR2,
3824: x_msg_count OUT NOCOPY NUMBER,
3825: x_msg_data OUT NOCOPY VARCHAR2,
3826: p_trxv_rec IN trxv_rec_type,
3826: p_trxv_rec IN trxv_rec_type,
3827: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
3828: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_HEADER';
3829: BEGIN
3830: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3831: -- Call start_activity to create savepoint, check compatibility
3832: -- and initialize message list
3833: x_return_status := OKL_API.START_ACTIVITY (
3834: l_api_name
3829: BEGIN
3830: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3831: -- Call start_activity to create savepoint, check compatibility
3832: -- and initialize message list
3833: x_return_status := OKL_API.START_ACTIVITY (
3834: l_api_name
3835: ,p_init_msg_list
3836: ,'_PVT'
3837: ,x_return_status);
3835: ,p_init_msg_list
3836: ,'_PVT'
3837: ,x_return_status);
3838: -- Check if activity started successfully
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3836: ,'_PVT'
3837: ,x_return_status);
3838: -- Check if activity started successfully
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844: -- evaluate conditions, build outcomes for true conditions and
3837: ,x_return_status);
3838: -- Check if activity started successfully
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844: -- evaluate conditions, build outcomes for true conditions and
3845: -- put them on outcome queue
3838: -- Check if activity started successfully
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844: -- evaluate conditions, build outcomes for true conditions and
3845: -- put them on outcome queue
3846: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
3851: x_msg_data => x_msg_data,
3852: p_thpv_rec => p_trxv_rec,
3853: x_thpv_rec => x_trxv_rec);
3854:
3855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3852: p_thpv_rec => p_trxv_rec,
3853: x_thpv_rec => x_trxv_rec);
3854:
3855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: OKL_API.END_ACTIVITY (x_msg_count,
3853: x_thpv_rec => x_trxv_rec);
3854:
3855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: OKL_API.END_ACTIVITY (x_msg_count,
3861: x_msg_data );
3854:
3855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: OKL_API.END_ACTIVITY (x_msg_count,
3861: x_msg_data );
3862: EXCEPTION
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3858: RAISE OKL_API.G_EXCEPTION_ERROR;
3859: END IF;
3860: OKL_API.END_ACTIVITY (x_msg_count,
3861: x_msg_data );
3862: EXCEPTION
3863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3859: END IF;
3860: OKL_API.END_ACTIVITY (x_msg_count,
3861: x_msg_data );
3862: EXCEPTION
3863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3865: l_api_name,
3866: G_PKG_NAME,
3867: 'OKC_API.G_RET_STS_ERROR',
3860: OKL_API.END_ACTIVITY (x_msg_count,
3861: x_msg_data );
3862: EXCEPTION
3863: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3865: l_api_name,
3866: G_PKG_NAME,
3867: 'OKC_API.G_RET_STS_ERROR',
3868: x_msg_count,
3867: 'OKC_API.G_RET_STS_ERROR',
3868: x_msg_count,
3869: x_msg_data,
3870: '_PVT');
3871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3873: l_api_name,
3874: G_PKG_NAME,
3875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3868: x_msg_count,
3869: x_msg_data,
3870: '_PVT');
3871: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3872: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3873: l_api_name,
3874: G_PKG_NAME,
3875: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3876: x_msg_count,
3876: x_msg_count,
3877: x_msg_data,
3878: '_PVT');
3879: WHEN OTHERS THEN
3880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3881: l_api_name,
3882: G_PKG_NAME,
3883: 'OTHERS',
3884: x_msg_count,
3889: --PROCEDURE to update transaction_header (OKL_TRX_ASSETS_V)
3890: --------------------------------------------------------------------------------
3891: PROCEDURE Update_trx_header(
3892: p_api_version IN NUMBER,
3893: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3894: x_return_status OUT NOCOPY VARCHAR2,
3895: x_msg_count OUT NOCOPY NUMBER,
3896: x_msg_data OUT NOCOPY VARCHAR2,
3897: p_trxv_rec IN trxv_rec_type,
3897: p_trxv_rec IN trxv_rec_type,
3898: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
3899: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_HEADER';
3900: BEGIN
3901: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3902: -- Call start_activity to create savepoint, check compatibility
3903: -- and initialize message list
3904: x_return_status := OKL_API.START_ACTIVITY (
3905: l_api_name
3900: BEGIN
3901: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3902: -- Call start_activity to create savepoint, check compatibility
3903: -- and initialize message list
3904: x_return_status := OKL_API.START_ACTIVITY (
3905: l_api_name
3906: ,p_init_msg_list
3907: ,'_PVT'
3908: ,x_return_status);
3906: ,p_init_msg_list
3907: ,'_PVT'
3908: ,x_return_status);
3909: -- Check if activity started successfully
3910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_ERROR;
3914: END IF;
3907: ,'_PVT'
3908: ,x_return_status);
3909: -- Check if activity started successfully
3910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_ERROR;
3914: END IF;
3915: -- evaluate conditions, build outcomes for true conditions and
3908: ,x_return_status);
3909: -- Check if activity started successfully
3910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_ERROR;
3914: END IF;
3915: -- evaluate conditions, build outcomes for true conditions and
3916: -- put them on outcome queue
3909: -- Check if activity started successfully
3910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3913: RAISE OKL_API.G_EXCEPTION_ERROR;
3914: END IF;
3915: -- evaluate conditions, build outcomes for true conditions and
3916: -- put them on outcome queue
3917: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
3922: x_msg_data => x_msg_data,
3923: p_thpv_rec => p_trxv_rec,
3924: x_thpv_rec => x_trxv_rec);
3925:
3926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_ERROR;
3930: END IF;
3923: p_thpv_rec => p_trxv_rec,
3924: x_thpv_rec => x_trxv_rec);
3925:
3926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3924: x_thpv_rec => x_trxv_rec);
3925:
3926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3932: OKL_API.END_ACTIVITY (x_msg_count,
3925:
3926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3932: OKL_API.END_ACTIVITY (x_msg_count,
3933: x_msg_data );
3928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3929: RAISE OKL_API.G_EXCEPTION_ERROR;
3930: END IF;
3931:
3932: OKL_API.END_ACTIVITY (x_msg_count,
3933: x_msg_data );
3934: EXCEPTION
3935: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3932: OKL_API.END_ACTIVITY (x_msg_count,
3933: x_msg_data );
3934: EXCEPTION
3935: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3936: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3937: l_api_name,
3938: G_PKG_NAME,
3939: 'OKC_API.G_RET_STS_ERROR',
3940: x_msg_count,
3940: x_msg_count,
3941: x_msg_data,
3942: '_PVT');
3943: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3944: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3945: l_api_name,
3946: G_PKG_NAME,
3947: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3948: x_msg_count,
3948: x_msg_count,
3949: x_msg_data,
3950: '_PVT');
3951: WHEN OTHERS THEN
3952: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3953: l_api_name,
3954: G_PKG_NAME,
3955: 'OTHERS',
3956: x_msg_count,
3962: --Bug# 2798006 : Modifications for Loan contract - instead of reading values from
3963: --p_ast_line_rec will read from p_txlv_rec
3964: --------------------------------------------------------------------------------
3965: PROCEDURE Create_trx_details(p_api_version IN NUMBER,
3966: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3967: x_return_status OUT NOCOPY VARCHAR2,
3968: x_msg_count OUT NOCOPY NUMBER,
3969: x_msg_data OUT NOCOPY VARCHAR2,
3970: p_ast_line_rec IN ast_line_rec_type,
3970: p_ast_line_rec IN ast_line_rec_type,
3971: p_txlv_rec IN txlv_rec_type,
3972: x_txdv_tbl OUT NOCOPY txdv_tbl_type) IS
3973:
3974: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3975: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_DETAILS';
3976: l_api_version CONSTANT NUMBER := 1.0;
3977:
3978: l_split_into_individuals_yn VARCHAR2(1);
3989: i NUMBER DEFAULT 0;
3990: l_split_unit_count NUMBER DEFAULT 0;
3991:
3992: BEGIN
3993: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3994: -- Call start_activity to create savepoint, check compatibility
3995: -- and initialize message list
3996: x_return_status := OKL_API.START_ACTIVITY (
3997: l_api_name
3992: BEGIN
3993: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3994: -- Call start_activity to create savepoint, check compatibility
3995: -- and initialize message list
3996: x_return_status := OKL_API.START_ACTIVITY (
3997: l_api_name
3998: ,p_init_msg_list
3999: ,'_PVT'
4000: ,x_return_status);
3998: ,p_init_msg_list
3999: ,'_PVT'
4000: ,x_return_status);
4001: -- Check if activity started successfully
4002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
3999: ,'_PVT'
4000: ,x_return_status);
4001: -- Check if activity started successfully
4002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4000: ,x_return_status);
4001: -- Check if activity started successfully
4002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
4001: -- Check if activity started successfully
4002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4005: RAISE OKL_API.G_EXCEPTION_ERROR;
4006: END IF;
4007:
4008: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
4009: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
4042: INTO l_txdv_rec.asset_number FROM dual;
4043: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4044: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4045: --dbms_output.put_line('after asset number validate'||x_return_status);
4046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_ERROR;
4050: END IF;
4043: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4044: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4045: --dbms_output.put_line('after asset number validate'||x_return_status);
4046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_ERROR;
4050: END IF;
4051: IF l_asset_exists = 'Y' THEN
4044: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4045: --dbms_output.put_line('after asset number validate'||x_return_status);
4046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_ERROR;
4050: END IF;
4051: IF l_asset_exists = 'Y' THEN
4052: j:= j+1;
4045: --dbms_output.put_line('after asset number validate'||x_return_status);
4046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4049: RAISE OKL_API.G_EXCEPTION_ERROR;
4050: END IF;
4051: IF l_asset_exists = 'Y' THEN
4052: j:= j+1;
4053: ELSIF l_asset_exists = 'N' THEN
4083: p_adpv_rec => l_txdv_rec,
4084: x_adpv_rec => l_txdv_rec_out);
4085: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4086: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4084: x_adpv_rec => l_txdv_rec_out);
4085: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4086: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4092: l_split_unit_count := i;
4085: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4086: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4092: l_split_unit_count := i;
4093: x_txdv_tbl(l_split_unit_count) := l_txdv_rec_out;
4086: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_ERROR;
4091: END IF;
4092: l_split_unit_count := i;
4093: x_txdv_tbl(l_split_unit_count) := l_txdv_rec_out;
4094: END LOOP;
4135: x_adpv_rec => l_txdv_rec_out);
4136: --dbms_output.put_line('after Creating trx detail for parent asset'||x_return_status);
4137: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4138: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4142: RAISE OKL_API.G_EXCEPTION_ERROR;
4143: END IF;
4136: --dbms_output.put_line('after Creating trx detail for parent asset'||x_return_status);
4137: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4138: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4142: RAISE OKL_API.G_EXCEPTION_ERROR;
4143: END IF;
4144: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4137: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4138: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4142: RAISE OKL_API.G_EXCEPTION_ERROR;
4143: END IF;
4144: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4145: OKL_API.END_ACTIVITY (x_msg_count,
4138: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4142: RAISE OKL_API.G_EXCEPTION_ERROR;
4143: END IF;
4144: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4145: OKL_API.END_ACTIVITY (x_msg_count,
4146: x_msg_data );
4141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4142: RAISE OKL_API.G_EXCEPTION_ERROR;
4143: END IF;
4144: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4145: OKL_API.END_ACTIVITY (x_msg_count,
4146: x_msg_data );
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4144: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4145: OKL_API.END_ACTIVITY (x_msg_count,
4146: x_msg_data );
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4145: OKL_API.END_ACTIVITY (x_msg_count,
4146: x_msg_data );
4147: EXCEPTION
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4149: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4150: l_api_name,
4151: G_PKG_NAME,
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4152: 'OKL_API.G_RET_STS_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4153: x_msg_count,
4154: x_msg_data,
4155: '_PVT');
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4161: x_msg_count,
4156: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4157: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4158: l_api_name,
4159: G_PKG_NAME,
4160: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT');
4164: WHEN OTHERS THEN
4161: x_msg_count,
4162: x_msg_data,
4163: '_PVT');
4164: WHEN OTHERS THEN
4165: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4166: l_api_name,
4167: G_PKG_NAME,
4168: 'OTHERS',
4169: x_msg_count,
4200: AND model_lse.lty_code = 'ITEM';
4201:
4202: chk_srl_rec chk_srl_csr%ROWTYPE;
4203:
4204: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4205:
4206: BEGIN
4207: l_serialized := OKL_API.G_FALSE;
4208: --user needs to select serial numbers to split out
4203:
4204: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4205:
4206: BEGIN
4207: l_serialized := OKL_API.G_FALSE;
4208: --user needs to select serial numbers to split out
4209: OPEN chk_srl_csr (fin_ast_id => p_cle_id);
4210: FETCH chk_srl_csr INTO chk_srl_rec;
4211: IF chk_srl_csr%NOTFOUND THEN
4214: CLOSE chk_srl_csr;
4215:
4216: IF chk_srl_rec.serial_number_control_code IN (2,5,6) THEN
4217: -- asset inventory item is serial number controlled
4218: l_serialized := OKL_API.G_TRUE;
4219: END IF;
4220:
4221: RETURN (l_serialized);
4222: END is_serialized;
4239: x_serialized OUT NOCOPY VARCHAR2) IS
4240: l_api_version CONSTANT NUMBER := 1.0;
4241: l_api_name VARCHAR2(30) := 'IS_INV_ITEM_SERIALIZED';
4242:
4243: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4244:
4245: --cursor to find serialized
4246: CURSOR srl_ctrl_csr (p_inv_item_id IN NUMBER,
4247: p_chr_id IN NUMBER) IS
4269:
4270: l_exception_halt EXCEPTION;
4271:
4272: BEGIN
4273: x_serialized := OKL_API.G_FALSE;
4274: x_return_status := OKL_API.START_ACTIVITY (
4275: l_api_name
4276: ,p_init_msg_list
4277: ,'_PVT'
4270: l_exception_halt EXCEPTION;
4271:
4272: BEGIN
4273: x_serialized := OKL_API.G_FALSE;
4274: x_return_status := OKL_API.START_ACTIVITY (
4275: l_api_name
4276: ,p_init_msg_list
4277: ,'_PVT'
4278: ,x_return_status);
4276: ,p_init_msg_list
4277: ,'_PVT'
4278: ,x_return_status);
4279: -- Check if activity started successfully
4280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4277: ,'_PVT'
4278: ,x_return_status);
4279: -- Check if activity started successfully
4280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4278: ,x_return_status);
4279: -- Check if activity started successfully
4280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: l_serialized := OKL_API.G_FALSE;
4279: -- Check if activity started successfully
4280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: l_serialized := OKL_API.G_FALSE;
4287: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: l_serialized := OKL_API.G_FALSE;
4287: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4288: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
4289: p_chr_id => p_chr_id);
4290: FETCH srl_ctrl_csr INTO
4283: RAISE OKL_API.G_EXCEPTION_ERROR;
4284: END IF;
4285:
4286: l_serialized := OKL_API.G_FALSE;
4287: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4288: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
4289: p_chr_id => p_chr_id);
4290: FETCH srl_ctrl_csr INTO
4291: l_srl_control_code;
4289: p_chr_id => p_chr_id);
4290: FETCH srl_ctrl_csr INTO
4291: l_srl_control_code;
4292: CLOSE srl_ctrl_csr;
4293: ELSIF p_cle_id IS NOT NULL OR p_cle_id <> OKL_API.G_MISS_NUM THEN
4294: OPEN srl_ctrl_csr2 (p_inv_item_id => p_inv_item_id,
4295: p_cle_id => p_cle_id);
4296: FETCH srl_ctrl_csr2 INTO
4297: l_srl_control_code;
4300: RAISE l_exception_halt;
4301: END IF;
4302:
4303: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
4304: l_serialized := OKL_API.G_TRUE;
4305: END IF;
4306: x_serialized := l_serialized;
4307: OKL_API.END_ACTIVITY (x_msg_count,
4308: x_msg_data );
4303: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
4304: l_serialized := OKL_API.G_TRUE;
4305: END IF;
4306: x_serialized := l_serialized;
4307: OKL_API.END_ACTIVITY (x_msg_count,
4308: x_msg_data );
4309: EXCEPTION
4310: WHEN l_exception_halt THEN
4311: NULL;
4308: x_msg_data );
4309: EXCEPTION
4310: WHEN l_exception_halt THEN
4311: NULL;
4312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4314: l_api_name,
4315: G_PKG_NAME,
4316: 'OKL_API.G_RET_STS_ERROR',
4309: EXCEPTION
4310: WHEN l_exception_halt THEN
4311: NULL;
4312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4314: l_api_name,
4315: G_PKG_NAME,
4316: 'OKL_API.G_RET_STS_ERROR',
4317: x_msg_count,
4312: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4313: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4314: l_api_name,
4315: G_PKG_NAME,
4316: 'OKL_API.G_RET_STS_ERROR',
4317: x_msg_count,
4318: x_msg_data,
4319: '_PVT');
4320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4316: 'OKL_API.G_RET_STS_ERROR',
4317: x_msg_count,
4318: x_msg_data,
4319: '_PVT');
4320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4322: l_api_name,
4323: G_PKG_NAME,
4324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4317: x_msg_count,
4318: x_msg_data,
4319: '_PVT');
4320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4322: l_api_name,
4323: G_PKG_NAME,
4324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4325: x_msg_count,
4320: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4321: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4322: l_api_name,
4323: G_PKG_NAME,
4324: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4325: x_msg_count,
4326: x_msg_data,
4327: '_PVT');
4328: WHEN OTHERS THEN
4325: x_msg_count,
4326: x_msg_data,
4327: '_PVT');
4328: WHEN OTHERS THEN
4329: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4330: l_api_name,
4331: G_PKG_NAME,
4332: 'OTHERS',
4333: x_msg_count,
4350:
4351: l_api_version CONSTANT NUMBER := 1.0;
4352: l_api_name VARCHAR2(30) := 'IS_ASSET_SERIALIZED';
4353:
4354: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4355: BEGIN
4356: x_serialized := OKL_API.G_FALSE;
4357: x_return_status := OKL_API.START_ACTIVITY (
4358: l_api_name
4352: l_api_name VARCHAR2(30) := 'IS_ASSET_SERIALIZED';
4353:
4354: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4355: BEGIN
4356: x_serialized := OKL_API.G_FALSE;
4357: x_return_status := OKL_API.START_ACTIVITY (
4358: l_api_name
4359: ,p_init_msg_list
4360: ,'_PVT'
4353:
4354: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4355: BEGIN
4356: x_serialized := OKL_API.G_FALSE;
4357: x_return_status := OKL_API.START_ACTIVITY (
4358: l_api_name
4359: ,p_init_msg_list
4360: ,'_PVT'
4361: ,x_return_status);
4359: ,p_init_msg_list
4360: ,'_PVT'
4361: ,x_return_status);
4362: -- Check if activity started successfully
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4360: ,'_PVT'
4361: ,x_return_status);
4362: -- Check if activity started successfully
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4361: ,x_return_status);
4362: -- Check if activity started successfully
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4369: l_serialized := OKL_API.G_FALSE;
4362: -- Check if activity started successfully
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4369: l_serialized := OKL_API.G_FALSE;
4370: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4369: l_serialized := OKL_API.G_FALSE;
4370: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4371: x_serialized := l_serialized;
4372: OKL_API.END_ACTIVITY (x_msg_count,
4373: x_msg_data );
4368:
4369: l_serialized := OKL_API.G_FALSE;
4370: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4371: x_serialized := l_serialized;
4372: OKL_API.END_ACTIVITY (x_msg_count,
4373: x_msg_data );
4374: EXCEPTION
4375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4371: x_serialized := l_serialized;
4372: OKL_API.END_ACTIVITY (x_msg_count,
4373: x_msg_data );
4374: EXCEPTION
4375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4377: l_api_name,
4378: G_PKG_NAME,
4379: 'OKL_API.G_RET_STS_ERROR',
4372: OKL_API.END_ACTIVITY (x_msg_count,
4373: x_msg_data );
4374: EXCEPTION
4375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4377: l_api_name,
4378: G_PKG_NAME,
4379: 'OKL_API.G_RET_STS_ERROR',
4380: x_msg_count,
4375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4377: l_api_name,
4378: G_PKG_NAME,
4379: 'OKL_API.G_RET_STS_ERROR',
4380: x_msg_count,
4381: x_msg_data,
4382: '_PVT');
4383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4379: 'OKL_API.G_RET_STS_ERROR',
4380: x_msg_count,
4381: x_msg_data,
4382: '_PVT');
4383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4380: x_msg_count,
4381: x_msg_data,
4382: '_PVT');
4383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4388: x_msg_count,
4383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4385: l_api_name,
4386: G_PKG_NAME,
4387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4388: x_msg_count,
4389: x_msg_data,
4390: '_PVT');
4391: WHEN OTHERS THEN
4388: x_msg_count,
4389: x_msg_data,
4390: '_PVT');
4391: WHEN OTHERS THEN
4392: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4393: l_api_name,
4394: G_PKG_NAME,
4395: 'OTHERS',
4396: x_msg_count,
4415: x_serialized OUT NOCOPY VARCHAR2) IS
4416: l_api_version CONSTANT NUMBER := 1.0;
4417: l_api_name VARCHAR2(30) := 'ASSET_NOT_SRLZ_HALT';
4418:
4419: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4420: BEGIN
4421: -----
4422: x_return_status := OKL_API.START_ACTIVITY (
4423: l_api_name
4418:
4419: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4420: BEGIN
4421: -----
4422: x_return_status := OKL_API.START_ACTIVITY (
4423: l_api_name
4424: ,p_init_msg_list
4425: ,'_PVT'
4426: ,x_return_status);
4424: ,p_init_msg_list
4425: ,'_PVT'
4426: ,x_return_status);
4427: -- Check if activity started successfully
4428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4425: ,'_PVT'
4426: ,x_return_status);
4427: -- Check if activity started successfully
4428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433:
4426: ,x_return_status);
4427: -- Check if activity started successfully
4428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433:
4434: l_serialized := OKL_API.G_FALSE;
4427: -- Check if activity started successfully
4428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433:
4434: l_serialized := OKL_API.G_FALSE;
4435: x_serialized := l_serialized;
4430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4431: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: END IF;
4433:
4434: l_serialized := OKL_API.G_FALSE;
4435: x_serialized := l_serialized;
4436: Is_Asset_Serialized(p_api_version => p_api_version,
4437: p_init_msg_list => p_init_msg_list,
4438: x_return_status => x_return_status,
4440: x_msg_data => x_msg_data,
4441: p_cle_id => p_cle_id,
4442: x_serialized => l_serialized);
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4441: p_cle_id => p_cle_id,
4442: x_serialized => l_serialized);
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: x_serialized := l_serialized;
4442: x_serialized => l_serialized);
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: x_serialized := l_serialized;
4450: IF l_serialized = OKL_API.G_FALSE THEN
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: x_serialized := l_serialized;
4450: IF l_serialized = OKL_API.G_FALSE THEN
4451: OKL_API.set_message(p_app_name => G_APP_NAME,
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: x_serialized := l_serialized;
4450: IF l_serialized = OKL_API.G_FALSE THEN
4451: OKL_API.set_message(p_app_name => G_APP_NAME,
4452: p_msg_name => G_ASSET_NOT_SERIALIZED);
4453: x_return_status := OKL_API.G_RET_STS_ERROR;
4454: END IF;
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: x_serialized := l_serialized;
4450: IF l_serialized = OKL_API.G_FALSE THEN
4451: OKL_API.set_message(p_app_name => G_APP_NAME,
4452: p_msg_name => G_ASSET_NOT_SERIALIZED);
4453: x_return_status := OKL_API.G_RET_STS_ERROR;
4454: END IF;
4455:
4449: x_serialized := l_serialized;
4450: IF l_serialized = OKL_API.G_FALSE THEN
4451: OKL_API.set_message(p_app_name => G_APP_NAME,
4452: p_msg_name => G_ASSET_NOT_SERIALIZED);
4453: x_return_status := OKL_API.G_RET_STS_ERROR;
4454: END IF;
4455:
4456: OKL_API.END_ACTIVITY (x_msg_count,
4457: x_msg_data );
4452: p_msg_name => G_ASSET_NOT_SERIALIZED);
4453: x_return_status := OKL_API.G_RET_STS_ERROR;
4454: END IF;
4455:
4456: OKL_API.END_ACTIVITY (x_msg_count,
4457: x_msg_data );
4458: EXCEPTION
4459: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4460: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4455:
4456: OKL_API.END_ACTIVITY (x_msg_count,
4457: x_msg_data );
4458: EXCEPTION
4459: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4460: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4461: l_api_name,
4462: G_PKG_NAME,
4463: 'OKL_API.G_RET_STS_ERROR',
4456: OKL_API.END_ACTIVITY (x_msg_count,
4457: x_msg_data );
4458: EXCEPTION
4459: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4460: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4461: l_api_name,
4462: G_PKG_NAME,
4463: 'OKL_API.G_RET_STS_ERROR',
4464: x_msg_count,
4459: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4460: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4461: l_api_name,
4462: G_PKG_NAME,
4463: 'OKL_API.G_RET_STS_ERROR',
4464: x_msg_count,
4465: x_msg_data,
4466: '_PVT');
4467: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4463: 'OKL_API.G_RET_STS_ERROR',
4464: x_msg_count,
4465: x_msg_data,
4466: '_PVT');
4467: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4468: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4469: l_api_name,
4470: G_PKG_NAME,
4471: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4464: x_msg_count,
4465: x_msg_data,
4466: '_PVT');
4467: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4468: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4469: l_api_name,
4470: G_PKG_NAME,
4471: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4472: x_msg_count,
4467: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4468: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4469: l_api_name,
4470: G_PKG_NAME,
4471: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4472: x_msg_count,
4473: x_msg_data,
4474: '_PVT');
4475: WHEN OTHERS THEN
4472: x_msg_count,
4473: x_msg_data,
4474: '_PVT');
4475: WHEN OTHERS THEN
4476: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4477: l_api_name,
4478: G_PKG_NAME,
4479: 'OTHERS',
4480: x_msg_count,
4501: x_serialized OUT NOCOPY VARCHAR2) IS
4502: l_api_version CONSTANT NUMBER := 1.0;
4503: l_api_name VARCHAR2(30) := 'ITEM_NOT_SRLZ_HALT';
4504:
4505: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4506: BEGIN
4507: -----
4508: x_return_status := OKL_API.START_ACTIVITY (
4509: l_api_name
4504:
4505: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4506: BEGIN
4507: -----
4508: x_return_status := OKL_API.START_ACTIVITY (
4509: l_api_name
4510: ,p_init_msg_list
4511: ,'_PVT'
4512: ,x_return_status);
4510: ,p_init_msg_list
4511: ,'_PVT'
4512: ,x_return_status);
4513: -- Check if activity started successfully
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4511: ,'_PVT'
4512: ,x_return_status);
4513: -- Check if activity started successfully
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4512: ,x_return_status);
4513: -- Check if activity started successfully
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4520: l_serialized := OKL_API.G_FALSE;
4513: -- Check if activity started successfully
4514: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4515: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4520: l_serialized := OKL_API.G_FALSE;
4521: x_serialized := l_serialized;
4516: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4517: RAISE OKL_API.G_EXCEPTION_ERROR;
4518: END IF;
4519:
4520: l_serialized := OKL_API.G_FALSE;
4521: x_serialized := l_serialized;
4522: Is_Inv_Item_Serialized(p_api_version => p_api_version,
4523: p_init_msg_list => p_init_msg_list,
4524: x_return_status => x_return_status,
4528: p_chr_id => p_chr_id,
4529: p_cle_id => p_cle_id,
4530: x_serialized => l_serialized);
4531:
4532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4529: p_cle_id => p_cle_id,
4530: x_serialized => l_serialized);
4531:
4532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4537: x_serialized := l_serialized;
4530: x_serialized => l_serialized);
4531:
4532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4537: x_serialized := l_serialized;
4538: IF l_serialized = OKL_API.G_FALSE THEN
4531:
4532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4537: x_serialized := l_serialized;
4538: IF l_serialized = OKL_API.G_FALSE THEN
4539: OKL_API.set_message(p_app_name => G_APP_NAME,
4534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4537: x_serialized := l_serialized;
4538: IF l_serialized = OKL_API.G_FALSE THEN
4539: OKL_API.set_message(p_app_name => G_APP_NAME,
4540: p_msg_name => G_ASSET_NOT_SERIALIZED);
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542: END IF;
4535: RAISE OKL_API.G_EXCEPTION_ERROR;
4536: END IF;
4537: x_serialized := l_serialized;
4538: IF l_serialized = OKL_API.G_FALSE THEN
4539: OKL_API.set_message(p_app_name => G_APP_NAME,
4540: p_msg_name => G_ASSET_NOT_SERIALIZED);
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542: END IF;
4543:
4537: x_serialized := l_serialized;
4538: IF l_serialized = OKL_API.G_FALSE THEN
4539: OKL_API.set_message(p_app_name => G_APP_NAME,
4540: p_msg_name => G_ASSET_NOT_SERIALIZED);
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542: END IF;
4543:
4544: OKL_API.END_ACTIVITY (x_msg_count,
4545: x_msg_data );
4540: p_msg_name => G_ASSET_NOT_SERIALIZED);
4541: x_return_status := OKL_API.G_RET_STS_ERROR;
4542: END IF;
4543:
4544: OKL_API.END_ACTIVITY (x_msg_count,
4545: x_msg_data );
4546: EXCEPTION
4547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4543:
4544: OKL_API.END_ACTIVITY (x_msg_count,
4545: x_msg_data );
4546: EXCEPTION
4547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4549: l_api_name,
4550: G_PKG_NAME,
4551: 'OKL_API.G_RET_STS_ERROR',
4544: OKL_API.END_ACTIVITY (x_msg_count,
4545: x_msg_data );
4546: EXCEPTION
4547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4549: l_api_name,
4550: G_PKG_NAME,
4551: 'OKL_API.G_RET_STS_ERROR',
4552: x_msg_count,
4547: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4548: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4549: l_api_name,
4550: G_PKG_NAME,
4551: 'OKL_API.G_RET_STS_ERROR',
4552: x_msg_count,
4553: x_msg_data,
4554: '_PVT');
4555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4551: 'OKL_API.G_RET_STS_ERROR',
4552: x_msg_count,
4553: x_msg_data,
4554: '_PVT');
4555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4557: l_api_name,
4558: G_PKG_NAME,
4559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4552: x_msg_count,
4553: x_msg_data,
4554: '_PVT');
4555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4557: l_api_name,
4558: G_PKG_NAME,
4559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4560: x_msg_count,
4555: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4556: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4557: l_api_name,
4558: G_PKG_NAME,
4559: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4560: x_msg_count,
4561: x_msg_data,
4562: '_PVT');
4563: WHEN OTHERS THEN
4560: x_msg_count,
4561: x_msg_data,
4562: '_PVT');
4563: WHEN OTHERS THEN
4564: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4565: l_api_name,
4566: G_PKG_NAME,
4567: 'OTHERS',
4568: x_msg_count,
4589:
4590: l_csi_srl_number csi_item_instances.serial_number%TYPE DEFAULT NULL;
4591:
4592: BEGIN
4593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4594: l_serial_number := p_serial_number;
4595: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4596: -- store SQL error message on message stack
4597: OKL_API.set_message(p_app_name => G_APP_NAME,
4591:
4592: BEGIN
4593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4594: l_serial_number := p_serial_number;
4595: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4596: -- store SQL error message on message stack
4597: OKL_API.set_message(p_app_name => G_APP_NAME,
4598: p_msg_name => G_NO_MATCHING_RECORD,
4599: p_token1 => G_COL_NAME_TOKEN,
4593: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4594: l_serial_number := p_serial_number;
4595: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4596: -- store SQL error message on message stack
4597: OKL_API.set_message(p_app_name => G_APP_NAME,
4598: p_msg_name => G_NO_MATCHING_RECORD,
4599: p_token1 => G_COL_NAME_TOKEN,
4600: p_token1_value => 'serial_number');
4601: x_return_status := OKL_API.G_RET_STS_ERROR;
4597: OKL_API.set_message(p_app_name => G_APP_NAME,
4598: p_msg_name => G_NO_MATCHING_RECORD,
4599: p_token1 => G_COL_NAME_TOKEN,
4600: p_token1_value => 'serial_number');
4601: x_return_status := OKL_API.G_RET_STS_ERROR;
4602: ELSE
4603: l_csi_srl_number := NULL;
4604: OPEN srl_num_csr (Srl_Number => l_serial_number);
4605: FETCH srl_num_csr INTO l_csi_srl_number;
4609: CLOSE srl_num_csr;
4610:
4611: IF l_csi_srl_number IS NOT NULL
4612: AND l_csi_srl_number = l_serial_number THEN
4613: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4614: p_msg_name => G_SRL_NUM_DUPLICATE,
4615: p_token1 => G_COL_NAME_TOKEN,
4616: p_token1_value => l_serial_number);
4617: x_return_status := OKL_API.G_RET_STS_ERROR;
4613: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4614: p_msg_name => G_SRL_NUM_DUPLICATE,
4615: p_token1 => G_COL_NAME_TOKEN,
4616: p_token1_value => l_serial_number);
4617: x_return_status := OKL_API.G_RET_STS_ERROR;
4618: END IF;
4619: END IF;
4620: EXCEPTION
4621: WHEN OTHERS THEN
4618: END IF;
4619: END IF;
4620: EXCEPTION
4621: WHEN OTHERS THEN
4622: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4623: END Validate_Serial_Number;
4624: ---------------------------------------------------------------------------------------------------------------
4625: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
4626: RETURN VARCHAR2 IS
4623: END Validate_Serial_Number;
4624: ---------------------------------------------------------------------------------------------------------------
4625: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
4626: RETURN VARCHAR2 IS
4627: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4628: -- cursor to get sequence number for asset number
4629: CURSOR c_instance_no_ib IS
4630: SELECT TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
4631: FROM dual;
4633: OPEN c_instance_no_ib;
4634: FETCH c_instance_no_ib INTO x_instance_number_ib;
4635: IF (c_instance_no_ib%NOTFOUND) THEN
4636: x_return_status := OKC_API.G_RET_STS_ERROR;
4637: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4638: p_msg_name => g_unexpected_error,
4639: p_token1 => g_sqlcode_token,
4640: p_token1_value => SQLCODE,
4641: p_token2 => g_sqlerrm_token,
4648: IF c_instance_no_ib%ISOPEN THEN
4649: CLOSE c_instance_no_ib;
4650: END IF;
4651: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4652: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4653: p_msg_name => g_unexpected_error,
4654: p_token1 => g_sqlcode_token,
4655: p_token1_value => SQLCODE,
4656: p_token2 => g_sqlerrm_token,
4803: l_tal_id okl_txd_assets_b.tal_id%TYPE;
4804: --Bug 7047938 End
4805: BEGIN
4806: ----
4807: x_return_status := OKL_API.START_ACTIVITY (
4808: l_api_name
4809: ,p_init_msg_list
4810: ,'_PVT'
4811: ,x_return_status);
4809: ,p_init_msg_list
4810: ,'_PVT'
4811: ,x_return_status);
4812: -- Check if activity started successfully
4813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_ERROR;
4817: END IF;
4810: ,'_PVT'
4811: ,x_return_status);
4812: -- Check if activity started successfully
4813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_ERROR;
4817: END IF;
4818:
4811: ,x_return_status);
4812: -- Check if activity started successfully
4813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_ERROR;
4817: END IF;
4818:
4819: l_itiv_tbl := p_itiv_tbl;
4812: -- Check if activity started successfully
4813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_ERROR;
4817: END IF;
4818:
4819: l_itiv_tbl := p_itiv_tbl;
4820: IF l_itiv_tbl.COUNT > 0 THEN
4818:
4819: l_itiv_tbl := p_itiv_tbl;
4820: IF l_itiv_tbl.COUNT > 0 THEN
4821: --Bug # 7047938
4822: If l_itiv_tbl(1).tal_id is NULL OR l_itiv_tbl(1).tal_id = OKL_API.G_MISS_NUM
4823: then
4824: open l_tal_csr (p_asd_id => l_itiv_tbl(1).asd_id);
4825: Fetch l_tal_csr into l_tal_id;
4826: close l_tal_csr;
4858: END IF;
4859: CLOSE ib_loc_csr;
4860:
4861: --BUG# 3569441
4862: IF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
4863: --RAISE ERROR
4864: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4865: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
4866: p_token1 => G_LOCATION_TYPE_TOKEN,
4860:
4861: --BUG# 3569441
4862: IF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
4863: --RAISE ERROR
4864: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4865: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
4866: p_token1 => G_LOCATION_TYPE_TOKEN,
4867: p_token1_value => l_location_type_code,
4868: p_token2 => G_LOC_TYPE1_TOKEN,
4868: p_token2 => G_LOC_TYPE1_TOKEN,
4869: p_token2_value => 'HZ_PARTY_SITES',
4870: p_token3 => G_LOC_TYPE2_TOKEN,
4871: p_token3_value => 'HZ_LOCATIONS');
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874:
4875: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4876:
4869: p_token2_value => 'HZ_PARTY_SITES',
4870: p_token3 => G_LOC_TYPE2_TOKEN,
4871: p_token3_value => 'HZ_LOCATIONS');
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874:
4875: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4876:
4877: --get site use id
4871: p_token3_value => 'HZ_LOCATIONS');
4872: x_return_status := OKL_API.G_RET_STS_ERROR;
4873: RAISE OKL_API.G_EXCEPTION_ERROR;
4874:
4875: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4876:
4877: --get site use id
4878: OPEN inst_site_csr(pty_site_id => l_install_location_id);
4879: FETCH inst_site_csr INTO l_party_site_use_id;
4881: OPEN l_address_csr(pty_site_id => l_install_location_id);
4882: FETCH l_address_csr INTO l_address;
4883: CLOSE l_address_csr;
4884: --Raise Error : not defined as install_at
4885: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4886: p_msg_name => G_MISSING_USAGE,
4887: p_token1 => G_USAGE_TYPE_TOKEN,
4888: p_token1_value => 'INSTALL_AT',
4889: p_token2 => G_ADDRESS_TOKEN,
4889: p_token2 => G_ADDRESS_TOKEN,
4890: p_token2_value => l_address,
4891: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4892: p_token3_value => l_instance_number_csi);
4893: x_return_status := OKL_API.G_RET_STS_ERROR;
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: CLOSE inst_site_csr;
4897:
4890: p_token2_value => l_address,
4891: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4892: p_token3_value => l_instance_number_csi);
4893: x_return_status := OKL_API.G_RET_STS_ERROR;
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: CLOSE inst_site_csr;
4897:
4898: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
4894: RAISE OKL_API.G_EXCEPTION_ERROR;
4895: END IF;
4896: CLOSE inst_site_csr;
4897:
4898: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
4899:
4900: --get site use id
4901: OPEN inst_loc_csr(loc_id => l_install_location_id);
4902: FETCH inst_loc_csr INTO l_party_site_use_id;
4904: OPEN l_address_csr2(loc_id => l_install_location_id);
4905: FETCH l_address_csr2 INTO l_address;
4906: CLOSE l_address_csr2;
4907: --Raise Error : not defined as install_at
4908: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4909: p_msg_name => G_MISSING_USAGE,
4910: p_token1 => G_USAGE_TYPE_TOKEN,
4911: p_token1_value => 'INSTALL_AT',
4912: p_token2 => G_ADDRESS_TOKEN,
4912: p_token2 => G_ADDRESS_TOKEN,
4913: p_token2_value => l_address,
4914: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4915: p_token3_value => l_instance_number_csi);
4916: x_return_status := OKL_API.G_RET_STS_ERROR;
4917: RAISE OKL_API.G_EXCEPTION_ERROR;
4918: END IF;
4919: CLOSE inst_loc_csr;
4920: END IF;
4913: p_token2_value => l_address,
4914: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4915: p_token3_value => l_instance_number_csi);
4916: x_return_status := OKL_API.G_RET_STS_ERROR;
4917: RAISE OKL_API.G_EXCEPTION_ERROR;
4918: END IF;
4919: CLOSE inst_loc_csr;
4920: END IF;
4921: --End BUG# 3569441
4921: --End BUG# 3569441
4922:
4923: j := 1;
4924: FOR i IN 1..l_itiv_tbl.LAST LOOP
4925: IF l_itiv_tbl(i).id IS NULL OR l_itiv_tbl(i).id = OKL_API.G_MISS_NUM THEN
4926:
4927: l_itiv_rec := l_itiv_tbl(i);
4928: --l_itiv_rec.kle_id := l_ib_cle_id;
4929: l_itiv_rec.kle_id := l_fa_cle_id;
4944:
4945:
4946: Validate_Serial_Number(x_return_status => x_return_status,
4947: p_serial_number => l_itiv_rec.serial_number);
4948: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951:
4952: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4945:
4946: Validate_Serial_Number(x_return_status => x_return_status,
4947: p_serial_number => l_itiv_rec.serial_number);
4948: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951:
4952: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4953: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951:
4952: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4953: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4954: RAISE OKL_API.G_EXCEPTION_ERROR;
4955: END IF;
4956: l_itiv_rec.instance_number_ib := l_instance_number;
4957: --create record
4950: END IF;
4951:
4952: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4953: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4954: RAISE OKL_API.G_EXCEPTION_ERROR;
4955: END IF;
4956: l_itiv_rec.instance_number_ib := l_instance_number;
4957: --create record
4958: okl_txl_itm_insts_pub.create_txl_itm_insts
4962: x_msg_count => x_msg_count,
4963: x_msg_data => x_msg_data,
4964: p_iipv_rec => l_itiv_rec,
4965: x_iipv_rec => lx_itiv_rec);
4966: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4963: x_msg_data => x_msg_data,
4964: p_iipv_rec => l_itiv_rec,
4965: x_iipv_rec => lx_itiv_rec);
4966: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971: j:= j+1;
4964: p_iipv_rec => l_itiv_rec,
4965: x_iipv_rec => lx_itiv_rec);
4966: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971: j:= j+1;
4972: x_itiv_tbl(j) := lx_itiv_rec;
4965: x_iipv_rec => lx_itiv_rec);
4966: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4968: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4969: RAISE OKL_API.G_EXCEPTION_ERROR;
4970: END IF;
4971: j:= j+1;
4972: x_itiv_tbl(j) := lx_itiv_rec;
4973: END IF;
4972: x_itiv_tbl(j) := lx_itiv_rec;
4973: END IF;
4974: END LOOP;
4975: END IF;
4976: OKL_API.END_ACTIVITY (x_msg_count,
4977: x_msg_data );
4978: EXCEPTION
4979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4975: END IF;
4976: OKL_API.END_ACTIVITY (x_msg_count,
4977: x_msg_data );
4978: EXCEPTION
4979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4981: l_api_name,
4982: G_PKG_NAME,
4983: 'OKL_API.G_RET_STS_ERROR',
4976: OKL_API.END_ACTIVITY (x_msg_count,
4977: x_msg_data );
4978: EXCEPTION
4979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4981: l_api_name,
4982: G_PKG_NAME,
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4979: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4980: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4981: l_api_name,
4982: G_PKG_NAME,
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4985: x_msg_data,
4986: '_PVT');
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4983: 'OKL_API.G_RET_STS_ERROR',
4984: x_msg_count,
4985: x_msg_data,
4986: '_PVT');
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4988: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4989: l_api_name,
4990: G_PKG_NAME,
4991: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4984: x_msg_count,
4985: x_msg_data,
4986: '_PVT');
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4988: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4989: l_api_name,
4990: G_PKG_NAME,
4991: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4992: x_msg_count,
4987: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4988: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4989: l_api_name,
4990: G_PKG_NAME,
4991: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4992: x_msg_count,
4993: x_msg_data,
4994: '_PVT');
4995: WHEN OTHERS THEN
4992: x_msg_count,
4993: x_msg_data,
4994: '_PVT');
4995: WHEN OTHERS THEN
4996: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4997: l_api_name,
4998: G_PKG_NAME,
4999: 'OTHERS',
5000: x_msg_count,
5022:
5023: l_api_name VARCHAR2(30) := 'VALIDATE_SRL_NUM_CONTROL';
5024: l_api_version CONSTANT NUMBER := 1.0;
5025:
5026: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
5027:
5028: --cursor for asset_number
5029: CURSOR asset_num_csr (P_fin_ast_id IN NUMBER) IS
5030: SELECT name
5072: l_txlqty NUMBER DEFAULT NULL;
5073:
5074: BEGIN
5075:
5076: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5077:
5078: -- Call start_activity to create savepoint, check compatibility
5079: -- and initialize message list
5080: x_return_status := OKL_API.START_ACTIVITY (
5076: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5077:
5078: -- Call start_activity to create savepoint, check compatibility
5079: -- and initialize message list
5080: x_return_status := OKL_API.START_ACTIVITY (
5081: l_api_name
5082: ,p_init_msg_list
5083: ,'_PVT'
5084: ,x_return_status);
5082: ,p_init_msg_list
5083: ,'_PVT'
5084: ,x_return_status);
5085: -- Check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5083: ,'_PVT'
5084: ,x_return_status);
5085: -- Check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5084: ,x_return_status);
5085: -- Check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5092: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5085: -- Check if activity started successfully
5086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_ERROR;
5090: END IF;
5091:
5092: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5093: OR
5090: END IF;
5091:
5092: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5093: OR
5094: (NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM) THEN
5095: --check if serialization has been done properly
5096: l_txlqty := NULL;
5097: OPEN l_txlqty_csr(p_tal_id => p_tal_id);
5098: FETCH l_txlqty_csr INTO l_txlqty;
5099: IF l_txlqty_csr%NOTFOUND THEN
5100: NULL;
5101: END IF;
5102: CLOSE l_txlqty_csr;
5103: IF NVL(l_txlqty,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
5104:
5105: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
5106: IF (l_serialized = OKL_API.G_TRUE) THEN
5107: --fetch total instances to find if qantity matches
5102: CLOSE l_txlqty_csr;
5103: IF NVL(l_txlqty,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
5104:
5105: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
5106: IF (l_serialized = OKL_API.G_TRUE) THEN
5107: --fetch total instances to find if qantity matches
5108:
5109: l_srl_no_count := 0;
5110: OPEN l_srl_no_count_csr( fin_ast_id => p_cle_id);
5123: NULL;
5124: END IF;
5125: CLOSE asset_num_csr;
5126:
5127: OKL_API.set_message(p_app_name => G_APP_NAME,
5128: p_msg_name => G_NOT_SERIALIZED_IN_IB,
5129: p_token1 => G_ASSET_NUMBER_TOKEN,
5130: p_token1_value => l_Asset_number
5131: );
5129: p_token1 => G_ASSET_NUMBER_TOKEN,
5130: p_token1_value => l_Asset_number
5131: );
5132: --raise error
5133: RAISE OKL_API.G_EXCEPTION_ERROR;
5134:
5135: ELSIF l_srl_no_count <> l_txlqty THEN
5136:
5137: l_asset_number := NULL;
5142: END IF;
5143: CLOSE asset_num_csr;
5144:
5145:
5146: OKL_API.set_message(p_app_name => G_APP_NAME,
5147: p_msg_name => G_SERIAL_NUMBER_MISMATCH,
5148: p_token1 => G_ASSET_NUMBER_TOKEN,
5149: p_token1_value => l_Asset_number
5150: );
5148: p_token1 => G_ASSET_NUMBER_TOKEN,
5149: p_token1_value => l_Asset_number
5150: );
5151: --raise error
5152: RAISE OKL_API.G_EXCEPTION_ERROR;
5153:
5154: ELSIF l_srl_no_count = l_txlqty THEN
5155: --data in installed base is correct
5156: NULL;
5155: --data in installed base is correct
5156: NULL;
5157: END IF;
5158:
5159: ELSIF l_serialized = OKL_API.G_FALSE THEN
5160: --fetch total instances to find if qantity matches
5161:
5162: l_srl_no_count := 0;
5163: OPEN l_srl_no_count_csr( fin_ast_id => p_cle_id);
5176: NULL;
5177: END IF;
5178: CLOSE asset_num_csr;
5179:
5180: OKL_API.set_message(p_app_name => G_APP_NAME,
5181: p_msg_name => G_SERIALIZED_IN_IB,
5182: p_token1 => G_ASSET_NUMBER_TOKEN,
5183: p_token1_value => l_Asset_number
5184: );
5182: p_token1 => G_ASSET_NUMBER_TOKEN,
5183: p_token1_value => l_Asset_number
5184: );
5185: --raise error
5186: RAISE OKL_API.G_EXCEPTION_ERROR;
5187:
5188: ELSIF l_srl_no_count <> 1 AND l_srl_no_count <> l_txlqty THEN
5189: --error in installed base data
5190: l_asset_number := NULL;
5193: IF asset_num_csr%NOTFOUND THEN
5194: NULL;
5195: END IF;
5196:
5197: OKL_API.set_message(p_app_name => G_APP_NAME,
5198: p_msg_name => G_SERIAL_NUMBER_MISMATCH,
5199: p_token1 => G_ASSET_NUMBER_TOKEN,
5200: p_token1_value => l_Asset_number
5201: );
5199: p_token1 => G_ASSET_NUMBER_TOKEN,
5200: p_token1_value => l_Asset_number
5201: );
5202: --raise error
5203: RAISE OKL_API.G_EXCEPTION_ERROR;
5204:
5205: ELSIF l_srl_no_count = 1 THEN
5206: --data in installed base is correct
5207: NULL;
5211:
5212: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5213: NULL; -- user will have to create new serail numbers
5214: END IF;
5215: OKL_API.END_ACTIVITY (x_msg_count,
5216: x_msg_data );
5217: EXCEPTION
5218: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5214: END IF;
5215: OKL_API.END_ACTIVITY (x_msg_count,
5216: x_msg_data );
5217: EXCEPTION
5218: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKL_API.G_RET_STS_ERROR',
5215: OKL_API.END_ACTIVITY (x_msg_count,
5216: x_msg_data );
5217: EXCEPTION
5218: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKL_API.G_RET_STS_ERROR',
5223: x_msg_count,
5218: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5220: l_api_name,
5221: G_PKG_NAME,
5222: 'OKL_API.G_RET_STS_ERROR',
5223: x_msg_count,
5224: x_msg_data,
5225: '_PVT');
5226: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5222: 'OKL_API.G_RET_STS_ERROR',
5223: x_msg_count,
5224: x_msg_data,
5225: '_PVT');
5226: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5227: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5228: l_api_name,
5229: G_PKG_NAME,
5230: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5223: x_msg_count,
5224: x_msg_data,
5225: '_PVT');
5226: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5227: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5228: l_api_name,
5229: G_PKG_NAME,
5230: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5231: x_msg_count,
5226: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5227: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5228: l_api_name,
5229: G_PKG_NAME,
5230: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5231: x_msg_count,
5232: x_msg_data,
5233: '_PVT');
5234: WHEN OTHERS THEN
5231: x_msg_count,
5232: x_msg_data,
5233: '_PVT');
5234: WHEN OTHERS THEN
5235: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5236: l_api_name,
5237: G_PKG_NAME,
5238: 'OTHERS',
5239: x_msg_count,
5390: l_pty_site_use_id okl_txl_itm_insts.object_id1_new%TYPE;
5391: l_error_condition EXCEPTION;
5392:
5393: l_ib_tbl ib_tbl_type;
5394: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
5395:
5396: --cursor for asset_number
5397: CURSOR asset_num_csr (P_fin_ast_id IN NUMBER) IS
5398: SELECT name
5401:
5402: l_asset_number OKC_K_LINES_TL.NAME%TYPE;
5403:
5404: BEGIN
5405: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5406:
5407: -- Call start_activity to create savepoint, check compatibility
5408: -- and initialize message list
5409: x_return_status := OKL_API.START_ACTIVITY (
5405: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5406:
5407: -- Call start_activity to create savepoint, check compatibility
5408: -- and initialize message list
5409: x_return_status := OKL_API.START_ACTIVITY (
5410: l_api_name
5411: ,p_init_msg_list
5412: ,'_PVT'
5413: ,x_return_status);
5411: ,p_init_msg_list
5412: ,'_PVT'
5413: ,x_return_status);
5414: -- Check if activity started successfully
5415: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5418: RAISE OKL_API.G_EXCEPTION_ERROR;
5419: END IF;
5412: ,'_PVT'
5413: ,x_return_status);
5414: -- Check if activity started successfully
5415: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5418: RAISE OKL_API.G_EXCEPTION_ERROR;
5419: END IF;
5420:
5413: ,x_return_status);
5414: -- Check if activity started successfully
5415: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5418: RAISE OKL_API.G_EXCEPTION_ERROR;
5419: END IF;
5420:
5421: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5414: -- Check if activity started successfully
5415: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5416: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5418: RAISE OKL_API.G_EXCEPTION_ERROR;
5419: END IF;
5420:
5421: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5422: validate_srl_num_control(
5429: p_split_into_individuals_yn => p_split_into_individuals_yn,
5430: p_split_into_units => p_split_into_units,
5431: p_tal_id => p_tal_id);
5432:
5433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5430: p_split_into_units => p_split_into_units,
5431: p_tal_id => p_tal_id);
5432:
5433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5431: p_tal_id => p_tal_id);
5432:
5433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5439:
5432:
5433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5436: RAISE OKL_API.G_EXCEPTION_ERROR;
5437: END IF;
5438: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5439:
5440: l_ib_tbl := p_ib_tbl;
5444: NULL; -- user will have to create new serail numbers
5445: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5446: --user needs to select serial numbers to split
5447: l_serialized := is_serialized(p_cle_id => p_cle_id);
5448: IF (l_serialized = OKL_API.G_TRUE) THEN
5449: -- asset inventory item is serial number controlled
5450: IF l_ib_tbl.COUNT <> 0 THEN
5451: FOR i IN 1..l_ib_tbl.LAST
5452: LOOP
5461: NULL;
5462: END IF;
5463: CLOSE asset_num_csr;
5464:
5465: OKL_API.set_message(p_app_name => G_APP_NAME,
5466: p_msg_name => G_IB_INSTANCE_MISMATCH,
5467: p_token1 => G_ASSET_NUMBER_TOKEN,
5468: p_token1_value => l_Asset_number,
5469: p_token2 => G_IB_LINE_TOKEN,
5468: p_token1_value => l_Asset_number,
5469: p_token2 => G_IB_LINE_TOKEN,
5470: p_token2_value => TO_CHAR(l_ib_tbl(i).id));
5471: --raise error
5472: RAISE OKL_API.G_EXCEPTION_ERROR;
5473: END IF;
5474: l_iipv_tbl(i).tas_id := p_tas_id;
5475: l_iipv_tbl(i).tal_id := p_tal_id;
5476: l_iipv_tbl(i).kle_id := srl_num_rec2.ib_cle_id;
5480:
5481: --fetch party site use id
5482: l_pty_site_use_id := NULL;
5483: --BUG# 3569441 :
5484: IF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5485:
5486: --Raise Error
5487: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5488: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5483: --BUG# 3569441 :
5484: IF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5485:
5486: --Raise Error
5487: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5488: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5489: p_token1 => G_LOCATION_TYPE_TOKEN,
5490: p_token1_value => srl_num_rec2.install_location_type_code,
5491: p_token2 => G_LOC_TYPE1_TOKEN,
5491: p_token2 => G_LOC_TYPE1_TOKEN,
5492: p_token2_value => 'HZ_PARTY_SITES',
5493: p_token3 => G_LOC_TYPE2_TOKEN,
5494: p_token3_value => 'HZ_LOCATIONS');
5495: x_return_status := OKL_API.G_RET_STS_ERROR;
5496: RAISE OKL_API.G_EXCEPTION_ERROR;
5497:
5498: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5499:
5492: p_token2_value => 'HZ_PARTY_SITES',
5493: p_token3 => G_LOC_TYPE2_TOKEN,
5494: p_token3_value => 'HZ_LOCATIONS');
5495: x_return_status := OKL_API.G_RET_STS_ERROR;
5496: RAISE OKL_API.G_EXCEPTION_ERROR;
5497:
5498: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5499:
5500: OPEN inst_site_csr(srl_num_rec2.install_location_id);
5494: p_token3_value => 'HZ_LOCATIONS');
5495: x_return_status := OKL_API.G_RET_STS_ERROR;
5496: RAISE OKL_API.G_EXCEPTION_ERROR;
5497:
5498: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5499:
5500: OPEN inst_site_csr(srl_num_rec2.install_location_id);
5501: FETCH inst_site_csr INTO l_pty_site_use_id;
5502: IF inst_site_csr%NOTFOUND THEN
5503: OPEN l_address_csr(pty_site_id => srl_num_rec2.install_location_id);
5504: FETCH l_address_csr INTO l_address;
5505: CLOSE l_address_csr;
5506: --Raise Error : not defined as install_at
5507: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5508: p_msg_name => G_MISSING_USAGE,
5509: p_token1 => G_USAGE_TYPE_TOKEN,
5510: p_token1_value => 'INSTALL_AT',
5511: p_token2 => G_ADDRESS_TOKEN,
5511: p_token2 => G_ADDRESS_TOKEN,
5512: p_token2_value => l_address,
5513: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5514: p_token3_value => srl_num_rec2.instance_number);
5515: x_return_status := OKL_API.G_RET_STS_ERROR;
5516: RAISE OKL_API.G_EXCEPTION_ERROR;
5517: --l_pty_site_use_id := '-1';
5518: END IF;
5519: CLOSE inst_site_csr;
5512: p_token2_value => l_address,
5513: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5514: p_token3_value => srl_num_rec2.instance_number);
5515: x_return_status := OKL_API.G_RET_STS_ERROR;
5516: RAISE OKL_API.G_EXCEPTION_ERROR;
5517: --l_pty_site_use_id := '-1';
5518: END IF;
5519: CLOSE inst_site_csr;
5520:
5517: --l_pty_site_use_id := '-1';
5518: END IF;
5519: CLOSE inst_site_csr;
5520:
5521: ELSIF NVL(srl_num_rec2.install_location_type_code, OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5522:
5523: OPEN inst_loc_csr(srl_num_rec2.install_location_id);
5524: FETCH inst_loc_csr INTO l_pty_site_use_id;
5525: IF inst_loc_csr%NOTFOUND THEN
5527: OPEN l_address_csr2(loc_id => srl_num_rec2.install_location_id);
5528: FETCH l_address_csr2 INTO l_address;
5529: CLOSE l_address_csr2;
5530: --Raise Error : not defined as install_at
5531: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5532: p_msg_name => G_MISSING_USAGE,
5533: p_token1 => G_USAGE_TYPE_TOKEN,
5534: p_token1_value => 'INSTALL_AT',
5535: p_token2 => G_ADDRESS_TOKEN,
5535: p_token2 => G_ADDRESS_TOKEN,
5536: p_token2_value => l_address,
5537: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5538: p_token3_value => srl_num_rec2.instance_number);
5539: x_return_status := OKL_API.G_RET_STS_ERROR;
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5542: CLOSE inst_loc_csr;
5543:
5536: p_token2_value => l_address,
5537: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5538: p_token3_value => srl_num_rec2.instance_number);
5539: x_return_status := OKL_API.G_RET_STS_ERROR;
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5542: CLOSE inst_loc_csr;
5543:
5544: END IF;
5579:
5580: --fetch party site use id
5581: l_pty_site_use_id := NULL;
5582: --BUG# 3569441
5583: IF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5584:
5585: --Raise Error
5586: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5587: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5582: --BUG# 3569441
5583: IF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5584:
5585: --Raise Error
5586: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5587: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5588: p_token1 => G_LOCATION_TYPE_TOKEN,
5589: p_token1_value => srl_num_rec.install_location_type_code,
5590: p_token2 => G_LOC_TYPE1_TOKEN,
5590: p_token2 => G_LOC_TYPE1_TOKEN,
5591: p_token2_value => 'HZ_PARTY_SITES',
5592: p_token3 => G_LOC_TYPE2_TOKEN,
5593: p_token3_value => 'HZ_LOCATIONS');
5594: x_return_status := OKL_API.G_RET_STS_ERROR;
5595: RAISE OKL_API.G_EXCEPTION_ERROR;
5596:
5597: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5598:
5591: p_token2_value => 'HZ_PARTY_SITES',
5592: p_token3 => G_LOC_TYPE2_TOKEN,
5593: p_token3_value => 'HZ_LOCATIONS');
5594: x_return_status := OKL_API.G_RET_STS_ERROR;
5595: RAISE OKL_API.G_EXCEPTION_ERROR;
5596:
5597: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5598:
5599: OPEN inst_site_csr(srl_num_rec.install_location_id);
5593: p_token3_value => 'HZ_LOCATIONS');
5594: x_return_status := OKL_API.G_RET_STS_ERROR;
5595: RAISE OKL_API.G_EXCEPTION_ERROR;
5596:
5597: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5598:
5599: OPEN inst_site_csr(srl_num_rec.install_location_id);
5600: FETCH inst_site_csr INTO l_pty_site_use_id;
5601: IF inst_site_csr%NOTFOUND THEN
5602: OPEN l_address_csr(pty_site_id => srl_num_rec2.install_location_id);
5603: FETCH l_address_csr INTO l_address;
5604: CLOSE l_address_csr;
5605: --Raise Error : not defined as install_at
5606: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5607: p_msg_name => G_MISSING_USAGE,
5608: p_token1 => G_USAGE_TYPE_TOKEN,
5609: p_token1_value => 'INSTALL_AT',
5610: p_token2 => G_ADDRESS_TOKEN,
5610: p_token2 => G_ADDRESS_TOKEN,
5611: p_token2_value => l_address,
5612: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5613: p_token3_value => srl_num_rec.instance_number);
5614: x_return_status := OKL_API.G_RET_STS_ERROR;
5615: RAISE OKL_API.G_EXCEPTION_ERROR;
5616: END IF;
5617:
5618: CLOSE inst_site_csr;
5611: p_token2_value => l_address,
5612: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5613: p_token3_value => srl_num_rec.instance_number);
5614: x_return_status := OKL_API.G_RET_STS_ERROR;
5615: RAISE OKL_API.G_EXCEPTION_ERROR;
5616: END IF;
5617:
5618: CLOSE inst_site_csr;
5619: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5615: RAISE OKL_API.G_EXCEPTION_ERROR;
5616: END IF;
5617:
5618: CLOSE inst_site_csr;
5619: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5620:
5621: OPEN inst_loc_csr(srl_num_rec.install_location_id);
5622: FETCH inst_loc_csr INTO l_pty_site_use_id;
5623: IF inst_loc_csr%NOTFOUND THEN
5624: OPEN l_address_csr2(loc_id => srl_num_rec2.install_location_id);
5625: FETCH l_address_csr2 INTO l_address;
5626: CLOSE l_address_csr2;
5627: --Raise Error : not defined as install_at
5628: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5629: p_msg_name => G_MISSING_USAGE,
5630: p_token1 => G_USAGE_TYPE_TOKEN,
5631: p_token1_value => 'INSTALL_AT',
5632: p_token2 => G_ADDRESS_TOKEN,
5632: p_token2 => G_ADDRESS_TOKEN,
5633: p_token2_value => l_address,
5634: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5635: p_token3_value => srl_num_rec.instance_number);
5636: x_return_status := OKL_API.G_RET_STS_ERROR;
5637: RAISE OKL_API.G_EXCEPTION_ERROR;
5638: END IF;
5639: CLOSE inst_loc_csr;
5640:
5633: p_token2_value => l_address,
5634: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5635: p_token3_value => srl_num_rec.instance_number);
5636: x_return_status := OKL_API.G_RET_STS_ERROR;
5637: RAISE OKL_API.G_EXCEPTION_ERROR;
5638: END IF;
5639: CLOSE inst_loc_csr;
5640:
5641: END IF;
5671: x_msg_data => x_msg_data,
5672: p_iipv_tbl => l_iipv_tbl,
5673: x_iipv_tbl => lx_iipv_tbl);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5672: p_iipv_tbl => l_iipv_tbl,
5673: x_iipv_tbl => lx_iipv_tbl);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680:
5673: x_iipv_tbl => lx_iipv_tbl);
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680:
5681: END IF;
5674:
5675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5677: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_ERROR;
5679: END IF;
5680:
5681: END IF;
5682: --Bug# 3222804 : serial # control based on leasing inv org setup
5679: END IF;
5680:
5681: END IF;
5682: --Bug# 3222804 : serial # control based on leasing inv org setup
5683: ELSIF l_serialized = OKL_API.G_FALSE THEN
5684: NULL;
5685: END IF; -- if srl number controlled
5686: END IF;
5687: l_iipv_tbl.DELETE;
5684: NULL;
5685: END IF; -- if srl number controlled
5686: END IF;
5687: l_iipv_tbl.DELETE;
5688: OKL_API.END_ACTIVITY (x_msg_count,
5689: x_msg_data );
5690: EXCEPTION
5691: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5687: l_iipv_tbl.DELETE;
5688: OKL_API.END_ACTIVITY (x_msg_count,
5689: x_msg_data );
5690: EXCEPTION
5691: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5693: l_api_name,
5694: G_PKG_NAME,
5695: 'OKL_API.G_RET_STS_ERROR',
5688: OKL_API.END_ACTIVITY (x_msg_count,
5689: x_msg_data );
5690: EXCEPTION
5691: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5693: l_api_name,
5694: G_PKG_NAME,
5695: 'OKL_API.G_RET_STS_ERROR',
5696: x_msg_count,
5691: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5693: l_api_name,
5694: G_PKG_NAME,
5695: 'OKL_API.G_RET_STS_ERROR',
5696: x_msg_count,
5697: x_msg_data,
5698: '_PVT');
5699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5695: 'OKL_API.G_RET_STS_ERROR',
5696: x_msg_count,
5697: x_msg_data,
5698: '_PVT');
5699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5700: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5701: l_api_name,
5702: G_PKG_NAME,
5703: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5696: x_msg_count,
5697: x_msg_data,
5698: '_PVT');
5699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5700: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5701: l_api_name,
5702: G_PKG_NAME,
5703: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5704: x_msg_count,
5699: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5700: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5701: l_api_name,
5702: G_PKG_NAME,
5703: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5704: x_msg_count,
5705: x_msg_data,
5706: '_PVT');
5707: WHEN OTHERS THEN
5704: x_msg_count,
5705: x_msg_data,
5706: '_PVT');
5707: WHEN OTHERS THEN
5708: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5709: l_api_name,
5710: G_PKG_NAME,
5711: 'OTHERS',
5712: x_msg_count,
5730: l_loan_yn VARCHAR2(1) DEFAULT 'N';
5731:
5732: BEGIN
5733: ----
5734: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5735: OPEN l_dealtyp_csr (PCleId => p_cle_id);
5736: FETCH l_dealtyp_csr INTO l_deal_type;
5737: IF l_dealtyp_csr%NOTFOUND THEN
5738: NULL;
5747:
5748: RETURN(l_loan_yn);
5749: EXCEPTION
5750: WHEN OTHERS THEN
5751: x_return_status := OKL_API.G_RET_STS_ERROR;
5752: ----
5753: END Check_If_Loan;
5754:
5755: --------------------------------------------------------------------------------
5790: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
5791: x_txlv_rec OUT NOCOPY txlv_rec_type,
5792: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
5793:
5794: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
5795: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
5796: l_api_version CONSTANT NUMBER := 1.0;
5797:
5798: --cursor to check presence of an already active transaction
6040: l_legal_entity_id NUMBER;
6041:
6042: BEGIN
6043: --dbms_output.put_line('before start activity');
6044: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6045: -- Call start_activity to create savepoint, check compatibility
6046: -- and initialize message list
6047: x_return_status := OKL_API.START_ACTIVITY (
6048: l_api_name
6043: --dbms_output.put_line('before start activity');
6044: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6045: -- Call start_activity to create savepoint, check compatibility
6046: -- and initialize message list
6047: x_return_status := OKL_API.START_ACTIVITY (
6048: l_api_name
6049: ,p_init_msg_list
6050: ,'_PVT'
6051: ,x_return_status);
6049: ,p_init_msg_list
6050: ,'_PVT'
6051: ,x_return_status);
6052: -- Check if activity started successfully
6053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: RAISE OKL_API.G_EXCEPTION_ERROR;
6057: END IF;
6050: ,'_PVT'
6051: ,x_return_status);
6052: -- Check if activity started successfully
6053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: RAISE OKL_API.G_EXCEPTION_ERROR;
6057: END IF;
6058: l_ib_tbl := p_ib_tbl;
6051: ,x_return_status);
6052: -- Check if activity started successfully
6053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: RAISE OKL_API.G_EXCEPTION_ERROR;
6057: END IF;
6058: l_ib_tbl := p_ib_tbl;
6059: --Bug# 6612475
6052: -- Check if activity started successfully
6053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: RAISE OKL_API.G_EXCEPTION_ERROR;
6057: END IF;
6058: l_ib_tbl := p_ib_tbl;
6059: --Bug# 6612475
6060: --1. Validate Split Request
6069: ,p_split_into_units => p_split_into_units
6070: ,p_revision_date => p_trx_date
6071: );
6072:
6073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6076: RAISE OKL_API.G_EXCEPTION_ERROR;
6077: END IF;
6070: ,p_revision_date => p_trx_date
6071: );
6072:
6073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6076: RAISE OKL_API.G_EXCEPTION_ERROR;
6077: END IF;
6078:
6071: );
6072:
6073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6076: RAISE OKL_API.G_EXCEPTION_ERROR;
6077: END IF;
6078:
6079: --Commenting this validation as it is redundant now
6072:
6073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6076: RAISE OKL_API.G_EXCEPTION_ERROR;
6077: END IF;
6078:
6079: --Commenting this validation as it is redundant now
6080: --because of newly added Validate_Split_Request
6079: --Commenting this validation as it is redundant now
6080: --because of newly added Validate_Split_Request
6081: --1.Verify p_cle_id
6082: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6083: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6085: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6086: --RAISE OKL_API.G_EXCEPTION_ERROR;
6087: --END IF;
6080: --because of newly added Validate_Split_Request
6081: --1.Verify p_cle_id
6082: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6083: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6085: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6086: --RAISE OKL_API.G_EXCEPTION_ERROR;
6087: --END IF;
6088: --Bug# 6612475 End
6081: --1.Verify p_cle_id
6082: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6083: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6085: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6086: --RAISE OKL_API.G_EXCEPTION_ERROR;
6087: --END IF;
6088: --Bug# 6612475 End
6089:
6082: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6083: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6084: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6085: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6086: --RAISE OKL_API.G_EXCEPTION_ERROR;
6087: --END IF;
6088: --Bug# 6612475 End
6089:
6090: --Bug# 3783518: start
6103: x_msg_data => x_msg_data,
6104: p_khr_id => l_chr_id,
6105: x_pdt_parameter_rec => l_pdt_params_rec);
6106:
6107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_ERROR;
6111: END IF;
6104: p_khr_id => l_chr_id,
6105: x_pdt_parameter_rec => l_pdt_params_rec);
6106:
6107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_ERROR;
6111: END IF;
6112:
6105: x_pdt_parameter_rec => l_pdt_params_rec);
6106:
6107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_ERROR;
6111: END IF;
6112:
6113: -- Raise an error if the Revenue Recognition Method is 'Actual' or 'Estimated and Actual'
6106:
6107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_ERROR;
6111: END IF;
6112:
6113: -- Raise an error if the Revenue Recognition Method is 'Actual' or 'Estimated and Actual'
6114: IF ( l_pdt_params_rec.Revenue_Recognition_Method = G_RRB_ESTIMATED OR
6117: l_pdt_params_rec.Revenue_Recognition_Method);
6118: FETCH get_prod_param_values INTO l_rev_recog_meaning;
6119: CLOSE get_prod_param_values;
6120:
6121: OKL_API.set_message(p_app_name => G_APP_NAME,
6122: p_msg_name => G_RRB_SPLIT_ASSET_NOT_ALLWD,
6123: p_token1 => G_METHOD,
6124: p_token1_value => l_rev_recog_meaning);
6125: RAISE OKL_API.G_EXCEPTION_ERROR;
6121: OKL_API.set_message(p_app_name => G_APP_NAME,
6122: p_msg_name => G_RRB_SPLIT_ASSET_NOT_ALLWD,
6123: p_token1 => G_METHOD,
6124: p_token1_value => l_rev_recog_meaning);
6125: RAISE OKL_API.G_EXCEPTION_ERROR;
6126: END IF;
6127: -- Bug# 4542290 - smadhava - Added - End
6128:
6129: l_rel_ast := '?';
6136:
6137: FND_FILE.PUT_LINE(FND_FILE.LOG,'l_rel_ast: '||l_rel_ast);
6138: --IF l_rel_ast = '!' THEN
6139: IF l_rel_ast ='Y' THEN
6140: OKL_API.set_message(p_app_name => G_APP_NAME,
6141: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
6142: RAISE OKL_API.G_EXCEPTION_ERROR;
6143: END IF;
6144: --Bug# 3783518: end
6138: --IF l_rel_ast = '!' THEN
6139: IF l_rel_ast ='Y' THEN
6140: OKL_API.set_message(p_app_name => G_APP_NAME,
6141: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
6142: RAISE OKL_API.G_EXCEPTION_ERROR;
6143: END IF;
6144: --Bug# 3783518: end
6145:
6146: --Bug Fix # 2881114
6153: END IF;
6154: CLOSE lnk_to_srv_csr;
6155:
6156: IF l_lnk_to_srv = '!' THEN
6157: OKL_API.set_message(p_app_name => G_APP_NAME,
6158: p_msg_name => G_ASSET_LINKED_TO_SERVICE);
6159: RAISE OKL_API.G_EXCEPTION_ERROR;
6160: END IF;
6161: --Bug Fix # 2881114 End
6155:
6156: IF l_lnk_to_srv = '!' THEN
6157: OKL_API.set_message(p_app_name => G_APP_NAME,
6158: p_msg_name => G_ASSET_LINKED_TO_SERVICE);
6159: RAISE OKL_API.G_EXCEPTION_ERROR;
6160: END IF;
6161: --Bug Fix # 2881114 End
6162:
6163: --2.Set the status of the Contract Line on HOLD
6176: x_msg_data => x_msg_data,
6177: p_cle_id => p_cle_id,
6178:
6179: p_trx_date => p_trx_date);
6180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6177: p_cle_id => p_cle_id,
6178:
6179: p_trx_date => p_trx_date);
6180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6178:
6179: p_trx_date => p_trx_date);
6180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6186: --Bug# 5946411 :ER Added offlease pending transaction message
6179: p_trx_date => p_trx_date);
6180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6183: RAISE OKL_API.G_EXCEPTION_ERROR;
6184: END IF;
6185:
6186: --Bug# 5946411 :ER Added offlease pending transaction message
6187: Check_Offlease_Trans(p_api_version => p_api_version,
6190: x_msg_count => x_msg_count,
6191: x_msg_data => x_msg_data,
6192: p_cle_id => p_cle_id
6193: );
6194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6197: RAISE OKL_API.G_EXCEPTION_ERROR;
6198: END IF;
6191: x_msg_data => x_msg_data,
6192: p_cle_id => p_cle_id
6193: );
6194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6197: RAISE OKL_API.G_EXCEPTION_ERROR;
6198: END IF;
6199: --Bug# 5946411 :ER end
6192: p_cle_id => p_cle_id
6193: );
6194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6197: RAISE OKL_API.G_EXCEPTION_ERROR;
6198: END IF;
6199: --Bug# 5946411 :ER end
6200: --l_trxv_rec.date_trans_occurred := sysdate;
6193: );
6194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6197: RAISE OKL_API.G_EXCEPTION_ERROR;
6198: END IF;
6199: --Bug# 5946411 :ER end
6200: --l_trxv_rec.date_trans_occurred := sysdate;
6201: l_trxv_rec.date_trans_occurred := p_trx_date;
6209: -- get the contract number
6210: OPEN contract_num_csr(l_chr_id);
6211: FETCH contract_num_csr INTO l_cntrct_number;
6212: CLOSE contract_num_csr;
6213: Okl_Api.set_message(p_app_name => g_app_name,
6214: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
6215: p_token1 => 'CONTRACT_NUMBER',
6216: p_token1_value => l_cntrct_number);
6217: RAISE OKL_API.G_EXCEPTION_ERROR;
6213: Okl_Api.set_message(p_app_name => g_app_name,
6214: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
6215: p_token1 => 'CONTRACT_NUMBER',
6216: p_token1_value => l_cntrct_number);
6217: RAISE OKL_API.G_EXCEPTION_ERROR;
6218: END IF;
6219: -------------------------------------
6220: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6221: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6219: -------------------------------------
6220: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6221: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6222: x_try_id => l_trxv_rec.try_id);
6223: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6220: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6221: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6222: x_try_id => l_trxv_rec.try_id);
6223: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6221: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6222: x_try_id => l_trxv_rec.try_id);
6223: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6229: --Check if a 'ENTRED' unprocessed split transaction alreadt exists for this line
6222: x_try_id => l_trxv_rec.try_id);
6223: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6225: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6226: RAISE OKL_API.G_EXCEPTION_ERROR;
6227: END IF;
6228: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6229: --Check if a 'ENTRED' unprocessed split transaction alreadt exists for this line
6230: --dbms_output.put_line('Before chk_split_trx cursor fetch');
6236: l_loan_yn := 'N';
6237: l_loan_yn := Check_If_Loan(P_Cle_Id => p_cle_id,
6238: x_return_status => x_return_status);
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6237: l_loan_yn := Check_If_Loan(P_Cle_Id => p_cle_id,
6238: x_return_status => x_return_status);
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6238: x_return_status => x_return_status);
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6246: IF l_loan_yn = 'N' THEN
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6246: IF l_loan_yn = 'N' THEN
6247: OKL_API.set_message(p_app_name => G_APP_NAME,
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6246: IF l_loan_yn = 'N' THEN
6247: OKL_API.set_message(p_app_name => G_APP_NAME,
6248: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF l_loan_yn = 'Y' THEN
6251: --open cursor to get asset information from OKL tables
6245:
6246: IF l_loan_yn = 'N' THEN
6247: OKL_API.set_message(p_app_name => G_APP_NAME,
6248: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF l_loan_yn = 'Y' THEN
6251: --open cursor to get asset information from OKL tables
6252: OPEN loan_ast_csr(PCleId => p_cle_id);
6253: FETCH loan_ast_csr INTO l_loan_ast_rec;
6251: --open cursor to get asset information from OKL tables
6252: OPEN loan_ast_csr(PCleId => p_cle_id);
6253: FETCH loan_ast_csr INTO l_loan_ast_rec;
6254: IF loan_ast_csr%NOTFOUND THEN
6255: OKL_API.set_message(p_app_name => G_APP_NAME,
6256: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSE
6259: l_fa_exists := 'N';
6253: FETCH loan_ast_csr INTO l_loan_ast_rec;
6254: IF loan_ast_csr%NOTFOUND THEN
6255: OKL_API.set_message(p_app_name => G_APP_NAME,
6256: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSE
6259: l_fa_exists := 'N';
6260: END IF;
6261: END IF;
6273: -- splitting an off-lease asset
6274: IF (l_ast_line_rec.line_status IN ('TERMINATED','EXPIRED')) OR
6275: (l_loan_ast_rec.line_status IN ('TERMINATED','EXPIRED')) THEN
6276:
6277: OKL_API.set_message(p_app_name => G_APP_NAME,
6278: p_msg_name => 'OKL_AM_SINGLE_UNIT_SPLIT');
6279: RAISE OKL_API.G_EXCEPTION_ERROR;
6280:
6281: ELSE
6275: (l_loan_ast_rec.line_status IN ('TERMINATED','EXPIRED')) THEN
6276:
6277: OKL_API.set_message(p_app_name => G_APP_NAME,
6278: p_msg_name => 'OKL_AM_SINGLE_UNIT_SPLIT');
6279: RAISE OKL_API.G_EXCEPTION_ERROR;
6280:
6281: ELSE
6282: --Changed message name by bkatraga for bug 9548880
6283: OKL_API.set_message(p_app_name => G_APP_NAME,
6279: RAISE OKL_API.G_EXCEPTION_ERROR;
6280:
6281: ELSE
6282: --Changed message name by bkatraga for bug 9548880
6283: OKL_API.set_message(p_app_name => G_APP_NAME,
6284: p_msg_name => G_SPLIT_UNIT_NOT_ALLWD);
6285: RAISE OKL_API.G_EXCEPTION_ERROR;
6286:
6287: END IF;
6281: ELSE
6282: --Changed message name by bkatraga for bug 9548880
6283: OKL_API.set_message(p_app_name => G_APP_NAME,
6284: p_msg_name => G_SPLIT_UNIT_NOT_ALLWD);
6285: RAISE OKL_API.G_EXCEPTION_ERROR;
6286:
6287: END IF;
6288: --Bug# 6336455: end
6289: END IF;
6310: x_msg_data => x_msg_data,
6311: p_trxv_rec => l_trxv_rec,
6312: x_trxv_rec => x_trxv_rec);
6313: --dbms_output.put_line('After creating trx header'||x_return_status);
6314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6317: RAISE OKL_API.G_EXCEPTION_ERROR;
6318: END IF;
6311: p_trxv_rec => l_trxv_rec,
6312: x_trxv_rec => x_trxv_rec);
6313: --dbms_output.put_line('After creating trx header'||x_return_status);
6314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6317: RAISE OKL_API.G_EXCEPTION_ERROR;
6318: END IF;
6319:
6312: x_trxv_rec => x_trxv_rec);
6313: --dbms_output.put_line('After creating trx header'||x_return_status);
6314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6317: RAISE OKL_API.G_EXCEPTION_ERROR;
6318: END IF;
6319:
6320: --Prepare txl record for insert into OKL_TXL_ASSETS_V
6313: --dbms_output.put_line('After creating trx header'||x_return_status);
6314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6317: RAISE OKL_API.G_EXCEPTION_ERROR;
6318: END IF;
6319:
6320: --Prepare txl record for insert into OKL_TXL_ASSETS_V
6321:
6328: x_return_status := Get_Fa_Location(l_ast_line_rec.asset_id,
6329: l_ast_line_rec.corporate_book,
6330: l_fa_location_id);
6331: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: RAISE OKL_API.G_EXCEPTION_ERROR;
6336: END IF;
6329: l_ast_line_rec.corporate_book,
6330: l_fa_location_id);
6331: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: RAISE OKL_API.G_EXCEPTION_ERROR;
6336: END IF;
6337: l_txlv_rec.fa_location_id := l_fa_location_id;
6330: l_fa_location_id);
6331: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: RAISE OKL_API.G_EXCEPTION_ERROR;
6336: END IF;
6337: l_txlv_rec.fa_location_id := l_fa_location_id;
6338: l_txlv_rec.original_cost := l_ast_line_rec.original_cost;
6331: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: RAISE OKL_API.G_EXCEPTION_ERROR;
6336: END IF;
6337: l_txlv_rec.fa_location_id := l_fa_location_id;
6338: l_txlv_rec.original_cost := l_ast_line_rec.original_cost;
6339: l_txlv_rec.current_units := l_ast_line_rec.current_units;
6419: x_msg_data => x_msg_data,
6420: p_tlpv_rec => l_txlv_rec,
6421: x_tlpv_rec => x_txlv_rec);
6422: --dbms_output.put_line('After creating transaction line'||x_return_status);
6423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6426: RAISE OKL_API.G_EXCEPTION_ERROR;
6427: END IF;
6420: p_tlpv_rec => l_txlv_rec,
6421: x_tlpv_rec => x_txlv_rec);
6422: --dbms_output.put_line('After creating transaction line'||x_return_status);
6423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6426: RAISE OKL_API.G_EXCEPTION_ERROR;
6427: END IF;
6428:
6421: x_tlpv_rec => x_txlv_rec);
6422: --dbms_output.put_line('After creating transaction line'||x_return_status);
6423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6426: RAISE OKL_API.G_EXCEPTION_ERROR;
6427: END IF;
6428:
6429: --call to create record for OKL_TXD_ASSETS_V
6422: --dbms_output.put_line('After creating transaction line'||x_return_status);
6423: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6424: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6425: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6426: RAISE OKL_API.G_EXCEPTION_ERROR;
6427: END IF;
6428:
6429: --call to create record for OKL_TXD_ASSETS_V
6430: --dbms_output.put_line('when fresh trx '||l_ast_line_rec.description);
6441: p_txlv_rec => x_txlv_rec,
6442: x_txdv_tbl => x_txdv_tbl);
6443:
6444: --dbms_output.put_line('After creating trx details'||x_return_status);
6445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6448: RAISE OKL_API.G_EXCEPTION_ERROR;
6449: END IF;
6442: x_txdv_tbl => x_txdv_tbl);
6443:
6444: --dbms_output.put_line('After creating trx details'||x_return_status);
6445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6448: RAISE OKL_API.G_EXCEPTION_ERROR;
6449: END IF;
6450: END IF;
6443:
6444: --dbms_output.put_line('After creating trx details'||x_return_status);
6445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6448: RAISE OKL_API.G_EXCEPTION_ERROR;
6449: END IF;
6450: END IF;
6451:
6444: --dbms_output.put_line('After creating trx details'||x_return_status);
6445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6448: RAISE OKL_API.G_EXCEPTION_ERROR;
6449: END IF;
6450: END IF;
6451:
6452: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers
6462: p_ib_tbl => l_ib_tbl,
6463: p_tas_id => x_txlv_rec.tas_id,
6464: p_tal_id => x_txlv_rec.id,
6465: p_asd_id => NULL);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6463: p_tas_id => x_txlv_rec.tas_id,
6464: p_tal_id => x_txlv_rec.id,
6465: p_asd_id => NULL);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6464: p_tal_id => x_txlv_rec.id,
6465: p_asd_id => NULL);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6472:
6465: p_asd_id => NULL);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6472:
6473: ELSE --chk_split_trx%FOUND
6475: --dbms_output.put_line('transaction found');
6476: IF NVL(p_split_into_individuals_yn,'N') <> 'X' AND NVL(l_split_into_ind_yn,'N') = 'X' THEN
6477:
6478: --split asset component transactions exist
6479: OKL_API.set_message(p_app_name => G_APP_NAME,
6480: p_msg_name => G_SPLIT_AST_COMP_TRX);
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482:
6483: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6477:
6478: --split asset component transactions exist
6479: OKL_API.set_message(p_app_name => G_APP_NAME,
6480: p_msg_name => G_SPLIT_AST_COMP_TRX);
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482:
6483: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6484:
6485: --split asset transactions exist
6482:
6483: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6484:
6485: --split asset transactions exist
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_SPLIT_ASSET_TRX);
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489:
6490: ELSIF (NVL(p_split_into_individuals_yn,'N') = NVL(l_split_into_ind_yn,'N') AND NVL(p_split_into_units,0) = NVL(l_split_units,0)
6484:
6485: --split asset transactions exist
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_SPLIT_ASSET_TRX);
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489:
6490: ELSIF (NVL(p_split_into_individuals_yn,'N') = NVL(l_split_into_ind_yn,'N') AND NVL(p_split_into_units,0) = NVL(l_split_units,0)
6491: --Bug# 3156924 :
6492: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6513: p_thpv_rec => l_trxv_rec,
6514: x_thpv_rec => x_trxv_rec);
6515:
6516: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6520: RAISE OKL_API.G_EXCEPTION_ERROR;
6521: END IF;
6514: x_thpv_rec => x_trxv_rec);
6515:
6516: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6520: RAISE OKL_API.G_EXCEPTION_ERROR;
6521: END IF;
6522: -------------------------------------------------
6515:
6516: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6520: RAISE OKL_API.G_EXCEPTION_ERROR;
6521: END IF;
6522: -------------------------------------------------
6523: --Bug# 3156924
6516: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6520: RAISE OKL_API.G_EXCEPTION_ERROR;
6521: END IF;
6522: -------------------------------------------------
6523: --Bug# 3156924
6524: ------------------------------------------------
6536: x_msg_count => x_msg_count,
6537: x_msg_data => x_msg_data,
6538: p_tlpv_rec => l_txlv_rec,
6539: x_tlpv_rec => x_txlv_rec);
6540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6543: RAISE OKL_API.G_EXCEPTION_ERROR;
6544: END IF;
6537: x_msg_data => x_msg_data,
6538: p_tlpv_rec => l_txlv_rec,
6539: x_tlpv_rec => x_txlv_rec);
6540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6543: RAISE OKL_API.G_EXCEPTION_ERROR;
6544: END IF;
6545:
6538: p_tlpv_rec => l_txlv_rec,
6539: x_tlpv_rec => x_txlv_rec);
6540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6543: RAISE OKL_API.G_EXCEPTION_ERROR;
6544: END IF;
6545:
6546: --fetch transaction details
6539: x_tlpv_rec => x_txlv_rec);
6540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6543: RAISE OKL_API.G_EXCEPTION_ERROR;
6544: END IF;
6545:
6546: --fetch transaction details
6547: l_txdv_tbl := get_trx_details(p_tal_id => x_txlv_rec.id,
6559: p_ast_line_rec => l_ast_line_rec,
6560: p_txlv_rec => x_txlv_rec,
6561: x_txdv_tbl => x_txdv_tbl);
6562:
6563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6566: RAISE OKL_API.G_EXCEPTION_ERROR;
6567: END IF;
6560: p_txlv_rec => x_txlv_rec,
6561: x_txdv_tbl => x_txdv_tbl);
6562:
6563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6566: RAISE OKL_API.G_EXCEPTION_ERROR;
6567: END IF;
6568:
6561: x_txdv_tbl => x_txdv_tbl);
6562:
6563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6566: RAISE OKL_API.G_EXCEPTION_ERROR;
6567: END IF;
6568:
6569: ELSE
6562:
6563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6566: RAISE OKL_API.G_EXCEPTION_ERROR;
6567: END IF;
6568:
6569: ELSE
6570: -- delete transaction details and approprately create new transaction details
6574: x_msg_count => x_msg_count,
6575: x_msg_data => x_msg_data,
6576: p_adpv_tbl => l_txdv_tbl);
6577:
6578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6581: RAISE OKL_API.G_EXCEPTION_ERROR;
6582: END IF;
6575: x_msg_data => x_msg_data,
6576: p_adpv_tbl => l_txdv_tbl);
6577:
6578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6581: RAISE OKL_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: --Bug fix# 2744213 : positioning of end if
6576: p_adpv_tbl => l_txdv_tbl);
6577:
6578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6581: RAISE OKL_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: --Bug fix# 2744213 : positioning of end if
6584: -- End If;
6577:
6578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6581: RAISE OKL_API.G_EXCEPTION_ERROR;
6582: END IF;
6583: --Bug fix# 2744213 : positioning of end if
6584: -- End If;
6585:
6594: p_ast_line_rec => l_ast_line_rec,
6595: p_txlv_rec => x_txlv_rec,
6596: x_txdv_tbl => x_txdv_tbl);
6597:
6598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6601: RAISE OKL_API.G_EXCEPTION_ERROR;
6602: END IF;
6595: p_txlv_rec => x_txlv_rec,
6596: x_txdv_tbl => x_txdv_tbl);
6597:
6598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6601: RAISE OKL_API.G_EXCEPTION_ERROR;
6602: END IF;
6603: END IF;
6596: x_txdv_tbl => x_txdv_tbl);
6597:
6598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6601: RAISE OKL_API.G_EXCEPTION_ERROR;
6602: END IF;
6603: END IF;
6604:
6597:
6598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6601: RAISE OKL_API.G_EXCEPTION_ERROR;
6602: END IF;
6603: END IF;
6604:
6605: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6634: x_msg_count => x_msg_count,
6635: x_msg_data => x_msg_data,
6636: p_iipv_tbl => l_iipv_tbl);
6637:
6638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6641: RAISE OKL_API.G_EXCEPTION_ERROR;
6642: END IF;
6635: x_msg_data => x_msg_data,
6636: p_iipv_tbl => l_iipv_tbl);
6637:
6638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6641: RAISE OKL_API.G_EXCEPTION_ERROR;
6642: END IF;
6643: END IF;
6636: p_iipv_tbl => l_iipv_tbl);
6637:
6638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6641: RAISE OKL_API.G_EXCEPTION_ERROR;
6642: END IF;
6643: END IF;
6644:
6637:
6638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6641: RAISE OKL_API.G_EXCEPTION_ERROR;
6642: END IF;
6643: END IF;
6644:
6645: --create new srl numbers if required
6655: p_tas_id => x_txlv_rec.tas_id,
6656: p_tal_id => x_txlv_rec.id,
6657: p_asd_id => NULL);
6658:
6659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_ERROR;
6663: END IF;
6656: p_tal_id => x_txlv_rec.id,
6657: p_asd_id => NULL);
6658:
6659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_ERROR;
6663: END IF;
6664:
6657: p_asd_id => NULL);
6658:
6659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_ERROR;
6663: END IF;
6664:
6665: ELSIF l_srl_exists = '?' THEN
6658:
6659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6662: RAISE OKL_API.G_EXCEPTION_ERROR;
6663: END IF;
6664:
6665: ELSIF l_srl_exists = '?' THEN
6666: --create new srl numbers if required
6676: p_tas_id => x_txlv_rec.tas_id,
6677: p_tal_id => x_txlv_rec.id,
6678: p_asd_id => NULL);
6679:
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6677: p_tal_id => x_txlv_rec.id,
6678: p_asd_id => NULL);
6679:
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: END IF; -- srl number exists
6678: p_asd_id => NULL);
6679:
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: END IF; -- srl number exists
6686: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6679:
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: END IF; -- srl number exists
6686: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6687: --Bug fix# 2744213 : positioning of end if
6686: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6687: --Bug fix# 2744213 : positioning of end if
6688: END IF; -- chenges in transaction
6689: END IF;
6690: OKL_API.END_ACTIVITY (x_msg_count,
6691: x_msg_data );
6692:
6693: EXCEPTION
6694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6690: OKL_API.END_ACTIVITY (x_msg_count,
6691: x_msg_data );
6692:
6693: EXCEPTION
6694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6696: l_api_name,
6697: G_PKG_NAME,
6698: 'OKL_API.G_RET_STS_ERROR',
6691: x_msg_data );
6692:
6693: EXCEPTION
6694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6696: l_api_name,
6697: G_PKG_NAME,
6698: 'OKL_API.G_RET_STS_ERROR',
6699: x_msg_count,
6694: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6695: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6696: l_api_name,
6697: G_PKG_NAME,
6698: 'OKL_API.G_RET_STS_ERROR',
6699: x_msg_count,
6700: x_msg_data,
6701: '_PVT');
6702: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6698: 'OKL_API.G_RET_STS_ERROR',
6699: x_msg_count,
6700: x_msg_data,
6701: '_PVT');
6702: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6703: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6704: l_api_name,
6705: G_PKG_NAME,
6706: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6699: x_msg_count,
6700: x_msg_data,
6701: '_PVT');
6702: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6703: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6704: l_api_name,
6705: G_PKG_NAME,
6706: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6707: x_msg_count,
6702: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6703: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6704: l_api_name,
6705: G_PKG_NAME,
6706: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6707: x_msg_count,
6708: x_msg_data,
6709: '_PVT');
6710: WHEN OTHERS THEN
6707: x_msg_count,
6708: x_msg_data,
6709: '_PVT');
6710: WHEN OTHERS THEN
6711: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6712: l_api_name,
6713: G_PKG_NAME,
6714: 'OTHERS',
6715: x_msg_count,
6742: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6743: x_txlv_rec OUT NOCOPY txlv_rec_type,
6744: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6745:
6746: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6747: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6748: l_api_version CONSTANT NUMBER := 1.0;
6749:
6750: l_trx_date DATE := SYSDATE;
6749:
6750: l_trx_date DATE := SYSDATE;
6751:
6752: BEGIN
6753: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6754: -- Call start_activity to create savepoint, check compatibility
6755: -- and initialize message list
6756: x_return_status := OKL_API.START_ACTIVITY (
6757: l_api_name
6752: BEGIN
6753: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6754: -- Call start_activity to create savepoint, check compatibility
6755: -- and initialize message list
6756: x_return_status := OKL_API.START_ACTIVITY (
6757: l_api_name
6758: ,p_init_msg_list
6759: ,'_PVT'
6760: ,x_return_status);
6758: ,p_init_msg_list
6759: ,'_PVT'
6760: ,x_return_status);
6761: -- Check if activity started successfully
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6765: RAISE OKL_API.G_EXCEPTION_ERROR;
6766: END IF;
6759: ,'_PVT'
6760: ,x_return_status);
6761: -- Check if activity started successfully
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6765: RAISE OKL_API.G_EXCEPTION_ERROR;
6766: END IF;
6767:
6760: ,x_return_status);
6761: -- Check if activity started successfully
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6765: RAISE OKL_API.G_EXCEPTION_ERROR;
6766: END IF;
6767:
6768: --call the overloded procedure :
6761: -- Check if activity started successfully
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6765: RAISE OKL_API.G_EXCEPTION_ERROR;
6766: END IF;
6767:
6768: --call the overloded procedure :
6769: Create_Split_Transaction(p_api_version => p_api_version,
6780: x_txdv_tbl => x_txdv_tbl,
6781: x_txlv_rec => x_txlv_rec,
6782: x_trxv_rec => x_trxv_rec);
6783:
6784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6787: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: END IF;
6781: x_txlv_rec => x_txlv_rec,
6782: x_trxv_rec => x_trxv_rec);
6783:
6784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6787: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: END IF;
6789: OKL_API.END_ACTIVITY (x_msg_count,
6782: x_trxv_rec => x_trxv_rec);
6783:
6784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6787: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: END IF;
6789: OKL_API.END_ACTIVITY (x_msg_count,
6790: x_msg_data );
6783:
6784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6787: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: END IF;
6789: OKL_API.END_ACTIVITY (x_msg_count,
6790: x_msg_data );
6791:
6785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6787: RAISE OKL_API.G_EXCEPTION_ERROR;
6788: END IF;
6789: OKL_API.END_ACTIVITY (x_msg_count,
6790: x_msg_data );
6791:
6792: EXCEPTION
6793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6789: OKL_API.END_ACTIVITY (x_msg_count,
6790: x_msg_data );
6791:
6792: EXCEPTION
6793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6795: l_api_name,
6796: G_PKG_NAME,
6797: 'OKL_API.G_RET_STS_ERROR',
6790: x_msg_data );
6791:
6792: EXCEPTION
6793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6795: l_api_name,
6796: G_PKG_NAME,
6797: 'OKL_API.G_RET_STS_ERROR',
6798: x_msg_count,
6793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6795: l_api_name,
6796: G_PKG_NAME,
6797: 'OKL_API.G_RET_STS_ERROR',
6798: x_msg_count,
6799: x_msg_data,
6800: '_PVT');
6801: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6797: 'OKL_API.G_RET_STS_ERROR',
6798: x_msg_count,
6799: x_msg_data,
6800: '_PVT');
6801: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6803: l_api_name,
6804: G_PKG_NAME,
6805: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6798: x_msg_count,
6799: x_msg_data,
6800: '_PVT');
6801: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6803: l_api_name,
6804: G_PKG_NAME,
6805: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6806: x_msg_count,
6801: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6802: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6803: l_api_name,
6804: G_PKG_NAME,
6805: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6806: x_msg_count,
6807: x_msg_data,
6808: '_PVT');
6809: WHEN OTHERS THEN
6806: x_msg_count,
6807: x_msg_data,
6808: '_PVT');
6809: WHEN OTHERS THEN
6810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6811: l_api_name,
6812: G_PKG_NAME,
6813: 'OTHERS',
6814: x_msg_count,
6842: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6843: x_txlv_rec OUT NOCOPY txlv_rec_type,
6844: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6845:
6846: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6847: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6848: l_api_version CONSTANT NUMBER := 1.0;
6849: l_ib_tbl ib_tbl_type;
6850:
6882: END LOOP;
6883:
6884: EXCEPTION
6885: WHEN OTHERS THEN
6886: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: END raise_business_event;
6889:
6890: /*
6883:
6884: EXCEPTION
6885: WHEN OTHERS THEN
6886: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6887: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6888: END raise_business_event;
6889:
6890: /*
6891: -- mvasudev, 08/23/2004
6892: -- END, PROCEDURE to enable Business Event
6893: */
6894:
6895: BEGIN
6896: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6897: -- Call start_activity to create savepoint, check compatibility
6898: -- and initialize message list
6899: x_return_status := OKL_API.START_ACTIVITY (
6900: l_api_name
6895: BEGIN
6896: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6897: -- Call start_activity to create savepoint, check compatibility
6898: -- and initialize message list
6899: x_return_status := OKL_API.START_ACTIVITY (
6900: l_api_name
6901: ,p_init_msg_list
6902: ,'_PVT'
6903: ,x_return_status);
6901: ,p_init_msg_list
6902: ,'_PVT'
6903: ,x_return_status);
6904: -- Check if activity started successfully
6905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6908: RAISE OKL_API.G_EXCEPTION_ERROR;
6909: END IF;
6902: ,'_PVT'
6903: ,x_return_status);
6904: -- Check if activity started successfully
6905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6908: RAISE OKL_API.G_EXCEPTION_ERROR;
6909: END IF;
6910:
6903: ,x_return_status);
6904: -- Check if activity started successfully
6905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6908: RAISE OKL_API.G_EXCEPTION_ERROR;
6909: END IF;
6910:
6911: --call the overloded procedure :
6904: -- Check if activity started successfully
6905: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6906: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6907: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6908: RAISE OKL_API.G_EXCEPTION_ERROR;
6909: END IF;
6910:
6911: --call the overloded procedure :
6912: Create_Split_Transaction(p_api_version => p_api_version,
6923: x_txlv_rec => x_txlv_rec,
6924: x_trxv_rec => x_trxv_rec);
6925:
6926:
6927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_ERROR;
6931: END IF;
6924: x_trxv_rec => x_trxv_rec);
6925:
6926:
6927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_ERROR;
6931: END IF;
6932:
6925:
6926:
6927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_ERROR;
6931: END IF;
6932:
6933: /*
6926:
6927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_ERROR;
6931: END IF;
6932:
6933: /*
6934: -- mvasudev, 08/23/2004
6934: -- mvasudev, 08/23/2004
6935: -- Code change to enable Business Event
6936: */
6937: raise_business_event(x_return_status => x_return_status);
6938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6941: RAISE OKL_API.G_EXCEPTION_ERROR;
6942: END IF;
6935: -- Code change to enable Business Event
6936: */
6937: raise_business_event(x_return_status => x_return_status);
6938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6941: RAISE OKL_API.G_EXCEPTION_ERROR;
6942: END IF;
6943:
6936: */
6937: raise_business_event(x_return_status => x_return_status);
6938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6941: RAISE OKL_API.G_EXCEPTION_ERROR;
6942: END IF;
6943:
6944: /*
6937: raise_business_event(x_return_status => x_return_status);
6938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6941: RAISE OKL_API.G_EXCEPTION_ERROR;
6942: END IF;
6943:
6944: /*
6945: -- mvasudev, 08/23/2004
6945: -- mvasudev, 08/23/2004
6946: -- END, Code change to enable Business Event
6947: */
6948:
6949: OKL_API.END_ACTIVITY (x_msg_count,
6950: x_msg_data );
6951:
6952: EXCEPTION
6953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6949: OKL_API.END_ACTIVITY (x_msg_count,
6950: x_msg_data );
6951:
6952: EXCEPTION
6953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OKL_API.G_RET_STS_ERROR',
6950: x_msg_data );
6951:
6952: EXCEPTION
6953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OKL_API.G_RET_STS_ERROR',
6958: x_msg_count,
6953: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6955: l_api_name,
6956: G_PKG_NAME,
6957: 'OKL_API.G_RET_STS_ERROR',
6958: x_msg_count,
6959: x_msg_data,
6960: '_PVT');
6961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6957: 'OKL_API.G_RET_STS_ERROR',
6958: x_msg_count,
6959: x_msg_data,
6960: '_PVT');
6961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6963: l_api_name,
6964: G_PKG_NAME,
6965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6958: x_msg_count,
6959: x_msg_data,
6960: '_PVT');
6961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6963: l_api_name,
6964: G_PKG_NAME,
6965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6966: x_msg_count,
6961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6962: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6963: l_api_name,
6964: G_PKG_NAME,
6965: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6966: x_msg_count,
6967: x_msg_data,
6968: '_PVT');
6969: WHEN OTHERS THEN
6966: x_msg_count,
6967: x_msg_data,
6968: '_PVT');
6969: WHEN OTHERS THEN
6970: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6971: l_api_name,
6972: G_PKG_NAME,
6973: 'OTHERS',
6974: x_msg_count,
7009: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
7010: x_txlv_rec OUT NOCOPY txlv_rec_type,
7011: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
7012:
7013: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
7014: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
7015: l_api_version CONSTANT NUMBER := 1.0;
7016: l_ib_tbl ib_tbl_type;
7017: BEGIN
7014: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
7015: l_api_version CONSTANT NUMBER := 1.0;
7016: l_ib_tbl ib_tbl_type;
7017: BEGIN
7018: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7019: -- Call start_activity to create savepoint, check compatibility
7020: -- and initialize message list
7021: x_return_status := OKL_API.START_ACTIVITY (
7022: l_api_name
7017: BEGIN
7018: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7019: -- Call start_activity to create savepoint, check compatibility
7020: -- and initialize message list
7021: x_return_status := OKL_API.START_ACTIVITY (
7022: l_api_name
7023: ,p_init_msg_list
7024: ,'_PVT'
7025: ,x_return_status);
7023: ,p_init_msg_list
7024: ,'_PVT'
7025: ,x_return_status);
7026: -- Check if activity started successfully
7027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7030: RAISE OKL_API.G_EXCEPTION_ERROR;
7031: END IF;
7024: ,'_PVT'
7025: ,x_return_status);
7026: -- Check if activity started successfully
7027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7030: RAISE OKL_API.G_EXCEPTION_ERROR;
7031: END IF;
7032:
7025: ,x_return_status);
7026: -- Check if activity started successfully
7027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7030: RAISE OKL_API.G_EXCEPTION_ERROR;
7031: END IF;
7032:
7033: --call the overloded procedure :
7026: -- Check if activity started successfully
7027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7030: RAISE OKL_API.G_EXCEPTION_ERROR;
7031: END IF;
7032:
7033: --call the overloded procedure :
7034: Create_Split_Transaction(p_api_version => p_api_version,
7043: x_txdv_tbl => x_txdv_tbl,
7044: x_txlv_rec => x_txlv_rec,
7045: x_trxv_rec => x_trxv_rec);
7046:
7047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7050: RAISE OKL_API.G_EXCEPTION_ERROR;
7051: END IF;
7044: x_txlv_rec => x_txlv_rec,
7045: x_trxv_rec => x_trxv_rec);
7046:
7047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7050: RAISE OKL_API.G_EXCEPTION_ERROR;
7051: END IF;
7052: OKL_API.END_ACTIVITY (x_msg_count,
7045: x_trxv_rec => x_trxv_rec);
7046:
7047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7050: RAISE OKL_API.G_EXCEPTION_ERROR;
7051: END IF;
7052: OKL_API.END_ACTIVITY (x_msg_count,
7053: x_msg_data );
7046:
7047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7050: RAISE OKL_API.G_EXCEPTION_ERROR;
7051: END IF;
7052: OKL_API.END_ACTIVITY (x_msg_count,
7053: x_msg_data );
7054:
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7050: RAISE OKL_API.G_EXCEPTION_ERROR;
7051: END IF;
7052: OKL_API.END_ACTIVITY (x_msg_count,
7053: x_msg_data );
7054:
7055: EXCEPTION
7056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7052: OKL_API.END_ACTIVITY (x_msg_count,
7053: x_msg_data );
7054:
7055: EXCEPTION
7056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7058: l_api_name,
7059: G_PKG_NAME,
7060: 'OKL_API.G_RET_STS_ERROR',
7053: x_msg_data );
7054:
7055: EXCEPTION
7056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7058: l_api_name,
7059: G_PKG_NAME,
7060: 'OKL_API.G_RET_STS_ERROR',
7061: x_msg_count,
7056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7057: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7058: l_api_name,
7059: G_PKG_NAME,
7060: 'OKL_API.G_RET_STS_ERROR',
7061: x_msg_count,
7062: x_msg_data,
7063: '_PVT');
7064: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7060: 'OKL_API.G_RET_STS_ERROR',
7061: x_msg_count,
7062: x_msg_data,
7063: '_PVT');
7064: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7065: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7066: l_api_name,
7067: G_PKG_NAME,
7068: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7061: x_msg_count,
7062: x_msg_data,
7063: '_PVT');
7064: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7065: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7066: l_api_name,
7067: G_PKG_NAME,
7068: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7069: x_msg_count,
7064: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7065: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7066: l_api_name,
7067: G_PKG_NAME,
7068: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7069: x_msg_count,
7070: x_msg_data,
7071: '_PVT');
7072: WHEN OTHERS THEN
7069: x_msg_count,
7070: x_msg_data,
7071: '_PVT');
7072: WHEN OTHERS THEN
7073: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7074: l_api_name,
7075: G_PKG_NAME,
7076: 'OTHERS',
7077: x_msg_count,
7096: p_cle_id IN NUMBER,
7097: p_txdv_tbl IN txdv_tbl_type,
7098: x_txdv_tbl OUT NOCOPY txdv_tbl_type) IS
7099:
7100: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
7101: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SPLIT_TRX';
7102: l_api_version CONSTANT NUMBER := 1.0;
7103:
7104: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
7129: BEGIN
7130:
7131: -- Call start_activity to create savepoint, check compatibility
7132: -- and initialize message list
7133: x_return_status := OKL_API.START_ACTIVITY (
7134: l_api_name
7135: ,p_init_msg_list
7136: ,'_PVT'
7137: ,x_return_status);
7135: ,p_init_msg_list
7136: ,'_PVT'
7137: ,x_return_status);
7138: -- Check if activity started successfully
7139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7142: RAISE OKL_API.G_EXCEPTION_ERROR;
7143: END IF;
7136: ,'_PVT'
7137: ,x_return_status);
7138: -- Check if activity started successfully
7139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7142: RAISE OKL_API.G_EXCEPTION_ERROR;
7143: END IF;
7144:
7137: ,x_return_status);
7138: -- Check if activity started successfully
7139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7142: RAISE OKL_API.G_EXCEPTION_ERROR;
7143: END IF;
7144:
7145: --Verify cle_id
7138: -- Check if activity started successfully
7139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7142: RAISE OKL_API.G_EXCEPTION_ERROR;
7143: END IF;
7144:
7145: --Verify cle_id
7146: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7143: END IF;
7144:
7145: --Verify cle_id
7146: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7147: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7149: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7150: RAISE OKL_API.G_EXCEPTION_ERROR;
7151: END IF;
7144:
7145: --Verify cle_id
7146: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7147: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7149: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7150: RAISE OKL_API.G_EXCEPTION_ERROR;
7151: END IF;
7152:
7145: --Verify cle_id
7146: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7147: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7149: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7150: RAISE OKL_API.G_EXCEPTION_ERROR;
7151: END IF;
7152:
7153: --get fixed asset line
7146: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7147: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7149: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7150: RAISE OKL_API.G_EXCEPTION_ERROR;
7151: END IF;
7152:
7153: --get fixed asset line
7154: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
7159: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
7160: IF l_no_data_found THEN
7161: NULL;
7162: --dbms_output.put_line('No pending Split Asset Transactions for this Asset');
7163: OKL_API.set_message(p_app_name => G_APP_NAME,
7164: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
7165: );
7166: ELSE
7167: l_txdv_tbl := p_txdv_tbl;
7178: --Bug# 4994713: convert asset number to upper case
7179: l_txdv_rec.asset_number := UPPER(l_txdv_tbl(j).asset_number);
7180: l_txdv_rec.description := l_txdv_tbl(j).description;
7181: --dbms_output.put_line('l_txdv_rec.id'||to_char(l_txdv_rec.id));
7182: IF (l_txdv_rec.id IS NULL) OR (l_txdv_rec.id = OKL_API.G_MISS_NUM) THEN
7183: EXIT;
7184: ELSE
7185:
7186: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
7191: x_msg_data => x_msg_data,
7192: p_adpv_rec => l_txdv_rec,
7193: x_adpv_rec => lx_txdv_rec);
7194: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7198: RAISE OKL_API.G_EXCEPTION_ERROR;
7199: END IF;
7192: p_adpv_rec => l_txdv_rec,
7193: x_adpv_rec => lx_txdv_rec);
7194: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7198: RAISE OKL_API.G_EXCEPTION_ERROR;
7199: END IF;
7200: ---
7193: x_adpv_rec => lx_txdv_rec);
7194: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7198: RAISE OKL_API.G_EXCEPTION_ERROR;
7199: END IF;
7200: ---
7201:
7194: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7198: RAISE OKL_API.G_EXCEPTION_ERROR;
7199: END IF;
7200: ---
7201:
7202: IF lx_txdv_rec.target_kle_id IS NULL THEN
7201:
7202: IF lx_txdv_rec.target_kle_id IS NULL THEN
7203: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7202: IF lx_txdv_rec.target_kle_id IS NULL THEN
7203: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: END IF;
7203: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: END IF;
7211:
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: END IF;
7211:
7212: --validate if original asset number has been modified
7212: --validate if original asset number has been modified
7213: IF l_txlv_rec.kle_id = lx_txdv_rec.target_kle_id THEN
7214: IF (lx_txdv_rec.asset_number <> l_txlv_rec.asset_number)
7215: OR (lx_txdv_rec.description <> l_txlv_rec.description) THEN
7216: OKL_API.Set_message(p_app_name => G_APP_NAME,
7217: p_msg_name => G_SPLIT_PARENT_NUMBER_CHANGE);
7218: RAISE OKL_API.G_EXCEPTION_ERROR;
7219: END IF;
7220: END IF;
7214: IF (lx_txdv_rec.asset_number <> l_txlv_rec.asset_number)
7215: OR (lx_txdv_rec.description <> l_txlv_rec.description) THEN
7216: OKL_API.Set_message(p_app_name => G_APP_NAME,
7217: p_msg_name => G_SPLIT_PARENT_NUMBER_CHANGE);
7218: RAISE OKL_API.G_EXCEPTION_ERROR;
7219: END IF;
7220: END IF;
7221:
7222: lx_txdv_tbl(j) := lx_txdv_rec;
7227: -----
7228: END IF;
7229: END IF;
7230: x_txdv_tbl := lx_txdv_tbl;
7231: OKL_API.END_ACTIVITY (x_msg_count,
7232: x_msg_data );
7233: EXCEPTION
7234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7230: x_txdv_tbl := lx_txdv_tbl;
7231: OKL_API.END_ACTIVITY (x_msg_count,
7232: x_msg_data );
7233: EXCEPTION
7234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7236: l_api_name,
7237: G_PKG_NAME,
7238: 'OKL_API.G_RET_STS_ERROR',
7231: OKL_API.END_ACTIVITY (x_msg_count,
7232: x_msg_data );
7233: EXCEPTION
7234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7236: l_api_name,
7237: G_PKG_NAME,
7238: 'OKL_API.G_RET_STS_ERROR',
7239: x_msg_count,
7234: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7235: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7236: l_api_name,
7237: G_PKG_NAME,
7238: 'OKL_API.G_RET_STS_ERROR',
7239: x_msg_count,
7240: x_msg_data,
7241: '_PVT');
7242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7238: 'OKL_API.G_RET_STS_ERROR',
7239: x_msg_count,
7240: x_msg_data,
7241: '_PVT');
7242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7243: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7244: l_api_name,
7245: G_PKG_NAME,
7246: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7239: x_msg_count,
7240: x_msg_data,
7241: '_PVT');
7242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7243: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7244: l_api_name,
7245: G_PKG_NAME,
7246: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7247: x_msg_count,
7242: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7243: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7244: l_api_name,
7245: G_PKG_NAME,
7246: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7247: x_msg_count,
7248: x_msg_data,
7249: '_PVT');
7250: WHEN OTHERS THEN
7247: x_msg_count,
7248: x_msg_data,
7249: '_PVT');
7250: WHEN OTHERS THEN
7251: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7252: l_api_name,
7253: G_PKG_NAME,
7254: 'OTHERS',
7255: x_msg_count,
7792: p_txl_id IN NUMBER) AS
7793:
7794: l_api_name CONSTANT VARCHAR2(256) := 'SPLIT_STREAMS';
7795: l_api_version CONSTANT NUMBER := 1.0;
7796: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7797:
7798:
7799: l_stmv_rec Okl_Streams_pub.stmv_rec_type;
7800: l_selv_tbl Okl_Streams_pub.selv_tbl_type;
8051: l_rounded_amount NUMBER;
8052: l_child_amount NUMBER;
8053:
8054: BEGIN
8055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8056:
8057: IF ( p_parent_kle_id = p_kle_id ) THEN
8058: l_kle_id := p_kle_id;
8059: ELSE
8094: ,x_msg_data => x_msg_data
8095: ,p_stmv_rec => l_stmv_rec_hist
8096: ,x_stmv_rec => x_stmv_rec);
8097:
8098: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8099: RAISE G_EXCEPTION_HALT_VALIDATION;
8100: END IF;
8101:
8102: END IF;
8161: IF (p_parent_kle_id = p_kle_id ) OR (p_highest_split_comp_amt='Y') THEN
8162:
8163: FOR l_txd_rec in l_txd_csr(p_txl_id)
8164: LOOP
8165: IF NVL(l_txd_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
8166: l_child_split_factor := l_txd_rec.quantity/l_txd_rec.current_units;
8167: ELSE
8168: l_child_split_factor := l_txd_rec.split_percent/100;
8169: END IF;
8178: p_currency_code => l_currency_code,
8179: p_round_option => 'STM',
8180: x_rounded_amount => l_rounded_amount
8181: );
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8179: p_round_option => 'STM',
8180: x_rounded_amount => l_rounded_amount
8181: );
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8180: x_rounded_amount => l_rounded_amount
8181: );
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8188: END LOOP;
8181: );
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8188: END LOOP;
8189: END IF;
8205: p_currency_code => l_currency_code,
8206: p_round_option => 'STM',
8207: x_rounded_amount => l_rounded_amount
8208: );
8209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8213: END IF;
8206: p_round_option => 'STM',
8207: x_rounded_amount => l_rounded_amount
8208: );
8209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8213: END IF;
8214: l_child_amount :=l_rounded_amount;
8207: x_rounded_amount => l_rounded_amount
8208: );
8209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8213: END IF;
8214: l_child_amount :=l_rounded_amount;
8215: --adjust the amount for highest asset percent if split by component
8208: );
8209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8212: RAISE OKL_API.G_EXCEPTION_ERROR;
8213: END IF;
8214: l_child_amount :=l_rounded_amount;
8215: --adjust the amount for highest asset percent if split by component
8216: if p_highest_split_comp_amt='Y' THEN
8259: ,p_selv_tbl => l_selv_tbl_hist
8260: ,x_stmv_rec => x_stmv_rec
8261: ,x_selv_tbl => x_selv_tbl);
8262:
8263: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8264: RAISE G_EXCEPTION_HALT_VALIDATION;
8265: END IF;
8266:
8267: IF (p_split_factor <> 0 ) THEN
8284: ,p_selv_tbl => l_selv_tbl
8285: ,x_stmv_rec => x_stmv_rec
8286: ,x_selv_tbl => x_selv_tbl);
8287:
8288: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8289: RAISE G_EXCEPTION_HALT_VALIDATION;
8290: END IF;
8291: END IF;
8292:
8312: ,p_selv_tbl => l_selv_tbl
8313: ,x_stmv_rec => x_stmv_rec
8314: ,x_selv_tbl => x_selv_tbl);
8315:
8316: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8317: RAISE G_EXCEPTION_HALT_VALIDATION;
8318: END IF;
8319:
8320:
8344: END IF;
8345: IF l_strmele_csr%ISOPEN THEN
8346: CLOSE l_strmele_csr;
8347: END IF;
8348: x_return_status := OKL_API.G_RET_STS_ERROR;
8349:
8350: END process_split_streams;
8351: /*begin main body*/
8352: BEGIN
8370: LOOP
8371:
8372: l_split_trx_rec1 := l_split_trx_tbl1(i);
8373:
8374: IF NVL(l_split_trx_rec1.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
8375: l_split_factor := (l_split_trx_rec1.split_percent/100);
8376:
8377: --Bug# 3502142
8378: --Bug# 6344223
8399: --Bug# 6344223
8400: p_highest_split_comp_amt => l_highest_split_comp_amt);
8401:
8402:
8403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8406: RAISE OKL_API.G_EXCEPTION_ERROR;
8407: END IF;
8400: p_highest_split_comp_amt => l_highest_split_comp_amt);
8401:
8402:
8403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8406: RAISE OKL_API.G_EXCEPTION_ERROR;
8407: END IF;
8408:
8401:
8402:
8403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8406: RAISE OKL_API.G_EXCEPTION_ERROR;
8407: END IF;
8408:
8409: --Bug# 3066375:: split streams attached to linked asset lines
8402:
8403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8406: RAISE OKL_API.G_EXCEPTION_ERROR;
8407: END IF;
8408:
8409: --Bug# 3066375:: split streams attached to linked asset lines
8410: OPEN l_lnk_asst_csr1(p_cle_id => l_split_trx_rec1.cle_id, p_target_cle_id => l_split_trx_rec1.target_cle_id);
8425: --Bug# 6344223
8426: p_highest_split_comp_amt => l_highest_split_comp_amt);
8427:
8428:
8429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8432: RAISE OKL_API.G_EXCEPTION_ERROR;
8433: END IF;
8426: p_highest_split_comp_amt => l_highest_split_comp_amt);
8427:
8428:
8429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8432: RAISE OKL_API.G_EXCEPTION_ERROR;
8433: END IF;
8434: END LOOP;
8427:
8428:
8429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8432: RAISE OKL_API.G_EXCEPTION_ERROR;
8433: END IF;
8434: END LOOP;
8435: CLOSE l_lnk_asst_csr1;
8428:
8429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8432: RAISE OKL_API.G_EXCEPTION_ERROR;
8433: END IF;
8434: END LOOP;
8435: CLOSE l_lnk_asst_csr1;
8436:
8436:
8437: END LOOP;
8438: END IF;
8439:
8440: IF NVL(l_split_trx_rec1.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
8441: --split asset component : Process_split_streams to historize for parent line
8442: Process_split_streams(p_api_version => p_api_version,
8443: p_init_msg_list => p_init_msg_list,
8444: x_return_status => x_return_status,
8451: p_txl_id => p_txl_id,
8452: --Bug# 6344223
8453: p_highest_split_comp_amt => 'N');
8454:
8455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_ERROR;
8459: END IF;
8452: --Bug# 6344223
8453: p_highest_split_comp_amt => 'N');
8454:
8455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_ERROR;
8459: END IF;
8460:
8453: p_highest_split_comp_amt => 'N');
8454:
8455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_ERROR;
8459: END IF;
8460:
8461: --Bug# 3066375: split streams attached to linked asset lines
8454:
8455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_ERROR;
8459: END IF;
8460:
8461: --Bug# 3066375: split streams attached to linked asset lines
8462: OPEN l_lnk_asst_csr1(p_cle_id => l_split_trx_rec1.cle_id, p_target_cle_id => l_split_trx_rec1.target_cle_id);
8477: --Bug# 6344223
8478: p_highest_split_comp_amt => 'N');
8479:
8480:
8481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_ERROR;
8485: END IF;
8478: p_highest_split_comp_amt => 'N');
8479:
8480:
8481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_ERROR;
8485: END IF;
8486: END LOOP;
8479:
8480:
8481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_ERROR;
8485: END IF;
8486: END LOOP;
8487: CLOSE l_lnk_asst_csr1;
8480:
8481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_ERROR;
8485: END IF;
8486: END LOOP;
8487: CLOSE l_lnk_asst_csr1;
8488:
8511: --Bug# 6344223
8512: p_highest_split_comp_amt => 'N');
8513:
8514:
8515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8518: RAISE OKL_API.G_EXCEPTION_ERROR;
8519: END IF;
8512: p_highest_split_comp_amt => 'N');
8513:
8514:
8515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8518: RAISE OKL_API.G_EXCEPTION_ERROR;
8519: END IF;
8520:
8513:
8514:
8515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8518: RAISE OKL_API.G_EXCEPTION_ERROR;
8519: END IF;
8520:
8521: --Bug# 3066375: split streams attached to linked asset lines
8514:
8515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8518: RAISE OKL_API.G_EXCEPTION_ERROR;
8519: END IF;
8520:
8521: --Bug# 3066375: split streams attached to linked asset lines
8522: OPEN l_lnk_asst_csr2(p_cle_id => l_split_trx_rec2.cle_id, p_target_cle_id => l_split_trx_rec2.target_cle_id);
8536: p_txl_id => p_txl_id,
8537: --Bug# 6344223
8538: p_highest_split_comp_amt => 'N');
8539:
8540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8543: RAISE OKL_API.G_EXCEPTION_ERROR;
8544: END IF;
8537: --Bug# 6344223
8538: p_highest_split_comp_amt => 'N');
8539:
8540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8543: RAISE OKL_API.G_EXCEPTION_ERROR;
8544: END IF;
8545: END LOOP;
8538: p_highest_split_comp_amt => 'N');
8539:
8540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8543: RAISE OKL_API.G_EXCEPTION_ERROR;
8544: END IF;
8545: END LOOP;
8546: CLOSE l_lnk_asst_csr2;
8539:
8540: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8543: RAISE OKL_API.G_EXCEPTION_ERROR;
8544: END IF;
8545: END LOOP;
8546: CLOSE l_lnk_asst_csr2;
8547:
8551: NULL;
8552: END IF;
8553:
8554: EXCEPTION
8555: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8556:
8557: IF l_split_trx_csr1%ISOPEN THEN
8558: CLOSE l_split_trx_csr1;
8559: END IF;
8561: IF l_split_trx_csr2%ISOPEN THEN
8562: CLOSE l_split_trx_csr2;
8563: END IF;
8564:
8565: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8566:
8567: IF l_split_trx_csr1%ISOPEN THEN
8568: CLOSE l_split_trx_csr1;
8569: END IF;
8597: IF l_lnk_asst_csr2%ISOPEN THEN
8598: CLOSE l_lnk_asst_csr2;
8599: END IF;
8600:
8601: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8602: END Split_Streams;
8603: --Bug #2648280 End
8604:
8605: ---------------
8605: ---------------
8606: --Bug# 2994971
8607: ---------------
8608: PROCEDURE populate_insurance_category(p_api_version IN NUMBER,
8609: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8610: x_return_status OUT NOCOPY VARCHAR2,
8611: x_msg_count OUT NOCOPY NUMBER,
8612: x_msg_data OUT NOCOPY VARCHAR2,
8613: p_cle_id IN NUMBER,
8632:
8633:
8634: BEGIN
8635:
8636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8637: -- Call start_activity to create savepoint, check compatibility
8638: -- and initialize message list
8639: x_return_status := OKL_API.START_ACTIVITY (l_api_name
8640: ,p_init_msg_list
8635:
8636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8637: -- Call start_activity to create savepoint, check compatibility
8638: -- and initialize message list
8639: x_return_status := OKL_API.START_ACTIVITY (l_api_name
8640: ,p_init_msg_list
8641: ,'_PVT'
8642: ,x_return_status);
8643: -- Check if activity started successfully
8640: ,p_init_msg_list
8641: ,'_PVT'
8642: ,x_return_status);
8643: -- Check if activity started successfully
8644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8647: RAISE OKL_API.G_EXCEPTION_ERROR;
8648: END IF;
8641: ,'_PVT'
8642: ,x_return_status);
8643: -- Check if activity started successfully
8644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8647: RAISE OKL_API.G_EXCEPTION_ERROR;
8648: END IF;
8649:
8642: ,x_return_status);
8643: -- Check if activity started successfully
8644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8647: RAISE OKL_API.G_EXCEPTION_ERROR;
8648: END IF;
8649:
8650: --fetch asset category
8643: -- Check if activity started successfully
8644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8647: RAISE OKL_API.G_EXCEPTION_ERROR;
8648: END IF;
8649:
8650: --fetch asset category
8651: l_asset_category_id := NULL;
8673: x_clev_rec => lx_clev_rec,
8674: x_klev_rec => lx_klev_rec
8675: );
8676:
8677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8680: RAISE OKL_API.G_EXCEPTION_ERROR;
8681: END IF;
8674: x_klev_rec => lx_klev_rec
8675: );
8676:
8677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8680: RAISE OKL_API.G_EXCEPTION_ERROR;
8681: END IF;
8682:
8675: );
8676:
8677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8680: RAISE OKL_API.G_EXCEPTION_ERROR;
8681: END IF;
8682:
8683: OKL_API.END_ACTIVITY (x_msg_count,
8676:
8677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8680: RAISE OKL_API.G_EXCEPTION_ERROR;
8681: END IF;
8682:
8683: OKL_API.END_ACTIVITY (x_msg_count,
8684: x_msg_data );
8679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8680: RAISE OKL_API.G_EXCEPTION_ERROR;
8681: END IF;
8682:
8683: OKL_API.END_ACTIVITY (x_msg_count,
8684: x_msg_data );
8685: EXCEPTION
8686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8687: IF l_msi_csr%ISOPEN THEN
8682:
8683: OKL_API.END_ACTIVITY (x_msg_count,
8684: x_msg_data );
8685: EXCEPTION
8686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8687: IF l_msi_csr%ISOPEN THEN
8688: CLOSE l_msi_csr;
8689: END IF;
8690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8687: IF l_msi_csr%ISOPEN THEN
8688: CLOSE l_msi_csr;
8689: END IF;
8690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8691: l_api_name,
8692: G_PKG_NAME,
8693: 'OKL_API.G_RET_STS_ERROR',
8694: x_msg_count,
8689: END IF;
8690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8691: l_api_name,
8692: G_PKG_NAME,
8693: 'OKL_API.G_RET_STS_ERROR',
8694: x_msg_count,
8695: x_msg_data,
8696: '_PVT');
8697: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8693: 'OKL_API.G_RET_STS_ERROR',
8694: x_msg_count,
8695: x_msg_data,
8696: '_PVT');
8697: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8698: IF l_msi_csr%ISOPEN THEN
8699: CLOSE l_msi_csr;
8700: END IF;
8701: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8697: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8698: IF l_msi_csr%ISOPEN THEN
8699: CLOSE l_msi_csr;
8700: END IF;
8701: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8702: l_api_name,
8703: G_PKG_NAME,
8704: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8705: x_msg_count,
8700: END IF;
8701: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8702: l_api_name,
8703: G_PKG_NAME,
8704: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8705: x_msg_count,
8706: x_msg_data,
8707: '_PVT');
8708: WHEN OTHERS THEN
8708: WHEN OTHERS THEN
8709: IF l_msi_csr%ISOPEN THEN
8710: CLOSE l_msi_csr;
8711: END IF;
8712: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8713: l_api_name,
8714: G_PKG_NAME,
8715: 'OTHERS',
8716: x_msg_count,
8725: --modified for Bug# 2648280 - null amounts to remain null on copied lines
8726: --------------------------------------------------------------------------------
8727: PROCEDURE Adjust_Split_Lines(
8728: p_api_version IN NUMBER,
8729: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8730: x_return_status OUT NOCOPY VARCHAR2,
8731: x_msg_count OUT NOCOPY NUMBER,
8732: x_msg_data OUT NOCOPY VARCHAR2,
8733: p_cle_id IN NUMBER, --id of the new top line after copy or parent top line
8736: p_txlv_rec IN txlv_rec_type,
8737: --Bug# 3502142
8738: p_round_split_comp_amt IN VARCHAR2 DEFAULT 'N') IS
8739:
8740: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
8741: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_SPLIT_LINES';
8742: l_api_version CONSTANT NUMBER := 1.0;
8743:
8744: l_parent_cost NUMBER;
9073: l_klev_round_out klev_rec_type;
9074: l_clev_round_out clev_rec_type;
9075: --Bug# 6344223 : end
9076: BEGIN
9077: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9078: -- Call start_activity to create savepoint, check compatibility
9079: -- and initialize message list
9080: x_return_status := OKL_API.START_ACTIVITY (
9081: l_api_name
9076: BEGIN
9077: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9078: -- Call start_activity to create savepoint, check compatibility
9079: -- and initialize message list
9080: x_return_status := OKL_API.START_ACTIVITY (
9081: l_api_name
9082: ,p_init_msg_list
9083: ,'_PVT'
9084: ,x_return_status);
9082: ,p_init_msg_list
9083: ,'_PVT'
9084: ,x_return_status);
9085: -- Check if activity started successfully
9086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9089: RAISE OKL_API.G_EXCEPTION_ERROR;
9090: END IF;
9083: ,'_PVT'
9084: ,x_return_status);
9085: -- Check if activity started successfully
9086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9089: RAISE OKL_API.G_EXCEPTION_ERROR;
9090: END IF;
9091: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9084: ,x_return_status);
9085: -- Check if activity started successfully
9086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9089: RAISE OKL_API.G_EXCEPTION_ERROR;
9090: END IF;
9091: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9092: l_split_factor := (p_txdv_rec.split_percent/100);
9085: -- Check if activity started successfully
9086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9089: RAISE OKL_API.G_EXCEPTION_ERROR;
9090: END IF;
9091: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9092: l_split_factor := (p_txdv_rec.split_percent/100);
9093: ELSE
9087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9089: RAISE OKL_API.G_EXCEPTION_ERROR;
9090: END IF;
9091: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9092: l_split_factor := (p_txdv_rec.split_percent/100);
9093: ELSE
9094: --1. By comparing the cost and quantities on txlv record and txdv record find the split factor
9095: l_parent_cost := p_txlv_rec.depreciation_cost;
9123: FETCH c_lty_code INTO l_lty_code;
9124: IF c_lty_code%NOTFOUND THEN
9125: --dbms_output.put_line('lty_code not found for lse_id "'||to_char(l_lse_id));
9126: --handle error appropriately
9127: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
9128: p_msg_name => G_LTY_CODE_NOT_FOUND
9129: );
9130: RAISE OKL_API.G_EXCEPTION_ERROR;
9131: END IF;
9126: --handle error appropriately
9127: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
9128: p_msg_name => G_LTY_CODE_NOT_FOUND
9129: );
9130: RAISE OKL_API.G_EXCEPTION_ERROR;
9131: END IF;
9132: CLOSE c_lty_code;
9133:
9134: --Bug# 6344223 : start
9142: IF l_lty_code IN ('ITEM','ADD_ITEM','FIXED_ASSET','INST_ITEM','LINK_SERV_ASSET',
9143: 'LINK_FEE_ASSET','LINK_USAGE_ASSET') THEN
9144: l_cimv_rec := get_cimv_rec(p_cle_id => l_cle_id);
9145: IF l_lty_code <> 'INST_ITEM' THEN
9146: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9147: --number of items will remain same in case of split asset components
9148: l_cimv_rec.number_of_items := l_cimv_rec.number_of_items;
9149: ELSE
9150: l_cimv_rec.number_of_items := (l_split_factor*l_cimv_rec.number_of_items);
9163: p_adpv_rec => l_txdv_rec,
9164: x_adpv_rec => l_txdv_rec_out);
9165: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9166: --dbms_output.put_line('After updating trx details:'||x_return_status);
9167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9170: RAISE OKL_API.G_EXCEPTION_ERROR;
9171: END IF;
9164: x_adpv_rec => l_txdv_rec_out);
9165: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9166: --dbms_output.put_line('After updating trx details:'||x_return_status);
9167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9170: RAISE OKL_API.G_EXCEPTION_ERROR;
9171: END IF;
9172: END IF;
9165: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9166: --dbms_output.put_line('After updating trx details:'||x_return_status);
9167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9170: RAISE OKL_API.G_EXCEPTION_ERROR;
9171: END IF;
9172: END IF;
9173:
9166: --dbms_output.put_line('After updating trx details:'||x_return_status);
9167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9170: RAISE OKL_API.G_EXCEPTION_ERROR;
9171: END IF;
9172: END IF;
9173:
9174: --update the number of items on model and fa lines
9175: --Bug#5559502 --Modification Start
9176: --Update number of items for ADDON record in OKC_K_ITEMS table
9177: IF l_lty_code IN ('ADD_ITEM','ITEM','FIXED_ASSET') THEN
9178: --Bug#5559502 --Modification End
9179: IF (l_cimv_rec.id IS NOT NULL) OR (l_cimv_rec.id <> OKL_API.G_MISS_NUM) THEN
9180: --dbms_output.put_line('cimv rec id'|| to_char(l_cimv_rec.id));
9181: lupd_cimv_rec.id := l_cimv_rec.id;
9182: --dbms_output.put_line('Split Factor '|| to_char(l_split_factor));
9183: --dbms_output.put_line('Split Factor '|| to_char(p_txlv_rec.current_units));
9180: --dbms_output.put_line('cimv rec id'|| to_char(l_cimv_rec.id));
9181: lupd_cimv_rec.id := l_cimv_rec.id;
9182: --dbms_output.put_line('Split Factor '|| to_char(l_split_factor));
9183: --dbms_output.put_line('Split Factor '|| to_char(p_txlv_rec.current_units));
9184: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9185: --number of items will remain same in case of split asset components
9186: lupd_cimv_rec.number_of_items := p_txlv_rec.current_units;
9187: --if it is split asset component update the inventory item on model line
9188: IF l_lty_code = ('ITEM') THEN
9196:
9197: ---------------
9198: --Bug# 2994971
9199: ---------------
9200: IF NVL(lupd_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR AND
9201: NVL(lupd_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR THEN
9202:
9203: --Bug# 3438811 :
9204: l_inv_item_id := TO_NUMBER(lupd_cimv_rec.object1_id1);
9197: ---------------
9198: --Bug# 2994971
9199: ---------------
9200: IF NVL(lupd_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR AND
9201: NVL(lupd_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR THEN
9202:
9203: --Bug# 3438811 :
9204: l_inv_item_id := TO_NUMBER(lupd_cimv_rec.object1_id1);
9205: l_inv_org_id := TO_NUMBER(lupd_cimv_rec.object1_id2);
9213: x_msg_data => x_msg_data,
9214: p_cle_id => l_parent_cle_id,
9215: p_inv_item_id => l_inv_item_id,
9216: p_inv_org_id => l_inv_org_id);
9217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9220: RAISE OKL_API.G_EXCEPTION_ERROR;
9221: END IF;
9214: p_cle_id => l_parent_cle_id,
9215: p_inv_item_id => l_inv_item_id,
9216: p_inv_org_id => l_inv_org_id);
9217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9220: RAISE OKL_API.G_EXCEPTION_ERROR;
9221: END IF;
9222: END IF;
9215: p_inv_item_id => l_inv_item_id,
9216: p_inv_org_id => l_inv_org_id);
9217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9220: RAISE OKL_API.G_EXCEPTION_ERROR;
9221: END IF;
9222: END IF;
9223: ---------------
9216: p_inv_org_id => l_inv_org_id);
9217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9218: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9219: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9220: RAISE OKL_API.G_EXCEPTION_ERROR;
9221: END IF;
9222: END IF;
9223: ---------------
9224: --Bug# 2994971
9250: x_msg_data => x_msg_data,
9251: p_cimv_rec => lupd_cimv_rec,
9252: x_cimv_rec => l_cimv_rec_out);
9253: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9257: RAISE OKL_API.G_EXCEPTION_ERROR;
9258: END IF;
9251: p_cimv_rec => lupd_cimv_rec,
9252: x_cimv_rec => l_cimv_rec_out);
9253: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9257: RAISE OKL_API.G_EXCEPTION_ERROR;
9258: END IF;
9259: --End If;
9252: x_cimv_rec => l_cimv_rec_out);
9253: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9257: RAISE OKL_API.G_EXCEPTION_ERROR;
9258: END IF;
9259: --End If;
9260: END IF;
9253: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9257: RAISE OKL_API.G_EXCEPTION_ERROR;
9258: END IF;
9259: --End If;
9260: END IF;
9261:
9285: ,x_clev_rec =>l_clev_round_out
9286: );
9287: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9288:
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE OKL_API.G_EXCEPTION_ERROR;
9293: END IF;
9286: );
9287: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9288:
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE OKL_API.G_EXCEPTION_ERROR;
9293: END IF;
9294:
9287: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9288:
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE OKL_API.G_EXCEPTION_ERROR;
9293: END IF;
9294:
9295: l_klev_rec :=l_klev_round_out;
9288:
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE OKL_API.G_EXCEPTION_ERROR;
9293: END IF;
9294:
9295: l_klev_rec :=l_klev_round_out;
9296: l_clev_rec :=l_clev_round_out;
9343: l_clev_rec.STS_CODE:=l_cle_status;
9344: --Bug# 5946411: ER End
9345:
9346: --price unit to be split only for split into components
9347: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9348: THEN
9349: NULL;
9350: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9351: --
9346: --price unit to be split only for split into components
9347: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9348: THEN
9349: NULL;
9350: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9351: --
9352: l_clev_rec.price_unit := (l_split_factor * l_clev_rec.price_unit);
9353: l_clev_rec.price_negotiated := (l_split_factor * l_clev_rec.price_negotiated);
9354: l_clev_rec.price_negotiated_renewed := (l_split_factor * l_clev_rec.price_negotiated_renewed);
9373: p_klev_rec => l_klev_rec,
9374: x_clev_rec => l_clev_rec_out,
9375: x_klev_rec => l_klev_rec_out);
9376: --dbms_output.put_line('After updating contract line :'||x_return_status);
9377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9380: RAISE OKL_API.G_EXCEPTION_ERROR;
9381: END IF;
9374: x_clev_rec => l_clev_rec_out,
9375: x_klev_rec => l_klev_rec_out);
9376: --dbms_output.put_line('After updating contract line :'||x_return_status);
9377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9380: RAISE OKL_API.G_EXCEPTION_ERROR;
9381: END IF;
9382:
9375: x_klev_rec => l_klev_rec_out);
9376: --dbms_output.put_line('After updating contract line :'||x_return_status);
9377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9380: RAISE OKL_API.G_EXCEPTION_ERROR;
9381: END IF;
9382:
9383: -------------------------------------------------------
9376: --dbms_output.put_line('After updating contract line :'||x_return_status);
9377: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9378: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9380: RAISE OKL_API.G_EXCEPTION_ERROR;
9381: END IF;
9382:
9383: -------------------------------------------------------
9384: --Bug# 3143522: subsidies - Validate all associated subsidies
9410: x_msg_count => x_msg_count,
9411: x_msg_data => x_msg_data,
9412: p_asb_rec => l_asb_rec);
9413:
9414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9417: RAISE OKL_API.G_EXCEPTION_ERROR;
9418: END IF;
9411: x_msg_data => x_msg_data,
9412: p_asb_rec => l_asb_rec);
9413:
9414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9417: RAISE OKL_API.G_EXCEPTION_ERROR;
9418: END IF;
9419:
9412: p_asb_rec => l_asb_rec);
9413:
9414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9417: RAISE OKL_API.G_EXCEPTION_ERROR;
9418: END IF;
9419:
9420: /*------------------Commented as this will be done as part of copy lines now
9413:
9414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9417: RAISE OKL_API.G_EXCEPTION_ERROR;
9418: END IF;
9419:
9420: /*------------------Commented as this will be done as part of copy lines now
9421: ------------------------------------------
9474: x_msg_data => x_msg_data,
9475: p_sidv_rec => l_sidv_rec,
9476: x_sidv_rec => lx_sidv_rec);
9477:
9478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9481: RAISE OKL_API.G_EXCEPTION_ERROR;
9482: END IF;
9475: p_sidv_rec => l_sidv_rec,
9476: x_sidv_rec => lx_sidv_rec);
9477:
9478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9481: RAISE OKL_API.G_EXCEPTION_ERROR;
9482: END IF;
9483:
9476: x_sidv_rec => lx_sidv_rec);
9477:
9478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9481: RAISE OKL_API.G_EXCEPTION_ERROR;
9482: END IF;
9483:
9484: END IF;
9477:
9478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9481: RAISE OKL_API.G_EXCEPTION_ERROR;
9482: END IF;
9483:
9484: END IF;
9485: END IF;
9515: p_currency_code => l_sll_rec.currency_code,
9516: p_round_option => 'STM',
9517: x_rounded_amount => l_rounded_amount
9518: );
9519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9522: RAISE OKL_API.G_EXCEPTION_ERROR;
9523: END IF;
9516: p_round_option => 'STM',
9517: x_rounded_amount => l_rounded_amount
9518: );
9519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9522: RAISE OKL_API.G_EXCEPTION_ERROR;
9523: END IF;
9524:
9517: x_rounded_amount => l_rounded_amount
9518: );
9519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9522: RAISE OKL_API.G_EXCEPTION_ERROR;
9523: END IF;
9524:
9525: l_updated_sll_amount := l_rounded_amount;
9518: );
9519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9520: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9521: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9522: RAISE OKL_API.G_EXCEPTION_ERROR;
9523: END IF;
9524:
9525: l_updated_sll_amount := l_rounded_amount;
9526:
9538: p_currency_code => l_sll_rec.currency_code,
9539: p_round_option => 'STM',
9540: x_rounded_amount => l_rounded_amount
9541: );
9542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9545: RAISE OKL_API.G_EXCEPTION_ERROR;
9546: END IF;
9539: p_round_option => 'STM',
9540: x_rounded_amount => l_rounded_amount
9541: );
9542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9545: RAISE OKL_API.G_EXCEPTION_ERROR;
9546: END IF;
9547:
9540: x_rounded_amount => l_rounded_amount
9541: );
9542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9545: RAISE OKL_API.G_EXCEPTION_ERROR;
9546: END IF;
9547:
9548: l_updated_stub_amount := l_rounded_amount;
9541: );
9542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9545: RAISE OKL_API.G_EXCEPTION_ERROR;
9546: END IF;
9547:
9548: l_updated_stub_amount := l_rounded_amount;
9549:
9548: l_updated_stub_amount := l_rounded_amount;
9549:
9550: --update the rule record
9551: l_rulv_rec.id := l_sll_rec.sll_id;
9552: IF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9553: l_rulv_rec.rule_information6 := l_updated_sll_amount;
9554: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9555: l_rulv_rec.rule_information6 := NULL;
9556: END IF;
9550: --update the rule record
9551: l_rulv_rec.id := l_sll_rec.sll_id;
9552: IF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9553: l_rulv_rec.rule_information6 := l_updated_sll_amount;
9554: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9555: l_rulv_rec.rule_information6 := NULL;
9556: END IF;
9557: --Bug# 2757289 :enhancement for stub payments
9558: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9554: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9555: l_rulv_rec.rule_information6 := NULL;
9556: END IF;
9557: --Bug# 2757289 :enhancement for stub payments
9558: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9559: l_rulv_rec.rule_information8 := l_updated_stub_amount;
9560: ELSIF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9561: l_rulv_rec.rule_information8 := NULL;
9562: END IF;
9556: END IF;
9557: --Bug# 2757289 :enhancement for stub payments
9558: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9559: l_rulv_rec.rule_information8 := l_updated_stub_amount;
9560: ELSIF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9561: l_rulv_rec.rule_information8 := NULL;
9562: END IF;
9563:
9564: OKL_RULE_PUB.update_rule(
9569: x_msg_data => x_msg_data,
9570: p_rulv_rec => l_rulv_rec,
9571: x_rulv_rec => l_rulv_rec_out);
9572: --dbms_output.put_line('After updating payments :'||x_return_status);
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9570: p_rulv_rec => l_rulv_rec,
9571: x_rulv_rec => l_rulv_rec_out);
9572: --dbms_output.put_line('After updating payments :'||x_return_status);
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578: END LOOP;
9571: x_rulv_rec => l_rulv_rec_out);
9572: --dbms_output.put_line('After updating payments :'||x_return_status);
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578: END LOOP;
9579: CLOSE l_sll_cur;
9572: --dbms_output.put_line('After updating payments :'||x_return_status);
9573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9574: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9576: RAISE OKL_API.G_EXCEPTION_ERROR;
9577: END IF;
9578: END LOOP;
9579: CLOSE l_sll_cur;
9580:
9594:
9595: l_split_pymt_sum := 0;
9596:
9597: -- Split into units
9598: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
9599: l_target_kle_id := p_txlv_rec.kle_id;
9600:
9601: -- Split into components
9602: ELSE
9609: FOR l_txd_rec in l_txd_csr(p_tal_id => p_txlv_rec.id
9610: ,p_cle_id => l_target_kle_id)
9611: LOOP
9612:
9613: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
9614: l_sll_split_factor := l_txd_rec.quantity/p_txlv_rec.current_units;
9615: ELSE
9616: l_sll_split_factor := l_txd_rec.split_percent/100;
9617: END IF;
9615: ELSE
9616: l_sll_split_factor := l_txd_rec.split_percent/100;
9617: END IF;
9618:
9619: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9620: l_split_pymt := l_sll_amount * l_sll_split_factor;
9621: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9622: l_split_pymt := l_stub_amount * l_sll_split_factor;
9623: END IF;
9617: END IF;
9618:
9619: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9620: l_split_pymt := l_sll_amount * l_sll_split_factor;
9621: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9622: l_split_pymt := l_stub_amount * l_sll_split_factor;
9623: END IF;
9624:
9625: okl_accounting_util.round_amount(
9632: p_currency_code => l_sll_rec.currency_code,
9633: p_round_option => 'STM',
9634: x_rounded_amount => l_rounded_amount
9635: );
9636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_ERROR;
9640: END IF;
9633: p_round_option => 'STM',
9634: x_rounded_amount => l_rounded_amount
9635: );
9636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_ERROR;
9640: END IF;
9641:
9634: x_rounded_amount => l_rounded_amount
9635: );
9636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_ERROR;
9640: END IF;
9641:
9642: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
9635: );
9636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_ERROR;
9640: END IF;
9641:
9642: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
9643:
9644: END LOOP;
9645:
9646: --update the rule record
9647: l_rulv_rec.id := l_sll_rec.sll_id;
9648: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9649: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
9650: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9651: l_rulv_rec.rule_information6 := NULL;
9652: END IF;
9646: --update the rule record
9647: l_rulv_rec.id := l_sll_rec.sll_id;
9648: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9649: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
9650: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9651: l_rulv_rec.rule_information6 := NULL;
9652: END IF;
9653: --Bug# 2757289 :enhancement for stub payments
9654: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9650: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9651: l_rulv_rec.rule_information6 := NULL;
9652: END IF;
9653: --Bug# 2757289 :enhancement for stub payments
9654: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9655: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
9656: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9657: l_rulv_rec.rule_information8 := NULL;
9658: END IF;
9652: END IF;
9653: --Bug# 2757289 :enhancement for stub payments
9654: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9655: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
9656: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9657: l_rulv_rec.rule_information8 := NULL;
9658: END IF;
9659:
9660: OKL_RULE_PUB.update_rule(
9665: x_msg_data => x_msg_data,
9666: p_rulv_rec => l_rulv_rec,
9667: x_rulv_rec => l_rulv_rec_out);
9668: --dbms_output.put_line('After updating payments :'||x_return_status);
9669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9672: RAISE OKL_API.G_EXCEPTION_ERROR;
9673: END IF;
9666: p_rulv_rec => l_rulv_rec,
9667: x_rulv_rec => l_rulv_rec_out);
9668: --dbms_output.put_line('After updating payments :'||x_return_status);
9669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9672: RAISE OKL_API.G_EXCEPTION_ERROR;
9673: END IF;
9674: END LOOP;
9667: x_rulv_rec => l_rulv_rec_out);
9668: --dbms_output.put_line('After updating payments :'||x_return_status);
9669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9672: RAISE OKL_API.G_EXCEPTION_ERROR;
9673: END IF;
9674: END LOOP;
9675: CLOSE l_sll_cur;
9668: --dbms_output.put_line('After updating payments :'||x_return_status);
9669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9672: RAISE OKL_API.G_EXCEPTION_ERROR;
9673: END IF;
9674: END LOOP;
9675: CLOSE l_sll_cur;
9676: END IF;
9740: l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT := (l_split_factor * l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT);
9741: --
9742: --price unit to be split only for split into components
9743: --old record to be adjusted only for normal split asset
9744: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9745: THEN
9746: NULL;
9747: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9748: --
9743: --old record to be adjusted only for normal split asset
9744: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9745: THEN
9746: NULL;
9747: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9748: --
9749: l_lnk_clev_rec.price_unit := (l_split_factor * l_lnk_clev_rec.price_unit);
9750: l_lnk_clev_rec.price_negotiated := (l_split_factor * l_lnk_clev_rec.price_negotiated);
9751: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
9752: --make the old line as 'ABANDONED'
9753: --l_lnk_clev_old_rec.sts_code := 'ABANDONED';
9754: END IF;
9755: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9756: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9757: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9758: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9759: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9760: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9753: --l_lnk_clev_old_rec.sts_code := 'ABANDONED';
9754: END IF;
9755: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9756: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9757: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9758: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9759: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9760: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9761: --l_lnk_clev_rec.START_DATE := sysdate;
9754: END IF;
9755: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9756: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9757: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9758: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9759: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9760: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9761: --l_lnk_clev_rec.START_DATE := sysdate;
9762: --l_clev_rec.END_DATE :=
9755: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9756: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9757: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9758: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9759: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9760: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9761: --l_lnk_clev_rec.START_DATE := sysdate;
9762: --l_clev_rec.END_DATE :=
9763: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9760: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9761: --l_lnk_clev_rec.START_DATE := sysdate;
9762: --l_clev_rec.END_DATE :=
9763: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9764: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9765: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9766: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9767: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9768: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9761: --l_lnk_clev_rec.START_DATE := sysdate;
9762: --l_clev_rec.END_DATE :=
9763: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9764: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9765: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9766: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9767: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9768: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9769: --Bug# 5946411: ER
9762: --l_clev_rec.END_DATE :=
9763: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9764: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9765: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9766: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9767: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9768: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9769: --Bug# 5946411: ER
9770: --set the status same as that of the parent line
9763: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9764: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9765: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9766: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9767: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9768: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9769: --Bug# 5946411: ER
9770: --set the status same as that of the parent line
9771: --make new line as BOOKED
9764: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9765: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9766: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9767: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9768: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9769: --Bug# 5946411: ER
9770: --set the status same as that of the parent line
9771: --make new line as BOOKED
9772: --l_lnk_clev_rec.STS_CODE := 'BOOKED';
9776: --bug# 3066375
9777: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
9778: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9779: ----
9780: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
9778: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9779: ----
9780: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9779: ----
9780: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9786: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9779: ----
9780: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9786: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9787:
9780: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9786: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9787:
9788:
9781: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9786: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9787:
9788:
9789: OKL_CONTRACT_PUB.create_contract_line(
9782: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9783: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9784: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9785: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9786: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9787:
9788:
9789: OKL_CONTRACT_PUB.create_contract_line(
9790: p_api_version => p_api_version,
9796: p_klev_rec => l_lnk_klev_rec,
9797: x_clev_rec => lx_lnk_clev_rec,
9798: x_klev_rec => lx_lnk_klev_rec);
9799: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9797: x_clev_rec => lx_lnk_clev_rec,
9798: x_klev_rec => lx_lnk_klev_rec);
9799: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805:
9798: x_klev_rec => lx_lnk_klev_rec);
9799: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805:
9806: l_lnk_cimv_rec := get_cimv_rec(p_cle_id => l_lnk_line_id, x_no_data_found => l_no_data_found);
9799: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805:
9806: l_lnk_cimv_rec := get_cimv_rec(p_cle_id => l_lnk_line_id, x_no_data_found => l_no_data_found);
9807:
9810: --raise appropriate error
9811: ELSE
9812: --End If;
9813: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
9814: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
9815: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9816: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9817: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9818:
9811: ELSE
9812: --End If;
9813: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
9814: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
9815: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9816: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9817: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9818:
9819: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9815: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9816: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9817: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9818:
9819: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9820: --number of items will remain same in case of split asset components
9821: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS;
9822: ELSE
9823: --number of items will be split in case of normal split asset
9823: --number of items will be split in case of normal split asset
9824: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS * l_split_factor;
9825: END IF;
9826:
9827: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9828: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9829: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9830: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9831: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9824: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS * l_split_factor;
9825: END IF;
9826:
9827: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9828: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9829: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9830: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9831: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9832:
9825: END IF;
9826:
9827: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9828: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9829: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9830: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9831: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9832:
9833: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9826:
9827: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9828: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9829: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9830: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9831: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9832:
9833: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9834: p_init_msg_list => p_init_msg_list,
9827: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9828: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9829: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9830: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9831: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9832:
9833: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9834: p_init_msg_list => p_init_msg_list,
9835: x_return_status => x_return_status,
9837: x_msg_data => x_msg_data,
9838: p_cimv_rec => l_lnk_cimv_rec,
9839: x_cimv_rec => lx_lnk_cimv_rec);
9840:
9841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9844: RAISE OKL_API.G_EXCEPTION_ERROR;
9845: END IF;
9838: p_cimv_rec => l_lnk_cimv_rec,
9839: x_cimv_rec => lx_lnk_cimv_rec);
9840:
9841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9844: RAISE OKL_API.G_EXCEPTION_ERROR;
9845: END IF;
9846:
9839: x_cimv_rec => lx_lnk_cimv_rec);
9840:
9841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9844: RAISE OKL_API.G_EXCEPTION_ERROR;
9845: END IF;
9846:
9847: END IF;
9840:
9841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9844: RAISE OKL_API.G_EXCEPTION_ERROR;
9845: END IF;
9846:
9847: END IF;
9848: END IF;
9879: p_rgpv_rec => l_rgpv_rec,
9880: x_rgpv_rec => lx_rgpv_rec);
9881:
9882: --dbms_output.put_line('After updating payments :'||x_return_status);
9883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9880: x_rgpv_rec => lx_rgpv_rec);
9881:
9882: --dbms_output.put_line('After updating payments :'||x_return_status);
9883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9888: END IF;
9881:
9882: --dbms_output.put_line('After updating payments :'||x_return_status);
9883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9888: END IF;
9889:
9882: --dbms_output.put_line('After updating payments :'||x_return_status);
9883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_ERROR;
9887: END IF;
9888: END IF;
9889:
9890: --Bug# 3897490
9911: p_rulv_rec => l_slh_rulv_rec,
9912: x_rulv_rec => lx_slh_rulv_rec);
9913:
9914: --dbms_output.put_line('After updating payments :'||x_return_status);
9915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9918: RAISE OKL_API.G_EXCEPTION_ERROR;
9919: END IF;
9912: x_rulv_rec => lx_slh_rulv_rec);
9913:
9914: --dbms_output.put_line('After updating payments :'||x_return_status);
9915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9918: RAISE OKL_API.G_EXCEPTION_ERROR;
9919: END IF;
9920:
9913:
9914: --dbms_output.put_line('After updating payments :'||x_return_status);
9915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9918: RAISE OKL_API.G_EXCEPTION_ERROR;
9919: END IF;
9920:
9921: --Bug# 3897490
9914: --dbms_output.put_line('After updating payments :'||x_return_status);
9915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9918: RAISE OKL_API.G_EXCEPTION_ERROR;
9919: END IF;
9920:
9921: --Bug# 3897490
9922: l_strm_type_id := l_sll_rec.strm_type_id1;
9941: l_sll_rulv_rec.rule_information2 := l_sll_rec.rule_information2;
9942: l_sll_rulv_rec.rule_information3 := l_sll_rec.rule_information3;
9943: l_sll_rulv_rec.rule_information4 := l_sll_rec.rule_information4;
9944: l_sll_rulv_rec.rule_information5 := l_sll_rec.rule_information5;
9945: IF NVL(TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9946:
9947: --Bug# 4028371
9948: --Bug# 3502142: Use Streams Rounding Option
9949: l_updated_sll_amount := TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor;
9957: p_currency_code => l_sll_rec.currency_code,
9958: p_round_option => 'STM',
9959: x_rounded_amount => l_rounded_amount
9960: );
9961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_ERROR;
9965: END IF;
9958: p_round_option => 'STM',
9959: x_rounded_amount => l_rounded_amount
9960: );
9961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_ERROR;
9965: END IF;
9966:
9959: x_rounded_amount => l_rounded_amount
9960: );
9961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_ERROR;
9965: END IF;
9966:
9967: l_updated_sll_amount := l_rounded_amount;
9960: );
9961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9964: RAISE OKL_API.G_EXCEPTION_ERROR;
9965: END IF;
9966:
9967: l_updated_sll_amount := l_rounded_amount;
9968: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
9966:
9967: l_updated_sll_amount := l_rounded_amount;
9968: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
9969:
9970: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9971: l_sll_rulv_rec.rule_information6 := NULL;
9972: END IF;
9973: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
9974: --Bug# 2757289 : For stup payments
9971: l_sll_rulv_rec.rule_information6 := NULL;
9972: END IF;
9973: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
9974: --Bug# 2757289 : For stup payments
9975: IF NVL(TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9976:
9977: --Bug# 4028371
9978: --Bug# 3502142: Use Streams Rounding Option
9979: l_updated_stub_amount := TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor;
9987: p_currency_code => l_sll_rec.currency_code,
9988: p_round_option => 'STM',
9989: x_rounded_amount => l_rounded_amount
9990: );
9991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_ERROR;
9995: END IF;
9988: p_round_option => 'STM',
9989: x_rounded_amount => l_rounded_amount
9990: );
9991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_ERROR;
9995: END IF;
9996:
9989: x_rounded_amount => l_rounded_amount
9990: );
9991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_ERROR;
9995: END IF;
9996:
9997: l_updated_stub_amount := l_rounded_amount;
9990: );
9991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_ERROR;
9995: END IF;
9996:
9997: l_updated_stub_amount := l_rounded_amount;
9998: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
9996:
9997: l_updated_stub_amount := l_rounded_amount;
9998: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
9999:
10000: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10001: l_sll_rulv_rec.rule_information8 := NULL;
10002: END IF;
10003: --l_sll_rulv_rec.rule_information8 := l_sll_rec.rule_information8;
10004: l_sll_rulv_rec.rule_information9 := l_sll_rec.rule_information9;
10018: p_rulv_rec => l_sll_rulv_rec,
10019: x_rulv_rec => lx_sll_rulv_rec);
10020:
10021: --dbms_output.put_line('After updating payments :'||x_return_status);
10022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10025: RAISE OKL_API.G_EXCEPTION_ERROR;
10026: END IF;
10019: x_rulv_rec => lx_sll_rulv_rec);
10020:
10021: --dbms_output.put_line('After updating payments :'||x_return_status);
10022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10025: RAISE OKL_API.G_EXCEPTION_ERROR;
10026: END IF;
10027:
10020:
10021: --dbms_output.put_line('After updating payments :'||x_return_status);
10022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10025: RAISE OKL_API.G_EXCEPTION_ERROR;
10026: END IF;
10027:
10028: ------------------------------------------------------------------------
10021: --dbms_output.put_line('After updating payments :'||x_return_status);
10022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10025: RAISE OKL_API.G_EXCEPTION_ERROR;
10026: END IF;
10027:
10028: ------------------------------------------------------------------------
10029:
10107: END IF;
10108: END LOOP;
10109:
10110: -- Split into units
10111: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10112:
10113: --update contract line
10114: OKL_CONTRACT_PUB.update_contract_line(
10115: p_api_version => p_api_version,
10121: p_klev_rec => l_lnk_klev_old_rec,
10122: x_clev_rec => lx_lnk_clev_old_rec,
10123: x_klev_rec => lx_lnk_klev_old_rec);
10124: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10128: RAISE OKL_API.G_EXCEPTION_ERROR;
10129: END IF;
10122: x_clev_rec => lx_lnk_clev_old_rec,
10123: x_klev_rec => lx_lnk_klev_old_rec);
10124: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10128: RAISE OKL_API.G_EXCEPTION_ERROR;
10129: END IF;
10130:
10123: x_klev_rec => lx_lnk_klev_old_rec);
10124: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10128: RAISE OKL_API.G_EXCEPTION_ERROR;
10129: END IF;
10130:
10131: -- Split into components
10124: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10128: RAISE OKL_API.G_EXCEPTION_ERROR;
10129: END IF;
10130:
10131: -- Split into components
10132: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10128: RAISE OKL_API.G_EXCEPTION_ERROR;
10129: END IF;
10130:
10131: -- Split into components
10132: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10133:
10134: l_lnk_klev_rec := l_lnk_klev_old_rec;
10135: --
10136: l_lnk_clev_rec.price_unit := (l_split_factor * l_lnk_clev_rec.price_unit);
10137: l_lnk_clev_rec.price_negotiated := (l_split_factor * l_lnk_clev_rec.price_negotiated);
10138: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
10139:
10140: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10141: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10142: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10143: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10144: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10138: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
10139:
10140: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10141: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10142: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10143: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10144: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10146:
10139:
10140: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10141: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10142: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10143: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10144: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10146:
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10140: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10141: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10142: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10143: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10144: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10146:
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10144: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10146:
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10149: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10150: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10151: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10152: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10145: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10146:
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10149: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10150: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10151: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10152: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10153: --make new line as BOOKED
10146:
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10149: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10150: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10151: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10152: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10153: --make new line as BOOKED
10154: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10147: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10149: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10150: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10151: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10152: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10153: --make new line as BOOKED
10154: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10155: --bug# 3066375
10148: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10149: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10150: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10151: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10152: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10153: --make new line as BOOKED
10154: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10155: --bug# 3066375
10156: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10155: --bug# 3066375
10156: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10157: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10158: ----
10159: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10156: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10157: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10158: ----
10159: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10157: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10158: ----
10159: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10165: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10158: ----
10159: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10165: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10166:
10159: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10165: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10166:
10167: OKL_CONTRACT_PUB.create_contract_line(
10160: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10165: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10166:
10167: OKL_CONTRACT_PUB.create_contract_line(
10168: p_api_version => p_api_version,
10161: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10162: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10163: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10164: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10165: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10166:
10167: OKL_CONTRACT_PUB.create_contract_line(
10168: p_api_version => p_api_version,
10169: p_init_msg_list => p_init_msg_list,
10174: p_klev_rec => l_lnk_klev_rec,
10175: x_clev_rec => lx_lnk_clev_rec,
10176: x_klev_rec => lx_lnk_klev_rec);
10177: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
10178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10175: x_clev_rec => lx_lnk_clev_rec,
10176: x_klev_rec => lx_lnk_klev_rec);
10177: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
10178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10176: x_klev_rec => lx_lnk_klev_rec);
10177: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
10178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10184: END IF;
10177: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
10178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10181: RAISE OKL_API.G_EXCEPTION_ERROR;
10182: END IF;
10183:
10184: END IF;
10185:
10191: ELSE
10192: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
10193:
10194: -- Split into units
10195: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10196:
10197: FOR l_new_lnk_assts_rec in l_new_lnk_assts_cur
10198: (p_chr_id => l_lnk_clev_old_rec.dnz_chr_id,
10199: p_cle_id => l_lnk_line_id) LOOP
10217: x_msg_data => x_msg_data,
10218: p_cimv_rec => l_lnk_cimv_old_rec,
10219: x_cimv_rec => lx_lnk_cimv_old_rec);
10220:
10221: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10224: RAISE OKL_API.G_EXCEPTION_ERROR;
10225: END IF;
10218: p_cimv_rec => l_lnk_cimv_old_rec,
10219: x_cimv_rec => lx_lnk_cimv_old_rec);
10220:
10221: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10224: RAISE OKL_API.G_EXCEPTION_ERROR;
10225: END IF;
10226:
10219: x_cimv_rec => lx_lnk_cimv_old_rec);
10220:
10221: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10224: RAISE OKL_API.G_EXCEPTION_ERROR;
10225: END IF;
10226:
10227: -- Split into components
10220:
10221: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10224: RAISE OKL_API.G_EXCEPTION_ERROR;
10225: END IF;
10226:
10227: -- Split into components
10228: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10224: RAISE OKL_API.G_EXCEPTION_ERROR;
10225: END IF;
10226:
10227: -- Split into components
10228: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10229:
10230: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10231: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10232: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10226:
10227: -- Split into components
10228: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10229:
10230: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10231: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10232: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10233: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10234:
10227: -- Split into components
10228: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10229:
10230: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10231: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10232: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10233: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10234:
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10231: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10232: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10233: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10234:
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10236: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10237: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10238: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10239: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10232: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10233: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10234:
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10236: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10237: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10238: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10239: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10240:
10233: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10234:
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10236: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10237: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10238: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10239: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10240:
10241: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10234:
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10236: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10237: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10238: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10239: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10240:
10241: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10242: p_init_msg_list => p_init_msg_list,
10235: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10236: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10237: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10238: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10239: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10240:
10241: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10242: p_init_msg_list => p_init_msg_list,
10243: x_return_status => x_return_status,
10245: x_msg_data => x_msg_data,
10246: p_cimv_rec => l_lnk_cimv_rec,
10247: x_cimv_rec => lx_lnk_cimv_rec);
10248:
10249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_ERROR;
10253: END IF;
10246: p_cimv_rec => l_lnk_cimv_rec,
10247: x_cimv_rec => lx_lnk_cimv_rec);
10248:
10249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_ERROR;
10253: END IF;
10254: END IF;
10247: x_cimv_rec => lx_lnk_cimv_rec);
10248:
10249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_ERROR;
10253: END IF;
10254: END IF;
10255:
10248:
10249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_ERROR;
10253: END IF;
10254: END IF;
10255:
10256: END IF; -- cimv rec found
10268:
10269: l_split_pymt_sum := 0;
10270:
10271: -- Split into units
10272: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10273: l_target_kle_id := p_txlv_rec.kle_id;
10274:
10275: -- Split into components
10276: ELSE
10283: FOR l_txd_rec in l_txd_csr(p_tal_id => p_txlv_rec.id
10284: ,p_cle_id => l_target_kle_id)
10285: LOOP
10286:
10287: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10288: l_sll_split_factor := l_txd_rec.quantity/p_txlv_rec.current_units;
10289: ELSE
10290: l_sll_split_factor := l_txd_rec.split_percent/100;
10291: END IF;
10289: ELSE
10290: l_sll_split_factor := l_txd_rec.split_percent/100;
10291: END IF;
10292:
10293: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10294: l_split_pymt := l_sll_amount * l_sll_split_factor;
10295: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10296: l_split_pymt := l_stub_amount * l_sll_split_factor;
10297: END IF;
10291: END IF;
10292:
10293: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10294: l_split_pymt := l_sll_amount * l_sll_split_factor;
10295: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10296: l_split_pymt := l_stub_amount * l_sll_split_factor;
10297: END IF;
10298:
10299: okl_accounting_util.round_amount(
10306: p_currency_code => l_sll_rec.currency_code,
10307: p_round_option => 'STM',
10308: x_rounded_amount => l_rounded_amount
10309: );
10310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10313: RAISE OKL_API.G_EXCEPTION_ERROR;
10314: END IF;
10307: p_round_option => 'STM',
10308: x_rounded_amount => l_rounded_amount
10309: );
10310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10313: RAISE OKL_API.G_EXCEPTION_ERROR;
10314: END IF;
10315:
10308: x_rounded_amount => l_rounded_amount
10309: );
10310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10313: RAISE OKL_API.G_EXCEPTION_ERROR;
10314: END IF;
10315:
10316: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
10309: );
10310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10312: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10313: RAISE OKL_API.G_EXCEPTION_ERROR;
10314: END IF;
10315:
10316: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
10317:
10317:
10318: END LOOP;
10319:
10320: -- Split into units
10321: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10322:
10323: --update the rule record
10324: l_rulv_rec.id := l_sll_rec.sll_id;
10325: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10321: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10322:
10323: --update the rule record
10324: l_rulv_rec.id := l_sll_rec.sll_id;
10325: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10326: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
10327: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10328: l_rulv_rec.rule_information6 := NULL;
10329: END IF;
10323: --update the rule record
10324: l_rulv_rec.id := l_sll_rec.sll_id;
10325: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10326: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
10327: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10328: l_rulv_rec.rule_information6 := NULL;
10329: END IF;
10330:
10331: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10327: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10328: l_rulv_rec.rule_information6 := NULL;
10329: END IF;
10330:
10331: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10332: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
10333: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10334: l_rulv_rec.rule_information8 := NULL;
10335: END IF;
10329: END IF;
10330:
10331: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10332: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
10333: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10334: l_rulv_rec.rule_information8 := NULL;
10335: END IF;
10336:
10337: OKL_RULE_PUB.update_rule(
10343: p_rulv_rec => l_rulv_rec,
10344: x_rulv_rec => l_rulv_rec_out);
10345:
10346: --dbms_output.put_line('After updating payments :'||x_return_status);
10347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10350: RAISE OKL_API.G_EXCEPTION_ERROR;
10351: END IF;
10344: x_rulv_rec => l_rulv_rec_out);
10345:
10346: --dbms_output.put_line('After updating payments :'||x_return_status);
10347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10350: RAISE OKL_API.G_EXCEPTION_ERROR;
10351: END IF;
10352:
10345:
10346: --dbms_output.put_line('After updating payments :'||x_return_status);
10347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10350: RAISE OKL_API.G_EXCEPTION_ERROR;
10351: END IF;
10352:
10353: -- Split into components
10346: --dbms_output.put_line('After updating payments :'||x_return_status);
10347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10348: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10349: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10350: RAISE OKL_API.G_EXCEPTION_ERROR;
10351: END IF;
10352:
10353: -- Split into components
10354: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10350: RAISE OKL_API.G_EXCEPTION_ERROR;
10351: END IF;
10352:
10353: -- Split into components
10354: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10355:
10356: IF l_sll_cur%RowCount = 1 THEN
10357: l_rgpv_rec.rgd_code := 'LALEVL';
10358: l_rgpv_rec.cle_id := lx_lnk_clev_rec.id;
10368: p_rgpv_rec => l_rgpv_rec,
10369: x_rgpv_rec => lx_rgpv_rec);
10370:
10371: --dbms_output.put_line('After updating payments :'||x_return_status);
10372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10375: RAISE OKL_API.G_EXCEPTION_ERROR;
10376: END IF;
10369: x_rgpv_rec => lx_rgpv_rec);
10370:
10371: --dbms_output.put_line('After updating payments :'||x_return_status);
10372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10375: RAISE OKL_API.G_EXCEPTION_ERROR;
10376: END IF;
10377: END IF;
10370:
10371: --dbms_output.put_line('After updating payments :'||x_return_status);
10372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10375: RAISE OKL_API.G_EXCEPTION_ERROR;
10376: END IF;
10377: END IF;
10378:
10371: --dbms_output.put_line('After updating payments :'||x_return_status);
10372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10375: RAISE OKL_API.G_EXCEPTION_ERROR;
10376: END IF;
10377: END IF;
10378:
10379: --Bug# 3897490
10399: p_rulv_rec => l_slh_rulv_rec,
10400: x_rulv_rec => lx_slh_rulv_rec);
10401:
10402: --dbms_output.put_line('After updating payments :'||x_return_status);
10403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10406: RAISE OKL_API.G_EXCEPTION_ERROR;
10407: END IF;
10400: x_rulv_rec => lx_slh_rulv_rec);
10401:
10402: --dbms_output.put_line('After updating payments :'||x_return_status);
10403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10406: RAISE OKL_API.G_EXCEPTION_ERROR;
10407: END IF;
10408:
10401:
10402: --dbms_output.put_line('After updating payments :'||x_return_status);
10403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10406: RAISE OKL_API.G_EXCEPTION_ERROR;
10407: END IF;
10408:
10409: --Bug# 3897490
10402: --dbms_output.put_line('After updating payments :'||x_return_status);
10403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10406: RAISE OKL_API.G_EXCEPTION_ERROR;
10407: END IF;
10408:
10409: --Bug# 3897490
10410: l_strm_type_id := l_sll_rec.strm_type_id1;
10430: l_sll_rulv_rec.rule_information3 := l_sll_rec.rule_information3;
10431: l_sll_rulv_rec.rule_information4 := l_sll_rec.rule_information4;
10432: l_sll_rulv_rec.rule_information5 := l_sll_rec.rule_information5;
10433:
10434: IF NVL(TO_NUMBER(l_sll_rec.amount_sll),OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10435:
10436: --Bug# 4028371
10437: --Bug# 3502142: Use Streams Rounding Option
10438: l_updated_sll_amount := TO_NUMBER(l_sll_rec.amount_sll) - l_split_pymt_sum;
10446: p_currency_code => l_sll_rec.currency_code,
10447: p_round_option => 'STM',
10448: x_rounded_amount => l_rounded_amount
10449: );
10450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_ERROR;
10454: END IF;
10447: p_round_option => 'STM',
10448: x_rounded_amount => l_rounded_amount
10449: );
10450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_ERROR;
10454: END IF;
10455:
10448: x_rounded_amount => l_rounded_amount
10449: );
10450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_ERROR;
10454: END IF;
10455:
10456: l_updated_sll_amount := l_rounded_amount;
10449: );
10450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_ERROR;
10454: END IF;
10455:
10456: l_updated_sll_amount := l_rounded_amount;
10457: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
10455:
10456: l_updated_sll_amount := l_rounded_amount;
10457: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
10458:
10459: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_sll),OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10460: l_sll_rulv_rec.rule_information6 := NULL;
10461: END IF;
10462: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
10463: --Bug# 2757289 : For stup payments
10460: l_sll_rulv_rec.rule_information6 := NULL;
10461: END IF;
10462: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
10463: --Bug# 2757289 : For stup payments
10464: IF NVL(TO_NUMBER(l_sll_rec.amount_stub),OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10465:
10466: --Bug# 4028371
10467: --Bug# 3502142: Use Streams Rounding Option
10468: l_updated_stub_amount := TO_NUMBER(l_sll_rec.amount_stub) - l_split_pymt_sum;
10476: p_currency_code => l_sll_rec.currency_code,
10477: p_round_option => 'STM',
10478: x_rounded_amount => l_rounded_amount
10479: );
10480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10483: RAISE OKL_API.G_EXCEPTION_ERROR;
10484: END IF;
10477: p_round_option => 'STM',
10478: x_rounded_amount => l_rounded_amount
10479: );
10480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10483: RAISE OKL_API.G_EXCEPTION_ERROR;
10484: END IF;
10485:
10478: x_rounded_amount => l_rounded_amount
10479: );
10480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10483: RAISE OKL_API.G_EXCEPTION_ERROR;
10484: END IF;
10485:
10486: l_updated_stub_amount := l_rounded_amount;
10479: );
10480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10483: RAISE OKL_API.G_EXCEPTION_ERROR;
10484: END IF;
10485:
10486: l_updated_stub_amount := l_rounded_amount;
10487: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
10485:
10486: l_updated_stub_amount := l_rounded_amount;
10487: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
10488:
10489: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_stub),OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10490: l_sll_rulv_rec.rule_information8 := NULL;
10491: END IF;
10492: --l_sll_rulv_rec.rule_information8 := l_sll_rec.rule_information8;
10493: l_sll_rulv_rec.rule_information9 := l_sll_rec.rule_information9;
10507: p_rulv_rec => l_sll_rulv_rec,
10508: x_rulv_rec => lx_sll_rulv_rec);
10509:
10510: --dbms_output.put_line('After updating payments :'||x_return_status);
10511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10514: RAISE OKL_API.G_EXCEPTION_ERROR;
10515: END IF;
10508: x_rulv_rec => lx_sll_rulv_rec);
10509:
10510: --dbms_output.put_line('After updating payments :'||x_return_status);
10511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10514: RAISE OKL_API.G_EXCEPTION_ERROR;
10515: END IF;
10516:
10509:
10510: --dbms_output.put_line('After updating payments :'||x_return_status);
10511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10514: RAISE OKL_API.G_EXCEPTION_ERROR;
10515: END IF;
10516:
10517: END IF;
10510: --dbms_output.put_line('After updating payments :'||x_return_status);
10511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10514: RAISE OKL_API.G_EXCEPTION_ERROR;
10515: END IF;
10516:
10517: END IF;
10518:
10533: p_cle_id =>l_fa_line_id ,
10534: p_txdv_rec =>p_txdv_rec,
10535: p_txlv_rec =>p_txlv_rec
10536: );
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10534: p_txdv_rec =>p_txdv_rec,
10535: p_txlv_rec =>p_txlv_rec
10536: );
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10535: p_txlv_rec =>p_txlv_rec
10536: );
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10543: -- Bug# 6344223
10536: );
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10543: -- Bug# 6344223
10544:
10541: END IF;
10542:
10543: -- Bug# 6344223
10544:
10545: OKL_API.END_ACTIVITY (x_msg_count,
10546: x_msg_data );
10547: EXCEPTION
10548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10544:
10545: OKL_API.END_ACTIVITY (x_msg_count,
10546: x_msg_data );
10547: EXCEPTION
10548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10550: l_api_name,
10551: G_PKG_NAME,
10552: 'OKL_API.G_RET_STS_ERROR',
10545: OKL_API.END_ACTIVITY (x_msg_count,
10546: x_msg_data );
10547: EXCEPTION
10548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10550: l_api_name,
10551: G_PKG_NAME,
10552: 'OKL_API.G_RET_STS_ERROR',
10553: x_msg_count,
10548: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10550: l_api_name,
10551: G_PKG_NAME,
10552: 'OKL_API.G_RET_STS_ERROR',
10553: x_msg_count,
10554: x_msg_data,
10555: '_PVT');
10556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10552: 'OKL_API.G_RET_STS_ERROR',
10553: x_msg_count,
10554: x_msg_data,
10555: '_PVT');
10556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10557: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10558: l_api_name,
10559: G_PKG_NAME,
10560: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10553: x_msg_count,
10554: x_msg_data,
10555: '_PVT');
10556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10557: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10558: l_api_name,
10559: G_PKG_NAME,
10560: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10561: x_msg_count,
10556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10557: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10558: l_api_name,
10559: G_PKG_NAME,
10560: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10561: x_msg_count,
10562: x_msg_data,
10563: '_PVT');
10564: WHEN OTHERS THEN
10561: x_msg_count,
10562: x_msg_data,
10563: '_PVT');
10564: WHEN OTHERS THEN
10565: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10566: l_api_name,
10567: G_PKG_NAME,
10568: 'OTHERS',
10569: x_msg_count,
10579: --End of Comments
10580: --------------------------------------------------------------------------------
10581: PROCEDURE ABANDON_PARENT_ASSET(
10582: p_api_version IN NUMBER,
10583: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10584: x_return_status OUT NOCOPY VARCHAR2,
10585: x_msg_count OUT NOCOPY NUMBER,
10586: x_msg_data OUT NOCOPY VARCHAR2,
10587: p_cle_id IN NUMBER) IS
10585: x_msg_count OUT NOCOPY NUMBER,
10586: x_msg_data OUT NOCOPY VARCHAR2,
10587: p_cle_id IN NUMBER) IS
10588:
10589: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
10590: l_api_name CONSTANT VARCHAR2(30) := 'ABANDON_PARENT_ASSET';
10591: l_api_version CONSTANT NUMBER := 1.0;
10592:
10593: CURSOR c_lines_cur(p_cle_id IN NUMBER) IS
10629: lx_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10630:
10631: BEGIN
10632: -----
10633: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10634: -- Call start_activity to create savepoint, check compatibility
10635: -- and initialize message list
10636: x_return_status := OKL_API.START_ACTIVITY (
10637: l_api_name
10632: -----
10633: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10634: -- Call start_activity to create savepoint, check compatibility
10635: -- and initialize message list
10636: x_return_status := OKL_API.START_ACTIVITY (
10637: l_api_name
10638: ,p_init_msg_list
10639: ,'_PVT'
10640: ,x_return_status);
10638: ,p_init_msg_list
10639: ,'_PVT'
10640: ,x_return_status);
10641: -- Check if activity started successfully
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10639: ,'_PVT'
10640: ,x_return_status);
10641: -- Check if activity started successfully
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647:
10640: ,x_return_status);
10641: -- Check if activity started successfully
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647:
10648: OPEN c_lines_cur(p_cle_id => p_cle_id);
10641: -- Check if activity started successfully
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647:
10648: OPEN c_lines_cur(p_cle_id => p_cle_id);
10649: LOOP
10677: x_msg_data => x_msg_data,
10678: p_clev_rec => l_lnk_clev_rec,
10679: x_clev_rec => lx_lnk_clev_rec);
10680:
10681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10684: RAISE OKL_API.G_EXCEPTION_ERROR;
10685: END IF;
10678: p_clev_rec => l_lnk_clev_rec,
10679: x_clev_rec => lx_lnk_clev_rec);
10680:
10681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10684: RAISE OKL_API.G_EXCEPTION_ERROR;
10685: END IF;
10686:
10679: x_clev_rec => lx_lnk_clev_rec);
10680:
10681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10684: RAISE OKL_API.G_EXCEPTION_ERROR;
10685: END IF;
10686:
10687: END LOOP;
10680:
10681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10684: RAISE OKL_API.G_EXCEPTION_ERROR;
10685: END IF;
10686:
10687: END LOOP;
10688: CLOSE l_lnk_asst_csr;
10690:
10691: END LOOP;
10692: CLOSE c_lines_cur;
10693: --will also have to think about UBB
10694: OKL_API.END_ACTIVITY (x_msg_count,
10695: x_msg_data );
10696: EXCEPTION
10697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10698: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10693: --will also have to think about UBB
10694: OKL_API.END_ACTIVITY (x_msg_count,
10695: x_msg_data );
10696: EXCEPTION
10697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10698: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10699: l_api_name,
10700: G_PKG_NAME,
10701: 'OKL_API.G_RET_STS_ERROR',
10694: OKL_API.END_ACTIVITY (x_msg_count,
10695: x_msg_data );
10696: EXCEPTION
10697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10698: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10699: l_api_name,
10700: G_PKG_NAME,
10701: 'OKL_API.G_RET_STS_ERROR',
10702: x_msg_count,
10697: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10698: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10699: l_api_name,
10700: G_PKG_NAME,
10701: 'OKL_API.G_RET_STS_ERROR',
10702: x_msg_count,
10703: x_msg_data,
10704: '_PVT');
10705: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10701: 'OKL_API.G_RET_STS_ERROR',
10702: x_msg_count,
10703: x_msg_data,
10704: '_PVT');
10705: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10706: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10707: l_api_name,
10708: G_PKG_NAME,
10709: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10702: x_msg_count,
10703: x_msg_data,
10704: '_PVT');
10705: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10706: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10707: l_api_name,
10708: G_PKG_NAME,
10709: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10710: x_msg_count,
10705: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10706: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10707: l_api_name,
10708: G_PKG_NAME,
10709: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10710: x_msg_count,
10711: x_msg_data,
10712: '_PVT');
10713: WHEN OTHERS THEN
10710: x_msg_count,
10711: x_msg_data,
10712: '_PVT');
10713: WHEN OTHERS THEN
10714: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10715: l_api_name,
10716: G_PKG_NAME,
10717: 'OTHERS',
10718: x_msg_count,
10734: p_start_date IN DATE,
10735: x_amortization_date OUT NOCOPY DATE,
10736: x_special_treatment_required OUT NOCOPY VARCHAR2
10737: ) IS
10738: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
10739: l_api_name CONSTANT varchar2(30) := 'is_evergreen_df_lease';
10740: l_api_version CONSTANT NUMBER := 1.0;
10741: --cursor to find book class
10742: CURSOR l_book_class_cur(p_book_type_code IN VARCHAR2) IS
10819: l_trans_date_aus DATE;
10820: l_trans_date_amt DATE;
10821: BEGIN
10822: --call start activity to set savepoint
10823: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
10824: p_init_msg_list,
10825: '_PVT',
10826: x_return_status);
10827: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10823: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
10824: p_init_msg_list,
10825: '_PVT',
10826: x_return_status);
10827: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10829: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_ERROR;
10831: END IF;
10824: p_init_msg_list,
10825: '_PVT',
10826: x_return_status);
10827: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10829: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_ERROR;
10831: END IF;
10832: l_pdtv_rec.id := p_pdt_id;
10825: '_PVT',
10826: x_return_status);
10827: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10829: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_ERROR;
10831: END IF;
10832: l_pdtv_rec.id := p_pdt_id;
10833: l_no_data_found := TRUE;
10826: x_return_status);
10827: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10829: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10830: RAISE OKL_API.G_EXCEPTION_ERROR;
10831: END IF;
10832: l_pdtv_rec.id := p_pdt_id;
10833: l_no_data_found := TRUE;
10834: l_pdt_date :=p_start_date;
10846: OKC_API.set_message( p_app_name => 'OKL',
10847: p_msg_name => 'OKL_AM_FIN_PROD_PARAM_ERR',
10848: p_token1 => 'CONTRACT_NUMBER',
10849: p_token1_value => l_contract_number);
10850: RAISE OKL_API.G_EXCEPTION_ERROR;
10851: END IF;
10852: --dbms_output.put_line('l_pdt_parameter_rec.reporting_pdt_id '||l_pdt_parameter_rec.reporting_pdt_id );
10853: l_mg_rep_book :=NULL;
10854: if l_pdt_parameter_rec.reporting_pdt_id IS NULL Then
10873: x_msg_data => x_msg_data,
10874: p_pdtv_rec => l_pdtv_rec,
10875: p_product_date => l_pdt_date,
10876: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
10877: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10878: -- Error getting reporting product parameters for contract CONTRACT_NUMBER.
10879: OKC_API.set_message( p_app_name => 'OKL',
10880: p_msg_name => 'OKL_AM_REP_PROD_PARAM_ERR',
10881: p_token1 => 'CONTRACT_NUMBER',
10879: OKC_API.set_message( p_app_name => 'OKL',
10880: p_msg_name => 'OKL_AM_REP_PROD_PARAM_ERR',
10881: p_token1 => 'CONTRACT_NUMBER',
10882: p_token1_value => l_contract_number);
10883: RAISE OKL_API.G_EXCEPTION_ERROR;
10884: Else
10885: l_rep_deal_type := l_rep_pdt_parameter_rec.deal_type;
10886: l_rep_tax_owner := l_rep_pdt_parameter_rec.tax_owner;
10887: IF l_rep_deal_type IS NULL OR l_rep_deal_type = OKC_API.G_MISS_CHAR THEN
10889: OKC_API.set_message( p_app_name => 'OKL',
10890: p_msg_name => 'OKL_AM_NO_MG_DEAL_TYPE',
10891: p_token1 => 'REP_PROD',
10892: p_token1_value => l_reporting_product);
10893: RAISE OKL_API.G_EXCEPTION_ERROR;
10894: End If;
10895: l_Multi_GAAP_YN := 'Y';
10896: End If;
10897: -- get the MG reporting book
10899: l_mg_rep_book := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
10900:
10901: IF l_mg_rep_book IS NULL THEN
10902: --Multi GAAP Reporting Book is not defined.
10903: OKL_API.set_message( p_app_name => 'OKL',
10904: p_msg_name => 'OKL_AM_NO_MG_REP_BOOK');
10905: RAISE OKL_API.G_EXCEPTION_ERROR;
10906: END IF; --mg book
10907: END IF; --l_rep_pdt_id IS not null
10901: IF l_mg_rep_book IS NULL THEN
10902: --Multi GAAP Reporting Book is not defined.
10903: OKL_API.set_message( p_app_name => 'OKL',
10904: p_msg_name => 'OKL_AM_NO_MG_REP_BOOK');
10905: RAISE OKL_API.G_EXCEPTION_ERROR;
10906: END IF; --mg book
10907: END IF; --l_rep_pdt_id IS not null
10908: END IF; --reporting_pdt_id IS NULL
10909: l_book_class := NULL;
10954: END IF;
10955: x_amortization_date := l_amortization_date;
10956: x_special_treatment_required := l_special_treatment_required;
10957: --Call end Activity
10958: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10959: EXCEPTION
10960: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10962: l_api_name,
10956: x_special_treatment_required := l_special_treatment_required;
10957: --Call end Activity
10958: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10959: EXCEPTION
10960: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10962: l_api_name,
10963: G_PKG_NAME,
10964: 'OKL_API.G_RET_STS_ERROR',
10957: --Call end Activity
10958: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10959: EXCEPTION
10960: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10962: l_api_name,
10963: G_PKG_NAME,
10964: 'OKL_API.G_RET_STS_ERROR',
10965: x_msg_count,
10960: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10962: l_api_name,
10963: G_PKG_NAME,
10964: 'OKL_API.G_RET_STS_ERROR',
10965: x_msg_count,
10966: x_msg_data,
10967: '_PVT');
10968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10964: 'OKL_API.G_RET_STS_ERROR',
10965: x_msg_count,
10966: x_msg_data,
10967: '_PVT');
10968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10969: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10970: l_api_name,
10971: G_PKG_NAME,
10972: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10965: x_msg_count,
10966: x_msg_data,
10967: '_PVT');
10968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10969: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10970: l_api_name,
10971: G_PKG_NAME,
10972: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10973: x_msg_count,
10968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10969: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10970: l_api_name,
10971: G_PKG_NAME,
10972: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10973: x_msg_count,
10974: x_msg_data,
10975: '_PVT');
10976: WHEN OTHERS THEN
10973: x_msg_count,
10974: x_msg_data,
10975: '_PVT');
10976: WHEN OTHERS THEN
10977: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10978: l_api_name,
10979: G_PKG_NAME,
10980: 'OTHERS',
10981: x_msg_count,
11014: -- original contract
11015: --End of Comments
11016: --------------------------------------------------------------------------------
11017: PROCEDURE FIXED_ASSET_ADD (p_api_version IN NUMBER,
11018: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11019: x_return_status OUT NOCOPY VARCHAR2,
11020: x_msg_count OUT NOCOPY NUMBER,
11021: x_msg_data OUT NOCOPY VARCHAR2,
11022: p_ast_line_rec IN ast_line_rec_type,
11038: --Bug# 4028371
11039: x_fa_trx_date OUT NOCOPY date,
11040: x_asset_hdr_rec OUT NOCOPY FA_API_TYPES.asset_hdr_rec_type) IS
11041:
11042: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
11043: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_ADD';
11044: l_api_version CONSTANT NUMBER := 1.0;
11045:
11046: l_trans_rec FA_API_TYPES.trans_rec_type;
11198: --Bug# 6955027
11199: x_log_level_rec FA_API_TYPES.log_level_rec_type;
11200:
11201: BEGIN
11202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11203: -- Call start_activity to create savepoint, check compatibility
11204: -- and initialize message list
11205: x_return_status := OKL_API.START_ACTIVITY (
11206: l_api_name
11201: BEGIN
11202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11203: -- Call start_activity to create savepoint, check compatibility
11204: -- and initialize message list
11205: x_return_status := OKL_API.START_ACTIVITY (
11206: l_api_name
11207: ,p_init_msg_list
11208: ,'_PVT'
11209: ,x_return_status);
11207: ,p_init_msg_list
11208: ,'_PVT'
11209: ,x_return_status);
11210: -- Check if activity started successfully
11211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11214: RAISE OKL_API.G_EXCEPTION_ERROR;
11215: END IF;
11208: ,'_PVT'
11209: ,x_return_status);
11210: -- Check if activity started successfully
11211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11214: RAISE OKL_API.G_EXCEPTION_ERROR;
11215: END IF;
11216:
11209: ,x_return_status);
11210: -- Check if activity started successfully
11211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11214: RAISE OKL_API.G_EXCEPTION_ERROR;
11215: END IF;
11216:
11217: --dbms_output.enable(1000000);
11210: -- Check if activity started successfully
11211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11214: RAISE OKL_API.G_EXCEPTION_ERROR;
11215: END IF;
11216:
11217: --dbms_output.enable(1000000);
11218:
11226: X_trx_type => 'ADJUSTMENT',
11227: X_trx_date => NULL,
11228: X_init_message_flag => 'NO',
11229: p_log_level_rec => x_log_level_rec) then
11230: RAISE OKL_API.G_EXCEPTION_ERROR;
11231: END IF;
11232: --Bug# 6955027
11233:
11234: -----------------
11283: NULL;
11284: END IF;
11285: CLOSE asset_k_ccid_cur;
11286:
11287: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
11288: l_split_factor := (p_txdv_rec.split_percent/100);
11289: l_asset_desc_rec.current_units := p_ast_line_rec.current_units;
11290: ELSE
11291: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11380: */
11381: l_asset_fin_rec.depreciate_flag := l_depreciate_flag;
11382: l_asset_fin_rec.deprn_limit_type :=l_deprn_limit_type;
11383: if NOT fa_cache_pkg.fazcbc(x_book => p_ast_line_rec.corporate_book) then
11384: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11385: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11386: );
11387: Raise OKL_API.G_EXCEPTION_ERROR;
11388: end if;
11383: if NOT fa_cache_pkg.fazcbc(x_book => p_ast_line_rec.corporate_book) then
11384: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11385: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11386: );
11387: Raise OKL_API.G_EXCEPTION_ERROR;
11388: end if;
11389: l_asset_hdr_orig_rec.asset_id:=p_ast_line_rec.asset_id;
11390: l_asset_hdr_orig_rec.book_type_code := p_ast_line_rec.corporate_book;
11391: -- To fetch Depreciation Reserve
11394: px_asset_deprn_rec => l_asset_deprn_rec,
11395: p_period_counter => NULL,
11396: p_mrc_sob_type_code => 'P'
11397: ) then
11398: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11399: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11400: );
11401: Raise OKL_API.G_EXCEPTION_ERROR;
11402: end if;
11397: ) then
11398: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11399: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11400: );
11401: Raise OKL_API.G_EXCEPTION_ERROR;
11402: end if;
11403: l_asset_deprn_rec.ytd_deprn:= l_asset_deprn_rec.ytd_deprn - (l_asset_deprn_rec.ytd_deprn -(l_asset_deprn_rec.ytd_deprn*l_split_factor));
11404: l_asset_deprn_rec.deprn_reserve:= l_asset_deprn_rec.deprn_reserve - (l_asset_deprn_rec.deprn_reserve -(l_asset_deprn_rec.deprn_reserve*l_split_factor));
11405: l_asset_deprn_rec.prior_fy_expense:=l_asset_deprn_rec.prior_fy_expense - (l_asset_deprn_rec.prior_fy_expense-(l_asset_deprn_rec.prior_fy_expense*l_split_factor));
11451: p_pdt_id => l_pdt_id,
11452: p_start_date => l_start_date,
11453: x_amortization_date => l_amortization_date,
11454: x_special_treatment_required => l_special_treatment_required);
11455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11458: RAISE OKL_API.G_EXCEPTION_ERROR;
11459: END IF;
11452: p_start_date => l_start_date,
11453: x_amortization_date => l_amortization_date,
11454: x_special_treatment_required => l_special_treatment_required);
11455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11458: RAISE OKL_API.G_EXCEPTION_ERROR;
11459: END IF;
11460: if (l_special_treatment_required = 'Y') then
11453: x_amortization_date => l_amortization_date,
11454: x_special_treatment_required => l_special_treatment_required);
11455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11458: RAISE OKL_API.G_EXCEPTION_ERROR;
11459: END IF;
11460: if (l_special_treatment_required = 'Y') then
11461: l_temp_cost := l_asset_fin_rec.cost;
11454: x_special_treatment_required => l_special_treatment_required);
11455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11458: RAISE OKL_API.G_EXCEPTION_ERROR;
11459: END IF;
11460: if (l_special_treatment_required = 'Y') then
11461: l_temp_cost := l_asset_fin_rec.cost;
11462: l_temp_original_cost := l_asset_fin_rec.original_cost;
11481: --dbms_output.put_line('Add '||l_asset_desc_rec.asset_number || ' Deprn reserve '||to_char(l_asset_deprn_rec.deprn_reserve));
11482: -- call the api
11483: fa_addition_pub.do_addition
11484: (p_api_version => p_api_version,
11485: p_init_msg_list => OKL_API.G_FALSE,
11486: p_commit => OKL_API.G_FALSE,
11487: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11488: x_return_status => x_return_status,
11489: x_msg_count => x_msg_count,
11482: -- call the api
11483: fa_addition_pub.do_addition
11484: (p_api_version => p_api_version,
11485: p_init_msg_list => OKL_API.G_FALSE,
11486: p_commit => OKL_API.G_FALSE,
11487: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11488: x_return_status => x_return_status,
11489: x_msg_count => x_msg_count,
11490: x_msg_data => x_msg_data,
11503: px_inv_tbl => l_inv_tbl
11504: );
11505:
11506: --dbms_output.put_line(x_return_status);
11507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11510: RAISE OKL_API.G_EXCEPTION_ERROR;
11511: END IF;
11504: );
11505:
11506: --dbms_output.put_line(x_return_status);
11507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11510: RAISE OKL_API.G_EXCEPTION_ERROR;
11511: END IF;
11512:
11505:
11506: --dbms_output.put_line(x_return_status);
11507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11510: RAISE OKL_API.G_EXCEPTION_ERROR;
11511: END IF;
11512:
11513: --bug# 6373605 -- call populate sla sources
11506: --dbms_output.put_line(x_return_status);
11507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11510: RAISE OKL_API.G_EXCEPTION_ERROR;
11511: END IF;
11512:
11513: --bug# 6373605 -- call populate sla sources
11514: l_fxhv_rec.source_id := p_sla_source_header_id;
11532: ,x_return_status => x_return_status
11533: ,x_msg_count => x_msg_count
11534: ,x_msg_data => x_msg_data
11535: );
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11533: ,x_msg_count => x_msg_count
11534: ,x_msg_data => x_msg_data
11535: );
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: --bug# 6373605 -- call populate SLA sources
11534: ,x_msg_data => x_msg_data
11535: );
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: --bug# 6373605 -- call populate SLA sources
11542:
11535: );
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: --bug# 6373605 -- call populate SLA sources
11542:
11543: --Bug# 6061103
11558:
11559: FA_ADJUSTMENT_PUB.do_adjustment
11560: (p_api_version => p_api_version,
11561: p_init_msg_list => p_init_msg_list,
11562: p_commit => OKL_API.G_FALSE,
11563: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11564: x_return_status => x_return_status,
11565: x_msg_count => x_msg_count,
11566: x_msg_data => x_msg_data,
11579: x_asset_deprn_mrc_tbl_new => l_adj_asset_deprn_mrc_tbl_new,
11580: p_group_reclass_options_rec => l_adj_group_recalss_option_rec
11581: );
11582: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11586: RAISE OKL_API.G_EXCEPTION_ERROR;
11587: END IF;
11580: p_group_reclass_options_rec => l_adj_group_recalss_option_rec
11581: );
11582: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11586: RAISE OKL_API.G_EXCEPTION_ERROR;
11587: END IF;
11588:
11581: );
11582: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11586: RAISE OKL_API.G_EXCEPTION_ERROR;
11587: END IF;
11588:
11589: --bug# 6373605 -- call populate sla sources
11582: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11586: RAISE OKL_API.G_EXCEPTION_ERROR;
11587: END IF;
11588:
11589: --bug# 6373605 -- call populate sla sources
11590: l_fxhv_rec.source_id := p_sla_source_header_id;
11608: ,x_return_status => x_return_status
11609: ,x_msg_count => x_msg_count
11610: ,x_msg_data => x_msg_data
11611: );
11612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11615: RAISE OKL_API.G_EXCEPTION_ERROR;
11616: END IF;
11609: ,x_msg_count => x_msg_count
11610: ,x_msg_data => x_msg_data
11611: );
11612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11615: RAISE OKL_API.G_EXCEPTION_ERROR;
11616: END IF;
11617: --bug# 6373605 -- call populate SLA sources
11610: ,x_msg_data => x_msg_data
11611: );
11612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11615: RAISE OKL_API.G_EXCEPTION_ERROR;
11616: END IF;
11617: --bug# 6373605 -- call populate SLA sources
11618:
11611: );
11612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11615: RAISE OKL_API.G_EXCEPTION_ERROR;
11616: END IF;
11617: --bug# 6373605 -- call populate SLA sources
11618:
11619: end if;
11620: x_asset_hdr_rec := l_asset_hdr_rec;
11621: --Bug# 4028371
11622: x_fa_trx_date := l_adj_trans_rec.transaction_date_entered; -- for 6061103 chaged to adj
11623:
11624: OKL_API.END_ACTIVITY (x_msg_count,
11625: x_msg_data );
11626: EXCEPTION
11627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11623:
11624: OKL_API.END_ACTIVITY (x_msg_count,
11625: x_msg_data );
11626: EXCEPTION
11627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11629: l_api_name,
11630: G_PKG_NAME,
11631: 'OKL_API.G_RET_STS_ERROR',
11624: OKL_API.END_ACTIVITY (x_msg_count,
11625: x_msg_data );
11626: EXCEPTION
11627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11629: l_api_name,
11630: G_PKG_NAME,
11631: 'OKL_API.G_RET_STS_ERROR',
11632: x_msg_count,
11627: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11629: l_api_name,
11630: G_PKG_NAME,
11631: 'OKL_API.G_RET_STS_ERROR',
11632: x_msg_count,
11633: x_msg_data,
11634: '_PVT');
11635: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11631: 'OKL_API.G_RET_STS_ERROR',
11632: x_msg_count,
11633: x_msg_data,
11634: '_PVT');
11635: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11637: l_api_name,
11638: G_PKG_NAME,
11639: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11632: x_msg_count,
11633: x_msg_data,
11634: '_PVT');
11635: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11637: l_api_name,
11638: G_PKG_NAME,
11639: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11640: x_msg_count,
11635: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11637: l_api_name,
11638: G_PKG_NAME,
11639: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11640: x_msg_count,
11641: x_msg_data,
11642: '_PVT');
11643: WHEN OTHERS THEN
11640: x_msg_count,
11641: x_msg_data,
11642: '_PVT');
11643: WHEN OTHERS THEN
11644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11645: l_api_name,
11646: G_PKG_NAME,
11647: 'OTHERS',
11648: x_msg_count,
11659: --End of Comments
11660: --------------------------------------------------------------------------------
11661: PROCEDURE FIXED_ASSET_unit_adjust
11662: (p_api_version IN NUMBER,
11663: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11664: x_return_status OUT NOCOPY VARCHAR2,
11665: x_msg_count OUT NOCOPY NUMBER,
11666: x_msg_data OUT NOCOPY VARCHAR2,
11667: p_ast_line_rec IN ast_line_rec_type,
11672: p_trx_number IN NUMBER,
11673: --Bug# 4028371
11674: x_fa_trx_date OUT NOCOPY DATE) IS
11675:
11676: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
11677: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_UNIT_ADJ';
11678: l_api_version CONSTANT NUMBER := 1.0;
11679:
11680:
11702: l_units_assigned NUMBER;
11703: l_distribution_id NUMBER;
11704:
11705: BEGIN
11706: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11707: -- Call start_activity to create savepoint, check compatibility
11708: -- and initialize message list
11709: x_return_status := OKL_API.START_ACTIVITY (
11710: l_api_name
11705: BEGIN
11706: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11707: -- Call start_activity to create savepoint, check compatibility
11708: -- and initialize message list
11709: x_return_status := OKL_API.START_ACTIVITY (
11710: l_api_name
11711: ,p_init_msg_list
11712: ,'_PVT'
11713: ,x_return_status);
11711: ,p_init_msg_list
11712: ,'_PVT'
11713: ,x_return_status);
11714: -- Check if activity started successfully
11715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11718: RAISE OKL_API.G_EXCEPTION_ERROR;
11719: END IF;
11712: ,'_PVT'
11713: ,x_return_status);
11714: -- Check if activity started successfully
11715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11718: RAISE OKL_API.G_EXCEPTION_ERROR;
11719: END IF;
11720:
11713: ,x_return_status);
11714: -- Check if activity started successfully
11715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11718: RAISE OKL_API.G_EXCEPTION_ERROR;
11719: END IF;
11720:
11721: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11714: -- Check if activity started successfully
11715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11718: RAISE OKL_API.G_EXCEPTION_ERROR;
11719: END IF;
11720:
11721: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11722: l_asset_hdr_rec.asset_id := p_ast_line_rec.asset_id;
11782: px_asset_hdr_rec => l_asset_hdr_rec,
11783: px_asset_dist_tbl => l_asset_dist_tbl);
11784:
11785: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11789: RAISE OKL_API.G_EXCEPTION_ERROR;
11790: END IF;
11783: px_asset_dist_tbl => l_asset_dist_tbl);
11784:
11785: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11789: RAISE OKL_API.G_EXCEPTION_ERROR;
11790: END IF;
11791: OKL_API.END_ACTIVITY (x_msg_count,
11784:
11785: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11789: RAISE OKL_API.G_EXCEPTION_ERROR;
11790: END IF;
11791: OKL_API.END_ACTIVITY (x_msg_count,
11792: x_msg_data );
11785: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11789: RAISE OKL_API.G_EXCEPTION_ERROR;
11790: END IF;
11791: OKL_API.END_ACTIVITY (x_msg_count,
11792: x_msg_data );
11793: EXCEPTION
11787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11789: RAISE OKL_API.G_EXCEPTION_ERROR;
11790: END IF;
11791: OKL_API.END_ACTIVITY (x_msg_count,
11792: x_msg_data );
11793: EXCEPTION
11794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11790: END IF;
11791: OKL_API.END_ACTIVITY (x_msg_count,
11792: x_msg_data );
11793: EXCEPTION
11794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11796: l_api_name,
11797: G_PKG_NAME,
11798: 'OKL_API.G_RET_STS_ERROR',
11791: OKL_API.END_ACTIVITY (x_msg_count,
11792: x_msg_data );
11793: EXCEPTION
11794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11796: l_api_name,
11797: G_PKG_NAME,
11798: 'OKL_API.G_RET_STS_ERROR',
11799: x_msg_count,
11794: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11795: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11796: l_api_name,
11797: G_PKG_NAME,
11798: 'OKL_API.G_RET_STS_ERROR',
11799: x_msg_count,
11800: x_msg_data,
11801: '_PVT');
11802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11798: 'OKL_API.G_RET_STS_ERROR',
11799: x_msg_count,
11800: x_msg_data,
11801: '_PVT');
11802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11804: l_api_name,
11805: G_PKG_NAME,
11806: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11799: x_msg_count,
11800: x_msg_data,
11801: '_PVT');
11802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11804: l_api_name,
11805: G_PKG_NAME,
11806: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11807: x_msg_count,
11802: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11803: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11804: l_api_name,
11805: G_PKG_NAME,
11806: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11807: x_msg_count,
11808: x_msg_data,
11809: '_PVT');
11810: WHEN OTHERS THEN
11807: x_msg_count,
11808: x_msg_data,
11809: '_PVT');
11810: WHEN OTHERS THEN
11811: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11812: l_api_name,
11813: G_PKG_NAME,
11814: 'OTHERS',
11815: x_msg_count,
11827: -- retirement for split asset compoents
11828: --End of Comments
11829: --------------------------------------------------------------------------------
11830: PROCEDURE FIXED_ASSET_RETIRE (p_api_version IN NUMBER,
11831: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11832: x_return_status OUT NOCOPY VARCHAR2,
11833: x_msg_count OUT NOCOPY NUMBER,
11834: x_msg_data OUT NOCOPY VARCHAR2,
11835: p_ast_line_rec IN ast_line_rec_type,
11840: p_trx_number IN NUMBER,
11841: --Bug# 4028371
11842: x_fa_trx_date OUT NOCOPY date) IS
11843:
11844: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
11845: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_RETIRE';
11846: l_api_version CONSTANT NUMBER := 1.0;
11847:
11848: l_user_id NUMBER := 1001; -- USER_ID must properly be set to run calc gain/loss
11912:
11913:
11914: BEGIN
11915:
11916: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11917: -- Call start_activity to create savepoint, check compatibility
11918: -- and initialize message list
11919: x_return_status := OKL_API.START_ACTIVITY (
11920: l_api_name
11915:
11916: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11917: -- Call start_activity to create savepoint, check compatibility
11918: -- and initialize message list
11919: x_return_status := OKL_API.START_ACTIVITY (
11920: l_api_name
11921: ,p_init_msg_list
11922: ,'_PVT'
11923: ,x_return_status);
11921: ,p_init_msg_list
11922: ,'_PVT'
11923: ,x_return_status);
11924: -- Check if activity started successfully
11925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11928: RAISE OKL_API.G_EXCEPTION_ERROR;
11929: END IF;
11922: ,'_PVT'
11923: ,x_return_status);
11924: -- Check if activity started successfully
11925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11928: RAISE OKL_API.G_EXCEPTION_ERROR;
11929: END IF;
11930:
11923: ,x_return_status);
11924: -- Check if activity started successfully
11925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11928: RAISE OKL_API.G_EXCEPTION_ERROR;
11929: END IF;
11930:
11931:
11924: -- Check if activity started successfully
11925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11928: RAISE OKL_API.G_EXCEPTION_ERROR;
11929: END IF;
11930:
11931:
11932: --dbms_output.disable;
11979: --l_asset_retire_rec.date_retired := NULL; -- will be current period by default
11980: --3156924 :
11981: --l_asset_retire_rec.date_retired := p_trx_date; -- will be current period by default
11982:
11983: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
11984: --fully retire for split asset compoents
11985: l_asset_retire_rec.units_retired := NULL;
11986: l_asset_retire_rec.cost_retired := p_ast_line_rec.cost;
11987: ELSE
12002: --assign this to FND_API.G_TRUE if it is required to calculate the gain loss
12003:
12004: fnd_profile.put('USER_ID',l_user_id);
12005:
12006: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12007: --no need to do distribution level retirements as full retirment being done
12008: -- for split asset components
12009: NULL;
12010: ELSE
12036: p_trx_number => p_trx_number,
12037: --Bug# 4028371
12038: x_fa_trx_date => l_fa_unit_adj_date);
12039:
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12037: --Bug# 4028371
12038: x_fa_trx_date => l_fa_unit_adj_date);
12039:
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: --Bug# 3156924
12038: x_fa_trx_date => l_fa_unit_adj_date);
12039:
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: --Bug# 3156924
12046: /*---------------commented; either retire cost or units---------------------------------------
12039:
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: --Bug# 3156924
12046: /*---------------commented; either retire cost or units---------------------------------------
12047: --l_asset_dist_tbl.delete;
12140: end if;
12141: --------------------FA Debugging Code Commented END------------------------------*/
12142: --dbms_output.put_line('After do retirement :'||x_return_status);
12143:
12144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12147: RAISE OKL_API.G_EXCEPTION_ERROR;
12148: END IF;
12141: --------------------FA Debugging Code Commented END------------------------------*/
12142: --dbms_output.put_line('After do retirement :'||x_return_status);
12143:
12144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12147: RAISE OKL_API.G_EXCEPTION_ERROR;
12148: END IF;
12149: --Bug# 3156924
12142: --dbms_output.put_line('After do retirement :'||x_return_status);
12143:
12144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12147: RAISE OKL_API.G_EXCEPTION_ERROR;
12148: END IF;
12149: --Bug# 3156924
12150: --End If;
12143:
12144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12147: RAISE OKL_API.G_EXCEPTION_ERROR;
12148: END IF;
12149: --Bug# 3156924
12150: --End If;
12151: --x_asset_hdr_rec := l_asset_hdr_rec;
12150: --End If;
12151: --x_asset_hdr_rec := l_asset_hdr_rec;
12152: --Bug# 4028371
12153: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12154: OKL_API.END_ACTIVITY (x_msg_count,
12155: x_msg_data );
12156: EXCEPTION
12157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12153: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12154: OKL_API.END_ACTIVITY (x_msg_count,
12155: x_msg_data );
12156: EXCEPTION
12157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12159: l_api_name,
12160: G_PKG_NAME,
12161: 'OKL_API.G_RET_STS_ERROR',
12154: OKL_API.END_ACTIVITY (x_msg_count,
12155: x_msg_data );
12156: EXCEPTION
12157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12159: l_api_name,
12160: G_PKG_NAME,
12161: 'OKL_API.G_RET_STS_ERROR',
12162: x_msg_count,
12157: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12158: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12159: l_api_name,
12160: G_PKG_NAME,
12161: 'OKL_API.G_RET_STS_ERROR',
12162: x_msg_count,
12163: x_msg_data,
12164: '_PVT');
12165: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12161: 'OKL_API.G_RET_STS_ERROR',
12162: x_msg_count,
12163: x_msg_data,
12164: '_PVT');
12165: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12166: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12167: l_api_name,
12168: G_PKG_NAME,
12169: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12162: x_msg_count,
12163: x_msg_data,
12164: '_PVT');
12165: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12166: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12167: l_api_name,
12168: G_PKG_NAME,
12169: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12170: x_msg_count,
12165: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12166: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12167: l_api_name,
12168: G_PKG_NAME,
12169: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12170: x_msg_count,
12171: x_msg_data,
12172: '_PVT');
12173: /*--------------------FA Debugging Code Commented -------------------------------
12193: --dbms_output.put_line('dump: NO MESSAGE !');
12194: end if;
12195: --------------------FA Debugging Code Commented END -----------------------------*/
12196: WHEN OTHERS THEN
12197: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12198: l_api_name,
12199: G_PKG_NAME,
12200: 'OTHERS',
12201: x_msg_count,
12217: -- FIXED_ASSET_ADD
12218: --End of Comments
12219: --------------------------------------------------------------------------------
12220: PROCEDURE FIXED_ASSET_ADJUST(p_api_version IN NUMBER,
12221: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12222: x_return_status OUT NOCOPY VARCHAR2,
12223: x_msg_count OUT NOCOPY NUMBER,
12224: x_msg_data OUT NOCOPY VARCHAR2,
12225: p_ast_line_rec IN ast_line_rec_type,
12239: --Bug# 6373605--SLA populate source
12240: --Bug# 4028371
12241: x_fa_trx_date OUT NOCOPY DATE) IS
12242:
12243: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
12244: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_ADJUST';
12245: l_api_version CONSTANT NUMBER := 1.0;
12246:
12247: l_trans_rec FA_API_TYPES.trans_rec_type;
12389: --Bug# 5946411: avsingh - parameters for getting depreciation reserve
12390: l_fa_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
12391: l_fa_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
12392: BEGIN
12393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12394: --call start activity to set savepoint
12395: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12396: p_init_msg_list,
12397: '_PVT',
12391: l_fa_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
12392: BEGIN
12393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12394: --call start activity to set savepoint
12395: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12396: p_init_msg_list,
12397: '_PVT',
12398: x_return_status);
12399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12395: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12396: p_init_msg_list,
12397: '_PVT',
12398: x_return_status);
12399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12402: RAISE OKL_API.G_EXCEPTION_ERROR;
12403: END IF;
12396: p_init_msg_list,
12397: '_PVT',
12398: x_return_status);
12399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12402: RAISE OKL_API.G_EXCEPTION_ERROR;
12403: END IF;
12404:
12397: '_PVT',
12398: x_return_status);
12399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12402: RAISE OKL_API.G_EXCEPTION_ERROR;
12403: END IF;
12404:
12405: --------------------
12398: x_return_status);
12399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12402: RAISE OKL_API.G_EXCEPTION_ERROR;
12403: END IF;
12404:
12405: --------------------
12406: -- asset header info
12454: p_pdt_id => l_pdt_id,
12455: p_start_date => l_start_date,
12456: x_amortization_date => l_amortization_date,
12457: x_special_treatment_required => l_special_treatment_required);
12458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12461: RAISE OKL_API.G_EXCEPTION_ERROR;
12462: END IF;
12455: p_start_date => l_start_date,
12456: x_amortization_date => l_amortization_date,
12457: x_special_treatment_required => l_special_treatment_required);
12458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12461: RAISE OKL_API.G_EXCEPTION_ERROR;
12462: END IF;
12463: if l_special_treatment_required = 'Y' then
12456: x_amortization_date => l_amortization_date,
12457: x_special_treatment_required => l_special_treatment_required);
12458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12461: RAISE OKL_API.G_EXCEPTION_ERROR;
12462: END IF;
12463: if l_special_treatment_required = 'Y' then
12464: l_trans_rec.amortization_start_date := l_amortization_date;
12457: x_special_treatment_required => l_special_treatment_required);
12458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12461: RAISE OKL_API.G_EXCEPTION_ERROR;
12462: END IF;
12463: if l_special_treatment_required = 'Y' then
12464: l_trans_rec.amortization_start_date := l_amortization_date;
12465: --rirawat : Handle scenario for asset with no off lease transaction
12463: if l_special_treatment_required = 'Y' then
12464: l_trans_rec.amortization_start_date := l_amortization_date;
12465: --rirawat : Handle scenario for asset with no off lease transaction
12466: IF l_amortization_date IS NULL THEN
12467: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12468: p_msg_name => 'OKL_LA_SPLIT_NOT_ALLOWED'
12469: );
12470: RAISE OKL_API.G_EXCEPTION_ERROR;
12471: END IF;
12466: IF l_amortization_date IS NULL THEN
12467: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12468: p_msg_name => 'OKL_LA_SPLIT_NOT_ALLOWED'
12469: );
12470: RAISE OKL_API.G_EXCEPTION_ERROR;
12471: END IF;
12472: else
12473: -- Bug# 6061103 end
12474: --dbms_output.put_line('Status set as l_cle_status'||l_cle_status);
12494: --Bug# 3156924 :
12495: l_trans_rec.transaction_name := SUBSTR(TO_CHAR(p_trx_number),1,20); --optional
12496: l_trans_rec.calling_interface := l_calling_interface; --optional
12497:
12498: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12499: l_split_factor := (p_txdv_rec.split_percent/100);
12500: ELSE
12501: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
12502: END IF;
12520: IF p_ast_line_rec.cost = 0 THEN
12521: --do not call adjustments for DFL contracts
12522: NULL;
12523: ELSE
12524: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12525: l_asset_fin_rec_adj.cost := - p_ast_line_rec.cost;
12526: --Bug# 3950089
12527: If (p_ast_line_rec.percent_salvage_value is not null) Then
12528: l_asset_fin_rec_adj.percent_salvage_value := - p_ast_line_rec.percent_salvage_value;
12552: l_fa_asset_hdr_rec.asset_id := p_ast_line_rec.asset_id;
12553: l_fa_asset_hdr_rec.book_type_code := p_ast_line_rec.corporate_book;
12554:
12555: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
12556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12557: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12558: );
12559: Raise OKL_API.G_EXCEPTION_ERROR;
12560: end if;
12555: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
12556: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12557: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12558: );
12559: Raise OKL_API.G_EXCEPTION_ERROR;
12560: end if;
12561:
12562: --Bug# 6804043: In R12 codeline, do not back out depreciation reserve
12563: -- when cost adjustment is done in period of addition
12567: p_book => l_fa_asset_hdr_rec.book_type_code,
12568: p_mode => 'ABSOLUTE',
12569: px_period_of_addition => l_fa_asset_hdr_rec.period_of_addition
12570: ) then
12571: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12572: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
12573: );
12574: Raise OKL_API.G_EXCEPTION_ERROR;
12575: end if;
12570: ) then
12571: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12572: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
12573: );
12574: Raise OKL_API.G_EXCEPTION_ERROR;
12575: end if;
12576:
12577:
12578: If nvl(l_fa_asset_hdr_rec.period_of_addition,'N') = 'Y' Then
12588: p_asset_id => p_ast_line_rec.asset_id,
12589: p_book_type_code => p_ast_line_rec.corporate_book,
12590: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12591:
12592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12595: RAISE OKL_API.G_EXCEPTION_ERROR;
12596: END IF;
12589: p_book_type_code => p_ast_line_rec.corporate_book,
12590: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12591:
12592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12595: RAISE OKL_API.G_EXCEPTION_ERROR;
12596: END IF;
12597:
12590: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12591:
12592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12595: RAISE OKL_API.G_EXCEPTION_ERROR;
12596: END IF;
12597:
12598: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
12591:
12592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12595: RAISE OKL_API.G_EXCEPTION_ERROR;
12596: END IF;
12597:
12598: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
12599: l_asset_deprn_rec_adj.deprn_reserve := (-1) * l_fa_asset_deprn_rec.deprn_reserve;
12654: --dbms_output.put_line('Deprn reserve '||to_char(l_asset_deprn_rec_adj.deprn_reserve));
12655: FA_ADJUSTMENT_PUB.do_adjustment
12656: (p_api_version => p_api_version,
12657: p_init_msg_list => p_init_msg_list,
12658: p_commit => OKL_API.G_FALSE,
12659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12660: x_return_status => x_return_status,
12661: x_msg_count => x_msg_count,
12662: x_msg_data => x_msg_data,
12675: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
12676: p_group_reclass_options_rec => l_group_recalss_option_rec
12677: );
12678: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12682: RAISE OKL_API.G_EXCEPTION_ERROR;
12683: END IF;
12676: p_group_reclass_options_rec => l_group_recalss_option_rec
12677: );
12678: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12682: RAISE OKL_API.G_EXCEPTION_ERROR;
12683: END IF;
12684:
12677: );
12678: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12682: RAISE OKL_API.G_EXCEPTION_ERROR;
12683: END IF;
12684:
12685: --Bug# 4028371 :
12678: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12682: RAISE OKL_API.G_EXCEPTION_ERROR;
12683: END IF;
12684:
12685: --Bug# 4028371 :
12686: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12707: ,x_return_status => x_return_status
12708: ,x_msg_count => x_msg_count
12709: ,x_msg_data => x_msg_data
12710: );
12711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12714: RAISE OKL_API.G_EXCEPTION_ERROR;
12715: END IF;
12708: ,x_msg_count => x_msg_count
12709: ,x_msg_data => x_msg_data
12710: );
12711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12714: RAISE OKL_API.G_EXCEPTION_ERROR;
12715: END IF;
12716: --bug# 6373605 -- call populate SLA sources
12709: ,x_msg_data => x_msg_data
12710: );
12711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12714: RAISE OKL_API.G_EXCEPTION_ERROR;
12715: END IF;
12716: --bug# 6373605 -- call populate SLA sources
12717:
12710: );
12711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12714: RAISE OKL_API.G_EXCEPTION_ERROR;
12715: END IF;
12716: --bug# 6373605 -- call populate SLA sources
12717:
12718: END IF;
12753: l_asset_dist_tbl.DELETE;
12754: --dbms_output.put_line('split factor '||to_char(l_split_factor));
12755: --dbms_output.put_line('current units '||to_char(p_ast_line_rec.current_units));
12756:
12757: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12758: --l_units_to_adjust := p_ast_line_rec.current_units;
12759: NULL;
12760: ELSE
12761: l_units_to_adjust := p_ast_line_rec.current_units - (p_ast_line_rec.current_units*l_split_factor);
12808: px_asset_hdr_rec => l_asset_hdr_rec_ua,
12809: px_asset_dist_tbl => l_asset_dist_tbl);
12810:
12811: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12815: RAISE OKL_API.G_EXCEPTION_ERROR;
12816: END IF;
12809: px_asset_dist_tbl => l_asset_dist_tbl);
12810:
12811: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12815: RAISE OKL_API.G_EXCEPTION_ERROR;
12816: END IF;
12817:
12810:
12811: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12815: RAISE OKL_API.G_EXCEPTION_ERROR;
12816: END IF;
12817:
12818: --bug# 6373605 -- call populate sla sources
12811: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12815: RAISE OKL_API.G_EXCEPTION_ERROR;
12816: END IF;
12817:
12818: --bug# 6373605 -- call populate sla sources
12819: l_fxhv_rec.source_id := p_sla_source_header_id;
12838: ,x_msg_count => x_msg_count
12839: ,x_msg_data => x_msg_data
12840: );
12841:
12842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12845: RAISE OKL_API.G_EXCEPTION_ERROR;
12846: END IF;
12839: ,x_msg_data => x_msg_data
12840: );
12841:
12842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12845: RAISE OKL_API.G_EXCEPTION_ERROR;
12846: END IF;
12847: --bug# 6373605 -- call populate SLA sources
12840: );
12841:
12842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12845: RAISE OKL_API.G_EXCEPTION_ERROR;
12846: END IF;
12847: --bug# 6373605 -- call populate SLA sources
12848:
12841:
12842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12845: RAISE OKL_API.G_EXCEPTION_ERROR;
12846: END IF;
12847: --bug# 6373605 -- call populate SLA sources
12848:
12849: END IF;
12847: --bug# 6373605 -- call populate SLA sources
12848:
12849: END IF;
12850: END IF;
12851: OKL_API.END_ACTIVITY (x_msg_count,
12852: x_msg_data );
12853: EXCEPTION
12854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12850: END IF;
12851: OKL_API.END_ACTIVITY (x_msg_count,
12852: x_msg_data );
12853: EXCEPTION
12854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12856: l_api_name,
12857: G_PKG_NAME,
12858: 'OKL_API.G_RET_STS_ERROR',
12851: OKL_API.END_ACTIVITY (x_msg_count,
12852: x_msg_data );
12853: EXCEPTION
12854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12856: l_api_name,
12857: G_PKG_NAME,
12858: 'OKL_API.G_RET_STS_ERROR',
12859: x_msg_count,
12854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12856: l_api_name,
12857: G_PKG_NAME,
12858: 'OKL_API.G_RET_STS_ERROR',
12859: x_msg_count,
12860: x_msg_data,
12861: '_PVT');
12862: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12858: 'OKL_API.G_RET_STS_ERROR',
12859: x_msg_count,
12860: x_msg_data,
12861: '_PVT');
12862: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12863: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12864: l_api_name,
12865: G_PKG_NAME,
12866: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12859: x_msg_count,
12860: x_msg_data,
12861: '_PVT');
12862: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12863: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12864: l_api_name,
12865: G_PKG_NAME,
12866: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12867: x_msg_count,
12862: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12863: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12864: l_api_name,
12865: G_PKG_NAME,
12866: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12867: x_msg_count,
12868: x_msg_data,
12869: '_PVT');
12870: WHEN OTHERS THEN
12867: x_msg_count,
12868: x_msg_data,
12869: '_PVT');
12870: WHEN OTHERS THEN
12871: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12872: l_api_name,
12873: G_PKG_NAME,
12874: 'OTHERS',
12875: x_msg_count,
12887: --End of Comments
12888: ------------------------------------------------------------------------------
12889: PROCEDURE get_trx_rec
12890: (p_api_version IN NUMBER,
12891: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12892: x_return_status OUT NOCOPY VARCHAR2,
12893: x_msg_count OUT NOCOPY NUMBER,
12894: x_msg_data OUT NOCOPY VARCHAR2,
12895: p_cle_id IN NUMBER,
12895: p_cle_id IN NUMBER,
12896: p_transaction_type IN VARCHAR2,
12897: x_trx_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.transaction_rec) IS
12898:
12899: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12900: l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_REC';
12901: l_api_version CONSTANT NUMBER := 1.0;
12902:
12903: --Following cursor assumes that a transaction type called
12912: FETCH okl_trx_type_csr
12913: INTO l_trx_type_id;
12914: IF okl_trx_type_csr%NOTFOUND THEN
12915: --OKL LINE ACTIVATION not seeded as a source transaction in IB
12916: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12917: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
12918: p_token1 => G_TXN_TYPE_TOKEN,
12919: p_token1_value => p_transaction_type
12920: );
12917: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
12918: p_token1 => G_TXN_TYPE_TOKEN,
12919: p_token1_value => p_transaction_type
12920: );
12921: RAISE OKL_API.G_EXCEPTION_ERROR;
12922: END IF;
12923: CLOSE okl_trx_type_csr;
12924: --Assign transaction Type id to seeded value in cs_lookups
12925: x_trx_rec.transaction_type_id := l_trx_type_id;
12928: x_trx_rec.transaction_date := SYSDATE;
12929: --confirm whether this has to be sysdate or creation date on line
12930: x_trx_rec.source_transaction_date := SYSDATE;
12931: EXCEPTION
12932: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12933: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12934: (
12935: l_api_name,
12936: G_PKG_NAME,
12929: --confirm whether this has to be sysdate or creation date on line
12930: x_trx_rec.source_transaction_date := SYSDATE;
12931: EXCEPTION
12932: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12933: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12934: (
12935: l_api_name,
12936: G_PKG_NAME,
12937: 'OKL_API.G_RET_STS_ERROR',
12933: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12934: (
12935: l_api_name,
12936: G_PKG_NAME,
12937: 'OKL_API.G_RET_STS_ERROR',
12938: x_msg_count,
12939: x_msg_data,
12940: '_PVT'
12941: );
12938: x_msg_count,
12939: x_msg_data,
12940: '_PVT'
12941: );
12942: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12944: (
12945: l_api_name,
12946: G_PKG_NAME,
12939: x_msg_data,
12940: '_PVT'
12941: );
12942: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12944: (
12945: l_api_name,
12946: G_PKG_NAME,
12947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12944: (
12945: l_api_name,
12946: G_PKG_NAME,
12947: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12948: x_msg_count,
12949: x_msg_data,
12950: '_PVT'
12951: );
12949: x_msg_data,
12950: '_PVT'
12951: );
12952: WHEN OTHERS THEN
12953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12954: (
12955: l_api_name,
12956: G_PKG_NAME,
12957: 'OTHERS',
12973: --End of Comments
12974: ------------------------------------------------------------------------------
12975: PROCEDURE get_party_rec
12976: (p_api_version IN NUMBER,
12977: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12978: x_return_status OUT NOCOPY VARCHAR2,
12979: x_msg_count OUT NOCOPY NUMBER,
12980: x_msg_data OUT NOCOPY VARCHAR2,
12981: p_chrv_id IN NUMBER,
12981: p_chrv_id IN NUMBER,
12982: x_party_tbl OUT NOCOPY CSI_DATASTRUCTURES_PUB.party_tbl) IS
12983:
12984: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
12985: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12986: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY_REC';
12987: l_api_version CONSTANT NUMBER := 1.0;
12988:
12989: l_index NUMBER;
12989: l_index NUMBER;
12990:
12991: BEGIN
12992: --call start activity to set savepoint
12993: l_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12994: p_init_msg_list,
12995: '_PVT',
12996: x_return_status);
12997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12993: l_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12994: p_init_msg_list,
12995: '_PVT',
12996: x_return_status);
12997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13000: RAISE OKL_API.G_EXCEPTION_ERROR;
13001: END IF;
12994: p_init_msg_list,
12995: '_PVT',
12996: x_return_status);
12997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13000: RAISE OKL_API.G_EXCEPTION_ERROR;
13001: END IF;
13002:
12995: '_PVT',
12996: x_return_status);
12997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13000: RAISE OKL_API.G_EXCEPTION_ERROR;
13001: END IF;
13002:
13003: --get Party
12996: x_return_status);
12997: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12999: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
13000: RAISE OKL_API.G_EXCEPTION_ERROR;
13001: END IF;
13002:
13003: --get Party
13004: OKL_JTOT_EXTRACT.Get_Party(p_api_version => p_api_version,
13011: p_role_code => G_ITM_INST_PARTY,
13012: p_intent => G_CONTRACT_INTENT,
13013: x_party_tab => l_party_tab);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_ERROR;
13019: END IF;
13012: p_intent => G_CONTRACT_INTENT,
13013: x_party_tab => l_party_tab);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_ERROR;
13019: END IF;
13020:
13013: x_party_tab => l_party_tab);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_ERROR;
13019: END IF;
13020:
13021: FOR l_index IN 1..l_party_tab.LAST
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_ERROR;
13019: END IF;
13020:
13021: FOR l_index IN 1..l_party_tab.LAST
13022: LOOP
13028: END LOOP;
13029:
13030: IF (l_index = 0) THEN
13031: --no owner party record found
13032: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
13033: p_msg_name => G_PARTY_NOT_FOUND,
13034: p_token1 => G_ROLE_CODE_TOKEN,
13035: p_token1_value => G_ITM_INST_PARTY
13036: );
13033: p_msg_name => G_PARTY_NOT_FOUND,
13034: p_token1 => G_ROLE_CODE_TOKEN,
13035: p_token1_value => G_ITM_INST_PARTY
13036: );
13037: RAISE OKL_API.G_EXCEPTION_ERROR;
13038: END IF;
13039:
13040: --Call end Activity
13041: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
13037: RAISE OKL_API.G_EXCEPTION_ERROR;
13038: END IF;
13039:
13040: --Call end Activity
13041: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
13042: EXCEPTION
13043: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13045: (
13039:
13040: --Call end Activity
13041: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
13042: EXCEPTION
13043: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13045: (
13046: l_api_name,
13047: G_PKG_NAME,
13040: --Call end Activity
13041: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
13042: EXCEPTION
13043: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13045: (
13046: l_api_name,
13047: G_PKG_NAME,
13048: 'OKL_API.G_RET_STS_ERROR',
13044: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13045: (
13046: l_api_name,
13047: G_PKG_NAME,
13048: 'OKL_API.G_RET_STS_ERROR',
13049: x_msg_count,
13050: x_msg_data,
13051: '_PVT'
13052: );
13049: x_msg_count,
13050: x_msg_data,
13051: '_PVT'
13052: );
13053: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13054: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13055: (
13056: l_api_name,
13057: G_PKG_NAME,
13050: x_msg_data,
13051: '_PVT'
13052: );
13053: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13054: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13055: (
13056: l_api_name,
13057: G_PKG_NAME,
13058: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13054: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13055: (
13056: l_api_name,
13057: G_PKG_NAME,
13058: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13059: x_msg_count,
13060: x_msg_data,
13061: '_PVT'
13062: );
13060: x_msg_data,
13061: '_PVT'
13062: );
13063: WHEN OTHERS THEN
13064: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13065: (
13066: l_api_name,
13067: G_PKG_NAME,
13068: 'OTHERS',
13078: --Created for Bug# 2726870 : Split assets by serial numbers
13079: --End of comments
13080: --------------------------------------------------------------------------------
13081: PROCEDURE delete_instance_lines(p_api_version IN NUMBER,
13082: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13083: x_return_status OUT NOCOPY VARCHAR2,
13084: x_msg_count OUT NOCOPY NUMBER,
13085: x_msg_data OUT NOCOPY VARCHAR2,
13086: p_inst_cle_id IN NUMBER,
13085: x_msg_data OUT NOCOPY VARCHAR2,
13086: p_inst_cle_id IN NUMBER,
13087: p_ib_cle_id IN NUMBER) IS
13088:
13089: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13090: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13091: l_api_version CONSTANT NUMBER := 1.0;
13092:
13093: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13102: l_ib_klev_rec okl_kle_pvt.klev_rec_type;
13103:
13104:
13105: BEGIN
13106: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13107:
13108: x_return_status := OKL_API.START_ACTIVITY (
13109: l_api_name
13110: ,p_init_msg_list
13104:
13105: BEGIN
13106: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13107:
13108: x_return_status := OKL_API.START_ACTIVITY (
13109: l_api_name
13110: ,p_init_msg_list
13111: ,'_PVT'
13112: ,x_return_status);
13110: ,p_init_msg_list
13111: ,'_PVT'
13112: ,x_return_status);
13113: -- Check if activity started successfully
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_ERROR;
13118: END IF;
13111: ,'_PVT'
13112: ,x_return_status);
13113: -- Check if activity started successfully
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_ERROR;
13118: END IF;
13119:
13112: ,x_return_status);
13113: -- Check if activity started successfully
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_ERROR;
13118: END IF;
13119:
13120: l_inst_cle_id := p_inst_cle_id;
13113: -- Check if activity started successfully
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_ERROR;
13118: END IF;
13119:
13120: l_inst_cle_id := p_inst_cle_id;
13121: l_ib_cle_id := p_ib_cle_id;
13135: x_msg_count => x_msg_count,
13136: x_msg_data => x_msg_data,
13137: p_clev_rec => l_ib_clev_rec,
13138: x_clev_rec => lx_ib_clev_rec);
13139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13142: RAISE OKL_API.G_EXCEPTION_ERROR;
13143: END IF;
13136: x_msg_data => x_msg_data,
13137: p_clev_rec => l_ib_clev_rec,
13138: x_clev_rec => lx_ib_clev_rec);
13139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13142: RAISE OKL_API.G_EXCEPTION_ERROR;
13143: END IF;
13144:
13137: p_clev_rec => l_ib_clev_rec,
13138: x_clev_rec => lx_ib_clev_rec);
13139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13142: RAISE OKL_API.G_EXCEPTION_ERROR;
13143: END IF;
13144:
13145: --Call line deletion API.
13138: x_clev_rec => lx_ib_clev_rec);
13139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13142: RAISE OKL_API.G_EXCEPTION_ERROR;
13143: END IF;
13144:
13145: --Call line deletion API.
13146: OKC_CONTRACT_PUB.delete_contract_line(
13149: x_return_status => x_return_status,
13150: x_msg_count => x_msg_count,
13151: x_msg_data => x_msg_data,
13152: p_line_id => l_ib_cle_id);
13153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13156: RAISE OKL_API.G_EXCEPTION_ERROR;
13157: END IF;
13150: x_msg_count => x_msg_count,
13151: x_msg_data => x_msg_data,
13152: p_line_id => l_ib_cle_id);
13153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13156: RAISE OKL_API.G_EXCEPTION_ERROR;
13157: END IF;
13158:
13151: x_msg_data => x_msg_data,
13152: p_line_id => l_ib_cle_id);
13153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13156: RAISE OKL_API.G_EXCEPTION_ERROR;
13157: END IF;
13158:
13159: -- delete shadows explicitly
13152: p_line_id => l_ib_cle_id);
13153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13156: RAISE OKL_API.G_EXCEPTION_ERROR;
13157: END IF;
13158:
13159: -- delete shadows explicitly
13160: OKL_KLE_PVT.delete_row(
13164: x_msg_count => x_msg_count,
13165: x_msg_data => x_msg_data,
13166: p_klev_rec => l_ib_klev_rec);
13167:
13168: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13170: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13171: RAISE OKL_API.G_EXCEPTION_ERROR;
13172: END IF;
13165: x_msg_data => x_msg_data,
13166: p_klev_rec => l_ib_klev_rec);
13167:
13168: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13170: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13171: RAISE OKL_API.G_EXCEPTION_ERROR;
13172: END IF;
13173:
13166: p_klev_rec => l_ib_klev_rec);
13167:
13168: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13170: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13171: RAISE OKL_API.G_EXCEPTION_ERROR;
13172: END IF;
13173:
13174: ---update status of the line
13167:
13168: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13170: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13171: RAISE OKL_API.G_EXCEPTION_ERROR;
13172: END IF;
13173:
13174: ---update status of the line
13175: OKC_CONTRACT_PUB.update_contract_line(
13179: x_msg_count => x_msg_count,
13180: x_msg_data => x_msg_data,
13181: p_clev_rec => l_inst_clev_rec,
13182: x_clev_rec => lx_inst_clev_rec);
13183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13186: RAISE OKL_API.G_EXCEPTION_ERROR;
13187: END IF;
13180: x_msg_data => x_msg_data,
13181: p_clev_rec => l_inst_clev_rec,
13182: x_clev_rec => lx_inst_clev_rec);
13183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13186: RAISE OKL_API.G_EXCEPTION_ERROR;
13187: END IF;
13188:
13181: p_clev_rec => l_inst_clev_rec,
13182: x_clev_rec => lx_inst_clev_rec);
13183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13186: RAISE OKL_API.G_EXCEPTION_ERROR;
13187: END IF;
13188:
13189: --Call line deletion API
13182: x_clev_rec => lx_inst_clev_rec);
13183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13186: RAISE OKL_API.G_EXCEPTION_ERROR;
13187: END IF;
13188:
13189: --Call line deletion API
13190: OKC_CONTRACT_PUB.delete_contract_line(
13193: x_return_status => x_return_status,
13194: x_msg_count => x_msg_count,
13195: x_msg_data => x_msg_data,
13196: p_line_id => l_inst_cle_id);
13197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13200: RAISE OKL_API.G_EXCEPTION_ERROR;
13201: END IF;
13194: x_msg_count => x_msg_count,
13195: x_msg_data => x_msg_data,
13196: p_line_id => l_inst_cle_id);
13197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13200: RAISE OKL_API.G_EXCEPTION_ERROR;
13201: END IF;
13202:
13195: x_msg_data => x_msg_data,
13196: p_line_id => l_inst_cle_id);
13197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13200: RAISE OKL_API.G_EXCEPTION_ERROR;
13201: END IF;
13202:
13203: -- delete shadows explicitly
13196: p_line_id => l_inst_cle_id);
13197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13200: RAISE OKL_API.G_EXCEPTION_ERROR;
13201: END IF;
13202:
13203: -- delete shadows explicitly
13204: OKL_KLE_PVT.delete_row(
13208: x_msg_count => x_msg_count,
13209: x_msg_data => x_msg_data,
13210: p_klev_rec => l_ib_klev_rec);
13211:
13212: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13214: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13215: RAISE OKL_API.G_EXCEPTION_ERROR;
13216: END IF;
13209: x_msg_data => x_msg_data,
13210: p_klev_rec => l_ib_klev_rec);
13211:
13212: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13214: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13215: RAISE OKL_API.G_EXCEPTION_ERROR;
13216: END IF;
13217:
13210: p_klev_rec => l_ib_klev_rec);
13211:
13212: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13214: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13215: RAISE OKL_API.G_EXCEPTION_ERROR;
13216: END IF;
13217:
13218: --Bug# 7033247: Deleted the wrongly pasted
13211:
13212: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13214: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13215: RAISE OKL_API.G_EXCEPTION_ERROR;
13216: END IF;
13217:
13218: --Bug# 7033247: Deleted the wrongly pasted
13219: --duplicate lines of code from below:
13217:
13218: --Bug# 7033247: Deleted the wrongly pasted
13219: --duplicate lines of code from below:
13220:
13221: OKL_API.END_ACTIVITY (x_msg_count,
13222: x_msg_data );
13223: EXCEPTION
13224: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13220:
13221: OKL_API.END_ACTIVITY (x_msg_count,
13222: x_msg_data );
13223: EXCEPTION
13224: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13226: l_api_name,
13227: G_PKG_NAME,
13228: 'OKL_API.G_RET_STS_ERROR',
13221: OKL_API.END_ACTIVITY (x_msg_count,
13222: x_msg_data );
13223: EXCEPTION
13224: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13226: l_api_name,
13227: G_PKG_NAME,
13228: 'OKL_API.G_RET_STS_ERROR',
13229: x_msg_count,
13224: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13226: l_api_name,
13227: G_PKG_NAME,
13228: 'OKL_API.G_RET_STS_ERROR',
13229: x_msg_count,
13230: x_msg_data,
13231: '_PVT');
13232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13228: 'OKL_API.G_RET_STS_ERROR',
13229: x_msg_count,
13230: x_msg_data,
13231: '_PVT');
13232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13233: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13234: l_api_name,
13235: G_PKG_NAME,
13236: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13229: x_msg_count,
13230: x_msg_data,
13231: '_PVT');
13232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13233: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13234: l_api_name,
13235: G_PKG_NAME,
13236: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13237: x_msg_count,
13232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13233: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13234: l_api_name,
13235: G_PKG_NAME,
13236: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13237: x_msg_count,
13238: x_msg_data,
13239: '_PVT');
13240: WHEN OTHERS THEN
13237: x_msg_count,
13238: x_msg_data,
13239: '_PVT');
13240: WHEN OTHERS THEN
13241: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13242: l_api_name,
13243: G_PKG_NAME,
13244: 'OTHERS',
13245: x_msg_count,
13253: --Modified for Bug# 2648280 : to take care of IB fix on expire instance API
13254: --end of comments
13255: --------------------------------------------------------------------------------
13256: PROCEDURE create_ib_instance(p_api_version IN NUMBER,
13257: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13258: x_return_status OUT NOCOPY VARCHAR2,
13259: x_msg_count OUT NOCOPY NUMBER,
13260: x_msg_data OUT NOCOPY VARCHAR2,
13261: p_csi_id1 IN VARCHAR2,
13265: p_split_qty IN NUMBER,
13266: p_txdv_rec IN txdv_rec_type,
13267: x_instance_id OUT NOCOPY NUMBER) IS
13268:
13269: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13270: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_INSTANCE';
13271: l_api_version CONSTANT NUMBER := 1.0;
13272:
13273: --instance query recs
13414: AND fa_lse.lty_code = 'FIXED_ASSET';
13415:
13416:
13417: l_ib_cim_id OKC_K_ITEMS.ID%TYPE;
13418: l_serialized VARCHAR2(1) DEFAULT okl_api.g_false;
13419:
13420: --cursor to get the serial numbers for serialized split asset components
13421: CURSOR comp_srl_csr (p_asd_id IN NUMBER) IS
13422: SELECT serial_number,
13431: lx_iipv_rec OKL_TXL_ITM_INSTS_PUB.iipv_rec_type;
13432:
13433:
13434: BEGIN
13435: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13436: -- Call start_activity to create savepoint, check compatibility
13437: -- and initialize message list
13438: x_return_status := OKL_API.START_ACTIVITY (
13439: l_api_name
13434: BEGIN
13435: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13436: -- Call start_activity to create savepoint, check compatibility
13437: -- and initialize message list
13438: x_return_status := OKL_API.START_ACTIVITY (
13439: l_api_name
13440: ,p_init_msg_list
13441: ,'_PVT'
13442: ,x_return_status);
13440: ,p_init_msg_list
13441: ,'_PVT'
13442: ,x_return_status);
13443: -- Check if activity started successfully
13444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13447: RAISE OKL_API.G_EXCEPTION_ERROR;
13448: END IF;
13441: ,'_PVT'
13442: ,x_return_status);
13443: -- Check if activity started successfully
13444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13447: RAISE OKL_API.G_EXCEPTION_ERROR;
13448: END IF;
13449:
13442: ,x_return_status);
13443: -- Check if activity started successfully
13444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13447: RAISE OKL_API.G_EXCEPTION_ERROR;
13448: END IF;
13449:
13450: --get item instance record
13443: -- Check if activity started successfully
13444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13447: RAISE OKL_API.G_EXCEPTION_ERROR;
13448: END IF;
13449:
13450: --get item instance record
13451: --l_instance_rec := get_csi_rec(p_csi_id1 => p_csi_id1,
13454:
13455: l_instance_query_rec.instance_id := p_csi_id1;
13456:
13457: --split asset into components modfn.
13458: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
13459: l_active_instances_only := FND_API.G_FALSE;
13460: ELSE
13461: l_active_instances_only := FND_API.G_TRUE;
13462: END IF;
13480: x_msg_data => x_msg_data);
13481:
13482: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13483: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13487: RAISE OKL_API.G_EXCEPTION_ERROR;
13488: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13481:
13482: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13483: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13487: RAISE OKL_API.G_EXCEPTION_ERROR;
13488: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13482: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13483: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13487: RAISE OKL_API.G_EXCEPTION_ERROR;
13488: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13490: END IF;
13483: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13487: RAISE OKL_API.G_EXCEPTION_ERROR;
13488: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13490: END IF;
13491:
13485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13487: RAISE OKL_API.G_EXCEPTION_ERROR;
13488: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13490: END IF;
13491:
13492: --bug# 2982927 : resetting okc inv org again from k header :
13493: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13545: l_instance_rec.INSTALL_LOCATION_ID := l_instance_header_tbl(1).INSTALL_LOCATION_ID;
13546: l_instance_rec.INSTANCE_USAGE_CODE := l_instance_header_tbl(1).INSTANCE_USAGE_CODE;
13547: l_instance_rec.OBJECT_VERSION_NUMBER := l_instance_header_tbl(1).OBJECT_VERSION_NUMBER;
13548:
13549: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN --splitting into components
13550: --expire original item instances
13551: l_expired_status_id := NULL;
13552: OPEN inst_sts_csr(p_status_name => l_instance_rec.instance_status_id);
13553: FETCH inst_sts_csr INTO l_expired_status_id;
13561: p_cle_id => p_ib_cle_id,
13562: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13563: x_trx_rec => l_exp_txn_rec);
13564:
13565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13568: RAISE OKL_API.G_EXCEPTION_ERROR;
13569: END IF;
13562: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13563: x_trx_rec => l_exp_txn_rec);
13564:
13565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13568: RAISE OKL_API.G_EXCEPTION_ERROR;
13569: END IF;
13570:
13563: x_trx_rec => l_exp_txn_rec);
13564:
13565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13568: RAISE OKL_API.G_EXCEPTION_ERROR;
13569: END IF;
13570:
13571: l_instance_rec.INSTANCE_STATUS_ID := NULL;
13564:
13565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13568: RAISE OKL_API.G_EXCEPTION_ERROR;
13569: END IF;
13570:
13571: l_instance_rec.INSTANCE_STATUS_ID := NULL;
13572: csi_item_instance_pub.expire_item_instance
13581: ,x_return_status => x_return_status
13582: ,x_msg_count => x_msg_count
13583: ,x_msg_data => x_msg_data);
13584:
13585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13588: RAISE OKL_API.G_EXCEPTION_ERROR;
13589: END IF;
13582: ,x_msg_count => x_msg_count
13583: ,x_msg_data => x_msg_data);
13584:
13585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13588: RAISE OKL_API.G_EXCEPTION_ERROR;
13589: END IF;
13590:
13583: ,x_msg_data => x_msg_data);
13584:
13585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13588: RAISE OKL_API.G_EXCEPTION_ERROR;
13589: END IF;
13590:
13591: --bug# 2982927 : resetting okc inv org again from k header :
13584:
13585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13588: RAISE OKL_API.G_EXCEPTION_ERROR;
13589: END IF;
13590:
13591: --bug# 2982927 : resetting okc inv org again from k header :
13592: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13598:
13599: END IF;
13600:
13601: --Bug # 2726870 :11.5.9 enhancement Split asset by serial numbers for Split Asset by components
13602: l_serialized := OKL_API.G_FALSE;
13603: Is_Inv_Item_Serialized(p_api_version => p_api_version,
13604: p_init_msg_list => p_init_msg_list,
13605: x_return_status => x_return_status,
13606: x_msg_count => x_msg_count,
13608: p_inv_item_id => p_txdv_rec.inventory_item_id,
13609: p_chr_id => p_chr_id,
13610: p_cle_id => NULL,
13611: x_serialized => l_serialized);
13612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13615: RAISE OKL_API.G_EXCEPTION_ERROR;
13616: END IF;
13609: p_chr_id => p_chr_id,
13610: p_cle_id => NULL,
13611: x_serialized => l_serialized);
13612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13615: RAISE OKL_API.G_EXCEPTION_ERROR;
13616: END IF;
13617:
13610: p_cle_id => NULL,
13611: x_serialized => l_serialized);
13612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13615: RAISE OKL_API.G_EXCEPTION_ERROR;
13616: END IF;
13617:
13618: --If l_serialized = OKL_API.G_FALSE Then
13611: x_serialized => l_serialized);
13612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13615: RAISE OKL_API.G_EXCEPTION_ERROR;
13616: END IF;
13617:
13618: --If l_serialized = OKL_API.G_FALSE Then
13619: --if not serialized create new instances normally
13614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13615: RAISE OKL_API.G_EXCEPTION_ERROR;
13616: END IF;
13617:
13618: --If l_serialized = OKL_API.G_FALSE Then
13619: --if not serialized create new instances normally
13620: IF l_serialized = OKL_API.G_FALSE THEN
13621: l_instance_rec.serial_number := NULL;
13622: l_instance_rec.quantity := p_split_qty;
13616: END IF;
13617:
13618: --If l_serialized = OKL_API.G_FALSE Then
13619: --if not serialized create new instances normally
13620: IF l_serialized = OKL_API.G_FALSE THEN
13621: l_instance_rec.serial_number := NULL;
13622: l_instance_rec.quantity := p_split_qty;
13623: ELSIF l_serialized = OKL_API.G_TRUE THEN
13624: --set serial number
13619: --if not serialized create new instances normally
13620: IF l_serialized = OKL_API.G_FALSE THEN
13621: l_instance_rec.serial_number := NULL;
13622: l_instance_rec.quantity := p_split_qty;
13623: ELSIF l_serialized = OKL_API.G_TRUE THEN
13624: --set serial number
13625: OPEN comp_srl_csr (p_asd_id => p_txdv_rec.id);
13626: FETCH comp_srl_csr INTO l_instance_rec.serial_number,
13627: l_itiv_id;
13628: IF comp_srl_csr%NOTFOUND THEN
13629: l_instance_rec.serial_number := NULL;
13630: END IF;
13631: CLOSE comp_srl_csr;
13632: IF l_itiv_id IS NOT NULL OR l_itiv_id <> OKL_API.G_MISS_NUM THEN
13633: --update the serail number record as processed
13634: l_iipv_rec.id := l_itiv_id;
13635: l_iipv_rec.selected_for_split_flag := 'P';
13636: --dbms_output.put_line('before update of txl itm insts sts'||x_return_status);
13644: x_msg_data => x_msg_data,
13645: p_iipv_rec => l_iipv_rec,
13646: x_iipv_rec => lx_iipv_rec);
13647: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13651: RAISE OKL_API.G_EXCEPTION_ERROR;
13652: END IF;
13645: p_iipv_rec => l_iipv_rec,
13646: x_iipv_rec => lx_iipv_rec);
13647: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13651: RAISE OKL_API.G_EXCEPTION_ERROR;
13652: END IF;
13653: END IF;
13646: x_iipv_rec => lx_iipv_rec);
13647: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13651: RAISE OKL_API.G_EXCEPTION_ERROR;
13652: END IF;
13653: END IF;
13654: l_instance_rec.quantity := 1;
13647: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13651: RAISE OKL_API.G_EXCEPTION_ERROR;
13652: END IF;
13653: END IF;
13654: l_instance_rec.quantity := 1;
13655: END IF;
13665: --l_instance_rec.quantity := p_split_qty;
13666: l_instance_rec.object_version_number := NULL;
13667: l_instance_rec.inventory_item_id := p_txdv_rec.inventory_item_id;
13668: --Bug# 3066375:
13669: l_instance_rec.call_contracts := okl_api.g_false;
13670:
13671:
13672: get_trx_rec(p_api_version => p_api_version,
13673: p_init_msg_list => p_init_msg_list,
13677: p_cle_id => p_ib_cle_id,
13678: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13679: x_trx_rec => l_txn_rec);
13680:
13681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13684: RAISE OKL_API.G_EXCEPTION_ERROR;
13685: END IF;
13678: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13679: x_trx_rec => l_txn_rec);
13680:
13681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13684: RAISE OKL_API.G_EXCEPTION_ERROR;
13685: END IF;
13686:
13679: x_trx_rec => l_txn_rec);
13680:
13681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13684: RAISE OKL_API.G_EXCEPTION_ERROR;
13685: END IF;
13686:
13687: --get party tbl
13680:
13681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13683: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13684: RAISE OKL_API.G_EXCEPTION_ERROR;
13685: END IF;
13686:
13687: --get party tbl
13688: get_party_rec(p_api_version => p_api_version,
13692: x_msg_data => x_msg_data,
13693: p_chrv_id => p_chr_id,
13694: x_party_tbl => l_party_tbl);
13695:
13696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13699: RAISE OKL_API.G_EXCEPTION_ERROR;
13700: END IF;
13693: p_chrv_id => p_chr_id,
13694: x_party_tbl => l_party_tbl);
13695:
13696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13699: RAISE OKL_API.G_EXCEPTION_ERROR;
13700: END IF;
13701:
13694: x_party_tbl => l_party_tbl);
13695:
13696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13699: RAISE OKL_API.G_EXCEPTION_ERROR;
13700: END IF;
13701:
13702: --get party accoutnt id
13695:
13696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13699: RAISE OKL_API.G_EXCEPTION_ERROR;
13700: END IF;
13701:
13702: --get party accoutnt id
13703: l_party_account := NULL;
13705: FETCH party_account_csr INTO
13706: l_party_account;
13707: IF party_account_csr%NOTFOUND THEN
13708: --raise error for unable to find inv mstr org
13709: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
13710: p_msg_name => G_CUST_ACCOUNT_FOUND,
13711: p_token1 => G_CONTRACT_ID_TOKEN,
13712: p_token1_value => TO_CHAR(p_chr_id)
13713: );
13710: p_msg_name => G_CUST_ACCOUNT_FOUND,
13711: p_token1 => G_CONTRACT_ID_TOKEN,
13712: p_token1_value => TO_CHAR(p_chr_id)
13713: );
13714: RAISE OKL_API.G_EXCEPTION_ERROR;
13715: ELSE
13716: NULL;
13717: END IF;
13718: CLOSE party_account_csr;
13743:
13744: --dbms_output.put_line('After calling IB API status '||x_return_status);
13745: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13746:
13747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13750: RAISE OKL_API.G_EXCEPTION_ERROR;
13751: END IF;
13744: --dbms_output.put_line('After calling IB API status '||x_return_status);
13745: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13746:
13747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13750: RAISE OKL_API.G_EXCEPTION_ERROR;
13751: END IF;
13752:
13745: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13746:
13747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13750: RAISE OKL_API.G_EXCEPTION_ERROR;
13751: END IF;
13752:
13753: --bug# 2982927 : resetting okc inv org again from k header :
13746:
13747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13750: RAISE OKL_API.G_EXCEPTION_ERROR;
13751: END IF;
13752:
13753: --bug# 2982927 : resetting okc inv org again from k header :
13754: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13755: --bug# 2982927
13756:
13757: x_instance_id := l_instance_rec.instance_id;
13758:
13759: --Elsif l_serialized = OKL_API.G_TRUE Then
13760:
13761: --1. read from the split transaction to create new serial numbers
13762: --2. For each record create instance in IB
13763: --3. Loop through all the created instances
13769:
13770: ELSE --for normal split assets
13771:
13772: --Bug # 2726870 :11.5.9 enhancement Split asset by serial numbers for Split Asset by components
13773: l_serialized := OKL_API.G_FALSE;
13774: Is_Inv_Item_Serialized(p_api_version => p_api_version,
13775: p_init_msg_list => p_init_msg_list,
13776: x_return_status => x_return_status,
13777: x_msg_count => x_msg_count,
13779: p_inv_item_id => l_instance_rec.inventory_item_id,
13780: p_chr_id => p_chr_id,
13781: p_cle_id => NULL,
13782: x_serialized => l_serialized);
13783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13786: RAISE OKL_API.G_EXCEPTION_ERROR;
13787: END IF;
13780: p_chr_id => p_chr_id,
13781: p_cle_id => NULL,
13782: x_serialized => l_serialized);
13783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13786: RAISE OKL_API.G_EXCEPTION_ERROR;
13787: END IF;
13788:
13781: p_cle_id => NULL,
13782: x_serialized => l_serialized);
13783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13786: RAISE OKL_API.G_EXCEPTION_ERROR;
13787: END IF;
13788:
13789: IF (l_instance_rec.quantity = 1) OR
13782: x_serialized => l_serialized);
13783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13786: RAISE OKL_API.G_EXCEPTION_ERROR;
13787: END IF;
13788:
13789: IF (l_instance_rec.quantity = 1) OR
13790: (l_instance_rec.quantity - p_split_qty) <= 0 THEN -- this will never be the case
13790: (l_instance_rec.quantity - p_split_qty) <= 0 THEN -- this will never be the case
13791: NULL; -- no need to update quantity - item instance may be serailized
13792:
13793: --Bug # 2726870 11.5.9 enhancements - split asset into components
13794: IF l_serialized = OKL_API.G_TRUE THEN
13795: l_instance_for_split := '?';
13796: OPEN chk_instance_csr(PInstanceId => l_instance_rec.instance_id,
13797: PTalId => P_txdv_rec.tal_id);
13798: FETCH chk_instance_csr INTO l_instance_for_split;
13819: x_msg_count => x_msg_count,
13820: x_msg_data => x_msg_data,
13821: p_inst_cle_id => l_inst_cle_id,
13822: p_ib_cle_id => l_ib_cle_id);
13823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13826: RAISE OKL_API.G_EXCEPTION_ERROR;
13827: END IF;
13820: x_msg_data => x_msg_data,
13821: p_inst_cle_id => l_inst_cle_id,
13822: p_ib_cle_id => l_ib_cle_id);
13823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13826: RAISE OKL_API.G_EXCEPTION_ERROR;
13827: END IF;
13828: END IF;
13821: p_inst_cle_id => l_inst_cle_id,
13822: p_ib_cle_id => l_ib_cle_id);
13823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13826: RAISE OKL_API.G_EXCEPTION_ERROR;
13827: END IF;
13828: END IF;
13829: x_instance_id := l_instance_rec.instance_id;
13822: p_ib_cle_id => l_ib_cle_id);
13823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13826: RAISE OKL_API.G_EXCEPTION_ERROR;
13827: END IF;
13828: END IF;
13829: x_instance_id := l_instance_rec.instance_id;
13830: END IF; -- If item instance is selected for serial split
13870: );
13871:
13872: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13873: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_ERROR;
13878: END IF;
13871:
13872: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13873: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_ERROR;
13878: END IF;
13879:
13872: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13873: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_ERROR;
13878: END IF;
13879:
13880: --bug# 2982927 : resetting okc inv org again from k header :
13873: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_ERROR;
13878: END IF;
13879:
13880: --bug# 2982927 : resetting okc inv org again from k header :
13881: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13883:
13884: END IF;
13885:
13886:
13887: IF (l_serialized = OKL_API.G_TRUE) THEN
13888: NULL;
13889: --dbms_output.put_line('Serialized');
13890: x_instance_id := l_instance_rec.instance_id;
13891: ELSE
13898: l_instance_rec.creation_complete_flag := NULL;
13899: l_instance_rec.quantity := p_split_qty;
13900: l_instance_rec.object_version_number := NULL;
13901: --Bug# 3066375:
13902: l_instance_rec.call_contracts := okl_api.g_false;
13903:
13904:
13905: get_trx_rec(p_api_version => p_api_version,
13906: p_init_msg_list => p_init_msg_list,
13910: p_cle_id => p_ib_cle_id,
13911: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13912: x_trx_rec => l_txn_rec);
13913:
13914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13917: RAISE OKL_API.G_EXCEPTION_ERROR;
13918: END IF;
13911: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13912: x_trx_rec => l_txn_rec);
13913:
13914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13917: RAISE OKL_API.G_EXCEPTION_ERROR;
13918: END IF;
13919:
13912: x_trx_rec => l_txn_rec);
13913:
13914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13917: RAISE OKL_API.G_EXCEPTION_ERROR;
13918: END IF;
13919:
13920: --get party tbl
13913:
13914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13917: RAISE OKL_API.G_EXCEPTION_ERROR;
13918: END IF;
13919:
13920: --get party tbl
13921: get_party_rec(p_api_version => p_api_version,
13925: x_msg_data => x_msg_data,
13926: p_chrv_id => p_chr_id,
13927: x_party_tbl => l_party_tbl);
13928:
13929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13932: RAISE OKL_API.G_EXCEPTION_ERROR;
13933: END IF;
13926: p_chrv_id => p_chr_id,
13927: x_party_tbl => l_party_tbl);
13928:
13929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13932: RAISE OKL_API.G_EXCEPTION_ERROR;
13933: END IF;
13934:
13927: x_party_tbl => l_party_tbl);
13928:
13929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13932: RAISE OKL_API.G_EXCEPTION_ERROR;
13933: END IF;
13934:
13935: --get party accoutnt id
13928:
13929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13932: RAISE OKL_API.G_EXCEPTION_ERROR;
13933: END IF;
13934:
13935: --get party accoutnt id
13936: l_party_account := NULL;
13938: FETCH party_account_csr INTO
13939: l_party_account;
13940: IF party_account_csr%NOTFOUND THEN
13941: --raise error for unable to find inv mstr org
13942: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
13943: p_msg_name => G_CUST_ACCOUNT_FOUND,
13944: p_token1 => G_CONTRACT_ID_TOKEN,
13945: p_token1_value => TO_CHAR(p_chr_id)
13946: );
13943: p_msg_name => G_CUST_ACCOUNT_FOUND,
13944: p_token1 => G_CONTRACT_ID_TOKEN,
13945: p_token1_value => TO_CHAR(p_chr_id)
13946: );
13947: RAISE OKL_API.G_EXCEPTION_ERROR;
13948: ELSE
13949: NULL;
13950: END IF;
13951: CLOSE party_account_csr;
13976:
13977: --dbms_output.put_line('After calling IB API status '||x_return_status);
13978: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13979:
13980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13983: RAISE OKL_API.G_EXCEPTION_ERROR;
13984: END IF;
13977: --dbms_output.put_line('After calling IB API status '||x_return_status);
13978: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13979:
13980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13983: RAISE OKL_API.G_EXCEPTION_ERROR;
13984: END IF;
13985:
13978: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13979:
13980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13983: RAISE OKL_API.G_EXCEPTION_ERROR;
13984: END IF;
13985:
13986: --bug# 2982927 : resetting okc inv org again from k header :
13979:
13980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13983: RAISE OKL_API.G_EXCEPTION_ERROR;
13984: END IF;
13985:
13986: --bug# 2982927 : resetting okc inv org again from k header :
13987: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13990: END IF; --If serail number split
13991: x_instance_id := l_instance_rec.instance_id;
13992: END IF; --type of split
13993:
13994: OKL_API.END_ACTIVITY (x_msg_count,
13995: x_msg_data );
13996: EXCEPTION
13997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13993:
13994: OKL_API.END_ACTIVITY (x_msg_count,
13995: x_msg_data );
13996: EXCEPTION
13997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13999: l_api_name,
14000: G_PKG_NAME,
14001: 'OKL_API.G_RET_STS_ERROR',
13994: OKL_API.END_ACTIVITY (x_msg_count,
13995: x_msg_data );
13996: EXCEPTION
13997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13999: l_api_name,
14000: G_PKG_NAME,
14001: 'OKL_API.G_RET_STS_ERROR',
14002: x_msg_count,
13997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13998: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13999: l_api_name,
14000: G_PKG_NAME,
14001: 'OKL_API.G_RET_STS_ERROR',
14002: x_msg_count,
14003: x_msg_data,
14004: '_PVT');
14005: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14001: 'OKL_API.G_RET_STS_ERROR',
14002: x_msg_count,
14003: x_msg_data,
14004: '_PVT');
14005: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14006: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14007: l_api_name,
14008: G_PKG_NAME,
14009: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14002: x_msg_count,
14003: x_msg_data,
14004: '_PVT');
14005: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14006: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14007: l_api_name,
14008: G_PKG_NAME,
14009: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14010: x_msg_count,
14005: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14006: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14007: l_api_name,
14008: G_PKG_NAME,
14009: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14010: x_msg_count,
14011: x_msg_data,
14012: '_PVT');
14013: WHEN OTHERS THEN
14010: x_msg_count,
14011: x_msg_data,
14012: '_PVT');
14013: WHEN OTHERS THEN
14014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14015: l_api_name,
14016: G_PKG_NAME,
14017: 'OTHERS',
14018: x_msg_count,
14035: x_msg_data OUT NOCOPY VARCHAR2,
14036: p_txdv_rec IN txdv_rec_type,
14037: p_txlv_rec IN txlv_rec_type
14038: ) IS
14039: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14040: l_api_name CONSTANT VARCHAR2(30) := 'CONSOLIDATE_IB_LINES';
14041: l_api_version CONSTANT NUMBER := 1.0;
14042:
14043: --Cursor to get model line inventory item on parent line
14062: l_object1_id2 OKC_K_ITEMS.object1_id2%TYPE;
14063: l_chr_id NUMBER;
14064: l_cle_id NUMBER; --top line id
14065:
14066: l_parent_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14067: l_child_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14068:
14069: --Cursor to fetch ib instances
14070: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14063: l_chr_id NUMBER;
14064: l_cle_id NUMBER; --top line id
14065:
14066: l_parent_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14067: l_child_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14068:
14069: --Cursor to fetch ib instances
14070: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14071: SELECT cle_ib.id,
14142: WHERE cleb.id = pcleid;
14143: l_cle_status okc_k_lines_b.sts_code%TYPE;
14144: -- Bug# 5946411: ER End
14145: BEGIN
14146: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14147: -- Call start_activity to create savepoint, check compatibility
14148: -- and initialize message list
14149: x_return_status := OKL_API.START_ACTIVITY (
14150: l_api_name
14145: BEGIN
14146: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14147: -- Call start_activity to create savepoint, check compatibility
14148: -- and initialize message list
14149: x_return_status := OKL_API.START_ACTIVITY (
14150: l_api_name
14151: ,p_init_msg_list
14152: ,'_PVT'
14153: ,x_return_status);
14151: ,p_init_msg_list
14152: ,'_PVT'
14153: ,x_return_status);
14154: -- Check if activity started successfully
14155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14158: RAISE OKL_API.G_EXCEPTION_ERROR;
14159: END IF;
14152: ,'_PVT'
14153: ,x_return_status);
14154: -- Check if activity started successfully
14155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14158: RAISE OKL_API.G_EXCEPTION_ERROR;
14159: END IF;
14160: -- Bug# 5946411: ER
14153: ,x_return_status);
14154: -- Check if activity started successfully
14155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14158: RAISE OKL_API.G_EXCEPTION_ERROR;
14159: END IF;
14160: -- Bug# 5946411: ER
14161: -- get the status of the parent line id
14154: -- Check if activity started successfully
14155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14158: RAISE OKL_API.G_EXCEPTION_ERROR;
14159: END IF;
14160: -- Bug# 5946411: ER
14161: -- get the status of the parent line id
14162: OPEN l_cleb_sts_csr( p_txlv_rec.kle_id);
14173: l_cle_id;
14174: CLOSE inv_itm_csr;
14175:
14176: --evaluate if parent asset is serialized
14177: l_parent_serialized := OKL_API.G_FALSE;
14178: Is_Inv_Item_Serialized(p_api_version => p_api_version,
14179: p_init_msg_list => p_init_msg_list,
14180: x_return_status => x_return_status,
14181: x_msg_count => x_msg_count,
14184: p_chr_id => l_chr_id,
14185: p_cle_id => NULL,
14186: x_serialized => l_parent_serialized);
14187: --dbms_output.put_line('After parent serialized '||x_return_status);
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14185: p_cle_id => NULL,
14186: x_serialized => l_parent_serialized);
14187: --dbms_output.put_line('After parent serialized '||x_return_status);
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14186: x_serialized => l_parent_serialized);
14187: --dbms_output.put_line('After parent serialized '||x_return_status);
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14194: --evaluate if child asset is serialized
14187: --dbms_output.put_line('After parent serialized '||x_return_status);
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14194: --evaluate if child asset is serialized
14195: l_child_serialized := OKL_API.G_FALSE;
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14194: --evaluate if child asset is serialized
14195: l_child_serialized := OKL_API.G_FALSE;
14196: Is_Inv_Item_Serialized(p_api_version => p_api_version,
14197: p_init_msg_list => p_init_msg_list,
14198: x_return_status => x_return_status,
14199: x_msg_count => x_msg_count,
14202: p_chr_id => l_chr_id,
14203: p_cle_id => NULL,
14204: x_serialized => l_child_serialized);
14205: --dbms_output.put_line('After child serialized '||x_return_status);
14206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14209: RAISE OKL_API.G_EXCEPTION_ERROR;
14210: END IF;
14203: p_cle_id => NULL,
14204: x_serialized => l_child_serialized);
14205: --dbms_output.put_line('After child serialized '||x_return_status);
14206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14209: RAISE OKL_API.G_EXCEPTION_ERROR;
14210: END IF;
14211:
14204: x_serialized => l_child_serialized);
14205: --dbms_output.put_line('After child serialized '||x_return_status);
14206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14209: RAISE OKL_API.G_EXCEPTION_ERROR;
14210: END IF;
14211:
14212: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14205: --dbms_output.put_line('After child serialized '||x_return_status);
14206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14209: RAISE OKL_API.G_EXCEPTION_ERROR;
14210: END IF;
14211:
14212: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14213: --dbms_output.put_line('Both not serialized '||x_return_status);
14208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14209: RAISE OKL_API.G_EXCEPTION_ERROR;
14210: END IF;
14211:
14212: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14213: --dbms_output.put_line('Both not serialized '||x_return_status);
14214: NULL;
14215: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14216: --dbms_output.put_line('Both serialized '||x_return_status);
14211:
14212: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14213: --dbms_output.put_line('Both not serialized '||x_return_status);
14214: NULL;
14215: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14216: --dbms_output.put_line('Both serialized '||x_return_status);
14217: NULL;
14218: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_FALSE THEN
14219: --dbms_output.put_line('Parent serialized,Child not'||x_return_status);
14214: NULL;
14215: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14216: --dbms_output.put_line('Both serialized '||x_return_status);
14217: NULL;
14218: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_FALSE THEN
14219: --dbms_output.put_line('Parent serialized,Child not'||x_return_status);
14220: --trim extra ib instance lines from child
14221: FOR i IN 1..(p_txlv_rec.current_units -1)
14222: LOOP
14233: p_inst_cle_id => l_tgt_inst_cle_id,
14234: p_ib_cle_id => l_tgt_ib_cle_id);
14235: END LOOP;
14236:
14237: ELSIF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_TRUE THEN
14238: --dbms_output.put_line('Add extra ib instance line to child '||x_return_status);
14239: --Add extra ib instance line to child
14240: OPEN ib_inst_csr(p_fin_ast_id => l_cle_id);
14241: FETCH ib_inst_csr INTO l_ib_cle_id,
14268: p_renew_ref_yn => 'N',
14269: x_cle_id => l_new_inst_cle_id);
14270:
14271: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14275: RAISE OKL_API.G_EXCEPTION_ERROR;
14276: END IF;
14269: x_cle_id => l_new_inst_cle_id);
14270:
14271: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14275: RAISE OKL_API.G_EXCEPTION_ERROR;
14276: END IF;
14277: --making the line table for update of status
14270:
14271: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14275: RAISE OKL_API.G_EXCEPTION_ERROR;
14276: END IF;
14277: --making the line table for update of status
14278: j := j+1;
14271: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14275: RAISE OKL_API.G_EXCEPTION_ERROR;
14276: END IF;
14277: --making the line table for update of status
14278: j := j+1;
14279: l_clev_tbl(j).id := l_new_inst_cle_id;
14305: p_restricted_update => OKC_API.G_FALSE,
14306: p_clev_tbl => l_clev_tbl,
14307: x_clev_tbl => lx_clev_tbl);
14308:
14309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14312: RAISE OKL_API.G_EXCEPTION_ERROR;
14313: END IF;
14306: p_clev_tbl => l_clev_tbl,
14307: x_clev_tbl => lx_clev_tbl);
14308:
14309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14312: RAISE OKL_API.G_EXCEPTION_ERROR;
14313: END IF;
14314: END IF;
14307: x_clev_tbl => lx_clev_tbl);
14308:
14309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14312: RAISE OKL_API.G_EXCEPTION_ERROR;
14313: END IF;
14314: END IF;
14315: END IF;
14308:
14309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14312: RAISE OKL_API.G_EXCEPTION_ERROR;
14313: END IF;
14314: END IF;
14315: END IF;
14316: OKL_API.END_ACTIVITY (x_msg_count,
14312: RAISE OKL_API.G_EXCEPTION_ERROR;
14313: END IF;
14314: END IF;
14315: END IF;
14316: OKL_API.END_ACTIVITY (x_msg_count,
14317: x_msg_data );
14318: EXCEPTION
14319: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14315: END IF;
14316: OKL_API.END_ACTIVITY (x_msg_count,
14317: x_msg_data );
14318: EXCEPTION
14319: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14321: l_api_name,
14322: G_PKG_NAME,
14323: 'OKL_API.G_RET_STS_ERROR',
14316: OKL_API.END_ACTIVITY (x_msg_count,
14317: x_msg_data );
14318: EXCEPTION
14319: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14321: l_api_name,
14322: G_PKG_NAME,
14323: 'OKL_API.G_RET_STS_ERROR',
14324: x_msg_count,
14319: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14320: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14321: l_api_name,
14322: G_PKG_NAME,
14323: 'OKL_API.G_RET_STS_ERROR',
14324: x_msg_count,
14325: x_msg_data,
14326: '_PVT');
14327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14323: 'OKL_API.G_RET_STS_ERROR',
14324: x_msg_count,
14325: x_msg_data,
14326: '_PVT');
14327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14328: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14329: l_api_name,
14330: G_PKG_NAME,
14331: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14324: x_msg_count,
14325: x_msg_data,
14326: '_PVT');
14327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14328: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14329: l_api_name,
14330: G_PKG_NAME,
14331: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14332: x_msg_count,
14327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14328: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14329: l_api_name,
14330: G_PKG_NAME,
14331: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14332: x_msg_count,
14333: x_msg_data,
14334: '_PVT');
14335: WHEN OTHERS THEN
14332: x_msg_count,
14333: x_msg_data,
14334: '_PVT');
14335: WHEN OTHERS THEN
14336: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14337: l_api_name,
14338: G_PKG_NAME,
14339: 'OTHERS',
14340: x_msg_count,
14358: x_msg_count OUT NOCOPY NUMBER,
14359: x_msg_data OUT NOCOPY VARCHAR2,
14360: p_txlv_rec IN txlv_rec_type) IS
14361:
14362: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14363: l_api_name CONSTANT VARCHAR2(30) := 'RELINK_IB_LINES';
14364: l_api_version CONSTANT NUMBER := 1.0;
14365:
14366: --cursor to fetch top line id for a fixed asset line
14395:
14396: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
14397: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
14398:
14399: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14400:
14401: BEGIN
14402:
14403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14399: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14400:
14401: BEGIN
14402:
14403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14404: -- Call start_activity to create savepoint, check compatibility
14405: -- and initialize message list
14406: x_return_status := OKL_API.START_ACTIVITY (
14407: l_api_name
14402:
14403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14404: -- Call start_activity to create savepoint, check compatibility
14405: -- and initialize message list
14406: x_return_status := OKL_API.START_ACTIVITY (
14407: l_api_name
14408: ,p_init_msg_list
14409: ,'_PVT'
14410: ,x_return_status);
14408: ,p_init_msg_list
14409: ,'_PVT'
14410: ,x_return_status);
14411: -- Check if activity started successfully
14412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14415: RAISE OKL_API.G_EXCEPTION_ERROR;
14416: END IF;
14409: ,'_PVT'
14410: ,x_return_status);
14411: -- Check if activity started successfully
14412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14415: RAISE OKL_API.G_EXCEPTION_ERROR;
14416: END IF;
14417:
14410: ,x_return_status);
14411: -- Check if activity started successfully
14412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14415: RAISE OKL_API.G_EXCEPTION_ERROR;
14416: END IF;
14417:
14418: --get the top line id for parent fixed asset line
14411: -- Check if activity started successfully
14412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14415: RAISE OKL_API.G_EXCEPTION_ERROR;
14416: END IF;
14417:
14418: --get the top line id for parent fixed asset line
14419:
14423: NULL;
14424: END IF;
14425: CLOSE l_cleb_csr;
14426:
14427: IF NVL(l_parent_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14428:
14429: l_serialized := is_serialized(p_cle_id => l_parent_fina_cle_id);
14430: IF l_serialized = OKL_API.G_TRUE THEN
14431: l_target_kle_id := NULL;
14426:
14427: IF NVL(l_parent_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14428:
14429: l_serialized := is_serialized(p_cle_id => l_parent_fina_cle_id);
14430: IF l_serialized = OKL_API.G_TRUE THEN
14431: l_target_kle_id := NULL;
14432: OPEN l_target_kle_csr(p_tal_id => p_txlv_rec.id);
14433: LOOP
14434: FETCH l_target_kle_csr INTO l_target_kle_id;
14443: NULL;
14444: END IF;
14445: CLOSE l_cleb_csr;
14446:
14447: IF NVL(l_child_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14448: l_instcle_id := NULL;
14449: OPEN l_instcle_csr(p_cle_id => l_parent_fina_cle_id);
14450: FETCH l_instcle_csr INTO l_instcle_id;
14451: IF l_instcle_csr%NOTFOUND THEN
14451: IF l_instcle_csr%NOTFOUND THEN
14452: NULL;
14453: END IF;
14454: CLOSE l_instcle_csr;
14455: IF NVL(l_instcle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14456: l_clev_rec.id := l_instcle_id;
14457: l_clev_rec.cle_id := l_child_fina_cle_id;
14458: OKL_OKC_MIGRATION_PVT.update_contract_line(p_api_version => p_api_version,
14459: p_init_msg_list => p_init_msg_list,
14462: x_msg_data => x_msg_data,
14463: p_clev_rec => l_clev_rec,
14464: x_clev_rec => lx_clev_rec);
14465: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14469: RAISE OKL_API.G_EXCEPTION_ERROR;
14470: END IF;
14463: p_clev_rec => l_clev_rec,
14464: x_clev_rec => lx_clev_rec);
14465: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14469: RAISE OKL_API.G_EXCEPTION_ERROR;
14470: END IF;
14471: END IF;
14464: x_clev_rec => lx_clev_rec);
14465: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14469: RAISE OKL_API.G_EXCEPTION_ERROR;
14470: END IF;
14471: END IF;
14472: END IF;
14465: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14469: RAISE OKL_API.G_EXCEPTION_ERROR;
14470: END IF;
14471: END IF;
14472: END IF;
14473: END IF;
14472: END IF;
14473: END IF;
14474: END LOOP;
14475: CLOSE l_target_kle_csr;
14476: ELSIF l_serialized = OKL_API.G_FALSE THEN
14477:
14478: --this processing will be done in the create instance routine
14479: --as new IB instances need to be created
14480: NULL;
14480: NULL;
14481:
14482: END IF;
14483: END IF;
14484: OKL_API.END_ACTIVITY (x_msg_count,
14485: x_msg_data );
14486: EXCEPTION
14487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14488: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14483: END IF;
14484: OKL_API.END_ACTIVITY (x_msg_count,
14485: x_msg_data );
14486: EXCEPTION
14487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14488: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14489: l_api_name,
14490: G_PKG_NAME,
14491: 'OKL_API.G_RET_STS_ERROR',
14484: OKL_API.END_ACTIVITY (x_msg_count,
14485: x_msg_data );
14486: EXCEPTION
14487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14488: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14489: l_api_name,
14490: G_PKG_NAME,
14491: 'OKL_API.G_RET_STS_ERROR',
14492: x_msg_count,
14487: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14488: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14489: l_api_name,
14490: G_PKG_NAME,
14491: 'OKL_API.G_RET_STS_ERROR',
14492: x_msg_count,
14493: x_msg_data,
14494: '_PVT');
14495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14491: 'OKL_API.G_RET_STS_ERROR',
14492: x_msg_count,
14493: x_msg_data,
14494: '_PVT');
14495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14496: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14497: l_api_name,
14498: G_PKG_NAME,
14499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14492: x_msg_count,
14493: x_msg_data,
14494: '_PVT');
14495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14496: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14497: l_api_name,
14498: G_PKG_NAME,
14499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14500: x_msg_count,
14495: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14496: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14497: l_api_name,
14498: G_PKG_NAME,
14499: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14500: x_msg_count,
14501: x_msg_data,
14502: '_PVT');
14503: WHEN OTHERS THEN
14500: x_msg_count,
14501: x_msg_data,
14502: '_PVT');
14503: WHEN OTHERS THEN
14504: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14505: l_api_name,
14506: G_PKG_NAME,
14507: 'OTHERS',
14508: x_msg_count,
14524: p_chr_id IN NUMBER,
14525: p_cle_tbl IN cle_tbl_type
14526: ) IS
14527:
14528: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14529: l_api_name CONSTANT VARCHAR2(30) := 'RECALCULATE_COSTS';
14530: l_api_version CONSTANT NUMBER := 1.0;
14531:
14532: l_oec NUMBER;
14542: i NUMBER;
14543:
14544: BEGIN
14545:
14546: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14547: -- Call start_activity to create savepoint, check compatibility
14548: -- and initialize message list
14549: x_return_status := OKL_API.START_ACTIVITY (
14550: l_api_name
14545:
14546: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14547: -- Call start_activity to create savepoint, check compatibility
14548: -- and initialize message list
14549: x_return_status := OKL_API.START_ACTIVITY (
14550: l_api_name
14551: ,p_init_msg_list
14552: ,'_PVT'
14553: ,x_return_status);
14551: ,p_init_msg_list
14552: ,'_PVT'
14553: ,x_return_status);
14554: -- Check if activity started successfully
14555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14558: RAISE OKL_API.G_EXCEPTION_ERROR;
14559: END IF;
14552: ,'_PVT'
14553: ,x_return_status);
14554: -- Check if activity started successfully
14555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14558: RAISE OKL_API.G_EXCEPTION_ERROR;
14559: END IF;
14560:
14553: ,x_return_status);
14554: -- Check if activity started successfully
14555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14558: RAISE OKL_API.G_EXCEPTION_ERROR;
14559: END IF;
14560:
14561: IF p_cle_tbl.COUNT > 0 THEN
14554: -- Check if activity started successfully
14555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14558: RAISE OKL_API.G_EXCEPTION_ERROR;
14559: END IF;
14560:
14561: IF p_cle_tbl.COUNT > 0 THEN
14562: FOR i IN p_cle_tbl.FIRST..p_cle_tbl.LAST
14571: p_contract_id => p_chr_id,
14572: p_line_id => p_cle_tbl(i).cle_id,
14573: x_value => l_oec);
14574:
14575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14578: RAISE OKL_API.G_EXCEPTION_ERROR;
14579: END IF;
14572: p_line_id => p_cle_tbl(i).cle_id,
14573: x_value => l_oec);
14574:
14575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14578: RAISE OKL_API.G_EXCEPTION_ERROR;
14579: END IF;
14580:
14573: x_value => l_oec);
14574:
14575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14578: RAISE OKL_API.G_EXCEPTION_ERROR;
14579: END IF;
14580:
14581: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14574:
14575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14578: RAISE OKL_API.G_EXCEPTION_ERROR;
14579: END IF;
14580:
14581: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14582: p_init_msg_list => p_init_msg_list,
14587: p_contract_id => p_chr_id,
14588: p_line_id => p_cle_tbl(i).cle_id,
14589: x_value => l_cap_amount);
14590:
14591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14594: RAISE OKL_API.G_EXCEPTION_ERROR;
14595: END IF;
14588: p_line_id => p_cle_tbl(i).cle_id,
14589: x_value => l_cap_amount);
14590:
14591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14594: RAISE OKL_API.G_EXCEPTION_ERROR;
14595: END IF;
14596:
14589: x_value => l_cap_amount);
14590:
14591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14594: RAISE OKL_API.G_EXCEPTION_ERROR;
14595: END IF;
14596:
14597: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14590:
14591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14594: RAISE OKL_API.G_EXCEPTION_ERROR;
14595: END IF;
14596:
14597: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14598: p_init_msg_list => p_init_msg_list,
14603: p_contract_id => p_chr_id,
14604: p_line_id => p_cle_tbl(i).cle_id,
14605: x_value => l_residual_value);
14606:
14607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14610: RAISE OKL_API.G_EXCEPTION_ERROR;
14611: END IF;
14604: p_line_id => p_cle_tbl(i).cle_id,
14605: x_value => l_residual_value);
14606:
14607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14610: RAISE OKL_API.G_EXCEPTION_ERROR;
14611: END IF;
14612:
14605: x_value => l_residual_value);
14606:
14607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14610: RAISE OKL_API.G_EXCEPTION_ERROR;
14611: END IF;
14612:
14613: ----------------------------------------------------------------------
14606:
14607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14610: RAISE OKL_API.G_EXCEPTION_ERROR;
14611: END IF;
14612:
14613: ----------------------------------------------------------------------
14614: --call api to update costs on asset line
14631: x_clev_rec => lx_clev_rec,
14632: x_klev_rec => lx_klev_rec
14633: );
14634:
14635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14638: RAISE OKL_API.G_EXCEPTION_ERROR;
14639: END IF;
14632: x_klev_rec => lx_klev_rec
14633: );
14634:
14635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14638: RAISE OKL_API.G_EXCEPTION_ERROR;
14639: END IF;
14640: END LOOP;
14633: );
14634:
14635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14638: RAISE OKL_API.G_EXCEPTION_ERROR;
14639: END IF;
14640: END LOOP;
14641: END IF;
14634:
14635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14638: RAISE OKL_API.G_EXCEPTION_ERROR;
14639: END IF;
14640: END LOOP;
14641: END IF;
14642:
14639: END IF;
14640: END LOOP;
14641: END IF;
14642:
14643: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14644: EXCEPTION
14645: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14647: l_api_name,
14641: END IF;
14642:
14643: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14644: EXCEPTION
14645: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14647: l_api_name,
14648: G_PKG_NAME,
14649: 'OKL_API.G_RET_STS_ERROR',
14642:
14643: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14644: EXCEPTION
14645: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14647: l_api_name,
14648: G_PKG_NAME,
14649: 'OKL_API.G_RET_STS_ERROR',
14650: x_msg_count,
14645: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14646: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14647: l_api_name,
14648: G_PKG_NAME,
14649: 'OKL_API.G_RET_STS_ERROR',
14650: x_msg_count,
14651: x_msg_data,
14652: '_PVT');
14653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14649: 'OKL_API.G_RET_STS_ERROR',
14650: x_msg_count,
14651: x_msg_data,
14652: '_PVT');
14653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14655: l_api_name,
14656: G_PKG_NAME,
14657: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14650: x_msg_count,
14651: x_msg_data,
14652: '_PVT');
14653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14655: l_api_name,
14656: G_PKG_NAME,
14657: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14658: x_msg_count,
14653: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14655: l_api_name,
14656: G_PKG_NAME,
14657: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14658: x_msg_count,
14659: x_msg_data,
14660: '_PVT');
14661: WHEN OTHERS THEN
14658: x_msg_count,
14659: x_msg_data,
14660: '_PVT');
14661: WHEN OTHERS THEN
14662: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14663: l_api_name,
14664: G_PKG_NAME,
14665: 'OTHERS',
14666: x_msg_count,
14687: x_cle_tbl OUT NOCOPY cle_tbl_type,
14688: --Bug# 6344223
14689: p_source_call IN VARCHAR2 DEFAULT 'UI') IS
14690:
14691: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14692: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_FIXED_ASSET';
14693: l_api_version CONSTANT NUMBER := 1.0;
14694:
14695: CURSOR k_line_curs(p_fa_line_id IN NUMBER) IS
14988: l_sla_asset_chr_id NUMBER;
14989: --Bug# 6373605 end
14990:
14991: BEGIN
14992: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14993: -- Call start_activity to create savepoint, check compatibility
14994: -- and initialize message list
14995: x_return_status := OKL_API.START_ACTIVITY (
14996: l_api_name
14991: BEGIN
14992: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14993: -- Call start_activity to create savepoint, check compatibility
14994: -- and initialize message list
14995: x_return_status := OKL_API.START_ACTIVITY (
14996: l_api_name
14997: ,p_init_msg_list
14998: ,'_PVT'
14999: ,x_return_status);
14997: ,p_init_msg_list
14998: ,'_PVT'
14999: ,x_return_status);
15000: -- Check if activity started successfully
15001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_ERROR;
15005: END IF;
14998: ,'_PVT'
14999: ,x_return_status);
15000: -- Check if activity started successfully
15001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_ERROR;
15005: END IF;
15006:
14999: ,x_return_status);
15000: -- Check if activity started successfully
15001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_ERROR;
15005: END IF;
15006:
15007: l_txdv_tbl := p_txdv_tbl;
15000: -- Check if activity started successfully
15001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_ERROR;
15005: END IF;
15006:
15007: l_txdv_tbl := p_txdv_tbl;
15008:
15023: --Bug# 6373605 end
15024: IF k_line_curs%NOTFOUND THEN
15025: --dbms_output.put_line('unable to find financial asset line for fixed asset line!!!');
15026: --handle error appropraitely
15027: OKL_API.set_message(p_app_name => G_APP_NAME,
15028: p_msg_name => G_NO_DATA_FOUND,
15029: p_token1 => 'COL_NAME',
15030: p_token1_value => 'Financial Asset Line');
15031: RAISE OKL_API.G_EXCEPTION_ERROR;
15027: OKL_API.set_message(p_app_name => G_APP_NAME,
15028: p_msg_name => G_NO_DATA_FOUND,
15029: p_token1 => 'COL_NAME',
15030: p_token1_value => 'Financial Asset Line');
15031: RAISE OKL_API.G_EXCEPTION_ERROR;
15032: END IF;
15033: CLOSE k_line_curs;
15034:
15035:
15040: FETCH l_lin_rel_ast_csr INTO l_lin_rel_ast_rec;
15041: CLOSE l_lin_rel_ast_csr;
15042:
15043: IF NVL(l_lin_rel_ast_rec.re_lease_yn,'a') = 'Y' THEN
15044: OKL_API.set_message(p_app_name => G_APP_NAME,
15045: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047:
15048: END IF;
15042:
15043: IF NVL(l_lin_rel_ast_rec.re_lease_yn,'a') = 'Y' THEN
15044: OKL_API.set_message(p_app_name => G_APP_NAME,
15045: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047:
15048: END IF;
15049:
15050: --Bug# 15992711 End of Modification
15074: p_split_into_individuals_yn => p_txlv_rec.split_into_singles_flag,
15075: p_split_into_units => p_txlv_rec.split_into_units,
15076: p_tal_id => p_txlv_rec.id);
15077:
15078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15081: RAISE OKL_API.G_EXCEPTION_ERROR;
15082: END IF;
15075: p_split_into_units => p_txlv_rec.split_into_units,
15076: p_tal_id => p_txlv_rec.id);
15077:
15078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15081: RAISE OKL_API.G_EXCEPTION_ERROR;
15082: END IF;
15083: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
15076: p_tal_id => p_txlv_rec.id);
15077:
15078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15081: RAISE OKL_API.G_EXCEPTION_ERROR;
15082: END IF;
15083: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
15084:
15077:
15078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15081: RAISE OKL_API.G_EXCEPTION_ERROR;
15082: END IF;
15083: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
15084:
15085: --1. get values for the parent asset
15091: l_loan_yn := 'N';
15092: l_loan_yn := Check_If_Loan(P_Cle_Id => l_source_cle_id,
15093: x_return_status => x_return_status);
15094:
15095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15098: RAISE OKL_API.G_EXCEPTION_ERROR;
15099: END IF;
15092: l_loan_yn := Check_If_Loan(P_Cle_Id => l_source_cle_id,
15093: x_return_status => x_return_status);
15094:
15095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15098: RAISE OKL_API.G_EXCEPTION_ERROR;
15099: END IF;
15100:
15093: x_return_status => x_return_status);
15094:
15095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15098: RAISE OKL_API.G_EXCEPTION_ERROR;
15099: END IF;
15100:
15101: IF l_loan_yn = 'N' THEN
15094:
15095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15096: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15098: RAISE OKL_API.G_EXCEPTION_ERROR;
15099: END IF;
15100:
15101: IF l_loan_yn = 'N' THEN
15102: OKL_API.set_message(p_app_name => G_APP_NAME,
15098: RAISE OKL_API.G_EXCEPTION_ERROR;
15099: END IF;
15100:
15101: IF l_loan_yn = 'N' THEN
15102: OKL_API.set_message(p_app_name => G_APP_NAME,
15103: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
15104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15105: ELSIF l_loan_yn = 'Y' THEN
15106: l_fa_exists := 'N';
15100:
15101: IF l_loan_yn = 'N' THEN
15102: OKL_API.set_message(p_app_name => G_APP_NAME,
15103: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
15104: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15105: ELSIF l_loan_yn = 'Y' THEN
15106: l_fa_exists := 'N';
15107: END IF;
15108: ELSE
15131: p_parent_line_id => l_source_cle_id,
15132: p_txdv_rec => l_txdv_rec,
15133: p_txlv_rec => l_txlv_rec);
15134: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15138: RAISE OKL_API.G_EXCEPTION_ERROR;
15139: END IF;
15132: p_txdv_rec => l_txdv_rec,
15133: p_txlv_rec => l_txlv_rec);
15134: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15138: RAISE OKL_API.G_EXCEPTION_ERROR;
15139: END IF;
15140:
15133: p_txlv_rec => l_txlv_rec);
15134: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15138: RAISE OKL_API.G_EXCEPTION_ERROR;
15139: END IF;
15140:
15141: --2. Call Asset Retire Api -
15134: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15138: RAISE OKL_API.G_EXCEPTION_ERROR;
15139: END IF;
15140:
15141: --2. Call Asset Retire Api -
15142: -- to confirm with Mukul whether retirement or
15224: --Bug# 4028371
15225: x_fa_trx_date => l_fa_retire_date);
15226:
15227: --dbms_output.put_line('after retiring fA'||x_return_status);
15228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15231: RAISE OKL_API.G_EXCEPTION_ERROR;
15232: END IF;
15225: x_fa_trx_date => l_fa_retire_date);
15226:
15227: --dbms_output.put_line('after retiring fA'||x_return_status);
15228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15231: RAISE OKL_API.G_EXCEPTION_ERROR;
15232: END IF;
15233: */
15226:
15227: --dbms_output.put_line('after retiring fA'||x_return_status);
15228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15231: RAISE OKL_API.G_EXCEPTION_ERROR;
15232: END IF;
15233: */
15234: /* Bug#4508050 - smadhava - Modified - End*/
15227: --dbms_output.put_line('after retiring fA'||x_return_status);
15228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15231: RAISE OKL_API.G_EXCEPTION_ERROR;
15232: END IF;
15233: */
15234: /* Bug#4508050 - smadhava - Modified - End*/
15235: --Bug# 3156924
15251: --Bug# 4028371
15252: x_fa_trx_date => l_fa_adj_date);
15253:
15254: --dbms_output.put_line('after adjusting fA'||x_return_status);
15255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15257: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15258: RAISE OKL_API.G_EXCEPTION_ERROR;
15259: END IF;
15252: x_fa_trx_date => l_fa_adj_date);
15253:
15254: --dbms_output.put_line('after adjusting fA'||x_return_status);
15255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15257: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15258: RAISE OKL_API.G_EXCEPTION_ERROR;
15259: END IF;
15260: End If;
15253:
15254: --dbms_output.put_line('after adjusting fA'||x_return_status);
15255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15257: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15258: RAISE OKL_API.G_EXCEPTION_ERROR;
15259: END IF;
15260: End If;
15261: */
15254: --dbms_output.put_line('after adjusting fA'||x_return_status);
15255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15257: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15258: RAISE OKL_API.G_EXCEPTION_ERROR;
15259: END IF;
15260: End If;
15261: */
15262: /* Bug#4508050 - smadhava - Modified - Start*/
15290: --Bug# 4028371
15291: x_fa_trx_date => l_fa_adj_date);
15292:
15293: --dbms_output.put_line('after adjusting fA'||x_return_status);
15294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15297: RAISE OKL_API.G_EXCEPTION_ERROR;
15298: END IF;
15291: x_fa_trx_date => l_fa_adj_date);
15292:
15293: --dbms_output.put_line('after adjusting fA'||x_return_status);
15294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15297: RAISE OKL_API.G_EXCEPTION_ERROR;
15298: END IF;
15299: /* Bug#4508050 - smadhava - Modified - Start*/
15292:
15293: --dbms_output.put_line('after adjusting fA'||x_return_status);
15294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15297: RAISE OKL_API.G_EXCEPTION_ERROR;
15298: END IF;
15299: /* Bug#4508050 - smadhava - Modified - Start*/
15300: /*
15293: --dbms_output.put_line('after adjusting fA'||x_return_status);
15294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15297: RAISE OKL_API.G_EXCEPTION_ERROR;
15298: END IF;
15299: /* Bug#4508050 - smadhava - Modified - Start*/
15300: /*
15301: END IF;
15325: p_copy_line_party_yn => 'Y',
15326: p_renew_ref_yn => 'N',
15327: x_cle_id => l_split_cle_id);
15328:
15329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15332: RAISE OKL_API.G_EXCEPTION_ERROR;
15333: END IF;
15326: p_renew_ref_yn => 'N',
15327: x_cle_id => l_split_cle_id);
15328:
15329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15332: RAISE OKL_API.G_EXCEPTION_ERROR;
15333: END IF;
15334:
15327: x_cle_id => l_split_cle_id);
15328:
15329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15332: RAISE OKL_API.G_EXCEPTION_ERROR;
15333: END IF;
15334:
15335: --Bug# 4631549 : If release contract copy expected_asset_cost from source line to target line
15328:
15329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15332: RAISE OKL_API.G_EXCEPTION_ERROR;
15333: END IF;
15334:
15335: --Bug# 4631549 : If release contract copy expected_asset_cost from source line to target line
15336: Open l_chrb_csr (p_chr_id => l_chr_id);
15336: Open l_chrb_csr (p_chr_id => l_chr_id);
15337: fetch l_chrb_csr into l_chrb_rec;
15338: close l_chrb_csr;
15339:
15340: If nvl(l_chrb_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' then
15341: open l_exp_cost_csr(p_cle_id => l_source_cle_id);
15342: fetch l_exp_cost_csr into l_exp_cost_rec;
15343: close l_exp_cost_csr;
15344:
15357: x_clev_rec => lx_clev_exp_cost_rec,
15358: x_klev_rec => lx_klev_exp_cost_rec
15359: );
15360:
15361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15358: x_klev_rec => lx_klev_exp_cost_rec
15359: );
15360:
15361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15366: End If;
15359: );
15360:
15361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15366: End If;
15367:
15360:
15361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15366: End If;
15367:
15368: --2. Call local procedure to adjust quantities and amounts
15372:
15373: --Bug# 3502142
15374: l_round_split_comp_amt := 'N';
15375: IF (i = l_txdv_tbl.LAST) AND
15376: (NVL(l_txdv_tbl(i).split_percent,0) > 0 OR l_txdv_tbl(i).split_percent <> OKL_API.G_MISS_NUM) THEN
15377: l_round_split_comp_amt := 'Y';
15378: END IF;
15379:
15380: Adjust_Split_Lines(
15388: p_txdv_rec => l_txdv_rec,
15389: p_txlv_rec => l_txlv_rec,
15390: p_round_split_comp_amt => l_round_split_comp_amt);
15391:
15392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_ERROR;
15396: END IF;
15389: p_txlv_rec => l_txlv_rec,
15390: p_round_split_comp_amt => l_round_split_comp_amt);
15391:
15392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_ERROR;
15396: END IF;
15397: IF l_fa_exists = 'Y' THEN
15390: p_round_split_comp_amt => l_round_split_comp_amt);
15391:
15392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_ERROR;
15396: END IF;
15397: IF l_fa_exists = 'Y' THEN
15398: --to get all books for this asset
15391:
15392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_ERROR;
15396: END IF;
15397: IF l_fa_exists = 'Y' THEN
15398: --to get all books for this asset
15399: OPEN all_books_curs(p_asset_id => l_ast_line_rec.asset_id);
15432: l_ast_line_rec.ORG_ID := l_all_books_rec.org_id;
15433: l_ast_line_rec.SET_OF_BOOKS_ID := l_all_books_rec.set_of_books_id;
15434:
15435: --Bug# 6373605 start
15436: If nvl(l_sts_code,OKL_API.G_MISS_CHAR) in
15437: ('TERMINATED','EXPIRED') Then
15438: l_sla_asset_chr_id := NULL;
15439: Else
15440: l_sla_asset_chr_id := l_chr_id;
15467: x_fa_trx_date => l_fa_add_date,
15468: x_asset_hdr_rec => l_asset_hdr_rec);
15469: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15470: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15474: RAISE OKL_API.G_EXCEPTION_ERROR;
15475: END IF;
15468: x_asset_hdr_rec => l_asset_hdr_rec);
15469: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15470: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15474: RAISE OKL_API.G_EXCEPTION_ERROR;
15475: END IF;
15476:
15469: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15470: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15474: RAISE OKL_API.G_EXCEPTION_ERROR;
15475: END IF;
15476:
15477: --Bug# 4028371
15470: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15474: RAISE OKL_API.G_EXCEPTION_ERROR;
15475: END IF;
15476:
15477: --Bug# 4028371
15478: --update the fa trx date on transaction line
15488: x_msg_count => x_msg_count,
15489: x_msg_data => x_msg_data,
15490: p_talv_rec => l_talv_date_rec,
15491: x_talv_rec => lx_talv_date_rec);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15495: RAISE OKL_API.G_EXCEPTION_ERROR;
15496: END IF;
15489: x_msg_data => x_msg_data,
15490: p_talv_rec => l_talv_date_rec,
15491: x_talv_rec => lx_talv_date_rec);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15495: RAISE OKL_API.G_EXCEPTION_ERROR;
15496: END IF;
15497:
15490: p_talv_rec => l_talv_date_rec,
15491: x_talv_rec => lx_talv_date_rec);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15495: RAISE OKL_API.G_EXCEPTION_ERROR;
15496: END IF;
15497:
15498: --Bug# 6326479
15491: x_talv_rec => lx_talv_date_rec);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15495: RAISE OKL_API.G_EXCEPTION_ERROR;
15496: END IF;
15497:
15498: --Bug# 6326479
15499: /* 7626121 commented out from here and moved outside
15507: ,p_kle_id => l_split_cle_id
15508: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15509: );
15510:
15511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15514: RAISE OKL_API.G_EXCEPTION_ERROR;
15515: END IF; */
15508: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15509: );
15510:
15511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15514: RAISE OKL_API.G_EXCEPTION_ERROR;
15515: END IF; */
15516:
15509: );
15510:
15511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15514: RAISE OKL_API.G_EXCEPTION_ERROR;
15515: END IF; */
15516:
15517: -- Bug# 6189396 -- start
15510:
15511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15514: RAISE OKL_API.G_EXCEPTION_ERROR;
15515: END IF; */
15516:
15517: -- Bug# 6189396 -- start
15518: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15535: ,p_kle_id => l_split_cle_id_orig
15536: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15537: );
15538:
15539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15542: RAISE OKL_API.G_EXCEPTION_ERROR;
15543: END IF;
15536: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15537: );
15538:
15539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15542: RAISE OKL_API.G_EXCEPTION_ERROR;
15543: END IF;
15544:
15537: );
15538:
15539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15542: RAISE OKL_API.G_EXCEPTION_ERROR;
15543: END IF;
15544:
15545: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15538:
15539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15542: RAISE OKL_API.G_EXCEPTION_ERROR;
15543: END IF;
15544:
15545: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15546: okl_execute_formula_pub.g_additional_parameters(1).value := null;
15567: x_msg_data => x_msg_data,
15568: p_cimv_rec => l_cimv_rec,
15569: x_cimv_rec => l_cimv_rec_out);
15570: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15574: RAISE OKL_API.G_EXCEPTION_ERROR;
15575: END IF;
15568: p_cimv_rec => l_cimv_rec,
15569: x_cimv_rec => l_cimv_rec_out);
15570: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15574: RAISE OKL_API.G_EXCEPTION_ERROR;
15575: END IF;
15576: END IF; --l_fa_exits
15569: x_cimv_rec => l_cimv_rec_out);
15570: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15574: RAISE OKL_API.G_EXCEPTION_ERROR;
15575: END IF;
15576: END IF; --l_fa_exits
15577: -- take care of the ib instances for this FA line
15570: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15574: RAISE OKL_API.G_EXCEPTION_ERROR;
15575: END IF;
15576: END IF; --l_fa_exits
15577: -- take care of the ib instances for this FA line
15578: --dbms_output.put_line('before splitting IB instances fa_line_id'||to_char(l_cimv_rec_out.cle_id));
15577: -- take care of the ib instances for this FA line
15578: --dbms_output.put_line('before splitting IB instances fa_line_id'||to_char(l_cimv_rec_out.cle_id));
15579: --bug# : serial number processing for split asset by serial numbers - consolidate ib lines
15580:
15581: IF NVL(l_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN -- Is serialized
15582: --consolidate the ib lines
15583: consolidate_ib_lines(p_api_version => p_api_version,
15584: p_init_msg_list => p_init_msg_list,
15585: x_return_status => x_return_status,
15588: p_txdv_rec => l_txdv_rec,
15589: p_txlv_rec => l_txlv_rec
15590: );
15591: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15595: RAISE OKL_API.G_EXCEPTION_ERROR;
15596: END IF;
15589: p_txlv_rec => l_txlv_rec
15590: );
15591: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15595: RAISE OKL_API.G_EXCEPTION_ERROR;
15596: END IF;
15597: END IF;
15590: );
15591: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15595: RAISE OKL_API.G_EXCEPTION_ERROR;
15596: END IF;
15597: END IF;
15598:
15591: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15595: RAISE OKL_API.G_EXCEPTION_ERROR;
15596: END IF;
15597: END IF;
15598:
15599: --bug# : serial number processing for split asset by serial numbers - consolidate ib lines
15623: p_txdv_rec => l_txdv_rec,
15624: x_instance_id => l_csi_instance_id);
15625:
15626: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15630: RAISE OKL_API.G_EXCEPTION_ERROR;
15631: END IF;
15624: x_instance_id => l_csi_instance_id);
15625:
15626: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15630: RAISE OKL_API.G_EXCEPTION_ERROR;
15631: END IF;
15632:
15625:
15626: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15630: RAISE OKL_API.G_EXCEPTION_ERROR;
15631: END IF;
15632:
15633: --update the coressponding okc_k_item record
15626: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15630: RAISE OKL_API.G_EXCEPTION_ERROR;
15631: END IF;
15632:
15633: --update the coressponding okc_k_item record
15634: l_cimv_rec.id := l_csi_cim_id;
15644: p_cimv_rec => l_cimv_rec,
15645: x_cimv_rec => l_cimv_rec_out);
15646:
15647: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15651: RAISE OKL_API.G_EXCEPTION_ERROR;
15652: END IF;
15645: x_cimv_rec => l_cimv_rec_out);
15646:
15647: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15651: RAISE OKL_API.G_EXCEPTION_ERROR;
15652: END IF;
15653: END LOOP;
15646:
15647: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15651: RAISE OKL_API.G_EXCEPTION_ERROR;
15652: END IF;
15653: END LOOP;
15654: CLOSE ib_item_cur;
15647: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15651: RAISE OKL_API.G_EXCEPTION_ERROR;
15652: END IF;
15653: END LOOP;
15654: CLOSE ib_item_cur;
15655:
15655:
15656: --Bug# 115.9 - Split by serial numbers
15657: --consolidate if serialized and delete duplicate instance lines on child
15658: --do it only for normal split assets as logic for split asset into compoets to be worked out
15659: IF NVL(l_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
15660: ----
15661: OPEN get_dup_inst_csr (p_asd_id => l_txdv_rec.id);
15662: LOOP
15663: FETCH get_dup_inst_csr INTO l_dup_inst_cle_id, l_dup_ib_cle_id;
15670: x_msg_count => x_msg_count,
15671: x_msg_data => x_msg_data,
15672: p_inst_cle_id => l_dup_inst_cle_id,
15673: p_ib_cle_id => l_dup_ib_cle_id);
15674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_ERROR;
15678: END IF;
15671: x_msg_data => x_msg_data,
15672: p_inst_cle_id => l_dup_inst_cle_id,
15673: p_ib_cle_id => l_dup_ib_cle_id);
15674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_ERROR;
15678: END IF;
15679: END LOOP;
15672: p_inst_cle_id => l_dup_inst_cle_id,
15673: p_ib_cle_id => l_dup_ib_cle_id);
15674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_ERROR;
15678: END IF;
15679: END LOOP;
15680: CLOSE get_dup_inst_csr;
15673: p_ib_cle_id => l_dup_ib_cle_id);
15674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_ERROR;
15678: END IF;
15679: END LOOP;
15680: CLOSE get_dup_inst_csr;
15681: ----
15691: IF (i=l_txdv_tbl.LAST) THEN
15692:
15693:
15694: IF (i = l_txdv_tbl.LAST) AND
15695: (NVL(l_txdv_tbl(i).split_percent,0) > 0 OR l_txdv_tbl(i).split_percent <> OKL_API.G_MISS_NUM) THEN
15696: --special processing for split asset components the original asset has to be retired completely
15697: --1.Abandon the old asset line as we have created assets
15698: Abandon_Parent_Asset(
15699: p_api_version => p_api_version,
15702: x_msg_count => x_msg_count,
15703: x_msg_data => x_msg_data,
15704: p_cle_id => l_source_cle_id);
15705:
15706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15709: RAISE OKL_API.G_EXCEPTION_ERROR;
15710: END IF;
15703: x_msg_data => x_msg_data,
15704: p_cle_id => l_source_cle_id);
15705:
15706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15709: RAISE OKL_API.G_EXCEPTION_ERROR;
15710: END IF;
15711: IF l_fa_exists = 'Y' THEN
15704: p_cle_id => l_source_cle_id);
15705:
15706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15709: RAISE OKL_API.G_EXCEPTION_ERROR;
15710: END IF;
15711: IF l_fa_exists = 'Y' THEN
15712: --2.Fully retire the Asset
15705:
15706: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15709: RAISE OKL_API.G_EXCEPTION_ERROR;
15710: END IF;
15711: IF l_fa_exists = 'Y' THEN
15712: --2.Fully retire the Asset
15713: OPEN all_books_curs(p_asset_id => l_ast_line_rec.asset_id);
15773: p_trx_date => l_trx_rec.date_trans_occurred,
15774: p_trx_number => l_trx_rec.trans_number,
15775: x_fa_trx_date => l_fa_retire_date);
15776: --dbms_output.put_line('after retiring fA'||x_return_status);
15777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15780: RAISE OKL_API.G_EXCEPTION_ERROR;
15781: END IF;
15774: p_trx_number => l_trx_rec.trans_number,
15775: x_fa_trx_date => l_fa_retire_date);
15776: --dbms_output.put_line('after retiring fA'||x_return_status);
15777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15780: RAISE OKL_API.G_EXCEPTION_ERROR;
15781: END IF;
15782: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15775: x_fa_trx_date => l_fa_retire_date);
15776: --dbms_output.put_line('after retiring fA'||x_return_status);
15777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15780: RAISE OKL_API.G_EXCEPTION_ERROR;
15781: END IF;
15782: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15783: */
15776: --dbms_output.put_line('after retiring fA'||x_return_status);
15777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15780: RAISE OKL_API.G_EXCEPTION_ERROR;
15781: END IF;
15782: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15783: */
15784: /* Bug#4508050 - smadhava - Modified - End*/
15808: --Bug# 6373605--SLA populate sources
15809: x_fa_trx_date => l_fa_adj_date);
15810:
15811: --dbms_output.put_line('after adjusting fA'||x_return_status);
15812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15815: RAISE OKL_API.G_EXCEPTION_ERROR;
15816: END IF;
15809: x_fa_trx_date => l_fa_adj_date);
15810:
15811: --dbms_output.put_line('after adjusting fA'||x_return_status);
15812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15815: RAISE OKL_API.G_EXCEPTION_ERROR;
15816: END IF;
15817: /* Bug#4508050 - smadhava - Modified - Start*/
15810:
15811: --dbms_output.put_line('after adjusting fA'||x_return_status);
15812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15815: RAISE OKL_API.G_EXCEPTION_ERROR;
15816: END IF;
15817: /* Bug#4508050 - smadhava - Modified - Start*/
15818: /*
15811: --dbms_output.put_line('after adjusting fA'||x_return_status);
15812: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15814: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15815: RAISE OKL_API.G_EXCEPTION_ERROR;
15816: END IF;
15817: /* Bug#4508050 - smadhava - Modified - Start*/
15818: /*
15819: END IF;
15844: x_msg_data => x_msg_data,
15845: p_txlv_rec => l_txlv_rec);
15846:
15847: --dbms_output.put_line('after calling process streams '|| x_return_status);
15848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15851: RAISE OKL_API.G_EXCEPTION_ERROR;
15852: END IF;
15845: p_txlv_rec => l_txlv_rec);
15846:
15847: --dbms_output.put_line('after calling process streams '|| x_return_status);
15848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15851: RAISE OKL_API.G_EXCEPTION_ERROR;
15852: END IF;
15853: END IF;
15846:
15847: --dbms_output.put_line('after calling process streams '|| x_return_status);
15848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15851: RAISE OKL_API.G_EXCEPTION_ERROR;
15852: END IF;
15853: END IF;
15854: --Bug# 3257326 End : relink ib lines in case split into individual units
15847: --dbms_output.put_line('after calling process streams '|| x_return_status);
15848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15851: RAISE OKL_API.G_EXCEPTION_ERROR;
15852: END IF;
15853: END IF;
15854: --Bug# 3257326 End : relink ib lines in case split into individual units
15855:
15863: x_msg_count => x_msg_count,
15864: x_msg_data => x_msg_data,
15865: p_txl_id => l_txlv_rec.id);
15866: --dbms_output.put_line('after calling process streams '|| x_return_status);
15867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15870: RAISE OKL_API.G_EXCEPTION_ERROR;
15871: END IF;
15864: x_msg_data => x_msg_data,
15865: p_txl_id => l_txlv_rec.id);
15866: --dbms_output.put_line('after calling process streams '|| x_return_status);
15867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15870: RAISE OKL_API.G_EXCEPTION_ERROR;
15871: END IF;
15872: --Bug#2648280 End
15865: p_txl_id => l_txlv_rec.id);
15866: --dbms_output.put_line('after calling process streams '|| x_return_status);
15867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15870: RAISE OKL_API.G_EXCEPTION_ERROR;
15871: END IF;
15872: --Bug#2648280 End
15873:
15866: --dbms_output.put_line('after calling process streams '|| x_return_status);
15867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15870: RAISE OKL_API.G_EXCEPTION_ERROR;
15871: END IF;
15872: --Bug#2648280 End
15873:
15874: ------------------------------------------------------------------------
15887: x_msg_data => x_msg_data,
15888: p_chr_id => l_chr_id,
15889: p_cle_tbl => x_cle_tbl);
15890:
15891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15894: RAISE OKL_API.G_EXCEPTION_ERROR;
15895: END IF;
15888: p_chr_id => l_chr_id,
15889: p_cle_tbl => x_cle_tbl);
15890:
15891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15894: RAISE OKL_API.G_EXCEPTION_ERROR;
15895: END IF;
15896: END IF;
15889: p_cle_tbl => x_cle_tbl);
15890:
15891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15894: RAISE OKL_API.G_EXCEPTION_ERROR;
15895: END IF;
15896: END IF;
15897:
15890:
15891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15894: RAISE OKL_API.G_EXCEPTION_ERROR;
15895: END IF;
15896: END IF;
15897:
15898: --Bug# 6788253
15907: p_effective_date => SYSDATE,
15908: x_value => l_is_asset_securitized,
15909: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15910: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15914: RAISE OKL_API.G_EXCEPTION_ERROR;
15915: END IF;
15908: x_value => l_is_asset_securitized,
15909: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15910: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15914: RAISE OKL_API.G_EXCEPTION_ERROR;
15915: END IF;
15916:
15909: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15910: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15914: RAISE OKL_API.G_EXCEPTION_ERROR;
15915: END IF;
15916:
15917: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15910: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15911: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15912: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15914: RAISE OKL_API.G_EXCEPTION_ERROR;
15915: END IF;
15916:
15917: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15918: --call API to modify pool contents
15913: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15914: RAISE OKL_API.G_EXCEPTION_ERROR;
15915: END IF;
15916:
15917: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15918: --call API to modify pool contents
15919:
15920: OKL_SECURITIZATION_PVT.modify_pool_contents(
15921: p_api_version => p_api_version,
15929: p_split_kle_ids => x_cle_tbl,
15930: p_transaction_date => SYSDATE,
15931: p_effective_date => SYSDATE);
15932:
15933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15936: RAISE OKL_API.G_EXCEPTION_ERROR;
15937: END IF;
15930: p_transaction_date => SYSDATE,
15931: p_effective_date => SYSDATE);
15932:
15933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15936: RAISE OKL_API.G_EXCEPTION_ERROR;
15937: END IF;
15938: END IF;
15931: p_effective_date => SYSDATE);
15932:
15933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15936: RAISE OKL_API.G_EXCEPTION_ERROR;
15937: END IF;
15938: END IF;
15939:
15932:
15933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15936: RAISE OKL_API.G_EXCEPTION_ERROR;
15937: END IF;
15938: END IF;
15939:
15940: --Bug# 6344223
15945: x_msg_count => x_msg_count,
15946: x_msg_data => x_msg_data,
15947: p_chr_id => l_chr_id );
15948:
15949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15952: RAISE OKL_API.G_EXCEPTION_ERROR;
15953: END IF;
15946: x_msg_data => x_msg_data,
15947: p_chr_id => l_chr_id );
15948:
15949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15952: RAISE OKL_API.G_EXCEPTION_ERROR;
15953: END IF;
15954:
15947: p_chr_id => l_chr_id );
15948:
15949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15952: RAISE OKL_API.G_EXCEPTION_ERROR;
15953: END IF;
15954:
15955: ELSE
15948:
15949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15952: RAISE OKL_API.G_EXCEPTION_ERROR;
15953: END IF;
15954:
15955: ELSE
15956: -------------------------------------------------------------------------
15955: ELSE
15956: -------------------------------------------------------------------------
15957: --Bug# : 11.5.10 Securitization impact
15958: -------------------------------------------------------------------------
15959: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15960:
15961: -- Bug# 4775555
15962: -- Historize and Re-create Disbursement Basis Streams
15963: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
15968: x_msg_data => x_msg_data,
15969: p_contract_id => l_chr_id
15970: );
15971:
15972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15975: RAISE OKL_API.G_EXCEPTION_ERROR;
15976: END IF;
15969: p_contract_id => l_chr_id
15970: );
15971:
15972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15975: RAISE OKL_API.G_EXCEPTION_ERROR;
15976: END IF;
15977:
15970: );
15971:
15972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15975: RAISE OKL_API.G_EXCEPTION_ERROR;
15976: END IF;
15977:
15978: --Bug# 6344223
15971:
15972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15975: RAISE OKL_API.G_EXCEPTION_ERROR;
15976: END IF;
15977:
15978: --Bug# 6344223
15979: okl_stream_generator_pvt.create_pv_streams(
15984: x_msg_data => x_msg_data,
15985: p_contract_id => l_chr_id
15986: );
15987:
15988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15991: RAISE OKL_API.G_EXCEPTION_ERROR;
15992: END IF;
15985: p_contract_id => l_chr_id
15986: );
15987:
15988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15991: RAISE OKL_API.G_EXCEPTION_ERROR;
15992: END IF;
15993:
15986: );
15987:
15988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15991: RAISE OKL_API.G_EXCEPTION_ERROR;
15992: END IF;
15993:
15994: okl_contract_rebook_pvt.create_inv_disb_adjustment(
15987:
15988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15991: RAISE OKL_API.G_EXCEPTION_ERROR;
15992: END IF;
15993:
15994: okl_contract_rebook_pvt.create_inv_disb_adjustment(
15995: p_api_version => 1.0,
16000: p_orig_khr_id => l_chr_id
16001: );
16002:
16003:
16004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16007: RAISE OKL_API.G_EXCEPTION_ERROR;
16008: END IF;
16001: );
16002:
16003:
16004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16007: RAISE OKL_API.G_EXCEPTION_ERROR;
16008: END IF;
16009: --Bug# 6344223 : End
16002:
16003:
16004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16007: RAISE OKL_API.G_EXCEPTION_ERROR;
16008: END IF;
16009: --Bug# 6344223 : End
16010: END IF;
16003:
16004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16007: RAISE OKL_API.G_EXCEPTION_ERROR;
16008: END IF;
16009: --Bug# 6344223 : End
16010: END IF;
16011:
16025: p_cle_tbl => x_cle_tbl,
16026: p_txlv_rec => l_txlv_rec
16027: );
16028:
16029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16032: RAISE OKL_API.G_EXCEPTION_ERROR;
16033: END IF;
16026: p_txlv_rec => l_txlv_rec
16027: );
16028:
16029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16032: RAISE OKL_API.G_EXCEPTION_ERROR;
16033: END IF;
16034: END IF;
16027: );
16028:
16029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16032: RAISE OKL_API.G_EXCEPTION_ERROR;
16033: END IF;
16034: END IF;
16035: --Bug# 5946411: ER end
16028:
16029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16032: RAISE OKL_API.G_EXCEPTION_ERROR;
16033: END IF;
16034: END IF;
16035: --Bug# 5946411: ER end
16036:
16046: p_source_trx_id => p_txlv_rec.tas_id, --
16047: p_source_trx_name => 'Split Asset',
16048: p_source_table => 'OKL_TRX_ASSETS');
16049:
16050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16053: RAISE OKL_API.G_EXCEPTION_ERROR;
16054: END IF;
16047: p_source_trx_name => 'Split Asset',
16048: p_source_table => 'OKL_TRX_ASSETS');
16049:
16050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16053: RAISE OKL_API.G_EXCEPTION_ERROR;
16054: END IF;
16055:
16048: p_source_table => 'OKL_TRX_ASSETS');
16049:
16050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16053: RAISE OKL_API.G_EXCEPTION_ERROR;
16054: END IF;
16055:
16056: ------------------------------------------------------------------------
16049:
16050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16053: RAISE OKL_API.G_EXCEPTION_ERROR;
16054: END IF;
16055:
16056: ------------------------------------------------------------------------
16057: --Bug# : R12.B eBTax impact End
16069: p_thpv_rec => l_trxv_rec,
16070: x_thpv_rec => lx_trxv_rec);
16071:
16072: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16070: x_thpv_rec => lx_trxv_rec);
16071:
16072: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078:
16071:
16072: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078:
16079: END IF;
16072: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078:
16079: END IF;
16080: OKL_API.END_ACTIVITY (x_msg_count,
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078:
16079: END IF;
16080: OKL_API.END_ACTIVITY (x_msg_count,
16081: x_msg_data );
16082: EXCEPTION
16083: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16084: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16079: END IF;
16080: OKL_API.END_ACTIVITY (x_msg_count,
16081: x_msg_data );
16082: EXCEPTION
16083: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16084: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16085: l_api_name,
16086: G_PKG_NAME,
16087: 'OKL_API.G_RET_STS_ERROR',
16080: OKL_API.END_ACTIVITY (x_msg_count,
16081: x_msg_data );
16082: EXCEPTION
16083: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16084: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16085: l_api_name,
16086: G_PKG_NAME,
16087: 'OKL_API.G_RET_STS_ERROR',
16088: x_msg_count,
16083: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16084: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16085: l_api_name,
16086: G_PKG_NAME,
16087: 'OKL_API.G_RET_STS_ERROR',
16088: x_msg_count,
16089: x_msg_data,
16090: '_PVT');
16091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16087: 'OKL_API.G_RET_STS_ERROR',
16088: x_msg_count,
16089: x_msg_data,
16090: '_PVT');
16091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16092: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16093: l_api_name,
16094: G_PKG_NAME,
16095: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16088: x_msg_count,
16089: x_msg_data,
16090: '_PVT');
16091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16092: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16093: l_api_name,
16094: G_PKG_NAME,
16095: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16096: x_msg_count,
16091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16092: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16093: l_api_name,
16094: G_PKG_NAME,
16095: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16096: x_msg_count,
16097: x_msg_data,
16098: '_PVT');
16099: WHEN OTHERS THEN
16096: x_msg_count,
16097: x_msg_data,
16098: '_PVT');
16099: WHEN OTHERS THEN
16100: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16101: l_api_name,
16102: G_PKG_NAME,
16103: 'OTHERS',
16104: x_msg_count,
16160: x_cle_tbl OUT NOCOPY cle_tbl_type,
16161: --Bug# 6344223
16162: p_source_call IN VARCHAR2 DEFAULT 'UI') IS
16163:
16164: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16165: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_FIXED_ASSET';
16166: l_api_version CONSTANT NUMBER := 1.0;
16167:
16168: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16234:
16235:
16236: l_srl_control_code mtl_system_items.serial_number_control_code%TYPE;
16237:
16238: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
16239:
16240: --Bug# 5946411: ER
16241: CURSOR c_get_sts_code(p_chr_id NUMBER)
16242: IS
16278:
16279:
16280: l_parameter_list wf_parameter_list_t;
16281: BEGIN
16282: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16283:
16284: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
16285: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cle_id,l_parameter_list);
16286: wf_event.AddParameterToList(G_WF_ITM_TRANS_DATE,fnd_date.date_to_canonical(l_trx_date),l_parameter_list);
16295:
16296:
16297: EXCEPTION
16298: WHEN OTHERS THEN
16299: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
16300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16301: END raise_business_event;
16302:
16303: /*
16296:
16297: EXCEPTION
16298: WHEN OTHERS THEN
16299: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
16300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16301: END raise_business_event;
16302:
16303: /*
16304: -- mvasudev, 08/23/2004
16308: BEGIN
16309:
16310: -- Call start_activity to create savepoint, check compatibility
16311: -- and initialize message list
16312: x_return_status := OKL_API.START_ACTIVITY (
16313: l_api_name
16314: ,p_init_msg_list
16315: ,'_PVT'
16316: ,x_return_status);
16314: ,p_init_msg_list
16315: ,'_PVT'
16316: ,x_return_status);
16317: -- Check if activity started successfully
16318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16321: RAISE OKL_API.G_EXCEPTION_ERROR;
16322: END IF;
16315: ,'_PVT'
16316: ,x_return_status);
16317: -- Check if activity started successfully
16318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16321: RAISE OKL_API.G_EXCEPTION_ERROR;
16322: END IF;
16323:
16316: ,x_return_status);
16317: -- Check if activity started successfully
16318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16321: RAISE OKL_API.G_EXCEPTION_ERROR;
16322: END IF;
16323:
16324: --Verify cle_id
16317: -- Check if activity started successfully
16318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16321: RAISE OKL_API.G_EXCEPTION_ERROR;
16322: END IF;
16323:
16324: --Verify cle_id
16325: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16322: END IF;
16323:
16324: --Verify cle_id
16325: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16326: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16328: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16329: RAISE OKL_API.G_EXCEPTION_ERROR;
16330: END IF;
16323:
16324: --Verify cle_id
16325: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16326: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16328: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16329: RAISE OKL_API.G_EXCEPTION_ERROR;
16330: END IF;
16331:
16324: --Verify cle_id
16325: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16326: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16328: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16329: RAISE OKL_API.G_EXCEPTION_ERROR;
16330: END IF;
16331:
16332: --get fixed asset line
16325: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16326: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16328: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16329: RAISE OKL_API.G_EXCEPTION_ERROR;
16330: END IF;
16331:
16332: --get fixed asset line
16333: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16333: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16334: FETCH fa_line_csr INTO l_fa_line_id, l_chr_id;
16335: IF fa_line_csr%NOTFOUND THEN
16336: NULL; --not exactly
16337: OKL_API.set_message(p_app_name => G_APP_NAME,
16338: p_msg_name => G_INACTIVE_ASSET
16339: );
16340: RAISE OKL_API.G_EXCEPTION_ERROR;
16341: ELSE
16336: NULL; --not exactly
16337: OKL_API.set_message(p_app_name => G_APP_NAME,
16338: p_msg_name => G_INACTIVE_ASSET
16339: );
16340: RAISE OKL_API.G_EXCEPTION_ERROR;
16341: ELSE
16342: /*
16343: -- mvasudev, 10/28/2004
16344: -- Fetch parameters for Business Event enabling
16356: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16357: IF l_no_data_found THEN
16358: NULL;
16359: --dbms_output.put_line('No pending Split Asset Transactions FOR this Asset');
16360: OKL_API.set_message(p_app_name => G_APP_NAME,
16361: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16362: );
16363: RAISE OKL_API.G_EXCEPTION_ERROR;
16364: ELSE
16359: --dbms_output.put_line('No pending Split Asset Transactions FOR this Asset');
16360: OKL_API.set_message(p_app_name => G_APP_NAME,
16361: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16362: );
16363: RAISE OKL_API.G_EXCEPTION_ERROR;
16364: ELSE
16365: --dbms_output.put_line('txlv id FOR FETCH OF txd '|| to_char(l_txlv_rec.id));
16366: l_txdv_tbl := get_trx_details (
16367: p_tal_id => l_txlv_rec.id,
16369: );
16370: IF l_no_data_found THEN
16371: NULL;
16372: --dbms_output.put_line('NO_DATA_FOUND FOR trx detail');
16373: OKL_API.set_message(p_app_name => G_APP_NAME,
16374: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16375: );
16376: RAISE OKL_API.G_EXCEPTION_ERROR;
16377:
16372: --dbms_output.put_line('NO_DATA_FOUND FOR trx detail');
16373: OKL_API.set_message(p_app_name => G_APP_NAME,
16374: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16375: );
16376: RAISE OKL_API.G_EXCEPTION_ERROR;
16377:
16378: ELSE
16379:
16380: --Bug #2723498 : 11.5.9 Split by serial numbers validation
16381: --1. validate for split into units
16382:
16383: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16384: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16385: l_serialized := OKL_API.G_FALSE;
16386: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
16387: IF (l_serialized = OKL_API.G_TRUE) THEN
16388: OPEN srl_num_csr1 (PTalid => l_txlv_rec.id);
16389: FETCH srl_num_csr1 INTO l_serial_count;
16383: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16384: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16385: l_serialized := OKL_API.G_FALSE;
16386: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
16387: IF (l_serialized = OKL_API.G_TRUE) THEN
16388: OPEN srl_num_csr1 (PTalid => l_txlv_rec.id);
16389: FETCH srl_num_csr1 INTO l_serial_count;
16390: IF srl_num_csr1%NOTFOUND THEN
16391: NULL; --it is count cursor so should not happen
16402: NULL;
16403: END IF;
16404: CLOSE asset_num_csr;
16405:
16406: OKL_API.set_message(p_app_name => G_APP_NAME,
16407: p_msg_name => G_SPLIT_SERIAL_NOT_FOUND,
16408: p_token1 => G_ASSET_NUMBER_TOKEN,
16409: p_token1_value => l_asset_number,
16410: p_token2 => G_SPLIT_UNITS_TOKEN,
16410: p_token2 => G_SPLIT_UNITS_TOKEN,
16411: p_token2_value => TO_CHAR(l_txlv_rec.split_into_units)
16412: );
16413: --raise exception
16414: RAISE OKL_API.G_EXCEPTION_ERROR;
16415: END IF;
16416: END IF;
16417: END IF;
16418:
16447: IF (l_serial_count <> l_txdv_tbl(i).quantity) THEN
16448: --Inventory item for asset is serialized. Please select split_into_units
16449: --serial nubers to split.
16450:
16451: OKL_API.set_message(p_app_name => G_APP_NAME,
16452: p_msg_name => G_SPLIT_SERIAL_NOT_FOUND,
16453: p_token1 => G_ASSET_NUMBER_TOKEN,
16454: p_token1_value => l_txdv_tbl(i).Asset_Number,
16455: p_token2 => G_SPLIT_UNITS_TOKEN,
16455: p_token2 => G_SPLIT_UNITS_TOKEN,
16456: p_token2_value => TO_CHAR(l_txdv_tbl(i).quantity)
16457: );
16458: --raise exception
16459: RAISE OKL_API.G_EXCEPTION_ERROR;
16460: END IF;
16461: END IF;
16462: END LOOP; -- txdv_tbl
16463: END IF;-- txdv_tb.count > 0
16478: x_msg_count => x_msg_count,
16479: x_msg_data => x_msg_data,
16480: p_chr_id => l_chr_id
16481: );
16482: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16484: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16485: RAISE OKL_API.G_EXCEPTION_ERROR;
16486: END IF;
16479: x_msg_data => x_msg_data,
16480: p_chr_id => l_chr_id
16481: );
16482: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16484: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16485: RAISE OKL_API.G_EXCEPTION_ERROR;
16486: END IF;
16487: END IF; --Bug# 5946411: ER
16480: p_chr_id => l_chr_id
16481: );
16482: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16484: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16485: RAISE OKL_API.G_EXCEPTION_ERROR;
16486: END IF;
16487: END IF; --Bug# 5946411: ER
16488:
16481: );
16482: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16484: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16485: RAISE OKL_API.G_EXCEPTION_ERROR;
16486: END IF;
16487: END IF; --Bug# 5946411: ER
16488:
16489: --Call split asset for transactions to be processed
16497: x_cle_tbl => x_cle_tbl,
16498: --Bug# 6344223
16499: p_source_call => p_source_call);
16500:
16501: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16503: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16504: RAISE OKL_API.G_EXCEPTION_ERROR;
16505: END IF;
16498: --Bug# 6344223
16499: p_source_call => p_source_call);
16500:
16501: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16503: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16504: RAISE OKL_API.G_EXCEPTION_ERROR;
16505: END IF;
16506: END IF;
16499: p_source_call => p_source_call);
16500:
16501: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16503: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16504: RAISE OKL_API.G_EXCEPTION_ERROR;
16505: END IF;
16506: END IF;
16507: END IF;
16500:
16501: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16503: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16504: RAISE OKL_API.G_EXCEPTION_ERROR;
16505: END IF;
16506: END IF;
16507: END IF;
16508: END IF;
16513: */
16514: raise_business_event(p_dnz_chr_id => l_dnz_chr_id,
16515: p_trx_date => l_trx_date,
16516: x_return_status => x_return_status);
16517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16520: RAISE OKL_API.G_EXCEPTION_ERROR;
16521: END IF;
16514: raise_business_event(p_dnz_chr_id => l_dnz_chr_id,
16515: p_trx_date => l_trx_date,
16516: x_return_status => x_return_status);
16517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16520: RAISE OKL_API.G_EXCEPTION_ERROR;
16521: END IF;
16522:
16515: p_trx_date => l_trx_date,
16516: x_return_status => x_return_status);
16517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16520: RAISE OKL_API.G_EXCEPTION_ERROR;
16521: END IF;
16522:
16523: /*
16516: x_return_status => x_return_status);
16517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16520: RAISE OKL_API.G_EXCEPTION_ERROR;
16521: END IF;
16522:
16523: /*
16524: -- mvasudev, 08/23/2004
16524: -- mvasudev, 08/23/2004
16525: -- END, Code change to enable Business Event
16526: */
16527:
16528: OKL_API.END_ACTIVITY (x_msg_count,
16529: x_msg_data );
16530:
16531: EXCEPTION
16532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16528: OKL_API.END_ACTIVITY (x_msg_count,
16529: x_msg_data );
16530:
16531: EXCEPTION
16532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16533: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16534: l_api_name,
16535: G_PKG_NAME,
16536: 'OKL_API.G_RET_STS_ERROR',
16529: x_msg_data );
16530:
16531: EXCEPTION
16532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16533: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16534: l_api_name,
16535: G_PKG_NAME,
16536: 'OKL_API.G_RET_STS_ERROR',
16537: x_msg_count,
16532: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16533: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16534: l_api_name,
16535: G_PKG_NAME,
16536: 'OKL_API.G_RET_STS_ERROR',
16537: x_msg_count,
16538: x_msg_data,
16539: '_PVT');
16540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16536: 'OKL_API.G_RET_STS_ERROR',
16537: x_msg_count,
16538: x_msg_data,
16539: '_PVT');
16540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16541: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16542: l_api_name,
16543: G_PKG_NAME,
16544: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16537: x_msg_count,
16538: x_msg_data,
16539: '_PVT');
16540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16541: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16542: l_api_name,
16543: G_PKG_NAME,
16544: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16545: x_msg_count,
16540: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16541: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16542: l_api_name,
16543: G_PKG_NAME,
16544: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16545: x_msg_count,
16546: x_msg_data,
16547: '_PVT');
16548: WHEN OTHERS THEN
16545: x_msg_count,
16546: x_msg_data,
16547: '_PVT');
16548: WHEN OTHERS THEN
16549: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16550: l_api_name,
16551: G_PKG_NAME,
16552: 'OTHERS',
16553: x_msg_count,
16564: --End of Comments
16565: --------------------------------------------------------------------------------
16566: PROCEDURE Cancel_Split_Asset_Trs
16567: (p_api_version IN NUMBER,
16568: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
16569: x_return_status OUT NOCOPY VARCHAR2,
16570: x_msg_count OUT NOCOPY NUMBER,
16571: x_msg_data OUT NOCOPY VARCHAR2,
16572: p_cle_id IN NUMBER) IS
16570: x_msg_count OUT NOCOPY NUMBER,
16571: x_msg_data OUT NOCOPY VARCHAR2,
16572: p_cle_id IN NUMBER) IS
16573:
16574: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16575: l_api_name CONSTANT VARCHAR2(30) := 'CANCEL_SPLIT_ASSET_TRS';
16576: l_api_version CONSTANT NUMBER := 1.0;
16577:
16578: --Cursor to get the fixed Asset Line Id
16607:
16608: BEGIN
16609: -- Call start_activity to create savepoint, check compatibility
16610: -- and initialize message list
16611: x_return_status := OKL_API.START_ACTIVITY (
16612: l_api_name
16613: ,p_init_msg_list
16614: ,'_PVT'
16615: ,x_return_status);
16613: ,p_init_msg_list
16614: ,'_PVT'
16615: ,x_return_status);
16616: -- Check if activity started successfully
16617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16619: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16620: RAISE OKL_API.G_EXCEPTION_ERROR;
16621: END IF;
16614: ,'_PVT'
16615: ,x_return_status);
16616: -- Check if activity started successfully
16617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16619: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16620: RAISE OKL_API.G_EXCEPTION_ERROR;
16621: END IF;
16622:
16615: ,x_return_status);
16616: -- Check if activity started successfully
16617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16619: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16620: RAISE OKL_API.G_EXCEPTION_ERROR;
16621: END IF;
16622:
16623: l_cle_id := p_cle_id;
16616: -- Check if activity started successfully
16617: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16618: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16619: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16620: RAISE OKL_API.G_EXCEPTION_ERROR;
16621: END IF;
16622:
16623: l_cle_id := p_cle_id;
16624: --1.Verify p_cle_id
16622:
16623: l_cle_id := p_cle_id;
16624: --1.Verify p_cle_id
16625: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16626: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16628: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16629: RAISE OKL_API.G_EXCEPTION_ERROR;
16630: END IF;
16623: l_cle_id := p_cle_id;
16624: --1.Verify p_cle_id
16625: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16626: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16628: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16629: RAISE OKL_API.G_EXCEPTION_ERROR;
16630: END IF;
16631:
16624: --1.Verify p_cle_id
16625: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16626: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16628: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16629: RAISE OKL_API.G_EXCEPTION_ERROR;
16630: END IF;
16631:
16632: -- get fixedasset line id
16625: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16626: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16628: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16629: RAISE OKL_API.G_EXCEPTION_ERROR;
16630: END IF;
16631:
16632: -- get fixedasset line id
16633: OPEN l_fixedasst_csr(p_finasst_line => l_cle_id);
16637: ELSE
16638: OPEN l_tal_csr(p_fixedasst_line => l_fixedasst_line);
16639: FETCH l_tal_csr INTO l_tal_id, l_tas_id;
16640: IF l_tal_csr%NOTFOUND THEN
16641: OKL_API.set_message(p_app_name => G_APP_NAME,
16642: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16643: );
16644: RAISE OKL_API.G_EXCEPTION_ERROR;
16645: ELSE
16640: IF l_tal_csr%NOTFOUND THEN
16641: OKL_API.set_message(p_app_name => G_APP_NAME,
16642: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16643: );
16644: RAISE OKL_API.G_EXCEPTION_ERROR;
16645: ELSE
16646: --update the transaction status to cancelled
16647: l_tasv_rec.id := l_tas_id;
16648: l_tasv_rec.tsu_code := 'CANCELED';
16655: x_msg_data => x_msg_data,
16656: p_thpv_rec => l_tasv_rec,
16657: x_thpv_rec => lx_tasv_rec);
16658:
16659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16662: RAISE OKL_API.G_EXCEPTION_ERROR;
16663: END IF;
16656: p_thpv_rec => l_tasv_rec,
16657: x_thpv_rec => lx_tasv_rec);
16658:
16659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16662: RAISE OKL_API.G_EXCEPTION_ERROR;
16663: END IF;
16664: END IF;
16657: x_thpv_rec => lx_tasv_rec);
16658:
16659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16662: RAISE OKL_API.G_EXCEPTION_ERROR;
16663: END IF;
16664: END IF;
16665: CLOSE l_tal_csr;
16658:
16659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16662: RAISE OKL_API.G_EXCEPTION_ERROR;
16663: END IF;
16664: END IF;
16665: CLOSE l_tal_csr;
16666: END IF; --l_fixedasst_csr%NOTFOUND
16664: END IF;
16665: CLOSE l_tal_csr;
16666: END IF; --l_fixedasst_csr%NOTFOUND
16667: CLOSE l_fixedasst_csr;
16668: OKL_API.END_ACTIVITY (x_msg_count,
16669: x_msg_data );
16670: EXCEPTION
16671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16667: CLOSE l_fixedasst_csr;
16668: OKL_API.END_ACTIVITY (x_msg_count,
16669: x_msg_data );
16670: EXCEPTION
16671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16673: l_api_name,
16674: G_PKG_NAME,
16675: 'OKL_API.G_RET_STS_ERROR',
16668: OKL_API.END_ACTIVITY (x_msg_count,
16669: x_msg_data );
16670: EXCEPTION
16671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16673: l_api_name,
16674: G_PKG_NAME,
16675: 'OKL_API.G_RET_STS_ERROR',
16676: x_msg_count,
16671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16672: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16673: l_api_name,
16674: G_PKG_NAME,
16675: 'OKL_API.G_RET_STS_ERROR',
16676: x_msg_count,
16677: x_msg_data,
16678: '_PVT');
16679: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16675: 'OKL_API.G_RET_STS_ERROR',
16676: x_msg_count,
16677: x_msg_data,
16678: '_PVT');
16679: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16680: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16681: l_api_name,
16682: G_PKG_NAME,
16683: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16676: x_msg_count,
16677: x_msg_data,
16678: '_PVT');
16679: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16680: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16681: l_api_name,
16682: G_PKG_NAME,
16683: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16684: x_msg_count,
16679: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16680: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16681: l_api_name,
16682: G_PKG_NAME,
16683: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16684: x_msg_count,
16685: x_msg_data,
16686: '_PVT');
16687: WHEN OTHERS THEN
16684: x_msg_count,
16685: x_msg_data,
16686: '_PVT');
16687: WHEN OTHERS THEN
16688: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16689: l_api_name,
16690: G_PKG_NAME,
16691: 'OTHERS',
16692: x_msg_count,
16697: x_msg_count OUT NOCOPY NUMBER,
16698: x_msg_data OUT NOCOPY VARCHAR2,
16699: p_cle_id IN NUMBER) is
16700:
16701: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16702: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_SER_NUM_CHECKED';
16703: l_api_version CONSTANT NUMBER := 1.0;
16704:
16705: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16741:
16742: -- dbms_output.put_line('start');
16743: -- Call start_activity to create savepoint, check compatibility
16744: -- and initialize message list
16745: x_return_status := OKL_API.START_ACTIVITY (
16746: l_api_name
16747: ,OKL_API.G_FALSE
16748: ,'_PVT'
16749: ,x_return_status);
16743: -- Call start_activity to create savepoint, check compatibility
16744: -- and initialize message list
16745: x_return_status := OKL_API.START_ACTIVITY (
16746: l_api_name
16747: ,OKL_API.G_FALSE
16748: ,'_PVT'
16749: ,x_return_status);
16750: -- Check if activity started successfully
16751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16747: ,OKL_API.G_FALSE
16748: ,'_PVT'
16749: ,x_return_status);
16750: -- Check if activity started successfully
16751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16754: RAISE OKL_API.G_EXCEPTION_ERROR;
16755: END IF;
16748: ,'_PVT'
16749: ,x_return_status);
16750: -- Check if activity started successfully
16751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16754: RAISE OKL_API.G_EXCEPTION_ERROR;
16755: END IF;
16756: -- dbms_output.put_line('ebd activity');
16749: ,x_return_status);
16750: -- Check if activity started successfully
16751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16754: RAISE OKL_API.G_EXCEPTION_ERROR;
16755: END IF;
16756: -- dbms_output.put_line('ebd activity');
16757: --Verify cle_id
16750: -- Check if activity started successfully
16751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16754: RAISE OKL_API.G_EXCEPTION_ERROR;
16755: END IF;
16756: -- dbms_output.put_line('ebd activity');
16757: --Verify cle_id
16758: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16756: -- dbms_output.put_line('ebd activity');
16757: --Verify cle_id
16758: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16759: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16760: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16762: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16763: RAISE OKL_API.G_EXCEPTION_ERROR;
16764: END IF;
16757: --Verify cle_id
16758: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16759: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16760: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16762: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16763: RAISE OKL_API.G_EXCEPTION_ERROR;
16764: END IF;
16765:
16758: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16759: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16760: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16762: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16763: RAISE OKL_API.G_EXCEPTION_ERROR;
16764: END IF;
16765:
16766: -- dbms_output.put_line('b4 fa_line_csr');
16759: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16760: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16761: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16762: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16763: RAISE OKL_API.G_EXCEPTION_ERROR;
16764: END IF;
16765:
16766: -- dbms_output.put_line('b4 fa_line_csr');
16767: --get fixed asset line
16768: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16769: FETCH fa_line_csr INTO l_fa_line_id, l_chr_id;
16770: IF fa_line_csr%NOTFOUND THEN
16771: NULL; --not exactly
16772: OKL_API.set_message(p_app_name => G_APP_NAME,
16773: p_msg_name => G_INACTIVE_ASSET
16774: );
16775: RAISE OKL_API.G_EXCEPTION_ERROR;
16776: ELSE
16771: NULL; --not exactly
16772: OKL_API.set_message(p_app_name => G_APP_NAME,
16773: p_msg_name => G_INACTIVE_ASSET
16774: );
16775: RAISE OKL_API.G_EXCEPTION_ERROR;
16776: ELSE
16777: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16778: IF l_no_data_found THEN
16779: NULL;
16776: ELSE
16777: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16778: IF l_no_data_found THEN
16779: NULL;
16780: OKL_API.set_message(p_app_name => G_APP_NAME,
16781: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16782: );
16783: RAISE OKL_API.G_EXCEPTION_ERROR;
16784: ELSE
16779: NULL;
16780: OKL_API.set_message(p_app_name => G_APP_NAME,
16781: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16782: );
16783: RAISE OKL_API.G_EXCEPTION_ERROR;
16784: ELSE
16785: l_txdv_tbl := get_trx_details (
16786: p_tal_id => l_txlv_rec.id,
16787: x_no_data_found => l_no_data_found
16787: x_no_data_found => l_no_data_found
16788: );
16789: IF l_no_data_found THEN
16790: NULL;
16791: OKL_API.set_message(p_app_name => G_APP_NAME,
16792: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16793: );
16794: RAISE OKL_API.G_EXCEPTION_ERROR;
16795:
16790: NULL;
16791: OKL_API.set_message(p_app_name => G_APP_NAME,
16792: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16793: );
16794: RAISE OKL_API.G_EXCEPTION_ERROR;
16795:
16796: ELSE
16797: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16798: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16815: NULL;
16816: END IF;
16817: CLOSE asset_num_csr;
16818: -- dbms_output.put_line('after asset_num_csr:');
16819: OKL_API.set_message(p_app_name => G_APP_NAME,
16820: p_msg_name =>
16821: G_SPLIT_SERIAL_NOT_FOUND,
16822: p_token1 =>
16823: G_ASSET_NUMBER_TOKEN,
16827: p_token2_value =>
16828: TO_CHAR(l_txlv_rec.split_into_units)
16829: );
16830: --raise exception
16831: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: END IF;
16833: END IF;
16834: END IF;
16835: END IF;
16834: END IF;
16835: END IF;
16836: END IF;
16837: exception
16838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16840: l_api_name,
16841: G_PKG_NAME,
16842: 'OKL_API.G_RET_STS_ERROR',
16835: END IF;
16836: END IF;
16837: exception
16838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16840: l_api_name,
16841: G_PKG_NAME,
16842: 'OKL_API.G_RET_STS_ERROR',
16843: x_msg_count,
16838: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16840: l_api_name,
16841: G_PKG_NAME,
16842: 'OKL_API.G_RET_STS_ERROR',
16843: x_msg_count,
16844: x_msg_data,
16845: '_PVT');
16846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16842: 'OKL_API.G_RET_STS_ERROR',
16843: x_msg_count,
16844: x_msg_data,
16845: '_PVT');
16846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16847: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16848: l_api_name,
16849: G_PKG_NAME,
16850: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16843: x_msg_count,
16844: x_msg_data,
16845: '_PVT');
16846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16847: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16848: l_api_name,
16849: G_PKG_NAME,
16850: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16851: x_msg_count,
16846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16847: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16848: l_api_name,
16849: G_PKG_NAME,
16850: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16851: x_msg_count,
16852: x_msg_data,
16853: '_PVT');
16854: WHEN OTHERS THEN
16851: x_msg_count,
16852: x_msg_data,
16853: '_PVT');
16854: WHEN OTHERS THEN
16855: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16856: l_api_name,
16857: G_PKG_NAME,
16858: 'OTHERS',
16859: x_msg_count,