6: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
7: G_INVALID_CRITERIA CONSTANT VARCHAR2(200) := 'OKL_LLA_INVALID_CRITERIA';
8: G_COPY_HEADER CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_HEADER';
9: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
8: G_COPY_HEADER CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_HEADER';
9: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
15: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
9: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
10: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
15: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
17: -------------------------------------------------------------------------------------------------
25: -------------------------------------------------------------------------------------------------
26: -- GLOBAL VARIABLES
27: -------------------------------------------------------------------------------------------------
28: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_LA_ASSET_PVT';
29: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
30: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
31: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
32: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
33: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
40: G_BULK_BATCH_SIZE CONSTANT NUMBER := 10000;
41: -------------------------------------------------------------------------------------------------
42: -- cklee
43: TYPE r_las_rec_type IS RECORD (asset_number FA_ADDITIONS_B.ASSET_NUMBER%TYPE,
44: year_manufactured NUMBER := OKL_API.G_MISS_NUM,
45: manufacturer_name FA_ADDITIONS_B.MANUFACTURER_NAME%TYPE,
46: description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
47: current_units NUMBER := OKL_API.G_MISS_NUM,
48: oec NUMBER := OKL_API.G_MISS_NUM,
43: TYPE r_las_rec_type IS RECORD (asset_number FA_ADDITIONS_B.ASSET_NUMBER%TYPE,
44: year_manufactured NUMBER := OKL_API.G_MISS_NUM,
45: manufacturer_name FA_ADDITIONS_B.MANUFACTURER_NAME%TYPE,
46: description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
47: current_units NUMBER := OKL_API.G_MISS_NUM,
48: oec NUMBER := OKL_API.G_MISS_NUM,
49: vendor_name PO_VENDORS.VENDOR_NAME%TYPE,
50: residual_value NUMBER := OKL_API.G_MISS_NUM,
51: start_date OKC_K_LINES_B.START_DATE%TYPE,
44: year_manufactured NUMBER := OKL_API.G_MISS_NUM,
45: manufacturer_name FA_ADDITIONS_B.MANUFACTURER_NAME%TYPE,
46: description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
47: current_units NUMBER := OKL_API.G_MISS_NUM,
48: oec NUMBER := OKL_API.G_MISS_NUM,
49: vendor_name PO_VENDORS.VENDOR_NAME%TYPE,
50: residual_value NUMBER := OKL_API.G_MISS_NUM,
51: start_date OKC_K_LINES_B.START_DATE%TYPE,
52: date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
46: description FA_ADDITIONS_TL.DESCRIPTION%TYPE,
47: current_units NUMBER := OKL_API.G_MISS_NUM,
48: oec NUMBER := OKL_API.G_MISS_NUM,
49: vendor_name PO_VENDORS.VENDOR_NAME%TYPE,
50: residual_value NUMBER := OKL_API.G_MISS_NUM,
51: start_date OKC_K_LINES_B.START_DATE%TYPE,
52: date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
53: end_date OKC_K_LINES_B.END_DATE%TYPE,
54: sts_code OKC_K_LINES_B.STS_CODE%TYPE,
52: date_terminated OKC_K_LINES_B.DATE_TERMINATED%TYPE,
53: end_date OKC_K_LINES_B.END_DATE%TYPE,
54: sts_code OKC_K_LINES_B.STS_CODE%TYPE,
55: location_id VARCHAR(1995),
56: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
57: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
58:
59: TYPE las_loc_rec_type IS RECORD (location_id VARCHAR(1995),
60: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
53: end_date OKC_K_LINES_B.END_DATE%TYPE,
54: sts_code OKC_K_LINES_B.STS_CODE%TYPE,
55: location_id VARCHAR(1995),
56: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
57: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
58:
59: TYPE las_loc_rec_type IS RECORD (location_id VARCHAR(1995),
60: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
61: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
56: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
57: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
58:
59: TYPE las_loc_rec_type IS RECORD (location_id VARCHAR(1995),
60: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
61: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
62:
63: TYPE las_loc_tbl_type IS TABLE OF las_loc_rec_type
64: INDEX BY BINARY_INTEGER;
57: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
58:
59: TYPE las_loc_rec_type IS RECORD (location_id VARCHAR(1995),
60: parent_line_id NUMBER := OKL_API.G_MISS_NUM,
61: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
62:
63: TYPE las_loc_tbl_type IS TABLE OF las_loc_rec_type
64: INDEX BY BINARY_INTEGER;
65:
138: ----------------------------------------------------------------------------------
139:
140: PROCEDURE copy_asset_rec(
141: p_api_version IN NUMBER
142: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
143: ,x_return_status OUT NOCOPY VARCHAR2
144: ,x_msg_count OUT NOCOPY NUMBER
145: ,x_msg_data OUT NOCOPY VARCHAR2
146: ,p_las_rec IN r_las_rec_type
155: is
156: l_api_name CONSTANT VARCHAR2(30) := 'copy_asset_rec';
157: l_api_version CONSTANT NUMBER := 1.0;
158: i NUMBER;
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
160: l_location_id VARCHAR2(1995) := NULL;
161: l_loc_idx NUMBER := NULL;
162:
163: --START:| 01-Mar-2006 cklee Fixed bug#4728228 |
186: p_api_version,
187: l_api_name,
188: G_PKG_NAME ))
189: THEN
190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
191: END IF;
192:
193: -- Initialize message list if requested
194: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
195: FND_MSG_PUB.initialize;
196: END IF;
197:
198: -- Initialize API status to success
199: x_return_status := OKL_API.G_RET_STS_SUCCESS;
200:
201:
202: --*** Begin API body ****************************************************
203:
289: (p_count => x_msg_count,
290: p_data => x_msg_data);
291:
292: EXCEPTION
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: ROLLBACK TO copy_asset_rec;
295: x_return_status := OKL_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count,
291:
292: EXCEPTION
293: WHEN OKL_API.G_EXCEPTION_ERROR THEN
294: ROLLBACK TO copy_asset_rec;
295: x_return_status := OKL_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count,
298: p_data => x_msg_data);
299:
296: FND_MSG_PUB.Count_And_Get
297: (p_count => x_msg_count,
298: p_data => x_msg_data);
299:
300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
301: ROLLBACK TO copy_asset_rec;
302: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
303: FND_MSG_PUB.Count_And_Get
304: (p_count => x_msg_count,
298: p_data => x_msg_data);
299:
300: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
301: ROLLBACK TO copy_asset_rec;
302: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
303: FND_MSG_PUB.Count_And_Get
304: (p_count => x_msg_count,
305: p_data => x_msg_data);
306:
305: p_data => x_msg_data);
306:
307: WHEN OTHERS THEN
308: ROLLBACK TO copy_asset_rect;
309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
310: OKL_API.Set_Message(p_app_name => G_APP_NAME,
311: p_msg_name => G_UNEXPECTED_ERROR,
312: p_token1 => G_SQLCODE_TOKEN,
313: p_token1_value => SQLCODE,
306:
307: WHEN OTHERS THEN
308: ROLLBACK TO copy_asset_rect;
309: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
310: OKL_API.Set_Message(p_app_name => G_APP_NAME,
311: p_msg_name => G_UNEXPECTED_ERROR,
312: p_token1 => G_SQLCODE_TOKEN,
313: p_token1_value => SQLCODE,
314: p_token2 => G_SQLERRM_TOKEN,
331: ----------------------------------------------------------------------------------
332:
333: PROCEDURE validate_asset_rec(
334: p_api_version IN NUMBER
335: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
336: ,x_return_status OUT NOCOPY VARCHAR2
337: ,x_msg_count OUT NOCOPY NUMBER
338: ,x_msg_data OUT NOCOPY VARCHAR2
339: ,p_las_rec IN las_rec_type
342: is
343: l_api_name CONSTANT VARCHAR2(30) := 'validate_asset_rec';
344: l_api_version CONSTANT NUMBER := 1.0;
345: i NUMBER;
346: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
347: l_las_rec las_rec_type := p_las_rec;
348:
349: begin
350: -- Set API savepoint
355: p_api_version,
356: l_api_name,
357: G_PKG_NAME ))
358: THEN
359: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
360: END IF;
361:
362: -- Initialize message list if requested
363: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
364: FND_MSG_PUB.initialize;
365: END IF;
366:
367: -- Initialize API status to success
368: x_return_status := OKL_API.G_RET_STS_SUCCESS;
369:
370:
371: --*** Begin API body ****************************************************
372:
373: -- initial copy record
374: x_las_rec := l_las_rec;
375:
376: IF l_las_rec.dnz_chr_id IS NULL OR
377: l_las_rec.dnz_chr_id = OKL_API.G_MISS_NUM THEN
378: RAISE OKL_API.G_EXCEPTION_ERROR;
379: END IF;
380: IF (l_las_rec.year_manufactured = OKL_API.G_MISS_NUM OR
381: l_las_rec.year_manufactured IS NULL) THEN
374: x_las_rec := l_las_rec;
375:
376: IF l_las_rec.dnz_chr_id IS NULL OR
377: l_las_rec.dnz_chr_id = OKL_API.G_MISS_NUM THEN
378: RAISE OKL_API.G_EXCEPTION_ERROR;
379: END IF;
380: IF (l_las_rec.year_manufactured = OKL_API.G_MISS_NUM OR
381: l_las_rec.year_manufactured IS NULL) THEN
382: x_las_rec.year_manufactured := null;
376: IF l_las_rec.dnz_chr_id IS NULL OR
377: l_las_rec.dnz_chr_id = OKL_API.G_MISS_NUM THEN
378: RAISE OKL_API.G_EXCEPTION_ERROR;
379: END IF;
380: IF (l_las_rec.year_manufactured = OKL_API.G_MISS_NUM OR
381: l_las_rec.year_manufactured IS NULL) THEN
382: x_las_rec.year_manufactured := null;
383: END IF;
384: IF (l_las_rec.current_units = OKL_API.G_MISS_NUM OR
380: IF (l_las_rec.year_manufactured = OKL_API.G_MISS_NUM OR
381: l_las_rec.year_manufactured IS NULL) THEN
382: x_las_rec.year_manufactured := null;
383: END IF;
384: IF (l_las_rec.current_units = OKL_API.G_MISS_NUM OR
385: l_las_rec.current_units IS NULL) THEN
386: x_las_rec.current_units := null;
387: END IF;
388: IF (l_las_rec.from_oec = OKL_API.G_MISS_NUM OR
384: IF (l_las_rec.current_units = OKL_API.G_MISS_NUM OR
385: l_las_rec.current_units IS NULL) THEN
386: x_las_rec.current_units := null;
387: END IF;
388: IF (l_las_rec.from_oec = OKL_API.G_MISS_NUM OR
389: l_las_rec.from_oec IS NULL) THEN
390: x_las_rec.from_oec := null;
391: END IF;
392: IF (l_las_rec.to_oec = OKL_API.G_MISS_NUM OR
388: IF (l_las_rec.from_oec = OKL_API.G_MISS_NUM OR
389: l_las_rec.from_oec IS NULL) THEN
390: x_las_rec.from_oec := null;
391: END IF;
392: IF (l_las_rec.to_oec = OKL_API.G_MISS_NUM OR
393: l_las_rec.to_oec IS NULL) THEN
394: x_las_rec.to_oec := null;
395: END IF;
396: IF (l_las_rec.from_residual_value = OKL_API.G_MISS_NUM OR
392: IF (l_las_rec.to_oec = OKL_API.G_MISS_NUM OR
393: l_las_rec.to_oec IS NULL) THEN
394: x_las_rec.to_oec := null;
395: END IF;
396: IF (l_las_rec.from_residual_value = OKL_API.G_MISS_NUM OR
397: l_las_rec.from_residual_value IS NULL) THEN
398: x_las_rec.from_residual_value := null;
399: END IF;
400: IF (l_las_rec.to_residual_value = OKL_API.G_MISS_NUM OR
396: IF (l_las_rec.from_residual_value = OKL_API.G_MISS_NUM OR
397: l_las_rec.from_residual_value IS NULL) THEN
398: x_las_rec.from_residual_value := null;
399: END IF;
400: IF (l_las_rec.to_residual_value = OKL_API.G_MISS_NUM OR
401: l_las_rec.to_residual_value IS NULL) THEN
402: x_las_rec.to_residual_value := null;
403: END IF;
404: IF (l_las_rec.parent_line_id = OKL_API.G_MISS_NUM OR
400: IF (l_las_rec.to_residual_value = OKL_API.G_MISS_NUM OR
401: l_las_rec.to_residual_value IS NULL) THEN
402: x_las_rec.to_residual_value := null;
403: END IF;
404: IF (l_las_rec.parent_line_id = OKL_API.G_MISS_NUM OR
405: l_las_rec.parent_line_id IS NULL) THEN
406: x_las_rec.parent_line_id := null;
407: END IF;
408: IF (l_las_rec.from_start_date = OKL_API.G_MISS_DATE OR
404: IF (l_las_rec.parent_line_id = OKL_API.G_MISS_NUM OR
405: l_las_rec.parent_line_id IS NULL) THEN
406: x_las_rec.parent_line_id := null;
407: END IF;
408: IF (l_las_rec.from_start_date = OKL_API.G_MISS_DATE OR
409: l_las_rec.from_start_date IS NULL) THEN
410: x_las_rec.from_start_date := null;
411: END IF;
412: IF (l_las_rec.to_start_date = OKL_API.G_MISS_DATE OR
408: IF (l_las_rec.from_start_date = OKL_API.G_MISS_DATE OR
409: l_las_rec.from_start_date IS NULL) THEN
410: x_las_rec.from_start_date := null;
411: END IF;
412: IF (l_las_rec.to_start_date = OKL_API.G_MISS_DATE OR
413: l_las_rec.to_start_date IS NULL) THEN
414: x_las_rec.to_start_date := null;
415: END IF;
416: IF (l_las_rec.from_end_date = OKL_API.G_MISS_DATE OR
412: IF (l_las_rec.to_start_date = OKL_API.G_MISS_DATE OR
413: l_las_rec.to_start_date IS NULL) THEN
414: x_las_rec.to_start_date := null;
415: END IF;
416: IF (l_las_rec.from_end_date = OKL_API.G_MISS_DATE OR
417: l_las_rec.from_end_date IS NULL) THEN
418: x_las_rec.from_end_date := null;
419: END IF;
420: IF (l_las_rec.to_end_date = OKL_API.G_MISS_DATE OR
416: IF (l_las_rec.from_end_date = OKL_API.G_MISS_DATE OR
417: l_las_rec.from_end_date IS NULL) THEN
418: x_las_rec.from_end_date := null;
419: END IF;
420: IF (l_las_rec.to_end_date = OKL_API.G_MISS_DATE OR
421: l_las_rec.to_end_date IS NULL) THEN
422: x_las_rec.to_end_date := null;
423: END IF;
424: IF (l_las_rec.from_date_terminated = OKL_API.G_MISS_DATE OR
420: IF (l_las_rec.to_end_date = OKL_API.G_MISS_DATE OR
421: l_las_rec.to_end_date IS NULL) THEN
422: x_las_rec.to_end_date := null;
423: END IF;
424: IF (l_las_rec.from_date_terminated = OKL_API.G_MISS_DATE OR
425: l_las_rec.from_date_terminated IS NULL) THEN
426: x_las_rec.from_date_terminated := null;
427: END IF;
428: IF (l_las_rec.to_date_terminated = OKL_API.G_MISS_DATE OR
424: IF (l_las_rec.from_date_terminated = OKL_API.G_MISS_DATE OR
425: l_las_rec.from_date_terminated IS NULL) THEN
426: x_las_rec.from_date_terminated := null;
427: END IF;
428: IF (l_las_rec.to_date_terminated = OKL_API.G_MISS_DATE OR
429: l_las_rec.to_date_terminated IS NULL) THEN
430: x_las_rec.to_date_terminated := null;
431: END IF;
432: IF (l_las_rec.asset_number = OKL_API.G_MISS_CHAR OR
428: IF (l_las_rec.to_date_terminated = OKL_API.G_MISS_DATE OR
429: l_las_rec.to_date_terminated IS NULL) THEN
430: x_las_rec.to_date_terminated := null;
431: END IF;
432: IF (l_las_rec.asset_number = OKL_API.G_MISS_CHAR OR
433: l_las_rec.asset_number IS NULL) THEN
434: x_las_rec.asset_number := null;
435: END IF;
436: IF (l_las_rec.manufacturer_name = OKL_API.G_MISS_CHAR OR
432: IF (l_las_rec.asset_number = OKL_API.G_MISS_CHAR OR
433: l_las_rec.asset_number IS NULL) THEN
434: x_las_rec.asset_number := null;
435: END IF;
436: IF (l_las_rec.manufacturer_name = OKL_API.G_MISS_CHAR OR
437: l_las_rec.manufacturer_name IS NULL) THEN
438: x_las_rec.manufacturer_name := null;
439: END IF;
440: IF (l_las_rec.description = OKL_API.G_MISS_CHAR OR
436: IF (l_las_rec.manufacturer_name = OKL_API.G_MISS_CHAR OR
437: l_las_rec.manufacturer_name IS NULL) THEN
438: x_las_rec.manufacturer_name := null;
439: END IF;
440: IF (l_las_rec.description = OKL_API.G_MISS_CHAR OR
441: l_las_rec.description IS NULL) THEN
442: x_las_rec.description := null;
443: END IF;
444: IF (l_las_rec.sts_code = OKL_API.G_MISS_CHAR OR
440: IF (l_las_rec.description = OKL_API.G_MISS_CHAR OR
441: l_las_rec.description IS NULL) THEN
442: x_las_rec.description := null;
443: END IF;
444: IF (l_las_rec.sts_code = OKL_API.G_MISS_CHAR OR
445: l_las_rec.sts_code IS NULL) THEN
446: x_las_rec.sts_code := null;
447: END IF;
448: IF (l_las_rec.vendor_name = OKL_API.G_MISS_CHAR OR
444: IF (l_las_rec.sts_code = OKL_API.G_MISS_CHAR OR
445: l_las_rec.sts_code IS NULL) THEN
446: x_las_rec.sts_code := null;
447: END IF;
448: IF (l_las_rec.vendor_name = OKL_API.G_MISS_CHAR OR
449: l_las_rec.vendor_name IS NULL) THEN
450: x_las_rec.vendor_name := null;
451: END IF;
452: IF (l_las_rec.location_id = OKL_API.G_MISS_CHAR OR
448: IF (l_las_rec.vendor_name = OKL_API.G_MISS_CHAR OR
449: l_las_rec.vendor_name IS NULL) THEN
450: x_las_rec.vendor_name := null;
451: END IF;
452: IF (l_las_rec.location_id = OKL_API.G_MISS_CHAR OR
453: l_las_rec.location_id IS NULL) THEN
454: x_las_rec.location_id := null;
455: END IF;
456:
461: (p_count => x_msg_count,
462: p_data => x_msg_data);
463:
464: EXCEPTION
465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
466: ROLLBACK TO validate_asset_rec;
467: x_return_status := OKL_API.G_RET_STS_ERROR;
468: FND_MSG_PUB.Count_And_Get
469: (p_count => x_msg_count,
463:
464: EXCEPTION
465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
466: ROLLBACK TO validate_asset_rec;
467: x_return_status := OKL_API.G_RET_STS_ERROR;
468: FND_MSG_PUB.Count_And_Get
469: (p_count => x_msg_count,
470: p_data => x_msg_data);
471:
468: FND_MSG_PUB.Count_And_Get
469: (p_count => x_msg_count,
470: p_data => x_msg_data);
471:
472: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
473: ROLLBACK TO validate_asset_rec;
474: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
475: FND_MSG_PUB.Count_And_Get
476: (p_count => x_msg_count,
470: p_data => x_msg_data);
471:
472: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
473: ROLLBACK TO validate_asset_rec;
474: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
475: FND_MSG_PUB.Count_And_Get
476: (p_count => x_msg_count,
477: p_data => x_msg_data);
478:
477: p_data => x_msg_data);
478:
479: WHEN OTHERS THEN
480: ROLLBACK TO validate_asset_rec;
481: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
482: OKL_API.Set_Message(p_app_name => G_APP_NAME,
483: p_msg_name => G_UNEXPECTED_ERROR,
484: p_token1 => G_SQLCODE_TOKEN,
485: p_token1_value => SQLCODE,
478:
479: WHEN OTHERS THEN
480: ROLLBACK TO validate_asset_rec;
481: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
482: OKL_API.Set_Message(p_app_name => G_APP_NAME,
483: p_msg_name => G_UNEXPECTED_ERROR,
484: p_token1 => G_SQLCODE_TOKEN,
485: p_token1_value => SQLCODE,
486: p_token2 => G_SQLERRM_TOKEN,
492: end validate_asset_rec;
493:
494: -----------------------------------------------------------------------------------------------------------
495:
496: FUNCTION isReleaseAssetContract(p_dnz_chr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE DEFAULT OKL_API.G_MISS_NUM)
497: RETURN BOOLEAN IS
498: l_status_active BOOLEAN := FALSE;
499: l_return_value VARCHAR2(1) := '';
500: --cursor to check if contract has re-lease assets
572: exists in TXL, the information should be retrieved from there. If it exists at
573: both places, it is error.
574: */
575:
576: FUNCTION isContractActive(p_dnz_chr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
577: p_deal_type IN OKL_K_HEADERS_FULL_V.DEAL_TYPE%TYPE,
578: p_sts_code IN OKL_K_HEADERS_FULL_V.STS_CODE%TYPE)
579: RETURN BOOLEAN IS
580: l_active_status BOOLEAN := FALSE;
689: -- thus allowing the user not to access the screen, by displaying
690: -- the respective message.
691: /* ELSIF (l_active_status AND l_inactive_status) THEN
692: return FALSE;
693: OKL_API.set_message(G_APP_NAME,
694: G_UNEXPECTED_ERROR,
695: G_SQLCODE_TOKEN,
696: SQLCODE,
697: G_SQLERRM_TOKEN,
1922:
1923:
1924:
1925: BEGIN
1926: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1927: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1928: G_PKG_NAME,
1929: p_init_msg_list,
1930: l_api_version,
1923:
1924:
1925: BEGIN
1926: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1927: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1928: G_PKG_NAME,
1929: p_init_msg_list,
1930: l_api_version,
1931: p_api_version,
1930: l_api_version,
1931: p_api_version,
1932: '_PVT',
1933: x_return_status);
1934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: END IF;
1931: p_api_version,
1932: '_PVT',
1933: x_return_status);
1934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: END IF;
1939:
1932: '_PVT',
1933: x_return_status);
1934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: END IF;
1939:
1940: -- cklee
1933: x_return_status);
1934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1937: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: END IF;
1939:
1940: -- cklee
1941: validate_asset_rec(p_api_version => p_api_version,
1945: x_msg_data => x_msg_data,
1946: p_las_rec => l_las_rec,
1947: x_las_rec => lx_las_rec);
1948:
1949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_ERROR;
1953: END IF;
1946: p_las_rec => l_las_rec,
1947: x_las_rec => lx_las_rec);
1948:
1949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_ERROR;
1953: END IF;
1954:
1947: x_las_rec => lx_las_rec);
1948:
1949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_ERROR;
1953: END IF;
1954:
1955: -- copy record back
1948:
1949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1952: RAISE OKL_API.G_EXCEPTION_ERROR;
1953: END IF;
1954:
1955: -- copy record back
1956: l_las_rec := lx_las_rec;
1958:
1959: -- Get the sts code since we can version only active contract
1960: OPEN c_get_sts_code(l_las_rec.dnz_chr_id);
1961: IF c_get_sts_code%NOTFOUND THEN
1962: OKL_API.set_message(p_app_name => G_APP_NAME,
1963: p_msg_name => G_NO_MATCHING_RECORD,
1964: p_token1 => G_COL_NAME_TOKEN,
1965: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1966: RAISE OKL_API.G_EXCEPTION_ERROR;
1962: OKL_API.set_message(p_app_name => G_APP_NAME,
1963: p_msg_name => G_NO_MATCHING_RECORD,
1964: p_token1 => G_COL_NAME_TOKEN,
1965: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1966: RAISE OKL_API.G_EXCEPTION_ERROR;
1967: END IF;
1968: FETCH c_get_sts_code INTO lv_sts_code, lv_deal_type;
1969: CLOSE c_get_sts_code;
1970:
2009: -- FOR r_get_old_asset_desc IN c_get_old_asset_desc(l_las_rec) LOOP
2010: IF l_las_rec.include_split_yn='Y' THEN
2011: FOR r_las_rec IN c_get_old_splt_asset_desc(l_las_rec) LOOP
2012: IF c_get_old_splt_asset_desc%NOTFOUND THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: copy_asset_rec(p_api_version => p_api_version,
2016: p_init_msg_list => p_init_msg_list,
2017: x_return_status => x_return_status,
2025: p_fin_line_2_ids => l_fin_line_2_ids,
2026: p_loc_2_ids => l_loc_2_ids,
2027: x_las_rec => x_las_tbl(i));
2028:
2029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2026: p_loc_2_ids => l_loc_2_ids,
2027: x_las_rec => x_las_tbl(i));
2028:
2029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034:
2027: x_las_rec => x_las_tbl(i));
2028:
2029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034:
2035: i := i + 1;
2028:
2029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034:
2035: i := i + 1;
2036: END LOOP;
2036: END LOOP;
2037: ELSE
2038: FOR r_las_rec IN c_get_old_asset_desc(l_las_rec) LOOP
2039: IF c_get_old_asset_desc%NOTFOUND THEN
2040: RAISE OKL_API.G_EXCEPTION_ERROR;
2041: END IF;
2042:
2043: copy_asset_rec(p_api_version => p_api_version,
2044: p_init_msg_list => p_init_msg_list,
2053: p_fin_line_2_ids => l_fin_line_2_ids,
2054: p_loc_2_ids => l_loc_2_ids,
2055: x_las_rec => x_las_tbl(i));
2056:
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2054: p_loc_2_ids => l_loc_2_ids,
2055: x_las_rec => x_las_tbl(i));
2056:
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2055: x_las_rec => x_las_tbl(i));
2056:
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: i := i + 1;
2056:
2057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2059: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2060: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: END IF;
2062:
2063: i := i + 1;
2064: END LOOP;
2069: IF l_las_rec.include_split_yn='Y' THEN
2070:
2071: FOR r_las_rec IN c_get_old_splt_asset_asc(l_las_rec) LOOP
2072: IF c_get_old_splt_asset_asc%NOTFOUND THEN
2073: RAISE OKL_API.G_EXCEPTION_ERROR;
2074: END IF;
2075:
2076: copy_asset_rec(p_api_version => p_api_version,
2077: p_init_msg_list => p_init_msg_list,
2086: p_fin_line_2_ids => l_fin_line_2_ids,
2087: p_loc_2_ids => l_loc_2_ids,
2088: x_las_rec => x_las_tbl(i));
2089:
2090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2087: p_loc_2_ids => l_loc_2_ids,
2088: x_las_rec => x_las_tbl(i));
2089:
2090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2095:
2088: x_las_rec => x_las_tbl(i));
2089:
2090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2095:
2096: i := i + 1;
2089:
2090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2095:
2096: i := i + 1;
2097: END LOOP;
2098:
2099: ELSE
2100: FOR r_las_rec IN c_get_old_asset_asc(l_las_rec) LOOP
2101: IF c_get_old_asset_asc%NOTFOUND THEN
2102: RAISE OKL_API.G_EXCEPTION_ERROR;
2103: END IF;
2104:
2105: copy_asset_rec(p_api_version => p_api_version,
2106: p_init_msg_list => p_init_msg_list,
2115: p_fin_line_2_ids => l_fin_line_2_ids,
2116: p_loc_2_ids => l_loc_2_ids,
2117: x_las_rec => x_las_tbl(i));
2118:
2119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2116: p_loc_2_ids => l_loc_2_ids,
2117: x_las_rec => x_las_tbl(i));
2118:
2119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2117: x_las_rec => x_las_tbl(i));
2118:
2119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2125: i := i + 1;
2118:
2119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2121: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124:
2125: i := i + 1;
2126: END LOOP;
2131: -- FOR r_get_old_asset_desc IN c_get_old_loan_asset_desc(l_las_rec) LOOP
2132: IF l_las_rec.include_split_yn='Y' THEN
2133: FOR r_las_rec IN c_get_old_splt_loan_asset_desc(l_las_rec) LOOP
2134: IF c_get_old_splt_loan_asset_desc%NOTFOUND THEN
2135: RAISE OKL_API.G_EXCEPTION_ERROR;
2136: END IF;
2137:
2138: copy_asset_rec(p_api_version => p_api_version,
2139: p_init_msg_list => p_init_msg_list,
2148: p_fin_line_2_ids => l_fin_line_2_ids,
2149: p_loc_2_ids => l_loc_2_ids,
2150: x_las_rec => x_las_tbl(i));
2151:
2152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2154: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_ERROR;
2156: END IF;
2149: p_loc_2_ids => l_loc_2_ids,
2150: x_las_rec => x_las_tbl(i));
2151:
2152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2154: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_ERROR;
2156: END IF;
2157:
2150: x_las_rec => x_las_tbl(i));
2151:
2152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2154: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_ERROR;
2156: END IF;
2157:
2158: i := i + 1;
2151:
2152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2154: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2155: RAISE OKL_API.G_EXCEPTION_ERROR;
2156: END IF;
2157:
2158: i := i + 1;
2159: END LOOP;
2160:
2161: ELSE
2162: FOR r_las_rec IN c_get_old_loan_asset_desc(l_las_rec) LOOP
2163: IF c_get_old_loan_asset_desc%NOTFOUND THEN
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: END IF;
2166:
2167: copy_asset_rec(p_api_version => p_api_version,
2168: p_init_msg_list => p_init_msg_list,
2177: p_fin_line_2_ids => l_fin_line_2_ids,
2178: p_loc_2_ids => l_loc_2_ids,
2179: x_las_rec => x_las_tbl(i));
2180:
2181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2183: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_ERROR;
2185: END IF;
2178: p_loc_2_ids => l_loc_2_ids,
2179: x_las_rec => x_las_tbl(i));
2180:
2181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2183: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_ERROR;
2185: END IF;
2186:
2179: x_las_rec => x_las_tbl(i));
2180:
2181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2183: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_ERROR;
2185: END IF;
2186:
2187: i := i + 1;
2180:
2181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2183: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2184: RAISE OKL_API.G_EXCEPTION_ERROR;
2185: END IF;
2186:
2187: i := i + 1;
2188: END LOOP;
2191: -- FOR r_get_old_asset_asc IN c_get_old_loan_asset_asc(l_las_rec) LOOP
2192: IF l_las_rec.include_split_yn='Y' THEN
2193: FOR r_las_rec IN c_get_old_splt_loan_asset_asc(l_las_rec) LOOP
2194: IF c_get_old_splt_loan_asset_asc%NOTFOUND THEN
2195: RAISE OKL_API.G_EXCEPTION_ERROR;
2196: END IF;
2197:
2198: copy_asset_rec(p_api_version => p_api_version,
2199: p_init_msg_list => p_init_msg_list,
2208: p_fin_line_2_ids => l_fin_line_2_ids,
2209: p_loc_2_ids => l_loc_2_ids,
2210: x_las_rec => x_las_tbl(i));
2211:
2212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2209: p_loc_2_ids => l_loc_2_ids,
2210: x_las_rec => x_las_tbl(i));
2211:
2212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2210: x_las_rec => x_las_tbl(i));
2211:
2212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2218: i := i + 1;
2211:
2212: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2214: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2215: RAISE OKL_API.G_EXCEPTION_ERROR;
2216: END IF;
2217:
2218: i := i + 1;
2219: END LOOP;
2220:
2221: ELSE
2222: FOR r_las_rec IN c_get_old_loan_asset_asc(l_las_rec) LOOP
2223: IF c_get_old_loan_asset_asc%NOTFOUND THEN
2224: RAISE OKL_API.G_EXCEPTION_ERROR;
2225: END IF;
2226:
2227: copy_asset_rec(p_api_version => p_api_version,
2228: p_init_msg_list => p_init_msg_list,
2237: p_fin_line_2_ids => l_fin_line_2_ids,
2238: p_loc_2_ids => l_loc_2_ids,
2239: x_las_rec => x_las_tbl(i));
2240:
2241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2238: p_loc_2_ids => l_loc_2_ids,
2239: x_las_rec => x_las_tbl(i));
2240:
2241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2246:
2239: x_las_rec => x_las_tbl(i));
2240:
2241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2246:
2247: i := i + 1;
2240:
2241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2243: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2244: RAISE OKL_API.G_EXCEPTION_ERROR;
2245: END IF;
2246:
2247: i := i + 1;
2248: END LOOP;
2256: -- FOR r_get_new_asset_desc IN c_get_new_loan_asset_desc(l_las_rec) LOOP
2257: IF l_las_rec.include_split_yn='Y' THEN
2258: FOR r_las_rec IN c_get_new_splt_loan_asset_desc(l_las_rec) LOOP
2259: IF c_get_new_splt_loan_asset_desc%NOTFOUND THEN
2260: RAISE OKL_API.G_EXCEPTION_ERROR;
2261: END IF;
2262: copy_asset_rec(p_api_version => p_api_version,
2263: p_init_msg_list => p_init_msg_list,
2264: x_return_status => x_return_status,
2272: p_fin_line_2_ids => l_fin_line_2_ids,
2273: p_loc_2_ids => l_loc_2_ids,
2274: x_las_rec => x_las_tbl(i));
2275:
2276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2278: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2279: RAISE OKL_API.G_EXCEPTION_ERROR;
2280: END IF;
2273: p_loc_2_ids => l_loc_2_ids,
2274: x_las_rec => x_las_tbl(i));
2275:
2276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2278: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2279: RAISE OKL_API.G_EXCEPTION_ERROR;
2280: END IF;
2281: i := i + 1;
2274: x_las_rec => x_las_tbl(i));
2275:
2276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2278: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2279: RAISE OKL_API.G_EXCEPTION_ERROR;
2280: END IF;
2281: i := i + 1;
2282: END LOOP;
2275:
2276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2278: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2279: RAISE OKL_API.G_EXCEPTION_ERROR;
2280: END IF;
2281: i := i + 1;
2282: END LOOP;
2283:
2283:
2284: ELSE --split else
2285: FOR r_las_rec IN c_get_new_loan_asset_desc(l_las_rec) LOOP
2286: IF c_get_new_loan_asset_desc%NOTFOUND THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2290: copy_asset_rec(p_api_version => p_api_version,
2291: p_init_msg_list => p_init_msg_list,
2300: p_fin_line_2_ids => l_fin_line_2_ids,
2301: p_loc_2_ids => l_loc_2_ids,
2302: x_las_rec => x_las_tbl(i));
2303:
2304: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2307: RAISE OKL_API.G_EXCEPTION_ERROR;
2308: END IF;
2301: p_loc_2_ids => l_loc_2_ids,
2302: x_las_rec => x_las_tbl(i));
2303:
2304: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2307: RAISE OKL_API.G_EXCEPTION_ERROR;
2308: END IF;
2309:
2302: x_las_rec => x_las_tbl(i));
2303:
2304: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2307: RAISE OKL_API.G_EXCEPTION_ERROR;
2308: END IF;
2309:
2310: i := i + 1;
2303:
2304: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2306: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2307: RAISE OKL_API.G_EXCEPTION_ERROR;
2308: END IF;
2309:
2310: i := i + 1;
2311: END LOOP;
2314: -- FOR r_get_new_asset_asc IN c_get_new_loan_asset_asc(l_las_rec) LOOP
2315: IF l_las_rec.include_split_yn='Y' THEN
2316: FOR r_las_rec IN c_get_new_splt_loan_asset_asc(l_las_rec) LOOP
2317: IF c_get_new_splt_loan_asset_asc%NOTFOUND THEN
2318: RAISE OKL_API.G_EXCEPTION_ERROR;
2319: END IF;
2320:
2321: copy_asset_rec(p_api_version => p_api_version,
2322: p_init_msg_list => p_init_msg_list,
2331: p_fin_line_2_ids => l_fin_line_2_ids,
2332: p_loc_2_ids => l_loc_2_ids,
2333: x_las_rec => x_las_tbl(i));
2334:
2335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2337: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_ERROR;
2339: END IF;
2332: p_loc_2_ids => l_loc_2_ids,
2333: x_las_rec => x_las_tbl(i));
2334:
2335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2337: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_ERROR;
2339: END IF;
2340:
2333: x_las_rec => x_las_tbl(i));
2334:
2335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2337: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_ERROR;
2339: END IF;
2340:
2341: i := i + 1;
2334:
2335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2337: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2338: RAISE OKL_API.G_EXCEPTION_ERROR;
2339: END IF;
2340:
2341: i := i + 1;
2342: END LOOP;
2343:
2344: ELSE --split Else
2345: FOR r_las_rec IN c_get_new_loan_asset_asc(l_las_rec) LOOP
2346: IF c_get_new_loan_asset_asc%NOTFOUND THEN
2347: RAISE OKL_API.G_EXCEPTION_ERROR;
2348: END IF;
2349:
2350: copy_asset_rec(p_api_version => p_api_version,
2351: p_init_msg_list => p_init_msg_list,
2360: p_fin_line_2_ids => l_fin_line_2_ids,
2361: p_loc_2_ids => l_loc_2_ids,
2362: x_las_rec => x_las_tbl(i));
2363:
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_ERROR;
2368: END IF;
2361: p_loc_2_ids => l_loc_2_ids,
2362: x_las_rec => x_las_tbl(i));
2363:
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_ERROR;
2368: END IF;
2369:
2362: x_las_rec => x_las_tbl(i));
2363:
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_ERROR;
2368: END IF;
2369:
2370: i := i + 1;
2363:
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE OKL_API.G_EXCEPTION_ERROR;
2368: END IF;
2369:
2370: i := i + 1;
2371: END LOOP;
2381: -- FOR r_get_old_asset_desc IN c_get_old_asset_desc(l_las_rec) LOOP
2382: IF l_las_rec.include_split_yn='Y' THEN
2383: FOR r_las_rec IN c_get_old_splt_asset_desc(l_las_rec) LOOP
2384: IF c_get_old_splt_asset_desc%NOTFOUND THEN
2385: RAISE OKL_API.G_EXCEPTION_ERROR;
2386: END IF;
2387:
2388: copy_asset_rec(p_api_version => p_api_version,
2389: p_init_msg_list => p_init_msg_list,
2398: p_fin_line_2_ids => l_fin_line_2_ids,
2399: p_loc_2_ids => l_loc_2_ids,
2400: x_las_rec => x_las_tbl(i));
2401:
2402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2405: RAISE OKL_API.G_EXCEPTION_ERROR;
2406: END IF;
2399: p_loc_2_ids => l_loc_2_ids,
2400: x_las_rec => x_las_tbl(i));
2401:
2402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2405: RAISE OKL_API.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2400: x_las_rec => x_las_tbl(i));
2401:
2402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2405: RAISE OKL_API.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2408: i := i + 1;
2401:
2402: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2404: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2405: RAISE OKL_API.G_EXCEPTION_ERROR;
2406: END IF;
2407:
2408: i := i + 1;
2409: END LOOP;
2409: END LOOP;
2410: ELSE
2411: FOR r_las_rec IN c_get_old_asset_desc(l_las_rec) LOOP
2412: IF c_get_old_asset_desc%NOTFOUND THEN
2413: RAISE OKL_API.G_EXCEPTION_ERROR;
2414: END IF;
2415:
2416: copy_asset_rec(p_api_version => p_api_version,
2417: p_init_msg_list => p_init_msg_list,
2426: p_fin_line_2_ids => l_fin_line_2_ids,
2427: p_loc_2_ids => l_loc_2_ids,
2428: x_las_rec => x_las_tbl(i));
2429:
2430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2433: RAISE OKL_API.G_EXCEPTION_ERROR;
2434: END IF;
2427: p_loc_2_ids => l_loc_2_ids,
2428: x_las_rec => x_las_tbl(i));
2429:
2430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2433: RAISE OKL_API.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2428: x_las_rec => x_las_tbl(i));
2429:
2430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2433: RAISE OKL_API.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2436: i := i + 1;
2429:
2430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2432: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2433: RAISE OKL_API.G_EXCEPTION_ERROR;
2434: END IF;
2435:
2436: i := i + 1;
2437: END LOOP;
2442:
2443: IF l_las_rec.include_split_yn='Y' THEN
2444: FOR r_las_rec IN c_get_old_splt_asset_asc(l_las_rec) LOOP
2445: IF c_get_old_splt_asset_asc%NOTFOUND THEN
2446: RAISE OKL_API.G_EXCEPTION_ERROR;
2447: END IF;
2448:
2449: copy_asset_rec(p_api_version => p_api_version,
2450: p_init_msg_list => p_init_msg_list,
2459: p_fin_line_2_ids => l_fin_line_2_ids,
2460: p_loc_2_ids => l_loc_2_ids,
2461: x_las_rec => x_las_tbl(i));
2462:
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2460: p_loc_2_ids => l_loc_2_ids,
2461: x_las_rec => x_las_tbl(i));
2462:
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2461: x_las_rec => x_las_tbl(i));
2462:
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2469: i := i + 1;
2462:
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2465: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_ERROR;
2467: END IF;
2468:
2469: i := i + 1;
2470: END LOOP;
2472: ELSE
2473:
2474: FOR r_las_rec IN c_get_old_asset_asc(l_las_rec) LOOP
2475: IF c_get_old_asset_asc%NOTFOUND THEN
2476: RAISE OKL_API.G_EXCEPTION_ERROR;
2477: END IF;
2478:
2479: copy_asset_rec(p_api_version => p_api_version,
2480: p_init_msg_list => p_init_msg_list,
2489: p_fin_line_2_ids => l_fin_line_2_ids,
2490: p_loc_2_ids => l_loc_2_ids,
2491: x_las_rec => x_las_tbl(i));
2492:
2493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_ERROR;
2497: END IF;
2490: p_loc_2_ids => l_loc_2_ids,
2491: x_las_rec => x_las_tbl(i));
2492:
2493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2491: x_las_rec => x_las_tbl(i));
2492:
2493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2499: i := i + 1;
2492:
2493: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2496: RAISE OKL_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2499: i := i + 1;
2500: END LOOP;
2508: -- FOR r_get_new_asset_desc IN c_get_new_asset_desc(l_las_rec) LOOP
2509: IF l_las_rec.include_split_yn='Y' THEN
2510: FOR r_las_rec IN c_get_new_splt_asset_desc(l_las_rec) LOOP
2511: IF c_get_new_splt_asset_desc%NOTFOUND THEN
2512: RAISE OKL_API.G_EXCEPTION_ERROR;
2513: END IF;
2514:
2515: copy_asset_rec(p_api_version => p_api_version,
2516: p_init_msg_list => p_init_msg_list,
2525: p_fin_line_2_ids => l_fin_line_2_ids,
2526: p_loc_2_ids => l_loc_2_ids,
2527: x_las_rec => x_las_tbl(i));
2528:
2529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2531: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2533: END IF;
2526: p_loc_2_ids => l_loc_2_ids,
2527: x_las_rec => x_las_tbl(i));
2528:
2529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2531: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2533: END IF;
2534:
2527: x_las_rec => x_las_tbl(i));
2528:
2529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2531: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2533: END IF;
2534:
2535: i := i + 1;
2528:
2529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2531: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2532: RAISE OKL_API.G_EXCEPTION_ERROR;
2533: END IF;
2534:
2535: i := i + 1;
2536: END LOOP;
2537:
2538: ELSE --split else
2539: FOR r_las_rec IN c_get_new_asset_desc(l_las_rec) LOOP
2540: IF c_get_new_asset_desc%NOTFOUND THEN
2541: RAISE OKL_API.G_EXCEPTION_ERROR;
2542: END IF;
2543:
2544: copy_asset_rec(p_api_version => p_api_version,
2545: p_init_msg_list => p_init_msg_list,
2554: p_fin_line_2_ids => l_fin_line_2_ids,
2555: p_loc_2_ids => l_loc_2_ids,
2556: x_las_rec => x_las_tbl(i));
2557:
2558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2555: p_loc_2_ids => l_loc_2_ids,
2556: x_las_rec => x_las_tbl(i));
2557:
2558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2556: x_las_rec => x_las_tbl(i));
2557:
2558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2564: i := i + 1;
2557:
2558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2560: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_ERROR;
2562: END IF;
2563:
2564: i := i + 1;
2565: END LOOP;
2570: -- FOR r_get_new_asset_asc IN c_get_new_asset_asc(l_las_rec) LOOP
2571: IF l_las_rec.include_split_yn='Y' THEN
2572: FOR r_las_rec IN c_get_new_splt_asset_asc(l_las_rec) LOOP
2573: IF c_get_new_splt_asset_asc%NOTFOUND THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: copy_asset_rec(p_api_version => p_api_version,
2577: p_init_msg_list => p_init_msg_list,
2578: x_return_status => x_return_status,
2586: p_fin_line_2_ids => l_fin_line_2_ids,
2587: p_loc_2_ids => l_loc_2_ids,
2588: x_las_rec => x_las_tbl(i));
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2587: p_loc_2_ids => l_loc_2_ids,
2588: x_las_rec => x_las_tbl(i));
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2588: x_las_rec => x_las_tbl(i));
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2596: i := i + 1;
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2592: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2593: RAISE OKL_API.G_EXCEPTION_ERROR;
2594: END IF;
2595:
2596: i := i + 1;
2597: END LOOP;
2598:
2599: ELSE --split else
2600: FOR r_las_rec IN c_get_new_asset_asc(l_las_rec) LOOP
2601: IF c_get_new_asset_asc%NOTFOUND THEN
2602: RAISE OKL_API.G_EXCEPTION_ERROR;
2603: END IF;
2604:
2605: copy_asset_rec(p_api_version => p_api_version,
2606: p_init_msg_list => p_init_msg_list,
2615: p_fin_line_2_ids => l_fin_line_2_ids,
2616: p_loc_2_ids => l_loc_2_ids,
2617: x_las_rec => x_las_tbl(i));
2618:
2619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2623: END IF;
2616: p_loc_2_ids => l_loc_2_ids,
2617: x_las_rec => x_las_tbl(i));
2618:
2619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2623: END IF;
2624:
2617: x_las_rec => x_las_tbl(i));
2618:
2619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2623: END IF;
2624:
2625: i := i + 1;
2618:
2619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2623: END IF;
2624:
2625: i := i + 1;
2626: END LOOP;
2629: END IF;
2630: END IF;
2631: END IF;
2632:
2633: OKL_API.END_ACTIVITY (x_msg_count,
2634: x_msg_data );
2635:
2636: EXCEPTION
2637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2633: OKL_API.END_ACTIVITY (x_msg_count,
2634: x_msg_data );
2635:
2636: EXCEPTION
2637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2638: IF c_get_new_asset_desc%ISOPEN THEN
2639: CLOSE c_get_new_asset_desc;
2640: END IF;
2641: IF c_get_old_asset_desc%ISOPEN THEN
2671:
2672: --Bug#4402325 end
2673:
2674:
2675: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2676: l_api_name,
2677: G_PKG_NAME,
2678: 'OKL_API.G_RET_STS_ERROR',
2679: x_msg_count,
2674:
2675: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2676: l_api_name,
2677: G_PKG_NAME,
2678: 'OKL_API.G_RET_STS_ERROR',
2679: x_msg_count,
2680: x_msg_data,
2681: '_PVT');
2682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2678: 'OKL_API.G_RET_STS_ERROR',
2679: x_msg_count,
2680: x_msg_data,
2681: '_PVT');
2682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2683: IF c_get_new_asset_desc%ISOPEN THEN
2684: CLOSE c_get_new_asset_desc;
2685: END IF;
2686: IF c_get_old_asset_desc%ISOPEN THEN
2716:
2717: --Bug#4402325 end
2718:
2719:
2720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2724: x_msg_count,
2719:
2720: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2721: l_api_name,
2722: G_PKG_NAME,
2723: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2724: x_msg_count,
2725: x_msg_data,
2726: '_PVT');
2727: WHEN OTHERS THEN
2761:
2762: --Bug#4402325 end
2763:
2764:
2765: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2766: l_api_name,
2767: G_PKG_NAME,
2768: 'OTHERS',
2769: x_msg_count,
2847: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_ERROR;
2849: END IF;
2850:
2851: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: EXCEPTION
2854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2850:
2851: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: EXCEPTION
2854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2856: p_api_name => l_api_name,
2857: p_pkg_name => g_pkg_name,
2858: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2851: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: EXCEPTION
2854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2856: p_api_name => l_api_name,
2857: p_pkg_name => g_pkg_name,
2858: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2859: x_msg_count => x_msg_count,
2854: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2855: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2856: p_api_name => l_api_name,
2857: p_pkg_name => g_pkg_name,
2858: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2859: x_msg_count => x_msg_count,
2860: x_msg_data => x_msg_data,
2861: p_api_type => g_api_type);
2862:
2859: x_msg_count => x_msg_count,
2860: x_msg_data => x_msg_data,
2861: p_api_type => g_api_type);
2862:
2863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2865: p_api_name => l_api_name,
2866: p_pkg_name => g_pkg_name,
2867: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2860: x_msg_data => x_msg_data,
2861: p_api_type => g_api_type);
2862:
2863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2865: p_api_name => l_api_name,
2866: p_pkg_name => g_pkg_name,
2867: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2868: x_msg_count => x_msg_count,
2863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2864: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2865: p_api_name => l_api_name,
2866: p_pkg_name => g_pkg_name,
2867: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2868: x_msg_count => x_msg_count,
2869: x_msg_data => x_msg_data,
2870: p_api_type => g_api_type);
2871:
2869: x_msg_data => x_msg_data,
2870: p_api_type => g_api_type);
2871:
2872: WHEN OTHERS THEN
2873: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2874: p_api_name => l_api_name,
2875: p_pkg_name => g_pkg_name,
2876: p_exc_name => 'OTHERS',
2877: x_msg_count => x_msg_count,
2970: RAISE OKC_API.G_EXCEPTION_ERROR;
2971: END IF;
2972:
2973:
2974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2975:
2976: EXCEPTION
2977: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2973:
2974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2975:
2976: EXCEPTION
2977: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2979: p_api_name => l_api_name,
2980: p_pkg_name => g_pkg_name,
2981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2974: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2975:
2976: EXCEPTION
2977: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2979: p_api_name => l_api_name,
2980: p_pkg_name => g_pkg_name,
2981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2982: x_msg_count => x_msg_count,
2977: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2978: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2979: p_api_name => l_api_name,
2980: p_pkg_name => g_pkg_name,
2981: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2982: x_msg_count => x_msg_count,
2983: x_msg_data => x_msg_data,
2984: p_api_type => g_api_type);
2985:
2982: x_msg_count => x_msg_count,
2983: x_msg_data => x_msg_data,
2984: p_api_type => g_api_type);
2985:
2986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2988: p_api_name => l_api_name,
2989: p_pkg_name => g_pkg_name,
2990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2983: x_msg_data => x_msg_data,
2984: p_api_type => g_api_type);
2985:
2986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2988: p_api_name => l_api_name,
2989: p_pkg_name => g_pkg_name,
2990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2991: x_msg_count => x_msg_count,
2986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2988: p_api_name => l_api_name,
2989: p_pkg_name => g_pkg_name,
2990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2991: x_msg_count => x_msg_count,
2992: x_msg_data => x_msg_data,
2993: p_api_type => g_api_type);
2994:
2992: x_msg_data => x_msg_data,
2993: p_api_type => g_api_type);
2994:
2995: WHEN OTHERS THEN
2996: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2997: p_api_name => l_api_name,
2998: p_pkg_name => g_pkg_name,
2999: p_exc_name => 'OTHERS',
3000: x_msg_count => x_msg_count,
3111: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3112: RAISE OKC_API.G_EXCEPTION_ERROR;
3113: END IF;
3114:
3115: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3116:
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3114:
3115: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3116:
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3120: p_api_name => l_api_name,
3121: p_pkg_name => g_pkg_name,
3122: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3115: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3116:
3117: EXCEPTION
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3120: p_api_name => l_api_name,
3121: p_pkg_name => g_pkg_name,
3122: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3123: x_msg_count => x_msg_count,
3118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3120: p_api_name => l_api_name,
3121: p_pkg_name => g_pkg_name,
3122: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3123: x_msg_count => x_msg_count,
3124: x_msg_data => x_msg_data,
3125: p_api_type => g_api_type);
3126:
3123: x_msg_count => x_msg_count,
3124: x_msg_data => x_msg_data,
3125: p_api_type => g_api_type);
3126:
3127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3129: p_api_name => l_api_name,
3130: p_pkg_name => g_pkg_name,
3131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3124: x_msg_data => x_msg_data,
3125: p_api_type => g_api_type);
3126:
3127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3129: p_api_name => l_api_name,
3130: p_pkg_name => g_pkg_name,
3131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3132: x_msg_count => x_msg_count,
3127: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3128: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3129: p_api_name => l_api_name,
3130: p_pkg_name => g_pkg_name,
3131: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3132: x_msg_count => x_msg_count,
3133: x_msg_data => x_msg_data,
3134: p_api_type => g_api_type);
3135:
3133: x_msg_data => x_msg_data,
3134: p_api_type => g_api_type);
3135:
3136: WHEN OTHERS THEN
3137: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3138: p_api_name => l_api_name,
3139: p_pkg_name => g_pkg_name,
3140: p_exc_name => 'OTHERS',
3141: x_msg_count => x_msg_count,
3216: RAISE OKC_API.G_EXCEPTION_ERROR;
3217: END IF;
3218:
3219: END LOOP;
3220: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3221: EXCEPTION
3222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3224: p_api_name => l_api_name,
3218:
3219: END LOOP;
3220: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3221: EXCEPTION
3222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3224: p_api_name => l_api_name,
3225: p_pkg_name => g_pkg_name,
3226: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3219: END LOOP;
3220: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3221: EXCEPTION
3222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3224: p_api_name => l_api_name,
3225: p_pkg_name => g_pkg_name,
3226: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3227: x_msg_count => x_msg_count,
3222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3224: p_api_name => l_api_name,
3225: p_pkg_name => g_pkg_name,
3226: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3227: x_msg_count => x_msg_count,
3228: x_msg_data => x_msg_data,
3229: p_api_type => g_api_type);
3230:
3227: x_msg_count => x_msg_count,
3228: x_msg_data => x_msg_data,
3229: p_api_type => g_api_type);
3230:
3231: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3232: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3233: p_api_name => l_api_name,
3234: p_pkg_name => g_pkg_name,
3235: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3228: x_msg_data => x_msg_data,
3229: p_api_type => g_api_type);
3230:
3231: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3232: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3233: p_api_name => l_api_name,
3234: p_pkg_name => g_pkg_name,
3235: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3236: x_msg_count => x_msg_count,
3231: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3232: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3233: p_api_name => l_api_name,
3234: p_pkg_name => g_pkg_name,
3235: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3236: x_msg_count => x_msg_count,
3237: x_msg_data => x_msg_data,
3238: p_api_type => g_api_type);
3239:
3237: x_msg_data => x_msg_data,
3238: p_api_type => g_api_type);
3239:
3240: WHEN OTHERS THEN
3241: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3242: p_api_name => l_api_name,
3243: p_pkg_name => g_pkg_name,
3244: p_exc_name => 'OTHERS',
3245: x_msg_count => x_msg_count,