[Home] [Help]
6: G_FIN_AST_LTY_CODE CONSTANT VARCHAR2(30) := 'FREE_FORM1';
7: --------------------------------------------------------------------------------
8: -- GLOBAL MESSAGE CONSTANTS
9: --------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
7: --------------------------------------------------------------------------------
8: -- GLOBAL MESSAGE CONSTANTS
9: --------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
9: --------------------------------------------------------------------------------
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: -- Bug# 4542290 - smadhava - Added - Start
11: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
15: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
18: -- Bug# 4542290 - smadhava - Added - Start
19: G_METHOD CONSTANT VARCHAR2(200) := 'METHOD';
155: from okc_k_lines_b cleb
156: where id = p_cle_id
157: and lse_id = 33;
158:
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
160:
161: Begin
162: x_return_status := OKL_API.G_RET_STS_SUCCESS;
163: -- Call start_activity to create savepoint, check compatibility
158:
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
160:
161: Begin
162: x_return_status := OKL_API.G_RET_STS_SUCCESS;
163: -- Call start_activity to create savepoint, check compatibility
164: -- and initialize message list
165: x_return_status := OKL_API.START_ACTIVITY (
166: l_api_name
161: Begin
162: x_return_status := OKL_API.G_RET_STS_SUCCESS;
163: -- Call start_activity to create savepoint, check compatibility
164: -- and initialize message list
165: x_return_status := OKL_API.START_ACTIVITY (
166: l_api_name
167: ,p_init_msg_list
168: ,'_PVT'
169: ,x_return_status);
167: ,p_init_msg_list
168: ,'_PVT'
169: ,x_return_status);
170: -- Check if activity started successfully
171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
168: ,'_PVT'
169: ,x_return_status);
170: -- Check if activity started successfully
171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
176: --1. Validate Revision Date
169: ,x_return_status);
170: -- Check if activity started successfully
171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
176: --1. Validate Revision Date
177: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
170: -- Check if activity started successfully
171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
176: --1. Validate Revision Date
177: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
178: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
176: --1. Validate Revision Date
177: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
178: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
179: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
180: p_token1 => 'COLUMN_PROMPT',
181: p_token1_value => 'Revision Date'
174: RAISE OKL_API.G_EXCEPTION_ERROR;
175: END IF;
176: --1. Validate Revision Date
177: IF p_revision_date is NULL or p_revision_date = OKL_API.G_MISS_DATE Then
178: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
179: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
180: p_token1 => 'COLUMN_PROMPT',
181: p_token1_value => 'Revision Date'
182: );
179: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
180: p_token1 => 'COLUMN_PROMPT',
181: p_token1_value => 'Revision Date'
182: );
183: l_return_status := OKL_API.G_RET_STS_ERROR;
184: END IF;
185: --2. Validate the Asset Id
186: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
187: --Asset Number to split is andatory
182: );
183: l_return_status := OKL_API.G_RET_STS_ERROR;
184: END IF;
185: --2. Validate the Asset Id
186: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
187: --Asset Number to split is andatory
188: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
189: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
190: p_token1 => 'COLUMN_PROMPT',
184: END IF;
185: --2. Validate the Asset Id
186: If nvl(p_cle_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
187: --Asset Number to split is andatory
188: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
189: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
190: p_token1 => 'COLUMN_PROMPT',
191: p_token1_value => 'Asset'
192: );
189: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
190: p_token1 => 'COLUMN_PROMPT',
191: p_token1_value => 'Asset'
192: );
193: l_return_status := OKL_API.G_RET_STS_ERROR;
194: ElsIf nvl(p_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
195: --find out whether the asset number provided is valid
196: l_valid_asset_flag := 'N';
197: Open l_cle_csr(p_cle_id => p_cle_id);
190: p_token1 => 'COLUMN_PROMPT',
191: p_token1_value => 'Asset'
192: );
193: l_return_status := OKL_API.G_RET_STS_ERROR;
194: ElsIf nvl(p_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
195: --find out whether the asset number provided is valid
196: l_valid_asset_flag := 'N';
197: Open l_cle_csr(p_cle_id => p_cle_id);
198: Fetch l_cle_csr into l_valid_asset_flag;
197: Open l_cle_csr(p_cle_id => p_cle_id);
198: Fetch l_cle_csr into l_valid_asset_flag;
199: Close l_cle_csr;
200: If l_valid_asset_flag = 'N' Then
201: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
202: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
203: p_token1 => 'COL_NAME',
204: p_token1_value => 'Asset'
205: );
202: p_msg_name => 'OKL_LLA_NO_DATA_FOUND',
203: p_token1 => 'COL_NAME',
204: p_token1_value => 'Asset'
205: );
206: l_return_status := OKL_API.G_RET_STS_ERROR;
207: End If;
208: End If;
209: --3. validate units to split
210: If (
207: End If;
208: End If;
209: --3. validate units to split
210: If (
211: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
208: End If;
209: --3. validate units to split
210: If (
211: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
216: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
211: (nvl(p_split_into_individuals_yn, OKL_API.G_MISS_CHAR) =
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
216: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
217: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
218: p_token1 => 'COL_NAME1',
219: p_token1_value => 'Split Into Single Units',
212: OKL_API.G_MISS_CHAR
213: ) OR (p_split_into_individuals_yn = 'N')
214: ) AND
215: nvl(p_split_into_units, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM Then
216: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
217: p_msg_name => 'OKL_LLA_INVALID_SPLIT_OPTION',
218: p_token1 => 'COL_NAME1',
219: p_token1_value => 'Split Into Single Units',
220: p_token2 => 'COL_NAME2',
219: p_token1_value => 'Split Into Single Units',
220: p_token2 => 'COL_NAME2',
221: p_token2_value => 'Number of Units'
222: );
223: l_return_status := OKL_API.G_RET_STS_ERROR;
224: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
225: Then
226: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
227: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
220: p_token2 => 'COL_NAME2',
221: p_token2_value => 'Number of Units'
222: );
223: l_return_status := OKL_API.G_RET_STS_ERROR;
224: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
225: Then
226: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
227: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
228: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
222: );
223: l_return_status := OKL_API.G_RET_STS_ERROR;
224: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
225: Then
226: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
227: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
228: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
229: p_token1 => 'PROMPT',
230: p_token1_value => 'Number of Units'
223: l_return_status := OKL_API.G_RET_STS_ERROR;
224: ElsIf nvl(p_split_into_units, OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM
225: Then
226: If nvl(p_split_into_units, OKL_API.G_MISS_NUM) <= 0 Then
227: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
228: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
229: p_token1 => 'PROMPT',
230: p_token1_value => 'Number of Units'
231: );
228: p_msg_name => 'OKL_AM_REQ_FIELD_POS_ERR',
229: p_token1 => 'PROMPT',
230: p_token1_value => 'Number of Units'
231: );
232: l_return_status := OKL_API.G_RET_STS_ERROR;
233: End If;
234: End IF;
235:
236: x_return_status := l_return_status;
235:
236: x_return_status := l_return_status;
237:
238: --Call end Activity
239: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
240: EXCEPTION
241: WHEN OKL_API.G_EXCEPTION_ERROR Then
242: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
243: (
237:
238: --Call end Activity
239: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
240: EXCEPTION
241: WHEN OKL_API.G_EXCEPTION_ERROR Then
242: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
243: (
244: l_api_name,
245: G_PKG_NAME,
238: --Call end Activity
239: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
240: EXCEPTION
241: WHEN OKL_API.G_EXCEPTION_ERROR Then
242: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
243: (
244: l_api_name,
245: G_PKG_NAME,
246: 'OKL_API.G_RET_STS_ERROR',
242: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
243: (
244: l_api_name,
245: G_PKG_NAME,
246: 'OKL_API.G_RET_STS_ERROR',
247: x_msg_count,
248: x_msg_data,
249: '_PVT'
250: );
247: x_msg_count,
248: x_msg_data,
249: '_PVT'
250: );
251: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
252: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
253: (
254: l_api_name,
255: G_PKG_NAME,
248: x_msg_data,
249: '_PVT'
250: );
251: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
252: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
253: (
254: l_api_name,
255: G_PKG_NAME,
256: 'OKL_API.G_RET_STS_UNEXP_ERROR',
252: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
253: (
254: l_api_name,
255: G_PKG_NAME,
256: 'OKL_API.G_RET_STS_UNEXP_ERROR',
257: x_msg_count,
258: x_msg_data,
259: '_PVT'
260: );
258: x_msg_data,
259: '_PVT'
260: );
261: WHEN OTHERS THEN
262: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
263: (
264: l_api_name,
265: G_PKG_NAME,
266: 'OTHERS',
298: ,x_klev_rec OUT NOCOPY klev_rec_type
299: ,x_clev_rec OUT NOCOPY clev_rec_type
300: ) IS
301:
302: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
303: l_api_name CONSTANT VARCHAR2(30) := 'get_split_round_amount';
304: l_api_version CONSTANT NUMBER := 1.0;
305:
306: --Fix Bug# 2727161
358: l_round_amount:=p_amount;
359:
360: IF (p_amount IS NOT NULL
361: AND
362: p_amount <> OKL_API.G_MISS_NUM) THEN
363:
364: l_round_amount := NULL;
365:
366: l_round_amount := okl_accounting_util.cross_currency_round_amount(
371: RETURN l_round_amount;
372:
373: EXCEPTION
374: WHEN OTHERS THEN
375: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
376: p_msg_name => 'OKL_UNEXPECTED_ERROR',
377: p_token1 => 'OKL_SQLCODE',
378: p_token1_value => SQLCODE,
379: p_token2 => 'OKL_SQLERRM',
385:
386: BEGIN
387: -- Call start_activity to create savepoint, check compatibility
388: -- and initialize message list
389: x_return_status := OKL_API.START_ACTIVITY (
390: l_api_name
391: ,p_init_msg_list
392: ,'_PVT'
393: ,x_return_status);
391: ,p_init_msg_list
392: ,'_PVT'
393: ,x_return_status);
394: -- Check if activity started successfully
395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_ERROR;
399: END IF;
392: ,'_PVT'
393: ,x_return_status);
394: -- Check if activity started successfully
395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_ERROR;
399: END IF;
400:
393: ,x_return_status);
394: -- Check if activity started successfully
395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_ERROR;
399: END IF;
400:
401: l_currency_code := '?';
394: -- Check if activity started successfully
395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_ERROR;
399: END IF;
400:
401: l_currency_code := '?';
402: OPEN curr_hdr_csr (p_clev_rec.dnz_chr_id);
413: CLOSE curr_ln_csr;
414: END IF;
415:
416: IF (l_currency_code = '?') THEN -- Fatal error, Not a valid currency_code
417: RAISE OKL_API.G_EXCEPTION_ERROR;
418: END IF;
419:
420: l_klev_rec_out:=p_klev_rec;
421: l_clev_rec_out:=p_clev_rec;
457:
458:
459: for l_txd_rec in l_txd_csr(p_txl_id)
460: loop
461: if nvl(l_txd_rec.split_percent,0) in (0,okl_api.g_miss_num) then
462: l_child_split_factor := l_txd_rec.quantity/l_txd_rec.current_units;
463: l_split_by_unit:='Y';
464: else
465: l_child_split_factor := l_txd_rec.split_percent/100;
609:
610: x_klev_rec:=l_klev_rec_out;
611: x_clev_rec:=l_clev_rec_out;
612:
613: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
614:
615: EXCEPTION
616:
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
613: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
614:
615: EXCEPTION
616:
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
614:
615: EXCEPTION
616:
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
630: x_msg_count,
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
630: x_msg_count,
631: x_msg_data,
632: '_PVT');
633: WHEN OTHERS THEN
630: x_msg_count,
631: x_msg_data,
632: '_PVT');
633: WHEN OTHERS THEN
634: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
635: l_api_name,
636: G_PKG_NAME,
637: 'OTHERS',
638: x_msg_count,
662: p_txlv_rec IN txlv_rec_type
663: ) IS
664:
665:
666: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
667: l_api_name CONSTANT VARCHAR2(30) := 'adjust_unit_cost';
668: l_api_version CONSTANT NUMBER := 1.0;
669:
670: l_fa_line_id NUMBER;
821: p_chr_id IN NUMBER,
822: p_kle_id IN NUMBER) RETURN NUMBER IS
823: l_tot_amount NUMBER := 0;
824: BEGIN
825: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
826: FOR l_pmnt_strm_check_rec2 IN l_pmnt_strm_check2('LALEVL','LASLH','UNSCHEDULED_PRINCIPAL_PAYMENT', p_chr_id)
827: LOOP
828: IF (l_pmnt_strm_check_rec2.cle_id = p_kle_id) THEN
829: FOR l_pmnt_lns_in_hdr_rec2 IN l_pmnt_lns_in_hdr2(l_pmnt_strm_check_rec2.id ,p_chr_id)
836: RETURN(l_tot_amount);
837:
838: EXCEPTION WHEN OTHERS THEN
839: --print('Exception In tot_unsched_prin_payment...sqlcode=' || sqlcode || ' sqlerrm=' || sqlerrm);
840: x_return_status := Okl_Api.G_RET_STS_ERROR;
841: RETURN(0);
842: END; -- tot_unsched_prin_payment
843:
844:
845: begin
846:
847: -- Call start_activity to create savepoint, check compatibility
848: -- and initialize message list
849: x_return_status := OKL_API.START_ACTIVITY (
850: l_api_name
851: ,p_init_msg_list
852: ,'_PVT'
853: ,x_return_status);
851: ,p_init_msg_list
852: ,'_PVT'
853: ,x_return_status);
854: -- Check if activity started successfully
855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
852: ,'_PVT'
853: ,x_return_status);
854: -- Check if activity started successfully
855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860:
853: ,x_return_status);
854: -- Check if activity started successfully
855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860:
861: l_fa_line_id:= p_cle_id;
854: -- Check if activity started successfully
855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
858: RAISE OKL_API.G_EXCEPTION_ERROR;
859: END IF;
860:
861: l_fa_line_id:= p_cle_id;
862: l_chr_id:= p_txlv_rec.dnz_khr_id;
898: ---------get subsidy amount if any--
899: l_amort_subsidy_amount :=0;
900: Okl_Subsidy_Process_Pvt.get_asset_subsidy_amount(
901: p_api_version => 1.0,
902: p_init_msg_list => Okl_Api.G_FALSE,
903: x_return_status => l_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
906: p_asset_cle_id => l_curr_cle_id,
979: x_clev_tbl => lx_clev_price_tbl,
980: x_klev_tbl => lx_klev_price_tbl);
981:
982: --dbms_output.put_line('After updating contract line :'||x_return_status);
983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
980: x_klev_tbl => lx_klev_price_tbl);
981:
982: --dbms_output.put_line('After updating contract line :'||x_return_status);
983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF; -- l_principal_payment_found
981:
982: --dbms_output.put_line('After updating contract line :'||x_return_status);
983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF; -- l_principal_payment_found
989: END IF; --l_ste_code
982: --dbms_output.put_line('After updating contract line :'||x_return_status);
983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
986: RAISE OKL_API.G_EXCEPTION_ERROR;
987: END IF;
988: END IF; -- l_principal_payment_found
989: END IF; --l_ste_code
990:
988: END IF; -- l_principal_payment_found
989: END IF; --l_ste_code
990:
991: EXCEPTION
992: WHEN OKL_API.G_EXCEPTION_ERROR THEN
993: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
994: l_api_name,
995: G_PKG_NAME,
996: 'OKL_API.G_RET_STS_ERROR',
989: END IF; --l_ste_code
990:
991: EXCEPTION
992: WHEN OKL_API.G_EXCEPTION_ERROR THEN
993: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
994: l_api_name,
995: G_PKG_NAME,
996: 'OKL_API.G_RET_STS_ERROR',
997: x_msg_count,
992: WHEN OKL_API.G_EXCEPTION_ERROR THEN
993: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
994: l_api_name,
995: G_PKG_NAME,
996: 'OKL_API.G_RET_STS_ERROR',
997: x_msg_count,
998: x_msg_data,
999: '_PVT');
1000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
996: 'OKL_API.G_RET_STS_ERROR',
997: x_msg_count,
998: x_msg_data,
999: '_PVT');
1000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1002: l_api_name,
1003: G_PKG_NAME,
1004: 'OKL_API.G_RET_STS_UNEXP_ERROR',
997: x_msg_count,
998: x_msg_data,
999: '_PVT');
1000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1002: l_api_name,
1003: G_PKG_NAME,
1004: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1005: x_msg_count,
1000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1002: l_api_name,
1003: G_PKG_NAME,
1004: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1005: x_msg_count,
1006: x_msg_data,
1007: '_PVT');
1008: WHEN OTHERS THEN
1005: x_msg_count,
1006: x_msg_data,
1007: '_PVT');
1008: WHEN OTHERS THEN
1009: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1010: l_api_name,
1011: G_PKG_NAME,
1012: 'OTHERS',
1013: x_msg_count,
1040: l_trx_status VARCHAR2(100);
1041: BEGIN
1042: -- Call start_activity to create savepoint, check compatibility
1043: -- and initialize message list
1044: x_return_status := OKL_API.START_ACTIVITY (
1045: l_api_name
1046: ,p_init_msg_list
1047: ,'_PVT'
1048: ,x_return_status);
1046: ,p_init_msg_list
1047: ,'_PVT'
1048: ,x_return_status);
1049: -- Check if activity started successfully
1050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1047: ,'_PVT'
1048: ,x_return_status);
1049: -- Check if activity started successfully
1050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055:
1048: ,x_return_status);
1049: -- Check if activity started successfully
1050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055:
1056: okl_contract_status_pub.update_contract_status(
1049: -- Check if activity started successfully
1050: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1053: RAISE OKL_API.G_EXCEPTION_ERROR;
1054: END IF;
1055:
1056: okl_contract_status_pub.update_contract_status(
1057: p_api_version => l_api_version,
1060: x_msg_count => x_msg_count,
1061: x_msg_data => x_msg_data,
1062: p_khr_status => 'PASSED',
1063: p_chr_id => p_chr_id);
1064: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1067: RAISE Okl_Api.G_EXCEPTION_ERROR;
1068: END IF;
1061: x_msg_data => x_msg_data,
1062: p_khr_status => 'PASSED',
1063: p_chr_id => p_chr_id);
1064: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1067: RAISE Okl_Api.G_EXCEPTION_ERROR;
1068: END IF;
1069:
1062: p_khr_status => 'PASSED',
1063: p_chr_id => p_chr_id);
1064: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1067: RAISE Okl_Api.G_EXCEPTION_ERROR;
1068: END IF;
1069:
1070: --cascade status to lines
1063: p_chr_id => p_chr_id);
1064: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1065: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1066: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1067: RAISE Okl_Api.G_EXCEPTION_ERROR;
1068: END IF;
1069:
1070: --cascade status to lines
1071: okl_contract_status_pub.cascade_lease_status(
1075: x_msg_count => x_msg_count,
1076: x_msg_data => x_msg_data,
1077: p_chr_id => p_chr_id);
1078:
1079: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1080: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1081: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1082: RAISE Okl_Api.G_EXCEPTION_ERROR;
1083: END IF;
1076: x_msg_data => x_msg_data,
1077: p_chr_id => p_chr_id);
1078:
1079: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1080: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1081: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1082: RAISE Okl_Api.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1077: p_chr_id => p_chr_id);
1078:
1079: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1080: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1081: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1082: RAISE Okl_Api.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1085: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
1078:
1079: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1080: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1081: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1082: RAISE Okl_Api.G_EXCEPTION_ERROR;
1083: END IF;
1084:
1085: OKL_LA_STREAM_PUB.GEN_INTR_EXTR_STREAM (
1086: p_api_version => l_api_version,
1093: x_trx_number => l_trx_number,
1094: x_trx_status => l_trx_status);
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1094: x_trx_status => l_trx_status);
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102: OKL_API.END_ACTIVITY (x_msg_count,
1095:
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102: OKL_API.END_ACTIVITY (x_msg_count,
1103: x_msg_data);
1096: -- check if activity started successfully
1097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102: OKL_API.END_ACTIVITY (x_msg_count,
1103: x_msg_data);
1104: EXCEPTION
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102: OKL_API.END_ACTIVITY (x_msg_count,
1103: x_msg_data);
1104: EXCEPTION
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1101: END IF;
1102: OKL_API.END_ACTIVITY (x_msg_count,
1103: x_msg_data);
1104: EXCEPTION
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OKL_API.G_RET_STS_ERROR',
1102: OKL_API.END_ACTIVITY (x_msg_count,
1103: x_msg_data);
1104: EXCEPTION
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OKL_API.G_RET_STS_ERROR',
1110: x_msg_count,
1105: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1106: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1107: l_api_name,
1108: G_PKG_NAME,
1109: 'OKL_API.G_RET_STS_ERROR',
1110: x_msg_count,
1111: x_msg_data,
1112: '_PVT');
1113: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: 'OKL_API.G_RET_STS_ERROR',
1110: x_msg_count,
1111: x_msg_data,
1112: '_PVT');
1113: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1114: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1115: l_api_name,
1116: G_PKG_NAME,
1117: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1110: x_msg_count,
1111: x_msg_data,
1112: '_PVT');
1113: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1114: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1115: l_api_name,
1116: G_PKG_NAME,
1117: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1118: x_msg_count,
1113: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1114: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1115: l_api_name,
1116: G_PKG_NAME,
1117: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1118: x_msg_count,
1119: x_msg_data,
1120: '_PVT');
1121: WHEN OTHERS THEN
1118: x_msg_count,
1119: x_msg_data,
1120: '_PVT');
1121: WHEN OTHERS THEN
1122: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1123: l_api_name,
1124: G_PKG_NAME,
1125: 'OTHERS',
1126: x_msg_count,
1140: -- 25-Jul-2007 bkatraga Creation
1141: --End of Comments
1142: ------------------------------------------------------------------------------
1143: PROCEDURE SPLIT_ASSET_AFTER_YIELD (p_api_version IN NUMBER,
1144: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1145: x_return_status OUT NOCOPY VARCHAR2,
1146: x_msg_count OUT NOCOPY NUMBER,
1147: x_msg_data OUT NOCOPY VARCHAR2,
1148: p_chr_id IN NUMBER) IS
1146: x_msg_count OUT NOCOPY NUMBER,
1147: x_msg_data OUT NOCOPY VARCHAR2,
1148: p_chr_id IN NUMBER) IS
1149:
1150: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
1151: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_ASSET_AFTER_YIELD';
1152: l_api_version CONSTANT NUMBER := 1.0;
1153: l_split_trx_flag VARCHAR2(1);
1154: l_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1152: l_api_version CONSTANT NUMBER := 1.0;
1153: l_split_trx_flag VARCHAR2(1);
1154: l_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1155: l_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
1156: l_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
1157: l_inv_agmt_chr_id_tbl OKL_SECURITIZATION_PVT.inv_agmt_chr_id_tbl_type;
1158: l_inv_accrual_rec OKL_GENERATE_ACCRUALS_PVT.adjust_accrual_rec_type;
1159: l_inv_stream_tbl OKL_GENERATE_ACCRUALS_PVT.stream_tbl_type;
1160: l_trxv_rec trxv_rec_type;
1188:
1189: BEGIN
1190: -- Call start_activity to create savepoint, check compatibility
1191: -- and initialize message list
1192: x_return_status := OKL_API.START_ACTIVITY (
1193: l_api_name
1194: ,p_init_msg_list
1195: ,'_PVT'
1196: ,x_return_status);
1194: ,p_init_msg_list
1195: ,'_PVT'
1196: ,x_return_status);
1197: -- Check if activity started successfully
1198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1195: ,'_PVT'
1196: ,x_return_status);
1197: -- Check if activity started successfully
1198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1196: ,x_return_status);
1197: -- Check if activity started successfully
1198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: -- MGAAP start 7263041
1197: -- Check if activity started successfully
1198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1201: RAISE OKL_API.G_EXCEPTION_ERROR;
1202: END IF;
1203:
1204: -- MGAAP start 7263041
1205: OPEN check_csr(p_chr_id);
1221: x_msg_count => x_msg_count,
1222: x_msg_data => x_msg_data,
1223: p_khr_status => 'BOOKED',
1224: p_chr_id => p_chr_id);
1225: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_ERROR;
1229: END IF;
1222: x_msg_data => x_msg_data,
1223: p_khr_status => 'BOOKED',
1224: p_chr_id => p_chr_id);
1225: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1223: p_khr_status => 'BOOKED',
1224: p_chr_id => p_chr_id);
1225: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1231: --cascade status to lines
1224: p_chr_id => p_chr_id);
1225: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_ERROR;
1229: END IF;
1230:
1231: --cascade status to lines
1232: okl_contract_status_pub.cascade_lease_status(
1235: x_return_status => x_return_status,
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data,
1238: p_chr_id => p_chr_id);
1239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_ERROR;
1243: END IF;
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data,
1238: p_chr_id => p_chr_id);
1239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_ERROR;
1243: END IF;
1244:
1237: x_msg_data => x_msg_data,
1238: p_chr_id => p_chr_id);
1239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_ERROR;
1243: END IF;
1244:
1245: --Bug# 6336455
1238: p_chr_id => p_chr_id);
1239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1242: RAISE Okl_Api.G_EXCEPTION_ERROR;
1243: END IF;
1244:
1245: --Bug# 6336455
1246: -- R12B Authoring OA Migration
1254: p_khr_id => p_chr_id ,
1255: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
1256: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1257:
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1259: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1261: Raise OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1255: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
1256: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1257:
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1259: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1261: Raise OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263:
1256: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
1257:
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1259: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1261: Raise OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263:
1264: OKL_CONTRACT_REBOOK_PVT.create_billing_adjustment(
1257:
1258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1259: Raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1261: Raise OKL_API.G_EXCEPTION_ERROR;
1262: END IF;
1263:
1264: OKL_CONTRACT_REBOOK_PVT.create_billing_adjustment(
1265: p_api_version => p_api_version,
1270: p_rbk_khr_id => p_chr_id,
1271: p_orig_khr_id => p_chr_id,
1272: p_trx_id => l_split_trans_id,
1273: p_trx_date => sysdate);
1274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1276: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1278: END IF;
1271: p_orig_khr_id => p_chr_id,
1272: p_trx_id => l_split_trans_id,
1273: p_trx_date => sysdate);
1274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1276: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1278: END IF;
1279:
1272: p_trx_id => l_split_trans_id,
1273: p_trx_date => sysdate);
1274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1276: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1278: END IF;
1279:
1280: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1273: p_trx_date => sysdate);
1274: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1275: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1276: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1277: RAISE Okl_Api.G_EXCEPTION_ERROR;
1278: END IF;
1279:
1280: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1281: OKL_CONTRACT_REBOOK_PVT.calc_accrual_adjustment(
1291: x_accrual_rec => l_accrual_rec,
1292: x_stream_tbl => l_stream_tbl,
1293: p_trx_tbl_code => 'TAS',
1294: p_trx_type => 'ALI');
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1298: RAISE Okl_Api.G_EXCEPTION_ERROR;
1299: END IF;
1292: x_stream_tbl => l_stream_tbl,
1293: p_trx_tbl_code => 'TAS',
1294: p_trx_type => 'ALI');
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1298: RAISE Okl_Api.G_EXCEPTION_ERROR;
1299: END IF;
1300:
1293: p_trx_tbl_code => 'TAS',
1294: p_trx_type => 'ALI');
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1298: RAISE Okl_Api.G_EXCEPTION_ERROR;
1299: END IF;
1300:
1301: IF (l_stream_tbl.COUNT > 0) THEN
1294: p_trx_type => 'ALI');
1295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1298: RAISE Okl_Api.G_EXCEPTION_ERROR;
1299: END IF;
1300:
1301: IF (l_stream_tbl.COUNT > 0) THEN
1302: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
1307: x_msg_data => x_msg_data ,
1308: x_trx_number => l_trx_number,
1309: p_accrual_rec => l_accrual_rec,
1310: p_stream_tbl => l_stream_tbl);
1311: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1312: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1314: RAISE Okl_Api.G_EXCEPTION_ERROR;
1315: END IF;
1308: x_trx_number => l_trx_number,
1309: p_accrual_rec => l_accrual_rec,
1310: p_stream_tbl => l_stream_tbl);
1311: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1312: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1314: RAISE Okl_Api.G_EXCEPTION_ERROR;
1315: END IF;
1316: END IF;
1309: p_accrual_rec => l_accrual_rec,
1310: p_stream_tbl => l_stream_tbl);
1311: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1312: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1314: RAISE Okl_Api.G_EXCEPTION_ERROR;
1315: END IF;
1316: END IF;
1317:
1310: p_stream_tbl => l_stream_tbl);
1311: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1312: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1314: RAISE Okl_Api.G_EXCEPTION_ERROR;
1315: END IF;
1316: END IF;
1317:
1318: -- MGAAP start 7263041
1332: p_trx_tbl_code => 'TAS',
1333: p_trx_type => 'ALI');
1334:
1335: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1336: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1339: RAISE Okl_Api.G_EXCEPTION_ERROR;
1340: END IF;
1333: p_trx_type => 'ALI');
1334:
1335: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1336: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1339: RAISE Okl_Api.G_EXCEPTION_ERROR;
1340: END IF;
1341:
1334:
1335: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1336: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1339: RAISE Okl_Api.G_EXCEPTION_ERROR;
1340: END IF;
1341:
1342: IF (l_stream_tbl.COUNT > 0) THEN
1335: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS; -- MGAAP 7263041
1336: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1337: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1339: RAISE Okl_Api.G_EXCEPTION_ERROR;
1340: END IF;
1341:
1342: IF (l_stream_tbl.COUNT > 0) THEN
1343: l_accrual_rec.trx_number := l_trx_number;
1350: x_trx_number => l_trx_number,
1351: p_accrual_rec => l_accrual_rec,
1352: p_stream_tbl => l_stream_tbl,
1353: p_representation_type => 'SECONDARY');
1354: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1357: RAISE Okl_Api.G_EXCEPTION_ERROR;
1358: END IF;
1351: p_accrual_rec => l_accrual_rec,
1352: p_stream_tbl => l_stream_tbl,
1353: p_representation_type => 'SECONDARY');
1354: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1357: RAISE Okl_Api.G_EXCEPTION_ERROR;
1358: END IF;
1359: END IF;
1352: p_stream_tbl => l_stream_tbl,
1353: p_representation_type => 'SECONDARY');
1354: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1357: RAISE Okl_Api.G_EXCEPTION_ERROR;
1358: END IF;
1359: END IF;
1360: -- MGAAP end 7263041
1353: p_representation_type => 'SECONDARY');
1354: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1355: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1357: RAISE Okl_Api.G_EXCEPTION_ERROR;
1358: END IF;
1359: END IF;
1360: -- MGAAP end 7263041
1361:
1368: p_khr_id => p_chr_id,
1369: p_effective_date => sysdate,
1370: x_value => l_chr_secure,
1371: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1372: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1374: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1375: RAISE Okl_Api.G_EXCEPTION_ERROR;
1376: END IF;
1369: p_effective_date => sysdate,
1370: x_value => l_chr_secure,
1371: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1372: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1374: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1375: RAISE Okl_Api.G_EXCEPTION_ERROR;
1376: END IF;
1377:
1370: x_value => l_chr_secure,
1371: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1372: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1374: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1375: RAISE Okl_Api.G_EXCEPTION_ERROR;
1376: END IF;
1377:
1378: --Bug# 6788253
1371: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
1372: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1373: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1374: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1375: RAISE Okl_Api.G_EXCEPTION_ERROR;
1376: END IF;
1377:
1378: --Bug# 6788253
1379: IF l_chr_secure = OKL_API.G_TRUE THEN
1375: RAISE Okl_Api.G_EXCEPTION_ERROR;
1376: END IF;
1377:
1378: --Bug# 6788253
1379: IF l_chr_secure = OKL_API.G_TRUE THEN
1380: OKL_SECURITIZATION_PVT.modify_pool_contents(
1381: p_api_version => p_api_version,
1382: p_init_msg_list => p_init_msg_list,
1383: p_transaction_reason => l_trx_reason_asset_split,
1386: p_effective_date => SYSDATE,
1387: x_return_status => x_return_status,
1388: x_msg_count => x_msg_count,
1389: x_msg_data => x_msg_data);
1390: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1393: RAISE Okl_Api.G_EXCEPTION_ERROR;
1394: END IF;
1387: x_return_status => x_return_status,
1388: x_msg_count => x_msg_count,
1389: x_msg_data => x_msg_data);
1390: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1393: RAISE Okl_Api.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1388: x_msg_count => x_msg_count,
1389: x_msg_data => x_msg_data);
1390: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1393: RAISE Okl_Api.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1396: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
1389: x_msg_data => x_msg_data);
1390: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1393: RAISE Okl_Api.G_EXCEPTION_ERROR;
1394: END IF;
1395:
1396: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
1397: p_api_version => p_api_version,
1399: x_return_status => x_return_status,
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data,
1402: p_contract_id => p_chr_id);
1403: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data,
1402: p_contract_id => p_chr_id);
1403: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1401: x_msg_data => x_msg_data,
1402: p_contract_id => p_chr_id);
1403: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1409: OKL_STREAM_GENERATOR_PVT.create_pv_streams(
1402: p_contract_id => p_chr_id);
1403: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1409: OKL_STREAM_GENERATOR_PVT.create_pv_streams(
1410: p_api_version => p_api_version,
1412: x_return_status => x_return_status,
1413: x_msg_count => x_msg_count,
1414: x_msg_data => x_msg_data,
1415: p_contract_id => p_chr_id);
1416: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1417: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1418: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1419: RAISE Okl_Api.G_EXCEPTION_ERROR;
1420: END IF;
1413: x_msg_count => x_msg_count,
1414: x_msg_data => x_msg_data,
1415: p_contract_id => p_chr_id);
1416: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1417: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1418: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1419: RAISE Okl_Api.G_EXCEPTION_ERROR;
1420: END IF;
1421:
1414: x_msg_data => x_msg_data,
1415: p_contract_id => p_chr_id);
1416: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1417: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1418: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1419: RAISE Okl_Api.G_EXCEPTION_ERROR;
1420: END IF;
1421:
1422: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
1415: p_contract_id => p_chr_id);
1416: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1417: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1418: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1419: RAISE Okl_Api.G_EXCEPTION_ERROR;
1420: END IF;
1421:
1422: OKL_ACCRUAL_SEC_PVT.CREATE_STREAMS(
1423: p_api_version => p_api_version,
1425: x_return_status => x_return_status,
1426: x_msg_count => x_msg_count,
1427: x_msg_data => x_msg_data,
1428: p_khr_id => p_chr_id);
1429: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1426: x_msg_count => x_msg_count,
1427: x_msg_data => x_msg_data,
1428: p_khr_id => p_chr_id);
1429: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1427: x_msg_data => x_msg_data,
1428: p_khr_id => p_chr_id);
1429: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
1428: p_khr_id => p_chr_id);
1429: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1430: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1431: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: OKL_CONTRACT_REBOOK_PVT.create_inv_disb_adjustment(
1436: p_api_version => p_api_version,
1438: x_return_status => x_return_status,
1439: x_msg_count => x_msg_count,
1440: x_msg_data => x_msg_data,
1441: p_orig_khr_id => p_chr_id);
1442: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1446: END IF;
1439: x_msg_count => x_msg_count,
1440: x_msg_data => x_msg_data,
1441: p_orig_khr_id => p_chr_id);
1442: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447:
1440: x_msg_data => x_msg_data,
1441: p_orig_khr_id => p_chr_id);
1442: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447:
1448: l_trx_number := null; -- MGAAP 7263041
1441: p_orig_khr_id => p_chr_id);
1442: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1443: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1444: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1445: RAISE Okl_Api.G_EXCEPTION_ERROR;
1446: END IF;
1447:
1448: l_trx_number := null; -- MGAAP 7263041
1449: OKL_CONTRACT_REBOOK_PVT.calc_inv_acc_adjustment(
1458: x_inv_accrual_rec => l_inv_accrual_rec,
1459: x_inv_stream_tbl => l_inv_stream_tbl,
1460: p_trx_tbl_code => 'TAS',
1461: p_trx_type => 'ALI');
1462: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1463: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1464: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1465: RAISE Okl_Api.G_EXCEPTION_ERROR;
1466: END IF;
1459: x_inv_stream_tbl => l_inv_stream_tbl,
1460: p_trx_tbl_code => 'TAS',
1461: p_trx_type => 'ALI');
1462: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1463: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1464: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1465: RAISE Okl_Api.G_EXCEPTION_ERROR;
1466: END IF;
1467:
1460: p_trx_tbl_code => 'TAS',
1461: p_trx_type => 'ALI');
1462: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1463: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1464: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1465: RAISE Okl_Api.G_EXCEPTION_ERROR;
1466: END IF;
1467:
1468: IF (l_inv_stream_tbl.COUNT > 0) THEN
1461: p_trx_type => 'ALI');
1462: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1463: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1464: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1465: RAISE Okl_Api.G_EXCEPTION_ERROR;
1466: END IF;
1467:
1468: IF (l_inv_stream_tbl.COUNT > 0) THEN
1469: OKL_GENERATE_ACCRUALS_PVT.ADJUST_ACCRUALS (
1474: x_msg_data => x_msg_data ,
1475: x_trx_number => l_trx_number,
1476: p_accrual_rec => l_inv_accrual_rec,
1477: p_stream_tbl => l_inv_stream_tbl);
1478: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_ERROR;
1482: END IF;
1475: x_trx_number => l_trx_number,
1476: p_accrual_rec => l_inv_accrual_rec,
1477: p_stream_tbl => l_inv_stream_tbl);
1478: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_ERROR;
1482: END IF;
1483: END IF;
1476: p_accrual_rec => l_inv_accrual_rec,
1477: p_stream_tbl => l_inv_stream_tbl);
1478: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_ERROR;
1482: END IF;
1483: END IF;
1484:
1477: p_stream_tbl => l_inv_stream_tbl);
1478: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1479: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1480: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1481: RAISE Okl_Api.G_EXCEPTION_ERROR;
1482: END IF;
1483: END IF;
1484:
1485: -- MGAAP start 7263041
1500: p_trx_type => 'ALI',
1501: p_product_id => l_reporting_pdt_id); -- MGAAP 7263041
1502:
1503: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1507: RAISE Okl_Api.G_EXCEPTION_ERROR;
1508: END IF;
1501: p_product_id => l_reporting_pdt_id); -- MGAAP 7263041
1502:
1503: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1507: RAISE Okl_Api.G_EXCEPTION_ERROR;
1508: END IF;
1509:
1502:
1503: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1507: RAISE Okl_Api.G_EXCEPTION_ERROR;
1508: END IF;
1509:
1510: IF (l_inv_stream_tbl.COUNT > 0) THEN
1503: OKL_STREAMS_SEC_PVT.RESET_REPO_STREAMS;
1504: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1505: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1506: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1507: RAISE Okl_Api.G_EXCEPTION_ERROR;
1508: END IF;
1509:
1510: IF (l_inv_stream_tbl.COUNT > 0) THEN
1511: l_inv_accrual_rec.trx_number := l_trx_number;
1518: x_trx_number => l_trx_number,
1519: p_accrual_rec => l_inv_accrual_rec,
1520: p_stream_tbl => l_inv_stream_tbl,
1521: p_representation_type => 'SECONDARY');
1522: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1523: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1524: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_ERROR;
1526: END IF;
1519: p_accrual_rec => l_inv_accrual_rec,
1520: p_stream_tbl => l_inv_stream_tbl,
1521: p_representation_type => 'SECONDARY');
1522: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1523: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1524: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_ERROR;
1526: END IF;
1527: END IF;
1520: p_stream_tbl => l_inv_stream_tbl,
1521: p_representation_type => 'SECONDARY');
1522: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1523: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1524: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_ERROR;
1526: END IF;
1527: END IF;
1528: END IF;
1521: p_representation_type => 'SECONDARY');
1522: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1523: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1524: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1525: RAISE Okl_Api.G_EXCEPTION_ERROR;
1526: END IF;
1527: END IF;
1528: END IF;
1529: -- MGAAP end 7263041
1541: p_source_trx_id => l_split_trans_id, --
1542: p_source_trx_name => 'Split Asset',
1543: p_source_table => 'OKL_TRX_ASSETS');
1544:
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_source_trx_name => 'Split Asset',
1543: p_source_table => 'OKL_TRX_ASSETS');
1544:
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:
1543: p_source_table => 'OKL_TRX_ASSETS');
1544:
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:
1551: ------------------------------------------------------------------------
1544:
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:
1551: ------------------------------------------------------------------------
1552: --Bug# : R12.B eBTax impact End
1561: x_msg_count => x_msg_count,
1562: x_msg_data => x_msg_data,
1563: p_thpv_rec => l_trxv_rec,
1564: x_thpv_rec => lx_trxv_rec);
1565: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okl_Api.G_EXCEPTION_ERROR;
1569: END IF;
1562: x_msg_data => x_msg_data,
1563: p_thpv_rec => l_trxv_rec,
1564: x_thpv_rec => lx_trxv_rec);
1565: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okl_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: END IF;
1563: p_thpv_rec => l_trxv_rec,
1564: x_thpv_rec => lx_trxv_rec);
1565: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okl_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: END IF;
1571:
1564: x_thpv_rec => lx_trxv_rec);
1565: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okl_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: END IF;
1571:
1572: OKL_API.END_ACTIVITY (x_msg_count,
1568: RAISE Okl_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: END IF;
1571:
1572: OKL_API.END_ACTIVITY (x_msg_count,
1573: x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1571:
1572: OKL_API.END_ACTIVITY (x_msg_count,
1573: x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKL_API.G_RET_STS_ERROR',
1572: OKL_API.END_ACTIVITY (x_msg_count,
1573: x_msg_data);
1574: EXCEPTION
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKL_API.G_RET_STS_ERROR',
1580: x_msg_count,
1575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKL_API.G_RET_STS_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT');
1583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1579: 'OKL_API.G_RET_STS_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT');
1583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1585: l_api_name,
1586: G_PKG_NAME,
1587: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT');
1583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1585: l_api_name,
1586: G_PKG_NAME,
1587: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1588: x_msg_count,
1583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1585: l_api_name,
1586: G_PKG_NAME,
1587: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1588: x_msg_count,
1589: x_msg_data,
1590: '_PVT');
1591: WHEN OTHERS THEN
1588: x_msg_count,
1589: x_msg_data,
1590: '_PVT');
1591: WHEN OTHERS THEN
1592: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1593: l_api_name,
1594: G_PKG_NAME,
1595: 'OTHERS',
1596: x_msg_count,
1609: --End of Comments
1610: ------------------------------------------------------------------------------
1611: PROCEDURE process_split_accounting(
1612: p_api_version IN NUMBER
1613: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
1614: ,x_return_status OUT NOCOPY VARCHAR2
1615: ,x_msg_count OUT NOCOPY NUMBER
1616: ,x_msg_data OUT NOCOPY VARCHAR2
1617: ,p_contract_id IN NUMBER
1621: IS
1622: l_api_name CONSTANT VARCHAR2(30) := 'process_split_accounting';
1623: l_api_version CONSTANT NUMBER := 1.0;
1624:
1625: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1626:
1627: -- Define PL/SQL Records and Tables
1628: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
1629: l_trxL_in_rec Okl_Trx_Contracts_Pvt.tclv_rec_type;
1633: -- Define variables
1634: l_post_to_gl_yn VARCHAR2(1);
1635:
1636: l_amount NUMBER;
1637: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1638: l_msg_count NUMBER;
1639: l_msg_data VARCHAR2(2000);
1640: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
1641:
1730: p_api_version,
1731: l_api_name,
1732: G_PKG_NAME ))
1733: THEN
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: END IF;
1736:
1737: -- Initialize message list if requested
1738: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1739: FND_MSG_PUB.initialize;
1740: END IF;
1741:
1742: -- Initialize API status to success
1743: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1744: --------------------------------------------------------------------------
1745: -- Initialize API variables
1746: --------------------------------------------------------------------------
1747:
1773: -- Get product_id
1774: OPEN Product_csr(p_contract_id);
1775: FETCH Product_csr INTO l_Product_rec;
1776: IF Product_csr%NOTFOUND THEN
1777: Okl_Api.SET_MESSAGE(G_APP_NAME,
1778: 'OKL_REQUIRED_VALUE',
1779: OKL_API.G_COL_NAME_TOKEN,
1780: 'Product');
1781: CLOSE Product_csr;
1775: FETCH Product_csr INTO l_Product_rec;
1776: IF Product_csr%NOTFOUND THEN
1777: Okl_Api.SET_MESSAGE(G_APP_NAME,
1778: 'OKL_REQUIRED_VALUE',
1779: OKL_API.G_COL_NAME_TOKEN,
1780: 'Product');
1781: CLOSE Product_csr;
1782: RAISE Okl_Api.G_EXCEPTION_ERROR;
1783: END IF;
1778: 'OKL_REQUIRED_VALUE',
1779: OKL_API.G_COL_NAME_TOKEN,
1780: 'Product');
1781: CLOSE Product_csr;
1782: RAISE Okl_Api.G_EXCEPTION_ERROR;
1783: END IF;
1784: CLOSE Product_csr;
1785:
1786: l_currency_code := l_Product_rec.currency_code;
1845: ,x_msg_data => l_msg_data
1846: ,p_tcnv_rec => l_trxH_in_rec
1847: ,x_tcnv_rec => l_trxH_out_rec);
1848:
1849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_ERROR;
1853: END IF;
1846: ,p_tcnv_rec => l_trxH_in_rec
1847: ,x_tcnv_rec => l_trxH_out_rec);
1848:
1849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_ERROR;
1853: END IF;
1854:
1847: ,x_tcnv_rec => l_trxH_out_rec);
1848:
1849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_ERROR;
1853: END IF;
1854:
1855: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1848:
1849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_ERROR;
1853: END IF;
1854:
1855: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1856: (l_trxH_out_rec.id IS NULL) ) THEN
1851: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1852: RAISE Okl_Api.G_EXCEPTION_ERROR;
1853: END IF;
1854:
1855: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1856: (l_trxH_out_rec.id IS NULL) ) THEN
1857: OKL_API.set_message(G_APP_NAME,
1858: 'OKL_REQUIRED_VALUE',
1859: OKL_API.G_COL_NAME_TOKEN,
1853: END IF;
1854:
1855: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1856: (l_trxH_out_rec.id IS NULL) ) THEN
1857: OKL_API.set_message(G_APP_NAME,
1858: 'OKL_REQUIRED_VALUE',
1859: OKL_API.G_COL_NAME_TOKEN,
1860: 'TRANSACTION_ID');
1861: RAISE OKL_API.G_EXCEPTION_ERROR;
1855: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
1856: (l_trxH_out_rec.id IS NULL) ) THEN
1857: OKL_API.set_message(G_APP_NAME,
1858: 'OKL_REQUIRED_VALUE',
1859: OKL_API.G_COL_NAME_TOKEN,
1860: 'TRANSACTION_ID');
1861: RAISE OKL_API.G_EXCEPTION_ERROR;
1862: END IF;
1863:
1857: OKL_API.set_message(G_APP_NAME,
1858: 'OKL_REQUIRED_VALUE',
1859: OKL_API.G_COL_NAME_TOKEN,
1860: 'TRANSACTION_ID');
1861: RAISE OKL_API.G_EXCEPTION_ERROR;
1862: END IF;
1863:
1864: --------------------------------------------------------------------------
1865: -- accounting template record
1894: x_fact_synd_code => l_fact_synd_code,
1895: x_inv_acct_code => l_inv_acct_code
1896: );
1897:
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1895: x_inv_acct_code => l_inv_acct_code
1896: );
1897:
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1896: );
1897:
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1904: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
1897:
1898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1901: RAISE OKL_API.G_EXCEPTION_ERROR;
1902: END IF;
1903:
1904: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
1905: l_tmpl_identify_rec.investor_code := l_inv_acct_code;
1905: l_tmpl_identify_rec.investor_code := l_inv_acct_code;
1906:
1907: OKL_ACCOUNT_DIST_PUB.get_template_info(
1908: p_api_version => p_api_version,
1909: p_init_msg_list => OKL_API.G_FALSE,
1910: x_return_status => l_return_status,
1911: x_msg_count => x_msg_count,
1912: x_msg_data => x_msg_data,
1913: p_tmpl_identify_rec => l_tmpl_identify_rec,
1913: p_tmpl_identify_rec => l_tmpl_identify_rec,
1914: x_template_tbl => l_template_tbl,
1915: p_validity_date => l_valid_gl_date);
1916:
1917: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1918: -- No accounting templates found matching the transaction type TRX_TYPE
1919: -- and product PRODUCT.
1920: OKL_API.set_message(
1921: p_app_name => G_APP_NAME,
1916:
1917: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1918: -- No accounting templates found matching the transaction type TRX_TYPE
1919: -- and product PRODUCT.
1920: OKL_API.set_message(
1921: p_app_name => G_APP_NAME,
1922: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
1923: p_token1 => 'TRX_TYPE',
1924: p_token1_value => l_trans_meaning,
1926: p_token2_value => l_product_type);
1927:
1928: END IF;
1929:
1930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_ERROR;
1934: END IF;
1927:
1928: END IF;
1929:
1930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_ERROR;
1934: END IF;
1935:
1928: END IF;
1929:
1930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_ERROR;
1934: END IF;
1935:
1936: -- If no templates present
1929:
1930: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1932: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_ERROR;
1934: END IF;
1935:
1936: -- If no templates present
1937: IF l_template_tbl.COUNT = 0 THEN
1936: -- If no templates present
1937: IF l_template_tbl.COUNT = 0 THEN
1938: -- No accounting templates found matching the transaction type TRX_TYPE
1939: -- and product PRODUCT.
1940: OKL_API.set_message(
1941: p_app_name => G_APP_NAME,
1942: p_msg_name => 'OKL_AM_NO_ACC_TEMPLATES',
1943: p_token1 => 'TRX_TYPE',
1944: p_token1_value => l_trans_meaning,
1945: p_token2 => 'PRODUCT',
1946: p_token2_value => l_product_type);
1947:
1948:
1949: RAISE OKL_API.G_EXCEPTION_ERROR;
1950:
1951: END IF;
1952:
1953: --Build the transaction line table of records
1974: ,x_msg_data => l_msg_data
1975: ,p_tclv_tbl => l_tclv_tbl
1976: ,x_tclv_tbl => x_tclv_tbl);
1977:
1978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1981: RAISE OKL_API.G_EXCEPTION_ERROR;
1982: END IF;
1975: ,p_tclv_tbl => l_tclv_tbl
1976: ,x_tclv_tbl => x_tclv_tbl);
1977:
1978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1981: RAISE OKL_API.G_EXCEPTION_ERROR;
1982: END IF;
1983:
1976: ,x_tclv_tbl => x_tclv_tbl);
1977:
1978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1981: RAISE OKL_API.G_EXCEPTION_ERROR;
1982: END IF;
1983:
1984: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
1977:
1978: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1981: RAISE OKL_API.G_EXCEPTION_ERROR;
1982: END IF;
1983:
1984: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
1985:
2004: x_acc_gen_tbl => l_acc_gen_primary_key_tbl,
2005: x_return_status => l_return_status);
2006:
2007: -- Raise exception to rollback to savepoint for this block
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2010: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_ERROR;
2012: END IF;
2005: x_return_status => l_return_status);
2006:
2007: -- Raise exception to rollback to savepoint for this block
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2010: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_ERROR;
2012: END IF;
2013:
2006:
2007: -- Raise exception to rollback to savepoint for this block
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2010: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_ERROR;
2012: END IF;
2013:
2014: /* Populating the dist_info_Tbl */
2007: -- Raise exception to rollback to savepoint for this block
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2010: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_ERROR;
2012: END IF;
2013:
2014: /* Populating the dist_info_Tbl */
2015: FOR i in x_tclv_tbl.FIRST..x_tclv_tbl.LAST
2049: x_template_tbl => l_template_out_tbl,
2050: x_amount_tbl => l_amount_out_tbl,
2051: p_trx_header_id => l_trxH_out_rec.id);
2052:
2053: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okl_Api.G_EXCEPTION_ERROR;
2057: END IF;
2050: x_amount_tbl => l_amount_out_tbl,
2051: p_trx_header_id => l_trxH_out_rec.id);
2052:
2053: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okl_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058:
2051: p_trx_header_id => l_trxH_out_rec.id);
2052:
2053: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okl_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058:
2059: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2052:
2053: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2055: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2056: RAISE Okl_Api.G_EXCEPTION_ERROR;
2057: END IF;
2058:
2059: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2060: FETCH fnd_lookups_csr INTO l_fnd_rec;
2058:
2059: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
2060: FETCH fnd_lookups_csr INTO l_fnd_rec;
2061: IF fnd_lookups_csr%NOTFOUND THEN
2062: Okl_Api.SET_MESSAGE(G_APP_NAME, OKL_API.G_INVALID_VALUE,OKL_API.G_COL_NAME_TOKEN,l_try_name);
2063: CLOSE fnd_lookups_csr;
2064: RAISE Okl_Api.G_EXCEPTION_ERROR;
2065: END IF;
2066: CLOSE fnd_lookups_csr;
2060: FETCH fnd_lookups_csr INTO l_fnd_rec;
2061: IF fnd_lookups_csr%NOTFOUND THEN
2062: Okl_Api.SET_MESSAGE(G_APP_NAME, OKL_API.G_INVALID_VALUE,OKL_API.G_COL_NAME_TOKEN,l_try_name);
2063: CLOSE fnd_lookups_csr;
2064: RAISE Okl_Api.G_EXCEPTION_ERROR;
2065: END IF;
2066: CLOSE fnd_lookups_csr;
2067:
2068: --From the l_amount_out_tbl returned , the transaction line amount and header amount need to be updated back on the contract
2102: ,p_tclv_tbl => l_tclv_tbl
2103: ,x_tcnv_rec => x_tcnv_rec
2104: ,x_tclv_tbl => x_tclv_tbl );
2105:
2106: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2109: RAISE Okl_Api.G_EXCEPTION_ERROR;
2110: END IF;
2103: ,x_tcnv_rec => x_tcnv_rec
2104: ,x_tclv_tbl => x_tclv_tbl );
2105:
2106: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2109: RAISE Okl_Api.G_EXCEPTION_ERROR;
2110: END IF;
2111:
2104: ,x_tclv_tbl => x_tclv_tbl );
2105:
2106: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2109: RAISE Okl_Api.G_EXCEPTION_ERROR;
2110: END IF;
2111:
2112: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
2105:
2106: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2109: RAISE Okl_Api.G_EXCEPTION_ERROR;
2110: END IF;
2111:
2112: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
2113: (p_api_version => p_api_version
2119: ,P_TCLV_TBL => x_tclv_tbl
2120: ,p_ctxt_val_tbl => l_ctxt_tbl
2121: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2122:
2123: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2120: ,p_ctxt_val_tbl => l_ctxt_tbl
2121: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2122:
2123: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2121: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
2122:
2123: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2129:
2122:
2123: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2124: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2125: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2126: RAISE Okl_Api.G_EXCEPTION_ERROR;
2127: END IF;
2128:
2129:
2130: -- Get message count and if count is 1, get message info
2132: (p_count => x_msg_count,
2133: p_data => x_msg_data);
2134:
2135: EXCEPTION
2136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2137: ROLLBACK TO process_split_accounting_PVT;
2138: x_return_status := OKL_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get
2140: (p_count => x_msg_count,
2134:
2135: EXCEPTION
2136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2137: ROLLBACK TO process_split_accounting_PVT;
2138: x_return_status := OKL_API.G_RET_STS_ERROR;
2139: FND_MSG_PUB.Count_And_Get
2140: (p_count => x_msg_count,
2141: p_data => x_msg_data);
2142:
2139: FND_MSG_PUB.Count_And_Get
2140: (p_count => x_msg_count,
2141: p_data => x_msg_data);
2142:
2143: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: ROLLBACK TO process_split_accounting_PVT;
2145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2146: FND_MSG_PUB.Count_And_Get
2147: (p_count => x_msg_count,
2141: p_data => x_msg_data);
2142:
2143: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: ROLLBACK TO process_split_accounting_PVT;
2145: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2146: FND_MSG_PUB.Count_And_Get
2147: (p_count => x_msg_count,
2148: p_data => x_msg_data);
2149:
2148: p_data => x_msg_data);
2149:
2150: WHEN OTHERS THEN
2151: ROLLBACK TO process_split_accounting_PVT;
2152: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2153: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2154: p_msg_name => G_UNEXPECTED_ERROR,
2155: p_token1 => G_SQLCODE_TOKEN,
2156: p_token1_value => SQLCODE,
2149:
2150: WHEN OTHERS THEN
2151: ROLLBACK TO process_split_accounting_PVT;
2152: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2153: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2154: p_msg_name => G_UNEXPECTED_ERROR,
2155: p_token1 => G_SQLCODE_TOKEN,
2156: p_token1_value => SQLCODE,
2157: p_token2 => G_SQLERRM_TOKEN,
2185: p_asset_id IN NUMBER,
2186: p_book_type_code IN VARCHAR2,
2187: x_asset_deprn_rec OUT NOCOPY FA_API_TYPES.asset_deprn_rec_type) IS
2188:
2189: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2190: l_api_name CONSTANT VARCHAR2(30) := 'GET_DEPRN_RESERVE';
2191: l_api_version CONSTANT NUMBER := 1.0;
2192:
2193: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
2197: l_deprn_reserve NUMBER;
2198:
2199: BEGIN
2200: --call start activity to set savepoint
2201: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2202: p_init_msg_list,
2203: '_PVT',
2204: x_return_status);
2205: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2201: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
2202: p_init_msg_list,
2203: '_PVT',
2204: x_return_status);
2205: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2207: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2208: RAISE OKL_API.G_EXCEPTION_ERROR;
2209: END IF;
2202: p_init_msg_list,
2203: '_PVT',
2204: x_return_status);
2205: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2207: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2208: RAISE OKL_API.G_EXCEPTION_ERROR;
2209: END IF;
2210:
2203: '_PVT',
2204: x_return_status);
2205: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2207: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2208: RAISE OKL_API.G_EXCEPTION_ERROR;
2209: END IF;
2210:
2211: l_asset_hdr_rec.asset_id := p_asset_id;
2204: x_return_status);
2205: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2207: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2208: RAISE OKL_API.G_EXCEPTION_ERROR;
2209: END IF;
2210:
2211: l_asset_hdr_rec.asset_id := p_asset_id;
2212: l_asset_hdr_rec.book_type_code := p_book_type_code;
2211: l_asset_hdr_rec.asset_id := p_asset_id;
2212: l_asset_hdr_rec.book_type_code := p_book_type_code;
2213:
2214: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
2215: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2216: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
2217: );
2218: Raise OKL_API.G_EXCEPTION_ERROR;
2219: end if;
2214: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
2215: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2216: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
2217: );
2218: Raise OKL_API.G_EXCEPTION_ERROR;
2219: end if;
2220:
2221: -- To fetch Depreciation Reserve
2222: if not FA_UTIL_PVT.get_asset_deprn_rec
2224: px_asset_deprn_rec => l_asset_deprn_rec,
2225: p_period_counter => NULL,
2226: p_mrc_sob_type_code => 'P'
2227: ) then
2228: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2229: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
2230: );
2231: Raise OKL_API.G_EXCEPTION_ERROR;
2232: end if;
2227: ) then
2228: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
2229: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
2230: );
2231: Raise OKL_API.G_EXCEPTION_ERROR;
2232: end if;
2233:
2234: x_asset_deprn_rec := l_asset_deprn_rec;
2235:
2233:
2234: x_asset_deprn_rec := l_asset_deprn_rec;
2235:
2236: --Call end Activity
2237: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2238: EXCEPTION
2239: WHEN OKL_API.G_EXCEPTION_ERROR Then
2240: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2241: (
2235:
2236: --Call end Activity
2237: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2238: EXCEPTION
2239: WHEN OKL_API.G_EXCEPTION_ERROR Then
2240: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2236: --Call end Activity
2237: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2238: EXCEPTION
2239: WHEN OKL_API.G_EXCEPTION_ERROR Then
2240: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2244: 'OKL_API.G_RET_STS_ERROR',
2240: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2241: (
2242: l_api_name,
2243: G_PKG_NAME,
2244: 'OKL_API.G_RET_STS_ERROR',
2245: x_msg_count,
2246: x_msg_data,
2247: '_PVT'
2248: );
2245: x_msg_count,
2246: x_msg_data,
2247: '_PVT'
2248: );
2249: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2246: x_msg_data,
2247: '_PVT'
2248: );
2249: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2250: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2254: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2250: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2251: (
2252: l_api_name,
2253: G_PKG_NAME,
2254: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2255: x_msg_count,
2256: x_msg_data,
2257: '_PVT'
2258: );
2256: x_msg_data,
2257: '_PVT'
2258: );
2259: WHEN OTHERS THEN
2260: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2261: (
2262: l_api_name,
2263: G_PKG_NAME,
2264: 'OTHERS',
2343: lx_clev_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
2344: lx_klev_rec OKL_CONTRACT_PUB.klev_rec_type;
2345: l_chld_total_flr_price NUMBER:=0.0;
2346: begin
2347: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2348: -- Call start_activity to create savepoint, check compatibility
2349: -- and initialize message list
2350: x_return_status := OKL_API.START_ACTIVITY (
2351: l_api_name
2346: begin
2347: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2348: -- Call start_activity to create savepoint, check compatibility
2349: -- and initialize message list
2350: x_return_status := OKL_API.START_ACTIVITY (
2351: l_api_name
2352: ,p_init_msg_list
2353: ,'_PVT'
2354: ,x_return_status);
2352: ,p_init_msg_list
2353: ,'_PVT'
2354: ,x_return_status);
2355: -- Check if activity started successfully
2356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2359: RAISE OKL_API.G_EXCEPTION_ERROR;
2360: END IF;
2353: ,'_PVT'
2354: ,x_return_status);
2355: -- Check if activity started successfully
2356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2359: RAISE OKL_API.G_EXCEPTION_ERROR;
2360: END IF;
2361: l_source_cle_id :=p_kle_id;
2354: ,x_return_status);
2355: -- Check if activity started successfully
2356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2359: RAISE OKL_API.G_EXCEPTION_ERROR;
2360: END IF;
2361: l_source_cle_id :=p_kle_id;
2362: --dbms_output.put_line(' l_source_cle_id'||l_source_cle_id);
2355: -- Check if activity started successfully
2356: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2359: RAISE OKL_API.G_EXCEPTION_ERROR;
2360: END IF;
2361: l_source_cle_id :=p_kle_id;
2362: --dbms_output.put_line(' l_source_cle_id'||l_source_cle_id);
2363: FOR l_asset_return_rec in l_asset_return_csr(l_source_cle_id)
2417:
2418: -- call insert of tapi
2419: OKL_ASSET_RETURNS_PUB.insert_asset_returns(
2420: p_api_version => p_api_version,
2421: p_init_msg_list => OKL_API.G_FALSE,
2422: x_return_status => x_return_status,
2423: x_msg_count => x_msg_count,
2424: x_msg_data => x_msg_data,
2425: p_artv_rec => lp_artv_rec,
2424: x_msg_data => x_msg_data,
2425: p_artv_rec => lp_artv_rec,
2426: x_artv_rec => lx_artv_rec);
2427: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2425: p_artv_rec => lp_artv_rec,
2426: x_artv_rec => lx_artv_rec);
2427: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433: --upade the termination date on the lines and subliines
2426: x_artv_rec => lx_artv_rec);
2427: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433: --upade the termination date on the lines and subliines
2434: FOR r_trmnt_line_csr IN
2427: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.insert_asset_returns status >'||x_return_status);
2428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_ERROR;
2432: END IF;
2433: --upade the termination date on the lines and subliines
2434: FOR r_trmnt_line_csr IN
2435: l_trmnt_line_csr(p_cle_id => p_cle_tbl(i).cle_id) LOOP
2445: p_clev_rec => l_clev_rec,
2446: p_klev_rec => l_klev_rec,
2447: x_clev_rec => lx_clev_rec,
2448: x_klev_rec => lx_klev_rec);
2449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_ERROR;
2453: END IF;
2446: p_klev_rec => l_klev_rec,
2447: x_clev_rec => lx_clev_rec,
2448: x_klev_rec => lx_klev_rec);
2449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: END LOOP; --inner loop
2447: x_clev_rec => lx_clev_rec,
2448: x_klev_rec => lx_klev_rec);
2449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: END LOOP; --inner loop
2455: END IF; --return needed
2448: x_klev_rec => lx_klev_rec);
2449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_ERROR;
2453: END IF;
2454: END LOOP; --inner loop
2455: END IF; --return needed
2456: END IF; --soucer id<> pkle_id
2460: lp_upd_artv_rec.FLOOR_PRICE := NVL(l_asset_return_rec.FLOOR_PRICE,0.0)-l_chld_total_flr_price;
2461: -- call update of tapi
2462: OKL_ASSET_RETURNS_PUB.update_asset_returns(
2463: p_api_version => p_api_version,
2464: p_init_msg_list => OKL_API.G_FALSE,
2465: x_return_status => x_return_status,
2466: x_msg_count => x_msg_count,
2467: x_msg_data => x_msg_data,
2468: p_artv_rec => lp_upd_artv_rec,
2467: x_msg_data => x_msg_data,
2468: p_artv_rec => lp_upd_artv_rec,
2469: x_artv_rec => lx_artv_rec);
2470: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475: END IF;
2468: p_artv_rec => lp_upd_artv_rec,
2469: x_artv_rec => lx_artv_rec);
2470: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475: END IF;
2476: END IF; --p_cle_tbl >0
2469: x_artv_rec => lx_artv_rec);
2470: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475: END IF;
2476: END IF; --p_cle_tbl >0
2477: END LOOP; --aset rturn record
2470: -- dbms_output.put_line('Calling OKL_ASSET_RETURNS_PUB.update_asset_returns status >'||x_return_status);
2471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475: END IF;
2476: END IF; --p_cle_tbl >0
2477: END LOOP; --aset rturn record
2478: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2474: RAISE OKL_API.G_EXCEPTION_ERROR;
2475: END IF;
2476: END IF; --p_cle_tbl >0
2477: END LOOP; --aset rturn record
2478: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2479: EXCEPTION
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2482: l_api_name,
2476: END IF; --p_cle_tbl >0
2477: END LOOP; --aset rturn record
2478: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2479: EXCEPTION
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2482: l_api_name,
2483: G_PKG_NAME,
2484: 'OKL_API.G_RET_STS_ERROR',
2477: END LOOP; --aset rturn record
2478: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2479: EXCEPTION
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2482: l_api_name,
2483: G_PKG_NAME,
2484: 'OKL_API.G_RET_STS_ERROR',
2485: x_msg_count,
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2482: l_api_name,
2483: G_PKG_NAME,
2484: 'OKL_API.G_RET_STS_ERROR',
2485: x_msg_count,
2486: x_msg_data,
2487: '_PVT');
2488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2484: 'OKL_API.G_RET_STS_ERROR',
2485: x_msg_count,
2486: x_msg_data,
2487: '_PVT');
2488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2490: l_api_name,
2491: G_PKG_NAME,
2492: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2485: x_msg_count,
2486: x_msg_data,
2487: '_PVT');
2488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2490: l_api_name,
2491: G_PKG_NAME,
2492: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2493: x_msg_count,
2488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2490: l_api_name,
2491: G_PKG_NAME,
2492: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2493: x_msg_count,
2494: x_msg_data,
2495: '_PVT');
2496: WHEN OTHERS THEN
2493: x_msg_count,
2494: x_msg_data,
2495: '_PVT');
2496: WHEN OTHERS THEN
2497: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2498: l_api_name,
2499: G_PKG_NAME,
2500: 'OTHERS',
2501: x_msg_count,
2513: x_msg_count OUT NOCOPY NUMBER,
2514: x_msg_data OUT NOCOPY VARCHAR2,
2515: p_cle_id IN NUMBER
2516: ) is
2517: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2518: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_OFFLEASE_TRANS';
2519: l_api_version CONSTANT NUMBER := 1.0;
2520:
2521: --cursor to fetch the corporate and tax book for the given asset
2546:
2547: BEGIN
2548: -- Call start_activity to create savepoint, check compatibility
2549: -- and initialize message list
2550: x_return_status := OKL_API.START_ACTIVITY (
2551: l_api_name
2552: ,p_init_msg_list
2553: ,'_PVT'
2554: ,x_return_status);
2552: ,p_init_msg_list
2553: ,'_PVT'
2554: ,x_return_status);
2555: -- Check if activity started successfully
2556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2553: ,'_PVT'
2554: ,x_return_status);
2555: -- Check if activity started successfully
2556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561:
2554: ,x_return_status);
2555: -- Check if activity started successfully
2556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561:
2562: FOR l_okxassetlines_rec IN l_okxassetlines_csr(p_cle_id) LOOP
2555: -- Check if activity started successfully
2556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_ERROR;
2560: END IF;
2561:
2562: FOR l_okxassetlines_rec IN l_okxassetlines_csr(p_cle_id) LOOP
2563: l_name:=l_okxassetlines_rec.asset_number;
2569: END IF;
2570: END LOOP;
2571: IF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
2572: --dbms_output.put_line('Pending transactions');
2573: x_return_status := OKL_API.G_RET_STS_ERROR;
2574: OKL_API.set_message( p_app_name => 'OKL',
2575: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2576: p_token1 => 'ASSET_NUMBER',
2577: p_token1_value => l_name);
2570: END LOOP;
2571: IF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
2572: --dbms_output.put_line('Pending transactions');
2573: x_return_status := OKL_API.G_RET_STS_ERROR;
2574: OKL_API.set_message( p_app_name => 'OKL',
2575: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2576: p_token1 => 'ASSET_NUMBER',
2577: p_token1_value => l_name);
2578: RAISE OKL_API.G_EXCEPTION_ERROR;
2574: OKL_API.set_message( p_app_name => 'OKL',
2575: p_msg_name => 'OKL_AM_PENDING_OFFLEASE',
2576: p_token1 => 'ASSET_NUMBER',
2577: p_token1_value => l_name);
2578: RAISE OKL_API.G_EXCEPTION_ERROR;
2579: end if ;
2580: end loop;
2581: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2582: EXCEPTION
2577: p_token1_value => l_name);
2578: RAISE OKL_API.G_EXCEPTION_ERROR;
2579: end if ;
2580: end loop;
2581: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2582: EXCEPTION
2583: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2584: IF l_offlseassettrx_csr%ISOPEN THEN
2585: CLOSE l_offlseassettrx_csr;
2579: end if ;
2580: end loop;
2581: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
2582: EXCEPTION
2583: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2584: IF l_offlseassettrx_csr%ISOPEN THEN
2585: CLOSE l_offlseassettrx_csr;
2586: END IF;
2587: IF l_okxassetlines_csr%ISOPEN THEN
2586: END IF;
2587: IF l_okxassetlines_csr%ISOPEN THEN
2588: CLOSE l_okxassetlines_csr;
2589: END IF;
2590: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2591: l_api_name,
2592: G_PKG_NAME,
2593: 'OKL_API.G_RET_STS_ERROR',
2594: x_msg_count,
2589: END IF;
2590: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2591: l_api_name,
2592: G_PKG_NAME,
2593: 'OKL_API.G_RET_STS_ERROR',
2594: x_msg_count,
2595: x_msg_data,
2596: '_PVT');
2597: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2593: 'OKL_API.G_RET_STS_ERROR',
2594: x_msg_count,
2595: x_msg_data,
2596: '_PVT');
2597: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598: IF l_offlseassettrx_csr%ISOPEN THEN
2599: CLOSE l_offlseassettrx_csr;
2600: END IF;
2601: IF l_okxassetlines_csr%ISOPEN THEN
2600: END IF;
2601: IF l_okxassetlines_csr%ISOPEN THEN
2602: CLOSE l_okxassetlines_csr;
2603: END IF;
2604: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2605: l_api_name,
2606: G_PKG_NAME,
2607: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2608: x_msg_count,
2603: END IF;
2604: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2605: l_api_name,
2606: G_PKG_NAME,
2607: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2608: x_msg_count,
2609: x_msg_data,
2610: '_PVT');
2611: WHEN OTHERS 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: 'OTHERS',
2622: x_msg_count,
2637: x_msg_data OUT NOCOPY VARCHAR2,
2638: p_chr_id IN NUMBER,
2639: p_trx_date IN VARCHAR2) IS
2640:
2641: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2642: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_DATE';
2643: l_api_version CONSTANT NUMBER := 1.0;
2644:
2645:
2664: x_return_status := l_return_status;
2665:
2666: -- Call start_activity to create savepoint, check compatibility
2667: -- and initialize message list
2668: x_return_status := OKL_API.START_ACTIVITY (
2669: l_api_name
2670: ,p_init_msg_list
2671: ,'_PVT'
2672: ,x_return_status);
2670: ,p_init_msg_list
2671: ,'_PVT'
2672: ,x_return_status);
2673: -- Check if activity started successfully
2674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2671: ,'_PVT'
2672: ,x_return_status);
2673: -- Check if activity started successfully
2674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2679:
2672: ,x_return_status);
2673: -- Check if activity started successfully
2674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2679:
2680: --0. verify date format
2673: -- Check if activity started successfully
2674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2677: RAISE OKL_API.G_EXCEPTION_ERROR;
2678: END IF;
2679:
2680: --0. verify date format
2681: BEGIN
2682: l_icx_date_format := fnd_profile.value('ICX_DATE_FORMAT_MASK');
2683: l_trx_date := TO_DATE(p_trx_date, l_icx_date_format);
2684: EXCEPTION
2685: WHEN OTHERS THEN
2686: okl_api.set_message(
2687: G_APP_NAME,
2688: G_LLA_INVALID_DATE_FORMAT,
2689: 'DATE_FORMAT',
2690: l_icx_date_format,
2690: l_icx_date_format,
2691: 'COL_NAME',
2692: 'Revision Date'
2693: );
2694: x_return_status := OKL_API.G_RET_STS_ERROR;
2695: END;
2696:
2697: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2693: );
2694: x_return_status := OKL_API.G_RET_STS_ERROR;
2695: END;
2696:
2697: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2699: END IF;
2700:
2701:
2694: x_return_status := OKL_API.G_RET_STS_ERROR;
2695: END;
2696:
2697: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2699: END IF;
2700:
2701:
2702: --1. Transaction date is required
2699: END IF;
2700:
2701:
2702: --1. Transaction date is required
2703: IF NVL(p_trx_date,okl_api.g_miss_char) = okl_api.g_miss_char THEN
2704: okl_api.set_message(
2705: G_APP_NAME,
2706: G_LLA_MISSING_TRX_DATE
2707: );
2700:
2701:
2702: --1. Transaction date is required
2703: IF NVL(p_trx_date,okl_api.g_miss_char) = okl_api.g_miss_char THEN
2704: okl_api.set_message(
2705: G_APP_NAME,
2706: G_LLA_MISSING_TRX_DATE
2707: );
2708: x_return_status := OKL_API.G_RET_STS_ERROR;
2704: okl_api.set_message(
2705: G_APP_NAME,
2706: G_LLA_MISSING_TRX_DATE
2707: );
2708: x_return_status := OKL_API.G_RET_STS_ERROR;
2709: RAISE OKL_API.G_EXCEPTION_ERROR;
2710: END IF;
2711:
2712: --2. Transaction date is between contract start and end date
2705: G_APP_NAME,
2706: G_LLA_MISSING_TRX_DATE
2707: );
2708: x_return_status := OKL_API.G_RET_STS_ERROR;
2709: RAISE OKL_API.G_EXCEPTION_ERROR;
2710: END IF;
2711:
2712: --2. Transaction date is between contract start and end date
2713: l_date_valid := 'N';
2721: CLOSE l_chrb_csr;
2722:
2723:
2724: IF (l_date_valid = 'N') THEN
2725: okl_api.set_message(
2726: G_APP_NAME,
2727: G_LLA_WRONG_TRX_DATE,
2728: 'START_DATE',
2729: l_chrb_rec.con_start_date,
2729: l_chrb_rec.con_start_date,
2730: 'END_DATE',
2731: l_chrb_rec.con_end_date
2732: );
2733: x_return_status := OKL_API.G_RET_STS_ERROR;
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2737: --3. contracts which are not active can not be split asset
2730: 'END_DATE',
2731: l_chrb_rec.con_end_date
2732: );
2733: x_return_status := OKL_API.G_RET_STS_ERROR;
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2737: --3. contracts which are not active can not be split asset
2738: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: END IF;
2736:
2737: --3. contracts which are not active can not be split asset
2738: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2739: okl_api.set_message(
2740: G_APP_NAME,
2741: G_LLA_REV_ONLY_BOOKED
2742: );
2735: END IF;
2736:
2737: --3. contracts which are not active can not be split asset
2738: IF (NVL(l_chrb_rec.sts_code,OKL_API.G_MISS_CHAR) <> 'BOOKED') THEN
2739: okl_api.set_message(
2740: G_APP_NAME,
2741: G_LLA_REV_ONLY_BOOKED
2742: );
2743: x_return_status := OKL_API.G_RET_STS_ERROR;
2739: okl_api.set_message(
2740: G_APP_NAME,
2741: G_LLA_REV_ONLY_BOOKED
2742: );
2743: x_return_status := OKL_API.G_RET_STS_ERROR;
2744: RAISE OKL_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: OKL_API.END_ACTIVITY (x_msg_count,
2747: x_msg_data );
2740: G_APP_NAME,
2741: G_LLA_REV_ONLY_BOOKED
2742: );
2743: x_return_status := OKL_API.G_RET_STS_ERROR;
2744: RAISE OKL_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: OKL_API.END_ACTIVITY (x_msg_count,
2747: x_msg_data );
2748: EXCEPTION
2742: );
2743: x_return_status := OKL_API.G_RET_STS_ERROR;
2744: RAISE OKL_API.G_EXCEPTION_ERROR;
2745: END IF;
2746: OKL_API.END_ACTIVITY (x_msg_count,
2747: x_msg_data );
2748: EXCEPTION
2749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2750: IF l_chrb_csr%ISOPEN THEN
2745: END IF;
2746: OKL_API.END_ACTIVITY (x_msg_count,
2747: x_msg_data );
2748: EXCEPTION
2749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2750: IF l_chrb_csr%ISOPEN THEN
2751: CLOSE l_chrb_csr;
2752: END IF;
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2749: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2750: IF l_chrb_csr%ISOPEN THEN
2751: CLOSE l_chrb_csr;
2752: END IF;
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2754: l_api_name,
2755: G_PKG_NAME,
2756: 'OKL_API.G_RET_STS_ERROR',
2757: x_msg_count,
2752: END IF;
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2754: l_api_name,
2755: G_PKG_NAME,
2756: 'OKL_API.G_RET_STS_ERROR',
2757: x_msg_count,
2758: x_msg_data,
2759: '_PVT');
2760: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2756: 'OKL_API.G_RET_STS_ERROR',
2757: x_msg_count,
2758: x_msg_data,
2759: '_PVT');
2760: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2761: IF l_chrb_csr%ISOPEN THEN
2762: CLOSE l_chrb_csr;
2763: END IF;
2764: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2760: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2761: IF l_chrb_csr%ISOPEN THEN
2762: CLOSE l_chrb_csr;
2763: END IF;
2764: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2765: l_api_name,
2766: G_PKG_NAME,
2767: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2768: x_msg_count,
2763: END IF;
2764: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2765: l_api_name,
2766: G_PKG_NAME,
2767: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2768: x_msg_count,
2769: x_msg_data,
2770: '_PVT');
2771: WHEN OTHERS THEN
2771: WHEN OTHERS THEN
2772: IF l_chrb_csr%ISOPEN THEN
2773: CLOSE l_chrb_csr;
2774: END IF;
2775: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OTHERS',
2779: x_msg_count,
2793: x_msg_data OUT NOCOPY VARCHAR2,
2794: p_cle_id IN NUMBER,
2795: p_trx_date IN DATE) IS
2796:
2797: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
2798: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TRX_DATE';
2799: l_api_version CONSTANT NUMBER := 1.0;
2800:
2801:
2840: x_return_status := l_return_status;
2841:
2842: -- Call start_activity to create savepoint, check compatibility
2843: -- and initialize message list
2844: x_return_status := OKL_API.START_ACTIVITY (
2845: l_api_name
2846: ,p_init_msg_list
2847: ,'_PVT'
2848: ,x_return_status);
2846: ,p_init_msg_list
2847: ,'_PVT'
2848: ,x_return_status);
2849: -- Check if activity started successfully
2850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2853: RAISE OKL_API.G_EXCEPTION_ERROR;
2854: END IF;
2847: ,'_PVT'
2848: ,x_return_status);
2849: -- Check if activity started successfully
2850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2853: RAISE OKL_API.G_EXCEPTION_ERROR;
2854: END IF;
2855:
2848: ,x_return_status);
2849: -- Check if activity started successfully
2850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2853: RAISE OKL_API.G_EXCEPTION_ERROR;
2854: END IF;
2855:
2856: --1. Transaction date is required
2849: -- Check if activity started successfully
2850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2853: RAISE OKL_API.G_EXCEPTION_ERROR;
2854: END IF;
2855:
2856: --1. Transaction date is required
2857: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2853: RAISE OKL_API.G_EXCEPTION_ERROR;
2854: END IF;
2855:
2856: --1. Transaction date is required
2857: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2858: okl_api.set_message(
2859: G_APP_NAME,
2860: G_LLA_MISSING_TRX_DATE
2861: );
2854: END IF;
2855:
2856: --1. Transaction date is required
2857: IF NVL(p_trx_date,okl_api.g_miss_date) = okl_api.g_miss_date THEN
2858: okl_api.set_message(
2859: G_APP_NAME,
2860: G_LLA_MISSING_TRX_DATE
2861: );
2862: x_return_status := OKL_API.G_RET_STS_ERROR;
2858: okl_api.set_message(
2859: G_APP_NAME,
2860: G_LLA_MISSING_TRX_DATE
2861: );
2862: x_return_status := OKL_API.G_RET_STS_ERROR;
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2866: l_icx_date_format := NVL(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY');
2859: G_APP_NAME,
2860: G_LLA_MISSING_TRX_DATE
2861: );
2862: x_return_status := OKL_API.G_RET_STS_ERROR;
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2866: l_icx_date_format := NVL(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-YYYY');
2867: --2. Transaction date is between contract start and end date
2901: ELSE
2902: l_date_valid := l_cleb_rec.date_valid;
2903: END IF;
2904: CLOSE l_strdate_csr;*/
2905: okl_api.set_message(
2906: G_APP_NAME,
2907: G_LLA_WRONG_TRX_DATE,
2908: 'START_DATE',
2909: l_cleb_rec.line_start_date,
2909: l_cleb_rec.line_start_date,
2910: 'END_DATE',
2911: l_cleb_rec.line_end_date
2912: );
2913: x_return_status := OKL_API.G_RET_STS_ERROR;
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916: EXCEPTION
2917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2910: 'END_DATE',
2911: l_cleb_rec.line_end_date
2912: );
2913: x_return_status := OKL_API.G_RET_STS_ERROR;
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916: EXCEPTION
2917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2918: IF l_cleb_csr%ISOPEN THEN
2913: x_return_status := OKL_API.G_RET_STS_ERROR;
2914: RAISE OKL_API.G_EXCEPTION_ERROR;
2915: END IF;
2916: EXCEPTION
2917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2918: IF l_cleb_csr%ISOPEN THEN
2919: CLOSE l_cleb_csr;
2920: END IF;
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2918: IF l_cleb_csr%ISOPEN THEN
2919: CLOSE l_cleb_csr;
2920: END IF;
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2922: l_api_name,
2923: G_PKG_NAME,
2924: 'OKL_API.G_RET_STS_ERROR',
2925: x_msg_count,
2920: END IF;
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2922: l_api_name,
2923: G_PKG_NAME,
2924: 'OKL_API.G_RET_STS_ERROR',
2925: x_msg_count,
2926: x_msg_data,
2927: '_PVT');
2928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2924: 'OKL_API.G_RET_STS_ERROR',
2925: x_msg_count,
2926: x_msg_data,
2927: '_PVT');
2928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2929: IF l_cleb_csr%ISOPEN THEN
2930: CLOSE l_cleb_csr;
2931: END IF;
2932: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2928: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2929: IF l_cleb_csr%ISOPEN THEN
2930: CLOSE l_cleb_csr;
2931: END IF;
2932: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2933: l_api_name,
2934: G_PKG_NAME,
2935: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2936: x_msg_count,
2931: END IF;
2932: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2933: l_api_name,
2934: G_PKG_NAME,
2935: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2936: x_msg_count,
2937: x_msg_data,
2938: '_PVT');
2939: WHEN OTHERS THEN
2939: WHEN OTHERS THEN
2940: IF l_cleb_csr%ISOPEN THEN
2941: CLOSE l_cleb_csr;
2942: END IF;
2943: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2944: l_api_name,
2945: G_PKG_NAME,
2946: 'OTHERS',
2947: x_msg_count,
3397: --------------------------------------------------------------------------------
3398: FUNCTION Asset_Number_Exists(p_asset_number IN VARCHAR2,
3399: x_asset_exists OUT NOCOPY VARCHAR2) RETURN VARCHAR2 IS
3400: l_asset_exists VARCHAR2(1) DEFAULT 'N';
3401: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3402:
3403: --chk for asset in FA
3404: CURSOR asset_chk_curs1 (p_asset_number IN VARCHAR2) IS
3405: SELECT 'Y'
3433: AND txl.id = txd.tal_id);
3434:
3435:
3436: BEGIN
3437: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3438: --dbms_output.put_line('Asset Number'||p_asset_number);
3439: l_asset_exists := 'N';
3440: OPEN asset_chk_curs1(p_asset_number);
3441: FETCH asset_chk_curs1 INTO l_asset_exists;
3458: RETURN(l_return_status);
3459: EXCEPTION
3460: WHEN OTHERS THEN
3461: -- store SQL error message on message stack for caller
3462: OKL_API.set_message(
3463: G_APP_NAME,
3464: G_UNEXPECTED_ERROR,
3465: G_SQLCODE_TOKEN,
3466: SQLCODE,
3476: IF asset_chk_curs3%ISOPEN THEN
3477: CLOSE asset_chk_curs3;
3478: END IF;
3479: --send back status to caller
3480: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3481: RETURN(l_return_status);
3482: END Asset_Number_Exists;
3483: --------------------------------------------------------------------------------
3484: --Function to validate okl_txd_Assets_v attributes
3485: --------------------------------------------------------------------------------
3486: FUNCTION Validate_Attributes (p_txdv_rec IN txdv_rec_type)
3487: RETURN VARCHAR2 IS
3488:
3489: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3490:
3491: --chk for asset in FA
3492: CURSOR asset_chk_curs1 (p_asset_number IN VARCHAR2) IS
3493: SELECT 'Y'
3533: l_asset_exists VARCHAR2(1) DEFAULT 'N';
3534:
3535: BEGIN
3536: l_txdv_rec := p_txdv_rec;
3537: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3538: --1.Validate existence of asset number
3539: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3540: -- store SQL error message on message stack
3541: OKL_API.set_message(p_app_name => G_APP_NAME,
3535: BEGIN
3536: l_txdv_rec := p_txdv_rec;
3537: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3538: --1.Validate existence of asset number
3539: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3540: -- store SQL error message on message stack
3541: OKL_API.set_message(p_app_name => G_APP_NAME,
3542: p_msg_name => G_ASSET_REQUIRED);
3543: l_return_status := OKL_API.G_RET_STS_ERROR;
3537: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3538: --1.Validate existence of asset number
3539: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3540: -- store SQL error message on message stack
3541: OKL_API.set_message(p_app_name => G_APP_NAME,
3542: p_msg_name => G_ASSET_REQUIRED);
3543: l_return_status := OKL_API.G_RET_STS_ERROR;
3544: -- halt validation as it is a required field
3545: RAISE G_EXCEPTION_HALT_VALIDATION;
3539: IF (l_txdv_rec.asset_number IS NULL) OR (l_txdv_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
3540: -- store SQL error message on message stack
3541: OKL_API.set_message(p_app_name => G_APP_NAME,
3542: p_msg_name => G_ASSET_REQUIRED);
3543: l_return_status := OKL_API.G_RET_STS_ERROR;
3544: -- halt validation as it is a required field
3545: RAISE G_EXCEPTION_HALT_VALIDATION;
3546: ELSE
3547: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3545: RAISE G_EXCEPTION_HALT_VALIDATION;
3546: ELSE
3547: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3548: -- store SQL error message on message stack
3549: OKL_API.set_message(p_app_name => G_APP_NAME,
3550: p_msg_name => G_ASSET_LENGTH);
3551: l_return_status := OKL_API.G_RET_STS_ERROR;
3552: -- halt validation as it is a required field
3553: RAISE G_EXCEPTION_HALT_VALIDATION;
3547: IF LENGTH(l_txdv_rec.asset_number) > 15 THEN
3548: -- store SQL error message on message stack
3549: OKL_API.set_message(p_app_name => G_APP_NAME,
3550: p_msg_name => G_ASSET_LENGTH);
3551: l_return_status := OKL_API.G_RET_STS_ERROR;
3552: -- halt validation as it is a required field
3553: RAISE G_EXCEPTION_HALT_VALIDATION;
3554: ELSE
3555: l_asset_exists := 'N';
3574: END IF;
3575: CLOSE asset_chk_curs1;
3576: IF l_asset_exists = 'Y' THEN
3577: -- store SQL error message on message stack
3578: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3579: p_msg_name => G_NOT_UNIQUE,
3580: p_token1 => G_COL_NAME_TOKEN,
3581: p_token1_value => 'Asset Number '|| l_txdv_rec.asset_number);
3582: l_return_status := OKL_API.G_RET_STS_ERROR;
3578: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3579: p_msg_name => G_NOT_UNIQUE,
3580: p_token1 => G_COL_NAME_TOKEN,
3581: p_token1_value => 'Asset Number '|| l_txdv_rec.asset_number);
3582: l_return_status := OKL_API.G_RET_STS_ERROR;
3583: -- halt validation as it is a required field
3584: RAISE G_EXCEPTION_HALT_VALIDATION;
3585: END IF;
3586: END IF;
3591: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3592: RETURN(l_return_status);
3593: WHEN OTHERS THEN
3594: -- store SQL error message on message stack for caller
3595: OKL_API.set_message(
3596: G_APP_NAME,
3597: G_UNEXPECTED_ERROR,
3598: G_SQLCODE_TOKEN,
3599: SQLCODE,
3612: IF asset_chk_curs4%ISOPEN THEN
3613: CLOSE asset_chk_curs4;
3614: END IF;
3615: --send back status to caller
3616: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3617: RETURN(l_return_status);
3618: END Validate_Attributes;
3619: -------------------------------------------------------------------------------
3620: --Function to verify TRY_ID for the transaction try_id
3621: -------------------------------------------------------------------------------
3622: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,
3623: x_try_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
3624: RETURN VARCHAR2 IS
3625: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3626: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
3627: SELECT id
3628: FROM OKL_TRX_TYPES_TL
3629: WHERE UPPER(name) = UPPER(p_try_name)
3628: FROM OKL_TRX_TYPES_TL
3629: WHERE UPPER(name) = UPPER(p_try_name)
3630: AND LANGUAGE = 'US';
3631: BEGIN
3632: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
3633: (p_try_name IS NULL) THEN
3634: -- store SQL error message on message stack
3635: OKL_API.set_message(p_app_name => G_APP_NAME,
3636: p_msg_name => G_NO_DATA_FOUND,
3631: BEGIN
3632: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
3633: (p_try_name IS NULL) THEN
3634: -- store SQL error message on message stack
3635: OKL_API.set_message(p_app_name => G_APP_NAME,
3636: p_msg_name => G_NO_DATA_FOUND,
3637: p_token1 => G_COL_NAME_TOKEN,
3638: p_token1_value => p_try_name);
3639: -- halt validation as it is a required field
3641: END IF;
3642: OPEN c_get_try_id(p_try_name);
3643: FETCH c_get_try_id INTO x_try_id;
3644: IF c_get_try_id%NOTFOUND THEN
3645: OKL_API.set_message(p_app_name => G_APP_NAME,
3646: p_msg_name => G_NO_DATA_FOUND,
3647: p_token1 => G_COL_NAME_TOKEN,
3648: p_token1_value => p_try_name);
3649: RAISE G_EXCEPTION_HALT_VALIDATION;
3653: EXCEPTION
3654: WHEN G_EXCEPTION_STOP_VALIDATION THEN
3655: -- We are here since the field is required
3656: -- Notify Error
3657: x_return_status := OKL_API.G_RET_STS_ERROR;
3658: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3659: -- We are here b'cause we have no parent record
3660: -- If the cursor is open then it has to be closed
3661: IF c_get_try_id%ISOPEN THEN
3661: IF c_get_try_id%ISOPEN THEN
3662: CLOSE c_get_try_id;
3663: END IF;
3664: -- notify caller of an error
3665: x_return_status := OKL_API.G_RET_STS_ERROR;
3666: WHEN OTHERS THEN
3667: -- store SQL error message on message stack for caller
3668: OKL_API.set_message(
3669: G_APP_NAME,
3664: -- notify caller of an error
3665: x_return_status := OKL_API.G_RET_STS_ERROR;
3666: WHEN OTHERS THEN
3667: -- store SQL error message on message stack for caller
3668: OKL_API.set_message(
3669: G_APP_NAME,
3670: G_UNEXPECTED_ERROR,
3671: G_SQLCODE_TOKEN,
3672: SQLCODE,
3672: SQLCODE,
3673: G_SQLERRM_TOKEN,
3674: SQLERRM);
3675: -- notify caller of an UNEXPECTED error
3676: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3677: -- if the cursor is open
3678: IF c_get_try_id%ISOPEN THEN
3679: CLOSE c_get_try_id;
3680: END IF;
3699: WHERE stl.lse_id = cle.lse_id
3700: AND stl.scs_code = CHR.scs_code
3701: AND CHR.id = cle.chr_id);
3702: l_chk_top_line VARCHAR2(1) DEFAULT 'N';
3703: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3704: BEGIN
3705: OPEN Chk_Top_Line(p_cle_id);
3706: FETCH Chk_Top_Line INTO l_chk_top_line;
3707: IF chk_top_line%NOTFOUND THEN
3709: NULL;
3710: END IF;
3711: CLOSE Chk_Top_Line;
3712: IF l_chk_top_line <> 'Y' THEN
3713: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3714: p_msg_name => G_INVALID_TOP_LINE);
3715: l_return_status := OKL_API.G_RET_STS_ERROR;
3716: END IF;
3717: RETURN(l_return_status);
3711: CLOSE Chk_Top_Line;
3712: IF l_chk_top_line <> 'Y' THEN
3713: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3714: p_msg_name => G_INVALID_TOP_LINE);
3715: l_return_status := OKL_API.G_RET_STS_ERROR;
3716: END IF;
3717: RETURN(l_return_status);
3718: EXCEPTION
3719: WHEN OTHERS THEN
3716: END IF;
3717: RETURN(l_return_status);
3718: EXCEPTION
3719: WHEN OTHERS THEN
3720: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3721: OKL_API.set_message(
3722: G_APP_NAME,
3723: G_UNEXPECTED_ERROR,
3724: G_SQLCODE_TOKEN,
3717: RETURN(l_return_status);
3718: EXCEPTION
3719: WHEN OTHERS THEN
3720: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3721: OKL_API.set_message(
3722: G_APP_NAME,
3723: G_UNEXPECTED_ERROR,
3724: G_SQLCODE_TOKEN,
3725: SQLCODE,
3754: --This is strange way to get one location
3755: --since asset can be assigned to multiple
3756: --fa locations. But till we know what we have to do
3757: --this is it.
3758: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3759: l_location_id NUMBER DEFAULT NULL;
3760: BEGIN
3761: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3762: OPEN fa_location_curs(p_asset_id,
3757: --this is it.
3758: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3759: l_location_id NUMBER DEFAULT NULL;
3760: BEGIN
3761: l_return_status := OKL_API.G_RET_STS_SUCCESS;
3762: OPEN fa_location_curs(p_asset_id,
3763: p_book_type_code);
3764: FETCH fa_location_curs
3765: INTO l_location_id;
3771: RETURN(l_return_status);
3772: EXCEPTION
3773: WHEN OTHERS THEN
3774: -- notify caller of an UNEXPECTED error
3775: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3776: OKL_API.set_message(
3777: G_APP_NAME,
3778: G_UNEXPECTED_ERROR,
3779: G_SQLCODE_TOKEN,
3772: EXCEPTION
3773: WHEN OTHERS THEN
3774: -- notify caller of an UNEXPECTED error
3775: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3776: OKL_API.set_message(
3777: G_APP_NAME,
3778: G_UNEXPECTED_ERROR,
3779: G_SQLCODE_TOKEN,
3780: SQLCODE,
3790: --Procedure to create transaction header (OKL_TRX_ASSETS_V)
3791: --------------------------------------------------------------------------------
3792: PROCEDURE Create_trx_header(
3793: p_api_version IN NUMBER,
3794: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3795: x_return_status OUT NOCOPY VARCHAR2,
3796: x_msg_count OUT NOCOPY NUMBER,
3797: x_msg_data OUT NOCOPY VARCHAR2,
3798: p_trxv_rec IN trxv_rec_type,
3798: p_trxv_rec IN trxv_rec_type,
3799: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
3800: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_HEADER';
3801: BEGIN
3802: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3803: -- Call start_activity to create savepoint, check compatibility
3804: -- and initialize message list
3805: x_return_status := OKL_API.START_ACTIVITY (
3806: l_api_name
3801: BEGIN
3802: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3803: -- Call start_activity to create savepoint, check compatibility
3804: -- and initialize message list
3805: x_return_status := OKL_API.START_ACTIVITY (
3806: l_api_name
3807: ,p_init_msg_list
3808: ,'_PVT'
3809: ,x_return_status);
3807: ,p_init_msg_list
3808: ,'_PVT'
3809: ,x_return_status);
3810: -- Check if activity started successfully
3811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_ERROR;
3815: END IF;
3808: ,'_PVT'
3809: ,x_return_status);
3810: -- Check if activity started successfully
3811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_ERROR;
3815: END IF;
3816: -- evaluate conditions, build outcomes for true conditions and
3809: ,x_return_status);
3810: -- Check if activity started successfully
3811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_ERROR;
3815: END IF;
3816: -- evaluate conditions, build outcomes for true conditions and
3817: -- put them on outcome queue
3810: -- Check if activity started successfully
3811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3814: RAISE OKL_API.G_EXCEPTION_ERROR;
3815: END IF;
3816: -- evaluate conditions, build outcomes for true conditions and
3817: -- put them on outcome queue
3818: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
3823: x_msg_data => x_msg_data,
3824: p_thpv_rec => p_trxv_rec,
3825: x_thpv_rec => x_trxv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3824: p_thpv_rec => p_trxv_rec,
3825: x_thpv_rec => x_trxv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: OKL_API.END_ACTIVITY (x_msg_count,
3825: x_thpv_rec => x_trxv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: OKL_API.END_ACTIVITY (x_msg_count,
3833: x_msg_data );
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: OKL_API.END_ACTIVITY (x_msg_count,
3833: x_msg_data );
3834: EXCEPTION
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: OKL_API.END_ACTIVITY (x_msg_count,
3833: x_msg_data );
3834: EXCEPTION
3835: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3831: END IF;
3832: OKL_API.END_ACTIVITY (x_msg_count,
3833: x_msg_data );
3834: EXCEPTION
3835: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3837: l_api_name,
3838: G_PKG_NAME,
3839: 'OKC_API.G_RET_STS_ERROR',
3832: OKL_API.END_ACTIVITY (x_msg_count,
3833: x_msg_data );
3834: EXCEPTION
3835: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3837: l_api_name,
3838: G_PKG_NAME,
3839: 'OKC_API.G_RET_STS_ERROR',
3840: x_msg_count,
3839: 'OKC_API.G_RET_STS_ERROR',
3840: x_msg_count,
3841: x_msg_data,
3842: '_PVT');
3843: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3844: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3845: l_api_name,
3846: G_PKG_NAME,
3847: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3840: x_msg_count,
3841: x_msg_data,
3842: '_PVT');
3843: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3844: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3845: l_api_name,
3846: G_PKG_NAME,
3847: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3848: x_msg_count,
3848: x_msg_count,
3849: x_msg_data,
3850: '_PVT');
3851: WHEN OTHERS THEN
3852: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3853: l_api_name,
3854: G_PKG_NAME,
3855: 'OTHERS',
3856: x_msg_count,
3861: --PROCEDURE to update transaction_header (OKL_TRX_ASSETS_V)
3862: --------------------------------------------------------------------------------
3863: PROCEDURE Update_trx_header(
3864: p_api_version IN NUMBER,
3865: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3866: x_return_status OUT NOCOPY VARCHAR2,
3867: x_msg_count OUT NOCOPY NUMBER,
3868: x_msg_data OUT NOCOPY VARCHAR2,
3869: p_trxv_rec IN trxv_rec_type,
3869: p_trxv_rec IN trxv_rec_type,
3870: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
3871: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_HEADER';
3872: BEGIN
3873: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3874: -- Call start_activity to create savepoint, check compatibility
3875: -- and initialize message list
3876: x_return_status := OKL_API.START_ACTIVITY (
3877: l_api_name
3872: BEGIN
3873: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3874: -- Call start_activity to create savepoint, check compatibility
3875: -- and initialize message list
3876: x_return_status := OKL_API.START_ACTIVITY (
3877: l_api_name
3878: ,p_init_msg_list
3879: ,'_PVT'
3880: ,x_return_status);
3878: ,p_init_msg_list
3879: ,'_PVT'
3880: ,x_return_status);
3881: -- Check if activity started successfully
3882: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3885: RAISE OKL_API.G_EXCEPTION_ERROR;
3886: END IF;
3879: ,'_PVT'
3880: ,x_return_status);
3881: -- Check if activity started successfully
3882: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3885: RAISE OKL_API.G_EXCEPTION_ERROR;
3886: END IF;
3887: -- evaluate conditions, build outcomes for true conditions and
3880: ,x_return_status);
3881: -- Check if activity started successfully
3882: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3885: RAISE OKL_API.G_EXCEPTION_ERROR;
3886: END IF;
3887: -- evaluate conditions, build outcomes for true conditions and
3888: -- put them on outcome queue
3881: -- Check if activity started successfully
3882: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3885: RAISE OKL_API.G_EXCEPTION_ERROR;
3886: END IF;
3887: -- evaluate conditions, build outcomes for true conditions and
3888: -- put them on outcome queue
3889: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
3894: x_msg_data => x_msg_data,
3895: p_thpv_rec => p_trxv_rec,
3896: x_thpv_rec => x_trxv_rec);
3897:
3898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3895: p_thpv_rec => p_trxv_rec,
3896: x_thpv_rec => x_trxv_rec);
3897:
3898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903:
3896: x_thpv_rec => x_trxv_rec);
3897:
3898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903:
3904: OKL_API.END_ACTIVITY (x_msg_count,
3897:
3898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903:
3904: OKL_API.END_ACTIVITY (x_msg_count,
3905: x_msg_data );
3900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3901: RAISE OKL_API.G_EXCEPTION_ERROR;
3902: END IF;
3903:
3904: OKL_API.END_ACTIVITY (x_msg_count,
3905: x_msg_data );
3906: EXCEPTION
3907: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3904: OKL_API.END_ACTIVITY (x_msg_count,
3905: x_msg_data );
3906: EXCEPTION
3907: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3909: l_api_name,
3910: G_PKG_NAME,
3911: 'OKC_API.G_RET_STS_ERROR',
3912: x_msg_count,
3912: x_msg_count,
3913: x_msg_data,
3914: '_PVT');
3915: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3916: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3917: l_api_name,
3918: G_PKG_NAME,
3919: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3920: x_msg_count,
3920: x_msg_count,
3921: x_msg_data,
3922: '_PVT');
3923: WHEN OTHERS THEN
3924: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3925: l_api_name,
3926: G_PKG_NAME,
3927: 'OTHERS',
3928: x_msg_count,
3934: --Bug# 2798006 : Modifications for Loan contract - instead of reading values from
3935: --p_ast_line_rec will read from p_txlv_rec
3936: --------------------------------------------------------------------------------
3937: PROCEDURE Create_trx_details(p_api_version IN NUMBER,
3938: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3939: x_return_status OUT NOCOPY VARCHAR2,
3940: x_msg_count OUT NOCOPY NUMBER,
3941: x_msg_data OUT NOCOPY VARCHAR2,
3942: p_ast_line_rec IN ast_line_rec_type,
3942: p_ast_line_rec IN ast_line_rec_type,
3943: p_txlv_rec IN txlv_rec_type,
3944: x_txdv_tbl OUT NOCOPY txdv_tbl_type) IS
3945:
3946: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
3947: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_DETAILS';
3948: l_api_version CONSTANT NUMBER := 1.0;
3949:
3950: l_split_into_individuals_yn VARCHAR2(1);
3961: i NUMBER DEFAULT 0;
3962: l_split_unit_count NUMBER DEFAULT 0;
3963:
3964: BEGIN
3965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3966: -- Call start_activity to create savepoint, check compatibility
3967: -- and initialize message list
3968: x_return_status := OKL_API.START_ACTIVITY (
3969: l_api_name
3964: BEGIN
3965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3966: -- Call start_activity to create savepoint, check compatibility
3967: -- and initialize message list
3968: x_return_status := OKL_API.START_ACTIVITY (
3969: l_api_name
3970: ,p_init_msg_list
3971: ,'_PVT'
3972: ,x_return_status);
3970: ,p_init_msg_list
3971: ,'_PVT'
3972: ,x_return_status);
3973: -- Check if activity started successfully
3974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3971: ,'_PVT'
3972: ,x_return_status);
3973: -- Check if activity started successfully
3974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979:
3972: ,x_return_status);
3973: -- Check if activity started successfully
3974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979:
3980: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
3973: -- Check if activity started successfully
3974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3977: RAISE OKL_API.G_EXCEPTION_ERROR;
3978: END IF;
3979:
3980: l_split_into_individuals_yn := NVL(p_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N');
3981: --dbms_output.put_line('Split into individuals'||l_split_into_individuals_yn);
4014: INTO l_txdv_rec.asset_number FROM dual;
4015: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4016: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4017: --dbms_output.put_line('after asset number validate'||x_return_status);
4018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4015: --dbms_output.put_line('Asset Number'||l_txdv_rec.asset_number);
4016: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4017: --dbms_output.put_line('after asset number validate'||x_return_status);
4018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4023: IF l_asset_exists = 'Y' THEN
4016: x_return_status := Asset_Number_Exists(l_txdv_rec.asset_number,l_asset_exists);
4017: --dbms_output.put_line('after asset number validate'||x_return_status);
4018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4023: IF l_asset_exists = 'Y' THEN
4024: j:= j+1;
4017: --dbms_output.put_line('after asset number validate'||x_return_status);
4018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4019: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4020: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021: RAISE OKL_API.G_EXCEPTION_ERROR;
4022: END IF;
4023: IF l_asset_exists = 'Y' THEN
4024: j:= j+1;
4025: ELSIF l_asset_exists = 'N' THEN
4055: p_adpv_rec => l_txdv_rec,
4056: x_adpv_rec => l_txdv_rec_out);
4057: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4058: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063: END IF;
4056: x_adpv_rec => l_txdv_rec_out);
4057: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4058: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063: END IF;
4064: l_split_unit_count := i;
4057: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4058: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063: END IF;
4064: l_split_unit_count := i;
4065: x_txdv_tbl(l_split_unit_count) := l_txdv_rec_out;
4058: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063: END IF;
4064: l_split_unit_count := i;
4065: x_txdv_tbl(l_split_unit_count) := l_txdv_rec_out;
4066: END LOOP;
4107: x_adpv_rec => l_txdv_rec_out);
4108: --dbms_output.put_line('after Creating trx detail for parent asset'||x_return_status);
4109: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4110: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4108: --dbms_output.put_line('after Creating trx detail for parent asset'||x_return_status);
4109: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4110: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4109: --dbms_output.put_line('After Creating trx detail for child asset'||x_return_status);
4110: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4117: OKL_API.END_ACTIVITY (x_msg_count,
4110: --dbms_output.put_line('After Creating trx detail for child asset'||l_txdv_rec_out.description);
4111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4117: OKL_API.END_ACTIVITY (x_msg_count,
4118: x_msg_data );
4113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4114: RAISE OKL_API.G_EXCEPTION_ERROR;
4115: END IF;
4116: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4117: OKL_API.END_ACTIVITY (x_msg_count,
4118: x_msg_data );
4119: EXCEPTION
4120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4116: x_txdv_tbl(l_split_unit_count + 1) := l_txdv_rec_out;
4117: OKL_API.END_ACTIVITY (x_msg_count,
4118: x_msg_data );
4119: EXCEPTION
4120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4122: l_api_name,
4123: G_PKG_NAME,
4124: 'OKL_API.G_RET_STS_ERROR',
4117: OKL_API.END_ACTIVITY (x_msg_count,
4118: x_msg_data );
4119: EXCEPTION
4120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4122: l_api_name,
4123: G_PKG_NAME,
4124: 'OKL_API.G_RET_STS_ERROR',
4125: x_msg_count,
4120: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4122: l_api_name,
4123: G_PKG_NAME,
4124: 'OKL_API.G_RET_STS_ERROR',
4125: x_msg_count,
4126: x_msg_data,
4127: '_PVT');
4128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4124: 'OKL_API.G_RET_STS_ERROR',
4125: x_msg_count,
4126: x_msg_data,
4127: '_PVT');
4128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4129: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4130: l_api_name,
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4125: x_msg_count,
4126: x_msg_data,
4127: '_PVT');
4128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4129: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4130: l_api_name,
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4133: x_msg_count,
4128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4129: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4130: l_api_name,
4131: G_PKG_NAME,
4132: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4133: x_msg_count,
4134: x_msg_data,
4135: '_PVT');
4136: WHEN OTHERS THEN
4133: x_msg_count,
4134: x_msg_data,
4135: '_PVT');
4136: WHEN OTHERS THEN
4137: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4138: l_api_name,
4139: G_PKG_NAME,
4140: 'OTHERS',
4141: x_msg_count,
4172: AND model_lse.lty_code = 'ITEM';
4173:
4174: chk_srl_rec chk_srl_csr%ROWTYPE;
4175:
4176: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4177:
4178: BEGIN
4179: l_serialized := OKL_API.G_FALSE;
4180: --user needs to select serial numbers to split out
4175:
4176: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4177:
4178: BEGIN
4179: l_serialized := OKL_API.G_FALSE;
4180: --user needs to select serial numbers to split out
4181: OPEN chk_srl_csr (fin_ast_id => p_cle_id);
4182: FETCH chk_srl_csr INTO chk_srl_rec;
4183: IF chk_srl_csr%NOTFOUND THEN
4186: CLOSE chk_srl_csr;
4187:
4188: IF chk_srl_rec.serial_number_control_code IN (2,5,6) THEN
4189: -- asset inventory item is serial number controlled
4190: l_serialized := OKL_API.G_TRUE;
4191: END IF;
4192:
4193: RETURN (l_serialized);
4194: END is_serialized;
4211: x_serialized OUT NOCOPY VARCHAR2) IS
4212: l_api_version CONSTANT NUMBER := 1.0;
4213: l_api_name VARCHAR2(30) := 'IS_INV_ITEM_SERIALIZED';
4214:
4215: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4216:
4217: --cursor to find serialized
4218: CURSOR srl_ctrl_csr (p_inv_item_id IN NUMBER,
4219: p_chr_id IN NUMBER) IS
4241:
4242: l_exception_halt EXCEPTION;
4243:
4244: BEGIN
4245: x_serialized := OKL_API.G_FALSE;
4246: x_return_status := OKL_API.START_ACTIVITY (
4247: l_api_name
4248: ,p_init_msg_list
4249: ,'_PVT'
4242: l_exception_halt EXCEPTION;
4243:
4244: BEGIN
4245: x_serialized := OKL_API.G_FALSE;
4246: x_return_status := OKL_API.START_ACTIVITY (
4247: l_api_name
4248: ,p_init_msg_list
4249: ,'_PVT'
4250: ,x_return_status);
4248: ,p_init_msg_list
4249: ,'_PVT'
4250: ,x_return_status);
4251: -- Check if activity started successfully
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4249: ,'_PVT'
4250: ,x_return_status);
4251: -- Check if activity started successfully
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4250: ,x_return_status);
4251: -- Check if activity started successfully
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258: l_serialized := OKL_API.G_FALSE;
4251: -- Check if activity started successfully
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258: l_serialized := OKL_API.G_FALSE;
4259: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258: l_serialized := OKL_API.G_FALSE;
4259: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4260: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
4261: p_chr_id => p_chr_id);
4262: FETCH srl_ctrl_csr INTO
4255: RAISE OKL_API.G_EXCEPTION_ERROR;
4256: END IF;
4257:
4258: l_serialized := OKL_API.G_FALSE;
4259: IF p_chr_id IS NOT NULL OR p_chr_id <> OKL_API.G_MISS_NUM THEN
4260: OPEN srl_ctrl_csr (p_inv_item_id => p_inv_item_id,
4261: p_chr_id => p_chr_id);
4262: FETCH srl_ctrl_csr INTO
4263: l_srl_control_code;
4261: p_chr_id => p_chr_id);
4262: FETCH srl_ctrl_csr INTO
4263: l_srl_control_code;
4264: CLOSE srl_ctrl_csr;
4265: ELSIF p_cle_id IS NOT NULL OR p_cle_id <> OKL_API.G_MISS_NUM THEN
4266: OPEN srl_ctrl_csr2 (p_inv_item_id => p_inv_item_id,
4267: p_cle_id => p_cle_id);
4268: FETCH srl_ctrl_csr2 INTO
4269: l_srl_control_code;
4272: RAISE l_exception_halt;
4273: END IF;
4274:
4275: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
4276: l_serialized := OKL_API.G_TRUE;
4277: END IF;
4278: x_serialized := l_serialized;
4279: OKL_API.END_ACTIVITY (x_msg_count,
4280: x_msg_data );
4275: IF NVL(l_srl_control_code,0) IN (2,5,6) THEN
4276: l_serialized := OKL_API.G_TRUE;
4277: END IF;
4278: x_serialized := l_serialized;
4279: OKL_API.END_ACTIVITY (x_msg_count,
4280: x_msg_data );
4281: EXCEPTION
4282: WHEN l_exception_halt THEN
4283: NULL;
4280: x_msg_data );
4281: EXCEPTION
4282: WHEN l_exception_halt THEN
4283: NULL;
4284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: l_api_name,
4287: G_PKG_NAME,
4288: 'OKL_API.G_RET_STS_ERROR',
4281: EXCEPTION
4282: WHEN l_exception_halt THEN
4283: NULL;
4284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: l_api_name,
4287: G_PKG_NAME,
4288: 'OKL_API.G_RET_STS_ERROR',
4289: x_msg_count,
4284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4286: l_api_name,
4287: G_PKG_NAME,
4288: 'OKL_API.G_RET_STS_ERROR',
4289: x_msg_count,
4290: x_msg_data,
4291: '_PVT');
4292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4288: 'OKL_API.G_RET_STS_ERROR',
4289: x_msg_count,
4290: x_msg_data,
4291: '_PVT');
4292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4294: l_api_name,
4295: G_PKG_NAME,
4296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4289: x_msg_count,
4290: x_msg_data,
4291: '_PVT');
4292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4294: l_api_name,
4295: G_PKG_NAME,
4296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4297: x_msg_count,
4292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4294: l_api_name,
4295: G_PKG_NAME,
4296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4297: x_msg_count,
4298: x_msg_data,
4299: '_PVT');
4300: WHEN OTHERS THEN
4297: x_msg_count,
4298: x_msg_data,
4299: '_PVT');
4300: WHEN OTHERS THEN
4301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4302: l_api_name,
4303: G_PKG_NAME,
4304: 'OTHERS',
4305: x_msg_count,
4322:
4323: l_api_version CONSTANT NUMBER := 1.0;
4324: l_api_name VARCHAR2(30) := 'IS_ASSET_SERIALIZED';
4325:
4326: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4327: BEGIN
4328: x_serialized := OKL_API.G_FALSE;
4329: x_return_status := OKL_API.START_ACTIVITY (
4330: l_api_name
4324: l_api_name VARCHAR2(30) := 'IS_ASSET_SERIALIZED';
4325:
4326: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4327: BEGIN
4328: x_serialized := OKL_API.G_FALSE;
4329: x_return_status := OKL_API.START_ACTIVITY (
4330: l_api_name
4331: ,p_init_msg_list
4332: ,'_PVT'
4325:
4326: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4327: BEGIN
4328: x_serialized := OKL_API.G_FALSE;
4329: x_return_status := OKL_API.START_ACTIVITY (
4330: l_api_name
4331: ,p_init_msg_list
4332: ,'_PVT'
4333: ,x_return_status);
4331: ,p_init_msg_list
4332: ,'_PVT'
4333: ,x_return_status);
4334: -- Check if activity started successfully
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4332: ,'_PVT'
4333: ,x_return_status);
4334: -- Check if activity started successfully
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4333: ,x_return_status);
4334: -- Check if activity started successfully
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4341: l_serialized := OKL_API.G_FALSE;
4334: -- Check if activity started successfully
4335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4341: l_serialized := OKL_API.G_FALSE;
4342: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4338: RAISE OKL_API.G_EXCEPTION_ERROR;
4339: END IF;
4340:
4341: l_serialized := OKL_API.G_FALSE;
4342: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4343: x_serialized := l_serialized;
4344: OKL_API.END_ACTIVITY (x_msg_count,
4345: x_msg_data );
4340:
4341: l_serialized := OKL_API.G_FALSE;
4342: l_serialized := Is_serialized(p_cle_id => p_cle_id);
4343: x_serialized := l_serialized;
4344: OKL_API.END_ACTIVITY (x_msg_count,
4345: x_msg_data );
4346: EXCEPTION
4347: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4343: x_serialized := l_serialized;
4344: OKL_API.END_ACTIVITY (x_msg_count,
4345: x_msg_data );
4346: EXCEPTION
4347: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4349: l_api_name,
4350: G_PKG_NAME,
4351: 'OKL_API.G_RET_STS_ERROR',
4344: OKL_API.END_ACTIVITY (x_msg_count,
4345: x_msg_data );
4346: EXCEPTION
4347: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4349: l_api_name,
4350: G_PKG_NAME,
4351: 'OKL_API.G_RET_STS_ERROR',
4352: x_msg_count,
4347: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4348: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4349: l_api_name,
4350: G_PKG_NAME,
4351: 'OKL_API.G_RET_STS_ERROR',
4352: x_msg_count,
4353: x_msg_data,
4354: '_PVT');
4355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4351: 'OKL_API.G_RET_STS_ERROR',
4352: x_msg_count,
4353: x_msg_data,
4354: '_PVT');
4355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4357: l_api_name,
4358: G_PKG_NAME,
4359: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4352: x_msg_count,
4353: x_msg_data,
4354: '_PVT');
4355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4357: l_api_name,
4358: G_PKG_NAME,
4359: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4360: x_msg_count,
4355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4357: l_api_name,
4358: G_PKG_NAME,
4359: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4360: x_msg_count,
4361: x_msg_data,
4362: '_PVT');
4363: WHEN OTHERS THEN
4360: x_msg_count,
4361: x_msg_data,
4362: '_PVT');
4363: WHEN OTHERS THEN
4364: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4365: l_api_name,
4366: G_PKG_NAME,
4367: 'OTHERS',
4368: x_msg_count,
4387: x_serialized OUT NOCOPY VARCHAR2) IS
4388: l_api_version CONSTANT NUMBER := 1.0;
4389: l_api_name VARCHAR2(30) := 'ASSET_NOT_SRLZ_HALT';
4390:
4391: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4392: BEGIN
4393: -----
4394: x_return_status := OKL_API.START_ACTIVITY (
4395: l_api_name
4390:
4391: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4392: BEGIN
4393: -----
4394: x_return_status := OKL_API.START_ACTIVITY (
4395: l_api_name
4396: ,p_init_msg_list
4397: ,'_PVT'
4398: ,x_return_status);
4396: ,p_init_msg_list
4397: ,'_PVT'
4398: ,x_return_status);
4399: -- Check if activity started successfully
4400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4397: ,'_PVT'
4398: ,x_return_status);
4399: -- Check if activity started successfully
4400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4405:
4398: ,x_return_status);
4399: -- Check if activity started successfully
4400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4405:
4406: l_serialized := OKL_API.G_FALSE;
4399: -- Check if activity started successfully
4400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4405:
4406: l_serialized := OKL_API.G_FALSE;
4407: x_serialized := l_serialized;
4402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4403: RAISE OKL_API.G_EXCEPTION_ERROR;
4404: END IF;
4405:
4406: l_serialized := OKL_API.G_FALSE;
4407: x_serialized := l_serialized;
4408: Is_Asset_Serialized(p_api_version => p_api_version,
4409: p_init_msg_list => p_init_msg_list,
4410: x_return_status => x_return_status,
4412: x_msg_data => x_msg_data,
4413: p_cle_id => p_cle_id,
4414: x_serialized => l_serialized);
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4413: p_cle_id => p_cle_id,
4414: x_serialized => l_serialized);
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: x_serialized := l_serialized;
4414: x_serialized => l_serialized);
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: x_serialized := l_serialized;
4422: IF l_serialized = OKL_API.G_FALSE THEN
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: x_serialized := l_serialized;
4422: IF l_serialized = OKL_API.G_FALSE THEN
4423: OKL_API.set_message(p_app_name => G_APP_NAME,
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: x_serialized := l_serialized;
4422: IF l_serialized = OKL_API.G_FALSE THEN
4423: OKL_API.set_message(p_app_name => G_APP_NAME,
4424: p_msg_name => G_ASSET_NOT_SERIALIZED);
4425: x_return_status := OKL_API.G_RET_STS_ERROR;
4426: END IF;
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: x_serialized := l_serialized;
4422: IF l_serialized = OKL_API.G_FALSE THEN
4423: OKL_API.set_message(p_app_name => G_APP_NAME,
4424: p_msg_name => G_ASSET_NOT_SERIALIZED);
4425: x_return_status := OKL_API.G_RET_STS_ERROR;
4426: END IF;
4427:
4421: x_serialized := l_serialized;
4422: IF l_serialized = OKL_API.G_FALSE THEN
4423: OKL_API.set_message(p_app_name => G_APP_NAME,
4424: p_msg_name => G_ASSET_NOT_SERIALIZED);
4425: x_return_status := OKL_API.G_RET_STS_ERROR;
4426: END IF;
4427:
4428: OKL_API.END_ACTIVITY (x_msg_count,
4429: x_msg_data );
4424: p_msg_name => G_ASSET_NOT_SERIALIZED);
4425: x_return_status := OKL_API.G_RET_STS_ERROR;
4426: END IF;
4427:
4428: OKL_API.END_ACTIVITY (x_msg_count,
4429: x_msg_data );
4430: EXCEPTION
4431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4427:
4428: OKL_API.END_ACTIVITY (x_msg_count,
4429: x_msg_data );
4430: EXCEPTION
4431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4433: l_api_name,
4434: G_PKG_NAME,
4435: 'OKL_API.G_RET_STS_ERROR',
4428: OKL_API.END_ACTIVITY (x_msg_count,
4429: x_msg_data );
4430: EXCEPTION
4431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4433: l_api_name,
4434: G_PKG_NAME,
4435: 'OKL_API.G_RET_STS_ERROR',
4436: x_msg_count,
4431: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4433: l_api_name,
4434: G_PKG_NAME,
4435: 'OKL_API.G_RET_STS_ERROR',
4436: x_msg_count,
4437: x_msg_data,
4438: '_PVT');
4439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4435: 'OKL_API.G_RET_STS_ERROR',
4436: x_msg_count,
4437: x_msg_data,
4438: '_PVT');
4439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4440: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4441: l_api_name,
4442: G_PKG_NAME,
4443: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4436: x_msg_count,
4437: x_msg_data,
4438: '_PVT');
4439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4440: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4441: l_api_name,
4442: G_PKG_NAME,
4443: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4444: x_msg_count,
4439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4440: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4441: l_api_name,
4442: G_PKG_NAME,
4443: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4444: x_msg_count,
4445: x_msg_data,
4446: '_PVT');
4447: WHEN OTHERS THEN
4444: x_msg_count,
4445: x_msg_data,
4446: '_PVT');
4447: WHEN OTHERS THEN
4448: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4449: l_api_name,
4450: G_PKG_NAME,
4451: 'OTHERS',
4452: x_msg_count,
4473: x_serialized OUT NOCOPY VARCHAR2) IS
4474: l_api_version CONSTANT NUMBER := 1.0;
4475: l_api_name VARCHAR2(30) := 'ITEM_NOT_SRLZ_HALT';
4476:
4477: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4478: BEGIN
4479: -----
4480: x_return_status := OKL_API.START_ACTIVITY (
4481: l_api_name
4476:
4477: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4478: BEGIN
4479: -----
4480: x_return_status := OKL_API.START_ACTIVITY (
4481: l_api_name
4482: ,p_init_msg_list
4483: ,'_PVT'
4484: ,x_return_status);
4482: ,p_init_msg_list
4483: ,'_PVT'
4484: ,x_return_status);
4485: -- Check if activity started successfully
4486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4489: RAISE OKL_API.G_EXCEPTION_ERROR;
4490: END IF;
4483: ,'_PVT'
4484: ,x_return_status);
4485: -- Check if activity started successfully
4486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4489: RAISE OKL_API.G_EXCEPTION_ERROR;
4490: END IF;
4491:
4484: ,x_return_status);
4485: -- Check if activity started successfully
4486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4489: RAISE OKL_API.G_EXCEPTION_ERROR;
4490: END IF;
4491:
4492: l_serialized := OKL_API.G_FALSE;
4485: -- Check if activity started successfully
4486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4489: RAISE OKL_API.G_EXCEPTION_ERROR;
4490: END IF;
4491:
4492: l_serialized := OKL_API.G_FALSE;
4493: x_serialized := l_serialized;
4488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4489: RAISE OKL_API.G_EXCEPTION_ERROR;
4490: END IF;
4491:
4492: l_serialized := OKL_API.G_FALSE;
4493: x_serialized := l_serialized;
4494: Is_Inv_Item_Serialized(p_api_version => p_api_version,
4495: p_init_msg_list => p_init_msg_list,
4496: x_return_status => x_return_status,
4500: p_chr_id => p_chr_id,
4501: p_cle_id => p_cle_id,
4502: x_serialized => l_serialized);
4503:
4504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4501: p_cle_id => p_cle_id,
4502: x_serialized => l_serialized);
4503:
4504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: x_serialized := l_serialized;
4502: x_serialized => l_serialized);
4503:
4504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: x_serialized := l_serialized;
4510: IF l_serialized = OKL_API.G_FALSE THEN
4503:
4504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: x_serialized := l_serialized;
4510: IF l_serialized = OKL_API.G_FALSE THEN
4511: OKL_API.set_message(p_app_name => G_APP_NAME,
4506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: x_serialized := l_serialized;
4510: IF l_serialized = OKL_API.G_FALSE THEN
4511: OKL_API.set_message(p_app_name => G_APP_NAME,
4512: p_msg_name => G_ASSET_NOT_SERIALIZED);
4513: x_return_status := OKL_API.G_RET_STS_ERROR;
4514: END IF;
4507: RAISE OKL_API.G_EXCEPTION_ERROR;
4508: END IF;
4509: x_serialized := l_serialized;
4510: IF l_serialized = OKL_API.G_FALSE THEN
4511: OKL_API.set_message(p_app_name => G_APP_NAME,
4512: p_msg_name => G_ASSET_NOT_SERIALIZED);
4513: x_return_status := OKL_API.G_RET_STS_ERROR;
4514: END IF;
4515:
4509: x_serialized := l_serialized;
4510: IF l_serialized = OKL_API.G_FALSE THEN
4511: OKL_API.set_message(p_app_name => G_APP_NAME,
4512: p_msg_name => G_ASSET_NOT_SERIALIZED);
4513: x_return_status := OKL_API.G_RET_STS_ERROR;
4514: END IF;
4515:
4516: OKL_API.END_ACTIVITY (x_msg_count,
4517: x_msg_data );
4512: p_msg_name => G_ASSET_NOT_SERIALIZED);
4513: x_return_status := OKL_API.G_RET_STS_ERROR;
4514: END IF;
4515:
4516: OKL_API.END_ACTIVITY (x_msg_count,
4517: x_msg_data );
4518: EXCEPTION
4519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4515:
4516: OKL_API.END_ACTIVITY (x_msg_count,
4517: x_msg_data );
4518: EXCEPTION
4519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4521: l_api_name,
4522: G_PKG_NAME,
4523: 'OKL_API.G_RET_STS_ERROR',
4516: OKL_API.END_ACTIVITY (x_msg_count,
4517: x_msg_data );
4518: EXCEPTION
4519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4521: l_api_name,
4522: G_PKG_NAME,
4523: 'OKL_API.G_RET_STS_ERROR',
4524: x_msg_count,
4519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4521: l_api_name,
4522: G_PKG_NAME,
4523: 'OKL_API.G_RET_STS_ERROR',
4524: x_msg_count,
4525: x_msg_data,
4526: '_PVT');
4527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4523: 'OKL_API.G_RET_STS_ERROR',
4524: x_msg_count,
4525: x_msg_data,
4526: '_PVT');
4527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4529: l_api_name,
4530: G_PKG_NAME,
4531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4524: x_msg_count,
4525: x_msg_data,
4526: '_PVT');
4527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4529: l_api_name,
4530: G_PKG_NAME,
4531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4532: x_msg_count,
4527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4529: l_api_name,
4530: G_PKG_NAME,
4531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4532: x_msg_count,
4533: x_msg_data,
4534: '_PVT');
4535: WHEN OTHERS THEN
4532: x_msg_count,
4533: x_msg_data,
4534: '_PVT');
4535: WHEN OTHERS THEN
4536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4537: l_api_name,
4538: G_PKG_NAME,
4539: 'OTHERS',
4540: x_msg_count,
4561:
4562: l_csi_srl_number csi_item_instances.serial_number%TYPE DEFAULT NULL;
4563:
4564: BEGIN
4565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4566: l_serial_number := p_serial_number;
4567: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4568: -- store SQL error message on message stack
4569: OKL_API.set_message(p_app_name => G_APP_NAME,
4563:
4564: BEGIN
4565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4566: l_serial_number := p_serial_number;
4567: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4568: -- store SQL error message on message stack
4569: OKL_API.set_message(p_app_name => G_APP_NAME,
4570: p_msg_name => G_NO_MATCHING_RECORD,
4571: p_token1 => G_COL_NAME_TOKEN,
4565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4566: l_serial_number := p_serial_number;
4567: IF l_serial_number IS NULL OR l_serial_number = OKL_API.G_MISS_CHAR THEN
4568: -- store SQL error message on message stack
4569: OKL_API.set_message(p_app_name => G_APP_NAME,
4570: p_msg_name => G_NO_MATCHING_RECORD,
4571: p_token1 => G_COL_NAME_TOKEN,
4572: p_token1_value => 'serial_number');
4573: x_return_status := OKL_API.G_RET_STS_ERROR;
4569: OKL_API.set_message(p_app_name => G_APP_NAME,
4570: p_msg_name => G_NO_MATCHING_RECORD,
4571: p_token1 => G_COL_NAME_TOKEN,
4572: p_token1_value => 'serial_number');
4573: x_return_status := OKL_API.G_RET_STS_ERROR;
4574: ELSE
4575: l_csi_srl_number := NULL;
4576: OPEN srl_num_csr (Srl_Number => l_serial_number);
4577: FETCH srl_num_csr INTO l_csi_srl_number;
4581: CLOSE srl_num_csr;
4582:
4583: IF l_csi_srl_number IS NOT NULL
4584: AND l_csi_srl_number = l_serial_number THEN
4585: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4586: p_msg_name => G_SRL_NUM_DUPLICATE,
4587: p_token1 => G_COL_NAME_TOKEN,
4588: p_token1_value => l_serial_number);
4589: x_return_status := OKL_API.G_RET_STS_ERROR;
4585: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4586: p_msg_name => G_SRL_NUM_DUPLICATE,
4587: p_token1 => G_COL_NAME_TOKEN,
4588: p_token1_value => l_serial_number);
4589: x_return_status := OKL_API.G_RET_STS_ERROR;
4590: END IF;
4591: END IF;
4592: EXCEPTION
4593: WHEN OTHERS THEN
4590: END IF;
4591: END IF;
4592: EXCEPTION
4593: WHEN OTHERS THEN
4594: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4595: END Validate_Serial_Number;
4596: ---------------------------------------------------------------------------------------------------------------
4597: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
4598: RETURN VARCHAR2 IS
4595: END Validate_Serial_Number;
4596: ---------------------------------------------------------------------------------------------------------------
4597: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
4598: RETURN VARCHAR2 IS
4599: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4600: -- cursor to get sequence number for asset number
4601: CURSOR c_instance_no_ib IS
4602: SELECT TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
4603: FROM dual;
4605: OPEN c_instance_no_ib;
4606: FETCH c_instance_no_ib INTO x_instance_number_ib;
4607: IF (c_instance_no_ib%NOTFOUND) THEN
4608: x_return_status := OKC_API.G_RET_STS_ERROR;
4609: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4610: p_msg_name => g_unexpected_error,
4611: p_token1 => g_sqlcode_token,
4612: p_token1_value => SQLCODE,
4613: p_token2 => g_sqlerrm_token,
4620: IF c_instance_no_ib%ISOPEN THEN
4621: CLOSE c_instance_no_ib;
4622: END IF;
4623: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4624: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
4625: p_msg_name => g_unexpected_error,
4626: p_token1 => g_sqlcode_token,
4627: p_token1_value => SQLCODE,
4628: p_token2 => g_sqlerrm_token,
4775: l_tal_id okl_txd_assets_b.tal_id%TYPE;
4776: --Bug 7047938 End
4777: BEGIN
4778: ----
4779: x_return_status := OKL_API.START_ACTIVITY (
4780: l_api_name
4781: ,p_init_msg_list
4782: ,'_PVT'
4783: ,x_return_status);
4781: ,p_init_msg_list
4782: ,'_PVT'
4783: ,x_return_status);
4784: -- Check if activity started successfully
4785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4788: RAISE OKL_API.G_EXCEPTION_ERROR;
4789: END IF;
4782: ,'_PVT'
4783: ,x_return_status);
4784: -- Check if activity started successfully
4785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4788: RAISE OKL_API.G_EXCEPTION_ERROR;
4789: END IF;
4790:
4783: ,x_return_status);
4784: -- Check if activity started successfully
4785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4788: RAISE OKL_API.G_EXCEPTION_ERROR;
4789: END IF;
4790:
4791: l_itiv_tbl := p_itiv_tbl;
4784: -- Check if activity started successfully
4785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4788: RAISE OKL_API.G_EXCEPTION_ERROR;
4789: END IF;
4790:
4791: l_itiv_tbl := p_itiv_tbl;
4792: IF l_itiv_tbl.COUNT > 0 THEN
4790:
4791: l_itiv_tbl := p_itiv_tbl;
4792: IF l_itiv_tbl.COUNT > 0 THEN
4793: --Bug # 7047938
4794: If l_itiv_tbl(1).tal_id is NULL OR l_itiv_tbl(1).tal_id = OKL_API.G_MISS_NUM
4795: then
4796: open l_tal_csr (p_asd_id => l_itiv_tbl(1).asd_id);
4797: Fetch l_tal_csr into l_tal_id;
4798: close l_tal_csr;
4830: END IF;
4831: CLOSE ib_loc_csr;
4832:
4833: --BUG# 3569441
4834: IF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
4835: --RAISE ERROR
4836: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4837: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
4838: p_token1 => G_LOCATION_TYPE_TOKEN,
4832:
4833: --BUG# 3569441
4834: IF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
4835: --RAISE ERROR
4836: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4837: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
4838: p_token1 => G_LOCATION_TYPE_TOKEN,
4839: p_token1_value => l_location_type_code,
4840: p_token2 => G_LOC_TYPE1_TOKEN,
4840: p_token2 => G_LOC_TYPE1_TOKEN,
4841: p_token2_value => 'HZ_PARTY_SITES',
4842: p_token3 => G_LOC_TYPE2_TOKEN,
4843: p_token3_value => 'HZ_LOCATIONS');
4844: x_return_status := OKL_API.G_RET_STS_ERROR;
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846:
4847: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4848:
4841: p_token2_value => 'HZ_PARTY_SITES',
4842: p_token3 => G_LOC_TYPE2_TOKEN,
4843: p_token3_value => 'HZ_LOCATIONS');
4844: x_return_status := OKL_API.G_RET_STS_ERROR;
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846:
4847: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4848:
4849: --get site use id
4843: p_token3_value => 'HZ_LOCATIONS');
4844: x_return_status := OKL_API.G_RET_STS_ERROR;
4845: RAISE OKL_API.G_EXCEPTION_ERROR;
4846:
4847: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
4848:
4849: --get site use id
4850: OPEN inst_site_csr(pty_site_id => l_install_location_id);
4851: FETCH inst_site_csr INTO l_party_site_use_id;
4853: OPEN l_address_csr(pty_site_id => l_install_location_id);
4854: FETCH l_address_csr INTO l_address;
4855: CLOSE l_address_csr;
4856: --Raise Error : not defined as install_at
4857: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4858: p_msg_name => G_MISSING_USAGE,
4859: p_token1 => G_USAGE_TYPE_TOKEN,
4860: p_token1_value => 'INSTALL_AT',
4861: p_token2 => G_ADDRESS_TOKEN,
4861: p_token2 => G_ADDRESS_TOKEN,
4862: p_token2_value => l_address,
4863: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4864: p_token3_value => l_instance_number_csi);
4865: x_return_status := OKL_API.G_RET_STS_ERROR;
4866: RAISE OKL_API.G_EXCEPTION_ERROR;
4867: END IF;
4868: CLOSE inst_site_csr;
4869:
4862: p_token2_value => l_address,
4863: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4864: p_token3_value => l_instance_number_csi);
4865: x_return_status := OKL_API.G_RET_STS_ERROR;
4866: RAISE OKL_API.G_EXCEPTION_ERROR;
4867: END IF;
4868: CLOSE inst_site_csr;
4869:
4870: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
4866: RAISE OKL_API.G_EXCEPTION_ERROR;
4867: END IF;
4868: CLOSE inst_site_csr;
4869:
4870: ELSIF NVL(l_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
4871:
4872: --get site use id
4873: OPEN inst_loc_csr(loc_id => l_install_location_id);
4874: FETCH inst_loc_csr INTO l_party_site_use_id;
4876: OPEN l_address_csr2(loc_id => l_install_location_id);
4877: FETCH l_address_csr2 INTO l_address;
4878: CLOSE l_address_csr2;
4879: --Raise Error : not defined as install_at
4880: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4881: p_msg_name => G_MISSING_USAGE,
4882: p_token1 => G_USAGE_TYPE_TOKEN,
4883: p_token1_value => 'INSTALL_AT',
4884: p_token2 => G_ADDRESS_TOKEN,
4884: p_token2 => G_ADDRESS_TOKEN,
4885: p_token2_value => l_address,
4886: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4887: p_token3_value => l_instance_number_csi);
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4889: RAISE OKL_API.G_EXCEPTION_ERROR;
4890: END IF;
4891: CLOSE inst_loc_csr;
4892: END IF;
4885: p_token2_value => l_address,
4886: p_token3 => G_INSTANCE_NUMBER_TOKEN,
4887: p_token3_value => l_instance_number_csi);
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4889: RAISE OKL_API.G_EXCEPTION_ERROR;
4890: END IF;
4891: CLOSE inst_loc_csr;
4892: END IF;
4893: --End BUG# 3569441
4893: --End BUG# 3569441
4894:
4895: j := 1;
4896: FOR i IN 1..l_itiv_tbl.LAST LOOP
4897: IF l_itiv_tbl(i).id IS NULL OR l_itiv_tbl(i).id = OKL_API.G_MISS_NUM THEN
4898:
4899: l_itiv_rec := l_itiv_tbl(i);
4900: --l_itiv_rec.kle_id := l_ib_cle_id;
4901: l_itiv_rec.kle_id := l_fa_cle_id;
4916:
4917:
4918: Validate_Serial_Number(x_return_status => x_return_status,
4919: p_serial_number => l_itiv_rec.serial_number);
4920: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4921: RAISE OKL_API.G_EXCEPTION_ERROR;
4922: END IF;
4923:
4924: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4917:
4918: Validate_Serial_Number(x_return_status => x_return_status,
4919: p_serial_number => l_itiv_rec.serial_number);
4920: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4921: RAISE OKL_API.G_EXCEPTION_ERROR;
4922: END IF;
4923:
4924: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4925: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4921: RAISE OKL_API.G_EXCEPTION_ERROR;
4922: END IF;
4923:
4924: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4925: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: l_itiv_rec.instance_number_ib := l_instance_number;
4929: --create record
4922: END IF;
4923:
4924: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_instance_number);
4925: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: l_itiv_rec.instance_number_ib := l_instance_number;
4929: --create record
4930: okl_txl_itm_insts_pub.create_txl_itm_insts
4934: x_msg_count => x_msg_count,
4935: x_msg_data => x_msg_data,
4936: p_iipv_rec => l_itiv_rec,
4937: x_iipv_rec => lx_itiv_rec);
4938: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4935: x_msg_data => x_msg_data,
4936: p_iipv_rec => l_itiv_rec,
4937: x_iipv_rec => lx_itiv_rec);
4938: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: j:= j+1;
4936: p_iipv_rec => l_itiv_rec,
4937: x_iipv_rec => lx_itiv_rec);
4938: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: j:= j+1;
4944: x_itiv_tbl(j) := lx_itiv_rec;
4937: x_iipv_rec => lx_itiv_rec);
4938: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: j:= j+1;
4944: x_itiv_tbl(j) := lx_itiv_rec;
4945: END IF;
4944: x_itiv_tbl(j) := lx_itiv_rec;
4945: END IF;
4946: END LOOP;
4947: END IF;
4948: OKL_API.END_ACTIVITY (x_msg_count,
4949: x_msg_data );
4950: EXCEPTION
4951: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4952: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4947: END IF;
4948: OKL_API.END_ACTIVITY (x_msg_count,
4949: x_msg_data );
4950: EXCEPTION
4951: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4952: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4953: l_api_name,
4954: G_PKG_NAME,
4955: 'OKL_API.G_RET_STS_ERROR',
4948: OKL_API.END_ACTIVITY (x_msg_count,
4949: x_msg_data );
4950: EXCEPTION
4951: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4952: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4953: l_api_name,
4954: G_PKG_NAME,
4955: 'OKL_API.G_RET_STS_ERROR',
4956: x_msg_count,
4951: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4952: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4953: l_api_name,
4954: G_PKG_NAME,
4955: 'OKL_API.G_RET_STS_ERROR',
4956: x_msg_count,
4957: x_msg_data,
4958: '_PVT');
4959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4955: 'OKL_API.G_RET_STS_ERROR',
4956: x_msg_count,
4957: x_msg_data,
4958: '_PVT');
4959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4961: l_api_name,
4962: G_PKG_NAME,
4963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4956: x_msg_count,
4957: x_msg_data,
4958: '_PVT');
4959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4961: l_api_name,
4962: G_PKG_NAME,
4963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4964: x_msg_count,
4959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4960: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4961: l_api_name,
4962: G_PKG_NAME,
4963: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4964: x_msg_count,
4965: x_msg_data,
4966: '_PVT');
4967: WHEN OTHERS THEN
4964: x_msg_count,
4965: x_msg_data,
4966: '_PVT');
4967: WHEN OTHERS THEN
4968: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4969: l_api_name,
4970: G_PKG_NAME,
4971: 'OTHERS',
4972: x_msg_count,
4994:
4995: l_api_name VARCHAR2(30) := 'VALIDATE_SRL_NUM_CONTROL';
4996: l_api_version CONSTANT NUMBER := 1.0;
4997:
4998: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
4999:
5000: --cursor for asset_number
5001: CURSOR asset_num_csr (P_fin_ast_id IN NUMBER) IS
5002: SELECT name
5044: l_txlqty NUMBER DEFAULT NULL;
5045:
5046: BEGIN
5047:
5048: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5049:
5050: -- Call start_activity to create savepoint, check compatibility
5051: -- and initialize message list
5052: x_return_status := OKL_API.START_ACTIVITY (
5048: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5049:
5050: -- Call start_activity to create savepoint, check compatibility
5051: -- and initialize message list
5052: x_return_status := OKL_API.START_ACTIVITY (
5053: l_api_name
5054: ,p_init_msg_list
5055: ,'_PVT'
5056: ,x_return_status);
5054: ,p_init_msg_list
5055: ,'_PVT'
5056: ,x_return_status);
5057: -- Check if activity started successfully
5058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_ERROR;
5062: END IF;
5055: ,'_PVT'
5056: ,x_return_status);
5057: -- Check if activity started successfully
5058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5056: ,x_return_status);
5057: -- Check if activity started successfully
5058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5064: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5057: -- Check if activity started successfully
5058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5061: RAISE OKL_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5064: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5065: OR
5062: END IF;
5063:
5064: IF (NVL(p_split_into_individuals_yn,'N') = 'Y')
5065: OR
5066: (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
5067: --check if serialization has been done properly
5068: l_txlqty := NULL;
5069: OPEN l_txlqty_csr(p_tal_id => p_tal_id);
5070: FETCH l_txlqty_csr INTO l_txlqty;
5071: IF l_txlqty_csr%NOTFOUND THEN
5072: NULL;
5073: END IF;
5074: CLOSE l_txlqty_csr;
5075: IF NVL(l_txlqty,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
5076:
5077: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
5078: IF (l_serialized = OKL_API.G_TRUE) THEN
5079: --fetch total instances to find if qantity matches
5074: CLOSE l_txlqty_csr;
5075: IF NVL(l_txlqty,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
5076:
5077: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
5078: IF (l_serialized = OKL_API.G_TRUE) THEN
5079: --fetch total instances to find if qantity matches
5080:
5081: l_srl_no_count := 0;
5082: OPEN l_srl_no_count_csr( fin_ast_id => p_cle_id);
5095: NULL;
5096: END IF;
5097: CLOSE asset_num_csr;
5098:
5099: OKL_API.set_message(p_app_name => G_APP_NAME,
5100: p_msg_name => G_NOT_SERIALIZED_IN_IB,
5101: p_token1 => G_ASSET_NUMBER_TOKEN,
5102: p_token1_value => l_Asset_number
5103: );
5101: p_token1 => G_ASSET_NUMBER_TOKEN,
5102: p_token1_value => l_Asset_number
5103: );
5104: --raise error
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106:
5107: ELSIF l_srl_no_count <> l_txlqty THEN
5108:
5109: l_asset_number := NULL;
5114: END IF;
5115: CLOSE asset_num_csr;
5116:
5117:
5118: OKL_API.set_message(p_app_name => G_APP_NAME,
5119: p_msg_name => G_SERIAL_NUMBER_MISMATCH,
5120: p_token1 => G_ASSET_NUMBER_TOKEN,
5121: p_token1_value => l_Asset_number
5122: );
5120: p_token1 => G_ASSET_NUMBER_TOKEN,
5121: p_token1_value => l_Asset_number
5122: );
5123: --raise error
5124: RAISE OKL_API.G_EXCEPTION_ERROR;
5125:
5126: ELSIF l_srl_no_count = l_txlqty THEN
5127: --data in installed base is correct
5128: NULL;
5127: --data in installed base is correct
5128: NULL;
5129: END IF;
5130:
5131: ELSIF l_serialized = OKL_API.G_FALSE THEN
5132: --fetch total instances to find if qantity matches
5133:
5134: l_srl_no_count := 0;
5135: OPEN l_srl_no_count_csr( fin_ast_id => p_cle_id);
5148: NULL;
5149: END IF;
5150: CLOSE asset_num_csr;
5151:
5152: OKL_API.set_message(p_app_name => G_APP_NAME,
5153: p_msg_name => G_SERIALIZED_IN_IB,
5154: p_token1 => G_ASSET_NUMBER_TOKEN,
5155: p_token1_value => l_Asset_number
5156: );
5154: p_token1 => G_ASSET_NUMBER_TOKEN,
5155: p_token1_value => l_Asset_number
5156: );
5157: --raise error
5158: RAISE OKL_API.G_EXCEPTION_ERROR;
5159:
5160: ELSIF l_srl_no_count <> 1 AND l_srl_no_count <> l_txlqty THEN
5161: --error in installed base data
5162: l_asset_number := NULL;
5165: IF asset_num_csr%NOTFOUND THEN
5166: NULL;
5167: END IF;
5168:
5169: OKL_API.set_message(p_app_name => G_APP_NAME,
5170: p_msg_name => G_SERIAL_NUMBER_MISMATCH,
5171: p_token1 => G_ASSET_NUMBER_TOKEN,
5172: p_token1_value => l_Asset_number
5173: );
5171: p_token1 => G_ASSET_NUMBER_TOKEN,
5172: p_token1_value => l_Asset_number
5173: );
5174: --raise error
5175: RAISE OKL_API.G_EXCEPTION_ERROR;
5176:
5177: ELSIF l_srl_no_count = 1 THEN
5178: --data in installed base is correct
5179: NULL;
5183:
5184: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' THEN
5185: NULL; -- user will have to create new serail numbers
5186: END IF;
5187: OKL_API.END_ACTIVITY (x_msg_count,
5188: x_msg_data );
5189: EXCEPTION
5190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5186: END IF;
5187: OKL_API.END_ACTIVITY (x_msg_count,
5188: x_msg_data );
5189: EXCEPTION
5190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5192: l_api_name,
5193: G_PKG_NAME,
5194: 'OKL_API.G_RET_STS_ERROR',
5187: OKL_API.END_ACTIVITY (x_msg_count,
5188: x_msg_data );
5189: EXCEPTION
5190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5192: l_api_name,
5193: G_PKG_NAME,
5194: 'OKL_API.G_RET_STS_ERROR',
5195: x_msg_count,
5190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5191: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5192: l_api_name,
5193: G_PKG_NAME,
5194: 'OKL_API.G_RET_STS_ERROR',
5195: x_msg_count,
5196: x_msg_data,
5197: '_PVT');
5198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5194: 'OKL_API.G_RET_STS_ERROR',
5195: x_msg_count,
5196: x_msg_data,
5197: '_PVT');
5198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5199: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5200: l_api_name,
5201: G_PKG_NAME,
5202: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5195: x_msg_count,
5196: x_msg_data,
5197: '_PVT');
5198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5199: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5200: l_api_name,
5201: G_PKG_NAME,
5202: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5203: x_msg_count,
5198: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5199: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5200: l_api_name,
5201: G_PKG_NAME,
5202: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5203: x_msg_count,
5204: x_msg_data,
5205: '_PVT');
5206: WHEN OTHERS THEN
5203: x_msg_count,
5204: x_msg_data,
5205: '_PVT');
5206: WHEN OTHERS THEN
5207: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5208: l_api_name,
5209: G_PKG_NAME,
5210: 'OTHERS',
5211: x_msg_count,
5362: l_pty_site_use_id okl_txl_itm_insts.object_id1_new%TYPE;
5363: l_error_condition EXCEPTION;
5364:
5365: l_ib_tbl ib_tbl_type;
5366: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
5367:
5368: --cursor for asset_number
5369: CURSOR asset_num_csr (P_fin_ast_id IN NUMBER) IS
5370: SELECT name
5373:
5374: l_asset_number OKC_K_LINES_TL.NAME%TYPE;
5375:
5376: BEGIN
5377: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5378:
5379: -- Call start_activity to create savepoint, check compatibility
5380: -- and initialize message list
5381: x_return_status := OKL_API.START_ACTIVITY (
5377: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5378:
5379: -- Call start_activity to create savepoint, check compatibility
5380: -- and initialize message list
5381: x_return_status := OKL_API.START_ACTIVITY (
5382: l_api_name
5383: ,p_init_msg_list
5384: ,'_PVT'
5385: ,x_return_status);
5383: ,p_init_msg_list
5384: ,'_PVT'
5385: ,x_return_status);
5386: -- Check if activity started successfully
5387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5390: RAISE OKL_API.G_EXCEPTION_ERROR;
5391: END IF;
5384: ,'_PVT'
5385: ,x_return_status);
5386: -- Check if activity started successfully
5387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5390: RAISE OKL_API.G_EXCEPTION_ERROR;
5391: END IF;
5392:
5385: ,x_return_status);
5386: -- Check if activity started successfully
5387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5390: RAISE OKL_API.G_EXCEPTION_ERROR;
5391: END IF;
5392:
5393: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5386: -- Check if activity started successfully
5387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5390: RAISE OKL_API.G_EXCEPTION_ERROR;
5391: END IF;
5392:
5393: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5394: validate_srl_num_control(
5401: p_split_into_individuals_yn => p_split_into_individuals_yn,
5402: p_split_into_units => p_split_into_units,
5403: p_tal_id => p_tal_id);
5404:
5405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5402: p_split_into_units => p_split_into_units,
5403: p_tal_id => p_tal_id);
5404:
5405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5403: p_tal_id => p_tal_id);
5404:
5405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5411:
5404:
5405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5408: RAISE OKL_API.G_EXCEPTION_ERROR;
5409: END IF;
5410: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
5411:
5412: l_ib_tbl := p_ib_tbl;
5416: NULL; -- user will have to create new serail numbers
5417: ELSIF NVL(p_split_into_individuals_yn,'N') = 'N' AND NVL(p_split_into_units,0) > 0 THEN
5418: --user needs to select serial numbers to split
5419: l_serialized := is_serialized(p_cle_id => p_cle_id);
5420: IF (l_serialized = OKL_API.G_TRUE) THEN
5421: -- asset inventory item is serial number controlled
5422: IF l_ib_tbl.COUNT <> 0 THEN
5423: FOR i IN 1..l_ib_tbl.LAST
5424: LOOP
5433: NULL;
5434: END IF;
5435: CLOSE asset_num_csr;
5436:
5437: OKL_API.set_message(p_app_name => G_APP_NAME,
5438: p_msg_name => G_IB_INSTANCE_MISMATCH,
5439: p_token1 => G_ASSET_NUMBER_TOKEN,
5440: p_token1_value => l_Asset_number,
5441: p_token2 => G_IB_LINE_TOKEN,
5440: p_token1_value => l_Asset_number,
5441: p_token2 => G_IB_LINE_TOKEN,
5442: p_token2_value => TO_CHAR(l_ib_tbl(i).id));
5443: --raise error
5444: RAISE OKL_API.G_EXCEPTION_ERROR;
5445: END IF;
5446: l_iipv_tbl(i).tas_id := p_tas_id;
5447: l_iipv_tbl(i).tal_id := p_tal_id;
5448: l_iipv_tbl(i).kle_id := srl_num_rec2.ib_cle_id;
5452:
5453: --fetch party site use id
5454: l_pty_site_use_id := NULL;
5455: --BUG# 3569441 :
5456: IF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5457:
5458: --Raise Error
5459: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5460: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5455: --BUG# 3569441 :
5456: IF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5457:
5458: --Raise Error
5459: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5460: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5461: p_token1 => G_LOCATION_TYPE_TOKEN,
5462: p_token1_value => srl_num_rec2.install_location_type_code,
5463: p_token2 => G_LOC_TYPE1_TOKEN,
5463: p_token2 => G_LOC_TYPE1_TOKEN,
5464: p_token2_value => 'HZ_PARTY_SITES',
5465: p_token3 => G_LOC_TYPE2_TOKEN,
5466: p_token3_value => 'HZ_LOCATIONS');
5467: x_return_status := OKL_API.G_RET_STS_ERROR;
5468: RAISE OKL_API.G_EXCEPTION_ERROR;
5469:
5470: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5471:
5464: p_token2_value => 'HZ_PARTY_SITES',
5465: p_token3 => G_LOC_TYPE2_TOKEN,
5466: p_token3_value => 'HZ_LOCATIONS');
5467: x_return_status := OKL_API.G_RET_STS_ERROR;
5468: RAISE OKL_API.G_EXCEPTION_ERROR;
5469:
5470: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5471:
5472: OPEN inst_site_csr(srl_num_rec2.install_location_id);
5466: p_token3_value => 'HZ_LOCATIONS');
5467: x_return_status := OKL_API.G_RET_STS_ERROR;
5468: RAISE OKL_API.G_EXCEPTION_ERROR;
5469:
5470: ELSIF NVL(srl_num_rec2.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5471:
5472: OPEN inst_site_csr(srl_num_rec2.install_location_id);
5473: FETCH inst_site_csr INTO l_pty_site_use_id;
5474: IF inst_site_csr%NOTFOUND THEN
5475: OPEN l_address_csr(pty_site_id => srl_num_rec2.install_location_id);
5476: FETCH l_address_csr INTO l_address;
5477: CLOSE l_address_csr;
5478: --Raise Error : not defined as install_at
5479: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5480: p_msg_name => G_MISSING_USAGE,
5481: p_token1 => G_USAGE_TYPE_TOKEN,
5482: p_token1_value => 'INSTALL_AT',
5483: p_token2 => G_ADDRESS_TOKEN,
5483: p_token2 => G_ADDRESS_TOKEN,
5484: p_token2_value => l_address,
5485: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5486: p_token3_value => srl_num_rec2.instance_number);
5487: x_return_status := OKL_API.G_RET_STS_ERROR;
5488: RAISE OKL_API.G_EXCEPTION_ERROR;
5489: --l_pty_site_use_id := '-1';
5490: END IF;
5491: CLOSE inst_site_csr;
5484: p_token2_value => l_address,
5485: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5486: p_token3_value => srl_num_rec2.instance_number);
5487: x_return_status := OKL_API.G_RET_STS_ERROR;
5488: RAISE OKL_API.G_EXCEPTION_ERROR;
5489: --l_pty_site_use_id := '-1';
5490: END IF;
5491: CLOSE inst_site_csr;
5492:
5489: --l_pty_site_use_id := '-1';
5490: END IF;
5491: CLOSE inst_site_csr;
5492:
5493: ELSIF NVL(srl_num_rec2.install_location_type_code, OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5494:
5495: OPEN inst_loc_csr(srl_num_rec2.install_location_id);
5496: FETCH inst_loc_csr INTO l_pty_site_use_id;
5497: IF inst_loc_csr%NOTFOUND THEN
5499: OPEN l_address_csr2(loc_id => srl_num_rec2.install_location_id);
5500: FETCH l_address_csr2 INTO l_address;
5501: CLOSE l_address_csr2;
5502: --Raise Error : not defined as install_at
5503: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5504: p_msg_name => G_MISSING_USAGE,
5505: p_token1 => G_USAGE_TYPE_TOKEN,
5506: p_token1_value => 'INSTALL_AT',
5507: p_token2 => G_ADDRESS_TOKEN,
5507: p_token2 => G_ADDRESS_TOKEN,
5508: p_token2_value => l_address,
5509: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5510: p_token3_value => srl_num_rec2.instance_number);
5511: x_return_status := OKL_API.G_RET_STS_ERROR;
5512: RAISE OKL_API.G_EXCEPTION_ERROR;
5513: END IF;
5514: CLOSE inst_loc_csr;
5515:
5508: p_token2_value => l_address,
5509: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5510: p_token3_value => srl_num_rec2.instance_number);
5511: x_return_status := OKL_API.G_RET_STS_ERROR;
5512: RAISE OKL_API.G_EXCEPTION_ERROR;
5513: END IF;
5514: CLOSE inst_loc_csr;
5515:
5516: END IF;
5551:
5552: --fetch party site use id
5553: l_pty_site_use_id := NULL;
5554: --BUG# 3569441
5555: IF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5556:
5557: --Raise Error
5558: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5559: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5554: --BUG# 3569441
5555: IF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) NOT IN ('HZ_LOCATIONS','HZ_PARTY_SITES') THEN
5556:
5557: --Raise Error
5558: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5559: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5560: p_token1 => G_LOCATION_TYPE_TOKEN,
5561: p_token1_value => srl_num_rec.install_location_type_code,
5562: p_token2 => G_LOC_TYPE1_TOKEN,
5562: p_token2 => G_LOC_TYPE1_TOKEN,
5563: p_token2_value => 'HZ_PARTY_SITES',
5564: p_token3 => G_LOC_TYPE2_TOKEN,
5565: p_token3_value => 'HZ_LOCATIONS');
5566: x_return_status := OKL_API.G_RET_STS_ERROR;
5567: RAISE OKL_API.G_EXCEPTION_ERROR;
5568:
5569: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5570:
5563: p_token2_value => 'HZ_PARTY_SITES',
5564: p_token3 => G_LOC_TYPE2_TOKEN,
5565: p_token3_value => 'HZ_LOCATIONS');
5566: x_return_status := OKL_API.G_RET_STS_ERROR;
5567: RAISE OKL_API.G_EXCEPTION_ERROR;
5568:
5569: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5570:
5571: OPEN inst_site_csr(srl_num_rec.install_location_id);
5565: p_token3_value => 'HZ_LOCATIONS');
5566: x_return_status := OKL_API.G_RET_STS_ERROR;
5567: RAISE OKL_API.G_EXCEPTION_ERROR;
5568:
5569: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' THEN
5570:
5571: OPEN inst_site_csr(srl_num_rec.install_location_id);
5572: FETCH inst_site_csr INTO l_pty_site_use_id;
5573: IF inst_site_csr%NOTFOUND THEN
5574: OPEN l_address_csr(pty_site_id => srl_num_rec2.install_location_id);
5575: FETCH l_address_csr INTO l_address;
5576: CLOSE l_address_csr;
5577: --Raise Error : not defined as install_at
5578: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5579: p_msg_name => G_MISSING_USAGE,
5580: p_token1 => G_USAGE_TYPE_TOKEN,
5581: p_token1_value => 'INSTALL_AT',
5582: p_token2 => G_ADDRESS_TOKEN,
5582: p_token2 => G_ADDRESS_TOKEN,
5583: p_token2_value => l_address,
5584: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5585: p_token3_value => srl_num_rec.instance_number);
5586: x_return_status := OKL_API.G_RET_STS_ERROR;
5587: RAISE OKL_API.G_EXCEPTION_ERROR;
5588: END IF;
5589:
5590: CLOSE inst_site_csr;
5583: p_token2_value => l_address,
5584: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5585: p_token3_value => srl_num_rec.instance_number);
5586: x_return_status := OKL_API.G_RET_STS_ERROR;
5587: RAISE OKL_API.G_EXCEPTION_ERROR;
5588: END IF;
5589:
5590: CLOSE inst_site_csr;
5591: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5587: RAISE OKL_API.G_EXCEPTION_ERROR;
5588: END IF;
5589:
5590: CLOSE inst_site_csr;
5591: ELSIF NVL(srl_num_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' THEN
5592:
5593: OPEN inst_loc_csr(srl_num_rec.install_location_id);
5594: FETCH inst_loc_csr INTO l_pty_site_use_id;
5595: IF inst_loc_csr%NOTFOUND THEN
5596: OPEN l_address_csr2(loc_id => srl_num_rec2.install_location_id);
5597: FETCH l_address_csr2 INTO l_address;
5598: CLOSE l_address_csr2;
5599: --Raise Error : not defined as install_at
5600: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5601: p_msg_name => G_MISSING_USAGE,
5602: p_token1 => G_USAGE_TYPE_TOKEN,
5603: p_token1_value => 'INSTALL_AT',
5604: p_token2 => G_ADDRESS_TOKEN,
5604: p_token2 => G_ADDRESS_TOKEN,
5605: p_token2_value => l_address,
5606: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5607: p_token3_value => srl_num_rec.instance_number);
5608: x_return_status := OKL_API.G_RET_STS_ERROR;
5609: RAISE OKL_API.G_EXCEPTION_ERROR;
5610: END IF;
5611: CLOSE inst_loc_csr;
5612:
5605: p_token2_value => l_address,
5606: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5607: p_token3_value => srl_num_rec.instance_number);
5608: x_return_status := OKL_API.G_RET_STS_ERROR;
5609: RAISE OKL_API.G_EXCEPTION_ERROR;
5610: END IF;
5611: CLOSE inst_loc_csr;
5612:
5613: END IF;
5643: x_msg_data => x_msg_data,
5644: p_iipv_tbl => l_iipv_tbl,
5645: x_iipv_tbl => lx_iipv_tbl);
5646:
5647: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5650: RAISE OKL_API.G_EXCEPTION_ERROR;
5651: END IF;
5644: p_iipv_tbl => l_iipv_tbl,
5645: x_iipv_tbl => lx_iipv_tbl);
5646:
5647: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5650: RAISE OKL_API.G_EXCEPTION_ERROR;
5651: END IF;
5652:
5645: x_iipv_tbl => lx_iipv_tbl);
5646:
5647: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5650: RAISE OKL_API.G_EXCEPTION_ERROR;
5651: END IF;
5652:
5653: END IF;
5646:
5647: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5649: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5650: RAISE OKL_API.G_EXCEPTION_ERROR;
5651: END IF;
5652:
5653: END IF;
5654: --Bug# 3222804 : serial # control based on leasing inv org setup
5651: END IF;
5652:
5653: END IF;
5654: --Bug# 3222804 : serial # control based on leasing inv org setup
5655: ELSIF l_serialized = OKL_API.G_FALSE THEN
5656: NULL;
5657: END IF; -- if srl number controlled
5658: END IF;
5659: l_iipv_tbl.DELETE;
5656: NULL;
5657: END IF; -- if srl number controlled
5658: END IF;
5659: l_iipv_tbl.DELETE;
5660: OKL_API.END_ACTIVITY (x_msg_count,
5661: x_msg_data );
5662: EXCEPTION
5663: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5659: l_iipv_tbl.DELETE;
5660: OKL_API.END_ACTIVITY (x_msg_count,
5661: x_msg_data );
5662: EXCEPTION
5663: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5665: l_api_name,
5666: G_PKG_NAME,
5667: 'OKL_API.G_RET_STS_ERROR',
5660: OKL_API.END_ACTIVITY (x_msg_count,
5661: x_msg_data );
5662: EXCEPTION
5663: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5665: l_api_name,
5666: G_PKG_NAME,
5667: 'OKL_API.G_RET_STS_ERROR',
5668: x_msg_count,
5663: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5664: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5665: l_api_name,
5666: G_PKG_NAME,
5667: 'OKL_API.G_RET_STS_ERROR',
5668: x_msg_count,
5669: x_msg_data,
5670: '_PVT');
5671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5667: 'OKL_API.G_RET_STS_ERROR',
5668: x_msg_count,
5669: x_msg_data,
5670: '_PVT');
5671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5672: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5673: l_api_name,
5674: G_PKG_NAME,
5675: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5668: x_msg_count,
5669: x_msg_data,
5670: '_PVT');
5671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5672: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5673: l_api_name,
5674: G_PKG_NAME,
5675: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5676: x_msg_count,
5671: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5672: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5673: l_api_name,
5674: G_PKG_NAME,
5675: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5676: x_msg_count,
5677: x_msg_data,
5678: '_PVT');
5679: WHEN OTHERS THEN
5676: x_msg_count,
5677: x_msg_data,
5678: '_PVT');
5679: WHEN OTHERS THEN
5680: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5681: l_api_name,
5682: G_PKG_NAME,
5683: 'OTHERS',
5684: x_msg_count,
5702: l_loan_yn VARCHAR2(1) DEFAULT 'N';
5703:
5704: BEGIN
5705: ----
5706: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5707: OPEN l_dealtyp_csr (PCleId => p_cle_id);
5708: FETCH l_dealtyp_csr INTO l_deal_type;
5709: IF l_dealtyp_csr%NOTFOUND THEN
5710: NULL;
5719:
5720: RETURN(l_loan_yn);
5721: EXCEPTION
5722: WHEN OTHERS THEN
5723: x_return_status := OKL_API.G_RET_STS_ERROR;
5724: ----
5725: END Check_If_Loan;
5726:
5727: --------------------------------------------------------------------------------
5762: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
5763: x_txlv_rec OUT NOCOPY txlv_rec_type,
5764: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
5765:
5766: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
5767: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
5768: l_api_version CONSTANT NUMBER := 1.0;
5769:
5770: --cursor to check presence of an already active transaction
5992: l_legal_entity_id NUMBER;
5993:
5994: BEGIN
5995: --dbms_output.put_line('before start activity');
5996: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5997: -- Call start_activity to create savepoint, check compatibility
5998: -- and initialize message list
5999: x_return_status := OKL_API.START_ACTIVITY (
6000: l_api_name
5995: --dbms_output.put_line('before start activity');
5996: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5997: -- Call start_activity to create savepoint, check compatibility
5998: -- and initialize message list
5999: x_return_status := OKL_API.START_ACTIVITY (
6000: l_api_name
6001: ,p_init_msg_list
6002: ,'_PVT'
6003: ,x_return_status);
6001: ,p_init_msg_list
6002: ,'_PVT'
6003: ,x_return_status);
6004: -- Check if activity started successfully
6005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6008: RAISE OKL_API.G_EXCEPTION_ERROR;
6009: END IF;
6002: ,'_PVT'
6003: ,x_return_status);
6004: -- Check if activity started successfully
6005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6008: RAISE OKL_API.G_EXCEPTION_ERROR;
6009: END IF;
6010: l_ib_tbl := p_ib_tbl;
6003: ,x_return_status);
6004: -- Check if activity started successfully
6005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6008: RAISE OKL_API.G_EXCEPTION_ERROR;
6009: END IF;
6010: l_ib_tbl := p_ib_tbl;
6011: --Bug# 6612475
6004: -- Check if activity started successfully
6005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6008: RAISE OKL_API.G_EXCEPTION_ERROR;
6009: END IF;
6010: l_ib_tbl := p_ib_tbl;
6011: --Bug# 6612475
6012: --1. Validate Split Request
6021: ,p_split_into_units => p_split_into_units
6022: ,p_revision_date => p_trx_date
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6022: ,p_revision_date => p_trx_date
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030:
6023: );
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030:
6031: --Commenting this validation as it is redundant now
6024:
6025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6027: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6028: RAISE OKL_API.G_EXCEPTION_ERROR;
6029: END IF;
6030:
6031: --Commenting this validation as it is redundant now
6032: --because of newly added Validate_Split_Request
6031: --Commenting this validation as it is redundant now
6032: --because of newly added Validate_Split_Request
6033: --1.Verify p_cle_id
6034: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6035: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6036: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6037: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6038: --RAISE OKL_API.G_EXCEPTION_ERROR;
6039: --END IF;
6032: --because of newly added Validate_Split_Request
6033: --1.Verify p_cle_id
6034: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6035: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6036: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6037: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6038: --RAISE OKL_API.G_EXCEPTION_ERROR;
6039: --END IF;
6040: --Bug# 6612475 End
6033: --1.Verify p_cle_id
6034: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6035: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6036: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6037: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6038: --RAISE OKL_API.G_EXCEPTION_ERROR;
6039: --END IF;
6040: --Bug# 6612475 End
6041:
6034: --x_return_status := verify_cle_id(p_cle_id => p_cle_id);
6035: --IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6036: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6037: --ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6038: --RAISE OKL_API.G_EXCEPTION_ERROR;
6039: --END IF;
6040: --Bug# 6612475 End
6041:
6042: --Bug# 3783518: start
6055: x_msg_data => x_msg_data,
6056: p_khr_id => l_chr_id,
6057: x_pdt_parameter_rec => l_pdt_params_rec);
6058:
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6062: RAISE OKL_API.G_EXCEPTION_ERROR;
6063: END IF;
6056: p_khr_id => l_chr_id,
6057: x_pdt_parameter_rec => l_pdt_params_rec);
6058:
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6062: RAISE OKL_API.G_EXCEPTION_ERROR;
6063: END IF;
6064:
6057: x_pdt_parameter_rec => l_pdt_params_rec);
6058:
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6062: RAISE OKL_API.G_EXCEPTION_ERROR;
6063: END IF;
6064:
6065: -- Raise an error if the Revenue Recognition Method is 'Actual' or 'Estimated and Actual'
6058:
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6062: RAISE OKL_API.G_EXCEPTION_ERROR;
6063: END IF;
6064:
6065: -- Raise an error if the Revenue Recognition Method is 'Actual' or 'Estimated and Actual'
6066: IF ( l_pdt_params_rec.Revenue_Recognition_Method = G_RRB_ESTIMATED OR
6069: l_pdt_params_rec.Revenue_Recognition_Method);
6070: FETCH get_prod_param_values INTO l_rev_recog_meaning;
6071: CLOSE get_prod_param_values;
6072:
6073: OKL_API.set_message(p_app_name => G_APP_NAME,
6074: p_msg_name => G_RRB_SPLIT_ASSET_NOT_ALLWD,
6075: p_token1 => G_METHOD,
6076: p_token1_value => l_rev_recog_meaning);
6077: RAISE OKL_API.G_EXCEPTION_ERROR;
6073: OKL_API.set_message(p_app_name => G_APP_NAME,
6074: p_msg_name => G_RRB_SPLIT_ASSET_NOT_ALLWD,
6075: p_token1 => G_METHOD,
6076: p_token1_value => l_rev_recog_meaning);
6077: RAISE OKL_API.G_EXCEPTION_ERROR;
6078: END IF;
6079: -- Bug# 4542290 - smadhava - Added - End
6080:
6081: l_rel_ast := '?';
6084: FETCH l_chk_rel_ast_csr INTO l_rel_ast;
6085: CLOSE l_chk_rel_ast_csr;
6086:
6087: IF l_rel_ast = '!' THEN
6088: OKL_API.set_message(p_app_name => G_APP_NAME,
6089: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: --Bug# 3783518: end
6086:
6087: IF l_rel_ast = '!' THEN
6088: OKL_API.set_message(p_app_name => G_APP_NAME,
6089: p_msg_name => 'OKL_REL_ASSET_SPLIT_NOT_ALLWD');
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: --Bug# 3783518: end
6093:
6094: --Bug Fix # 2881114
6101: END IF;
6102: CLOSE lnk_to_srv_csr;
6103:
6104: IF l_lnk_to_srv = '!' THEN
6105: OKL_API.set_message(p_app_name => G_APP_NAME,
6106: p_msg_name => G_ASSET_LINKED_TO_SERVICE);
6107: RAISE OKL_API.G_EXCEPTION_ERROR;
6108: END IF;
6109: --Bug Fix # 2881114 End
6103:
6104: IF l_lnk_to_srv = '!' THEN
6105: OKL_API.set_message(p_app_name => G_APP_NAME,
6106: p_msg_name => G_ASSET_LINKED_TO_SERVICE);
6107: RAISE OKL_API.G_EXCEPTION_ERROR;
6108: END IF;
6109: --Bug Fix # 2881114 End
6110:
6111: --2.Set the status of the Contract Line on HOLD
6124: x_msg_data => x_msg_data,
6125: p_cle_id => p_cle_id,
6126:
6127: p_trx_date => p_trx_date);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6125: p_cle_id => p_cle_id,
6126:
6127: p_trx_date => p_trx_date);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133:
6126:
6127: p_trx_date => p_trx_date);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133:
6134: --Bug# 5946411 :ER Added offlease pending transaction message
6127: p_trx_date => p_trx_date);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133:
6134: --Bug# 5946411 :ER Added offlease pending transaction message
6135: Check_Offlease_Trans(p_api_version => p_api_version,
6138: x_msg_count => x_msg_count,
6139: x_msg_data => x_msg_data,
6140: p_cle_id => p_cle_id
6141: );
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6145: RAISE OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6139: x_msg_data => x_msg_data,
6140: p_cle_id => p_cle_id
6141: );
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6145: RAISE OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Bug# 5946411 :ER end
6140: p_cle_id => p_cle_id
6141: );
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6145: RAISE OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Bug# 5946411 :ER end
6148: --l_trxv_rec.date_trans_occurred := sysdate;
6141: );
6142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6145: RAISE OKL_API.G_EXCEPTION_ERROR;
6146: END IF;
6147: --Bug# 5946411 :ER end
6148: --l_trxv_rec.date_trans_occurred := sysdate;
6149: l_trxv_rec.date_trans_occurred := p_trx_date;
6157: -- get the contract number
6158: OPEN contract_num_csr(l_chr_id);
6159: FETCH contract_num_csr INTO l_cntrct_number;
6160: CLOSE contract_num_csr;
6161: Okl_Api.set_message(p_app_name => g_app_name,
6162: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
6163: p_token1 => 'CONTRACT_NUMBER',
6164: p_token1_value => l_cntrct_number);
6165: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: Okl_Api.set_message(p_app_name => g_app_name,
6162: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
6163: p_token1 => 'CONTRACT_NUMBER',
6164: p_token1_value => l_cntrct_number);
6165: RAISE OKL_API.G_EXCEPTION_ERROR;
6166: END IF;
6167: -------------------------------------
6168: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6169: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6167: -------------------------------------
6168: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6169: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6170: x_try_id => l_trxv_rec.try_id);
6171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6174: RAISE OKL_API.G_EXCEPTION_ERROR;
6175: END IF;
6168: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6169: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6170: x_try_id => l_trxv_rec.try_id);
6171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6174: RAISE OKL_API.G_EXCEPTION_ERROR;
6175: END IF;
6176: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6169: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
6170: x_try_id => l_trxv_rec.try_id);
6171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6174: RAISE OKL_API.G_EXCEPTION_ERROR;
6175: END IF;
6176: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6177: --Check if a 'ENTRED' unprocessed split transaction alreadt exists for this line
6170: x_try_id => l_trxv_rec.try_id);
6171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6174: RAISE OKL_API.G_EXCEPTION_ERROR;
6175: END IF;
6176: --++++++++++++++++++++testing ty id only++++++++++++++++++++++
6177: --Check if a 'ENTRED' unprocessed split transaction alreadt exists for this line
6178: --dbms_output.put_line('Before chk_split_trx cursor fetch');
6184: l_loan_yn := 'N';
6185: l_loan_yn := Check_If_Loan(P_Cle_Id => p_cle_id,
6186: x_return_status => x_return_status);
6187:
6188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6191: RAISE OKL_API.G_EXCEPTION_ERROR;
6192: END IF;
6185: l_loan_yn := Check_If_Loan(P_Cle_Id => p_cle_id,
6186: x_return_status => x_return_status);
6187:
6188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6191: RAISE OKL_API.G_EXCEPTION_ERROR;
6192: END IF;
6193:
6186: x_return_status => x_return_status);
6187:
6188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6191: RAISE OKL_API.G_EXCEPTION_ERROR;
6192: END IF;
6193:
6194: IF l_loan_yn = 'N' THEN
6187:
6188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6191: RAISE OKL_API.G_EXCEPTION_ERROR;
6192: END IF;
6193:
6194: IF l_loan_yn = 'N' THEN
6195: OKL_API.set_message(p_app_name => G_APP_NAME,
6191: RAISE OKL_API.G_EXCEPTION_ERROR;
6192: END IF;
6193:
6194: IF l_loan_yn = 'N' THEN
6195: OKL_API.set_message(p_app_name => G_APP_NAME,
6196: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6198: ELSIF l_loan_yn = 'Y' THEN
6199: --open cursor to get asset information from OKL tables
6193:
6194: IF l_loan_yn = 'N' THEN
6195: OKL_API.set_message(p_app_name => G_APP_NAME,
6196: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6198: ELSIF l_loan_yn = 'Y' THEN
6199: --open cursor to get asset information from OKL tables
6200: OPEN loan_ast_csr(PCleId => p_cle_id);
6201: FETCH loan_ast_csr INTO l_loan_ast_rec;
6199: --open cursor to get asset information from OKL tables
6200: OPEN loan_ast_csr(PCleId => p_cle_id);
6201: FETCH loan_ast_csr INTO l_loan_ast_rec;
6202: IF loan_ast_csr%NOTFOUND THEN
6203: OKL_API.set_message(p_app_name => G_APP_NAME,
6204: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6206: ELSE
6207: l_fa_exists := 'N';
6201: FETCH loan_ast_csr INTO l_loan_ast_rec;
6202: IF loan_ast_csr%NOTFOUND THEN
6203: OKL_API.set_message(p_app_name => G_APP_NAME,
6204: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
6205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6206: ELSE
6207: l_fa_exists := 'N';
6208: END IF;
6209: END IF;
6221: -- splitting an off-lease asset
6222: IF (l_ast_line_rec.line_status IN ('TERMINATED','EXPIRED')) OR
6223: (l_loan_ast_rec.line_status IN ('TERMINATED','EXPIRED')) THEN
6224:
6225: OKL_API.set_message(p_app_name => G_APP_NAME,
6226: p_msg_name => 'OKL_AM_SINGLE_UNIT_SPLIT');
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228:
6229: ELSE
6223: (l_loan_ast_rec.line_status IN ('TERMINATED','EXPIRED')) THEN
6224:
6225: OKL_API.set_message(p_app_name => G_APP_NAME,
6226: p_msg_name => 'OKL_AM_SINGLE_UNIT_SPLIT');
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228:
6229: ELSE
6230: OKL_API.set_message(p_app_name => G_APP_NAME,
6231: p_msg_name => G_SINGLE_UNIT_ASSET);
6226: p_msg_name => 'OKL_AM_SINGLE_UNIT_SPLIT');
6227: RAISE OKL_API.G_EXCEPTION_ERROR;
6228:
6229: ELSE
6230: OKL_API.set_message(p_app_name => G_APP_NAME,
6231: p_msg_name => G_SINGLE_UNIT_ASSET);
6232: RAISE OKL_API.G_EXCEPTION_ERROR;
6233:
6234: END IF;
6228:
6229: ELSE
6230: OKL_API.set_message(p_app_name => G_APP_NAME,
6231: p_msg_name => G_SINGLE_UNIT_ASSET);
6232: RAISE OKL_API.G_EXCEPTION_ERROR;
6233:
6234: END IF;
6235: --Bug# 6336455: end
6236: END IF;
6257: x_msg_data => x_msg_data,
6258: p_trxv_rec => l_trxv_rec,
6259: x_trxv_rec => x_trxv_rec);
6260: --dbms_output.put_line('After creating trx header'||x_return_status);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6264: RAISE OKL_API.G_EXCEPTION_ERROR;
6265: END IF;
6258: p_trxv_rec => l_trxv_rec,
6259: x_trxv_rec => x_trxv_rec);
6260: --dbms_output.put_line('After creating trx header'||x_return_status);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6264: RAISE OKL_API.G_EXCEPTION_ERROR;
6265: END IF;
6266:
6259: x_trxv_rec => x_trxv_rec);
6260: --dbms_output.put_line('After creating trx header'||x_return_status);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6264: RAISE OKL_API.G_EXCEPTION_ERROR;
6265: END IF;
6266:
6267: --Prepare txl record for insert into OKL_TXL_ASSETS_V
6260: --dbms_output.put_line('After creating trx header'||x_return_status);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6263: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6264: RAISE OKL_API.G_EXCEPTION_ERROR;
6265: END IF;
6266:
6267: --Prepare txl record for insert into OKL_TXL_ASSETS_V
6268:
6275: x_return_status := Get_Fa_Location(l_ast_line_rec.asset_id,
6276: l_ast_line_rec.corporate_book,
6277: l_fa_location_id);
6278: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6282: RAISE OKL_API.G_EXCEPTION_ERROR;
6283: END IF;
6276: l_ast_line_rec.corporate_book,
6277: l_fa_location_id);
6278: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6282: RAISE OKL_API.G_EXCEPTION_ERROR;
6283: END IF;
6284: l_txlv_rec.fa_location_id := l_fa_location_id;
6277: l_fa_location_id);
6278: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6282: RAISE OKL_API.G_EXCEPTION_ERROR;
6283: END IF;
6284: l_txlv_rec.fa_location_id := l_fa_location_id;
6285: l_txlv_rec.original_cost := l_ast_line_rec.original_cost;
6278: --dbms_output.put_line('After fetching fa location id'||x_return_status);
6279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6282: RAISE OKL_API.G_EXCEPTION_ERROR;
6283: END IF;
6284: l_txlv_rec.fa_location_id := l_fa_location_id;
6285: l_txlv_rec.original_cost := l_ast_line_rec.original_cost;
6286: l_txlv_rec.current_units := l_ast_line_rec.current_units;
6366: x_msg_data => x_msg_data,
6367: p_tlpv_rec => l_txlv_rec,
6368: x_tlpv_rec => x_txlv_rec);
6369: --dbms_output.put_line('After creating transaction line'||x_return_status);
6370: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6372: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6373: RAISE OKL_API.G_EXCEPTION_ERROR;
6374: END IF;
6367: p_tlpv_rec => l_txlv_rec,
6368: x_tlpv_rec => x_txlv_rec);
6369: --dbms_output.put_line('After creating transaction line'||x_return_status);
6370: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6372: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6373: RAISE OKL_API.G_EXCEPTION_ERROR;
6374: END IF;
6375:
6368: x_tlpv_rec => x_txlv_rec);
6369: --dbms_output.put_line('After creating transaction line'||x_return_status);
6370: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6372: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6373: RAISE OKL_API.G_EXCEPTION_ERROR;
6374: END IF;
6375:
6376: --call to create record for OKL_TXD_ASSETS_V
6369: --dbms_output.put_line('After creating transaction line'||x_return_status);
6370: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6371: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6372: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6373: RAISE OKL_API.G_EXCEPTION_ERROR;
6374: END IF;
6375:
6376: --call to create record for OKL_TXD_ASSETS_V
6377: --dbms_output.put_line('when fresh trx '||l_ast_line_rec.description);
6388: p_txlv_rec => x_txlv_rec,
6389: x_txdv_tbl => x_txdv_tbl);
6390:
6391: --dbms_output.put_line('After creating trx details'||x_return_status);
6392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6395: RAISE OKL_API.G_EXCEPTION_ERROR;
6396: END IF;
6389: x_txdv_tbl => x_txdv_tbl);
6390:
6391: --dbms_output.put_line('After creating trx details'||x_return_status);
6392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6395: RAISE OKL_API.G_EXCEPTION_ERROR;
6396: END IF;
6397: END IF;
6390:
6391: --dbms_output.put_line('After creating trx details'||x_return_status);
6392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6395: RAISE OKL_API.G_EXCEPTION_ERROR;
6396: END IF;
6397: END IF;
6398:
6391: --dbms_output.put_line('After creating trx details'||x_return_status);
6392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6394: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6395: RAISE OKL_API.G_EXCEPTION_ERROR;
6396: END IF;
6397: END IF;
6398:
6399: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers
6409: p_ib_tbl => l_ib_tbl,
6410: p_tas_id => x_txlv_rec.tas_id,
6411: p_tal_id => x_txlv_rec.id,
6412: p_asd_id => NULL);
6413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6416: RAISE OKL_API.G_EXCEPTION_ERROR;
6417: END IF;
6410: p_tas_id => x_txlv_rec.tas_id,
6411: p_tal_id => x_txlv_rec.id,
6412: p_asd_id => NULL);
6413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6416: RAISE OKL_API.G_EXCEPTION_ERROR;
6417: END IF;
6418: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6411: p_tal_id => x_txlv_rec.id,
6412: p_asd_id => NULL);
6413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6416: RAISE OKL_API.G_EXCEPTION_ERROR;
6417: END IF;
6418: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6419:
6412: p_asd_id => NULL);
6413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6416: RAISE OKL_API.G_EXCEPTION_ERROR;
6417: END IF;
6418: --Bug #2723498 : 11.5.9 enahncement split asset by serial numbers end
6419:
6420: ELSE --chk_split_trx%FOUND
6422: --dbms_output.put_line('transaction found');
6423: IF NVL(p_split_into_individuals_yn,'N') <> 'X' AND NVL(l_split_into_ind_yn,'N') = 'X' THEN
6424:
6425: --split asset component transactions exist
6426: OKL_API.set_message(p_app_name => G_APP_NAME,
6427: p_msg_name => G_SPLIT_AST_COMP_TRX);
6428: RAISE OKL_API.G_EXCEPTION_ERROR;
6429:
6430: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6424:
6425: --split asset component transactions exist
6426: OKL_API.set_message(p_app_name => G_APP_NAME,
6427: p_msg_name => G_SPLIT_AST_COMP_TRX);
6428: RAISE OKL_API.G_EXCEPTION_ERROR;
6429:
6430: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6431:
6432: --split asset transactions exist
6429:
6430: ELSIF NVL(p_split_into_individuals_yn,'N') = 'X' AND NVL(l_split_into_ind_yn,'N') <> 'X' THEN
6431:
6432: --split asset transactions exist
6433: OKL_API.set_message(p_app_name => G_APP_NAME,
6434: p_msg_name => G_SPLIT_ASSET_TRX);
6435: RAISE OKL_API.G_EXCEPTION_ERROR;
6436:
6437: 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)
6431:
6432: --split asset transactions exist
6433: OKL_API.set_message(p_app_name => G_APP_NAME,
6434: p_msg_name => G_SPLIT_ASSET_TRX);
6435: RAISE OKL_API.G_EXCEPTION_ERROR;
6436:
6437: 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)
6438: --Bug# 3156924 :
6439: AND TRUNC(p_trx_date) = TRUNC(l_trx_date)) THEN
6460: p_thpv_rec => l_trxv_rec,
6461: x_thpv_rec => x_trxv_rec);
6462:
6463: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6464: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6466: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_ERROR;
6468: END IF;
6461: x_thpv_rec => x_trxv_rec);
6462:
6463: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6464: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6466: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_ERROR;
6468: END IF;
6469: -------------------------------------------------
6462:
6463: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6464: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6466: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_ERROR;
6468: END IF;
6469: -------------------------------------------------
6470: --Bug# 3156924
6463: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
6464: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6466: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_ERROR;
6468: END IF;
6469: -------------------------------------------------
6470: --Bug# 3156924
6471: ------------------------------------------------
6483: x_msg_count => x_msg_count,
6484: x_msg_data => x_msg_data,
6485: p_tlpv_rec => l_txlv_rec,
6486: x_tlpv_rec => x_txlv_rec);
6487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6484: x_msg_data => x_msg_data,
6485: p_tlpv_rec => l_txlv_rec,
6486: x_tlpv_rec => x_txlv_rec);
6487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492:
6485: p_tlpv_rec => l_txlv_rec,
6486: x_tlpv_rec => x_txlv_rec);
6487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492:
6493: --fetch transaction details
6486: x_tlpv_rec => x_txlv_rec);
6487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6490: RAISE OKL_API.G_EXCEPTION_ERROR;
6491: END IF;
6492:
6493: --fetch transaction details
6494: l_txdv_tbl := get_trx_details(p_tal_id => x_txlv_rec.id,
6506: p_ast_line_rec => l_ast_line_rec,
6507: p_txlv_rec => x_txlv_rec,
6508: x_txdv_tbl => x_txdv_tbl);
6509:
6510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6513: RAISE OKL_API.G_EXCEPTION_ERROR;
6514: END IF;
6507: p_txlv_rec => x_txlv_rec,
6508: x_txdv_tbl => x_txdv_tbl);
6509:
6510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6513: RAISE OKL_API.G_EXCEPTION_ERROR;
6514: END IF;
6515:
6508: x_txdv_tbl => x_txdv_tbl);
6509:
6510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6513: RAISE OKL_API.G_EXCEPTION_ERROR;
6514: END IF;
6515:
6516: ELSE
6509:
6510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6513: RAISE OKL_API.G_EXCEPTION_ERROR;
6514: END IF;
6515:
6516: ELSE
6517: -- delete transaction details and approprately create new transaction details
6521: x_msg_count => x_msg_count,
6522: x_msg_data => x_msg_data,
6523: p_adpv_tbl => l_txdv_tbl);
6524:
6525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6528: RAISE OKL_API.G_EXCEPTION_ERROR;
6529: END IF;
6522: x_msg_data => x_msg_data,
6523: p_adpv_tbl => l_txdv_tbl);
6524:
6525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6528: RAISE OKL_API.G_EXCEPTION_ERROR;
6529: END IF;
6530: --Bug fix# 2744213 : positioning of end if
6523: p_adpv_tbl => l_txdv_tbl);
6524:
6525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6528: RAISE OKL_API.G_EXCEPTION_ERROR;
6529: END IF;
6530: --Bug fix# 2744213 : positioning of end if
6531: -- End If;
6524:
6525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6528: RAISE OKL_API.G_EXCEPTION_ERROR;
6529: END IF;
6530: --Bug fix# 2744213 : positioning of end if
6531: -- End If;
6532:
6541: p_ast_line_rec => l_ast_line_rec,
6542: p_txlv_rec => x_txlv_rec,
6543: x_txdv_tbl => x_txdv_tbl);
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6542: p_txlv_rec => x_txlv_rec,
6543: x_txdv_tbl => x_txdv_tbl);
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550: END IF;
6543: x_txdv_tbl => x_txdv_tbl);
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550: END IF;
6551:
6544:
6545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6548: RAISE OKL_API.G_EXCEPTION_ERROR;
6549: END IF;
6550: END IF;
6551:
6552: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6581: x_msg_count => x_msg_count,
6582: x_msg_data => x_msg_data,
6583: p_iipv_tbl => l_iipv_tbl);
6584:
6585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6588: RAISE OKL_API.G_EXCEPTION_ERROR;
6589: END IF;
6582: x_msg_data => x_msg_data,
6583: p_iipv_tbl => l_iipv_tbl);
6584:
6585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6588: RAISE OKL_API.G_EXCEPTION_ERROR;
6589: END IF;
6590: END IF;
6583: p_iipv_tbl => l_iipv_tbl);
6584:
6585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6588: RAISE OKL_API.G_EXCEPTION_ERROR;
6589: END IF;
6590: END IF;
6591:
6584:
6585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6588: RAISE OKL_API.G_EXCEPTION_ERROR;
6589: END IF;
6590: END IF;
6591:
6592: --create new srl numbers if required
6602: p_tas_id => x_txlv_rec.tas_id,
6603: p_tal_id => x_txlv_rec.id,
6604: p_asd_id => NULL);
6605:
6606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6609: RAISE OKL_API.G_EXCEPTION_ERROR;
6610: END IF;
6603: p_tal_id => x_txlv_rec.id,
6604: p_asd_id => NULL);
6605:
6606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6609: RAISE OKL_API.G_EXCEPTION_ERROR;
6610: END IF;
6611:
6604: p_asd_id => NULL);
6605:
6606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6609: RAISE OKL_API.G_EXCEPTION_ERROR;
6610: END IF;
6611:
6612: ELSIF l_srl_exists = '?' THEN
6605:
6606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6608: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6609: RAISE OKL_API.G_EXCEPTION_ERROR;
6610: END IF;
6611:
6612: ELSIF l_srl_exists = '?' THEN
6613: --create new srl numbers if required
6623: p_tas_id => x_txlv_rec.tas_id,
6624: p_tal_id => x_txlv_rec.id,
6625: p_asd_id => NULL);
6626:
6627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6630: RAISE OKL_API.G_EXCEPTION_ERROR;
6631: END IF;
6624: p_tal_id => x_txlv_rec.id,
6625: p_asd_id => NULL);
6626:
6627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6630: RAISE OKL_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END IF; -- srl number exists
6625: p_asd_id => NULL);
6626:
6627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6630: RAISE OKL_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END IF; -- srl number exists
6633: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6626:
6627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6630: RAISE OKL_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END IF; -- srl number exists
6633: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6634: --Bug fix# 2744213 : positioning of end if
6633: --Bug #2723498 11.5.9 enhancement - Splitting assets by serial numbers
6634: --Bug fix# 2744213 : positioning of end if
6635: END IF; -- chenges in transaction
6636: END IF;
6637: OKL_API.END_ACTIVITY (x_msg_count,
6638: x_msg_data );
6639:
6640: EXCEPTION
6641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6637: OKL_API.END_ACTIVITY (x_msg_count,
6638: x_msg_data );
6639:
6640: EXCEPTION
6641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6642: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6643: l_api_name,
6644: G_PKG_NAME,
6645: 'OKL_API.G_RET_STS_ERROR',
6638: x_msg_data );
6639:
6640: EXCEPTION
6641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6642: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6643: l_api_name,
6644: G_PKG_NAME,
6645: 'OKL_API.G_RET_STS_ERROR',
6646: x_msg_count,
6641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6642: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6643: l_api_name,
6644: G_PKG_NAME,
6645: 'OKL_API.G_RET_STS_ERROR',
6646: x_msg_count,
6647: x_msg_data,
6648: '_PVT');
6649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6645: 'OKL_API.G_RET_STS_ERROR',
6646: x_msg_count,
6647: x_msg_data,
6648: '_PVT');
6649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6650: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6651: l_api_name,
6652: G_PKG_NAME,
6653: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6646: x_msg_count,
6647: x_msg_data,
6648: '_PVT');
6649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6650: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6651: l_api_name,
6652: G_PKG_NAME,
6653: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6654: x_msg_count,
6649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6650: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6651: l_api_name,
6652: G_PKG_NAME,
6653: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6654: x_msg_count,
6655: x_msg_data,
6656: '_PVT');
6657: WHEN OTHERS THEN
6654: x_msg_count,
6655: x_msg_data,
6656: '_PVT');
6657: WHEN OTHERS THEN
6658: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6659: l_api_name,
6660: G_PKG_NAME,
6661: 'OTHERS',
6662: x_msg_count,
6689: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6690: x_txlv_rec OUT NOCOPY txlv_rec_type,
6691: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6692:
6693: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6694: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6695: l_api_version CONSTANT NUMBER := 1.0;
6696:
6697: l_trx_date DATE := SYSDATE;
6696:
6697: l_trx_date DATE := SYSDATE;
6698:
6699: BEGIN
6700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6701: -- Call start_activity to create savepoint, check compatibility
6702: -- and initialize message list
6703: x_return_status := OKL_API.START_ACTIVITY (
6704: l_api_name
6699: BEGIN
6700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6701: -- Call start_activity to create savepoint, check compatibility
6702: -- and initialize message list
6703: x_return_status := OKL_API.START_ACTIVITY (
6704: l_api_name
6705: ,p_init_msg_list
6706: ,'_PVT'
6707: ,x_return_status);
6705: ,p_init_msg_list
6706: ,'_PVT'
6707: ,x_return_status);
6708: -- Check if activity started successfully
6709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6706: ,'_PVT'
6707: ,x_return_status);
6708: -- Check if activity started successfully
6709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6707: ,x_return_status);
6708: -- Check if activity started successfully
6709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6715: --call the overloded procedure :
6708: -- Check if activity started successfully
6709: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6710: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6711: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714:
6715: --call the overloded procedure :
6716: Create_Split_Transaction(p_api_version => p_api_version,
6727: x_txdv_tbl => x_txdv_tbl,
6728: x_txlv_rec => x_txlv_rec,
6729: x_trxv_rec => x_trxv_rec);
6730:
6731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: RAISE OKL_API.G_EXCEPTION_ERROR;
6735: END IF;
6728: x_txlv_rec => x_txlv_rec,
6729: x_trxv_rec => x_trxv_rec);
6730:
6731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: RAISE OKL_API.G_EXCEPTION_ERROR;
6735: END IF;
6736: OKL_API.END_ACTIVITY (x_msg_count,
6729: x_trxv_rec => x_trxv_rec);
6730:
6731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: RAISE OKL_API.G_EXCEPTION_ERROR;
6735: END IF;
6736: OKL_API.END_ACTIVITY (x_msg_count,
6737: x_msg_data );
6730:
6731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: RAISE OKL_API.G_EXCEPTION_ERROR;
6735: END IF;
6736: OKL_API.END_ACTIVITY (x_msg_count,
6737: x_msg_data );
6738:
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: RAISE OKL_API.G_EXCEPTION_ERROR;
6735: END IF;
6736: OKL_API.END_ACTIVITY (x_msg_count,
6737: x_msg_data );
6738:
6739: EXCEPTION
6740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6736: OKL_API.END_ACTIVITY (x_msg_count,
6737: x_msg_data );
6738:
6739: EXCEPTION
6740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6742: l_api_name,
6743: G_PKG_NAME,
6744: 'OKL_API.G_RET_STS_ERROR',
6737: x_msg_data );
6738:
6739: EXCEPTION
6740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6742: l_api_name,
6743: G_PKG_NAME,
6744: 'OKL_API.G_RET_STS_ERROR',
6745: x_msg_count,
6740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6742: l_api_name,
6743: G_PKG_NAME,
6744: 'OKL_API.G_RET_STS_ERROR',
6745: x_msg_count,
6746: x_msg_data,
6747: '_PVT');
6748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6744: 'OKL_API.G_RET_STS_ERROR',
6745: x_msg_count,
6746: x_msg_data,
6747: '_PVT');
6748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6749: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6750: l_api_name,
6751: G_PKG_NAME,
6752: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6745: x_msg_count,
6746: x_msg_data,
6747: '_PVT');
6748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6749: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6750: l_api_name,
6751: G_PKG_NAME,
6752: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6753: x_msg_count,
6748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6749: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6750: l_api_name,
6751: G_PKG_NAME,
6752: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6753: x_msg_count,
6754: x_msg_data,
6755: '_PVT');
6756: WHEN OTHERS THEN
6753: x_msg_count,
6754: x_msg_data,
6755: '_PVT');
6756: WHEN OTHERS THEN
6757: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6758: l_api_name,
6759: G_PKG_NAME,
6760: 'OTHERS',
6761: x_msg_count,
6789: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6790: x_txlv_rec OUT NOCOPY txlv_rec_type,
6791: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6792:
6793: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6794: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6795: l_api_version CONSTANT NUMBER := 1.0;
6796: l_ib_tbl ib_tbl_type;
6797:
6829: END LOOP;
6830:
6831: EXCEPTION
6832: WHEN OTHERS THEN
6833: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6835: END raise_business_event;
6836:
6837: /*
6830:
6831: EXCEPTION
6832: WHEN OTHERS THEN
6833: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6835: END raise_business_event;
6836:
6837: /*
6838: -- mvasudev, 08/23/2004
6839: -- END, PROCEDURE to enable Business Event
6840: */
6841:
6842: BEGIN
6843: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6844: -- Call start_activity to create savepoint, check compatibility
6845: -- and initialize message list
6846: x_return_status := OKL_API.START_ACTIVITY (
6847: l_api_name
6842: BEGIN
6843: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6844: -- Call start_activity to create savepoint, check compatibility
6845: -- and initialize message list
6846: x_return_status := OKL_API.START_ACTIVITY (
6847: l_api_name
6848: ,p_init_msg_list
6849: ,'_PVT'
6850: ,x_return_status);
6848: ,p_init_msg_list
6849: ,'_PVT'
6850: ,x_return_status);
6851: -- Check if activity started successfully
6852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6855: RAISE OKL_API.G_EXCEPTION_ERROR;
6856: END IF;
6849: ,'_PVT'
6850: ,x_return_status);
6851: -- Check if activity started successfully
6852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6855: RAISE OKL_API.G_EXCEPTION_ERROR;
6856: END IF;
6857:
6850: ,x_return_status);
6851: -- Check if activity started successfully
6852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6855: RAISE OKL_API.G_EXCEPTION_ERROR;
6856: END IF;
6857:
6858: --call the overloded procedure :
6851: -- Check if activity started successfully
6852: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6853: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6854: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6855: RAISE OKL_API.G_EXCEPTION_ERROR;
6856: END IF;
6857:
6858: --call the overloded procedure :
6859: Create_Split_Transaction(p_api_version => p_api_version,
6870: x_txlv_rec => x_txlv_rec,
6871: x_trxv_rec => x_trxv_rec);
6872:
6873:
6874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6871: x_trxv_rec => x_trxv_rec);
6872:
6873:
6874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6879:
6872:
6873:
6874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6879:
6880: /*
6873:
6874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6879:
6880: /*
6881: -- mvasudev, 08/23/2004
6881: -- mvasudev, 08/23/2004
6882: -- Code change to enable Business Event
6883: */
6884: raise_business_event(x_return_status => x_return_status);
6885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6888: RAISE OKL_API.G_EXCEPTION_ERROR;
6889: END IF;
6882: -- Code change to enable Business Event
6883: */
6884: raise_business_event(x_return_status => x_return_status);
6885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6888: RAISE OKL_API.G_EXCEPTION_ERROR;
6889: END IF;
6890:
6883: */
6884: raise_business_event(x_return_status => x_return_status);
6885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6888: RAISE OKL_API.G_EXCEPTION_ERROR;
6889: END IF;
6890:
6891: /*
6884: raise_business_event(x_return_status => x_return_status);
6885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6888: RAISE OKL_API.G_EXCEPTION_ERROR;
6889: END IF;
6890:
6891: /*
6892: -- mvasudev, 08/23/2004
6892: -- mvasudev, 08/23/2004
6893: -- END, Code change to enable Business Event
6894: */
6895:
6896: OKL_API.END_ACTIVITY (x_msg_count,
6897: x_msg_data );
6898:
6899: EXCEPTION
6900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6896: OKL_API.END_ACTIVITY (x_msg_count,
6897: x_msg_data );
6898:
6899: EXCEPTION
6900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6901: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6902: l_api_name,
6903: G_PKG_NAME,
6904: 'OKL_API.G_RET_STS_ERROR',
6897: x_msg_data );
6898:
6899: EXCEPTION
6900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6901: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6902: l_api_name,
6903: G_PKG_NAME,
6904: 'OKL_API.G_RET_STS_ERROR',
6905: x_msg_count,
6900: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6901: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6902: l_api_name,
6903: G_PKG_NAME,
6904: 'OKL_API.G_RET_STS_ERROR',
6905: x_msg_count,
6906: x_msg_data,
6907: '_PVT');
6908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6904: 'OKL_API.G_RET_STS_ERROR',
6905: x_msg_count,
6906: x_msg_data,
6907: '_PVT');
6908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6910: l_api_name,
6911: G_PKG_NAME,
6912: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6905: x_msg_count,
6906: x_msg_data,
6907: '_PVT');
6908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6910: l_api_name,
6911: G_PKG_NAME,
6912: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6913: x_msg_count,
6908: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6909: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6910: l_api_name,
6911: G_PKG_NAME,
6912: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6913: x_msg_count,
6914: x_msg_data,
6915: '_PVT');
6916: WHEN OTHERS THEN
6913: x_msg_count,
6914: x_msg_data,
6915: '_PVT');
6916: WHEN OTHERS THEN
6917: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6918: l_api_name,
6919: G_PKG_NAME,
6920: 'OTHERS',
6921: x_msg_count,
6956: x_txdv_tbl OUT NOCOPY txdv_tbl_type,
6957: x_txlv_rec OUT NOCOPY txlv_rec_type,
6958: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
6959:
6960: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
6961: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6962: l_api_version CONSTANT NUMBER := 1.0;
6963: l_ib_tbl ib_tbl_type;
6964: BEGIN
6961: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_SPLIT_TRANSACTION';
6962: l_api_version CONSTANT NUMBER := 1.0;
6963: l_ib_tbl ib_tbl_type;
6964: BEGIN
6965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6966: -- Call start_activity to create savepoint, check compatibility
6967: -- and initialize message list
6968: x_return_status := OKL_API.START_ACTIVITY (
6969: l_api_name
6964: BEGIN
6965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6966: -- Call start_activity to create savepoint, check compatibility
6967: -- and initialize message list
6968: x_return_status := OKL_API.START_ACTIVITY (
6969: l_api_name
6970: ,p_init_msg_list
6971: ,'_PVT'
6972: ,x_return_status);
6970: ,p_init_msg_list
6971: ,'_PVT'
6972: ,x_return_status);
6973: -- Check if activity started successfully
6974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6977: RAISE OKL_API.G_EXCEPTION_ERROR;
6978: END IF;
6971: ,'_PVT'
6972: ,x_return_status);
6973: -- Check if activity started successfully
6974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6977: RAISE OKL_API.G_EXCEPTION_ERROR;
6978: END IF;
6979:
6972: ,x_return_status);
6973: -- Check if activity started successfully
6974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6977: RAISE OKL_API.G_EXCEPTION_ERROR;
6978: END IF;
6979:
6980: --call the overloded procedure :
6973: -- Check if activity started successfully
6974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6977: RAISE OKL_API.G_EXCEPTION_ERROR;
6978: END IF;
6979:
6980: --call the overloded procedure :
6981: Create_Split_Transaction(p_api_version => p_api_version,
6990: x_txdv_tbl => x_txdv_tbl,
6991: x_txlv_rec => x_txlv_rec,
6992: x_trxv_rec => x_trxv_rec);
6993:
6994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6997: RAISE OKL_API.G_EXCEPTION_ERROR;
6998: END IF;
6991: x_txlv_rec => x_txlv_rec,
6992: x_trxv_rec => x_trxv_rec);
6993:
6994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6997: RAISE OKL_API.G_EXCEPTION_ERROR;
6998: END IF;
6999: OKL_API.END_ACTIVITY (x_msg_count,
6992: x_trxv_rec => x_trxv_rec);
6993:
6994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6997: RAISE OKL_API.G_EXCEPTION_ERROR;
6998: END IF;
6999: OKL_API.END_ACTIVITY (x_msg_count,
7000: x_msg_data );
6993:
6994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6997: RAISE OKL_API.G_EXCEPTION_ERROR;
6998: END IF;
6999: OKL_API.END_ACTIVITY (x_msg_count,
7000: x_msg_data );
7001:
6995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6997: RAISE OKL_API.G_EXCEPTION_ERROR;
6998: END IF;
6999: OKL_API.END_ACTIVITY (x_msg_count,
7000: x_msg_data );
7001:
7002: EXCEPTION
7003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6999: OKL_API.END_ACTIVITY (x_msg_count,
7000: x_msg_data );
7001:
7002: EXCEPTION
7003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7005: l_api_name,
7006: G_PKG_NAME,
7007: 'OKL_API.G_RET_STS_ERROR',
7000: x_msg_data );
7001:
7002: EXCEPTION
7003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7005: l_api_name,
7006: G_PKG_NAME,
7007: 'OKL_API.G_RET_STS_ERROR',
7008: x_msg_count,
7003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7005: l_api_name,
7006: G_PKG_NAME,
7007: 'OKL_API.G_RET_STS_ERROR',
7008: x_msg_count,
7009: x_msg_data,
7010: '_PVT');
7011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7007: 'OKL_API.G_RET_STS_ERROR',
7008: x_msg_count,
7009: x_msg_data,
7010: '_PVT');
7011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7013: l_api_name,
7014: G_PKG_NAME,
7015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7008: x_msg_count,
7009: x_msg_data,
7010: '_PVT');
7011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7013: l_api_name,
7014: G_PKG_NAME,
7015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7016: x_msg_count,
7011: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7012: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7013: l_api_name,
7014: G_PKG_NAME,
7015: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7016: x_msg_count,
7017: x_msg_data,
7018: '_PVT');
7019: WHEN OTHERS THEN
7016: x_msg_count,
7017: x_msg_data,
7018: '_PVT');
7019: WHEN OTHERS THEN
7020: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7021: l_api_name,
7022: G_PKG_NAME,
7023: 'OTHERS',
7024: x_msg_count,
7043: p_cle_id IN NUMBER,
7044: p_txdv_tbl IN txdv_tbl_type,
7045: x_txdv_tbl OUT NOCOPY txdv_tbl_type) IS
7046:
7047: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
7048: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_SPLIT_TRX';
7049: l_api_version CONSTANT NUMBER := 1.0;
7050:
7051: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
7076: BEGIN
7077:
7078: -- Call start_activity to create savepoint, check compatibility
7079: -- and initialize message list
7080: x_return_status := OKL_API.START_ACTIVITY (
7081: l_api_name
7082: ,p_init_msg_list
7083: ,'_PVT'
7084: ,x_return_status);
7082: ,p_init_msg_list
7083: ,'_PVT'
7084: ,x_return_status);
7085: -- Check if activity started successfully
7086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7089: RAISE OKL_API.G_EXCEPTION_ERROR;
7090: END IF;
7083: ,'_PVT'
7084: ,x_return_status);
7085: -- Check if activity started successfully
7086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7089: RAISE OKL_API.G_EXCEPTION_ERROR;
7090: END IF;
7091:
7084: ,x_return_status);
7085: -- Check if activity started successfully
7086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7089: RAISE OKL_API.G_EXCEPTION_ERROR;
7090: END IF;
7091:
7092: --Verify cle_id
7085: -- Check if activity started successfully
7086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7089: RAISE OKL_API.G_EXCEPTION_ERROR;
7090: END IF;
7091:
7092: --Verify cle_id
7093: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7090: END IF;
7091:
7092: --Verify cle_id
7093: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7094: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7097: RAISE OKL_API.G_EXCEPTION_ERROR;
7098: END IF;
7091:
7092: --Verify cle_id
7093: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7094: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7097: RAISE OKL_API.G_EXCEPTION_ERROR;
7098: END IF;
7099:
7092: --Verify cle_id
7093: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7094: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7097: RAISE OKL_API.G_EXCEPTION_ERROR;
7098: END IF;
7099:
7100: --get fixed asset line
7093: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
7094: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7096: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7097: RAISE OKL_API.G_EXCEPTION_ERROR;
7098: END IF;
7099:
7100: --get fixed asset line
7101: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
7106: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
7107: IF l_no_data_found THEN
7108: NULL;
7109: --dbms_output.put_line('No pending Split Asset Transactions for this Asset');
7110: OKL_API.set_message(p_app_name => G_APP_NAME,
7111: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
7112: );
7113: ELSE
7114: l_txdv_tbl := p_txdv_tbl;
7125: --Bug# 4994713: convert asset number to upper case
7126: l_txdv_rec.asset_number := UPPER(l_txdv_tbl(j).asset_number);
7127: l_txdv_rec.description := l_txdv_tbl(j).description;
7128: --dbms_output.put_line('l_txdv_rec.id'||to_char(l_txdv_rec.id));
7129: IF (l_txdv_rec.id IS NULL) OR (l_txdv_rec.id = OKL_API.G_MISS_NUM) THEN
7130: EXIT;
7131: ELSE
7132:
7133: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
7138: x_msg_data => x_msg_data,
7139: p_adpv_rec => l_txdv_rec,
7140: x_adpv_rec => lx_txdv_rec);
7141: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7139: p_adpv_rec => l_txdv_rec,
7140: x_adpv_rec => lx_txdv_rec);
7141: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: ---
7140: x_adpv_rec => lx_txdv_rec);
7141: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: ---
7148:
7141: --dbms_output.put_line('after updating the transaction details for asset number '||l_txdv_rec.asset_number||':'||x_return_status);
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: ---
7148:
7149: IF lx_txdv_rec.target_kle_id IS NULL THEN
7148:
7149: IF lx_txdv_rec.target_kle_id IS NULL THEN
7150: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7151:
7152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7155: RAISE OKL_API.G_EXCEPTION_ERROR;
7156: END IF;
7149: IF lx_txdv_rec.target_kle_id IS NULL THEN
7150: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7151:
7152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7155: RAISE OKL_API.G_EXCEPTION_ERROR;
7156: END IF;
7157: END IF;
7150: x_return_status := validate_attributes(p_txdv_rec => lx_txdv_rec);
7151:
7152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7155: RAISE OKL_API.G_EXCEPTION_ERROR;
7156: END IF;
7157: END IF;
7158:
7151:
7152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7155: RAISE OKL_API.G_EXCEPTION_ERROR;
7156: END IF;
7157: END IF;
7158:
7159: --validate if original asset number has been modified
7159: --validate if original asset number has been modified
7160: IF l_txlv_rec.kle_id = lx_txdv_rec.target_kle_id THEN
7161: IF (lx_txdv_rec.asset_number <> l_txlv_rec.asset_number)
7162: OR (lx_txdv_rec.description <> l_txlv_rec.description) THEN
7163: OKL_API.Set_message(p_app_name => G_APP_NAME,
7164: p_msg_name => G_SPLIT_PARENT_NUMBER_CHANGE);
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: END IF;
7161: IF (lx_txdv_rec.asset_number <> l_txlv_rec.asset_number)
7162: OR (lx_txdv_rec.description <> l_txlv_rec.description) THEN
7163: OKL_API.Set_message(p_app_name => G_APP_NAME,
7164: p_msg_name => G_SPLIT_PARENT_NUMBER_CHANGE);
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: END IF;
7168:
7169: lx_txdv_tbl(j) := lx_txdv_rec;
7174: -----
7175: END IF;
7176: END IF;
7177: x_txdv_tbl := lx_txdv_tbl;
7178: OKL_API.END_ACTIVITY (x_msg_count,
7179: x_msg_data );
7180: EXCEPTION
7181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7177: x_txdv_tbl := lx_txdv_tbl;
7178: OKL_API.END_ACTIVITY (x_msg_count,
7179: x_msg_data );
7180: EXCEPTION
7181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7183: l_api_name,
7184: G_PKG_NAME,
7185: 'OKL_API.G_RET_STS_ERROR',
7178: OKL_API.END_ACTIVITY (x_msg_count,
7179: x_msg_data );
7180: EXCEPTION
7181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7183: l_api_name,
7184: G_PKG_NAME,
7185: 'OKL_API.G_RET_STS_ERROR',
7186: x_msg_count,
7181: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7182: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7183: l_api_name,
7184: G_PKG_NAME,
7185: 'OKL_API.G_RET_STS_ERROR',
7186: x_msg_count,
7187: x_msg_data,
7188: '_PVT');
7189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7185: 'OKL_API.G_RET_STS_ERROR',
7186: x_msg_count,
7187: x_msg_data,
7188: '_PVT');
7189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7191: l_api_name,
7192: G_PKG_NAME,
7193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7186: x_msg_count,
7187: x_msg_data,
7188: '_PVT');
7189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7191: l_api_name,
7192: G_PKG_NAME,
7193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7194: x_msg_count,
7189: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7190: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7191: l_api_name,
7192: G_PKG_NAME,
7193: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7194: x_msg_count,
7195: x_msg_data,
7196: '_PVT');
7197: WHEN OTHERS THEN
7194: x_msg_count,
7195: x_msg_data,
7196: '_PVT');
7197: WHEN OTHERS THEN
7198: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7199: l_api_name,
7200: G_PKG_NAME,
7201: 'OTHERS',
7202: x_msg_count,
7739: p_txl_id IN NUMBER) AS
7740:
7741: l_api_name CONSTANT VARCHAR2(256) := 'SPLIT_STREAMS';
7742: l_api_version CONSTANT NUMBER := 1.0;
7743: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7744:
7745:
7746: l_stmv_rec Okl_Streams_pub.stmv_rec_type;
7747: l_selv_tbl Okl_Streams_pub.selv_tbl_type;
7998: l_rounded_amount NUMBER;
7999: l_child_amount NUMBER;
8000:
8001: BEGIN
8002: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8003:
8004: IF ( p_parent_kle_id = p_kle_id ) THEN
8005: l_kle_id := p_kle_id;
8006: ELSE
8041: ,x_msg_data => x_msg_data
8042: ,p_stmv_rec => l_stmv_rec_hist
8043: ,x_stmv_rec => x_stmv_rec);
8044:
8045: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8046: RAISE G_EXCEPTION_HALT_VALIDATION;
8047: END IF;
8048:
8049: END IF;
8108: IF (p_parent_kle_id = p_kle_id ) OR (p_highest_split_comp_amt='Y') THEN
8109:
8110: FOR l_txd_rec in l_txd_csr(p_txl_id)
8111: LOOP
8112: IF NVL(l_txd_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
8113: l_child_split_factor := l_txd_rec.quantity/l_txd_rec.current_units;
8114: ELSE
8115: l_child_split_factor := l_txd_rec.split_percent/100;
8116: END IF;
8125: p_currency_code => l_currency_code,
8126: p_round_option => 'STM',
8127: x_rounded_amount => l_rounded_amount
8128: );
8129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8126: p_round_option => 'STM',
8127: x_rounded_amount => l_rounded_amount
8128: );
8129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8134: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8127: x_rounded_amount => l_rounded_amount
8128: );
8129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8134: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8135: END LOOP;
8128: );
8129: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8130: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8131: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8134: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
8135: END LOOP;
8136: END IF;
8152: p_currency_code => l_currency_code,
8153: p_round_option => 'STM',
8154: x_rounded_amount => l_rounded_amount
8155: );
8156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8159: RAISE OKL_API.G_EXCEPTION_ERROR;
8160: END IF;
8153: p_round_option => 'STM',
8154: x_rounded_amount => l_rounded_amount
8155: );
8156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8159: RAISE OKL_API.G_EXCEPTION_ERROR;
8160: END IF;
8161: l_child_amount :=l_rounded_amount;
8154: x_rounded_amount => l_rounded_amount
8155: );
8156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8159: RAISE OKL_API.G_EXCEPTION_ERROR;
8160: END IF;
8161: l_child_amount :=l_rounded_amount;
8162: --adjust the amount for highest asset percent if split by component
8155: );
8156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8159: RAISE OKL_API.G_EXCEPTION_ERROR;
8160: END IF;
8161: l_child_amount :=l_rounded_amount;
8162: --adjust the amount for highest asset percent if split by component
8163: if p_highest_split_comp_amt='Y' THEN
8206: ,p_selv_tbl => l_selv_tbl_hist
8207: ,x_stmv_rec => x_stmv_rec
8208: ,x_selv_tbl => x_selv_tbl);
8209:
8210: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8211: RAISE G_EXCEPTION_HALT_VALIDATION;
8212: END IF;
8213:
8214: IF (p_split_factor <> 0 ) THEN
8231: ,p_selv_tbl => l_selv_tbl
8232: ,x_stmv_rec => x_stmv_rec
8233: ,x_selv_tbl => x_selv_tbl);
8234:
8235: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8236: RAISE G_EXCEPTION_HALT_VALIDATION;
8237: END IF;
8238: END IF;
8239:
8259: ,p_selv_tbl => l_selv_tbl
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:
8291: END IF;
8292: IF l_strmele_csr%ISOPEN THEN
8293: CLOSE l_strmele_csr;
8294: END IF;
8295: x_return_status := OKL_API.G_RET_STS_ERROR;
8296:
8297: END process_split_streams;
8298: /*begin main body*/
8299: BEGIN
8317: LOOP
8318:
8319: l_split_trx_rec1 := l_split_trx_tbl1(i);
8320:
8321: IF NVL(l_split_trx_rec1.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
8322: l_split_factor := (l_split_trx_rec1.split_percent/100);
8323:
8324: --Bug# 3502142
8325: --Bug# 6344223
8346: --Bug# 6344223
8347: p_highest_split_comp_amt => l_highest_split_comp_amt);
8348:
8349:
8350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8353: RAISE OKL_API.G_EXCEPTION_ERROR;
8354: END IF;
8347: p_highest_split_comp_amt => l_highest_split_comp_amt);
8348:
8349:
8350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8353: RAISE OKL_API.G_EXCEPTION_ERROR;
8354: END IF;
8355:
8348:
8349:
8350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8353: RAISE OKL_API.G_EXCEPTION_ERROR;
8354: END IF;
8355:
8356: --Bug# 3066375:: split streams attached to linked asset lines
8349:
8350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8353: RAISE OKL_API.G_EXCEPTION_ERROR;
8354: END IF;
8355:
8356: --Bug# 3066375:: split streams attached to linked asset lines
8357: 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);
8372: --Bug# 6344223
8373: p_highest_split_comp_amt => l_highest_split_comp_amt);
8374:
8375:
8376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8379: RAISE OKL_API.G_EXCEPTION_ERROR;
8380: END IF;
8373: p_highest_split_comp_amt => l_highest_split_comp_amt);
8374:
8375:
8376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8379: RAISE OKL_API.G_EXCEPTION_ERROR;
8380: END IF;
8381: END LOOP;
8374:
8375:
8376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8379: RAISE OKL_API.G_EXCEPTION_ERROR;
8380: END IF;
8381: END LOOP;
8382: CLOSE l_lnk_asst_csr1;
8375:
8376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8379: RAISE OKL_API.G_EXCEPTION_ERROR;
8380: END IF;
8381: END LOOP;
8382: CLOSE l_lnk_asst_csr1;
8383:
8383:
8384: END LOOP;
8385: END IF;
8386:
8387: IF NVL(l_split_trx_rec1.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
8388: --split asset component : Process_split_streams to historize for parent line
8389: Process_split_streams(p_api_version => p_api_version,
8390: p_init_msg_list => p_init_msg_list,
8391: x_return_status => x_return_status,
8398: p_txl_id => p_txl_id,
8399: --Bug# 6344223
8400: p_highest_split_comp_amt => 'N');
8401:
8402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8405: RAISE OKL_API.G_EXCEPTION_ERROR;
8406: END IF;
8399: --Bug# 6344223
8400: p_highest_split_comp_amt => 'N');
8401:
8402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8405: RAISE OKL_API.G_EXCEPTION_ERROR;
8406: END IF;
8407:
8400: p_highest_split_comp_amt => 'N');
8401:
8402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8405: RAISE OKL_API.G_EXCEPTION_ERROR;
8406: END IF;
8407:
8408: --Bug# 3066375: split streams attached to linked asset lines
8401:
8402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8405: RAISE OKL_API.G_EXCEPTION_ERROR;
8406: END IF;
8407:
8408: --Bug# 3066375: split streams attached to linked asset lines
8409: 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);
8424: --Bug# 6344223
8425: p_highest_split_comp_amt => 'N');
8426:
8427:
8428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8431: RAISE OKL_API.G_EXCEPTION_ERROR;
8432: END IF;
8425: p_highest_split_comp_amt => 'N');
8426:
8427:
8428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8431: RAISE OKL_API.G_EXCEPTION_ERROR;
8432: END IF;
8433: END LOOP;
8426:
8427:
8428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8431: RAISE OKL_API.G_EXCEPTION_ERROR;
8432: END IF;
8433: END LOOP;
8434: CLOSE l_lnk_asst_csr1;
8427:
8428: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8429: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8430: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8431: RAISE OKL_API.G_EXCEPTION_ERROR;
8432: END IF;
8433: END LOOP;
8434: CLOSE l_lnk_asst_csr1;
8435:
8458: --Bug# 6344223
8459: p_highest_split_comp_amt => 'N');
8460:
8461:
8462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8465: RAISE OKL_API.G_EXCEPTION_ERROR;
8466: END IF;
8459: p_highest_split_comp_amt => 'N');
8460:
8461:
8462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8465: RAISE OKL_API.G_EXCEPTION_ERROR;
8466: END IF;
8467:
8460:
8461:
8462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8465: RAISE OKL_API.G_EXCEPTION_ERROR;
8466: END IF;
8467:
8468: --Bug# 3066375: split streams attached to linked asset lines
8461:
8462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8465: RAISE OKL_API.G_EXCEPTION_ERROR;
8466: END IF;
8467:
8468: --Bug# 3066375: split streams attached to linked asset lines
8469: 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);
8483: p_txl_id => p_txl_id,
8484: --Bug# 6344223
8485: p_highest_split_comp_amt => 'N');
8486:
8487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8490: RAISE OKL_API.G_EXCEPTION_ERROR;
8491: END IF;
8484: --Bug# 6344223
8485: p_highest_split_comp_amt => 'N');
8486:
8487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8490: RAISE OKL_API.G_EXCEPTION_ERROR;
8491: END IF;
8492: END LOOP;
8485: p_highest_split_comp_amt => 'N');
8486:
8487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8490: RAISE OKL_API.G_EXCEPTION_ERROR;
8491: END IF;
8492: END LOOP;
8493: CLOSE l_lnk_asst_csr2;
8486:
8487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8490: RAISE OKL_API.G_EXCEPTION_ERROR;
8491: END IF;
8492: END LOOP;
8493: CLOSE l_lnk_asst_csr2;
8494:
8498: NULL;
8499: END IF;
8500:
8501: EXCEPTION
8502: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8503:
8504: IF l_split_trx_csr1%ISOPEN THEN
8505: CLOSE l_split_trx_csr1;
8506: END IF;
8508: IF l_split_trx_csr2%ISOPEN THEN
8509: CLOSE l_split_trx_csr2;
8510: END IF;
8511:
8512: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8513:
8514: IF l_split_trx_csr1%ISOPEN THEN
8515: CLOSE l_split_trx_csr1;
8516: END IF;
8544: IF l_lnk_asst_csr2%ISOPEN THEN
8545: CLOSE l_lnk_asst_csr2;
8546: END IF;
8547:
8548: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8549: END Split_Streams;
8550: --Bug #2648280 End
8551:
8552: ---------------
8552: ---------------
8553: --Bug# 2994971
8554: ---------------
8555: PROCEDURE populate_insurance_category(p_api_version IN NUMBER,
8556: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8557: x_return_status OUT NOCOPY VARCHAR2,
8558: x_msg_count OUT NOCOPY NUMBER,
8559: x_msg_data OUT NOCOPY VARCHAR2,
8560: p_cle_id IN NUMBER,
8579:
8580:
8581: BEGIN
8582:
8583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8584: -- Call start_activity to create savepoint, check compatibility
8585: -- and initialize message list
8586: x_return_status := OKL_API.START_ACTIVITY (l_api_name
8587: ,p_init_msg_list
8582:
8583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8584: -- Call start_activity to create savepoint, check compatibility
8585: -- and initialize message list
8586: x_return_status := OKL_API.START_ACTIVITY (l_api_name
8587: ,p_init_msg_list
8588: ,'_PVT'
8589: ,x_return_status);
8590: -- Check if activity started successfully
8587: ,p_init_msg_list
8588: ,'_PVT'
8589: ,x_return_status);
8590: -- Check if activity started successfully
8591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: RAISE OKL_API.G_EXCEPTION_ERROR;
8595: END IF;
8588: ,'_PVT'
8589: ,x_return_status);
8590: -- Check if activity started successfully
8591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: RAISE OKL_API.G_EXCEPTION_ERROR;
8595: END IF;
8596:
8589: ,x_return_status);
8590: -- Check if activity started successfully
8591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: RAISE OKL_API.G_EXCEPTION_ERROR;
8595: END IF;
8596:
8597: --fetch asset category
8590: -- Check if activity started successfully
8591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: RAISE OKL_API.G_EXCEPTION_ERROR;
8595: END IF;
8596:
8597: --fetch asset category
8598: l_asset_category_id := NULL;
8620: x_clev_rec => lx_clev_rec,
8621: x_klev_rec => lx_klev_rec
8622: );
8623:
8624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8627: RAISE OKL_API.G_EXCEPTION_ERROR;
8628: END IF;
8621: x_klev_rec => lx_klev_rec
8622: );
8623:
8624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8627: RAISE OKL_API.G_EXCEPTION_ERROR;
8628: END IF;
8629:
8622: );
8623:
8624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8627: RAISE OKL_API.G_EXCEPTION_ERROR;
8628: END IF;
8629:
8630: OKL_API.END_ACTIVITY (x_msg_count,
8623:
8624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8627: RAISE OKL_API.G_EXCEPTION_ERROR;
8628: END IF;
8629:
8630: OKL_API.END_ACTIVITY (x_msg_count,
8631: x_msg_data );
8626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8627: RAISE OKL_API.G_EXCEPTION_ERROR;
8628: END IF;
8629:
8630: OKL_API.END_ACTIVITY (x_msg_count,
8631: x_msg_data );
8632: EXCEPTION
8633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8634: IF l_msi_csr%ISOPEN THEN
8629:
8630: OKL_API.END_ACTIVITY (x_msg_count,
8631: x_msg_data );
8632: EXCEPTION
8633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8634: IF l_msi_csr%ISOPEN THEN
8635: CLOSE l_msi_csr;
8636: END IF;
8637: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8633: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8634: IF l_msi_csr%ISOPEN THEN
8635: CLOSE l_msi_csr;
8636: END IF;
8637: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8638: l_api_name,
8639: G_PKG_NAME,
8640: 'OKL_API.G_RET_STS_ERROR',
8641: x_msg_count,
8636: END IF;
8637: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8638: l_api_name,
8639: G_PKG_NAME,
8640: 'OKL_API.G_RET_STS_ERROR',
8641: x_msg_count,
8642: x_msg_data,
8643: '_PVT');
8644: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8640: 'OKL_API.G_RET_STS_ERROR',
8641: x_msg_count,
8642: x_msg_data,
8643: '_PVT');
8644: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8645: IF l_msi_csr%ISOPEN THEN
8646: CLOSE l_msi_csr;
8647: END IF;
8648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8644: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8645: IF l_msi_csr%ISOPEN THEN
8646: CLOSE l_msi_csr;
8647: END IF;
8648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8649: l_api_name,
8650: G_PKG_NAME,
8651: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8652: x_msg_count,
8647: END IF;
8648: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8649: l_api_name,
8650: G_PKG_NAME,
8651: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8652: x_msg_count,
8653: x_msg_data,
8654: '_PVT');
8655: WHEN OTHERS THEN
8655: WHEN OTHERS THEN
8656: IF l_msi_csr%ISOPEN THEN
8657: CLOSE l_msi_csr;
8658: END IF;
8659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8660: l_api_name,
8661: G_PKG_NAME,
8662: 'OTHERS',
8663: x_msg_count,
8672: --modified for Bug# 2648280 - null amounts to remain null on copied lines
8673: --------------------------------------------------------------------------------
8674: PROCEDURE Adjust_Split_Lines(
8675: p_api_version IN NUMBER,
8676: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8677: x_return_status OUT NOCOPY VARCHAR2,
8678: x_msg_count OUT NOCOPY NUMBER,
8679: x_msg_data OUT NOCOPY VARCHAR2,
8680: p_cle_id IN NUMBER, --id of the new top line after copy or parent top line
8683: p_txlv_rec IN txlv_rec_type,
8684: --Bug# 3502142
8685: p_round_split_comp_amt IN VARCHAR2 DEFAULT 'N') IS
8686:
8687: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
8688: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_SPLIT_LINES';
8689: l_api_version CONSTANT NUMBER := 1.0;
8690:
8691: l_parent_cost NUMBER;
9020: l_klev_round_out klev_rec_type;
9021: l_clev_round_out clev_rec_type;
9022: --Bug# 6344223 : end
9023: BEGIN
9024: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9025: -- Call start_activity to create savepoint, check compatibility
9026: -- and initialize message list
9027: x_return_status := OKL_API.START_ACTIVITY (
9028: l_api_name
9023: BEGIN
9024: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9025: -- Call start_activity to create savepoint, check compatibility
9026: -- and initialize message list
9027: x_return_status := OKL_API.START_ACTIVITY (
9028: l_api_name
9029: ,p_init_msg_list
9030: ,'_PVT'
9031: ,x_return_status);
9029: ,p_init_msg_list
9030: ,'_PVT'
9031: ,x_return_status);
9032: -- Check if activity started successfully
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: RAISE OKL_API.G_EXCEPTION_ERROR;
9037: END IF;
9030: ,'_PVT'
9031: ,x_return_status);
9032: -- Check if activity started successfully
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: RAISE OKL_API.G_EXCEPTION_ERROR;
9037: END IF;
9038: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9031: ,x_return_status);
9032: -- Check if activity started successfully
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: RAISE OKL_API.G_EXCEPTION_ERROR;
9037: END IF;
9038: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9039: l_split_factor := (p_txdv_rec.split_percent/100);
9032: -- Check if activity started successfully
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: RAISE OKL_API.G_EXCEPTION_ERROR;
9037: END IF;
9038: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9039: l_split_factor := (p_txdv_rec.split_percent/100);
9040: ELSE
9034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: RAISE OKL_API.G_EXCEPTION_ERROR;
9037: END IF;
9038: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9039: l_split_factor := (p_txdv_rec.split_percent/100);
9040: ELSE
9041: --1. By comparing the cost and quantities on txlv record and txdv record find the split factor
9042: l_parent_cost := p_txlv_rec.depreciation_cost;
9070: FETCH c_lty_code INTO l_lty_code;
9071: IF c_lty_code%NOTFOUND THEN
9072: --dbms_output.put_line('lty_code not found for lse_id "'||to_char(l_lse_id));
9073: --handle error appropriately
9074: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
9075: p_msg_name => G_LTY_CODE_NOT_FOUND
9076: );
9077: RAISE OKL_API.G_EXCEPTION_ERROR;
9078: END IF;
9073: --handle error appropriately
9074: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
9075: p_msg_name => G_LTY_CODE_NOT_FOUND
9076: );
9077: RAISE OKL_API.G_EXCEPTION_ERROR;
9078: END IF;
9079: CLOSE c_lty_code;
9080:
9081: --Bug# 6344223 : start
9089: IF l_lty_code IN ('ITEM','ADD_ITEM','FIXED_ASSET','INST_ITEM','LINK_SERV_ASSET',
9090: 'LINK_FEE_ASSET','LINK_USAGE_ASSET') THEN
9091: l_cimv_rec := get_cimv_rec(p_cle_id => l_cle_id);
9092: IF l_lty_code <> 'INST_ITEM' THEN
9093: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9094: --number of items will remain same in case of split asset components
9095: l_cimv_rec.number_of_items := l_cimv_rec.number_of_items;
9096: ELSE
9097: l_cimv_rec.number_of_items := (l_split_factor*l_cimv_rec.number_of_items);
9110: p_adpv_rec => l_txdv_rec,
9111: x_adpv_rec => l_txdv_rec_out);
9112: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9113: --dbms_output.put_line('After updating trx details:'||x_return_status);
9114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9117: RAISE OKL_API.G_EXCEPTION_ERROR;
9118: END IF;
9111: x_adpv_rec => l_txdv_rec_out);
9112: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9113: --dbms_output.put_line('After updating trx details:'||x_return_status);
9114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9117: RAISE OKL_API.G_EXCEPTION_ERROR;
9118: END IF;
9119: END IF;
9112: --dbms_output.put_line('target kle_id :'||l_txdv_rec_out.target_kle_id);
9113: --dbms_output.put_line('After updating trx details:'||x_return_status);
9114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9117: RAISE OKL_API.G_EXCEPTION_ERROR;
9118: END IF;
9119: END IF;
9120:
9113: --dbms_output.put_line('After updating trx details:'||x_return_status);
9114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9117: RAISE OKL_API.G_EXCEPTION_ERROR;
9118: END IF;
9119: END IF;
9120:
9121: --update the number of items on model and fa lines
9122: --Bug#5559502 --Modification Start
9123: --Update number of items for ADDON record in OKC_K_ITEMS table
9124: IF l_lty_code IN ('ADD_ITEM','ITEM','FIXED_ASSET') THEN
9125: --Bug#5559502 --Modification End
9126: IF (l_cimv_rec.id IS NOT NULL) OR (l_cimv_rec.id <> OKL_API.G_MISS_NUM) THEN
9127: --dbms_output.put_line('cimv rec id'|| to_char(l_cimv_rec.id));
9128: lupd_cimv_rec.id := l_cimv_rec.id;
9129: --dbms_output.put_line('Split Factor '|| to_char(l_split_factor));
9130: --dbms_output.put_line('Split Factor '|| to_char(p_txlv_rec.current_units));
9127: --dbms_output.put_line('cimv rec id'|| to_char(l_cimv_rec.id));
9128: lupd_cimv_rec.id := l_cimv_rec.id;
9129: --dbms_output.put_line('Split Factor '|| to_char(l_split_factor));
9130: --dbms_output.put_line('Split Factor '|| to_char(p_txlv_rec.current_units));
9131: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9132: --number of items will remain same in case of split asset components
9133: lupd_cimv_rec.number_of_items := p_txlv_rec.current_units;
9134: --if it is split asset component update the inventory item on model line
9135: IF l_lty_code = ('ITEM') THEN
9143:
9144: ---------------
9145: --Bug# 2994971
9146: ---------------
9147: IF NVL(lupd_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR AND
9148: NVL(lupd_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR THEN
9149:
9150: --Bug# 3438811 :
9151: l_inv_item_id := TO_NUMBER(lupd_cimv_rec.object1_id1);
9144: ---------------
9145: --Bug# 2994971
9146: ---------------
9147: IF NVL(lupd_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR AND
9148: NVL(lupd_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR THEN
9149:
9150: --Bug# 3438811 :
9151: l_inv_item_id := TO_NUMBER(lupd_cimv_rec.object1_id1);
9152: l_inv_org_id := TO_NUMBER(lupd_cimv_rec.object1_id2);
9160: x_msg_data => x_msg_data,
9161: p_cle_id => l_parent_cle_id,
9162: p_inv_item_id => l_inv_item_id,
9163: p_inv_org_id => l_inv_org_id);
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9161: p_cle_id => l_parent_cle_id,
9162: p_inv_item_id => l_inv_item_id,
9163: p_inv_org_id => l_inv_org_id);
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169: END IF;
9162: p_inv_item_id => l_inv_item_id,
9163: p_inv_org_id => l_inv_org_id);
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169: END IF;
9170: ---------------
9163: p_inv_org_id => l_inv_org_id);
9164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9167: RAISE OKL_API.G_EXCEPTION_ERROR;
9168: END IF;
9169: END IF;
9170: ---------------
9171: --Bug# 2994971
9197: x_msg_data => x_msg_data,
9198: p_cimv_rec => lupd_cimv_rec,
9199: x_cimv_rec => l_cimv_rec_out);
9200: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9204: RAISE OKL_API.G_EXCEPTION_ERROR;
9205: END IF;
9198: p_cimv_rec => lupd_cimv_rec,
9199: x_cimv_rec => l_cimv_rec_out);
9200: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9204: RAISE OKL_API.G_EXCEPTION_ERROR;
9205: END IF;
9206: --End If;
9199: x_cimv_rec => l_cimv_rec_out);
9200: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9204: RAISE OKL_API.G_EXCEPTION_ERROR;
9205: END IF;
9206: --End If;
9207: END IF;
9200: --dbms_output.put_line('After updating contract item to nulls :'||x_return_status);
9201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9204: RAISE OKL_API.G_EXCEPTION_ERROR;
9205: END IF;
9206: --End If;
9207: END IF;
9208:
9232: ,x_clev_rec =>l_clev_round_out
9233: );
9234: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9235:
9236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9239: RAISE OKL_API.G_EXCEPTION_ERROR;
9240: END IF;
9233: );
9234: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9235:
9236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9239: RAISE OKL_API.G_EXCEPTION_ERROR;
9240: END IF;
9241:
9234: --dbms_output.put_line('After get_split_round_amount :'||x_return_status);
9235:
9236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9239: RAISE OKL_API.G_EXCEPTION_ERROR;
9240: END IF;
9241:
9242: l_klev_rec :=l_klev_round_out;
9235:
9236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9239: RAISE OKL_API.G_EXCEPTION_ERROR;
9240: END IF;
9241:
9242: l_klev_rec :=l_klev_round_out;
9243: l_clev_rec :=l_clev_round_out;
9290: l_clev_rec.STS_CODE:=l_cle_status;
9291: --Bug# 5946411: ER End
9292:
9293: --price unit to be split only for split into components
9294: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9295: THEN
9296: NULL;
9297: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9298: --
9293: --price unit to be split only for split into components
9294: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9295: THEN
9296: NULL;
9297: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9298: --
9299: l_clev_rec.price_unit := (l_split_factor * l_clev_rec.price_unit);
9300: l_clev_rec.price_negotiated := (l_split_factor * l_clev_rec.price_negotiated);
9301: l_clev_rec.price_negotiated_renewed := (l_split_factor * l_clev_rec.price_negotiated_renewed);
9320: p_klev_rec => l_klev_rec,
9321: x_clev_rec => l_clev_rec_out,
9322: x_klev_rec => l_klev_rec_out);
9323: --dbms_output.put_line('After updating contract line :'||x_return_status);
9324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9327: RAISE OKL_API.G_EXCEPTION_ERROR;
9328: END IF;
9321: x_clev_rec => l_clev_rec_out,
9322: x_klev_rec => l_klev_rec_out);
9323: --dbms_output.put_line('After updating contract line :'||x_return_status);
9324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9327: RAISE OKL_API.G_EXCEPTION_ERROR;
9328: END IF;
9329:
9322: x_klev_rec => l_klev_rec_out);
9323: --dbms_output.put_line('After updating contract line :'||x_return_status);
9324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9327: RAISE OKL_API.G_EXCEPTION_ERROR;
9328: END IF;
9329:
9330: -------------------------------------------------------
9323: --dbms_output.put_line('After updating contract line :'||x_return_status);
9324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9327: RAISE OKL_API.G_EXCEPTION_ERROR;
9328: END IF;
9329:
9330: -------------------------------------------------------
9331: --Bug# 3143522: subsidies - Validate all associated subsidies
9357: x_msg_count => x_msg_count,
9358: x_msg_data => x_msg_data,
9359: p_asb_rec => l_asb_rec);
9360:
9361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9364: RAISE OKL_API.G_EXCEPTION_ERROR;
9365: END IF;
9358: x_msg_data => x_msg_data,
9359: p_asb_rec => l_asb_rec);
9360:
9361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9364: RAISE OKL_API.G_EXCEPTION_ERROR;
9365: END IF;
9366:
9359: p_asb_rec => l_asb_rec);
9360:
9361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9364: RAISE OKL_API.G_EXCEPTION_ERROR;
9365: END IF;
9366:
9367: /*------------------Commented as this will be done as part of copy lines now
9360:
9361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9364: RAISE OKL_API.G_EXCEPTION_ERROR;
9365: END IF;
9366:
9367: /*------------------Commented as this will be done as part of copy lines now
9368: ------------------------------------------
9421: x_msg_data => x_msg_data,
9422: p_sidv_rec => l_sidv_rec,
9423: x_sidv_rec => lx_sidv_rec);
9424:
9425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9428: RAISE OKL_API.G_EXCEPTION_ERROR;
9429: END IF;
9422: p_sidv_rec => l_sidv_rec,
9423: x_sidv_rec => lx_sidv_rec);
9424:
9425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9428: RAISE OKL_API.G_EXCEPTION_ERROR;
9429: END IF;
9430:
9423: x_sidv_rec => lx_sidv_rec);
9424:
9425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9428: RAISE OKL_API.G_EXCEPTION_ERROR;
9429: END IF;
9430:
9431: END IF;
9424:
9425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9428: RAISE OKL_API.G_EXCEPTION_ERROR;
9429: END IF;
9430:
9431: END IF;
9432: END IF;
9462: p_currency_code => l_sll_rec.currency_code,
9463: p_round_option => 'STM',
9464: x_rounded_amount => l_rounded_amount
9465: );
9466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9469: RAISE OKL_API.G_EXCEPTION_ERROR;
9470: END IF;
9463: p_round_option => 'STM',
9464: x_rounded_amount => l_rounded_amount
9465: );
9466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9469: RAISE OKL_API.G_EXCEPTION_ERROR;
9470: END IF;
9471:
9464: x_rounded_amount => l_rounded_amount
9465: );
9466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9469: RAISE OKL_API.G_EXCEPTION_ERROR;
9470: END IF;
9471:
9472: l_updated_sll_amount := l_rounded_amount;
9465: );
9466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9469: RAISE OKL_API.G_EXCEPTION_ERROR;
9470: END IF;
9471:
9472: l_updated_sll_amount := l_rounded_amount;
9473:
9485: p_currency_code => l_sll_rec.currency_code,
9486: p_round_option => 'STM',
9487: x_rounded_amount => l_rounded_amount
9488: );
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9486: p_round_option => 'STM',
9487: x_rounded_amount => l_rounded_amount
9488: );
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9487: x_rounded_amount => l_rounded_amount
9488: );
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9495: l_updated_stub_amount := l_rounded_amount;
9488: );
9489: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9490: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9492: RAISE OKL_API.G_EXCEPTION_ERROR;
9493: END IF;
9494:
9495: l_updated_stub_amount := l_rounded_amount;
9496:
9495: l_updated_stub_amount := l_rounded_amount;
9496:
9497: --update the rule record
9498: l_rulv_rec.id := l_sll_rec.sll_id;
9499: IF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9500: l_rulv_rec.rule_information6 := l_updated_sll_amount;
9501: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9502: l_rulv_rec.rule_information6 := NULL;
9503: END IF;
9497: --update the rule record
9498: l_rulv_rec.id := l_sll_rec.sll_id;
9499: IF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9500: l_rulv_rec.rule_information6 := l_updated_sll_amount;
9501: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9502: l_rulv_rec.rule_information6 := NULL;
9503: END IF;
9504: --Bug# 2757289 :enhancement for stub payments
9505: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9501: ELSIF NVL(l_updated_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9502: l_rulv_rec.rule_information6 := NULL;
9503: END IF;
9504: --Bug# 2757289 :enhancement for stub payments
9505: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9506: l_rulv_rec.rule_information8 := l_updated_stub_amount;
9507: ELSIF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9508: l_rulv_rec.rule_information8 := NULL;
9509: END IF;
9503: END IF;
9504: --Bug# 2757289 :enhancement for stub payments
9505: IF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9506: l_rulv_rec.rule_information8 := l_updated_stub_amount;
9507: ELSIF NVL(l_updated_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9508: l_rulv_rec.rule_information8 := NULL;
9509: END IF;
9510:
9511: OKL_RULE_PUB.update_rule(
9516: x_msg_data => x_msg_data,
9517: p_rulv_rec => l_rulv_rec,
9518: x_rulv_rec => l_rulv_rec_out);
9519: --dbms_output.put_line('After updating payments :'||x_return_status);
9520: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9522: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9523: RAISE OKL_API.G_EXCEPTION_ERROR;
9524: END IF;
9517: p_rulv_rec => l_rulv_rec,
9518: x_rulv_rec => l_rulv_rec_out);
9519: --dbms_output.put_line('After updating payments :'||x_return_status);
9520: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9522: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9523: RAISE OKL_API.G_EXCEPTION_ERROR;
9524: END IF;
9525: END LOOP;
9518: x_rulv_rec => l_rulv_rec_out);
9519: --dbms_output.put_line('After updating payments :'||x_return_status);
9520: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9522: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9523: RAISE OKL_API.G_EXCEPTION_ERROR;
9524: END IF;
9525: END LOOP;
9526: CLOSE l_sll_cur;
9519: --dbms_output.put_line('After updating payments :'||x_return_status);
9520: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9522: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9523: RAISE OKL_API.G_EXCEPTION_ERROR;
9524: END IF;
9525: END LOOP;
9526: CLOSE l_sll_cur;
9527:
9541:
9542: l_split_pymt_sum := 0;
9543:
9544: -- Split into units
9545: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
9546: l_target_kle_id := p_txlv_rec.kle_id;
9547:
9548: -- Split into components
9549: ELSE
9556: FOR l_txd_rec in l_txd_csr(p_tal_id => p_txlv_rec.id
9557: ,p_cle_id => l_target_kle_id)
9558: LOOP
9559:
9560: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
9561: l_sll_split_factor := l_txd_rec.quantity/p_txlv_rec.current_units;
9562: ELSE
9563: l_sll_split_factor := l_txd_rec.split_percent/100;
9564: END IF;
9562: ELSE
9563: l_sll_split_factor := l_txd_rec.split_percent/100;
9564: END IF;
9565:
9566: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9567: l_split_pymt := l_sll_amount * l_sll_split_factor;
9568: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9569: l_split_pymt := l_stub_amount * l_sll_split_factor;
9570: END IF;
9564: END IF;
9565:
9566: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9567: l_split_pymt := l_sll_amount * l_sll_split_factor;
9568: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9569: l_split_pymt := l_stub_amount * l_sll_split_factor;
9570: END IF;
9571:
9572: okl_accounting_util.round_amount(
9579: p_currency_code => l_sll_rec.currency_code,
9580: p_round_option => 'STM',
9581: x_rounded_amount => l_rounded_amount
9582: );
9583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9586: RAISE OKL_API.G_EXCEPTION_ERROR;
9587: END IF;
9580: p_round_option => 'STM',
9581: x_rounded_amount => l_rounded_amount
9582: );
9583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9586: RAISE OKL_API.G_EXCEPTION_ERROR;
9587: END IF;
9588:
9581: x_rounded_amount => l_rounded_amount
9582: );
9583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9586: RAISE OKL_API.G_EXCEPTION_ERROR;
9587: END IF;
9588:
9589: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
9582: );
9583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9585: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9586: RAISE OKL_API.G_EXCEPTION_ERROR;
9587: END IF;
9588:
9589: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
9590:
9591: END LOOP;
9592:
9593: --update the rule record
9594: l_rulv_rec.id := l_sll_rec.sll_id;
9595: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9596: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
9597: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9598: l_rulv_rec.rule_information6 := NULL;
9599: END IF;
9593: --update the rule record
9594: l_rulv_rec.id := l_sll_rec.sll_id;
9595: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9596: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
9597: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9598: l_rulv_rec.rule_information6 := NULL;
9599: END IF;
9600: --Bug# 2757289 :enhancement for stub payments
9601: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9597: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9598: l_rulv_rec.rule_information6 := NULL;
9599: END IF;
9600: --Bug# 2757289 :enhancement for stub payments
9601: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9602: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
9603: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9604: l_rulv_rec.rule_information8 := NULL;
9605: END IF;
9599: END IF;
9600: --Bug# 2757289 :enhancement for stub payments
9601: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9602: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
9603: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9604: l_rulv_rec.rule_information8 := NULL;
9605: END IF;
9606:
9607: OKL_RULE_PUB.update_rule(
9612: x_msg_data => x_msg_data,
9613: p_rulv_rec => l_rulv_rec,
9614: x_rulv_rec => l_rulv_rec_out);
9615: --dbms_output.put_line('After updating payments :'||x_return_status);
9616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9619: RAISE OKL_API.G_EXCEPTION_ERROR;
9620: END IF;
9613: p_rulv_rec => l_rulv_rec,
9614: x_rulv_rec => l_rulv_rec_out);
9615: --dbms_output.put_line('After updating payments :'||x_return_status);
9616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9619: RAISE OKL_API.G_EXCEPTION_ERROR;
9620: END IF;
9621: END LOOP;
9614: x_rulv_rec => l_rulv_rec_out);
9615: --dbms_output.put_line('After updating payments :'||x_return_status);
9616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9619: RAISE OKL_API.G_EXCEPTION_ERROR;
9620: END IF;
9621: END LOOP;
9622: CLOSE l_sll_cur;
9615: --dbms_output.put_line('After updating payments :'||x_return_status);
9616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9619: RAISE OKL_API.G_EXCEPTION_ERROR;
9620: END IF;
9621: END LOOP;
9622: CLOSE l_sll_cur;
9623: END IF;
9687: l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT := (l_split_factor * l_lnk_klev_rec.SUBSIDY_OVERRIDE_AMOUNT);
9688: --
9689: --price unit to be split only for split into components
9690: --old record to be adjusted only for normal split asset
9691: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9692: THEN
9693: NULL;
9694: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9695: --
9690: --old record to be adjusted only for normal split asset
9691: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM)
9692: THEN
9693: NULL;
9694: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9695: --
9696: l_lnk_clev_rec.price_unit := (l_split_factor * l_lnk_clev_rec.price_unit);
9697: l_lnk_clev_rec.price_negotiated := (l_split_factor * l_lnk_clev_rec.price_negotiated);
9698: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
9699: --make the old line as 'ABANDONED'
9700: --l_lnk_clev_old_rec.sts_code := 'ABANDONED';
9701: END IF;
9702: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9703: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9704: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9705: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9706: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9707: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9700: --l_lnk_clev_old_rec.sts_code := 'ABANDONED';
9701: END IF;
9702: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9703: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9704: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9705: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9706: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9707: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9708: --l_lnk_clev_rec.START_DATE := sysdate;
9701: END IF;
9702: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9703: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9704: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9705: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9706: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9707: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9708: --l_lnk_clev_rec.START_DATE := sysdate;
9709: --l_clev_rec.END_DATE :=
9702: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
9703: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
9704: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9705: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
9706: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
9707: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9708: --l_lnk_clev_rec.START_DATE := sysdate;
9709: --l_clev_rec.END_DATE :=
9710: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9707: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
9708: --l_lnk_clev_rec.START_DATE := sysdate;
9709: --l_clev_rec.END_DATE :=
9710: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9711: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9712: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9713: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9714: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9715: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9708: --l_lnk_clev_rec.START_DATE := sysdate;
9709: --l_clev_rec.END_DATE :=
9710: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9711: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9712: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9713: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9714: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9715: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9716: --Bug# 5946411: ER
9709: --l_clev_rec.END_DATE :=
9710: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9711: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9712: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9713: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9714: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9715: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9716: --Bug# 5946411: ER
9717: --set the status same as that of the parent line
9710: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
9711: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9712: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9713: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9714: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9715: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9716: --Bug# 5946411: ER
9717: --set the status same as that of the parent line
9718: --make new line as BOOKED
9711: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9712: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9713: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9714: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9715: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9716: --Bug# 5946411: ER
9717: --set the status same as that of the parent line
9718: --make new line as BOOKED
9719: --l_lnk_clev_rec.STS_CODE := 'BOOKED';
9723: --bug# 3066375
9724: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
9725: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9726: ----
9727: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9724: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
9725: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9726: ----
9727: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9725: l_lnk_clev_rec.item_description := l_txdv_rec.description;
9726: ----
9727: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9733: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9726: ----
9727: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9733: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9734:
9727: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9733: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9734:
9735:
9728: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9733: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9734:
9735:
9736: OKL_CONTRACT_PUB.create_contract_line(
9729: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9730: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9731: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9732: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9733: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9734:
9735:
9736: OKL_CONTRACT_PUB.create_contract_line(
9737: p_api_version => p_api_version,
9743: p_klev_rec => l_lnk_klev_rec,
9744: x_clev_rec => lx_lnk_clev_rec,
9745: x_klev_rec => lx_lnk_klev_rec);
9746: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9744: x_clev_rec => lx_lnk_clev_rec,
9745: x_klev_rec => lx_lnk_klev_rec);
9746: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9745: x_klev_rec => lx_lnk_klev_rec);
9746: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9753: l_lnk_cimv_rec := get_cimv_rec(p_cle_id => l_lnk_line_id, x_no_data_found => l_no_data_found);
9746: --dbms_output.put_line('After creating service fee link line :'||x_return_status);
9747: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9748: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9749: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_ERROR;
9751: END IF;
9752:
9753: l_lnk_cimv_rec := get_cimv_rec(p_cle_id => l_lnk_line_id, x_no_data_found => l_no_data_found);
9754:
9757: --raise appropriate error
9758: ELSE
9759: --End If;
9760: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
9761: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
9762: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9763: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9764: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9765:
9758: ELSE
9759: --End If;
9760: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
9761: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
9762: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9763: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9764: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9765:
9766: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9762: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
9763: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
9764: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
9765:
9766: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
9767: --number of items will remain same in case of split asset components
9768: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS;
9769: ELSE
9770: --number of items will be split in case of normal split asset
9770: --number of items will be split in case of normal split asset
9771: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS * l_split_factor;
9772: END IF;
9773:
9774: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9775: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9776: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9771: l_lnk_cimv_rec.NUMBER_OF_ITEMS := l_lnk_cimv_rec.NUMBER_OF_ITEMS * l_split_factor;
9772: END IF;
9773:
9774: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9775: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9776: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9779:
9772: END IF;
9773:
9774: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9775: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9776: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9779:
9780: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9773:
9774: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9775: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9776: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9779:
9780: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9781: p_init_msg_list => p_init_msg_list,
9774: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
9775: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
9776: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
9777: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
9778: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
9779:
9780: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
9781: p_init_msg_list => p_init_msg_list,
9782: x_return_status => x_return_status,
9784: x_msg_data => x_msg_data,
9785: p_cimv_rec => l_lnk_cimv_rec,
9786: x_cimv_rec => lx_lnk_cimv_rec);
9787:
9788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9791: RAISE OKL_API.G_EXCEPTION_ERROR;
9792: END IF;
9785: p_cimv_rec => l_lnk_cimv_rec,
9786: x_cimv_rec => lx_lnk_cimv_rec);
9787:
9788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9791: RAISE OKL_API.G_EXCEPTION_ERROR;
9792: END IF;
9793:
9786: x_cimv_rec => lx_lnk_cimv_rec);
9787:
9788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9791: RAISE OKL_API.G_EXCEPTION_ERROR;
9792: END IF;
9793:
9794: END IF;
9787:
9788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9791: RAISE OKL_API.G_EXCEPTION_ERROR;
9792: END IF;
9793:
9794: END IF;
9795: END IF;
9826: p_rgpv_rec => l_rgpv_rec,
9827: x_rgpv_rec => lx_rgpv_rec);
9828:
9829: --dbms_output.put_line('After updating payments :'||x_return_status);
9830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9833: RAISE OKL_API.G_EXCEPTION_ERROR;
9834: END IF;
9827: x_rgpv_rec => lx_rgpv_rec);
9828:
9829: --dbms_output.put_line('After updating payments :'||x_return_status);
9830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9833: RAISE OKL_API.G_EXCEPTION_ERROR;
9834: END IF;
9835: END IF;
9828:
9829: --dbms_output.put_line('After updating payments :'||x_return_status);
9830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9833: RAISE OKL_API.G_EXCEPTION_ERROR;
9834: END IF;
9835: END IF;
9836:
9829: --dbms_output.put_line('After updating payments :'||x_return_status);
9830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9833: RAISE OKL_API.G_EXCEPTION_ERROR;
9834: END IF;
9835: END IF;
9836:
9837: --Bug# 3897490
9858: p_rulv_rec => l_slh_rulv_rec,
9859: x_rulv_rec => lx_slh_rulv_rec);
9860:
9861: --dbms_output.put_line('After updating payments :'||x_return_status);
9862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9865: RAISE OKL_API.G_EXCEPTION_ERROR;
9866: END IF;
9859: x_rulv_rec => lx_slh_rulv_rec);
9860:
9861: --dbms_output.put_line('After updating payments :'||x_return_status);
9862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9865: RAISE OKL_API.G_EXCEPTION_ERROR;
9866: END IF;
9867:
9860:
9861: --dbms_output.put_line('After updating payments :'||x_return_status);
9862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9865: RAISE OKL_API.G_EXCEPTION_ERROR;
9866: END IF;
9867:
9868: --Bug# 3897490
9861: --dbms_output.put_line('After updating payments :'||x_return_status);
9862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9865: RAISE OKL_API.G_EXCEPTION_ERROR;
9866: END IF;
9867:
9868: --Bug# 3897490
9869: l_strm_type_id := l_sll_rec.strm_type_id1;
9888: l_sll_rulv_rec.rule_information2 := l_sll_rec.rule_information2;
9889: l_sll_rulv_rec.rule_information3 := l_sll_rec.rule_information3;
9890: l_sll_rulv_rec.rule_information4 := l_sll_rec.rule_information4;
9891: l_sll_rulv_rec.rule_information5 := l_sll_rec.rule_information5;
9892: IF NVL(TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9893:
9894: --Bug# 4028371
9895: --Bug# 3502142: Use Streams Rounding Option
9896: l_updated_sll_amount := TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor;
9904: p_currency_code => l_sll_rec.currency_code,
9905: p_round_option => 'STM',
9906: x_rounded_amount => l_rounded_amount
9907: );
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9905: p_round_option => 'STM',
9906: x_rounded_amount => l_rounded_amount
9907: );
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913:
9906: x_rounded_amount => l_rounded_amount
9907: );
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913:
9914: l_updated_sll_amount := l_rounded_amount;
9907: );
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913:
9914: l_updated_sll_amount := l_rounded_amount;
9915: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
9913:
9914: l_updated_sll_amount := l_rounded_amount;
9915: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
9916:
9917: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_sll)*l_split_factor,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9918: l_sll_rulv_rec.rule_information6 := NULL;
9919: END IF;
9920: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
9921: --Bug# 2757289 : For stup payments
9918: l_sll_rulv_rec.rule_information6 := NULL;
9919: END IF;
9920: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
9921: --Bug# 2757289 : For stup payments
9922: IF NVL(TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
9923:
9924: --Bug# 4028371
9925: --Bug# 3502142: Use Streams Rounding Option
9926: l_updated_stub_amount := TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor;
9934: p_currency_code => l_sll_rec.currency_code,
9935: p_round_option => 'STM',
9936: x_rounded_amount => l_rounded_amount
9937: );
9938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_ERROR;
9942: END IF;
9935: p_round_option => 'STM',
9936: x_rounded_amount => l_rounded_amount
9937: );
9938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_ERROR;
9942: END IF;
9943:
9936: x_rounded_amount => l_rounded_amount
9937: );
9938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_ERROR;
9942: END IF;
9943:
9944: l_updated_stub_amount := l_rounded_amount;
9937: );
9938: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9940: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_ERROR;
9942: END IF;
9943:
9944: l_updated_stub_amount := l_rounded_amount;
9945: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
9943:
9944: l_updated_stub_amount := l_rounded_amount;
9945: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
9946:
9947: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_stub)*l_split_factor,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
9948: l_sll_rulv_rec.rule_information8 := NULL;
9949: END IF;
9950: --l_sll_rulv_rec.rule_information8 := l_sll_rec.rule_information8;
9951: l_sll_rulv_rec.rule_information9 := l_sll_rec.rule_information9;
9965: p_rulv_rec => l_sll_rulv_rec,
9966: x_rulv_rec => lx_sll_rulv_rec);
9967:
9968: --dbms_output.put_line('After updating payments :'||x_return_status);
9969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9972: RAISE OKL_API.G_EXCEPTION_ERROR;
9973: END IF;
9966: x_rulv_rec => lx_sll_rulv_rec);
9967:
9968: --dbms_output.put_line('After updating payments :'||x_return_status);
9969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9972: RAISE OKL_API.G_EXCEPTION_ERROR;
9973: END IF;
9974:
9967:
9968: --dbms_output.put_line('After updating payments :'||x_return_status);
9969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9972: RAISE OKL_API.G_EXCEPTION_ERROR;
9973: END IF;
9974:
9975: ------------------------------------------------------------------------
9968: --dbms_output.put_line('After updating payments :'||x_return_status);
9969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9972: RAISE OKL_API.G_EXCEPTION_ERROR;
9973: END IF;
9974:
9975: ------------------------------------------------------------------------
9976:
10054: END IF;
10055: END LOOP;
10056:
10057: -- Split into units
10058: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10059:
10060: --update contract line
10061: OKL_CONTRACT_PUB.update_contract_line(
10062: p_api_version => p_api_version,
10068: p_klev_rec => l_lnk_klev_old_rec,
10069: x_clev_rec => lx_lnk_clev_old_rec,
10070: x_klev_rec => lx_lnk_klev_old_rec);
10071: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10075: RAISE OKL_API.G_EXCEPTION_ERROR;
10076: END IF;
10069: x_clev_rec => lx_lnk_clev_old_rec,
10070: x_klev_rec => lx_lnk_klev_old_rec);
10071: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10075: RAISE OKL_API.G_EXCEPTION_ERROR;
10076: END IF;
10077:
10070: x_klev_rec => lx_lnk_klev_old_rec);
10071: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10075: RAISE OKL_API.G_EXCEPTION_ERROR;
10076: END IF;
10077:
10078: -- Split into components
10071: --dbms_output.put_line('After updating service fee link line :'||x_return_status);
10072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10075: RAISE OKL_API.G_EXCEPTION_ERROR;
10076: END IF;
10077:
10078: -- Split into components
10079: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10075: RAISE OKL_API.G_EXCEPTION_ERROR;
10076: END IF;
10077:
10078: -- Split into components
10079: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10080:
10081: l_lnk_klev_rec := l_lnk_klev_old_rec;
10082: --
10083: l_lnk_clev_rec.price_unit := (l_split_factor * l_lnk_clev_rec.price_unit);
10084: l_lnk_clev_rec.price_negotiated := (l_split_factor * l_lnk_clev_rec.price_negotiated);
10085: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
10086:
10087: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10088: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10089: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10090: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10091: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10085: l_lnk_clev_rec.price_negotiated_renewed := (l_split_factor * l_lnk_clev_rec.price_negotiated_renewed);
10086:
10087: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10088: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10089: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10090: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10091: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10093:
10086:
10087: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10088: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10089: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10090: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10091: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10093:
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10087: l_lnk_clev_rec.ORIG_SYSTEM_ID1 := l_lnk_clev_rec.ID;
10088: l_lnk_clev_rec.ID := OKL_API.G_MISS_NUM;
10089: l_lnk_clev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10090: l_lnk_clev_rec.SFWT_FLAG := OKL_API.G_MISS_CHAR;
10091: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10093:
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10091: l_lnk_clev_rec.LINE_NUMBER := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10093:
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10096: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10097: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10098: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10099: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10092: l_lnk_clev_rec.DISPLAY_SEQUENCE := l_clev_rec.DISPLAY_SEQUENCE + 1;
10093:
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10096: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10097: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10098: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10099: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10100: --make new line as BOOKED
10093:
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10096: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10097: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10098: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10099: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10100: --make new line as BOOKED
10101: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10094: l_lnk_clev_rec.ORIG_SYSTEM_SOURCE_CODE := 'OKL_SPLIT';
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10096: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10097: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10098: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10099: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10100: --make new line as BOOKED
10101: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10102: --bug# 3066375
10095: l_lnk_clev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10096: l_lnk_clev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10097: l_lnk_clev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10098: l_lnk_clev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10099: l_lnk_clev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10100: --make new line as BOOKED
10101: l_lnk_clev_rec.STS_CODE := 'BOOKED';
10102: --bug# 3066375
10103: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10102: --bug# 3066375
10103: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10104: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10105: ----
10106: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10103: l_lnk_clev_rec.name := l_txdv_rec.asset_number;
10104: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10105: ----
10106: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10104: l_lnk_clev_rec.item_description := l_txdv_rec.description;
10105: ----
10106: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10112: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10105: ----
10106: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10112: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10113:
10106: l_lnk_klev_rec.ID := OKL_API.G_MISS_NUM;
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10112: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10113:
10114: OKL_CONTRACT_PUB.create_contract_line(
10107: l_lnk_klev_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10112: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10113:
10114: OKL_CONTRACT_PUB.create_contract_line(
10115: p_api_version => p_api_version,
10108: l_lnk_klev_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10109: l_lnk_klev_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10110: l_klev_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10111: l_klev_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10112: l_klev_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10113:
10114: OKL_CONTRACT_PUB.create_contract_line(
10115: p_api_version => p_api_version,
10116: p_init_msg_list => p_init_msg_list,
10121: p_klev_rec => l_lnk_klev_rec,
10122: x_clev_rec => lx_lnk_clev_rec,
10123: x_klev_rec => lx_lnk_klev_rec);
10124: --dbms_output.put_line('After creating 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_rec,
10123: x_klev_rec => lx_lnk_klev_rec);
10124: --dbms_output.put_line('After creating 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_rec);
10124: --dbms_output.put_line('After creating 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: END IF;
10124: --dbms_output.put_line('After creating 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: END IF;
10132:
10138: ELSE
10139: l_lnk_cimv_old_rec := l_lnk_cimv_rec;
10140:
10141: -- Split into units
10142: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10143:
10144: FOR l_new_lnk_assts_rec in l_new_lnk_assts_cur
10145: (p_chr_id => l_lnk_clev_old_rec.dnz_chr_id,
10146: p_cle_id => l_lnk_line_id) LOOP
10164: x_msg_data => x_msg_data,
10165: p_cimv_rec => l_lnk_cimv_old_rec,
10166: x_cimv_rec => lx_lnk_cimv_old_rec);
10167:
10168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10171: RAISE OKL_API.G_EXCEPTION_ERROR;
10172: END IF;
10165: p_cimv_rec => l_lnk_cimv_old_rec,
10166: x_cimv_rec => lx_lnk_cimv_old_rec);
10167:
10168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10171: RAISE OKL_API.G_EXCEPTION_ERROR;
10172: END IF;
10173:
10166: x_cimv_rec => lx_lnk_cimv_old_rec);
10167:
10168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10171: RAISE OKL_API.G_EXCEPTION_ERROR;
10172: END IF;
10173:
10174: -- Split into components
10167:
10168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10171: RAISE OKL_API.G_EXCEPTION_ERROR;
10172: END IF;
10173:
10174: -- Split into components
10175: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10171: RAISE OKL_API.G_EXCEPTION_ERROR;
10172: END IF;
10173:
10174: -- Split into components
10175: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10176:
10177: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10178: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10179: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10173:
10174: -- Split into components
10175: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10176:
10177: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10178: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10179: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10180: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10181:
10174: -- Split into components
10175: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10176:
10177: l_lnk_cimv_rec.ID := OKL_API.G_MISS_NUM;
10178: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10179: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10180: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10181:
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10178: l_lnk_cimv_rec.OBJECT_VERSION_NUMBER := OKL_API.G_MISS_NUM;
10179: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10180: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10181:
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10183: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10184: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10185: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10186: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10179: l_lnk_cimv_rec.OBJECT1_ID1 := TO_CHAR(p_cle_id);
10180: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10181:
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10183: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10184: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10185: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10186: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10187:
10180: l_lnk_cimv_rec.CLE_ID := lx_lnk_clev_rec.id;
10181:
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10183: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10184: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10185: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10186: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10187:
10188: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10181:
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10183: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10184: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10185: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10186: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10187:
10188: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10189: p_init_msg_list => p_init_msg_list,
10182: l_lnk_cimv_rec.CREATED_BY := OKL_API.G_MISS_NUM;
10183: l_lnk_cimv_rec.CREATION_DATE := OKL_API.G_MISS_DATE;
10184: l_lnk_cimv_rec.LAST_UPDATED_BY := OKL_API.G_MISS_NUM;
10185: l_lnk_cimv_rec.LAST_UPDATE_DATE := OKL_API.G_MISS_DATE;
10186: l_lnk_cimv_rec.LAST_UPDATE_LOGIN := OKL_API.G_MISS_NUM;
10187:
10188: OKL_OKC_MIGRATION_PVT.create_contract_item( p_api_version => p_api_version,
10189: p_init_msg_list => p_init_msg_list,
10190: x_return_status => x_return_status,
10192: x_msg_data => x_msg_data,
10193: p_cimv_rec => l_lnk_cimv_rec,
10194: x_cimv_rec => lx_lnk_cimv_rec);
10195:
10196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_ERROR;
10200: END IF;
10193: p_cimv_rec => l_lnk_cimv_rec,
10194: x_cimv_rec => lx_lnk_cimv_rec);
10195:
10196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_ERROR;
10200: END IF;
10201: END IF;
10194: x_cimv_rec => lx_lnk_cimv_rec);
10195:
10196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_ERROR;
10200: END IF;
10201: END IF;
10202:
10195:
10196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_ERROR;
10200: END IF;
10201: END IF;
10202:
10203: END IF; -- cimv rec found
10215:
10216: l_split_pymt_sum := 0;
10217:
10218: -- Split into units
10219: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10220: l_target_kle_id := p_txlv_rec.kle_id;
10221:
10222: -- Split into components
10223: ELSE
10230: FOR l_txd_rec in l_txd_csr(p_tal_id => p_txlv_rec.id
10231: ,p_cle_id => l_target_kle_id)
10232: LOOP
10233:
10234: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10235: l_sll_split_factor := l_txd_rec.quantity/p_txlv_rec.current_units;
10236: ELSE
10237: l_sll_split_factor := l_txd_rec.split_percent/100;
10238: END IF;
10236: ELSE
10237: l_sll_split_factor := l_txd_rec.split_percent/100;
10238: END IF;
10239:
10240: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10241: l_split_pymt := l_sll_amount * l_sll_split_factor;
10242: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10243: l_split_pymt := l_stub_amount * l_sll_split_factor;
10244: END IF;
10238: END IF;
10239:
10240: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10241: l_split_pymt := l_sll_amount * l_sll_split_factor;
10242: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10243: l_split_pymt := l_stub_amount * l_sll_split_factor;
10244: END IF;
10245:
10246: okl_accounting_util.round_amount(
10253: p_currency_code => l_sll_rec.currency_code,
10254: p_round_option => 'STM',
10255: x_rounded_amount => l_rounded_amount
10256: );
10257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10260: RAISE OKL_API.G_EXCEPTION_ERROR;
10261: END IF;
10254: p_round_option => 'STM',
10255: x_rounded_amount => l_rounded_amount
10256: );
10257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10260: RAISE OKL_API.G_EXCEPTION_ERROR;
10261: END IF;
10262:
10255: x_rounded_amount => l_rounded_amount
10256: );
10257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10260: RAISE OKL_API.G_EXCEPTION_ERROR;
10261: END IF;
10262:
10263: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
10256: );
10257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10260: RAISE OKL_API.G_EXCEPTION_ERROR;
10261: END IF;
10262:
10263: l_split_pymt_sum := l_split_pymt_sum + l_rounded_amount;
10264:
10264:
10265: END LOOP;
10266:
10267: -- Split into units
10268: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10269:
10270: --update the rule record
10271: l_rulv_rec.id := l_sll_rec.sll_id;
10272: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10268: IF NVL(p_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
10269:
10270: --update the rule record
10271: l_rulv_rec.id := l_sll_rec.sll_id;
10272: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10273: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
10274: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10275: l_rulv_rec.rule_information6 := NULL;
10276: END IF;
10270: --update the rule record
10271: l_rulv_rec.id := l_sll_rec.sll_id;
10272: IF NVL(l_sll_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10273: l_rulv_rec.rule_information6 := TO_CHAR(l_sll_amount - l_split_pymt_sum);
10274: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10275: l_rulv_rec.rule_information6 := NULL;
10276: END IF;
10277:
10278: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10274: ELSIF NVL(l_sll_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10275: l_rulv_rec.rule_information6 := NULL;
10276: END IF;
10277:
10278: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10279: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
10280: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10281: l_rulv_rec.rule_information8 := NULL;
10282: END IF;
10276: END IF;
10277:
10278: IF NVL(l_stub_amount,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10279: l_rulv_rec.rule_information8 := TO_CHAR(l_stub_amount - l_split_pymt_sum);
10280: ELSIF NVL(l_stub_amount,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10281: l_rulv_rec.rule_information8 := NULL;
10282: END IF;
10283:
10284: OKL_RULE_PUB.update_rule(
10290: p_rulv_rec => l_rulv_rec,
10291: x_rulv_rec => l_rulv_rec_out);
10292:
10293: --dbms_output.put_line('After updating payments :'||x_return_status);
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10291: x_rulv_rec => l_rulv_rec_out);
10292:
10293: --dbms_output.put_line('After updating payments :'||x_return_status);
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299:
10292:
10293: --dbms_output.put_line('After updating payments :'||x_return_status);
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299:
10300: -- Split into components
10293: --dbms_output.put_line('After updating payments :'||x_return_status);
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299:
10300: -- Split into components
10301: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299:
10300: -- Split into components
10301: ELSIF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
10302:
10303: IF l_sll_cur%RowCount = 1 THEN
10304: l_rgpv_rec.rgd_code := 'LALEVL';
10305: l_rgpv_rec.cle_id := lx_lnk_clev_rec.id;
10315: p_rgpv_rec => l_rgpv_rec,
10316: x_rgpv_rec => lx_rgpv_rec);
10317:
10318: --dbms_output.put_line('After updating payments :'||x_return_status);
10319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10322: RAISE OKL_API.G_EXCEPTION_ERROR;
10323: END IF;
10316: x_rgpv_rec => lx_rgpv_rec);
10317:
10318: --dbms_output.put_line('After updating payments :'||x_return_status);
10319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10322: RAISE OKL_API.G_EXCEPTION_ERROR;
10323: END IF;
10324: END IF;
10317:
10318: --dbms_output.put_line('After updating payments :'||x_return_status);
10319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10322: RAISE OKL_API.G_EXCEPTION_ERROR;
10323: END IF;
10324: END IF;
10325:
10318: --dbms_output.put_line('After updating payments :'||x_return_status);
10319: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10320: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10321: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10322: RAISE OKL_API.G_EXCEPTION_ERROR;
10323: END IF;
10324: END IF;
10325:
10326: --Bug# 3897490
10346: p_rulv_rec => l_slh_rulv_rec,
10347: x_rulv_rec => lx_slh_rulv_rec);
10348:
10349: --dbms_output.put_line('After updating payments :'||x_return_status);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10347: x_rulv_rec => lx_slh_rulv_rec);
10348:
10349: --dbms_output.put_line('After updating payments :'||x_return_status);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355:
10348:
10349: --dbms_output.put_line('After updating payments :'||x_return_status);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355:
10356: --Bug# 3897490
10349: --dbms_output.put_line('After updating payments :'||x_return_status);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355:
10356: --Bug# 3897490
10357: l_strm_type_id := l_sll_rec.strm_type_id1;
10377: l_sll_rulv_rec.rule_information3 := l_sll_rec.rule_information3;
10378: l_sll_rulv_rec.rule_information4 := l_sll_rec.rule_information4;
10379: l_sll_rulv_rec.rule_information5 := l_sll_rec.rule_information5;
10380:
10381: IF NVL(TO_NUMBER(l_sll_rec.amount_sll),OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10382:
10383: --Bug# 4028371
10384: --Bug# 3502142: Use Streams Rounding Option
10385: l_updated_sll_amount := TO_NUMBER(l_sll_rec.amount_sll) - l_split_pymt_sum;
10393: p_currency_code => l_sll_rec.currency_code,
10394: p_round_option => 'STM',
10395: x_rounded_amount => l_rounded_amount
10396: );
10397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10400: RAISE OKL_API.G_EXCEPTION_ERROR;
10401: END IF;
10394: p_round_option => 'STM',
10395: x_rounded_amount => l_rounded_amount
10396: );
10397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10400: RAISE OKL_API.G_EXCEPTION_ERROR;
10401: END IF;
10402:
10395: x_rounded_amount => l_rounded_amount
10396: );
10397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10400: RAISE OKL_API.G_EXCEPTION_ERROR;
10401: END IF;
10402:
10403: l_updated_sll_amount := l_rounded_amount;
10396: );
10397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10400: RAISE OKL_API.G_EXCEPTION_ERROR;
10401: END IF;
10402:
10403: l_updated_sll_amount := l_rounded_amount;
10404: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
10402:
10403: l_updated_sll_amount := l_rounded_amount;
10404: l_sll_rulv_rec.rule_information6 := l_updated_sll_amount;
10405:
10406: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_sll),OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10407: l_sll_rulv_rec.rule_information6 := NULL;
10408: END IF;
10409: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
10410: --Bug# 2757289 : For stup payments
10407: l_sll_rulv_rec.rule_information6 := NULL;
10408: END IF;
10409: l_sll_rulv_rec.rule_information7 := l_sll_rec.rule_information7;
10410: --Bug# 2757289 : For stup payments
10411: IF NVL(TO_NUMBER(l_sll_rec.amount_stub),OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
10412:
10413: --Bug# 4028371
10414: --Bug# 3502142: Use Streams Rounding Option
10415: l_updated_stub_amount := TO_NUMBER(l_sll_rec.amount_stub) - l_split_pymt_sum;
10423: p_currency_code => l_sll_rec.currency_code,
10424: p_round_option => 'STM',
10425: x_rounded_amount => l_rounded_amount
10426: );
10427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10430: RAISE OKL_API.G_EXCEPTION_ERROR;
10431: END IF;
10424: p_round_option => 'STM',
10425: x_rounded_amount => l_rounded_amount
10426: );
10427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10430: RAISE OKL_API.G_EXCEPTION_ERROR;
10431: END IF;
10432:
10425: x_rounded_amount => l_rounded_amount
10426: );
10427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10430: RAISE OKL_API.G_EXCEPTION_ERROR;
10431: END IF;
10432:
10433: l_updated_stub_amount := l_rounded_amount;
10426: );
10427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10430: RAISE OKL_API.G_EXCEPTION_ERROR;
10431: END IF;
10432:
10433: l_updated_stub_amount := l_rounded_amount;
10434: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
10432:
10433: l_updated_stub_amount := l_rounded_amount;
10434: l_sll_rulv_rec.rule_information8 := l_updated_stub_amount;
10435:
10436: ELSIF NVL(TO_NUMBER(l_sll_rec.amount_stub),OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM THEN
10437: l_sll_rulv_rec.rule_information8 := NULL;
10438: END IF;
10439: --l_sll_rulv_rec.rule_information8 := l_sll_rec.rule_information8;
10440: l_sll_rulv_rec.rule_information9 := l_sll_rec.rule_information9;
10454: p_rulv_rec => l_sll_rulv_rec,
10455: x_rulv_rec => lx_sll_rulv_rec);
10456:
10457: --dbms_output.put_line('After updating payments :'||x_return_status);
10458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10461: RAISE OKL_API.G_EXCEPTION_ERROR;
10462: END IF;
10455: x_rulv_rec => lx_sll_rulv_rec);
10456:
10457: --dbms_output.put_line('After updating payments :'||x_return_status);
10458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10461: RAISE OKL_API.G_EXCEPTION_ERROR;
10462: END IF;
10463:
10456:
10457: --dbms_output.put_line('After updating payments :'||x_return_status);
10458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10461: RAISE OKL_API.G_EXCEPTION_ERROR;
10462: END IF;
10463:
10464: END IF;
10457: --dbms_output.put_line('After updating payments :'||x_return_status);
10458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10459: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10460: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10461: RAISE OKL_API.G_EXCEPTION_ERROR;
10462: END IF;
10463:
10464: END IF;
10465:
10480: p_cle_id =>l_fa_line_id ,
10481: p_txdv_rec =>p_txdv_rec,
10482: p_txlv_rec =>p_txlv_rec
10483: );
10484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10487: RAISE OKL_API.G_EXCEPTION_ERROR;
10488: END IF;
10481: p_txdv_rec =>p_txdv_rec,
10482: p_txlv_rec =>p_txlv_rec
10483: );
10484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10487: RAISE OKL_API.G_EXCEPTION_ERROR;
10488: END IF;
10489:
10482: p_txlv_rec =>p_txlv_rec
10483: );
10484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10487: RAISE OKL_API.G_EXCEPTION_ERROR;
10488: END IF;
10489:
10490: -- Bug# 6344223
10483: );
10484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10487: RAISE OKL_API.G_EXCEPTION_ERROR;
10488: END IF;
10489:
10490: -- Bug# 6344223
10491:
10488: END IF;
10489:
10490: -- Bug# 6344223
10491:
10492: OKL_API.END_ACTIVITY (x_msg_count,
10493: x_msg_data );
10494: EXCEPTION
10495: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10496: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10491:
10492: OKL_API.END_ACTIVITY (x_msg_count,
10493: x_msg_data );
10494: EXCEPTION
10495: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10496: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10497: l_api_name,
10498: G_PKG_NAME,
10499: 'OKL_API.G_RET_STS_ERROR',
10492: OKL_API.END_ACTIVITY (x_msg_count,
10493: x_msg_data );
10494: EXCEPTION
10495: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10496: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10497: l_api_name,
10498: G_PKG_NAME,
10499: 'OKL_API.G_RET_STS_ERROR',
10500: x_msg_count,
10495: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10496: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10497: l_api_name,
10498: G_PKG_NAME,
10499: 'OKL_API.G_RET_STS_ERROR',
10500: x_msg_count,
10501: x_msg_data,
10502: '_PVT');
10503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10499: 'OKL_API.G_RET_STS_ERROR',
10500: x_msg_count,
10501: x_msg_data,
10502: '_PVT');
10503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10504: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10505: l_api_name,
10506: G_PKG_NAME,
10507: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10500: x_msg_count,
10501: x_msg_data,
10502: '_PVT');
10503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10504: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10505: l_api_name,
10506: G_PKG_NAME,
10507: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10508: x_msg_count,
10503: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10504: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10505: l_api_name,
10506: G_PKG_NAME,
10507: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10508: x_msg_count,
10509: x_msg_data,
10510: '_PVT');
10511: WHEN OTHERS THEN
10508: x_msg_count,
10509: x_msg_data,
10510: '_PVT');
10511: WHEN OTHERS THEN
10512: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10513: l_api_name,
10514: G_PKG_NAME,
10515: 'OTHERS',
10516: x_msg_count,
10526: --End of Comments
10527: --------------------------------------------------------------------------------
10528: PROCEDURE ABANDON_PARENT_ASSET(
10529: p_api_version IN NUMBER,
10530: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10531: x_return_status OUT NOCOPY VARCHAR2,
10532: x_msg_count OUT NOCOPY NUMBER,
10533: x_msg_data OUT NOCOPY VARCHAR2,
10534: p_cle_id IN NUMBER) IS
10532: x_msg_count OUT NOCOPY NUMBER,
10533: x_msg_data OUT NOCOPY VARCHAR2,
10534: p_cle_id IN NUMBER) IS
10535:
10536: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
10537: l_api_name CONSTANT VARCHAR2(30) := 'ABANDON_PARENT_ASSET';
10538: l_api_version CONSTANT NUMBER := 1.0;
10539:
10540: CURSOR c_lines_cur(p_cle_id IN NUMBER) IS
10576: lx_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10577:
10578: BEGIN
10579: -----
10580: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10581: -- Call start_activity to create savepoint, check compatibility
10582: -- and initialize message list
10583: x_return_status := OKL_API.START_ACTIVITY (
10584: l_api_name
10579: -----
10580: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10581: -- Call start_activity to create savepoint, check compatibility
10582: -- and initialize message list
10583: x_return_status := OKL_API.START_ACTIVITY (
10584: l_api_name
10585: ,p_init_msg_list
10586: ,'_PVT'
10587: ,x_return_status);
10585: ,p_init_msg_list
10586: ,'_PVT'
10587: ,x_return_status);
10588: -- Check if activity started successfully
10589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10592: RAISE OKL_API.G_EXCEPTION_ERROR;
10593: END IF;
10586: ,'_PVT'
10587: ,x_return_status);
10588: -- Check if activity started successfully
10589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10592: RAISE OKL_API.G_EXCEPTION_ERROR;
10593: END IF;
10594:
10587: ,x_return_status);
10588: -- Check if activity started successfully
10589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10592: RAISE OKL_API.G_EXCEPTION_ERROR;
10593: END IF;
10594:
10595: OPEN c_lines_cur(p_cle_id => p_cle_id);
10588: -- Check if activity started successfully
10589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10592: RAISE OKL_API.G_EXCEPTION_ERROR;
10593: END IF;
10594:
10595: OPEN c_lines_cur(p_cle_id => p_cle_id);
10596: LOOP
10624: x_msg_data => x_msg_data,
10625: p_clev_rec => l_lnk_clev_rec,
10626: x_clev_rec => lx_lnk_clev_rec);
10627:
10628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_ERROR;
10632: END IF;
10625: p_clev_rec => l_lnk_clev_rec,
10626: x_clev_rec => lx_lnk_clev_rec);
10627:
10628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_ERROR;
10632: END IF;
10633:
10626: x_clev_rec => lx_lnk_clev_rec);
10627:
10628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_ERROR;
10632: END IF;
10633:
10634: END LOOP;
10627:
10628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_ERROR;
10632: END IF;
10633:
10634: END LOOP;
10635: CLOSE l_lnk_asst_csr;
10637:
10638: END LOOP;
10639: CLOSE c_lines_cur;
10640: --will also have to think about UBB
10641: OKL_API.END_ACTIVITY (x_msg_count,
10642: x_msg_data );
10643: EXCEPTION
10644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10645: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10640: --will also have to think about UBB
10641: OKL_API.END_ACTIVITY (x_msg_count,
10642: x_msg_data );
10643: EXCEPTION
10644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10645: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10646: l_api_name,
10647: G_PKG_NAME,
10648: 'OKL_API.G_RET_STS_ERROR',
10641: OKL_API.END_ACTIVITY (x_msg_count,
10642: x_msg_data );
10643: EXCEPTION
10644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10645: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10646: l_api_name,
10647: G_PKG_NAME,
10648: 'OKL_API.G_RET_STS_ERROR',
10649: x_msg_count,
10644: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10645: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10646: l_api_name,
10647: G_PKG_NAME,
10648: 'OKL_API.G_RET_STS_ERROR',
10649: x_msg_count,
10650: x_msg_data,
10651: '_PVT');
10652: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10648: 'OKL_API.G_RET_STS_ERROR',
10649: x_msg_count,
10650: x_msg_data,
10651: '_PVT');
10652: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10653: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10654: l_api_name,
10655: G_PKG_NAME,
10656: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10649: x_msg_count,
10650: x_msg_data,
10651: '_PVT');
10652: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10653: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10654: l_api_name,
10655: G_PKG_NAME,
10656: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10657: x_msg_count,
10652: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10653: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10654: l_api_name,
10655: G_PKG_NAME,
10656: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10657: x_msg_count,
10658: x_msg_data,
10659: '_PVT');
10660: WHEN OTHERS THEN
10657: x_msg_count,
10658: x_msg_data,
10659: '_PVT');
10660: WHEN OTHERS THEN
10661: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10662: l_api_name,
10663: G_PKG_NAME,
10664: 'OTHERS',
10665: x_msg_count,
10681: p_start_date IN DATE,
10682: x_amortization_date OUT NOCOPY DATE,
10683: x_special_treatment_required OUT NOCOPY VARCHAR2
10684: ) IS
10685: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
10686: l_api_name CONSTANT varchar2(30) := 'is_evergreen_df_lease';
10687: l_api_version CONSTANT NUMBER := 1.0;
10688: --cursor to find book class
10689: CURSOR l_book_class_cur(p_book_type_code IN VARCHAR2) IS
10766: l_trans_date_aus DATE;
10767: l_trans_date_amt DATE;
10768: BEGIN
10769: --call start activity to set savepoint
10770: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
10771: p_init_msg_list,
10772: '_PVT',
10773: x_return_status);
10774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10770: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
10771: p_init_msg_list,
10772: '_PVT',
10773: x_return_status);
10774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10771: p_init_msg_list,
10772: '_PVT',
10773: x_return_status);
10774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779: l_pdtv_rec.id := p_pdt_id;
10772: '_PVT',
10773: x_return_status);
10774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779: l_pdtv_rec.id := p_pdt_id;
10780: l_no_data_found := TRUE;
10773: x_return_status);
10774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779: l_pdtv_rec.id := p_pdt_id;
10780: l_no_data_found := TRUE;
10781: l_pdt_date :=p_start_date;
10793: OKC_API.set_message( p_app_name => 'OKL',
10794: p_msg_name => 'OKL_AM_FIN_PROD_PARAM_ERR',
10795: p_token1 => 'CONTRACT_NUMBER',
10796: p_token1_value => l_contract_number);
10797: RAISE OKL_API.G_EXCEPTION_ERROR;
10798: END IF;
10799: --dbms_output.put_line('l_pdt_parameter_rec.reporting_pdt_id '||l_pdt_parameter_rec.reporting_pdt_id );
10800: l_mg_rep_book :=NULL;
10801: if l_pdt_parameter_rec.reporting_pdt_id IS NULL Then
10820: x_msg_data => x_msg_data,
10821: p_pdtv_rec => l_pdtv_rec,
10822: p_product_date => l_pdt_date,
10823: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
10824: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
10825: -- Error getting reporting product parameters for contract CONTRACT_NUMBER.
10826: OKC_API.set_message( p_app_name => 'OKL',
10827: p_msg_name => 'OKL_AM_REP_PROD_PARAM_ERR',
10828: p_token1 => 'CONTRACT_NUMBER',
10826: OKC_API.set_message( p_app_name => 'OKL',
10827: p_msg_name => 'OKL_AM_REP_PROD_PARAM_ERR',
10828: p_token1 => 'CONTRACT_NUMBER',
10829: p_token1_value => l_contract_number);
10830: RAISE OKL_API.G_EXCEPTION_ERROR;
10831: Else
10832: l_rep_deal_type := l_rep_pdt_parameter_rec.deal_type;
10833: l_rep_tax_owner := l_rep_pdt_parameter_rec.tax_owner;
10834: IF l_rep_deal_type IS NULL OR l_rep_deal_type = OKC_API.G_MISS_CHAR THEN
10836: OKC_API.set_message( p_app_name => 'OKL',
10837: p_msg_name => 'OKL_AM_NO_MG_DEAL_TYPE',
10838: p_token1 => 'REP_PROD',
10839: p_token1_value => l_reporting_product);
10840: RAISE OKL_API.G_EXCEPTION_ERROR;
10841: End If;
10842: l_Multi_GAAP_YN := 'Y';
10843: End If;
10844: -- get the MG reporting book
10846: l_mg_rep_book := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
10847:
10848: IF l_mg_rep_book IS NULL THEN
10849: --Multi GAAP Reporting Book is not defined.
10850: OKL_API.set_message( p_app_name => 'OKL',
10851: p_msg_name => 'OKL_AM_NO_MG_REP_BOOK');
10852: RAISE OKL_API.G_EXCEPTION_ERROR;
10853: END IF; --mg book
10854: END IF; --l_rep_pdt_id IS not null
10848: IF l_mg_rep_book IS NULL THEN
10849: --Multi GAAP Reporting Book is not defined.
10850: OKL_API.set_message( p_app_name => 'OKL',
10851: p_msg_name => 'OKL_AM_NO_MG_REP_BOOK');
10852: RAISE OKL_API.G_EXCEPTION_ERROR;
10853: END IF; --mg book
10854: END IF; --l_rep_pdt_id IS not null
10855: END IF; --reporting_pdt_id IS NULL
10856: l_book_class := NULL;
10901: END IF;
10902: x_amortization_date := l_amortization_date;
10903: x_special_treatment_required := l_special_treatment_required;
10904: --Call end Activity
10905: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10906: EXCEPTION
10907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10909: l_api_name,
10903: x_special_treatment_required := l_special_treatment_required;
10904: --Call end Activity
10905: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10906: EXCEPTION
10907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10909: l_api_name,
10910: G_PKG_NAME,
10911: 'OKL_API.G_RET_STS_ERROR',
10904: --Call end Activity
10905: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
10906: EXCEPTION
10907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10909: l_api_name,
10910: G_PKG_NAME,
10911: 'OKL_API.G_RET_STS_ERROR',
10912: x_msg_count,
10907: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10909: l_api_name,
10910: G_PKG_NAME,
10911: 'OKL_API.G_RET_STS_ERROR',
10912: x_msg_count,
10913: x_msg_data,
10914: '_PVT');
10915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10911: 'OKL_API.G_RET_STS_ERROR',
10912: x_msg_count,
10913: x_msg_data,
10914: '_PVT');
10915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10916: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10917: l_api_name,
10918: G_PKG_NAME,
10919: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10912: x_msg_count,
10913: x_msg_data,
10914: '_PVT');
10915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10916: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10917: l_api_name,
10918: G_PKG_NAME,
10919: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10920: x_msg_count,
10915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10916: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10917: l_api_name,
10918: G_PKG_NAME,
10919: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10920: x_msg_count,
10921: x_msg_data,
10922: '_PVT');
10923: WHEN OTHERS THEN
10920: x_msg_count,
10921: x_msg_data,
10922: '_PVT');
10923: WHEN OTHERS THEN
10924: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10925: l_api_name,
10926: G_PKG_NAME,
10927: 'OTHERS',
10928: x_msg_count,
10961: -- original contract
10962: --End of Comments
10963: --------------------------------------------------------------------------------
10964: PROCEDURE FIXED_ASSET_ADD (p_api_version IN NUMBER,
10965: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10966: x_return_status OUT NOCOPY VARCHAR2,
10967: x_msg_count OUT NOCOPY NUMBER,
10968: x_msg_data OUT NOCOPY VARCHAR2,
10969: p_ast_line_rec IN ast_line_rec_type,
10985: --Bug# 4028371
10986: x_fa_trx_date OUT NOCOPY date,
10987: x_asset_hdr_rec OUT NOCOPY FA_API_TYPES.asset_hdr_rec_type) IS
10988:
10989: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
10990: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_ADD';
10991: l_api_version CONSTANT NUMBER := 1.0;
10992:
10993: l_trans_rec FA_API_TYPES.trans_rec_type;
11145: --Bug# 6955027
11146: x_log_level_rec FA_API_TYPES.log_level_rec_type;
11147:
11148: BEGIN
11149: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11150: -- Call start_activity to create savepoint, check compatibility
11151: -- and initialize message list
11152: x_return_status := OKL_API.START_ACTIVITY (
11153: l_api_name
11148: BEGIN
11149: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11150: -- Call start_activity to create savepoint, check compatibility
11151: -- and initialize message list
11152: x_return_status := OKL_API.START_ACTIVITY (
11153: l_api_name
11154: ,p_init_msg_list
11155: ,'_PVT'
11156: ,x_return_status);
11154: ,p_init_msg_list
11155: ,'_PVT'
11156: ,x_return_status);
11157: -- Check if activity started successfully
11158: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11161: RAISE OKL_API.G_EXCEPTION_ERROR;
11162: END IF;
11155: ,'_PVT'
11156: ,x_return_status);
11157: -- Check if activity started successfully
11158: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11161: RAISE OKL_API.G_EXCEPTION_ERROR;
11162: END IF;
11163:
11156: ,x_return_status);
11157: -- Check if activity started successfully
11158: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11161: RAISE OKL_API.G_EXCEPTION_ERROR;
11162: END IF;
11163:
11164: --dbms_output.enable(1000000);
11157: -- Check if activity started successfully
11158: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11161: RAISE OKL_API.G_EXCEPTION_ERROR;
11162: END IF;
11163:
11164: --dbms_output.enable(1000000);
11165:
11173: X_trx_type => 'ADJUSTMENT',
11174: X_trx_date => NULL,
11175: X_init_message_flag => 'NO',
11176: p_log_level_rec => x_log_level_rec) then
11177: RAISE OKL_API.G_EXCEPTION_ERROR;
11178: END IF;
11179: --Bug# 6955027
11180:
11181: -----------------
11230: NULL;
11231: END IF;
11232: CLOSE asset_k_ccid_cur;
11233:
11234: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
11235: l_split_factor := (p_txdv_rec.split_percent/100);
11236: l_asset_desc_rec.current_units := p_ast_line_rec.current_units;
11237: ELSE
11238: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11327: */
11328: l_asset_fin_rec.depreciate_flag := l_depreciate_flag;
11329: l_asset_fin_rec.deprn_limit_type :=l_deprn_limit_type;
11330: if NOT fa_cache_pkg.fazcbc(x_book => p_ast_line_rec.corporate_book) then
11331: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11332: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11333: );
11334: Raise OKL_API.G_EXCEPTION_ERROR;
11335: end if;
11330: if NOT fa_cache_pkg.fazcbc(x_book => p_ast_line_rec.corporate_book) then
11331: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11332: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
11333: );
11334: Raise OKL_API.G_EXCEPTION_ERROR;
11335: end if;
11336: l_asset_hdr_orig_rec.asset_id:=p_ast_line_rec.asset_id;
11337: l_asset_hdr_orig_rec.book_type_code := p_ast_line_rec.corporate_book;
11338: -- To fetch Depreciation Reserve
11341: px_asset_deprn_rec => l_asset_deprn_rec,
11342: p_period_counter => NULL,
11343: p_mrc_sob_type_code => 'P'
11344: ) then
11345: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11346: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11347: );
11348: Raise OKL_API.G_EXCEPTION_ERROR;
11349: end if;
11344: ) then
11345: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
11346: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
11347: );
11348: Raise OKL_API.G_EXCEPTION_ERROR;
11349: end if;
11350: 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));
11351: 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));
11352: 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));
11398: p_pdt_id => l_pdt_id,
11399: p_start_date => l_start_date,
11400: x_amortization_date => l_amortization_date,
11401: x_special_treatment_required => l_special_treatment_required);
11402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11405: RAISE OKL_API.G_EXCEPTION_ERROR;
11406: END IF;
11399: p_start_date => l_start_date,
11400: x_amortization_date => l_amortization_date,
11401: x_special_treatment_required => l_special_treatment_required);
11402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11405: RAISE OKL_API.G_EXCEPTION_ERROR;
11406: END IF;
11407: if (l_special_treatment_required = 'Y') then
11400: x_amortization_date => l_amortization_date,
11401: x_special_treatment_required => l_special_treatment_required);
11402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11405: RAISE OKL_API.G_EXCEPTION_ERROR;
11406: END IF;
11407: if (l_special_treatment_required = 'Y') then
11408: l_temp_cost := l_asset_fin_rec.cost;
11401: x_special_treatment_required => l_special_treatment_required);
11402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11404: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11405: RAISE OKL_API.G_EXCEPTION_ERROR;
11406: END IF;
11407: if (l_special_treatment_required = 'Y') then
11408: l_temp_cost := l_asset_fin_rec.cost;
11409: l_temp_original_cost := l_asset_fin_rec.original_cost;
11428: --dbms_output.put_line('Add '||l_asset_desc_rec.asset_number || ' Deprn reserve '||to_char(l_asset_deprn_rec.deprn_reserve));
11429: -- call the api
11430: fa_addition_pub.do_addition
11431: (p_api_version => p_api_version,
11432: p_init_msg_list => OKL_API.G_FALSE,
11433: p_commit => OKL_API.G_FALSE,
11434: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11435: x_return_status => x_return_status,
11436: x_msg_count => x_msg_count,
11429: -- call the api
11430: fa_addition_pub.do_addition
11431: (p_api_version => p_api_version,
11432: p_init_msg_list => OKL_API.G_FALSE,
11433: p_commit => OKL_API.G_FALSE,
11434: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11435: x_return_status => x_return_status,
11436: x_msg_count => x_msg_count,
11437: x_msg_data => x_msg_data,
11450: px_inv_tbl => l_inv_tbl
11451: );
11452:
11453: --dbms_output.put_line(x_return_status);
11454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11457: RAISE OKL_API.G_EXCEPTION_ERROR;
11458: END IF;
11451: );
11452:
11453: --dbms_output.put_line(x_return_status);
11454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11457: RAISE OKL_API.G_EXCEPTION_ERROR;
11458: END IF;
11459:
11452:
11453: --dbms_output.put_line(x_return_status);
11454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11457: RAISE OKL_API.G_EXCEPTION_ERROR;
11458: END IF;
11459:
11460: --bug# 6373605 -- call populate sla sources
11453: --dbms_output.put_line(x_return_status);
11454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11457: RAISE OKL_API.G_EXCEPTION_ERROR;
11458: END IF;
11459:
11460: --bug# 6373605 -- call populate sla sources
11461: l_fxhv_rec.source_id := p_sla_source_header_id;
11479: ,x_return_status => x_return_status
11480: ,x_msg_count => x_msg_count
11481: ,x_msg_data => x_msg_data
11482: );
11483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11486: RAISE OKL_API.G_EXCEPTION_ERROR;
11487: END IF;
11480: ,x_msg_count => x_msg_count
11481: ,x_msg_data => x_msg_data
11482: );
11483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11486: RAISE OKL_API.G_EXCEPTION_ERROR;
11487: END IF;
11488: --bug# 6373605 -- call populate SLA sources
11481: ,x_msg_data => x_msg_data
11482: );
11483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11486: RAISE OKL_API.G_EXCEPTION_ERROR;
11487: END IF;
11488: --bug# 6373605 -- call populate SLA sources
11489:
11482: );
11483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11486: RAISE OKL_API.G_EXCEPTION_ERROR;
11487: END IF;
11488: --bug# 6373605 -- call populate SLA sources
11489:
11490: --Bug# 6061103
11505:
11506: FA_ADJUSTMENT_PUB.do_adjustment
11507: (p_api_version => p_api_version,
11508: p_init_msg_list => p_init_msg_list,
11509: p_commit => OKL_API.G_FALSE,
11510: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
11511: x_return_status => x_return_status,
11512: x_msg_count => x_msg_count,
11513: x_msg_data => x_msg_data,
11526: x_asset_deprn_mrc_tbl_new => l_adj_asset_deprn_mrc_tbl_new,
11527: p_group_reclass_options_rec => l_adj_group_recalss_option_rec
11528: );
11529: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11533: RAISE OKL_API.G_EXCEPTION_ERROR;
11534: END IF;
11527: p_group_reclass_options_rec => l_adj_group_recalss_option_rec
11528: );
11529: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11533: RAISE OKL_API.G_EXCEPTION_ERROR;
11534: END IF;
11535:
11528: );
11529: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11533: RAISE OKL_API.G_EXCEPTION_ERROR;
11534: END IF;
11535:
11536: --bug# 6373605 -- call populate sla sources
11529: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
11530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11533: RAISE OKL_API.G_EXCEPTION_ERROR;
11534: END IF;
11535:
11536: --bug# 6373605 -- call populate sla sources
11537: l_fxhv_rec.source_id := p_sla_source_header_id;
11555: ,x_return_status => x_return_status
11556: ,x_msg_count => x_msg_count
11557: ,x_msg_data => x_msg_data
11558: );
11559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11562: RAISE OKL_API.G_EXCEPTION_ERROR;
11563: END IF;
11556: ,x_msg_count => x_msg_count
11557: ,x_msg_data => x_msg_data
11558: );
11559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11562: RAISE OKL_API.G_EXCEPTION_ERROR;
11563: END IF;
11564: --bug# 6373605 -- call populate SLA sources
11557: ,x_msg_data => x_msg_data
11558: );
11559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11562: RAISE OKL_API.G_EXCEPTION_ERROR;
11563: END IF;
11564: --bug# 6373605 -- call populate SLA sources
11565:
11558: );
11559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11562: RAISE OKL_API.G_EXCEPTION_ERROR;
11563: END IF;
11564: --bug# 6373605 -- call populate SLA sources
11565:
11566: end if;
11567: x_asset_hdr_rec := l_asset_hdr_rec;
11568: --Bug# 4028371
11569: x_fa_trx_date := l_adj_trans_rec.transaction_date_entered; -- for 6061103 chaged to adj
11570:
11571: OKL_API.END_ACTIVITY (x_msg_count,
11572: x_msg_data );
11573: EXCEPTION
11574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11570:
11571: OKL_API.END_ACTIVITY (x_msg_count,
11572: x_msg_data );
11573: EXCEPTION
11574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11576: l_api_name,
11577: G_PKG_NAME,
11578: 'OKL_API.G_RET_STS_ERROR',
11571: OKL_API.END_ACTIVITY (x_msg_count,
11572: x_msg_data );
11573: EXCEPTION
11574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11576: l_api_name,
11577: G_PKG_NAME,
11578: 'OKL_API.G_RET_STS_ERROR',
11579: x_msg_count,
11574: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11576: l_api_name,
11577: G_PKG_NAME,
11578: 'OKL_API.G_RET_STS_ERROR',
11579: x_msg_count,
11580: x_msg_data,
11581: '_PVT');
11582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11578: 'OKL_API.G_RET_STS_ERROR',
11579: x_msg_count,
11580: x_msg_data,
11581: '_PVT');
11582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11583: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11584: l_api_name,
11585: G_PKG_NAME,
11586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11579: x_msg_count,
11580: x_msg_data,
11581: '_PVT');
11582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11583: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11584: l_api_name,
11585: G_PKG_NAME,
11586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11587: x_msg_count,
11582: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11583: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11584: l_api_name,
11585: G_PKG_NAME,
11586: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11587: x_msg_count,
11588: x_msg_data,
11589: '_PVT');
11590: WHEN OTHERS THEN
11587: x_msg_count,
11588: x_msg_data,
11589: '_PVT');
11590: WHEN OTHERS THEN
11591: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11592: l_api_name,
11593: G_PKG_NAME,
11594: 'OTHERS',
11595: x_msg_count,
11606: --End of Comments
11607: --------------------------------------------------------------------------------
11608: PROCEDURE FIXED_ASSET_unit_adjust
11609: (p_api_version IN NUMBER,
11610: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11611: x_return_status OUT NOCOPY VARCHAR2,
11612: x_msg_count OUT NOCOPY NUMBER,
11613: x_msg_data OUT NOCOPY VARCHAR2,
11614: p_ast_line_rec IN ast_line_rec_type,
11619: p_trx_number IN NUMBER,
11620: --Bug# 4028371
11621: x_fa_trx_date OUT NOCOPY DATE) IS
11622:
11623: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
11624: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_UNIT_ADJ';
11625: l_api_version CONSTANT NUMBER := 1.0;
11626:
11627:
11649: l_units_assigned NUMBER;
11650: l_distribution_id NUMBER;
11651:
11652: BEGIN
11653: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11654: -- Call start_activity to create savepoint, check compatibility
11655: -- and initialize message list
11656: x_return_status := OKL_API.START_ACTIVITY (
11657: l_api_name
11652: BEGIN
11653: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11654: -- Call start_activity to create savepoint, check compatibility
11655: -- and initialize message list
11656: x_return_status := OKL_API.START_ACTIVITY (
11657: l_api_name
11658: ,p_init_msg_list
11659: ,'_PVT'
11660: ,x_return_status);
11658: ,p_init_msg_list
11659: ,'_PVT'
11660: ,x_return_status);
11661: -- Check if activity started successfully
11662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11665: RAISE OKL_API.G_EXCEPTION_ERROR;
11666: END IF;
11659: ,'_PVT'
11660: ,x_return_status);
11661: -- Check if activity started successfully
11662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11665: RAISE OKL_API.G_EXCEPTION_ERROR;
11666: END IF;
11667:
11660: ,x_return_status);
11661: -- Check if activity started successfully
11662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11665: RAISE OKL_API.G_EXCEPTION_ERROR;
11666: END IF;
11667:
11668: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11661: -- Check if activity started successfully
11662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11665: RAISE OKL_API.G_EXCEPTION_ERROR;
11666: END IF;
11667:
11668: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
11669: l_asset_hdr_rec.asset_id := p_ast_line_rec.asset_id;
11729: px_asset_hdr_rec => l_asset_hdr_rec,
11730: px_asset_dist_tbl => l_asset_dist_tbl);
11731:
11732: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11736: RAISE OKL_API.G_EXCEPTION_ERROR;
11737: END IF;
11730: px_asset_dist_tbl => l_asset_dist_tbl);
11731:
11732: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11736: RAISE OKL_API.G_EXCEPTION_ERROR;
11737: END IF;
11738: OKL_API.END_ACTIVITY (x_msg_count,
11731:
11732: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11736: RAISE OKL_API.G_EXCEPTION_ERROR;
11737: END IF;
11738: OKL_API.END_ACTIVITY (x_msg_count,
11739: x_msg_data );
11732: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
11733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11736: RAISE OKL_API.G_EXCEPTION_ERROR;
11737: END IF;
11738: OKL_API.END_ACTIVITY (x_msg_count,
11739: x_msg_data );
11740: EXCEPTION
11734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11736: RAISE OKL_API.G_EXCEPTION_ERROR;
11737: END IF;
11738: OKL_API.END_ACTIVITY (x_msg_count,
11739: x_msg_data );
11740: EXCEPTION
11741: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11737: END IF;
11738: OKL_API.END_ACTIVITY (x_msg_count,
11739: x_msg_data );
11740: EXCEPTION
11741: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11743: l_api_name,
11744: G_PKG_NAME,
11745: 'OKL_API.G_RET_STS_ERROR',
11738: OKL_API.END_ACTIVITY (x_msg_count,
11739: x_msg_data );
11740: EXCEPTION
11741: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11743: l_api_name,
11744: G_PKG_NAME,
11745: 'OKL_API.G_RET_STS_ERROR',
11746: x_msg_count,
11741: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11743: l_api_name,
11744: G_PKG_NAME,
11745: 'OKL_API.G_RET_STS_ERROR',
11746: x_msg_count,
11747: x_msg_data,
11748: '_PVT');
11749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11745: 'OKL_API.G_RET_STS_ERROR',
11746: x_msg_count,
11747: x_msg_data,
11748: '_PVT');
11749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11750: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11751: l_api_name,
11752: G_PKG_NAME,
11753: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11746: x_msg_count,
11747: x_msg_data,
11748: '_PVT');
11749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11750: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11751: l_api_name,
11752: G_PKG_NAME,
11753: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11754: x_msg_count,
11749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11750: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11751: l_api_name,
11752: G_PKG_NAME,
11753: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11754: x_msg_count,
11755: x_msg_data,
11756: '_PVT');
11757: WHEN OTHERS THEN
11754: x_msg_count,
11755: x_msg_data,
11756: '_PVT');
11757: WHEN OTHERS THEN
11758: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11759: l_api_name,
11760: G_PKG_NAME,
11761: 'OTHERS',
11762: x_msg_count,
11774: -- retirement for split asset compoents
11775: --End of Comments
11776: --------------------------------------------------------------------------------
11777: PROCEDURE FIXED_ASSET_RETIRE (p_api_version IN NUMBER,
11778: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11779: x_return_status OUT NOCOPY VARCHAR2,
11780: x_msg_count OUT NOCOPY NUMBER,
11781: x_msg_data OUT NOCOPY VARCHAR2,
11782: p_ast_line_rec IN ast_line_rec_type,
11787: p_trx_number IN NUMBER,
11788: --Bug# 4028371
11789: x_fa_trx_date OUT NOCOPY date) IS
11790:
11791: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
11792: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_RETIRE';
11793: l_api_version CONSTANT NUMBER := 1.0;
11794:
11795: l_user_id NUMBER := 1001; -- USER_ID must properly be set to run calc gain/loss
11859:
11860:
11861: BEGIN
11862:
11863: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11864: -- Call start_activity to create savepoint, check compatibility
11865: -- and initialize message list
11866: x_return_status := OKL_API.START_ACTIVITY (
11867: l_api_name
11862:
11863: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11864: -- Call start_activity to create savepoint, check compatibility
11865: -- and initialize message list
11866: x_return_status := OKL_API.START_ACTIVITY (
11867: l_api_name
11868: ,p_init_msg_list
11869: ,'_PVT'
11870: ,x_return_status);
11868: ,p_init_msg_list
11869: ,'_PVT'
11870: ,x_return_status);
11871: -- Check if activity started successfully
11872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11875: RAISE OKL_API.G_EXCEPTION_ERROR;
11876: END IF;
11869: ,'_PVT'
11870: ,x_return_status);
11871: -- Check if activity started successfully
11872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11875: RAISE OKL_API.G_EXCEPTION_ERROR;
11876: END IF;
11877:
11870: ,x_return_status);
11871: -- Check if activity started successfully
11872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11875: RAISE OKL_API.G_EXCEPTION_ERROR;
11876: END IF;
11877:
11878:
11871: -- Check if activity started successfully
11872: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11874: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11875: RAISE OKL_API.G_EXCEPTION_ERROR;
11876: END IF;
11877:
11878:
11879: --dbms_output.disable;
11926: --l_asset_retire_rec.date_retired := NULL; -- will be current period by default
11927: --3156924 :
11928: --l_asset_retire_rec.date_retired := p_trx_date; -- will be current period by default
11929:
11930: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
11931: --fully retire for split asset compoents
11932: l_asset_retire_rec.units_retired := NULL;
11933: l_asset_retire_rec.cost_retired := p_ast_line_rec.cost;
11934: ELSE
11949: --assign this to FND_API.G_TRUE if it is required to calculate the gain loss
11950:
11951: fnd_profile.put('USER_ID',l_user_id);
11952:
11953: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
11954: --no need to do distribution level retirements as full retirment being done
11955: -- for split asset components
11956: NULL;
11957: ELSE
11983: p_trx_number => p_trx_number,
11984: --Bug# 4028371
11985: x_fa_trx_date => l_fa_unit_adj_date);
11986:
11987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11990: RAISE OKL_API.G_EXCEPTION_ERROR;
11991: END IF;
11984: --Bug# 4028371
11985: x_fa_trx_date => l_fa_unit_adj_date);
11986:
11987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11990: RAISE OKL_API.G_EXCEPTION_ERROR;
11991: END IF;
11992: --Bug# 3156924
11985: x_fa_trx_date => l_fa_unit_adj_date);
11986:
11987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11990: RAISE OKL_API.G_EXCEPTION_ERROR;
11991: END IF;
11992: --Bug# 3156924
11993: /*---------------commented; either retire cost or units---------------------------------------
11986:
11987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11990: RAISE OKL_API.G_EXCEPTION_ERROR;
11991: END IF;
11992: --Bug# 3156924
11993: /*---------------commented; either retire cost or units---------------------------------------
11994: --l_asset_dist_tbl.delete;
12087: end if;
12088: --------------------FA Debugging Code Commented END------------------------------*/
12089: --dbms_output.put_line('After do retirement :'||x_return_status);
12090:
12091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12094: RAISE OKL_API.G_EXCEPTION_ERROR;
12095: END IF;
12088: --------------------FA Debugging Code Commented END------------------------------*/
12089: --dbms_output.put_line('After do retirement :'||x_return_status);
12090:
12091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12094: RAISE OKL_API.G_EXCEPTION_ERROR;
12095: END IF;
12096: --Bug# 3156924
12089: --dbms_output.put_line('After do retirement :'||x_return_status);
12090:
12091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12094: RAISE OKL_API.G_EXCEPTION_ERROR;
12095: END IF;
12096: --Bug# 3156924
12097: --End If;
12090:
12091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12094: RAISE OKL_API.G_EXCEPTION_ERROR;
12095: END IF;
12096: --Bug# 3156924
12097: --End If;
12098: --x_asset_hdr_rec := l_asset_hdr_rec;
12097: --End If;
12098: --x_asset_hdr_rec := l_asset_hdr_rec;
12099: --Bug# 4028371
12100: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12101: OKL_API.END_ACTIVITY (x_msg_count,
12102: x_msg_data );
12103: EXCEPTION
12104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12105: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12100: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12101: OKL_API.END_ACTIVITY (x_msg_count,
12102: x_msg_data );
12103: EXCEPTION
12104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12105: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12106: l_api_name,
12107: G_PKG_NAME,
12108: 'OKL_API.G_RET_STS_ERROR',
12101: OKL_API.END_ACTIVITY (x_msg_count,
12102: x_msg_data );
12103: EXCEPTION
12104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12105: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12106: l_api_name,
12107: G_PKG_NAME,
12108: 'OKL_API.G_RET_STS_ERROR',
12109: x_msg_count,
12104: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12105: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12106: l_api_name,
12107: G_PKG_NAME,
12108: 'OKL_API.G_RET_STS_ERROR',
12109: x_msg_count,
12110: x_msg_data,
12111: '_PVT');
12112: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12108: 'OKL_API.G_RET_STS_ERROR',
12109: x_msg_count,
12110: x_msg_data,
12111: '_PVT');
12112: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12113: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12114: l_api_name,
12115: G_PKG_NAME,
12116: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12109: x_msg_count,
12110: x_msg_data,
12111: '_PVT');
12112: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12113: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12114: l_api_name,
12115: G_PKG_NAME,
12116: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12117: x_msg_count,
12112: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12113: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12114: l_api_name,
12115: G_PKG_NAME,
12116: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12117: x_msg_count,
12118: x_msg_data,
12119: '_PVT');
12120: /*--------------------FA Debugging Code Commented -------------------------------
12140: --dbms_output.put_line('dump: NO MESSAGE !');
12141: end if;
12142: --------------------FA Debugging Code Commented END -----------------------------*/
12143: WHEN OTHERS THEN
12144: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12145: l_api_name,
12146: G_PKG_NAME,
12147: 'OTHERS',
12148: x_msg_count,
12164: -- FIXED_ASSET_ADD
12165: --End of Comments
12166: --------------------------------------------------------------------------------
12167: PROCEDURE FIXED_ASSET_ADJUST(p_api_version IN NUMBER,
12168: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12169: x_return_status OUT NOCOPY VARCHAR2,
12170: x_msg_count OUT NOCOPY NUMBER,
12171: x_msg_data OUT NOCOPY VARCHAR2,
12172: p_ast_line_rec IN ast_line_rec_type,
12186: --Bug# 6373605--SLA populate source
12187: --Bug# 4028371
12188: x_fa_trx_date OUT NOCOPY DATE) IS
12189:
12190: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
12191: l_api_name CONSTANT VARCHAR2(30) := 'FIXED_ASSET_ADJUST';
12192: l_api_version CONSTANT NUMBER := 1.0;
12193:
12194: l_trans_rec FA_API_TYPES.trans_rec_type;
12336: --Bug# 5946411: avsingh - parameters for getting depreciation reserve
12337: l_fa_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
12338: l_fa_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
12339: BEGIN
12340: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12341: --call start activity to set savepoint
12342: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12343: p_init_msg_list,
12344: '_PVT',
12338: l_fa_asset_deprn_rec FA_API_TYPES.asset_deprn_rec_type;
12339: BEGIN
12340: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12341: --call start activity to set savepoint
12342: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12343: p_init_msg_list,
12344: '_PVT',
12345: x_return_status);
12346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12342: x_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12343: p_init_msg_list,
12344: '_PVT',
12345: x_return_status);
12346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12349: RAISE OKL_API.G_EXCEPTION_ERROR;
12350: END IF;
12343: p_init_msg_list,
12344: '_PVT',
12345: x_return_status);
12346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12349: RAISE OKL_API.G_EXCEPTION_ERROR;
12350: END IF;
12351:
12344: '_PVT',
12345: x_return_status);
12346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12349: RAISE OKL_API.G_EXCEPTION_ERROR;
12350: END IF;
12351:
12352: --------------------
12345: x_return_status);
12346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12349: RAISE OKL_API.G_EXCEPTION_ERROR;
12350: END IF;
12351:
12352: --------------------
12353: -- asset header info
12401: p_pdt_id => l_pdt_id,
12402: p_start_date => l_start_date,
12403: x_amortization_date => l_amortization_date,
12404: x_special_treatment_required => l_special_treatment_required);
12405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12408: RAISE OKL_API.G_EXCEPTION_ERROR;
12409: END IF;
12402: p_start_date => l_start_date,
12403: x_amortization_date => l_amortization_date,
12404: x_special_treatment_required => l_special_treatment_required);
12405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12408: RAISE OKL_API.G_EXCEPTION_ERROR;
12409: END IF;
12410: if l_special_treatment_required = 'Y' then
12403: x_amortization_date => l_amortization_date,
12404: x_special_treatment_required => l_special_treatment_required);
12405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12408: RAISE OKL_API.G_EXCEPTION_ERROR;
12409: END IF;
12410: if l_special_treatment_required = 'Y' then
12411: l_trans_rec.amortization_start_date := l_amortization_date;
12404: x_special_treatment_required => l_special_treatment_required);
12405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12408: RAISE OKL_API.G_EXCEPTION_ERROR;
12409: END IF;
12410: if l_special_treatment_required = 'Y' then
12411: l_trans_rec.amortization_start_date := l_amortization_date;
12412: --rirawat : Handle scenario for asset with no off lease transaction
12410: if l_special_treatment_required = 'Y' then
12411: l_trans_rec.amortization_start_date := l_amortization_date;
12412: --rirawat : Handle scenario for asset with no off lease transaction
12413: IF l_amortization_date IS NULL THEN
12414: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12415: p_msg_name => 'OKL_LA_SPLIT_NOT_ALLOWED'
12416: );
12417: RAISE OKL_API.G_EXCEPTION_ERROR;
12418: END IF;
12413: IF l_amortization_date IS NULL THEN
12414: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12415: p_msg_name => 'OKL_LA_SPLIT_NOT_ALLOWED'
12416: );
12417: RAISE OKL_API.G_EXCEPTION_ERROR;
12418: END IF;
12419: else
12420: -- Bug# 6061103 end
12421: --dbms_output.put_line('Status set as l_cle_status'||l_cle_status);
12441: --Bug# 3156924 :
12442: l_trans_rec.transaction_name := SUBSTR(TO_CHAR(p_trx_number),1,20); --optional
12443: l_trans_rec.calling_interface := l_calling_interface; --optional
12444:
12445: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12446: l_split_factor := (p_txdv_rec.split_percent/100);
12447: ELSE
12448: l_split_factor := (p_txdv_rec.quantity/p_txlv_rec.current_units);
12449: END IF;
12467: IF p_ast_line_rec.cost = 0 THEN
12468: --do not call adjustments for DFL contracts
12469: NULL;
12470: ELSE
12471: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12472: l_asset_fin_rec_adj.cost := - p_ast_line_rec.cost;
12473: --Bug# 3950089
12474: If (p_ast_line_rec.percent_salvage_value is not null) Then
12475: l_asset_fin_rec_adj.percent_salvage_value := - p_ast_line_rec.percent_salvage_value;
12499: l_fa_asset_hdr_rec.asset_id := p_ast_line_rec.asset_id;
12500: l_fa_asset_hdr_rec.book_type_code := p_ast_line_rec.corporate_book;
12501:
12502: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
12503: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12504: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12505: );
12506: Raise OKL_API.G_EXCEPTION_ERROR;
12507: end if;
12502: If NOT fa_cache_pkg.fazcbc(x_book => l_fa_asset_hdr_rec.book_type_code) then
12503: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12504: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12505: );
12506: Raise OKL_API.G_EXCEPTION_ERROR;
12507: end if;
12508:
12509: --Bug# 6804043: In R12 codeline, do not back out depreciation reserve
12510: -- when cost adjustment is done in period of addition
12514: p_book => l_fa_asset_hdr_rec.book_type_code,
12515: p_mode => 'ABSOLUTE',
12516: px_period_of_addition => l_fa_asset_hdr_rec.period_of_addition
12517: ) then
12518: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12519: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
12520: );
12521: Raise OKL_API.G_EXCEPTION_ERROR;
12522: end if;
12517: ) then
12518: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12519: p_msg_name => 'OKL_LLA_FA_POA_ERROR'
12520: );
12521: Raise OKL_API.G_EXCEPTION_ERROR;
12522: end if;
12523:
12524:
12525: If nvl(l_fa_asset_hdr_rec.period_of_addition,'N') = 'Y' Then
12535: p_asset_id => p_ast_line_rec.asset_id,
12536: p_book_type_code => p_ast_line_rec.corporate_book,
12537: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12538:
12539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12542: RAISE OKL_API.G_EXCEPTION_ERROR;
12543: END IF;
12536: p_book_type_code => p_ast_line_rec.corporate_book,
12537: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12538:
12539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12542: RAISE OKL_API.G_EXCEPTION_ERROR;
12543: END IF;
12544:
12537: x_asset_deprn_rec => l_fa_asset_deprn_rec);
12538:
12539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12542: RAISE OKL_API.G_EXCEPTION_ERROR;
12543: END IF;
12544:
12545: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
12538:
12539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12540: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12542: RAISE OKL_API.G_EXCEPTION_ERROR;
12543: END IF;
12544:
12545: If l_fa_asset_deprn_rec.deprn_reserve > 0 then
12546: l_asset_deprn_rec_adj.deprn_reserve := (-1) * l_fa_asset_deprn_rec.deprn_reserve;
12601: --dbms_output.put_line('Deprn reserve '||to_char(l_asset_deprn_rec_adj.deprn_reserve));
12602: FA_ADJUSTMENT_PUB.do_adjustment
12603: (p_api_version => p_api_version,
12604: p_init_msg_list => p_init_msg_list,
12605: p_commit => OKL_API.G_FALSE,
12606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
12607: x_return_status => x_return_status,
12608: x_msg_count => x_msg_count,
12609: x_msg_data => x_msg_data,
12622: x_asset_deprn_mrc_tbl_new => l_asset_deprn_mrc_tbl_new,
12623: p_group_reclass_options_rec => l_group_recalss_option_rec
12624: );
12625: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12629: RAISE OKL_API.G_EXCEPTION_ERROR;
12630: END IF;
12623: p_group_reclass_options_rec => l_group_recalss_option_rec
12624: );
12625: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12629: RAISE OKL_API.G_EXCEPTION_ERROR;
12630: END IF;
12631:
12624: );
12625: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12629: RAISE OKL_API.G_EXCEPTION_ERROR;
12630: END IF;
12631:
12632: --Bug# 4028371 :
12625: --dbms_output.put_line('After calling FA adjustment Api '||x_return_status);
12626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12629: RAISE OKL_API.G_EXCEPTION_ERROR;
12630: END IF;
12631:
12632: --Bug# 4028371 :
12633: x_fa_trx_date := l_trans_rec.transaction_date_entered;
12654: ,x_return_status => x_return_status
12655: ,x_msg_count => x_msg_count
12656: ,x_msg_data => x_msg_data
12657: );
12658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12661: RAISE OKL_API.G_EXCEPTION_ERROR;
12662: END IF;
12655: ,x_msg_count => x_msg_count
12656: ,x_msg_data => x_msg_data
12657: );
12658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12661: RAISE OKL_API.G_EXCEPTION_ERROR;
12662: END IF;
12663: --bug# 6373605 -- call populate SLA sources
12656: ,x_msg_data => x_msg_data
12657: );
12658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12661: RAISE OKL_API.G_EXCEPTION_ERROR;
12662: END IF;
12663: --bug# 6373605 -- call populate SLA sources
12664:
12657: );
12658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12661: RAISE OKL_API.G_EXCEPTION_ERROR;
12662: END IF;
12663: --bug# 6373605 -- call populate SLA sources
12664:
12665: END IF;
12700: l_asset_dist_tbl.DELETE;
12701: --dbms_output.put_line('split factor '||to_char(l_split_factor));
12702: --dbms_output.put_line('current units '||to_char(p_ast_line_rec.current_units));
12703:
12704: IF NVL(p_txdv_rec.split_percent,0) <> 0 OR p_txdv_rec.split_percent <> OKL_API.G_MISS_NUM THEN
12705: --l_units_to_adjust := p_ast_line_rec.current_units;
12706: NULL;
12707: ELSE
12708: l_units_to_adjust := p_ast_line_rec.current_units - (p_ast_line_rec.current_units*l_split_factor);
12755: px_asset_hdr_rec => l_asset_hdr_rec_ua,
12756: px_asset_dist_tbl => l_asset_dist_tbl);
12757:
12758: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12762: RAISE OKL_API.G_EXCEPTION_ERROR;
12763: END IF;
12756: px_asset_dist_tbl => l_asset_dist_tbl);
12757:
12758: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12762: RAISE OKL_API.G_EXCEPTION_ERROR;
12763: END IF;
12764:
12757:
12758: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12762: RAISE OKL_API.G_EXCEPTION_ERROR;
12763: END IF;
12764:
12765: --bug# 6373605 -- call populate sla sources
12758: --dbms_output.put_line('After calling FA unit adjust Api '||x_return_status);
12759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12762: RAISE OKL_API.G_EXCEPTION_ERROR;
12763: END IF;
12764:
12765: --bug# 6373605 -- call populate sla sources
12766: l_fxhv_rec.source_id := p_sla_source_header_id;
12785: ,x_msg_count => x_msg_count
12786: ,x_msg_data => x_msg_data
12787: );
12788:
12789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12792: RAISE OKL_API.G_EXCEPTION_ERROR;
12793: END IF;
12786: ,x_msg_data => x_msg_data
12787: );
12788:
12789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12792: RAISE OKL_API.G_EXCEPTION_ERROR;
12793: END IF;
12794: --bug# 6373605 -- call populate SLA sources
12787: );
12788:
12789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12792: RAISE OKL_API.G_EXCEPTION_ERROR;
12793: END IF;
12794: --bug# 6373605 -- call populate SLA sources
12795:
12788:
12789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12792: RAISE OKL_API.G_EXCEPTION_ERROR;
12793: END IF;
12794: --bug# 6373605 -- call populate SLA sources
12795:
12796: END IF;
12794: --bug# 6373605 -- call populate SLA sources
12795:
12796: END IF;
12797: END IF;
12798: OKL_API.END_ACTIVITY (x_msg_count,
12799: x_msg_data );
12800: EXCEPTION
12801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12797: END IF;
12798: OKL_API.END_ACTIVITY (x_msg_count,
12799: x_msg_data );
12800: EXCEPTION
12801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12803: l_api_name,
12804: G_PKG_NAME,
12805: 'OKL_API.G_RET_STS_ERROR',
12798: OKL_API.END_ACTIVITY (x_msg_count,
12799: x_msg_data );
12800: EXCEPTION
12801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12803: l_api_name,
12804: G_PKG_NAME,
12805: 'OKL_API.G_RET_STS_ERROR',
12806: x_msg_count,
12801: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12803: l_api_name,
12804: G_PKG_NAME,
12805: 'OKL_API.G_RET_STS_ERROR',
12806: x_msg_count,
12807: x_msg_data,
12808: '_PVT');
12809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12805: 'OKL_API.G_RET_STS_ERROR',
12806: x_msg_count,
12807: x_msg_data,
12808: '_PVT');
12809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12811: l_api_name,
12812: G_PKG_NAME,
12813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12806: x_msg_count,
12807: x_msg_data,
12808: '_PVT');
12809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12811: l_api_name,
12812: G_PKG_NAME,
12813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12814: x_msg_count,
12809: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12810: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12811: l_api_name,
12812: G_PKG_NAME,
12813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12814: x_msg_count,
12815: x_msg_data,
12816: '_PVT');
12817: WHEN OTHERS THEN
12814: x_msg_count,
12815: x_msg_data,
12816: '_PVT');
12817: WHEN OTHERS THEN
12818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12819: l_api_name,
12820: G_PKG_NAME,
12821: 'OTHERS',
12822: x_msg_count,
12834: --End of Comments
12835: ------------------------------------------------------------------------------
12836: PROCEDURE get_trx_rec
12837: (p_api_version IN NUMBER,
12838: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12839: x_return_status OUT NOCOPY VARCHAR2,
12840: x_msg_count OUT NOCOPY NUMBER,
12841: x_msg_data OUT NOCOPY VARCHAR2,
12842: p_cle_id IN NUMBER,
12842: p_cle_id IN NUMBER,
12843: p_transaction_type IN VARCHAR2,
12844: x_trx_rec OUT NOCOPY CSI_DATASTRUCTURES_PUB.transaction_rec) IS
12845:
12846: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12847: l_api_name CONSTANT VARCHAR2(30) := 'GET_TRX_REC';
12848: l_api_version CONSTANT NUMBER := 1.0;
12849:
12850: --Following cursor assumes that a transaction type called
12859: FETCH okl_trx_type_csr
12860: INTO l_trx_type_id;
12861: IF okl_trx_type_csr%NOTFOUND THEN
12862: --OKL LINE ACTIVATION not seeded as a source transaction in IB
12863: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12864: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
12865: p_token1 => G_TXN_TYPE_TOKEN,
12866: p_token1_value => p_transaction_type
12867: );
12864: p_msg_name => G_IB_TXN_TYPE_NOT_FOUND,
12865: p_token1 => G_TXN_TYPE_TOKEN,
12866: p_token1_value => p_transaction_type
12867: );
12868: RAISE OKL_API.G_EXCEPTION_ERROR;
12869: END IF;
12870: CLOSE okl_trx_type_csr;
12871: --Assign transaction Type id to seeded value in cs_lookups
12872: x_trx_rec.transaction_type_id := l_trx_type_id;
12875: x_trx_rec.transaction_date := SYSDATE;
12876: --confirm whether this has to be sysdate or creation date on line
12877: x_trx_rec.source_transaction_date := SYSDATE;
12878: EXCEPTION
12879: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12881: (
12882: l_api_name,
12883: G_PKG_NAME,
12876: --confirm whether this has to be sysdate or creation date on line
12877: x_trx_rec.source_transaction_date := SYSDATE;
12878: EXCEPTION
12879: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12881: (
12882: l_api_name,
12883: G_PKG_NAME,
12884: 'OKL_API.G_RET_STS_ERROR',
12880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12881: (
12882: l_api_name,
12883: G_PKG_NAME,
12884: 'OKL_API.G_RET_STS_ERROR',
12885: x_msg_count,
12886: x_msg_data,
12887: '_PVT'
12888: );
12885: x_msg_count,
12886: x_msg_data,
12887: '_PVT'
12888: );
12889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12891: (
12892: l_api_name,
12893: G_PKG_NAME,
12886: x_msg_data,
12887: '_PVT'
12888: );
12889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12891: (
12892: l_api_name,
12893: G_PKG_NAME,
12894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12891: (
12892: l_api_name,
12893: G_PKG_NAME,
12894: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12895: x_msg_count,
12896: x_msg_data,
12897: '_PVT'
12898: );
12896: x_msg_data,
12897: '_PVT'
12898: );
12899: WHEN OTHERS THEN
12900: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12901: (
12902: l_api_name,
12903: G_PKG_NAME,
12904: 'OTHERS',
12920: --End of Comments
12921: ------------------------------------------------------------------------------
12922: PROCEDURE get_party_rec
12923: (p_api_version IN NUMBER,
12924: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
12925: x_return_status OUT NOCOPY VARCHAR2,
12926: x_msg_count OUT NOCOPY NUMBER,
12927: x_msg_data OUT NOCOPY VARCHAR2,
12928: p_chrv_id IN NUMBER,
12928: p_chrv_id IN NUMBER,
12929: x_party_tbl OUT NOCOPY CSI_DATASTRUCTURES_PUB.party_tbl) IS
12930:
12931: l_party_tab OKL_JTOT_EXTRACT.party_tab_type;
12932: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12933: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY_REC';
12934: l_api_version CONSTANT NUMBER := 1.0;
12935:
12936: l_index NUMBER;
12936: l_index NUMBER;
12937:
12938: BEGIN
12939: --call start activity to set savepoint
12940: l_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12941: p_init_msg_list,
12942: '_PVT',
12943: x_return_status);
12944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12940: l_return_status := OKL_API.START_ACTIVITY( SUBSTR(l_api_name,1,26),
12941: p_init_msg_list,
12942: '_PVT',
12943: x_return_status);
12944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12947: RAISE OKL_API.G_EXCEPTION_ERROR;
12948: END IF;
12941: p_init_msg_list,
12942: '_PVT',
12943: x_return_status);
12944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12947: RAISE OKL_API.G_EXCEPTION_ERROR;
12948: END IF;
12949:
12942: '_PVT',
12943: x_return_status);
12944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12947: RAISE OKL_API.G_EXCEPTION_ERROR;
12948: END IF;
12949:
12950: --get Party
12943: x_return_status);
12944: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12946: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12947: RAISE OKL_API.G_EXCEPTION_ERROR;
12948: END IF;
12949:
12950: --get Party
12951: OKL_JTOT_EXTRACT.Get_Party(p_api_version => p_api_version,
12958: p_role_code => G_ITM_INST_PARTY,
12959: p_intent => G_CONTRACT_INTENT,
12960: x_party_tab => l_party_tab);
12961:
12962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12965: RAISE OKL_API.G_EXCEPTION_ERROR;
12966: END IF;
12959: p_intent => G_CONTRACT_INTENT,
12960: x_party_tab => l_party_tab);
12961:
12962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12965: RAISE OKL_API.G_EXCEPTION_ERROR;
12966: END IF;
12967:
12960: x_party_tab => l_party_tab);
12961:
12962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12965: RAISE OKL_API.G_EXCEPTION_ERROR;
12966: END IF;
12967:
12968: FOR l_index IN 1..l_party_tab.LAST
12961:
12962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12965: RAISE OKL_API.G_EXCEPTION_ERROR;
12966: END IF;
12967:
12968: FOR l_index IN 1..l_party_tab.LAST
12969: LOOP
12975: END LOOP;
12976:
12977: IF (l_index = 0) THEN
12978: --no owner party record found
12979: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12980: p_msg_name => G_PARTY_NOT_FOUND,
12981: p_token1 => G_ROLE_CODE_TOKEN,
12982: p_token1_value => G_ITM_INST_PARTY
12983: );
12980: p_msg_name => G_PARTY_NOT_FOUND,
12981: p_token1 => G_ROLE_CODE_TOKEN,
12982: p_token1_value => G_ITM_INST_PARTY
12983: );
12984: RAISE OKL_API.G_EXCEPTION_ERROR;
12985: END IF;
12986:
12987: --Call end Activity
12988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12984: RAISE OKL_API.G_EXCEPTION_ERROR;
12985: END IF;
12986:
12987: --Call end Activity
12988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12989: EXCEPTION
12990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12992: (
12986:
12987: --Call end Activity
12988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12989: EXCEPTION
12990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12992: (
12993: l_api_name,
12994: G_PKG_NAME,
12987: --Call end Activity
12988: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12989: EXCEPTION
12990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12992: (
12993: l_api_name,
12994: G_PKG_NAME,
12995: 'OKL_API.G_RET_STS_ERROR',
12991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12992: (
12993: l_api_name,
12994: G_PKG_NAME,
12995: 'OKL_API.G_RET_STS_ERROR',
12996: x_msg_count,
12997: x_msg_data,
12998: '_PVT'
12999: );
12996: x_msg_count,
12997: x_msg_data,
12998: '_PVT'
12999: );
13000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13002: (
13003: l_api_name,
13004: G_PKG_NAME,
12997: x_msg_data,
12998: '_PVT'
12999: );
13000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13002: (
13003: l_api_name,
13004: G_PKG_NAME,
13005: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13001: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13002: (
13003: l_api_name,
13004: G_PKG_NAME,
13005: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13006: x_msg_count,
13007: x_msg_data,
13008: '_PVT'
13009: );
13007: x_msg_data,
13008: '_PVT'
13009: );
13010: WHEN OTHERS THEN
13011: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
13012: (
13013: l_api_name,
13014: G_PKG_NAME,
13015: 'OTHERS',
13025: --Created for Bug# 2726870 : Split assets by serial numbers
13026: --End of comments
13027: --------------------------------------------------------------------------------
13028: PROCEDURE delete_instance_lines(p_api_version IN NUMBER,
13029: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13030: x_return_status OUT NOCOPY VARCHAR2,
13031: x_msg_count OUT NOCOPY NUMBER,
13032: x_msg_data OUT NOCOPY VARCHAR2,
13033: p_inst_cle_id IN NUMBER,
13032: x_msg_data OUT NOCOPY VARCHAR2,
13033: p_inst_cle_id IN NUMBER,
13034: p_ib_cle_id IN NUMBER) IS
13035:
13036: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13037: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13038: l_api_version CONSTANT NUMBER := 1.0;
13039:
13040: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13049: l_ib_klev_rec okl_kle_pvt.klev_rec_type;
13050:
13051:
13052: BEGIN
13053: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13054:
13055: x_return_status := OKL_API.START_ACTIVITY (
13056: l_api_name
13057: ,p_init_msg_list
13051:
13052: BEGIN
13053: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13054:
13055: x_return_status := OKL_API.START_ACTIVITY (
13056: l_api_name
13057: ,p_init_msg_list
13058: ,'_PVT'
13059: ,x_return_status);
13057: ,p_init_msg_list
13058: ,'_PVT'
13059: ,x_return_status);
13060: -- Check if activity started successfully
13061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13064: RAISE OKL_API.G_EXCEPTION_ERROR;
13065: END IF;
13058: ,'_PVT'
13059: ,x_return_status);
13060: -- Check if activity started successfully
13061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13064: RAISE OKL_API.G_EXCEPTION_ERROR;
13065: END IF;
13066:
13059: ,x_return_status);
13060: -- Check if activity started successfully
13061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13064: RAISE OKL_API.G_EXCEPTION_ERROR;
13065: END IF;
13066:
13067: l_inst_cle_id := p_inst_cle_id;
13060: -- Check if activity started successfully
13061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13064: RAISE OKL_API.G_EXCEPTION_ERROR;
13065: END IF;
13066:
13067: l_inst_cle_id := p_inst_cle_id;
13068: l_ib_cle_id := p_ib_cle_id;
13082: x_msg_count => x_msg_count,
13083: x_msg_data => x_msg_data,
13084: p_clev_rec => l_ib_clev_rec,
13085: x_clev_rec => lx_ib_clev_rec);
13086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13089: RAISE OKL_API.G_EXCEPTION_ERROR;
13090: END IF;
13083: x_msg_data => x_msg_data,
13084: p_clev_rec => l_ib_clev_rec,
13085: x_clev_rec => lx_ib_clev_rec);
13086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13089: RAISE OKL_API.G_EXCEPTION_ERROR;
13090: END IF;
13091:
13084: p_clev_rec => l_ib_clev_rec,
13085: x_clev_rec => lx_ib_clev_rec);
13086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13089: RAISE OKL_API.G_EXCEPTION_ERROR;
13090: END IF;
13091:
13092: --Call line deletion API.
13085: x_clev_rec => lx_ib_clev_rec);
13086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13089: RAISE OKL_API.G_EXCEPTION_ERROR;
13090: END IF;
13091:
13092: --Call line deletion API.
13093: OKC_CONTRACT_PUB.delete_contract_line(
13096: x_return_status => x_return_status,
13097: x_msg_count => x_msg_count,
13098: x_msg_data => x_msg_data,
13099: p_line_id => l_ib_cle_id);
13100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13103: RAISE OKL_API.G_EXCEPTION_ERROR;
13104: END IF;
13097: x_msg_count => x_msg_count,
13098: x_msg_data => x_msg_data,
13099: p_line_id => l_ib_cle_id);
13100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13103: RAISE OKL_API.G_EXCEPTION_ERROR;
13104: END IF;
13105:
13098: x_msg_data => x_msg_data,
13099: p_line_id => l_ib_cle_id);
13100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13103: RAISE OKL_API.G_EXCEPTION_ERROR;
13104: END IF;
13105:
13106: -- delete shadows explicitly
13099: p_line_id => l_ib_cle_id);
13100: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13101: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13103: RAISE OKL_API.G_EXCEPTION_ERROR;
13104: END IF;
13105:
13106: -- delete shadows explicitly
13107: OKL_KLE_PVT.delete_row(
13111: x_msg_count => x_msg_count,
13112: x_msg_data => x_msg_data,
13113: p_klev_rec => l_ib_klev_rec);
13114:
13115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13118: RAISE OKL_API.G_EXCEPTION_ERROR;
13119: END IF;
13112: x_msg_data => x_msg_data,
13113: p_klev_rec => l_ib_klev_rec);
13114:
13115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13118: RAISE OKL_API.G_EXCEPTION_ERROR;
13119: END IF;
13120:
13113: p_klev_rec => l_ib_klev_rec);
13114:
13115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13118: RAISE OKL_API.G_EXCEPTION_ERROR;
13119: END IF;
13120:
13121: ---update status of the line
13114:
13115: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13117: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13118: RAISE OKL_API.G_EXCEPTION_ERROR;
13119: END IF;
13120:
13121: ---update status of the line
13122: OKC_CONTRACT_PUB.update_contract_line(
13126: x_msg_count => x_msg_count,
13127: x_msg_data => x_msg_data,
13128: p_clev_rec => l_inst_clev_rec,
13129: x_clev_rec => lx_inst_clev_rec);
13130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: END IF;
13127: x_msg_data => x_msg_data,
13128: p_clev_rec => l_inst_clev_rec,
13129: x_clev_rec => lx_inst_clev_rec);
13130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: END IF;
13135:
13128: p_clev_rec => l_inst_clev_rec,
13129: x_clev_rec => lx_inst_clev_rec);
13130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: END IF;
13135:
13136: --Call line deletion API
13129: x_clev_rec => lx_inst_clev_rec);
13130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: END IF;
13135:
13136: --Call line deletion API
13137: OKC_CONTRACT_PUB.delete_contract_line(
13140: x_return_status => x_return_status,
13141: x_msg_count => x_msg_count,
13142: x_msg_data => x_msg_data,
13143: p_line_id => l_inst_cle_id);
13144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: END IF;
13141: x_msg_count => x_msg_count,
13142: x_msg_data => x_msg_data,
13143: p_line_id => l_inst_cle_id);
13144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: END IF;
13149:
13142: x_msg_data => x_msg_data,
13143: p_line_id => l_inst_cle_id);
13144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: END IF;
13149:
13150: -- delete shadows explicitly
13143: p_line_id => l_inst_cle_id);
13144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: END IF;
13149:
13150: -- delete shadows explicitly
13151: OKL_KLE_PVT.delete_row(
13155: x_msg_count => x_msg_count,
13156: x_msg_data => x_msg_data,
13157: p_klev_rec => l_ib_klev_rec);
13158:
13159: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13161: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13162: RAISE OKL_API.G_EXCEPTION_ERROR;
13163: END IF;
13156: x_msg_data => x_msg_data,
13157: p_klev_rec => l_ib_klev_rec);
13158:
13159: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13161: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13162: RAISE OKL_API.G_EXCEPTION_ERROR;
13163: END IF;
13164:
13157: p_klev_rec => l_ib_klev_rec);
13158:
13159: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13161: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13162: RAISE OKL_API.G_EXCEPTION_ERROR;
13163: END IF;
13164:
13165: --Bug# 7033247: Deleted the wrongly pasted
13158:
13159: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
13160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13161: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
13162: RAISE OKL_API.G_EXCEPTION_ERROR;
13163: END IF;
13164:
13165: --Bug# 7033247: Deleted the wrongly pasted
13166: --duplicate lines of code from below:
13164:
13165: --Bug# 7033247: Deleted the wrongly pasted
13166: --duplicate lines of code from below:
13167:
13168: OKL_API.END_ACTIVITY (x_msg_count,
13169: x_msg_data );
13170: EXCEPTION
13171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13172: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13167:
13168: OKL_API.END_ACTIVITY (x_msg_count,
13169: x_msg_data );
13170: EXCEPTION
13171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13172: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13173: l_api_name,
13174: G_PKG_NAME,
13175: 'OKL_API.G_RET_STS_ERROR',
13168: OKL_API.END_ACTIVITY (x_msg_count,
13169: x_msg_data );
13170: EXCEPTION
13171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13172: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13173: l_api_name,
13174: G_PKG_NAME,
13175: 'OKL_API.G_RET_STS_ERROR',
13176: x_msg_count,
13171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13172: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13173: l_api_name,
13174: G_PKG_NAME,
13175: 'OKL_API.G_RET_STS_ERROR',
13176: x_msg_count,
13177: x_msg_data,
13178: '_PVT');
13179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13175: 'OKL_API.G_RET_STS_ERROR',
13176: x_msg_count,
13177: x_msg_data,
13178: '_PVT');
13179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13181: l_api_name,
13182: G_PKG_NAME,
13183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13176: x_msg_count,
13177: x_msg_data,
13178: '_PVT');
13179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13181: l_api_name,
13182: G_PKG_NAME,
13183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13184: x_msg_count,
13179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13181: l_api_name,
13182: G_PKG_NAME,
13183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13184: x_msg_count,
13185: x_msg_data,
13186: '_PVT');
13187: WHEN OTHERS THEN
13184: x_msg_count,
13185: x_msg_data,
13186: '_PVT');
13187: WHEN OTHERS THEN
13188: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13189: l_api_name,
13190: G_PKG_NAME,
13191: 'OTHERS',
13192: x_msg_count,
13200: --Modified for Bug# 2648280 : to take care of IB fix on expire instance API
13201: --end of comments
13202: --------------------------------------------------------------------------------
13203: PROCEDURE create_ib_instance(p_api_version IN NUMBER,
13204: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13205: x_return_status OUT NOCOPY VARCHAR2,
13206: x_msg_count OUT NOCOPY NUMBER,
13207: x_msg_data OUT NOCOPY VARCHAR2,
13208: p_csi_id1 IN VARCHAR2,
13212: p_split_qty IN NUMBER,
13213: p_txdv_rec IN txdv_rec_type,
13214: x_instance_id OUT NOCOPY NUMBER) IS
13215:
13216: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13217: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_INSTANCE';
13218: l_api_version CONSTANT NUMBER := 1.0;
13219:
13220: --instance query recs
13361: AND fa_lse.lty_code = 'FIXED_ASSET';
13362:
13363:
13364: l_ib_cim_id OKC_K_ITEMS.ID%TYPE;
13365: l_serialized VARCHAR2(1) DEFAULT okl_api.g_false;
13366:
13367: --cursor to get the serial numbers for serialized split asset components
13368: CURSOR comp_srl_csr (p_asd_id IN NUMBER) IS
13369: SELECT serial_number,
13378: lx_iipv_rec OKL_TXL_ITM_INSTS_PUB.iipv_rec_type;
13379:
13380:
13381: BEGIN
13382: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13383: -- Call start_activity to create savepoint, check compatibility
13384: -- and initialize message list
13385: x_return_status := OKL_API.START_ACTIVITY (
13386: l_api_name
13381: BEGIN
13382: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13383: -- Call start_activity to create savepoint, check compatibility
13384: -- and initialize message list
13385: x_return_status := OKL_API.START_ACTIVITY (
13386: l_api_name
13387: ,p_init_msg_list
13388: ,'_PVT'
13389: ,x_return_status);
13387: ,p_init_msg_list
13388: ,'_PVT'
13389: ,x_return_status);
13390: -- Check if activity started successfully
13391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13394: RAISE OKL_API.G_EXCEPTION_ERROR;
13395: END IF;
13388: ,'_PVT'
13389: ,x_return_status);
13390: -- Check if activity started successfully
13391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13394: RAISE OKL_API.G_EXCEPTION_ERROR;
13395: END IF;
13396:
13389: ,x_return_status);
13390: -- Check if activity started successfully
13391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13394: RAISE OKL_API.G_EXCEPTION_ERROR;
13395: END IF;
13396:
13397: --get item instance record
13390: -- Check if activity started successfully
13391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13394: RAISE OKL_API.G_EXCEPTION_ERROR;
13395: END IF;
13396:
13397: --get item instance record
13398: --l_instance_rec := get_csi_rec(p_csi_id1 => p_csi_id1,
13401:
13402: l_instance_query_rec.instance_id := p_csi_id1;
13403:
13404: --split asset into components modfn.
13405: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN
13406: l_active_instances_only := FND_API.G_FALSE;
13407: ELSE
13408: l_active_instances_only := FND_API.G_TRUE;
13409: END IF;
13427: x_msg_data => x_msg_data);
13428:
13429: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13430: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13434: RAISE OKL_API.G_EXCEPTION_ERROR;
13435: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13428:
13429: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13430: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13434: RAISE OKL_API.G_EXCEPTION_ERROR;
13435: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13429: --dbms_output.put_line('After calling IB API for query status '||x_return_status);
13430: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13434: RAISE OKL_API.G_EXCEPTION_ERROR;
13435: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13437: END IF;
13430: --dbms_output.put_line('After calling IB API for query instance_id '||to_char(l_instance_header_tbl(1).instance_id));
13431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13434: RAISE OKL_API.G_EXCEPTION_ERROR;
13435: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13437: END IF;
13438:
13432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13434: RAISE OKL_API.G_EXCEPTION_ERROR;
13435: ELSIF (NVL (l_instance_header_tbl.COUNT, 0) <> 1) THEN
13436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13437: END IF;
13438:
13439: --bug# 2982927 : resetting okc inv org again from k header :
13440: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13492: l_instance_rec.INSTALL_LOCATION_ID := l_instance_header_tbl(1).INSTALL_LOCATION_ID;
13493: l_instance_rec.INSTANCE_USAGE_CODE := l_instance_header_tbl(1).INSTANCE_USAGE_CODE;
13494: l_instance_rec.OBJECT_VERSION_NUMBER := l_instance_header_tbl(1).OBJECT_VERSION_NUMBER;
13495:
13496: IF NVL(p_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN --splitting into components
13497: --expire original item instances
13498: l_expired_status_id := NULL;
13499: OPEN inst_sts_csr(p_status_name => l_instance_rec.instance_status_id);
13500: FETCH inst_sts_csr INTO l_expired_status_id;
13508: p_cle_id => p_ib_cle_id,
13509: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13510: x_trx_rec => l_exp_txn_rec);
13511:
13512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13515: RAISE OKL_API.G_EXCEPTION_ERROR;
13516: END IF;
13509: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13510: x_trx_rec => l_exp_txn_rec);
13511:
13512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13515: RAISE OKL_API.G_EXCEPTION_ERROR;
13516: END IF;
13517:
13510: x_trx_rec => l_exp_txn_rec);
13511:
13512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13515: RAISE OKL_API.G_EXCEPTION_ERROR;
13516: END IF;
13517:
13518: l_instance_rec.INSTANCE_STATUS_ID := NULL;
13511:
13512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13513: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13514: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13515: RAISE OKL_API.G_EXCEPTION_ERROR;
13516: END IF;
13517:
13518: l_instance_rec.INSTANCE_STATUS_ID := NULL;
13519: csi_item_instance_pub.expire_item_instance
13528: ,x_return_status => x_return_status
13529: ,x_msg_count => x_msg_count
13530: ,x_msg_data => x_msg_data);
13531:
13532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13535: RAISE OKL_API.G_EXCEPTION_ERROR;
13536: END IF;
13529: ,x_msg_count => x_msg_count
13530: ,x_msg_data => x_msg_data);
13531:
13532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13535: RAISE OKL_API.G_EXCEPTION_ERROR;
13536: END IF;
13537:
13530: ,x_msg_data => x_msg_data);
13531:
13532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13535: RAISE OKL_API.G_EXCEPTION_ERROR;
13536: END IF;
13537:
13538: --bug# 2982927 : resetting okc inv org again from k header :
13531:
13532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13535: RAISE OKL_API.G_EXCEPTION_ERROR;
13536: END IF;
13537:
13538: --bug# 2982927 : resetting okc inv org again from k header :
13539: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13545:
13546: END IF;
13547:
13548: --Bug # 2726870 :11.5.9 enhancement Split asset by serial numbers for Split Asset by components
13549: l_serialized := OKL_API.G_FALSE;
13550: Is_Inv_Item_Serialized(p_api_version => p_api_version,
13551: p_init_msg_list => p_init_msg_list,
13552: x_return_status => x_return_status,
13553: x_msg_count => x_msg_count,
13555: p_inv_item_id => p_txdv_rec.inventory_item_id,
13556: p_chr_id => p_chr_id,
13557: p_cle_id => NULL,
13558: x_serialized => l_serialized);
13559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13562: RAISE OKL_API.G_EXCEPTION_ERROR;
13563: END IF;
13556: p_chr_id => p_chr_id,
13557: p_cle_id => NULL,
13558: x_serialized => l_serialized);
13559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13562: RAISE OKL_API.G_EXCEPTION_ERROR;
13563: END IF;
13564:
13557: p_cle_id => NULL,
13558: x_serialized => l_serialized);
13559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13562: RAISE OKL_API.G_EXCEPTION_ERROR;
13563: END IF;
13564:
13565: --If l_serialized = OKL_API.G_FALSE Then
13558: x_serialized => l_serialized);
13559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13562: RAISE OKL_API.G_EXCEPTION_ERROR;
13563: END IF;
13564:
13565: --If l_serialized = OKL_API.G_FALSE Then
13566: --if not serialized create new instances normally
13561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13562: RAISE OKL_API.G_EXCEPTION_ERROR;
13563: END IF;
13564:
13565: --If l_serialized = OKL_API.G_FALSE Then
13566: --if not serialized create new instances normally
13567: IF l_serialized = OKL_API.G_FALSE THEN
13568: l_instance_rec.serial_number := NULL;
13569: l_instance_rec.quantity := p_split_qty;
13563: END IF;
13564:
13565: --If l_serialized = OKL_API.G_FALSE Then
13566: --if not serialized create new instances normally
13567: IF l_serialized = OKL_API.G_FALSE THEN
13568: l_instance_rec.serial_number := NULL;
13569: l_instance_rec.quantity := p_split_qty;
13570: ELSIF l_serialized = OKL_API.G_TRUE THEN
13571: --set serial number
13566: --if not serialized create new instances normally
13567: IF l_serialized = OKL_API.G_FALSE THEN
13568: l_instance_rec.serial_number := NULL;
13569: l_instance_rec.quantity := p_split_qty;
13570: ELSIF l_serialized = OKL_API.G_TRUE THEN
13571: --set serial number
13572: OPEN comp_srl_csr (p_asd_id => p_txdv_rec.id);
13573: FETCH comp_srl_csr INTO l_instance_rec.serial_number,
13574: l_itiv_id;
13575: IF comp_srl_csr%NOTFOUND THEN
13576: l_instance_rec.serial_number := NULL;
13577: END IF;
13578: CLOSE comp_srl_csr;
13579: IF l_itiv_id IS NOT NULL OR l_itiv_id <> OKL_API.G_MISS_NUM THEN
13580: --update the serail number record as processed
13581: l_iipv_rec.id := l_itiv_id;
13582: l_iipv_rec.selected_for_split_flag := 'P';
13583: --dbms_output.put_line('before update of txl itm insts sts'||x_return_status);
13591: x_msg_data => x_msg_data,
13592: p_iipv_rec => l_iipv_rec,
13593: x_iipv_rec => lx_iipv_rec);
13594: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13598: RAISE OKL_API.G_EXCEPTION_ERROR;
13599: END IF;
13592: p_iipv_rec => l_iipv_rec,
13593: x_iipv_rec => lx_iipv_rec);
13594: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13598: RAISE OKL_API.G_EXCEPTION_ERROR;
13599: END IF;
13600: END IF;
13593: x_iipv_rec => lx_iipv_rec);
13594: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13598: RAISE OKL_API.G_EXCEPTION_ERROR;
13599: END IF;
13600: END IF;
13601: l_instance_rec.quantity := 1;
13594: --dbms_output.put_line('after update of txl itm insts sts'||x_return_status);
13595: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13597: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13598: RAISE OKL_API.G_EXCEPTION_ERROR;
13599: END IF;
13600: END IF;
13601: l_instance_rec.quantity := 1;
13602: END IF;
13612: --l_instance_rec.quantity := p_split_qty;
13613: l_instance_rec.object_version_number := NULL;
13614: l_instance_rec.inventory_item_id := p_txdv_rec.inventory_item_id;
13615: --Bug# 3066375:
13616: l_instance_rec.call_contracts := okl_api.g_false;
13617:
13618:
13619: get_trx_rec(p_api_version => p_api_version,
13620: p_init_msg_list => p_init_msg_list,
13624: p_cle_id => p_ib_cle_id,
13625: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13626: x_trx_rec => l_txn_rec);
13627:
13628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13631: RAISE OKL_API.G_EXCEPTION_ERROR;
13632: END IF;
13625: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13626: x_trx_rec => l_txn_rec);
13627:
13628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13631: RAISE OKL_API.G_EXCEPTION_ERROR;
13632: END IF;
13633:
13626: x_trx_rec => l_txn_rec);
13627:
13628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13631: RAISE OKL_API.G_EXCEPTION_ERROR;
13632: END IF;
13633:
13634: --get party tbl
13627:
13628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13631: RAISE OKL_API.G_EXCEPTION_ERROR;
13632: END IF;
13633:
13634: --get party tbl
13635: get_party_rec(p_api_version => p_api_version,
13639: x_msg_data => x_msg_data,
13640: p_chrv_id => p_chr_id,
13641: x_party_tbl => l_party_tbl);
13642:
13643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13646: RAISE OKL_API.G_EXCEPTION_ERROR;
13647: END IF;
13640: p_chrv_id => p_chr_id,
13641: x_party_tbl => l_party_tbl);
13642:
13643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13646: RAISE OKL_API.G_EXCEPTION_ERROR;
13647: END IF;
13648:
13641: x_party_tbl => l_party_tbl);
13642:
13643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13646: RAISE OKL_API.G_EXCEPTION_ERROR;
13647: END IF;
13648:
13649: --get party accoutnt id
13642:
13643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13646: RAISE OKL_API.G_EXCEPTION_ERROR;
13647: END IF;
13648:
13649: --get party accoutnt id
13650: l_party_account := NULL;
13652: FETCH party_account_csr INTO
13653: l_party_account;
13654: IF party_account_csr%NOTFOUND THEN
13655: --raise error for unable to find inv mstr org
13656: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
13657: p_msg_name => G_CUST_ACCOUNT_FOUND,
13658: p_token1 => G_CONTRACT_ID_TOKEN,
13659: p_token1_value => TO_CHAR(p_chr_id)
13660: );
13657: p_msg_name => G_CUST_ACCOUNT_FOUND,
13658: p_token1 => G_CONTRACT_ID_TOKEN,
13659: p_token1_value => TO_CHAR(p_chr_id)
13660: );
13661: RAISE OKL_API.G_EXCEPTION_ERROR;
13662: ELSE
13663: NULL;
13664: END IF;
13665: CLOSE party_account_csr;
13690:
13691: --dbms_output.put_line('After calling IB API status '||x_return_status);
13692: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13693:
13694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_ERROR;
13698: END IF;
13691: --dbms_output.put_line('After calling IB API status '||x_return_status);
13692: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13693:
13694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_ERROR;
13698: END IF;
13699:
13692: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13693:
13694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_ERROR;
13698: END IF;
13699:
13700: --bug# 2982927 : resetting okc inv org again from k header :
13693:
13694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13697: RAISE OKL_API.G_EXCEPTION_ERROR;
13698: END IF;
13699:
13700: --bug# 2982927 : resetting okc inv org again from k header :
13701: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13702: --bug# 2982927
13703:
13704: x_instance_id := l_instance_rec.instance_id;
13705:
13706: --Elsif l_serialized = OKL_API.G_TRUE Then
13707:
13708: --1. read from the split transaction to create new serial numbers
13709: --2. For each record create instance in IB
13710: --3. Loop through all the created instances
13716:
13717: ELSE --for normal split assets
13718:
13719: --Bug # 2726870 :11.5.9 enhancement Split asset by serial numbers for Split Asset by components
13720: l_serialized := OKL_API.G_FALSE;
13721: Is_Inv_Item_Serialized(p_api_version => p_api_version,
13722: p_init_msg_list => p_init_msg_list,
13723: x_return_status => x_return_status,
13724: x_msg_count => x_msg_count,
13726: p_inv_item_id => l_instance_rec.inventory_item_id,
13727: p_chr_id => p_chr_id,
13728: p_cle_id => NULL,
13729: x_serialized => l_serialized);
13730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13733: RAISE OKL_API.G_EXCEPTION_ERROR;
13734: END IF;
13727: p_chr_id => p_chr_id,
13728: p_cle_id => NULL,
13729: x_serialized => l_serialized);
13730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13733: RAISE OKL_API.G_EXCEPTION_ERROR;
13734: END IF;
13735:
13728: p_cle_id => NULL,
13729: x_serialized => l_serialized);
13730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13733: RAISE OKL_API.G_EXCEPTION_ERROR;
13734: END IF;
13735:
13736: IF (l_instance_rec.quantity = 1) OR
13729: x_serialized => l_serialized);
13730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13733: RAISE OKL_API.G_EXCEPTION_ERROR;
13734: END IF;
13735:
13736: IF (l_instance_rec.quantity = 1) OR
13737: (l_instance_rec.quantity - p_split_qty) <= 0 THEN -- this will never be the case
13737: (l_instance_rec.quantity - p_split_qty) <= 0 THEN -- this will never be the case
13738: NULL; -- no need to update quantity - item instance may be serailized
13739:
13740: --Bug # 2726870 11.5.9 enhancements - split asset into components
13741: IF l_serialized = OKL_API.G_TRUE THEN
13742: l_instance_for_split := '?';
13743: OPEN chk_instance_csr(PInstanceId => l_instance_rec.instance_id,
13744: PTalId => P_txdv_rec.tal_id);
13745: FETCH chk_instance_csr INTO l_instance_for_split;
13766: x_msg_count => x_msg_count,
13767: x_msg_data => x_msg_data,
13768: p_inst_cle_id => l_inst_cle_id,
13769: p_ib_cle_id => l_ib_cle_id);
13770: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13772: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13773: RAISE OKL_API.G_EXCEPTION_ERROR;
13774: END IF;
13767: x_msg_data => x_msg_data,
13768: p_inst_cle_id => l_inst_cle_id,
13769: p_ib_cle_id => l_ib_cle_id);
13770: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13772: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13773: RAISE OKL_API.G_EXCEPTION_ERROR;
13774: END IF;
13775: END IF;
13768: p_inst_cle_id => l_inst_cle_id,
13769: p_ib_cle_id => l_ib_cle_id);
13770: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13772: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13773: RAISE OKL_API.G_EXCEPTION_ERROR;
13774: END IF;
13775: END IF;
13776: x_instance_id := l_instance_rec.instance_id;
13769: p_ib_cle_id => l_ib_cle_id);
13770: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13772: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13773: RAISE OKL_API.G_EXCEPTION_ERROR;
13774: END IF;
13775: END IF;
13776: x_instance_id := l_instance_rec.instance_id;
13777: END IF; -- If item instance is selected for serial split
13817: );
13818:
13819: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13820: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_ERROR;
13825: END IF;
13818:
13819: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13820: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_ERROR;
13825: END IF;
13826:
13819: --dbms_output.put_line('After calling IB API for update status '||x_return_status);
13820: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_ERROR;
13825: END IF;
13826:
13827: --bug# 2982927 : resetting okc inv org again from k header :
13820: --dbms_output.put_line('After calling IB API update instance_id '||to_char(l_instance_rec.instance_id));
13821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13824: RAISE OKL_API.G_EXCEPTION_ERROR;
13825: END IF;
13826:
13827: --bug# 2982927 : resetting okc inv org again from k header :
13828: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13830:
13831: END IF;
13832:
13833:
13834: IF (l_serialized = OKL_API.G_TRUE) THEN
13835: NULL;
13836: --dbms_output.put_line('Serialized');
13837: x_instance_id := l_instance_rec.instance_id;
13838: ELSE
13845: l_instance_rec.creation_complete_flag := NULL;
13846: l_instance_rec.quantity := p_split_qty;
13847: l_instance_rec.object_version_number := NULL;
13848: --Bug# 3066375:
13849: l_instance_rec.call_contracts := okl_api.g_false;
13850:
13851:
13852: get_trx_rec(p_api_version => p_api_version,
13853: p_init_msg_list => p_init_msg_list,
13857: p_cle_id => p_ib_cle_id,
13858: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13859: x_trx_rec => l_txn_rec);
13860:
13861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13864: RAISE OKL_API.G_EXCEPTION_ERROR;
13865: END IF;
13858: p_transaction_type => G_IB_SPLIT_TXN_TYPE,
13859: x_trx_rec => l_txn_rec);
13860:
13861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13864: RAISE OKL_API.G_EXCEPTION_ERROR;
13865: END IF;
13866:
13859: x_trx_rec => l_txn_rec);
13860:
13861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13864: RAISE OKL_API.G_EXCEPTION_ERROR;
13865: END IF;
13866:
13867: --get party tbl
13860:
13861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13864: RAISE OKL_API.G_EXCEPTION_ERROR;
13865: END IF;
13866:
13867: --get party tbl
13868: get_party_rec(p_api_version => p_api_version,
13872: x_msg_data => x_msg_data,
13873: p_chrv_id => p_chr_id,
13874: x_party_tbl => l_party_tbl);
13875:
13876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13879: RAISE OKL_API.G_EXCEPTION_ERROR;
13880: END IF;
13873: p_chrv_id => p_chr_id,
13874: x_party_tbl => l_party_tbl);
13875:
13876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13879: RAISE OKL_API.G_EXCEPTION_ERROR;
13880: END IF;
13881:
13874: x_party_tbl => l_party_tbl);
13875:
13876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13879: RAISE OKL_API.G_EXCEPTION_ERROR;
13880: END IF;
13881:
13882: --get party accoutnt id
13875:
13876: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13879: RAISE OKL_API.G_EXCEPTION_ERROR;
13880: END IF;
13881:
13882: --get party accoutnt id
13883: l_party_account := NULL;
13885: FETCH party_account_csr INTO
13886: l_party_account;
13887: IF party_account_csr%NOTFOUND THEN
13888: --raise error for unable to find inv mstr org
13889: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
13890: p_msg_name => G_CUST_ACCOUNT_FOUND,
13891: p_token1 => G_CONTRACT_ID_TOKEN,
13892: p_token1_value => TO_CHAR(p_chr_id)
13893: );
13890: p_msg_name => G_CUST_ACCOUNT_FOUND,
13891: p_token1 => G_CONTRACT_ID_TOKEN,
13892: p_token1_value => TO_CHAR(p_chr_id)
13893: );
13894: RAISE OKL_API.G_EXCEPTION_ERROR;
13895: ELSE
13896: NULL;
13897: END IF;
13898: CLOSE party_account_csr;
13923:
13924: --dbms_output.put_line('After calling IB API status '||x_return_status);
13925: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13926:
13927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_ERROR;
13931: END IF;
13924: --dbms_output.put_line('After calling IB API status '||x_return_status);
13925: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13926:
13927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_ERROR;
13931: END IF;
13932:
13925: --dbms_output.put_line('After calling IB API instance_id '||to_char(l_instance_rec.instance_id));
13926:
13927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_ERROR;
13931: END IF;
13932:
13933: --bug# 2982927 : resetting okc inv org again from k header :
13926:
13927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13930: RAISE OKL_API.G_EXCEPTION_ERROR;
13931: END IF;
13932:
13933: --bug# 2982927 : resetting okc inv org again from k header :
13934: okl_context.set_okc_org_context(p_chr_id => p_chr_id);
13937: END IF; --If serail number split
13938: x_instance_id := l_instance_rec.instance_id;
13939: END IF; --type of split
13940:
13941: OKL_API.END_ACTIVITY (x_msg_count,
13942: x_msg_data );
13943: EXCEPTION
13944: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13945: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13940:
13941: OKL_API.END_ACTIVITY (x_msg_count,
13942: x_msg_data );
13943: EXCEPTION
13944: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13945: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13946: l_api_name,
13947: G_PKG_NAME,
13948: 'OKL_API.G_RET_STS_ERROR',
13941: OKL_API.END_ACTIVITY (x_msg_count,
13942: x_msg_data );
13943: EXCEPTION
13944: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13945: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13946: l_api_name,
13947: G_PKG_NAME,
13948: 'OKL_API.G_RET_STS_ERROR',
13949: x_msg_count,
13944: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13945: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13946: l_api_name,
13947: G_PKG_NAME,
13948: 'OKL_API.G_RET_STS_ERROR',
13949: x_msg_count,
13950: x_msg_data,
13951: '_PVT');
13952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13948: 'OKL_API.G_RET_STS_ERROR',
13949: x_msg_count,
13950: x_msg_data,
13951: '_PVT');
13952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13954: l_api_name,
13955: G_PKG_NAME,
13956: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13949: x_msg_count,
13950: x_msg_data,
13951: '_PVT');
13952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13954: l_api_name,
13955: G_PKG_NAME,
13956: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13957: x_msg_count,
13952: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13953: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13954: l_api_name,
13955: G_PKG_NAME,
13956: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13957: x_msg_count,
13958: x_msg_data,
13959: '_PVT');
13960: WHEN OTHERS THEN
13957: x_msg_count,
13958: x_msg_data,
13959: '_PVT');
13960: WHEN OTHERS THEN
13961: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13962: l_api_name,
13963: G_PKG_NAME,
13964: 'OTHERS',
13965: x_msg_count,
13982: x_msg_data OUT NOCOPY VARCHAR2,
13983: p_txdv_rec IN txdv_rec_type,
13984: p_txlv_rec IN txlv_rec_type
13985: ) IS
13986: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13987: l_api_name CONSTANT VARCHAR2(30) := 'CONSOLIDATE_IB_LINES';
13988: l_api_version CONSTANT NUMBER := 1.0;
13989:
13990: --Cursor to get model line inventory item on parent line
14009: l_object1_id2 OKC_K_ITEMS.object1_id2%TYPE;
14010: l_chr_id NUMBER;
14011: l_cle_id NUMBER; --top line id
14012:
14013: l_parent_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14014: l_child_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14015:
14016: --Cursor to fetch ib instances
14017: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14010: l_chr_id NUMBER;
14011: l_cle_id NUMBER; --top line id
14012:
14013: l_parent_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14014: l_child_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14015:
14016: --Cursor to fetch ib instances
14017: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14018: SELECT cle_ib.id,
14089: WHERE cleb.id = pcleid;
14090: l_cle_status okc_k_lines_b.sts_code%TYPE;
14091: -- Bug# 5946411: ER End
14092: BEGIN
14093: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14094: -- Call start_activity to create savepoint, check compatibility
14095: -- and initialize message list
14096: x_return_status := OKL_API.START_ACTIVITY (
14097: l_api_name
14092: BEGIN
14093: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14094: -- Call start_activity to create savepoint, check compatibility
14095: -- and initialize message list
14096: x_return_status := OKL_API.START_ACTIVITY (
14097: l_api_name
14098: ,p_init_msg_list
14099: ,'_PVT'
14100: ,x_return_status);
14098: ,p_init_msg_list
14099: ,'_PVT'
14100: ,x_return_status);
14101: -- Check if activity started successfully
14102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14105: RAISE OKL_API.G_EXCEPTION_ERROR;
14106: END IF;
14099: ,'_PVT'
14100: ,x_return_status);
14101: -- Check if activity started successfully
14102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14105: RAISE OKL_API.G_EXCEPTION_ERROR;
14106: END IF;
14107: -- Bug# 5946411: ER
14100: ,x_return_status);
14101: -- Check if activity started successfully
14102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14105: RAISE OKL_API.G_EXCEPTION_ERROR;
14106: END IF;
14107: -- Bug# 5946411: ER
14108: -- get the status of the parent line id
14101: -- Check if activity started successfully
14102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14105: RAISE OKL_API.G_EXCEPTION_ERROR;
14106: END IF;
14107: -- Bug# 5946411: ER
14108: -- get the status of the parent line id
14109: OPEN l_cleb_sts_csr( p_txlv_rec.kle_id);
14120: l_cle_id;
14121: CLOSE inv_itm_csr;
14122:
14123: --evaluate if parent asset is serialized
14124: l_parent_serialized := OKL_API.G_FALSE;
14125: Is_Inv_Item_Serialized(p_api_version => p_api_version,
14126: p_init_msg_list => p_init_msg_list,
14127: x_return_status => x_return_status,
14128: x_msg_count => x_msg_count,
14131: p_chr_id => l_chr_id,
14132: p_cle_id => NULL,
14133: x_serialized => l_parent_serialized);
14134: --dbms_output.put_line('After parent serialized '||x_return_status);
14135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14138: RAISE OKL_API.G_EXCEPTION_ERROR;
14139: END IF;
14132: p_cle_id => NULL,
14133: x_serialized => l_parent_serialized);
14134: --dbms_output.put_line('After parent serialized '||x_return_status);
14135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14138: RAISE OKL_API.G_EXCEPTION_ERROR;
14139: END IF;
14140:
14133: x_serialized => l_parent_serialized);
14134: --dbms_output.put_line('After parent serialized '||x_return_status);
14135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14138: RAISE OKL_API.G_EXCEPTION_ERROR;
14139: END IF;
14140:
14141: --evaluate if child asset is serialized
14134: --dbms_output.put_line('After parent serialized '||x_return_status);
14135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14138: RAISE OKL_API.G_EXCEPTION_ERROR;
14139: END IF;
14140:
14141: --evaluate if child asset is serialized
14142: l_child_serialized := OKL_API.G_FALSE;
14138: RAISE OKL_API.G_EXCEPTION_ERROR;
14139: END IF;
14140:
14141: --evaluate if child asset is serialized
14142: l_child_serialized := OKL_API.G_FALSE;
14143: Is_Inv_Item_Serialized(p_api_version => p_api_version,
14144: p_init_msg_list => p_init_msg_list,
14145: x_return_status => x_return_status,
14146: x_msg_count => x_msg_count,
14149: p_chr_id => l_chr_id,
14150: p_cle_id => NULL,
14151: x_serialized => l_child_serialized);
14152: --dbms_output.put_line('After child serialized '||x_return_status);
14153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_ERROR;
14157: END IF;
14150: p_cle_id => NULL,
14151: x_serialized => l_child_serialized);
14152: --dbms_output.put_line('After child serialized '||x_return_status);
14153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_ERROR;
14157: END IF;
14158:
14151: x_serialized => l_child_serialized);
14152: --dbms_output.put_line('After child serialized '||x_return_status);
14153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_ERROR;
14157: END IF;
14158:
14159: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14152: --dbms_output.put_line('After child serialized '||x_return_status);
14153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_ERROR;
14157: END IF;
14158:
14159: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14160: --dbms_output.put_line('Both not serialized '||x_return_status);
14155: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14156: RAISE OKL_API.G_EXCEPTION_ERROR;
14157: END IF;
14158:
14159: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14160: --dbms_output.put_line('Both not serialized '||x_return_status);
14161: NULL;
14162: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14163: --dbms_output.put_line('Both serialized '||x_return_status);
14158:
14159: IF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_FALSE THEN
14160: --dbms_output.put_line('Both not serialized '||x_return_status);
14161: NULL;
14162: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14163: --dbms_output.put_line('Both serialized '||x_return_status);
14164: NULL;
14165: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_FALSE THEN
14166: --dbms_output.put_line('Parent serialized,Child not'||x_return_status);
14161: NULL;
14162: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_TRUE THEN
14163: --dbms_output.put_line('Both serialized '||x_return_status);
14164: NULL;
14165: ELSIF l_parent_serialized = OKL_API.G_TRUE AND l_child_serialized = OKL_API.G_FALSE THEN
14166: --dbms_output.put_line('Parent serialized,Child not'||x_return_status);
14167: --trim extra ib instance lines from child
14168: FOR i IN 1..(p_txlv_rec.current_units -1)
14169: LOOP
14180: p_inst_cle_id => l_tgt_inst_cle_id,
14181: p_ib_cle_id => l_tgt_ib_cle_id);
14182: END LOOP;
14183:
14184: ELSIF l_parent_serialized = OKL_API.G_FALSE AND l_child_serialized = OKL_API.G_TRUE THEN
14185: --dbms_output.put_line('Add extra ib instance line to child '||x_return_status);
14186: --Add extra ib instance line to child
14187: OPEN ib_inst_csr(p_fin_ast_id => l_cle_id);
14188: FETCH ib_inst_csr INTO l_ib_cle_id,
14215: p_renew_ref_yn => 'N',
14216: x_cle_id => l_new_inst_cle_id);
14217:
14218: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14222: RAISE OKL_API.G_EXCEPTION_ERROR;
14223: END IF;
14216: x_cle_id => l_new_inst_cle_id);
14217:
14218: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14222: RAISE OKL_API.G_EXCEPTION_ERROR;
14223: END IF;
14224: --making the line table for update of status
14217:
14218: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14222: RAISE OKL_API.G_EXCEPTION_ERROR;
14223: END IF;
14224: --making the line table for update of status
14225: j := j+1;
14218: --dbms_output.put_line('After Copying lines '||to_char(i)||x_return_status);
14219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14222: RAISE OKL_API.G_EXCEPTION_ERROR;
14223: END IF;
14224: --making the line table for update of status
14225: j := j+1;
14226: l_clev_tbl(j).id := l_new_inst_cle_id;
14252: p_restricted_update => OKC_API.G_FALSE,
14253: p_clev_tbl => l_clev_tbl,
14254: x_clev_tbl => lx_clev_tbl);
14255:
14256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14259: RAISE OKL_API.G_EXCEPTION_ERROR;
14260: END IF;
14253: p_clev_tbl => l_clev_tbl,
14254: x_clev_tbl => lx_clev_tbl);
14255:
14256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14259: RAISE OKL_API.G_EXCEPTION_ERROR;
14260: END IF;
14261: END IF;
14254: x_clev_tbl => lx_clev_tbl);
14255:
14256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14259: RAISE OKL_API.G_EXCEPTION_ERROR;
14260: END IF;
14261: END IF;
14262: END IF;
14255:
14256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14259: RAISE OKL_API.G_EXCEPTION_ERROR;
14260: END IF;
14261: END IF;
14262: END IF;
14263: OKL_API.END_ACTIVITY (x_msg_count,
14259: RAISE OKL_API.G_EXCEPTION_ERROR;
14260: END IF;
14261: END IF;
14262: END IF;
14263: OKL_API.END_ACTIVITY (x_msg_count,
14264: x_msg_data );
14265: EXCEPTION
14266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14267: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14262: END IF;
14263: OKL_API.END_ACTIVITY (x_msg_count,
14264: x_msg_data );
14265: EXCEPTION
14266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14267: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14268: l_api_name,
14269: G_PKG_NAME,
14270: 'OKL_API.G_RET_STS_ERROR',
14263: OKL_API.END_ACTIVITY (x_msg_count,
14264: x_msg_data );
14265: EXCEPTION
14266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14267: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14268: l_api_name,
14269: G_PKG_NAME,
14270: 'OKL_API.G_RET_STS_ERROR',
14271: x_msg_count,
14266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14267: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14268: l_api_name,
14269: G_PKG_NAME,
14270: 'OKL_API.G_RET_STS_ERROR',
14271: x_msg_count,
14272: x_msg_data,
14273: '_PVT');
14274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14270: 'OKL_API.G_RET_STS_ERROR',
14271: x_msg_count,
14272: x_msg_data,
14273: '_PVT');
14274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14276: l_api_name,
14277: G_PKG_NAME,
14278: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14271: x_msg_count,
14272: x_msg_data,
14273: '_PVT');
14274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14276: l_api_name,
14277: G_PKG_NAME,
14278: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14279: x_msg_count,
14274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14276: l_api_name,
14277: G_PKG_NAME,
14278: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14279: x_msg_count,
14280: x_msg_data,
14281: '_PVT');
14282: WHEN OTHERS THEN
14279: x_msg_count,
14280: x_msg_data,
14281: '_PVT');
14282: WHEN OTHERS THEN
14283: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14284: l_api_name,
14285: G_PKG_NAME,
14286: 'OTHERS',
14287: x_msg_count,
14305: x_msg_count OUT NOCOPY NUMBER,
14306: x_msg_data OUT NOCOPY VARCHAR2,
14307: p_txlv_rec IN txlv_rec_type) IS
14308:
14309: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14310: l_api_name CONSTANT VARCHAR2(30) := 'RELINK_IB_LINES';
14311: l_api_version CONSTANT NUMBER := 1.0;
14312:
14313: --cursor to fetch top line id for a fixed asset line
14342:
14343: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
14344: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
14345:
14346: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14347:
14348: BEGIN
14349:
14350: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14346: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
14347:
14348: BEGIN
14349:
14350: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14351: -- Call start_activity to create savepoint, check compatibility
14352: -- and initialize message list
14353: x_return_status := OKL_API.START_ACTIVITY (
14354: l_api_name
14349:
14350: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14351: -- Call start_activity to create savepoint, check compatibility
14352: -- and initialize message list
14353: x_return_status := OKL_API.START_ACTIVITY (
14354: l_api_name
14355: ,p_init_msg_list
14356: ,'_PVT'
14357: ,x_return_status);
14355: ,p_init_msg_list
14356: ,'_PVT'
14357: ,x_return_status);
14358: -- Check if activity started successfully
14359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14362: RAISE OKL_API.G_EXCEPTION_ERROR;
14363: END IF;
14356: ,'_PVT'
14357: ,x_return_status);
14358: -- Check if activity started successfully
14359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14362: RAISE OKL_API.G_EXCEPTION_ERROR;
14363: END IF;
14364:
14357: ,x_return_status);
14358: -- Check if activity started successfully
14359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14362: RAISE OKL_API.G_EXCEPTION_ERROR;
14363: END IF;
14364:
14365: --get the top line id for parent fixed asset line
14358: -- Check if activity started successfully
14359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14362: RAISE OKL_API.G_EXCEPTION_ERROR;
14363: END IF;
14364:
14365: --get the top line id for parent fixed asset line
14366:
14370: NULL;
14371: END IF;
14372: CLOSE l_cleb_csr;
14373:
14374: IF NVL(l_parent_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14375:
14376: l_serialized := is_serialized(p_cle_id => l_parent_fina_cle_id);
14377: IF l_serialized = OKL_API.G_TRUE THEN
14378: l_target_kle_id := NULL;
14373:
14374: IF NVL(l_parent_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14375:
14376: l_serialized := is_serialized(p_cle_id => l_parent_fina_cle_id);
14377: IF l_serialized = OKL_API.G_TRUE THEN
14378: l_target_kle_id := NULL;
14379: OPEN l_target_kle_csr(p_tal_id => p_txlv_rec.id);
14380: LOOP
14381: FETCH l_target_kle_csr INTO l_target_kle_id;
14390: NULL;
14391: END IF;
14392: CLOSE l_cleb_csr;
14393:
14394: IF NVL(l_child_fina_cle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14395: l_instcle_id := NULL;
14396: OPEN l_instcle_csr(p_cle_id => l_parent_fina_cle_id);
14397: FETCH l_instcle_csr INTO l_instcle_id;
14398: IF l_instcle_csr%NOTFOUND THEN
14398: IF l_instcle_csr%NOTFOUND THEN
14399: NULL;
14400: END IF;
14401: CLOSE l_instcle_csr;
14402: IF NVL(l_instcle_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM THEN
14403: l_clev_rec.id := l_instcle_id;
14404: l_clev_rec.cle_id := l_child_fina_cle_id;
14405: OKL_OKC_MIGRATION_PVT.update_contract_line(p_api_version => p_api_version,
14406: p_init_msg_list => p_init_msg_list,
14409: x_msg_data => x_msg_data,
14410: p_clev_rec => l_clev_rec,
14411: x_clev_rec => lx_clev_rec);
14412: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14416: RAISE OKL_API.G_EXCEPTION_ERROR;
14417: END IF;
14410: p_clev_rec => l_clev_rec,
14411: x_clev_rec => lx_clev_rec);
14412: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14416: RAISE OKL_API.G_EXCEPTION_ERROR;
14417: END IF;
14418: END IF;
14411: x_clev_rec => lx_clev_rec);
14412: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14416: RAISE OKL_API.G_EXCEPTION_ERROR;
14417: END IF;
14418: END IF;
14419: END IF;
14412: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
14413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14416: RAISE OKL_API.G_EXCEPTION_ERROR;
14417: END IF;
14418: END IF;
14419: END IF;
14420: END IF;
14419: END IF;
14420: END IF;
14421: END LOOP;
14422: CLOSE l_target_kle_csr;
14423: ELSIF l_serialized = OKL_API.G_FALSE THEN
14424:
14425: --this processing will be done in the create instance routine
14426: --as new IB instances need to be created
14427: NULL;
14427: NULL;
14428:
14429: END IF;
14430: END IF;
14431: OKL_API.END_ACTIVITY (x_msg_count,
14432: x_msg_data );
14433: EXCEPTION
14434: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14435: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14430: END IF;
14431: OKL_API.END_ACTIVITY (x_msg_count,
14432: x_msg_data );
14433: EXCEPTION
14434: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14435: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14436: l_api_name,
14437: G_PKG_NAME,
14438: 'OKL_API.G_RET_STS_ERROR',
14431: OKL_API.END_ACTIVITY (x_msg_count,
14432: x_msg_data );
14433: EXCEPTION
14434: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14435: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14436: l_api_name,
14437: G_PKG_NAME,
14438: 'OKL_API.G_RET_STS_ERROR',
14439: x_msg_count,
14434: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14435: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14436: l_api_name,
14437: G_PKG_NAME,
14438: 'OKL_API.G_RET_STS_ERROR',
14439: x_msg_count,
14440: x_msg_data,
14441: '_PVT');
14442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14438: 'OKL_API.G_RET_STS_ERROR',
14439: x_msg_count,
14440: x_msg_data,
14441: '_PVT');
14442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14443: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14444: l_api_name,
14445: G_PKG_NAME,
14446: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14439: x_msg_count,
14440: x_msg_data,
14441: '_PVT');
14442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14443: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14444: l_api_name,
14445: G_PKG_NAME,
14446: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14447: x_msg_count,
14442: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14443: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14444: l_api_name,
14445: G_PKG_NAME,
14446: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14447: x_msg_count,
14448: x_msg_data,
14449: '_PVT');
14450: WHEN OTHERS THEN
14447: x_msg_count,
14448: x_msg_data,
14449: '_PVT');
14450: WHEN OTHERS THEN
14451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14452: l_api_name,
14453: G_PKG_NAME,
14454: 'OTHERS',
14455: x_msg_count,
14471: p_chr_id IN NUMBER,
14472: p_cle_tbl IN cle_tbl_type
14473: ) IS
14474:
14475: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14476: l_api_name CONSTANT VARCHAR2(30) := 'RECALCULATE_COSTS';
14477: l_api_version CONSTANT NUMBER := 1.0;
14478:
14479: l_oec NUMBER;
14489: i NUMBER;
14490:
14491: BEGIN
14492:
14493: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14494: -- Call start_activity to create savepoint, check compatibility
14495: -- and initialize message list
14496: x_return_status := OKL_API.START_ACTIVITY (
14497: l_api_name
14492:
14493: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14494: -- Call start_activity to create savepoint, check compatibility
14495: -- and initialize message list
14496: x_return_status := OKL_API.START_ACTIVITY (
14497: l_api_name
14498: ,p_init_msg_list
14499: ,'_PVT'
14500: ,x_return_status);
14498: ,p_init_msg_list
14499: ,'_PVT'
14500: ,x_return_status);
14501: -- Check if activity started successfully
14502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14505: RAISE OKL_API.G_EXCEPTION_ERROR;
14506: END IF;
14499: ,'_PVT'
14500: ,x_return_status);
14501: -- Check if activity started successfully
14502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14505: RAISE OKL_API.G_EXCEPTION_ERROR;
14506: END IF;
14507:
14500: ,x_return_status);
14501: -- Check if activity started successfully
14502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14505: RAISE OKL_API.G_EXCEPTION_ERROR;
14506: END IF;
14507:
14508: IF p_cle_tbl.COUNT > 0 THEN
14501: -- Check if activity started successfully
14502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14505: RAISE OKL_API.G_EXCEPTION_ERROR;
14506: END IF;
14507:
14508: IF p_cle_tbl.COUNT > 0 THEN
14509: FOR i IN p_cle_tbl.FIRST..p_cle_tbl.LAST
14518: p_contract_id => p_chr_id,
14519: p_line_id => p_cle_tbl(i).cle_id,
14520: x_value => l_oec);
14521:
14522: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14524: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14525: RAISE OKL_API.G_EXCEPTION_ERROR;
14526: END IF;
14519: p_line_id => p_cle_tbl(i).cle_id,
14520: x_value => l_oec);
14521:
14522: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14524: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14525: RAISE OKL_API.G_EXCEPTION_ERROR;
14526: END IF;
14527:
14520: x_value => l_oec);
14521:
14522: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14524: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14525: RAISE OKL_API.G_EXCEPTION_ERROR;
14526: END IF;
14527:
14528: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14521:
14522: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14523: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14524: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14525: RAISE OKL_API.G_EXCEPTION_ERROR;
14526: END IF;
14527:
14528: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14529: p_init_msg_list => p_init_msg_list,
14534: p_contract_id => p_chr_id,
14535: p_line_id => p_cle_tbl(i).cle_id,
14536: x_value => l_cap_amount);
14537:
14538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14541: RAISE OKL_API.G_EXCEPTION_ERROR;
14542: END IF;
14535: p_line_id => p_cle_tbl(i).cle_id,
14536: x_value => l_cap_amount);
14537:
14538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14541: RAISE OKL_API.G_EXCEPTION_ERROR;
14542: END IF;
14543:
14536: x_value => l_cap_amount);
14537:
14538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14541: RAISE OKL_API.G_EXCEPTION_ERROR;
14542: END IF;
14543:
14544: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14537:
14538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14541: RAISE OKL_API.G_EXCEPTION_ERROR;
14542: END IF;
14543:
14544: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14545: p_init_msg_list => p_init_msg_list,
14550: p_contract_id => p_chr_id,
14551: p_line_id => p_cle_tbl(i).cle_id,
14552: x_value => l_residual_value);
14553:
14554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14551: p_line_id => p_cle_tbl(i).cle_id,
14552: x_value => l_residual_value);
14553:
14554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559:
14552: x_value => l_residual_value);
14553:
14554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559:
14560: ----------------------------------------------------------------------
14553:
14554: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14555: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14556: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14557: RAISE OKL_API.G_EXCEPTION_ERROR;
14558: END IF;
14559:
14560: ----------------------------------------------------------------------
14561: --call api to update costs on asset line
14578: x_clev_rec => lx_clev_rec,
14579: x_klev_rec => lx_klev_rec
14580: );
14581:
14582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14585: RAISE OKL_API.G_EXCEPTION_ERROR;
14586: END IF;
14579: x_klev_rec => lx_klev_rec
14580: );
14581:
14582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14585: RAISE OKL_API.G_EXCEPTION_ERROR;
14586: END IF;
14587: END LOOP;
14580: );
14581:
14582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14585: RAISE OKL_API.G_EXCEPTION_ERROR;
14586: END IF;
14587: END LOOP;
14588: END IF;
14581:
14582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14585: RAISE OKL_API.G_EXCEPTION_ERROR;
14586: END IF;
14587: END LOOP;
14588: END IF;
14589:
14586: END IF;
14587: END LOOP;
14588: END IF;
14589:
14590: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14591: EXCEPTION
14592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14594: l_api_name,
14588: END IF;
14589:
14590: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14591: EXCEPTION
14592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14594: l_api_name,
14595: G_PKG_NAME,
14596: 'OKL_API.G_RET_STS_ERROR',
14589:
14590: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
14591: EXCEPTION
14592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14594: l_api_name,
14595: G_PKG_NAME,
14596: 'OKL_API.G_RET_STS_ERROR',
14597: x_msg_count,
14592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14594: l_api_name,
14595: G_PKG_NAME,
14596: 'OKL_API.G_RET_STS_ERROR',
14597: x_msg_count,
14598: x_msg_data,
14599: '_PVT');
14600: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14596: 'OKL_API.G_RET_STS_ERROR',
14597: x_msg_count,
14598: x_msg_data,
14599: '_PVT');
14600: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14601: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14602: l_api_name,
14603: G_PKG_NAME,
14604: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14597: x_msg_count,
14598: x_msg_data,
14599: '_PVT');
14600: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14601: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14602: l_api_name,
14603: G_PKG_NAME,
14604: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14605: x_msg_count,
14600: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14601: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14602: l_api_name,
14603: G_PKG_NAME,
14604: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14605: x_msg_count,
14606: x_msg_data,
14607: '_PVT');
14608: WHEN OTHERS THEN
14605: x_msg_count,
14606: x_msg_data,
14607: '_PVT');
14608: WHEN OTHERS THEN
14609: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14610: l_api_name,
14611: G_PKG_NAME,
14612: 'OTHERS',
14613: x_msg_count,
14634: x_cle_tbl OUT NOCOPY cle_tbl_type,
14635: --Bug# 6344223
14636: p_source_call IN VARCHAR2 DEFAULT 'UI') IS
14637:
14638: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
14639: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_FIXED_ASSET';
14640: l_api_version CONSTANT NUMBER := 1.0;
14641:
14642: CURSOR k_line_curs(p_fa_line_id IN NUMBER) IS
14923: l_sla_asset_chr_id NUMBER;
14924: --Bug# 6373605 end
14925:
14926: BEGIN
14927: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14928: -- Call start_activity to create savepoint, check compatibility
14929: -- and initialize message list
14930: x_return_status := OKL_API.START_ACTIVITY (
14931: l_api_name
14926: BEGIN
14927: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14928: -- Call start_activity to create savepoint, check compatibility
14929: -- and initialize message list
14930: x_return_status := OKL_API.START_ACTIVITY (
14931: l_api_name
14932: ,p_init_msg_list
14933: ,'_PVT'
14934: ,x_return_status);
14932: ,p_init_msg_list
14933: ,'_PVT'
14934: ,x_return_status);
14935: -- Check if activity started successfully
14936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14939: RAISE OKL_API.G_EXCEPTION_ERROR;
14940: END IF;
14933: ,'_PVT'
14934: ,x_return_status);
14935: -- Check if activity started successfully
14936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14939: RAISE OKL_API.G_EXCEPTION_ERROR;
14940: END IF;
14941:
14934: ,x_return_status);
14935: -- Check if activity started successfully
14936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14939: RAISE OKL_API.G_EXCEPTION_ERROR;
14940: END IF;
14941:
14942: l_txdv_tbl := p_txdv_tbl;
14935: -- Check if activity started successfully
14936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14939: RAISE OKL_API.G_EXCEPTION_ERROR;
14940: END IF;
14941:
14942: l_txdv_tbl := p_txdv_tbl;
14943:
14958: --Bug# 6373605 end
14959: IF k_line_curs%NOTFOUND THEN
14960: --dbms_output.put_line('unable to find financial asset line for fixed asset line!!!');
14961: --handle error appropraitely
14962: OKL_API.set_message(p_app_name => G_APP_NAME,
14963: p_msg_name => G_NO_DATA_FOUND,
14964: p_token1 => 'COL_NAME',
14965: p_token1_value => 'Financial Asset Line');
14966: RAISE OKL_API.G_EXCEPTION_ERROR;
14962: OKL_API.set_message(p_app_name => G_APP_NAME,
14963: p_msg_name => G_NO_DATA_FOUND,
14964: p_token1 => 'COL_NAME',
14965: p_token1_value => 'Financial Asset Line');
14966: RAISE OKL_API.G_EXCEPTION_ERROR;
14967: END IF;
14968: CLOSE k_line_curs;
14969:
14970: --Bug# 2982927 : Resetting okc inv organization id from k header
14982: p_split_into_individuals_yn => p_txlv_rec.split_into_singles_flag,
14983: p_split_into_units => p_txlv_rec.split_into_units,
14984: p_tal_id => p_txlv_rec.id);
14985:
14986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14989: RAISE OKL_API.G_EXCEPTION_ERROR;
14990: END IF;
14983: p_split_into_units => p_txlv_rec.split_into_units,
14984: p_tal_id => p_txlv_rec.id);
14985:
14986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14989: RAISE OKL_API.G_EXCEPTION_ERROR;
14990: END IF;
14991: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
14984: p_tal_id => p_txlv_rec.id);
14985:
14986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14989: RAISE OKL_API.G_EXCEPTION_ERROR;
14990: END IF;
14991: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
14992:
14985:
14986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14987: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14988: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14989: RAISE OKL_API.G_EXCEPTION_ERROR;
14990: END IF;
14991: --Bug# 3222804 : Serial number control to be based on leasing inv org setup
14992:
14993: --1. get values for the parent asset
14999: l_loan_yn := 'N';
15000: l_loan_yn := Check_If_Loan(P_Cle_Id => l_source_cle_id,
15001: x_return_status => x_return_status);
15002:
15003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15006: RAISE OKL_API.G_EXCEPTION_ERROR;
15007: END IF;
15000: l_loan_yn := Check_If_Loan(P_Cle_Id => l_source_cle_id,
15001: x_return_status => x_return_status);
15002:
15003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15006: RAISE OKL_API.G_EXCEPTION_ERROR;
15007: END IF;
15008:
15001: x_return_status => x_return_status);
15002:
15003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15006: RAISE OKL_API.G_EXCEPTION_ERROR;
15007: END IF;
15008:
15009: IF l_loan_yn = 'N' THEN
15002:
15003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15006: RAISE OKL_API.G_EXCEPTION_ERROR;
15007: END IF;
15008:
15009: IF l_loan_yn = 'N' THEN
15010: OKL_API.set_message(p_app_name => G_APP_NAME,
15006: RAISE OKL_API.G_EXCEPTION_ERROR;
15007: END IF;
15008:
15009: IF l_loan_yn = 'N' THEN
15010: OKL_API.set_message(p_app_name => G_APP_NAME,
15011: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
15012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15013: ELSIF l_loan_yn = 'Y' THEN
15014: l_fa_exists := 'N';
15008:
15009: IF l_loan_yn = 'N' THEN
15010: OKL_API.set_message(p_app_name => G_APP_NAME,
15011: p_msg_name => G_SPLIT_ASSET_NOT_FOUND);
15012: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15013: ELSIF l_loan_yn = 'Y' THEN
15014: l_fa_exists := 'N';
15015: END IF;
15016: ELSE
15039: p_parent_line_id => l_source_cle_id,
15040: p_txdv_rec => l_txdv_rec,
15041: p_txlv_rec => l_txlv_rec);
15042: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047: END IF;
15040: p_txdv_rec => l_txdv_rec,
15041: p_txlv_rec => l_txlv_rec);
15042: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047: END IF;
15048:
15041: p_txlv_rec => l_txlv_rec);
15042: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047: END IF;
15048:
15049: --2. Call Asset Retire Api -
15042: --dbms_output.put_line('after adjusting split lines'||x_return_status);
15043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15046: RAISE OKL_API.G_EXCEPTION_ERROR;
15047: END IF;
15048:
15049: --2. Call Asset Retire Api -
15050: -- to confirm with Mukul whether retirement or
15132: --Bug# 4028371
15133: x_fa_trx_date => l_fa_retire_date);
15134:
15135: --dbms_output.put_line('after retiring fA'||x_return_status);
15136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15139: RAISE OKL_API.G_EXCEPTION_ERROR;
15140: END IF;
15133: x_fa_trx_date => l_fa_retire_date);
15134:
15135: --dbms_output.put_line('after retiring fA'||x_return_status);
15136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15139: RAISE OKL_API.G_EXCEPTION_ERROR;
15140: END IF;
15141: */
15134:
15135: --dbms_output.put_line('after retiring fA'||x_return_status);
15136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15139: RAISE OKL_API.G_EXCEPTION_ERROR;
15140: END IF;
15141: */
15142: /* Bug#4508050 - smadhava - Modified - End*/
15135: --dbms_output.put_line('after retiring fA'||x_return_status);
15136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15139: RAISE OKL_API.G_EXCEPTION_ERROR;
15140: END IF;
15141: */
15142: /* Bug#4508050 - smadhava - Modified - End*/
15143: --Bug# 3156924
15159: --Bug# 4028371
15160: x_fa_trx_date => l_fa_adj_date);
15161:
15162: --dbms_output.put_line('after adjusting fA'||x_return_status);
15163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15166: RAISE OKL_API.G_EXCEPTION_ERROR;
15167: END IF;
15160: x_fa_trx_date => l_fa_adj_date);
15161:
15162: --dbms_output.put_line('after adjusting fA'||x_return_status);
15163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15166: RAISE OKL_API.G_EXCEPTION_ERROR;
15167: END IF;
15168: End If;
15161:
15162: --dbms_output.put_line('after adjusting fA'||x_return_status);
15163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15166: RAISE OKL_API.G_EXCEPTION_ERROR;
15167: END IF;
15168: End If;
15169: */
15162: --dbms_output.put_line('after adjusting fA'||x_return_status);
15163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15166: RAISE OKL_API.G_EXCEPTION_ERROR;
15167: END IF;
15168: End If;
15169: */
15170: /* Bug#4508050 - smadhava - Modified - Start*/
15198: --Bug# 4028371
15199: x_fa_trx_date => l_fa_adj_date);
15200:
15201: --dbms_output.put_line('after adjusting fA'||x_return_status);
15202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15205: RAISE OKL_API.G_EXCEPTION_ERROR;
15206: END IF;
15199: x_fa_trx_date => l_fa_adj_date);
15200:
15201: --dbms_output.put_line('after adjusting fA'||x_return_status);
15202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15205: RAISE OKL_API.G_EXCEPTION_ERROR;
15206: END IF;
15207: /* Bug#4508050 - smadhava - Modified - Start*/
15200:
15201: --dbms_output.put_line('after adjusting fA'||x_return_status);
15202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15205: RAISE OKL_API.G_EXCEPTION_ERROR;
15206: END IF;
15207: /* Bug#4508050 - smadhava - Modified - Start*/
15208: /*
15201: --dbms_output.put_line('after adjusting fA'||x_return_status);
15202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15205: RAISE OKL_API.G_EXCEPTION_ERROR;
15206: END IF;
15207: /* Bug#4508050 - smadhava - Modified - Start*/
15208: /*
15209: END IF;
15233: p_copy_line_party_yn => 'Y',
15234: p_renew_ref_yn => 'N',
15235: x_cle_id => l_split_cle_id);
15236:
15237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15240: RAISE OKL_API.G_EXCEPTION_ERROR;
15241: END IF;
15234: p_renew_ref_yn => 'N',
15235: x_cle_id => l_split_cle_id);
15236:
15237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15240: RAISE OKL_API.G_EXCEPTION_ERROR;
15241: END IF;
15242:
15235: x_cle_id => l_split_cle_id);
15236:
15237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15240: RAISE OKL_API.G_EXCEPTION_ERROR;
15241: END IF;
15242:
15243: --Bug# 4631549 : If release contract copy expected_asset_cost from source line to target line
15236:
15237: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15238: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15239: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15240: RAISE OKL_API.G_EXCEPTION_ERROR;
15241: END IF;
15242:
15243: --Bug# 4631549 : If release contract copy expected_asset_cost from source line to target line
15244: Open l_chrb_csr (p_chr_id => l_chr_id);
15244: Open l_chrb_csr (p_chr_id => l_chr_id);
15245: fetch l_chrb_csr into l_chrb_rec;
15246: close l_chrb_csr;
15247:
15248: If nvl(l_chrb_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' then
15249: open l_exp_cost_csr(p_cle_id => l_source_cle_id);
15250: fetch l_exp_cost_csr into l_exp_cost_rec;
15251: close l_exp_cost_csr;
15252:
15265: x_clev_rec => lx_clev_exp_cost_rec,
15266: x_klev_rec => lx_klev_exp_cost_rec
15267: );
15268:
15269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15272: RAISE OKL_API.G_EXCEPTION_ERROR;
15273: END IF;
15266: x_klev_rec => lx_klev_exp_cost_rec
15267: );
15268:
15269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15272: RAISE OKL_API.G_EXCEPTION_ERROR;
15273: END IF;
15274: End If;
15267: );
15268:
15269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15272: RAISE OKL_API.G_EXCEPTION_ERROR;
15273: END IF;
15274: End If;
15275:
15268:
15269: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15270: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15271: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15272: RAISE OKL_API.G_EXCEPTION_ERROR;
15273: END IF;
15274: End If;
15275:
15276: --2. Call local procedure to adjust quantities and amounts
15280:
15281: --Bug# 3502142
15282: l_round_split_comp_amt := 'N';
15283: IF (i = l_txdv_tbl.LAST) AND
15284: (NVL(l_txdv_tbl(i).split_percent,0) > 0 OR l_txdv_tbl(i).split_percent <> OKL_API.G_MISS_NUM) THEN
15285: l_round_split_comp_amt := 'Y';
15286: END IF;
15287:
15288: Adjust_Split_Lines(
15296: p_txdv_rec => l_txdv_rec,
15297: p_txlv_rec => l_txlv_rec,
15298: p_round_split_comp_amt => l_round_split_comp_amt);
15299:
15300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15303: RAISE OKL_API.G_EXCEPTION_ERROR;
15304: END IF;
15297: p_txlv_rec => l_txlv_rec,
15298: p_round_split_comp_amt => l_round_split_comp_amt);
15299:
15300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15303: RAISE OKL_API.G_EXCEPTION_ERROR;
15304: END IF;
15305: IF l_fa_exists = 'Y' THEN
15298: p_round_split_comp_amt => l_round_split_comp_amt);
15299:
15300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15303: RAISE OKL_API.G_EXCEPTION_ERROR;
15304: END IF;
15305: IF l_fa_exists = 'Y' THEN
15306: --to get all books for this asset
15299:
15300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15303: RAISE OKL_API.G_EXCEPTION_ERROR;
15304: END IF;
15305: IF l_fa_exists = 'Y' THEN
15306: --to get all books for this asset
15307: OPEN all_books_curs(p_asset_id => l_ast_line_rec.asset_id);
15340: l_ast_line_rec.ORG_ID := l_all_books_rec.org_id;
15341: l_ast_line_rec.SET_OF_BOOKS_ID := l_all_books_rec.set_of_books_id;
15342:
15343: --Bug# 6373605 start
15344: If nvl(l_sts_code,OKL_API.G_MISS_CHAR) in
15345: ('TERMINATED','EXPIRED') Then
15346: l_sla_asset_chr_id := NULL;
15347: Else
15348: l_sla_asset_chr_id := l_chr_id;
15375: x_fa_trx_date => l_fa_add_date,
15376: x_asset_hdr_rec => l_asset_hdr_rec);
15377: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15378: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15382: RAISE OKL_API.G_EXCEPTION_ERROR;
15383: END IF;
15376: x_asset_hdr_rec => l_asset_hdr_rec);
15377: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15378: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15382: RAISE OKL_API.G_EXCEPTION_ERROR;
15383: END IF;
15384:
15377: --dbms_output.put_line('after adding fixed asset '||x_return_status);
15378: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15382: RAISE OKL_API.G_EXCEPTION_ERROR;
15383: END IF;
15384:
15385: --Bug# 4028371
15378: --dbms_output.put_line('after adding fixed asset '||to_char(l_asset_hdr_rec.asset_id));
15379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15382: RAISE OKL_API.G_EXCEPTION_ERROR;
15383: END IF;
15384:
15385: --Bug# 4028371
15386: --update the fa trx date on transaction line
15396: x_msg_count => x_msg_count,
15397: x_msg_data => x_msg_data,
15398: p_talv_rec => l_talv_date_rec,
15399: x_talv_rec => lx_talv_date_rec);
15400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15403: RAISE OKL_API.G_EXCEPTION_ERROR;
15404: END IF;
15397: x_msg_data => x_msg_data,
15398: p_talv_rec => l_talv_date_rec,
15399: x_talv_rec => lx_talv_date_rec);
15400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15403: RAISE OKL_API.G_EXCEPTION_ERROR;
15404: END IF;
15405:
15398: p_talv_rec => l_talv_date_rec,
15399: x_talv_rec => lx_talv_date_rec);
15400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15403: RAISE OKL_API.G_EXCEPTION_ERROR;
15404: END IF;
15405:
15406: --Bug# 6326479
15399: x_talv_rec => lx_talv_date_rec);
15400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15403: RAISE OKL_API.G_EXCEPTION_ERROR;
15404: END IF;
15405:
15406: --Bug# 6326479
15407: /* 7626121 commented out from here and moved outside
15415: ,p_kle_id => l_split_cle_id
15416: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15417: );
15418:
15419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_ERROR;
15423: END IF; */
15416: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15417: );
15418:
15419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_ERROR;
15423: END IF; */
15424:
15417: );
15418:
15419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_ERROR;
15423: END IF; */
15424:
15425: -- Bug# 6189396 -- start
15418:
15419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15420: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_ERROR;
15423: END IF; */
15424:
15425: -- Bug# 6189396 -- start
15426: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15443: ,p_kle_id => l_split_cle_id_orig
15444: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15445: );
15446:
15447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15450: RAISE OKL_API.G_EXCEPTION_ERROR;
15451: END IF;
15444: ,p_transaction_date=>l_trx_rec.date_trans_occurred
15445: );
15446:
15447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15450: RAISE OKL_API.G_EXCEPTION_ERROR;
15451: END IF;
15452:
15445: );
15446:
15447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15450: RAISE OKL_API.G_EXCEPTION_ERROR;
15451: END IF;
15452:
15453: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15446:
15447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15450: RAISE OKL_API.G_EXCEPTION_ERROR;
15451: END IF;
15452:
15453: okl_execute_formula_pub.g_additional_parameters(1).name := '';
15454: okl_execute_formula_pub.g_additional_parameters(1).value := null;
15475: x_msg_data => x_msg_data,
15476: p_cimv_rec => l_cimv_rec,
15477: x_cimv_rec => l_cimv_rec_out);
15478: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15482: RAISE OKL_API.G_EXCEPTION_ERROR;
15483: END IF;
15476: p_cimv_rec => l_cimv_rec,
15477: x_cimv_rec => l_cimv_rec_out);
15478: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15482: RAISE OKL_API.G_EXCEPTION_ERROR;
15483: END IF;
15484: END IF; --l_fa_exits
15477: x_cimv_rec => l_cimv_rec_out);
15478: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15482: RAISE OKL_API.G_EXCEPTION_ERROR;
15483: END IF;
15484: END IF; --l_fa_exits
15485: -- take care of the ib instances for this FA line
15478: --dbms_output.put_line('after updating contract item for Asset link '||x_return_status);
15479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15482: RAISE OKL_API.G_EXCEPTION_ERROR;
15483: END IF;
15484: END IF; --l_fa_exits
15485: -- take care of the ib instances for this FA line
15486: --dbms_output.put_line('before splitting IB instances fa_line_id'||to_char(l_cimv_rec_out.cle_id));
15485: -- take care of the ib instances for this FA line
15486: --dbms_output.put_line('before splitting IB instances fa_line_id'||to_char(l_cimv_rec_out.cle_id));
15487: --bug# : serial number processing for split asset by serial numbers - consolidate ib lines
15488:
15489: IF NVL(l_txdv_rec.split_percent,0) NOT IN (0,OKL_API.G_MISS_NUM) THEN -- Is serialized
15490: --consolidate the ib lines
15491: consolidate_ib_lines(p_api_version => p_api_version,
15492: p_init_msg_list => p_init_msg_list,
15493: x_return_status => x_return_status,
15496: p_txdv_rec => l_txdv_rec,
15497: p_txlv_rec => l_txlv_rec
15498: );
15499: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15503: RAISE OKL_API.G_EXCEPTION_ERROR;
15504: END IF;
15497: p_txlv_rec => l_txlv_rec
15498: );
15499: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15503: RAISE OKL_API.G_EXCEPTION_ERROR;
15504: END IF;
15505: END IF;
15498: );
15499: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15503: RAISE OKL_API.G_EXCEPTION_ERROR;
15504: END IF;
15505: END IF;
15506:
15499: --dbms_output.put_line('After consolidating ib lines'||x_return_status);
15500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15503: RAISE OKL_API.G_EXCEPTION_ERROR;
15504: END IF;
15505: END IF;
15506:
15507: --bug# : serial number processing for split asset by serial numbers - consolidate ib lines
15531: p_txdv_rec => l_txdv_rec,
15532: x_instance_id => l_csi_instance_id);
15533:
15534: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15538: RAISE OKL_API.G_EXCEPTION_ERROR;
15539: END IF;
15532: x_instance_id => l_csi_instance_id);
15533:
15534: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15538: RAISE OKL_API.G_EXCEPTION_ERROR;
15539: END IF;
15540:
15533:
15534: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15538: RAISE OKL_API.G_EXCEPTION_ERROR;
15539: END IF;
15540:
15541: --update the coressponding okc_k_item record
15534: --dbms_output.put_line('After Create ib instance '||x_return_status||':'||to_char(l_csi_instance_id));
15535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15538: RAISE OKL_API.G_EXCEPTION_ERROR;
15539: END IF;
15540:
15541: --update the coressponding okc_k_item record
15542: l_cimv_rec.id := l_csi_cim_id;
15552: p_cimv_rec => l_cimv_rec,
15553: x_cimv_rec => l_cimv_rec_out);
15554:
15555: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_ERROR;
15560: END IF;
15553: x_cimv_rec => l_cimv_rec_out);
15554:
15555: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_ERROR;
15560: END IF;
15561: END LOOP;
15554:
15555: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_ERROR;
15560: END IF;
15561: END LOOP;
15562: CLOSE ib_item_cur;
15555: --dbms_output.put_line('after updating contract item for IB link '||x_return_status);
15556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_ERROR;
15560: END IF;
15561: END LOOP;
15562: CLOSE ib_item_cur;
15563:
15563:
15564: --Bug# 115.9 - Split by serial numbers
15565: --consolidate if serialized and delete duplicate instance lines on child
15566: --do it only for normal split assets as logic for split asset into compoets to be worked out
15567: IF NVL(l_txdv_rec.split_percent,0) IN (0,OKL_API.G_MISS_NUM) THEN
15568: ----
15569: OPEN get_dup_inst_csr (p_asd_id => l_txdv_rec.id);
15570: LOOP
15571: FETCH get_dup_inst_csr INTO l_dup_inst_cle_id, l_dup_ib_cle_id;
15578: x_msg_count => x_msg_count,
15579: x_msg_data => x_msg_data,
15580: p_inst_cle_id => l_dup_inst_cle_id,
15581: p_ib_cle_id => l_dup_ib_cle_id);
15582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15585: RAISE OKL_API.G_EXCEPTION_ERROR;
15586: END IF;
15579: x_msg_data => x_msg_data,
15580: p_inst_cle_id => l_dup_inst_cle_id,
15581: p_ib_cle_id => l_dup_ib_cle_id);
15582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15585: RAISE OKL_API.G_EXCEPTION_ERROR;
15586: END IF;
15587: END LOOP;
15580: p_inst_cle_id => l_dup_inst_cle_id,
15581: p_ib_cle_id => l_dup_ib_cle_id);
15582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15585: RAISE OKL_API.G_EXCEPTION_ERROR;
15586: END IF;
15587: END LOOP;
15588: CLOSE get_dup_inst_csr;
15581: p_ib_cle_id => l_dup_ib_cle_id);
15582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15585: RAISE OKL_API.G_EXCEPTION_ERROR;
15586: END IF;
15587: END LOOP;
15588: CLOSE get_dup_inst_csr;
15589: ----
15599: IF (i=l_txdv_tbl.LAST) THEN
15600:
15601:
15602: IF (i = l_txdv_tbl.LAST) AND
15603: (NVL(l_txdv_tbl(i).split_percent,0) > 0 OR l_txdv_tbl(i).split_percent <> OKL_API.G_MISS_NUM) THEN
15604: --special processing for split asset components the original asset has to be retired completely
15605: --1.Abandon the old asset line as we have created assets
15606: Abandon_Parent_Asset(
15607: p_api_version => p_api_version,
15610: x_msg_count => x_msg_count,
15611: x_msg_data => x_msg_data,
15612: p_cle_id => l_source_cle_id);
15613:
15614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15617: RAISE OKL_API.G_EXCEPTION_ERROR;
15618: END IF;
15611: x_msg_data => x_msg_data,
15612: p_cle_id => l_source_cle_id);
15613:
15614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15617: RAISE OKL_API.G_EXCEPTION_ERROR;
15618: END IF;
15619: IF l_fa_exists = 'Y' THEN
15612: p_cle_id => l_source_cle_id);
15613:
15614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15617: RAISE OKL_API.G_EXCEPTION_ERROR;
15618: END IF;
15619: IF l_fa_exists = 'Y' THEN
15620: --2.Fully retire the Asset
15613:
15614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15617: RAISE OKL_API.G_EXCEPTION_ERROR;
15618: END IF;
15619: IF l_fa_exists = 'Y' THEN
15620: --2.Fully retire the Asset
15621: OPEN all_books_curs(p_asset_id => l_ast_line_rec.asset_id);
15681: p_trx_date => l_trx_rec.date_trans_occurred,
15682: p_trx_number => l_trx_rec.trans_number,
15683: x_fa_trx_date => l_fa_retire_date);
15684: --dbms_output.put_line('after retiring fA'||x_return_status);
15685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15688: RAISE OKL_API.G_EXCEPTION_ERROR;
15689: END IF;
15682: p_trx_number => l_trx_rec.trans_number,
15683: x_fa_trx_date => l_fa_retire_date);
15684: --dbms_output.put_line('after retiring fA'||x_return_status);
15685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15688: RAISE OKL_API.G_EXCEPTION_ERROR;
15689: END IF;
15690: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15683: x_fa_trx_date => l_fa_retire_date);
15684: --dbms_output.put_line('after retiring fA'||x_return_status);
15685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15688: RAISE OKL_API.G_EXCEPTION_ERROR;
15689: END IF;
15690: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15691: */
15684: --dbms_output.put_line('after retiring fA'||x_return_status);
15685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15688: RAISE OKL_API.G_EXCEPTION_ERROR;
15689: END IF;
15690: ELSIF NVL(l_check_period_of_addition,'N') = 'Y' THEN
15691: */
15692: /* Bug#4508050 - smadhava - Modified - End*/
15716: --Bug# 6373605--SLA populate sources
15717: x_fa_trx_date => l_fa_adj_date);
15718:
15719: --dbms_output.put_line('after adjusting fA'||x_return_status);
15720: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15722: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15723: RAISE OKL_API.G_EXCEPTION_ERROR;
15724: END IF;
15717: x_fa_trx_date => l_fa_adj_date);
15718:
15719: --dbms_output.put_line('after adjusting fA'||x_return_status);
15720: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15722: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15723: RAISE OKL_API.G_EXCEPTION_ERROR;
15724: END IF;
15725: /* Bug#4508050 - smadhava - Modified - Start*/
15718:
15719: --dbms_output.put_line('after adjusting fA'||x_return_status);
15720: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15722: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15723: RAISE OKL_API.G_EXCEPTION_ERROR;
15724: END IF;
15725: /* Bug#4508050 - smadhava - Modified - Start*/
15726: /*
15719: --dbms_output.put_line('after adjusting fA'||x_return_status);
15720: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15722: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15723: RAISE OKL_API.G_EXCEPTION_ERROR;
15724: END IF;
15725: /* Bug#4508050 - smadhava - Modified - Start*/
15726: /*
15727: END IF;
15752: x_msg_data => x_msg_data,
15753: p_txlv_rec => l_txlv_rec);
15754:
15755: --dbms_output.put_line('after calling process streams '|| x_return_status);
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15753: p_txlv_rec => l_txlv_rec);
15754:
15755: --dbms_output.put_line('after calling process streams '|| x_return_status);
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: END IF;
15754:
15755: --dbms_output.put_line('after calling process streams '|| x_return_status);
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: END IF;
15762: --Bug# 3257326 End : relink ib lines in case split into individual units
15755: --dbms_output.put_line('after calling process streams '|| x_return_status);
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: END IF;
15762: --Bug# 3257326 End : relink ib lines in case split into individual units
15763:
15771: x_msg_count => x_msg_count,
15772: x_msg_data => x_msg_data,
15773: p_txl_id => l_txlv_rec.id);
15774: --dbms_output.put_line('after calling process streams '|| x_return_status);
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15772: x_msg_data => x_msg_data,
15773: p_txl_id => l_txlv_rec.id);
15774: --dbms_output.put_line('after calling process streams '|| x_return_status);
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: --Bug#2648280 End
15773: p_txl_id => l_txlv_rec.id);
15774: --dbms_output.put_line('after calling process streams '|| x_return_status);
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: --Bug#2648280 End
15781:
15774: --dbms_output.put_line('after calling process streams '|| x_return_status);
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: --Bug#2648280 End
15781:
15782: ------------------------------------------------------------------------
15795: x_msg_data => x_msg_data,
15796: p_chr_id => l_chr_id,
15797: p_cle_tbl => x_cle_tbl);
15798:
15799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15802: RAISE OKL_API.G_EXCEPTION_ERROR;
15803: END IF;
15796: p_chr_id => l_chr_id,
15797: p_cle_tbl => x_cle_tbl);
15798:
15799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15802: RAISE OKL_API.G_EXCEPTION_ERROR;
15803: END IF;
15804: END IF;
15797: p_cle_tbl => x_cle_tbl);
15798:
15799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15802: RAISE OKL_API.G_EXCEPTION_ERROR;
15803: END IF;
15804: END IF;
15805:
15798:
15799: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15800: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15801: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15802: RAISE OKL_API.G_EXCEPTION_ERROR;
15803: END IF;
15804: END IF;
15805:
15806: --Bug# 6788253
15815: p_effective_date => SYSDATE,
15816: x_value => l_is_asset_securitized,
15817: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15818: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_ERROR;
15823: END IF;
15816: x_value => l_is_asset_securitized,
15817: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15818: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_ERROR;
15823: END IF;
15824:
15817: x_inv_agmt_chr_id_tbl => l_inv_agmt_chr_id_tbl);
15818: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_ERROR;
15823: END IF;
15824:
15825: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15818: --dbms_output.put_line('SFA-0 : calling check_kle_securitized--status >'||x_return_status);
15819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_ERROR;
15823: END IF;
15824:
15825: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15826: --call API to modify pool contents
15821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_ERROR;
15823: END IF;
15824:
15825: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15826: --call API to modify pool contents
15827:
15828: OKL_SECURITIZATION_PVT.modify_pool_contents(
15829: p_api_version => p_api_version,
15837: p_split_kle_ids => x_cle_tbl,
15838: p_transaction_date => SYSDATE,
15839: p_effective_date => SYSDATE);
15840:
15841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15844: RAISE OKL_API.G_EXCEPTION_ERROR;
15845: END IF;
15838: p_transaction_date => SYSDATE,
15839: p_effective_date => SYSDATE);
15840:
15841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15844: RAISE OKL_API.G_EXCEPTION_ERROR;
15845: END IF;
15846: END IF;
15839: p_effective_date => SYSDATE);
15840:
15841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15844: RAISE OKL_API.G_EXCEPTION_ERROR;
15845: END IF;
15846: END IF;
15847:
15840:
15841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15844: RAISE OKL_API.G_EXCEPTION_ERROR;
15845: END IF;
15846: END IF;
15847:
15848: --Bug# 6344223
15853: x_msg_count => x_msg_count,
15854: x_msg_data => x_msg_data,
15855: p_chr_id => l_chr_id );
15856:
15857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15860: RAISE OKL_API.G_EXCEPTION_ERROR;
15861: END IF;
15854: x_msg_data => x_msg_data,
15855: p_chr_id => l_chr_id );
15856:
15857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15860: RAISE OKL_API.G_EXCEPTION_ERROR;
15861: END IF;
15862:
15855: p_chr_id => l_chr_id );
15856:
15857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15860: RAISE OKL_API.G_EXCEPTION_ERROR;
15861: END IF;
15862:
15863: ELSE
15856:
15857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15860: RAISE OKL_API.G_EXCEPTION_ERROR;
15861: END IF;
15862:
15863: ELSE
15864: -------------------------------------------------------------------------
15863: ELSE
15864: -------------------------------------------------------------------------
15865: --Bug# : 11.5.10 Securitization impact
15866: -------------------------------------------------------------------------
15867: IF l_is_asset_securitized = OKL_API.G_TRUE THEN
15868:
15869: -- Bug# 4775555
15870: -- Historize and Re-create Disbursement Basis Streams
15871: OKL_STREAM_GENERATOR_PVT.create_disb_streams(
15876: x_msg_data => x_msg_data,
15877: p_contract_id => l_chr_id
15878: );
15879:
15880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15883: RAISE OKL_API.G_EXCEPTION_ERROR;
15884: END IF;
15877: p_contract_id => l_chr_id
15878: );
15879:
15880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15883: RAISE OKL_API.G_EXCEPTION_ERROR;
15884: END IF;
15885:
15878: );
15879:
15880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15883: RAISE OKL_API.G_EXCEPTION_ERROR;
15884: END IF;
15885:
15886: --Bug# 6344223
15879:
15880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15882: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15883: RAISE OKL_API.G_EXCEPTION_ERROR;
15884: END IF;
15885:
15886: --Bug# 6344223
15887: okl_stream_generator_pvt.create_pv_streams(
15892: x_msg_data => x_msg_data,
15893: p_contract_id => l_chr_id
15894: );
15895:
15896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15899: RAISE OKL_API.G_EXCEPTION_ERROR;
15900: END IF;
15893: p_contract_id => l_chr_id
15894: );
15895:
15896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15899: RAISE OKL_API.G_EXCEPTION_ERROR;
15900: END IF;
15901:
15894: );
15895:
15896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15899: RAISE OKL_API.G_EXCEPTION_ERROR;
15900: END IF;
15901:
15902: okl_contract_rebook_pvt.create_inv_disb_adjustment(
15895:
15896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15899: RAISE OKL_API.G_EXCEPTION_ERROR;
15900: END IF;
15901:
15902: okl_contract_rebook_pvt.create_inv_disb_adjustment(
15903: p_api_version => 1.0,
15908: p_orig_khr_id => l_chr_id
15909: );
15910:
15911:
15912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15915: RAISE OKL_API.G_EXCEPTION_ERROR;
15916: END IF;
15909: );
15910:
15911:
15912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15915: RAISE OKL_API.G_EXCEPTION_ERROR;
15916: END IF;
15917: --Bug# 6344223 : End
15910:
15911:
15912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15915: RAISE OKL_API.G_EXCEPTION_ERROR;
15916: END IF;
15917: --Bug# 6344223 : End
15918: END IF;
15911:
15912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15913: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15915: RAISE OKL_API.G_EXCEPTION_ERROR;
15916: END IF;
15917: --Bug# 6344223 : End
15918: END IF;
15919:
15933: p_cle_tbl => x_cle_tbl,
15934: p_txlv_rec => l_txlv_rec
15935: );
15936:
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: RAISE OKL_API.G_EXCEPTION_ERROR;
15941: END IF;
15934: p_txlv_rec => l_txlv_rec
15935: );
15936:
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: RAISE OKL_API.G_EXCEPTION_ERROR;
15941: END IF;
15942: END IF;
15935: );
15936:
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: RAISE OKL_API.G_EXCEPTION_ERROR;
15941: END IF;
15942: END IF;
15943: --Bug# 5946411: ER end
15936:
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: RAISE OKL_API.G_EXCEPTION_ERROR;
15941: END IF;
15942: END IF;
15943: --Bug# 5946411: ER end
15944:
15954: p_source_trx_id => p_txlv_rec.tas_id, --
15955: p_source_trx_name => 'Split Asset',
15956: p_source_table => 'OKL_TRX_ASSETS');
15957:
15958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15961: RAISE OKL_API.G_EXCEPTION_ERROR;
15962: END IF;
15955: p_source_trx_name => 'Split Asset',
15956: p_source_table => 'OKL_TRX_ASSETS');
15957:
15958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15961: RAISE OKL_API.G_EXCEPTION_ERROR;
15962: END IF;
15963:
15956: p_source_table => 'OKL_TRX_ASSETS');
15957:
15958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15961: RAISE OKL_API.G_EXCEPTION_ERROR;
15962: END IF;
15963:
15964: ------------------------------------------------------------------------
15957:
15958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15961: RAISE OKL_API.G_EXCEPTION_ERROR;
15962: END IF;
15963:
15964: ------------------------------------------------------------------------
15965: --Bug# : R12.B eBTax impact End
15977: p_thpv_rec => l_trxv_rec,
15978: x_thpv_rec => lx_trxv_rec);
15979:
15980: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
15981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15984: RAISE OKL_API.G_EXCEPTION_ERROR;
15985: END IF;
15978: x_thpv_rec => lx_trxv_rec);
15979:
15980: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
15981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15984: RAISE OKL_API.G_EXCEPTION_ERROR;
15985: END IF;
15986:
15979:
15980: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
15981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15984: RAISE OKL_API.G_EXCEPTION_ERROR;
15985: END IF;
15986:
15987: END IF;
15980: --dbms_output.put_line('after updating contract trx status to processed '||x_return_status);
15981: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15983: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15984: RAISE OKL_API.G_EXCEPTION_ERROR;
15985: END IF;
15986:
15987: END IF;
15988: OKL_API.END_ACTIVITY (x_msg_count,
15984: RAISE OKL_API.G_EXCEPTION_ERROR;
15985: END IF;
15986:
15987: END IF;
15988: OKL_API.END_ACTIVITY (x_msg_count,
15989: x_msg_data );
15990: EXCEPTION
15991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15987: END IF;
15988: OKL_API.END_ACTIVITY (x_msg_count,
15989: x_msg_data );
15990: EXCEPTION
15991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15993: l_api_name,
15994: G_PKG_NAME,
15995: 'OKL_API.G_RET_STS_ERROR',
15988: OKL_API.END_ACTIVITY (x_msg_count,
15989: x_msg_data );
15990: EXCEPTION
15991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15993: l_api_name,
15994: G_PKG_NAME,
15995: 'OKL_API.G_RET_STS_ERROR',
15996: x_msg_count,
15991: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15992: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15993: l_api_name,
15994: G_PKG_NAME,
15995: 'OKL_API.G_RET_STS_ERROR',
15996: x_msg_count,
15997: x_msg_data,
15998: '_PVT');
15999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15995: 'OKL_API.G_RET_STS_ERROR',
15996: x_msg_count,
15997: x_msg_data,
15998: '_PVT');
15999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16001: l_api_name,
16002: G_PKG_NAME,
16003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15996: x_msg_count,
15997: x_msg_data,
15998: '_PVT');
15999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16001: l_api_name,
16002: G_PKG_NAME,
16003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16004: x_msg_count,
15999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16000: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16001: l_api_name,
16002: G_PKG_NAME,
16003: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16004: x_msg_count,
16005: x_msg_data,
16006: '_PVT');
16007: WHEN OTHERS THEN
16004: x_msg_count,
16005: x_msg_data,
16006: '_PVT');
16007: WHEN OTHERS THEN
16008: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16009: l_api_name,
16010: G_PKG_NAME,
16011: 'OTHERS',
16012: x_msg_count,
16068: x_cle_tbl OUT NOCOPY cle_tbl_type,
16069: --Bug# 6344223
16070: p_source_call IN VARCHAR2 DEFAULT 'UI') IS
16071:
16072: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16073: l_api_name CONSTANT VARCHAR2(30) := 'SPLIT_FIXED_ASSET';
16074: l_api_version CONSTANT NUMBER := 1.0;
16075:
16076: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16142:
16143:
16144: l_srl_control_code mtl_system_items.serial_number_control_code%TYPE;
16145:
16146: l_serialized VARCHAR2(1) DEFAULT OKL_API.G_FALSE;
16147:
16148: --Bug# 5946411: ER
16149: CURSOR c_get_sts_code(p_chr_id NUMBER)
16150: IS
16186:
16187:
16188: l_parameter_list wf_parameter_list_t;
16189: BEGIN
16190: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16191:
16192: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
16193: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cle_id,l_parameter_list);
16194: wf_event.AddParameterToList(G_WF_ITM_TRANS_DATE,fnd_date.date_to_canonical(l_trx_date),l_parameter_list);
16203:
16204:
16205: EXCEPTION
16206: WHEN OTHERS THEN
16207: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
16208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16209: END raise_business_event;
16210:
16211: /*
16204:
16205: EXCEPTION
16206: WHEN OTHERS THEN
16207: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
16208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16209: END raise_business_event;
16210:
16211: /*
16212: -- mvasudev, 08/23/2004
16216: BEGIN
16217:
16218: -- Call start_activity to create savepoint, check compatibility
16219: -- and initialize message list
16220: x_return_status := OKL_API.START_ACTIVITY (
16221: l_api_name
16222: ,p_init_msg_list
16223: ,'_PVT'
16224: ,x_return_status);
16222: ,p_init_msg_list
16223: ,'_PVT'
16224: ,x_return_status);
16225: -- Check if activity started successfully
16226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16229: RAISE OKL_API.G_EXCEPTION_ERROR;
16230: END IF;
16223: ,'_PVT'
16224: ,x_return_status);
16225: -- Check if activity started successfully
16226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16229: RAISE OKL_API.G_EXCEPTION_ERROR;
16230: END IF;
16231:
16224: ,x_return_status);
16225: -- Check if activity started successfully
16226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16229: RAISE OKL_API.G_EXCEPTION_ERROR;
16230: END IF;
16231:
16232: --Verify cle_id
16225: -- Check if activity started successfully
16226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16229: RAISE OKL_API.G_EXCEPTION_ERROR;
16230: END IF;
16231:
16232: --Verify cle_id
16233: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16230: END IF;
16231:
16232: --Verify cle_id
16233: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16234: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16236: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16237: RAISE OKL_API.G_EXCEPTION_ERROR;
16238: END IF;
16231:
16232: --Verify cle_id
16233: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16234: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16236: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16237: RAISE OKL_API.G_EXCEPTION_ERROR;
16238: END IF;
16239:
16232: --Verify cle_id
16233: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16234: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16236: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16237: RAISE OKL_API.G_EXCEPTION_ERROR;
16238: END IF;
16239:
16240: --get fixed asset line
16233: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16234: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16236: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16237: RAISE OKL_API.G_EXCEPTION_ERROR;
16238: END IF;
16239:
16240: --get fixed asset line
16241: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16241: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16242: FETCH fa_line_csr INTO l_fa_line_id, l_chr_id;
16243: IF fa_line_csr%NOTFOUND THEN
16244: NULL; --not exactly
16245: OKL_API.set_message(p_app_name => G_APP_NAME,
16246: p_msg_name => G_INACTIVE_ASSET
16247: );
16248: RAISE OKL_API.G_EXCEPTION_ERROR;
16249: ELSE
16244: NULL; --not exactly
16245: OKL_API.set_message(p_app_name => G_APP_NAME,
16246: p_msg_name => G_INACTIVE_ASSET
16247: );
16248: RAISE OKL_API.G_EXCEPTION_ERROR;
16249: ELSE
16250: /*
16251: -- mvasudev, 10/28/2004
16252: -- Fetch parameters for Business Event enabling
16264: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16265: IF l_no_data_found THEN
16266: NULL;
16267: --dbms_output.put_line('No pending Split Asset Transactions FOR this Asset');
16268: OKL_API.set_message(p_app_name => G_APP_NAME,
16269: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16270: );
16271: RAISE OKL_API.G_EXCEPTION_ERROR;
16272: ELSE
16267: --dbms_output.put_line('No pending Split Asset Transactions FOR this Asset');
16268: OKL_API.set_message(p_app_name => G_APP_NAME,
16269: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16270: );
16271: RAISE OKL_API.G_EXCEPTION_ERROR;
16272: ELSE
16273: --dbms_output.put_line('txlv id FOR FETCH OF txd '|| to_char(l_txlv_rec.id));
16274: l_txdv_tbl := get_trx_details (
16275: p_tal_id => l_txlv_rec.id,
16277: );
16278: IF l_no_data_found THEN
16279: NULL;
16280: --dbms_output.put_line('NO_DATA_FOUND FOR trx detail');
16281: OKL_API.set_message(p_app_name => G_APP_NAME,
16282: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16283: );
16284: RAISE OKL_API.G_EXCEPTION_ERROR;
16285:
16280: --dbms_output.put_line('NO_DATA_FOUND FOR trx detail');
16281: OKL_API.set_message(p_app_name => G_APP_NAME,
16282: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16283: );
16284: RAISE OKL_API.G_EXCEPTION_ERROR;
16285:
16286: ELSE
16287:
16288: --Bug #2723498 : 11.5.9 Split by serial numbers validation
16289: --1. validate for split into units
16290:
16291: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16292: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16293: l_serialized := OKL_API.G_FALSE;
16294: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
16295: IF (l_serialized = OKL_API.G_TRUE) THEN
16296: OPEN srl_num_csr1 (PTalid => l_txlv_rec.id);
16297: FETCH srl_num_csr1 INTO l_serial_count;
16291: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16292: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16293: l_serialized := OKL_API.G_FALSE;
16294: l_serialized := Is_Serialized(p_cle_id => p_cle_id);
16295: IF (l_serialized = OKL_API.G_TRUE) THEN
16296: OPEN srl_num_csr1 (PTalid => l_txlv_rec.id);
16297: FETCH srl_num_csr1 INTO l_serial_count;
16298: IF srl_num_csr1%NOTFOUND THEN
16299: NULL; --it is count cursor so should not happen
16310: NULL;
16311: END IF;
16312: CLOSE asset_num_csr;
16313:
16314: OKL_API.set_message(p_app_name => G_APP_NAME,
16315: p_msg_name => G_SPLIT_SERIAL_NOT_FOUND,
16316: p_token1 => G_ASSET_NUMBER_TOKEN,
16317: p_token1_value => l_asset_number,
16318: p_token2 => G_SPLIT_UNITS_TOKEN,
16318: p_token2 => G_SPLIT_UNITS_TOKEN,
16319: p_token2_value => TO_CHAR(l_txlv_rec.split_into_units)
16320: );
16321: --raise exception
16322: RAISE OKL_API.G_EXCEPTION_ERROR;
16323: END IF;
16324: END IF;
16325: END IF;
16326:
16355: IF (l_serial_count <> l_txdv_tbl(i).quantity) THEN
16356: --Inventory item for asset is serialized. Please select split_into_units
16357: --serial nubers to split.
16358:
16359: OKL_API.set_message(p_app_name => G_APP_NAME,
16360: p_msg_name => G_SPLIT_SERIAL_NOT_FOUND,
16361: p_token1 => G_ASSET_NUMBER_TOKEN,
16362: p_token1_value => l_txdv_tbl(i).Asset_Number,
16363: p_token2 => G_SPLIT_UNITS_TOKEN,
16363: p_token2 => G_SPLIT_UNITS_TOKEN,
16364: p_token2_value => TO_CHAR(l_txdv_tbl(i).quantity)
16365: );
16366: --raise exception
16367: RAISE OKL_API.G_EXCEPTION_ERROR;
16368: END IF;
16369: END IF;
16370: END LOOP; -- txdv_tbl
16371: END IF;-- txdv_tb.count > 0
16386: x_msg_count => x_msg_count,
16387: x_msg_data => x_msg_data,
16388: p_chr_id => l_chr_id
16389: );
16390: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16392: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16393: RAISE OKL_API.G_EXCEPTION_ERROR;
16394: END IF;
16387: x_msg_data => x_msg_data,
16388: p_chr_id => l_chr_id
16389: );
16390: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16392: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16393: RAISE OKL_API.G_EXCEPTION_ERROR;
16394: END IF;
16395: END IF; --Bug# 5946411: ER
16388: p_chr_id => l_chr_id
16389: );
16390: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16392: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16393: RAISE OKL_API.G_EXCEPTION_ERROR;
16394: END IF;
16395: END IF; --Bug# 5946411: ER
16396:
16389: );
16390: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16392: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16393: RAISE OKL_API.G_EXCEPTION_ERROR;
16394: END IF;
16395: END IF; --Bug# 5946411: ER
16396:
16397: --Call split asset for transactions to be processed
16405: x_cle_tbl => x_cle_tbl,
16406: --Bug# 6344223
16407: p_source_call => p_source_call);
16408:
16409: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16411: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16412: RAISE OKL_API.G_EXCEPTION_ERROR;
16413: END IF;
16406: --Bug# 6344223
16407: p_source_call => p_source_call);
16408:
16409: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16411: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16412: RAISE OKL_API.G_EXCEPTION_ERROR;
16413: END IF;
16414: END IF;
16407: p_source_call => p_source_call);
16408:
16409: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16411: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16412: RAISE OKL_API.G_EXCEPTION_ERROR;
16413: END IF;
16414: END IF;
16415: END IF;
16408:
16409: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16411: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16412: RAISE OKL_API.G_EXCEPTION_ERROR;
16413: END IF;
16414: END IF;
16415: END IF;
16416: END IF;
16421: */
16422: raise_business_event(p_dnz_chr_id => l_dnz_chr_id,
16423: p_trx_date => l_trx_date,
16424: x_return_status => x_return_status);
16425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16428: RAISE OKL_API.G_EXCEPTION_ERROR;
16429: END IF;
16422: raise_business_event(p_dnz_chr_id => l_dnz_chr_id,
16423: p_trx_date => l_trx_date,
16424: x_return_status => x_return_status);
16425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16428: RAISE OKL_API.G_EXCEPTION_ERROR;
16429: END IF;
16430:
16423: p_trx_date => l_trx_date,
16424: x_return_status => x_return_status);
16425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16428: RAISE OKL_API.G_EXCEPTION_ERROR;
16429: END IF;
16430:
16431: /*
16424: x_return_status => x_return_status);
16425: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16427: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16428: RAISE OKL_API.G_EXCEPTION_ERROR;
16429: END IF;
16430:
16431: /*
16432: -- mvasudev, 08/23/2004
16432: -- mvasudev, 08/23/2004
16433: -- END, Code change to enable Business Event
16434: */
16435:
16436: OKL_API.END_ACTIVITY (x_msg_count,
16437: x_msg_data );
16438:
16439: EXCEPTION
16440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16436: OKL_API.END_ACTIVITY (x_msg_count,
16437: x_msg_data );
16438:
16439: EXCEPTION
16440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16442: l_api_name,
16443: G_PKG_NAME,
16444: 'OKL_API.G_RET_STS_ERROR',
16437: x_msg_data );
16438:
16439: EXCEPTION
16440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16442: l_api_name,
16443: G_PKG_NAME,
16444: 'OKL_API.G_RET_STS_ERROR',
16445: x_msg_count,
16440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16441: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16442: l_api_name,
16443: G_PKG_NAME,
16444: 'OKL_API.G_RET_STS_ERROR',
16445: x_msg_count,
16446: x_msg_data,
16447: '_PVT');
16448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16444: 'OKL_API.G_RET_STS_ERROR',
16445: x_msg_count,
16446: x_msg_data,
16447: '_PVT');
16448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16450: l_api_name,
16451: G_PKG_NAME,
16452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16445: x_msg_count,
16446: x_msg_data,
16447: '_PVT');
16448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16450: l_api_name,
16451: G_PKG_NAME,
16452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16453: x_msg_count,
16448: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16449: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16450: l_api_name,
16451: G_PKG_NAME,
16452: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16453: x_msg_count,
16454: x_msg_data,
16455: '_PVT');
16456: WHEN OTHERS THEN
16453: x_msg_count,
16454: x_msg_data,
16455: '_PVT');
16456: WHEN OTHERS THEN
16457: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16458: l_api_name,
16459: G_PKG_NAME,
16460: 'OTHERS',
16461: x_msg_count,
16472: --End of Comments
16473: --------------------------------------------------------------------------------
16474: PROCEDURE Cancel_Split_Asset_Trs
16475: (p_api_version IN NUMBER,
16476: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
16477: x_return_status OUT NOCOPY VARCHAR2,
16478: x_msg_count OUT NOCOPY NUMBER,
16479: x_msg_data OUT NOCOPY VARCHAR2,
16480: p_cle_id IN NUMBER) IS
16478: x_msg_count OUT NOCOPY NUMBER,
16479: x_msg_data OUT NOCOPY VARCHAR2,
16480: p_cle_id IN NUMBER) IS
16481:
16482: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16483: l_api_name CONSTANT VARCHAR2(30) := 'CANCEL_SPLIT_ASSET_TRS';
16484: l_api_version CONSTANT NUMBER := 1.0;
16485:
16486: --Cursor to get the fixed Asset Line Id
16515:
16516: BEGIN
16517: -- Call start_activity to create savepoint, check compatibility
16518: -- and initialize message list
16519: x_return_status := OKL_API.START_ACTIVITY (
16520: l_api_name
16521: ,p_init_msg_list
16522: ,'_PVT'
16523: ,x_return_status);
16521: ,p_init_msg_list
16522: ,'_PVT'
16523: ,x_return_status);
16524: -- Check if activity started successfully
16525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16528: RAISE OKL_API.G_EXCEPTION_ERROR;
16529: END IF;
16522: ,'_PVT'
16523: ,x_return_status);
16524: -- Check if activity started successfully
16525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16528: RAISE OKL_API.G_EXCEPTION_ERROR;
16529: END IF;
16530:
16523: ,x_return_status);
16524: -- Check if activity started successfully
16525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16528: RAISE OKL_API.G_EXCEPTION_ERROR;
16529: END IF;
16530:
16531: l_cle_id := p_cle_id;
16524: -- Check if activity started successfully
16525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16528: RAISE OKL_API.G_EXCEPTION_ERROR;
16529: END IF;
16530:
16531: l_cle_id := p_cle_id;
16532: --1.Verify p_cle_id
16530:
16531: l_cle_id := p_cle_id;
16532: --1.Verify p_cle_id
16533: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16534: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16536: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16537: RAISE OKL_API.G_EXCEPTION_ERROR;
16538: END IF;
16531: l_cle_id := p_cle_id;
16532: --1.Verify p_cle_id
16533: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16534: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16536: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16537: RAISE OKL_API.G_EXCEPTION_ERROR;
16538: END IF;
16539:
16532: --1.Verify p_cle_id
16533: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16534: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16536: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16537: RAISE OKL_API.G_EXCEPTION_ERROR;
16538: END IF;
16539:
16540: -- get fixedasset line id
16533: x_return_status := verify_cle_id(p_cle_id => l_cle_id);
16534: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16536: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16537: RAISE OKL_API.G_EXCEPTION_ERROR;
16538: END IF;
16539:
16540: -- get fixedasset line id
16541: OPEN l_fixedasst_csr(p_finasst_line => l_cle_id);
16545: ELSE
16546: OPEN l_tal_csr(p_fixedasst_line => l_fixedasst_line);
16547: FETCH l_tal_csr INTO l_tal_id, l_tas_id;
16548: IF l_tal_csr%NOTFOUND THEN
16549: OKL_API.set_message(p_app_name => G_APP_NAME,
16550: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16551: );
16552: RAISE OKL_API.G_EXCEPTION_ERROR;
16553: ELSE
16548: IF l_tal_csr%NOTFOUND THEN
16549: OKL_API.set_message(p_app_name => G_APP_NAME,
16550: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16551: );
16552: RAISE OKL_API.G_EXCEPTION_ERROR;
16553: ELSE
16554: --update the transaction status to cancelled
16555: l_tasv_rec.id := l_tas_id;
16556: l_tasv_rec.tsu_code := 'CANCELED';
16563: x_msg_data => x_msg_data,
16564: p_thpv_rec => l_tasv_rec,
16565: x_thpv_rec => lx_tasv_rec);
16566:
16567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16570: RAISE OKL_API.G_EXCEPTION_ERROR;
16571: END IF;
16564: p_thpv_rec => l_tasv_rec,
16565: x_thpv_rec => lx_tasv_rec);
16566:
16567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16570: RAISE OKL_API.G_EXCEPTION_ERROR;
16571: END IF;
16572: END IF;
16565: x_thpv_rec => lx_tasv_rec);
16566:
16567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16570: RAISE OKL_API.G_EXCEPTION_ERROR;
16571: END IF;
16572: END IF;
16573: CLOSE l_tal_csr;
16566:
16567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16570: RAISE OKL_API.G_EXCEPTION_ERROR;
16571: END IF;
16572: END IF;
16573: CLOSE l_tal_csr;
16574: END IF; --l_fixedasst_csr%NOTFOUND
16572: END IF;
16573: CLOSE l_tal_csr;
16574: END IF; --l_fixedasst_csr%NOTFOUND
16575: CLOSE l_fixedasst_csr;
16576: OKL_API.END_ACTIVITY (x_msg_count,
16577: x_msg_data );
16578: EXCEPTION
16579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16580: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16575: CLOSE l_fixedasst_csr;
16576: OKL_API.END_ACTIVITY (x_msg_count,
16577: x_msg_data );
16578: EXCEPTION
16579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16580: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16581: l_api_name,
16582: G_PKG_NAME,
16583: 'OKL_API.G_RET_STS_ERROR',
16576: OKL_API.END_ACTIVITY (x_msg_count,
16577: x_msg_data );
16578: EXCEPTION
16579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16580: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16581: l_api_name,
16582: G_PKG_NAME,
16583: 'OKL_API.G_RET_STS_ERROR',
16584: x_msg_count,
16579: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16580: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16581: l_api_name,
16582: G_PKG_NAME,
16583: 'OKL_API.G_RET_STS_ERROR',
16584: x_msg_count,
16585: x_msg_data,
16586: '_PVT');
16587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16583: 'OKL_API.G_RET_STS_ERROR',
16584: x_msg_count,
16585: x_msg_data,
16586: '_PVT');
16587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16588: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16589: l_api_name,
16590: G_PKG_NAME,
16591: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16584: x_msg_count,
16585: x_msg_data,
16586: '_PVT');
16587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16588: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16589: l_api_name,
16590: G_PKG_NAME,
16591: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16592: x_msg_count,
16587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16588: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16589: l_api_name,
16590: G_PKG_NAME,
16591: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16592: x_msg_count,
16593: x_msg_data,
16594: '_PVT');
16595: WHEN OTHERS THEN
16592: x_msg_count,
16593: x_msg_data,
16594: '_PVT');
16595: WHEN OTHERS THEN
16596: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16597: l_api_name,
16598: G_PKG_NAME,
16599: 'OTHERS',
16600: x_msg_count,
16605: x_msg_count OUT NOCOPY NUMBER,
16606: x_msg_data OUT NOCOPY VARCHAR2,
16607: p_cle_id IN NUMBER) is
16608:
16609: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
16610: l_api_name CONSTANT VARCHAR2(30) := 'CHECK_SER_NUM_CHECKED';
16611: l_api_version CONSTANT NUMBER := 1.0;
16612:
16613: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16649:
16650: -- dbms_output.put_line('start');
16651: -- Call start_activity to create savepoint, check compatibility
16652: -- and initialize message list
16653: x_return_status := OKL_API.START_ACTIVITY (
16654: l_api_name
16655: ,OKL_API.G_FALSE
16656: ,'_PVT'
16657: ,x_return_status);
16651: -- Call start_activity to create savepoint, check compatibility
16652: -- and initialize message list
16653: x_return_status := OKL_API.START_ACTIVITY (
16654: l_api_name
16655: ,OKL_API.G_FALSE
16656: ,'_PVT'
16657: ,x_return_status);
16658: -- Check if activity started successfully
16659: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16655: ,OKL_API.G_FALSE
16656: ,'_PVT'
16657: ,x_return_status);
16658: -- Check if activity started successfully
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: ,'_PVT'
16657: ,x_return_status);
16658: -- Check if activity started successfully
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: -- dbms_output.put_line('ebd activity');
16657: ,x_return_status);
16658: -- Check if activity started successfully
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: -- dbms_output.put_line('ebd activity');
16665: --Verify cle_id
16658: -- Check if activity started successfully
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: -- dbms_output.put_line('ebd activity');
16665: --Verify cle_id
16666: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16664: -- dbms_output.put_line('ebd activity');
16665: --Verify cle_id
16666: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16667: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16668: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16670: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16671: RAISE OKL_API.G_EXCEPTION_ERROR;
16672: END IF;
16665: --Verify cle_id
16666: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16667: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16668: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16670: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16671: RAISE OKL_API.G_EXCEPTION_ERROR;
16672: END IF;
16673:
16666: x_return_status := verify_cle_id(p_cle_id => p_cle_id);
16667: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16668: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16670: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16671: RAISE OKL_API.G_EXCEPTION_ERROR;
16672: END IF;
16673:
16674: -- dbms_output.put_line('b4 fa_line_csr');
16667: -- dbms_output.put_line('x_return_status after verify : ' || x_return_status);
16668: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
16669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16670: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
16671: RAISE OKL_API.G_EXCEPTION_ERROR;
16672: END IF;
16673:
16674: -- dbms_output.put_line('b4 fa_line_csr');
16675: --get fixed asset line
16676: OPEN fa_line_csr(p_cle_id => p_cle_id) ;
16677: FETCH fa_line_csr INTO l_fa_line_id, l_chr_id;
16678: IF fa_line_csr%NOTFOUND THEN
16679: NULL; --not exactly
16680: OKL_API.set_message(p_app_name => G_APP_NAME,
16681: p_msg_name => G_INACTIVE_ASSET
16682: );
16683: RAISE OKL_API.G_EXCEPTION_ERROR;
16684: ELSE
16679: NULL; --not exactly
16680: OKL_API.set_message(p_app_name => G_APP_NAME,
16681: p_msg_name => G_INACTIVE_ASSET
16682: );
16683: RAISE OKL_API.G_EXCEPTION_ERROR;
16684: ELSE
16685: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16686: IF l_no_data_found THEN
16687: NULL;
16684: ELSE
16685: l_txlv_rec := get_txlv_rec(l_fa_line_id, l_no_data_found);
16686: IF l_no_data_found THEN
16687: NULL;
16688: OKL_API.set_message(p_app_name => G_APP_NAME,
16689: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16690: );
16691: RAISE OKL_API.G_EXCEPTION_ERROR;
16692: ELSE
16687: NULL;
16688: OKL_API.set_message(p_app_name => G_APP_NAME,
16689: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16690: );
16691: RAISE OKL_API.G_EXCEPTION_ERROR;
16692: ELSE
16693: l_txdv_tbl := get_trx_details (
16694: p_tal_id => l_txlv_rec.id,
16695: x_no_data_found => l_no_data_found
16695: x_no_data_found => l_no_data_found
16696: );
16697: IF l_no_data_found THEN
16698: NULL;
16699: OKL_API.set_message(p_app_name => G_APP_NAME,
16700: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16701: );
16702: RAISE OKL_API.G_EXCEPTION_ERROR;
16703:
16698: NULL;
16699: OKL_API.set_message(p_app_name => G_APP_NAME,
16700: p_msg_name => G_SPLIT_AST_TRX_NOT_FOUND
16701: );
16702: RAISE OKL_API.G_EXCEPTION_ERROR;
16703:
16704: ELSE
16705: IF NVL(l_txlv_rec.SPLIT_INTO_SINGLES_FLAG,'N') = 'N' AND
16706: NVL(l_txlv_rec.split_into_units,0) <> 0 THEN
16723: NULL;
16724: END IF;
16725: CLOSE asset_num_csr;
16726: -- dbms_output.put_line('after asset_num_csr:');
16727: OKL_API.set_message(p_app_name => G_APP_NAME,
16728: p_msg_name =>
16729: G_SPLIT_SERIAL_NOT_FOUND,
16730: p_token1 =>
16731: G_ASSET_NUMBER_TOKEN,
16735: p_token2_value =>
16736: TO_CHAR(l_txlv_rec.split_into_units)
16737: );
16738: --raise exception
16739: RAISE OKL_API.G_EXCEPTION_ERROR;
16740: END IF;
16741: END IF;
16742: END IF;
16743: END IF;
16742: END IF;
16743: END IF;
16744: END IF;
16745: exception
16746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16747: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16748: l_api_name,
16749: G_PKG_NAME,
16750: 'OKL_API.G_RET_STS_ERROR',
16743: END IF;
16744: END IF;
16745: exception
16746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16747: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16748: l_api_name,
16749: G_PKG_NAME,
16750: 'OKL_API.G_RET_STS_ERROR',
16751: x_msg_count,
16746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16747: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16748: l_api_name,
16749: G_PKG_NAME,
16750: 'OKL_API.G_RET_STS_ERROR',
16751: x_msg_count,
16752: x_msg_data,
16753: '_PVT');
16754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16750: 'OKL_API.G_RET_STS_ERROR',
16751: x_msg_count,
16752: x_msg_data,
16753: '_PVT');
16754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16755: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16756: l_api_name,
16757: G_PKG_NAME,
16758: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16751: x_msg_count,
16752: x_msg_data,
16753: '_PVT');
16754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16755: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16756: l_api_name,
16757: G_PKG_NAME,
16758: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16759: x_msg_count,
16754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16755: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16756: l_api_name,
16757: G_PKG_NAME,
16758: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16759: x_msg_count,
16760: x_msg_data,
16761: '_PVT');
16762: WHEN OTHERS THEN
16759: x_msg_count,
16760: x_msg_data,
16761: '_PVT');
16762: WHEN OTHERS THEN
16763: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16764: l_api_name,
16765: G_PKG_NAME,
16766: 'OTHERS',
16767: x_msg_count,