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
545: exists in TXL, the information should be retrieved from there. If it exists at
546: both places, it is error.
547: */
548:
549: FUNCTION isContractActive(p_dnz_chr_id IN OKL_K_HEADERS_FULL_V.ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
550: p_deal_type IN OKL_K_HEADERS_FULL_V.DEAL_TYPE%TYPE,
551: p_sts_code IN OKL_K_HEADERS_FULL_V.STS_CODE%TYPE)
552: RETURN BOOLEAN IS
553: l_active_status BOOLEAN := FALSE;
661: -- thus allowing the user not to access the screen, by displaying
662: -- the respective message.
663: /* ELSIF (l_active_status AND l_inactive_status) THEN
664: return FALSE;
665: OKL_API.set_message(G_APP_NAME,
666: G_UNEXPECTED_ERROR,
667: G_SQLCODE_TOKEN,
668: SQLCODE,
669: G_SQLERRM_TOKEN,
1894:
1895:
1896:
1897: BEGIN
1898: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1899: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1900: G_PKG_NAME,
1901: p_init_msg_list,
1902: l_api_version,
1895:
1896:
1897: BEGIN
1898: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1899: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1900: G_PKG_NAME,
1901: p_init_msg_list,
1902: l_api_version,
1903: p_api_version,
1902: l_api_version,
1903: p_api_version,
1904: '_PVT',
1905: x_return_status);
1906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1903: p_api_version,
1904: '_PVT',
1905: x_return_status);
1906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1904: '_PVT',
1905: x_return_status);
1906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: -- cklee
1905: x_return_status);
1906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: -- cklee
1913: validate_asset_rec(p_api_version => p_api_version,
1917: x_msg_data => x_msg_data,
1918: p_las_rec => l_las_rec,
1919: x_las_rec => lx_las_rec);
1920:
1921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1924: RAISE OKL_API.G_EXCEPTION_ERROR;
1925: END IF;
1918: p_las_rec => l_las_rec,
1919: x_las_rec => lx_las_rec);
1920:
1921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1924: RAISE OKL_API.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1919: x_las_rec => lx_las_rec);
1920:
1921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1924: RAISE OKL_API.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1927: -- copy record back
1920:
1921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1924: RAISE OKL_API.G_EXCEPTION_ERROR;
1925: END IF;
1926:
1927: -- copy record back
1928: l_las_rec := lx_las_rec;
1930:
1931: -- Get the sts code since we can version only active contract
1932: OPEN c_get_sts_code(l_las_rec.dnz_chr_id);
1933: IF c_get_sts_code%NOTFOUND THEN
1934: OKL_API.set_message(p_app_name => G_APP_NAME,
1935: p_msg_name => G_NO_MATCHING_RECORD,
1936: p_token1 => G_COL_NAME_TOKEN,
1937: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1934: OKL_API.set_message(p_app_name => G_APP_NAME,
1935: p_msg_name => G_NO_MATCHING_RECORD,
1936: p_token1 => G_COL_NAME_TOKEN,
1937: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
1938: RAISE OKL_API.G_EXCEPTION_ERROR;
1939: END IF;
1940: FETCH c_get_sts_code INTO lv_sts_code, lv_deal_type;
1941: CLOSE c_get_sts_code;
1942:
1981: -- FOR r_get_old_asset_desc IN c_get_old_asset_desc(l_las_rec) LOOP
1982: IF l_las_rec.include_split_yn='Y' THEN
1983: FOR r_las_rec IN c_get_old_splt_asset_desc(l_las_rec) LOOP
1984: IF c_get_old_splt_asset_desc%NOTFOUND THEN
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: END IF;
1987: copy_asset_rec(p_api_version => p_api_version,
1988: p_init_msg_list => p_init_msg_list,
1989: x_return_status => x_return_status,
1997: p_fin_line_2_ids => l_fin_line_2_ids,
1998: p_loc_2_ids => l_loc_2_ids,
1999: x_las_rec => x_las_tbl(i));
2000:
2001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2004: RAISE OKL_API.G_EXCEPTION_ERROR;
2005: END IF;
1998: p_loc_2_ids => l_loc_2_ids,
1999: x_las_rec => x_las_tbl(i));
2000:
2001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2004: RAISE OKL_API.G_EXCEPTION_ERROR;
2005: END IF;
2006:
1999: x_las_rec => x_las_tbl(i));
2000:
2001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2004: RAISE OKL_API.G_EXCEPTION_ERROR;
2005: END IF;
2006:
2007: i := i + 1;
2000:
2001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2004: RAISE OKL_API.G_EXCEPTION_ERROR;
2005: END IF;
2006:
2007: i := i + 1;
2008: END LOOP;
2008: END LOOP;
2009: ELSE
2010: FOR r_las_rec IN c_get_old_asset_desc(l_las_rec) LOOP
2011: IF c_get_old_asset_desc%NOTFOUND THEN
2012: RAISE OKL_API.G_EXCEPTION_ERROR;
2013: END IF;
2014:
2015: copy_asset_rec(p_api_version => p_api_version,
2016: p_init_msg_list => p_init_msg_list,
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;
2041: IF l_las_rec.include_split_yn='Y' THEN
2042:
2043: FOR r_las_rec IN c_get_old_splt_asset_asc(l_las_rec) LOOP
2044: IF c_get_old_splt_asset_asc%NOTFOUND THEN
2045: RAISE OKL_API.G_EXCEPTION_ERROR;
2046: END IF;
2047:
2048: copy_asset_rec(p_api_version => p_api_version,
2049: p_init_msg_list => p_init_msg_list,
2058: p_fin_line_2_ids => l_fin_line_2_ids,
2059: p_loc_2_ids => l_loc_2_ids,
2060: x_las_rec => x_las_tbl(i));
2061:
2062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2059: p_loc_2_ids => l_loc_2_ids,
2060: x_las_rec => x_las_tbl(i));
2061:
2062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067:
2060: x_las_rec => x_las_tbl(i));
2061:
2062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067:
2068: i := i + 1;
2061:
2062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2064: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067:
2068: i := i + 1;
2069: END LOOP;
2070:
2071: ELSE
2072: FOR r_las_rec IN c_get_old_asset_asc(l_las_rec) LOOP
2073: IF c_get_old_asset_asc%NOTFOUND THEN
2074: RAISE OKL_API.G_EXCEPTION_ERROR;
2075: END IF;
2076:
2077: copy_asset_rec(p_api_version => p_api_version,
2078: p_init_msg_list => p_init_msg_list,
2087: p_fin_line_2_ids => l_fin_line_2_ids,
2088: p_loc_2_ids => l_loc_2_ids,
2089: x_las_rec => x_las_tbl(i));
2090:
2091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2093: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095: END IF;
2088: p_loc_2_ids => l_loc_2_ids,
2089: x_las_rec => x_las_tbl(i));
2090:
2091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2093: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095: END IF;
2096:
2089: x_las_rec => x_las_tbl(i));
2090:
2091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2093: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095: END IF;
2096:
2097: i := i + 1;
2090:
2091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2093: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2094: RAISE OKL_API.G_EXCEPTION_ERROR;
2095: END IF;
2096:
2097: i := i + 1;
2098: END LOOP;
2103: -- FOR r_get_old_asset_desc IN c_get_old_loan_asset_desc(l_las_rec) LOOP
2104: IF l_las_rec.include_split_yn='Y' THEN
2105: FOR r_las_rec IN c_get_old_splt_loan_asset_desc(l_las_rec) LOOP
2106: IF c_get_old_splt_loan_asset_desc%NOTFOUND THEN
2107: RAISE OKL_API.G_EXCEPTION_ERROR;
2108: END IF;
2109:
2110: copy_asset_rec(p_api_version => p_api_version,
2111: p_init_msg_list => p_init_msg_list,
2120: p_fin_line_2_ids => l_fin_line_2_ids,
2121: p_loc_2_ids => l_loc_2_ids,
2122: x_las_rec => x_las_tbl(i));
2123:
2124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2126: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2127: RAISE OKL_API.G_EXCEPTION_ERROR;
2128: END IF;
2121: p_loc_2_ids => l_loc_2_ids,
2122: x_las_rec => x_las_tbl(i));
2123:
2124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2126: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2127: RAISE OKL_API.G_EXCEPTION_ERROR;
2128: END IF;
2129:
2122: x_las_rec => x_las_tbl(i));
2123:
2124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2126: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2127: RAISE OKL_API.G_EXCEPTION_ERROR;
2128: END IF;
2129:
2130: i := i + 1;
2123:
2124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2126: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2127: RAISE OKL_API.G_EXCEPTION_ERROR;
2128: END IF;
2129:
2130: i := i + 1;
2131: END LOOP;
2132:
2133: ELSE
2134: FOR r_las_rec IN c_get_old_loan_asset_desc(l_las_rec) LOOP
2135: IF c_get_old_loan_asset_desc%NOTFOUND THEN
2136: RAISE OKL_API.G_EXCEPTION_ERROR;
2137: END IF;
2138:
2139: copy_asset_rec(p_api_version => p_api_version,
2140: p_init_msg_list => p_init_msg_list,
2149: p_fin_line_2_ids => l_fin_line_2_ids,
2150: p_loc_2_ids => l_loc_2_ids,
2151: x_las_rec => x_las_tbl(i));
2152:
2153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2155: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_ERROR;
2157: END IF;
2150: p_loc_2_ids => l_loc_2_ids,
2151: x_las_rec => x_las_tbl(i));
2152:
2153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2155: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_ERROR;
2157: END IF;
2158:
2151: x_las_rec => x_las_tbl(i));
2152:
2153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2155: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_ERROR;
2157: END IF;
2158:
2159: i := i + 1;
2152:
2153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2154: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2155: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2156: RAISE OKL_API.G_EXCEPTION_ERROR;
2157: END IF;
2158:
2159: i := i + 1;
2160: END LOOP;
2163: -- FOR r_get_old_asset_asc IN c_get_old_loan_asset_asc(l_las_rec) LOOP
2164: IF l_las_rec.include_split_yn='Y' THEN
2165: FOR r_las_rec IN c_get_old_splt_loan_asset_asc(l_las_rec) LOOP
2166: IF c_get_old_splt_loan_asset_asc%NOTFOUND THEN
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: END IF;
2169:
2170: copy_asset_rec(p_api_version => p_api_version,
2171: p_init_msg_list => p_init_msg_list,
2180: p_fin_line_2_ids => l_fin_line_2_ids,
2181: p_loc_2_ids => l_loc_2_ids,
2182: x_las_rec => x_las_tbl(i));
2183:
2184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2186: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2187: RAISE OKL_API.G_EXCEPTION_ERROR;
2188: END IF;
2181: p_loc_2_ids => l_loc_2_ids,
2182: x_las_rec => x_las_tbl(i));
2183:
2184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2186: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2187: RAISE OKL_API.G_EXCEPTION_ERROR;
2188: END IF;
2189:
2182: x_las_rec => x_las_tbl(i));
2183:
2184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2186: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2187: RAISE OKL_API.G_EXCEPTION_ERROR;
2188: END IF;
2189:
2190: i := i + 1;
2183:
2184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2186: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2187: RAISE OKL_API.G_EXCEPTION_ERROR;
2188: END IF;
2189:
2190: i := i + 1;
2191: END LOOP;
2192:
2193: ELSE
2194: FOR r_las_rec IN c_get_old_loan_asset_asc(l_las_rec) LOOP
2195: IF c_get_old_loan_asset_asc%NOTFOUND THEN
2196: RAISE OKL_API.G_EXCEPTION_ERROR;
2197: END IF;
2198:
2199: copy_asset_rec(p_api_version => p_api_version,
2200: p_init_msg_list => p_init_msg_list,
2209: p_fin_line_2_ids => l_fin_line_2_ids,
2210: p_loc_2_ids => l_loc_2_ids,
2211: x_las_rec => x_las_tbl(i));
2212:
2213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2215: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_ERROR;
2217: END IF;
2210: p_loc_2_ids => l_loc_2_ids,
2211: x_las_rec => x_las_tbl(i));
2212:
2213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2215: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_ERROR;
2217: END IF;
2218:
2211: x_las_rec => x_las_tbl(i));
2212:
2213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2215: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_ERROR;
2217: END IF;
2218:
2219: i := i + 1;
2212:
2213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2215: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2216: RAISE OKL_API.G_EXCEPTION_ERROR;
2217: END IF;
2218:
2219: i := i + 1;
2220: END LOOP;
2228: -- FOR r_get_new_asset_desc IN c_get_new_loan_asset_desc(l_las_rec) LOOP
2229: IF l_las_rec.include_split_yn='Y' THEN
2230: FOR r_las_rec IN c_get_new_splt_loan_asset_desc(l_las_rec) LOOP
2231: IF c_get_new_splt_loan_asset_desc%NOTFOUND THEN
2232: RAISE OKL_API.G_EXCEPTION_ERROR;
2233: END IF;
2234: copy_asset_rec(p_api_version => p_api_version,
2235: p_init_msg_list => p_init_msg_list,
2236: x_return_status => x_return_status,
2244: p_fin_line_2_ids => l_fin_line_2_ids,
2245: p_loc_2_ids => l_loc_2_ids,
2246: x_las_rec => x_las_tbl(i));
2247:
2248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2251: RAISE OKL_API.G_EXCEPTION_ERROR;
2252: END IF;
2245: p_loc_2_ids => l_loc_2_ids,
2246: x_las_rec => x_las_tbl(i));
2247:
2248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2251: RAISE OKL_API.G_EXCEPTION_ERROR;
2252: END IF;
2253: i := i + 1;
2246: x_las_rec => x_las_tbl(i));
2247:
2248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2251: RAISE OKL_API.G_EXCEPTION_ERROR;
2252: END IF;
2253: i := i + 1;
2254: END LOOP;
2247:
2248: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2249: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2250: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2251: RAISE OKL_API.G_EXCEPTION_ERROR;
2252: END IF;
2253: i := i + 1;
2254: END LOOP;
2255:
2255:
2256: ELSE --split else
2257: FOR r_las_rec IN c_get_new_loan_asset_desc(l_las_rec) LOOP
2258: IF c_get_new_loan_asset_desc%NOTFOUND THEN
2259: RAISE OKL_API.G_EXCEPTION_ERROR;
2260: END IF;
2261:
2262: copy_asset_rec(p_api_version => p_api_version,
2263: p_init_msg_list => p_init_msg_list,
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:
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:
2282: i := i + 1;
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:
2282: i := i + 1;
2283: END LOOP;
2286: -- FOR r_get_new_asset_asc IN c_get_new_loan_asset_asc(l_las_rec) LOOP
2287: IF l_las_rec.include_split_yn='Y' THEN
2288: FOR r_las_rec IN c_get_new_splt_loan_asset_asc(l_las_rec) LOOP
2289: IF c_get_new_splt_loan_asset_asc%NOTFOUND THEN
2290: RAISE OKL_API.G_EXCEPTION_ERROR;
2291: END IF;
2292:
2293: copy_asset_rec(p_api_version => p_api_version,
2294: p_init_msg_list => p_init_msg_list,
2303: p_fin_line_2_ids => l_fin_line_2_ids,
2304: p_loc_2_ids => l_loc_2_ids,
2305: x_las_rec => x_las_tbl(i));
2306:
2307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: END IF;
2304: p_loc_2_ids => l_loc_2_ids,
2305: x_las_rec => x_las_tbl(i));
2306:
2307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: END IF;
2312:
2305: x_las_rec => x_las_tbl(i));
2306:
2307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: END IF;
2312:
2313: i := i + 1;
2306:
2307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2310: RAISE OKL_API.G_EXCEPTION_ERROR;
2311: END IF;
2312:
2313: i := i + 1;
2314: END LOOP;
2315:
2316: ELSE --split Else
2317: FOR r_las_rec IN c_get_new_loan_asset_asc(l_las_rec) LOOP
2318: IF c_get_new_loan_asset_asc%NOTFOUND THEN
2319: RAISE OKL_API.G_EXCEPTION_ERROR;
2320: END IF;
2321:
2322: copy_asset_rec(p_api_version => p_api_version,
2323: p_init_msg_list => p_init_msg_list,
2332: p_fin_line_2_ids => l_fin_line_2_ids,
2333: p_loc_2_ids => l_loc_2_ids,
2334: x_las_rec => x_las_tbl(i));
2335:
2336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2333: p_loc_2_ids => l_loc_2_ids,
2334: x_las_rec => x_las_tbl(i));
2335:
2336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2334: x_las_rec => x_las_tbl(i));
2335:
2336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2342: i := i + 1;
2335:
2336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2339: RAISE OKL_API.G_EXCEPTION_ERROR;
2340: END IF;
2341:
2342: i := i + 1;
2343: END LOOP;
2353: -- FOR r_get_old_asset_desc IN c_get_old_asset_desc(l_las_rec) LOOP
2354: IF l_las_rec.include_split_yn='Y' THEN
2355: FOR r_las_rec IN c_get_old_splt_asset_desc(l_las_rec) LOOP
2356: IF c_get_old_splt_asset_desc%NOTFOUND THEN
2357: RAISE OKL_API.G_EXCEPTION_ERROR;
2358: END IF;
2359:
2360: copy_asset_rec(p_api_version => p_api_version,
2361: p_init_msg_list => p_init_msg_list,
2370: p_fin_line_2_ids => l_fin_line_2_ids,
2371: p_loc_2_ids => l_loc_2_ids,
2372: x_las_rec => x_las_tbl(i));
2373:
2374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2377: RAISE OKL_API.G_EXCEPTION_ERROR;
2378: END IF;
2371: p_loc_2_ids => l_loc_2_ids,
2372: x_las_rec => x_las_tbl(i));
2373:
2374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2377: RAISE OKL_API.G_EXCEPTION_ERROR;
2378: END IF;
2379:
2372: x_las_rec => x_las_tbl(i));
2373:
2374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2377: RAISE OKL_API.G_EXCEPTION_ERROR;
2378: END IF;
2379:
2380: i := i + 1;
2373:
2374: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2375: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2376: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2377: RAISE OKL_API.G_EXCEPTION_ERROR;
2378: END IF;
2379:
2380: i := i + 1;
2381: END LOOP;
2381: END LOOP;
2382: ELSE
2383: FOR r_las_rec IN c_get_old_asset_desc(l_las_rec) LOOP
2384: IF c_get_old_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;
2414:
2415: IF l_las_rec.include_split_yn='Y' THEN
2416: FOR r_las_rec IN c_get_old_splt_asset_asc(l_las_rec) LOOP
2417: IF c_get_old_splt_asset_asc%NOTFOUND THEN
2418: RAISE OKL_API.G_EXCEPTION_ERROR;
2419: END IF;
2420:
2421: copy_asset_rec(p_api_version => p_api_version,
2422: p_init_msg_list => p_init_msg_list,
2431: p_fin_line_2_ids => l_fin_line_2_ids,
2432: p_loc_2_ids => l_loc_2_ids,
2433: x_las_rec => x_las_tbl(i));
2434:
2435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_ERROR;
2439: END IF;
2432: p_loc_2_ids => l_loc_2_ids,
2433: x_las_rec => x_las_tbl(i));
2434:
2435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_ERROR;
2439: END IF;
2440:
2433: x_las_rec => x_las_tbl(i));
2434:
2435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_ERROR;
2439: END IF;
2440:
2441: i := i + 1;
2434:
2435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2437: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2438: RAISE OKL_API.G_EXCEPTION_ERROR;
2439: END IF;
2440:
2441: i := i + 1;
2442: END LOOP;
2444: ELSE
2445:
2446: FOR r_las_rec IN c_get_old_asset_asc(l_las_rec) LOOP
2447: IF c_get_old_asset_asc%NOTFOUND THEN
2448: RAISE OKL_API.G_EXCEPTION_ERROR;
2449: END IF;
2450:
2451: copy_asset_rec(p_api_version => p_api_version,
2452: p_init_msg_list => p_init_msg_list,
2461: p_fin_line_2_ids => l_fin_line_2_ids,
2462: p_loc_2_ids => l_loc_2_ids,
2463: x_las_rec => x_las_tbl(i));
2464:
2465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_ERROR;
2469: END IF;
2462: p_loc_2_ids => l_loc_2_ids,
2463: x_las_rec => x_las_tbl(i));
2464:
2465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2463: x_las_rec => x_las_tbl(i));
2464:
2465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2471: i := i + 1;
2464:
2465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2468: RAISE OKL_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2471: i := i + 1;
2472: END LOOP;
2480: -- FOR r_get_new_asset_desc IN c_get_new_asset_desc(l_las_rec) LOOP
2481: IF l_las_rec.include_split_yn='Y' THEN
2482: FOR r_las_rec IN c_get_new_splt_asset_desc(l_las_rec) LOOP
2483: IF c_get_new_splt_asset_desc%NOTFOUND THEN
2484: RAISE OKL_API.G_EXCEPTION_ERROR;
2485: END IF;
2486:
2487: copy_asset_rec(p_api_version => p_api_version,
2488: p_init_msg_list => p_init_msg_list,
2497: p_fin_line_2_ids => l_fin_line_2_ids,
2498: p_loc_2_ids => l_loc_2_ids,
2499: x_las_rec => x_las_tbl(i));
2500:
2501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2498: p_loc_2_ids => l_loc_2_ids,
2499: x_las_rec => x_las_tbl(i));
2500:
2501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2499: x_las_rec => x_las_tbl(i));
2500:
2501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2507: i := i + 1;
2500:
2501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2502: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2503: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2504: RAISE OKL_API.G_EXCEPTION_ERROR;
2505: END IF;
2506:
2507: i := i + 1;
2508: END LOOP;
2509:
2510: ELSE --split else
2511: FOR r_las_rec IN c_get_new_asset_desc(l_las_rec) LOOP
2512: IF c_get_new_asset_desc%NOTFOUND THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515:
2516: copy_asset_rec(p_api_version => p_api_version,
2517: p_init_msg_list => p_init_msg_list,
2526: p_fin_line_2_ids => l_fin_line_2_ids,
2527: p_loc_2_ids => l_loc_2_ids,
2528: x_las_rec => x_las_tbl(i));
2529:
2530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2532: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2533: RAISE OKL_API.G_EXCEPTION_ERROR;
2534: END IF;
2527: p_loc_2_ids => l_loc_2_ids,
2528: x_las_rec => x_las_tbl(i));
2529:
2530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2532: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2533: RAISE OKL_API.G_EXCEPTION_ERROR;
2534: END IF;
2535:
2528: x_las_rec => x_las_tbl(i));
2529:
2530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2532: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2533: RAISE OKL_API.G_EXCEPTION_ERROR;
2534: END IF;
2535:
2536: i := i + 1;
2529:
2530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2532: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2533: RAISE OKL_API.G_EXCEPTION_ERROR;
2534: END IF;
2535:
2536: i := i + 1;
2537: END LOOP;
2542: -- FOR r_get_new_asset_asc IN c_get_new_asset_asc(l_las_rec) LOOP
2543: IF l_las_rec.include_split_yn='Y' THEN
2544: FOR r_las_rec IN c_get_new_splt_asset_asc(l_las_rec) LOOP
2545: IF c_get_new_splt_asset_asc%NOTFOUND THEN
2546: RAISE OKL_API.G_EXCEPTION_ERROR;
2547: END IF;
2548: copy_asset_rec(p_api_version => p_api_version,
2549: p_init_msg_list => p_init_msg_list,
2550: x_return_status => x_return_status,
2558: p_fin_line_2_ids => l_fin_line_2_ids,
2559: p_loc_2_ids => l_loc_2_ids,
2560: x_las_rec => x_las_tbl(i));
2561:
2562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: END IF;
2559: p_loc_2_ids => l_loc_2_ids,
2560: x_las_rec => x_las_tbl(i));
2561:
2562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: END IF;
2567:
2560: x_las_rec => x_las_tbl(i));
2561:
2562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: END IF;
2567:
2568: i := i + 1;
2561:
2562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2564: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2565: RAISE OKL_API.G_EXCEPTION_ERROR;
2566: END IF;
2567:
2568: i := i + 1;
2569: END LOOP;
2570:
2571: ELSE --split else
2572: FOR r_las_rec IN c_get_new_asset_asc(l_las_rec) LOOP
2573: IF c_get_new_asset_asc%NOTFOUND THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576:
2577: copy_asset_rec(p_api_version => p_api_version,
2578: p_init_msg_list => p_init_msg_list,
2587: p_fin_line_2_ids => l_fin_line_2_ids,
2588: p_loc_2_ids => l_loc_2_ids,
2589: x_las_rec => x_las_tbl(i));
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2588: p_loc_2_ids => l_loc_2_ids,
2589: x_las_rec => x_las_tbl(i));
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596:
2589: x_las_rec => x_las_tbl(i));
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596:
2597: i := i + 1;
2590:
2591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596:
2597: i := i + 1;
2598: END LOOP;
2601: END IF;
2602: END IF;
2603: END IF;
2604:
2605: OKL_API.END_ACTIVITY (x_msg_count,
2606: x_msg_data );
2607:
2608: EXCEPTION
2609: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2605: OKL_API.END_ACTIVITY (x_msg_count,
2606: x_msg_data );
2607:
2608: EXCEPTION
2609: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2610: IF c_get_new_asset_desc%ISOPEN THEN
2611: CLOSE c_get_new_asset_desc;
2612: END IF;
2613: IF c_get_old_asset_desc%ISOPEN THEN
2643:
2644: --Bug#4402325 end
2645:
2646:
2647: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2648: l_api_name,
2649: G_PKG_NAME,
2650: 'OKL_API.G_RET_STS_ERROR',
2651: x_msg_count,
2646:
2647: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2648: l_api_name,
2649: G_PKG_NAME,
2650: 'OKL_API.G_RET_STS_ERROR',
2651: x_msg_count,
2652: x_msg_data,
2653: '_PVT');
2654: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2650: 'OKL_API.G_RET_STS_ERROR',
2651: x_msg_count,
2652: x_msg_data,
2653: '_PVT');
2654: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2655: IF c_get_new_asset_desc%ISOPEN THEN
2656: CLOSE c_get_new_asset_desc;
2657: END IF;
2658: IF c_get_old_asset_desc%ISOPEN THEN
2688:
2689: --Bug#4402325 end
2690:
2691:
2692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2693: l_api_name,
2694: G_PKG_NAME,
2695: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2696: x_msg_count,
2691:
2692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2693: l_api_name,
2694: G_PKG_NAME,
2695: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2696: x_msg_count,
2697: x_msg_data,
2698: '_PVT');
2699: WHEN OTHERS THEN
2733:
2734: --Bug#4402325 end
2735:
2736:
2737: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2738: l_api_name,
2739: G_PKG_NAME,
2740: 'OTHERS',
2741: x_msg_count,
2819: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_ERROR;
2821: END IF;
2822:
2823: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2824: x_msg_data => x_msg_data);
2825: EXCEPTION
2826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2822:
2823: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2824: x_msg_data => x_msg_data);
2825: EXCEPTION
2826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2828: p_api_name => l_api_name,
2829: p_pkg_name => g_pkg_name,
2830: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2823: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2824: x_msg_data => x_msg_data);
2825: EXCEPTION
2826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2828: p_api_name => l_api_name,
2829: p_pkg_name => g_pkg_name,
2830: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2831: x_msg_count => x_msg_count,
2826: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2828: p_api_name => l_api_name,
2829: p_pkg_name => g_pkg_name,
2830: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2831: x_msg_count => x_msg_count,
2832: x_msg_data => x_msg_data,
2833: p_api_type => g_api_type);
2834:
2831: x_msg_count => x_msg_count,
2832: x_msg_data => x_msg_data,
2833: p_api_type => g_api_type);
2834:
2835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2837: p_api_name => l_api_name,
2838: p_pkg_name => g_pkg_name,
2839: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2832: x_msg_data => x_msg_data,
2833: p_api_type => g_api_type);
2834:
2835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2837: p_api_name => l_api_name,
2838: p_pkg_name => g_pkg_name,
2839: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2840: x_msg_count => x_msg_count,
2835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2837: p_api_name => l_api_name,
2838: p_pkg_name => g_pkg_name,
2839: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2840: x_msg_count => x_msg_count,
2841: x_msg_data => x_msg_data,
2842: p_api_type => g_api_type);
2843:
2841: x_msg_data => x_msg_data,
2842: p_api_type => g_api_type);
2843:
2844: WHEN OTHERS THEN
2845: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2846: p_api_name => l_api_name,
2847: p_pkg_name => g_pkg_name,
2848: p_exc_name => 'OTHERS',
2849: x_msg_count => x_msg_count,
2942: RAISE OKC_API.G_EXCEPTION_ERROR;
2943: END IF;
2944:
2945:
2946: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2947:
2948: EXCEPTION
2949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2945:
2946: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2947:
2948: EXCEPTION
2949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2951: p_api_name => l_api_name,
2952: p_pkg_name => g_pkg_name,
2953: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2946: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2947:
2948: EXCEPTION
2949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2951: p_api_name => l_api_name,
2952: p_pkg_name => g_pkg_name,
2953: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2954: x_msg_count => x_msg_count,
2949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2950: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2951: p_api_name => l_api_name,
2952: p_pkg_name => g_pkg_name,
2953: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2954: x_msg_count => x_msg_count,
2955: x_msg_data => x_msg_data,
2956: p_api_type => g_api_type);
2957:
2954: x_msg_count => x_msg_count,
2955: x_msg_data => x_msg_data,
2956: p_api_type => g_api_type);
2957:
2958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2955: x_msg_data => x_msg_data,
2956: p_api_type => g_api_type);
2957:
2958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2963: x_msg_count => x_msg_count,
2958: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2960: p_api_name => l_api_name,
2961: p_pkg_name => g_pkg_name,
2962: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2963: x_msg_count => x_msg_count,
2964: x_msg_data => x_msg_data,
2965: p_api_type => g_api_type);
2966:
2964: x_msg_data => x_msg_data,
2965: p_api_type => g_api_type);
2966:
2967: WHEN OTHERS THEN
2968: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2969: p_api_name => l_api_name,
2970: p_pkg_name => g_pkg_name,
2971: p_exc_name => 'OTHERS',
2972: x_msg_count => x_msg_count,
3083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3084: RAISE OKC_API.G_EXCEPTION_ERROR;
3085: END IF;
3086:
3087: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3086:
3087: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3092: p_api_name => l_api_name,
3093: p_pkg_name => g_pkg_name,
3094: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3087: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3088:
3089: EXCEPTION
3090: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3092: p_api_name => l_api_name,
3093: p_pkg_name => g_pkg_name,
3094: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3095: x_msg_count => x_msg_count,
3090: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3091: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3092: p_api_name => l_api_name,
3093: p_pkg_name => g_pkg_name,
3094: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3095: x_msg_count => x_msg_count,
3096: x_msg_data => x_msg_data,
3097: p_api_type => g_api_type);
3098:
3095: x_msg_count => x_msg_count,
3096: x_msg_data => x_msg_data,
3097: p_api_type => g_api_type);
3098:
3099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3101: p_api_name => l_api_name,
3102: p_pkg_name => g_pkg_name,
3103: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3096: x_msg_data => x_msg_data,
3097: p_api_type => g_api_type);
3098:
3099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3101: p_api_name => l_api_name,
3102: p_pkg_name => g_pkg_name,
3103: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3104: x_msg_count => x_msg_count,
3099: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3101: p_api_name => l_api_name,
3102: p_pkg_name => g_pkg_name,
3103: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3104: x_msg_count => x_msg_count,
3105: x_msg_data => x_msg_data,
3106: p_api_type => g_api_type);
3107:
3105: x_msg_data => x_msg_data,
3106: p_api_type => g_api_type);
3107:
3108: WHEN OTHERS THEN
3109: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3110: p_api_name => l_api_name,
3111: p_pkg_name => g_pkg_name,
3112: p_exc_name => 'OTHERS',
3113: x_msg_count => x_msg_count,
3188: RAISE OKC_API.G_EXCEPTION_ERROR;
3189: END IF;
3190:
3191: END LOOP;
3192: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3190:
3191: END LOOP;
3192: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3191: END LOOP;
3192: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3193: EXCEPTION
3194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3199: x_msg_count => x_msg_count,
3194: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3196: p_api_name => l_api_name,
3197: p_pkg_name => g_pkg_name,
3198: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3199: x_msg_count => x_msg_count,
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3199: x_msg_count => x_msg_count,
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3203: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3200: x_msg_data => x_msg_data,
3201: p_api_type => g_api_type);
3202:
3203: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3208: x_msg_count => x_msg_count,
3203: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3205: p_api_name => l_api_name,
3206: p_pkg_name => g_pkg_name,
3207: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3208: x_msg_count => x_msg_count,
3209: x_msg_data => x_msg_data,
3210: p_api_type => g_api_type);
3211:
3209: x_msg_data => x_msg_data,
3210: p_api_type => g_api_type);
3211:
3212: WHEN OTHERS THEN
3213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3214: p_api_name => l_api_name,
3215: p_pkg_name => g_pkg_name,
3216: p_exc_name => 'OTHERS',
3217: x_msg_count => x_msg_count,