[Home] [Help]
2: /* $Header: OKLRKLLB.pls 120.56.12010000.6 2009/01/15 20:49:24 smereddy ship $ */
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
9: G_REC_NAME_TOKEN CONSTANT VARCHAR2(200) := 'REC_INFO';
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
9: G_REC_NAME_TOKEN CONSTANT VARCHAR2(200) := 'REC_INFO';
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
6: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
9: G_REC_NAME_TOKEN CONSTANT VARCHAR2(200) := 'REC_INFO';
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
9: G_REC_NAME_TOKEN CONSTANT VARCHAR2(200) := 'REC_INFO';
10: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
11: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_UNEXPECTED_ERROR';
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
15: ------------------------------------------------------------------------------------
78:
79: -- GLOBAL VARIABLES
80: -----------------------------------------------------------------------------------
81: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_CREATE_ASSET_PVT';
82: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
83: G_TRY_NAME OKL_TRX_TYPES_TL.NAME%TYPE := 'Internal Asset Creation';
84: G_LANGUAGE OKL_TRX_TYPES_TL.LANGUAGE%TYPE := 'US';
85: -- G_FA_TRY_NAME OKL_TRX_TYPES_V.NAME%TYPE := 'CREATE ASSET LINES';
86: -- G_IB_TRY_NAME OKL_TRX_TYPES_V.NAME%TYPE := 'CREATE_IB_LINES';
103:
104: FUNCTION is_duplicate_serial_number(p_serial_number OKL_TXL_ITM_INSTS.SERIAL_NUMBER%TYPE,
105: p_item_id OKL_TXL_ITM_INSTS.INVENTORY_ITEM_ID%TYPE)
106: RETURN VARCHAR2 IS
107: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
108: ln_serial_number NUMBER := 0;
109: -- cursor to get sequence number for asset number
110: -- Bug 4698117
111:
123: BEGIN
124: OPEN c_check_dup_serial_num;
125: FETCH c_check_dup_serial_num INTO ln_serial_number;
126: IF (c_check_dup_serial_num%NOTFOUND) Then
127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
128: END IF;
129: CLOSE c_check_dup_serial_num;
130: IF (ln_serial_number = 1) THEN
131: OKL_API.set_message(p_app_name => G_APP_NAME,
127: x_return_status := OKL_API.G_RET_STS_SUCCESS;
128: END IF;
129: CLOSE c_check_dup_serial_num;
130: IF (ln_serial_number = 1) THEN
131: OKL_API.set_message(p_app_name => G_APP_NAME,
132: p_msg_name => G_DUPLICATE_SERIAL_NUM,
133: p_token1 => 'COL_NAME',
134: p_token1_value => p_serial_number);
135: RAISE G_EXCEPTION_HALT_VALIDATION;
140: IF c_check_dup_serial_num%ISOPEN THEN
141: CLOSE c_check_dup_serial_num;
142: END IF;
143: -- notify caller of an error
144: x_return_status := OKL_API.G_RET_STS_ERROR;
145: RETURN x_return_status;
146: WHEN OTHERS THEN
147: IF c_check_dup_serial_num%ISOPEN THEN
148: CLOSE c_check_dup_serial_num;
147: IF c_check_dup_serial_num%ISOPEN THEN
148: CLOSE c_check_dup_serial_num;
149: END IF;
150: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
151: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
152: p_msg_name => g_unexpected_error,
153: p_token1 => g_sqlcode_token,
154: p_token1_value => sqlcode,
155: p_token2 => g_sqlerrm_token,
158: END is_duplicate_serial_number;
159: ---------------------------------------------------------------------------------------------------------------
160: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
161: RETURN VARCHAR2 IS
162: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
163: -- cursor to get sequence number for asset number
164: Cursor c_instance_no_ib IS
165: select TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
166: FROM dual;
168: OPEN c_instance_no_ib;
169: FETCH c_instance_no_ib INTO x_instance_number_ib;
170: IF (c_instance_no_ib%NOTFOUND) Then
171: x_return_status := OKC_API.G_RET_STS_ERROR;
172: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
173: p_msg_name => g_unexpected_error,
174: p_token1 => g_sqlcode_token,
175: p_token1_value => sqlcode,
176: p_token2 => g_sqlerrm_token,
183: IF c_instance_no_ib%ISOPEN THEN
184: CLOSE c_instance_no_ib;
185: END IF;
186: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
187: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
188: p_msg_name => g_unexpected_error,
189: p_token1 => g_sqlcode_token,
190: p_token1_value => sqlcode,
191: p_token2 => g_sqlerrm_token,
194: END generate_instance_number_ib;
195: ---------------------------------------------------------------------------------------------------------------
196: FUNCTION generate_asset_number(x_asset_number OUT NOCOPY OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE)
197: RETURN VARCHAR2 IS
198: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
199: ln_dummy1 NUMBER := 0;
200: ln_dummy2 NUMBER := 0;
201: ln_dummy3 NUMBER := 0;
202: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
244: OPEN c_asset_no;
245: FETCH c_asset_no INTO x_asset_number;
246: IF (c_asset_no%NOTFOUND) THEN
247: x_return_status := OKC_API.G_RET_STS_ERROR;
248: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
249: p_msg_name => g_unexpected_error,
250: p_token1 => g_sqlcode_token,
251: p_token1_value => sqlcode,
252: p_token2 => g_sqlerrm_token,
284: OPEN c_asset_no;
285: FETCH c_asset_no INTO x_asset_number;
286: IF (c_asset_no%NOTFOUND) THEN
287: x_return_status := OKC_API.G_RET_STS_ERROR;
288: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
289: p_msg_name => g_unexpected_error,
290: p_token1 => g_sqlcode_token,
291: p_token1_value => sqlcode,
292: p_token2 => g_sqlerrm_token,
313: IF c_okx_assets_v%ISOPEN THEN
314: CLOSE c_okx_assets_v;
315: END IF;
316: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
317: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
318: p_msg_name => g_unexpected_error,
319: p_token1 => g_sqlcode_token,
320: p_token1_value => sqlcode,
321: p_token2 => g_sqlerrm_token,
322: p_token2_value => sqlerrm);
323: RETURN x_return_status;
324: END generate_asset_number;
325: ----------------------------------------------------------------------------------------------------------
326: FUNCTION get_sts_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
327: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
328: x_sts_code OUT NOCOPY OKC_K_HEADERS_B.STS_CODE%TYPE)
329: RETURN VARCHAR2 IS
330: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
323: RETURN x_return_status;
324: END generate_asset_number;
325: ----------------------------------------------------------------------------------------------------------
326: FUNCTION get_sts_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
327: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
328: x_sts_code OUT NOCOPY OKC_K_HEADERS_B.STS_CODE%TYPE)
329: RETURN VARCHAR2 IS
330: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
331: CURSOR c_get_tls_sts_code(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
326: FUNCTION get_sts_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
327: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
328: x_sts_code OUT NOCOPY OKC_K_HEADERS_B.STS_CODE%TYPE)
329: RETURN VARCHAR2 IS
330: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
331: CURSOR c_get_tls_sts_code(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
332: SELECT chrv.sts_code
333: FROM OKC_K_HEADERS_V chrv
334: WHERE chrv.id = p_dnz_chr_id;
339: WHERE cle.id = p_cle_id;
340: BEGIN
341: -- Both p_dnz_chr_id and p_cle_id are not to be given
342: IF (p_dnz_chr_id IS NOT NULL OR
343: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
344: (p_cle_id IS NOT NULL OR
345: p_cle_id <> OKL_API.G_MISS_NUM) THEN
346: -- store SQL error message on message stack
347: -- Notify Error
341: -- Both p_dnz_chr_id and p_cle_id are not to be given
342: IF (p_dnz_chr_id IS NOT NULL OR
343: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
344: (p_cle_id IS NOT NULL OR
345: p_cle_id <> OKL_API.G_MISS_NUM) THEN
346: -- store SQL error message on message stack
347: -- Notify Error
348: OKL_API.set_message(p_app_name => G_APP_NAME,
349: p_msg_name => G_REQUIRED_VALUE,
344: (p_cle_id IS NOT NULL OR
345: p_cle_id <> OKL_API.G_MISS_NUM) THEN
346: -- store SQL error message on message stack
347: -- Notify Error
348: OKL_API.set_message(p_app_name => G_APP_NAME,
349: p_msg_name => G_REQUIRED_VALUE,
350: p_token1 => G_COL_NAME_TOKEN,
351: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID and CLE_ID');
352: RAISE G_EXCEPTION_STOP_VALIDATION;
352: RAISE G_EXCEPTION_STOP_VALIDATION;
353: END IF;
354: -- Getting the TOP Line STS CODE
355: IF (p_dnz_chr_id IS NOT NULL OR
356: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
357: OPEN c_get_tls_sts_code(p_dnz_chr_id);
358: FETCH c_get_tls_sts_code INTO x_sts_code;
359: IF c_get_tls_sts_code%NOTFOUND THEN
360: -- store SQL error message on message stack
357: OPEN c_get_tls_sts_code(p_dnz_chr_id);
358: FETCH c_get_tls_sts_code INTO x_sts_code;
359: IF c_get_tls_sts_code%NOTFOUND THEN
360: -- store SQL error message on message stack
361: OKL_API.set_message(p_app_name => G_APP_NAME,
362: p_msg_name => G_NO_MATCHING_RECORD,
363: p_token1 => G_COL_NAME_TOKEN,
364: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
365: RAISE G_EXCEPTION_HALT_VALIDATION;
365: RAISE G_EXCEPTION_HALT_VALIDATION;
366: END IF;
367: CLOSE c_get_tls_sts_code;
368: IF (x_sts_code IS NULL OR
369: x_sts_code = OKL_API.G_MISS_CHAR) THEN
370: OKL_API.set_message(p_app_name => G_APP_NAME,
371: p_msg_name => G_REQUIRED_VALUE,
372: p_token1 => G_COL_NAME_TOKEN,
373: p_token1_value => 'sts_code');
366: END IF;
367: CLOSE c_get_tls_sts_code;
368: IF (x_sts_code IS NULL OR
369: x_sts_code = OKL_API.G_MISS_CHAR) THEN
370: OKL_API.set_message(p_app_name => G_APP_NAME,
371: p_msg_name => G_REQUIRED_VALUE,
372: p_token1 => G_COL_NAME_TOKEN,
373: p_token1_value => 'sts_code');
374: RAISE G_EXCEPTION_STOP_VALIDATION;
375: END IF;
376: END IF;
377: -- Getting the SUB Line STS CODE
378: IF (p_cle_id IS NOT NULL OR
379: p_cle_id <> OKL_API.G_MISS_NUM) THEN
380: OPEN c_get_sls_sts_code(p_cle_id);
381: FETCH c_get_sls_sts_code INTO x_sts_code;
382: IF c_get_sls_sts_code%NOTFOUND THEN
383: -- store SQL error message on message stack
380: OPEN c_get_sls_sts_code(p_cle_id);
381: FETCH c_get_sls_sts_code INTO x_sts_code;
382: IF c_get_sls_sts_code%NOTFOUND THEN
383: -- store SQL error message on message stack
384: OKL_API.set_message(p_app_name => G_APP_NAME,
385: p_msg_name => G_NO_MATCHING_RECORD,
386: p_token1 => G_COL_NAME_TOKEN,
387: p_token1_value => 'OKC_K_HEADERS_V.STS_CODE');
388: RAISE G_EXCEPTION_HALT_VALIDATION;
388: RAISE G_EXCEPTION_HALT_VALIDATION;
389: END IF;
390: CLOSE c_get_sls_sts_code;
391: IF (x_sts_code IS NULL OR
392: x_sts_code = OKL_API.G_MISS_CHAR) THEN
393: OKL_API.set_message(p_app_name => G_APP_NAME,
394: p_msg_name => G_REQUIRED_VALUE,
395: p_token1 => G_COL_NAME_TOKEN,
396: p_token1_value => 'sts_code');
389: END IF;
390: CLOSE c_get_sls_sts_code;
391: IF (x_sts_code IS NULL OR
392: x_sts_code = OKL_API.G_MISS_CHAR) THEN
393: OKL_API.set_message(p_app_name => G_APP_NAME,
394: p_msg_name => G_REQUIRED_VALUE,
395: p_token1 => G_COL_NAME_TOKEN,
396: p_token1_value => 'sts_code');
397: RAISE G_EXCEPTION_STOP_VALIDATION;
400: RETURN x_return_status;
401: EXCEPTION
402: WHEN G_EXCEPTION_STOP_VALIDATION then
403: -- We are here since the field is required
404: x_return_status := OKL_API.G_RET_STS_ERROR;
405: WHEN G_EXCEPTION_HALT_VALIDATION then
406: -- We are here b'cause we have no parent record
407: -- If the cursor is open then it has to be closed
408: IF c_get_tls_sts_code%ISOPEN THEN
412: IF c_get_sls_sts_code%ISOPEN THEN
413: CLOSE c_get_sls_sts_code;
414: END IF;
415: -- notify caller of an error
416: x_return_status := OKL_API.G_RET_STS_ERROR;
417: WHEN OTHERS THEN
418: -- store SQL error message on message stack for caller
419: OKL_API.set_message(G_APP_NAME,
420: G_UNEXPECTED_ERROR,
415: -- notify caller of an error
416: x_return_status := OKL_API.G_RET_STS_ERROR;
417: WHEN OTHERS THEN
418: -- store SQL error message on message stack for caller
419: OKL_API.set_message(G_APP_NAME,
420: G_UNEXPECTED_ERROR,
421: G_SQLCODE_TOKEN,
422: SQLCODE,
423: G_SQLERRM_TOKEN,
422: SQLCODE,
423: G_SQLERRM_TOKEN,
424: SQLERRM);
425: -- notify caller of an UNEXPECTED error
426: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
427: -- if the cursor is open
428: IF c_get_tls_sts_code%ISOPEN THEN
429: CLOSE c_get_tls_sts_code;
430: END IF;
434: END IF;
435: RETURN(x_return_status);
436: END get_sts_code;
437: ----------------------------------------------------------------------------------------------------------------
438: FUNCTION get_end_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
439: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
440: x_end_date OUT NOCOPY OKC_K_HEADERS_B.END_DATE%TYPE)
441: RETURN VARCHAR2 IS
442: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
435: RETURN(x_return_status);
436: END get_sts_code;
437: ----------------------------------------------------------------------------------------------------------------
438: FUNCTION get_end_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
439: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
440: x_end_date OUT NOCOPY OKC_K_HEADERS_B.END_DATE%TYPE)
441: RETURN VARCHAR2 IS
442: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
443: CURSOR c_get_tls_end_date(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
438: FUNCTION get_end_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
439: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
440: x_end_date OUT NOCOPY OKC_K_HEADERS_B.END_DATE%TYPE)
441: RETURN VARCHAR2 IS
442: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
443: CURSOR c_get_tls_end_date(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
444: SELECT chrv.end_Date
445: FROM OKC_K_HEADERS_V chrv
446: WHERE chrv.id = p_dnz_chr_id;
451: WHERE cle.id = p_cle_id;
452: BEGIN
453: -- Both p_dnz_chr_id and p_cle_id are not to be given
454: IF (p_dnz_chr_id IS NOT NULL OR
455: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
456: (p_cle_id IS NOT NULL OR
457: p_cle_id <> OKL_API.G_MISS_NUM) THEN
458: -- store SQL error message on message stack
459: -- Notify Error
453: -- Both p_dnz_chr_id and p_cle_id are not to be given
454: IF (p_dnz_chr_id IS NOT NULL OR
455: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
456: (p_cle_id IS NOT NULL OR
457: p_cle_id <> OKL_API.G_MISS_NUM) THEN
458: -- store SQL error message on message stack
459: -- Notify Error
460: OKL_API.set_message(p_app_name => G_APP_NAME,
461: p_msg_name => G_REQUIRED_VALUE,
456: (p_cle_id IS NOT NULL OR
457: p_cle_id <> OKL_API.G_MISS_NUM) THEN
458: -- store SQL error message on message stack
459: -- Notify Error
460: OKL_API.set_message(p_app_name => G_APP_NAME,
461: p_msg_name => G_REQUIRED_VALUE,
462: p_token1 => G_COL_NAME_TOKEN,
463: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID and CLE_ID');
464: RAISE G_EXCEPTION_STOP_VALIDATION;
464: RAISE G_EXCEPTION_STOP_VALIDATION;
465: END IF;
466: -- Getting the TOP Line STS CODE
467: IF (p_dnz_chr_id IS NOT NULL OR
468: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
469: OPEN c_get_tls_end_date(p_dnz_chr_id);
470: FETCH c_get_tls_end_date INTO x_end_date;
471: IF c_get_tls_end_date%NOTFOUND THEN
472: -- store SQL error message on message stack
469: OPEN c_get_tls_end_date(p_dnz_chr_id);
470: FETCH c_get_tls_end_date INTO x_end_date;
471: IF c_get_tls_end_date%NOTFOUND THEN
472: -- store SQL error message on message stack
473: OKL_API.set_message(p_app_name => G_APP_NAME,
474: p_msg_name => G_NO_MATCHING_RECORD,
475: p_token1 => G_COL_NAME_TOKEN,
476: p_token1_value => 'OKC_K_HEADERS_V.END_DATE');
477: RAISE G_EXCEPTION_HALT_VALIDATION;
479: CLOSE c_get_tls_end_date;
480: END IF;
481: -- Getting the SUB Line STS CODE
482: IF (p_cle_id IS NOT NULL OR
483: p_cle_id <> OKL_API.G_MISS_NUM) THEN
484: OPEN c_get_sls_end_date(p_cle_id);
485: FETCH c_get_sls_end_date INTO x_end_date;
486: IF c_get_sls_end_date%NOTFOUND THEN
487: -- store SQL error message on message stack
484: OPEN c_get_sls_end_date(p_cle_id);
485: FETCH c_get_sls_end_date INTO x_end_date;
486: IF c_get_sls_end_date%NOTFOUND THEN
487: -- store SQL error message on message stack
488: OKL_API.set_message(p_app_name => G_APP_NAME,
489: p_msg_name => G_NO_MATCHING_RECORD,
490: p_token1 => G_COL_NAME_TOKEN,
491: p_token1_value => 'OKC_K_HEADERS_V.END_DATE');
492: RAISE G_EXCEPTION_HALT_VALIDATION;
496: RETURN x_return_status;
497: EXCEPTION
498: WHEN G_EXCEPTION_STOP_VALIDATION then
499: -- We are here since the field is required
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501: WHEN G_EXCEPTION_HALT_VALIDATION then
502: -- We are here b'cause we have no parent record
503: -- If the cursor is open then it has to be closed
504: IF c_get_tls_end_date%ISOPEN THEN
508: IF c_get_sls_end_date%ISOPEN THEN
509: CLOSE c_get_sls_end_date;
510: END IF;
511: -- notify caller of an error
512: x_return_status := OKL_API.G_RET_STS_ERROR;
513: WHEN OTHERS THEN
514: -- store SQL error message on message stack for caller
515: OKL_API.set_message(G_APP_NAME,
516: G_UNEXPECTED_ERROR,
511: -- notify caller of an error
512: x_return_status := OKL_API.G_RET_STS_ERROR;
513: WHEN OTHERS THEN
514: -- store SQL error message on message stack for caller
515: OKL_API.set_message(G_APP_NAME,
516: G_UNEXPECTED_ERROR,
517: G_SQLCODE_TOKEN,
518: SQLCODE,
519: G_SQLERRM_TOKEN,
518: SQLCODE,
519: G_SQLERRM_TOKEN,
520: SQLERRM);
521: -- notify caller of an UNEXPECTED error
522: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
523: -- if the cursor is open
524: IF c_get_tls_end_date%ISOPEN THEN
525: CLOSE c_get_tls_end_date;
526: END IF;
530: END IF;
531: RETURN(x_return_status);
532: END get_end_date;
533: ----------------------------------------------------------------------------------------------------------------
534: FUNCTION get_start_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
535: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
536: x_start_date OUT NOCOPY OKC_K_HEADERS_B.START_DATE%TYPE)
537: RETURN VARCHAR2 IS
538: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
531: RETURN(x_return_status);
532: END get_end_date;
533: ----------------------------------------------------------------------------------------------------------------
534: FUNCTION get_start_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
535: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
536: x_start_date OUT NOCOPY OKC_K_HEADERS_B.START_DATE%TYPE)
537: RETURN VARCHAR2 IS
538: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
539: lv_orig_sys_source_code OKC_K_HEADERS_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
534: FUNCTION get_start_date(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
535: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
536: x_start_date OUT NOCOPY OKC_K_HEADERS_B.START_DATE%TYPE)
537: RETURN VARCHAR2 IS
538: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
539: lv_orig_sys_source_code OKC_K_HEADERS_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
540: ln_orig_system_id1 OKC_K_HEADERS_B.ORIG_SYSTEM_ID1%TYPE;
541: ld_start_date OKC_K_LINES_B.START_DATE%TYPE;
542: CURSOR c_get_tls_start_date(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
562: --
563: BEGIN
564: -- Both p_dnz_chr_id and p_cle_id are not to be given
565: IF (p_dnz_chr_id IS NOT NULL OR
566: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
567: (p_cle_id IS NOT NULL OR
568: p_cle_id <> OKL_API.G_MISS_NUM) THEN
569: -- store SQL error message on message stack
570: -- Notify Error
564: -- Both p_dnz_chr_id and p_cle_id are not to be given
565: IF (p_dnz_chr_id IS NOT NULL OR
566: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
567: (p_cle_id IS NOT NULL OR
568: p_cle_id <> OKL_API.G_MISS_NUM) THEN
569: -- store SQL error message on message stack
570: -- Notify Error
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_REQUIRED_VALUE,
567: (p_cle_id IS NOT NULL OR
568: p_cle_id <> OKL_API.G_MISS_NUM) THEN
569: -- store SQL error message on message stack
570: -- Notify Error
571: OKL_API.set_message(p_app_name => G_APP_NAME,
572: p_msg_name => G_REQUIRED_VALUE,
573: p_token1 => G_COL_NAME_TOKEN,
574: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID and CLE_ID');
575: RAISE G_EXCEPTION_STOP_VALIDATION;
575: RAISE G_EXCEPTION_STOP_VALIDATION;
576: END IF;
577: -- Getting the TOP Line STS CODE
578: IF (p_dnz_chr_id IS NOT NULL OR
579: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
580: OPEN c_get_tls_start_date(p_dnz_chr_id);
581: FETCH c_get_tls_start_date INTO x_start_date,
582: lv_orig_sys_source_code,
583: ln_orig_system_id1;
582: lv_orig_sys_source_code,
583: ln_orig_system_id1;
584: IF c_get_tls_start_date%NOTFOUND THEN
585: -- store SQL error message on message stack
586: OKL_API.set_message(p_app_name => G_APP_NAME,
587: p_msg_name => G_NO_MATCHING_RECORD,
588: p_token1 => G_COL_NAME_TOKEN,
589: p_token1_value => 'OKC_K_HEADERS_V.START_DATE');
590: RAISE G_EXCEPTION_HALT_VALIDATION;
598: END IF;
599: END IF;
600: -- Getting the SUB Line STS CODE
601: IF (p_cle_id IS NOT NULL OR
602: p_cle_id <> OKL_API.G_MISS_NUM) THEN
603: OPEN c_get_sls_start_date(p_cle_id);
604: FETCH c_get_sls_start_date INTO x_start_date;
605: IF c_get_sls_start_date%NOTFOUND THEN
606: -- store SQL error message on message stack
603: OPEN c_get_sls_start_date(p_cle_id);
604: FETCH c_get_sls_start_date INTO x_start_date;
605: IF c_get_sls_start_date%NOTFOUND THEN
606: -- store SQL error message on message stack
607: OKL_API.set_message(p_app_name => G_APP_NAME,
608: p_msg_name => G_NO_MATCHING_RECORD,
609: p_token1 => G_COL_NAME_TOKEN,
610: p_token1_value => 'OKC_K_HEADERS_V.START_DATE');
611: RAISE G_EXCEPTION_HALT_VALIDATION;
615: RETURN x_return_status;
616: EXCEPTION
617: WHEN G_EXCEPTION_STOP_VALIDATION then
618: -- We are here since the field is required
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: WHEN G_EXCEPTION_HALT_VALIDATION then
621: -- We are here b'cause we have no parent record
622: -- If the cursor is open then it has to be closed
623: IF c_get_tls_start_date%ISOPEN THEN
627: IF c_get_sls_start_date%ISOPEN THEN
628: CLOSE c_get_sls_start_date;
629: END IF;
630: -- notify caller of an error
631: x_return_status := OKL_API.G_RET_STS_ERROR;
632: WHEN OTHERS THEN
633: -- store SQL error message on message stack for caller
634: OKL_API.set_message(G_APP_NAME,
635: G_UNEXPECTED_ERROR,
630: -- notify caller of an error
631: x_return_status := OKL_API.G_RET_STS_ERROR;
632: WHEN OTHERS THEN
633: -- store SQL error message on message stack for caller
634: OKL_API.set_message(G_APP_NAME,
635: G_UNEXPECTED_ERROR,
636: G_SQLCODE_TOKEN,
637: SQLCODE,
638: G_SQLERRM_TOKEN,
637: SQLCODE,
638: G_SQLERRM_TOKEN,
639: SQLERRM);
640: -- notify caller of an UNEXPECTED error
641: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
642: -- if the cursor is open
643: IF c_get_tls_start_date%ISOPEN THEN
644: CLOSE c_get_tls_start_date;
645: END IF;
649: END IF;
650: RETURN(x_return_status);
651: END get_start_date;
652: ----------------------------------------------------------------------------------------------------------------
653: FUNCTION get_currency_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
654: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
655: x_currency_code OUT NOCOPY OKC_K_HEADERS_B.CURRENCY_CODE%TYPE)
656: RETURN VARCHAR2 IS
657: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
650: RETURN(x_return_status);
651: END get_start_date;
652: ----------------------------------------------------------------------------------------------------------------
653: FUNCTION get_currency_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
654: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
655: x_currency_code OUT NOCOPY OKC_K_HEADERS_B.CURRENCY_CODE%TYPE)
656: RETURN VARCHAR2 IS
657: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
658: CURSOR c_get_tls_currency_code(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
653: FUNCTION get_currency_code(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
654: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
655: x_currency_code OUT NOCOPY OKC_K_HEADERS_B.CURRENCY_CODE%TYPE)
656: RETURN VARCHAR2 IS
657: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
658: CURSOR c_get_tls_currency_code(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
659: SELECT chrv.currency_code
660: FROM OKC_K_HEADERS_V chrv
661: WHERE chrv.id = p_dnz_chr_id;
666: WHERE cle.id = p_cle_id;
667: BEGIN
668: -- Both p_dnz_chr_id and p_cle_id are not to be given
669: IF (p_dnz_chr_id IS NOT NULL OR
670: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
671: (p_cle_id IS NOT NULL OR
672: p_cle_id <> OKL_API.G_MISS_NUM) THEN
673: -- store SQL error message on message stack
674: -- Notify Error
668: -- Both p_dnz_chr_id and p_cle_id are not to be given
669: IF (p_dnz_chr_id IS NOT NULL OR
670: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
671: (p_cle_id IS NOT NULL OR
672: p_cle_id <> OKL_API.G_MISS_NUM) THEN
673: -- store SQL error message on message stack
674: -- Notify Error
675: OKL_API.set_message(p_app_name => G_APP_NAME,
676: p_msg_name => G_REQUIRED_VALUE,
671: (p_cle_id IS NOT NULL OR
672: p_cle_id <> OKL_API.G_MISS_NUM) THEN
673: -- store SQL error message on message stack
674: -- Notify Error
675: OKL_API.set_message(p_app_name => G_APP_NAME,
676: p_msg_name => G_REQUIRED_VALUE,
677: p_token1 => G_COL_NAME_TOKEN,
678: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID and CLE_ID');
679: RAISE G_EXCEPTION_STOP_VALIDATION;
679: RAISE G_EXCEPTION_STOP_VALIDATION;
680: END IF;
681: -- Getting the TOP Line STS CODE
682: IF (p_dnz_chr_id IS NOT NULL OR
683: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
684: OPEN c_get_tls_currency_code(p_dnz_chr_id);
685: FETCH c_get_tls_currency_code INTO x_currency_code;
686: IF c_get_tls_currency_code%NOTFOUND THEN
687: -- store SQL error message on message stack
684: OPEN c_get_tls_currency_code(p_dnz_chr_id);
685: FETCH c_get_tls_currency_code INTO x_currency_code;
686: IF c_get_tls_currency_code%NOTFOUND THEN
687: -- store SQL error message on message stack
688: OKL_API.set_message(p_app_name => G_APP_NAME,
689: p_msg_name => G_NO_MATCHING_RECORD,
690: p_token1 => G_COL_NAME_TOKEN,
691: p_token1_value => 'OKC_K_HEADERS_V.CURRENCY_CODE');
692: RAISE G_EXCEPTION_HALT_VALIDATION;
694: CLOSE c_get_tls_currency_code;
695: END IF;
696: -- Getting the SUB Line STS CODE
697: IF (p_cle_id IS NOT NULL OR
698: p_cle_id <> OKL_API.G_MISS_NUM) THEN
699: OPEN c_get_sls_currency_code(p_cle_id);
700: FETCH c_get_sls_currency_code INTO x_currency_code;
701: IF c_get_sls_currency_code%NOTFOUND THEN
702: -- store SQL error message on message stack
699: OPEN c_get_sls_currency_code(p_cle_id);
700: FETCH c_get_sls_currency_code INTO x_currency_code;
701: IF c_get_sls_currency_code%NOTFOUND THEN
702: -- store SQL error message on message stack
703: OKL_API.set_message(p_app_name => G_APP_NAME,
704: p_msg_name => G_NO_MATCHING_RECORD,
705: p_token1 => G_COL_NAME_TOKEN,
706: p_token1_value => 'OKC_K_HEADERS_V.CURRENCY_CODE');
707: RAISE G_EXCEPTION_HALT_VALIDATION;
711: RETURN x_return_status;
712: EXCEPTION
713: WHEN G_EXCEPTION_STOP_VALIDATION then
714: -- We are here since the field is required
715: x_return_status := OKL_API.G_RET_STS_ERROR;
716: WHEN G_EXCEPTION_HALT_VALIDATION then
717: -- We are here b'cause we have no parent record
718: -- If the cursor is open then it has to be closed
719: IF c_get_tls_currency_code%ISOPEN THEN
723: IF c_get_sls_currency_code%ISOPEN THEN
724: CLOSE c_get_sls_currency_code;
725: END IF;
726: -- notify caller of an error
727: x_return_status := OKL_API.G_RET_STS_ERROR;
728: WHEN OTHERS THEN
729: -- store SQL error message on message stack for caller
730: OKL_API.set_message(G_APP_NAME,
731: G_UNEXPECTED_ERROR,
726: -- notify caller of an error
727: x_return_status := OKL_API.G_RET_STS_ERROR;
728: WHEN OTHERS THEN
729: -- store SQL error message on message stack for caller
730: OKL_API.set_message(G_APP_NAME,
731: G_UNEXPECTED_ERROR,
732: G_SQLCODE_TOKEN,
733: SQLCODE,
734: G_SQLERRM_TOKEN,
733: SQLCODE,
734: G_SQLERRM_TOKEN,
735: SQLERRM);
736: -- notify caller of an UNEXPECTED error
737: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
738: -- if the cursor is open
739: IF c_get_tls_currency_code%ISOPEN THEN
740: CLOSE c_get_tls_currency_code;
741: END IF;
754: -- Parameters :
755: -- Version :
756: -- End of Commnets
757:
758: FUNCTION default_contract_line_values(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
759: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
760: p_clev_rec IN OUT NOCOPY clev_rec_type)
761: RETURN VARCHAR2 IS
762: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
755: -- Version :
756: -- End of Commnets
757:
758: FUNCTION default_contract_line_values(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
759: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
760: p_clev_rec IN OUT NOCOPY clev_rec_type)
761: RETURN VARCHAR2 IS
762: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
763: lv_orig_sys_source_code OKC_K_HEADERS_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
758: FUNCTION default_contract_line_values(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
759: p_cle_id IN OKC_K_LINES_B.CLE_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
760: p_clev_rec IN OUT NOCOPY clev_rec_type)
761: RETURN VARCHAR2 IS
762: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
763: lv_orig_sys_source_code OKC_K_HEADERS_B.ORIG_SYSTEM_SOURCE_CODE%TYPE;
764: ln_orig_system_id1 OKC_K_HEADERS_B.ORIG_SYSTEM_ID1%TYPE;
765: ld_start_date OKC_K_LINES_B.START_DATE%TYPE;
766: ld_end_date OKC_K_LINES_B.END_DATE%TYPE;
796: --
797: BEGIN
798: -- Both p_dnz_chr_id and p_cle_id are not to be given
799: IF (p_dnz_chr_id IS NOT NULL OR
800: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
801: (p_cle_id IS NOT NULL OR
802: p_cle_id <> OKL_API.G_MISS_NUM) THEN
803: -- store SQL error message on message stack
804: -- Notify Error
798: -- Both p_dnz_chr_id and p_cle_id are not to be given
799: IF (p_dnz_chr_id IS NOT NULL OR
800: p_dnz_chr_id <> OKL_API.G_MISS_NUM) AND
801: (p_cle_id IS NOT NULL OR
802: p_cle_id <> OKL_API.G_MISS_NUM) THEN
803: -- store SQL error message on message stack
804: -- Notify Error
805: OKL_API.set_message(p_app_name => G_APP_NAME,
806: p_msg_name => G_REQUIRED_VALUE,
801: (p_cle_id IS NOT NULL OR
802: p_cle_id <> OKL_API.G_MISS_NUM) THEN
803: -- store SQL error message on message stack
804: -- Notify Error
805: OKL_API.set_message(p_app_name => G_APP_NAME,
806: p_msg_name => G_REQUIRED_VALUE,
807: p_token1 => G_COL_NAME_TOKEN,
808: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID and CLE_ID');
809: RAISE G_EXCEPTION_STOP_VALIDATION;
809: RAISE G_EXCEPTION_STOP_VALIDATION;
810: END IF;
811: -- Getting the TOP Line STS CODE
812: IF (p_dnz_chr_id IS NOT NULL OR
813: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
814: OPEN c_get_contract_header_details(p_dnz_chr_id);
815: FETCH c_get_contract_header_details
816: INTO lv_sts_code,
817: ld_end_date,
820: lv_orig_sys_source_code,
821: ln_orig_system_id1;
822: IF c_get_contract_header_details%NOTFOUND THEN
823: -- store SQL error message on message stack
824: OKL_API.set_message(p_app_name => G_APP_NAME,
825: p_msg_name => G_NO_MATCHING_RECORD,
826: p_token1 => G_COL_NAME_TOKEN,
827: p_token1_value => 'OKC_K_HEADERS_V.START_DATE');
828: RAISE G_EXCEPTION_HALT_VALIDATION;
836: END IF;
837: END IF;
838: -- Getting the SUB Line STS CODE
839: IF (p_cle_id IS NOT NULL OR
840: p_cle_id <> OKL_API.G_MISS_NUM) THEN
841: OPEN c_get_contract_line_details(p_cle_id);
842: FETCH c_get_contract_line_details
843: INTO lv_sts_code,
844: ld_end_date,
845: lv_currency_code,
846: ld_start_date;
847: IF c_get_contract_line_details%NOTFOUND THEN
848: -- store SQL error message on message stack
849: OKL_API.set_message(p_app_name => G_APP_NAME,
850: p_msg_name => G_NO_MATCHING_RECORD,
851: p_token1 => G_COL_NAME_TOKEN,
852: p_token1_value => 'OKC_K_HEADERS_V.START_DATE');
853: RAISE G_EXCEPTION_HALT_VALIDATION;
854: END IF;
855: CLOSE c_get_contract_line_details;
856: END IF;
857: IF (p_clev_rec.sts_code IS NULL OR
858: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
859: p_clev_rec.sts_code := lv_sts_code;
860: END IF;
861: IF (p_clev_rec.end_date IS NULL OR
862: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
858: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
859: p_clev_rec.sts_code := lv_sts_code;
860: END IF;
861: IF (p_clev_rec.end_date IS NULL OR
862: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
863: p_clev_rec.end_date := ld_end_date;
864: END IF;
865: IF (p_clev_rec.start_date IS NULL OR
866: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
862: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
863: p_clev_rec.end_date := ld_end_date;
864: END IF;
865: IF (p_clev_rec.start_date IS NULL OR
866: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
867: p_clev_rec.start_date := ld_start_date;
868: END IF;
869: IF (p_clev_rec.currency_code IS NULL OR
870: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
866: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
867: p_clev_rec.start_date := ld_start_date;
868: END IF;
869: IF (p_clev_rec.currency_code IS NULL OR
870: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
871: p_clev_rec.currency_code := lv_currency_code;
872: END IF;
873: RETURN x_return_status;
874: EXCEPTION
873: RETURN x_return_status;
874: EXCEPTION
875: WHEN G_EXCEPTION_STOP_VALIDATION then
876: -- We are here since the field is required
877: x_return_status := OKL_API.G_RET_STS_ERROR;
878: WHEN G_EXCEPTION_HALT_VALIDATION then
879: -- We are here b'cause we have no parent record
880: -- If the cursor is open then it has to be closed
881: IF c_get_contract_header_details%ISOPEN THEN
885: IF c_get_contract_line_details%ISOPEN THEN
886: CLOSE c_get_contract_line_details;
887: END IF;
888: -- notify caller of an error
889: x_return_status := OKL_API.G_RET_STS_ERROR;
890: WHEN OTHERS THEN
891: -- store SQL error message on message stack for caller
892: OKL_API.set_message(G_APP_NAME,
893: G_UNEXPECTED_ERROR,
888: -- notify caller of an error
889: x_return_status := OKL_API.G_RET_STS_ERROR;
890: WHEN OTHERS THEN
891: -- store SQL error message on message stack for caller
892: OKL_API.set_message(G_APP_NAME,
893: G_UNEXPECTED_ERROR,
894: G_SQLCODE_TOKEN,
895: SQLCODE,
896: G_SQLERRM_TOKEN,
895: SQLCODE,
896: G_SQLERRM_TOKEN,
897: SQLERRM);
898: -- notify caller of an UNEXPECTED error
899: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
900: -- if the cursor is open
901: IF c_get_contract_header_details%ISOPEN THEN
902: CLOSE c_get_contract_header_details;
903: END IF;
992: CURRENCY_CONVERSION_DATE
993: FROM Okl_Txl_Assets_V
994: WHERE okl_txl_assets_v.kle_id = p_kle_id;
995: l_okl_talv_pk okl_talv_pk_csr%ROWTYPE;
996: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
997: BEGIN
998: OPEN okl_talv_pk_csr (p_txlv_id);
999: FETCH okl_talv_pk_csr INTO
1000: x_txlv_rec.ID,
1075: x_txlv_rec.CURRENCY_CONVERSION_TYPE,
1076: x_txlv_rec.CURRENCY_CONVERSION_RATE,
1077: x_txlv_rec.CURRENCY_CONVERSION_DATE;
1078: IF okl_talv_pk_csr%NOTFOUND THEN
1079: x_return_status := OKL_API.G_RET_STS_ERROR;
1080: END IF;
1081: CLOSE okl_talv_pk_csr;
1082: RETURN(x_return_status);
1083: EXCEPTION
1082: RETURN(x_return_status);
1083: EXCEPTION
1084: WHEN OTHERS THEN
1085: -- store SQL error message on message stack for caller
1086: OKL_API.set_message(G_APP_NAME,
1087: G_UNEXPECTED_ERROR,
1088: G_SQLCODE_TOKEN,
1089: SQLCODE,
1090: G_SQLERRM_TOKEN,
1089: SQLCODE,
1090: G_SQLERRM_TOKEN,
1091: SQLERRM);
1092: -- notify caller of an UNEXPECTED error
1093: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1094: -- if the cursor is open
1095: IF okl_talv_pk_csr%ISOPEN THEN
1096: CLOSE okl_talv_pk_csr;
1097: END IF;
1112: x_to_update OUT NOCOPY VARCHAR2,
1113: x_txdv_tbl OUT NOCOPY txdv_tbl_type)
1114: RETURN VARCHAR2
1115: IS
1116: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1117: i NUMBER := 0;
1118: lv_to_update VARCHAR2(3) := 'N';
1119: CURSOR c_okl_asdv_pk_csr (p_tal_id IN NUMBER) IS
1120: SELECT id,
1204: x_txdv_tbl(i).SPLIT_PERCENT := r_okl_asdv_pk_csr.split_percent;
1205: x_txdv_tbl(i).INVENTORY_ITEM_ID := r_okl_asdv_pk_csr.inventory_item_id;
1206: i := i + 1;
1207: -- IF c_okl_asdv_pk_csr%NOTFOUND THEN
1208: -- x_return_status := OKL_API.G_RET_STS_ERROR;
1209: -- EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1210: -- END IF;
1211: END LOOP;
1212: x_to_update := lv_to_update;
1205: x_txdv_tbl(i).INVENTORY_ITEM_ID := r_okl_asdv_pk_csr.inventory_item_id;
1206: i := i + 1;
1207: -- IF c_okl_asdv_pk_csr%NOTFOUND THEN
1208: -- x_return_status := OKL_API.G_RET_STS_ERROR;
1209: -- EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1210: -- END IF;
1211: END LOOP;
1212: x_to_update := lv_to_update;
1213: RETURN(x_return_status);
1213: RETURN(x_return_status);
1214: EXCEPTION
1215: WHEN OTHERS THEN
1216: -- store SQL error message on message stack for caller
1217: OKL_API.set_message(
1218: G_APP_NAME,
1219: G_UNEXPECTED_ERROR,
1220: G_SQLCODE_TOKEN,
1221: SQLCODE,
1224: IF c_okl_asdv_pk_csr%ISOPEN THEN
1225: CLOSE c_okl_asdv_pk_csr;
1226: END IF;
1227: -- notify caller of an UNEXPECTED error
1228: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1229: return(x_return_status);
1230: END get_txdv_tbl;
1231: -----------------------------------------------------------------------------------------------
1232: FUNCTION get_rec_itiv(p_itiv_id IN OKL_TXL_ITM_INSTS_V.KLE_ID%TYPE,
1276: LAST_UPDATE_LOGIN
1277: FROM OKL_TXL_ITM_INSTS iti
1278: WHERE iti.kle_id = p_kle_id;
1279: l_okl_itiv_pk okl_itiv_pk_csr%ROWTYPE;
1280: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1281: BEGIN
1282: OPEN okl_itiv_pk_csr (p_itiv_id);
1283: FETCH okl_itiv_pk_csr INTO
1284: x_itiv_rec.ID,
1321: x_itiv_rec.LAST_UPDATED_BY,
1322: x_itiv_rec.LAST_UPDATE_DATE,
1323: x_itiv_rec.LAST_UPDATE_LOGIN;
1324: IF okl_itiv_pk_csr%NOTFOUND THEN
1325: x_return_status := OKL_API.G_RET_STS_ERROR;
1326: END IF;
1327: CLOSE okl_itiv_pk_csr;
1328: RETURN(x_return_status);
1329: EXCEPTION
1328: RETURN(x_return_status);
1329: EXCEPTION
1330: WHEN OTHERS THEN
1331: -- store SQL error message on message stack for caller
1332: OKL_API.set_message(G_APP_NAME,
1333: G_UNEXPECTED_ERROR,
1334: G_SQLCODE_TOKEN,
1335: SQLCODE,
1336: G_SQLERRM_TOKEN,
1335: SQLCODE,
1336: G_SQLERRM_TOKEN,
1337: SQLERRM);
1338: -- notify caller of an UNEXPECTED error
1339: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1340: -- if the cursor is open
1341: IF okl_itiv_pk_csr%ISOPEN THEN
1342: CLOSE okl_itiv_pk_csr;
1343: END IF;
1389: LAST_UPDATE_LOGIN
1390: FROM Okc_K_Party_Roles_V cpr
1391: WHERE cpr.id = p_cplv_id;
1392: l_okc_cplv_pk okc_cplv_pk_csr%ROWTYPE;
1393: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1394: BEGIN
1395: OPEN okc_cplv_pk_csr (p_cplv_id);
1396: FETCH okc_cplv_pk_csr INTO
1397: x_cplv_rec.ID,
1433: x_cplv_rec.LAST_UPDATED_BY,
1434: x_cplv_rec.LAST_UPDATE_DATE,
1435: x_cplv_rec.LAST_UPDATE_LOGIN;
1436: IF okc_cplv_pk_csr%NOTFOUND THEN
1437: x_return_status := OKL_API.G_RET_STS_ERROR;
1438: END IF;
1439: CLOSE okc_cplv_pk_csr;
1440: RETURN(x_return_status);
1441: EXCEPTION
1440: RETURN(x_return_status);
1441: EXCEPTION
1442: WHEN OTHERS THEN
1443: -- store SQL error message on message stack for caller
1444: OKL_API.set_message(G_APP_NAME,
1445: G_UNEXPECTED_ERROR,
1446: G_SQLCODE_TOKEN,
1447: SQLCODE,
1448: G_SQLERRM_TOKEN,
1447: SQLCODE,
1448: G_SQLERRM_TOKEN,
1449: SQLERRM);
1450: -- notify caller of an UNEXPECTED error
1451: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1452: -- if the cursor is open
1453: IF okc_cplv_pk_csr%ISOPEN THEN
1454: CLOSE okc_cplv_pk_csr;
1455: END IF;
1507: FROM okc_k_lines_v cle1
1508: WHERE cle1.id = p_cle_id
1509: AND cle1.dnz_chr_id = cim.dnz_chr_id));*/
1510: l_okc_cimv_pk okc_cimv_pk_csr%ROWTYPE;
1511: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1512: BEGIN
1513: OPEN okc_cimv_pk_csr(p_cle_id,
1514: p_dnz_chr_id);
1515: FETCH okc_cimv_pk_csr INTO
1533: x_cimv_rec.LAST_UPDATED_BY,
1534: x_cimv_rec.LAST_UPDATE_DATE,
1535: x_cimv_rec.LAST_UPDATE_LOGIN;
1536: IF okc_cimv_pk_csr%NOTFOUND THEN
1537: x_return_status := OKL_API.G_RET_STS_ERROR;
1538: END IF;
1539: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1540: x_return_status := OKL_API.G_RET_STS_ERROR;
1541: END IF;
1536: IF okc_cimv_pk_csr%NOTFOUND THEN
1537: x_return_status := OKL_API.G_RET_STS_ERROR;
1538: END IF;
1539: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1540: x_return_status := OKL_API.G_RET_STS_ERROR;
1541: END IF;
1542: CLOSE okc_cimv_pk_csr;
1543: RETURN(x_return_status);
1544: EXCEPTION
1543: RETURN(x_return_status);
1544: EXCEPTION
1545: WHEN OTHERS THEN
1546: -- store SQL error message on message stack for caller
1547: OKL_API.set_message(G_APP_NAME,
1548: G_UNEXPECTED_ERROR,
1549: G_SQLCODE_TOKEN,
1550: SQLCODE,
1551: G_SQLERRM_TOKEN,
1550: SQLCODE,
1551: G_SQLERRM_TOKEN,
1552: SQLERRM);
1553: -- notify caller of an UNEXPECTED error
1554: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1555: -- if the cursor is open
1556: IF okc_cimv_pk_csr%ISOPEN THEN
1557: CLOSE okc_cimv_pk_csr;
1558: END IF;
1588: FROM okc_k_items_v cim
1589: WHERE cim.dnz_chr_id = p_dnz_chr_id
1590: AND cim.cle_id = p_cle_id;
1591: l_okc_cimv_pk okc_cimv_pk_csr%ROWTYPE;
1592: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1593: BEGIN
1594: OPEN okc_cimv_pk_csr(p_cle_id,
1595: p_dnz_chr_id);
1596: FETCH okc_cimv_pk_csr INTO
1614: x_cimv_rec.LAST_UPDATED_BY,
1615: x_cimv_rec.LAST_UPDATE_DATE,
1616: x_cimv_rec.LAST_UPDATE_LOGIN;
1617: IF okc_cimv_pk_csr%NOTFOUND THEN
1618: x_return_status := OKL_API.G_RET_STS_ERROR;
1619: END IF;
1620: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1621: x_return_status := OKL_API.G_RET_STS_ERROR;
1622: END IF;
1617: IF okc_cimv_pk_csr%NOTFOUND THEN
1618: x_return_status := OKL_API.G_RET_STS_ERROR;
1619: END IF;
1620: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1621: x_return_status := OKL_API.G_RET_STS_ERROR;
1622: END IF;
1623: CLOSE okc_cimv_pk_csr;
1624: RETURN(x_return_status);
1625: EXCEPTION
1624: RETURN(x_return_status);
1625: EXCEPTION
1626: WHEN OTHERS THEN
1627: -- store SQL error message on message stack for caller
1628: OKL_API.set_message(G_APP_NAME,
1629: G_UNEXPECTED_ERROR,
1630: G_SQLCODE_TOKEN,
1631: SQLCODE,
1632: G_SQLERRM_TOKEN,
1631: SQLCODE,
1632: G_SQLERRM_TOKEN,
1633: SQLERRM);
1634: -- notify caller of an UNEXPECTED error
1635: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1636: -- if the cursor is open
1637: IF okc_cimv_pk_csr%ISOPEN THEN
1638: CLOSE okc_cimv_pk_csr;
1639: END IF;
1666: LAST_UPDATE_LOGIN
1667: FROM okc_k_items_V cim
1668: WHERE cim.id = p_cimv_id;
1669: l_okc_cimv_pk okc_cimv_pk_csr%ROWTYPE;
1670: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1671: BEGIN
1672: OPEN okc_cimv_pk_csr(p_cimv_id);
1673: FETCH okc_cimv_pk_csr INTO
1674: x_cimv_rec.ID,
1691: x_cimv_rec.LAST_UPDATED_BY,
1692: x_cimv_rec.LAST_UPDATE_DATE,
1693: x_cimv_rec.LAST_UPDATE_LOGIN;
1694: IF okc_cimv_pk_csr%NOTFOUND THEN
1695: x_return_status := OKL_API.G_RET_STS_ERROR;
1696: END IF;
1697: CLOSE okc_cimv_pk_csr;
1698: RETURN(x_return_status);
1699: EXCEPTION
1698: RETURN(x_return_status);
1699: EXCEPTION
1700: WHEN OTHERS THEN
1701: -- store SQL error message on message stack for caller
1702: OKL_API.set_message(G_APP_NAME,
1703: G_UNEXPECTED_ERROR,
1704: G_SQLCODE_TOKEN,
1705: SQLCODE,
1706: G_SQLERRM_TOKEN,
1705: SQLCODE,
1706: G_SQLERRM_TOKEN,
1707: SQLERRM);
1708: -- notify caller of an UNEXPECTED error
1709: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1710: -- if the cursor is open
1711: IF okc_cimv_pk_csr%ISOPEN THEN
1712: CLOSE okc_cimv_pk_csr;
1713: END IF;
1717: FUNCTION get_party_site_id(p_object_id1_new IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
1718: x_object_id1_new OUT NOCOPY OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
1719: x_object_id2_new OUT NOCOPY OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE)
1720: RETURN VARCHAR2 IS
1721: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1722:
1723: CURSOR c_get_id1_id2(p_id1 OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE) IS
1724: SELECT id1
1725: ,id2
1729: AND site_use_type = 'INSTALL_AT';
1730:
1731: BEGIN
1732: IF (p_object_id1_new IS NULL OR
1733: p_object_id1_new = OKL_API.G_MISS_NUM) THEN
1734: OKL_API.set_message(p_app_name => G_APP_NAME,
1735: p_msg_name => G_REQUIRED_VALUE,
1736: p_token1 => G_COL_NAME_TOKEN,
1737: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1');
1730:
1731: BEGIN
1732: IF (p_object_id1_new IS NULL OR
1733: p_object_id1_new = OKL_API.G_MISS_NUM) THEN
1734: OKL_API.set_message(p_app_name => G_APP_NAME,
1735: p_msg_name => G_REQUIRED_VALUE,
1736: p_token1 => G_COL_NAME_TOKEN,
1737: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1');
1738: RAISE G_EXCEPTION_HALT_VALIDATION;
1740: OPEN c_get_id1_id2(p_object_id1_new);
1741: FETCH c_get_id1_id2 INTO x_object_id1_new,
1742: x_object_id2_new;
1743: IF c_get_id1_id2%NOTFOUND THEN
1744: OKL_API.set_message(p_app_name => G_APP_NAME,
1745: p_msg_name => G_NO_MATCHING_RECORD,
1746: p_token1 => G_COL_NAME_TOKEN,
1747: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1748: RAISE G_EXCEPTION_HALT_VALIDATION;
1748: RAISE G_EXCEPTION_HALT_VALIDATION;
1749: END IF;
1750: CLOSE c_get_id1_id2;
1751: IF (x_object_id1_new IS NULL OR
1752: x_object_id1_new = OKL_API.G_MISS_CHAR) AND
1753: (x_object_id2_new IS NULL OR
1754: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1755: OKL_API.set_message(p_app_name => G_APP_NAME,
1756: p_msg_name => G_NO_MATCHING_RECORD,
1750: CLOSE c_get_id1_id2;
1751: IF (x_object_id1_new IS NULL OR
1752: x_object_id1_new = OKL_API.G_MISS_CHAR) AND
1753: (x_object_id2_new IS NULL OR
1754: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1755: OKL_API.set_message(p_app_name => G_APP_NAME,
1756: p_msg_name => G_NO_MATCHING_RECORD,
1757: p_token1 => G_COL_NAME_TOKEN,
1758: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1751: IF (x_object_id1_new IS NULL OR
1752: x_object_id1_new = OKL_API.G_MISS_CHAR) AND
1753: (x_object_id2_new IS NULL OR
1754: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1755: OKL_API.set_message(p_app_name => G_APP_NAME,
1756: p_msg_name => G_NO_MATCHING_RECORD,
1757: p_token1 => G_COL_NAME_TOKEN,
1758: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1759: RAISE G_EXCEPTION_HALT_VALIDATION;
1757: p_token1 => G_COL_NAME_TOKEN,
1758: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1759: RAISE G_EXCEPTION_HALT_VALIDATION;
1760: ELSIF (x_object_id1_new IS NULL OR
1761: x_object_id1_new = OKL_API.G_MISS_CHAR) OR
1762: (x_object_id2_new IS NULL OR
1763: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1764: OKL_API.set_message(p_app_name => G_APP_NAME,
1765: p_msg_name => G_NO_MATCHING_RECORD,
1759: RAISE G_EXCEPTION_HALT_VALIDATION;
1760: ELSIF (x_object_id1_new IS NULL OR
1761: x_object_id1_new = OKL_API.G_MISS_CHAR) OR
1762: (x_object_id2_new IS NULL OR
1763: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1764: OKL_API.set_message(p_app_name => G_APP_NAME,
1765: p_msg_name => G_NO_MATCHING_RECORD,
1766: p_token1 => G_COL_NAME_TOKEN,
1767: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1760: ELSIF (x_object_id1_new IS NULL OR
1761: x_object_id1_new = OKL_API.G_MISS_CHAR) OR
1762: (x_object_id2_new IS NULL OR
1763: x_object_id2_new = OKL_API.G_MISS_CHAR) THEN
1764: OKL_API.set_message(p_app_name => G_APP_NAME,
1765: p_msg_name => G_NO_MATCHING_RECORD,
1766: p_token1 => G_COL_NAME_TOKEN,
1767: p_token1_value => 'OKX_PARTY_SITE_USES_V.ID1 and ID2');
1768: RAISE G_EXCEPTION_HALT_VALIDATION;
1770: RETURN x_return_status;
1771: EXCEPTION
1772: WHEN G_EXCEPTION_HALT_VALIDATION then
1773: -- If the cursor is open then it has to be closed
1774: x_return_status := OKL_API.G_RET_STS_ERROR;
1775: IF c_get_id1_id2%ISOPEN THEN
1776: CLOSE c_get_id1_id2;
1777: END IF;
1778: RETURN(x_return_status);
1777: END IF;
1778: RETURN(x_return_status);
1779: WHEN OTHERS THEN
1780: -- store SQL error message on message stack for caller
1781: OKL_API.set_message(G_APP_NAME,
1782: G_UNEXPECTED_ERROR,
1783: G_SQLCODE_TOKEN,
1784: SQLCODE,
1785: G_SQLERRM_TOKEN,
1784: SQLCODE,
1785: G_SQLERRM_TOKEN,
1786: SQLERRM);
1787: -- notify caller of an UNEXPECTED error
1788: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1789: -- if the cursor is open
1790: IF c_get_id1_id2%ISOPEN THEN
1791: CLOSE c_get_id1_id2;
1792: END IF;
1795: ---------------------------------------------------------------------------------------------
1796: FUNCTION get_lse_id(p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
1797: x_lse_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
1798: RETURN VARCHAR2 IS
1799: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1800:
1801: CURSOR c_get_lse_id1(p_code OKC_LINE_STYLES_V.LTY_CODE%TYPE) IS
1802: SELECT lse.id
1803: FROM okc_subclass_top_line stl,
1834: AND lse3.id = stl.lse_id
1835: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
1836: BEGIN
1837: IF (p_lty_code IS NULL OR
1838: p_lty_code = OKL_API.G_MISS_CHAR) THEN
1839: OKL_API.set_message(p_app_name => G_APP_NAME,
1840: p_msg_name => G_REQUIRED_VALUE,
1841: p_token1 => G_COL_NAME_TOKEN,
1842: p_token1_value => 'OKC_LINE_STYLES_V.LSE_TYPE');
1835: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
1836: BEGIN
1837: IF (p_lty_code IS NULL OR
1838: p_lty_code = OKL_API.G_MISS_CHAR) THEN
1839: OKL_API.set_message(p_app_name => G_APP_NAME,
1840: p_msg_name => G_REQUIRED_VALUE,
1841: p_token1 => G_COL_NAME_TOKEN,
1842: p_token1_value => 'OKC_LINE_STYLES_V.LSE_TYPE');
1843: x_return_status := OKL_API.G_RET_STS_ERROR;
1839: OKL_API.set_message(p_app_name => G_APP_NAME,
1840: p_msg_name => G_REQUIRED_VALUE,
1841: p_token1 => G_COL_NAME_TOKEN,
1842: p_token1_value => 'OKC_LINE_STYLES_V.LSE_TYPE');
1843: x_return_status := OKL_API.G_RET_STS_ERROR;
1844: END IF;
1845: -- Top Line Line Style
1846: IF p_lty_code = G_FIN_LINE_LTY_CODE THEN
1847: OPEN c_get_lse_id1(p_lty_code);
1846: IF p_lty_code = G_FIN_LINE_LTY_CODE THEN
1847: OPEN c_get_lse_id1(p_lty_code);
1848: FETCH c_get_lse_id1 INTO x_lse_id;
1849: IF c_get_lse_id1%NOTFOUND THEN
1850: OKL_API.set_message(p_app_name => G_APP_NAME,
1851: p_msg_name => G_NO_MATCHING_RECORD,
1852: p_token1 => G_COL_NAME_TOKEN,
1853: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1854: x_return_status := OKL_API.G_RET_STS_ERROR;
1850: OKL_API.set_message(p_app_name => G_APP_NAME,
1851: p_msg_name => G_NO_MATCHING_RECORD,
1852: p_token1 => G_COL_NAME_TOKEN,
1853: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1854: x_return_status := OKL_API.G_RET_STS_ERROR;
1855: END IF;
1856: CLOSE c_get_lse_id1;
1857: -- Model Line, Fixed Asset line and Instance line
1858: ELSIF p_lty_code IN (G_MODEL_LINE_LTY_CODE,G_FA_LINE_LTY_CODE,G_INST_LINE_LTY_CODE) THEN
1858: ELSIF p_lty_code IN (G_MODEL_LINE_LTY_CODE,G_FA_LINE_LTY_CODE,G_INST_LINE_LTY_CODE) THEN
1859: OPEN c_get_lse_id2(p_lty_code);
1860: FETCH c_get_lse_id2 INTO x_lse_id;
1861: IF c_get_lse_id2%NOTFOUND THEN
1862: OKL_API.set_message(p_app_name => G_APP_NAME,
1863: p_msg_name => G_NO_MATCHING_RECORD,
1864: p_token1 => G_COL_NAME_TOKEN,
1865: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1866: x_return_status := OKL_API.G_RET_STS_ERROR;
1862: OKL_API.set_message(p_app_name => G_APP_NAME,
1863: p_msg_name => G_NO_MATCHING_RECORD,
1864: p_token1 => G_COL_NAME_TOKEN,
1865: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1866: x_return_status := OKL_API.G_RET_STS_ERROR;
1867: END IF;
1868: CLOSE c_get_lse_id2;
1869: -- Addon line and Install Base line
1870: ELSIF p_lty_code IN (G_IB_LINE_LTY_CODE,G_ADDON_LINE_LTY_CODE) THEN
1872: OPEN c_get_lse_id3(p_lty_code,
1873: G_INST_LINE_LTY_CODE);
1874: FETCH c_get_lse_id3 INTO x_lse_id;
1875: IF c_get_lse_id3%NOTFOUND THEN
1876: OKL_API.set_message(p_app_name => G_APP_NAME,
1877: p_msg_name => G_NO_MATCHING_RECORD,
1878: p_token1 => G_COL_NAME_TOKEN,
1879: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1880: x_return_status := OKL_API.G_RET_STS_ERROR;
1876: OKL_API.set_message(p_app_name => G_APP_NAME,
1877: p_msg_name => G_NO_MATCHING_RECORD,
1878: p_token1 => G_COL_NAME_TOKEN,
1879: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1880: x_return_status := OKL_API.G_RET_STS_ERROR;
1881: END IF;
1882: CLOSE c_get_lse_id3;
1883: ELSIF p_lty_code = G_ADDON_LINE_LTY_CODE THEN
1884: OPEN c_get_lse_id3(p_lty_code,
1884: OPEN c_get_lse_id3(p_lty_code,
1885: G_MODEL_LINE_LTY_CODE);
1886: FETCH c_get_lse_id3 INTO x_lse_id;
1887: IF c_get_lse_id3%NOTFOUND THEN
1888: OKL_API.set_message(p_app_name => G_APP_NAME,
1889: p_msg_name => G_NO_MATCHING_RECORD,
1890: p_token1 => G_COL_NAME_TOKEN,
1891: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1892: x_return_status := OKL_API.G_RET_STS_ERROR;
1888: OKL_API.set_message(p_app_name => G_APP_NAME,
1889: p_msg_name => G_NO_MATCHING_RECORD,
1890: p_token1 => G_COL_NAME_TOKEN,
1891: p_token1_value => 'OKC_LINE_STYLES_V.ID');
1892: x_return_status := OKL_API.G_RET_STS_ERROR;
1893: END IF;
1894: CLOSE c_get_lse_id3;
1895: END IF;
1896: ELSE
1893: END IF;
1894: CLOSE c_get_lse_id3;
1895: END IF;
1896: ELSE
1897: x_return_status := OKL_API.G_RET_STS_ERROR;
1898: END IF;
1899: RETURN x_return_status;
1900: EXCEPTION
1901: WHEN OTHERS THEN
1899: RETURN x_return_status;
1900: EXCEPTION
1901: WHEN OTHERS THEN
1902: -- store SQL error message on message stack for caller
1903: OKL_API.set_message(G_APP_NAME,
1904: G_UNEXPECTED_ERROR,
1905: G_SQLCODE_TOKEN,
1906: SQLCODE,
1907: G_SQLERRM_TOKEN,
1906: SQLCODE,
1907: G_SQLERRM_TOKEN,
1908: SQLERRM);
1909: -- notify caller of an UNEXPECTED error
1910: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1911: -- if the cursor is open
1912: IF c_get_lse_id1%ISOPEN THEN
1913: CLOSE c_get_lse_id1;
1914: END IF;
1923: --------------------------------------------------------------------------------------------------
1924: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,
1925: x_try_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
1926: RETURN VARCHAR2 IS
1927: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1928: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
1929: SELECT id
1930: FROM OKL_TRX_TYPES_tl
1931: WHERE upper(name) = upper(p_try_name)
1930: FROM OKL_TRX_TYPES_tl
1931: WHERE upper(name) = upper(p_try_name)
1932: AND language = G_LANGUAGE;
1933: BEGIN
1934: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
1935: (p_try_name IS NULL) THEN
1936: -- store SQL error message on message stack
1937: OKL_API.set_message(p_app_name => G_APP_NAME,
1938: p_msg_name => G_REQUIRED_VALUE,
1933: BEGIN
1934: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
1935: (p_try_name IS NULL) THEN
1936: -- store SQL error message on message stack
1937: OKL_API.set_message(p_app_name => G_APP_NAME,
1938: p_msg_name => G_REQUIRED_VALUE,
1939: p_token1 => G_COL_NAME_TOKEN,
1940: p_token1_value => 'OKL_TRX_TYPES_V.NAME');
1941: -- halt validation as it is a required field
1943: END IF;
1944: OPEN c_get_try_id(p_try_name);
1945: FETCH c_get_try_id INTO x_try_id;
1946: IF c_get_try_id%NOTFOUND THEN
1947: OKL_API.set_message(p_app_name => G_APP_NAME,
1948: p_msg_name => G_NO_MATCHING_RECORD,
1949: p_token1 => G_COL_NAME_TOKEN,
1950: p_token1_value => 'OKL_TRX_TYPES_V.ID');
1951: RAISE G_EXCEPTION_HALT_VALIDATION;
1955: EXCEPTION
1956: WHEN G_EXCEPTION_STOP_VALIDATION then
1957: -- We are here since the field is required
1958: -- Notify Error
1959: x_return_status := OKL_API.G_RET_STS_ERROR;
1960: WHEN G_EXCEPTION_HALT_VALIDATION then
1961: -- We are here b'cause we have no parent record
1962: -- If the cursor is open then it has to be closed
1963: IF c_get_try_id%ISOPEN THEN
1963: IF c_get_try_id%ISOPEN THEN
1964: CLOSE c_get_try_id;
1965: END IF;
1966: -- notify caller of an error
1967: x_return_status := OKL_API.G_RET_STS_ERROR;
1968: WHEN OTHERS THEN
1969: -- store SQL error message on message stack for caller
1970: OKL_API.set_message(G_APP_NAME,
1971: G_UNEXPECTED_ERROR,
1966: -- notify caller of an error
1967: x_return_status := OKL_API.G_RET_STS_ERROR;
1968: WHEN OTHERS THEN
1969: -- store SQL error message on message stack for caller
1970: OKL_API.set_message(G_APP_NAME,
1971: G_UNEXPECTED_ERROR,
1972: G_SQLCODE_TOKEN,
1973: SQLCODE,
1974: G_SQLERRM_TOKEN,
1973: SQLCODE,
1974: G_SQLERRM_TOKEN,
1975: SQLERRM);
1976: -- notify caller of an UNEXPECTED error
1977: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1978: -- if the cursor is open
1979: IF c_get_try_id%ISOPEN THEN
1980: CLOSE c_get_try_id;
1981: END IF;
2065: LAST_UPDATE_LOGIN
2066: FROM Okc_K_Lines_V
2067: WHERE okc_k_lines_v.id = p_cle_id;
2068: l_okc_clev_pk okc_clev_pk_csr%ROWTYPE;
2069: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2070: BEGIN
2071: -- Get current database values
2072: OPEN okc_clev_pk_csr (p_id);
2073: FETCH okc_clev_pk_csr INTO
2148: x_clev_rec.CURRENCY_CODE,
2149: x_clev_rec.CURRENCY_CODE_RENEWED,
2150: x_clev_rec.LAST_UPDATE_LOGIN;
2151: IF okc_clev_pk_csr%NOTFOUND THEN
2152: x_return_status := OKL_API.G_RET_STS_ERROR;
2153: END IF;
2154: CLOSE okc_clev_pk_csr;
2155: RETURN(x_return_status);
2156: EXCEPTION
2155: RETURN(x_return_status);
2156: EXCEPTION
2157: WHEN OTHERS THEN
2158: -- store SQL error message on message stack for caller
2159: OKL_API.set_message(G_APP_NAME,
2160: G_UNEXPECTED_ERROR,
2161: G_SQLCODE_TOKEN,
2162: SQLCODE,
2163: G_SQLERRM_TOKEN,
2162: SQLCODE,
2163: G_SQLERRM_TOKEN,
2164: SQLERRM);
2165: -- notify caller of an UNEXPECTED error
2166: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2167: -- if the cursor is open
2168: IF okc_clev_pk_csr%ISOPEN THEN
2169: CLOSE okc_clev_pk_csr;
2170: END IF;
2312: --end NISINHA bug # 6490572
2313: FROM OKL_K_LINES_V
2314: WHERE OKL_K_LINES_V.id = p_kle_id;
2315: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2318: -- Get current database values
2319: OPEN okl_k_lines_v_pk_csr (p_id);
2320: FETCH okl_k_lines_v_pk_csr INTO
2454: ,x_klev_rec.MANUFACTURER_NAME;
2455: --end NISINHA Bug # 6490572
2456:
2457: IF okl_k_lines_v_pk_csr%NOTFOUND THEN
2458: x_return_status := OKL_API.G_RET_STS_ERROR;
2459: END IF;
2460: CLOSE okl_k_lines_v_pk_csr;
2461: RETURN(x_return_status);
2462: EXCEPTION
2461: RETURN(x_return_status);
2462: EXCEPTION
2463: WHEN OTHERS THEN
2464: -- store SQL error message on message stack for caller
2465: OKL_API.set_message(G_APP_NAME,
2466: G_UNEXPECTED_ERROR,
2467: G_SQLCODE_TOKEN,
2468: SQLCODE,
2469: G_SQLERRM_TOKEN,
2468: SQLCODE,
2469: G_SQLERRM_TOKEN,
2470: SQLERRM);
2471: -- notify caller of an UNEXPECTED error
2472: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2473: -- if the cursor is open
2474: IF okl_k_lines_v_pk_csr%ISOPEN THEN
2475: CLOSE okl_k_lines_v_pk_csr;
2476: END IF;
2561: AND RULE_INFORMATION_CATEGORY = 'LARLES';
2562:
2563: BEGIN
2564: -- initialize return status
2565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2566: -- data is required
2567: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2568: (p_asset_number IS NULL) THEN
2569: -- store SQL error message on message stack
2563: BEGIN
2564: -- initialize return status
2565: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2566: -- data is required
2567: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2568: (p_asset_number IS NULL) THEN
2569: -- store SQL error message on message stack
2570: OKL_API.set_message(p_app_name => G_APP_NAME,
2571: p_msg_name => G_REQUIRED_VALUE,
2566: -- data is required
2567: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2568: (p_asset_number IS NULL) THEN
2569: -- store SQL error message on message stack
2570: OKL_API.set_message(p_app_name => G_APP_NAME,
2571: p_msg_name => G_REQUIRED_VALUE,
2572: p_token1 => G_COL_NAME_TOKEN,
2573: p_token1_value => 'ASSET_NUMBER');
2574: -- halt validation as it is a required field
2579: OPEN c_check_release_asset(p_dnz_chr_id);
2580: FETCH c_check_release_asset into lv_release_asset;
2581: IF c_check_release_asset%NOTFOUND THEN
2582: lv_release_asset := 'N';
2583: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2584: OKL_API.set_message(p_app_name => G_APP_NAME,
2585: p_msg_name => G_NO_MATCHING_RECORD,
2586: p_token1 => G_COL_NAME_TOKEN,
2587: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2580: FETCH c_check_release_asset into lv_release_asset;
2581: IF c_check_release_asset%NOTFOUND THEN
2582: lv_release_asset := 'N';
2583: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2584: OKL_API.set_message(p_app_name => G_APP_NAME,
2585: p_msg_name => G_NO_MATCHING_RECORD,
2586: p_token1 => G_COL_NAME_TOKEN,
2587: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2588: RAISE G_EXCEPTION_HALT_VALIDATION;*/
2595: --
2596: IF (upper(lv_release_asset) = 'Y') THEN
2597: okl_transaction_pvt.check_contract_securitized(
2598: p_api_version => 1.0,
2599: p_init_msg_list => OKL_API.G_FALSE,
2600: x_return_status => x_return_status,
2601: x_msg_count => x_msg_count,
2602: x_msg_data => x_msg_data,
2603: p_chr_id => p_dnz_chr_id,
2605: p_stream_type_class => 'RESIDUAL',
2606: p_trx_date => SYSDATE
2607: );
2608:
2609: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2610: OKL_API.set_message(p_app_name => G_APP_NAME,
2611: p_msg_name => 'OKL_LLA_ASSET_SECU_ERROR',
2612: p_token1 => 'ASSET_NUM',
2613: p_token1_value => p_asset_number
2606: p_trx_date => SYSDATE
2607: );
2608:
2609: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2610: OKL_API.set_message(p_app_name => G_APP_NAME,
2611: p_msg_name => 'OKL_LLA_ASSET_SECU_ERROR',
2612: p_token1 => 'ASSET_NUM',
2613: p_token1_value => p_asset_number
2614: );
2612: p_token1 => 'ASSET_NUM',
2613: p_token1_value => p_asset_number
2614: );
2615:
2616: x_return_status := OKL_API.G_RET_STS_ERROR;
2617: RETURN; -- no further processing
2618: END IF;
2619: END IF;
2620:
2624: -- Get the asset number from the system
2625: OPEN c_get_asset_number(p_kle_id);
2626: FETCH c_get_asset_number into lv_asset_number;
2627: IF c_get_asset_number%NOTFOUND THEN
2628: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2629: END IF;
2630: CLOSE c_get_asset_number;
2631:
2632: -- Check the asset number being changed
2642: OPEN c_txl_asset_number(p_asset_number,
2643: p_kle_id);
2644: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2645: IF c_txl_asset_number%NOTFOUND THEN
2646: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2647: END IF;
2648: CLOSE c_txl_asset_number;
2649:
2650: -- Validate if the Asset Number exists in OKX_ASSETS_V
2650: -- Validate if the Asset Number exists in OKX_ASSETS_V
2651: OPEN c_okx_assets_v(p_asset_number);
2652: FETCH c_okx_assets_v into ln_okx_assets_v;
2653: IF c_okx_assets_v%NOTFOUND THEN
2654: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2655: END IF;
2656: CLOSE c_okx_assets_v;
2657:
2658: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2658: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2659: OPEN c_okx_asset_lines_v(p_asset_number);
2660: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2661: IF c_okx_asset_lines_v%NOTFOUND THEN
2662: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2663: END IF;
2664: CLOSE c_okx_asset_lines_v;
2665:
2666: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2667: -- for Split Asset scenario.
2668: OPEN c_txd_assets_v(p_asset_number);
2669: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2670: IF c_txd_assets_v%NOTFOUND THEN
2671: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2672: END IF;
2673: CLOSE c_txd_assets_v;
2674:
2675: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2671: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2672: END IF;
2673: CLOSE c_txd_assets_v;
2674:
2675: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2676: -- Enforce validation
2677: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2678: OPEN c_txl_asset_number(p_asset_number,
2679: p_kle_id);
2678: OPEN c_txl_asset_number(p_asset_number,
2679: p_kle_id);
2680: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2681: IF c_txl_asset_number%NOTFOUND THEN
2682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2683: END IF;
2684: CLOSE c_txl_asset_number;
2685:
2686: -- Validate if the Asset Number exists in OKX_ASSETS_V
2686: -- Validate if the Asset Number exists in OKX_ASSETS_V
2687: OPEN c_okx_assets_v(p_asset_number);
2688: FETCH c_okx_assets_v into ln_okx_assets_v;
2689: IF c_okx_assets_v%NOTFOUND THEN
2690: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2691: END IF;
2692: CLOSE c_okx_assets_v;
2693:
2694: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2694: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2695: OPEN c_okx_asset_lines_v(p_asset_number);
2696: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2697: IF c_okx_asset_lines_v%NOTFOUND THEN
2698: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2699: END IF;
2700: CLOSE c_okx_asset_lines_v;
2701:
2702: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2703: -- for Split Asset scenario.
2704: OPEN c_txd_assets_v(p_asset_number);
2705: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2706: IF c_txd_assets_v%NOTFOUND THEN
2707: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2708: END IF;
2709: CLOSE c_txd_assets_v;
2710:
2711: -- Since we have add this check only the cases if the asset number
2715: OPEN c_txl_asset_number(p_asset_number,
2716: p_kle_Id);
2717: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2718: IF c_txl_asset_number%NOTFOUND THEN
2719: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2720: END IF;
2721: CLOSE c_txl_asset_number;
2722:
2723: -- Validate if the Asset Number exists in OKX_ASSETS_V
2723: -- Validate if the Asset Number exists in OKX_ASSETS_V
2724: OPEN c_okx_assets_v(p_asset_number);
2725: FETCH c_okx_assets_v into ln_okx_assets_v;
2726: IF c_okx_assets_v%NOTFOUND THEN
2727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2728: END IF;
2729: CLOSE c_okx_assets_v;
2730:
2731: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2731: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2732: OPEN c_okx_asset_lines_v(p_asset_number);
2733: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2734: IF c_okx_asset_lines_v%NOTFOUND THEN
2735: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2736: END IF;
2737: CLOSE c_okx_asset_lines_v;
2738:
2739: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2740: -- for Split Asset scenario.
2741: OPEN c_txd_assets_v(p_asset_number);
2742: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2743: IF c_txd_assets_v%NOTFOUND THEN
2744: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2745: END IF;
2746: CLOSE c_txd_assets_v;
2747: END IF;
2748:
2748:
2749: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2750: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
2751: -- store SQL error message on message stack
2752: OKL_API.set_message(p_app_name => G_APP_NAME,
2753: p_msg_name => G_ASSET_NUMBER);
2754: RAISE G_EXCEPTION_HALT_VALIDATION;
2755: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2756: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2754: RAISE G_EXCEPTION_HALT_VALIDATION;
2755: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2756: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2757: -- store SQL error message on message stack
2758: OKL_API.set_message(p_app_name => G_APP_NAME,
2759: p_msg_name => G_ASSET_NUMBER);
2760: RAISE G_EXCEPTION_HALT_VALIDATION;
2761: END IF;
2762: END IF; -- End of Asset number equality check
2782: IF c_check_release_asset%ISOPEN THEN
2783: CLOSE c_check_release_asset;
2784: END IF;
2785:
2786: x_return_status := OKL_API.G_RET_STS_ERROR;
2787: WHEN G_EXCEPTION_HALT_VALIDATION then
2788: -- We are here b'cause we have no parent record
2789: -- If the cursor is open then it has to be closed
2790: IF c_txl_asset_number%ISOPEN THEN
2803: CLOSE c_check_release_asset;
2804: END IF;
2805:
2806: -- notify caller of an error
2807: x_return_status := OKL_API.G_RET_STS_ERROR;
2808: WHEN OTHERS THEN
2809: -- store SQL error message on message stack
2810: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2811: p_msg_name => G_UNEXPECTED_ERROR,
2806: -- notify caller of an error
2807: x_return_status := OKL_API.G_RET_STS_ERROR;
2808: WHEN OTHERS THEN
2809: -- store SQL error message on message stack
2810: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2811: p_msg_name => G_UNEXPECTED_ERROR,
2812: p_token1 => G_SQLCODE_TOKEN,
2813: p_token1_value => SQLCODE,
2814: p_token2 => G_SQLERRM_TOKEN,
2830: CLOSE c_check_release_asset;
2831: END IF;
2832:
2833: -- notify caller of an error as UNEXPETED error
2834: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2835: END validate_new_ast_num_update;
2836: -------------------------------------------------------------------------------------------------
2837: -- Start of Commnets
2838: -- Badrinath Kuchibholta
2902: AND RULE_INFORMATION_CATEGORY = 'LARLES';
2903:
2904: BEGIN
2905: -- initialize return status
2906: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2907: -- data is required
2908: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2909: -- store SQL error message on message stack
2910: OKL_API.set_message(p_app_name => G_APP_NAME,
2904: BEGIN
2905: -- initialize return status
2906: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2907: -- data is required
2908: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2909: -- store SQL error message on message stack
2910: OKL_API.set_message(p_app_name => G_APP_NAME,
2911: p_msg_name => G_REQUIRED_VALUE,
2912: p_token1 => G_COL_NAME_TOKEN,
2906: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2907: -- data is required
2908: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2909: -- store SQL error message on message stack
2910: OKL_API.set_message(p_app_name => G_APP_NAME,
2911: p_msg_name => G_REQUIRED_VALUE,
2912: p_token1 => G_COL_NAME_TOKEN,
2913: p_token1_value => 'ASSET_NUMBER');
2914: -- halt validation as it is a required field
2914: -- halt validation as it is a required field
2915: RAISE G_EXCEPTION_STOP_VALIDATION;
2916: END IF;
2917:
2918: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR (p_dnz_chr_id IS NULL) THEN
2919: -- store SQL error message on message stack
2920: OKL_API.set_message(p_app_name => G_APP_NAME,
2921: p_msg_name => G_REQUIRED_VALUE,
2922: p_token1 => G_COL_NAME_TOKEN,
2916: END IF;
2917:
2918: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR (p_dnz_chr_id IS NULL) THEN
2919: -- store SQL error message on message stack
2920: OKL_API.set_message(p_app_name => G_APP_NAME,
2921: p_msg_name => G_REQUIRED_VALUE,
2922: p_token1 => G_COL_NAME_TOKEN,
2923: p_token1_value => 'DNZ_CHR_ID');
2924: -- halt validation as it is a required field
2929: OPEN c_check_release_asset(p_dnz_chr_id);
2930: FETCH c_check_release_asset into lv_release_asset;
2931: IF c_check_release_asset%NOTFOUND THEN
2932: lv_release_asset := 'N';
2933: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2934: OKL_API.set_message(p_app_name => G_APP_NAME,
2935: p_msg_name => G_NO_MATCHING_RECORD,
2936: p_token1 => G_COL_NAME_TOKEN,
2937: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2930: FETCH c_check_release_asset into lv_release_asset;
2931: IF c_check_release_asset%NOTFOUND THEN
2932: lv_release_asset := 'N';
2933: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2934: OKL_API.set_message(p_app_name => G_APP_NAME,
2935: p_msg_name => G_NO_MATCHING_RECORD,
2936: p_token1 => G_COL_NAME_TOKEN,
2937: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2938: RAISE G_EXCEPTION_HALT_VALIDATION;*/
2945: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2946: OPEN c_txl_asset_number(p_asset_number);
2947: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2948: IF c_txl_asset_number%NOTFOUND THEN
2949: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2950: END IF;
2951: CLOSE c_txl_asset_number;
2952:
2953: -- Validate if the Asset Number exists in OKX_ASSETS_V
2953: -- Validate if the Asset Number exists in OKX_ASSETS_V
2954: OPEN c_okx_assets_v(p_asset_number);
2955: FETCH c_okx_assets_v into ln_okx_assets_v;
2956: IF c_okx_assets_v%NOTFOUND THEN
2957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2958: END IF;
2959: CLOSE c_okx_assets_v;
2960:
2961: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2961: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2962: OPEN c_okx_asset_lines_v(p_asset_number);
2963: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2964: IF c_okx_asset_lines_v%NOTFOUND THEN
2965: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2966: END IF;
2967: CLOSE c_okx_asset_lines_v;
2968:
2969: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2970: -- for Split Asset scenario.
2971: OPEN c_txd_assets_v(p_asset_number);
2972: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2973: IF c_txd_assets_v%NOTFOUND THEN
2974: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2975: END IF;
2976: CLOSE c_txd_assets_v;
2977:
2978: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2977:
2978: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2979: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
2980: -- store SQL error message on message stack
2981: OKL_API.set_message(p_app_name => G_APP_NAME,
2982: p_msg_name => G_ASSET_NUMBER);
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2985: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2983: RAISE G_EXCEPTION_HALT_VALIDATION;
2984: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2985: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2986: -- store SQL error message on message stack
2987: OKL_API.set_message(p_app_name => G_APP_NAME,
2988: p_msg_name => G_ASSET_NUMBER);
2989: RAISE G_EXCEPTION_HALT_VALIDATION;
2990: END IF;
2991: END IF;
2992: EXCEPTION
2993: WHEN G_EXCEPTION_STOP_VALIDATION then
2994: -- We are here since the field is required
2995: -- Notify Error
2996: x_return_status := OKL_API.G_RET_STS_ERROR;
2997: WHEN G_EXCEPTION_HALT_VALIDATION then
2998: -- We are here b'cause we have no parent record
2999: -- If the cursor is open then it has to be closed
3000: IF c_txl_asset_number%ISOPEN THEN
3013: CLOSE c_check_release_asset;
3014: END IF;
3015:
3016: -- notify caller of an error
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: WHEN OTHERS THEN
3019: -- store SQL error message on message stack
3020: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3021: p_msg_name => G_UNEXPECTED_ERROR,
3016: -- notify caller of an error
3017: x_return_status := OKL_API.G_RET_STS_ERROR;
3018: WHEN OTHERS THEN
3019: -- store SQL error message on message stack
3020: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3021: p_msg_name => G_UNEXPECTED_ERROR,
3022: p_token1 => G_SQLCODE_TOKEN,
3023: p_token1_value => SQLCODE,
3024: p_token2 => G_SQLERRM_TOKEN,
3039: IF c_check_release_asset%ISOPEN THEN
3040: CLOSE c_check_release_asset;
3041: END IF;
3042: -- notify caller of an error as UNEXPETED error
3043: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3044: END validate_new_asset_number;
3045: -------------------------------------------------------------------------------------------------
3046: -- Start of Commnets
3047: -- Badrinath Kuchibholta
3071: AND txd.tal_id = p_tal_id
3072: AND txd.tax_book = p_tax_book; --);
3073: BEGIN
3074: -- initialize return status
3075: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3076: -- data is required
3077: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3078: p_asset_number IS NULL) OR
3079: (p_tal_id = OKL_API.G_MISS_NUM OR
3073: BEGIN
3074: -- initialize return status
3075: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3076: -- data is required
3077: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3078: p_asset_number IS NULL) OR
3079: (p_tal_id = OKL_API.G_MISS_NUM OR
3080: p_tal_id IS NULL) OR
3081: (p_tax_book = OKL_API.G_MISS_CHAR OR
3075: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3076: -- data is required
3077: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3078: p_asset_number IS NULL) OR
3079: (p_tal_id = OKL_API.G_MISS_NUM OR
3080: p_tal_id IS NULL) OR
3081: (p_tax_book = OKL_API.G_MISS_CHAR OR
3082: p_tax_book IS NULL) THEN
3083: -- store SQL error message on message stack
3077: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3078: p_asset_number IS NULL) OR
3079: (p_tal_id = OKL_API.G_MISS_NUM OR
3080: p_tal_id IS NULL) OR
3081: (p_tax_book = OKL_API.G_MISS_CHAR OR
3082: p_tax_book IS NULL) THEN
3083: -- store SQL error message on message stack
3084: OKL_API.set_message(p_app_name => G_APP_NAME,
3085: p_msg_name => G_REQUIRED_VALUE,
3080: p_tal_id IS NULL) OR
3081: (p_tax_book = OKL_API.G_MISS_CHAR OR
3082: p_tax_book IS NULL) THEN
3083: -- store SQL error message on message stack
3084: OKL_API.set_message(p_app_name => G_APP_NAME,
3085: p_msg_name => G_REQUIRED_VALUE,
3086: p_token1 => G_COL_NAME_TOKEN,
3087: p_token1_value => 'ASSET_NUMBER ,TAX BOOK and TAL ID');
3088: -- halt validation as it is a required field
3094: p_tax_book => p_tax_book,
3095: p_tal_id => p_tal_id);
3096: FETCH c_asset_lines_dtls_v into ln_asset_lines_dtls;
3097: IF c_asset_lines_dtls_v%NOTFOUND THEN
3098: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3099: END IF;
3100: CLOSE c_asset_lines_dtls_v;
3101: IF (ln_asset_lines_dtls = 1) THEN
3102: -- store SQL error message on message stack
3099: END IF;
3100: CLOSE c_asset_lines_dtls_v;
3101: IF (ln_asset_lines_dtls = 1) THEN
3102: -- store SQL error message on message stack
3103: OKL_API.set_message(p_app_name => G_APP_NAME,
3104: p_msg_name => G_ASSET_NUMBER);
3105: RAISE G_EXCEPTION_HALT_VALIDATION;
3106: END IF;
3107: EXCEPTION
3107: EXCEPTION
3108: WHEN G_EXCEPTION_STOP_VALIDATION then
3109: -- We are here since the field is required
3110: -- Notify Error
3111: x_return_status := OKL_API.G_RET_STS_ERROR;
3112: WHEN G_EXCEPTION_HALT_VALIDATION then
3113: -- We are here b'cause we have no parent record
3114: -- If the cursor is open then it has to be closed
3115: IF c_asset_lines_dtls_v%ISOPEN THEN
3115: IF c_asset_lines_dtls_v%ISOPEN THEN
3116: CLOSE c_asset_lines_dtls_v;
3117: END IF;
3118: -- notify caller of an error
3119: x_return_status := OKL_API.G_RET_STS_ERROR;
3120: WHEN OTHERS THEN
3121: -- store SQL error message on message stack
3122: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3123: p_msg_name => G_UNEXPECTED_ERROR,
3118: -- notify caller of an error
3119: x_return_status := OKL_API.G_RET_STS_ERROR;
3120: WHEN OTHERS THEN
3121: -- store SQL error message on message stack
3122: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3123: p_msg_name => G_UNEXPECTED_ERROR,
3124: p_token1 => G_SQLCODE_TOKEN,
3125: p_token1_value => SQLCODE,
3126: p_token2 => G_SQLERRM_TOKEN,
3129: IF c_asset_lines_dtls_v%ISOPEN THEN
3130: CLOSE c_asset_lines_dtls_v;
3131: END IF;
3132: -- notify caller of an error as UNEXPETED error
3133: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3134: END Validate_asset_tax_book;
3135: ----------------------------------------------------------------------------------------
3136: -- Start of Commnets
3137: -- Badrinath Kuchibholta
3154: WHERE instance_number_ib = p_inst_ib; --);
3155:
3156: BEGIN
3157: -- initialize return status
3158: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3159: -- data is required
3160: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3161: p_inst_num_ib IS NULL) THEN
3162: -- store SQL error message on message stack
3156: BEGIN
3157: -- initialize return status
3158: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3159: -- data is required
3160: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3161: p_inst_num_ib IS NULL) THEN
3162: -- store SQL error message on message stack
3163: OKL_API.set_message(p_app_name => G_APP_NAME,
3164: p_msg_name => G_REQUIRED_VALUE,
3159: -- data is required
3160: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3161: p_inst_num_ib IS NULL) THEN
3162: -- store SQL error message on message stack
3163: OKL_API.set_message(p_app_name => G_APP_NAME,
3164: p_msg_name => G_REQUIRED_VALUE,
3165: p_token1 => G_COL_NAME_TOKEN,
3166: p_token1_value => 'INSTANCE_NUMBER_IB');
3167: RAISE G_EXCEPTION_STOP_VALIDATION;
3170: OPEN c_inst_num_ib_validate(p_inst_num_ib);
3171: FETCH c_inst_num_ib_validate into ln_dummy;
3172: IF c_inst_num_ib_validate%NOTFOUND THEN
3173: -- Since no parent record existing in OKL_TXL_ITM_INSTS
3174: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3175: END IF;
3176: CLOSE c_inst_num_ib_validate;
3177: IF (ln_dummy = 1) THEN
3178: -- store SQL error message on message stack
3175: END IF;
3176: CLOSE c_inst_num_ib_validate;
3177: IF (ln_dummy = 1) THEN
3178: -- store SQL error message on message stack
3179: OKL_API.set_message(p_app_name => G_APP_NAME,
3180: p_msg_name => G_INSTALL_BASE_NUMBER);
3181: RAISE G_EXCEPTION_HALT_VALIDATION;
3182: END IF;
3183: EXCEPTION
3183: EXCEPTION
3184: WHEN G_EXCEPTION_STOP_VALIDATION then
3185: -- We are here since the field is required
3186: -- Notify Error
3187: x_return_status := OKL_API.G_RET_STS_ERROR;
3188: WHEN G_EXCEPTION_HALT_VALIDATION then
3189: -- We are here b'cause we have no parent record
3190: -- store SQL error message on message stack
3191: -- If the cursor is open then it has to be closed
3192: IF c_inst_num_ib_validate%ISOPEN THEN
3193: CLOSE c_inst_num_ib_validate;
3194: END IF;
3195: -- notify caller of an error
3196: x_return_status := OKL_API.G_RET_STS_ERROR;
3197: WHEN OTHERS THEN
3198: -- store SQL error message on message stack
3199: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3200: p_msg_name => G_UNEXPECTED_ERROR,
3195: -- notify caller of an error
3196: x_return_status := OKL_API.G_RET_STS_ERROR;
3197: WHEN OTHERS THEN
3198: -- store SQL error message on message stack
3199: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3200: p_msg_name => G_UNEXPECTED_ERROR,
3201: p_token1 => G_SQLCODE_TOKEN,
3202: p_token1_value => SQLCODE,
3203: p_token2 => G_SQLERRM_TOKEN,
3206: IF c_inst_num_ib_validate%ISOPEN THEN
3207: CLOSE c_inst_num_ib_validate;
3208: END IF;
3209: -- notify caller of an error as UNEXPETED error
3210: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3211: END validate_instance_number_ib;
3212: ------------------------------------------------------------------------------------------------------------
3213: -- Start of Commnets
3214: -- Badrinath Kuchibholta
3229: FROM OKC_LINE_STYLES_V
3230: WHERE id = p_lse_id;
3231: BEGIN
3232: -- initialize return status
3233: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3234: -- data is required
3235: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3236: (p_clev_rec.lse_id IS NULL) THEN
3237: -- store SQL error message on message stack
3231: BEGIN
3232: -- initialize return status
3233: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3234: -- data is required
3235: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3236: (p_clev_rec.lse_id IS NULL) THEN
3237: -- store SQL error message on message stack
3238: OKL_API.set_message(p_app_name => G_APP_NAME,
3239: p_msg_name => G_REQUIRED_VALUE,
3234: -- data is required
3235: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3236: (p_clev_rec.lse_id IS NULL) THEN
3237: -- store SQL error message on message stack
3238: OKL_API.set_message(p_app_name => G_APP_NAME,
3239: p_msg_name => G_REQUIRED_VALUE,
3240: p_token1 => G_COL_NAME_TOKEN,
3241: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3242: -- halt validation as it is a required field
3247: FETCH c_lse_id_validate into x_lty_code,
3248: x_lse_type;
3249: -- If there are no records then
3250: IF c_lse_id_validate%NOTFOUND THEN
3251: OKL_API.set_message(p_app_name => G_APP_NAME,
3252: p_msg_name => G_NO_MATCHING_RECORD,
3253: p_token1 => G_COL_NAME_TOKEN,
3254: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3255: -- halt validation as it has no parent record
3256: RAISE G_EXCEPTION_HALT_VALIDATION;
3257: END IF;
3258: CLOSE c_lse_id_validate;
3259: -- If we have null records coming up
3260: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3261: x_lty_code IS NULL) AND
3262: (x_lse_type = OKL_API.G_MISS_CHAR OR
3263: x_lse_type IS NULL) THEN
3264: OKL_API.set_message(p_app_name => G_APP_NAME,
3258: CLOSE c_lse_id_validate;
3259: -- If we have null records coming up
3260: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3261: x_lty_code IS NULL) AND
3262: (x_lse_type = OKL_API.G_MISS_CHAR OR
3263: x_lse_type IS NULL) THEN
3264: OKL_API.set_message(p_app_name => G_APP_NAME,
3265: p_msg_name => G_NO_MATCHING_RECORD,
3266: p_token1 => G_COL_NAME_TOKEN,
3260: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3261: x_lty_code IS NULL) AND
3262: (x_lse_type = OKL_API.G_MISS_CHAR OR
3263: x_lse_type IS NULL) THEN
3264: OKL_API.set_message(p_app_name => G_APP_NAME,
3265: p_msg_name => G_NO_MATCHING_RECORD,
3266: p_token1 => G_COL_NAME_TOKEN,
3267: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3268: -- halt validation as it has no parent record
3271: EXCEPTION
3272: WHEN G_EXCEPTION_STOP_VALIDATION then
3273: -- We are here since the field is required
3274: -- Notify Error
3275: x_return_status := OKL_API.G_RET_STS_ERROR;
3276: WHEN G_EXCEPTION_HALT_VALIDATION then
3277: -- If the cursor is open then it has to be closed
3278: IF c_lse_id_validate%ISOPEN THEN
3279: CLOSE c_lse_id_validate;
3277: -- If the cursor is open then it has to be closed
3278: IF c_lse_id_validate%ISOPEN THEN
3279: CLOSE c_lse_id_validate;
3280: END IF;
3281: x_return_status := OKL_API.G_RET_STS_ERROR;
3282: WHEN OTHERS THEN
3283: -- store SQL error message on message stack
3284: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3285: p_msg_name => G_UNEXPECTED_ERROR,
3280: END IF;
3281: x_return_status := OKL_API.G_RET_STS_ERROR;
3282: WHEN OTHERS THEN
3283: -- store SQL error message on message stack
3284: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3285: p_msg_name => G_UNEXPECTED_ERROR,
3286: p_token1 => G_SQLCODE_TOKEN,
3287: p_token1_value => SQLCODE,
3288: p_token2 => G_SQLERRM_TOKEN,
3291: IF c_lse_id_validate%ISOPEN THEN
3292: CLOSE c_lse_id_validate;
3293: END IF;
3294: -- notify caller of an error as UNEXPETED error
3295: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3296: END validate_lse_id;
3297: ---------------------------------------------------------------------------------------------------
3298: -- Start of Commnets
3299: -- Badrinath Kuchibholta
3321: AND lse.id = cle.lse_id;
3322:
3323: BEGIN
3324: -- initialize return status
3325: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3326: -- data is required
3327: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3328: p_clev_rec.cle_id IS NULL) THEN
3329: OKL_API.set_message(p_app_name => G_APP_NAME,
3323: BEGIN
3324: -- initialize return status
3325: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3326: -- data is required
3327: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3328: p_clev_rec.cle_id IS NULL) THEN
3329: OKL_API.set_message(p_app_name => G_APP_NAME,
3330: p_msg_name => G_REQUIRED_VALUE,
3331: p_token1 => G_COL_NAME_TOKEN,
3325: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3326: -- data is required
3327: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3328: p_clev_rec.cle_id IS NULL) THEN
3329: OKL_API.set_message(p_app_name => G_APP_NAME,
3330: p_msg_name => G_REQUIRED_VALUE,
3331: p_token1 => G_COL_NAME_TOKEN,
3332: p_token1_value => 'OKC_K_LINES_V.CLE_ID');
3333: -- halt validation as it is a required field
3335: END IF;
3336: -- check the valid id is there
3337: OPEN c_cle_id_validate(p_clev_rec.cle_id);
3338: IF c_cle_id_validate%NOTFOUND THEN
3339: OKL_API.set_message(p_app_name => G_APP_NAME,
3340: p_msg_name => G_NO_MATCHING_RECORD,
3341: p_token1 => G_COL_NAME_TOKEN,
3342: p_token1_value => 'OKC_K_LINES_V.CLE_ID');
3343: -- halt validation as it has no parent record
3361: ELSIF p_lty_code = G_IB_LINE_LTY_CODE AND
3362: lv_lty_code = G_INST_LINE_LTY_CODE THEN
3363: x_lty_code := lv_lty_code;
3364: ELSE
3365: OKL_API.set_message(p_app_name => G_APP_NAME,
3366: p_msg_name => G_LINE_STYLE);
3367: -- halt validation as it has invalid Value
3368: RAISE G_EXCEPTION_HALT_VALIDATION;
3369: END IF;
3371: WHEN G_EXCEPTION_STOP_VALIDATION then
3372: -- We are here since the field is required
3373: -- store SQL error message on message stack
3374: -- Notify Error
3375: x_return_status := OKL_API.G_RET_STS_ERROR;
3376: WHEN G_EXCEPTION_HALT_VALIDATION then
3377: IF c_cle_id_validate%ISOPEN THEN
3378: -- halt validation as it has no parent record
3379: RAISE G_EXCEPTION_HALT_VALIDATION;
3377: IF c_cle_id_validate%ISOPEN THEN
3378: -- halt validation as it has no parent record
3379: RAISE G_EXCEPTION_HALT_VALIDATION;
3380: END IF;
3381: x_return_status := OKL_API.G_RET_STS_ERROR;
3382: WHEN OTHERS THEN
3383: -- store SQL error message on message stack
3384: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3385: p_msg_name => G_UNEXPECTED_ERROR,
3380: END IF;
3381: x_return_status := OKL_API.G_RET_STS_ERROR;
3382: WHEN OTHERS THEN
3383: -- store SQL error message on message stack
3384: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3385: p_msg_name => G_UNEXPECTED_ERROR,
3386: p_token1 => G_SQLCODE_TOKEN,
3387: p_token1_value => SQLCODE,
3388: p_token2 => G_SQLERRM_TOKEN,
3391: -- halt validation as it has no parent record
3392: RAISE G_EXCEPTION_HALT_VALIDATION;
3393: END IF;
3394: -- notify caller of an error as UNEXPETED error
3395: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3396: END validate_cle_lse_id;
3397: ----------------------------------------------------------------------------------------------------
3398: -- Start of Commnets
3399: -- Badrinath Kuchibholta
3414: FROM OKC_K_HEADERS_B chrv
3415: WHERE chrv.id = p_dnz_chr_id; --);
3416: BEGIN
3417: -- initialize return status
3418: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3419: -- data is required
3420: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3421: (p_clev_rec.dnz_chr_id IS NULL) THEN
3422: -- store SQL error message on message stack
3416: BEGIN
3417: -- initialize return status
3418: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3419: -- data is required
3420: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3421: (p_clev_rec.dnz_chr_id IS NULL) THEN
3422: -- store SQL error message on message stack
3423: OKL_API.set_message(p_app_name => G_APP_NAME,
3424: p_msg_name => G_REQUIRED_VALUE,
3419: -- data is required
3420: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3421: (p_clev_rec.dnz_chr_id IS NULL) THEN
3422: -- store SQL error message on message stack
3423: OKL_API.set_message(p_app_name => G_APP_NAME,
3424: p_msg_name => G_REQUIRED_VALUE,
3425: p_token1 => G_COL_NAME_TOKEN,
3426: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3427: -- halt validation as it is a required field
3432: -- we assume the cle_id will not null
3433: -- as the same is not top line and it will be sub line
3434: OPEN c_dnz_chr_id_validate(p_clev_rec.dnz_chr_id);
3435: IF c_dnz_chr_id_validate%NOTFOUND THEN
3436: OKL_API.set_message(p_app_name => G_APP_NAME,
3437: p_msg_name => G_NO_MATCHING_RECORD,
3438: p_token1 => G_COL_NAME_TOKEN,
3439: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3440: -- halt validation as it has no parent record
3442: END IF;
3443: FETCH c_dnz_chr_id_validate into ln_dummy;
3444: CLOSE c_dnz_chr_id_validate;
3445: IF (ln_dummy = 0) THEN
3446: OKL_API.set_message(p_app_name => G_APP_NAME,
3447: p_msg_name => G_NO_MATCHING_RECORD,
3448: p_token1 => G_COL_NAME_TOKEN,
3449: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3450: -- halt validation as it has no parent record
3453: EXCEPTION
3454: WHEN G_EXCEPTION_STOP_VALIDATION then
3455: -- We are here since the field is required
3456: -- Notify Error
3457: x_return_status := OKL_API.G_RET_STS_ERROR;
3458: WHEN G_EXCEPTION_HALT_VALIDATION then
3459: -- If the cursor is open then it has to be closed
3460: IF c_dnz_chr_id_validate%ISOPEN THEN
3461: CLOSE c_dnz_chr_id_validate;
3459: -- If the cursor is open then it has to be closed
3460: IF c_dnz_chr_id_validate%ISOPEN THEN
3461: CLOSE c_dnz_chr_id_validate;
3462: END IF;
3463: x_return_status := OKL_API.G_RET_STS_ERROR;
3464: WHEN OTHERS THEN
3465: -- store SQL error message on message stack
3466: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3467: p_msg_name => G_UNEXPECTED_ERROR,
3462: END IF;
3463: x_return_status := OKL_API.G_RET_STS_ERROR;
3464: WHEN OTHERS THEN
3465: -- store SQL error message on message stack
3466: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3467: p_msg_name => G_UNEXPECTED_ERROR,
3468: p_token1 => G_SQLCODE_TOKEN,
3469: p_token1_value => SQLCODE,
3470: p_token2 => G_SQLERRM_TOKEN,
3473: IF c_dnz_chr_id_validate%ISOPEN THEN
3474: CLOSE c_dnz_chr_id_validate;
3475: END IF;
3476: -- notify caller of an error as UNEXPETED error
3477: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3478: END validate_dnz_chr_id;
3479: --------------------------------------------------------------------------------------------
3480: -- Start of Commnets
3481: -- Badrinath Kuchibholta
3497: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3498: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3499: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3500: RETURN VARCHAR2 IS
3501: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3502: ln_dummy NUMBER := 0;
3503: ln1_dummy NUMBER := 0;
3504: ln2_dummy NUMBER := 0;
3505: ln3_dummy NUMBER := p_units;
3517: OKC_K_HEADERS_B chr
3518: WHERE khr.id = p_dnz_chr_id
3519: AND chr.id = khr.id;
3520: BEGIN
3521: IF (p_chr_id <> OKL_API.G_MISS_NUM OR
3522: p_chr_id IS NOT NULL) THEN
3523: OPEN get_deal_type(p_dnz_chr_id => p_chr_id);
3524: FETCH get_deal_type into lv_deal_type,
3525: lv_scs_code,
3527: l_orig_system_source_code;
3528: CLOSE get_deal_type;
3529: END IF;
3530: -- data is required
3531: IF (p_item1 = OKL_API.G_MISS_CHAR OR
3532: p_item1 IS NULL) THEN
3533: -- store SQL error message on message stack
3534: OKL_API.set_message(p_app_name => G_APP_NAME,
3535: p_msg_name => G_REQUIRED_VALUE,
3530: -- data is required
3531: IF (p_item1 = OKL_API.G_MISS_CHAR OR
3532: p_item1 IS NULL) THEN
3533: -- store SQL error message on message stack
3534: OKL_API.set_message(p_app_name => G_APP_NAME,
3535: p_msg_name => G_REQUIRED_VALUE,
3536: p_token1 => G_COL_NAME_TOKEN,
3537: p_token1_value => 'Item');
3538: -- halt validation as it is a required field
3537: p_token1_value => 'Item');
3538: -- halt validation as it is a required field
3539: RAISE G_EXCEPTION_STOP_VALIDATION;
3540: END IF;
3541: IF (p_item2 = OKL_API.G_MISS_CHAR OR
3542: p_item2 IS NULL) THEN
3543: -- store SQL error message on message stack
3544: OKL_API.set_message(p_app_name => G_APP_NAME,
3545: p_msg_name => G_REQUIRED_VALUE,
3540: END IF;
3541: IF (p_item2 = OKL_API.G_MISS_CHAR OR
3542: p_item2 IS NULL) THEN
3543: -- store SQL error message on message stack
3544: OKL_API.set_message(p_app_name => G_APP_NAME,
3545: p_msg_name => G_REQUIRED_VALUE,
3546: p_token1 => G_COL_NAME_TOKEN,
3547: p_token1_value => 'Item');
3548: -- halt validation as it is a required field
3547: p_token1_value => 'Item');
3548: -- halt validation as it is a required field
3549: RAISE G_EXCEPTION_STOP_VALIDATION;
3550: END IF;
3551: IF (p_ast_no = OKL_API.G_MISS_CHAR OR
3552: p_ast_no IS NULL) THEN
3553: -- store SQL error message on message stack
3554: OKL_API.set_message(p_app_name => G_APP_NAME,
3555: p_msg_name => G_REQUIRED_VALUE,
3550: END IF;
3551: IF (p_ast_no = OKL_API.G_MISS_CHAR OR
3552: p_ast_no IS NULL) THEN
3553: -- store SQL error message on message stack
3554: OKL_API.set_message(p_app_name => G_APP_NAME,
3555: p_msg_name => G_REQUIRED_VALUE,
3556: p_token1 => G_COL_NAME_TOKEN,
3557: p_token1_value => 'Asset Number');
3558: -- halt validation as it is a required field
3557: p_token1_value => 'Asset Number');
3558: -- halt validation as it is a required field
3559: RAISE G_EXCEPTION_STOP_VALIDATION;
3560: END IF;
3561: IF (p_ast_desc = OKL_API.G_MISS_CHAR OR
3562: p_ast_desc IS NULL) THEN
3563: -- store SQL error message on message stack
3564: OKL_API.set_message(p_app_name => G_APP_NAME,
3565: p_msg_name => G_REQUIRED_VALUE,
3560: END IF;
3561: IF (p_ast_desc = OKL_API.G_MISS_CHAR OR
3562: p_ast_desc IS NULL) THEN
3563: -- store SQL error message on message stack
3564: OKL_API.set_message(p_app_name => G_APP_NAME,
3565: p_msg_name => G_REQUIRED_VALUE,
3566: p_token1 => G_COL_NAME_TOKEN,
3567: p_token1_value => 'Description');
3568: -- halt validation as it is a required field
3567: p_token1_value => 'Description');
3568: -- halt validation as it is a required field
3569: RAISE G_EXCEPTION_STOP_VALIDATION;
3570: END IF;
3571: IF (p_cost = OKL_API.G_MISS_NUM OR
3572: p_cost IS NULL) THEN
3573: -- store SQL error message on message stack
3574: OKL_API.set_message(p_app_name => G_APP_NAME,
3575: p_msg_name => G_REQUIRED_VALUE,
3570: END IF;
3571: IF (p_cost = OKL_API.G_MISS_NUM OR
3572: p_cost IS NULL) THEN
3573: -- store SQL error message on message stack
3574: OKL_API.set_message(p_app_name => G_APP_NAME,
3575: p_msg_name => G_REQUIRED_VALUE,
3576: p_token1 => G_COL_NAME_TOKEN,
3577: p_token1_value => 'Unit Cost');
3578: -- halt validation as it is a required field
3579: RAISE G_EXCEPTION_STOP_VALIDATION;
3580: ELSE
3581: ln_dummy := sign(p_cost);
3582: IF ln_dummy = -1 THEN
3583: OKL_API.set_message(p_app_name => G_APP_NAME,
3584: p_msg_name => G_INVALID_VALUE,
3585: p_token1 => G_COL_NAME_TOKEN,
3586: p_token1_value => 'Unit Cost');
3587: -- halt validation as it is a required field
3587: -- halt validation as it is a required field
3588: RAISE G_EXCEPTION_STOP_VALIDATION;
3589: END IF;
3590: END IF;
3591: IF (ln3_dummy = OKL_API.G_MISS_NUM OR
3592: ln3_dummy IS NULL) THEN
3593: -- store SQL error message on message stack
3594: OKL_API.set_message(p_app_name => G_APP_NAME,
3595: p_msg_name => G_REQUIRED_VALUE,
3590: END IF;
3591: IF (ln3_dummy = OKL_API.G_MISS_NUM OR
3592: ln3_dummy IS NULL) THEN
3593: -- store SQL error message on message stack
3594: OKL_API.set_message(p_app_name => G_APP_NAME,
3595: p_msg_name => G_REQUIRED_VALUE,
3596: p_token1 => G_COL_NAME_TOKEN,
3597: p_token1_value => 'Units');
3598: -- halt validation as it is a required field
3599: RAISE G_EXCEPTION_STOP_VALIDATION;
3600: ELSE
3601: ln1_dummy := sign(p_units);
3602: IF ln1_dummy = -1 THEN
3603: OKL_API.set_message(p_app_name => G_APP_NAME,
3604: p_msg_name => G_INVALID_VALUE,
3605: p_token1 => G_COL_NAME_TOKEN,
3606: p_token1_value => 'Units');
3607: -- halt validation as it is a required field
3608: RAISE G_EXCEPTION_STOP_VALIDATION;
3609: END IF;
3610: ln2_dummy := instr(to_char(p_units),'.');
3611: IF ln2_dummy <> 0 THEN
3612: OKL_API.set_message(p_app_name => G_APP_NAME,
3613: p_msg_name => G_DECIMAL_VALUE,
3614: p_token1 => G_COL_NAME_TOKEN,
3615: p_token1_value => 'Units');
3616: -- halt validation as it is a required field
3616: -- halt validation as it is a required field
3617: RAISE G_EXCEPTION_STOP_VALIDATION;
3618: END IF;
3619: END IF;
3620: IF (p_ib_loc1 = OKL_API.G_MISS_CHAR OR
3621: p_ib_loc1 IS NULL) THEN
3622: -- store SQL error message on message stack
3623: OKL_API.set_message(p_app_name => G_APP_NAME,
3624: p_msg_name => G_REQUIRED_VALUE,
3619: END IF;
3620: IF (p_ib_loc1 = OKL_API.G_MISS_CHAR OR
3621: p_ib_loc1 IS NULL) THEN
3622: -- store SQL error message on message stack
3623: OKL_API.set_message(p_app_name => G_APP_NAME,
3624: p_msg_name => G_REQUIRED_VALUE,
3625: p_token1 => G_COL_NAME_TOKEN,
3626: p_token1_value => 'Installed Site');
3627: -- halt validation as it is a required field
3626: p_token1_value => 'Installed Site');
3627: -- halt validation as it is a required field
3628: RAISE G_EXCEPTION_STOP_VALIDATION;
3629: END IF;
3630: IF (p_ib_loc2 = OKL_API.G_MISS_CHAR OR
3631: p_ib_loc2 IS NULL) THEN
3632: -- store SQL error message on message stack
3633: OKL_API.set_message(p_app_name => G_APP_NAME,
3634: p_msg_name => G_REQUIRED_VALUE,
3629: END IF;
3630: IF (p_ib_loc2 = OKL_API.G_MISS_CHAR OR
3631: p_ib_loc2 IS NULL) THEN
3632: -- store SQL error message on message stack
3633: OKL_API.set_message(p_app_name => G_APP_NAME,
3634: p_msg_name => G_REQUIRED_VALUE,
3635: p_token1 => G_COL_NAME_TOKEN,
3636: p_token1_value => 'Installed Site');
3637: -- halt validation as it is a required field
3636: p_token1_value => 'Installed Site');
3637: -- halt validation as it is a required field
3638: RAISE G_EXCEPTION_STOP_VALIDATION;
3639: END IF;
3640: IF (p_fa_loc = OKL_API.G_MISS_NUM OR
3641: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3642: --Bug# 4419339
3643: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3644: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3639: END IF;
3640: IF (p_fa_loc = OKL_API.G_MISS_NUM OR
3641: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3642: --Bug# 4419339
3643: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3644: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3645: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3646: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3647: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3641: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3642: --Bug# 4419339
3643: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3644: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3645: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3646: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3647: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3648: -- store SQL error message on message stack
3649: OKL_API.set_message(p_app_name => G_APP_NAME,
3643: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3644: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3645: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3646: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3647: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3648: -- store SQL error message on message stack
3649: OKL_API.set_message(p_app_name => G_APP_NAME,
3650: p_msg_name => G_REQUIRED_VALUE,
3651: p_token1 => G_COL_NAME_TOKEN,
3645: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3646: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3647: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3648: -- store SQL error message on message stack
3649: OKL_API.set_message(p_app_name => G_APP_NAME,
3650: p_msg_name => G_REQUIRED_VALUE,
3651: p_token1 => G_COL_NAME_TOKEN,
3652: p_token1_value => 'Fixed Asset Location');
3653: -- halt validation as it is a required field
3658: EXCEPTION
3659: WHEN G_EXCEPTION_STOP_VALIDATION then
3660: -- We are here since the field is required
3661: -- Notify Error
3662: x_return_status := OKL_API.G_RET_STS_ERROR;
3663: RETURN(x_return_status);
3664: WHEN OTHERS THEN
3665: OKL_API.set_message(p_app_name => G_APP_NAME,
3666: p_msg_name => 'Error Message from Required values');
3661: -- Notify Error
3662: x_return_status := OKL_API.G_RET_STS_ERROR;
3663: RETURN(x_return_status);
3664: WHEN OTHERS THEN
3665: OKL_API.set_message(p_app_name => G_APP_NAME,
3666: p_msg_name => 'Error Message from Required values');
3667: -- store SQL error message on message stack
3668: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3669: p_msg_name => G_UNEXPECTED_ERROR,
3664: WHEN OTHERS THEN
3665: OKL_API.set_message(p_app_name => G_APP_NAME,
3666: p_msg_name => 'Error Message from Required values');
3667: -- store SQL error message on message stack
3668: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3669: p_msg_name => G_UNEXPECTED_ERROR,
3670: p_token1 => G_SQLCODE_TOKEN,
3671: p_token1_value => SQLCODE,
3672: p_token2 => G_SQLERRM_TOKEN,
3671: p_token1_value => SQLCODE,
3672: p_token2 => G_SQLERRM_TOKEN,
3673: p_token2_value => SQLERRM);
3674: -- notify caller of an error as UNEXPETED error
3675: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3676: RETURN(x_return_status);
3677: END check_required_values;
3678: --------------------------------------------------------------------------------------------
3679: -- Start of Commnets
3696: FROM OKL_TXL_ASSETS_V
3697: WHERE kle_id = p_kle_id; --);
3698: BEGIN
3699: -- initialize return status
3700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3701: -- data is required
3702: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3703: (p_klev_rec.id IS NULL) THEN
3704: -- store SQL error message on message stack
3698: BEGIN
3699: -- initialize return status
3700: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3701: -- data is required
3702: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3703: (p_klev_rec.id IS NULL) THEN
3704: -- store SQL error message on message stack
3705: OKL_API.set_message(p_app_name => G_APP_NAME,
3706: p_msg_name => G_REQUIRED_VALUE,
3701: -- data is required
3702: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3703: (p_klev_rec.id IS NULL) THEN
3704: -- store SQL error message on message stack
3705: OKL_API.set_message(p_app_name => G_APP_NAME,
3706: p_msg_name => G_REQUIRED_VALUE,
3707: p_token1 => G_COL_NAME_TOKEN,
3708: p_token1_value => 'OKL_TXL_ASSETS_V.KLE_ID');
3709: -- halt validation as it is a required field
3725: EXCEPTION
3726: WHEN G_EXCEPTION_STOP_VALIDATION then
3727: -- We are here since the field is required
3728: -- Notify Error
3729: x_return_status := OKL_API.G_RET_STS_ERROR;
3730: WHEN OTHERS THEN
3731: -- store SQL error message on message stack
3732: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3733: p_msg_name => G_UNEXPECTED_ERROR,
3728: -- Notify Error
3729: x_return_status := OKL_API.G_RET_STS_ERROR;
3730: WHEN OTHERS THEN
3731: -- store SQL error message on message stack
3732: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3733: p_msg_name => G_UNEXPECTED_ERROR,
3734: p_token1 => G_SQLCODE_TOKEN,
3735: p_token1_value => SQLCODE,
3736: p_token2 => G_SQLERRM_TOKEN,
3739: IF c_kle_id_validate%ISOPEN THEN
3740: CLOSE c_kle_id_validate;
3741: END IF;
3742: -- notify caller of an error as UNEXPETED error
3743: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3744: END validate_kle_id;
3745: --------------------------------------------------------------------------------------------------
3746: -- Start of Commnets
3747: -- Badrinath Kuchibholta
3763: FROM OKL_TXL_ITM_INSTS_V
3764: WHERE kle_id = p_kle_id; --);
3765: BEGIN
3766: -- initialize return status
3767: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3768: -- data is required
3769: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3770: (p_klev_rec.id IS NULL) THEN
3771: -- store SQL error message on message stack
3765: BEGIN
3766: -- initialize return status
3767: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3768: -- data is required
3769: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3770: (p_klev_rec.id IS NULL) THEN
3771: -- store SQL error message on message stack
3772: OKL_API.set_message(p_app_name => G_APP_NAME,
3773: p_msg_name => G_REQUIRED_VALUE,
3768: -- data is required
3769: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3770: (p_klev_rec.id IS NULL) THEN
3771: -- store SQL error message on message stack
3772: OKL_API.set_message(p_app_name => G_APP_NAME,
3773: p_msg_name => G_REQUIRED_VALUE,
3774: p_token1 => G_COL_NAME_TOKEN,
3775: p_token1_value => 'OKL_TXL_ITM_INSTS_V.KLE_ID');
3776: -- halt validation as it is a required field
3792: EXCEPTION
3793: WHEN G_EXCEPTION_STOP_VALIDATION then
3794: -- We are here since the field is required
3795: -- Notify Error
3796: x_return_status := OKL_API.G_RET_STS_ERROR;
3797: WHEN OTHERS THEN
3798: -- store SQL error message on message stack
3799: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3800: p_msg_name => G_UNEXPECTED_ERROR,
3795: -- Notify Error
3796: x_return_status := OKL_API.G_RET_STS_ERROR;
3797: WHEN OTHERS THEN
3798: -- store SQL error message on message stack
3799: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3800: p_msg_name => G_UNEXPECTED_ERROR,
3801: p_token1 => G_SQLCODE_TOKEN,
3802: p_token1_value => SQLCODE,
3803: p_token2 => G_SQLERRM_TOKEN,
3806: IF c_iti_kle_id_validate%ISOPEN THEN
3807: CLOSE c_iti_kle_id_validate;
3808: END IF;
3809: -- notify caller of an error as UNEXPETED error
3810: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3811: END validate_iti_kle_id;
3812: ----------------------------------------------------------------------------------------------------
3813: -- Start of Commnets
3814: -- Badrinath Kuchibholta
3868: AND cle.id = p_cle_id
3869: AND cle.chr_id = p_chr_id;
3870: BEGIN
3871: -- initialize return status
3872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3873: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3874: p_clev_rec.sts_code IS NULL) THEN
3875: -- store SQL error message on message stack
3876: OKL_API.set_message(p_app_name => G_APP_NAME,
3869: AND cle.chr_id = p_chr_id;
3870: BEGIN
3871: -- initialize return status
3872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3873: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3874: p_clev_rec.sts_code IS NULL) THEN
3875: -- store SQL error message on message stack
3876: OKL_API.set_message(p_app_name => G_APP_NAME,
3877: p_msg_name => G_REQUIRED_VALUE,
3872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3873: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3874: p_clev_rec.sts_code IS NULL) THEN
3875: -- store SQL error message on message stack
3876: OKL_API.set_message(p_app_name => G_APP_NAME,
3877: p_msg_name => G_REQUIRED_VALUE,
3878: p_token1 => G_COL_NAME_TOKEN,
3879: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3880: -- halt validation as it is a required field
3882: END IF;
3883: -- First Get the Lty _code we are going to validate
3884: OPEN c_lty_code_validate(p_clev_rec.lse_id);
3885: IF c_lty_code_validate%NOTFOUND THEN
3886: OKL_API.set_message(p_app_name => G_APP_NAME,
3887: p_msg_name => G_NO_MATCHING_RECORD,
3888: p_token1 => G_COL_NAME_TOKEN,
3889: p_token1_value => 'OKC_LINE_STYLE_V.LTY_CODE');
3890: -- halt validation as it is a required field
3898: OPEN c_sub_sub_line_sts_code(p_clev_rec.dnz_chr_id,
3899: p_clev_rec.id,
3900: lv_lty_code);
3901: IF c_sub_sub_line_sts_code%NOTFOUND THEN
3902: OKL_API.set_message(p_app_name => G_APP_NAME,
3903: p_msg_name => G_NO_MATCHING_RECORD,
3904: p_token1 => G_COL_NAME_TOKEN,
3905: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3906: -- halt validation as it is a required field
3914: OPEN c_sub_line_sts_code(p_clev_rec.dnz_chr_id,
3915: p_clev_rec.id,
3916: lv_lty_code);
3917: IF c_sub_line_sts_code%NOTFOUND THEN
3918: OKL_API.set_message(p_app_name => G_APP_NAME,
3919: p_msg_name => G_NO_MATCHING_RECORD,
3920: p_token1 => G_COL_NAME_TOKEN,
3921: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3922: -- halt validation as it is a required field
3928: OPEN c_top_line_sts_code(p_clev_rec.dnz_chr_id,
3929: p_clev_rec.id,
3930: p_clev_rec.chr_id);
3931: IF c_top_line_sts_code%NOTFOUND THEN
3932: OKL_API.set_message(p_app_name => G_APP_NAME,
3933: p_msg_name => G_NO_MATCHING_RECORD,
3934: p_token1 => G_COL_NAME_TOKEN,
3935: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3936: -- halt validation as it is a required field
3949: 'APPROVED',
3950: 'COMPLETE',
3951: 'INCOMPLETE',
3952: 'PASSED') THEN
3953: OKL_API.set_message(p_app_name => G_APP_NAME,
3954: p_msg_name => G_STATUS,
3955: p_token1 => 'STATUS',
3956: p_token1_value => lv_sts_code);
3957: -- halt validation as it is a required field
3960: EXCEPTION
3961: WHEN G_EXCEPTION_STOP_VALIDATION then
3962: -- We are here since the field is required
3963: -- Notify Error
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: WHEN G_EXCEPTION_HALT_VALIDATION then
3966: -- If the cursor is open then it has to be closed
3967: IF c_lty_code_validate%ISOPEN THEN
3968: CLOSE c_lty_code_validate;
3978: -- If the cursor is open then it has to be closed
3979: IF c_top_line_sts_code%ISOPEN THEN
3980: CLOSE c_top_line_sts_code;
3981: END IF;
3982: x_return_status := OKL_API.G_RET_STS_ERROR;
3983: WHEN OTHERS THEN
3984: -- store SQL error message on message stack
3985: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3986: p_msg_name => G_UNEXPECTED_ERROR,
3981: END IF;
3982: x_return_status := OKL_API.G_RET_STS_ERROR;
3983: WHEN OTHERS THEN
3984: -- store SQL error message on message stack
3985: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3986: p_msg_name => G_UNEXPECTED_ERROR,
3987: p_token1 => G_SQLCODE_TOKEN,
3988: p_token1_value => SQLCODE,
3989: p_token2 => G_SQLERRM_TOKEN,
4004: IF c_top_line_sts_code%ISOPEN THEN
4005: CLOSE c_top_line_sts_code;
4006: END IF;
4007: -- notify caller of an error as UNEXPETED error
4008: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4009: END validate_sts_code;
4010: ----------------------------------------------------------------------------------------------------------
4011: PROCEDURE Create_asset_header(
4012: p_api_version IN NUMBER,
4009: END validate_sts_code;
4010: ----------------------------------------------------------------------------------------------------------
4011: PROCEDURE Create_asset_header(
4012: p_api_version IN NUMBER,
4013: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4014: x_return_status OUT NOCOPY VARCHAR2,
4015: x_msg_count OUT NOCOPY NUMBER,
4016: x_msg_data OUT NOCOPY VARCHAR2,
4017: p_trxv_rec IN trxv_rec_type,
4017: p_trxv_rec IN trxv_rec_type,
4018: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
4019: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_ASSET_HEADER';
4020: BEGIN
4021: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4022: -- Call start_activity to create savepoint, check compatibility
4023: -- and initialize message list
4024: x_return_status := OKL_API.START_ACTIVITY (
4025: l_api_name
4020: BEGIN
4021: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4022: -- Call start_activity to create savepoint, check compatibility
4023: -- and initialize message list
4024: x_return_status := OKL_API.START_ACTIVITY (
4025: l_api_name
4026: ,p_init_msg_list
4027: ,'_PVT'
4028: ,x_return_status);
4026: ,p_init_msg_list
4027: ,'_PVT'
4028: ,x_return_status);
4029: -- Check if activity started successfully
4030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4033: RAISE OKL_API.G_EXCEPTION_ERROR;
4034: END IF;
4027: ,'_PVT'
4028: ,x_return_status);
4029: -- Check if activity started successfully
4030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4033: RAISE OKL_API.G_EXCEPTION_ERROR;
4034: END IF;
4035: -- evaluate conditions, build outcomes for true conditions and
4028: ,x_return_status);
4029: -- Check if activity started successfully
4030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4033: RAISE OKL_API.G_EXCEPTION_ERROR;
4034: END IF;
4035: -- evaluate conditions, build outcomes for true conditions and
4036: -- put them on outcome queue
4029: -- Check if activity started successfully
4030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4033: RAISE OKL_API.G_EXCEPTION_ERROR;
4034: END IF;
4035: -- evaluate conditions, build outcomes for true conditions and
4036: -- put them on outcome queue
4037: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
4041: x_msg_count => x_msg_count,
4042: x_msg_data => x_msg_data,
4043: p_thpv_rec => p_trxv_rec,
4044: x_thpv_rec => x_trxv_rec);
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4042: x_msg_data => x_msg_data,
4043: p_thpv_rec => p_trxv_rec,
4044: x_thpv_rec => x_trxv_rec);
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050: OKL_API.END_ACTIVITY (x_msg_count,
4043: p_thpv_rec => p_trxv_rec,
4044: x_thpv_rec => x_trxv_rec);
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050: OKL_API.END_ACTIVITY (x_msg_count,
4051: x_msg_data );
4044: x_thpv_rec => x_trxv_rec);
4045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050: OKL_API.END_ACTIVITY (x_msg_count,
4051: x_msg_data );
4052: EXCEPTION
4046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4048: RAISE OKL_API.G_EXCEPTION_ERROR;
4049: END IF;
4050: OKL_API.END_ACTIVITY (x_msg_count,
4051: x_msg_data );
4052: EXCEPTION
4053: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4054: OKL_API.set_message(p_app_name => G_APP_NAME,
4049: END IF;
4050: OKL_API.END_ACTIVITY (x_msg_count,
4051: x_msg_data );
4052: EXCEPTION
4053: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4054: OKL_API.set_message(p_app_name => G_APP_NAME,
4055: p_msg_name => G_TRX_ID);
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: l_api_name,
4050: OKL_API.END_ACTIVITY (x_msg_count,
4051: x_msg_data );
4052: EXCEPTION
4053: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4054: OKL_API.set_message(p_app_name => G_APP_NAME,
4055: p_msg_name => G_TRX_ID);
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: l_api_name,
4058: G_PKG_NAME,
4052: EXCEPTION
4053: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4054: OKL_API.set_message(p_app_name => G_APP_NAME,
4055: p_msg_name => G_TRX_ID);
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: l_api_name,
4058: G_PKG_NAME,
4059: 'OKL_API.G_RET_STS_ERROR',
4060: x_msg_count,
4055: p_msg_name => G_TRX_ID);
4056: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4057: l_api_name,
4058: G_PKG_NAME,
4059: 'OKL_API.G_RET_STS_ERROR',
4060: x_msg_count,
4061: x_msg_data,
4062: '_PVT');
4063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4059: 'OKL_API.G_RET_STS_ERROR',
4060: x_msg_count,
4061: x_msg_data,
4062: '_PVT');
4063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4064: OKL_API.set_message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_TRX_ID);
4066: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4067: l_api_name,
4060: x_msg_count,
4061: x_msg_data,
4062: '_PVT');
4063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4064: OKL_API.set_message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_TRX_ID);
4066: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4067: l_api_name,
4068: G_PKG_NAME,
4062: '_PVT');
4063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4064: OKL_API.set_message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_TRX_ID);
4066: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4067: l_api_name,
4068: G_PKG_NAME,
4069: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4070: x_msg_count,
4065: p_msg_name => G_TRX_ID);
4066: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4067: l_api_name,
4068: G_PKG_NAME,
4069: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4070: x_msg_count,
4071: x_msg_data,
4072: '_PVT');
4073: WHEN OTHERS THEN
4070: x_msg_count,
4071: x_msg_data,
4072: '_PVT');
4073: WHEN OTHERS THEN
4074: OKL_API.set_message(p_app_name => G_APP_NAME,
4075: p_msg_name => G_TRX_ID);
4076: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4077: l_api_name,
4078: G_PKG_NAME,
4072: '_PVT');
4073: WHEN OTHERS THEN
4074: OKL_API.set_message(p_app_name => G_APP_NAME,
4075: p_msg_name => G_TRX_ID);
4076: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4077: l_api_name,
4078: G_PKG_NAME,
4079: 'OTHERS',
4080: x_msg_count,
4085: -- Local Procedures for Update of Header record
4086: -- Incase where the error condition should be updated
4087: PROCEDURE Update_asset_header(
4088: p_api_version IN NUMBER,
4089: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4090: x_return_status OUT NOCOPY VARCHAR2,
4091: x_msg_count OUT NOCOPY NUMBER,
4092: x_msg_data OUT NOCOPY VARCHAR2,
4093: p_trxv_rec IN trxv_rec_type,
4093: p_trxv_rec IN trxv_rec_type,
4094: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
4095: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSET_HEADER';
4096: BEGIN
4097: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4098: -- Call start_activity to create savepoint, check compatibility
4099: -- and initialize message list
4100: x_return_status := OKL_API.START_ACTIVITY (
4101: l_api_name
4096: BEGIN
4097: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4098: -- Call start_activity to create savepoint, check compatibility
4099: -- and initialize message list
4100: x_return_status := OKL_API.START_ACTIVITY (
4101: l_api_name
4102: ,p_init_msg_list
4103: ,'_PVT'
4104: ,x_return_status);
4102: ,p_init_msg_list
4103: ,'_PVT'
4104: ,x_return_status);
4105: -- Check if activity started successfully
4106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4103: ,'_PVT'
4104: ,x_return_status);
4105: -- Check if activity started successfully
4106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4111: -- evaluate conditions, build outcomes for true conditions and
4104: ,x_return_status);
4105: -- Check if activity started successfully
4106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4111: -- evaluate conditions, build outcomes for true conditions and
4112: -- put them on outcome queue
4105: -- Check if activity started successfully
4106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4109: RAISE OKL_API.G_EXCEPTION_ERROR;
4110: END IF;
4111: -- evaluate conditions, build outcomes for true conditions and
4112: -- put them on outcome queue
4113: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
4117: x_msg_count => x_msg_count,
4118: x_msg_data => x_msg_data,
4119: p_thpv_rec => p_trxv_rec,
4120: x_thpv_rec => x_trxv_rec);
4121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4124: RAISE OKL_API.G_EXCEPTION_ERROR;
4125: END IF;
4118: x_msg_data => x_msg_data,
4119: p_thpv_rec => p_trxv_rec,
4120: x_thpv_rec => x_trxv_rec);
4121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4124: RAISE OKL_API.G_EXCEPTION_ERROR;
4125: END IF;
4126: OKL_API.END_ACTIVITY (x_msg_count,
4119: p_thpv_rec => p_trxv_rec,
4120: x_thpv_rec => x_trxv_rec);
4121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4124: RAISE OKL_API.G_EXCEPTION_ERROR;
4125: END IF;
4126: OKL_API.END_ACTIVITY (x_msg_count,
4127: x_msg_data );
4120: x_thpv_rec => x_trxv_rec);
4121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4124: RAISE OKL_API.G_EXCEPTION_ERROR;
4125: END IF;
4126: OKL_API.END_ACTIVITY (x_msg_count,
4127: x_msg_data );
4128: EXCEPTION
4122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4124: RAISE OKL_API.G_EXCEPTION_ERROR;
4125: END IF;
4126: OKL_API.END_ACTIVITY (x_msg_count,
4127: x_msg_data );
4128: EXCEPTION
4129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4130: OKL_API.set_message(p_app_name => G_APP_NAME,
4125: END IF;
4126: OKL_API.END_ACTIVITY (x_msg_count,
4127: x_msg_data );
4128: EXCEPTION
4129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4130: OKL_API.set_message(p_app_name => G_APP_NAME,
4131: p_msg_name => G_TRX_ID);
4132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4133: l_api_name,
4126: OKL_API.END_ACTIVITY (x_msg_count,
4127: x_msg_data );
4128: EXCEPTION
4129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4130: OKL_API.set_message(p_app_name => G_APP_NAME,
4131: p_msg_name => G_TRX_ID);
4132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4133: l_api_name,
4134: G_PKG_NAME,
4128: EXCEPTION
4129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4130: OKL_API.set_message(p_app_name => G_APP_NAME,
4131: p_msg_name => G_TRX_ID);
4132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4133: l_api_name,
4134: G_PKG_NAME,
4135: 'OKL_API.G_RET_STS_ERROR',
4136: x_msg_count,
4131: p_msg_name => G_TRX_ID);
4132: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4133: l_api_name,
4134: G_PKG_NAME,
4135: 'OKL_API.G_RET_STS_ERROR',
4136: x_msg_count,
4137: x_msg_data,
4138: '_PVT');
4139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4135: 'OKL_API.G_RET_STS_ERROR',
4136: x_msg_count,
4137: x_msg_data,
4138: '_PVT');
4139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4140: OKL_API.set_message(p_app_name => G_APP_NAME,
4141: p_msg_name => G_TRX_ID);
4142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4143: l_api_name,
4136: x_msg_count,
4137: x_msg_data,
4138: '_PVT');
4139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4140: OKL_API.set_message(p_app_name => G_APP_NAME,
4141: p_msg_name => G_TRX_ID);
4142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4143: l_api_name,
4144: G_PKG_NAME,
4138: '_PVT');
4139: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4140: OKL_API.set_message(p_app_name => G_APP_NAME,
4141: p_msg_name => G_TRX_ID);
4142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4143: l_api_name,
4144: G_PKG_NAME,
4145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4146: x_msg_count,
4141: p_msg_name => G_TRX_ID);
4142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4143: l_api_name,
4144: G_PKG_NAME,
4145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4146: x_msg_count,
4147: x_msg_data,
4148: '_PVT');
4149: WHEN OTHERS THEN
4146: x_msg_count,
4147: x_msg_data,
4148: '_PVT');
4149: WHEN OTHERS THEN
4150: OKL_API.set_message(p_app_name => G_APP_NAME,
4151: p_msg_name => G_TRX_ID);
4152: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4153: l_api_name,
4154: G_PKG_NAME,
4148: '_PVT');
4149: WHEN OTHERS THEN
4150: OKL_API.set_message(p_app_name => G_APP_NAME,
4151: p_msg_name => G_TRX_ID);
4152: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4153: l_api_name,
4154: G_PKG_NAME,
4155: 'OTHERS',
4156: x_msg_count,
4159: END Update_asset_header;
4160: ------------------------------------------------------------------------------------------------------
4161: PROCEDURE Create_asset_lines(
4162: p_api_version IN NUMBER,
4163: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4164: x_return_status OUT NOCOPY VARCHAR2,
4165: x_msg_count OUT NOCOPY NUMBER,
4166: x_msg_data OUT NOCOPY VARCHAR2,
4167: p_talv_rec IN talv_rec_type,
4175: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
4176: l_legal_entity_id NUMBER;
4177:
4178: BEGIN
4179: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4180: -- Call start_activity to create savepoint, check compatibility
4181: -- and initialize message list
4182: x_return_status := OKL_API.START_ACTIVITY (
4183: l_api_name
4178: BEGIN
4179: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4180: -- Call start_activity to create savepoint, check compatibility
4181: -- and initialize message list
4182: x_return_status := OKL_API.START_ACTIVITY (
4183: l_api_name
4184: ,p_init_msg_list
4185: ,'_PVT'
4186: ,x_return_status);
4184: ,p_init_msg_list
4185: ,'_PVT'
4186: ,x_return_status);
4187: -- Check if activity started successfully
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4185: ,'_PVT'
4186: ,x_return_status);
4187: -- Check if activity started successfully
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: -- Create New Header record and new Line record
4186: ,x_return_status);
4187: -- Check if activity started successfully
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: -- Create New Header record and new Line record
4194: -- Before creating Header record
4187: -- Check if activity started successfully
4188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4191: RAISE OKL_API.G_EXCEPTION_ERROR;
4192: END IF;
4193: -- Create New Header record and new Line record
4194: -- Before creating Header record
4195: -- we should make sure atleast the required record is given
4195: -- we should make sure atleast the required record is given
4196: l_trxv_rec.tas_type := 'CFA';
4197: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4198: x_try_id => l_trxv_rec.try_id);
4199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4202: RAISE OKL_API.G_EXCEPTION_ERROR;
4203: END IF;
4196: l_trxv_rec.tas_type := 'CFA';
4197: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4198: x_try_id => l_trxv_rec.try_id);
4199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4202: RAISE OKL_API.G_EXCEPTION_ERROR;
4203: END IF;
4204: l_trxv_rec.tsu_code := 'ENTERED';
4197: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4198: x_try_id => l_trxv_rec.try_id);
4199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4202: RAISE OKL_API.G_EXCEPTION_ERROR;
4203: END IF;
4204: l_trxv_rec.tsu_code := 'ENTERED';
4205: l_trxv_rec.date_trans_occurred := sysdate;
4198: x_try_id => l_trxv_rec.try_id);
4199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4202: RAISE OKL_API.G_EXCEPTION_ERROR;
4203: END IF;
4204: l_trxv_rec.tsu_code := 'ENTERED';
4205: l_trxv_rec.date_trans_occurred := sysdate;
4206:
4213: -- get the contract number
4214: OPEN contract_num_csr(p_talv_rec.dnz_khr_id);
4215: FETCH contract_num_csr INTO l_cntrct_number;
4216: CLOSE contract_num_csr;
4217: Okl_Api.set_message(p_app_name => g_app_name,
4218: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4219: p_token1 => 'CONTRACT_NUMBER',
4220: p_token1_value => l_cntrct_number);
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4217: Okl_Api.set_message(p_app_name => g_app_name,
4218: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4219: p_token1 => 'CONTRACT_NUMBER',
4220: p_token1_value => l_cntrct_number);
4221: RAISE OKL_API.G_EXCEPTION_ERROR;
4222: END IF;
4223: -- Now creating the new header record
4224: Create_asset_header(p_api_version => p_api_version,
4225: p_init_msg_list => p_init_msg_list,
4227: x_msg_count => x_msg_count,
4228: x_msg_data => x_msg_data,
4229: p_trxv_rec => l_trxv_rec,
4230: x_trxv_rec => x_trxv_rec);
4231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4232: l_trxv_rec := x_trxv_rec;
4233: l_trxv_rec.tsu_code := 'ERROR';
4234: Update_asset_header(p_api_version => p_api_version,
4235: p_init_msg_list => p_init_msg_list,
4237: x_msg_count => x_msg_count,
4238: x_msg_data => x_msg_data,
4239: p_trxv_rec => l_trxv_rec,
4240: x_trxv_rec => x_trxv_rec);
4241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4238: x_msg_data => x_msg_data,
4239: p_trxv_rec => l_trxv_rec,
4240: x_trxv_rec => x_trxv_rec);
4241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4239: p_trxv_rec => l_trxv_rec,
4240: x_trxv_rec => x_trxv_rec);
4241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4240: x_trxv_rec => x_trxv_rec);
4241: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4248: l_trxv_rec := x_trxv_rec;
4242: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4248: l_trxv_rec := x_trxv_rec;
4249: l_trxv_rec.tsu_code := 'ERROR';
4250: Update_asset_header(p_api_version => p_api_version,
4243: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4244: RAISE OKL_API.G_EXCEPTION_ERROR;
4245: END IF;
4246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4248: l_trxv_rec := x_trxv_rec;
4249: l_trxv_rec.tsu_code := 'ERROR';
4250: Update_asset_header(p_api_version => p_api_version,
4251: p_init_msg_list => p_init_msg_list,
4253: x_msg_count => x_msg_count,
4254: x_msg_data => x_msg_data,
4255: p_trxv_rec => l_trxv_rec,
4256: x_trxv_rec => x_trxv_rec);
4257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4260: RAISE OKL_API.G_EXCEPTION_ERROR;
4261: END IF;
4254: x_msg_data => x_msg_data,
4255: p_trxv_rec => l_trxv_rec,
4256: x_trxv_rec => x_trxv_rec);
4257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4260: RAISE OKL_API.G_EXCEPTION_ERROR;
4261: END IF;
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4255: p_trxv_rec => l_trxv_rec,
4256: x_trxv_rec => x_trxv_rec);
4257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4260: RAISE OKL_API.G_EXCEPTION_ERROR;
4261: END IF;
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4256: x_trxv_rec => x_trxv_rec);
4257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4260: RAISE OKL_API.G_EXCEPTION_ERROR;
4261: END IF;
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: -- Now we are creating the new line record
4258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4260: RAISE OKL_API.G_EXCEPTION_ERROR;
4261: END IF;
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: -- Now we are creating the new line record
4265: l_talv_rec := p_talv_rec;
4266: l_talv_rec.tas_id := x_trxv_rec.id;
4263: END IF;
4264: -- Now we are creating the new line record
4265: l_talv_rec := p_talv_rec;
4266: l_talv_rec.tas_id := x_trxv_rec.id;
4267: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
4268: l_talv_rec.tal_type IS NUll) THEN
4269: l_talv_rec.tal_type := 'CFA';
4270: END IF;
4271: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
4267: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
4268: l_talv_rec.tal_type IS NUll) THEN
4269: l_talv_rec.tal_type := 'CFA';
4270: END IF;
4271: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
4272: l_talv_rec.line_number IS NUll) THEN
4273: l_talv_rec.line_number := 1;
4274: ELSE
4275: l_talv_rec.line_number := l_talv_rec.line_number + 1;
4273: l_talv_rec.line_number := 1;
4274: ELSE
4275: l_talv_rec.line_number := l_talv_rec.line_number + 1;
4276: END IF;
4277: IF (l_talv_rec.description = OKL_API.G_MISS_CHAR OR
4278: l_talv_rec.description IS NUll) THEN
4279: l_talv_rec.description := 'CREATION OF FIXED ASSETS' ;
4280: END IF;
4281: -- evaluate conditions, build outcomes for true conditions and
4287: x_msg_count => x_msg_count,
4288: x_msg_data => x_msg_data,
4289: p_tlpv_rec => l_talv_rec,
4290: x_tlpv_rec => x_talv_rec);
4291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4292: OKL_API.set_message(p_app_name => G_APP_NAME,
4293: p_msg_name => G_KLE_ID);
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4288: x_msg_data => x_msg_data,
4289: p_tlpv_rec => l_talv_rec,
4290: x_tlpv_rec => x_talv_rec);
4291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4292: OKL_API.set_message(p_app_name => G_APP_NAME,
4293: p_msg_name => G_KLE_ID);
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4290: x_tlpv_rec => x_talv_rec);
4291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4292: OKL_API.set_message(p_app_name => G_APP_NAME,
4293: p_msg_name => G_KLE_ID);
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4297: p_msg_name => G_KLE_ID);
4298: RAISE OKL_API.G_EXCEPTION_ERROR;
4291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4292: OKL_API.set_message(p_app_name => G_APP_NAME,
4293: p_msg_name => G_KLE_ID);
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4297: p_msg_name => G_KLE_ID);
4298: RAISE OKL_API.G_EXCEPTION_ERROR;
4299: END IF;
4292: OKL_API.set_message(p_app_name => G_APP_NAME,
4293: p_msg_name => G_KLE_ID);
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4297: p_msg_name => G_KLE_ID);
4298: RAISE OKL_API.G_EXCEPTION_ERROR;
4299: END IF;
4300: OKL_API.END_ACTIVITY (x_msg_count,
4294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4295: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4297: p_msg_name => G_KLE_ID);
4298: RAISE OKL_API.G_EXCEPTION_ERROR;
4299: END IF;
4300: OKL_API.END_ACTIVITY (x_msg_count,
4301: x_msg_data );
4302: EXCEPTION
4296: OKL_API.set_message(p_app_name => G_APP_NAME,
4297: p_msg_name => G_KLE_ID);
4298: RAISE OKL_API.G_EXCEPTION_ERROR;
4299: END IF;
4300: OKL_API.END_ACTIVITY (x_msg_count,
4301: x_msg_data );
4302: EXCEPTION
4303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4299: END IF;
4300: OKL_API.END_ACTIVITY (x_msg_count,
4301: x_msg_data );
4302: EXCEPTION
4303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4305: l_api_name,
4306: G_PKG_NAME,
4307: 'OKL_API.G_RET_STS_ERROR',
4300: OKL_API.END_ACTIVITY (x_msg_count,
4301: x_msg_data );
4302: EXCEPTION
4303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4305: l_api_name,
4306: G_PKG_NAME,
4307: 'OKL_API.G_RET_STS_ERROR',
4308: x_msg_count,
4303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4305: l_api_name,
4306: G_PKG_NAME,
4307: 'OKL_API.G_RET_STS_ERROR',
4308: x_msg_count,
4309: x_msg_data,
4310: '_PVT');
4311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4307: 'OKL_API.G_RET_STS_ERROR',
4308: x_msg_count,
4309: x_msg_data,
4310: '_PVT');
4311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4312: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4313: l_api_name,
4314: G_PKG_NAME,
4315: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4308: x_msg_count,
4309: x_msg_data,
4310: '_PVT');
4311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4312: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4313: l_api_name,
4314: G_PKG_NAME,
4315: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4316: x_msg_count,
4311: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4312: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4313: l_api_name,
4314: G_PKG_NAME,
4315: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4316: x_msg_count,
4317: x_msg_data,
4318: '_PVT');
4319: WHEN OTHERS THEN
4316: x_msg_count,
4317: x_msg_data,
4318: '_PVT');
4319: WHEN OTHERS THEN
4320: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4321: l_api_name,
4322: G_PKG_NAME,
4323: 'OTHERS',
4324: x_msg_count,
4328: -------------------------------------------------------------------------------------------------------------------
4329: -- Local Procedures for update of line record
4330: PROCEDURE Update_asset_lines(
4331: p_api_version IN NUMBER,
4332: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4333: x_return_status OUT NOCOPY VARCHAR2,
4334: x_msg_count OUT NOCOPY NUMBER,
4335: x_msg_data OUT NOCOPY VARCHAR2,
4336: p_talv_rec IN talv_rec_type,
4336: p_talv_rec IN talv_rec_type,
4337: x_talv_rec OUT NOCOPY talv_rec_type) IS
4338: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXL_ASSET_LINE';
4339: BEGIN
4340: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4341: -- Call start_activity to create savepoint, check compatibility
4342: -- and initialize message list
4343: x_return_status := OKL_API.START_ACTIVITY (
4344: l_api_name
4339: BEGIN
4340: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4341: -- Call start_activity to create savepoint, check compatibility
4342: -- and initialize message list
4343: x_return_status := OKL_API.START_ACTIVITY (
4344: l_api_name
4345: ,p_init_msg_list
4346: ,'_PVT'
4347: ,x_return_status);
4345: ,p_init_msg_list
4346: ,'_PVT'
4347: ,x_return_status);
4348: -- Check if activity started successfully
4349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4352: RAISE OKL_API.G_EXCEPTION_ERROR;
4353: END IF;
4346: ,'_PVT'
4347: ,x_return_status);
4348: -- Check if activity started successfully
4349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4352: RAISE OKL_API.G_EXCEPTION_ERROR;
4353: END IF;
4354: -- evaluate conditions, build outcomes for true conditions and
4347: ,x_return_status);
4348: -- Check if activity started successfully
4349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4352: RAISE OKL_API.G_EXCEPTION_ERROR;
4353: END IF;
4354: -- evaluate conditions, build outcomes for true conditions and
4355: -- put them on outcome queue
4348: -- Check if activity started successfully
4349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4352: RAISE OKL_API.G_EXCEPTION_ERROR;
4353: END IF;
4354: -- evaluate conditions, build outcomes for true conditions and
4355: -- put them on outcome queue
4356: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
4360: x_msg_count => x_msg_count,
4361: x_msg_data => x_msg_data,
4362: p_tlpv_rec => p_talv_rec,
4363: x_tlpv_rec => x_talv_rec);
4364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4367: RAISE OKL_API.G_EXCEPTION_ERROR;
4368: END IF;
4361: x_msg_data => x_msg_data,
4362: p_tlpv_rec => p_talv_rec,
4363: x_tlpv_rec => x_talv_rec);
4364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4367: RAISE OKL_API.G_EXCEPTION_ERROR;
4368: END IF;
4369: OKL_API.END_ACTIVITY (x_msg_count,
4362: p_tlpv_rec => p_talv_rec,
4363: x_tlpv_rec => x_talv_rec);
4364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4367: RAISE OKL_API.G_EXCEPTION_ERROR;
4368: END IF;
4369: OKL_API.END_ACTIVITY (x_msg_count,
4370: x_msg_data );
4363: x_tlpv_rec => x_talv_rec);
4364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4367: RAISE OKL_API.G_EXCEPTION_ERROR;
4368: END IF;
4369: OKL_API.END_ACTIVITY (x_msg_count,
4370: x_msg_data );
4371: EXCEPTION
4365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4367: RAISE OKL_API.G_EXCEPTION_ERROR;
4368: END IF;
4369: OKL_API.END_ACTIVITY (x_msg_count,
4370: x_msg_data );
4371: EXCEPTION
4372: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4373: OKL_API.set_message(p_app_name => G_APP_NAME,
4368: END IF;
4369: OKL_API.END_ACTIVITY (x_msg_count,
4370: x_msg_data );
4371: EXCEPTION
4372: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4373: OKL_API.set_message(p_app_name => G_APP_NAME,
4374: p_msg_name => G_KLE_ID);
4375: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4376: l_api_name,
4369: OKL_API.END_ACTIVITY (x_msg_count,
4370: x_msg_data );
4371: EXCEPTION
4372: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4373: OKL_API.set_message(p_app_name => G_APP_NAME,
4374: p_msg_name => G_KLE_ID);
4375: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4376: l_api_name,
4377: G_PKG_NAME,
4371: EXCEPTION
4372: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4373: OKL_API.set_message(p_app_name => G_APP_NAME,
4374: p_msg_name => G_KLE_ID);
4375: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4376: l_api_name,
4377: G_PKG_NAME,
4378: 'OKL_API.G_RET_STS_ERROR',
4379: x_msg_count,
4374: p_msg_name => G_KLE_ID);
4375: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4376: l_api_name,
4377: G_PKG_NAME,
4378: 'OKL_API.G_RET_STS_ERROR',
4379: x_msg_count,
4380: x_msg_data,
4381: '_PVT');
4382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4378: 'OKL_API.G_RET_STS_ERROR',
4379: x_msg_count,
4380: x_msg_data,
4381: '_PVT');
4382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4383: OKL_API.set_message(p_app_name => G_APP_NAME,
4384: p_msg_name => G_KLE_ID);
4385: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4386: l_api_name,
4379: x_msg_count,
4380: x_msg_data,
4381: '_PVT');
4382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4383: OKL_API.set_message(p_app_name => G_APP_NAME,
4384: p_msg_name => G_KLE_ID);
4385: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4386: l_api_name,
4387: G_PKG_NAME,
4381: '_PVT');
4382: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4383: OKL_API.set_message(p_app_name => G_APP_NAME,
4384: p_msg_name => G_KLE_ID);
4385: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4386: l_api_name,
4387: G_PKG_NAME,
4388: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4389: x_msg_count,
4384: p_msg_name => G_KLE_ID);
4385: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4386: l_api_name,
4387: G_PKG_NAME,
4388: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4389: x_msg_count,
4390: x_msg_data,
4391: '_PVT');
4392: WHEN OTHERS THEN
4389: x_msg_count,
4390: x_msg_data,
4391: '_PVT');
4392: WHEN OTHERS THEN
4393: OKL_API.set_message(p_app_name => G_APP_NAME,
4394: p_msg_name => G_KLE_ID);
4395: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4396: l_api_name,
4397: G_PKG_NAME,
4391: '_PVT');
4392: WHEN OTHERS THEN
4393: OKL_API.set_message(p_app_name => G_APP_NAME,
4394: p_msg_name => G_KLE_ID);
4395: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4396: l_api_name,
4397: G_PKG_NAME,
4398: 'OTHERS',
4399: x_msg_count,
4411: -- Version :
4412: -- End of Commnets
4413: PROCEDURE Create_asset_line_details(
4414: p_api_version IN NUMBER,
4415: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4416: x_return_status OUT NOCOPY VARCHAR2,
4417: x_msg_count OUT NOCOPY NUMBER,
4418: x_msg_data OUT NOCOPY VARCHAR2,
4419: p_txdv_tbl IN txdv_tbl_type,
4422: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXD_ASSET_DTL';
4423: i NUMBER := 0;
4424: l_txdv_tbl txdv_tbl_type := p_txdv_tbl;
4425: BEGIN
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427: -- Call start_activity to create savepoint, check compatibility
4428: -- and initialize message list
4429: x_return_status := OKL_API.START_ACTIVITY (
4430: l_api_name
4425: BEGIN
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427: -- Call start_activity to create savepoint, check compatibility
4428: -- and initialize message list
4429: x_return_status := OKL_API.START_ACTIVITY (
4430: l_api_name
4431: ,p_init_msg_list
4432: ,'_PVT'
4433: ,x_return_status);
4431: ,p_init_msg_list
4432: ,'_PVT'
4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4432: ,'_PVT'
4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440: IF (p_txdv_tbl.COUNT > 0) THEN
4433: ,x_return_status);
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440: IF (p_txdv_tbl.COUNT > 0) THEN
4441: i := p_txdv_tbl.FIRST;
4434: -- Check if activity started successfully
4435: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4438: RAISE OKL_API.G_EXCEPTION_ERROR;
4439: END IF;
4440: IF (p_txdv_tbl.COUNT > 0) THEN
4441: i := p_txdv_tbl.FIRST;
4442: LOOP
4443: Validate_asset_tax_book(x_return_status => x_return_status,
4444: p_asset_number => l_txdv_tbl(i).asset_number,
4445: p_tax_book => l_txdv_tbl(i).tax_book,
4446: p_tal_id => l_txdv_tbl(i).tal_id);
4447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4451: END IF;
4444: p_asset_number => l_txdv_tbl(i).asset_number,
4445: p_tax_book => l_txdv_tbl(i).tax_book,
4446: p_tal_id => l_txdv_tbl(i).tal_id);
4447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4451: END IF;
4452: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4445: p_tax_book => l_txdv_tbl(i).tax_book,
4446: p_tal_id => l_txdv_tbl(i).tal_id);
4447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4451: END IF;
4452: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4453: p_api_version => p_api_version,
4446: p_tal_id => l_txdv_tbl(i).tal_id);
4447: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4451: END IF;
4452: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4453: p_api_version => p_api_version,
4454: p_init_msg_list => p_init_msg_list,
4456: x_msg_count => x_msg_count,
4457: x_msg_data => x_msg_data,
4458: p_adpv_rec => p_txdv_tbl(i),
4459: x_adpv_rec => x_txdv_tbl(i));
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4464: END IF;
4457: x_msg_data => x_msg_data,
4458: p_adpv_rec => p_txdv_tbl(i),
4459: x_adpv_rec => x_txdv_tbl(i));
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4464: END IF;
4465: EXIT WHEN (i = p_txdv_tbl.LAST);
4458: p_adpv_rec => p_txdv_tbl(i),
4459: x_adpv_rec => x_txdv_tbl(i));
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4464: END IF;
4465: EXIT WHEN (i = p_txdv_tbl.LAST);
4466: i := p_txdv_tbl.NEXT(i);
4459: x_adpv_rec => x_txdv_tbl(i));
4460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4464: END IF;
4465: EXIT WHEN (i = p_txdv_tbl.LAST);
4466: i := p_txdv_tbl.NEXT(i);
4467: END LOOP;
4464: END IF;
4465: EXIT WHEN (i = p_txdv_tbl.LAST);
4466: i := p_txdv_tbl.NEXT(i);
4467: END LOOP;
4468: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4465: EXIT WHEN (i = p_txdv_tbl.LAST);
4466: i := p_txdv_tbl.NEXT(i);
4467: END LOOP;
4468: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473: END IF;
4466: i := p_txdv_tbl.NEXT(i);
4467: END LOOP;
4468: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473: END IF;
4474: OKL_API.END_ACTIVITY (x_msg_count,
4467: END LOOP;
4468: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4470: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473: END IF;
4474: OKL_API.END_ACTIVITY (x_msg_count,
4475: x_msg_data );
4470: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4471: RAISE OKL_API.G_EXCEPTION_ERROR;
4472: END IF;
4473: END IF;
4474: OKL_API.END_ACTIVITY (x_msg_count,
4475: x_msg_data );
4476: EXCEPTION
4477: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4478: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4473: END IF;
4474: OKL_API.END_ACTIVITY (x_msg_count,
4475: x_msg_data );
4476: EXCEPTION
4477: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4478: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4479: l_api_name,
4480: G_PKG_NAME,
4481: 'OKL_API.G_RET_STS_ERROR',
4474: OKL_API.END_ACTIVITY (x_msg_count,
4475: x_msg_data );
4476: EXCEPTION
4477: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4478: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4479: l_api_name,
4480: G_PKG_NAME,
4481: 'OKL_API.G_RET_STS_ERROR',
4482: x_msg_count,
4477: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4478: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4479: l_api_name,
4480: G_PKG_NAME,
4481: 'OKL_API.G_RET_STS_ERROR',
4482: x_msg_count,
4483: x_msg_data,
4484: '_PVT');
4485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4481: 'OKL_API.G_RET_STS_ERROR',
4482: x_msg_count,
4483: x_msg_data,
4484: '_PVT');
4485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4487: l_api_name,
4488: G_PKG_NAME,
4489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4482: x_msg_count,
4483: x_msg_data,
4484: '_PVT');
4485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4487: l_api_name,
4488: G_PKG_NAME,
4489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4490: x_msg_count,
4485: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4487: l_api_name,
4488: G_PKG_NAME,
4489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4490: x_msg_count,
4491: x_msg_data,
4492: '_PVT');
4493: WHEN OTHERS THEN
4490: x_msg_count,
4491: x_msg_data,
4492: '_PVT');
4493: WHEN OTHERS THEN
4494: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4495: l_api_name,
4496: G_PKG_NAME,
4497: 'OTHERS',
4498: x_msg_count,
4510: -- Version :
4511: -- End of Commnets
4512: PROCEDURE update_asset_line_details(
4513: p_api_version IN NUMBER,
4514: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4515: x_return_status OUT NOCOPY VARCHAR2,
4516: x_msg_count OUT NOCOPY NUMBER,
4517: x_msg_data OUT NOCOPY VARCHAR2,
4518: p_txdv_tbl IN txdv_tbl_type,
4521: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4522: i NUMBER := 0;
4523: l_txdv_tbl txdv_tbl_type := p_txdv_tbl;
4524: BEGIN
4525: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4526: -- Call start_activity to create savepoint, check compatibility
4527: -- and initialize message list
4528: x_return_status := OKL_API.START_ACTIVITY (
4529: l_api_name
4524: BEGIN
4525: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4526: -- Call start_activity to create savepoint, check compatibility
4527: -- and initialize message list
4528: x_return_status := OKL_API.START_ACTIVITY (
4529: l_api_name
4530: ,p_init_msg_list
4531: ,'_PVT'
4532: ,x_return_status);
4530: ,p_init_msg_list
4531: ,'_PVT'
4532: ,x_return_status);
4533: -- Check if activity started successfully
4534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4536: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4537: RAISE OKL_API.G_EXCEPTION_ERROR;
4538: END IF;
4531: ,'_PVT'
4532: ,x_return_status);
4533: -- Check if activity started successfully
4534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4536: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4537: RAISE OKL_API.G_EXCEPTION_ERROR;
4538: END IF;
4539: IF (p_txdv_tbl.COUNT > 0) THEN
4532: ,x_return_status);
4533: -- Check if activity started successfully
4534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4536: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4537: RAISE OKL_API.G_EXCEPTION_ERROR;
4538: END IF;
4539: IF (p_txdv_tbl.COUNT > 0) THEN
4540: i := p_txdv_tbl.FIRST;
4533: -- Check if activity started successfully
4534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4536: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4537: RAISE OKL_API.G_EXCEPTION_ERROR;
4538: END IF;
4539: IF (p_txdv_tbl.COUNT > 0) THEN
4540: i := p_txdv_tbl.FIRST;
4541: LOOP
4542: Validate_asset_tax_book(x_return_status => x_return_status,
4543: p_asset_number => l_txdv_tbl(i).asset_number,
4544: p_tax_book => l_txdv_tbl(i).tax_book,
4545: p_tal_id => l_txdv_tbl(i).tal_id);
4546: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4547: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4548: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4550: END IF;
4543: p_asset_number => l_txdv_tbl(i).asset_number,
4544: p_tax_book => l_txdv_tbl(i).tax_book,
4545: p_tal_id => l_txdv_tbl(i).tal_id);
4546: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4547: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4548: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4550: END IF;
4551: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4544: p_tax_book => l_txdv_tbl(i).tax_book,
4545: p_tal_id => l_txdv_tbl(i).tal_id);
4546: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4547: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4548: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4550: END IF;
4551: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4552: p_api_version => p_api_version,
4545: p_tal_id => l_txdv_tbl(i).tal_id);
4546: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4547: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4548: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4549: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4550: END IF;
4551: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4552: p_api_version => p_api_version,
4553: p_init_msg_list => p_init_msg_list,
4555: x_msg_count => x_msg_count,
4556: x_msg_data => x_msg_data,
4557: p_adpv_rec => p_txdv_tbl(i),
4558: x_adpv_rec => x_txdv_tbl(i));
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4563: END IF;
4556: x_msg_data => x_msg_data,
4557: p_adpv_rec => p_txdv_tbl(i),
4558: x_adpv_rec => x_txdv_tbl(i));
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4563: END IF;
4564: EXIT WHEN (i = p_txdv_tbl.LAST);
4557: p_adpv_rec => p_txdv_tbl(i),
4558: x_adpv_rec => x_txdv_tbl(i));
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4563: END IF;
4564: EXIT WHEN (i = p_txdv_tbl.LAST);
4565: i := p_txdv_tbl.NEXT(i);
4558: x_adpv_rec => x_txdv_tbl(i));
4559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4560: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4562: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4563: END IF;
4564: EXIT WHEN (i = p_txdv_tbl.LAST);
4565: i := p_txdv_tbl.NEXT(i);
4566: END LOOP;
4563: END IF;
4564: EXIT WHEN (i = p_txdv_tbl.LAST);
4565: i := p_txdv_tbl.NEXT(i);
4566: END LOOP;
4567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4570: RAISE OKL_API.G_EXCEPTION_ERROR;
4571: END IF;
4564: EXIT WHEN (i = p_txdv_tbl.LAST);
4565: i := p_txdv_tbl.NEXT(i);
4566: END LOOP;
4567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4570: RAISE OKL_API.G_EXCEPTION_ERROR;
4571: END IF;
4572: END IF;
4565: i := p_txdv_tbl.NEXT(i);
4566: END LOOP;
4567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4570: RAISE OKL_API.G_EXCEPTION_ERROR;
4571: END IF;
4572: END IF;
4573: OKL_API.END_ACTIVITY (x_msg_count,
4566: END LOOP;
4567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4570: RAISE OKL_API.G_EXCEPTION_ERROR;
4571: END IF;
4572: END IF;
4573: OKL_API.END_ACTIVITY (x_msg_count,
4574: x_msg_data );
4569: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4570: RAISE OKL_API.G_EXCEPTION_ERROR;
4571: END IF;
4572: END IF;
4573: OKL_API.END_ACTIVITY (x_msg_count,
4574: x_msg_data );
4575: EXCEPTION
4576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4577: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4572: END IF;
4573: OKL_API.END_ACTIVITY (x_msg_count,
4574: x_msg_data );
4575: EXCEPTION
4576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4577: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: l_api_name,
4579: G_PKG_NAME,
4580: 'OKL_API.G_RET_STS_ERROR',
4573: OKL_API.END_ACTIVITY (x_msg_count,
4574: x_msg_data );
4575: EXCEPTION
4576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4577: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: l_api_name,
4579: G_PKG_NAME,
4580: 'OKL_API.G_RET_STS_ERROR',
4581: x_msg_count,
4576: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4577: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: l_api_name,
4579: G_PKG_NAME,
4580: 'OKL_API.G_RET_STS_ERROR',
4581: x_msg_count,
4582: x_msg_data,
4583: '_PVT');
4584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4580: 'OKL_API.G_RET_STS_ERROR',
4581: x_msg_count,
4582: x_msg_data,
4583: '_PVT');
4584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4585: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4586: l_api_name,
4587: G_PKG_NAME,
4588: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4581: x_msg_count,
4582: x_msg_data,
4583: '_PVT');
4584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4585: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4586: l_api_name,
4587: G_PKG_NAME,
4588: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4589: x_msg_count,
4584: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4585: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4586: l_api_name,
4587: G_PKG_NAME,
4588: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4589: x_msg_count,
4590: x_msg_data,
4591: '_PVT');
4592: WHEN OTHERS THEN
4589: x_msg_count,
4590: x_msg_data,
4591: '_PVT');
4592: WHEN OTHERS THEN
4593: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4594: l_api_name,
4595: G_PKG_NAME,
4596: 'OTHERS',
4597: x_msg_count,
4609: -- Version :
4610: -- End of Commnets
4611: PROCEDURE update_asset_line_details(
4612: p_api_version IN NUMBER,
4613: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4614: x_return_status OUT NOCOPY VARCHAR2,
4615: x_msg_count OUT NOCOPY NUMBER,
4616: x_msg_data OUT NOCOPY VARCHAR2,
4617: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4623: l_txdv_tbl txdv_tbl_type;
4624: lx_txdv_tbl txdv_tbl_type;
4625: lv_to_update VARCHAR2(3);
4626: BEGIN
4627: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4628: -- Call start_activity to create savepoint, check compatibility
4629: -- and initialize message list
4630: x_return_status := OKL_API.START_ACTIVITY (
4631: l_api_name
4626: BEGIN
4627: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4628: -- Call start_activity to create savepoint, check compatibility
4629: -- and initialize message list
4630: x_return_status := OKL_API.START_ACTIVITY (
4631: l_api_name
4632: ,p_init_msg_list
4633: ,'_PVT'
4634: ,x_return_status);
4632: ,p_init_msg_list
4633: ,'_PVT'
4634: ,x_return_status);
4635: -- Check if activity started successfully
4636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4633: ,'_PVT'
4634: ,x_return_status);
4635: -- Check if activity started successfully
4636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4641: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4634: ,x_return_status);
4635: -- Check if activity started successfully
4636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4641: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4642: p_asset_number => p_asset_number,
4635: -- Check if activity started successfully
4636: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4637: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4638: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4639: RAISE OKL_API.G_EXCEPTION_ERROR;
4640: END IF;
4641: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4642: p_asset_number => p_asset_number,
4643: p_original_cost => p_original_cost,
4642: p_asset_number => p_asset_number,
4643: p_original_cost => p_original_cost,
4644: x_to_update => lv_to_update,
4645: x_txdv_tbl => l_txdv_tbl);
4646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4643: p_original_cost => p_original_cost,
4644: x_to_update => lv_to_update,
4645: x_txdv_tbl => l_txdv_tbl);
4646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4651: IF lv_to_update = 'Y' THEN
4644: x_to_update => lv_to_update,
4645: x_txdv_tbl => l_txdv_tbl);
4646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4651: IF lv_to_update = 'Y' THEN
4652: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4645: x_txdv_tbl => l_txdv_tbl);
4646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_ERROR;
4650: END IF;
4651: IF lv_to_update = 'Y' THEN
4652: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4653: p_api_version => p_api_version,
4656: x_msg_count => x_msg_count,
4657: x_msg_data => x_msg_data,
4658: p_adpv_tbl => l_txdv_tbl,
4659: x_adpv_tbl => lx_txdv_tbl);
4660: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4662: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_ERROR;
4664: END IF;
4657: x_msg_data => x_msg_data,
4658: p_adpv_tbl => l_txdv_tbl,
4659: x_adpv_tbl => lx_txdv_tbl);
4660: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4662: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_ERROR;
4664: END IF;
4665: END IF;
4658: p_adpv_tbl => l_txdv_tbl,
4659: x_adpv_tbl => lx_txdv_tbl);
4660: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4662: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_ERROR;
4664: END IF;
4665: END IF;
4666: OKL_API.END_ACTIVITY (x_msg_count,
4659: x_adpv_tbl => lx_txdv_tbl);
4660: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4662: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_ERROR;
4664: END IF;
4665: END IF;
4666: OKL_API.END_ACTIVITY (x_msg_count,
4667: x_msg_data );
4662: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4663: RAISE OKL_API.G_EXCEPTION_ERROR;
4664: END IF;
4665: END IF;
4666: OKL_API.END_ACTIVITY (x_msg_count,
4667: x_msg_data );
4668: EXCEPTION
4669: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4665: END IF;
4666: OKL_API.END_ACTIVITY (x_msg_count,
4667: x_msg_data );
4668: EXCEPTION
4669: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4671: l_api_name,
4672: G_PKG_NAME,
4673: 'OKL_API.G_RET_STS_ERROR',
4666: OKL_API.END_ACTIVITY (x_msg_count,
4667: x_msg_data );
4668: EXCEPTION
4669: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4671: l_api_name,
4672: G_PKG_NAME,
4673: 'OKL_API.G_RET_STS_ERROR',
4674: x_msg_count,
4669: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4670: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4671: l_api_name,
4672: G_PKG_NAME,
4673: 'OKL_API.G_RET_STS_ERROR',
4674: x_msg_count,
4675: x_msg_data,
4676: '_PVT');
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4673: 'OKL_API.G_RET_STS_ERROR',
4674: x_msg_count,
4675: x_msg_data,
4676: '_PVT');
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4678: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4679: l_api_name,
4680: G_PKG_NAME,
4681: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4674: x_msg_count,
4675: x_msg_data,
4676: '_PVT');
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4678: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4679: l_api_name,
4680: G_PKG_NAME,
4681: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4682: x_msg_count,
4677: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4678: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4679: l_api_name,
4680: G_PKG_NAME,
4681: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4682: x_msg_count,
4683: x_msg_data,
4684: '_PVT');
4685: WHEN OTHERS THEN
4682: x_msg_count,
4683: x_msg_data,
4684: '_PVT');
4685: WHEN OTHERS THEN
4686: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4687: l_api_name,
4688: G_PKG_NAME,
4689: 'OTHERS',
4690: x_msg_count,
4694:
4695: -- 5530990
4696: PROCEDURE Update_Asset_Cost(
4697: p_api_version IN NUMBER,
4698: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4699: x_return_status OUT NOCOPY VARCHAR2,
4700: x_msg_count OUT NOCOPY NUMBER,
4701: x_msg_data OUT NOCOPY VARCHAR2,
4702: p_cleb_fin_id IN NUMBER,
4738: l_talv_rec talv_rec_type;
4739: x_talv_rec talv_rec_type;
4740:
4741: BEGIN
4742: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4743: -- Call start_activity to create savepoint, check compatibility
4744: -- and initialize message list
4745: x_return_status := OKL_API.START_ACTIVITY (
4746: l_api_name
4741: BEGIN
4742: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4743: -- Call start_activity to create savepoint, check compatibility
4744: -- and initialize message list
4745: x_return_status := OKL_API.START_ACTIVITY (
4746: l_api_name
4747: ,p_init_msg_list
4748: ,'_PVT'
4749: ,x_return_status);
4747: ,p_init_msg_list
4748: ,'_PVT'
4749: ,x_return_status);
4750: -- Check if activity started successfully
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4748: ,'_PVT'
4749: ,x_return_status);
4750: -- Check if activity started successfully
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:
4749: ,x_return_status);
4750: -- Check if activity started successfully
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:
4757: l_rbk_khr := '?';
4750: -- Check if activity started successfully
4751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4753: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4754: RAISE OKL_API.G_EXCEPTION_ERROR;
4755: END IF;
4756:
4757: l_rbk_khr := '?';
4758: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
4770: p_chr_id => p_chr_id,
4771: p_cle_id => p_cleb_fin_id
4772: );
4773:
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4771: p_cle_id => p_cleb_fin_id
4772: );
4773:
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779:
4772: );
4773:
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779:
4780: ELSE
4773:
4774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4777: RAISE OKL_API.G_EXCEPTION_ERROR;
4778: END IF;
4779:
4780: ELSE
4781:
4796: x_msg_count => x_msg_count,
4797: x_msg_data => x_msg_data,
4798: p_talv_rec => l_talv_rec,
4799: x_talv_rec => x_talv_rec);
4800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4803: RAISE OKL_API.G_EXCEPTION_ERROR;
4804: END IF;
4797: x_msg_data => x_msg_data,
4798: p_talv_rec => l_talv_rec,
4799: x_talv_rec => x_talv_rec);
4800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4803: RAISE OKL_API.G_EXCEPTION_ERROR;
4804: END IF;
4805:
4798: p_talv_rec => l_talv_rec,
4799: x_talv_rec => x_talv_rec);
4800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4803: RAISE OKL_API.G_EXCEPTION_ERROR;
4804: END IF;
4805:
4806: update_asset_line_details(p_api_version => p_api_version,
4799: x_talv_rec => x_talv_rec);
4800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4803: RAISE OKL_API.G_EXCEPTION_ERROR;
4804: END IF;
4805:
4806: update_asset_line_details(p_api_version => p_api_version,
4807: p_init_msg_list => p_init_msg_list,
4810: x_msg_data => x_msg_data,
4811: p_asset_number => l_asset_number,
4812: p_original_cost => l_talv_rec.original_cost,
4813: p_tal_id => l_talv_rec.id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4811: p_asset_number => l_asset_number,
4812: p_original_cost => l_talv_rec.original_cost,
4813: p_tal_id => l_talv_rec.id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4812: p_original_cost => l_talv_rec.original_cost,
4813: p_tal_id => l_talv_rec.id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: END IF;
4813: p_tal_id => l_talv_rec.id);
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: END IF;
4821:
4820: END IF;
4821:
4822: END IF;
4823:
4824: OKL_API.END_ACTIVITY (x_msg_count,
4825: x_msg_data);
4826: EXCEPTION
4827: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4823:
4824: OKL_API.END_ACTIVITY (x_msg_count,
4825: x_msg_data);
4826: EXCEPTION
4827: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4829: l_api_name,
4830: G_PKG_NAME,
4831: 'OKL_API.G_RET_STS_ERROR',
4824: OKL_API.END_ACTIVITY (x_msg_count,
4825: x_msg_data);
4826: EXCEPTION
4827: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4829: l_api_name,
4830: G_PKG_NAME,
4831: 'OKL_API.G_RET_STS_ERROR',
4832: x_msg_count,
4827: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4829: l_api_name,
4830: G_PKG_NAME,
4831: 'OKL_API.G_RET_STS_ERROR',
4832: x_msg_count,
4833: x_msg_data,
4834: '_PVT');
4835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4831: 'OKL_API.G_RET_STS_ERROR',
4832: x_msg_count,
4833: x_msg_data,
4834: '_PVT');
4835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4836: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4837: l_api_name,
4838: G_PKG_NAME,
4839: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4832: x_msg_count,
4833: x_msg_data,
4834: '_PVT');
4835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4836: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4837: l_api_name,
4838: G_PKG_NAME,
4839: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4840: x_msg_count,
4835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4836: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4837: l_api_name,
4838: G_PKG_NAME,
4839: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4840: x_msg_count,
4841: x_msg_data,
4842: '_PVT');
4843: WHEN OTHERS THEN
4840: x_msg_count,
4841: x_msg_data,
4842: '_PVT');
4843: WHEN OTHERS THEN
4844: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OTHERS',
4848: x_msg_count,
4854: --------------------------------------------------------------------------------------------------------------
4855: -- Local Procedures for creation of Txl Item Instance record
4856: PROCEDURE create_txl_itm_insts(
4857: p_api_version IN NUMBER,
4858: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4859: x_return_status OUT NOCOPY VARCHAR2,
4860: x_msg_count OUT NOCOPY NUMBER,
4861: x_msg_data OUT NOCOPY VARCHAR2,
4862: p_itiv_rec IN itiv_rec_type,
4877: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
4878: l_legal_entity_id NUMBER;
4879:
4880: BEGIN
4881: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4882: -- Call start_activity to create savepoint, check compatibility
4883: -- and initialize message list
4884: x_return_status := OKL_API.START_ACTIVITY (
4885: l_api_name
4880: BEGIN
4881: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4882: -- Call start_activity to create savepoint, check compatibility
4883: -- and initialize message list
4884: x_return_status := OKL_API.START_ACTIVITY (
4885: l_api_name
4886: ,p_init_msg_list
4887: ,'_PVT'
4888: ,x_return_status);
4886: ,p_init_msg_list
4887: ,'_PVT'
4888: ,x_return_status);
4889: -- Check if activity started successfully
4890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_ERROR;
4894: END IF;
4887: ,'_PVT'
4888: ,x_return_status);
4889: -- Check if activity started successfully
4890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_ERROR;
4894: END IF;
4895: -- Create New Header record and new Line record
4888: ,x_return_status);
4889: -- Check if activity started successfully
4890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_ERROR;
4894: END IF;
4895: -- Create New Header record and new Line record
4896: -- Before creating Header record
4889: -- Check if activity started successfully
4890: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4892: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4893: RAISE OKL_API.G_EXCEPTION_ERROR;
4894: END IF;
4895: -- Create New Header record and new Line record
4896: -- Before creating Header record
4897: -- we should make sure atleast the required record is given
4897: -- we should make sure atleast the required record is given
4898: l_trxv_rec.tas_type := 'CFA';
4899: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4900: x_try_id => l_trxv_rec.try_id);
4901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4898: l_trxv_rec.tas_type := 'CFA';
4899: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4900: x_try_id => l_trxv_rec.try_id);
4901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: l_trxv_rec.tsu_code := 'ENTERED';
4899: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4900: x_try_id => l_trxv_rec.try_id);
4901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: l_trxv_rec.tsu_code := 'ENTERED';
4907: l_trxv_rec.date_trans_occurred := sysdate;
4900: x_try_id => l_trxv_rec.try_id);
4901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: l_trxv_rec.tsu_code := 'ENTERED';
4907: l_trxv_rec.date_trans_occurred := sysdate;
4908:
4918: -- get the contract number
4919: OPEN contract_num_csr(l_chr_id);
4920: FETCH contract_num_csr INTO l_cntrct_number;
4921: CLOSE contract_num_csr;
4922: Okl_Api.set_message(p_app_name => g_app_name,
4923: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4924: p_token1 => 'CONTRACT_NUMBER',
4925: p_token1_value => l_cntrct_number);
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4922: Okl_Api.set_message(p_app_name => g_app_name,
4923: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4924: p_token1 => 'CONTRACT_NUMBER',
4925: p_token1_value => l_cntrct_number);
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: -- Now creating the new header record
4929: Create_asset_header(p_api_version => p_api_version,
4930: p_init_msg_list => p_init_msg_list,
4932: x_msg_count => x_msg_count,
4933: x_msg_data => x_msg_data,
4934: p_trxv_rec => l_trxv_rec,
4935: x_trxv_rec => x_trxv_rec);
4936: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4937: l_trxv_rec := x_trxv_rec;
4938: l_trxv_rec.tsu_code := 'ERROR';
4939: Update_asset_header(p_api_version => p_api_version,
4940: p_init_msg_list => p_init_msg_list,
4942: x_msg_count => x_msg_count,
4943: x_msg_data => x_msg_data,
4944: p_trxv_rec => l_trxv_rec,
4945: x_trxv_rec => x_trxv_rec);
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4943: x_msg_data => x_msg_data,
4944: p_trxv_rec => l_trxv_rec,
4945: x_trxv_rec => x_trxv_rec);
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: p_trxv_rec => l_trxv_rec,
4945: x_trxv_rec => x_trxv_rec);
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4945: x_trxv_rec => x_trxv_rec);
4946: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4953: l_trxv_rec := x_trxv_rec;
4947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4953: l_trxv_rec := x_trxv_rec;
4954: l_trxv_rec.tsu_code := 'ERROR';
4955: Update_asset_header(p_api_version => p_api_version,
4948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4949: RAISE OKL_API.G_EXCEPTION_ERROR;
4950: END IF;
4951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4953: l_trxv_rec := x_trxv_rec;
4954: l_trxv_rec.tsu_code := 'ERROR';
4955: Update_asset_header(p_api_version => p_api_version,
4956: p_init_msg_list => p_init_msg_list,
4958: x_msg_count => x_msg_count,
4959: x_msg_data => x_msg_data,
4960: p_trxv_rec => l_trxv_rec,
4961: x_trxv_rec => x_trxv_rec);
4962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4965: RAISE OKL_API.G_EXCEPTION_ERROR;
4966: END IF;
4959: x_msg_data => x_msg_data,
4960: p_trxv_rec => l_trxv_rec,
4961: x_trxv_rec => x_trxv_rec);
4962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4965: RAISE OKL_API.G_EXCEPTION_ERROR;
4966: END IF;
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4960: p_trxv_rec => l_trxv_rec,
4961: x_trxv_rec => x_trxv_rec);
4962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4965: RAISE OKL_API.G_EXCEPTION_ERROR;
4966: END IF;
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4968: END IF;
4961: x_trxv_rec => x_trxv_rec);
4962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4965: RAISE OKL_API.G_EXCEPTION_ERROR;
4966: END IF;
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4968: END IF;
4969: -- Now we are creating the new line record
4963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4965: RAISE OKL_API.G_EXCEPTION_ERROR;
4966: END IF;
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4968: END IF;
4969: -- Now we are creating the new line record
4970: l_itiv_rec := p_itiv_rec;
4971: l_itiv_rec.tas_id := x_trxv_rec.id;
4968: END IF;
4969: -- Now we are creating the new line record
4970: l_itiv_rec := p_itiv_rec;
4971: l_itiv_rec.tas_id := x_trxv_rec.id;
4972: IF (l_itiv_rec.tal_type = OKL_API.G_MISS_CHAR OR
4973: l_itiv_rec.tal_type IS NUll) THEN
4974: l_itiv_rec.tal_type := 'CFA';
4975: END IF;
4976: -- evaluate conditions, build outcomes for true conditions and
4982: x_msg_count => x_msg_count,
4983: x_msg_data => x_msg_data,
4984: p_iipv_rec => l_itiv_rec,
4985: x_iipv_rec => x_itiv_rec);
4986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4987: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: p_msg_name => G_ITI_ID);
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4983: x_msg_data => x_msg_data,
4984: p_iipv_rec => l_itiv_rec,
4985: x_iipv_rec => x_itiv_rec);
4986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4987: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: p_msg_name => G_ITI_ID);
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4985: x_iipv_rec => x_itiv_rec);
4986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4987: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: p_msg_name => G_ITI_ID);
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4992: p_msg_name => G_ITI_ID);
4993: RAISE OKL_API.G_EXCEPTION_ERROR;
4986: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4987: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: p_msg_name => G_ITI_ID);
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4992: p_msg_name => G_ITI_ID);
4993: RAISE OKL_API.G_EXCEPTION_ERROR;
4994: END IF;
4987: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: p_msg_name => G_ITI_ID);
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4992: p_msg_name => G_ITI_ID);
4993: RAISE OKL_API.G_EXCEPTION_ERROR;
4994: END IF;
4995: OKL_API.END_ACTIVITY (x_msg_count,
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4992: p_msg_name => G_ITI_ID);
4993: RAISE OKL_API.G_EXCEPTION_ERROR;
4994: END IF;
4995: OKL_API.END_ACTIVITY (x_msg_count,
4996: x_msg_data );
4997: EXCEPTION
4991: OKL_API.set_message(p_app_name => G_APP_NAME,
4992: p_msg_name => G_ITI_ID);
4993: RAISE OKL_API.G_EXCEPTION_ERROR;
4994: END IF;
4995: OKL_API.END_ACTIVITY (x_msg_count,
4996: x_msg_data );
4997: EXCEPTION
4998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4994: END IF;
4995: OKL_API.END_ACTIVITY (x_msg_count,
4996: x_msg_data );
4997: EXCEPTION
4998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5000: l_api_name,
5001: G_PKG_NAME,
5002: 'OKL_API.G_RET_STS_ERROR',
4995: OKL_API.END_ACTIVITY (x_msg_count,
4996: x_msg_data );
4997: EXCEPTION
4998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5000: l_api_name,
5001: G_PKG_NAME,
5002: 'OKL_API.G_RET_STS_ERROR',
5003: x_msg_count,
4998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5000: l_api_name,
5001: G_PKG_NAME,
5002: 'OKL_API.G_RET_STS_ERROR',
5003: x_msg_count,
5004: x_msg_data,
5005: '_PVT');
5006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5002: 'OKL_API.G_RET_STS_ERROR',
5003: x_msg_count,
5004: x_msg_data,
5005: '_PVT');
5006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5007: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5008: l_api_name,
5009: G_PKG_NAME,
5010: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5003: x_msg_count,
5004: x_msg_data,
5005: '_PVT');
5006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5007: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5008: l_api_name,
5009: G_PKG_NAME,
5010: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5011: x_msg_count,
5006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5007: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5008: l_api_name,
5009: G_PKG_NAME,
5010: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5011: x_msg_count,
5012: x_msg_data,
5013: '_PVT');
5014: WHEN OTHERS THEN
5011: x_msg_count,
5012: x_msg_data,
5013: '_PVT');
5014: WHEN OTHERS THEN
5015: OKL_API.set_message(p_app_name => G_APP_NAME,
5016: p_msg_name => G_ITI_ID);
5017: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5018: l_api_name,
5019: G_PKG_NAME,
5013: '_PVT');
5014: WHEN OTHERS THEN
5015: OKL_API.set_message(p_app_name => G_APP_NAME,
5016: p_msg_name => G_ITI_ID);
5017: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5018: l_api_name,
5019: G_PKG_NAME,
5020: 'OTHERS',
5021: x_msg_count,
5025: --------------------------------------------------------------------------------------------------------------
5026: -- Local Procedures for update of Txl Item Instance record
5027: PROCEDURE update_txl_itm_insts(
5028: p_api_version IN NUMBER,
5029: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5030: x_return_status OUT NOCOPY VARCHAR2,
5031: x_msg_count OUT NOCOPY NUMBER,
5032: x_msg_data OUT NOCOPY VARCHAR2,
5033: p_itiv_rec IN itiv_rec_type,
5034: x_itiv_rec OUT NOCOPY itiv_rec_type) IS
5035:
5036: l_api_name CONSTANT VARCHAR2(30) := 'UPD_TXL_ITM_INSTS';
5037: BEGIN
5038: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5039: -- Call start_activity to create savepoint, check compatibility
5040: -- and initialize message list
5041: x_return_status := OKL_API.START_ACTIVITY (
5042: l_api_name
5037: BEGIN
5038: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5039: -- Call start_activity to create savepoint, check compatibility
5040: -- and initialize message list
5041: x_return_status := OKL_API.START_ACTIVITY (
5042: l_api_name
5043: ,p_init_msg_list
5044: ,'_PVT'
5045: ,x_return_status);
5043: ,p_init_msg_list
5044: ,'_PVT'
5045: ,x_return_status);
5046: -- Check if activity started successfully
5047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5050: RAISE OKL_API.G_EXCEPTION_ERROR;
5051: END IF;
5044: ,'_PVT'
5045: ,x_return_status);
5046: -- Check if activity started successfully
5047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5050: RAISE OKL_API.G_EXCEPTION_ERROR;
5051: END IF;
5052: -- evaluate conditions, build outcomes for true conditions and
5045: ,x_return_status);
5046: -- Check if activity started successfully
5047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5050: RAISE OKL_API.G_EXCEPTION_ERROR;
5051: END IF;
5052: -- evaluate conditions, build outcomes for true conditions and
5053: -- put them on outcome queue
5046: -- Check if activity started successfully
5047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5050: RAISE OKL_API.G_EXCEPTION_ERROR;
5051: END IF;
5052: -- evaluate conditions, build outcomes for true conditions and
5053: -- put them on outcome queue
5054: OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
5057: x_msg_count => x_msg_count,
5058: x_msg_data => x_msg_data,
5059: p_iipv_rec => p_itiv_rec,
5060: x_iipv_rec => x_itiv_rec);
5061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_ERROR;
5065: END IF;
5058: x_msg_data => x_msg_data,
5059: p_iipv_rec => p_itiv_rec,
5060: x_iipv_rec => x_itiv_rec);
5061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_ERROR;
5065: END IF;
5066: OKL_API.END_ACTIVITY (x_msg_count,
5059: p_iipv_rec => p_itiv_rec,
5060: x_iipv_rec => x_itiv_rec);
5061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_ERROR;
5065: END IF;
5066: OKL_API.END_ACTIVITY (x_msg_count,
5067: x_msg_data );
5060: x_iipv_rec => x_itiv_rec);
5061: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_ERROR;
5065: END IF;
5066: OKL_API.END_ACTIVITY (x_msg_count,
5067: x_msg_data );
5068: EXCEPTION
5062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5064: RAISE OKL_API.G_EXCEPTION_ERROR;
5065: END IF;
5066: OKL_API.END_ACTIVITY (x_msg_count,
5067: x_msg_data );
5068: EXCEPTION
5069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5070: OKL_API.set_message(p_app_name => G_APP_NAME,
5065: END IF;
5066: OKL_API.END_ACTIVITY (x_msg_count,
5067: x_msg_data );
5068: EXCEPTION
5069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5070: OKL_API.set_message(p_app_name => G_APP_NAME,
5071: p_msg_name => G_ITI_ID);
5072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5073: l_api_name,
5066: OKL_API.END_ACTIVITY (x_msg_count,
5067: x_msg_data );
5068: EXCEPTION
5069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5070: OKL_API.set_message(p_app_name => G_APP_NAME,
5071: p_msg_name => G_ITI_ID);
5072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5073: l_api_name,
5074: G_PKG_NAME,
5068: EXCEPTION
5069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5070: OKL_API.set_message(p_app_name => G_APP_NAME,
5071: p_msg_name => G_ITI_ID);
5072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5073: l_api_name,
5074: G_PKG_NAME,
5075: 'OKL_API.G_RET_STS_ERROR',
5076: x_msg_count,
5071: p_msg_name => G_ITI_ID);
5072: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5073: l_api_name,
5074: G_PKG_NAME,
5075: 'OKL_API.G_RET_STS_ERROR',
5076: x_msg_count,
5077: x_msg_data,
5078: '_PVT');
5079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5075: 'OKL_API.G_RET_STS_ERROR',
5076: x_msg_count,
5077: x_msg_data,
5078: '_PVT');
5079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5080: OKL_API.set_message(p_app_name => G_APP_NAME,
5081: p_msg_name => G_ITI_ID);
5082: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5083: l_api_name,
5076: x_msg_count,
5077: x_msg_data,
5078: '_PVT');
5079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5080: OKL_API.set_message(p_app_name => G_APP_NAME,
5081: p_msg_name => G_ITI_ID);
5082: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5083: l_api_name,
5084: G_PKG_NAME,
5078: '_PVT');
5079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5080: OKL_API.set_message(p_app_name => G_APP_NAME,
5081: p_msg_name => G_ITI_ID);
5082: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5083: l_api_name,
5084: G_PKG_NAME,
5085: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5086: x_msg_count,
5081: p_msg_name => G_ITI_ID);
5082: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5083: l_api_name,
5084: G_PKG_NAME,
5085: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5086: x_msg_count,
5087: x_msg_data,
5088: '_PVT');
5089: WHEN OTHERS THEN
5086: x_msg_count,
5087: x_msg_data,
5088: '_PVT');
5089: WHEN OTHERS THEN
5090: OKL_API.set_message(p_app_name => G_APP_NAME,
5091: p_msg_name => G_ITI_ID);
5092: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5093: l_api_name,
5094: G_PKG_NAME,
5088: '_PVT');
5089: WHEN OTHERS THEN
5090: OKL_API.set_message(p_app_name => G_APP_NAME,
5091: p_msg_name => G_ITI_ID);
5092: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5093: l_api_name,
5094: G_PKG_NAME,
5095: 'OTHERS',
5096: x_msg_count,
5099: END update_txl_itm_insts;
5100: ---------------------------------------------------------------------------------------------
5101: PROCEDURE Create_financial_asset_line(
5102: p_api_version IN NUMBER,
5103: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5104: x_return_status OUT NOCOPY VARCHAR2,
5105: x_msg_count OUT NOCOPY NUMBER,
5106: x_msg_data OUT NOCOPY VARCHAR2,
5107: p_clev_rec IN clev_rec_type,
5110: x_klev_rec OUT NOCOPY klev_rec_type) IS
5111: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FIN_AST_LINES';
5112: l_clev_rec clev_rec_type;
5113: BEGIN
5114: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5115: -- Call start_activity to create savepoint, check compatibility
5116: -- and initialize message list
5117: x_return_status := OKL_API.START_ACTIVITY (
5118: l_api_name
5113: BEGIN
5114: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5115: -- Call start_activity to create savepoint, check compatibility
5116: -- and initialize message list
5117: x_return_status := OKL_API.START_ACTIVITY (
5118: l_api_name
5119: ,p_init_msg_list
5120: ,'_PVT'
5121: ,x_return_status);
5119: ,p_init_msg_list
5120: ,'_PVT'
5121: ,x_return_status);
5122: -- Check if activity started successfully
5123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5126: RAISE OKL_API.G_EXCEPTION_ERROR;
5127: END IF;
5120: ,'_PVT'
5121: ,x_return_status);
5122: -- Check if activity started successfully
5123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5126: RAISE OKL_API.G_EXCEPTION_ERROR;
5127: END IF;
5128: l_clev_rec := p_clev_rec;
5121: ,x_return_status);
5122: -- Check if activity started successfully
5123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5126: RAISE OKL_API.G_EXCEPTION_ERROR;
5127: END IF;
5128: l_clev_rec := p_clev_rec;
5129: -- # 4334903 use new function default_contract_line_values
5122: -- Check if activity started successfully
5123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5124: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5126: RAISE OKL_API.G_EXCEPTION_ERROR;
5127: END IF;
5128: l_clev_rec := p_clev_rec;
5129: -- # 4334903 use new function default_contract_line_values
5130: /*
5128: l_clev_rec := p_clev_rec;
5129: -- # 4334903 use new function default_contract_line_values
5130: /*
5131: IF (p_clev_rec.sts_code IS NULL OR
5132: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5133: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5134: p_cle_id => null,
5135: x_sts_code => l_clev_rec.sts_code);
5136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5132: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5133: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5134: p_cle_id => null,
5135: x_sts_code => l_clev_rec.sts_code);
5136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5139: RAISE OKL_API.G_EXCEPTION_ERROR;
5140: END IF;
5133: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5134: p_cle_id => null,
5135: x_sts_code => l_clev_rec.sts_code);
5136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5139: RAISE OKL_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: END IF;
5134: p_cle_id => null,
5135: x_sts_code => l_clev_rec.sts_code);
5136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5139: RAISE OKL_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: END IF;
5142: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5135: x_sts_code => l_clev_rec.sts_code);
5136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5139: RAISE OKL_API.G_EXCEPTION_ERROR;
5140: END IF;
5141: END IF;
5142: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5143: 'SIGNED',
5148: 'APPROVED',
5149: 'COMPLETE',
5150: 'INCOMPLETE',
5151: 'PASSED') THEN
5152: OKL_API.set_message(p_app_name => G_APP_NAME,
5153: p_msg_name => G_STATUS,
5154: p_token1 => 'STATUS',
5155: p_token1_value => l_clev_rec.sts_code);
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5152: OKL_API.set_message(p_app_name => G_APP_NAME,
5153: p_msg_name => G_STATUS,
5154: p_token1 => 'STATUS',
5155: p_token1_value => l_clev_rec.sts_code);
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: IF (p_clev_rec.end_date IS NULL OR
5159: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5160: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5155: p_token1_value => l_clev_rec.sts_code);
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: IF (p_clev_rec.end_date IS NULL OR
5159: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5160: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5161: p_cle_id => null,
5162: x_end_date => l_clev_rec.end_date);
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5159: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5160: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5161: p_cle_id => null,
5162: x_end_date => l_clev_rec.end_date);
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5160: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5161: p_cle_id => null,
5162: x_end_date => l_clev_rec.end_date);
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168: END IF;
5161: p_cle_id => null,
5162: x_end_date => l_clev_rec.end_date);
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168: END IF;
5169: IF (p_clev_rec.start_date IS NULL OR
5162: x_end_date => l_clev_rec.end_date);
5163: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5165: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168: END IF;
5169: IF (p_clev_rec.start_date IS NULL OR
5170: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5166: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: END IF;
5168: END IF;
5169: IF (p_clev_rec.start_date IS NULL OR
5170: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5171: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5172: p_cle_id => null,
5173: x_start_date => l_clev_rec.start_date);
5174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5170: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5171: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5172: p_cle_id => null,
5173: x_start_date => l_clev_rec.start_date);
5174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5177: RAISE OKL_API.G_EXCEPTION_ERROR;
5178: END IF;
5171: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5172: p_cle_id => null,
5173: x_start_date => l_clev_rec.start_date);
5174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5177: RAISE OKL_API.G_EXCEPTION_ERROR;
5178: END IF;
5179: END IF;
5172: p_cle_id => null,
5173: x_start_date => l_clev_rec.start_date);
5174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5177: RAISE OKL_API.G_EXCEPTION_ERROR;
5178: END IF;
5179: END IF;
5180: IF (p_clev_rec.currency_code IS NULL OR
5173: x_start_date => l_clev_rec.start_date);
5174: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5177: RAISE OKL_API.G_EXCEPTION_ERROR;
5178: END IF;
5179: END IF;
5180: IF (p_clev_rec.currency_code IS NULL OR
5181: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5177: RAISE OKL_API.G_EXCEPTION_ERROR;
5178: END IF;
5179: END IF;
5180: IF (p_clev_rec.currency_code IS NULL OR
5181: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5182: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5183: p_cle_id => null,
5184: x_currency_code => l_clev_rec.currency_code);
5185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5181: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5182: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5183: p_cle_id => null,
5184: x_currency_code => l_clev_rec.currency_code);
5185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5182: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5183: p_cle_id => null,
5184: x_currency_code => l_clev_rec.currency_code);
5185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: END IF;
5183: p_cle_id => null,
5184: x_currency_code => l_clev_rec.currency_code);
5185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: END IF;
5191: */
5184: x_currency_code => l_clev_rec.currency_code);
5185: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5186: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5187: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5188: RAISE OKL_API.G_EXCEPTION_ERROR;
5189: END IF;
5190: END IF;
5191: */
5192: IF ((p_clev_rec.sts_code IS NULL OR
5189: END IF;
5190: END IF;
5191: */
5192: IF ((p_clev_rec.sts_code IS NULL OR
5193: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5194: (p_clev_rec.end_date IS NULL OR
5195: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5196: (p_clev_rec.start_date IS NULL OR
5197: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5191: */
5192: IF ((p_clev_rec.sts_code IS NULL OR
5193: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5194: (p_clev_rec.end_date IS NULL OR
5195: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5196: (p_clev_rec.start_date IS NULL OR
5197: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5198: (p_clev_rec.currency_code IS NULL OR
5199: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5193: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5194: (p_clev_rec.end_date IS NULL OR
5195: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5196: (p_clev_rec.start_date IS NULL OR
5197: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5198: (p_clev_rec.currency_code IS NULL OR
5199: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5200: ) THEN
5201: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5195: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5196: (p_clev_rec.start_date IS NULL OR
5197: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5198: (p_clev_rec.currency_code IS NULL OR
5199: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5200: ) THEN
5201: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: p_clev_rec => l_clev_rec);
5200: ) THEN
5201: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: p_clev_rec => l_clev_rec);
5204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5207: RAISE OKL_API.G_EXCEPTION_ERROR;
5208: END IF;
5201: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: p_clev_rec => l_clev_rec);
5204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5207: RAISE OKL_API.G_EXCEPTION_ERROR;
5208: END IF;
5209: END IF;
5202: p_cle_id => null,
5203: p_clev_rec => l_clev_rec);
5204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5207: RAISE OKL_API.G_EXCEPTION_ERROR;
5208: END IF;
5209: END IF;
5210: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5203: p_clev_rec => l_clev_rec);
5204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5207: RAISE OKL_API.G_EXCEPTION_ERROR;
5208: END IF;
5209: END IF;
5210: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5211: 'SIGNED',
5216: 'APPROVED',
5217: 'COMPLETE',
5218: 'INCOMPLETE',
5219: 'PASSED') THEN
5220: OKL_API.set_message(p_app_name => G_APP_NAME,
5221: p_msg_name => G_STATUS,
5222: p_token1 => 'STATUS',
5223: p_token1_value => l_clev_rec.sts_code);
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5220: OKL_API.set_message(p_app_name => G_APP_NAME,
5221: p_msg_name => G_STATUS,
5222: p_token1 => 'STATUS',
5223: p_token1_value => l_clev_rec.sts_code);
5224: RAISE OKL_API.G_EXCEPTION_ERROR;
5225: END IF;
5226:
5227: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
5228: p_init_msg_list => p_init_msg_list,
5232: p_clev_rec => l_clev_rec,
5233: p_klev_rec => p_klev_rec,
5234: x_clev_rec => x_clev_rec,
5235: x_klev_rec => x_klev_rec);
5236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5237: OKL_API.set_message(p_app_name => G_APP_NAME,
5238: p_msg_name => G_CREATION_FIN_LINE);
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5233: p_klev_rec => p_klev_rec,
5234: x_clev_rec => x_clev_rec,
5235: x_klev_rec => x_klev_rec);
5236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5237: OKL_API.set_message(p_app_name => G_APP_NAME,
5238: p_msg_name => G_CREATION_FIN_LINE);
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5235: x_klev_rec => x_klev_rec);
5236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5237: OKL_API.set_message(p_app_name => G_APP_NAME,
5238: p_msg_name => G_CREATION_FIN_LINE);
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5242: p_msg_name => G_CREATION_FIN_LINE);
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5237: OKL_API.set_message(p_app_name => G_APP_NAME,
5238: p_msg_name => G_CREATION_FIN_LINE);
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5242: p_msg_name => G_CREATION_FIN_LINE);
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5237: OKL_API.set_message(p_app_name => G_APP_NAME,
5238: p_msg_name => G_CREATION_FIN_LINE);
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5242: p_msg_name => G_CREATION_FIN_LINE);
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245: OKL_API.END_ACTIVITY (x_msg_count,
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5242: p_msg_name => G_CREATION_FIN_LINE);
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245: OKL_API.END_ACTIVITY (x_msg_count,
5246: x_msg_data );
5247: EXCEPTION
5241: OKL_API.set_message(p_app_name => G_APP_NAME,
5242: p_msg_name => G_CREATION_FIN_LINE);
5243: RAISE OKL_API.G_EXCEPTION_ERROR;
5244: END IF;
5245: OKL_API.END_ACTIVITY (x_msg_count,
5246: x_msg_data );
5247: EXCEPTION
5248: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5244: END IF;
5245: OKL_API.END_ACTIVITY (x_msg_count,
5246: x_msg_data );
5247: EXCEPTION
5248: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5250: l_api_name,
5251: G_PKG_NAME,
5252: 'OKL_API.G_RET_STS_ERROR',
5245: OKL_API.END_ACTIVITY (x_msg_count,
5246: x_msg_data );
5247: EXCEPTION
5248: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5250: l_api_name,
5251: G_PKG_NAME,
5252: 'OKL_API.G_RET_STS_ERROR',
5253: x_msg_count,
5248: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5249: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5250: l_api_name,
5251: G_PKG_NAME,
5252: 'OKL_API.G_RET_STS_ERROR',
5253: x_msg_count,
5254: x_msg_data,
5255: '_PVT');
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5252: 'OKL_API.G_RET_STS_ERROR',
5253: x_msg_count,
5254: x_msg_data,
5255: '_PVT');
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5257: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5258: l_api_name,
5259: G_PKG_NAME,
5260: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5253: x_msg_count,
5254: x_msg_data,
5255: '_PVT');
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5257: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5258: l_api_name,
5259: G_PKG_NAME,
5260: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5261: x_msg_count,
5256: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5257: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5258: l_api_name,
5259: G_PKG_NAME,
5260: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5261: x_msg_count,
5262: x_msg_data,
5263: '_PVT');
5264: WHEN OTHERS THEN
5261: x_msg_count,
5262: x_msg_data,
5263: '_PVT');
5264: WHEN OTHERS THEN
5265: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5266: l_api_name,
5267: G_PKG_NAME,
5268: 'OTHERS',
5269: x_msg_count,
5272: END Create_financial_asset_line;
5273: ---------------------------------------------------------------------------------------------
5274: PROCEDURE update_financial_asset_line(
5275: p_api_version IN NUMBER,
5276: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5277: x_return_status OUT NOCOPY VARCHAR2,
5278: x_msg_count OUT NOCOPY NUMBER,
5279: x_msg_data OUT NOCOPY VARCHAR2,
5280: p_clev_rec IN clev_rec_type,
5281: p_klev_rec IN klev_rec_type,
5282: x_clev_rec OUT NOCOPY clev_rec_type,
5283: x_klev_rec OUT NOCOPY klev_rec_type) IS
5284: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
5285: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5286: BEGIN
5287: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5288: -- Call start_activity to create savepoint, check compatibility
5289: -- and initialize message list
5283: x_klev_rec OUT NOCOPY klev_rec_type) IS
5284: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
5285: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5286: BEGIN
5287: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5288: -- Call start_activity to create savepoint, check compatibility
5289: -- and initialize message list
5290: x_return_status := OKL_API.START_ACTIVITY (
5291: l_api_name
5286: BEGIN
5287: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5288: -- Call start_activity to create savepoint, check compatibility
5289: -- and initialize message list
5290: x_return_status := OKL_API.START_ACTIVITY (
5291: l_api_name
5292: ,p_init_msg_list
5293: ,'_PVT'
5294: ,x_return_status);
5292: ,p_init_msg_list
5293: ,'_PVT'
5294: ,x_return_status);
5295: -- Check if activity started successfully
5296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5293: ,'_PVT'
5294: ,x_return_status);
5295: -- Check if activity started successfully
5296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: -- Calling the Process
5294: ,x_return_status);
5295: -- Check if activity started successfully
5296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: -- Calling the Process
5302: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5295: -- Check if activity started successfully
5296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_ERROR;
5300: END IF;
5301: -- Calling the Process
5302: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5303: p_init_msg_list => p_init_msg_list,
5307: p_clev_rec => p_clev_rec,
5308: p_klev_rec => p_klev_rec,
5309: x_clev_rec => x_clev_rec,
5310: x_klev_rec => x_klev_rec);
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: OKL_API.set_message(p_app_name => G_APP_NAME,
5313: p_msg_name => G_UPDATING_FIN_LINE);
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5308: p_klev_rec => p_klev_rec,
5309: x_clev_rec => x_clev_rec,
5310: x_klev_rec => x_klev_rec);
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: OKL_API.set_message(p_app_name => G_APP_NAME,
5313: p_msg_name => G_UPDATING_FIN_LINE);
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5310: x_klev_rec => x_klev_rec);
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: OKL_API.set_message(p_app_name => G_APP_NAME,
5313: p_msg_name => G_UPDATING_FIN_LINE);
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5317: p_msg_name => G_UPDATING_FIN_LINE);
5318: RAISE OKL_API.G_EXCEPTION_ERROR;
5311: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5312: OKL_API.set_message(p_app_name => G_APP_NAME,
5313: p_msg_name => G_UPDATING_FIN_LINE);
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5317: p_msg_name => G_UPDATING_FIN_LINE);
5318: RAISE OKL_API.G_EXCEPTION_ERROR;
5319: END IF;
5312: OKL_API.set_message(p_app_name => G_APP_NAME,
5313: p_msg_name => G_UPDATING_FIN_LINE);
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5317: p_msg_name => G_UPDATING_FIN_LINE);
5318: RAISE OKL_API.G_EXCEPTION_ERROR;
5319: END IF;
5320: OKL_API.END_ACTIVITY (x_msg_count,
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5317: p_msg_name => G_UPDATING_FIN_LINE);
5318: RAISE OKL_API.G_EXCEPTION_ERROR;
5319: END IF;
5320: OKL_API.END_ACTIVITY (x_msg_count,
5321: x_msg_data );
5322: EXCEPTION
5316: OKL_API.set_message(p_app_name => G_APP_NAME,
5317: p_msg_name => G_UPDATING_FIN_LINE);
5318: RAISE OKL_API.G_EXCEPTION_ERROR;
5319: END IF;
5320: OKL_API.END_ACTIVITY (x_msg_count,
5321: x_msg_data );
5322: EXCEPTION
5323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5324: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5319: END IF;
5320: OKL_API.END_ACTIVITY (x_msg_count,
5321: x_msg_data );
5322: EXCEPTION
5323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5324: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5325: l_api_name,
5326: G_PKG_NAME,
5327: 'OKL_API.G_RET_STS_ERROR',
5320: OKL_API.END_ACTIVITY (x_msg_count,
5321: x_msg_data );
5322: EXCEPTION
5323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5324: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5325: l_api_name,
5326: G_PKG_NAME,
5327: 'OKL_API.G_RET_STS_ERROR',
5328: x_msg_count,
5323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5324: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5325: l_api_name,
5326: G_PKG_NAME,
5327: 'OKL_API.G_RET_STS_ERROR',
5328: x_msg_count,
5329: x_msg_data,
5330: '_PVT');
5331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5327: 'OKL_API.G_RET_STS_ERROR',
5328: x_msg_count,
5329: x_msg_data,
5330: '_PVT');
5331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5332: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5328: x_msg_count,
5329: x_msg_data,
5330: '_PVT');
5331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5332: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5336: x_msg_count,
5331: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5332: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5333: l_api_name,
5334: G_PKG_NAME,
5335: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5336: x_msg_count,
5337: x_msg_data,
5338: '_PVT');
5339: WHEN OTHERS THEN
5336: x_msg_count,
5337: x_msg_data,
5338: '_PVT');
5339: WHEN OTHERS THEN
5340: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5341: l_api_name,
5342: G_PKG_NAME,
5343: 'OTHERS',
5344: x_msg_count,
5349: ---------------
5350: --Bug# 2994971
5351: ---------------
5352: PROCEDURE populate_insurance_category(p_api_version IN NUMBER,
5353: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5354: x_return_status OUT NOCOPY VARCHAR2,
5355: x_msg_count OUT NOCOPY NUMBER,
5356: x_msg_data OUT NOCOPY VARCHAR2,
5357: p_cle_id IN NUMBER,
5376:
5377:
5378: BEGIN
5379:
5380: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5381: -- Call start_activity to create savepoint, check compatibility
5382: -- and initialize message list
5383: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5384: ,p_init_msg_list
5379:
5380: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5381: -- Call start_activity to create savepoint, check compatibility
5382: -- and initialize message list
5383: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5384: ,p_init_msg_list
5385: ,'_PVT'
5386: ,x_return_status);
5387: -- Check if activity started successfully
5384: ,p_init_msg_list
5385: ,'_PVT'
5386: ,x_return_status);
5387: -- Check if activity started successfully
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5385: ,'_PVT'
5386: ,x_return_status);
5387: -- Check if activity started successfully
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393:
5386: ,x_return_status);
5387: -- Check if activity started successfully
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393:
5394: --fetch asset category
5387: -- Check if activity started successfully
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393:
5394: --fetch asset category
5395: l_asset_category_id := NULL;
5417: x_clev_rec => lx_clev_rec,
5418: x_klev_rec => lx_klev_rec
5419: );
5420:
5421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_ERROR;
5425: END IF;
5418: x_klev_rec => lx_klev_rec
5419: );
5420:
5421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_ERROR;
5425: END IF;
5426:
5419: );
5420:
5421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_ERROR;
5425: END IF;
5426:
5427: OKL_API.END_ACTIVITY (x_msg_count,
5420:
5421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_ERROR;
5425: END IF;
5426:
5427: OKL_API.END_ACTIVITY (x_msg_count,
5428: x_msg_data );
5423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5424: RAISE OKL_API.G_EXCEPTION_ERROR;
5425: END IF;
5426:
5427: OKL_API.END_ACTIVITY (x_msg_count,
5428: x_msg_data );
5429: EXCEPTION
5430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5431: if l_msi_csr%ISOPEN then
5426:
5427: OKL_API.END_ACTIVITY (x_msg_count,
5428: x_msg_data );
5429: EXCEPTION
5430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5431: if l_msi_csr%ISOPEN then
5432: close l_msi_csr;
5433: end if;
5434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5431: if l_msi_csr%ISOPEN then
5432: close l_msi_csr;
5433: end if;
5434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5435: l_api_name,
5436: G_PKG_NAME,
5437: 'OKL_API.G_RET_STS_ERROR',
5438: x_msg_count,
5433: end if;
5434: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5435: l_api_name,
5436: G_PKG_NAME,
5437: 'OKL_API.G_RET_STS_ERROR',
5438: x_msg_count,
5439: x_msg_data,
5440: '_PVT');
5441: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5437: 'OKL_API.G_RET_STS_ERROR',
5438: x_msg_count,
5439: x_msg_data,
5440: '_PVT');
5441: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5442: if l_msi_csr%ISOPEN then
5443: close l_msi_csr;
5444: end if;
5445: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5441: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5442: if l_msi_csr%ISOPEN then
5443: close l_msi_csr;
5444: end if;
5445: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5446: l_api_name,
5447: G_PKG_NAME,
5448: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5449: x_msg_count,
5444: end if;
5445: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5446: l_api_name,
5447: G_PKG_NAME,
5448: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5449: x_msg_count,
5450: x_msg_data,
5451: '_PVT');
5452: WHEN OTHERS THEN
5452: WHEN OTHERS THEN
5453: if l_msi_csr%ISOPEN then
5454: close l_msi_csr;
5455: end if;
5456: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5457: l_api_name,
5458: G_PKG_NAME,
5459: 'OTHERS',
5460: x_msg_count,
5466: ------------------
5467:
5468: ---22------------------------------------------------------------------------------------------
5469: PROCEDURE Create_model_line_item(p_api_version IN NUMBER,
5470: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5471: x_return_status OUT NOCOPY VARCHAR2,
5472: x_msg_count OUT NOCOPY NUMBER,
5473: x_msg_data OUT NOCOPY VARCHAR2,
5474: -- 4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5492: l_inv_org_id number;
5493: l_asset_cle_id number;
5494:
5495: BEGIN
5496: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5497: -- Call start_activity to create savepoint, check compatibility
5498: -- and initialize message list
5499: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5500: ,p_init_msg_list
5495: BEGIN
5496: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5497: -- Call start_activity to create savepoint, check compatibility
5498: -- and initialize message list
5499: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5500: ,p_init_msg_list
5501: ,'_PVT'
5502: ,x_return_status);
5503: -- Check if activity started successfully
5500: ,p_init_msg_list
5501: ,'_PVT'
5502: ,x_return_status);
5503: -- Check if activity started successfully
5504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5507: RAISE OKL_API.G_EXCEPTION_ERROR;
5508: END IF;
5501: ,'_PVT'
5502: ,x_return_status);
5503: -- Check if activity started successfully
5504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5507: RAISE OKL_API.G_EXCEPTION_ERROR;
5508: END IF;
5509: -- 4414408 redundant validation
5502: ,x_return_status);
5503: -- Check if activity started successfully
5504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5507: RAISE OKL_API.G_EXCEPTION_ERROR;
5508: END IF;
5509: -- 4414408 redundant validation
5510: /*
5503: -- Check if activity started successfully
5504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5507: RAISE OKL_API.G_EXCEPTION_ERROR;
5508: END IF;
5509: -- 4414408 redundant validation
5510: /*
5511: -- Check the cle_id that is of the top Fin Asset line
5512: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5513: p_lty_code => p_lty_code,
5514: x_lty_code => l_lty_code,
5515: x_return_status => x_return_status);
5516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5513: p_lty_code => p_lty_code,
5514: x_lty_code => l_lty_code,
5515: x_return_status => x_return_status);
5516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: */
5514: x_lty_code => l_lty_code,
5515: x_return_status => x_return_status);
5516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: */
5522: -- 4414408
5515: x_return_status => x_return_status);
5516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5519: RAISE OKL_API.G_EXCEPTION_ERROR;
5520: END IF;
5521: */
5522: -- 4414408
5523: -- IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5525:
5526: -- # 4334903 use new function default_contract_line_values
5527: /*
5528: IF (p_clev_rec.sts_code IS NULL OR
5529: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5530: x_return_status := get_sts_code(p_dnz_chr_id => null,
5531: p_cle_id => p_clev_rec.cle_id,
5532: x_sts_code => r_clev_rec.sts_code);
5533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5529: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5530: x_return_status := get_sts_code(p_dnz_chr_id => null,
5531: p_cle_id => p_clev_rec.cle_id,
5532: x_sts_code => r_clev_rec.sts_code);
5533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5536: RAISE OKL_API.G_EXCEPTION_ERROR;
5537: END IF;
5530: x_return_status := get_sts_code(p_dnz_chr_id => null,
5531: p_cle_id => p_clev_rec.cle_id,
5532: x_sts_code => r_clev_rec.sts_code);
5533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5536: RAISE OKL_API.G_EXCEPTION_ERROR;
5537: END IF;
5538: END IF;
5531: p_cle_id => p_clev_rec.cle_id,
5532: x_sts_code => r_clev_rec.sts_code);
5533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5536: RAISE OKL_API.G_EXCEPTION_ERROR;
5537: END IF;
5538: END IF;
5539: IF (p_clev_rec.end_date IS NULL OR
5532: x_sts_code => r_clev_rec.sts_code);
5533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5536: RAISE OKL_API.G_EXCEPTION_ERROR;
5537: END IF;
5538: END IF;
5539: IF (p_clev_rec.end_date IS NULL OR
5540: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5536: RAISE OKL_API.G_EXCEPTION_ERROR;
5537: END IF;
5538: END IF;
5539: IF (p_clev_rec.end_date IS NULL OR
5540: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5541: x_return_status := get_end_date(p_dnz_chr_id => null,
5542: p_cle_id => p_clev_rec.cle_id,
5543: x_end_date => r_clev_rec.end_date);
5544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5540: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5541: x_return_status := get_end_date(p_dnz_chr_id => null,
5542: p_cle_id => p_clev_rec.cle_id,
5543: x_end_date => r_clev_rec.end_date);
5544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5547: RAISE OKL_API.G_EXCEPTION_ERROR;
5548: END IF;
5541: x_return_status := get_end_date(p_dnz_chr_id => null,
5542: p_cle_id => p_clev_rec.cle_id,
5543: x_end_date => r_clev_rec.end_date);
5544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5547: RAISE OKL_API.G_EXCEPTION_ERROR;
5548: END IF;
5549: END IF;
5542: p_cle_id => p_clev_rec.cle_id,
5543: x_end_date => r_clev_rec.end_date);
5544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5547: RAISE OKL_API.G_EXCEPTION_ERROR;
5548: END IF;
5549: END IF;
5550: IF (p_clev_rec.start_date IS NULL OR
5543: x_end_date => r_clev_rec.end_date);
5544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5547: RAISE OKL_API.G_EXCEPTION_ERROR;
5548: END IF;
5549: END IF;
5550: IF (p_clev_rec.start_date IS NULL OR
5551: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5547: RAISE OKL_API.G_EXCEPTION_ERROR;
5548: END IF;
5549: END IF;
5550: IF (p_clev_rec.start_date IS NULL OR
5551: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5552: x_return_status := get_start_date(p_dnz_chr_id => null,
5553: p_cle_id => p_clev_rec.cle_id,
5554: x_start_date => r_clev_rec.start_date);
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5551: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5552: x_return_status := get_start_date(p_dnz_chr_id => null,
5553: p_cle_id => p_clev_rec.cle_id,
5554: x_start_date => r_clev_rec.start_date);
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5552: x_return_status := get_start_date(p_dnz_chr_id => null,
5553: p_cle_id => p_clev_rec.cle_id,
5554: x_start_date => r_clev_rec.start_date);
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5553: p_cle_id => p_clev_rec.cle_id,
5554: x_start_date => r_clev_rec.start_date);
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5561: IF (p_clev_rec.currency_code IS NULL OR
5554: x_start_date => r_clev_rec.start_date);
5555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5561: IF (p_clev_rec.currency_code IS NULL OR
5562: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5558: RAISE OKL_API.G_EXCEPTION_ERROR;
5559: END IF;
5560: END IF;
5561: IF (p_clev_rec.currency_code IS NULL OR
5562: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5563: x_return_status := get_currency_code(p_dnz_chr_id => null,
5564: p_cle_id => p_clev_rec.cle_id,
5565: x_currency_code => r_clev_rec.currency_code);
5566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5562: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5563: x_return_status := get_currency_code(p_dnz_chr_id => null,
5564: p_cle_id => p_clev_rec.cle_id,
5565: x_currency_code => r_clev_rec.currency_code);
5566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: RAISE OKL_API.G_EXCEPTION_ERROR;
5570: END IF;
5563: x_return_status := get_currency_code(p_dnz_chr_id => null,
5564: p_cle_id => p_clev_rec.cle_id,
5565: x_currency_code => r_clev_rec.currency_code);
5566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: RAISE OKL_API.G_EXCEPTION_ERROR;
5570: END IF;
5571: END IF;
5564: p_cle_id => p_clev_rec.cle_id,
5565: x_currency_code => r_clev_rec.currency_code);
5566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: RAISE OKL_API.G_EXCEPTION_ERROR;
5570: END IF;
5571: END IF;
5572: */
5565: x_currency_code => r_clev_rec.currency_code);
5566: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5569: RAISE OKL_API.G_EXCEPTION_ERROR;
5570: END IF;
5571: END IF;
5572: */
5573:
5571: END IF;
5572: */
5573:
5574: IF ((p_clev_rec.sts_code IS NULL OR
5575: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5576: (p_clev_rec.end_date IS NULL OR
5577: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5578: (p_clev_rec.start_date IS NULL OR
5579: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5573:
5574: IF ((p_clev_rec.sts_code IS NULL OR
5575: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5576: (p_clev_rec.end_date IS NULL OR
5577: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5578: (p_clev_rec.start_date IS NULL OR
5579: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5580: (p_clev_rec.currency_code IS NULL OR
5581: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5575: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5576: (p_clev_rec.end_date IS NULL OR
5577: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5578: (p_clev_rec.start_date IS NULL OR
5579: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5580: (p_clev_rec.currency_code IS NULL OR
5581: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5582: ) THEN
5583: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5577: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5578: (p_clev_rec.start_date IS NULL OR
5579: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5580: (p_clev_rec.currency_code IS NULL OR
5581: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5582: ) THEN
5583: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5584: p_cle_id => r_clev_rec.cle_id,
5585: p_clev_rec => r_clev_rec);
5582: ) THEN
5583: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5584: p_cle_id => r_clev_rec.cle_id,
5585: p_clev_rec => r_clev_rec);
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5583: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5584: p_cle_id => r_clev_rec.cle_id,
5585: p_clev_rec => r_clev_rec);
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: END IF;
5584: p_cle_id => r_clev_rec.cle_id,
5585: p_clev_rec => r_clev_rec);
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: END IF;
5592:
5585: p_clev_rec => r_clev_rec);
5586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5589: RAISE OKL_API.G_EXCEPTION_ERROR;
5590: END IF;
5591: END IF;
5592:
5593: -- Now the all the records are there we can create Model Line
5599: p_clev_rec => r_clev_rec,
5600: p_klev_rec => p_klev_rec,
5601: x_clev_rec => x_clev_rec,
5602: x_klev_rec => x_klev_rec);
5603: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5604: OKL_API.set_message(p_app_name => G_APP_NAME,
5605: p_msg_name => G_CREATION_MODEL_LINE);
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5600: p_klev_rec => p_klev_rec,
5601: x_clev_rec => x_clev_rec,
5602: x_klev_rec => x_klev_rec);
5603: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5604: OKL_API.set_message(p_app_name => G_APP_NAME,
5605: p_msg_name => G_CREATION_MODEL_LINE);
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: OKL_API.set_message(p_app_name => G_APP_NAME,
5602: x_klev_rec => x_klev_rec);
5603: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5604: OKL_API.set_message(p_app_name => G_APP_NAME,
5605: p_msg_name => G_CREATION_MODEL_LINE);
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: OKL_API.set_message(p_app_name => G_APP_NAME,
5609: p_msg_name => G_CREATION_MODEL_LINE);
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5603: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5604: OKL_API.set_message(p_app_name => G_APP_NAME,
5605: p_msg_name => G_CREATION_MODEL_LINE);
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: OKL_API.set_message(p_app_name => G_APP_NAME,
5609: p_msg_name => G_CREATION_MODEL_LINE);
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5604: OKL_API.set_message(p_app_name => G_APP_NAME,
5605: p_msg_name => G_CREATION_MODEL_LINE);
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: OKL_API.set_message(p_app_name => G_APP_NAME,
5609: p_msg_name => G_CREATION_MODEL_LINE);
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: l_cimv_rec := p_cimv_rec;
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: OKL_API.set_message(p_app_name => G_APP_NAME,
5609: p_msg_name => G_CREATION_MODEL_LINE);
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: l_cimv_rec := p_cimv_rec;
5613: l_cimv_rec.cle_id := x_clev_rec.id;
5614: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
5621: x_msg_count => x_msg_count,
5622: x_msg_data => x_msg_data,
5623: p_cimv_rec => l_cimv_rec,
5624: x_cimv_rec => x_cimv_rec);
5625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.set_message(p_app_name => G_APP_NAME,
5627: p_msg_name => G_CREATION_MODEL_ITEM);
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5622: x_msg_data => x_msg_data,
5623: p_cimv_rec => l_cimv_rec,
5624: x_cimv_rec => x_cimv_rec);
5625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.set_message(p_app_name => G_APP_NAME,
5627: p_msg_name => G_CREATION_MODEL_ITEM);
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.set_message(p_app_name => G_APP_NAME,
5624: x_cimv_rec => x_cimv_rec);
5625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.set_message(p_app_name => G_APP_NAME,
5627: p_msg_name => G_CREATION_MODEL_ITEM);
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.set_message(p_app_name => G_APP_NAME,
5631: p_msg_name => G_CREATION_MODEL_ITEM);
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5626: OKL_API.set_message(p_app_name => G_APP_NAME,
5627: p_msg_name => G_CREATION_MODEL_ITEM);
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.set_message(p_app_name => G_APP_NAME,
5631: p_msg_name => G_CREATION_MODEL_ITEM);
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5626: OKL_API.set_message(p_app_name => G_APP_NAME,
5627: p_msg_name => G_CREATION_MODEL_ITEM);
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.set_message(p_app_name => G_APP_NAME,
5631: p_msg_name => G_CREATION_MODEL_ITEM);
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: OKL_API.set_message(p_app_name => G_APP_NAME,
5631: p_msg_name => G_CREATION_MODEL_ITEM);
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: ---------------
5636: --Bug# 2994971
5634:
5635: ---------------
5636: --Bug# 2994971
5637: ---------------
5638: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5639: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5640:
5641: --Bug# 3438811 :
5642: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5635: ---------------
5636: --Bug# 2994971
5637: ---------------
5638: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5639: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5640:
5641: --Bug# 3438811 :
5642: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5643: --l_inv_org_id := to_char(x_cimv_rec.object1_id2);
5652: x_msg_data => x_msg_data,
5653: p_cle_id => l_asset_cle_id,
5654: p_inv_item_id => l_inv_item_id,
5655: p_inv_org_id => l_inv_org_id);
5656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5653: p_cle_id => l_asset_cle_id,
5654: p_inv_item_id => l_inv_item_id,
5655: p_inv_org_id => l_inv_org_id);
5656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661: End If;
5654: p_inv_item_id => l_inv_item_id,
5655: p_inv_org_id => l_inv_org_id);
5656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661: End If;
5662: ---------------
5655: p_inv_org_id => l_inv_org_id);
5656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5657: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_ERROR;
5660: END IF;
5661: End If;
5662: ---------------
5663: --Bug# 2994971
5664: ---------------
5665:
5666: -- #4414408
5667: -- ELSE
5668: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5669: -- p_msg_name => G_LINE_STYLE);
5670: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5671: -- END IF;
5672: OKL_API.END_ACTIVITY (x_msg_count,
5666: -- #4414408
5667: -- ELSE
5668: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5669: -- p_msg_name => G_LINE_STYLE);
5670: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5671: -- END IF;
5672: OKL_API.END_ACTIVITY (x_msg_count,
5673: x_msg_data );
5674: EXCEPTION
5668: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5669: -- p_msg_name => G_LINE_STYLE);
5670: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5671: -- END IF;
5672: OKL_API.END_ACTIVITY (x_msg_count,
5673: x_msg_data );
5674: EXCEPTION
5675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5671: -- END IF;
5672: OKL_API.END_ACTIVITY (x_msg_count,
5673: x_msg_data );
5674: EXCEPTION
5675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5677: l_api_name,
5678: G_PKG_NAME,
5679: 'OKL_API.G_RET_STS_ERROR',
5672: OKL_API.END_ACTIVITY (x_msg_count,
5673: x_msg_data );
5674: EXCEPTION
5675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5677: l_api_name,
5678: G_PKG_NAME,
5679: 'OKL_API.G_RET_STS_ERROR',
5680: x_msg_count,
5675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5677: l_api_name,
5678: G_PKG_NAME,
5679: 'OKL_API.G_RET_STS_ERROR',
5680: x_msg_count,
5681: x_msg_data,
5682: '_PVT');
5683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5679: 'OKL_API.G_RET_STS_ERROR',
5680: x_msg_count,
5681: x_msg_data,
5682: '_PVT');
5683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5685: l_api_name,
5686: G_PKG_NAME,
5687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5680: x_msg_count,
5681: x_msg_data,
5682: '_PVT');
5683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5685: l_api_name,
5686: G_PKG_NAME,
5687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5688: x_msg_count,
5683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5685: l_api_name,
5686: G_PKG_NAME,
5687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5688: x_msg_count,
5689: x_msg_data,
5690: '_PVT');
5691: WHEN OTHERS THEN
5688: x_msg_count,
5689: x_msg_data,
5690: '_PVT');
5691: WHEN OTHERS THEN
5692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5693: l_api_name,
5694: G_PKG_NAME,
5695: 'OTHERS',
5696: x_msg_count,
5698: '_PVT');
5699: END Create_model_line_item;
5700: ---------------------------------------------------------------------------------------------
5701: PROCEDURE update_model_line_item(p_api_version IN NUMBER,
5702: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5703: x_return_status OUT NOCOPY VARCHAR2,
5704: x_msg_count OUT NOCOPY NUMBER,
5705: x_msg_data OUT NOCOPY VARCHAR2,
5706: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5724: l_inv_org_id number;
5725: l_asset_cle_id number;
5726:
5727: BEGIN
5728: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5729: -- Call start_activity to create savepoint, check compatibility
5730: -- and initialize message list
5731: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5732: ,p_init_msg_list
5727: BEGIN
5728: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5729: -- Call start_activity to create savepoint, check compatibility
5730: -- and initialize message list
5731: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5732: ,p_init_msg_list
5733: ,'_PVT'
5734: ,x_return_status);
5735: -- Check if activity started successfully
5732: ,p_init_msg_list
5733: ,'_PVT'
5734: ,x_return_status);
5735: -- Check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5739: RAISE OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5733: ,'_PVT'
5734: ,x_return_status);
5735: -- Check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5739: RAISE OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741: -- Check the cle_id that is of the top Fin Asset line
5734: ,x_return_status);
5735: -- Check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5739: RAISE OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741: -- Check the cle_id that is of the top Fin Asset line
5742: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5735: -- Check if activity started successfully
5736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5739: RAISE OKL_API.G_EXCEPTION_ERROR;
5740: END IF;
5741: -- Check the cle_id that is of the top Fin Asset line
5742: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5743: p_lty_code => p_lty_code,
5742: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5743: p_lty_code => p_lty_code,
5744: x_lty_code => l_lty_code,
5745: x_return_status => x_return_status);
5746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_ERROR;
5750: END IF;
5743: p_lty_code => p_lty_code,
5744: x_lty_code => l_lty_code,
5745: x_return_status => x_return_status);
5746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5744: x_lty_code => l_lty_code,
5745: x_return_status => x_return_status);
5746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5752: -- Now the all the records are there we can create Model Line
5745: x_return_status => x_return_status);
5746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5749: RAISE OKL_API.G_EXCEPTION_ERROR;
5750: END IF;
5751: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5752: -- Now the all the records are there we can create Model Line
5753: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5758: p_clev_rec => p_clev_rec,
5759: p_klev_rec => p_klev_rec,
5760: x_clev_rec => x_clev_rec,
5761: x_klev_rec => x_klev_rec);
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5763: OKL_API.set_message(p_app_name => G_APP_NAME,
5764: p_msg_name => G_UPDATING_MODEL_LINE);
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5759: p_klev_rec => p_klev_rec,
5760: x_clev_rec => x_clev_rec,
5761: x_klev_rec => x_klev_rec);
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5763: OKL_API.set_message(p_app_name => G_APP_NAME,
5764: p_msg_name => G_UPDATING_MODEL_LINE);
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5767: OKL_API.set_message(p_app_name => G_APP_NAME,
5761: x_klev_rec => x_klev_rec);
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5763: OKL_API.set_message(p_app_name => G_APP_NAME,
5764: p_msg_name => G_UPDATING_MODEL_LINE);
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5767: OKL_API.set_message(p_app_name => G_APP_NAME,
5768: p_msg_name => G_UPDATING_MODEL_LINE);
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5763: OKL_API.set_message(p_app_name => G_APP_NAME,
5764: p_msg_name => G_UPDATING_MODEL_LINE);
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5767: OKL_API.set_message(p_app_name => G_APP_NAME,
5768: p_msg_name => G_UPDATING_MODEL_LINE);
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5763: OKL_API.set_message(p_app_name => G_APP_NAME,
5764: p_msg_name => G_UPDATING_MODEL_LINE);
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5767: OKL_API.set_message(p_app_name => G_APP_NAME,
5768: p_msg_name => G_UPDATING_MODEL_LINE);
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771: l_cimv_rec := p_cimv_rec;
5765: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5767: OKL_API.set_message(p_app_name => G_APP_NAME,
5768: p_msg_name => G_UPDATING_MODEL_LINE);
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771: l_cimv_rec := p_cimv_rec;
5772: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5773: OKL_API.set_message(p_app_name => G_APP_NAME,
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771: l_cimv_rec := p_cimv_rec;
5772: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5773: OKL_API.set_message(p_app_name => G_APP_NAME,
5774: p_msg_name => G_ITEM_RECORD);
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5771: l_cimv_rec := p_cimv_rec;
5772: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5773: OKL_API.set_message(p_app_name => G_APP_NAME,
5774: p_msg_name => G_ITEM_RECORD);
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5778: OKL_API.set_message(p_app_name => G_APP_NAME,
5779: p_msg_name => G_ITEM_RECORD);
5774: p_msg_name => G_ITEM_RECORD);
5775: RAISE OKL_API.G_EXCEPTION_ERROR;
5776: END IF;
5777: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5778: OKL_API.set_message(p_app_name => G_APP_NAME,
5779: p_msg_name => G_ITEM_RECORD);
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782: -- Creation of Item Record for the above record information
5776: END IF;
5777: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5778: OKL_API.set_message(p_app_name => G_APP_NAME,
5779: p_msg_name => G_ITEM_RECORD);
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782: -- Creation of Item Record for the above record information
5783: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
5784: p_init_msg_list => p_init_msg_list,
5786: x_msg_count => x_msg_count,
5787: x_msg_data => x_msg_data,
5788: p_cimv_rec => l_cimv_rec,
5789: x_cimv_rec => x_cimv_rec);
5790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5791: OKL_API.set_message(p_app_name => G_APP_NAME,
5792: p_msg_name => G_UPDATING_MODEL_ITEM);
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5787: x_msg_data => x_msg_data,
5788: p_cimv_rec => l_cimv_rec,
5789: x_cimv_rec => x_cimv_rec);
5790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5791: OKL_API.set_message(p_app_name => G_APP_NAME,
5792: p_msg_name => G_UPDATING_MODEL_ITEM);
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: OKL_API.set_message(p_app_name => G_APP_NAME,
5789: x_cimv_rec => x_cimv_rec);
5790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5791: OKL_API.set_message(p_app_name => G_APP_NAME,
5792: p_msg_name => G_UPDATING_MODEL_ITEM);
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: OKL_API.set_message(p_app_name => G_APP_NAME,
5796: p_msg_name => G_UPDATING_MODEL_ITEM);
5797: RAISE OKL_API.G_EXCEPTION_ERROR;
5790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5791: OKL_API.set_message(p_app_name => G_APP_NAME,
5792: p_msg_name => G_UPDATING_MODEL_ITEM);
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: OKL_API.set_message(p_app_name => G_APP_NAME,
5796: p_msg_name => G_UPDATING_MODEL_ITEM);
5797: RAISE OKL_API.G_EXCEPTION_ERROR;
5798: END IF;
5791: OKL_API.set_message(p_app_name => G_APP_NAME,
5792: p_msg_name => G_UPDATING_MODEL_ITEM);
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: OKL_API.set_message(p_app_name => G_APP_NAME,
5796: p_msg_name => G_UPDATING_MODEL_ITEM);
5797: RAISE OKL_API.G_EXCEPTION_ERROR;
5798: END IF;
5799:
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5795: OKL_API.set_message(p_app_name => G_APP_NAME,
5796: p_msg_name => G_UPDATING_MODEL_ITEM);
5797: RAISE OKL_API.G_EXCEPTION_ERROR;
5798: END IF;
5799:
5800: ---------------
5801: --Bug# 2994971
5799:
5800: ---------------
5801: --Bug# 2994971
5802: ---------------
5803: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5804: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5805:
5806: --Bug# 3438811 :
5807: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5800: ---------------
5801: --Bug# 2994971
5802: ---------------
5803: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5804: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5805:
5806: --Bug# 3438811 :
5807: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5808: --l_inv_org_id := to_char(x_cimv_rec.object1_id2);
5817: x_msg_data => x_msg_data,
5818: p_cle_id => l_asset_cle_id,
5819: p_inv_item_id => l_inv_item_id,
5820: p_inv_org_id => l_inv_org_id);
5821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5824: RAISE OKL_API.G_EXCEPTION_ERROR;
5825: END IF;
5818: p_cle_id => l_asset_cle_id,
5819: p_inv_item_id => l_inv_item_id,
5820: p_inv_org_id => l_inv_org_id);
5821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5824: RAISE OKL_API.G_EXCEPTION_ERROR;
5825: END IF;
5826: End If;
5819: p_inv_item_id => l_inv_item_id,
5820: p_inv_org_id => l_inv_org_id);
5821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5824: RAISE OKL_API.G_EXCEPTION_ERROR;
5825: END IF;
5826: End If;
5827: ---------------
5820: p_inv_org_id => l_inv_org_id);
5821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5824: RAISE OKL_API.G_EXCEPTION_ERROR;
5825: END IF;
5826: End If;
5827: ---------------
5828: --Bug# 2994971
5829: ---------------
5830:
5831:
5832: ELSE
5833: OKL_API.set_message(p_app_name => G_APP_NAME,
5834: p_msg_name => G_LINE_STYLE);
5835: RAISE OKL_API.G_EXCEPTION_ERROR;
5836: END IF;
5837: OKL_API.END_ACTIVITY (x_msg_count,
5831:
5832: ELSE
5833: OKL_API.set_message(p_app_name => G_APP_NAME,
5834: p_msg_name => G_LINE_STYLE);
5835: RAISE OKL_API.G_EXCEPTION_ERROR;
5836: END IF;
5837: OKL_API.END_ACTIVITY (x_msg_count,
5838: x_msg_data );
5839: EXCEPTION
5833: OKL_API.set_message(p_app_name => G_APP_NAME,
5834: p_msg_name => G_LINE_STYLE);
5835: RAISE OKL_API.G_EXCEPTION_ERROR;
5836: END IF;
5837: OKL_API.END_ACTIVITY (x_msg_count,
5838: x_msg_data );
5839: EXCEPTION
5840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5841: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5836: END IF;
5837: OKL_API.END_ACTIVITY (x_msg_count,
5838: x_msg_data );
5839: EXCEPTION
5840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5841: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5842: l_api_name,
5843: G_PKG_NAME,
5844: 'OKL_API.G_RET_STS_ERROR',
5837: OKL_API.END_ACTIVITY (x_msg_count,
5838: x_msg_data );
5839: EXCEPTION
5840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5841: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5842: l_api_name,
5843: G_PKG_NAME,
5844: 'OKL_API.G_RET_STS_ERROR',
5845: x_msg_count,
5840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5841: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5842: l_api_name,
5843: G_PKG_NAME,
5844: 'OKL_API.G_RET_STS_ERROR',
5845: x_msg_count,
5846: x_msg_data,
5847: '_PVT');
5848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5844: 'OKL_API.G_RET_STS_ERROR',
5845: x_msg_count,
5846: x_msg_data,
5847: '_PVT');
5848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5850: l_api_name,
5851: G_PKG_NAME,
5852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5845: x_msg_count,
5846: x_msg_data,
5847: '_PVT');
5848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5850: l_api_name,
5851: G_PKG_NAME,
5852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5853: x_msg_count,
5848: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5849: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5850: l_api_name,
5851: G_PKG_NAME,
5852: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5853: x_msg_count,
5854: x_msg_data,
5855: '_PVT');
5856: WHEN OTHERS THEN
5853: x_msg_count,
5854: x_msg_data,
5855: '_PVT');
5856: WHEN OTHERS THEN
5857: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5858: l_api_name,
5859: G_PKG_NAME,
5860: 'OTHERS',
5861: x_msg_count,
5863: '_PVT');
5864: END update_model_line_item;
5865: --------------------------------------------------------------------------------------------------
5866: PROCEDURE create_fa_line_item(p_api_version IN NUMBER,
5867: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5868: x_return_status OUT NOCOPY VARCHAR2,
5869: x_msg_count OUT NOCOPY NUMBER,
5870: x_msg_data OUT NOCOPY VARCHAR2,
5871: -- p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5887: l_trxv_rec trxv_rec_type;
5888: i NUMBER := 0;
5889:
5890: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
5891: lv_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
5892: lv_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR;
5893: ln_dummy NUMBER := 0;
5894: lv_dummy VARCHAR2(3);
5895: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
5888: i NUMBER := 0;
5889:
5890: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
5891: lv_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
5892: lv_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR;
5893: ln_dummy NUMBER := 0;
5894: lv_dummy VARCHAR2(3);
5895: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
5896: ln_line_number OKL_TXL_ASSETS_V.LINE_NUMBER%TYPE;
5907: AND id2 = p_id2
5908: AND dnz_chr_id <> p_dnz_chr_id
5909: AND line_status NOT IN ('EXPRIED','TERMINATED','ABANDONED'); --);
5910: BEGIN
5911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5912: -- Call start_activity to create savepoint, check compatibility
5913: -- and initialize message list
5914: x_return_status := OKL_API.START_ACTIVITY (l_api_name,
5915: p_init_msg_list,
5910: BEGIN
5911: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5912: -- Call start_activity to create savepoint, check compatibility
5913: -- and initialize message list
5914: x_return_status := OKL_API.START_ACTIVITY (l_api_name,
5915: p_init_msg_list,
5916: '_PVT',
5917: x_return_status);
5918: -- Check if activity started successfully
5915: p_init_msg_list,
5916: '_PVT',
5917: x_return_status);
5918: -- Check if activity started successfully
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5916: '_PVT',
5917: x_return_status);
5918: -- Check if activity started successfully
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: -- #4414408
5917: x_return_status);
5918: -- Check if activity started successfully
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: -- #4414408
5925: /*
5918: -- Check if activity started successfully
5919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5921: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5922: RAISE OKL_API.G_EXCEPTION_ERROR;
5923: END IF;
5924: -- #4414408
5925: /*
5926: -- Check the cle_id that is of the top Fin Asset line
5927: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5928: p_lty_code => p_lty_code,
5929: x_lty_code => l_lty_code,
5930: x_return_status => x_return_status);
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5928: p_lty_code => p_lty_code,
5929: x_lty_code => l_lty_code,
5930: x_return_status => x_return_status);
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: */
5929: x_lty_code => l_lty_code,
5930: x_return_status => x_return_status);
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: */
5937: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
5930: x_return_status => x_return_status);
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936: */
5937: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
5938: -- which line are creating under which line
5942:
5943: -- # 4414408 New function default_contract_line_values
5944: /*
5945: IF (p_clev_rec.sts_code IS NULL OR
5946: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5947: x_return_status := get_sts_code(p_dnz_chr_id => null,
5948: p_cle_id => p_clev_rec.cle_id,
5949: x_sts_code => r_clev_rec.sts_code);
5950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5946: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5947: x_return_status := get_sts_code(p_dnz_chr_id => null,
5948: p_cle_id => p_clev_rec.cle_id,
5949: x_sts_code => r_clev_rec.sts_code);
5950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5953: RAISE OKL_API.G_EXCEPTION_ERROR;
5954: END IF;
5947: x_return_status := get_sts_code(p_dnz_chr_id => null,
5948: p_cle_id => p_clev_rec.cle_id,
5949: x_sts_code => r_clev_rec.sts_code);
5950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5953: RAISE OKL_API.G_EXCEPTION_ERROR;
5954: END IF;
5955: END IF;
5948: p_cle_id => p_clev_rec.cle_id,
5949: x_sts_code => r_clev_rec.sts_code);
5950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5953: RAISE OKL_API.G_EXCEPTION_ERROR;
5954: END IF;
5955: END IF;
5956: IF (p_clev_rec.end_date IS NULL OR
5949: x_sts_code => r_clev_rec.sts_code);
5950: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5953: RAISE OKL_API.G_EXCEPTION_ERROR;
5954: END IF;
5955: END IF;
5956: IF (p_clev_rec.end_date IS NULL OR
5957: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5953: RAISE OKL_API.G_EXCEPTION_ERROR;
5954: END IF;
5955: END IF;
5956: IF (p_clev_rec.end_date IS NULL OR
5957: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5958: x_return_status := get_end_date(p_dnz_chr_id => null,
5959: p_cle_id => p_clev_rec.cle_id,
5960: x_end_date => r_clev_rec.end_date);
5961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5957: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5958: x_return_status := get_end_date(p_dnz_chr_id => null,
5959: p_cle_id => p_clev_rec.cle_id,
5960: x_end_date => r_clev_rec.end_date);
5961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_ERROR;
5965: END IF;
5958: x_return_status := get_end_date(p_dnz_chr_id => null,
5959: p_cle_id => p_clev_rec.cle_id,
5960: x_end_date => r_clev_rec.end_date);
5961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_ERROR;
5965: END IF;
5966: END IF;
5959: p_cle_id => p_clev_rec.cle_id,
5960: x_end_date => r_clev_rec.end_date);
5961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_ERROR;
5965: END IF;
5966: END IF;
5967: IF (p_clev_rec.start_date IS NULL OR
5960: x_end_date => r_clev_rec.end_date);
5961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5964: RAISE OKL_API.G_EXCEPTION_ERROR;
5965: END IF;
5966: END IF;
5967: IF (p_clev_rec.start_date IS NULL OR
5968: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5964: RAISE OKL_API.G_EXCEPTION_ERROR;
5965: END IF;
5966: END IF;
5967: IF (p_clev_rec.start_date IS NULL OR
5968: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5969: x_return_status := get_start_date(p_dnz_chr_id => null,
5970: p_cle_id => p_clev_rec.cle_id,
5971: x_start_date => r_clev_rec.start_date);
5972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5968: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5969: x_return_status := get_start_date(p_dnz_chr_id => null,
5970: p_cle_id => p_clev_rec.cle_id,
5971: x_start_date => r_clev_rec.start_date);
5972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5975: RAISE OKL_API.G_EXCEPTION_ERROR;
5976: END IF;
5969: x_return_status := get_start_date(p_dnz_chr_id => null,
5970: p_cle_id => p_clev_rec.cle_id,
5971: x_start_date => r_clev_rec.start_date);
5972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5975: RAISE OKL_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: END IF;
5970: p_cle_id => p_clev_rec.cle_id,
5971: x_start_date => r_clev_rec.start_date);
5972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5975: RAISE OKL_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: END IF;
5978: IF (p_clev_rec.currency_code IS NULL OR
5971: x_start_date => r_clev_rec.start_date);
5972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5975: RAISE OKL_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: END IF;
5978: IF (p_clev_rec.currency_code IS NULL OR
5979: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5975: RAISE OKL_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: END IF;
5978: IF (p_clev_rec.currency_code IS NULL OR
5979: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5980: x_return_status := get_currency_code(p_dnz_chr_id => null,
5981: p_cle_id => p_clev_rec.cle_id,
5982: x_currency_code => r_clev_rec.currency_code);
5983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5979: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5980: x_return_status := get_currency_code(p_dnz_chr_id => null,
5981: p_cle_id => p_clev_rec.cle_id,
5982: x_currency_code => r_clev_rec.currency_code);
5983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_ERROR;
5987: END IF;
5980: x_return_status := get_currency_code(p_dnz_chr_id => null,
5981: p_cle_id => p_clev_rec.cle_id,
5982: x_currency_code => r_clev_rec.currency_code);
5983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_ERROR;
5987: END IF;
5988: END IF;
5981: p_cle_id => p_clev_rec.cle_id,
5982: x_currency_code => r_clev_rec.currency_code);
5983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_ERROR;
5987: END IF;
5988: END IF;
5989: */
5982: x_currency_code => r_clev_rec.currency_code);
5983: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5984: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5985: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_ERROR;
5987: END IF;
5988: END IF;
5989: */
5990: IF ((p_clev_rec.sts_code IS NULL OR
5987: END IF;
5988: END IF;
5989: */
5990: IF ((p_clev_rec.sts_code IS NULL OR
5991: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5992: (p_clev_rec.end_date IS NULL OR
5993: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5994: (p_clev_rec.start_date IS NULL OR
5995: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5989: */
5990: IF ((p_clev_rec.sts_code IS NULL OR
5991: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5992: (p_clev_rec.end_date IS NULL OR
5993: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5994: (p_clev_rec.start_date IS NULL OR
5995: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5996: (p_clev_rec.currency_code IS NULL OR
5997: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5991: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5992: (p_clev_rec.end_date IS NULL OR
5993: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5994: (p_clev_rec.start_date IS NULL OR
5995: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5996: (p_clev_rec.currency_code IS NULL OR
5997: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5998: ) THEN
5999: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5993: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5994: (p_clev_rec.start_date IS NULL OR
5995: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5996: (p_clev_rec.currency_code IS NULL OR
5997: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5998: ) THEN
5999: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6000: p_cle_id => r_clev_rec.cle_id,
6001: p_clev_rec => r_clev_rec);
5998: ) THEN
5999: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6000: p_cle_id => r_clev_rec.cle_id,
6001: p_clev_rec => r_clev_rec);
6002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_ERROR;
6006: END IF;
5999: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6000: p_cle_id => r_clev_rec.cle_id,
6001: p_clev_rec => r_clev_rec);
6002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_ERROR;
6006: END IF;
6007: END IF;
6000: p_cle_id => r_clev_rec.cle_id,
6001: p_clev_rec => r_clev_rec);
6002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_ERROR;
6006: END IF;
6007: END IF;
6008: -- Now the all the records are there we can create Fixed Asset Line
6001: p_clev_rec => r_clev_rec);
6002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6003: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_ERROR;
6006: END IF;
6007: END IF;
6008: -- Now the all the records are there we can create Fixed Asset Line
6009: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
6014: p_clev_rec => r_clev_rec,
6015: p_klev_rec => p_klev_rec,
6016: x_clev_rec => x_clev_rec,
6017: x_klev_rec => x_klev_rec);
6018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6019: OKL_API.set_message(p_app_name => G_APP_NAME,
6020: p_msg_name => G_CREATION_FA_LINE);
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6015: p_klev_rec => p_klev_rec,
6016: x_clev_rec => x_clev_rec,
6017: x_klev_rec => x_klev_rec);
6018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6019: OKL_API.set_message(p_app_name => G_APP_NAME,
6020: p_msg_name => G_CREATION_FA_LINE);
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6023: OKL_API.set_message(p_app_name => G_APP_NAME,
6017: x_klev_rec => x_klev_rec);
6018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6019: OKL_API.set_message(p_app_name => G_APP_NAME,
6020: p_msg_name => G_CREATION_FA_LINE);
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6023: OKL_API.set_message(p_app_name => G_APP_NAME,
6024: p_msg_name => G_CREATION_FA_LINE);
6025: RAISE OKL_API.G_EXCEPTION_ERROR;
6018: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6019: OKL_API.set_message(p_app_name => G_APP_NAME,
6020: p_msg_name => G_CREATION_FA_LINE);
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6023: OKL_API.set_message(p_app_name => G_APP_NAME,
6024: p_msg_name => G_CREATION_FA_LINE);
6025: RAISE OKL_API.G_EXCEPTION_ERROR;
6026: END IF;
6019: OKL_API.set_message(p_app_name => G_APP_NAME,
6020: p_msg_name => G_CREATION_FA_LINE);
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6023: OKL_API.set_message(p_app_name => G_APP_NAME,
6024: p_msg_name => G_CREATION_FA_LINE);
6025: RAISE OKL_API.G_EXCEPTION_ERROR;
6026: END IF;
6027: l_cimv_rec := p_cimv_rec;
6021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6023: OKL_API.set_message(p_app_name => G_APP_NAME,
6024: p_msg_name => G_CREATION_FA_LINE);
6025: RAISE OKL_API.G_EXCEPTION_ERROR;
6026: END IF;
6027: l_cimv_rec := p_cimv_rec;
6028: l_cimv_rec.cle_id := x_clev_rec.id;
6029: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6031: lv_id2 := l_cimv_rec.object1_id2;
6032: l_cimv_rec.jtot_object1_code := 'OKX_ASSET';
6033: -- Now we should check weather the associated id1,id2 for a given asset number is null or not
6034: IF (lv_id1 IS NOT NULL OR
6035: lv_id1 <> OKL_API.G_MISS_CHAR) AND
6036: (lv_id2 IS NOT NULL OR
6037: lv_id2 <> OKL_API.G_MISS_CHAR) THEN
6038: -- Check to See the Fixed asset is not already in another contract
6039: OPEN c_asset_exist_chr(lv_id1,lv_id2,l_cimv_rec.dnz_chr_id);
6033: -- Now we should check weather the associated id1,id2 for a given asset number is null or not
6034: IF (lv_id1 IS NOT NULL OR
6035: lv_id1 <> OKL_API.G_MISS_CHAR) AND
6036: (lv_id2 IS NOT NULL OR
6037: lv_id2 <> OKL_API.G_MISS_CHAR) THEN
6038: -- Check to See the Fixed asset is not already in another contract
6039: OPEN c_asset_exist_chr(lv_id1,lv_id2,l_cimv_rec.dnz_chr_id);
6040: FETCH c_asset_exist_chr into ln_dummy;
6041: CLOSE c_asset_exist_chr;
6047: x_msg_count => x_msg_count,
6048: x_msg_data => x_msg_data,
6049: p_cimv_rec => l_cimv_rec,
6050: x_cimv_rec => x_cimv_rec);
6051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6052: OKL_API.set_message(p_app_name => G_APP_NAME,
6053: p_msg_name => G_CREATION_FA_ITEM);
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6048: x_msg_data => x_msg_data,
6049: p_cimv_rec => l_cimv_rec,
6050: x_cimv_rec => x_cimv_rec);
6051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6052: OKL_API.set_message(p_app_name => G_APP_NAME,
6053: p_msg_name => G_CREATION_FA_ITEM);
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: OKL_API.set_message(p_app_name => G_APP_NAME,
6050: x_cimv_rec => x_cimv_rec);
6051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6052: OKL_API.set_message(p_app_name => G_APP_NAME,
6053: p_msg_name => G_CREATION_FA_ITEM);
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: OKL_API.set_message(p_app_name => G_APP_NAME,
6057: p_msg_name => G_CREATION_FA_ITEM);
6058: RAISE OKL_API.G_EXCEPTION_ERROR;
6051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6052: OKL_API.set_message(p_app_name => G_APP_NAME,
6053: p_msg_name => G_CREATION_FA_ITEM);
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: OKL_API.set_message(p_app_name => G_APP_NAME,
6057: p_msg_name => G_CREATION_FA_ITEM);
6058: RAISE OKL_API.G_EXCEPTION_ERROR;
6059: END IF;
6052: OKL_API.set_message(p_app_name => G_APP_NAME,
6053: p_msg_name => G_CREATION_FA_ITEM);
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: OKL_API.set_message(p_app_name => G_APP_NAME,
6057: p_msg_name => G_CREATION_FA_ITEM);
6058: RAISE OKL_API.G_EXCEPTION_ERROR;
6059: END IF;
6060: -- We need to do this as part of Asset Release since the p_new_yn flag is N
6054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: OKL_API.set_message(p_app_name => G_APP_NAME,
6057: p_msg_name => G_CREATION_FA_ITEM);
6058: RAISE OKL_API.G_EXCEPTION_ERROR;
6059: END IF;
6060: -- We need to do this as part of Asset Release since the p_new_yn flag is N
6061: -- So that the adjustment will be done while activation of the re-lease asseted contract.
6062: -- We need to know if the kle_id is already there or not
6063: -- ideally it should be null since it is a new record
6064: validate_kle_id(p_klev_rec => x_klev_rec,
6065: x_record_exists => lv_dummy,
6066: x_return_status => x_return_status);
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6064: validate_kle_id(p_klev_rec => x_klev_rec,
6065: x_record_exists => lv_dummy,
6066: x_return_status => x_return_status);
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6065: x_record_exists => lv_dummy,
6066: x_return_status => x_return_status);
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6073: lv_dummy IS NUll) THEN
6066: x_return_status => x_return_status);
6067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6073: lv_dummy IS NUll) THEN
6074: l_talv_rec := p_talv_rec;
6068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6070: RAISE OKL_API.G_EXCEPTION_ERROR;
6071: END IF;
6072: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6073: lv_dummy IS NUll) THEN
6074: l_talv_rec := p_talv_rec;
6075: l_talv_rec.kle_id := x_clev_rec.id;
6076: l_talv_rec.dnz_khr_id := x_clev_rec.dnz_chr_id;
6083: x_msg_data => x_msg_data,
6084: p_talv_rec => l_talv_rec,
6085: x_trxv_rec => x_trxv_rec,
6086: x_talv_rec => x_talv_rec);
6087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6084: p_talv_rec => l_talv_rec,
6085: x_trxv_rec => x_trxv_rec,
6086: x_talv_rec => x_talv_rec);
6087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: ELSE
6085: x_trxv_rec => x_trxv_rec,
6086: x_talv_rec => x_talv_rec);
6087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: ELSE
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6086: x_talv_rec => x_talv_rec);
6087: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6088: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: ELSE
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_KLE_ID);
6089: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6090: RAISE OKL_API.G_EXCEPTION_ERROR;
6091: END IF;
6092: ELSE
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_KLE_ID);
6095: RAISE OKL_API.G_EXCEPTION_ERROR;
6096: END IF;
6097: ELSE
6091: END IF;
6092: ELSE
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_KLE_ID);
6095: RAISE OKL_API.G_EXCEPTION_ERROR;
6096: END IF;
6097: ELSE
6098: OKL_API.set_message(p_app_name => G_APP_NAME,
6099: p_msg_name => G_CREATION_FA_ITEM);
6094: p_msg_name => G_KLE_ID);
6095: RAISE OKL_API.G_EXCEPTION_ERROR;
6096: END IF;
6097: ELSE
6098: OKL_API.set_message(p_app_name => G_APP_NAME,
6099: p_msg_name => G_CREATION_FA_ITEM);
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6102: ELSE
6096: END IF;
6097: ELSE
6098: OKL_API.set_message(p_app_name => G_APP_NAME,
6099: p_msg_name => G_CREATION_FA_ITEM);
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6102: ELSE
6103: -- Since id1,id12 are null , hence NO Asset Number we are creating a new asset Number
6104: -- Creation of Item Record for the above record information
6108: x_msg_count => x_msg_count,
6109: x_msg_data => x_msg_data,
6110: p_cimv_rec => l_cimv_rec,
6111: x_cimv_rec => x_cimv_rec);
6112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: OKL_API.set_message(p_app_name => G_APP_NAME,
6114: p_msg_name => G_CREATION_FA_ITEM);
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6109: x_msg_data => x_msg_data,
6110: p_cimv_rec => l_cimv_rec,
6111: x_cimv_rec => x_cimv_rec);
6112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: OKL_API.set_message(p_app_name => G_APP_NAME,
6114: p_msg_name => G_CREATION_FA_ITEM);
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6117: OKL_API.set_message(p_app_name => G_APP_NAME,
6111: x_cimv_rec => x_cimv_rec);
6112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: OKL_API.set_message(p_app_name => G_APP_NAME,
6114: p_msg_name => G_CREATION_FA_ITEM);
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6117: OKL_API.set_message(p_app_name => G_APP_NAME,
6118: p_msg_name => G_CREATION_FA_ITEM);
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6113: OKL_API.set_message(p_app_name => G_APP_NAME,
6114: p_msg_name => G_CREATION_FA_ITEM);
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6117: OKL_API.set_message(p_app_name => G_APP_NAME,
6118: p_msg_name => G_CREATION_FA_ITEM);
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6113: OKL_API.set_message(p_app_name => G_APP_NAME,
6114: p_msg_name => G_CREATION_FA_ITEM);
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6117: OKL_API.set_message(p_app_name => G_APP_NAME,
6118: p_msg_name => G_CREATION_FA_ITEM);
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6121: -- We need to know if the kle_id is already there or not
6115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6117: OKL_API.set_message(p_app_name => G_APP_NAME,
6118: p_msg_name => G_CREATION_FA_ITEM);
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6121: -- We need to know if the kle_id is already there or not
6122: -- ideally it should be null since it is a new record
6123: validate_kle_id(p_klev_rec => x_klev_rec,
6122: -- ideally it should be null since it is a new record
6123: validate_kle_id(p_klev_rec => x_klev_rec,
6124: x_record_exists => lv_dummy,
6125: x_return_status => x_return_status);
6126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: END IF;
6123: validate_kle_id(p_klev_rec => x_klev_rec,
6124: x_record_exists => lv_dummy,
6125: x_return_status => x_return_status);
6126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: END IF;
6131: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6124: x_record_exists => lv_dummy,
6125: x_return_status => x_return_status);
6126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: END IF;
6131: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6132: lv_dummy IS NUll) THEN
6125: x_return_status => x_return_status);
6126: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: END IF;
6131: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6132: lv_dummy IS NUll) THEN
6133: l_talv_rec := p_talv_rec;
6127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: END IF;
6131: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6132: lv_dummy IS NUll) THEN
6133: l_talv_rec := p_talv_rec;
6134: l_talv_rec.kle_id := x_clev_rec.id;
6135: l_talv_rec.dnz_khr_id := x_clev_rec.dnz_chr_id;
6142: x_msg_data => x_msg_data,
6143: p_talv_rec => l_talv_rec,
6144: x_trxv_rec => x_trxv_rec,
6145: x_talv_rec => x_talv_rec);
6146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: RAISE OKL_API.G_EXCEPTION_ERROR;
6150: END IF;
6143: p_talv_rec => l_talv_rec,
6144: x_trxv_rec => x_trxv_rec,
6145: x_talv_rec => x_talv_rec);
6146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: RAISE OKL_API.G_EXCEPTION_ERROR;
6150: END IF;
6151: ELSE
6144: x_trxv_rec => x_trxv_rec,
6145: x_talv_rec => x_talv_rec);
6146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: RAISE OKL_API.G_EXCEPTION_ERROR;
6150: END IF;
6151: ELSE
6152: OKL_API.set_message(p_app_name => G_APP_NAME,
6145: x_talv_rec => x_talv_rec);
6146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: RAISE OKL_API.G_EXCEPTION_ERROR;
6150: END IF;
6151: ELSE
6152: OKL_API.set_message(p_app_name => G_APP_NAME,
6153: p_msg_name => G_KLE_ID);
6148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: RAISE OKL_API.G_EXCEPTION_ERROR;
6150: END IF;
6151: ELSE
6152: OKL_API.set_message(p_app_name => G_APP_NAME,
6153: p_msg_name => G_KLE_ID);
6154: RAISE OKL_API.G_EXCEPTION_ERROR;
6155: END IF;
6156: END IF;
6150: END IF;
6151: ELSE
6152: OKL_API.set_message(p_app_name => G_APP_NAME,
6153: p_msg_name => G_KLE_ID);
6154: RAISE OKL_API.G_EXCEPTION_ERROR;
6155: END IF;
6156: END IF;
6157: -- #4414408
6158: -- ELSE
6155: END IF;
6156: END IF;
6157: -- #4414408
6158: -- ELSE
6159: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6160: -- p_msg_name => G_LINE_STYLE);
6161: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6162: -- END IF;
6163: OKL_API.END_ACTIVITY (x_msg_count,
6157: -- #4414408
6158: -- ELSE
6159: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6160: -- p_msg_name => G_LINE_STYLE);
6161: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6162: -- END IF;
6163: OKL_API.END_ACTIVITY (x_msg_count,
6164: x_msg_data );
6165: EXCEPTION
6159: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6160: -- p_msg_name => G_LINE_STYLE);
6161: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6162: -- END IF;
6163: OKL_API.END_ACTIVITY (x_msg_count,
6164: x_msg_data );
6165: EXCEPTION
6166: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6167: IF c_asset_exist_chr%ISOPEN THEN
6162: -- END IF;
6163: OKL_API.END_ACTIVITY (x_msg_count,
6164: x_msg_data );
6165: EXCEPTION
6166: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6167: IF c_asset_exist_chr%ISOPEN THEN
6168: CLOSE c_asset_exist_chr;
6169: END IF;
6170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6166: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6167: IF c_asset_exist_chr%ISOPEN THEN
6168: CLOSE c_asset_exist_chr;
6169: END IF;
6170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6171: l_api_name,
6172: G_PKG_NAME,
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6169: END IF;
6170: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6171: l_api_name,
6172: G_PKG_NAME,
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6175: x_msg_data,
6176: '_PVT');
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6173: 'OKL_API.G_RET_STS_ERROR',
6174: x_msg_count,
6175: x_msg_data,
6176: '_PVT');
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6179: l_api_name,
6180: G_PKG_NAME,
6181: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6174: x_msg_count,
6175: x_msg_data,
6176: '_PVT');
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6179: l_api_name,
6180: G_PKG_NAME,
6181: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6182: x_msg_count,
6177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6178: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6179: l_api_name,
6180: G_PKG_NAME,
6181: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6182: x_msg_count,
6183: x_msg_data,
6184: '_PVT');
6185: WHEN OTHERS THEN
6185: WHEN OTHERS THEN
6186: IF c_asset_exist_chr%ISOPEN THEN
6187: CLOSE c_asset_exist_chr;
6188: END IF;
6189: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6190: l_api_name,
6191: G_PKG_NAME,
6192: 'OTHERS',
6193: x_msg_count,
6195: '_PVT');
6196: END create_fa_line_item;
6197: -------------------------------------------------------------------------------------------------
6198: PROCEDURE update_fa_line_item(p_api_version IN NUMBER,
6199: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6200: x_return_status OUT NOCOPY VARCHAR2,
6201: x_msg_count OUT NOCOPY NUMBER,
6202: x_msg_data OUT NOCOPY VARCHAR2,
6203: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6221: lv_dummy VARCHAR2(3);
6222: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
6223: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FA_LINE_ITEM';
6224: BEGIN
6225: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6226: -- Call start_activity to create savepoint, check compatibility
6227: -- and initialize message list
6228: x_return_status := OKL_API.START_ACTIVITY (
6229: l_api_name
6224: BEGIN
6225: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6226: -- Call start_activity to create savepoint, check compatibility
6227: -- and initialize message list
6228: x_return_status := OKL_API.START_ACTIVITY (
6229: l_api_name
6230: ,p_init_msg_list
6231: ,'_PVT'
6232: ,x_return_status);
6230: ,p_init_msg_list
6231: ,'_PVT'
6232: ,x_return_status);
6233: -- Check if activity started successfully
6234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_ERROR;
6238: END IF;
6231: ,'_PVT'
6232: ,x_return_status);
6233: -- Check if activity started successfully
6234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_ERROR;
6238: END IF;
6239: -- Check the cle_id that is of the top Fin Asset line
6232: ,x_return_status);
6233: -- Check if activity started successfully
6234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_ERROR;
6238: END IF;
6239: -- Check the cle_id that is of the top Fin Asset line
6240: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6233: -- Check if activity started successfully
6234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6235: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6237: RAISE OKL_API.G_EXCEPTION_ERROR;
6238: END IF;
6239: -- Check the cle_id that is of the top Fin Asset line
6240: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6241: p_lty_code => p_lty_code,
6240: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6241: p_lty_code => p_lty_code,
6242: x_lty_code => l_lty_code,
6243: x_return_status => x_return_status);
6244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6247: RAISE OKL_API.G_EXCEPTION_ERROR;
6248: END IF;
6241: p_lty_code => p_lty_code,
6242: x_lty_code => l_lty_code,
6243: x_return_status => x_return_status);
6244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6247: RAISE OKL_API.G_EXCEPTION_ERROR;
6248: END IF;
6249: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6242: x_lty_code => l_lty_code,
6243: x_return_status => x_return_status);
6244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6247: RAISE OKL_API.G_EXCEPTION_ERROR;
6248: END IF;
6249: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6250: -- which line are creating under which line
6243: x_return_status => x_return_status);
6244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6247: RAISE OKL_API.G_EXCEPTION_ERROR;
6248: END IF;
6249: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6250: -- which line are creating under which line
6251: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
6257: p_clev_rec => p_clev_rec,
6258: p_klev_rec => p_klev_rec,
6259: x_clev_rec => x_clev_rec,
6260: x_klev_rec => x_klev_rec);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: OKL_API.set_message(p_app_name => G_APP_NAME,
6263: p_msg_name => G_UPDATING_FA_LINE);
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6258: p_klev_rec => p_klev_rec,
6259: x_clev_rec => x_clev_rec,
6260: x_klev_rec => x_klev_rec);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: OKL_API.set_message(p_app_name => G_APP_NAME,
6263: p_msg_name => G_UPDATING_FA_LINE);
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6266: OKL_API.set_message(p_app_name => G_APP_NAME,
6260: x_klev_rec => x_klev_rec);
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: OKL_API.set_message(p_app_name => G_APP_NAME,
6263: p_msg_name => G_UPDATING_FA_LINE);
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6266: OKL_API.set_message(p_app_name => G_APP_NAME,
6267: p_msg_name => G_UPDATING_FA_LINE);
6268: RAISE OKL_API.G_EXCEPTION_ERROR;
6261: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6262: OKL_API.set_message(p_app_name => G_APP_NAME,
6263: p_msg_name => G_UPDATING_FA_LINE);
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6266: OKL_API.set_message(p_app_name => G_APP_NAME,
6267: p_msg_name => G_UPDATING_FA_LINE);
6268: RAISE OKL_API.G_EXCEPTION_ERROR;
6269: END IF;
6262: OKL_API.set_message(p_app_name => G_APP_NAME,
6263: p_msg_name => G_UPDATING_FA_LINE);
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6266: OKL_API.set_message(p_app_name => G_APP_NAME,
6267: p_msg_name => G_UPDATING_FA_LINE);
6268: RAISE OKL_API.G_EXCEPTION_ERROR;
6269: END IF;
6270: l_cimv_rec := p_cimv_rec;
6264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6266: OKL_API.set_message(p_app_name => G_APP_NAME,
6267: p_msg_name => G_UPDATING_FA_LINE);
6268: RAISE OKL_API.G_EXCEPTION_ERROR;
6269: END IF;
6270: l_cimv_rec := p_cimv_rec;
6271: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6272: OKL_API.set_message(p_app_name => G_APP_NAME,
6268: RAISE OKL_API.G_EXCEPTION_ERROR;
6269: END IF;
6270: l_cimv_rec := p_cimv_rec;
6271: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6272: OKL_API.set_message(p_app_name => G_APP_NAME,
6273: p_msg_name => G_ITEM_RECORD);
6274: RAISE OKL_API.G_EXCEPTION_ERROR;
6275: END IF;
6276: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6270: l_cimv_rec := p_cimv_rec;
6271: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6272: OKL_API.set_message(p_app_name => G_APP_NAME,
6273: p_msg_name => G_ITEM_RECORD);
6274: RAISE OKL_API.G_EXCEPTION_ERROR;
6275: END IF;
6276: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6277: OKL_API.set_message(p_app_name => G_APP_NAME,
6278: p_msg_name => G_ITEM_RECORD);
6273: p_msg_name => G_ITEM_RECORD);
6274: RAISE OKL_API.G_EXCEPTION_ERROR;
6275: END IF;
6276: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6277: OKL_API.set_message(p_app_name => G_APP_NAME,
6278: p_msg_name => G_ITEM_RECORD);
6279: RAISE OKL_API.G_EXCEPTION_ERROR;
6280: END IF;
6281: -- Creation of Item Record for the above record information
6275: END IF;
6276: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6277: OKL_API.set_message(p_app_name => G_APP_NAME,
6278: p_msg_name => G_ITEM_RECORD);
6279: RAISE OKL_API.G_EXCEPTION_ERROR;
6280: END IF;
6281: -- Creation of Item Record for the above record information
6282: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
6283: p_init_msg_list => p_init_msg_list,
6285: x_msg_count => x_msg_count,
6286: x_msg_data => x_msg_data,
6287: p_cimv_rec => l_cimv_rec,
6288: x_cimv_rec => x_cimv_rec);
6289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6290: OKL_API.set_message(p_app_name => G_APP_NAME,
6291: p_msg_name => G_UPDATING_FA_ITEM);
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6286: x_msg_data => x_msg_data,
6287: p_cimv_rec => l_cimv_rec,
6288: x_cimv_rec => x_cimv_rec);
6289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6290: OKL_API.set_message(p_app_name => G_APP_NAME,
6291: p_msg_name => G_UPDATING_FA_ITEM);
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6294: OKL_API.set_message(p_app_name => G_APP_NAME,
6288: x_cimv_rec => x_cimv_rec);
6289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6290: OKL_API.set_message(p_app_name => G_APP_NAME,
6291: p_msg_name => G_UPDATING_FA_ITEM);
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6294: OKL_API.set_message(p_app_name => G_APP_NAME,
6295: p_msg_name => G_UPDATING_FA_ITEM);
6296: RAISE OKL_API.G_EXCEPTION_ERROR;
6289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6290: OKL_API.set_message(p_app_name => G_APP_NAME,
6291: p_msg_name => G_UPDATING_FA_ITEM);
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6294: OKL_API.set_message(p_app_name => G_APP_NAME,
6295: p_msg_name => G_UPDATING_FA_ITEM);
6296: RAISE OKL_API.G_EXCEPTION_ERROR;
6297: END IF;
6290: OKL_API.set_message(p_app_name => G_APP_NAME,
6291: p_msg_name => G_UPDATING_FA_ITEM);
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6294: OKL_API.set_message(p_app_name => G_APP_NAME,
6295: p_msg_name => G_UPDATING_FA_ITEM);
6296: RAISE OKL_API.G_EXCEPTION_ERROR;
6297: END IF;
6298: -- x_clev_rec := l_clev_rec;
6292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6294: OKL_API.set_message(p_app_name => G_APP_NAME,
6295: p_msg_name => G_UPDATING_FA_ITEM);
6296: RAISE OKL_API.G_EXCEPTION_ERROR;
6297: END IF;
6298: -- x_clev_rec := l_clev_rec;
6299: -- We commented the same out because does not make sense
6300: -- because we are now populating the txl assets in both the cases
6299: -- We commented the same out because does not make sense
6300: -- because we are now populating the txl assets in both the cases
6301: -- i.e., when the OKC_K_ITEMS.OBJECT1_ID1 and OBJECT1_ID2 is null or not null
6302: -- IF (x_cimv_rec.object1_id1 IS NULL OR
6303: -- x_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
6304: -- (x_cimv_rec.object1_id2 IS NULL OR
6305: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6306: validate_kle_id(p_klev_rec => x_klev_rec,
6307: x_record_exists => lv_dummy,
6301: -- i.e., when the OKC_K_ITEMS.OBJECT1_ID1 and OBJECT1_ID2 is null or not null
6302: -- IF (x_cimv_rec.object1_id1 IS NULL OR
6303: -- x_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
6304: -- (x_cimv_rec.object1_id2 IS NULL OR
6305: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6306: validate_kle_id(p_klev_rec => x_klev_rec,
6307: x_record_exists => lv_dummy,
6308: x_return_status => x_return_status);
6309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6305: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6306: validate_kle_id(p_klev_rec => x_klev_rec,
6307: x_record_exists => lv_dummy,
6308: x_return_status => x_return_status);
6309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6312: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6306: validate_kle_id(p_klev_rec => x_klev_rec,
6307: x_record_exists => lv_dummy,
6308: x_return_status => x_return_status);
6309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6312: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6314: IF (lv_dummy IS NOT NUll OR
6307: x_record_exists => lv_dummy,
6308: x_return_status => x_return_status);
6309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6312: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6314: IF (lv_dummy IS NOT NUll OR
6315: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6308: x_return_status => x_return_status);
6309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6312: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6314: IF (lv_dummy IS NOT NUll OR
6315: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6316: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6312: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6314: IF (lv_dummy IS NOT NUll OR
6315: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6316: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6317: OKL_API.set_message(p_app_name => G_APP_NAME,
6318: p_msg_name => G_KLE_ID);
6319: RAISE OKL_API.G_EXCEPTION_ERROR;
6313: END IF;
6314: IF (lv_dummy IS NOT NUll OR
6315: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6316: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6317: OKL_API.set_message(p_app_name => G_APP_NAME,
6318: p_msg_name => G_KLE_ID);
6319: RAISE OKL_API.G_EXCEPTION_ERROR;
6320: END IF;
6321: update_asset_lines(p_api_version => p_api_version,
6315: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6316: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6317: OKL_API.set_message(p_app_name => G_APP_NAME,
6318: p_msg_name => G_KLE_ID);
6319: RAISE OKL_API.G_EXCEPTION_ERROR;
6320: END IF;
6321: update_asset_lines(p_api_version => p_api_version,
6322: p_init_msg_list => p_init_msg_list,
6323: x_return_status => x_return_status,
6324: x_msg_count => x_msg_count,
6325: x_msg_data => x_msg_data,
6326: p_talv_rec => p_talv_rec,
6327: x_talv_rec => x_talv_rec);
6328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6331: RAISE OKL_API.G_EXCEPTION_ERROR;
6332: END IF;
6325: x_msg_data => x_msg_data,
6326: p_talv_rec => p_talv_rec,
6327: x_talv_rec => x_talv_rec);
6328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6331: RAISE OKL_API.G_EXCEPTION_ERROR;
6332: END IF;
6333: ELSE
6326: p_talv_rec => p_talv_rec,
6327: x_talv_rec => x_talv_rec);
6328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6331: RAISE OKL_API.G_EXCEPTION_ERROR;
6332: END IF;
6333: ELSE
6334: OKL_API.set_message(p_app_name => G_APP_NAME,
6327: x_talv_rec => x_talv_rec);
6328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6329: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6331: RAISE OKL_API.G_EXCEPTION_ERROR;
6332: END IF;
6333: ELSE
6334: OKL_API.set_message(p_app_name => G_APP_NAME,
6335: p_msg_name => G_KLE_ID);
6330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6331: RAISE OKL_API.G_EXCEPTION_ERROR;
6332: END IF;
6333: ELSE
6334: OKL_API.set_message(p_app_name => G_APP_NAME,
6335: p_msg_name => G_KLE_ID);
6336: RAISE OKL_API.G_EXCEPTION_ERROR;
6337: END IF;
6338: -- END IF;
6332: END IF;
6333: ELSE
6334: OKL_API.set_message(p_app_name => G_APP_NAME,
6335: p_msg_name => G_KLE_ID);
6336: RAISE OKL_API.G_EXCEPTION_ERROR;
6337: END IF;
6338: -- END IF;
6339: ELSE
6340: OKL_API.set_message(p_app_name => G_APP_NAME,
6336: RAISE OKL_API.G_EXCEPTION_ERROR;
6337: END IF;
6338: -- END IF;
6339: ELSE
6340: OKL_API.set_message(p_app_name => G_APP_NAME,
6341: p_msg_name => G_LINE_STYLE);
6342: RAISE OKL_API.G_EXCEPTION_ERROR;
6343: END IF;
6344: -- x_clev_rec := l_clev_rec;
6338: -- END IF;
6339: ELSE
6340: OKL_API.set_message(p_app_name => G_APP_NAME,
6341: p_msg_name => G_LINE_STYLE);
6342: RAISE OKL_API.G_EXCEPTION_ERROR;
6343: END IF;
6344: -- x_clev_rec := l_clev_rec;
6345: OKL_API.END_ACTIVITY (x_msg_count,
6346: x_msg_data );
6341: p_msg_name => G_LINE_STYLE);
6342: RAISE OKL_API.G_EXCEPTION_ERROR;
6343: END IF;
6344: -- x_clev_rec := l_clev_rec;
6345: OKL_API.END_ACTIVITY (x_msg_count,
6346: x_msg_data );
6347: EXCEPTION
6348: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6349: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6344: -- x_clev_rec := l_clev_rec;
6345: OKL_API.END_ACTIVITY (x_msg_count,
6346: x_msg_data );
6347: EXCEPTION
6348: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6349: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6350: l_api_name,
6351: G_PKG_NAME,
6352: 'OKL_API.G_RET_STS_ERROR',
6345: OKL_API.END_ACTIVITY (x_msg_count,
6346: x_msg_data );
6347: EXCEPTION
6348: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6349: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6350: l_api_name,
6351: G_PKG_NAME,
6352: 'OKL_API.G_RET_STS_ERROR',
6353: x_msg_count,
6348: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6349: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6350: l_api_name,
6351: G_PKG_NAME,
6352: 'OKL_API.G_RET_STS_ERROR',
6353: x_msg_count,
6354: x_msg_data,
6355: '_PVT');
6356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6352: 'OKL_API.G_RET_STS_ERROR',
6353: x_msg_count,
6354: x_msg_data,
6355: '_PVT');
6356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6357: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6358: l_api_name,
6359: G_PKG_NAME,
6360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6353: x_msg_count,
6354: x_msg_data,
6355: '_PVT');
6356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6357: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6358: l_api_name,
6359: G_PKG_NAME,
6360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6361: x_msg_count,
6356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6357: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6358: l_api_name,
6359: G_PKG_NAME,
6360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6361: x_msg_count,
6362: x_msg_data,
6363: '_PVT');
6364: WHEN OTHERS THEN
6361: x_msg_count,
6362: x_msg_data,
6363: '_PVT');
6364: WHEN OTHERS THEN
6365: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6366: l_api_name,
6367: G_PKG_NAME,
6368: 'OTHERS',
6369: x_msg_count,
6371: '_PVT');
6372: END update_fa_line_item;
6373: -------------------------------------------------------------------------------------------------
6374: PROCEDURE create_addon_line_item_rec(p_api_version IN NUMBER,
6375: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6376: x_return_status OUT NOCOPY VARCHAR2,
6377: x_msg_count OUT NOCOPY NUMBER,
6378: x_msg_data OUT NOCOPY VARCHAR2,
6379: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6408: AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
6409: AND lse1.lse_parent_id = lse2.id
6410: AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
6411: BEGIN
6412: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6413: -- Call start_activity to create savepoint, check compatibility
6414: -- and initialize message list
6415: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6416: ,p_init_msg_list
6411: BEGIN
6412: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6413: -- Call start_activity to create savepoint, check compatibility
6414: -- and initialize message list
6415: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6416: ,p_init_msg_list
6417: ,'_PVT'
6418: ,x_return_status);
6419: -- Check if activity started successfully
6416: ,p_init_msg_list
6417: ,'_PVT'
6418: ,x_return_status);
6419: -- Check if activity started successfully
6420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6423: RAISE OKL_API.G_EXCEPTION_ERROR;
6424: END IF;
6417: ,'_PVT'
6418: ,x_return_status);
6419: -- Check if activity started successfully
6420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6423: RAISE OKL_API.G_EXCEPTION_ERROR;
6424: END IF;
6425: -- Check the cle_id that is of the top Model line
6418: ,x_return_status);
6419: -- Check if activity started successfully
6420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6423: RAISE OKL_API.G_EXCEPTION_ERROR;
6424: END IF;
6425: -- Check the cle_id that is of the top Model line
6426: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6419: -- Check if activity started successfully
6420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6423: RAISE OKL_API.G_EXCEPTION_ERROR;
6424: END IF;
6425: -- Check the cle_id that is of the top Model line
6426: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6427: p_lty_code => p_lty_code,
6426: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6427: p_lty_code => p_lty_code,
6428: x_lty_code => l_lty_code,
6429: x_return_status => x_return_status);
6430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6433: RAISE OKL_API.G_EXCEPTION_ERROR;
6434: END IF;
6427: p_lty_code => p_lty_code,
6428: x_lty_code => l_lty_code,
6429: x_return_status => x_return_status);
6430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6433: RAISE OKL_API.G_EXCEPTION_ERROR;
6434: END IF;
6435: -- since Add on is a sub line of Model line we have to check weather
6428: x_lty_code => l_lty_code,
6429: x_return_status => x_return_status);
6430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6433: RAISE OKL_API.G_EXCEPTION_ERROR;
6434: END IF;
6435: -- since Add on is a sub line of Model line we have to check weather
6436: -- which line are creating under which line
6429: x_return_status => x_return_status);
6430: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6432: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6433: RAISE OKL_API.G_EXCEPTION_ERROR;
6434: END IF;
6435: -- since Add on is a sub line of Model line we have to check weather
6436: -- which line are creating under which line
6437: IF l_lty_code = G_MODEL_LINE_LTY_CODE THEN
6436: -- which line are creating under which line
6437: IF l_lty_code = G_MODEL_LINE_LTY_CODE THEN
6438: r_clev_rec := p_clev_rec;
6439: IF (p_clev_rec.sts_code IS NULL OR
6440: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
6441: x_return_status := get_sts_code(p_dnz_chr_id => null,
6442: p_cle_id => p_clev_rec.cle_id,
6443: x_sts_code => r_clev_rec.sts_code);
6444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6440: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
6441: x_return_status := get_sts_code(p_dnz_chr_id => null,
6442: p_cle_id => p_clev_rec.cle_id,
6443: x_sts_code => r_clev_rec.sts_code);
6444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6447: RAISE OKL_API.G_EXCEPTION_ERROR;
6448: END IF;
6441: x_return_status := get_sts_code(p_dnz_chr_id => null,
6442: p_cle_id => p_clev_rec.cle_id,
6443: x_sts_code => r_clev_rec.sts_code);
6444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6447: RAISE OKL_API.G_EXCEPTION_ERROR;
6448: END IF;
6449: END IF;
6442: p_cle_id => p_clev_rec.cle_id,
6443: x_sts_code => r_clev_rec.sts_code);
6444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6447: RAISE OKL_API.G_EXCEPTION_ERROR;
6448: END IF;
6449: END IF;
6450: IF (p_clev_rec.end_date IS NULL OR
6443: x_sts_code => r_clev_rec.sts_code);
6444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6447: RAISE OKL_API.G_EXCEPTION_ERROR;
6448: END IF;
6449: END IF;
6450: IF (p_clev_rec.end_date IS NULL OR
6451: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6447: RAISE OKL_API.G_EXCEPTION_ERROR;
6448: END IF;
6449: END IF;
6450: IF (p_clev_rec.end_date IS NULL OR
6451: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6452: x_return_status := get_end_date(p_dnz_chr_id => null,
6453: p_cle_id => p_clev_rec.cle_id,
6454: x_end_date => r_clev_rec.end_date);
6455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6451: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6452: x_return_status := get_end_date(p_dnz_chr_id => null,
6453: p_cle_id => p_clev_rec.cle_id,
6454: x_end_date => r_clev_rec.end_date);
6455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6458: RAISE OKL_API.G_EXCEPTION_ERROR;
6459: END IF;
6452: x_return_status := get_end_date(p_dnz_chr_id => null,
6453: p_cle_id => p_clev_rec.cle_id,
6454: x_end_date => r_clev_rec.end_date);
6455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6458: RAISE OKL_API.G_EXCEPTION_ERROR;
6459: END IF;
6460: END IF;
6453: p_cle_id => p_clev_rec.cle_id,
6454: x_end_date => r_clev_rec.end_date);
6455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6458: RAISE OKL_API.G_EXCEPTION_ERROR;
6459: END IF;
6460: END IF;
6461: IF (p_clev_rec.start_date IS NULL OR
6454: x_end_date => r_clev_rec.end_date);
6455: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6457: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6458: RAISE OKL_API.G_EXCEPTION_ERROR;
6459: END IF;
6460: END IF;
6461: IF (p_clev_rec.start_date IS NULL OR
6462: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6458: RAISE OKL_API.G_EXCEPTION_ERROR;
6459: END IF;
6460: END IF;
6461: IF (p_clev_rec.start_date IS NULL OR
6462: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6463: x_return_status := get_start_date(p_dnz_chr_id => null,
6464: p_cle_id => p_clev_rec.cle_id,
6465: x_start_date => r_clev_rec.start_date);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6462: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6463: x_return_status := get_start_date(p_dnz_chr_id => null,
6464: p_cle_id => p_clev_rec.cle_id,
6465: x_start_date => r_clev_rec.start_date);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6463: x_return_status := get_start_date(p_dnz_chr_id => null,
6464: p_cle_id => p_clev_rec.cle_id,
6465: x_start_date => r_clev_rec.start_date);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: END IF;
6464: p_cle_id => p_clev_rec.cle_id,
6465: x_start_date => r_clev_rec.start_date);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: END IF;
6472: IF (p_clev_rec.currency_code IS NULL OR
6465: x_start_date => r_clev_rec.start_date);
6466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: END IF;
6472: IF (p_clev_rec.currency_code IS NULL OR
6473: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6469: RAISE OKL_API.G_EXCEPTION_ERROR;
6470: END IF;
6471: END IF;
6472: IF (p_clev_rec.currency_code IS NULL OR
6473: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6474: x_return_status := get_currency_code(p_dnz_chr_id => null,
6475: p_cle_id => p_clev_rec.cle_id,
6476: x_currency_code => r_clev_rec.currency_code);
6477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6473: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6474: x_return_status := get_currency_code(p_dnz_chr_id => null,
6475: p_cle_id => p_clev_rec.cle_id,
6476: x_currency_code => r_clev_rec.currency_code);
6477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6480: RAISE OKL_API.G_EXCEPTION_ERROR;
6481: END IF;
6474: x_return_status := get_currency_code(p_dnz_chr_id => null,
6475: p_cle_id => p_clev_rec.cle_id,
6476: x_currency_code => r_clev_rec.currency_code);
6477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6480: RAISE OKL_API.G_EXCEPTION_ERROR;
6481: END IF;
6482: END IF;
6475: p_cle_id => p_clev_rec.cle_id,
6476: x_currency_code => r_clev_rec.currency_code);
6477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6480: RAISE OKL_API.G_EXCEPTION_ERROR;
6481: END IF;
6482: END IF;
6483: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6476: x_currency_code => r_clev_rec.currency_code);
6477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6480: RAISE OKL_API.G_EXCEPTION_ERROR;
6481: END IF;
6482: END IF;
6483: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6484: r_clev_rec.dnz_chr_id);
6482: END IF;
6483: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6484: r_clev_rec.dnz_chr_id);
6485: IF get_dis_seq_qty%NOTFOUND THEN
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_LINE_RECORD);
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: FETCH get_dis_seq_qty INTO ln_display_sequence,
6484: r_clev_rec.dnz_chr_id);
6485: IF get_dis_seq_qty%NOTFOUND THEN
6486: OKL_API.set_message(p_app_name => G_APP_NAME,
6487: p_msg_name => G_LINE_RECORD);
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: FETCH get_dis_seq_qty INTO ln_display_sequence,
6491: ln_num_of_items;
6492: CLOSE get_dis_seq_qty;
6490: FETCH get_dis_seq_qty INTO ln_display_sequence,
6491: ln_num_of_items;
6492: CLOSE get_dis_seq_qty;
6493: IF (p_clev_rec.display_sequence IS NULL OR
6494: p_clev_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
6495: r_clev_rec.display_sequence := ln_display_sequence + 1;
6496: END IF;
6497: -- Calling the Process
6498: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
6503: p_clev_rec => r_clev_rec,
6504: p_klev_rec => p_klev_rec,
6505: x_clev_rec => x_clev_rec,
6506: x_klev_rec => x_klev_rec);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: OKL_API.set_message(p_app_name => G_APP_NAME,
6509: p_msg_name => G_CREATION_ADDON_LINE);
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6504: p_klev_rec => p_klev_rec,
6505: x_clev_rec => x_clev_rec,
6506: x_klev_rec => x_klev_rec);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: OKL_API.set_message(p_app_name => G_APP_NAME,
6509: p_msg_name => G_CREATION_ADDON_LINE);
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6512: OKL_API.set_message(p_app_name => G_APP_NAME,
6506: x_klev_rec => x_klev_rec);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: OKL_API.set_message(p_app_name => G_APP_NAME,
6509: p_msg_name => G_CREATION_ADDON_LINE);
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6512: OKL_API.set_message(p_app_name => G_APP_NAME,
6513: p_msg_name => G_CREATION_ADDON_LINE);
6514: RAISE OKL_API.G_EXCEPTION_ERROR;
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: OKL_API.set_message(p_app_name => G_APP_NAME,
6509: p_msg_name => G_CREATION_ADDON_LINE);
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6512: OKL_API.set_message(p_app_name => G_APP_NAME,
6513: p_msg_name => G_CREATION_ADDON_LINE);
6514: RAISE OKL_API.G_EXCEPTION_ERROR;
6515: END IF;
6508: OKL_API.set_message(p_app_name => G_APP_NAME,
6509: p_msg_name => G_CREATION_ADDON_LINE);
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6512: OKL_API.set_message(p_app_name => G_APP_NAME,
6513: p_msg_name => G_CREATION_ADDON_LINE);
6514: RAISE OKL_API.G_EXCEPTION_ERROR;
6515: END IF;
6516: l_cimv_rec := p_cimv_rec;
6510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6512: OKL_API.set_message(p_app_name => G_APP_NAME,
6513: p_msg_name => G_CREATION_ADDON_LINE);
6514: RAISE OKL_API.G_EXCEPTION_ERROR;
6515: END IF;
6516: l_cimv_rec := p_cimv_rec;
6517: l_cimv_rec.cle_id := x_clev_rec.id;
6518: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6518: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6519: l_cimv_rec.jtot_object1_code := 'OKX_SYSITEM';
6520: -- Check the number of items
6521: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6522: OKL_API.set_message(p_app_name => G_APP_NAME,
6523: p_msg_name => G_ITEM_RECORD);
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6526: -- Creation of Item Record for the above record information
6520: -- Check the number of items
6521: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6522: OKL_API.set_message(p_app_name => G_APP_NAME,
6523: p_msg_name => G_ITEM_RECORD);
6524: RAISE OKL_API.G_EXCEPTION_ERROR;
6525: END IF;
6526: -- Creation of Item Record for the above record information
6527: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
6528: p_init_msg_list => p_init_msg_list,
6530: x_msg_count => x_msg_count,
6531: x_msg_data => x_msg_data,
6532: p_cimv_rec => l_cimv_rec,
6533: x_cimv_rec => x_cimv_rec);
6534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6535: OKL_API.set_message(p_app_name => G_APP_NAME,
6536: p_msg_name => G_CREATION_ADDON_ITEM);
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6531: x_msg_data => x_msg_data,
6532: p_cimv_rec => l_cimv_rec,
6533: x_cimv_rec => x_cimv_rec);
6534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6535: OKL_API.set_message(p_app_name => G_APP_NAME,
6536: p_msg_name => G_CREATION_ADDON_ITEM);
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6539: OKL_API.set_message(p_app_name => G_APP_NAME,
6533: x_cimv_rec => x_cimv_rec);
6534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6535: OKL_API.set_message(p_app_name => G_APP_NAME,
6536: p_msg_name => G_CREATION_ADDON_ITEM);
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6539: OKL_API.set_message(p_app_name => G_APP_NAME,
6540: p_msg_name => G_CREATION_ADDON_ITEM);
6541: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6535: OKL_API.set_message(p_app_name => G_APP_NAME,
6536: p_msg_name => G_CREATION_ADDON_ITEM);
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6539: OKL_API.set_message(p_app_name => G_APP_NAME,
6540: p_msg_name => G_CREATION_ADDON_ITEM);
6541: RAISE OKL_API.G_EXCEPTION_ERROR;
6542: END IF;
6535: OKL_API.set_message(p_app_name => G_APP_NAME,
6536: p_msg_name => G_CREATION_ADDON_ITEM);
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6539: OKL_API.set_message(p_app_name => G_APP_NAME,
6540: p_msg_name => G_CREATION_ADDON_ITEM);
6541: RAISE OKL_API.G_EXCEPTION_ERROR;
6542: END IF;
6543: ELSE
6537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6539: OKL_API.set_message(p_app_name => G_APP_NAME,
6540: p_msg_name => G_CREATION_ADDON_ITEM);
6541: RAISE OKL_API.G_EXCEPTION_ERROR;
6542: END IF;
6543: ELSE
6544: OKL_API.set_message(p_app_name => G_APP_NAME,
6545: p_msg_name => G_LINE_STYLE);
6540: p_msg_name => G_CREATION_ADDON_ITEM);
6541: RAISE OKL_API.G_EXCEPTION_ERROR;
6542: END IF;
6543: ELSE
6544: OKL_API.set_message(p_app_name => G_APP_NAME,
6545: p_msg_name => G_LINE_STYLE);
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548: OKL_API.END_ACTIVITY (x_msg_count,
6542: END IF;
6543: ELSE
6544: OKL_API.set_message(p_app_name => G_APP_NAME,
6545: p_msg_name => G_LINE_STYLE);
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548: OKL_API.END_ACTIVITY (x_msg_count,
6549: x_msg_data );
6550: EXCEPTION
6544: OKL_API.set_message(p_app_name => G_APP_NAME,
6545: p_msg_name => G_LINE_STYLE);
6546: RAISE OKL_API.G_EXCEPTION_ERROR;
6547: END IF;
6548: OKL_API.END_ACTIVITY (x_msg_count,
6549: x_msg_data );
6550: EXCEPTION
6551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6547: END IF;
6548: OKL_API.END_ACTIVITY (x_msg_count,
6549: x_msg_data );
6550: EXCEPTION
6551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6553: l_api_name,
6554: G_PKG_NAME,
6555: 'OKL_API.G_RET_STS_ERROR',
6548: OKL_API.END_ACTIVITY (x_msg_count,
6549: x_msg_data );
6550: EXCEPTION
6551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6553: l_api_name,
6554: G_PKG_NAME,
6555: 'OKL_API.G_RET_STS_ERROR',
6556: x_msg_count,
6551: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6552: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6553: l_api_name,
6554: G_PKG_NAME,
6555: 'OKL_API.G_RET_STS_ERROR',
6556: x_msg_count,
6557: x_msg_data,
6558: '_PVT');
6559: IF get_dis_seq_qty%ISOPEN THEN
6558: '_PVT');
6559: IF get_dis_seq_qty%ISOPEN THEN
6560: CLOSE get_dis_seq_qty;
6561: END IF;
6562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6564: l_api_name,
6565: G_PKG_NAME,
6566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6559: IF get_dis_seq_qty%ISOPEN THEN
6560: CLOSE get_dis_seq_qty;
6561: END IF;
6562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6564: l_api_name,
6565: G_PKG_NAME,
6566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6567: x_msg_count,
6562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6564: l_api_name,
6565: G_PKG_NAME,
6566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6567: x_msg_count,
6568: x_msg_data,
6569: '_PVT');
6570: WHEN OTHERS THEN
6567: x_msg_count,
6568: x_msg_data,
6569: '_PVT');
6570: WHEN OTHERS THEN
6571: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6572: l_api_name,
6573: G_PKG_NAME,
6574: 'OTHERS',
6575: x_msg_count,
6580: END IF;
6581: END create_addon_line_item_rec;
6582: -----------------------------------------------------------------------------------------------------------
6583: PROCEDURE Update_addon_line_item_rec(p_api_version IN NUMBER,
6584: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6585: x_return_status OUT NOCOPY VARCHAR2,
6586: x_msg_count OUT NOCOPY NUMBER,
6587: x_msg_data OUT NOCOPY VARCHAR2,
6588: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6618: AND lse1.lse_parent_id = lse2.id
6619: AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
6620:
6621: BEGIN
6622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6623: -- Call start_activity to create savepoint, check compatibility
6624: -- and initialize message list
6625: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6626: ,p_init_msg_list
6621: BEGIN
6622: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6623: -- Call start_activity to create savepoint, check compatibility
6624: -- and initialize message list
6625: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6626: ,p_init_msg_list
6627: ,'_PVT'
6628: ,x_return_status);
6629: -- Check if activity started successfully
6626: ,p_init_msg_list
6627: ,'_PVT'
6628: ,x_return_status);
6629: -- Check if activity started successfully
6630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6633: RAISE OKL_API.G_EXCEPTION_ERROR;
6634: END IF;
6627: ,'_PVT'
6628: ,x_return_status);
6629: -- Check if activity started successfully
6630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6633: RAISE OKL_API.G_EXCEPTION_ERROR;
6634: END IF;
6635: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6628: ,x_return_status);
6629: -- Check if activity started successfully
6630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6633: RAISE OKL_API.G_EXCEPTION_ERROR;
6634: END IF;
6635: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6636: p_lty_code => p_lty_code,
6629: -- Check if activity started successfully
6630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6633: RAISE OKL_API.G_EXCEPTION_ERROR;
6634: END IF;
6635: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6636: p_lty_code => p_lty_code,
6637: x_lty_code => l_lty_code,
6635: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6636: p_lty_code => p_lty_code,
6637: x_lty_code => l_lty_code,
6638: x_return_status => x_return_status);
6639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6642: RAISE OKL_API.G_EXCEPTION_ERROR;
6643: END IF;
6636: p_lty_code => p_lty_code,
6637: x_lty_code => l_lty_code,
6638: x_return_status => x_return_status);
6639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6642: RAISE OKL_API.G_EXCEPTION_ERROR;
6643: END IF;
6644: x_return_status := get_rec_klev(p_clev_rec.id,
6637: x_lty_code => l_lty_code,
6638: x_return_status => x_return_status);
6639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6642: RAISE OKL_API.G_EXCEPTION_ERROR;
6643: END IF;
6644: x_return_status := get_rec_klev(p_clev_rec.id,
6645: l_klev_rec);
6638: x_return_status => x_return_status);
6639: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6641: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6642: RAISE OKL_API.G_EXCEPTION_ERROR;
6643: END IF;
6644: x_return_status := get_rec_klev(p_clev_rec.id,
6645: l_klev_rec);
6646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6642: RAISE OKL_API.G_EXCEPTION_ERROR;
6643: END IF;
6644: x_return_status := get_rec_klev(p_clev_rec.id,
6645: l_klev_rec);
6646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6647: OKL_API.set_message(p_app_name => G_APP_NAME,
6648: p_msg_name => G_FETCHING_INFO,
6649: p_token1 => G_REC_NAME_TOKEN,
6650: p_token1_value => 'OKL_K_LINES_V Record');
6643: END IF;
6644: x_return_status := get_rec_klev(p_clev_rec.id,
6645: l_klev_rec);
6646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6647: OKL_API.set_message(p_app_name => G_APP_NAME,
6648: p_msg_name => G_FETCHING_INFO,
6649: p_token1 => G_REC_NAME_TOKEN,
6650: p_token1_value => 'OKL_K_LINES_V Record');
6651: RAISE G_EXCEPTION_HALT_VALIDATION;
6648: p_msg_name => G_FETCHING_INFO,
6649: p_token1 => G_REC_NAME_TOKEN,
6650: p_token1_value => 'OKL_K_LINES_V Record');
6651: RAISE G_EXCEPTION_HALT_VALIDATION;
6652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6653: OKL_API.set_message(p_app_name => G_APP_NAME,
6654: p_msg_name => G_FETCHING_INFO,
6655: p_token1 => G_REC_NAME_TOKEN,
6656: p_token1_value => 'OKL_K_LINES_V Record');
6649: p_token1 => G_REC_NAME_TOKEN,
6650: p_token1_value => 'OKL_K_LINES_V Record');
6651: RAISE G_EXCEPTION_HALT_VALIDATION;
6652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6653: OKL_API.set_message(p_app_name => G_APP_NAME,
6654: p_msg_name => G_FETCHING_INFO,
6655: p_token1 => G_REC_NAME_TOKEN,
6656: p_token1_value => 'OKL_K_LINES_V Record');
6657: RAISE G_EXCEPTION_HALT_VALIDATION;
6664: l_clev_rec := p_clev_rec;
6665: OPEN get_dis_seq_qty(l_clev_rec.cle_id,
6666: l_clev_rec.dnz_chr_id);
6667: IF get_dis_seq_qty%NOTFOUND THEN
6668: OKL_API.set_message(p_app_name => G_APP_NAME,
6669: p_msg_name => G_LINE_RECORD);
6670: RAISE OKL_API.G_EXCEPTION_ERROR;
6671: END IF;
6672: FETCH get_dis_seq_qty INTO ln_display_sequence,
6666: l_clev_rec.dnz_chr_id);
6667: IF get_dis_seq_qty%NOTFOUND THEN
6668: OKL_API.set_message(p_app_name => G_APP_NAME,
6669: p_msg_name => G_LINE_RECORD);
6670: RAISE OKL_API.G_EXCEPTION_ERROR;
6671: END IF;
6672: FETCH get_dis_seq_qty INTO ln_display_sequence,
6673: ln_num_of_items;
6674: CLOSE get_dis_seq_qty;
6672: FETCH get_dis_seq_qty INTO ln_display_sequence,
6673: ln_num_of_items;
6674: CLOSE get_dis_seq_qty;
6675: IF (p_clev_rec.display_sequence IS NULL OR
6676: p_clev_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
6677: l_clev_rec.display_sequence := ln_display_sequence + 1;
6678: END IF;
6679: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
6680: p_init_msg_list => p_init_msg_list,
6684: p_clev_rec => l_clev_rec,
6685: p_klev_rec => l_klev_rec,
6686: x_clev_rec => x_clev_rec,
6687: x_klev_rec => x_klev_rec);
6688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6689: OKL_API.set_message(p_app_name => G_APP_NAME,
6690: p_msg_name => G_UPDATING_ADDON_LINE);
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6685: p_klev_rec => l_klev_rec,
6686: x_clev_rec => x_clev_rec,
6687: x_klev_rec => x_klev_rec);
6688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6689: OKL_API.set_message(p_app_name => G_APP_NAME,
6690: p_msg_name => G_UPDATING_ADDON_LINE);
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6693: OKL_API.set_message(p_app_name => G_APP_NAME,
6687: x_klev_rec => x_klev_rec);
6688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6689: OKL_API.set_message(p_app_name => G_APP_NAME,
6690: p_msg_name => G_UPDATING_ADDON_LINE);
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6693: OKL_API.set_message(p_app_name => G_APP_NAME,
6694: p_msg_name => G_UPDATING_ADDON_LINE);
6695: RAISE OKL_API.G_EXCEPTION_ERROR;
6688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6689: OKL_API.set_message(p_app_name => G_APP_NAME,
6690: p_msg_name => G_UPDATING_ADDON_LINE);
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6693: OKL_API.set_message(p_app_name => G_APP_NAME,
6694: p_msg_name => G_UPDATING_ADDON_LINE);
6695: RAISE OKL_API.G_EXCEPTION_ERROR;
6696: END IF;
6689: OKL_API.set_message(p_app_name => G_APP_NAME,
6690: p_msg_name => G_UPDATING_ADDON_LINE);
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6693: OKL_API.set_message(p_app_name => G_APP_NAME,
6694: p_msg_name => G_UPDATING_ADDON_LINE);
6695: RAISE OKL_API.G_EXCEPTION_ERROR;
6696: END IF;
6697: l_cimv_rec := p_cimv_rec;
6691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6693: OKL_API.set_message(p_app_name => G_APP_NAME,
6694: p_msg_name => G_UPDATING_ADDON_LINE);
6695: RAISE OKL_API.G_EXCEPTION_ERROR;
6696: END IF;
6697: l_cimv_rec := p_cimv_rec;
6698: x_return_status := get_rec_cimv(x_clev_rec.id,
6699: x_clev_rec.dnz_chr_id,
6697: l_cimv_rec := p_cimv_rec;
6698: x_return_status := get_rec_cimv(x_clev_rec.id,
6699: x_clev_rec.dnz_chr_id,
6700: l_cimv_rec);
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: OKL_API.set_message(p_app_name => G_APP_NAME,
6703: p_msg_name => G_FETCHING_INFO,
6704: p_token1 => G_REC_NAME_TOKEN,
6705: p_token1_value => 'OKC_K_ITEMS_V Record');
6698: x_return_status := get_rec_cimv(x_clev_rec.id,
6699: x_clev_rec.dnz_chr_id,
6700: l_cimv_rec);
6701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6702: OKL_API.set_message(p_app_name => G_APP_NAME,
6703: p_msg_name => G_FETCHING_INFO,
6704: p_token1 => G_REC_NAME_TOKEN,
6705: p_token1_value => 'OKC_K_ITEMS_V Record');
6706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: OKL_API.set_message(p_app_name => G_APP_NAME,
6703: p_msg_name => G_FETCHING_INFO,
6704: p_token1 => G_REC_NAME_TOKEN,
6705: p_token1_value => 'OKC_K_ITEMS_V Record');
6706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6708: OKL_API.set_message(p_app_name => G_APP_NAME,
6709: p_msg_name => G_FETCHING_INFO,
6710: p_token1 => G_REC_NAME_TOKEN,
6703: p_msg_name => G_FETCHING_INFO,
6704: p_token1 => G_REC_NAME_TOKEN,
6705: p_token1_value => 'OKC_K_ITEMS_V Record');
6706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6708: OKL_API.set_message(p_app_name => G_APP_NAME,
6709: p_msg_name => G_FETCHING_INFO,
6710: p_token1 => G_REC_NAME_TOKEN,
6711: p_token1_value => 'OKC_K_ITEMS_V Record');
6704: p_token1 => G_REC_NAME_TOKEN,
6705: p_token1_value => 'OKC_K_ITEMS_V Record');
6706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6708: OKL_API.set_message(p_app_name => G_APP_NAME,
6709: p_msg_name => G_FETCHING_INFO,
6710: p_token1 => G_REC_NAME_TOKEN,
6711: p_token1_value => 'OKC_K_ITEMS_V Record');
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6708: OKL_API.set_message(p_app_name => G_APP_NAME,
6709: p_msg_name => G_FETCHING_INFO,
6710: p_token1 => G_REC_NAME_TOKEN,
6711: p_token1_value => 'OKC_K_ITEMS_V Record');
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6715: OKL_API.set_message(p_app_name => G_APP_NAME,
6716: p_msg_name => G_ITEM_RECORD);
6711: p_token1_value => 'OKC_K_ITEMS_V Record');
6712: RAISE OKL_API.G_EXCEPTION_ERROR;
6713: END IF;
6714: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6715: OKL_API.set_message(p_app_name => G_APP_NAME,
6716: p_msg_name => G_ITEM_RECORD);
6717: RAISE OKL_API.G_EXCEPTION_ERROR;
6718: END IF;
6719: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6713: END IF;
6714: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6715: OKL_API.set_message(p_app_name => G_APP_NAME,
6716: p_msg_name => G_ITEM_RECORD);
6717: RAISE OKL_API.G_EXCEPTION_ERROR;
6718: END IF;
6719: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6720: OKL_API.set_message(p_app_name => G_APP_NAME,
6721: p_msg_name => G_ITEM_RECORD);
6716: p_msg_name => G_ITEM_RECORD);
6717: RAISE OKL_API.G_EXCEPTION_ERROR;
6718: END IF;
6719: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6720: OKL_API.set_message(p_app_name => G_APP_NAME,
6721: p_msg_name => G_ITEM_RECORD);
6722: RAISE OKL_API.G_EXCEPTION_ERROR;
6723: END IF;
6724: -- We have the below has to been given from the screen
6718: END IF;
6719: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6720: OKL_API.set_message(p_app_name => G_APP_NAME,
6721: p_msg_name => G_ITEM_RECORD);
6722: RAISE OKL_API.G_EXCEPTION_ERROR;
6723: END IF;
6724: -- We have the below has to been given from the screen
6725: l_cimv_rec.object1_id1 := p_cimv_rec.object1_id1;
6726: l_cimv_rec.object1_id2 := p_cimv_rec.object1_id2;
6726: l_cimv_rec.object1_id2 := p_cimv_rec.object1_id2;
6727: l_cimv_rec.number_of_items := p_cimv_rec.number_of_items;
6728: -- Check the number of items
6729: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_ITEM_RECORD);
6732: RAISE OKL_API.G_EXCEPTION_ERROR;
6733: END IF;
6734: -- Creation of Item Record for the above record information
6728: -- Check the number of items
6729: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_ITEM_RECORD);
6732: RAISE OKL_API.G_EXCEPTION_ERROR;
6733: END IF;
6734: -- Creation of Item Record for the above record information
6735: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
6736: p_init_msg_list => p_init_msg_list,
6738: x_msg_count => x_msg_count,
6739: x_msg_data => x_msg_data,
6740: p_cimv_rec => l_cimv_rec,
6741: x_cimv_rec => x_cimv_rec);
6742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_UPDATING_ADDON_ITEM);
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6739: x_msg_data => x_msg_data,
6740: p_cimv_rec => l_cimv_rec,
6741: x_cimv_rec => x_cimv_rec);
6742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_UPDATING_ADDON_ITEM);
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6747: OKL_API.set_message(p_app_name => G_APP_NAME,
6741: x_cimv_rec => x_cimv_rec);
6742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_UPDATING_ADDON_ITEM);
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6747: OKL_API.set_message(p_app_name => G_APP_NAME,
6748: p_msg_name => G_UPDATING_ADDON_ITEM);
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_UPDATING_ADDON_ITEM);
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6747: OKL_API.set_message(p_app_name => G_APP_NAME,
6748: p_msg_name => G_UPDATING_ADDON_ITEM);
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_UPDATING_ADDON_ITEM);
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6747: OKL_API.set_message(p_app_name => G_APP_NAME,
6748: p_msg_name => G_UPDATING_ADDON_ITEM);
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751: ELSE
6745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6747: OKL_API.set_message(p_app_name => G_APP_NAME,
6748: p_msg_name => G_UPDATING_ADDON_ITEM);
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751: ELSE
6752: OKL_API.set_message(p_app_name => G_APP_NAME,
6753: p_msg_name => G_LINE_STYLE);
6748: p_msg_name => G_UPDATING_ADDON_ITEM);
6749: RAISE OKL_API.G_EXCEPTION_ERROR;
6750: END IF;
6751: ELSE
6752: OKL_API.set_message(p_app_name => G_APP_NAME,
6753: p_msg_name => G_LINE_STYLE);
6754: RAISE OKL_API.G_EXCEPTION_ERROR;
6755: END IF;
6756: OKL_API.END_ACTIVITY (x_msg_count,
6750: END IF;
6751: ELSE
6752: OKL_API.set_message(p_app_name => G_APP_NAME,
6753: p_msg_name => G_LINE_STYLE);
6754: RAISE OKL_API.G_EXCEPTION_ERROR;
6755: END IF;
6756: OKL_API.END_ACTIVITY (x_msg_count,
6757: x_msg_data );
6758: EXCEPTION
6752: OKL_API.set_message(p_app_name => G_APP_NAME,
6753: p_msg_name => G_LINE_STYLE);
6754: RAISE OKL_API.G_EXCEPTION_ERROR;
6755: END IF;
6756: OKL_API.END_ACTIVITY (x_msg_count,
6757: x_msg_data );
6758: EXCEPTION
6759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6760: IF get_dis_seq_qty%ISOPEN THEN
6755: END IF;
6756: OKL_API.END_ACTIVITY (x_msg_count,
6757: x_msg_data );
6758: EXCEPTION
6759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6760: IF get_dis_seq_qty%ISOPEN THEN
6761: CLOSE get_dis_seq_qty;
6762: END IF;
6763: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6760: IF get_dis_seq_qty%ISOPEN THEN
6761: CLOSE get_dis_seq_qty;
6762: END IF;
6763: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6764: l_api_name,
6765: G_PKG_NAME,
6766: 'OKL_API.G_RET_STS_ERROR',
6767: x_msg_count,
6762: END IF;
6763: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6764: l_api_name,
6765: G_PKG_NAME,
6766: 'OKL_API.G_RET_STS_ERROR',
6767: x_msg_count,
6768: x_msg_data,
6769: '_PVT');
6770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6766: 'OKL_API.G_RET_STS_ERROR',
6767: x_msg_count,
6768: x_msg_data,
6769: '_PVT');
6770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6771: IF get_dis_seq_qty%ISOPEN THEN
6772: CLOSE get_dis_seq_qty;
6773: END IF;
6774: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6770: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6771: IF get_dis_seq_qty%ISOPEN THEN
6772: CLOSE get_dis_seq_qty;
6773: END IF;
6774: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6775: l_api_name,
6776: G_PKG_NAME,
6777: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6778: x_msg_count,
6773: END IF;
6774: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6775: l_api_name,
6776: G_PKG_NAME,
6777: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6778: x_msg_count,
6779: x_msg_data,
6780: '_PVT');
6781: WHEN OTHERS THEN
6781: WHEN OTHERS THEN
6782: IF get_dis_seq_qty%ISOPEN THEN
6783: CLOSE get_dis_seq_qty;
6784: END IF;
6785: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6786: l_api_name,
6787: G_PKG_NAME,
6788: 'OTHERS',
6789: x_msg_count,
6792: END Update_addon_line_item_rec;
6793: -------------------------------------------------------------------------------------------------------
6794: Procedure create_addon_line_rec(
6795: p_api_version IN NUMBER,
6796: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6797: x_return_status OUT NOCOPY VARCHAR2,
6798: x_msg_count OUT NOCOPY NUMBER,
6799: x_msg_data OUT NOCOPY VARCHAR2,
6800: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
6840: AND lse2.lty_code = G_FIN_LINE_LTY_CODE
6841: AND lse2.id = stl.lse_id
6842: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
6843: BEGIN
6844: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6845: -- Call start_activity to create savepoint, check compatibility
6846: -- and initialize message list
6847: x_return_status := OKL_API.START_ACTIVITY (
6848: l_api_name
6843: BEGIN
6844: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6845: -- Call start_activity to create savepoint, check compatibility
6846: -- and initialize message list
6847: x_return_status := OKL_API.START_ACTIVITY (
6848: l_api_name
6849: ,p_init_msg_list
6850: ,'_PVT'
6851: ,x_return_status);
6849: ,p_init_msg_list
6850: ,'_PVT'
6851: ,x_return_status);
6852: -- Check if activity started successfully
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6850: ,'_PVT'
6851: ,x_return_status);
6852: -- Check if activity started successfully
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: -- To Check We Got the Valid info
6851: ,x_return_status);
6852: -- Check if activity started successfully
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: -- To Check We Got the Valid info
6859: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6852: -- Check if activity started successfully
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: -- To Check We Got the Valid info
6859: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6860: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: -- To Check We Got the Valid info
6859: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6860: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6861: UPPER(p_new_yn) IS NULL) THEN
6862: OKL_API.set_message(p_app_name => G_APP_NAME,
6863: p_msg_name => G_INVALID_YN,
6864: p_token1 => G_COL_NAME_TOKEN,
6858: -- To Check We Got the Valid info
6859: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6860: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6861: UPPER(p_new_yn) IS NULL) THEN
6862: OKL_API.set_message(p_app_name => G_APP_NAME,
6863: p_msg_name => G_INVALID_YN,
6864: p_token1 => G_COL_NAME_TOKEN,
6865: p_token1_value => 'p_new_yn');
6866: -- Halt Validation
6863: p_msg_name => G_INVALID_YN,
6864: p_token1 => G_COL_NAME_TOKEN,
6865: p_token1_value => 'p_new_yn');
6866: -- Halt Validation
6867: RAISE OKL_API.G_EXCEPTION_ERROR;
6868: END IF;
6869: -- Validate to see if the asset_number given is not null
6870: -- and also Validate asset_number does not exists
6871: -- in OKL_TXL_ASSETS_V
6871: -- in OKL_TXL_ASSETS_V
6872: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
6873: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6874: IF get_fa_id%NOTFOUND THEN
6875: OKL_API.set_message(p_app_name => G_APP_NAME,
6876: p_msg_name => G_LINE_RECORD);
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6879: FETCH get_fa_id INTO ln_fa_id;
6873: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6874: IF get_fa_id%NOTFOUND THEN
6875: OKL_API.set_message(p_app_name => G_APP_NAME,
6876: p_msg_name => G_LINE_RECORD);
6877: RAISE OKL_API.G_EXCEPTION_ERROR;
6878: END IF;
6879: FETCH get_fa_id INTO ln_fa_id;
6880: CLOSE get_fa_id;
6881:
6884: p_asset_number => p_asset_number,
6885: p_kle_id => ln_fa_id,
6886: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6887: -- Check if activity started successfully
6888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_ERROR;
6892: END IF;
6885: p_kle_id => ln_fa_id,
6886: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6887: -- Check if activity started successfully
6888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_ERROR;
6892: END IF;
6893: END IF;
6886: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6887: -- Check if activity started successfully
6888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_ERROR;
6892: END IF;
6893: END IF;
6894: -- Validate Line Style id and get the line type code
6887: -- Check if activity started successfully
6888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6890: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6891: RAISE OKL_API.G_EXCEPTION_ERROR;
6892: END IF;
6893: END IF;
6894: -- Validate Line Style id and get the line type code
6895: -- and line style type for further processing
6897: x_return_status => x_return_status,
6898: x_lty_code => l_lty_code,
6899: x_lse_type => l_lse_type);
6900: -- Check if activity started successfully
6901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6904: RAISE OKL_API.G_EXCEPTION_ERROR;
6905: END IF;
6898: x_lty_code => l_lty_code,
6899: x_lse_type => l_lse_type);
6900: -- Check if activity started successfully
6901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6904: RAISE OKL_API.G_EXCEPTION_ERROR;
6905: END IF;
6906: -- Validate the Dnz_Chr_id
6899: x_lse_type => l_lse_type);
6900: -- Check if activity started successfully
6901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6904: RAISE OKL_API.G_EXCEPTION_ERROR;
6905: END IF;
6906: -- Validate the Dnz_Chr_id
6907: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6900: -- Check if activity started successfully
6901: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6902: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6903: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6904: RAISE OKL_API.G_EXCEPTION_ERROR;
6905: END IF;
6906: -- Validate the Dnz_Chr_id
6907: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6908: x_return_status => x_return_status);
6906: -- Validate the Dnz_Chr_id
6907: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6908: x_return_status => x_return_status);
6909: -- Check if activity started successfully
6910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6913: RAISE OKL_API.G_EXCEPTION_ERROR;
6914: END IF;
6907: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6908: x_return_status => x_return_status);
6909: -- Check if activity started successfully
6910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6913: RAISE OKL_API.G_EXCEPTION_ERROR;
6914: END IF;
6915: -- Now we are creating Add on Line
6908: x_return_status => x_return_status);
6909: -- Check if activity started successfully
6910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6913: RAISE OKL_API.G_EXCEPTION_ERROR;
6914: END IF;
6915: -- Now we are creating Add on Line
6916: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
6909: -- Check if activity started successfully
6910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6913: RAISE OKL_API.G_EXCEPTION_ERROR;
6914: END IF;
6915: -- Now we are creating Add on Line
6916: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
6917: -- The Record Should have the cle_id
6917: -- The Record Should have the cle_id
6918: -- if the given line style is Add on Line
6919: -- Since there could be mutilple records we have to accept
6920: l_clev_rec := p_clev_rec;
6921: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
6922: l_clev_rec.chr_id IS NULL) AND
6923: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6924: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6925: (l_clev_rec.cle_id IS NOT NULL OR
6920: l_clev_rec := p_clev_rec;
6921: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
6922: l_clev_rec.chr_id IS NULL) AND
6923: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6924: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6925: (l_clev_rec.cle_id IS NOT NULL OR
6926: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
6927: l_lty_code = G_ADDON_LINE_LTY_CODE AND
6928: l_lse_type = G_SLS_TYPE THEN
6922: l_clev_rec.chr_id IS NULL) AND
6923: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6924: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6925: (l_clev_rec.cle_id IS NOT NULL OR
6926: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
6927: l_lty_code = G_ADDON_LINE_LTY_CODE AND
6928: l_lse_type = G_SLS_TYPE THEN
6929: create_addon_line_item_rec(p_api_version => p_api_version,
6930: p_init_msg_list => p_init_msg_list,
6937: p_cimv_rec => p_cimv_rec,
6938: x_clev_rec => x_clev_rec,
6939: x_klev_rec => x_klev_rec,
6940: x_cimv_rec => x_cimv_rec);
6941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_ERROR;
6945: END IF;
6938: x_clev_rec => x_clev_rec,
6939: x_klev_rec => x_klev_rec,
6940: x_cimv_rec => x_cimv_rec);
6941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_ERROR;
6945: END IF;
6946: ELSE
6939: x_klev_rec => x_klev_rec,
6940: x_cimv_rec => x_cimv_rec);
6941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_ERROR;
6945: END IF;
6946: ELSE
6947: OKL_API.set_message(p_app_name => G_APP_NAME,
6940: x_cimv_rec => x_cimv_rec);
6941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_ERROR;
6945: END IF;
6946: ELSE
6947: OKL_API.set_message(p_app_name => G_APP_NAME,
6948: p_msg_name => G_INVALID_CRITERIA,
6943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6944: RAISE OKL_API.G_EXCEPTION_ERROR;
6945: END IF;
6946: ELSE
6947: OKL_API.set_message(p_app_name => G_APP_NAME,
6948: p_msg_name => G_INVALID_CRITERIA,
6949: p_token1 => G_COL_NAME_TOKEN,
6950: p_token1_value => 'Add on line');
6951: x_return_status := OKL_API.G_RET_STS_ERROR;
6947: OKL_API.set_message(p_app_name => G_APP_NAME,
6948: p_msg_name => G_INVALID_CRITERIA,
6949: p_token1 => G_COL_NAME_TOKEN,
6950: p_token1_value => 'Add on line');
6951: x_return_status := OKL_API.G_RET_STS_ERROR;
6952: RAISE OKL_API.G_EXCEPTION_ERROR;
6953: END IF;
6954: OKL_API.END_ACTIVITY (x_msg_count,
6955: x_msg_data );
6948: p_msg_name => G_INVALID_CRITERIA,
6949: p_token1 => G_COL_NAME_TOKEN,
6950: p_token1_value => 'Add on line');
6951: x_return_status := OKL_API.G_RET_STS_ERROR;
6952: RAISE OKL_API.G_EXCEPTION_ERROR;
6953: END IF;
6954: OKL_API.END_ACTIVITY (x_msg_count,
6955: x_msg_data );
6956: EXCEPTION
6950: p_token1_value => 'Add on line');
6951: x_return_status := OKL_API.G_RET_STS_ERROR;
6952: RAISE OKL_API.G_EXCEPTION_ERROR;
6953: END IF;
6954: OKL_API.END_ACTIVITY (x_msg_count,
6955: x_msg_data );
6956: EXCEPTION
6957: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6958: IF get_fa_id%ISOPEN THEN
6953: END IF;
6954: OKL_API.END_ACTIVITY (x_msg_count,
6955: x_msg_data );
6956: EXCEPTION
6957: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6958: IF get_fa_id%ISOPEN THEN
6959: CLOSE get_fa_id;
6960: END IF;
6961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6957: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6958: IF get_fa_id%ISOPEN THEN
6959: CLOSE get_fa_id;
6960: END IF;
6961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6962: l_api_name,
6963: G_PKG_NAME,
6964: 'OKL_API.G_RET_STS_ERROR',
6965: x_msg_count,
6960: END IF;
6961: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6962: l_api_name,
6963: G_PKG_NAME,
6964: 'OKL_API.G_RET_STS_ERROR',
6965: x_msg_count,
6966: x_msg_data,
6967: '_PVT');
6968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6964: 'OKL_API.G_RET_STS_ERROR',
6965: x_msg_count,
6966: x_msg_data,
6967: '_PVT');
6968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6969: IF get_fa_id%ISOPEN THEN
6970: CLOSE get_fa_id;
6971: END IF;
6972: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6968: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6969: IF get_fa_id%ISOPEN THEN
6970: CLOSE get_fa_id;
6971: END IF;
6972: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6973: l_api_name,
6974: G_PKG_NAME,
6975: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6976: x_msg_count,
6971: END IF;
6972: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6973: l_api_name,
6974: G_PKG_NAME,
6975: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6976: x_msg_count,
6977: x_msg_data,
6978: '_PVT');
6979: WHEN OTHERS THEN
6979: WHEN OTHERS THEN
6980: IF get_fa_id%ISOPEN THEN
6981: CLOSE get_fa_id;
6982: END IF;
6983: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6984: l_api_name,
6985: G_PKG_NAME,
6986: 'OTHERS',
6987: x_msg_count,
6990: END create_addon_line_rec;
6991: -------------------------------------------------------------------------------------------------------
6992: Procedure Update_addon_line_rec(
6993: p_api_version IN NUMBER,
6994: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6995: x_return_status OUT NOCOPY VARCHAR2,
6996: x_msg_count OUT NOCOPY NUMBER,
6997: x_msg_data OUT NOCOPY VARCHAR2,
6998: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
7038: AND lse2.lty_code = G_FIN_LINE_LTY_CODE
7039: AND lse2.id = stl.lse_id
7040: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
7041: BEGIN
7042: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7043: -- Call start_activity to create savepoint, check compatibility
7044: -- and initialize message list
7045: x_return_status := OKL_API.START_ACTIVITY (
7046: l_api_name
7041: BEGIN
7042: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7043: -- Call start_activity to create savepoint, check compatibility
7044: -- and initialize message list
7045: x_return_status := OKL_API.START_ACTIVITY (
7046: l_api_name
7047: ,p_init_msg_list
7048: ,'_PVT'
7049: ,x_return_status);
7047: ,p_init_msg_list
7048: ,'_PVT'
7049: ,x_return_status);
7050: -- Check if activity started successfully
7051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7054: RAISE OKL_API.G_EXCEPTION_ERROR;
7055: END IF;
7048: ,'_PVT'
7049: ,x_return_status);
7050: -- Check if activity started successfully
7051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7054: RAISE OKL_API.G_EXCEPTION_ERROR;
7055: END IF;
7056: l_clev_rec := p_clev_rec;
7049: ,x_return_status);
7050: -- Check if activity started successfully
7051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7054: RAISE OKL_API.G_EXCEPTION_ERROR;
7055: END IF;
7056: l_clev_rec := p_clev_rec;
7057: x_return_status := get_sts_code(p_dnz_chr_id => null,
7050: -- Check if activity started successfully
7051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7054: RAISE OKL_API.G_EXCEPTION_ERROR;
7055: END IF;
7056: l_clev_rec := p_clev_rec;
7057: x_return_status := get_sts_code(p_dnz_chr_id => null,
7058: p_cle_id => l_clev_rec.cle_id,
7056: l_clev_rec := p_clev_rec;
7057: x_return_status := get_sts_code(p_dnz_chr_id => null,
7058: p_cle_id => l_clev_rec.cle_id,
7059: x_sts_code => l_clev_rec.sts_code);
7060: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7063: RAISE OKL_API.G_EXCEPTION_ERROR;
7064: END IF;
7057: x_return_status := get_sts_code(p_dnz_chr_id => null,
7058: p_cle_id => l_clev_rec.cle_id,
7059: x_sts_code => l_clev_rec.sts_code);
7060: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7063: RAISE OKL_API.G_EXCEPTION_ERROR;
7064: END IF;
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7058: p_cle_id => l_clev_rec.cle_id,
7059: x_sts_code => l_clev_rec.sts_code);
7060: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7063: RAISE OKL_API.G_EXCEPTION_ERROR;
7064: END IF;
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7066: x_return_status => x_return_status);
7059: x_sts_code => l_clev_rec.sts_code);
7060: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7061: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7063: RAISE OKL_API.G_EXCEPTION_ERROR;
7064: END IF;
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7066: x_return_status => x_return_status);
7067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7063: RAISE OKL_API.G_EXCEPTION_ERROR;
7064: END IF;
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7066: x_return_status => x_return_status);
7067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7070: RAISE OKL_API.G_EXCEPTION_ERROR;
7071: END IF;
7064: END IF;
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7066: x_return_status => x_return_status);
7067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7070: RAISE OKL_API.G_EXCEPTION_ERROR;
7071: END IF;
7072: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7065: validate_sts_code(p_clev_rec => l_clev_rec,
7066: x_return_status => x_return_status);
7067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7070: RAISE OKL_API.G_EXCEPTION_ERROR;
7071: END IF;
7072: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7073: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7066: x_return_status => x_return_status);
7067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7070: RAISE OKL_API.G_EXCEPTION_ERROR;
7071: END IF;
7072: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7073: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7074: IF get_fa_id%NOTFOUND THEN
7071: END IF;
7072: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7073: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7074: IF get_fa_id%NOTFOUND THEN
7075: OKL_API.set_message(p_app_name => G_APP_NAME,
7076: p_msg_name => G_LINE_RECORD);
7077: RAISE OKL_API.G_EXCEPTION_ERROR;
7078: END IF;
7079: FETCH get_fa_id INTO ln_fa_id;
7073: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7074: IF get_fa_id%NOTFOUND THEN
7075: OKL_API.set_message(p_app_name => G_APP_NAME,
7076: p_msg_name => G_LINE_RECORD);
7077: RAISE OKL_API.G_EXCEPTION_ERROR;
7078: END IF;
7079: FETCH get_fa_id INTO ln_fa_id;
7080: CLOSE get_fa_id;
7081: -- To Check We Got the Valid info
7079: FETCH get_fa_id INTO ln_fa_id;
7080: CLOSE get_fa_id;
7081: -- To Check We Got the Valid info
7082: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
7083: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
7084: UPPER(p_new_yn) IS NULL) THEN
7085: OKL_API.set_message(p_app_name => G_APP_NAME,
7086: p_msg_name => G_INVALID_YN,
7087: p_token1 => G_COL_NAME_TOKEN,
7081: -- To Check We Got the Valid info
7082: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
7083: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
7084: UPPER(p_new_yn) IS NULL) THEN
7085: OKL_API.set_message(p_app_name => G_APP_NAME,
7086: p_msg_name => G_INVALID_YN,
7087: p_token1 => G_COL_NAME_TOKEN,
7088: p_token1_value => 'p_new_yn');
7089: -- Halt Validation
7086: p_msg_name => G_INVALID_YN,
7087: p_token1 => G_COL_NAME_TOKEN,
7088: p_token1_value => 'p_new_yn');
7089: -- Halt Validation
7090: RAISE OKL_API.G_EXCEPTION_ERROR;
7091: END IF;
7092: -- Validate to see if the asset_number given is not null
7093: -- and also Validate asset_number does not exists
7094: -- in OKL_TXL_ASSETS_V
7097: p_asset_number => p_asset_number,
7098: p_kle_id => ln_fa_id,
7099: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7100: -- Check if activity started successfully
7101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7104: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: END IF;
7098: p_kle_id => ln_fa_id,
7099: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7100: -- Check if activity started successfully
7101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7104: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: END IF;
7106: END IF;
7099: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7100: -- Check if activity started successfully
7101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7104: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: END IF;
7106: END IF;
7107: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7100: -- Check if activity started successfully
7101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7102: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7104: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: END IF;
7106: END IF;
7107: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7108: x_lse_id => l_clev_rec.lse_id);
7105: END IF;
7106: END IF;
7107: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7108: x_lse_id => l_clev_rec.lse_id);
7109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7112: RAISE OKL_API.G_EXCEPTION_ERROR;
7113: END IF;
7106: END IF;
7107: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7108: x_lse_id => l_clev_rec.lse_id);
7109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7112: RAISE OKL_API.G_EXCEPTION_ERROR;
7113: END IF;
7114: -- Validate Line Style id and get the line type code
7107: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7108: x_lse_id => l_clev_rec.lse_id);
7109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7112: RAISE OKL_API.G_EXCEPTION_ERROR;
7113: END IF;
7114: -- Validate Line Style id and get the line type code
7115: -- and line style type for further processing
7108: x_lse_id => l_clev_rec.lse_id);
7109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7112: RAISE OKL_API.G_EXCEPTION_ERROR;
7113: END IF;
7114: -- Validate Line Style id and get the line type code
7115: -- and line style type for further processing
7116: validate_lse_id(p_clev_rec => l_clev_rec,
7117: x_return_status => x_return_status,
7118: x_lty_code => l_lty_code,
7119: x_lse_type => l_lse_type);
7120: -- Check if activity started successfully
7121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7124: RAISE OKL_API.G_EXCEPTION_ERROR;
7125: END IF;
7118: x_lty_code => l_lty_code,
7119: x_lse_type => l_lse_type);
7120: -- Check if activity started successfully
7121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7124: RAISE OKL_API.G_EXCEPTION_ERROR;
7125: END IF;
7126: -- Validate the Dnz_Chr_id
7119: x_lse_type => l_lse_type);
7120: -- Check if activity started successfully
7121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7124: RAISE OKL_API.G_EXCEPTION_ERROR;
7125: END IF;
7126: -- Validate the Dnz_Chr_id
7127: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7120: -- Check if activity started successfully
7121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7124: RAISE OKL_API.G_EXCEPTION_ERROR;
7125: END IF;
7126: -- Validate the Dnz_Chr_id
7127: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7128: x_return_status => x_return_status);
7126: -- Validate the Dnz_Chr_id
7127: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7128: x_return_status => x_return_status);
7129: -- Check if activity started successfully
7130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7133: RAISE OKL_API.G_EXCEPTION_ERROR;
7134: END IF;
7127: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7128: x_return_status => x_return_status);
7129: -- Check if activity started successfully
7130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7133: RAISE OKL_API.G_EXCEPTION_ERROR;
7134: END IF;
7135: -- Now we are updating Add on Line
7128: x_return_status => x_return_status);
7129: -- Check if activity started successfully
7130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7133: RAISE OKL_API.G_EXCEPTION_ERROR;
7134: END IF;
7135: -- Now we are updating Add on Line
7136: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7129: -- Check if activity started successfully
7130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7133: RAISE OKL_API.G_EXCEPTION_ERROR;
7134: END IF;
7135: -- Now we are updating Add on Line
7136: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7137: -- The Record Should have the cle_id
7136: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7137: -- The Record Should have the cle_id
7138: -- if the given line style is Add on Line
7139: -- Since there could be mutilple records we have to accept
7140: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7141: l_clev_rec.chr_id IS NULL) AND
7142: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7143: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7144: (l_clev_rec.cle_id IS NOT NULL OR
7139: -- Since there could be mutilple records we have to accept
7140: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7141: l_clev_rec.chr_id IS NULL) AND
7142: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7143: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7144: (l_clev_rec.cle_id IS NOT NULL OR
7145: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7146: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7147: l_lse_type = G_SLS_TYPE THEN
7141: l_clev_rec.chr_id IS NULL) AND
7142: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7143: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7144: (l_clev_rec.cle_id IS NOT NULL OR
7145: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7146: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7147: l_lse_type = G_SLS_TYPE THEN
7148: update_addon_line_item_rec(p_api_version => p_api_version,
7149: p_init_msg_list => p_init_msg_list,
7156: p_cimv_rec => p_cimv_rec,
7157: x_clev_rec => x_clev_rec,
7158: x_klev_rec => x_klev_rec,
7159: x_cimv_rec => x_cimv_rec);
7160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_ERROR;
7164: END IF;
7157: x_clev_rec => x_clev_rec,
7158: x_klev_rec => x_klev_rec,
7159: x_cimv_rec => x_cimv_rec);
7160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_ERROR;
7164: END IF;
7165: ELSE
7158: x_klev_rec => x_klev_rec,
7159: x_cimv_rec => x_cimv_rec);
7160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_ERROR;
7164: END IF;
7165: ELSE
7166: OKL_API.set_message(p_app_name => G_APP_NAME,
7159: x_cimv_rec => x_cimv_rec);
7160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_ERROR;
7164: END IF;
7165: ELSE
7166: OKL_API.set_message(p_app_name => G_APP_NAME,
7167: p_msg_name => G_INVALID_CRITERIA,
7162: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_ERROR;
7164: END IF;
7165: ELSE
7166: OKL_API.set_message(p_app_name => G_APP_NAME,
7167: p_msg_name => G_INVALID_CRITERIA,
7168: p_token1 => G_COL_NAME_TOKEN,
7169: p_token1_value => 'Add on line');
7170: x_return_status := OKL_API.G_RET_STS_ERROR;
7166: OKL_API.set_message(p_app_name => G_APP_NAME,
7167: p_msg_name => G_INVALID_CRITERIA,
7168: p_token1 => G_COL_NAME_TOKEN,
7169: p_token1_value => 'Add on line');
7170: x_return_status := OKL_API.G_RET_STS_ERROR;
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173: OKL_API.END_ACTIVITY (x_msg_count,
7174: x_msg_data );
7167: p_msg_name => G_INVALID_CRITERIA,
7168: p_token1 => G_COL_NAME_TOKEN,
7169: p_token1_value => 'Add on line');
7170: x_return_status := OKL_API.G_RET_STS_ERROR;
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173: OKL_API.END_ACTIVITY (x_msg_count,
7174: x_msg_data );
7175: EXCEPTION
7169: p_token1_value => 'Add on line');
7170: x_return_status := OKL_API.G_RET_STS_ERROR;
7171: RAISE OKL_API.G_EXCEPTION_ERROR;
7172: END IF;
7173: OKL_API.END_ACTIVITY (x_msg_count,
7174: x_msg_data );
7175: EXCEPTION
7176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7177: IF get_fa_id%ISOPEN THEN
7172: END IF;
7173: OKL_API.END_ACTIVITY (x_msg_count,
7174: x_msg_data );
7175: EXCEPTION
7176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7177: IF get_fa_id%ISOPEN THEN
7178: CLOSE get_fa_id;
7179: END IF;
7180: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7176: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7177: IF get_fa_id%ISOPEN THEN
7178: CLOSE get_fa_id;
7179: END IF;
7180: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7181: l_api_name,
7182: G_PKG_NAME,
7183: 'OKL_API.G_RET_STS_ERROR',
7184: x_msg_count,
7179: END IF;
7180: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7181: l_api_name,
7182: G_PKG_NAME,
7183: 'OKL_API.G_RET_STS_ERROR',
7184: x_msg_count,
7185: x_msg_data,
7186: '_PVT');
7187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7183: 'OKL_API.G_RET_STS_ERROR',
7184: x_msg_count,
7185: x_msg_data,
7186: '_PVT');
7187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7188: IF get_fa_id%ISOPEN THEN
7189: CLOSE get_fa_id;
7190: END IF;
7191: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7188: IF get_fa_id%ISOPEN THEN
7189: CLOSE get_fa_id;
7190: END IF;
7191: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7192: l_api_name,
7193: G_PKG_NAME,
7194: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7195: x_msg_count,
7190: END IF;
7191: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7192: l_api_name,
7193: G_PKG_NAME,
7194: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7195: x_msg_count,
7196: x_msg_data,
7197: '_PVT');
7198: WHEN OTHERS THEN
7198: WHEN OTHERS THEN
7199: IF get_fa_id%ISOPEN THEN
7200: CLOSE get_fa_id;
7201: END IF;
7202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7203: l_api_name,
7204: G_PKG_NAME,
7205: 'OTHERS',
7206: x_msg_count,
7209: END Update_addon_line_rec;
7210: -------------------------------------------------------------------------------------------------------
7211: PROCEDURE delete_addon_line_rec(
7212: p_api_version IN NUMBER,
7213: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7214: x_return_status OUT NOCOPY VARCHAR2,
7215: x_msg_count OUT NOCOPY NUMBER,
7216: x_msg_data OUT NOCOPY VARCHAR2,
7217: p_clev_rec IN clev_rec_type,
7223: -- Variables for validation of line style
7224: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7225: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
7226: BEGIN
7227: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7228: -- Call start_activity to create savepoint, check compatibility
7229: -- and initialize message list
7230: x_return_status := OKL_API.START_ACTIVITY (
7231: l_api_name
7226: BEGIN
7227: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7228: -- Call start_activity to create savepoint, check compatibility
7229: -- and initialize message list
7230: x_return_status := OKL_API.START_ACTIVITY (
7231: l_api_name
7232: ,p_init_msg_list
7233: ,'_PVT'
7234: ,x_return_status);
7232: ,p_init_msg_list
7233: ,'_PVT'
7234: ,x_return_status);
7235: -- Check if activity started successfully
7236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7239: RAISE OKL_API.G_EXCEPTION_ERROR;
7240: END IF;
7233: ,'_PVT'
7234: ,x_return_status);
7235: -- Check if activity started successfully
7236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7239: RAISE OKL_API.G_EXCEPTION_ERROR;
7240: END IF;
7241: OKL_API.init_msg_list(p_init_msg_list);
7234: ,x_return_status);
7235: -- Check if activity started successfully
7236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7239: RAISE OKL_API.G_EXCEPTION_ERROR;
7240: END IF;
7241: OKL_API.init_msg_list(p_init_msg_list);
7242: l_delete_clev_rec := p_clev_rec;
7235: -- Check if activity started successfully
7236: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7239: RAISE OKL_API.G_EXCEPTION_ERROR;
7240: END IF;
7241: OKL_API.init_msg_list(p_init_msg_list);
7242: l_delete_clev_rec := p_clev_rec;
7243: -- To Get the cle top Line Record
7237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7239: RAISE OKL_API.G_EXCEPTION_ERROR;
7240: END IF;
7241: OKL_API.init_msg_list(p_init_msg_list);
7242: l_delete_clev_rec := p_clev_rec;
7243: -- To Get the cle top Line Record
7244: x_return_status := get_rec_clev(p_clev_rec.id,
7245: l_delete_clev_rec);
7242: l_delete_clev_rec := p_clev_rec;
7243: -- To Get the cle top Line Record
7244: x_return_status := get_rec_clev(p_clev_rec.id,
7245: l_delete_clev_rec);
7246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7247: OKL_API.set_message(p_app_name => G_APP_NAME,
7248: p_msg_name => G_FETCHING_INFO,
7249: p_token1 => G_REC_NAME_TOKEN,
7250: p_token1_value => 'OKC_K_LINES_V Record');
7243: -- To Get the cle top Line Record
7244: x_return_status := get_rec_clev(p_clev_rec.id,
7245: l_delete_clev_rec);
7246: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7247: OKL_API.set_message(p_app_name => G_APP_NAME,
7248: p_msg_name => G_FETCHING_INFO,
7249: p_token1 => G_REC_NAME_TOKEN,
7250: p_token1_value => 'OKC_K_LINES_V Record');
7251: RAISE G_EXCEPTION_HALT_VALIDATION;
7248: p_msg_name => G_FETCHING_INFO,
7249: p_token1 => G_REC_NAME_TOKEN,
7250: p_token1_value => 'OKC_K_LINES_V Record');
7251: RAISE G_EXCEPTION_HALT_VALIDATION;
7252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7253: OKL_API.set_message(p_app_name => G_APP_NAME,
7254: p_msg_name => G_FETCHING_INFO,
7255: p_token1 => G_REC_NAME_TOKEN,
7256: p_token1_value => 'OKC_K_LINES_V Record');
7249: p_token1 => G_REC_NAME_TOKEN,
7250: p_token1_value => 'OKC_K_LINES_V Record');
7251: RAISE G_EXCEPTION_HALT_VALIDATION;
7252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7253: OKL_API.set_message(p_app_name => G_APP_NAME,
7254: p_msg_name => G_FETCHING_INFO,
7255: p_token1 => G_REC_NAME_TOKEN,
7256: p_token1_value => 'OKC_K_LINES_V Record');
7257: RAISE G_EXCEPTION_HALT_VALIDATION;
7258: END IF;
7259: -- To Get the kle top Line Record
7260: x_return_status := get_rec_klev(p_clev_rec.id,
7261: l_delete_klev_rec);
7262: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7263: OKL_API.set_message(p_app_name => G_APP_NAME,
7264: p_msg_name => G_FETCHING_INFO,
7265: p_token1 => G_REC_NAME_TOKEN,
7266: p_token1_value => 'OKL_K_LINES_V Record');
7259: -- To Get the kle top Line Record
7260: x_return_status := get_rec_klev(p_clev_rec.id,
7261: l_delete_klev_rec);
7262: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7263: OKL_API.set_message(p_app_name => G_APP_NAME,
7264: p_msg_name => G_FETCHING_INFO,
7265: p_token1 => G_REC_NAME_TOKEN,
7266: p_token1_value => 'OKL_K_LINES_V Record');
7267: RAISE G_EXCEPTION_HALT_VALIDATION;
7264: p_msg_name => G_FETCHING_INFO,
7265: p_token1 => G_REC_NAME_TOKEN,
7266: p_token1_value => 'OKL_K_LINES_V Record');
7267: RAISE G_EXCEPTION_HALT_VALIDATION;
7268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7269: OKL_API.set_message(p_app_name => G_APP_NAME,
7270: p_msg_name => G_FETCHING_INFO,
7271: p_token1 => G_REC_NAME_TOKEN,
7272: p_token1_value => 'OKL_K_LINES_V Record');
7265: p_token1 => G_REC_NAME_TOKEN,
7266: p_token1_value => 'OKL_K_LINES_V Record');
7267: RAISE G_EXCEPTION_HALT_VALIDATION;
7268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7269: OKL_API.set_message(p_app_name => G_APP_NAME,
7270: p_msg_name => G_FETCHING_INFO,
7271: p_token1 => G_REC_NAME_TOKEN,
7272: p_token1_value => 'OKL_K_LINES_V Record');
7273: RAISE G_EXCEPTION_HALT_VALIDATION;
7272: p_token1_value => 'OKL_K_LINES_V Record');
7273: RAISE G_EXCEPTION_HALT_VALIDATION;
7274: END IF;
7275: IF l_delete_klev_rec.id <> l_delete_clev_rec.id THEN
7276: OKL_API.set_message(p_app_name => G_APP_NAME,
7277: p_msg_name => G_LINE_RECORD);
7278: RAISE G_EXCEPTION_HALT_VALIDATION;
7279: END IF;
7280: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7278: RAISE G_EXCEPTION_HALT_VALIDATION;
7279: END IF;
7280: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7281: x_return_status => x_return_status);
7282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7285: RAISE OKL_API.G_EXCEPTION_ERROR;
7286: END IF;
7279: END IF;
7280: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7281: x_return_status => x_return_status);
7282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7285: RAISE OKL_API.G_EXCEPTION_ERROR;
7286: END IF;
7287: -- Validate Line Style id and get the line type code
7280: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7281: x_return_status => x_return_status);
7282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7285: RAISE OKL_API.G_EXCEPTION_ERROR;
7286: END IF;
7287: -- Validate Line Style id and get the line type code
7288: -- and line style type for further processing
7281: x_return_status => x_return_status);
7282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7285: RAISE OKL_API.G_EXCEPTION_ERROR;
7286: END IF;
7287: -- Validate Line Style id and get the line type code
7288: -- and line style type for further processing
7289: validate_lse_id(p_clev_rec => l_delete_clev_rec,
7290: x_return_status => x_return_status,
7291: x_lty_code => l_lty_code,
7292: x_lse_type => l_lse_type);
7293: -- Check if activity started successfully
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7291: x_lty_code => l_lty_code,
7292: x_lse_type => l_lse_type);
7293: -- Check if activity started successfully
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: -- Validate the Dnz_Chr_id
7292: x_lse_type => l_lse_type);
7293: -- Check if activity started successfully
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: -- Validate the Dnz_Chr_id
7300: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7293: -- Check if activity started successfully
7294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7297: RAISE OKL_API.G_EXCEPTION_ERROR;
7298: END IF;
7299: -- Validate the Dnz_Chr_id
7300: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7301: x_return_status => x_return_status);
7299: -- Validate the Dnz_Chr_id
7300: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7301: x_return_status => x_return_status);
7302: -- Check if activity started successfully
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: END IF;
7300: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7301: x_return_status => x_return_status);
7302: -- Check if activity started successfully
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: END IF;
7308: -- Now we are deleting Add on Line
7301: x_return_status => x_return_status);
7302: -- Check if activity started successfully
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: END IF;
7308: -- Now we are deleting Add on Line
7309: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7302: -- Check if activity started successfully
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: END IF;
7308: -- Now we are deleting Add on Line
7309: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7310: -- The Record Should have the cle_id
7309: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7310: -- The Record Should have the cle_id
7311: -- if the given line style is Add on Line
7312: -- Since there could be mutilple records we have to accept
7313: IF (l_delete_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7314: l_delete_clev_rec.chr_id IS NULL) AND
7315: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7316: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7317: (l_delete_clev_rec.cle_id IS NOT NULL OR
7312: -- Since there could be mutilple records we have to accept
7313: IF (l_delete_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7314: l_delete_clev_rec.chr_id IS NULL) AND
7315: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7316: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7317: (l_delete_clev_rec.cle_id IS NOT NULL OR
7318: l_delete_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7319: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7320: l_lse_type = G_SLS_TYPE THEN
7314: l_delete_clev_rec.chr_id IS NULL) AND
7315: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7316: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7317: (l_delete_clev_rec.cle_id IS NOT NULL OR
7318: l_delete_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7319: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7320: l_lse_type = G_SLS_TYPE THEN
7321: OKL_CONTRACT_PUB.delete_contract_line(
7322: p_api_version => p_api_version,
7324: x_return_status => x_return_status,
7325: x_msg_count => x_msg_count,
7326: x_msg_data => x_msg_data,
7327: p_line_id => l_delete_clev_rec.id);
7328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7329: OKL_API.set_message(p_app_name => G_APP_NAME,
7330: p_msg_name => G_DELETING_ADDON_LINE);
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7325: x_msg_count => x_msg_count,
7326: x_msg_data => x_msg_data,
7327: p_line_id => l_delete_clev_rec.id);
7328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7329: OKL_API.set_message(p_app_name => G_APP_NAME,
7330: p_msg_name => G_DELETING_ADDON_LINE);
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7333: OKL_API.set_message(p_app_name => G_APP_NAME,
7327: p_line_id => l_delete_clev_rec.id);
7328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7329: OKL_API.set_message(p_app_name => G_APP_NAME,
7330: p_msg_name => G_DELETING_ADDON_LINE);
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7333: OKL_API.set_message(p_app_name => G_APP_NAME,
7334: p_msg_name => G_DELETING_ADDON_LINE);
7335: RAISE OKL_API.G_EXCEPTION_ERROR;
7328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7329: OKL_API.set_message(p_app_name => G_APP_NAME,
7330: p_msg_name => G_DELETING_ADDON_LINE);
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7333: OKL_API.set_message(p_app_name => G_APP_NAME,
7334: p_msg_name => G_DELETING_ADDON_LINE);
7335: RAISE OKL_API.G_EXCEPTION_ERROR;
7336: END IF;
7329: OKL_API.set_message(p_app_name => G_APP_NAME,
7330: p_msg_name => G_DELETING_ADDON_LINE);
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7333: OKL_API.set_message(p_app_name => G_APP_NAME,
7334: p_msg_name => G_DELETING_ADDON_LINE);
7335: RAISE OKL_API.G_EXCEPTION_ERROR;
7336: END IF;
7337: ELSE
7331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7333: OKL_API.set_message(p_app_name => G_APP_NAME,
7334: p_msg_name => G_DELETING_ADDON_LINE);
7335: RAISE OKL_API.G_EXCEPTION_ERROR;
7336: END IF;
7337: ELSE
7338: OKL_API.set_message(p_app_name => G_APP_NAME,
7339: p_msg_name => G_INVALID_CRITERIA,
7334: p_msg_name => G_DELETING_ADDON_LINE);
7335: RAISE OKL_API.G_EXCEPTION_ERROR;
7336: END IF;
7337: ELSE
7338: OKL_API.set_message(p_app_name => G_APP_NAME,
7339: p_msg_name => G_INVALID_CRITERIA,
7340: p_token1 => G_COL_NAME_TOKEN,
7341: p_token1_value => 'Add on line');
7342: x_return_status := OKL_API.G_RET_STS_ERROR;
7338: OKL_API.set_message(p_app_name => G_APP_NAME,
7339: p_msg_name => G_INVALID_CRITERIA,
7340: p_token1 => G_COL_NAME_TOKEN,
7341: p_token1_value => 'Add on line');
7342: x_return_status := OKL_API.G_RET_STS_ERROR;
7343: RAISE OKL_API.G_EXCEPTION_ERROR;
7344: END IF;
7345: -- We need to the below since we need to calculate the OEC again
7346: x_clev_rec := l_delete_clev_rec;
7339: p_msg_name => G_INVALID_CRITERIA,
7340: p_token1 => G_COL_NAME_TOKEN,
7341: p_token1_value => 'Add on line');
7342: x_return_status := OKL_API.G_RET_STS_ERROR;
7343: RAISE OKL_API.G_EXCEPTION_ERROR;
7344: END IF;
7345: -- We need to the below since we need to calculate the OEC again
7346: x_clev_rec := l_delete_clev_rec;
7347: OKL_API.END_ACTIVITY (x_msg_count,
7343: RAISE OKL_API.G_EXCEPTION_ERROR;
7344: END IF;
7345: -- We need to the below since we need to calculate the OEC again
7346: x_clev_rec := l_delete_clev_rec;
7347: OKL_API.END_ACTIVITY (x_msg_count,
7348: x_msg_data );
7349: EXCEPTION
7350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7346: x_clev_rec := l_delete_clev_rec;
7347: OKL_API.END_ACTIVITY (x_msg_count,
7348: x_msg_data );
7349: EXCEPTION
7350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7352: l_api_name,
7353: G_PKG_NAME,
7354: 'OKL_API.G_RET_STS_ERROR',
7347: OKL_API.END_ACTIVITY (x_msg_count,
7348: x_msg_data );
7349: EXCEPTION
7350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7352: l_api_name,
7353: G_PKG_NAME,
7354: 'OKL_API.G_RET_STS_ERROR',
7355: x_msg_count,
7350: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7351: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7352: l_api_name,
7353: G_PKG_NAME,
7354: 'OKL_API.G_RET_STS_ERROR',
7355: x_msg_count,
7356: x_msg_data,
7357: '_PVT');
7358: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7354: 'OKL_API.G_RET_STS_ERROR',
7355: x_msg_count,
7356: x_msg_data,
7357: '_PVT');
7358: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7359: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7360: l_api_name,
7361: G_PKG_NAME,
7362: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7355: x_msg_count,
7356: x_msg_data,
7357: '_PVT');
7358: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7359: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7360: l_api_name,
7361: G_PKG_NAME,
7362: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7363: x_msg_count,
7358: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7359: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7360: l_api_name,
7361: G_PKG_NAME,
7362: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7363: x_msg_count,
7364: x_msg_data,
7365: '_PVT');
7366: WHEN OTHERS THEN
7363: x_msg_count,
7364: x_msg_data,
7365: '_PVT');
7366: WHEN OTHERS THEN
7367: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7368: l_api_name,
7369: G_PKG_NAME,
7370: 'OTHERS',
7371: x_msg_count,
7373: '_PVT');
7374: END delete_addon_line_rec;
7375: -------------------------------------------------------------------------------------------------
7376: PROCEDURE Create_inst_line(p_api_version IN NUMBER,
7377: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7378: x_return_status OUT NOCOPY VARCHAR2,
7379: x_msg_count OUT NOCOPY NUMBER,
7380: x_msg_data OUT NOCOPY VARCHAR2,
7381: -- #4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7389:
7390: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTS_LINE';
7391: BEGIN
7392:
7393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7394: -- Call start_activity to create savepoint, check compatibility
7395: -- and initialize message list
7396: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7397: ,p_init_msg_list
7392:
7393: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7394: -- Call start_activity to create savepoint, check compatibility
7395: -- and initialize message list
7396: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7397: ,p_init_msg_list
7398: ,'_PVT'
7399: ,x_return_status);
7400: -- Check if activity started successfully
7397: ,p_init_msg_list
7398: ,'_PVT'
7399: ,x_return_status);
7400: -- Check if activity started successfully
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7398: ,'_PVT'
7399: ,x_return_status);
7400: -- Check if activity started successfully
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406: -- 4414408 redundant validation
7399: ,x_return_status);
7400: -- Check if activity started successfully
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406: -- 4414408 redundant validation
7407: /*
7400: -- Check if activity started successfully
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406: -- 4414408 redundant validation
7407: /*
7408: -- Check the cle_id that is of the top Fin Asset line
7409: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7410: p_lty_code => p_lty_code,
7411: x_lty_code => l_lty_code,
7412: x_return_status => x_return_status);
7413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7416: RAISE OKL_API.G_EXCEPTION_ERROR;
7417: END IF;
7410: p_lty_code => p_lty_code,
7411: x_lty_code => l_lty_code,
7412: x_return_status => x_return_status);
7413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7416: RAISE OKL_API.G_EXCEPTION_ERROR;
7417: END IF;
7418: */
7411: x_lty_code => l_lty_code,
7412: x_return_status => x_return_status);
7413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7416: RAISE OKL_API.G_EXCEPTION_ERROR;
7417: END IF;
7418: */
7419: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7412: x_return_status => x_return_status);
7413: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7416: RAISE OKL_API.G_EXCEPTION_ERROR;
7417: END IF;
7418: */
7419: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7420: -- which line are creating under which line
7424:
7425: -- # 4414408 use new function default_contract_line_values
7426: /*
7427: IF (p_clev_rec.sts_code IS NULL OR
7428: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7429: x_return_status := get_sts_code(p_dnz_chr_id => null,
7430: p_cle_id => p_clev_rec.cle_id,
7431: x_sts_code => r_clev_rec.sts_code);
7432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7428: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7429: x_return_status := get_sts_code(p_dnz_chr_id => null,
7430: p_cle_id => p_clev_rec.cle_id,
7431: x_sts_code => r_clev_rec.sts_code);
7432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7435: RAISE OKL_API.G_EXCEPTION_ERROR;
7436: END IF;
7429: x_return_status := get_sts_code(p_dnz_chr_id => null,
7430: p_cle_id => p_clev_rec.cle_id,
7431: x_sts_code => r_clev_rec.sts_code);
7432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7435: RAISE OKL_API.G_EXCEPTION_ERROR;
7436: END IF;
7437: END IF;
7430: p_cle_id => p_clev_rec.cle_id,
7431: x_sts_code => r_clev_rec.sts_code);
7432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7435: RAISE OKL_API.G_EXCEPTION_ERROR;
7436: END IF;
7437: END IF;
7438: IF (p_clev_rec.end_date IS NULL OR
7431: x_sts_code => r_clev_rec.sts_code);
7432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7435: RAISE OKL_API.G_EXCEPTION_ERROR;
7436: END IF;
7437: END IF;
7438: IF (p_clev_rec.end_date IS NULL OR
7439: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7435: RAISE OKL_API.G_EXCEPTION_ERROR;
7436: END IF;
7437: END IF;
7438: IF (p_clev_rec.end_date IS NULL OR
7439: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7440: x_return_status := get_end_date(p_dnz_chr_id => null,
7441: p_cle_id => p_clev_rec.cle_id,
7442: x_end_date => r_clev_rec.end_date);
7443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7439: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7440: x_return_status := get_end_date(p_dnz_chr_id => null,
7441: p_cle_id => p_clev_rec.cle_id,
7442: x_end_date => r_clev_rec.end_date);
7443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7446: RAISE OKL_API.G_EXCEPTION_ERROR;
7447: END IF;
7440: x_return_status := get_end_date(p_dnz_chr_id => null,
7441: p_cle_id => p_clev_rec.cle_id,
7442: x_end_date => r_clev_rec.end_date);
7443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7446: RAISE OKL_API.G_EXCEPTION_ERROR;
7447: END IF;
7448: END IF;
7441: p_cle_id => p_clev_rec.cle_id,
7442: x_end_date => r_clev_rec.end_date);
7443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7446: RAISE OKL_API.G_EXCEPTION_ERROR;
7447: END IF;
7448: END IF;
7449: IF (p_clev_rec.start_date IS NULL OR
7442: x_end_date => r_clev_rec.end_date);
7443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7444: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7445: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7446: RAISE OKL_API.G_EXCEPTION_ERROR;
7447: END IF;
7448: END IF;
7449: IF (p_clev_rec.start_date IS NULL OR
7450: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7446: RAISE OKL_API.G_EXCEPTION_ERROR;
7447: END IF;
7448: END IF;
7449: IF (p_clev_rec.start_date IS NULL OR
7450: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7451: x_return_status := get_start_date(p_dnz_chr_id => null,
7452: p_cle_id => p_clev_rec.cle_id,
7453: x_start_date => r_clev_rec.start_date);
7454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7450: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7451: x_return_status := get_start_date(p_dnz_chr_id => null,
7452: p_cle_id => p_clev_rec.cle_id,
7453: x_start_date => r_clev_rec.start_date);
7454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7457: RAISE OKL_API.G_EXCEPTION_ERROR;
7458: END IF;
7451: x_return_status := get_start_date(p_dnz_chr_id => null,
7452: p_cle_id => p_clev_rec.cle_id,
7453: x_start_date => r_clev_rec.start_date);
7454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7457: RAISE OKL_API.G_EXCEPTION_ERROR;
7458: END IF;
7459: END IF;
7452: p_cle_id => p_clev_rec.cle_id,
7453: x_start_date => r_clev_rec.start_date);
7454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7457: RAISE OKL_API.G_EXCEPTION_ERROR;
7458: END IF;
7459: END IF;
7460: IF (p_clev_rec.currency_code IS NULL OR
7453: x_start_date => r_clev_rec.start_date);
7454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7457: RAISE OKL_API.G_EXCEPTION_ERROR;
7458: END IF;
7459: END IF;
7460: IF (p_clev_rec.currency_code IS NULL OR
7461: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7457: RAISE OKL_API.G_EXCEPTION_ERROR;
7458: END IF;
7459: END IF;
7460: IF (p_clev_rec.currency_code IS NULL OR
7461: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7462: x_return_status := get_currency_code(p_dnz_chr_id => null,
7463: p_cle_id => p_clev_rec.cle_id,
7464: x_currency_code => r_clev_rec.currency_code);
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7461: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7462: x_return_status := get_currency_code(p_dnz_chr_id => null,
7463: p_cle_id => p_clev_rec.cle_id,
7464: x_currency_code => r_clev_rec.currency_code);
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7462: x_return_status := get_currency_code(p_dnz_chr_id => null,
7463: p_cle_id => p_clev_rec.cle_id,
7464: x_currency_code => r_clev_rec.currency_code);
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470: END IF;
7463: p_cle_id => p_clev_rec.cle_id,
7464: x_currency_code => r_clev_rec.currency_code);
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470: END IF;
7471: */
7464: x_currency_code => r_clev_rec.currency_code);
7465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7468: RAISE OKL_API.G_EXCEPTION_ERROR;
7469: END IF;
7470: END IF;
7471: */
7472: IF ((p_clev_rec.sts_code IS NULL OR
7469: END IF;
7470: END IF;
7471: */
7472: IF ((p_clev_rec.sts_code IS NULL OR
7473: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7474: (p_clev_rec.end_date IS NULL OR
7475: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7476: (p_clev_rec.start_date IS NULL OR
7477: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7471: */
7472: IF ((p_clev_rec.sts_code IS NULL OR
7473: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7474: (p_clev_rec.end_date IS NULL OR
7475: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7476: (p_clev_rec.start_date IS NULL OR
7477: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7478: (p_clev_rec.currency_code IS NULL OR
7479: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7473: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7474: (p_clev_rec.end_date IS NULL OR
7475: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7476: (p_clev_rec.start_date IS NULL OR
7477: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7478: (p_clev_rec.currency_code IS NULL OR
7479: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7480: ) THEN
7481: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7475: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7476: (p_clev_rec.start_date IS NULL OR
7477: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7478: (p_clev_rec.currency_code IS NULL OR
7479: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7480: ) THEN
7481: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7482: p_cle_id => r_clev_rec.cle_id,
7483: p_clev_rec => r_clev_rec);
7480: ) THEN
7481: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7482: p_cle_id => r_clev_rec.cle_id,
7483: p_clev_rec => r_clev_rec);
7484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7487: RAISE OKL_API.G_EXCEPTION_ERROR;
7488: END IF;
7481: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7482: p_cle_id => r_clev_rec.cle_id,
7483: p_clev_rec => r_clev_rec);
7484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7487: RAISE OKL_API.G_EXCEPTION_ERROR;
7488: END IF;
7489: END IF;
7482: p_cle_id => r_clev_rec.cle_id,
7483: p_clev_rec => r_clev_rec);
7484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7487: RAISE OKL_API.G_EXCEPTION_ERROR;
7488: END IF;
7489: END IF;
7490:
7483: p_clev_rec => r_clev_rec);
7484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7486: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7487: RAISE OKL_API.G_EXCEPTION_ERROR;
7488: END IF;
7489: END IF;
7490:
7491: -- Now the all the records are there we can create Instance Line
7497: p_clev_rec => r_clev_rec,
7498: p_klev_rec => p_klev_rec,
7499: x_clev_rec => x_clev_rec,
7500: x_klev_rec => x_klev_rec);
7501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7502: OKL_API.set_message(p_app_name => G_APP_NAME,
7503: p_msg_name => G_CREATION_INSTS_LINE);
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7498: p_klev_rec => p_klev_rec,
7499: x_clev_rec => x_clev_rec,
7500: x_klev_rec => x_klev_rec);
7501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7502: OKL_API.set_message(p_app_name => G_APP_NAME,
7503: p_msg_name => G_CREATION_INSTS_LINE);
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: OKL_API.set_message(p_app_name => G_APP_NAME,
7500: x_klev_rec => x_klev_rec);
7501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7502: OKL_API.set_message(p_app_name => G_APP_NAME,
7503: p_msg_name => G_CREATION_INSTS_LINE);
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: OKL_API.set_message(p_app_name => G_APP_NAME,
7507: p_msg_name => G_CREATION_INSTS_LINE);
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7502: OKL_API.set_message(p_app_name => G_APP_NAME,
7503: p_msg_name => G_CREATION_INSTS_LINE);
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: OKL_API.set_message(p_app_name => G_APP_NAME,
7507: p_msg_name => G_CREATION_INSTS_LINE);
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7502: OKL_API.set_message(p_app_name => G_APP_NAME,
7503: p_msg_name => G_CREATION_INSTS_LINE);
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: OKL_API.set_message(p_app_name => G_APP_NAME,
7507: p_msg_name => G_CREATION_INSTS_LINE);
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: -- #4414408
7504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: OKL_API.set_message(p_app_name => G_APP_NAME,
7507: p_msg_name => G_CREATION_INSTS_LINE);
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: -- #4414408
7511: -- ELSE
7512: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: -- #4414408
7511: -- ELSE
7512: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7513: -- p_msg_name => G_LINE_STYLE);
7514: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7515: -- END IF;
7516: OKL_API.END_ACTIVITY (x_msg_count,
7510: -- #4414408
7511: -- ELSE
7512: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7513: -- p_msg_name => G_LINE_STYLE);
7514: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7515: -- END IF;
7516: OKL_API.END_ACTIVITY (x_msg_count,
7517: x_msg_data );
7518: EXCEPTION
7512: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7513: -- p_msg_name => G_LINE_STYLE);
7514: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7515: -- END IF;
7516: OKL_API.END_ACTIVITY (x_msg_count,
7517: x_msg_data );
7518: EXCEPTION
7519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7515: -- END IF;
7516: OKL_API.END_ACTIVITY (x_msg_count,
7517: x_msg_data );
7518: EXCEPTION
7519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7521: l_api_name,
7522: G_PKG_NAME,
7523: 'OKL_API.G_RET_STS_ERROR',
7516: OKL_API.END_ACTIVITY (x_msg_count,
7517: x_msg_data );
7518: EXCEPTION
7519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7521: l_api_name,
7522: G_PKG_NAME,
7523: 'OKL_API.G_RET_STS_ERROR',
7524: x_msg_count,
7519: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7520: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7521: l_api_name,
7522: G_PKG_NAME,
7523: 'OKL_API.G_RET_STS_ERROR',
7524: x_msg_count,
7525: x_msg_data,
7526: '_PVT');
7527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7523: 'OKL_API.G_RET_STS_ERROR',
7524: x_msg_count,
7525: x_msg_data,
7526: '_PVT');
7527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7529: l_api_name,
7530: G_PKG_NAME,
7531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7524: x_msg_count,
7525: x_msg_data,
7526: '_PVT');
7527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7529: l_api_name,
7530: G_PKG_NAME,
7531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7532: x_msg_count,
7527: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7528: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7529: l_api_name,
7530: G_PKG_NAME,
7531: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7532: x_msg_count,
7533: x_msg_data,
7534: '_PVT');
7535: WHEN OTHERS THEN
7532: x_msg_count,
7533: x_msg_data,
7534: '_PVT');
7535: WHEN OTHERS THEN
7536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7537: l_api_name,
7538: G_PKG_NAME,
7539: 'OTHERS',
7540: x_msg_count,
7542: '_PVT');
7543: END Create_inst_line;
7544: -------------------------------------------------------------------------------------------------
7545: PROCEDURE update_inst_line(p_api_version IN NUMBER,
7546: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7547: x_return_status OUT NOCOPY VARCHAR2,
7548: x_msg_count OUT NOCOPY NUMBER,
7549: x_msg_data OUT NOCOPY VARCHAR2,
7550: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7557: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7558:
7559: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INSTS_LINE';
7560: BEGIN
7561: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7562: -- Call start_activity to create savepoint, check compatibility
7563: -- and initialize message list
7564: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7565: ,p_init_msg_list
7560: BEGIN
7561: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7562: -- Call start_activity to create savepoint, check compatibility
7563: -- and initialize message list
7564: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7565: ,p_init_msg_list
7566: ,'_PVT'
7567: ,x_return_status);
7568: -- Check if activity started successfully
7565: ,p_init_msg_list
7566: ,'_PVT'
7567: ,x_return_status);
7568: -- Check if activity started successfully
7569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7572: RAISE OKL_API.G_EXCEPTION_ERROR;
7573: END IF;
7566: ,'_PVT'
7567: ,x_return_status);
7568: -- Check if activity started successfully
7569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7572: RAISE OKL_API.G_EXCEPTION_ERROR;
7573: END IF;
7574: -- Check the cle_id that is of the top Fin Asset line
7567: ,x_return_status);
7568: -- Check if activity started successfully
7569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7572: RAISE OKL_API.G_EXCEPTION_ERROR;
7573: END IF;
7574: -- Check the cle_id that is of the top Fin Asset line
7575: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7568: -- Check if activity started successfully
7569: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7570: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7571: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7572: RAISE OKL_API.G_EXCEPTION_ERROR;
7573: END IF;
7574: -- Check the cle_id that is of the top Fin Asset line
7575: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7576: p_lty_code => p_lty_code,
7575: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7576: p_lty_code => p_lty_code,
7577: x_lty_code => l_lty_code,
7578: x_return_status => x_return_status);
7579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_ERROR;
7583: END IF;
7576: p_lty_code => p_lty_code,
7577: x_lty_code => l_lty_code,
7578: x_return_status => x_return_status);
7579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_ERROR;
7583: END IF;
7584: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7577: x_lty_code => l_lty_code,
7578: x_return_status => x_return_status);
7579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_ERROR;
7583: END IF;
7584: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7585: -- which line are creating under which line
7578: x_return_status => x_return_status);
7579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7582: RAISE OKL_API.G_EXCEPTION_ERROR;
7583: END IF;
7584: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7585: -- which line are creating under which line
7586: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
7593: p_clev_rec => p_clev_rec,
7594: p_klev_rec => p_klev_rec,
7595: x_clev_rec => x_clev_rec,
7596: x_klev_rec => x_klev_rec);
7597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7598: OKL_API.set_message(p_app_name => G_APP_NAME,
7599: p_msg_name => G_UPDATING_INSTS_LINE);
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7594: p_klev_rec => p_klev_rec,
7595: x_clev_rec => x_clev_rec,
7596: x_klev_rec => x_klev_rec);
7597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7598: OKL_API.set_message(p_app_name => G_APP_NAME,
7599: p_msg_name => G_UPDATING_INSTS_LINE);
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7602: OKL_API.set_message(p_app_name => G_APP_NAME,
7596: x_klev_rec => x_klev_rec);
7597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7598: OKL_API.set_message(p_app_name => G_APP_NAME,
7599: p_msg_name => G_UPDATING_INSTS_LINE);
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7602: OKL_API.set_message(p_app_name => G_APP_NAME,
7603: p_msg_name => G_UPDATING_INSTS_LINE);
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7598: OKL_API.set_message(p_app_name => G_APP_NAME,
7599: p_msg_name => G_UPDATING_INSTS_LINE);
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7602: OKL_API.set_message(p_app_name => G_APP_NAME,
7603: p_msg_name => G_UPDATING_INSTS_LINE);
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7598: OKL_API.set_message(p_app_name => G_APP_NAME,
7599: p_msg_name => G_UPDATING_INSTS_LINE);
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7602: OKL_API.set_message(p_app_name => G_APP_NAME,
7603: p_msg_name => G_UPDATING_INSTS_LINE);
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: ELSE
7600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7602: OKL_API.set_message(p_app_name => G_APP_NAME,
7603: p_msg_name => G_UPDATING_INSTS_LINE);
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: ELSE
7607: OKL_API.set_message(p_app_name => G_APP_NAME,
7608: p_msg_name => G_LINE_STYLE);
7603: p_msg_name => G_UPDATING_INSTS_LINE);
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: ELSE
7607: OKL_API.set_message(p_app_name => G_APP_NAME,
7608: p_msg_name => G_LINE_STYLE);
7609: RAISE OKL_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: OKL_API.END_ACTIVITY (x_msg_count,
7605: END IF;
7606: ELSE
7607: OKL_API.set_message(p_app_name => G_APP_NAME,
7608: p_msg_name => G_LINE_STYLE);
7609: RAISE OKL_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: OKL_API.END_ACTIVITY (x_msg_count,
7612: x_msg_data );
7613: EXCEPTION
7607: OKL_API.set_message(p_app_name => G_APP_NAME,
7608: p_msg_name => G_LINE_STYLE);
7609: RAISE OKL_API.G_EXCEPTION_ERROR;
7610: END IF;
7611: OKL_API.END_ACTIVITY (x_msg_count,
7612: x_msg_data );
7613: EXCEPTION
7614: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7615: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7610: END IF;
7611: OKL_API.END_ACTIVITY (x_msg_count,
7612: x_msg_data );
7613: EXCEPTION
7614: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7615: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7616: l_api_name,
7617: G_PKG_NAME,
7618: 'OKL_API.G_RET_STS_ERROR',
7611: OKL_API.END_ACTIVITY (x_msg_count,
7612: x_msg_data );
7613: EXCEPTION
7614: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7615: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7616: l_api_name,
7617: G_PKG_NAME,
7618: 'OKL_API.G_RET_STS_ERROR',
7619: x_msg_count,
7614: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7615: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7616: l_api_name,
7617: G_PKG_NAME,
7618: 'OKL_API.G_RET_STS_ERROR',
7619: x_msg_count,
7620: x_msg_data,
7621: '_PVT');
7622: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7618: 'OKL_API.G_RET_STS_ERROR',
7619: x_msg_count,
7620: x_msg_data,
7621: '_PVT');
7622: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7623: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7624: l_api_name,
7625: G_PKG_NAME,
7626: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7619: x_msg_count,
7620: x_msg_data,
7621: '_PVT');
7622: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7623: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7624: l_api_name,
7625: G_PKG_NAME,
7626: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7627: x_msg_count,
7622: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7623: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7624: l_api_name,
7625: G_PKG_NAME,
7626: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7627: x_msg_count,
7628: x_msg_data,
7629: '_PVT');
7630: WHEN OTHERS THEN
7627: x_msg_count,
7628: x_msg_data,
7629: '_PVT');
7630: WHEN OTHERS THEN
7631: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7632: l_api_name,
7633: G_PKG_NAME,
7634: 'OTHERS',
7635: x_msg_count,
7637: '_PVT');
7638: END update_inst_line;
7639: -------------------------------------------------------------------------------------------------
7640: PROCEDURE Create_installed_base_line(p_api_version IN NUMBER,
7641: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7642: x_return_status OUT NOCOPY VARCHAR2,
7643: x_msg_count OUT NOCOPY NUMBER,
7644: x_msg_data OUT NOCOPY VARCHAR2,
7645: -- 4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7655: l_clev_rec clev_rec_type;
7656: r_clev_rec clev_rec_type;
7657: l_cimv_rec cimv_rec_type;
7658: r_cimv_rec cimv_rec_type;
7659: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
7660: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7661: l_itiv_rec itiv_rec_type;
7662: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_LINE';
7663: BEGIN
7660: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7661: l_itiv_rec itiv_rec_type;
7662: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_LINE';
7663: BEGIN
7664: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7665: -- Call start_activity to create savepoint, check compatibility
7666: -- and initialize message list
7667: x_return_status := OKL_API.START_ACTIVITY (
7668: l_api_name
7663: BEGIN
7664: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7665: -- Call start_activity to create savepoint, check compatibility
7666: -- and initialize message list
7667: x_return_status := OKL_API.START_ACTIVITY (
7668: l_api_name
7669: ,p_init_msg_list
7670: ,'_PVT'
7671: ,x_return_status);
7669: ,p_init_msg_list
7670: ,'_PVT'
7671: ,x_return_status);
7672: -- Check if activity started successfully
7673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7676: RAISE OKL_API.G_EXCEPTION_ERROR;
7677: END IF;
7670: ,'_PVT'
7671: ,x_return_status);
7672: -- Check if activity started successfully
7673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7676: RAISE OKL_API.G_EXCEPTION_ERROR;
7677: END IF;
7678: -- 4414408 redundant validation
7671: ,x_return_status);
7672: -- Check if activity started successfully
7673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7676: RAISE OKL_API.G_EXCEPTION_ERROR;
7677: END IF;
7678: -- 4414408 redundant validation
7679: /*
7672: -- Check if activity started successfully
7673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7676: RAISE OKL_API.G_EXCEPTION_ERROR;
7677: END IF;
7678: -- 4414408 redundant validation
7679: /*
7680: -- Check the cle_id that is of the top Fin Asset line
7681: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7682: p_lty_code => p_lty_code,
7683: x_lty_code => l_lty_code,
7684: x_return_status => x_return_status);
7685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7688: RAISE OKL_API.G_EXCEPTION_ERROR;
7689: END IF;
7682: p_lty_code => p_lty_code,
7683: x_lty_code => l_lty_code,
7684: x_return_status => x_return_status);
7685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7688: RAISE OKL_API.G_EXCEPTION_ERROR;
7689: END IF;
7690: */
7683: x_lty_code => l_lty_code,
7684: x_return_status => x_return_status);
7685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7688: RAISE OKL_API.G_EXCEPTION_ERROR;
7689: END IF;
7690: */
7691: -- since IB Line is a sub line of instance line we have to check weather
7684: x_return_status => x_return_status);
7685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7688: RAISE OKL_API.G_EXCEPTION_ERROR;
7689: END IF;
7690: */
7691: -- since IB Line is a sub line of instance line we have to check weather
7692: -- which line are creating under which line
7696:
7697: -- # 4414408 use new function default_contract_line_values
7698: /*
7699: IF (p_clev_rec.sts_code IS NULL OR
7700: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7701: x_return_status := get_sts_code(p_dnz_chr_id => null,
7702: p_cle_id => p_clev_rec.cle_id,
7703: x_sts_code => r_clev_rec.sts_code);
7704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7700: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7701: x_return_status := get_sts_code(p_dnz_chr_id => null,
7702: p_cle_id => p_clev_rec.cle_id,
7703: x_sts_code => r_clev_rec.sts_code);
7704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7705: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7707: RAISE OKL_API.G_EXCEPTION_ERROR;
7708: END IF;
7701: x_return_status := get_sts_code(p_dnz_chr_id => null,
7702: p_cle_id => p_clev_rec.cle_id,
7703: x_sts_code => r_clev_rec.sts_code);
7704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7705: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7707: RAISE OKL_API.G_EXCEPTION_ERROR;
7708: END IF;
7709: END IF;
7702: p_cle_id => p_clev_rec.cle_id,
7703: x_sts_code => r_clev_rec.sts_code);
7704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7705: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7707: RAISE OKL_API.G_EXCEPTION_ERROR;
7708: END IF;
7709: END IF;
7710: IF (p_clev_rec.end_date IS NULL OR
7703: x_sts_code => r_clev_rec.sts_code);
7704: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7705: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7706: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7707: RAISE OKL_API.G_EXCEPTION_ERROR;
7708: END IF;
7709: END IF;
7710: IF (p_clev_rec.end_date IS NULL OR
7711: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7707: RAISE OKL_API.G_EXCEPTION_ERROR;
7708: END IF;
7709: END IF;
7710: IF (p_clev_rec.end_date IS NULL OR
7711: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7712: x_return_status := get_end_date(p_dnz_chr_id => null,
7713: p_cle_id => p_clev_rec.cle_id,
7714: x_end_date => r_clev_rec.end_date);
7715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7711: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7712: x_return_status := get_end_date(p_dnz_chr_id => null,
7713: p_cle_id => p_clev_rec.cle_id,
7714: x_end_date => r_clev_rec.end_date);
7715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_ERROR;
7719: END IF;
7712: x_return_status := get_end_date(p_dnz_chr_id => null,
7713: p_cle_id => p_clev_rec.cle_id,
7714: x_end_date => r_clev_rec.end_date);
7715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_ERROR;
7719: END IF;
7720: END IF;
7713: p_cle_id => p_clev_rec.cle_id,
7714: x_end_date => r_clev_rec.end_date);
7715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_ERROR;
7719: END IF;
7720: END IF;
7721: IF (p_clev_rec.start_date IS NULL OR
7714: x_end_date => r_clev_rec.end_date);
7715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7718: RAISE OKL_API.G_EXCEPTION_ERROR;
7719: END IF;
7720: END IF;
7721: IF (p_clev_rec.start_date IS NULL OR
7722: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7718: RAISE OKL_API.G_EXCEPTION_ERROR;
7719: END IF;
7720: END IF;
7721: IF (p_clev_rec.start_date IS NULL OR
7722: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7723: x_return_status := get_start_date(p_dnz_chr_id => null,
7724: p_cle_id => p_clev_rec.cle_id,
7725: x_start_date => r_clev_rec.start_date);
7726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7722: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7723: x_return_status := get_start_date(p_dnz_chr_id => null,
7724: p_cle_id => p_clev_rec.cle_id,
7725: x_start_date => r_clev_rec.start_date);
7726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7729: RAISE OKL_API.G_EXCEPTION_ERROR;
7730: END IF;
7723: x_return_status := get_start_date(p_dnz_chr_id => null,
7724: p_cle_id => p_clev_rec.cle_id,
7725: x_start_date => r_clev_rec.start_date);
7726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7729: RAISE OKL_API.G_EXCEPTION_ERROR;
7730: END IF;
7731: END IF;
7724: p_cle_id => p_clev_rec.cle_id,
7725: x_start_date => r_clev_rec.start_date);
7726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7729: RAISE OKL_API.G_EXCEPTION_ERROR;
7730: END IF;
7731: END IF;
7732: IF (p_clev_rec.currency_code IS NULL OR
7725: x_start_date => r_clev_rec.start_date);
7726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7727: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7729: RAISE OKL_API.G_EXCEPTION_ERROR;
7730: END IF;
7731: END IF;
7732: IF (p_clev_rec.currency_code IS NULL OR
7733: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7729: RAISE OKL_API.G_EXCEPTION_ERROR;
7730: END IF;
7731: END IF;
7732: IF (p_clev_rec.currency_code IS NULL OR
7733: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7734: x_return_status := get_currency_code(p_dnz_chr_id => null,
7735: p_cle_id => p_clev_rec.cle_id,
7736: x_currency_code => r_clev_rec.currency_code);
7737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7733: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7734: x_return_status := get_currency_code(p_dnz_chr_id => null,
7735: p_cle_id => p_clev_rec.cle_id,
7736: x_currency_code => r_clev_rec.currency_code);
7737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7740: RAISE OKL_API.G_EXCEPTION_ERROR;
7741: END IF;
7734: x_return_status := get_currency_code(p_dnz_chr_id => null,
7735: p_cle_id => p_clev_rec.cle_id,
7736: x_currency_code => r_clev_rec.currency_code);
7737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7740: RAISE OKL_API.G_EXCEPTION_ERROR;
7741: END IF;
7742: END IF;
7735: p_cle_id => p_clev_rec.cle_id,
7736: x_currency_code => r_clev_rec.currency_code);
7737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7740: RAISE OKL_API.G_EXCEPTION_ERROR;
7741: END IF;
7742: END IF;
7743: */
7736: x_currency_code => r_clev_rec.currency_code);
7737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7740: RAISE OKL_API.G_EXCEPTION_ERROR;
7741: END IF;
7742: END IF;
7743: */
7744:
7742: END IF;
7743: */
7744:
7745: IF ((p_clev_rec.sts_code IS NULL OR
7746: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7747: (p_clev_rec.end_date IS NULL OR
7748: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7749: (p_clev_rec.start_date IS NULL OR
7750: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7744:
7745: IF ((p_clev_rec.sts_code IS NULL OR
7746: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7747: (p_clev_rec.end_date IS NULL OR
7748: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7749: (p_clev_rec.start_date IS NULL OR
7750: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7751: (p_clev_rec.currency_code IS NULL OR
7752: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7746: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7747: (p_clev_rec.end_date IS NULL OR
7748: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7749: (p_clev_rec.start_date IS NULL OR
7750: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7751: (p_clev_rec.currency_code IS NULL OR
7752: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7753: ) THEN
7754: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7748: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7749: (p_clev_rec.start_date IS NULL OR
7750: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7751: (p_clev_rec.currency_code IS NULL OR
7752: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7753: ) THEN
7754: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7755: p_cle_id => r_clev_rec.cle_id,
7756: p_clev_rec => r_clev_rec);
7753: ) THEN
7754: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7755: p_cle_id => r_clev_rec.cle_id,
7756: p_clev_rec => r_clev_rec);
7757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7760: RAISE OKL_API.G_EXCEPTION_ERROR;
7761: END IF;
7754: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7755: p_cle_id => r_clev_rec.cle_id,
7756: p_clev_rec => r_clev_rec);
7757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7760: RAISE OKL_API.G_EXCEPTION_ERROR;
7761: END IF;
7762: END IF;
7755: p_cle_id => r_clev_rec.cle_id,
7756: p_clev_rec => r_clev_rec);
7757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7760: RAISE OKL_API.G_EXCEPTION_ERROR;
7761: END IF;
7762: END IF;
7763: -- Now the all the records are there we can create Instance Line
7756: p_clev_rec => r_clev_rec);
7757: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7758: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7759: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7760: RAISE OKL_API.G_EXCEPTION_ERROR;
7761: END IF;
7762: END IF;
7763: -- Now the all the records are there we can create Instance Line
7764: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
7769: p_clev_rec => r_clev_rec,
7770: p_klev_rec => p_klev_rec,
7771: x_clev_rec => x_clev_rec,
7772: x_klev_rec => x_klev_rec);
7773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7774: OKL_API.set_message(p_app_name => G_APP_NAME,
7775: p_msg_name => G_CREATION_IB_LINE);
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7770: p_klev_rec => p_klev_rec,
7771: x_clev_rec => x_clev_rec,
7772: x_klev_rec => x_klev_rec);
7773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7774: OKL_API.set_message(p_app_name => G_APP_NAME,
7775: p_msg_name => G_CREATION_IB_LINE);
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: OKL_API.set_message(p_app_name => G_APP_NAME,
7772: x_klev_rec => x_klev_rec);
7773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7774: OKL_API.set_message(p_app_name => G_APP_NAME,
7775: p_msg_name => G_CREATION_IB_LINE);
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: OKL_API.set_message(p_app_name => G_APP_NAME,
7779: p_msg_name => G_CREATION_IB_LINE);
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7774: OKL_API.set_message(p_app_name => G_APP_NAME,
7775: p_msg_name => G_CREATION_IB_LINE);
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: OKL_API.set_message(p_app_name => G_APP_NAME,
7779: p_msg_name => G_CREATION_IB_LINE);
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF;
7774: OKL_API.set_message(p_app_name => G_APP_NAME,
7775: p_msg_name => G_CREATION_IB_LINE);
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: OKL_API.set_message(p_app_name => G_APP_NAME,
7779: p_msg_name => G_CREATION_IB_LINE);
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF;
7782: l_cimv_rec := p_cimv_rec;
7776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7778: OKL_API.set_message(p_app_name => G_APP_NAME,
7779: p_msg_name => G_CREATION_IB_LINE);
7780: RAISE OKL_API.G_EXCEPTION_ERROR;
7781: END IF;
7782: l_cimv_rec := p_cimv_rec;
7783: l_cimv_rec.cle_id := x_clev_rec.id;
7784: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
7784: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
7785: l_cimv_rec.JTOT_OBJECT1_CODE := 'OKX_IB_ITEM';
7786: l_cimv_rec.exception_yn := 'N';
7787: IF (l_cimv_rec.object1_id1 IS NULL OR
7788: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
7789: (l_cimv_rec.object1_id2 IS NULL OR
7790: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
7791: -- We have create the item rec,tal rec,trx rec and also create the iti rec
7792: -- Creation of Item Record for the above record information
7786: l_cimv_rec.exception_yn := 'N';
7787: IF (l_cimv_rec.object1_id1 IS NULL OR
7788: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
7789: (l_cimv_rec.object1_id2 IS NULL OR
7790: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
7791: -- We have create the item rec,tal rec,trx rec and also create the iti rec
7792: -- Creation of Item Record for the above record information
7793: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7794: p_init_msg_list => p_init_msg_list,
7796: x_msg_count => x_msg_count,
7797: x_msg_data => x_msg_data,
7798: p_cimv_rec => l_cimv_rec,
7799: x_cimv_rec => x_cimv_rec);
7800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7801: OKL_API.set_message(p_app_name => G_APP_NAME,
7802: p_msg_name => G_CREATION_IB_ITEM);
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7797: x_msg_data => x_msg_data,
7798: p_cimv_rec => l_cimv_rec,
7799: x_cimv_rec => x_cimv_rec);
7800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7801: OKL_API.set_message(p_app_name => G_APP_NAME,
7802: p_msg_name => G_CREATION_IB_ITEM);
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7805: OKL_API.set_message(p_app_name => G_APP_NAME,
7799: x_cimv_rec => x_cimv_rec);
7800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7801: OKL_API.set_message(p_app_name => G_APP_NAME,
7802: p_msg_name => G_CREATION_IB_ITEM);
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7805: OKL_API.set_message(p_app_name => G_APP_NAME,
7806: p_msg_name => G_CREATION_IB_ITEM);
7807: RAISE OKL_API.G_EXCEPTION_ERROR;
7800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7801: OKL_API.set_message(p_app_name => G_APP_NAME,
7802: p_msg_name => G_CREATION_IB_ITEM);
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7805: OKL_API.set_message(p_app_name => G_APP_NAME,
7806: p_msg_name => G_CREATION_IB_ITEM);
7807: RAISE OKL_API.G_EXCEPTION_ERROR;
7808: END IF;
7801: OKL_API.set_message(p_app_name => G_APP_NAME,
7802: p_msg_name => G_CREATION_IB_ITEM);
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7805: OKL_API.set_message(p_app_name => G_APP_NAME,
7806: p_msg_name => G_CREATION_IB_ITEM);
7807: RAISE OKL_API.G_EXCEPTION_ERROR;
7808: END IF;
7809: -- Rest of the record Creation will Follow
7803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7804: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7805: OKL_API.set_message(p_app_name => G_APP_NAME,
7806: p_msg_name => G_CREATION_IB_ITEM);
7807: RAISE OKL_API.G_EXCEPTION_ERROR;
7808: END IF;
7809: -- Rest of the record Creation will Follow
7810: -- We need to know if the kle_id is already there or not
7811: -- ideally it should be null since it is a new record
7809: -- Rest of the record Creation will Follow
7810: -- We need to know if the kle_id is already there or not
7811: -- ideally it should be null since it is a new record
7812: IF (x_klev_rec.id IS NOT NULL OR
7813: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7814: lv_dummy := null;
7815: END IF;
7816: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7817: lv_dummy IS NUll) THEN
7812: IF (x_klev_rec.id IS NOT NULL OR
7813: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7814: lv_dummy := null;
7815: END IF;
7816: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7817: lv_dummy IS NUll) THEN
7818: l_itiv_rec := p_itiv_rec;
7819: -- To the Item Info from model Line
7820: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7819: -- To the Item Info from model Line
7820: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7821: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7822: x_cimv_rec => r_cimv_rec);
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: OKL_API.set_message(p_app_name => G_APP_NAME,
7825: p_msg_name => G_FETCHING_INFO,
7826: p_token1 => G_REC_NAME_TOKEN,
7827: p_token1_value => 'OKC_K_ITEMS_V Record');
7820: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7821: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7822: x_cimv_rec => r_cimv_rec);
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: OKL_API.set_message(p_app_name => G_APP_NAME,
7825: p_msg_name => G_FETCHING_INFO,
7826: p_token1 => G_REC_NAME_TOKEN,
7827: p_token1_value => 'OKC_K_ITEMS_V Record');
7828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7824: OKL_API.set_message(p_app_name => G_APP_NAME,
7825: p_msg_name => G_FETCHING_INFO,
7826: p_token1 => G_REC_NAME_TOKEN,
7827: p_token1_value => 'OKC_K_ITEMS_V Record');
7828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7830: OKL_API.set_message(p_app_name => G_APP_NAME,
7831: p_msg_name => G_FETCHING_INFO,
7832: p_token1 => G_REC_NAME_TOKEN,
7825: p_msg_name => G_FETCHING_INFO,
7826: p_token1 => G_REC_NAME_TOKEN,
7827: p_token1_value => 'OKC_K_ITEMS_V Record');
7828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7830: OKL_API.set_message(p_app_name => G_APP_NAME,
7831: p_msg_name => G_FETCHING_INFO,
7832: p_token1 => G_REC_NAME_TOKEN,
7833: p_token1_value => 'OKC_K_ITEMS_V Record');
7826: p_token1 => G_REC_NAME_TOKEN,
7827: p_token1_value => 'OKC_K_ITEMS_V Record');
7828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7830: OKL_API.set_message(p_app_name => G_APP_NAME,
7831: p_msg_name => G_FETCHING_INFO,
7832: p_token1 => G_REC_NAME_TOKEN,
7833: p_token1_value => 'OKC_K_ITEMS_V Record');
7834: RAISE OKL_API.G_EXCEPTION_ERROR;
7830: OKL_API.set_message(p_app_name => G_APP_NAME,
7831: p_msg_name => G_FETCHING_INFO,
7832: p_token1 => G_REC_NAME_TOKEN,
7833: p_token1_value => 'OKC_K_ITEMS_V Record');
7834: RAISE OKL_API.G_EXCEPTION_ERROR;
7835: END IF;
7836: -- Creating iti record
7837: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7838: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7836: -- Creating iti record
7837: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7838: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7839: IF (l_itiv_rec.line_number IS NULL OR
7840: l_itiv_rec.line_number = OKL_API.G_MISS_NUM) THEN
7841: l_itiv_rec.line_number := 1;
7842: END IF;
7843: l_itiv_rec.kle_id := x_klev_rec.id;
7844: l_itiv_rec.jtot_object_code_new := 'OKX_PARTSITE';
7850: x_msg_data => x_msg_data,
7851: p_itiv_rec => l_itiv_rec,
7852: x_trxv_rec => x_trxv_rec,
7853: x_itiv_rec => x_itiv_rec);
7854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7855: OKL_API.set_message(p_app_name => G_APP_NAME,
7856: p_msg_name => G_ITI_ID);
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7851: p_itiv_rec => l_itiv_rec,
7852: x_trxv_rec => x_trxv_rec,
7853: x_itiv_rec => x_itiv_rec);
7854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7855: OKL_API.set_message(p_app_name => G_APP_NAME,
7856: p_msg_name => G_ITI_ID);
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7859: OKL_API.set_message(p_app_name => G_APP_NAME,
7853: x_itiv_rec => x_itiv_rec);
7854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7855: OKL_API.set_message(p_app_name => G_APP_NAME,
7856: p_msg_name => G_ITI_ID);
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7859: OKL_API.set_message(p_app_name => G_APP_NAME,
7860: p_msg_name => G_ITI_ID);
7861: RAISE OKL_API.G_EXCEPTION_ERROR;
7854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7855: OKL_API.set_message(p_app_name => G_APP_NAME,
7856: p_msg_name => G_ITI_ID);
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7859: OKL_API.set_message(p_app_name => G_APP_NAME,
7860: p_msg_name => G_ITI_ID);
7861: RAISE OKL_API.G_EXCEPTION_ERROR;
7862: END IF;
7855: OKL_API.set_message(p_app_name => G_APP_NAME,
7856: p_msg_name => G_ITI_ID);
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7859: OKL_API.set_message(p_app_name => G_APP_NAME,
7860: p_msg_name => G_ITI_ID);
7861: RAISE OKL_API.G_EXCEPTION_ERROR;
7862: END IF;
7863: ELSE
7857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7859: OKL_API.set_message(p_app_name => G_APP_NAME,
7860: p_msg_name => G_ITI_ID);
7861: RAISE OKL_API.G_EXCEPTION_ERROR;
7862: END IF;
7863: ELSE
7864: OKL_API.set_message(p_app_name => G_APP_NAME,
7865: p_msg_name => G_ITI_ID);
7860: p_msg_name => G_ITI_ID);
7861: RAISE OKL_API.G_EXCEPTION_ERROR;
7862: END IF;
7863: ELSE
7864: OKL_API.set_message(p_app_name => G_APP_NAME,
7865: p_msg_name => G_ITI_ID);
7866: RAISE OKL_API.G_EXCEPTION_ERROR;
7867: END IF;
7868: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7862: END IF;
7863: ELSE
7864: OKL_API.set_message(p_app_name => G_APP_NAME,
7865: p_msg_name => G_ITI_ID);
7866: RAISE OKL_API.G_EXCEPTION_ERROR;
7867: END IF;
7868: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7869: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7870: (l_cimv_rec.object1_id2 IS NOT NULL OR
7865: p_msg_name => G_ITI_ID);
7866: RAISE OKL_API.G_EXCEPTION_ERROR;
7867: END IF;
7868: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7869: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7870: (l_cimv_rec.object1_id2 IS NOT NULL OR
7871: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR)THEN
7872: -- Creation of Item Record for the above record information
7873: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7867: END IF;
7868: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7869: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7870: (l_cimv_rec.object1_id2 IS NOT NULL OR
7871: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR)THEN
7872: -- Creation of Item Record for the above record information
7873: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7874: p_init_msg_list => p_init_msg_list,
7875: x_return_status => x_return_status,
7876: x_msg_count => x_msg_count,
7877: x_msg_data => x_msg_data,
7878: p_cimv_rec => l_cimv_rec,
7879: x_cimv_rec => x_cimv_rec);
7880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7881: OKL_API.set_message(p_app_name => G_APP_NAME,
7882: p_msg_name => G_CREATION_IB_ITEM);
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7877: x_msg_data => x_msg_data,
7878: p_cimv_rec => l_cimv_rec,
7879: x_cimv_rec => x_cimv_rec);
7880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7881: OKL_API.set_message(p_app_name => G_APP_NAME,
7882: p_msg_name => G_CREATION_IB_ITEM);
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7885: OKL_API.set_message(p_app_name => G_APP_NAME,
7879: x_cimv_rec => x_cimv_rec);
7880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7881: OKL_API.set_message(p_app_name => G_APP_NAME,
7882: p_msg_name => G_CREATION_IB_ITEM);
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7885: OKL_API.set_message(p_app_name => G_APP_NAME,
7886: p_msg_name => G_CREATION_IB_ITEM);
7887: RAISE OKL_API.G_EXCEPTION_ERROR;
7880: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7881: OKL_API.set_message(p_app_name => G_APP_NAME,
7882: p_msg_name => G_CREATION_IB_ITEM);
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7885: OKL_API.set_message(p_app_name => G_APP_NAME,
7886: p_msg_name => G_CREATION_IB_ITEM);
7887: RAISE OKL_API.G_EXCEPTION_ERROR;
7888: END IF;
7881: OKL_API.set_message(p_app_name => G_APP_NAME,
7882: p_msg_name => G_CREATION_IB_ITEM);
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7885: OKL_API.set_message(p_app_name => G_APP_NAME,
7886: p_msg_name => G_CREATION_IB_ITEM);
7887: RAISE OKL_API.G_EXCEPTION_ERROR;
7888: END IF;
7889: -- Rest of the record Creation will Follow
7883: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7884: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7885: OKL_API.set_message(p_app_name => G_APP_NAME,
7886: p_msg_name => G_CREATION_IB_ITEM);
7887: RAISE OKL_API.G_EXCEPTION_ERROR;
7888: END IF;
7889: -- Rest of the record Creation will Follow
7890: -- We need to know if the kle_id is already there or not
7891: -- ideally it should be null since it is a new record
7889: -- Rest of the record Creation will Follow
7890: -- We need to know if the kle_id is already there or not
7891: -- ideally it should be null since it is a new record
7892: IF (x_klev_rec.id IS NOT NULL OR
7893: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7894: lv_dummy := null;
7895: END IF;
7896: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7897: lv_dummy IS NUll) THEN
7892: IF (x_klev_rec.id IS NOT NULL OR
7893: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7894: lv_dummy := null;
7895: END IF;
7896: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7897: lv_dummy IS NUll) THEN
7898: l_itiv_rec := p_itiv_rec;
7899: -- To the Item Info from model Line
7900: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7899: -- To the Item Info from model Line
7900: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7901: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7902: x_cimv_rec => r_cimv_rec);
7903: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7904: OKL_API.set_message(p_app_name => G_APP_NAME,
7905: p_msg_name => G_FETCHING_INFO,
7906: p_token1 => G_REC_NAME_TOKEN,
7907: p_token1_value => 'OKC_K_ITEMS_V Record');
7900: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7901: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7902: x_cimv_rec => r_cimv_rec);
7903: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7904: OKL_API.set_message(p_app_name => G_APP_NAME,
7905: p_msg_name => G_FETCHING_INFO,
7906: p_token1 => G_REC_NAME_TOKEN,
7907: p_token1_value => 'OKC_K_ITEMS_V Record');
7908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7904: OKL_API.set_message(p_app_name => G_APP_NAME,
7905: p_msg_name => G_FETCHING_INFO,
7906: p_token1 => G_REC_NAME_TOKEN,
7907: p_token1_value => 'OKC_K_ITEMS_V Record');
7908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7910: OKL_API.set_message(p_app_name => G_APP_NAME,
7911: p_msg_name => G_FETCHING_INFO,
7912: p_token1 => G_REC_NAME_TOKEN,
7905: p_msg_name => G_FETCHING_INFO,
7906: p_token1 => G_REC_NAME_TOKEN,
7907: p_token1_value => 'OKC_K_ITEMS_V Record');
7908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7910: OKL_API.set_message(p_app_name => G_APP_NAME,
7911: p_msg_name => G_FETCHING_INFO,
7912: p_token1 => G_REC_NAME_TOKEN,
7913: p_token1_value => 'OKC_K_ITEMS_V Record');
7906: p_token1 => G_REC_NAME_TOKEN,
7907: p_token1_value => 'OKC_K_ITEMS_V Record');
7908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7910: OKL_API.set_message(p_app_name => G_APP_NAME,
7911: p_msg_name => G_FETCHING_INFO,
7912: p_token1 => G_REC_NAME_TOKEN,
7913: p_token1_value => 'OKC_K_ITEMS_V Record');
7914: RAISE OKL_API.G_EXCEPTION_ERROR;
7910: OKL_API.set_message(p_app_name => G_APP_NAME,
7911: p_msg_name => G_FETCHING_INFO,
7912: p_token1 => G_REC_NAME_TOKEN,
7913: p_token1_value => 'OKC_K_ITEMS_V Record');
7914: RAISE OKL_API.G_EXCEPTION_ERROR;
7915: END IF;
7916: -- Creating iti record
7917: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7918: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7916: -- Creating iti record
7917: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7918: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7919: IF (l_itiv_rec.line_number IS NULL OR
7920: l_itiv_rec.line_number = OKL_API.G_MISS_NUM) THEN
7921: l_itiv_rec.line_number := 1;
7922: END IF;
7923: l_itiv_rec.kle_id := x_klev_rec.id;
7924: l_itiv_rec.jtot_object_code_new := 'OKX_PARTSITE';
7930: x_msg_data => x_msg_data,
7931: p_itiv_rec => l_itiv_rec,
7932: x_trxv_rec => x_trxv_rec,
7933: x_itiv_rec => x_itiv_rec);
7934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7935: OKL_API.set_message(p_app_name => G_APP_NAME,
7936: p_msg_name => G_ITI_ID);
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7931: p_itiv_rec => l_itiv_rec,
7932: x_trxv_rec => x_trxv_rec,
7933: x_itiv_rec => x_itiv_rec);
7934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7935: OKL_API.set_message(p_app_name => G_APP_NAME,
7936: p_msg_name => G_ITI_ID);
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7939: OKL_API.set_message(p_app_name => G_APP_NAME,
7933: x_itiv_rec => x_itiv_rec);
7934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7935: OKL_API.set_message(p_app_name => G_APP_NAME,
7936: p_msg_name => G_ITI_ID);
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7939: OKL_API.set_message(p_app_name => G_APP_NAME,
7940: p_msg_name => G_ITI_ID);
7941: RAISE OKL_API.G_EXCEPTION_ERROR;
7934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7935: OKL_API.set_message(p_app_name => G_APP_NAME,
7936: p_msg_name => G_ITI_ID);
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7939: OKL_API.set_message(p_app_name => G_APP_NAME,
7940: p_msg_name => G_ITI_ID);
7941: RAISE OKL_API.G_EXCEPTION_ERROR;
7942: END IF;
7935: OKL_API.set_message(p_app_name => G_APP_NAME,
7936: p_msg_name => G_ITI_ID);
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7939: OKL_API.set_message(p_app_name => G_APP_NAME,
7940: p_msg_name => G_ITI_ID);
7941: RAISE OKL_API.G_EXCEPTION_ERROR;
7942: END IF;
7943: ELSE
7937: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7939: OKL_API.set_message(p_app_name => G_APP_NAME,
7940: p_msg_name => G_ITI_ID);
7941: RAISE OKL_API.G_EXCEPTION_ERROR;
7942: END IF;
7943: ELSE
7944: OKL_API.set_message(p_app_name => G_APP_NAME,
7945: p_msg_name => G_ITI_ID);
7940: p_msg_name => G_ITI_ID);
7941: RAISE OKL_API.G_EXCEPTION_ERROR;
7942: END IF;
7943: ELSE
7944: OKL_API.set_message(p_app_name => G_APP_NAME,
7945: p_msg_name => G_ITI_ID);
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948: ELSE
7942: END IF;
7943: ELSE
7944: OKL_API.set_message(p_app_name => G_APP_NAME,
7945: p_msg_name => G_ITI_ID);
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948: ELSE
7949: OKL_API.set_message(p_app_name => G_APP_NAME,
7950: p_msg_name => G_ITEM_RECORD);
7945: p_msg_name => G_ITI_ID);
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948: ELSE
7949: OKL_API.set_message(p_app_name => G_APP_NAME,
7950: p_msg_name => G_ITEM_RECORD);
7951: x_return_status := OKL_API.G_RET_STS_ERROR;
7952: RAISE OKL_API.G_EXCEPTION_ERROR;
7953: END IF;
7947: END IF;
7948: ELSE
7949: OKL_API.set_message(p_app_name => G_APP_NAME,
7950: p_msg_name => G_ITEM_RECORD);
7951: x_return_status := OKL_API.G_RET_STS_ERROR;
7952: RAISE OKL_API.G_EXCEPTION_ERROR;
7953: END IF;
7954: -- #4414408
7955: -- ELSE
7948: ELSE
7949: OKL_API.set_message(p_app_name => G_APP_NAME,
7950: p_msg_name => G_ITEM_RECORD);
7951: x_return_status := OKL_API.G_RET_STS_ERROR;
7952: RAISE OKL_API.G_EXCEPTION_ERROR;
7953: END IF;
7954: -- #4414408
7955: -- ELSE
7956: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7952: RAISE OKL_API.G_EXCEPTION_ERROR;
7953: END IF;
7954: -- #4414408
7955: -- ELSE
7956: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7957: -- p_msg_name => G_LINE_STYLE);
7958: -- x_return_status := OKL_API.G_RET_STS_ERROR;
7959: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7960: -- END IF;
7954: -- #4414408
7955: -- ELSE
7956: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7957: -- p_msg_name => G_LINE_STYLE);
7958: -- x_return_status := OKL_API.G_RET_STS_ERROR;
7959: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7960: -- END IF;
7961: OKL_API.END_ACTIVITY (x_msg_count,
7962: x_msg_data );
7955: -- ELSE
7956: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7957: -- p_msg_name => G_LINE_STYLE);
7958: -- x_return_status := OKL_API.G_RET_STS_ERROR;
7959: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7960: -- END IF;
7961: OKL_API.END_ACTIVITY (x_msg_count,
7962: x_msg_data );
7963: EXCEPTION
7957: -- p_msg_name => G_LINE_STYLE);
7958: -- x_return_status := OKL_API.G_RET_STS_ERROR;
7959: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7960: -- END IF;
7961: OKL_API.END_ACTIVITY (x_msg_count,
7962: x_msg_data );
7963: EXCEPTION
7964: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7965: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7960: -- END IF;
7961: OKL_API.END_ACTIVITY (x_msg_count,
7962: x_msg_data );
7963: EXCEPTION
7964: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7965: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7966: l_api_name,
7967: G_PKG_NAME,
7968: 'OKL_API.G_RET_STS_ERROR',
7961: OKL_API.END_ACTIVITY (x_msg_count,
7962: x_msg_data );
7963: EXCEPTION
7964: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7965: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7966: l_api_name,
7967: G_PKG_NAME,
7968: 'OKL_API.G_RET_STS_ERROR',
7969: x_msg_count,
7964: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7965: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7966: l_api_name,
7967: G_PKG_NAME,
7968: 'OKL_API.G_RET_STS_ERROR',
7969: x_msg_count,
7970: x_msg_data,
7971: '_PVT');
7972: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7968: 'OKL_API.G_RET_STS_ERROR',
7969: x_msg_count,
7970: x_msg_data,
7971: '_PVT');
7972: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7973: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7974: l_api_name,
7975: G_PKG_NAME,
7976: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7969: x_msg_count,
7970: x_msg_data,
7971: '_PVT');
7972: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7973: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7974: l_api_name,
7975: G_PKG_NAME,
7976: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7977: x_msg_count,
7972: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7973: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7974: l_api_name,
7975: G_PKG_NAME,
7976: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7977: x_msg_count,
7978: x_msg_data,
7979: '_PVT');
7980: WHEN OTHERS THEN
7977: x_msg_count,
7978: x_msg_data,
7979: '_PVT');
7980: WHEN OTHERS THEN
7981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7982: l_api_name,
7983: G_PKG_NAME,
7984: 'OTHERS',
7985: x_msg_count,
7987: '_PVT');
7988: END Create_installed_base_line;
7989: ---34----------------------------------------------------------------------------------------------
7990: PROCEDURE update_installed_base_line(p_api_version IN NUMBER,
7991: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7992: x_return_status OUT NOCOPY VARCHAR2,
7993: x_msg_count OUT NOCOPY NUMBER,
7994: x_msg_data OUT NOCOPY VARCHAR2,
7995: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
8006: l_cimv_rec cimv_rec_type;
8007: l_itiv_rec itiv_rec_type;
8008: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
8009: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
8010: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
8011: i NUMBER := 0;
8012: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_IB_LINE';
8013: BEGIN
8014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8010: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
8011: i NUMBER := 0;
8012: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_IB_LINE';
8013: BEGIN
8014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8015: -- Call start_activity to create savepoint, check compatibility
8016: -- and initialize message list
8017: x_return_status := OKL_API.START_ACTIVITY (
8018: l_api_name
8013: BEGIN
8014: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8015: -- Call start_activity to create savepoint, check compatibility
8016: -- and initialize message list
8017: x_return_status := OKL_API.START_ACTIVITY (
8018: l_api_name
8019: ,p_init_msg_list
8020: ,'_PVT'
8021: ,x_return_status);
8019: ,p_init_msg_list
8020: ,'_PVT'
8021: ,x_return_status);
8022: -- Check if activity started successfully
8023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8026: RAISE OKL_API.G_EXCEPTION_ERROR;
8027: END IF;
8020: ,'_PVT'
8021: ,x_return_status);
8022: -- Check if activity started successfully
8023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8026: RAISE OKL_API.G_EXCEPTION_ERROR;
8027: END IF;
8028: -- Check the cle_id that is of the top Fin Asset line
8021: ,x_return_status);
8022: -- Check if activity started successfully
8023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8026: RAISE OKL_API.G_EXCEPTION_ERROR;
8027: END IF;
8028: -- Check the cle_id that is of the top Fin Asset line
8029: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8022: -- Check if activity started successfully
8023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8026: RAISE OKL_API.G_EXCEPTION_ERROR;
8027: END IF;
8028: -- Check the cle_id that is of the top Fin Asset line
8029: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8030: p_lty_code => p_lty_code,
8029: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8030: p_lty_code => p_lty_code,
8031: x_lty_code => l_lty_code,
8032: x_return_status => x_return_status);
8033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8036: RAISE OKL_API.G_EXCEPTION_ERROR;
8037: END IF;
8030: p_lty_code => p_lty_code,
8031: x_lty_code => l_lty_code,
8032: x_return_status => x_return_status);
8033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8036: RAISE OKL_API.G_EXCEPTION_ERROR;
8037: END IF;
8038: -- since IB Line is a sub line of instance line we have to check weather
8031: x_lty_code => l_lty_code,
8032: x_return_status => x_return_status);
8033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8036: RAISE OKL_API.G_EXCEPTION_ERROR;
8037: END IF;
8038: -- since IB Line is a sub line of instance line we have to check weather
8039: -- which line are creating under which line
8032: x_return_status => x_return_status);
8033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8036: RAISE OKL_API.G_EXCEPTION_ERROR;
8037: END IF;
8038: -- since IB Line is a sub line of instance line we have to check weather
8039: -- which line are creating under which line
8040: IF l_lty_code = G_INST_LINE_LTY_CODE THEN
8047: p_clev_rec => p_clev_rec,
8048: p_klev_rec => p_klev_rec,
8049: x_clev_rec => x_clev_rec,
8050: x_klev_rec => x_klev_rec);
8051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8052: OKL_API.set_message(p_app_name => G_APP_NAME,
8053: p_msg_name => G_UPDATING_IB_LINE);
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8048: p_klev_rec => p_klev_rec,
8049: x_clev_rec => x_clev_rec,
8050: x_klev_rec => x_klev_rec);
8051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8052: OKL_API.set_message(p_app_name => G_APP_NAME,
8053: p_msg_name => G_UPDATING_IB_LINE);
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8056: OKL_API.set_message(p_app_name => G_APP_NAME,
8050: x_klev_rec => x_klev_rec);
8051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8052: OKL_API.set_message(p_app_name => G_APP_NAME,
8053: p_msg_name => G_UPDATING_IB_LINE);
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8056: OKL_API.set_message(p_app_name => G_APP_NAME,
8057: p_msg_name => G_UPDATING_IB_LINE);
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8052: OKL_API.set_message(p_app_name => G_APP_NAME,
8053: p_msg_name => G_UPDATING_IB_LINE);
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8056: OKL_API.set_message(p_app_name => G_APP_NAME,
8057: p_msg_name => G_UPDATING_IB_LINE);
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8052: OKL_API.set_message(p_app_name => G_APP_NAME,
8053: p_msg_name => G_UPDATING_IB_LINE);
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8056: OKL_API.set_message(p_app_name => G_APP_NAME,
8057: p_msg_name => G_UPDATING_IB_LINE);
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: l_cimv_rec := p_cimv_rec;
8054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8056: OKL_API.set_message(p_app_name => G_APP_NAME,
8057: p_msg_name => G_UPDATING_IB_LINE);
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: l_cimv_rec := p_cimv_rec;
8061: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8062: OKL_API.set_message(p_app_name => G_APP_NAME,
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: l_cimv_rec := p_cimv_rec;
8061: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8062: OKL_API.set_message(p_app_name => G_APP_NAME,
8063: p_msg_name => G_ITEM_RECORD);
8064: RAISE OKL_API.G_EXCEPTION_ERROR;
8065: END IF;
8066: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8060: l_cimv_rec := p_cimv_rec;
8061: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8062: OKL_API.set_message(p_app_name => G_APP_NAME,
8063: p_msg_name => G_ITEM_RECORD);
8064: RAISE OKL_API.G_EXCEPTION_ERROR;
8065: END IF;
8066: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8067: OKL_API.set_message(p_app_name => G_APP_NAME,
8068: p_msg_name => G_ITEM_RECORD);
8063: p_msg_name => G_ITEM_RECORD);
8064: RAISE OKL_API.G_EXCEPTION_ERROR;
8065: END IF;
8066: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8067: OKL_API.set_message(p_app_name => G_APP_NAME,
8068: p_msg_name => G_ITEM_RECORD);
8069: RAISE OKL_API.G_EXCEPTION_ERROR;
8070: END IF;
8071: IF (l_cimv_rec.object1_id1 IS NULL OR
8065: END IF;
8066: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8067: OKL_API.set_message(p_app_name => G_APP_NAME,
8068: p_msg_name => G_ITEM_RECORD);
8069: RAISE OKL_API.G_EXCEPTION_ERROR;
8070: END IF;
8071: IF (l_cimv_rec.object1_id1 IS NULL OR
8072: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8073: (l_cimv_rec.object1_id2 IS NULL OR
8068: p_msg_name => G_ITEM_RECORD);
8069: RAISE OKL_API.G_EXCEPTION_ERROR;
8070: END IF;
8071: IF (l_cimv_rec.object1_id1 IS NULL OR
8072: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8073: (l_cimv_rec.object1_id2 IS NULL OR
8074: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
8075: -- We have create the item rec,tal rec,trx rec and also create the iti rec
8076: -- Creation of Item Record for the above record information
8070: END IF;
8071: IF (l_cimv_rec.object1_id1 IS NULL OR
8072: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8073: (l_cimv_rec.object1_id2 IS NULL OR
8074: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
8075: -- We have create the item rec,tal rec,trx rec and also create the iti rec
8076: -- Creation of Item Record for the above record information
8077: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8078: p_init_msg_list => p_init_msg_list,
8080: x_msg_count => x_msg_count,
8081: x_msg_data => x_msg_data,
8082: p_cimv_rec => l_cimv_rec,
8083: x_cimv_rec => x_cimv_rec);
8084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8085: OKL_API.set_message(p_app_name => G_APP_NAME,
8086: p_msg_name => G_UPDATING_IB_ITEM);
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8081: x_msg_data => x_msg_data,
8082: p_cimv_rec => l_cimv_rec,
8083: x_cimv_rec => x_cimv_rec);
8084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8085: OKL_API.set_message(p_app_name => G_APP_NAME,
8086: p_msg_name => G_UPDATING_IB_ITEM);
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: OKL_API.set_message(p_app_name => G_APP_NAME,
8083: x_cimv_rec => x_cimv_rec);
8084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8085: OKL_API.set_message(p_app_name => G_APP_NAME,
8086: p_msg_name => G_UPDATING_IB_ITEM);
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: OKL_API.set_message(p_app_name => G_APP_NAME,
8090: p_msg_name => G_UPDATING_IB_ITEM);
8091: RAISE OKL_API.G_EXCEPTION_ERROR;
8084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8085: OKL_API.set_message(p_app_name => G_APP_NAME,
8086: p_msg_name => G_UPDATING_IB_ITEM);
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: OKL_API.set_message(p_app_name => G_APP_NAME,
8090: p_msg_name => G_UPDATING_IB_ITEM);
8091: RAISE OKL_API.G_EXCEPTION_ERROR;
8092: END IF;
8085: OKL_API.set_message(p_app_name => G_APP_NAME,
8086: p_msg_name => G_UPDATING_IB_ITEM);
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: OKL_API.set_message(p_app_name => G_APP_NAME,
8090: p_msg_name => G_UPDATING_IB_ITEM);
8091: RAISE OKL_API.G_EXCEPTION_ERROR;
8092: END IF;
8093: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: OKL_API.set_message(p_app_name => G_APP_NAME,
8090: p_msg_name => G_UPDATING_IB_ITEM);
8091: RAISE OKL_API.G_EXCEPTION_ERROR;
8092: END IF;
8093: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8094: x_record_exists => lv_dummy,
8095: x_return_status => x_return_status);
8092: END IF;
8093: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8094: x_record_exists => lv_dummy,
8095: x_return_status => x_return_status);
8096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_ITI_ID);
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8093: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8094: x_record_exists => lv_dummy,
8095: x_return_status => x_return_status);
8096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_ITI_ID);
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: OKL_API.set_message(p_app_name => G_APP_NAME,
8095: x_return_status => x_return_status);
8096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_ITI_ID);
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: OKL_API.set_message(p_app_name => G_APP_NAME,
8102: p_msg_name => G_ITI_ID);
8103: RAISE OKL_API.G_EXCEPTION_ERROR;
8096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_ITI_ID);
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: OKL_API.set_message(p_app_name => G_APP_NAME,
8102: p_msg_name => G_ITI_ID);
8103: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: END IF;
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_ITI_ID);
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: OKL_API.set_message(p_app_name => G_APP_NAME,
8102: p_msg_name => G_ITI_ID);
8103: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: END IF;
8105: IF (lv_dummy IS NOT NUll OR
8099: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8100: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8101: OKL_API.set_message(p_app_name => G_APP_NAME,
8102: p_msg_name => G_ITI_ID);
8103: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: END IF;
8105: IF (lv_dummy IS NOT NUll OR
8106: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8107: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8102: p_msg_name => G_ITI_ID);
8103: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: END IF;
8105: IF (lv_dummy IS NOT NUll OR
8106: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8107: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITI_ID);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8104: END IF;
8105: IF (lv_dummy IS NOT NUll OR
8106: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8107: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITI_ID);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8111: END IF;
8112: update_txl_itm_insts(p_api_version => p_api_version,
8106: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8107: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITI_ID);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8111: END IF;
8112: update_txl_itm_insts(p_api_version => p_api_version,
8113: p_init_msg_list => p_init_msg_list,
8114: x_return_status => x_return_status,
8115: x_msg_count => x_msg_count,
8116: x_msg_data => x_msg_data,
8117: p_itiv_rec => p_itiv_rec,
8118: x_itiv_rec => x_itiv_rec);
8119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8120: OKL_API.set_message(p_app_name => G_APP_NAME,
8121: p_msg_name => G_ITI_ID);
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8116: x_msg_data => x_msg_data,
8117: p_itiv_rec => p_itiv_rec,
8118: x_itiv_rec => x_itiv_rec);
8119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8120: OKL_API.set_message(p_app_name => G_APP_NAME,
8121: p_msg_name => G_ITI_ID);
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: OKL_API.set_message(p_app_name => G_APP_NAME,
8118: x_itiv_rec => x_itiv_rec);
8119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8120: OKL_API.set_message(p_app_name => G_APP_NAME,
8121: p_msg_name => G_ITI_ID);
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: OKL_API.set_message(p_app_name => G_APP_NAME,
8125: p_msg_name => G_ITI_ID);
8126: RAISE OKL_API.G_EXCEPTION_ERROR;
8119: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8120: OKL_API.set_message(p_app_name => G_APP_NAME,
8121: p_msg_name => G_ITI_ID);
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: OKL_API.set_message(p_app_name => G_APP_NAME,
8125: p_msg_name => G_ITI_ID);
8126: RAISE OKL_API.G_EXCEPTION_ERROR;
8127: END IF;
8120: OKL_API.set_message(p_app_name => G_APP_NAME,
8121: p_msg_name => G_ITI_ID);
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: OKL_API.set_message(p_app_name => G_APP_NAME,
8125: p_msg_name => G_ITI_ID);
8126: RAISE OKL_API.G_EXCEPTION_ERROR;
8127: END IF;
8128: ELSE
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: OKL_API.set_message(p_app_name => G_APP_NAME,
8125: p_msg_name => G_ITI_ID);
8126: RAISE OKL_API.G_EXCEPTION_ERROR;
8127: END IF;
8128: ELSE
8129: OKL_API.set_message(p_app_name => G_APP_NAME,
8130: p_msg_name => G_ITI_ID);
8125: p_msg_name => G_ITI_ID);
8126: RAISE OKL_API.G_EXCEPTION_ERROR;
8127: END IF;
8128: ELSE
8129: OKL_API.set_message(p_app_name => G_APP_NAME,
8130: p_msg_name => G_ITI_ID);
8131: RAISE OKL_API.G_EXCEPTION_ERROR;
8132: END IF;
8133: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8127: END IF;
8128: ELSE
8129: OKL_API.set_message(p_app_name => G_APP_NAME,
8130: p_msg_name => G_ITI_ID);
8131: RAISE OKL_API.G_EXCEPTION_ERROR;
8132: END IF;
8133: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8134: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8135: (l_cimv_rec.object1_id2 IS NOT NULL OR
8130: p_msg_name => G_ITI_ID);
8131: RAISE OKL_API.G_EXCEPTION_ERROR;
8132: END IF;
8133: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8134: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8135: (l_cimv_rec.object1_id2 IS NOT NULL OR
8136: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR) THEN
8137: -- Creation of Item Record for the above record information
8138: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8132: END IF;
8133: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8134: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8135: (l_cimv_rec.object1_id2 IS NOT NULL OR
8136: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR) THEN
8137: -- Creation of Item Record for the above record information
8138: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8139: p_init_msg_list => p_init_msg_list,
8140: x_return_status => x_return_status,
8141: x_msg_count => x_msg_count,
8142: x_msg_data => x_msg_data,
8143: p_cimv_rec => l_cimv_rec,
8144: x_cimv_rec => x_cimv_rec);
8145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8146: OKL_API.set_message(p_app_name => G_APP_NAME,
8147: p_msg_name => G_UPDATING_IB_ITEM);
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: x_msg_data => x_msg_data,
8143: p_cimv_rec => l_cimv_rec,
8144: x_cimv_rec => x_cimv_rec);
8145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8146: OKL_API.set_message(p_app_name => G_APP_NAME,
8147: p_msg_name => G_UPDATING_IB_ITEM);
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: OKL_API.set_message(p_app_name => G_APP_NAME,
8144: x_cimv_rec => x_cimv_rec);
8145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8146: OKL_API.set_message(p_app_name => G_APP_NAME,
8147: p_msg_name => G_UPDATING_IB_ITEM);
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: OKL_API.set_message(p_app_name => G_APP_NAME,
8151: p_msg_name => G_UPDATING_IB_ITEM);
8152: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8146: OKL_API.set_message(p_app_name => G_APP_NAME,
8147: p_msg_name => G_UPDATING_IB_ITEM);
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: OKL_API.set_message(p_app_name => G_APP_NAME,
8151: p_msg_name => G_UPDATING_IB_ITEM);
8152: RAISE OKL_API.G_EXCEPTION_ERROR;
8153: END IF;
8146: OKL_API.set_message(p_app_name => G_APP_NAME,
8147: p_msg_name => G_UPDATING_IB_ITEM);
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: OKL_API.set_message(p_app_name => G_APP_NAME,
8151: p_msg_name => G_UPDATING_IB_ITEM);
8152: RAISE OKL_API.G_EXCEPTION_ERROR;
8153: END IF;
8154: ELSE
8148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8150: OKL_API.set_message(p_app_name => G_APP_NAME,
8151: p_msg_name => G_UPDATING_IB_ITEM);
8152: RAISE OKL_API.G_EXCEPTION_ERROR;
8153: END IF;
8154: ELSE
8155: OKL_API.set_message(p_app_name => G_APP_NAME,
8156: p_msg_name => G_UPDATING_IB_ITEM);
8151: p_msg_name => G_UPDATING_IB_ITEM);
8152: RAISE OKL_API.G_EXCEPTION_ERROR;
8153: END IF;
8154: ELSE
8155: OKL_API.set_message(p_app_name => G_APP_NAME,
8156: p_msg_name => G_UPDATING_IB_ITEM);
8157: RAISE OKL_API.G_EXCEPTION_ERROR;
8158: END IF;
8159: ELSE
8153: END IF;
8154: ELSE
8155: OKL_API.set_message(p_app_name => G_APP_NAME,
8156: p_msg_name => G_UPDATING_IB_ITEM);
8157: RAISE OKL_API.G_EXCEPTION_ERROR;
8158: END IF;
8159: ELSE
8160: OKL_API.set_message(p_app_name => G_APP_NAME,
8161: p_msg_name => G_LINE_STYLE);
8156: p_msg_name => G_UPDATING_IB_ITEM);
8157: RAISE OKL_API.G_EXCEPTION_ERROR;
8158: END IF;
8159: ELSE
8160: OKL_API.set_message(p_app_name => G_APP_NAME,
8161: p_msg_name => G_LINE_STYLE);
8162: RAISE OKL_API.G_EXCEPTION_ERROR;
8163: END IF;
8164: OKL_API.END_ACTIVITY (x_msg_count,
8158: END IF;
8159: ELSE
8160: OKL_API.set_message(p_app_name => G_APP_NAME,
8161: p_msg_name => G_LINE_STYLE);
8162: RAISE OKL_API.G_EXCEPTION_ERROR;
8163: END IF;
8164: OKL_API.END_ACTIVITY (x_msg_count,
8165: x_msg_data );
8166: EXCEPTION
8160: OKL_API.set_message(p_app_name => G_APP_NAME,
8161: p_msg_name => G_LINE_STYLE);
8162: RAISE OKL_API.G_EXCEPTION_ERROR;
8163: END IF;
8164: OKL_API.END_ACTIVITY (x_msg_count,
8165: x_msg_data );
8166: EXCEPTION
8167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8168: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8163: END IF;
8164: OKL_API.END_ACTIVITY (x_msg_count,
8165: x_msg_data );
8166: EXCEPTION
8167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8168: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8169: l_api_name,
8170: G_PKG_NAME,
8171: 'OKL_API.G_RET_STS_ERROR',
8164: OKL_API.END_ACTIVITY (x_msg_count,
8165: x_msg_data );
8166: EXCEPTION
8167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8168: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8169: l_api_name,
8170: G_PKG_NAME,
8171: 'OKL_API.G_RET_STS_ERROR',
8172: x_msg_count,
8167: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8168: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8169: l_api_name,
8170: G_PKG_NAME,
8171: 'OKL_API.G_RET_STS_ERROR',
8172: x_msg_count,
8173: x_msg_data,
8174: '_PVT');
8175: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8171: 'OKL_API.G_RET_STS_ERROR',
8172: x_msg_count,
8173: x_msg_data,
8174: '_PVT');
8175: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8176: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8177: l_api_name,
8178: G_PKG_NAME,
8179: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8172: x_msg_count,
8173: x_msg_data,
8174: '_PVT');
8175: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8176: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8177: l_api_name,
8178: G_PKG_NAME,
8179: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8180: x_msg_count,
8175: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8176: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8177: l_api_name,
8178: G_PKG_NAME,
8179: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8180: x_msg_count,
8181: x_msg_data,
8182: '_PVT');
8183: WHEN OTHERS THEN
8180: x_msg_count,
8181: x_msg_data,
8182: '_PVT');
8183: WHEN OTHERS THEN
8184: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8185: l_api_name,
8186: G_PKG_NAME,
8187: 'OTHERS',
8188: x_msg_count,
8193: ---------------------------- Main Process for Creation of Financial Asset -------------------------------
8194: -------------------------------------------------------------------------------------------------------
8195: PROCEDURE create_fin_line(
8196: p_api_version IN NUMBER,
8197: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8198: x_return_status OUT NOCOPY VARCHAR2,
8199: x_msg_count OUT NOCOPY NUMBER,
8200: x_msg_data OUT NOCOPY VARCHAR2,
8201: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8209: -- Variables for validation of line style
8210: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
8211: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
8212: BEGIN
8213: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8214: -- Call start_activity to create savepoint, check compatibility
8215: -- and initialize message list
8216: x_return_status := OKL_API.START_ACTIVITY (
8217: l_api_name
8212: BEGIN
8213: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8214: -- Call start_activity to create savepoint, check compatibility
8215: -- and initialize message list
8216: x_return_status := OKL_API.START_ACTIVITY (
8217: l_api_name
8218: ,p_init_msg_list
8219: ,'_PVT'
8220: ,x_return_status);
8218: ,p_init_msg_list
8219: ,'_PVT'
8220: ,x_return_status);
8221: -- Check if activity started successfully
8222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8225: RAISE OKL_API.G_EXCEPTION_ERROR;
8226: END IF;
8219: ,'_PVT'
8220: ,x_return_status);
8221: -- Check if activity started successfully
8222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8225: RAISE OKL_API.G_EXCEPTION_ERROR;
8226: END IF;
8227:
8220: ,x_return_status);
8221: -- Check if activity started successfully
8222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8225: RAISE OKL_API.G_EXCEPTION_ERROR;
8226: END IF;
8227:
8228: -- 4414408 The validation is now performed in create_all_line procedure
8221: -- Check if activity started successfully
8222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8225: RAISE OKL_API.G_EXCEPTION_ERROR;
8226: END IF;
8227:
8228: -- 4414408 The validation is now performed in create_all_line procedure
8229: /*
8228: -- 4414408 The validation is now performed in create_all_line procedure
8229: /*
8230: -- To Check We Got the Valid info
8231: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8232: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8233: UPPER(p_new_yn) IS NULL) THEN
8234: OKL_API.set_message(p_app_name => G_APP_NAME,
8235: p_msg_name => G_INVALID_YN,
8236: p_token1 => G_COL_NAME_TOKEN,
8230: -- To Check We Got the Valid info
8231: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8232: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8233: UPPER(p_new_yn) IS NULL) THEN
8234: OKL_API.set_message(p_app_name => G_APP_NAME,
8235: p_msg_name => G_INVALID_YN,
8236: p_token1 => G_COL_NAME_TOKEN,
8237: p_token1_value => 'p_new_yn');
8238: -- Halt Validation
8235: p_msg_name => G_INVALID_YN,
8236: p_token1 => G_COL_NAME_TOKEN,
8237: p_token1_value => 'p_new_yn');
8238: -- Halt Validation
8239: RAISE OKL_API.G_EXCEPTION_ERROR;
8240: END IF;
8241: -- Validate to see if the asset_number given is not null
8242: -- and also Validate asset_number does not exists
8243: -- in OKL_TXL_ASSETS_V
8245: validate_new_asset_number(x_return_status => x_return_status,
8246: p_asset_number => p_asset_number,
8247: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8248: -- Check if activity started successfully
8249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8252: RAISE OKL_API.G_EXCEPTION_ERROR;
8253: END IF;
8246: p_asset_number => p_asset_number,
8247: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8248: -- Check if activity started successfully
8249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8252: RAISE OKL_API.G_EXCEPTION_ERROR;
8253: END IF;
8254: ELSE
8247: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8248: -- Check if activity started successfully
8249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8252: RAISE OKL_API.G_EXCEPTION_ERROR;
8253: END IF;
8254: ELSE
8255: validate_new_asset_number(x_return_status => x_return_status,
8248: -- Check if activity started successfully
8249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8252: RAISE OKL_API.G_EXCEPTION_ERROR;
8253: END IF;
8254: ELSE
8255: validate_new_asset_number(x_return_status => x_return_status,
8256: p_asset_number => p_asset_number,
8255: validate_new_asset_number(x_return_status => x_return_status,
8256: p_asset_number => p_asset_number,
8257: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8258: -- Check if activity ended successfully
8259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8262: RAISE OKL_API.G_EXCEPTION_ERROR;
8263: END IF;
8256: p_asset_number => p_asset_number,
8257: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8258: -- Check if activity ended successfully
8259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8262: RAISE OKL_API.G_EXCEPTION_ERROR;
8263: END IF;
8264: END IF;
8257: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8258: -- Check if activity ended successfully
8259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8262: RAISE OKL_API.G_EXCEPTION_ERROR;
8263: END IF;
8264: END IF;
8265: */
8258: -- Check if activity ended successfully
8259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8262: RAISE OKL_API.G_EXCEPTION_ERROR;
8263: END IF;
8264: END IF;
8265: */
8266: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
8271: x_return_status => x_return_status,
8272: x_lty_code => l_lty_code,
8273: x_lse_type => l_lse_type);
8274: -- Check if activity started successfully
8275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8278: RAISE OKL_API.G_EXCEPTION_ERROR;
8279: END IF;
8272: x_lty_code => l_lty_code,
8273: x_lse_type => l_lse_type);
8274: -- Check if activity started successfully
8275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8278: RAISE OKL_API.G_EXCEPTION_ERROR;
8279: END IF;
8280: -- Validate the Dnz_Chr_id
8273: x_lse_type => l_lse_type);
8274: -- Check if activity started successfully
8275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8278: RAISE OKL_API.G_EXCEPTION_ERROR;
8279: END IF;
8280: -- Validate the Dnz_Chr_id
8281: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8274: -- Check if activity started successfully
8275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8278: RAISE OKL_API.G_EXCEPTION_ERROR;
8279: END IF;
8280: -- Validate the Dnz_Chr_id
8281: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8282: x_return_status => x_return_status);
8280: -- Validate the Dnz_Chr_id
8281: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8282: x_return_status => x_return_status);
8283: -- Check if activity started successfully
8284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8287: RAISE OKL_API.G_EXCEPTION_ERROR;
8288: END IF;
8281: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8282: x_return_status => x_return_status);
8283: -- Check if activity started successfully
8284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8287: RAISE OKL_API.G_EXCEPTION_ERROR;
8288: END IF;
8289: */
8282: x_return_status => x_return_status);
8283: -- Check if activity started successfully
8284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8287: RAISE OKL_API.G_EXCEPTION_ERROR;
8288: END IF;
8289: */
8290: -- creating of finanical Asset Lines which is the top Line
8283: -- Check if activity started successfully
8284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8287: RAISE OKL_API.G_EXCEPTION_ERROR;
8288: END IF;
8289: */
8290: -- creating of finanical Asset Lines which is the top Line
8291: -- While createing the cle_id will be null, chr_id will be not null
8291: -- While createing the cle_id will be null, chr_id will be not null
8292: -- and also the dnz_chr_id will be not null.Lse_id given will also helps
8293: -- to decide that this line is finanical Asset Line
8294: l_clev_rec := p_clev_rec;
8295: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8296: l_clev_rec.cle_id IS NULL) AND
8297: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8298: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8299: (l_clev_rec.chr_id IS NOT NULL OR
8294: l_clev_rec := p_clev_rec;
8295: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8296: l_clev_rec.cle_id IS NULL) AND
8297: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8298: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8299: (l_clev_rec.chr_id IS NOT NULL OR
8300: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8301: -- #4414408
8302: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8296: l_clev_rec.cle_id IS NULL) AND
8297: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8298: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8299: (l_clev_rec.chr_id IS NOT NULL OR
8300: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8301: -- #4414408
8302: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8303: -- l_lse_type = G_TLS_TYPE THEN
8304: l_clev_rec.lse_id = G_FIN_LINE_LTY_ID THEN
8314: p_clev_rec => l_clev_rec,
8315: p_klev_rec => p_klev_rec,
8316: x_clev_rec => x_clev_rec,
8317: x_klev_rec => x_klev_rec);
8318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8321: RAISE OKL_API.G_EXCEPTION_ERROR;
8322: END IF;
8315: p_klev_rec => p_klev_rec,
8316: x_clev_rec => x_clev_rec,
8317: x_klev_rec => x_klev_rec);
8318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8321: RAISE OKL_API.G_EXCEPTION_ERROR;
8322: END IF;
8323: ELSE
8316: x_clev_rec => x_clev_rec,
8317: x_klev_rec => x_klev_rec);
8318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8321: RAISE OKL_API.G_EXCEPTION_ERROR;
8322: END IF;
8323: ELSE
8324: OKL_API.set_message(p_app_name => G_APP_NAME,
8317: x_klev_rec => x_klev_rec);
8318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8321: RAISE OKL_API.G_EXCEPTION_ERROR;
8322: END IF;
8323: ELSE
8324: OKL_API.set_message(p_app_name => G_APP_NAME,
8325: p_msg_name => G_INVALID_CRITERIA,
8320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8321: RAISE OKL_API.G_EXCEPTION_ERROR;
8322: END IF;
8323: ELSE
8324: OKL_API.set_message(p_app_name => G_APP_NAME,
8325: p_msg_name => G_INVALID_CRITERIA,
8326: p_token1 => G_COL_NAME_TOKEN,
8327: p_token1_value => 'Financial Asset line');
8328: x_return_status := OKL_API.G_RET_STS_ERROR;
8324: OKL_API.set_message(p_app_name => G_APP_NAME,
8325: p_msg_name => G_INVALID_CRITERIA,
8326: p_token1 => G_COL_NAME_TOKEN,
8327: p_token1_value => 'Financial Asset line');
8328: x_return_status := OKL_API.G_RET_STS_ERROR;
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: OKL_API.END_ACTIVITY (x_msg_count,
8332: x_msg_data );
8325: p_msg_name => G_INVALID_CRITERIA,
8326: p_token1 => G_COL_NAME_TOKEN,
8327: p_token1_value => 'Financial Asset line');
8328: x_return_status := OKL_API.G_RET_STS_ERROR;
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: OKL_API.END_ACTIVITY (x_msg_count,
8332: x_msg_data );
8333: EXCEPTION
8327: p_token1_value => 'Financial Asset line');
8328: x_return_status := OKL_API.G_RET_STS_ERROR;
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: OKL_API.END_ACTIVITY (x_msg_count,
8332: x_msg_data );
8333: EXCEPTION
8334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8330: END IF;
8331: OKL_API.END_ACTIVITY (x_msg_count,
8332: x_msg_data );
8333: EXCEPTION
8334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8336: l_api_name,
8337: G_PKG_NAME,
8338: 'OKL_API.G_RET_STS_ERROR',
8331: OKL_API.END_ACTIVITY (x_msg_count,
8332: x_msg_data );
8333: EXCEPTION
8334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8336: l_api_name,
8337: G_PKG_NAME,
8338: 'OKL_API.G_RET_STS_ERROR',
8339: x_msg_count,
8334: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8336: l_api_name,
8337: G_PKG_NAME,
8338: 'OKL_API.G_RET_STS_ERROR',
8339: x_msg_count,
8340: x_msg_data,
8341: '_PVT');
8342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8338: 'OKL_API.G_RET_STS_ERROR',
8339: x_msg_count,
8340: x_msg_data,
8341: '_PVT');
8342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8344: l_api_name,
8345: G_PKG_NAME,
8346: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8339: x_msg_count,
8340: x_msg_data,
8341: '_PVT');
8342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8344: l_api_name,
8345: G_PKG_NAME,
8346: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8347: x_msg_count,
8342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8344: l_api_name,
8345: G_PKG_NAME,
8346: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8347: x_msg_count,
8348: x_msg_data,
8349: '_PVT');
8350: WHEN OTHERS THEN
8347: x_msg_count,
8348: x_msg_data,
8349: '_PVT');
8350: WHEN OTHERS THEN
8351: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8352: l_api_name,
8353: G_PKG_NAME,
8354: 'OTHERS',
8355: x_msg_count,
8360: ---------------------------- Main Process for update of Financial Asset -------------------------------
8361: -------------------------------------------------------------------------------------------------------
8362: PROCEDURE Update_fin_line(
8363: p_api_version IN NUMBER,
8364: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8365: x_return_status OUT NOCOPY VARCHAR2,
8366: x_msg_count OUT NOCOPY NUMBER,
8367: x_msg_data OUT NOCOPY VARCHAR2,
8368: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8370: p_clev_rec IN clev_rec_type,
8371: p_klev_rec IN klev_rec_type,
8372: x_clev_rec OUT NOCOPY clev_rec_type,
8373: x_klev_rec OUT NOCOPY klev_rec_type,
8374: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8375: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
8376: l_clev_rec clev_rec_type := p_clev_rec;
8377: l_klev_rec klev_rec_type := p_klev_rec;
8378: -- Variables for validation of line style
8403: -- AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
8404: AND cle.lse_id = G_FA_LINE_LTY_ID;
8405:
8406: BEGIN
8407: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8408: -- Call start_activity to create savepoint, check compatibility
8409: -- and initialize message list
8410: x_return_status := OKL_API.START_ACTIVITY (
8411: l_api_name
8406: BEGIN
8407: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8408: -- Call start_activity to create savepoint, check compatibility
8409: -- and initialize message list
8410: x_return_status := OKL_API.START_ACTIVITY (
8411: l_api_name
8412: ,p_init_msg_list
8413: ,'_PVT'
8414: ,x_return_status);
8412: ,p_init_msg_list
8413: ,'_PVT'
8414: ,x_return_status);
8415: -- Check if activity started successfully
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8413: ,'_PVT'
8414: ,x_return_status);
8415: -- Check if activity started successfully
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8414: ,x_return_status);
8415: -- Check if activity started successfully
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8415: -- Check if activity started successfully
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8423: x_return_status => x_return_status);
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8423: x_return_status => x_return_status);
8424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8420: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8423: x_return_status => x_return_status);
8424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8427: RAISE OKL_API.G_EXCEPTION_ERROR;
8428: END IF;
8421: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8423: x_return_status => x_return_status);
8424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8427: RAISE OKL_API.G_EXCEPTION_ERROR;
8428: END IF;
8429: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8422: validate_sts_code(p_clev_rec => l_clev_rec,
8423: x_return_status => x_return_status);
8424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8427: RAISE OKL_API.G_EXCEPTION_ERROR;
8428: END IF;
8429: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8430: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8423: x_return_status => x_return_status);
8424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8427: RAISE OKL_API.G_EXCEPTION_ERROR;
8428: END IF;
8429: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8430: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8431: FETCH get_fa_id INTO ln_fa_id;
8430: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8431: FETCH get_fa_id INTO ln_fa_id;
8432: -- 4414408
8433: IF get_fa_id%NOTFOUND THEN
8434: OKL_API.set_message(p_app_name => G_APP_NAME,
8435: p_msg_name => G_LINE_RECORD);
8436: RAISE OKL_API.G_EXCEPTION_ERROR;
8437: END IF;
8438: CLOSE get_fa_id;
8432: -- 4414408
8433: IF get_fa_id%NOTFOUND THEN
8434: OKL_API.set_message(p_app_name => G_APP_NAME,
8435: p_msg_name => G_LINE_RECORD);
8436: RAISE OKL_API.G_EXCEPTION_ERROR;
8437: END IF;
8438: CLOSE get_fa_id;
8439: -- To Check We Got the Valid info
8440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8437: END IF;
8438: CLOSE get_fa_id;
8439: -- To Check We Got the Valid info
8440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8441: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8442: UPPER(p_new_yn) IS NULL) THEN
8443: OKL_API.set_message(p_app_name => G_APP_NAME,
8444: p_msg_name => G_INVALID_YN,
8445: p_token1 => G_COL_NAME_TOKEN,
8439: -- To Check We Got the Valid info
8440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8441: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8442: UPPER(p_new_yn) IS NULL) THEN
8443: OKL_API.set_message(p_app_name => G_APP_NAME,
8444: p_msg_name => G_INVALID_YN,
8445: p_token1 => G_COL_NAME_TOKEN,
8446: p_token1_value => 'p_new_yn');
8447: -- Halt Validation
8444: p_msg_name => G_INVALID_YN,
8445: p_token1 => G_COL_NAME_TOKEN,
8446: p_token1_value => 'p_new_yn');
8447: -- Halt Validation
8448: RAISE OKL_API.G_EXCEPTION_ERROR;
8449: END IF;
8450: -- Validate to see if the asset_number given is not null
8451: -- and also Validate asset_number does not exists
8452: -- in OKL_TXL_ASSETS_V
8455: p_asset_number => p_asset_number,
8456: p_kle_id => ln_fa_id,
8457: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8458: -- Check if activity started successfully
8459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8462: RAISE OKL_API.G_EXCEPTION_ERROR;
8463: END IF;
8456: p_kle_id => ln_fa_id,
8457: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8458: -- Check if activity started successfully
8459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8462: RAISE OKL_API.G_EXCEPTION_ERROR;
8463: END IF;
8464: ELSIF UPPER(p_new_yn) = 'N' THEN
8457: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8458: -- Check if activity started successfully
8459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8462: RAISE OKL_API.G_EXCEPTION_ERROR;
8463: END IF;
8464: ELSIF UPPER(p_new_yn) = 'N' THEN
8465: validate_new_ast_num_update(x_return_status => x_return_status,
8458: -- Check if activity started successfully
8459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8462: RAISE OKL_API.G_EXCEPTION_ERROR;
8463: END IF;
8464: ELSIF UPPER(p_new_yn) = 'N' THEN
8465: validate_new_ast_num_update(x_return_status => x_return_status,
8466: p_asset_number => p_asset_number,
8466: p_asset_number => p_asset_number,
8467: p_kle_id => ln_fa_id,
8468: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8469: -- Check if activity started successfully
8470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8473: RAISE OKL_API.G_EXCEPTION_ERROR;
8474: END IF;
8467: p_kle_id => ln_fa_id,
8468: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8469: -- Check if activity started successfully
8470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8473: RAISE OKL_API.G_EXCEPTION_ERROR;
8474: END IF;
8475: END IF;
8468: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8469: -- Check if activity started successfully
8470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8473: RAISE OKL_API.G_EXCEPTION_ERROR;
8474: END IF;
8475: END IF;
8476: -- Validate Line Style id and get the line type code
8469: -- Check if activity started successfully
8470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8473: RAISE OKL_API.G_EXCEPTION_ERROR;
8474: END IF;
8475: END IF;
8476: -- Validate Line Style id and get the line type code
8477: -- and line style type for further processing
8479: x_return_status => x_return_status,
8480: x_lty_code => l_lty_code,
8481: x_lse_type => l_lse_type);
8482: -- Check if activity started successfully
8483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8486: RAISE OKL_API.G_EXCEPTION_ERROR;
8487: END IF;
8480: x_lty_code => l_lty_code,
8481: x_lse_type => l_lse_type);
8482: -- Check if activity started successfully
8483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8486: RAISE OKL_API.G_EXCEPTION_ERROR;
8487: END IF;
8488: -- Validate the Dnz_Chr_id
8481: x_lse_type => l_lse_type);
8482: -- Check if activity started successfully
8483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8486: RAISE OKL_API.G_EXCEPTION_ERROR;
8487: END IF;
8488: -- Validate the Dnz_Chr_id
8489: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8482: -- Check if activity started successfully
8483: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8484: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8485: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8486: RAISE OKL_API.G_EXCEPTION_ERROR;
8487: END IF;
8488: -- Validate the Dnz_Chr_id
8489: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8490: x_return_status => x_return_status);
8488: -- Validate the Dnz_Chr_id
8489: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8490: x_return_status => x_return_status);
8491: -- Check if activity started successfully
8492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8495: RAISE OKL_API.G_EXCEPTION_ERROR;
8496: END IF;
8489: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8490: x_return_status => x_return_status);
8491: -- Check if activity started successfully
8492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8495: RAISE OKL_API.G_EXCEPTION_ERROR;
8496: END IF;
8497: END IF;
8490: x_return_status => x_return_status);
8491: -- Check if activity started successfully
8492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8495: RAISE OKL_API.G_EXCEPTION_ERROR;
8496: END IF;
8497: END IF;
8498: -- Modified by rravikir
8491: -- Check if activity started successfully
8492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8493: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8494: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8495: RAISE OKL_API.G_EXCEPTION_ERROR;
8496: END IF;
8497: END IF;
8498: -- Modified by rravikir
8499: -- Call to Accounting Util package to address Multi Currency requirement
8501: /*
8502: -- nnirnaka 12/24/02 commented this out as this already happens in
8503: -- contract line update
8504:
8505: IF (l_klev_rec.capital_reduction <> OKL_API.G_MISS_NUM AND
8506: l_klev_rec.capital_reduction IS NOT NULL) THEN
8507: capital_reduction := l_klev_rec.capital_reduction;
8508: l_klev_rec.capital_reduction :=
8509: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.capital_reduction,
8509: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.capital_reduction,
8510: l_clev_rec.currency_code);
8511:
8512: IF (capital_reduction <> 0 AND l_klev_rec.capital_reduction = 0) THEN
8513: OKL_API.set_message(p_app_name => G_APP_NAME,
8514: p_msg_name => G_AMOUNT_ROUNDING,
8515: p_token1 => 'AMT',
8516: p_token1_value => to_char(capital_reduction));
8517: RAISE G_EXCEPTION_HALT_VALIDATION;
8517: RAISE G_EXCEPTION_HALT_VALIDATION;
8518: END IF;
8519: END IF;
8520:
8521: IF (l_klev_rec.tradein_amount <> OKL_API.G_MISS_NUM AND
8522: l_klev_rec.tradein_amount IS NOT NULL) THEN
8523: tradein_amount := l_klev_rec.tradein_amount;
8524: l_klev_rec.tradein_amount :=
8525: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.tradein_amount,
8525: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.tradein_amount,
8526: l_clev_rec.currency_code);
8527:
8528: IF (tradein_amount <> 0 AND l_klev_rec.tradein_amount = 0) THEN
8529: OKL_API.set_message(p_app_name => G_APP_NAME,
8530: p_msg_name => G_AMOUNT_ROUNDING,
8531: p_token1 => 'AMT',
8532: p_token1_value => to_char(tradein_amount));
8533: RAISE G_EXCEPTION_HALT_VALIDATION;
8540: -- Updating of finanical Asset Lines which is the top Line
8541: -- While Updating the cle_id will be null, chr_id will be not null
8542: -- and also the dnz_chr_id will be not null.Lse_id given will also helps
8543: -- to decide that this line is finanical Asset Line
8544: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8545: l_clev_rec.cle_id IS NULL) AND
8546: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8547: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8548: (l_clev_rec.chr_id IS NOT NULL OR
8543: -- to decide that this line is finanical Asset Line
8544: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8545: l_clev_rec.cle_id IS NULL) AND
8546: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8547: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8548: (l_clev_rec.chr_id IS NOT NULL OR
8549: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8550: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8551: -- l_lse_type = G_TLS_TYPE THEN
8545: l_clev_rec.cle_id IS NULL) AND
8546: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8547: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8548: (l_clev_rec.chr_id IS NOT NULL OR
8549: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8550: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8551: -- l_lse_type = G_TLS_TYPE THEN
8552: l_clev_rec.lse_id = G_FIN_LINE_LTY_ID THEN
8553:
8560: p_clev_rec => l_clev_rec,
8561: p_klev_rec => l_klev_rec,
8562: x_clev_rec => x_clev_rec,
8563: x_klev_rec => x_klev_rec);
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8561: p_klev_rec => l_klev_rec,
8562: x_clev_rec => x_clev_rec,
8563: x_klev_rec => x_klev_rec);
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569: ELSE
8562: x_clev_rec => x_clev_rec,
8563: x_klev_rec => x_klev_rec);
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569: ELSE
8570: OKL_API.set_message(p_app_name => G_APP_NAME,
8563: x_klev_rec => x_klev_rec);
8564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569: ELSE
8570: OKL_API.set_message(p_app_name => G_APP_NAME,
8571: p_msg_name => G_INVALID_CRITERIA,
8566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8567: RAISE OKL_API.G_EXCEPTION_ERROR;
8568: END IF;
8569: ELSE
8570: OKL_API.set_message(p_app_name => G_APP_NAME,
8571: p_msg_name => G_INVALID_CRITERIA,
8572: p_token1 => 'LINE_STYLE',
8573: p_token1_value => 'Financial Asset line');
8574: x_return_status := OKL_API.G_RET_STS_ERROR;
8570: OKL_API.set_message(p_app_name => G_APP_NAME,
8571: p_msg_name => G_INVALID_CRITERIA,
8572: p_token1 => 'LINE_STYLE',
8573: p_token1_value => 'Financial Asset line');
8574: x_return_status := OKL_API.G_RET_STS_ERROR;
8575: RAISE OKL_API.G_EXCEPTION_ERROR;
8576: END IF;
8577: OKL_API.END_ACTIVITY (x_msg_count,
8578: x_msg_data );
8571: p_msg_name => G_INVALID_CRITERIA,
8572: p_token1 => 'LINE_STYLE',
8573: p_token1_value => 'Financial Asset line');
8574: x_return_status := OKL_API.G_RET_STS_ERROR;
8575: RAISE OKL_API.G_EXCEPTION_ERROR;
8576: END IF;
8577: OKL_API.END_ACTIVITY (x_msg_count,
8578: x_msg_data );
8579: EXCEPTION
8573: p_token1_value => 'Financial Asset line');
8574: x_return_status := OKL_API.G_RET_STS_ERROR;
8575: RAISE OKL_API.G_EXCEPTION_ERROR;
8576: END IF;
8577: OKL_API.END_ACTIVITY (x_msg_count,
8578: x_msg_data );
8579: EXCEPTION
8580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8581: IF get_fa_id%ISOPEN THEN
8576: END IF;
8577: OKL_API.END_ACTIVITY (x_msg_count,
8578: x_msg_data );
8579: EXCEPTION
8580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8581: IF get_fa_id%ISOPEN THEN
8582: CLOSE get_fa_id;
8583: END IF;
8584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8580: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8581: IF get_fa_id%ISOPEN THEN
8582: CLOSE get_fa_id;
8583: END IF;
8584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8585: l_api_name,
8586: G_PKG_NAME,
8587: 'OKL_API.G_RET_STS_ERROR',
8588: x_msg_count,
8583: END IF;
8584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8585: l_api_name,
8586: G_PKG_NAME,
8587: 'OKL_API.G_RET_STS_ERROR',
8588: x_msg_count,
8589: x_msg_data,
8590: '_PVT');
8591: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8587: 'OKL_API.G_RET_STS_ERROR',
8588: x_msg_count,
8589: x_msg_data,
8590: '_PVT');
8591: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8592: IF get_fa_id%ISOPEN THEN
8593: CLOSE get_fa_id;
8594: END IF;
8595: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8591: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8592: IF get_fa_id%ISOPEN THEN
8593: CLOSE get_fa_id;
8594: END IF;
8595: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8596: l_api_name,
8597: G_PKG_NAME,
8598: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8599: x_msg_count,
8594: END IF;
8595: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8596: l_api_name,
8597: G_PKG_NAME,
8598: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8599: x_msg_count,
8600: x_msg_data,
8601: '_PVT');
8602: WHEN OTHERS THEN
8602: WHEN OTHERS THEN
8603: IF get_fa_id%ISOPEN THEN
8604: CLOSE get_fa_id;
8605: END IF;
8606: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8607: l_api_name,
8608: G_PKG_NAME,
8609: 'OTHERS',
8610: x_msg_count,
8615: ----------------- Main Process for update of Financial Asset for Capital Cost -------------------------
8616: -------------------------------------------------------------------------------------------------------
8617: PROCEDURE Update_fin_cap_cost(
8618: p_api_version IN NUMBER,
8619: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8620: x_return_status OUT NOCOPY VARCHAR2,
8621: x_msg_count OUT NOCOPY NUMBER,
8622: x_msg_data OUT NOCOPY VARCHAR2,
8623: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8645: AND lse.id = stl.lse_id
8646: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
8647:
8648: BEGIN
8649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8650: -- Call start_activity to create savepoint, check compatibility
8651: -- and initialize message list
8652: x_return_status := OKL_API.START_ACTIVITY (
8653: l_api_name
8648: BEGIN
8649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8650: -- Call start_activity to create savepoint, check compatibility
8651: -- and initialize message list
8652: x_return_status := OKL_API.START_ACTIVITY (
8653: l_api_name
8654: ,p_init_msg_list
8655: ,'_PVT'
8656: ,x_return_status);
8654: ,p_init_msg_list
8655: ,'_PVT'
8656: ,x_return_status);
8657: -- Check if activity started successfully
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8655: ,'_PVT'
8656: ,x_return_status);
8657: -- Check if activity started successfully
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8656: ,x_return_status);
8657: -- Check if activity started successfully
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8664: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8657: -- Check if activity started successfully
8658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8661: RAISE OKL_API.G_EXCEPTION_ERROR;
8662: END IF;
8663: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8664: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8665: l_clev_rec.sts_code;
8664: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8665: l_clev_rec.sts_code;
8666: -- 4414408
8667: IF c_get_lse_id_sts%NOTFOUND THEN
8668: OKL_API.set_message(p_app_name => G_APP_NAME,
8669: p_msg_name => G_LINE_RECORD);
8670: RAISE OKL_API.G_EXCEPTION_ERROR;
8671: END IF;
8672: CLOSE c_get_lse_id_sts;
8666: -- 4414408
8667: IF c_get_lse_id_sts%NOTFOUND THEN
8668: OKL_API.set_message(p_app_name => G_APP_NAME,
8669: p_msg_name => G_LINE_RECORD);
8670: RAISE OKL_API.G_EXCEPTION_ERROR;
8671: END IF;
8672: CLOSE c_get_lse_id_sts;
8673: -- Here we update the capital Amount for the Top line of klev_rec
8674: --Bug# 3877032 :
8672: CLOSE c_get_lse_id_sts;
8673: -- Here we update the capital Amount for the Top line of klev_rec
8674: --Bug# 3877032 :
8675: --IF (l_klev_rec.capital_reduction_percent IS NULL OR
8676: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8677: --(l_klev_rec.capital_reduction IS NULL OR
8678: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8679: --(l_klev_rec.tradein_amount IS NULL OR
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8674: --Bug# 3877032 :
8675: --IF (l_klev_rec.capital_reduction_percent IS NULL OR
8676: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8677: --(l_klev_rec.capital_reduction IS NULL OR
8678: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8679: --(l_klev_rec.tradein_amount IS NULL OR
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8681:
8682: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8676: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8677: --(l_klev_rec.capital_reduction IS NULL OR
8678: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8679: --(l_klev_rec.tradein_amount IS NULL OR
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8681:
8682: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8683: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8684: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8678: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8679: --(l_klev_rec.tradein_amount IS NULL OR
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8681:
8682: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8683: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8684: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8685: -- Updating of finanical Asset Lines with all the values
8686: Update_fin_line(p_api_version => p_api_version,
8679: --(l_klev_rec.tradein_amount IS NULL OR
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8681:
8682: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8683: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8684: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8685: -- Updating of finanical Asset Lines with all the values
8686: Update_fin_line(p_api_version => p_api_version,
8687: p_init_msg_list => p_init_msg_list,
8680: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8681:
8682: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8683: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8684: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8685: -- Updating of finanical Asset Lines with all the values
8686: Update_fin_line(p_api_version => p_api_version,
8687: p_init_msg_list => p_init_msg_list,
8688: x_return_status => x_return_status,
8693: p_clev_rec => l_clev_rec,
8694: p_klev_rec => l_klev_rec,
8695: x_clev_rec => x_clev_rec,
8696: x_klev_rec => x_klev_rec,
8697: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8701: RAISE OKL_API.G_EXCEPTION_ERROR;
8694: p_klev_rec => l_klev_rec,
8695: x_clev_rec => x_clev_rec,
8696: x_klev_rec => x_klev_rec,
8697: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8701: RAISE OKL_API.G_EXCEPTION_ERROR;
8702: END IF;
8695: x_clev_rec => x_clev_rec,
8696: x_klev_rec => x_klev_rec,
8697: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8701: RAISE OKL_API.G_EXCEPTION_ERROR;
8702: END IF;
8703: ELSE
8696: x_klev_rec => x_klev_rec,
8697: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8701: RAISE OKL_API.G_EXCEPTION_ERROR;
8702: END IF;
8703: ELSE
8704: -- Here we update the capital Amount for the Top line of klev_rec
8697: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8701: RAISE OKL_API.G_EXCEPTION_ERROR;
8702: END IF;
8703: ELSE
8704: -- Here we update the capital Amount for the Top line of klev_rec
8705: -- But further we first have to update the top line with values
8717: p_clev_rec => l_clev_rec,
8718: p_klev_rec => l_klev_rec,
8719: x_clev_rec => x_clev_rec,
8720: x_klev_rec => x_klev_rec,
8721: p_validate_fin_line => OKL_API.G_TRUE);
8722: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8725: RAISE OKL_API.G_EXCEPTION_ERROR;
8718: p_klev_rec => l_klev_rec,
8719: x_clev_rec => x_clev_rec,
8720: x_klev_rec => x_klev_rec,
8721: p_validate_fin_line => OKL_API.G_TRUE);
8722: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8725: RAISE OKL_API.G_EXCEPTION_ERROR;
8726: END IF;
8719: x_clev_rec => x_clev_rec,
8720: x_klev_rec => x_klev_rec,
8721: p_validate_fin_line => OKL_API.G_TRUE);
8722: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8725: RAISE OKL_API.G_EXCEPTION_ERROR;
8726: END IF;
8727: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8720: x_klev_rec => x_klev_rec,
8721: p_validate_fin_line => OKL_API.G_TRUE);
8722: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8725: RAISE OKL_API.G_EXCEPTION_ERROR;
8726: END IF;
8727: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8728: p_init_msg_list => p_init_msg_list,
8721: p_validate_fin_line => OKL_API.G_TRUE);
8722: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8725: RAISE OKL_API.G_EXCEPTION_ERROR;
8726: END IF;
8727: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8728: p_init_msg_list => p_init_msg_list,
8729: x_return_status => x_return_status,
8732: p_formula_name => G_FORMULA_CAP,
8733: p_contract_id => x_clev_rec.dnz_chr_id,
8734: p_line_id => x_clev_rec.id,
8735: x_value => x_klev_rec.capital_amount);
8736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8737: OKL_API.set_message(p_app_name => G_APP_NAME,
8738: p_msg_name => G_CALC_AMOUNT,
8739: p_token1 => G_AMT_TOKEN,
8740: p_token1_value => 'Capital Amount');
8733: p_contract_id => x_clev_rec.dnz_chr_id,
8734: p_line_id => x_clev_rec.id,
8735: x_value => x_klev_rec.capital_amount);
8736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8737: OKL_API.set_message(p_app_name => G_APP_NAME,
8738: p_msg_name => G_CALC_AMOUNT,
8739: p_token1 => G_AMT_TOKEN,
8740: p_token1_value => 'Capital Amount');
8741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8737: OKL_API.set_message(p_app_name => G_APP_NAME,
8738: p_msg_name => G_CALC_AMOUNT,
8739: p_token1 => G_AMT_TOKEN,
8740: p_token1_value => 'Capital Amount');
8741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8743: OKL_API.set_message(p_app_name => G_APP_NAME,
8744: p_msg_name => G_CALC_AMOUNT,
8745: p_token1 => G_AMT_TOKEN,
8738: p_msg_name => G_CALC_AMOUNT,
8739: p_token1 => G_AMT_TOKEN,
8740: p_token1_value => 'Capital Amount');
8741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8743: OKL_API.set_message(p_app_name => G_APP_NAME,
8744: p_msg_name => G_CALC_AMOUNT,
8745: p_token1 => G_AMT_TOKEN,
8746: p_token1_value => 'Capital Amount');
8739: p_token1 => G_AMT_TOKEN,
8740: p_token1_value => 'Capital Amount');
8741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8742: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8743: OKL_API.set_message(p_app_name => G_APP_NAME,
8744: p_msg_name => G_CALC_AMOUNT,
8745: p_token1 => G_AMT_TOKEN,
8746: p_token1_value => 'Capital Amount');
8747: RAISE OKL_API.G_EXCEPTION_ERROR;
8743: OKL_API.set_message(p_app_name => G_APP_NAME,
8744: p_msg_name => G_CALC_AMOUNT,
8745: p_token1 => G_AMT_TOKEN,
8746: p_token1_value => 'Capital Amount');
8747: RAISE OKL_API.G_EXCEPTION_ERROR;
8748: END IF;
8749: -- Updating of finanical Asset Lines with all the values
8750: Update_fin_line(p_api_version => p_api_version,
8751: p_init_msg_list => p_init_msg_list,
8757: p_clev_rec => x_clev_rec,
8758: p_klev_rec => x_klev_rec,
8759: x_clev_rec => lx_clev_rec,
8760: x_klev_rec => lx_klev_rec,
8761: p_validate_fin_line => OKL_API.G_TRUE);
8762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8765: RAISE OKL_API.G_EXCEPTION_ERROR;
8758: p_klev_rec => x_klev_rec,
8759: x_clev_rec => lx_clev_rec,
8760: x_klev_rec => lx_klev_rec,
8761: p_validate_fin_line => OKL_API.G_TRUE);
8762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8765: RAISE OKL_API.G_EXCEPTION_ERROR;
8766: END IF;
8759: x_clev_rec => lx_clev_rec,
8760: x_klev_rec => lx_klev_rec,
8761: p_validate_fin_line => OKL_API.G_TRUE);
8762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8765: RAISE OKL_API.G_EXCEPTION_ERROR;
8766: END IF;
8767: x_clev_rec := lx_clev_rec;
8760: x_klev_rec => lx_klev_rec,
8761: p_validate_fin_line => OKL_API.G_TRUE);
8762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8765: RAISE OKL_API.G_EXCEPTION_ERROR;
8766: END IF;
8767: x_clev_rec := lx_clev_rec;
8768: x_klev_rec := lx_klev_rec;
8761: p_validate_fin_line => OKL_API.G_TRUE);
8762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8765: RAISE OKL_API.G_EXCEPTION_ERROR;
8766: END IF;
8767: x_clev_rec := lx_clev_rec;
8768: x_klev_rec := lx_klev_rec;
8769: END IF;
8769: END IF;
8770: -- We need to change the status of the header whenever there is updating happening
8771: -- after the contract status is approved
8772: IF (x_clev_rec.dnz_chr_id is NOT NULL) AND
8773: (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8774: --cascade edit status on to lines
8775: okl_contract_status_pub.cascade_lease_status_edit
8776: (p_api_version => p_api_version,
8777: p_init_msg_list => p_init_msg_list,
8778: x_return_status => x_return_status,
8779: x_msg_count => x_msg_count,
8780: x_msg_data => x_msg_data,
8781: p_chr_id => x_clev_rec.dnz_chr_id);
8782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8785: RAISE OKL_API.G_EXCEPTION_ERROR;
8786: END IF;
8779: x_msg_count => x_msg_count,
8780: x_msg_data => x_msg_data,
8781: p_chr_id => x_clev_rec.dnz_chr_id);
8782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8785: RAISE OKL_API.G_EXCEPTION_ERROR;
8786: END IF;
8787: END IF;
8780: x_msg_data => x_msg_data,
8781: p_chr_id => x_clev_rec.dnz_chr_id);
8782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8785: RAISE OKL_API.G_EXCEPTION_ERROR;
8786: END IF;
8787: END IF;
8788: EXCEPTION
8781: p_chr_id => x_clev_rec.dnz_chr_id);
8782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8785: RAISE OKL_API.G_EXCEPTION_ERROR;
8786: END IF;
8787: END IF;
8788: EXCEPTION
8789: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8785: RAISE OKL_API.G_EXCEPTION_ERROR;
8786: END IF;
8787: END IF;
8788: EXCEPTION
8789: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8790: IF c_get_lse_id_sts%ISOPEN THEN
8791: CLOSE c_get_lse_id_sts;
8792: END IF;
8793: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8789: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8790: IF c_get_lse_id_sts%ISOPEN THEN
8791: CLOSE c_get_lse_id_sts;
8792: END IF;
8793: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8794: l_api_name,
8795: G_PKG_NAME,
8796: 'OKL_API.G_RET_STS_ERROR',
8797: x_msg_count,
8792: END IF;
8793: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8794: l_api_name,
8795: G_PKG_NAME,
8796: 'OKL_API.G_RET_STS_ERROR',
8797: x_msg_count,
8798: x_msg_data,
8799: '_PVT');
8800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8796: 'OKL_API.G_RET_STS_ERROR',
8797: x_msg_count,
8798: x_msg_data,
8799: '_PVT');
8800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8801: IF c_get_lse_id_sts%ISOPEN THEN
8802: CLOSE c_get_lse_id_sts;
8803: END IF;
8804: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8801: IF c_get_lse_id_sts%ISOPEN THEN
8802: CLOSE c_get_lse_id_sts;
8803: END IF;
8804: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8805: l_api_name,
8806: G_PKG_NAME,
8807: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8808: x_msg_count,
8803: END IF;
8804: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8805: l_api_name,
8806: G_PKG_NAME,
8807: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8808: x_msg_count,
8809: x_msg_data,
8810: '_PVT');
8811: WHEN OTHERS THEN
8811: WHEN OTHERS THEN
8812: IF c_get_lse_id_sts%ISOPEN THEN
8813: CLOSE c_get_lse_id_sts;
8814: END IF;
8815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8816: l_api_name,
8817: G_PKG_NAME,
8818: 'OTHERS',
8819: x_msg_count,
8831: -- End of Commnets
8832:
8833: PROCEDURE oec_calc_upd_fin_rec(
8834: p_api_version IN NUMBER,
8835: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8836: x_return_status OUT NOCOPY VARCHAR2,
8837: x_msg_count OUT NOCOPY NUMBER,
8838: x_msg_data OUT NOCOPY VARCHAR2,
8839: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8842: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
8843: x_fin_clev_rec OUT NOCOPY clev_rec_type,
8844: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8845: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8846: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8847:
8848: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8849: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8850: l_update_clev_rec clev_rec_type;
8873: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE,G_QUOTE_SCS_CODE);
8874: */
8875: BEGIN
8876: -- initialize return status
8877: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8878: /*
8879: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
8880: p_dnz_chr_id => p_dnz_chr_id);
8881: FETCH c_model_top_line INTO ln_top_line_id;
8880: p_dnz_chr_id => p_dnz_chr_id);
8881: FETCH c_model_top_line INTO ln_top_line_id;
8882: -- #4414408 Moved the IF statement below fetch statement
8883: IF c_model_top_line%NOTFOUND THEN
8884: OKL_API.set_message(p_app_name => G_APP_NAME,
8885: p_msg_name => G_NO_MATCHING_RECORD,
8886: p_token1 => G_COL_NAME_TOKEN,
8887: p_token1_value => 'cle_id');
8888: RAISE G_EXCEPTION_HALT_VALIDATION;
8888: RAISE G_EXCEPTION_HALT_VALIDATION;
8889: END IF;
8890: -- #4414408 This condition will never be met
8891: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
8892: -- OKL_API.set_message(p_app_name => G_APP_NAME,
8893: -- p_msg_name => 'More than one',
8894: -- p_token1 => 'Model line',
8895: -- p_token1_value => 'cle_id');
8896: -- RAISE G_EXCEPTION_HALT_VALIDATION;
8912: p_contract_id => p_dnz_chr_id,
8913: p_line_id => p_top_line_id,
8914: x_value => x_oec);
8915:
8916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8917: OKL_API.set_message(p_app_name => G_APP_NAME,
8918: p_msg_name => G_CALC_AMOUNT,
8919: p_token1 => G_AMT_TOKEN,
8920: p_token1_value => 'OEC');
8913: p_line_id => p_top_line_id,
8914: x_value => x_oec);
8915:
8916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8917: OKL_API.set_message(p_app_name => G_APP_NAME,
8918: p_msg_name => G_CALC_AMOUNT,
8919: p_token1 => G_AMT_TOKEN,
8920: p_token1_value => 'OEC');
8921: RAISE G_EXCEPTION_HALT_VALIDATION;
8918: p_msg_name => G_CALC_AMOUNT,
8919: p_token1 => G_AMT_TOKEN,
8920: p_token1_value => 'OEC');
8921: RAISE G_EXCEPTION_HALT_VALIDATION;
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: OKL_API.set_message(p_app_name => G_APP_NAME,
8924: p_msg_name => G_CALC_AMOUNT,
8925: p_token1 => G_AMT_TOKEN,
8926: p_token1_value => 'OEC');
8919: p_token1 => G_AMT_TOKEN,
8920: p_token1_value => 'OEC');
8921: RAISE G_EXCEPTION_HALT_VALIDATION;
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: OKL_API.set_message(p_app_name => G_APP_NAME,
8924: p_msg_name => G_CALC_AMOUNT,
8925: p_token1 => G_AMT_TOKEN,
8926: p_token1_value => 'OEC');
8927: RAISE G_EXCEPTION_HALT_VALIDATION;
8928: END IF;
8929: -- To Get the cle top Line Record
8930: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
8931: l_update_clev_rec);
8932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8933: OKL_API.set_message(p_app_name => G_APP_NAME,
8934: p_msg_name => G_FETCHING_INFO,
8935: p_token1 => G_REC_NAME_TOKEN,
8936: p_token1_value => 'OKC_K_LINES_V Record');
8929: -- To Get the cle top Line Record
8930: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
8931: l_update_clev_rec);
8932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8933: OKL_API.set_message(p_app_name => G_APP_NAME,
8934: p_msg_name => G_FETCHING_INFO,
8935: p_token1 => G_REC_NAME_TOKEN,
8936: p_token1_value => 'OKC_K_LINES_V Record');
8937: RAISE G_EXCEPTION_HALT_VALIDATION;
8934: p_msg_name => G_FETCHING_INFO,
8935: p_token1 => G_REC_NAME_TOKEN,
8936: p_token1_value => 'OKC_K_LINES_V Record');
8937: RAISE G_EXCEPTION_HALT_VALIDATION;
8938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8939: OKL_API.set_message(p_app_name => G_APP_NAME,
8940: p_msg_name => G_FETCHING_INFO,
8941: p_token1 => G_REC_NAME_TOKEN,
8942: p_token1_value => 'OKC_K_LINES_V Record');
8935: p_token1 => G_REC_NAME_TOKEN,
8936: p_token1_value => 'OKC_K_LINES_V Record');
8937: RAISE G_EXCEPTION_HALT_VALIDATION;
8938: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8939: OKL_API.set_message(p_app_name => G_APP_NAME,
8940: p_msg_name => G_FETCHING_INFO,
8941: p_token1 => G_REC_NAME_TOKEN,
8942: p_token1_value => 'OKC_K_LINES_V Record');
8943: RAISE G_EXCEPTION_HALT_VALIDATION;
8944: END IF;
8945: -- To Get the kle top Line Record
8946: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
8947: l_update_klev_rec);
8948: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: OKL_API.set_message(p_app_name => G_APP_NAME,
8950: p_msg_name => G_FETCHING_INFO,
8951: p_token1 => G_REC_NAME_TOKEN,
8952: p_token1_value => 'OKL_K_LINES_V Record');
8945: -- To Get the kle top Line Record
8946: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
8947: l_update_klev_rec);
8948: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: OKL_API.set_message(p_app_name => G_APP_NAME,
8950: p_msg_name => G_FETCHING_INFO,
8951: p_token1 => G_REC_NAME_TOKEN,
8952: p_token1_value => 'OKL_K_LINES_V Record');
8953: RAISE G_EXCEPTION_HALT_VALIDATION;
8950: p_msg_name => G_FETCHING_INFO,
8951: p_token1 => G_REC_NAME_TOKEN,
8952: p_token1_value => 'OKL_K_LINES_V Record');
8953: RAISE G_EXCEPTION_HALT_VALIDATION;
8954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8955: OKL_API.set_message(p_app_name => G_APP_NAME,
8956: p_msg_name => G_FETCHING_INFO,
8957: p_token1 => G_REC_NAME_TOKEN,
8958: p_token1_value => 'OKL_K_LINES_V Record');
8951: p_token1 => G_REC_NAME_TOKEN,
8952: p_token1_value => 'OKL_K_LINES_V Record');
8953: RAISE G_EXCEPTION_HALT_VALIDATION;
8954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8955: OKL_API.set_message(p_app_name => G_APP_NAME,
8956: p_msg_name => G_FETCHING_INFO,
8957: p_token1 => G_REC_NAME_TOKEN,
8958: p_token1_value => 'OKL_K_LINES_V Record');
8959: RAISE G_EXCEPTION_HALT_VALIDATION;
8958: p_token1_value => 'OKL_K_LINES_V Record');
8959: RAISE G_EXCEPTION_HALT_VALIDATION;
8960: END IF;
8961: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
8962: OKL_API.set_message(p_app_name => G_APP_NAME,
8963: p_msg_name => G_LINE_RECORD);
8964: RAISE G_EXCEPTION_HALT_VALIDATION;
8965: END IF;
8966: l_update_klev_rec.oec := x_oec;
8972: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.oec,
8973: l_update_clev_rec.currency_code);
8974:
8975: IF (x_oec <> 0 AND l_update_klev_rec.oec = 0) THEN
8976: OKL_API.set_message(p_app_name => G_APP_NAME,
8977: p_msg_name => G_AMOUNT_ROUNDING,
8978: p_token1 => 'AMT',
8979: p_token1_value => to_char(x_oec));
8980: RAISE G_EXCEPTION_HALT_VALIDATION;
8993: p_klev_rec => l_update_klev_rec,
8994: x_clev_rec => x_fin_clev_rec,
8995: x_klev_rec => x_fin_klev_rec,
8996: p_validate_fin_line => p_validate_fin_line); -- 4414408
8997: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8998: RAISE G_EXCEPTION_HALT_VALIDATION;
8999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9000: RAISE G_EXCEPTION_HALT_VALIDATION;
9001: END IF;
8995: x_klev_rec => x_fin_klev_rec,
8996: p_validate_fin_line => p_validate_fin_line); -- 4414408
8997: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8998: RAISE G_EXCEPTION_HALT_VALIDATION;
8999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9000: RAISE G_EXCEPTION_HALT_VALIDATION;
9001: END IF;
9002: EXCEPTION
9003: WHEN G_EXCEPTION_STOP_VALIDATION then
9001: END IF;
9002: EXCEPTION
9003: WHEN G_EXCEPTION_STOP_VALIDATION then
9004: -- Notify Error
9005: x_return_status := OKL_API.G_RET_STS_ERROR;
9006: WHEN G_EXCEPTION_HALT_VALIDATION then
9007: -- If the cursor is open then it has to be closed
9008: -- 4414408
9009: -- IF c_model_top_line%ISOPEN THEN
9009: -- IF c_model_top_line%ISOPEN THEN
9010: -- CLOSE c_model_top_line;
9011: -- END IF;
9012: -- notify caller of an error
9013: x_return_status := OKL_API.G_RET_STS_ERROR;
9014: WHEN OTHERS THEN
9015: -- store SQL error message on message stack
9016: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9017: p_msg_name => G_UNEXPECTED_ERROR,
9012: -- notify caller of an error
9013: x_return_status := OKL_API.G_RET_STS_ERROR;
9014: WHEN OTHERS THEN
9015: -- store SQL error message on message stack
9016: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9017: p_msg_name => G_UNEXPECTED_ERROR,
9018: p_token1 => G_SQLCODE_TOKEN,
9019: p_token1_value => SQLCODE,
9020: p_token2 => G_SQLERRM_TOKEN,
9024: -- IF c_model_top_line%ISOPEN THEN
9025: -- CLOSE c_model_top_line;
9026: -- END IF;
9027: -- notify caller of an error as UNEXPETED error
9028: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9029: END oec_calc_upd_fin_rec;
9030: -----------------------------------------------------------------------------------
9031: -- Start of Commnets
9032: -- Badrinath Kuchibholta
9038: -- End of Commnets
9039:
9040: PROCEDURE cap_amt_calc_upd_fin_rec(
9041: p_api_version IN NUMBER,
9042: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9043: x_return_status OUT NOCOPY VARCHAR2,
9044: x_msg_count OUT NOCOPY NUMBER,
9045: x_msg_data OUT NOCOPY VARCHAR2,
9046: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9049: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9050: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9051: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9052: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9053: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9054:
9055: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9056: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9057: l_update_clev_rec clev_rec_type;
9080: */
9081:
9082: BEGIN
9083: -- initialize return status
9084: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9085: /*
9086: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
9087: p_dnz_chr_id => p_dnz_chr_id);
9088: FETCH c_model_top_line INTO ln_top_line_id;
9087: p_dnz_chr_id => p_dnz_chr_id);
9088: FETCH c_model_top_line INTO ln_top_line_id;
9089: -- #4414408 Moved the IF statement below fetch statement
9090: IF c_model_top_line%NOTFOUND THEN
9091: OKL_API.set_message(p_app_name => G_APP_NAME,
9092: p_msg_name => G_NO_MATCHING_RECORD,
9093: p_token1 => G_COL_NAME_TOKEN,
9094: p_token1_value => 'cle_id');
9095: RAISE G_EXCEPTION_HALT_VALIDATION;
9095: RAISE G_EXCEPTION_HALT_VALIDATION;
9096: END IF;
9097: -- #4414408 This condition will never be met
9098: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
9099: -- OKL_API.set_message(p_app_name => G_APP_NAME,
9100: -- p_msg_name => 'More than one',
9101: -- p_token1 => 'Model line',
9102: -- p_token1_value => 'cle_id');
9103: -- RAISE G_EXCEPTION_HALT_VALIDATION;
9118: p_contract_id => p_dnz_chr_id,
9119: p_line_id => p_top_line_id, -- 4414408
9120: x_value => x_cap_amt);
9121:
9122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9123: OKL_API.set_message(p_app_name => G_APP_NAME,
9124: p_msg_name => G_CALC_AMOUNT,
9125: p_token1 => G_AMT_TOKEN,
9126: p_token1_value => 'Capital Amount');
9119: p_line_id => p_top_line_id, -- 4414408
9120: x_value => x_cap_amt);
9121:
9122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9123: OKL_API.set_message(p_app_name => G_APP_NAME,
9124: p_msg_name => G_CALC_AMOUNT,
9125: p_token1 => G_AMT_TOKEN,
9126: p_token1_value => 'Capital Amount');
9127: RAISE G_EXCEPTION_HALT_VALIDATION;
9124: p_msg_name => G_CALC_AMOUNT,
9125: p_token1 => G_AMT_TOKEN,
9126: p_token1_value => 'Capital Amount');
9127: RAISE G_EXCEPTION_HALT_VALIDATION;
9128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9129: OKL_API.set_message(p_app_name => G_APP_NAME,
9130: p_msg_name => G_CALC_AMOUNT,
9131: p_token1 => G_AMT_TOKEN,
9132: p_token1_value => 'Capital Amount');
9125: p_token1 => G_AMT_TOKEN,
9126: p_token1_value => 'Capital Amount');
9127: RAISE G_EXCEPTION_HALT_VALIDATION;
9128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9129: OKL_API.set_message(p_app_name => G_APP_NAME,
9130: p_msg_name => G_CALC_AMOUNT,
9131: p_token1 => G_AMT_TOKEN,
9132: p_token1_value => 'Capital Amount');
9133: RAISE G_EXCEPTION_HALT_VALIDATION;
9135:
9136: -- To Get the cle top Line Record
9137: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9138: l_update_clev_rec);
9139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9140: OKL_API.set_message(p_app_name => G_APP_NAME,
9141: p_msg_name => G_FETCHING_INFO,
9142: p_token1 => G_REC_NAME_TOKEN,
9143: p_token1_value => 'OKC_K_LINES_V Record');
9136: -- To Get the cle top Line Record
9137: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9138: l_update_clev_rec);
9139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9140: OKL_API.set_message(p_app_name => G_APP_NAME,
9141: p_msg_name => G_FETCHING_INFO,
9142: p_token1 => G_REC_NAME_TOKEN,
9143: p_token1_value => 'OKC_K_LINES_V Record');
9144: RAISE G_EXCEPTION_HALT_VALIDATION;
9141: p_msg_name => G_FETCHING_INFO,
9142: p_token1 => G_REC_NAME_TOKEN,
9143: p_token1_value => 'OKC_K_LINES_V Record');
9144: RAISE G_EXCEPTION_HALT_VALIDATION;
9145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9146: OKL_API.set_message(p_app_name => G_APP_NAME,
9147: p_msg_name => G_FETCHING_INFO,
9148: p_token1 => G_REC_NAME_TOKEN,
9149: p_token1_value => 'OKC_K_LINES_V Record');
9142: p_token1 => G_REC_NAME_TOKEN,
9143: p_token1_value => 'OKC_K_LINES_V Record');
9144: RAISE G_EXCEPTION_HALT_VALIDATION;
9145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9146: OKL_API.set_message(p_app_name => G_APP_NAME,
9147: p_msg_name => G_FETCHING_INFO,
9148: p_token1 => G_REC_NAME_TOKEN,
9149: p_token1_value => 'OKC_K_LINES_V Record');
9150: RAISE G_EXCEPTION_HALT_VALIDATION;
9151: END IF;
9152: -- To Get the kle top Line Record
9153: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9154: l_update_klev_rec);
9155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9156: OKL_API.set_message(p_app_name => G_APP_NAME,
9157: p_msg_name => G_FETCHING_INFO,
9158: p_token1 => G_REC_NAME_TOKEN,
9159: p_token1_value => 'OKL_K_LINES_V Record');
9152: -- To Get the kle top Line Record
9153: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9154: l_update_klev_rec);
9155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9156: OKL_API.set_message(p_app_name => G_APP_NAME,
9157: p_msg_name => G_FETCHING_INFO,
9158: p_token1 => G_REC_NAME_TOKEN,
9159: p_token1_value => 'OKL_K_LINES_V Record');
9160: RAISE G_EXCEPTION_HALT_VALIDATION;
9157: p_msg_name => G_FETCHING_INFO,
9158: p_token1 => G_REC_NAME_TOKEN,
9159: p_token1_value => 'OKL_K_LINES_V Record');
9160: RAISE G_EXCEPTION_HALT_VALIDATION;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9162: OKL_API.set_message(p_app_name => G_APP_NAME,
9163: p_msg_name => G_FETCHING_INFO,
9164: p_token1 => G_REC_NAME_TOKEN,
9165: p_token1_value => 'OKL_K_LINES_V Record');
9158: p_token1 => G_REC_NAME_TOKEN,
9159: p_token1_value => 'OKL_K_LINES_V Record');
9160: RAISE G_EXCEPTION_HALT_VALIDATION;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9162: OKL_API.set_message(p_app_name => G_APP_NAME,
9163: p_msg_name => G_FETCHING_INFO,
9164: p_token1 => G_REC_NAME_TOKEN,
9165: p_token1_value => 'OKL_K_LINES_V Record');
9166: RAISE G_EXCEPTION_HALT_VALIDATION;
9165: p_token1_value => 'OKL_K_LINES_V Record');
9166: RAISE G_EXCEPTION_HALT_VALIDATION;
9167: END IF;
9168: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9169: OKL_API.set_message(p_app_name => G_APP_NAME,
9170: p_msg_name => G_LINE_RECORD);
9171: RAISE G_EXCEPTION_HALT_VALIDATION;
9172: END IF;
9173: l_update_klev_rec.capital_amount := x_cap_amt;
9179: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.capital_amount,
9180: l_update_clev_rec.currency_code);
9181:
9182: IF (x_cap_amt <> 0 AND l_update_klev_rec.capital_amount = 0) THEN
9183: OKL_API.set_message(p_app_name => G_APP_NAME,
9184: p_msg_name => G_AMOUNT_ROUNDING,
9185: p_token1 => 'AMT',
9186: p_token1_value => to_char(x_cap_amt));
9187: RAISE G_EXCEPTION_HALT_VALIDATION;
9200: p_klev_rec => l_update_klev_rec,
9201: x_clev_rec => x_fin_clev_rec,
9202: x_klev_rec => x_fin_klev_rec,
9203: p_validate_fin_line => p_validate_fin_line); -- 4414408
9204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9205: RAISE G_EXCEPTION_HALT_VALIDATION;
9206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9207: RAISE G_EXCEPTION_HALT_VALIDATION;
9208: END IF;
9202: x_klev_rec => x_fin_klev_rec,
9203: p_validate_fin_line => p_validate_fin_line); -- 4414408
9204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9205: RAISE G_EXCEPTION_HALT_VALIDATION;
9206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9207: RAISE G_EXCEPTION_HALT_VALIDATION;
9208: END IF;
9209: EXCEPTION
9210: WHEN G_EXCEPTION_STOP_VALIDATION then
9208: END IF;
9209: EXCEPTION
9210: WHEN G_EXCEPTION_STOP_VALIDATION then
9211: -- Notify Error
9212: x_return_status := OKL_API.G_RET_STS_ERROR;
9213: WHEN G_EXCEPTION_HALT_VALIDATION then
9214: -- If the cursor is open then it has to be closed
9215: -- IF c_model_top_line%ISOPEN THEN
9216: -- CLOSE c_model_top_line;
9215: -- IF c_model_top_line%ISOPEN THEN
9216: -- CLOSE c_model_top_line;
9217: -- END IF;
9218: -- notify caller of an error
9219: x_return_status := OKL_API.G_RET_STS_ERROR;
9220: WHEN OTHERS THEN
9221: -- store SQL error message on message stack
9222: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9223: p_msg_name => G_UNEXPECTED_ERROR,
9218: -- notify caller of an error
9219: x_return_status := OKL_API.G_RET_STS_ERROR;
9220: WHEN OTHERS THEN
9221: -- store SQL error message on message stack
9222: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9223: p_msg_name => G_UNEXPECTED_ERROR,
9224: p_token1 => G_SQLCODE_TOKEN,
9225: p_token1_value => SQLCODE,
9226: p_token2 => G_SQLERRM_TOKEN,
9229: -- IF c_model_top_line%ISOPEN THEN
9230: -- CLOSE c_model_top_line;
9231: -- END IF;
9232: -- notify caller of an error as UNEXPETED error
9233: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9234: END cap_amt_calc_upd_fin_rec;
9235: -----------------------------------------------------------------------------------
9236: -- Start of Commnets
9237: -- Badrinath Kuchibholta
9243: -- End of Commnets
9244:
9245: PROCEDURE res_value_calc_upd_fin_rec(
9246: p_api_version IN NUMBER,
9247: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9248: x_return_status OUT NOCOPY VARCHAR2,
9249: x_msg_count OUT NOCOPY NUMBER,
9250: x_msg_data OUT NOCOPY VARCHAR2,
9251: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9254: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9255: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9256: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9257: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9258: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9259:
9260: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9261: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9262: l_update_clev_rec clev_rec_type;
9284: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
9285: */
9286: BEGIN
9287: -- initialize return status
9288: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9289: /*
9290: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
9291: p_dnz_chr_id => p_dnz_chr_id);
9292: FETCH c_model_top_line INTO ln_top_line_id;
9291: p_dnz_chr_id => p_dnz_chr_id);
9292: FETCH c_model_top_line INTO ln_top_line_id;
9293: -- #4414408 Moved the IF statement below fetch statement
9294: IF c_model_top_line%NOTFOUND THEN
9295: OKL_API.set_message(p_app_name => G_APP_NAME,
9296: p_msg_name => G_NO_MATCHING_RECORD,
9297: p_token1 => G_COL_NAME_TOKEN,
9298: p_token1_value => 'cle_id');
9299: RAISE G_EXCEPTION_HALT_VALIDATION;
9299: RAISE G_EXCEPTION_HALT_VALIDATION;
9300: END IF;
9301: -- #4414408 This condition will never be met
9302: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
9303: -- OKL_API.set_message(p_app_name => G_APP_NAME,
9304: -- p_msg_name => 'More than one',
9305: -- p_token1 => 'Model line',
9306: -- p_token1_value => 'cle_id');
9307: -- RAISE G_EXCEPTION_HALT_VALIDATION;
9322: p_formula_name => G_FORMULA_RES,
9323: p_contract_id => p_dnz_chr_id,
9324: p_line_id => p_top_line_id, -- 4414408
9325: x_value => x_res_value);
9326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9327: OKL_API.set_message(p_app_name => G_APP_NAME,
9328: p_msg_name => G_CALC_AMOUNT,
9329: p_token1 => G_AMT_TOKEN,
9330: p_token1_value => 'Residual Value');
9323: p_contract_id => p_dnz_chr_id,
9324: p_line_id => p_top_line_id, -- 4414408
9325: x_value => x_res_value);
9326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9327: OKL_API.set_message(p_app_name => G_APP_NAME,
9328: p_msg_name => G_CALC_AMOUNT,
9329: p_token1 => G_AMT_TOKEN,
9330: p_token1_value => 'Residual Value');
9331: RAISE G_EXCEPTION_HALT_VALIDATION;
9328: p_msg_name => G_CALC_AMOUNT,
9329: p_token1 => G_AMT_TOKEN,
9330: p_token1_value => 'Residual Value');
9331: RAISE G_EXCEPTION_HALT_VALIDATION;
9332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9333: OKL_API.set_message(p_app_name => G_APP_NAME,
9334: p_msg_name => G_CALC_AMOUNT,
9335: p_token1 => G_AMT_TOKEN,
9336: p_token1_value => 'Residual Value');
9329: p_token1 => G_AMT_TOKEN,
9330: p_token1_value => 'Residual Value');
9331: RAISE G_EXCEPTION_HALT_VALIDATION;
9332: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9333: OKL_API.set_message(p_app_name => G_APP_NAME,
9334: p_msg_name => G_CALC_AMOUNT,
9335: p_token1 => G_AMT_TOKEN,
9336: p_token1_value => 'Residual Value');
9337: RAISE G_EXCEPTION_HALT_VALIDATION;
9338: END IF;
9339: -- To Get the cle top Line Record
9340: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9341: l_update_clev_rec);
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: OKL_API.set_message(p_app_name => G_APP_NAME,
9344: p_msg_name => G_FETCHING_INFO,
9345: p_token1 => G_REC_NAME_TOKEN,
9346: p_token1_value => 'OKC_K_LINES_V Record');
9339: -- To Get the cle top Line Record
9340: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9341: l_update_clev_rec);
9342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9343: OKL_API.set_message(p_app_name => G_APP_NAME,
9344: p_msg_name => G_FETCHING_INFO,
9345: p_token1 => G_REC_NAME_TOKEN,
9346: p_token1_value => 'OKC_K_LINES_V Record');
9347: RAISE G_EXCEPTION_HALT_VALIDATION;
9344: p_msg_name => G_FETCHING_INFO,
9345: p_token1 => G_REC_NAME_TOKEN,
9346: p_token1_value => 'OKC_K_LINES_V Record');
9347: RAISE G_EXCEPTION_HALT_VALIDATION;
9348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9349: OKL_API.set_message(p_app_name => G_APP_NAME,
9350: p_msg_name => G_FETCHING_INFO,
9351: p_token1 => G_REC_NAME_TOKEN,
9352: p_token1_value => 'OKC_K_LINES_V Record');
9345: p_token1 => G_REC_NAME_TOKEN,
9346: p_token1_value => 'OKC_K_LINES_V Record');
9347: RAISE G_EXCEPTION_HALT_VALIDATION;
9348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9349: OKL_API.set_message(p_app_name => G_APP_NAME,
9350: p_msg_name => G_FETCHING_INFO,
9351: p_token1 => G_REC_NAME_TOKEN,
9352: p_token1_value => 'OKC_K_LINES_V Record');
9353: RAISE G_EXCEPTION_HALT_VALIDATION;
9354: END IF;
9355: -- To Get the kle top Line Record
9356: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9357: l_update_klev_rec);
9358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9359: OKL_API.set_message(p_app_name => G_APP_NAME,
9360: p_msg_name => G_FETCHING_INFO,
9361: p_token1 => G_REC_NAME_TOKEN,
9362: p_token1_value => 'OKL_K_LINES_V Record');
9355: -- To Get the kle top Line Record
9356: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9357: l_update_klev_rec);
9358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9359: OKL_API.set_message(p_app_name => G_APP_NAME,
9360: p_msg_name => G_FETCHING_INFO,
9361: p_token1 => G_REC_NAME_TOKEN,
9362: p_token1_value => 'OKL_K_LINES_V Record');
9363: RAISE G_EXCEPTION_HALT_VALIDATION;
9360: p_msg_name => G_FETCHING_INFO,
9361: p_token1 => G_REC_NAME_TOKEN,
9362: p_token1_value => 'OKL_K_LINES_V Record');
9363: RAISE G_EXCEPTION_HALT_VALIDATION;
9364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9365: OKL_API.set_message(p_app_name => G_APP_NAME,
9366: p_msg_name => G_FETCHING_INFO,
9367: p_token1 => G_REC_NAME_TOKEN,
9368: p_token1_value => 'OKL_K_LINES_V Record');
9361: p_token1 => G_REC_NAME_TOKEN,
9362: p_token1_value => 'OKL_K_LINES_V Record');
9363: RAISE G_EXCEPTION_HALT_VALIDATION;
9364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9365: OKL_API.set_message(p_app_name => G_APP_NAME,
9366: p_msg_name => G_FETCHING_INFO,
9367: p_token1 => G_REC_NAME_TOKEN,
9368: p_token1_value => 'OKL_K_LINES_V Record');
9369: RAISE G_EXCEPTION_HALT_VALIDATION;
9368: p_token1_value => 'OKL_K_LINES_V Record');
9369: RAISE G_EXCEPTION_HALT_VALIDATION;
9370: END IF;
9371: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9372: OKL_API.set_message(p_app_name => G_APP_NAME,
9373: p_msg_name => G_LINE_RECORD);
9374: RAISE G_EXCEPTION_HALT_VALIDATION;
9375: END IF;
9376: -- commented for multi currency requirement. No need to round the value, as
9385: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.residual_value,
9386: l_update_clev_rec.currency_code);
9387:
9388: IF (x_res_value <> 0 AND l_update_klev_rec.residual_value = 0) THEN
9389: OKL_API.set_message(p_app_name => G_APP_NAME,
9390: p_msg_name => G_AMOUNT_ROUNDING,
9391: p_token1 => 'AMT',
9392: p_token1_value => to_char(x_res_value));
9393: RAISE G_EXCEPTION_HALT_VALIDATION;
9406: p_klev_rec => l_update_klev_rec,
9407: x_clev_rec => x_fin_clev_rec,
9408: x_klev_rec => x_fin_klev_rec,
9409: p_validate_fin_line => p_validate_fin_line); -- 4414408
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE G_EXCEPTION_HALT_VALIDATION;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE G_EXCEPTION_HALT_VALIDATION;
9414: END IF;
9408: x_klev_rec => x_fin_klev_rec,
9409: p_validate_fin_line => p_validate_fin_line); -- 4414408
9410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9411: RAISE G_EXCEPTION_HALT_VALIDATION;
9412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9413: RAISE G_EXCEPTION_HALT_VALIDATION;
9414: END IF;
9415: EXCEPTION
9416: WHEN G_EXCEPTION_STOP_VALIDATION then
9414: END IF;
9415: EXCEPTION
9416: WHEN G_EXCEPTION_STOP_VALIDATION then
9417: -- Notify Error
9418: x_return_status := OKL_API.G_RET_STS_ERROR;
9419: WHEN G_EXCEPTION_HALT_VALIDATION then
9420: -- If the cursor is open then it has to be closed
9421: -- IF c_model_top_line%ISOPEN THEN
9422: -- CLOSE c_model_top_line;
9421: -- IF c_model_top_line%ISOPEN THEN
9422: -- CLOSE c_model_top_line;
9423: -- END IF;
9424: -- notify caller of an error
9425: x_return_status := OKL_API.G_RET_STS_ERROR;
9426: WHEN OTHERS THEN
9427: -- store SQL error message on message stack
9428: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9429: p_msg_name => G_UNEXPECTED_ERROR,
9424: -- notify caller of an error
9425: x_return_status := OKL_API.G_RET_STS_ERROR;
9426: WHEN OTHERS THEN
9427: -- store SQL error message on message stack
9428: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9429: p_msg_name => G_UNEXPECTED_ERROR,
9430: p_token1 => G_SQLCODE_TOKEN,
9431: p_token1_value => SQLCODE,
9432: p_token2 => G_SQLERRM_TOKEN,
9435: -- IF c_model_top_line%ISOPEN THEN
9436: -- CLOSE c_model_top_line;
9437: -- END IF;
9438: -- notify caller of an error as UNEXPETED error
9439: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9440: END res_value_calc_upd_fin_rec;
9441:
9442: -----------------------------------------------------------------------------------
9443: -- Start of Commnets
9450: -- End of Commnets
9451:
9452: PROCEDURE get_res_per_upd_fin_rec(
9453: p_api_version IN NUMBER,
9454: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9455: x_return_status OUT NOCOPY VARCHAR2,
9456: x_msg_count OUT NOCOPY NUMBER,
9457: x_msg_data OUT NOCOPY VARCHAR2,
9458: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9462: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9463: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9464: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9465: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9466: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9467:
9468: ln_res_per OKL_K_LINES_V.RESIDUAL_PERCENTAGE%TYPE := 0;
9469: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9470: l_update_clev_rec clev_rec_type;
9471: l_update_klev_rec klev_rec_type;
9472:
9473: BEGIN
9474: -- initialize return status
9475: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9476:
9477: IF (p_dnz_chr_id IS NULL OR
9478: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9479: (p_top_line_id IS NULL OR
9474: -- initialize return status
9475: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9476:
9477: IF (p_dnz_chr_id IS NULL OR
9478: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9479: (p_top_line_id IS NULL OR
9480: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9481: OKL_API.set_message(p_app_name => G_APP_NAME,
9482: p_msg_name => G_REQUIRED_VALUE,
9476:
9477: IF (p_dnz_chr_id IS NULL OR
9478: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9479: (p_top_line_id IS NULL OR
9480: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9481: OKL_API.set_message(p_app_name => G_APP_NAME,
9482: p_msg_name => G_REQUIRED_VALUE,
9483: p_token1 => G_COL_NAME_TOKEN,
9484: p_token1_value => 'Chr_id,top_line');
9477: IF (p_dnz_chr_id IS NULL OR
9478: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9479: (p_top_line_id IS NULL OR
9480: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9481: OKL_API.set_message(p_app_name => G_APP_NAME,
9482: p_msg_name => G_REQUIRED_VALUE,
9483: p_token1 => G_COL_NAME_TOKEN,
9484: p_token1_value => 'Chr_id,top_line');
9485: RAISE G_EXCEPTION_STOP_VALIDATION;
9487: -- gboomina bug 6139003 - Start
9488: -- Modified this condition to calculate residual percent
9489: -- only for valid values
9490: IF (p_oec IS NOT NULL AND
9491: p_oec <> OKL_API.G_MISS_NUM) AND
9492: (p_res_value IS NOT NULL AND
9493: p_res_value <> OKL_API.G_MISS_NUM) THEN
9494: -- gboomina bug 6139003 - End
9495: --Bug# 4631549
9489: -- only for valid values
9490: IF (p_oec IS NOT NULL AND
9491: p_oec <> OKL_API.G_MISS_NUM) AND
9492: (p_res_value IS NOT NULL AND
9493: p_res_value <> OKL_API.G_MISS_NUM) THEN
9494: -- gboomina bug 6139003 - End
9495: --Bug# 4631549
9496: If p_oec = 0 then
9497: ln_res_per := 0;
9501: END IF;
9502: -- To Get the cle top Line Record
9503: x_return_status := get_rec_clev(p_top_line_id,
9504: l_update_clev_rec);
9505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9506: OKL_API.set_message(p_app_name => G_APP_NAME,
9507: p_msg_name => G_FETCHING_INFO,
9508: p_token1 => G_REC_NAME_TOKEN,
9509: p_token1_value => 'OKC_K_LINES_V Record');
9502: -- To Get the cle top Line Record
9503: x_return_status := get_rec_clev(p_top_line_id,
9504: l_update_clev_rec);
9505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9506: OKL_API.set_message(p_app_name => G_APP_NAME,
9507: p_msg_name => G_FETCHING_INFO,
9508: p_token1 => G_REC_NAME_TOKEN,
9509: p_token1_value => 'OKC_K_LINES_V Record');
9510: RAISE G_EXCEPTION_HALT_VALIDATION;
9507: p_msg_name => G_FETCHING_INFO,
9508: p_token1 => G_REC_NAME_TOKEN,
9509: p_token1_value => 'OKC_K_LINES_V Record');
9510: RAISE G_EXCEPTION_HALT_VALIDATION;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: OKL_API.set_message(p_app_name => G_APP_NAME,
9513: p_msg_name => G_FETCHING_INFO,
9514: p_token1 => G_REC_NAME_TOKEN,
9515: p_token1_value => 'OKC_K_LINES_V Record');
9508: p_token1 => G_REC_NAME_TOKEN,
9509: p_token1_value => 'OKC_K_LINES_V Record');
9510: RAISE G_EXCEPTION_HALT_VALIDATION;
9511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9512: OKL_API.set_message(p_app_name => G_APP_NAME,
9513: p_msg_name => G_FETCHING_INFO,
9514: p_token1 => G_REC_NAME_TOKEN,
9515: p_token1_value => 'OKC_K_LINES_V Record');
9516: RAISE G_EXCEPTION_HALT_VALIDATION;
9517: END IF;
9518: -- To Get the kle top Line Record
9519: x_return_status := get_rec_klev(p_top_line_id,
9520: l_update_klev_rec);
9521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9522: OKL_API.set_message(p_app_name => G_APP_NAME,
9523: p_msg_name => G_FETCHING_INFO,
9524: p_token1 => G_REC_NAME_TOKEN,
9525: p_token1_value => 'OKL_K_LINES_V Record');
9518: -- To Get the kle top Line Record
9519: x_return_status := get_rec_klev(p_top_line_id,
9520: l_update_klev_rec);
9521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9522: OKL_API.set_message(p_app_name => G_APP_NAME,
9523: p_msg_name => G_FETCHING_INFO,
9524: p_token1 => G_REC_NAME_TOKEN,
9525: p_token1_value => 'OKL_K_LINES_V Record');
9526: RAISE G_EXCEPTION_HALT_VALIDATION;
9523: p_msg_name => G_FETCHING_INFO,
9524: p_token1 => G_REC_NAME_TOKEN,
9525: p_token1_value => 'OKL_K_LINES_V Record');
9526: RAISE G_EXCEPTION_HALT_VALIDATION;
9527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9528: OKL_API.set_message(p_app_name => G_APP_NAME,
9529: p_msg_name => G_FETCHING_INFO,
9530: p_token1 => G_REC_NAME_TOKEN,
9531: p_token1_value => 'OKL_K_LINES_V Record');
9524: p_token1 => G_REC_NAME_TOKEN,
9525: p_token1_value => 'OKL_K_LINES_V Record');
9526: RAISE G_EXCEPTION_HALT_VALIDATION;
9527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9528: OKL_API.set_message(p_app_name => G_APP_NAME,
9529: p_msg_name => G_FETCHING_INFO,
9530: p_token1 => G_REC_NAME_TOKEN,
9531: p_token1_value => 'OKL_K_LINES_V Record');
9532: RAISE G_EXCEPTION_HALT_VALIDATION;
9531: p_token1_value => 'OKL_K_LINES_V Record');
9532: RAISE G_EXCEPTION_HALT_VALIDATION;
9533: END IF;
9534: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9535: OKL_API.set_message(p_app_name => G_APP_NAME,
9536: p_msg_name => G_LINE_RECORD);
9537: RAISE G_EXCEPTION_HALT_VALIDATION;
9538: END IF;
9539: l_update_klev_rec.residual_percentage := ln_res_per;
9548: p_klev_rec => l_update_klev_rec,
9549: x_clev_rec => x_fin_clev_rec,
9550: x_klev_rec => x_fin_klev_rec,
9551: p_validate_fin_line => p_validate_fin_line); -- 4414408
9552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9553: RAISE G_EXCEPTION_HALT_VALIDATION;
9554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9555: RAISE G_EXCEPTION_HALT_VALIDATION;
9556: END IF;
9550: x_klev_rec => x_fin_klev_rec,
9551: p_validate_fin_line => p_validate_fin_line); -- 4414408
9552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9553: RAISE G_EXCEPTION_HALT_VALIDATION;
9554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9555: RAISE G_EXCEPTION_HALT_VALIDATION;
9556: END IF;
9557: EXCEPTION
9558: WHEN G_EXCEPTION_STOP_VALIDATION then
9556: END IF;
9557: EXCEPTION
9558: WHEN G_EXCEPTION_STOP_VALIDATION then
9559: -- Notify Error
9560: x_return_status := OKL_API.G_RET_STS_ERROR;
9561: WHEN G_EXCEPTION_HALT_VALIDATION then
9562: -- notify caller of an error
9563: x_return_status := OKL_API.G_RET_STS_ERROR;
9564: WHEN OTHERS THEN
9559: -- Notify Error
9560: x_return_status := OKL_API.G_RET_STS_ERROR;
9561: WHEN G_EXCEPTION_HALT_VALIDATION then
9562: -- notify caller of an error
9563: x_return_status := OKL_API.G_RET_STS_ERROR;
9564: WHEN OTHERS THEN
9565: -- store SQL error message on message stack
9566: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9567: p_msg_name => G_UNEXPECTED_ERROR,
9562: -- notify caller of an error
9563: x_return_status := OKL_API.G_RET_STS_ERROR;
9564: WHEN OTHERS THEN
9565: -- store SQL error message on message stack
9566: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9567: p_msg_name => G_UNEXPECTED_ERROR,
9568: p_token1 => G_SQLCODE_TOKEN,
9569: p_token1_value => SQLCODE,
9570: p_token2 => G_SQLERRM_TOKEN,
9569: p_token1_value => SQLCODE,
9570: p_token2 => G_SQLERRM_TOKEN,
9571: p_token2_value => SQLERRM);
9572: -- notify caller of an error as UNEXPETED error
9573: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9574: END get_res_per_upd_fin_rec;
9575: -------------------------------------------------------------------------------------------------------
9576: ----------------------------- Main Process for Creation of model Line -----------------------------------
9577: -------------------------------------------------------------------------------------------------------
9576: ----------------------------- Main Process for Creation of model Line -----------------------------------
9577: -------------------------------------------------------------------------------------------------------
9578: PROCEDURE create_model_line(
9579: p_api_version IN NUMBER,
9580: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9581: x_return_status OUT NOCOPY VARCHAR2,
9582: x_msg_count OUT NOCOPY NUMBER,
9583: x_msg_data OUT NOCOPY VARCHAR2,
9584: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9595: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
9596: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
9597: l_update_clev_rec clev_rec_type;
9598: l_update_klev_rec klev_rec_type;
9599: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
9600: l_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
9601:
9602: BEGIN
9603: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9599: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
9600: l_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
9601:
9602: BEGIN
9603: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9604: -- Call start_activity to create savepoint, check compatibility
9605: -- and initialize message list
9606: x_return_status := OKL_API.START_ACTIVITY (
9607: l_api_name
9602: BEGIN
9603: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9604: -- Call start_activity to create savepoint, check compatibility
9605: -- and initialize message list
9606: x_return_status := OKL_API.START_ACTIVITY (
9607: l_api_name
9608: ,p_init_msg_list
9609: ,'_PVT'
9610: ,x_return_status);
9608: ,p_init_msg_list
9609: ,'_PVT'
9610: ,x_return_status);
9611: -- Check if activity started successfully
9612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9615: RAISE OKL_API.G_EXCEPTION_ERROR;
9616: END IF;
9609: ,'_PVT'
9610: ,x_return_status);
9611: -- Check if activity started successfully
9612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9615: RAISE OKL_API.G_EXCEPTION_ERROR;
9616: END IF;
9617: -- 4414408 The validation is now performed in create_all_line procedure
9610: ,x_return_status);
9611: -- Check if activity started successfully
9612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9615: RAISE OKL_API.G_EXCEPTION_ERROR;
9616: END IF;
9617: -- 4414408 The validation is now performed in create_all_line procedure
9618: /*
9611: -- Check if activity started successfully
9612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9615: RAISE OKL_API.G_EXCEPTION_ERROR;
9616: END IF;
9617: -- 4414408 The validation is now performed in create_all_line procedure
9618: /*
9619: -- To Check We Got the Valid info
9617: -- 4414408 The validation is now performed in create_all_line procedure
9618: /*
9619: -- To Check We Got the Valid info
9620: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9621: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9622: UPPER(p_new_yn) IS NULL) THEN
9623: OKL_API.set_message(p_app_name => G_APP_NAME,
9624: p_msg_name => G_INVALID_YN,
9625: p_token1 => G_COL_NAME_TOKEN,
9619: -- To Check We Got the Valid info
9620: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9621: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9622: UPPER(p_new_yn) IS NULL) THEN
9623: OKL_API.set_message(p_app_name => G_APP_NAME,
9624: p_msg_name => G_INVALID_YN,
9625: p_token1 => G_COL_NAME_TOKEN,
9626: p_token1_value => 'p_new_yn');
9627: -- Halt Validation
9624: p_msg_name => G_INVALID_YN,
9625: p_token1 => G_COL_NAME_TOKEN,
9626: p_token1_value => 'p_new_yn');
9627: -- Halt Validation
9628: RAISE OKL_API.G_EXCEPTION_ERROR;
9629: END IF;
9630: -- Validate to see if the asset_number given is not null
9631: -- and also Validate asset_number does not exists
9632: -- in OKL_TXL_ASSETS_V
9634: validate_new_asset_number(x_return_status => x_return_status,
9635: p_asset_number => p_asset_number,
9636: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9637: -- Check if activity started successfully
9638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9641: RAISE OKL_API.G_EXCEPTION_ERROR;
9642: END IF;
9635: p_asset_number => p_asset_number,
9636: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9637: -- Check if activity started successfully
9638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9641: RAISE OKL_API.G_EXCEPTION_ERROR;
9642: END IF;
9643: ELSE
9636: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9637: -- Check if activity started successfully
9638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9641: RAISE OKL_API.G_EXCEPTION_ERROR;
9642: END IF;
9643: ELSE
9644: validate_new_asset_number(x_return_status => x_return_status,
9637: -- Check if activity started successfully
9638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9640: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9641: RAISE OKL_API.G_EXCEPTION_ERROR;
9642: END IF;
9643: ELSE
9644: validate_new_asset_number(x_return_status => x_return_status,
9645: p_asset_number => p_asset_number,
9644: validate_new_asset_number(x_return_status => x_return_status,
9645: p_asset_number => p_asset_number,
9646: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9647: -- Check if activity ended successfully
9648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9651: RAISE OKL_API.G_EXCEPTION_ERROR;
9652: END IF;
9645: p_asset_number => p_asset_number,
9646: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9647: -- Check if activity ended successfully
9648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9651: RAISE OKL_API.G_EXCEPTION_ERROR;
9652: END IF;
9653: END IF;
9646: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9647: -- Check if activity ended successfully
9648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9651: RAISE OKL_API.G_EXCEPTION_ERROR;
9652: END IF;
9653: END IF;
9654: */
9647: -- Check if activity ended successfully
9648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9651: RAISE OKL_API.G_EXCEPTION_ERROR;
9652: END IF;
9653: END IF;
9654: */
9655: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
9660: x_return_status => x_return_status,
9661: x_lty_code => l_lty_code,
9662: x_lse_type => l_lse_type);
9663: -- Check if activity started successfully
9664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9666: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9667: RAISE OKL_API.G_EXCEPTION_ERROR;
9668: END IF;
9661: x_lty_code => l_lty_code,
9662: x_lse_type => l_lse_type);
9663: -- Check if activity started successfully
9664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9666: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9667: RAISE OKL_API.G_EXCEPTION_ERROR;
9668: END IF;
9669: -- Validate the Dnz_Chr_id
9662: x_lse_type => l_lse_type);
9663: -- Check if activity started successfully
9664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9666: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9667: RAISE OKL_API.G_EXCEPTION_ERROR;
9668: END IF;
9669: -- Validate the Dnz_Chr_id
9670: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9663: -- Check if activity started successfully
9664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9665: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9666: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9667: RAISE OKL_API.G_EXCEPTION_ERROR;
9668: END IF;
9669: -- Validate the Dnz_Chr_id
9670: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9671: x_return_status => x_return_status);
9669: -- Validate the Dnz_Chr_id
9670: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9671: x_return_status => x_return_status);
9672: -- Check if activity started successfully
9673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9676: RAISE OKL_API.G_EXCEPTION_ERROR;
9677: END IF;
9670: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9671: x_return_status => x_return_status);
9672: -- Check if activity started successfully
9673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9676: RAISE OKL_API.G_EXCEPTION_ERROR;
9677: END IF;
9678: */
9671: x_return_status => x_return_status);
9672: -- Check if activity started successfully
9673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9676: RAISE OKL_API.G_EXCEPTION_ERROR;
9677: END IF;
9678: */
9679: -- We have to Populate the Model Line Record
9672: -- Check if activity started successfully
9673: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9676: RAISE OKL_API.G_EXCEPTION_ERROR;
9677: END IF;
9678: */
9679: -- We have to Populate the Model Line Record
9680: l_clev_rec := p_clev_rec;
9681: -- Now we are Creating Model Line
9682: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
9683: -- The Record Should have the cle_id
9684: -- if the given line style is Model Line
9685: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9686: l_clev_rec.chr_id IS NULL) AND
9687: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9688: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9689: (l_clev_rec.cle_id IS NOT NULL OR
9684: -- if the given line style is Model Line
9685: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9686: l_clev_rec.chr_id IS NULL) AND
9687: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9688: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9689: (l_clev_rec.cle_id IS NOT NULL OR
9690: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9691: -- #414408
9692: -- l_lty_code = G_MODEL_LINE_LTY_CODE AND
9686: l_clev_rec.chr_id IS NULL) AND
9687: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9688: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9689: (l_clev_rec.cle_id IS NOT NULL OR
9690: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9691: -- #414408
9692: -- l_lty_code = G_MODEL_LINE_LTY_CODE AND
9693: -- l_lse_type = G_SLS_TYPE THEN
9694: l_clev_rec.lse_id = G_MODEL_LINE_LTY_ID THEN
9704: p_cimv_rec => p_cimv_rec,
9705: x_clev_rec => x_clev_rec,
9706: x_klev_rec => x_klev_rec,
9707: x_cimv_rec => x_cimv_rec);
9708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9711: RAISE OKL_API.G_EXCEPTION_ERROR;
9712: END IF;
9705: x_clev_rec => x_clev_rec,
9706: x_klev_rec => x_klev_rec,
9707: x_cimv_rec => x_cimv_rec);
9708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9711: RAISE OKL_API.G_EXCEPTION_ERROR;
9712: END IF;
9713: ELSE
9706: x_klev_rec => x_klev_rec,
9707: x_cimv_rec => x_cimv_rec);
9708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9711: RAISE OKL_API.G_EXCEPTION_ERROR;
9712: END IF;
9713: ELSE
9714: OKL_API.set_message(p_app_name => G_APP_NAME,
9707: x_cimv_rec => x_cimv_rec);
9708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9711: RAISE OKL_API.G_EXCEPTION_ERROR;
9712: END IF;
9713: ELSE
9714: OKL_API.set_message(p_app_name => G_APP_NAME,
9715: p_msg_name => G_INVALID_CRITERIA,
9710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9711: RAISE OKL_API.G_EXCEPTION_ERROR;
9712: END IF;
9713: ELSE
9714: OKL_API.set_message(p_app_name => G_APP_NAME,
9715: p_msg_name => G_INVALID_CRITERIA,
9716: p_token1 => G_COL_NAME_TOKEN,
9717: p_token1_value => 'Model Asset line');
9718: x_return_status := OKL_API.G_RET_STS_ERROR;
9714: OKL_API.set_message(p_app_name => G_APP_NAME,
9715: p_msg_name => G_INVALID_CRITERIA,
9716: p_token1 => G_COL_NAME_TOKEN,
9717: p_token1_value => 'Model Asset line');
9718: x_return_status := OKL_API.G_RET_STS_ERROR;
9719: RAISE OKL_API.G_EXCEPTION_ERROR;
9720: END IF;
9721: OKL_API.END_ACTIVITY (x_msg_count,
9722: x_msg_data );
9715: p_msg_name => G_INVALID_CRITERIA,
9716: p_token1 => G_COL_NAME_TOKEN,
9717: p_token1_value => 'Model Asset line');
9718: x_return_status := OKL_API.G_RET_STS_ERROR;
9719: RAISE OKL_API.G_EXCEPTION_ERROR;
9720: END IF;
9721: OKL_API.END_ACTIVITY (x_msg_count,
9722: x_msg_data );
9723: EXCEPTION
9717: p_token1_value => 'Model Asset line');
9718: x_return_status := OKL_API.G_RET_STS_ERROR;
9719: RAISE OKL_API.G_EXCEPTION_ERROR;
9720: END IF;
9721: OKL_API.END_ACTIVITY (x_msg_count,
9722: x_msg_data );
9723: EXCEPTION
9724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9720: END IF;
9721: OKL_API.END_ACTIVITY (x_msg_count,
9722: x_msg_data );
9723: EXCEPTION
9724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9726: l_api_name,
9727: G_PKG_NAME,
9728: 'OKL_API.G_RET_STS_ERROR',
9721: OKL_API.END_ACTIVITY (x_msg_count,
9722: x_msg_data );
9723: EXCEPTION
9724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9726: l_api_name,
9727: G_PKG_NAME,
9728: 'OKL_API.G_RET_STS_ERROR',
9729: x_msg_count,
9724: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9725: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9726: l_api_name,
9727: G_PKG_NAME,
9728: 'OKL_API.G_RET_STS_ERROR',
9729: x_msg_count,
9730: x_msg_data,
9731: '_PVT');
9732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9728: 'OKL_API.G_RET_STS_ERROR',
9729: x_msg_count,
9730: x_msg_data,
9731: '_PVT');
9732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9734: l_api_name,
9735: G_PKG_NAME,
9736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9729: x_msg_count,
9730: x_msg_data,
9731: '_PVT');
9732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9734: l_api_name,
9735: G_PKG_NAME,
9736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9737: x_msg_count,
9732: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9734: l_api_name,
9735: G_PKG_NAME,
9736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9737: x_msg_count,
9738: x_msg_data,
9739: '_PVT');
9740: WHEN OTHERS THEN
9737: x_msg_count,
9738: x_msg_data,
9739: '_PVT');
9740: WHEN OTHERS THEN
9741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9742: l_api_name,
9743: G_PKG_NAME,
9744: 'OTHERS',
9745: x_msg_count,
9750: ----------------------------- Main Process for update of model Line -----------------------------------
9751: -------------------------------------------------------------------------------------------------------
9752: PROCEDURE Update_model_line(
9753: p_api_version IN NUMBER,
9754: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9755: x_return_status OUT NOCOPY VARCHAR2,
9756: x_msg_count OUT NOCOPY NUMBER,
9757: x_msg_data OUT NOCOPY VARCHAR2,
9758: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9787: AND lse2.id = stl.lse_id
9788: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
9789:
9790: BEGIN
9791: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9792: -- Call start_activity to create savepoint, check compatibility
9793: -- and initialize message list
9794: x_return_status := OKL_API.START_ACTIVITY (
9795: l_api_name
9790: BEGIN
9791: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9792: -- Call start_activity to create savepoint, check compatibility
9793: -- and initialize message list
9794: x_return_status := OKL_API.START_ACTIVITY (
9795: l_api_name
9796: ,p_init_msg_list
9797: ,'_PVT'
9798: ,x_return_status);
9796: ,p_init_msg_list
9797: ,'_PVT'
9798: ,x_return_status);
9799: -- Check if activity started successfully
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9797: ,'_PVT'
9798: ,x_return_status);
9799: -- Check if activity started successfully
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9798: ,x_return_status);
9799: -- Check if activity started successfully
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9806: x_return_status => x_return_status);
9799: -- Check if activity started successfully
9800: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9802: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9806: x_return_status => x_return_status);
9807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9803: RAISE OKL_API.G_EXCEPTION_ERROR;
9804: END IF;
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9806: x_return_status => x_return_status);
9807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9810: RAISE OKL_API.G_EXCEPTION_ERROR;
9811: END IF;
9804: END IF;
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9806: x_return_status => x_return_status);
9807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9810: RAISE OKL_API.G_EXCEPTION_ERROR;
9811: END IF;
9812: -- To get the fixed asset line asset to see
9805: validate_sts_code(p_clev_rec => p_clev_rec,
9806: x_return_status => x_return_status);
9807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9810: RAISE OKL_API.G_EXCEPTION_ERROR;
9811: END IF;
9812: -- To get the fixed asset line asset to see
9813: -- the asset number does not duplicate
9806: x_return_status => x_return_status);
9807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9810: RAISE OKL_API.G_EXCEPTION_ERROR;
9811: END IF;
9812: -- To get the fixed asset line asset to see
9813: -- the asset number does not duplicate
9814: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
9813: -- the asset number does not duplicate
9814: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
9815: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9816: IF get_fa_id%NOTFOUND THEN
9817: OKL_API.set_message(p_app_name => G_APP_NAME,
9818: p_msg_name => G_LINE_RECORD);
9819: RAISE OKL_API.G_EXCEPTION_ERROR;
9820: END IF;
9821: FETCH get_fa_id INTO ln_fa_id;
9815: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9816: IF get_fa_id%NOTFOUND THEN
9817: OKL_API.set_message(p_app_name => G_APP_NAME,
9818: p_msg_name => G_LINE_RECORD);
9819: RAISE OKL_API.G_EXCEPTION_ERROR;
9820: END IF;
9821: FETCH get_fa_id INTO ln_fa_id;
9822: CLOSE get_fa_id;
9823:
9822: CLOSE get_fa_id;
9823:
9824: -- To Check We Got the Valid info
9825: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9826: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9827: UPPER(p_new_yn) IS NULL) THEN
9828: OKL_API.set_message(p_app_name => G_APP_NAME,
9829: p_msg_name => G_INVALID_YN,
9830: p_token1 => G_COL_NAME_TOKEN,
9824: -- To Check We Got the Valid info
9825: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9826: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9827: UPPER(p_new_yn) IS NULL) THEN
9828: OKL_API.set_message(p_app_name => G_APP_NAME,
9829: p_msg_name => G_INVALID_YN,
9830: p_token1 => G_COL_NAME_TOKEN,
9831: p_token1_value => 'p_new_yn');
9832: -- Halt Validation
9829: p_msg_name => G_INVALID_YN,
9830: p_token1 => G_COL_NAME_TOKEN,
9831: p_token1_value => 'p_new_yn');
9832: -- Halt Validation
9833: RAISE OKL_API.G_EXCEPTION_ERROR;
9834: END IF;
9835: -- Validate to see if the asset_number given is not null
9836: -- and also Validate asset_number does not exists
9837: -- in OKL_TXL_ASSETS_V
9840: p_asset_number => p_asset_number,
9841: p_kle_id => ln_fa_id,
9842: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9843: -- Check if activity started successfully
9844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9847: RAISE OKL_API.G_EXCEPTION_ERROR;
9848: END IF;
9841: p_kle_id => ln_fa_id,
9842: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9843: -- Check if activity started successfully
9844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9847: RAISE OKL_API.G_EXCEPTION_ERROR;
9848: END IF;
9849: ELSIF UPPER(p_new_yn) = 'N' THEN
9842: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9843: -- Check if activity started successfully
9844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9847: RAISE OKL_API.G_EXCEPTION_ERROR;
9848: END IF;
9849: ELSIF UPPER(p_new_yn) = 'N' THEN
9850: validate_new_ast_num_update(x_return_status => x_return_status,
9843: -- Check if activity started successfully
9844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9847: RAISE OKL_API.G_EXCEPTION_ERROR;
9848: END IF;
9849: ELSIF UPPER(p_new_yn) = 'N' THEN
9850: validate_new_ast_num_update(x_return_status => x_return_status,
9851: p_asset_number => p_asset_number,
9851: p_asset_number => p_asset_number,
9852: p_kle_id => ln_fa_id,
9853: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9854: -- Check if activity started successfully
9855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9858: RAISE OKL_API.G_EXCEPTION_ERROR;
9859: END IF;
9852: p_kle_id => ln_fa_id,
9853: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9854: -- Check if activity started successfully
9855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9858: RAISE OKL_API.G_EXCEPTION_ERROR;
9859: END IF;
9860: END IF;
9853: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9854: -- Check if activity started successfully
9855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9858: RAISE OKL_API.G_EXCEPTION_ERROR;
9859: END IF;
9860: END IF;
9861: -- Validate Line Style id and get the line type code
9854: -- Check if activity started successfully
9855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9858: RAISE OKL_API.G_EXCEPTION_ERROR;
9859: END IF;
9860: END IF;
9861: -- Validate Line Style id and get the line type code
9862: -- and line style type for further processing
9864: x_return_status => x_return_status,
9865: x_lty_code => l_lty_code,
9866: x_lse_type => l_lse_type);
9867: -- Check if activity started successfully
9868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9871: RAISE OKL_API.G_EXCEPTION_ERROR;
9872: END IF;
9865: x_lty_code => l_lty_code,
9866: x_lse_type => l_lse_type);
9867: -- Check if activity started successfully
9868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9871: RAISE OKL_API.G_EXCEPTION_ERROR;
9872: END IF;
9873: -- Validate the Dnz_Chr_id
9866: x_lse_type => l_lse_type);
9867: -- Check if activity started successfully
9868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9871: RAISE OKL_API.G_EXCEPTION_ERROR;
9872: END IF;
9873: -- Validate the Dnz_Chr_id
9874: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9867: -- Check if activity started successfully
9868: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9871: RAISE OKL_API.G_EXCEPTION_ERROR;
9872: END IF;
9873: -- Validate the Dnz_Chr_id
9874: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9875: x_return_status => x_return_status);
9873: -- Validate the Dnz_Chr_id
9874: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9875: x_return_status => x_return_status);
9876: -- Check if activity started successfully
9877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9880: RAISE OKL_API.G_EXCEPTION_ERROR;
9881: END IF;
9874: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9875: x_return_status => x_return_status);
9876: -- Check if activity started successfully
9877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9880: RAISE OKL_API.G_EXCEPTION_ERROR;
9881: END IF;
9882: -- We have to Populate the Model Line Record
9875: x_return_status => x_return_status);
9876: -- Check if activity started successfully
9877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9880: RAISE OKL_API.G_EXCEPTION_ERROR;
9881: END IF;
9882: -- We have to Populate the Model Line Record
9883: l_clev_rec := p_clev_rec;
9876: -- Check if activity started successfully
9877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9880: RAISE OKL_API.G_EXCEPTION_ERROR;
9881: END IF;
9882: -- We have to Populate the Model Line Record
9883: l_clev_rec := p_clev_rec;
9884: -- Now we are updating Model Line
9884: -- Now we are updating Model Line
9885: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
9886: -- The Record Should have the cle_id
9887: -- if the given line style is Model Line
9888: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9889: l_clev_rec.chr_id IS NULL) AND
9890: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9891: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9892: (l_clev_rec.cle_id IS NOT NULL OR
9887: -- if the given line style is Model Line
9888: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9889: l_clev_rec.chr_id IS NULL) AND
9890: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9891: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9892: (l_clev_rec.cle_id IS NOT NULL OR
9893: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9894: l_lty_code = G_MODEL_LINE_LTY_CODE AND
9895: l_lse_type = G_SLS_TYPE THEN
9889: l_clev_rec.chr_id IS NULL) AND
9890: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9891: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9892: (l_clev_rec.cle_id IS NOT NULL OR
9893: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9894: l_lty_code = G_MODEL_LINE_LTY_CODE AND
9895: l_lse_type = G_SLS_TYPE THEN
9896: update_model_line_item(p_api_version => p_api_version,
9897: p_init_msg_list => p_init_msg_list,
9904: p_cimv_rec => p_cimv_rec,
9905: x_clev_rec => x_clev_rec,
9906: x_klev_rec => x_klev_rec,
9907: x_cimv_rec => x_cimv_rec);
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9905: x_clev_rec => x_clev_rec,
9906: x_klev_rec => x_klev_rec,
9907: x_cimv_rec => x_cimv_rec);
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913: ELSE
9906: x_klev_rec => x_klev_rec,
9907: x_cimv_rec => x_cimv_rec);
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913: ELSE
9914: OKL_API.set_message(p_app_name => G_APP_NAME,
9907: x_cimv_rec => x_cimv_rec);
9908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913: ELSE
9914: OKL_API.set_message(p_app_name => G_APP_NAME,
9915: p_msg_name => G_INVALID_CRITERIA,
9910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9911: RAISE OKL_API.G_EXCEPTION_ERROR;
9912: END IF;
9913: ELSE
9914: OKL_API.set_message(p_app_name => G_APP_NAME,
9915: p_msg_name => G_INVALID_CRITERIA,
9916: p_token1 => G_COL_NAME_TOKEN,
9917: p_token1_value => 'Model Asset line');
9918: x_return_status := OKL_API.G_RET_STS_ERROR;
9914: OKL_API.set_message(p_app_name => G_APP_NAME,
9915: p_msg_name => G_INVALID_CRITERIA,
9916: p_token1 => G_COL_NAME_TOKEN,
9917: p_token1_value => 'Model Asset line');
9918: x_return_status := OKL_API.G_RET_STS_ERROR;
9919: RAISE OKL_API.G_EXCEPTION_ERROR;
9920: END IF;
9921: OKL_API.END_ACTIVITY (x_msg_count,
9922: x_msg_data );
9915: p_msg_name => G_INVALID_CRITERIA,
9916: p_token1 => G_COL_NAME_TOKEN,
9917: p_token1_value => 'Model Asset line');
9918: x_return_status := OKL_API.G_RET_STS_ERROR;
9919: RAISE OKL_API.G_EXCEPTION_ERROR;
9920: END IF;
9921: OKL_API.END_ACTIVITY (x_msg_count,
9922: x_msg_data );
9923: EXCEPTION
9917: p_token1_value => 'Model Asset line');
9918: x_return_status := OKL_API.G_RET_STS_ERROR;
9919: RAISE OKL_API.G_EXCEPTION_ERROR;
9920: END IF;
9921: OKL_API.END_ACTIVITY (x_msg_count,
9922: x_msg_data );
9923: EXCEPTION
9924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9925: IF get_fa_id%ISOPEN THEN
9920: END IF;
9921: OKL_API.END_ACTIVITY (x_msg_count,
9922: x_msg_data );
9923: EXCEPTION
9924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9925: IF get_fa_id%ISOPEN THEN
9926: CLOSE get_fa_id;
9927: END IF;
9928: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9924: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9925: IF get_fa_id%ISOPEN THEN
9926: CLOSE get_fa_id;
9927: END IF;
9928: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9929: l_api_name,
9930: G_PKG_NAME,
9931: 'OKL_API.G_RET_STS_ERROR',
9932: x_msg_count,
9927: END IF;
9928: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9929: l_api_name,
9930: G_PKG_NAME,
9931: 'OKL_API.G_RET_STS_ERROR',
9932: x_msg_count,
9933: x_msg_data,
9934: '_PVT');
9935: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9931: 'OKL_API.G_RET_STS_ERROR',
9932: x_msg_count,
9933: x_msg_data,
9934: '_PVT');
9935: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9936: IF get_fa_id%ISOPEN THEN
9937: CLOSE get_fa_id;
9938: END IF;
9939: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9935: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9936: IF get_fa_id%ISOPEN THEN
9937: CLOSE get_fa_id;
9938: END IF;
9939: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9940: l_api_name,
9941: G_PKG_NAME,
9942: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9943: x_msg_count,
9938: END IF;
9939: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9940: l_api_name,
9941: G_PKG_NAME,
9942: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9943: x_msg_count,
9944: x_msg_data,
9945: '_PVT');
9946: WHEN OTHERS THEN
9946: WHEN OTHERS THEN
9947: IF get_fa_id%ISOPEN THEN
9948: CLOSE get_fa_id;
9949: END IF;
9950: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9951: l_api_name,
9952: G_PKG_NAME,
9953: 'OTHERS',
9954: x_msg_count,
9959: ----------------- Main Process for Fixed Asset Line Creation-----------------------------------
9960: -----------------------------------------------------------------------------------------------
9961: PROCEDURE Create_fixed_asset_line(
9962: p_api_version IN NUMBER,
9963: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9964: x_return_status OUT NOCOPY VARCHAR2,
9965: x_msg_count OUT NOCOPY NUMBER,
9966: x_msg_data OUT NOCOPY VARCHAR2,
9967: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9981: -- Variables for validation of line style
9982: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
9983: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
9984: BEGIN
9985: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9986: -- Call start_activity to create savepoint, check compatibility
9987: -- and initialize message list
9988: x_return_status := OKL_API.START_ACTIVITY (
9989: l_api_name
9984: BEGIN
9985: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9986: -- Call start_activity to create savepoint, check compatibility
9987: -- and initialize message list
9988: x_return_status := OKL_API.START_ACTIVITY (
9989: l_api_name
9990: ,p_init_msg_list
9991: ,'_PVT'
9992: ,x_return_status);
9990: ,p_init_msg_list
9991: ,'_PVT'
9992: ,x_return_status);
9993: -- Check if activity started successfully
9994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9997: RAISE OKL_API.G_EXCEPTION_ERROR;
9998: END IF;
9991: ,'_PVT'
9992: ,x_return_status);
9993: -- Check if activity started successfully
9994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9997: RAISE OKL_API.G_EXCEPTION_ERROR;
9998: END IF;
9999: -- 4414408 The validation is now performed in create_all_line procedure
9992: ,x_return_status);
9993: -- Check if activity started successfully
9994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9997: RAISE OKL_API.G_EXCEPTION_ERROR;
9998: END IF;
9999: -- 4414408 The validation is now performed in create_all_line procedure
10000: /*
9993: -- Check if activity started successfully
9994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9997: RAISE OKL_API.G_EXCEPTION_ERROR;
9998: END IF;
9999: -- 4414408 The validation is now performed in create_all_line procedure
10000: /*
10001: -- To Check We Got the Valid info
9999: -- 4414408 The validation is now performed in create_all_line procedure
10000: /*
10001: -- To Check We Got the Valid info
10002: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10003: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10004: UPPER(p_new_yn) IS NULL) THEN
10005: OKL_API.set_message(p_app_name => G_APP_NAME,
10006: p_msg_name => G_INVALID_YN,
10007: p_token1 => G_COL_NAME_TOKEN,
10001: -- To Check We Got the Valid info
10002: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10003: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10004: UPPER(p_new_yn) IS NULL) THEN
10005: OKL_API.set_message(p_app_name => G_APP_NAME,
10006: p_msg_name => G_INVALID_YN,
10007: p_token1 => G_COL_NAME_TOKEN,
10008: p_token1_value => 'p_new_yn');
10009: -- Halt Validation
10006: p_msg_name => G_INVALID_YN,
10007: p_token1 => G_COL_NAME_TOKEN,
10008: p_token1_value => 'p_new_yn');
10009: -- Halt Validation
10010: RAISE OKL_API.G_EXCEPTION_ERROR;
10011: END IF;
10012: -- Validate to see if the asset_number given is not null
10013: -- and also Validate asset_number does not exists
10014: -- in OKL_TXL_ASSETS_V
10016: validate_new_asset_number(x_return_status => x_return_status,
10017: p_asset_number => p_asset_number,
10018: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10019: -- Check if activity started successfully
10020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_ERROR;
10024: END IF;
10017: p_asset_number => p_asset_number,
10018: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10019: -- Check if activity started successfully
10020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_ERROR;
10024: END IF;
10025: ELSE
10018: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10019: -- Check if activity started successfully
10020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_ERROR;
10024: END IF;
10025: ELSE
10026: validate_new_asset_number(x_return_status => x_return_status,
10019: -- Check if activity started successfully
10020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10021: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10022: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10023: RAISE OKL_API.G_EXCEPTION_ERROR;
10024: END IF;
10025: ELSE
10026: validate_new_asset_number(x_return_status => x_return_status,
10027: p_asset_number => p_asset_number,
10026: validate_new_asset_number(x_return_status => x_return_status,
10027: p_asset_number => p_asset_number,
10028: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10029: -- Check if activity ended successfully
10030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10033: RAISE OKL_API.G_EXCEPTION_ERROR;
10034: END IF;
10027: p_asset_number => p_asset_number,
10028: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10029: -- Check if activity ended successfully
10030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10033: RAISE OKL_API.G_EXCEPTION_ERROR;
10034: END IF;
10035: END IF;
10028: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10029: -- Check if activity ended successfully
10030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10033: RAISE OKL_API.G_EXCEPTION_ERROR;
10034: END IF;
10035: END IF;
10036: */
10029: -- Check if activity ended successfully
10030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10033: RAISE OKL_API.G_EXCEPTION_ERROR;
10034: END IF;
10035: END IF;
10036: */
10037: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
10042: x_return_status => x_return_status,
10043: x_lty_code => l_lty_code,
10044: x_lse_type => l_lse_type);
10045: -- Check if activity started successfully
10046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10049: RAISE OKL_API.G_EXCEPTION_ERROR;
10050: END IF;
10043: x_lty_code => l_lty_code,
10044: x_lse_type => l_lse_type);
10045: -- Check if activity started successfully
10046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10049: RAISE OKL_API.G_EXCEPTION_ERROR;
10050: END IF;
10051: -- Validate the Dnz_Chr_id
10044: x_lse_type => l_lse_type);
10045: -- Check if activity started successfully
10046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10049: RAISE OKL_API.G_EXCEPTION_ERROR;
10050: END IF;
10051: -- Validate the Dnz_Chr_id
10052: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10045: -- Check if activity started successfully
10046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10047: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10049: RAISE OKL_API.G_EXCEPTION_ERROR;
10050: END IF;
10051: -- Validate the Dnz_Chr_id
10052: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10053: x_return_status => x_return_status);
10051: -- Validate the Dnz_Chr_id
10052: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10053: x_return_status => x_return_status);
10054: -- Check if activity started successfully
10055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10058: RAISE OKL_API.G_EXCEPTION_ERROR;
10059: END IF;
10052: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10053: x_return_status => x_return_status);
10054: -- Check if activity started successfully
10055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10058: RAISE OKL_API.G_EXCEPTION_ERROR;
10059: END IF;
10060: */
10053: x_return_status => x_return_status);
10054: -- Check if activity started successfully
10055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10058: RAISE OKL_API.G_EXCEPTION_ERROR;
10059: END IF;
10060: */
10061: -- Now we are going to create the Fixed Assets Line
10054: -- Check if activity started successfully
10055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10058: RAISE OKL_API.G_EXCEPTION_ERROR;
10059: END IF;
10060: */
10061: -- Now we are going to create the Fixed Assets Line
10062: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10062: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10063: -- The Record Should have the cle_id
10064: -- if the given line style is Fixed Assets Line
10065: l_clev_rec := p_clev_rec;
10066: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10067: l_clev_rec.chr_id IS NULL) AND
10068: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10069: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10070: (l_clev_rec.cle_id IS NOT NULL OR
10065: l_clev_rec := p_clev_rec;
10066: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10067: l_clev_rec.chr_id IS NULL) AND
10068: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10069: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10070: (l_clev_rec.cle_id IS NOT NULL OR
10071: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10072: -- #4414408
10073: -- l_lty_code = G_FA_LINE_LTY_CODE AND
10067: l_clev_rec.chr_id IS NULL) AND
10068: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10069: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10070: (l_clev_rec.cle_id IS NOT NULL OR
10071: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10072: -- #4414408
10073: -- l_lty_code = G_FA_LINE_LTY_CODE AND
10074: -- l_lse_type = G_SLS_TYPE THEN
10075: l_clev_rec.lse_id = G_FA_LINE_LTY_ID THEN
10087: x_klev_rec => x_klev_rec,
10088: x_cimv_rec => x_cimv_rec,
10089: x_trxv_rec => x_trxv_rec,
10090: x_talv_rec => x_talv_rec);
10091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10094: RAISE OKL_API.G_EXCEPTION_ERROR;
10095: END IF;
10088: x_cimv_rec => x_cimv_rec,
10089: x_trxv_rec => x_trxv_rec,
10090: x_talv_rec => x_talv_rec);
10091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10094: RAISE OKL_API.G_EXCEPTION_ERROR;
10095: END IF;
10096: ELSE
10089: x_trxv_rec => x_trxv_rec,
10090: x_talv_rec => x_talv_rec);
10091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10094: RAISE OKL_API.G_EXCEPTION_ERROR;
10095: END IF;
10096: ELSE
10097: OKL_API.set_message(p_app_name => G_APP_NAME,
10090: x_talv_rec => x_talv_rec);
10091: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10092: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10094: RAISE OKL_API.G_EXCEPTION_ERROR;
10095: END IF;
10096: ELSE
10097: OKL_API.set_message(p_app_name => G_APP_NAME,
10098: p_msg_name => G_INVALID_CRITERIA,
10093: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10094: RAISE OKL_API.G_EXCEPTION_ERROR;
10095: END IF;
10096: ELSE
10097: OKL_API.set_message(p_app_name => G_APP_NAME,
10098: p_msg_name => G_INVALID_CRITERIA,
10099: p_token1 => G_COL_NAME_TOKEN,
10100: p_token1_value => 'Fixed Asset line');
10101: x_return_status := OKL_API.G_RET_STS_ERROR;
10097: OKL_API.set_message(p_app_name => G_APP_NAME,
10098: p_msg_name => G_INVALID_CRITERIA,
10099: p_token1 => G_COL_NAME_TOKEN,
10100: p_token1_value => 'Fixed Asset line');
10101: x_return_status := OKL_API.G_RET_STS_ERROR;
10102: RAISE OKL_API.G_EXCEPTION_ERROR;
10103: END IF;
10104: OKL_API.END_ACTIVITY (x_msg_count,
10105: x_msg_data );
10098: p_msg_name => G_INVALID_CRITERIA,
10099: p_token1 => G_COL_NAME_TOKEN,
10100: p_token1_value => 'Fixed Asset line');
10101: x_return_status := OKL_API.G_RET_STS_ERROR;
10102: RAISE OKL_API.G_EXCEPTION_ERROR;
10103: END IF;
10104: OKL_API.END_ACTIVITY (x_msg_count,
10105: x_msg_data );
10106: EXCEPTION
10100: p_token1_value => 'Fixed Asset line');
10101: x_return_status := OKL_API.G_RET_STS_ERROR;
10102: RAISE OKL_API.G_EXCEPTION_ERROR;
10103: END IF;
10104: OKL_API.END_ACTIVITY (x_msg_count,
10105: x_msg_data );
10106: EXCEPTION
10107: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10103: END IF;
10104: OKL_API.END_ACTIVITY (x_msg_count,
10105: x_msg_data );
10106: EXCEPTION
10107: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10109: l_api_name,
10110: G_PKG_NAME,
10111: 'OKL_API.G_RET_STS_ERROR',
10104: OKL_API.END_ACTIVITY (x_msg_count,
10105: x_msg_data );
10106: EXCEPTION
10107: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10109: l_api_name,
10110: G_PKG_NAME,
10111: 'OKL_API.G_RET_STS_ERROR',
10112: x_msg_count,
10107: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10109: l_api_name,
10110: G_PKG_NAME,
10111: 'OKL_API.G_RET_STS_ERROR',
10112: x_msg_count,
10113: x_msg_data,
10114: '_PVT');
10115: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10111: 'OKL_API.G_RET_STS_ERROR',
10112: x_msg_count,
10113: x_msg_data,
10114: '_PVT');
10115: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10116: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10117: l_api_name,
10118: G_PKG_NAME,
10119: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10112: x_msg_count,
10113: x_msg_data,
10114: '_PVT');
10115: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10116: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10117: l_api_name,
10118: G_PKG_NAME,
10119: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10120: x_msg_count,
10115: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10116: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10117: l_api_name,
10118: G_PKG_NAME,
10119: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10120: x_msg_count,
10121: x_msg_data,
10122: '_PVT');
10123: WHEN OTHERS THEN
10120: x_msg_count,
10121: x_msg_data,
10122: '_PVT');
10123: WHEN OTHERS THEN
10124: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10125: l_api_name,
10126: G_PKG_NAME,
10127: 'OTHERS',
10128: x_msg_count,
10133: ----------------------------- Main Process for update of fixed asset Line -----------------------------
10134: -------------------------------------------------------------------------------------------------------
10135: PROCEDURE Update_fixed_asset_line(
10136: p_api_version IN NUMBER,
10137: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10138: x_return_status OUT NOCOPY VARCHAR2,
10139: x_msg_count OUT NOCOPY NUMBER,
10140: x_msg_data OUT NOCOPY VARCHAR2,
10141: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
10153: -- Variables for validation of line style
10154: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
10155: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
10156: BEGIN
10157: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10158: -- Call start_activity to create savepoint, check compatibility
10159: -- and initialize message list
10160: x_return_status := OKL_API.START_ACTIVITY (
10161: l_api_name
10156: BEGIN
10157: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10158: -- Call start_activity to create savepoint, check compatibility
10159: -- and initialize message list
10160: x_return_status := OKL_API.START_ACTIVITY (
10161: l_api_name
10162: ,p_init_msg_list
10163: ,'_PVT'
10164: ,x_return_status);
10162: ,p_init_msg_list
10163: ,'_PVT'
10164: ,x_return_status);
10165: -- Check if activity started successfully
10166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_ERROR;
10170: END IF;
10163: ,'_PVT'
10164: ,x_return_status);
10165: -- Check if activity started successfully
10166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_ERROR;
10170: END IF;
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10164: ,x_return_status);
10165: -- Check if activity started successfully
10166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_ERROR;
10170: END IF;
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10172: x_return_status => x_return_status);
10165: -- Check if activity started successfully
10166: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_ERROR;
10170: END IF;
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10172: x_return_status => x_return_status);
10173: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10169: RAISE OKL_API.G_EXCEPTION_ERROR;
10170: END IF;
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10172: x_return_status => x_return_status);
10173: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10176: RAISE OKL_API.G_EXCEPTION_ERROR;
10177: END IF;
10170: END IF;
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10172: x_return_status => x_return_status);
10173: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10176: RAISE OKL_API.G_EXCEPTION_ERROR;
10177: END IF;
10178: -- To Check We Got the Valid info
10171: validate_sts_code(p_clev_rec => p_clev_rec,
10172: x_return_status => x_return_status);
10173: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10176: RAISE OKL_API.G_EXCEPTION_ERROR;
10177: END IF;
10178: -- To Check We Got the Valid info
10179: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10172: x_return_status => x_return_status);
10173: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10175: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10176: RAISE OKL_API.G_EXCEPTION_ERROR;
10177: END IF;
10178: -- To Check We Got the Valid info
10179: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10180: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10176: RAISE OKL_API.G_EXCEPTION_ERROR;
10177: END IF;
10178: -- To Check We Got the Valid info
10179: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10180: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10181: UPPER(p_new_yn) IS NULL) THEN
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10183: p_msg_name => G_INVALID_YN,
10184: p_token1 => G_COL_NAME_TOKEN,
10178: -- To Check We Got the Valid info
10179: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10180: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10181: UPPER(p_new_yn) IS NULL) THEN
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10183: p_msg_name => G_INVALID_YN,
10184: p_token1 => G_COL_NAME_TOKEN,
10185: p_token1_value => 'p_new_yn');
10186: -- Halt Validation
10183: p_msg_name => G_INVALID_YN,
10184: p_token1 => G_COL_NAME_TOKEN,
10185: p_token1_value => 'p_new_yn');
10186: -- Halt Validation
10187: RAISE OKL_API.G_EXCEPTION_ERROR;
10188: END IF;
10189: -- Validate to see if the asset_number given is not null
10190: -- and also Validate asset_number does not exists
10191: -- in OKL_TXL_ASSETS_V
10194: p_asset_number => p_asset_number,
10195: p_kle_id => p_talv_rec.kle_id,
10196: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10197: -- Check if activity started successfully
10198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10201: RAISE OKL_API.G_EXCEPTION_ERROR;
10202: END IF;
10195: p_kle_id => p_talv_rec.kle_id,
10196: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10197: -- Check if activity started successfully
10198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10201: RAISE OKL_API.G_EXCEPTION_ERROR;
10202: END IF;
10203: ELSIF UPPER(p_new_yn) = 'N' THEN
10196: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10197: -- Check if activity started successfully
10198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10201: RAISE OKL_API.G_EXCEPTION_ERROR;
10202: END IF;
10203: ELSIF UPPER(p_new_yn) = 'N' THEN
10204: validate_new_ast_num_update(x_return_status => x_return_status,
10197: -- Check if activity started successfully
10198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10201: RAISE OKL_API.G_EXCEPTION_ERROR;
10202: END IF;
10203: ELSIF UPPER(p_new_yn) = 'N' THEN
10204: validate_new_ast_num_update(x_return_status => x_return_status,
10205: p_asset_number => p_asset_number,
10205: p_asset_number => p_asset_number,
10206: p_kle_id => p_talv_rec.kle_id,
10207: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10208: -- Check if activity started successfully
10209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10212: RAISE OKL_API.G_EXCEPTION_ERROR;
10213: END IF;
10206: p_kle_id => p_talv_rec.kle_id,
10207: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10208: -- Check if activity started successfully
10209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10212: RAISE OKL_API.G_EXCEPTION_ERROR;
10213: END IF;
10214: END IF;
10207: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10208: -- Check if activity started successfully
10209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10212: RAISE OKL_API.G_EXCEPTION_ERROR;
10213: END IF;
10214: END IF;
10215: -- Validate Line Style id and get the line type code
10208: -- Check if activity started successfully
10209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10212: RAISE OKL_API.G_EXCEPTION_ERROR;
10213: END IF;
10214: END IF;
10215: -- Validate Line Style id and get the line type code
10216: -- and line style type for further processing
10218: x_return_status => x_return_status,
10219: x_lty_code => l_lty_code,
10220: x_lse_type => l_lse_type);
10221: -- Check if activity started successfully
10222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10225: RAISE OKL_API.G_EXCEPTION_ERROR;
10226: END IF;
10219: x_lty_code => l_lty_code,
10220: x_lse_type => l_lse_type);
10221: -- Check if activity started successfully
10222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10225: RAISE OKL_API.G_EXCEPTION_ERROR;
10226: END IF;
10227: -- Validate the Dnz_Chr_id
10220: x_lse_type => l_lse_type);
10221: -- Check if activity started successfully
10222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10225: RAISE OKL_API.G_EXCEPTION_ERROR;
10226: END IF;
10227: -- Validate the Dnz_Chr_id
10228: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10221: -- Check if activity started successfully
10222: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10224: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10225: RAISE OKL_API.G_EXCEPTION_ERROR;
10226: END IF;
10227: -- Validate the Dnz_Chr_id
10228: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10229: x_return_status => x_return_status);
10227: -- Validate the Dnz_Chr_id
10228: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10229: x_return_status => x_return_status);
10230: -- Check if activity started successfully
10231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10234: RAISE OKL_API.G_EXCEPTION_ERROR;
10235: END IF;
10228: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10229: x_return_status => x_return_status);
10230: -- Check if activity started successfully
10231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10234: RAISE OKL_API.G_EXCEPTION_ERROR;
10235: END IF;
10236: -- We have to Populate the Model Line Record
10229: x_return_status => x_return_status);
10230: -- Check if activity started successfully
10231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10234: RAISE OKL_API.G_EXCEPTION_ERROR;
10235: END IF;
10236: -- We have to Populate the Model Line Record
10237: l_clev_rec := p_clev_rec;
10230: -- Check if activity started successfully
10231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10232: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10234: RAISE OKL_API.G_EXCEPTION_ERROR;
10235: END IF;
10236: -- We have to Populate the Model Line Record
10237: l_clev_rec := p_clev_rec;
10238: -- Now we are updating Fixed Asset Line
10238: -- Now we are updating Fixed Asset Line
10239: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10240: -- The Record Should have the cle_id
10241: -- if the given line style is Fixed Asset Line
10242: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10243: l_clev_rec.chr_id IS NULL) AND
10244: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10245: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10246: (l_clev_rec.cle_id IS NOT NULL OR
10241: -- if the given line style is Fixed Asset Line
10242: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10243: l_clev_rec.chr_id IS NULL) AND
10244: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10245: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10246: (l_clev_rec.cle_id IS NOT NULL OR
10247: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10248: l_lty_code = G_FA_LINE_LTY_CODE AND
10249: l_lse_type = G_SLS_TYPE THEN
10243: l_clev_rec.chr_id IS NULL) AND
10244: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10245: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10246: (l_clev_rec.cle_id IS NOT NULL OR
10247: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10248: l_lty_code = G_FA_LINE_LTY_CODE AND
10249: l_lse_type = G_SLS_TYPE THEN
10250: update_fa_line_item(p_api_version => p_api_version,
10251: p_init_msg_list => p_init_msg_list,
10261: x_clev_rec => x_clev_rec,
10262: x_klev_rec => x_klev_rec,
10263: x_cimv_rec => x_cimv_rec,
10264: x_talv_rec => x_talv_rec);
10265: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10268: RAISE OKL_API.G_EXCEPTION_ERROR;
10269: END IF;
10262: x_klev_rec => x_klev_rec,
10263: x_cimv_rec => x_cimv_rec,
10264: x_talv_rec => x_talv_rec);
10265: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10268: RAISE OKL_API.G_EXCEPTION_ERROR;
10269: END IF;
10270: ELSE
10263: x_cimv_rec => x_cimv_rec,
10264: x_talv_rec => x_talv_rec);
10265: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10268: RAISE OKL_API.G_EXCEPTION_ERROR;
10269: END IF;
10270: ELSE
10271: OKL_API.set_message(p_app_name => G_APP_NAME,
10264: x_talv_rec => x_talv_rec);
10265: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10266: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10268: RAISE OKL_API.G_EXCEPTION_ERROR;
10269: END IF;
10270: ELSE
10271: OKL_API.set_message(p_app_name => G_APP_NAME,
10272: p_msg_name => G_INVALID_CRITERIA,
10267: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10268: RAISE OKL_API.G_EXCEPTION_ERROR;
10269: END IF;
10270: ELSE
10271: OKL_API.set_message(p_app_name => G_APP_NAME,
10272: p_msg_name => G_INVALID_CRITERIA,
10273: p_token1 => G_COL_NAME_TOKEN,
10274: p_token1_value => 'Fixed Asset line');
10275: x_return_status := OKL_API.G_RET_STS_ERROR;
10271: OKL_API.set_message(p_app_name => G_APP_NAME,
10272: p_msg_name => G_INVALID_CRITERIA,
10273: p_token1 => G_COL_NAME_TOKEN,
10274: p_token1_value => 'Fixed Asset line');
10275: x_return_status := OKL_API.G_RET_STS_ERROR;
10276: RAISE OKL_API.G_EXCEPTION_ERROR;
10277: END IF;
10278: OKL_API.END_ACTIVITY (x_msg_count,
10279: x_msg_data );
10272: p_msg_name => G_INVALID_CRITERIA,
10273: p_token1 => G_COL_NAME_TOKEN,
10274: p_token1_value => 'Fixed Asset line');
10275: x_return_status := OKL_API.G_RET_STS_ERROR;
10276: RAISE OKL_API.G_EXCEPTION_ERROR;
10277: END IF;
10278: OKL_API.END_ACTIVITY (x_msg_count,
10279: x_msg_data );
10280: EXCEPTION
10274: p_token1_value => 'Fixed Asset line');
10275: x_return_status := OKL_API.G_RET_STS_ERROR;
10276: RAISE OKL_API.G_EXCEPTION_ERROR;
10277: END IF;
10278: OKL_API.END_ACTIVITY (x_msg_count,
10279: x_msg_data );
10280: EXCEPTION
10281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10277: END IF;
10278: OKL_API.END_ACTIVITY (x_msg_count,
10279: x_msg_data );
10280: EXCEPTION
10281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10283: l_api_name,
10284: G_PKG_NAME,
10285: 'OKL_API.G_RET_STS_ERROR',
10278: OKL_API.END_ACTIVITY (x_msg_count,
10279: x_msg_data );
10280: EXCEPTION
10281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10283: l_api_name,
10284: G_PKG_NAME,
10285: 'OKL_API.G_RET_STS_ERROR',
10286: x_msg_count,
10281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10283: l_api_name,
10284: G_PKG_NAME,
10285: 'OKL_API.G_RET_STS_ERROR',
10286: x_msg_count,
10287: x_msg_data,
10288: '_PVT');
10289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10285: 'OKL_API.G_RET_STS_ERROR',
10286: x_msg_count,
10287: x_msg_data,
10288: '_PVT');
10289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10290: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10291: l_api_name,
10292: G_PKG_NAME,
10293: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10286: x_msg_count,
10287: x_msg_data,
10288: '_PVT');
10289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10290: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10291: l_api_name,
10292: G_PKG_NAME,
10293: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10294: x_msg_count,
10289: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10290: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10291: l_api_name,
10292: G_PKG_NAME,
10293: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10294: x_msg_count,
10295: x_msg_data,
10296: '_PVT');
10297: WHEN OTHERS THEN
10294: x_msg_count,
10295: x_msg_data,
10296: '_PVT');
10297: WHEN OTHERS THEN
10298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10299: l_api_name,
10300: G_PKG_NAME,
10301: 'OTHERS',
10302: x_msg_count,
10346: AND cle.dnz_chr_id = p_dnz_chr_id
10347: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10348:
10349: BEGIN
10350: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10351: -- Call start_activity to create savepoint, check compatibility
10352: -- and initialize message list
10353: x_return_status := OKL_API.START_ACTIVITY (
10354: l_api_name
10349: BEGIN
10350: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10351: -- Call start_activity to create savepoint, check compatibility
10352: -- and initialize message list
10353: x_return_status := OKL_API.START_ACTIVITY (
10354: l_api_name
10355: ,p_init_msg_list
10356: ,'_PVT'
10357: ,x_return_status);
10355: ,p_init_msg_list
10356: ,'_PVT'
10357: ,x_return_status);
10358: -- Check if activity started successfully
10359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10362: RAISE OKL_API.G_EXCEPTION_ERROR;
10363: END IF;
10356: ,'_PVT'
10357: ,x_return_status);
10358: -- Check if activity started successfully
10359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10362: RAISE OKL_API.G_EXCEPTION_ERROR;
10363: END IF;
10364: OKL_API.init_msg_list(p_init_msg_list);
10357: ,x_return_status);
10358: -- Check if activity started successfully
10359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10362: RAISE OKL_API.G_EXCEPTION_ERROR;
10363: END IF;
10364: OKL_API.init_msg_list(p_init_msg_list);
10365: -- Make sure PL/SQL table has records in it before passing
10358: -- Check if activity started successfully
10359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10362: RAISE OKL_API.G_EXCEPTION_ERROR;
10363: END IF;
10364: OKL_API.init_msg_list(p_init_msg_list);
10365: -- Make sure PL/SQL table has records in it before passing
10366: IF (p_clev_tbl.COUNT > 0) AND
10360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10362: RAISE OKL_API.G_EXCEPTION_ERROR;
10363: END IF;
10364: OKL_API.init_msg_list(p_init_msg_list);
10365: -- Make sure PL/SQL table has records in it before passing
10366: IF (p_clev_tbl.COUNT > 0) AND
10367: (p_cimv_tbl.COUNT > 0)THEN
10368: i := p_clev_tbl.FIRST;
10372: l_clev_tbl := p_clev_tbl;
10373: LOOP
10374: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10375: x_lse_id => l_clev_tbl(i).lse_id);
10376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10377: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10379: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10380: END IF;
10373: LOOP
10374: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10375: x_lse_id => l_clev_tbl(i).lse_id);
10376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10377: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10379: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10380: END IF;
10381: create_addon_line_rec(p_api_version => p_api_version,
10374: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10375: x_lse_id => l_clev_tbl(i).lse_id);
10376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10377: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10379: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10380: END IF;
10381: create_addon_line_rec(p_api_version => p_api_version,
10382: p_init_msg_list => p_init_msg_list,
10375: x_lse_id => l_clev_tbl(i).lse_id);
10376: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10377: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10378: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10379: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10380: END IF;
10381: create_addon_line_rec(p_api_version => p_api_version,
10382: p_init_msg_list => p_init_msg_list,
10383: x_return_status => x_return_status,
10390: p_cimv_rec => p_cimv_tbl(k),
10391: x_clev_rec => x_clev_tbl(i),
10392: x_klev_rec => x_klev_rec,
10393: x_cimv_rec => x_cimv_tbl(k));
10394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10395: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10397: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10398: END IF;
10391: x_clev_rec => x_clev_tbl(i),
10392: x_klev_rec => x_klev_rec,
10393: x_cimv_rec => x_cimv_tbl(k));
10394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10395: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10397: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10398: END IF;
10399: ln_add_cle_id := x_clev_tbl(i).cle_id;
10392: x_klev_rec => x_klev_rec,
10393: x_cimv_rec => x_cimv_tbl(k));
10394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10395: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10397: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10398: END IF;
10399: ln_add_cle_id := x_clev_tbl(i).cle_id;
10400: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10393: x_cimv_rec => x_cimv_tbl(k));
10394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10395: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10397: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10398: END IF;
10399: ln_add_cle_id := x_clev_tbl(i).cle_id;
10400: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10401: -- Assume that there will be one to one for item and add on line
10407: ELSE
10408: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) OR
10409: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10410: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10411: OKL_API.set_message(p_app_name => G_APP_NAME,
10412: p_msg_name => G_CNT_REC);
10413: RAISE OKL_API.G_EXCEPTION_ERROR;
10414: END IF;
10415: j := p_klev_tbl.FIRST;
10409: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10410: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10411: OKL_API.set_message(p_app_name => G_APP_NAME,
10412: p_msg_name => G_CNT_REC);
10413: RAISE OKL_API.G_EXCEPTION_ERROR;
10414: END IF;
10415: j := p_klev_tbl.FIRST;
10416: l_clev_tbl := p_clev_tbl;
10417: LOOP
10416: l_clev_tbl := p_clev_tbl;
10417: LOOP
10418: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10419: x_lse_id => l_clev_tbl(i).lse_id);
10420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10421: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10423: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10424: END IF;
10417: LOOP
10418: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10419: x_lse_id => l_clev_tbl(i).lse_id);
10420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10421: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10423: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10424: END IF;
10425: create_addon_line_rec(p_api_version => p_api_version,
10418: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10419: x_lse_id => l_clev_tbl(i).lse_id);
10420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10421: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10423: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10424: END IF;
10425: create_addon_line_rec(p_api_version => p_api_version,
10426: p_init_msg_list => p_init_msg_list,
10419: x_lse_id => l_clev_tbl(i).lse_id);
10420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10421: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10423: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10424: END IF;
10425: create_addon_line_rec(p_api_version => p_api_version,
10426: p_init_msg_list => p_init_msg_list,
10427: x_return_status => x_return_status,
10434: p_cimv_rec => p_cimv_tbl(k),
10435: x_clev_rec => x_clev_tbl(i),
10436: x_klev_rec => x_klev_tbl(j),
10437: x_cimv_rec => x_cimv_tbl(k));
10438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10439: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10441: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10442: END IF;
10435: x_clev_rec => x_clev_tbl(i),
10436: x_klev_rec => x_klev_tbl(j),
10437: x_cimv_rec => x_cimv_tbl(k));
10438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10439: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10441: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10442: END IF;
10443: ln_add_cle_id := x_clev_tbl(i).cle_id;
10436: x_klev_rec => x_klev_tbl(j),
10437: x_cimv_rec => x_cimv_tbl(k));
10438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10439: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10441: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10442: END IF;
10443: ln_add_cle_id := x_clev_tbl(i).cle_id;
10444: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10437: x_cimv_rec => x_cimv_tbl(k));
10438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10439: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10441: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10442: END IF;
10443: ln_add_cle_id := x_clev_tbl(i).cle_id;
10444: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10445: -- Assume that there will be one to one for item and add on line
10448: j := p_klev_tbl.NEXT(j);
10449: k := p_cimv_tbl.NEXT(K);
10450: END LOOP;
10451: END IF;
10452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10455: RAISE OKL_API.G_EXCEPTION_ERROR;
10456: END IF;
10449: k := p_cimv_tbl.NEXT(K);
10450: END LOOP;
10451: END IF;
10452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10455: RAISE OKL_API.G_EXCEPTION_ERROR;
10456: END IF;
10457:
10450: END LOOP;
10451: END IF;
10452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10455: RAISE OKL_API.G_EXCEPTION_ERROR;
10456: END IF;
10457:
10458: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10451: END IF;
10452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10455: RAISE OKL_API.G_EXCEPTION_ERROR;
10456: END IF;
10457:
10458: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10459: p_dnz_chr_id => ln_add_dnz_chr_id);
10459: p_dnz_chr_id => ln_add_dnz_chr_id);
10460: FETCH c_model_top_line INTO ln_top_line_id;
10461:
10462: IF c_model_top_line%NOTFOUND THEN
10463: OKL_API.set_message(p_app_name => G_APP_NAME,
10464: p_msg_name => G_NO_MATCHING_RECORD,
10465: p_token1 => G_COL_NAME_TOKEN,
10466: p_token1_value => 'cle_id');
10467: RAISE G_EXCEPTION_HALT_VALIDATION;
10482: p_dnz_chr_id => ln_add_dnz_chr_id,
10483: x_fin_clev_rec => x_fin_clev_rec,
10484: x_fin_klev_rec => x_fin_klev_rec,
10485: x_oec => ln_klev_fin_oec,
10486: p_validate_fin_line => OKL_API.G_TRUE);
10487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10483: x_fin_clev_rec => x_fin_clev_rec,
10484: x_fin_klev_rec => x_fin_klev_rec,
10485: x_oec => ln_klev_fin_oec,
10486: p_validate_fin_line => OKL_API.G_TRUE);
10487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10491: END IF;
10484: x_fin_klev_rec => x_fin_klev_rec,
10485: x_oec => ln_klev_fin_oec,
10486: p_validate_fin_line => OKL_API.G_TRUE);
10487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10491: END IF;
10492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10485: x_oec => ln_klev_fin_oec,
10486: p_validate_fin_line => OKL_API.G_TRUE);
10487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10491: END IF;
10492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10486: p_validate_fin_line => OKL_API.G_TRUE);
10487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10491: END IF;
10492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10494: p_init_msg_list => p_init_msg_list,
10502: p_dnz_chr_id => ln_add_dnz_chr_id,
10503: x_fin_clev_rec => x_fin_clev_rec,
10504: x_fin_klev_rec => x_fin_klev_rec,
10505: x_cap_amt => ln_klev_fin_cap,
10506: p_validate_fin_line => OKL_API.G_TRUE);
10507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10503: x_fin_clev_rec => x_fin_clev_rec,
10504: x_fin_klev_rec => x_fin_klev_rec,
10505: x_cap_amt => ln_klev_fin_cap,
10506: p_validate_fin_line => OKL_API.G_TRUE);
10507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10511: END IF;
10504: x_fin_klev_rec => x_fin_klev_rec,
10505: x_cap_amt => ln_klev_fin_cap,
10506: p_validate_fin_line => OKL_API.G_TRUE);
10507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10511: END IF;
10512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10505: x_cap_amt => ln_klev_fin_cap,
10506: p_validate_fin_line => OKL_API.G_TRUE);
10507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10511: END IF;
10512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10506: p_validate_fin_line => OKL_API.G_TRUE);
10507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10511: END IF;
10512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10514: p_init_msg_list => p_init_msg_list,
10522: p_dnz_chr_id => ln_add_dnz_chr_id,
10523: x_fin_clev_rec => x_fin_clev_rec,
10524: x_fin_klev_rec => x_fin_klev_rec,
10525: x_res_value => ln_klev_fin_res,
10526: p_validate_fin_line => OKL_API.G_TRUE);
10527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10530: RAISE OKL_API.G_EXCEPTION_ERROR;
10523: x_fin_clev_rec => x_fin_clev_rec,
10524: x_fin_klev_rec => x_fin_klev_rec,
10525: x_res_value => ln_klev_fin_res,
10526: p_validate_fin_line => OKL_API.G_TRUE);
10527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10530: RAISE OKL_API.G_EXCEPTION_ERROR;
10531: END IF;
10524: x_fin_klev_rec => x_fin_klev_rec,
10525: x_res_value => ln_klev_fin_res,
10526: p_validate_fin_line => OKL_API.G_TRUE);
10527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10530: RAISE OKL_API.G_EXCEPTION_ERROR;
10531: END IF;
10532:
10525: x_res_value => ln_klev_fin_res,
10526: p_validate_fin_line => OKL_API.G_TRUE);
10527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10530: RAISE OKL_API.G_EXCEPTION_ERROR;
10531: END IF;
10532:
10533: --Bug# 5530990
10526: p_validate_fin_line => OKL_API.G_TRUE);
10527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10530: RAISE OKL_API.G_EXCEPTION_ERROR;
10531: END IF;
10532:
10533: --Bug# 5530990
10534: -- Update Original Cost and Depreciation Cost in
10541: x_msg_data => x_msg_data,
10542: p_cleb_fin_id => ln_top_line_id,
10543: p_chr_id => ln_add_dnz_chr_id,
10544: p_oec => ln_klev_fin_oec);
10545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10548: RAISE OKL_API.G_EXCEPTION_ERROR;
10549: END IF;
10542: p_cleb_fin_id => ln_top_line_id,
10543: p_chr_id => ln_add_dnz_chr_id,
10544: p_oec => ln_klev_fin_oec);
10545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10548: RAISE OKL_API.G_EXCEPTION_ERROR;
10549: END IF;
10550:
10543: p_chr_id => ln_add_dnz_chr_id,
10544: p_oec => ln_klev_fin_oec);
10545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10548: RAISE OKL_API.G_EXCEPTION_ERROR;
10549: END IF;
10550:
10551: ELSE
10544: p_oec => ln_klev_fin_oec);
10545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10548: RAISE OKL_API.G_EXCEPTION_ERROR;
10549: END IF;
10550:
10551: ELSE
10552: OKL_API.set_message(p_app_name => G_APP_NAME,
10548: RAISE OKL_API.G_EXCEPTION_ERROR;
10549: END IF;
10550:
10551: ELSE
10552: OKL_API.set_message(p_app_name => G_APP_NAME,
10553: p_msg_name => G_CNT_REC);
10554: x_return_status := OKL_API.G_RET_STS_ERROR;
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10550:
10551: ELSE
10552: OKL_API.set_message(p_app_name => G_APP_NAME,
10553: p_msg_name => G_CNT_REC);
10554: x_return_status := OKL_API.G_RET_STS_ERROR;
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10551: ELSE
10552: OKL_API.set_message(p_app_name => G_APP_NAME,
10553: p_msg_name => G_CNT_REC);
10554: x_return_status := OKL_API.G_RET_STS_ERROR;
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10553: p_msg_name => G_CNT_REC);
10554: x_return_status := OKL_API.G_RET_STS_ERROR;
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10554: x_return_status := OKL_API.G_RET_STS_ERROR;
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562: OKL_API.END_ACTIVITY (x_msg_count,
10555: RAISE OKL_API.G_EXCEPTION_ERROR;
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562: OKL_API.END_ACTIVITY (x_msg_count,
10563: x_msg_data );
10556: END IF;
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562: OKL_API.END_ACTIVITY (x_msg_count,
10563: x_msg_data );
10564: EXCEPTION
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562: OKL_API.END_ACTIVITY (x_msg_count,
10563: x_msg_data );
10564: EXCEPTION
10565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10561: END IF;
10562: OKL_API.END_ACTIVITY (x_msg_count,
10563: x_msg_data );
10564: EXCEPTION
10565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10567: l_api_name,
10568: G_PKG_NAME,
10569: 'OKL_API.G_RET_STS_ERROR',
10562: OKL_API.END_ACTIVITY (x_msg_count,
10563: x_msg_data );
10564: EXCEPTION
10565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10567: l_api_name,
10568: G_PKG_NAME,
10569: 'OKL_API.G_RET_STS_ERROR',
10570: x_msg_count,
10565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10567: l_api_name,
10568: G_PKG_NAME,
10569: 'OKL_API.G_RET_STS_ERROR',
10570: x_msg_count,
10571: x_msg_data,
10572: '_PVT');
10573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10569: 'OKL_API.G_RET_STS_ERROR',
10570: x_msg_count,
10571: x_msg_data,
10572: '_PVT');
10573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10574: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10575: l_api_name,
10576: G_PKG_NAME,
10577: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10570: x_msg_count,
10571: x_msg_data,
10572: '_PVT');
10573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10574: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10575: l_api_name,
10576: G_PKG_NAME,
10577: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10578: x_msg_count,
10573: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10574: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10575: l_api_name,
10576: G_PKG_NAME,
10577: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10578: x_msg_count,
10579: x_msg_data,
10580: '_PVT');
10581: WHEN OTHERS THEN
10578: x_msg_count,
10579: x_msg_data,
10580: '_PVT');
10581: WHEN OTHERS THEN
10582: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10583: l_api_name,
10584: G_PKG_NAME,
10585: 'OTHERS',
10586: x_msg_count,
10631: AND cle.dnz_chr_id = p_dnz_chr_id
10632: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10633:
10634: BEGIN
10635: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10636: -- Call start_activity to create savepoint, check compatibility
10637: -- and initialize message list
10638: x_return_status := OKL_API.START_ACTIVITY (
10639: l_api_name
10634: BEGIN
10635: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10636: -- Call start_activity to create savepoint, check compatibility
10637: -- and initialize message list
10638: x_return_status := OKL_API.START_ACTIVITY (
10639: l_api_name
10640: ,p_init_msg_list
10641: ,'_PVT'
10642: ,x_return_status);
10640: ,p_init_msg_list
10641: ,'_PVT'
10642: ,x_return_status);
10643: -- Check if activity started successfully
10644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10647: RAISE OKL_API.G_EXCEPTION_ERROR;
10648: END IF;
10641: ,'_PVT'
10642: ,x_return_status);
10643: -- Check if activity started successfully
10644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10647: RAISE OKL_API.G_EXCEPTION_ERROR;
10648: END IF;
10649: OKL_API.init_msg_list(p_init_msg_list);
10642: ,x_return_status);
10643: -- Check if activity started successfully
10644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10647: RAISE OKL_API.G_EXCEPTION_ERROR;
10648: END IF;
10649: OKL_API.init_msg_list(p_init_msg_list);
10650: -- Make sure PL/SQL table has records in it before passing
10643: -- Check if activity started successfully
10644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10647: RAISE OKL_API.G_EXCEPTION_ERROR;
10648: END IF;
10649: OKL_API.init_msg_list(p_init_msg_list);
10650: -- Make sure PL/SQL table has records in it before passing
10651: IF (p_clev_tbl.COUNT > 0) AND
10645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10647: RAISE OKL_API.G_EXCEPTION_ERROR;
10648: END IF;
10649: OKL_API.init_msg_list(p_init_msg_list);
10650: -- Make sure PL/SQL table has records in it before passing
10651: IF (p_clev_tbl.COUNT > 0) AND
10652: (p_klev_tbl.COUNT > 0) AND
10653: (p_cimv_tbl.COUNT > 0)THEN
10653: (p_cimv_tbl.COUNT > 0)THEN
10654: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) OR
10655: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10656: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10657: OKL_API.set_message(p_app_name => G_APP_NAME,
10658: p_msg_name => G_CNT_REC);
10659: RAISE OKL_API.G_EXCEPTION_ERROR;
10660: END IF;
10661: i := p_clev_tbl.FIRST;
10655: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10656: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10657: OKL_API.set_message(p_app_name => G_APP_NAME,
10658: p_msg_name => G_CNT_REC);
10659: RAISE OKL_API.G_EXCEPTION_ERROR;
10660: END IF;
10661: i := p_clev_tbl.FIRST;
10662: j := p_klev_tbl.FIRST;
10663: k := p_cimv_tbl.FIRST;
10675: p_cimv_rec => p_cimv_tbl(k),
10676: x_clev_rec => x_clev_tbl(i),
10677: x_klev_rec => x_klev_tbl(j),
10678: x_cimv_rec => x_cimv_tbl(k));
10679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10682: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10683: RAISE OKL_API.G_EXCEPTION_ERROR;
10676: x_clev_rec => x_clev_tbl(i),
10677: x_klev_rec => x_klev_tbl(j),
10678: x_cimv_rec => x_cimv_tbl(k));
10679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10682: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10683: RAISE OKL_API.G_EXCEPTION_ERROR;
10684: END IF;
10677: x_klev_rec => x_klev_tbl(j),
10678: x_cimv_rec => x_cimv_tbl(k));
10679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10682: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10683: RAISE OKL_API.G_EXCEPTION_ERROR;
10684: END IF;
10685: ln_add_cle_id := x_clev_tbl(i).cle_id;
10678: x_cimv_rec => x_cimv_tbl(k));
10679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10682: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10683: RAISE OKL_API.G_EXCEPTION_ERROR;
10684: END IF;
10685: ln_add_cle_id := x_clev_tbl(i).cle_id;
10686: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10682: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10683: RAISE OKL_API.G_EXCEPTION_ERROR;
10684: END IF;
10685: ln_add_cle_id := x_clev_tbl(i).cle_id;
10686: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10687: -- Assume that there will be one to one for item and add on line
10690: j := p_klev_tbl.NEXT(j);
10691: k := p_clev_tbl.NEXT(k);
10692: END LOOP;
10693: ELSE
10694: OKL_API.set_message(p_app_name => G_APP_NAME,
10695: p_msg_name => G_CNT_REC);
10696: x_return_status := OKL_API.G_RET_STS_ERROR;
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10692: END LOOP;
10693: ELSE
10694: OKL_API.set_message(p_app_name => G_APP_NAME,
10695: p_msg_name => G_CNT_REC);
10696: x_return_status := OKL_API.G_RET_STS_ERROR;
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10693: ELSE
10694: OKL_API.set_message(p_app_name => G_APP_NAME,
10695: p_msg_name => G_CNT_REC);
10696: x_return_status := OKL_API.G_RET_STS_ERROR;
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10695: p_msg_name => G_CNT_REC);
10696: x_return_status := OKL_API.G_RET_STS_ERROR;
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10702: RAISE OKL_API.G_EXCEPTION_ERROR;
10703: END IF;
10696: x_return_status := OKL_API.G_RET_STS_ERROR;
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10702: RAISE OKL_API.G_EXCEPTION_ERROR;
10703: END IF;
10704:
10697: RAISE OKL_API.G_EXCEPTION_ERROR;
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10702: RAISE OKL_API.G_EXCEPTION_ERROR;
10703: END IF;
10704:
10705: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10698: END IF;
10699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10702: RAISE OKL_API.G_EXCEPTION_ERROR;
10703: END IF;
10704:
10705: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10706: p_dnz_chr_id => ln_add_dnz_chr_id);
10706: p_dnz_chr_id => ln_add_dnz_chr_id);
10707: FETCH c_model_top_line INTO ln_top_line_id;
10708:
10709: IF c_model_top_line%NOTFOUND THEN
10710: OKL_API.set_message(p_app_name => G_APP_NAME,
10711: p_msg_name => G_NO_MATCHING_RECORD,
10712: p_token1 => G_COL_NAME_TOKEN,
10713: p_token1_value => 'cle_id');
10714: RAISE G_EXCEPTION_HALT_VALIDATION;
10729: p_dnz_chr_id => ln_add_dnz_chr_id,
10730: x_fin_clev_rec => x_fin_clev_rec,
10731: x_fin_klev_rec => x_fin_klev_rec,
10732: x_oec => ln_klev_fin_oec,
10733: p_validate_fin_line => OKL_API.G_TRUE);
10734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10730: x_fin_clev_rec => x_fin_clev_rec,
10731: x_fin_klev_rec => x_fin_klev_rec,
10732: x_oec => ln_klev_fin_oec,
10733: p_validate_fin_line => OKL_API.G_TRUE);
10734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10738: END IF;
10731: x_fin_klev_rec => x_fin_klev_rec,
10732: x_oec => ln_klev_fin_oec,
10733: p_validate_fin_line => OKL_API.G_TRUE);
10734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10738: END IF;
10739: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10732: x_oec => ln_klev_fin_oec,
10733: p_validate_fin_line => OKL_API.G_TRUE);
10734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10738: END IF;
10739: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10740: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10733: p_validate_fin_line => OKL_API.G_TRUE);
10734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10738: END IF;
10739: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10740: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10741: p_init_msg_list => p_init_msg_list,
10749: p_dnz_chr_id => ln_add_dnz_chr_id,
10750: x_fin_clev_rec => x_fin_clev_rec,
10751: x_fin_klev_rec => x_fin_klev_rec,
10752: x_cap_amt => ln_klev_fin_cap,
10753: p_validate_fin_line => OKL_API.G_TRUE);
10754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10750: x_fin_clev_rec => x_fin_clev_rec,
10751: x_fin_klev_rec => x_fin_klev_rec,
10752: x_cap_amt => ln_klev_fin_cap,
10753: p_validate_fin_line => OKL_API.G_TRUE);
10754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10758: END IF;
10751: x_fin_klev_rec => x_fin_klev_rec,
10752: x_cap_amt => ln_klev_fin_cap,
10753: p_validate_fin_line => OKL_API.G_TRUE);
10754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10758: END IF;
10759: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10752: x_cap_amt => ln_klev_fin_cap,
10753: p_validate_fin_line => OKL_API.G_TRUE);
10754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10758: END IF;
10759: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10760: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10753: p_validate_fin_line => OKL_API.G_TRUE);
10754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10758: END IF;
10759: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10760: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10761: p_init_msg_list => p_init_msg_list,
10769: p_dnz_chr_id => ln_add_dnz_chr_id,
10770: x_fin_clev_rec => x_fin_clev_rec,
10771: x_fin_klev_rec => x_fin_klev_rec,
10772: x_res_value => ln_klev_fin_res,
10773: p_validate_fin_line => OKL_API.G_TRUE);
10774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10770: x_fin_clev_rec => x_fin_clev_rec,
10771: x_fin_klev_rec => x_fin_klev_rec,
10772: x_res_value => ln_klev_fin_res,
10773: p_validate_fin_line => OKL_API.G_TRUE);
10774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10771: x_fin_klev_rec => x_fin_klev_rec,
10772: x_res_value => ln_klev_fin_res,
10773: p_validate_fin_line => OKL_API.G_TRUE);
10774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779:
10772: x_res_value => ln_klev_fin_res,
10773: p_validate_fin_line => OKL_API.G_TRUE);
10774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779:
10780: --Bug# 5530990
10773: p_validate_fin_line => OKL_API.G_TRUE);
10774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10777: RAISE OKL_API.G_EXCEPTION_ERROR;
10778: END IF;
10779:
10780: --Bug# 5530990
10781: -- Update Original Cost and Depreciation Cost in
10788: x_msg_data => x_msg_data,
10789: p_cleb_fin_id => ln_top_line_id,
10790: p_chr_id => ln_add_dnz_chr_id,
10791: p_oec => ln_klev_fin_oec);
10792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10795: RAISE OKL_API.G_EXCEPTION_ERROR;
10796: END IF;
10789: p_cleb_fin_id => ln_top_line_id,
10790: p_chr_id => ln_add_dnz_chr_id,
10791: p_oec => ln_klev_fin_oec);
10792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10795: RAISE OKL_API.G_EXCEPTION_ERROR;
10796: END IF;
10797:
10790: p_chr_id => ln_add_dnz_chr_id,
10791: p_oec => ln_klev_fin_oec);
10792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10795: RAISE OKL_API.G_EXCEPTION_ERROR;
10796: END IF;
10797:
10798: -- We need to change the status of the header whenever there is updating happening
10791: p_oec => ln_klev_fin_oec);
10792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10795: RAISE OKL_API.G_EXCEPTION_ERROR;
10796: END IF;
10797:
10798: -- We need to change the status of the header whenever there is updating happening
10799: -- after the contract status is approved
10797:
10798: -- We need to change the status of the header whenever there is updating happening
10799: -- after the contract status is approved
10800: IF (x_fin_clev_rec.dnz_chr_id is NOT NULL) AND
10801: (x_fin_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
10802: --cascade edit status on to lines
10803: okl_contract_status_pub.cascade_lease_status_edit
10804: (p_api_version => p_api_version,
10805: p_init_msg_list => p_init_msg_list,
10806: x_return_status => x_return_status,
10807: x_msg_count => x_msg_count,
10808: x_msg_data => x_msg_data,
10809: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10813: RAISE OKL_API.G_EXCEPTION_ERROR;
10814: END IF;
10807: x_msg_count => x_msg_count,
10808: x_msg_data => x_msg_data,
10809: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10813: RAISE OKL_API.G_EXCEPTION_ERROR;
10814: END IF;
10815: END IF;
10808: x_msg_data => x_msg_data,
10809: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10813: RAISE OKL_API.G_EXCEPTION_ERROR;
10814: END IF;
10815: END IF;
10816: OKL_API.END_ACTIVITY (x_msg_count,
10809: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10810: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10811: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10813: RAISE OKL_API.G_EXCEPTION_ERROR;
10814: END IF;
10815: END IF;
10816: OKL_API.END_ACTIVITY (x_msg_count,
10817: x_msg_data );
10812: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10813: RAISE OKL_API.G_EXCEPTION_ERROR;
10814: END IF;
10815: END IF;
10816: OKL_API.END_ACTIVITY (x_msg_count,
10817: x_msg_data );
10818: EXCEPTION
10819: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10820: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10815: END IF;
10816: OKL_API.END_ACTIVITY (x_msg_count,
10817: x_msg_data );
10818: EXCEPTION
10819: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10820: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10821: l_api_name,
10822: G_PKG_NAME,
10823: 'OKL_API.G_RET_STS_ERROR',
10816: OKL_API.END_ACTIVITY (x_msg_count,
10817: x_msg_data );
10818: EXCEPTION
10819: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10820: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10821: l_api_name,
10822: G_PKG_NAME,
10823: 'OKL_API.G_RET_STS_ERROR',
10824: x_msg_count,
10819: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10820: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10821: l_api_name,
10822: G_PKG_NAME,
10823: 'OKL_API.G_RET_STS_ERROR',
10824: x_msg_count,
10825: x_msg_data,
10826: '_PVT');
10827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10823: 'OKL_API.G_RET_STS_ERROR',
10824: x_msg_count,
10825: x_msg_data,
10826: '_PVT');
10827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10828: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10829: l_api_name,
10830: G_PKG_NAME,
10831: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10824: x_msg_count,
10825: x_msg_data,
10826: '_PVT');
10827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10828: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10829: l_api_name,
10830: G_PKG_NAME,
10831: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10832: x_msg_count,
10827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10828: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10829: l_api_name,
10830: G_PKG_NAME,
10831: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10832: x_msg_count,
10833: x_msg_data,
10834: '_PVT');
10835: WHEN OTHERS THEN
10832: x_msg_count,
10833: x_msg_data,
10834: '_PVT');
10835: WHEN OTHERS THEN
10836: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10837: l_api_name,
10838: G_PKG_NAME,
10839: 'OTHERS',
10840: x_msg_count,
10878: AND cle.dnz_chr_id = p_dnz_chr_id
10879: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10880:
10881: BEGIN
10882: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10883: -- Call start_activity to create savepoint, check compatibility
10884: -- and initialize message list
10885: x_return_status := OKL_API.START_ACTIVITY (
10886: l_api_name
10881: BEGIN
10882: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10883: -- Call start_activity to create savepoint, check compatibility
10884: -- and initialize message list
10885: x_return_status := OKL_API.START_ACTIVITY (
10886: l_api_name
10887: ,p_init_msg_list
10888: ,'_PVT'
10889: ,x_return_status);
10887: ,p_init_msg_list
10888: ,'_PVT'
10889: ,x_return_status);
10890: -- Check if activity started successfully
10891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10894: RAISE OKL_API.G_EXCEPTION_ERROR;
10895: END IF;
10888: ,'_PVT'
10889: ,x_return_status);
10890: -- Check if activity started successfully
10891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10894: RAISE OKL_API.G_EXCEPTION_ERROR;
10895: END IF;
10896: OKL_API.init_msg_list(p_init_msg_list);
10889: ,x_return_status);
10890: -- Check if activity started successfully
10891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10894: RAISE OKL_API.G_EXCEPTION_ERROR;
10895: END IF;
10896: OKL_API.init_msg_list(p_init_msg_list);
10897: -- Make sure PL/SQL table has records in it before passing
10890: -- Check if activity started successfully
10891: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10894: RAISE OKL_API.G_EXCEPTION_ERROR;
10895: END IF;
10896: OKL_API.init_msg_list(p_init_msg_list);
10897: -- Make sure PL/SQL table has records in it before passing
10898: IF (p_clev_tbl.COUNT > 0) AND
10892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10894: RAISE OKL_API.G_EXCEPTION_ERROR;
10895: END IF;
10896: OKL_API.init_msg_list(p_init_msg_list);
10897: -- Make sure PL/SQL table has records in it before passing
10898: IF (p_clev_tbl.COUNT > 0) AND
10899: (p_klev_tbl.COUNT > 0) THEN
10900: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10897: -- Make sure PL/SQL table has records in it before passing
10898: IF (p_clev_tbl.COUNT > 0) AND
10899: (p_klev_tbl.COUNT > 0) THEN
10900: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10901: OKL_API.set_message(p_app_name => G_APP_NAME,
10902: p_msg_name => G_CNT_REC);
10903: RAISE OKL_API.G_EXCEPTION_ERROR;
10904: END IF;
10905: i := p_clev_tbl.FIRST;
10899: (p_klev_tbl.COUNT > 0) THEN
10900: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10901: OKL_API.set_message(p_app_name => G_APP_NAME,
10902: p_msg_name => G_CNT_REC);
10903: RAISE OKL_API.G_EXCEPTION_ERROR;
10904: END IF;
10905: i := p_clev_tbl.FIRST;
10906: j := p_klev_tbl.FIRST;
10907: LOOP
10912: x_msg_data => x_msg_data,
10913: p_clev_rec => p_clev_tbl(i),
10914: p_klev_rec => p_klev_tbl(j),
10915: x_clev_rec => l_clev_tbl(i));
10916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10919: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10920: END IF;
10913: p_clev_rec => p_clev_tbl(i),
10914: p_klev_rec => p_klev_tbl(j),
10915: x_clev_rec => l_clev_tbl(i));
10916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10919: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10920: END IF;
10921: ln_add_cle_id := l_clev_tbl(i).cle_id;
10914: p_klev_rec => p_klev_tbl(j),
10915: x_clev_rec => l_clev_tbl(i));
10916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10919: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10920: END IF;
10921: ln_add_cle_id := l_clev_tbl(i).cle_id;
10922: ln_add_dnz_chr_id := l_clev_tbl(i).dnz_chr_id;
10915: x_clev_rec => l_clev_tbl(i));
10916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10919: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10920: END IF;
10921: ln_add_cle_id := l_clev_tbl(i).cle_id;
10922: ln_add_dnz_chr_id := l_clev_tbl(i).dnz_chr_id;
10923: -- Assume that there will be one to one for item and add on line
10925: i := p_clev_tbl.NEXT(i);
10926: j := p_klev_tbl.NEXT(j);
10927: END LOOP;
10928: ELSE
10929: OKL_API.set_message(p_app_name => G_APP_NAME,
10930: p_msg_name => G_CNT_REC);
10931: x_return_status := OKL_API.G_RET_STS_ERROR;
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10927: END LOOP;
10928: ELSE
10929: OKL_API.set_message(p_app_name => G_APP_NAME,
10930: p_msg_name => G_CNT_REC);
10931: x_return_status := OKL_API.G_RET_STS_ERROR;
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10928: ELSE
10929: OKL_API.set_message(p_app_name => G_APP_NAME,
10930: p_msg_name => G_CNT_REC);
10931: x_return_status := OKL_API.G_RET_STS_ERROR;
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10930: p_msg_name => G_CNT_REC);
10931: x_return_status := OKL_API.G_RET_STS_ERROR;
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10937: RAISE OKL_API.G_EXCEPTION_ERROR;
10938: END IF;
10931: x_return_status := OKL_API.G_RET_STS_ERROR;
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10937: RAISE OKL_API.G_EXCEPTION_ERROR;
10938: END IF;
10939:
10932: RAISE OKL_API.G_EXCEPTION_ERROR;
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10937: RAISE OKL_API.G_EXCEPTION_ERROR;
10938: END IF;
10939:
10940: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10933: END IF;
10934: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10935: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10936: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10937: RAISE OKL_API.G_EXCEPTION_ERROR;
10938: END IF;
10939:
10940: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10941: p_dnz_chr_id => ln_add_dnz_chr_id);
10941: p_dnz_chr_id => ln_add_dnz_chr_id);
10942: FETCH c_model_top_line INTO ln_top_line_id;
10943:
10944: IF c_model_top_line%NOTFOUND THEN
10945: OKL_API.set_message(p_app_name => G_APP_NAME,
10946: p_msg_name => G_NO_MATCHING_RECORD,
10947: p_token1 => G_COL_NAME_TOKEN,
10948: p_token1_value => 'cle_id');
10949: RAISE G_EXCEPTION_HALT_VALIDATION;
10964: p_dnz_chr_id => ln_add_dnz_chr_id,
10965: x_fin_clev_rec => x_fin_clev_rec,
10966: x_fin_klev_rec => x_fin_klev_rec,
10967: x_oec => ln_klev_fin_oec,
10968: p_validate_fin_line => OKL_API.G_TRUE);
10969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10965: x_fin_clev_rec => x_fin_clev_rec,
10966: x_fin_klev_rec => x_fin_klev_rec,
10967: x_oec => ln_klev_fin_oec,
10968: p_validate_fin_line => OKL_API.G_TRUE);
10969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10973: END IF;
10966: x_fin_klev_rec => x_fin_klev_rec,
10967: x_oec => ln_klev_fin_oec,
10968: p_validate_fin_line => OKL_API.G_TRUE);
10969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10973: END IF;
10974: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10967: x_oec => ln_klev_fin_oec,
10968: p_validate_fin_line => OKL_API.G_TRUE);
10969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10973: END IF;
10974: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10975: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10968: p_validate_fin_line => OKL_API.G_TRUE);
10969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10973: END IF;
10974: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10975: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10976: p_init_msg_list => p_init_msg_list,
10984: p_dnz_chr_id => ln_add_dnz_chr_id,
10985: x_fin_clev_rec => x_fin_clev_rec,
10986: x_fin_klev_rec => x_fin_klev_rec,
10987: x_cap_amt => ln_klev_fin_cap,
10988: p_validate_fin_line => OKL_API.G_TRUE);
10989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10985: x_fin_clev_rec => x_fin_clev_rec,
10986: x_fin_klev_rec => x_fin_klev_rec,
10987: x_cap_amt => ln_klev_fin_cap,
10988: p_validate_fin_line => OKL_API.G_TRUE);
10989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10993: END IF;
10986: x_fin_klev_rec => x_fin_klev_rec,
10987: x_cap_amt => ln_klev_fin_cap,
10988: p_validate_fin_line => OKL_API.G_TRUE);
10989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10993: END IF;
10994: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10987: x_cap_amt => ln_klev_fin_cap,
10988: p_validate_fin_line => OKL_API.G_TRUE);
10989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10993: END IF;
10994: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10995: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10988: p_validate_fin_line => OKL_API.G_TRUE);
10989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10993: END IF;
10994: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10995: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10996: p_init_msg_list => p_init_msg_list,
11004: p_dnz_chr_id => ln_add_dnz_chr_id,
11005: x_fin_clev_rec => x_fin_clev_rec,
11006: x_fin_klev_rec => x_fin_klev_rec,
11007: x_res_value => ln_klev_fin_res,
11008: p_validate_fin_line => OKL_API.G_TRUE);
11009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11012: RAISE OKL_API.G_EXCEPTION_ERROR;
11005: x_fin_clev_rec => x_fin_clev_rec,
11006: x_fin_klev_rec => x_fin_klev_rec,
11007: x_res_value => ln_klev_fin_res,
11008: p_validate_fin_line => OKL_API.G_TRUE);
11009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11012: RAISE OKL_API.G_EXCEPTION_ERROR;
11013: END IF;
11006: x_fin_klev_rec => x_fin_klev_rec,
11007: x_res_value => ln_klev_fin_res,
11008: p_validate_fin_line => OKL_API.G_TRUE);
11009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11012: RAISE OKL_API.G_EXCEPTION_ERROR;
11013: END IF;
11014:
11007: x_res_value => ln_klev_fin_res,
11008: p_validate_fin_line => OKL_API.G_TRUE);
11009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11012: RAISE OKL_API.G_EXCEPTION_ERROR;
11013: END IF;
11014:
11015: --Bug# 5530990
11008: p_validate_fin_line => OKL_API.G_TRUE);
11009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11012: RAISE OKL_API.G_EXCEPTION_ERROR;
11013: END IF;
11014:
11015: --Bug# 5530990
11016: -- Update Original Cost and Depreciation Cost in
11023: x_msg_data => x_msg_data,
11024: p_cleb_fin_id => ln_top_line_id,
11025: p_chr_id => ln_add_dnz_chr_id,
11026: p_oec => ln_klev_fin_oec);
11027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11030: RAISE OKL_API.G_EXCEPTION_ERROR;
11031: END IF;
11024: p_cleb_fin_id => ln_top_line_id,
11025: p_chr_id => ln_add_dnz_chr_id,
11026: p_oec => ln_klev_fin_oec);
11027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11030: RAISE OKL_API.G_EXCEPTION_ERROR;
11031: END IF;
11032:
11025: p_chr_id => ln_add_dnz_chr_id,
11026: p_oec => ln_klev_fin_oec);
11027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11030: RAISE OKL_API.G_EXCEPTION_ERROR;
11031: END IF;
11032:
11033: -- We need to change the status of the header whenever there is updating happening
11026: p_oec => ln_klev_fin_oec);
11027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11028: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11029: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11030: RAISE OKL_API.G_EXCEPTION_ERROR;
11031: END IF;
11032:
11033: -- We need to change the status of the header whenever there is updating happening
11034: -- after the contract status is approved
11032:
11033: -- We need to change the status of the header whenever there is updating happening
11034: -- after the contract status is approved
11035: IF (x_fin_clev_rec.dnz_chr_id is NOT NULL) AND
11036: (x_fin_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
11037: --cascade edit status on to lines
11038: okl_contract_status_pub.cascade_lease_status_edit
11039: (p_api_version => p_api_version,
11040: p_init_msg_list => p_init_msg_list,
11041: x_return_status => x_return_status,
11042: x_msg_count => x_msg_count,
11043: x_msg_data => x_msg_data,
11044: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11048: RAISE OKL_API.G_EXCEPTION_ERROR;
11049: END IF;
11042: x_msg_count => x_msg_count,
11043: x_msg_data => x_msg_data,
11044: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11048: RAISE OKL_API.G_EXCEPTION_ERROR;
11049: END IF;
11050: END IF;
11043: x_msg_data => x_msg_data,
11044: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11048: RAISE OKL_API.G_EXCEPTION_ERROR;
11049: END IF;
11050: END IF;
11051: OKL_API.END_ACTIVITY (x_msg_count,
11044: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11048: RAISE OKL_API.G_EXCEPTION_ERROR;
11049: END IF;
11050: END IF;
11051: OKL_API.END_ACTIVITY (x_msg_count,
11052: x_msg_data );
11047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11048: RAISE OKL_API.G_EXCEPTION_ERROR;
11049: END IF;
11050: END IF;
11051: OKL_API.END_ACTIVITY (x_msg_count,
11052: x_msg_data );
11053: EXCEPTION
11054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11050: END IF;
11051: OKL_API.END_ACTIVITY (x_msg_count,
11052: x_msg_data );
11053: EXCEPTION
11054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11056: l_api_name,
11057: G_PKG_NAME,
11058: 'OKL_API.G_RET_STS_ERROR',
11051: OKL_API.END_ACTIVITY (x_msg_count,
11052: x_msg_data );
11053: EXCEPTION
11054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11056: l_api_name,
11057: G_PKG_NAME,
11058: 'OKL_API.G_RET_STS_ERROR',
11059: x_msg_count,
11054: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11056: l_api_name,
11057: G_PKG_NAME,
11058: 'OKL_API.G_RET_STS_ERROR',
11059: x_msg_count,
11060: x_msg_data,
11061: '_PVT');
11062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11058: 'OKL_API.G_RET_STS_ERROR',
11059: x_msg_count,
11060: x_msg_data,
11061: '_PVT');
11062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11063: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11064: l_api_name,
11065: G_PKG_NAME,
11066: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11059: x_msg_count,
11060: x_msg_data,
11061: '_PVT');
11062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11063: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11064: l_api_name,
11065: G_PKG_NAME,
11066: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11067: x_msg_count,
11062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11063: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11064: l_api_name,
11065: G_PKG_NAME,
11066: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11067: x_msg_count,
11068: x_msg_data,
11069: '_PVT');
11070: WHEN OTHERS THEN
11067: x_msg_count,
11068: x_msg_data,
11069: '_PVT');
11070: WHEN OTHERS THEN
11071: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11072: l_api_name,
11073: G_PKG_NAME,
11074: 'OTHERS',
11075: x_msg_count,
11080: ------------------ Main Process for Instance Line Creation-------------------------------------
11081: -----------------------------------------------------------------------------------------------
11082: PROCEDURE Create_instance_line(
11083: p_api_version IN NUMBER,
11084: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11085: x_return_status OUT NOCOPY VARCHAR2,
11086: x_msg_count OUT NOCOPY NUMBER,
11087: x_msg_data OUT NOCOPY VARCHAR2,
11088: p_clev_rec IN clev_rec_type,
11093: x_itiv_rec OUT NOCOPY itiv_rec_type) IS
11094:
11095: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTANCE_LINES';
11096: l_clev_rec clev_rec_type;
11097: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
11098: -- Variables for validation of line style
11099: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11100: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11101: BEGIN
11098: -- Variables for validation of line style
11099: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11100: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11101: BEGIN
11102: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11103: -- Call start_activity to create savepoint, check compatibility
11104: -- and initialize message list
11105: x_return_status := OKL_API.START_ACTIVITY (
11106: l_api_name
11101: BEGIN
11102: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11103: -- Call start_activity to create savepoint, check compatibility
11104: -- and initialize message list
11105: x_return_status := OKL_API.START_ACTIVITY (
11106: l_api_name
11107: ,p_init_msg_list
11108: ,'_PVT'
11109: ,x_return_status);
11107: ,p_init_msg_list
11108: ,'_PVT'
11109: ,x_return_status);
11110: -- Check if activity started successfully
11111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11114: RAISE OKL_API.G_EXCEPTION_ERROR;
11115: END IF;
11108: ,'_PVT'
11109: ,x_return_status);
11110: -- Check if activity started successfully
11111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11114: RAISE OKL_API.G_EXCEPTION_ERROR;
11115: END IF;
11116: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11109: ,x_return_status);
11110: -- Check if activity started successfully
11111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11114: RAISE OKL_API.G_EXCEPTION_ERROR;
11115: END IF;
11116: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11117: /*
11110: -- Check if activity started successfully
11111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11113: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11114: RAISE OKL_API.G_EXCEPTION_ERROR;
11115: END IF;
11116: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11117: /*
11118: -- Validate Line Style id and get the line type code
11121: x_return_status => x_return_status,
11122: x_lty_code => l_lty_code,
11123: x_lse_type => l_lse_type);
11124: -- Check if activity started successfully
11125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11128: RAISE OKL_API.G_EXCEPTION_ERROR;
11129: END IF;
11122: x_lty_code => l_lty_code,
11123: x_lse_type => l_lse_type);
11124: -- Check if activity started successfully
11125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11128: RAISE OKL_API.G_EXCEPTION_ERROR;
11129: END IF;
11130: -- Validate the Dnz_Chr_id
11123: x_lse_type => l_lse_type);
11124: -- Check if activity started successfully
11125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11128: RAISE OKL_API.G_EXCEPTION_ERROR;
11129: END IF;
11130: -- Validate the Dnz_Chr_id
11131: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11124: -- Check if activity started successfully
11125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11127: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11128: RAISE OKL_API.G_EXCEPTION_ERROR;
11129: END IF;
11130: -- Validate the Dnz_Chr_id
11131: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11132: x_return_status => x_return_status);
11130: -- Validate the Dnz_Chr_id
11131: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11132: x_return_status => x_return_status);
11133: -- Check if activity started successfully
11134: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11136: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11137: RAISE OKL_API.G_EXCEPTION_ERROR;
11138: END IF;
11131: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11132: x_return_status => x_return_status);
11133: -- Check if activity started successfully
11134: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11136: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11137: RAISE OKL_API.G_EXCEPTION_ERROR;
11138: END IF;
11139: */
11132: x_return_status => x_return_status);
11133: -- Check if activity started successfully
11134: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11136: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11137: RAISE OKL_API.G_EXCEPTION_ERROR;
11138: END IF;
11139: */
11140: -- Now we are going to create the instance Line
11133: -- Check if activity started successfully
11134: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11136: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11137: RAISE OKL_API.G_EXCEPTION_ERROR;
11138: END IF;
11139: */
11140: -- Now we are going to create the instance Line
11141: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11141: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11142: -- The Record Should have the cle_id
11143: -- if the given line style is instance Line
11144: l_clev_rec := p_clev_rec;
11145: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11146: l_clev_rec.chr_id IS NULL) AND
11147: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11148: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11149: (l_clev_rec.cle_id IS NOT NULL OR
11144: l_clev_rec := p_clev_rec;
11145: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11146: l_clev_rec.chr_id IS NULL) AND
11147: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11148: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11149: (l_clev_rec.cle_id IS NOT NULL OR
11150: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11151: -- #4414408
11152: -- l_lty_code = G_INST_LINE_LTY_CODE AND
11146: l_clev_rec.chr_id IS NULL) AND
11147: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11148: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11149: (l_clev_rec.cle_id IS NOT NULL OR
11150: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11151: -- #4414408
11152: -- l_lty_code = G_INST_LINE_LTY_CODE AND
11153: -- l_lse_type = G_SLS_TYPE THEN
11154: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11153: -- l_lse_type = G_SLS_TYPE THEN
11154: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11155: validate_instance_number_ib(x_return_status => x_return_status,
11156: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11160: RAISE OKL_API.G_EXCEPTION_ERROR;
11161: END IF;
11154: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11155: validate_instance_number_ib(x_return_status => x_return_status,
11156: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11160: RAISE OKL_API.G_EXCEPTION_ERROR;
11161: END IF;
11162: Create_inst_line(p_api_version => p_api_version,
11155: validate_instance_number_ib(x_return_status => x_return_status,
11156: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11160: RAISE OKL_API.G_EXCEPTION_ERROR;
11161: END IF;
11162: Create_inst_line(p_api_version => p_api_version,
11163: p_init_msg_list => p_init_msg_list,
11156: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11160: RAISE OKL_API.G_EXCEPTION_ERROR;
11161: END IF;
11162: Create_inst_line(p_api_version => p_api_version,
11163: p_init_msg_list => p_init_msg_list,
11164: x_return_status => x_return_status,
11168: p_clev_rec => l_clev_rec,
11169: p_klev_rec => p_klev_rec,
11170: x_clev_rec => x_clev_rec,
11171: x_klev_rec => x_klev_rec);
11172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11175: RAISE OKL_API.G_EXCEPTION_ERROR;
11176: END IF;
11169: p_klev_rec => p_klev_rec,
11170: x_clev_rec => x_clev_rec,
11171: x_klev_rec => x_klev_rec);
11172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11175: RAISE OKL_API.G_EXCEPTION_ERROR;
11176: END IF;
11177: ELSE
11170: x_clev_rec => x_clev_rec,
11171: x_klev_rec => x_klev_rec);
11172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11175: RAISE OKL_API.G_EXCEPTION_ERROR;
11176: END IF;
11177: ELSE
11178: OKL_API.set_message(p_app_name => G_APP_NAME,
11171: x_klev_rec => x_klev_rec);
11172: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11173: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11175: RAISE OKL_API.G_EXCEPTION_ERROR;
11176: END IF;
11177: ELSE
11178: OKL_API.set_message(p_app_name => G_APP_NAME,
11179: p_msg_name => G_INVALID_CRITERIA,
11174: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11175: RAISE OKL_API.G_EXCEPTION_ERROR;
11176: END IF;
11177: ELSE
11178: OKL_API.set_message(p_app_name => G_APP_NAME,
11179: p_msg_name => G_INVALID_CRITERIA,
11180: p_token1 => G_COL_NAME_TOKEN,
11181: p_token1_value => 'Instance Asset line');
11182: x_return_status := OKL_API.G_RET_STS_ERROR;
11178: OKL_API.set_message(p_app_name => G_APP_NAME,
11179: p_msg_name => G_INVALID_CRITERIA,
11180: p_token1 => G_COL_NAME_TOKEN,
11181: p_token1_value => 'Instance Asset line');
11182: x_return_status := OKL_API.G_RET_STS_ERROR;
11183: RAISE OKL_API.G_EXCEPTION_ERROR;
11184: END IF;
11185: OKL_API.END_ACTIVITY (x_msg_count,
11186: x_msg_data );
11179: p_msg_name => G_INVALID_CRITERIA,
11180: p_token1 => G_COL_NAME_TOKEN,
11181: p_token1_value => 'Instance Asset line');
11182: x_return_status := OKL_API.G_RET_STS_ERROR;
11183: RAISE OKL_API.G_EXCEPTION_ERROR;
11184: END IF;
11185: OKL_API.END_ACTIVITY (x_msg_count,
11186: x_msg_data );
11187: EXCEPTION
11181: p_token1_value => 'Instance Asset line');
11182: x_return_status := OKL_API.G_RET_STS_ERROR;
11183: RAISE OKL_API.G_EXCEPTION_ERROR;
11184: END IF;
11185: OKL_API.END_ACTIVITY (x_msg_count,
11186: x_msg_data );
11187: EXCEPTION
11188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11189: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11184: END IF;
11185: OKL_API.END_ACTIVITY (x_msg_count,
11186: x_msg_data );
11187: EXCEPTION
11188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11189: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11190: l_api_name,
11191: G_PKG_NAME,
11192: 'OKL_API.G_RET_STS_ERROR',
11185: OKL_API.END_ACTIVITY (x_msg_count,
11186: x_msg_data );
11187: EXCEPTION
11188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11189: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11190: l_api_name,
11191: G_PKG_NAME,
11192: 'OKL_API.G_RET_STS_ERROR',
11193: x_msg_count,
11188: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11189: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11190: l_api_name,
11191: G_PKG_NAME,
11192: 'OKL_API.G_RET_STS_ERROR',
11193: x_msg_count,
11194: x_msg_data,
11195: '_PVT');
11196: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11192: 'OKL_API.G_RET_STS_ERROR',
11193: x_msg_count,
11194: x_msg_data,
11195: '_PVT');
11196: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11197: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11198: l_api_name,
11199: G_PKG_NAME,
11200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11193: x_msg_count,
11194: x_msg_data,
11195: '_PVT');
11196: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11197: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11198: l_api_name,
11199: G_PKG_NAME,
11200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11201: x_msg_count,
11196: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11197: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11198: l_api_name,
11199: G_PKG_NAME,
11200: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11201: x_msg_count,
11202: x_msg_data,
11203: '_PVT');
11204: WHEN OTHERS THEN
11201: x_msg_count,
11202: x_msg_data,
11203: '_PVT');
11204: WHEN OTHERS THEN
11205: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11206: l_api_name,
11207: G_PKG_NAME,
11208: 'OTHERS',
11209: x_msg_count,
11214: ------------------ Main Process for Updating Instance Line ------------------------------------
11215: -----------------------------------------------------------------------------------------------
11216: PROCEDURE Update_instance_line(
11217: p_api_version IN NUMBER,
11218: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11219: x_return_status OUT NOCOPY VARCHAR2,
11220: x_msg_count OUT NOCOPY NUMBER,
11221: x_msg_data OUT NOCOPY VARCHAR2,
11222: p_clev_rec IN clev_rec_type,
11231: -- Variables for validation of line style
11232: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11233: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11234: BEGIN
11235: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11236: -- Call start_activity to create savepoint, check compatibility
11237: -- and initialize message list
11238: x_return_status := OKL_API.START_ACTIVITY (
11239: l_api_name
11234: BEGIN
11235: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11236: -- Call start_activity to create savepoint, check compatibility
11237: -- and initialize message list
11238: x_return_status := OKL_API.START_ACTIVITY (
11239: l_api_name
11240: ,p_init_msg_list
11241: ,'_PVT'
11242: ,x_return_status);
11240: ,p_init_msg_list
11241: ,'_PVT'
11242: ,x_return_status);
11243: -- Check if activity started successfully
11244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11247: RAISE OKL_API.G_EXCEPTION_ERROR;
11248: END IF;
11241: ,'_PVT'
11242: ,x_return_status);
11243: -- Check if activity started successfully
11244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11247: RAISE OKL_API.G_EXCEPTION_ERROR;
11248: END IF;
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11242: ,x_return_status);
11243: -- Check if activity started successfully
11244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11247: RAISE OKL_API.G_EXCEPTION_ERROR;
11248: END IF;
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11250: x_return_status => x_return_status);
11243: -- Check if activity started successfully
11244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11247: RAISE OKL_API.G_EXCEPTION_ERROR;
11248: END IF;
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11250: x_return_status => x_return_status);
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11247: RAISE OKL_API.G_EXCEPTION_ERROR;
11248: END IF;
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11250: x_return_status => x_return_status);
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11248: END IF;
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11250: x_return_status => x_return_status);
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256: -- Validate Line Style id and get the line type code
11249: validate_sts_code(p_clev_rec => p_clev_rec,
11250: x_return_status => x_return_status);
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256: -- Validate Line Style id and get the line type code
11257: -- and line style type for further processing
11250: x_return_status => x_return_status);
11251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11254: RAISE OKL_API.G_EXCEPTION_ERROR;
11255: END IF;
11256: -- Validate Line Style id and get the line type code
11257: -- and line style type for further processing
11258: validate_lse_id(p_clev_rec => p_clev_rec,
11259: x_return_status => x_return_status,
11260: x_lty_code => l_lty_code,
11261: x_lse_type => l_lse_type);
11262: -- Check if activity started successfully
11263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11266: RAISE OKL_API.G_EXCEPTION_ERROR;
11267: END IF;
11260: x_lty_code => l_lty_code,
11261: x_lse_type => l_lse_type);
11262: -- Check if activity started successfully
11263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11266: RAISE OKL_API.G_EXCEPTION_ERROR;
11267: END IF;
11268: -- Validate the Dnz_Chr_id
11261: x_lse_type => l_lse_type);
11262: -- Check if activity started successfully
11263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11266: RAISE OKL_API.G_EXCEPTION_ERROR;
11267: END IF;
11268: -- Validate the Dnz_Chr_id
11269: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11262: -- Check if activity started successfully
11263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11266: RAISE OKL_API.G_EXCEPTION_ERROR;
11267: END IF;
11268: -- Validate the Dnz_Chr_id
11269: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11270: x_return_status => x_return_status);
11268: -- Validate the Dnz_Chr_id
11269: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11270: x_return_status => x_return_status);
11271: -- Check if activity started successfully
11272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11275: RAISE OKL_API.G_EXCEPTION_ERROR;
11276: END IF;
11269: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11270: x_return_status => x_return_status);
11271: -- Check if activity started successfully
11272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11275: RAISE OKL_API.G_EXCEPTION_ERROR;
11276: END IF;
11277: -- Now we are going to create the instance Line
11270: x_return_status => x_return_status);
11271: -- Check if activity started successfully
11272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11275: RAISE OKL_API.G_EXCEPTION_ERROR;
11276: END IF;
11277: -- Now we are going to create the instance Line
11278: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11271: -- Check if activity started successfully
11272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11273: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11274: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11275: RAISE OKL_API.G_EXCEPTION_ERROR;
11276: END IF;
11277: -- Now we are going to create the instance Line
11278: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11279: -- The Record Should have the cle_id
11278: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11279: -- The Record Should have the cle_id
11280: -- if the given line style is instance Line
11281: l_clev_rec := p_clev_rec;
11282: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11283: l_clev_rec.chr_id IS NULL) AND
11284: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11285: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11286: (l_clev_rec.cle_id IS NOT NULL OR
11281: l_clev_rec := p_clev_rec;
11282: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11283: l_clev_rec.chr_id IS NULL) AND
11284: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11285: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11286: (l_clev_rec.cle_id IS NOT NULL OR
11287: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11288: l_lty_code = G_INST_LINE_LTY_CODE AND
11289: l_lse_type = G_SLS_TYPE THEN
11283: l_clev_rec.chr_id IS NULL) AND
11284: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11285: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11286: (l_clev_rec.cle_id IS NOT NULL OR
11287: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11288: l_lty_code = G_INST_LINE_LTY_CODE AND
11289: l_lse_type = G_SLS_TYPE THEN
11290: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11291: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11287: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11288: l_lty_code = G_INST_LINE_LTY_CODE AND
11289: l_lse_type = G_SLS_TYPE THEN
11290: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11291: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11292: update_inst_line(p_api_version => p_api_version,
11293: p_init_msg_list => p_init_msg_list,
11294: x_return_status => x_return_status,
11295: x_msg_count => x_msg_count,
11298: p_clev_rec => p_clev_rec,
11299: p_klev_rec => p_klev_rec,
11300: x_clev_rec => x_clev_rec,
11301: x_klev_rec => x_klev_rec);
11302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11299: p_klev_rec => p_klev_rec,
11300: x_clev_rec => x_clev_rec,
11301: x_klev_rec => x_klev_rec);
11302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307: ELSE
11300: x_clev_rec => x_clev_rec,
11301: x_klev_rec => x_klev_rec);
11302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307: ELSE
11308: OKL_API.set_message(p_app_name => G_APP_NAME,
11301: x_klev_rec => x_klev_rec);
11302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11303: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307: ELSE
11308: OKL_API.set_message(p_app_name => G_APP_NAME,
11309: p_msg_name => G_INVALID_CRITERIA,
11304: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11305: RAISE OKL_API.G_EXCEPTION_ERROR;
11306: END IF;
11307: ELSE
11308: OKL_API.set_message(p_app_name => G_APP_NAME,
11309: p_msg_name => G_INVALID_CRITERIA,
11310: p_token1 => G_COL_NAME_TOKEN,
11311: p_token1_value => 'Instance Asset line');
11312: x_return_status := OKL_API.G_RET_STS_ERROR;
11308: OKL_API.set_message(p_app_name => G_APP_NAME,
11309: p_msg_name => G_INVALID_CRITERIA,
11310: p_token1 => G_COL_NAME_TOKEN,
11311: p_token1_value => 'Instance Asset line');
11312: x_return_status := OKL_API.G_RET_STS_ERROR;
11313: RAISE OKL_API.G_EXCEPTION_ERROR;
11314: END IF;
11315: ELSE
11316: OKL_API.set_message(p_app_name => G_APP_NAME,
11309: p_msg_name => G_INVALID_CRITERIA,
11310: p_token1 => G_COL_NAME_TOKEN,
11311: p_token1_value => 'Instance Asset line');
11312: x_return_status := OKL_API.G_RET_STS_ERROR;
11313: RAISE OKL_API.G_EXCEPTION_ERROR;
11314: END IF;
11315: ELSE
11316: OKL_API.set_message(p_app_name => G_APP_NAME,
11317: p_msg_name => G_INVALID_CRITERIA,
11312: x_return_status := OKL_API.G_RET_STS_ERROR;
11313: RAISE OKL_API.G_EXCEPTION_ERROR;
11314: END IF;
11315: ELSE
11316: OKL_API.set_message(p_app_name => G_APP_NAME,
11317: p_msg_name => G_INVALID_CRITERIA,
11318: p_token1 => G_COL_NAME_TOKEN,
11319: p_token1_value => 'Instance Asset line');
11320: x_return_status := OKL_API.G_RET_STS_ERROR;
11316: OKL_API.set_message(p_app_name => G_APP_NAME,
11317: p_msg_name => G_INVALID_CRITERIA,
11318: p_token1 => G_COL_NAME_TOKEN,
11319: p_token1_value => 'Instance Asset line');
11320: x_return_status := OKL_API.G_RET_STS_ERROR;
11321: RAISE OKL_API.G_EXCEPTION_ERROR;
11322: END IF;
11323: OKL_API.END_ACTIVITY (x_msg_count,
11324: x_msg_data );
11317: p_msg_name => G_INVALID_CRITERIA,
11318: p_token1 => G_COL_NAME_TOKEN,
11319: p_token1_value => 'Instance Asset line');
11320: x_return_status := OKL_API.G_RET_STS_ERROR;
11321: RAISE OKL_API.G_EXCEPTION_ERROR;
11322: END IF;
11323: OKL_API.END_ACTIVITY (x_msg_count,
11324: x_msg_data );
11325: EXCEPTION
11319: p_token1_value => 'Instance Asset line');
11320: x_return_status := OKL_API.G_RET_STS_ERROR;
11321: RAISE OKL_API.G_EXCEPTION_ERROR;
11322: END IF;
11323: OKL_API.END_ACTIVITY (x_msg_count,
11324: x_msg_data );
11325: EXCEPTION
11326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11322: END IF;
11323: OKL_API.END_ACTIVITY (x_msg_count,
11324: x_msg_data );
11325: EXCEPTION
11326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11328: l_api_name,
11329: G_PKG_NAME,
11330: 'OKL_API.G_RET_STS_ERROR',
11323: OKL_API.END_ACTIVITY (x_msg_count,
11324: x_msg_data );
11325: EXCEPTION
11326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11328: l_api_name,
11329: G_PKG_NAME,
11330: 'OKL_API.G_RET_STS_ERROR',
11331: x_msg_count,
11326: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11327: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11328: l_api_name,
11329: G_PKG_NAME,
11330: 'OKL_API.G_RET_STS_ERROR',
11331: x_msg_count,
11332: x_msg_data,
11333: '_PVT');
11334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11330: 'OKL_API.G_RET_STS_ERROR',
11331: x_msg_count,
11332: x_msg_data,
11333: '_PVT');
11334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11336: l_api_name,
11337: G_PKG_NAME,
11338: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11331: x_msg_count,
11332: x_msg_data,
11333: '_PVT');
11334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11336: l_api_name,
11337: G_PKG_NAME,
11338: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11339: x_msg_count,
11334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11336: l_api_name,
11337: G_PKG_NAME,
11338: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11339: x_msg_count,
11340: x_msg_data,
11341: '_PVT');
11342: WHEN OTHERS THEN
11339: x_msg_count,
11340: x_msg_data,
11341: '_PVT');
11342: WHEN OTHERS THEN
11343: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11344: l_api_name,
11345: G_PKG_NAME,
11346: 'OTHERS',
11347: x_msg_count,
11352: ------------------ Main Process for Install Base Line Creation---------------------------------
11353: -----------------------------------------------------------------------------------------------
11354: PROCEDURE Create_instance_ib_line(
11355: p_api_version IN NUMBER,
11356: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11357: x_return_status OUT NOCOPY VARCHAR2,
11358: x_msg_count OUT NOCOPY NUMBER,
11359: x_msg_data OUT NOCOPY VARCHAR2,
11360: p_clev_rec IN clev_rec_type,
11369:
11370: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTANCE_IB_LINES';
11371: l_clev_rec clev_rec_type;
11372: l_cimv_rec cimv_rec_type;
11373: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
11374: -- Variables for validation of line style
11375: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11376: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11377: BEGIN
11374: -- Variables for validation of line style
11375: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11376: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11377: BEGIN
11378: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11379: -- Call start_activity to create savepoint, check compatibility
11380: -- and initialize message list
11381: x_return_status := OKL_API.START_ACTIVITY (
11382: l_api_name
11377: BEGIN
11378: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11379: -- Call start_activity to create savepoint, check compatibility
11380: -- and initialize message list
11381: x_return_status := OKL_API.START_ACTIVITY (
11382: l_api_name
11383: ,p_init_msg_list
11384: ,'_PVT'
11385: ,x_return_status);
11383: ,p_init_msg_list
11384: ,'_PVT'
11385: ,x_return_status);
11386: -- Check if activity started successfully
11387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11390: RAISE OKL_API.G_EXCEPTION_ERROR;
11391: END IF;
11384: ,'_PVT'
11385: ,x_return_status);
11386: -- Check if activity started successfully
11387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11390: RAISE OKL_API.G_EXCEPTION_ERROR;
11391: END IF;
11392: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11385: ,x_return_status);
11386: -- Check if activity started successfully
11387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11390: RAISE OKL_API.G_EXCEPTION_ERROR;
11391: END IF;
11392: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11393: /*
11386: -- Check if activity started successfully
11387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11390: RAISE OKL_API.G_EXCEPTION_ERROR;
11391: END IF;
11392: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11393: /*
11394: -- Validate Line Style id and get the line type code
11397: x_return_status => x_return_status,
11398: x_lty_code => l_lty_code,
11399: x_lse_type => l_lse_type);
11400: -- Check if activity started successfully
11401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11404: RAISE OKL_API.G_EXCEPTION_ERROR;
11405: END IF;
11398: x_lty_code => l_lty_code,
11399: x_lse_type => l_lse_type);
11400: -- Check if activity started successfully
11401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11404: RAISE OKL_API.G_EXCEPTION_ERROR;
11405: END IF;
11406: -- Validate the Dnz_Chr_id
11399: x_lse_type => l_lse_type);
11400: -- Check if activity started successfully
11401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11404: RAISE OKL_API.G_EXCEPTION_ERROR;
11405: END IF;
11406: -- Validate the Dnz_Chr_id
11407: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11400: -- Check if activity started successfully
11401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11404: RAISE OKL_API.G_EXCEPTION_ERROR;
11405: END IF;
11406: -- Validate the Dnz_Chr_id
11407: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11408: x_return_status => x_return_status);
11406: -- Validate the Dnz_Chr_id
11407: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11408: x_return_status => x_return_status);
11409: -- Check if activity started successfully
11410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11413: RAISE OKL_API.G_EXCEPTION_ERROR;
11414: END IF;
11407: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11408: x_return_status => x_return_status);
11409: -- Check if activity started successfully
11410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11413: RAISE OKL_API.G_EXCEPTION_ERROR;
11414: END IF;
11415: */
11408: x_return_status => x_return_status);
11409: -- Check if activity started successfully
11410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11413: RAISE OKL_API.G_EXCEPTION_ERROR;
11414: END IF;
11415: */
11416: -- Now we are going to create the instance Line
11409: -- Check if activity started successfully
11410: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11412: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11413: RAISE OKL_API.G_EXCEPTION_ERROR;
11414: END IF;
11415: */
11416: -- Now we are going to create the instance Line
11417: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11417: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11418: -- The Record Should have the cle_id
11419: -- if the given line style is instance Line
11420: l_clev_rec := p_clev_rec;
11421: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11422: l_clev_rec.chr_id IS NULL) AND
11423: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11424: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11425: (l_clev_rec.cle_id IS NOT NULL OR
11420: l_clev_rec := p_clev_rec;
11421: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11422: l_clev_rec.chr_id IS NULL) AND
11423: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11424: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11425: (l_clev_rec.cle_id IS NOT NULL OR
11426: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11427: -- 4414408
11428: -- l_lty_code = G_IB_LINE_LTY_CODE AND
11422: l_clev_rec.chr_id IS NULL) AND
11423: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11424: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11425: (l_clev_rec.cle_id IS NOT NULL OR
11426: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11427: -- 4414408
11428: -- l_lty_code = G_IB_LINE_LTY_CODE AND
11429: -- l_lse_type = G_SLS_TYPE THEN
11430: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11429: -- l_lse_type = G_SLS_TYPE THEN
11430: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11431: validate_instance_number_ib(x_return_status => x_return_status,
11432: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11436: RAISE OKL_API.G_EXCEPTION_ERROR;
11437: END IF;
11430: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11431: validate_instance_number_ib(x_return_status => x_return_status,
11432: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11436: RAISE OKL_API.G_EXCEPTION_ERROR;
11437: END IF;
11438: Create_installed_base_line(p_api_version => p_api_version,
11431: validate_instance_number_ib(x_return_status => x_return_status,
11432: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11436: RAISE OKL_API.G_EXCEPTION_ERROR;
11437: END IF;
11438: Create_installed_base_line(p_api_version => p_api_version,
11439: p_init_msg_list => p_init_msg_list,
11432: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11436: RAISE OKL_API.G_EXCEPTION_ERROR;
11437: END IF;
11438: Create_installed_base_line(p_api_version => p_api_version,
11439: p_init_msg_list => p_init_msg_list,
11440: x_return_status => x_return_status,
11449: x_klev_rec => x_klev_rec,
11450: x_cimv_rec => x_cimv_rec,
11451: x_trxv_rec => x_trxv_rec,
11452: x_itiv_rec => x_itiv_rec);
11453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_ERROR;
11457: END IF;
11450: x_cimv_rec => x_cimv_rec,
11451: x_trxv_rec => x_trxv_rec,
11452: x_itiv_rec => x_itiv_rec);
11453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_ERROR;
11457: END IF;
11458: ELSE
11451: x_trxv_rec => x_trxv_rec,
11452: x_itiv_rec => x_itiv_rec);
11453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_ERROR;
11457: END IF;
11458: ELSE
11459: OKL_API.set_message(p_app_name => G_APP_NAME,
11452: x_itiv_rec => x_itiv_rec);
11453: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_ERROR;
11457: END IF;
11458: ELSE
11459: OKL_API.set_message(p_app_name => G_APP_NAME,
11460: p_msg_name => G_INVALID_CRITERIA,
11455: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11456: RAISE OKL_API.G_EXCEPTION_ERROR;
11457: END IF;
11458: ELSE
11459: OKL_API.set_message(p_app_name => G_APP_NAME,
11460: p_msg_name => G_INVALID_CRITERIA,
11461: p_token1 => G_COL_NAME_TOKEN,
11462: p_token1_value => 'Install Base Asset line');
11463: x_return_status := OKL_API.G_RET_STS_ERROR;
11459: OKL_API.set_message(p_app_name => G_APP_NAME,
11460: p_msg_name => G_INVALID_CRITERIA,
11461: p_token1 => G_COL_NAME_TOKEN,
11462: p_token1_value => 'Install Base Asset line');
11463: x_return_status := OKL_API.G_RET_STS_ERROR;
11464: RAISE OKL_API.G_EXCEPTION_ERROR;
11465: END IF;
11466: OKL_API.END_ACTIVITY (x_msg_count,
11467: x_msg_data );
11460: p_msg_name => G_INVALID_CRITERIA,
11461: p_token1 => G_COL_NAME_TOKEN,
11462: p_token1_value => 'Install Base Asset line');
11463: x_return_status := OKL_API.G_RET_STS_ERROR;
11464: RAISE OKL_API.G_EXCEPTION_ERROR;
11465: END IF;
11466: OKL_API.END_ACTIVITY (x_msg_count,
11467: x_msg_data );
11468: EXCEPTION
11462: p_token1_value => 'Install Base Asset line');
11463: x_return_status := OKL_API.G_RET_STS_ERROR;
11464: RAISE OKL_API.G_EXCEPTION_ERROR;
11465: END IF;
11466: OKL_API.END_ACTIVITY (x_msg_count,
11467: x_msg_data );
11468: EXCEPTION
11469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11465: END IF;
11466: OKL_API.END_ACTIVITY (x_msg_count,
11467: x_msg_data );
11468: EXCEPTION
11469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11471: l_api_name,
11472: G_PKG_NAME,
11473: 'OKL_API.G_RET_STS_ERROR',
11466: OKL_API.END_ACTIVITY (x_msg_count,
11467: x_msg_data );
11468: EXCEPTION
11469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11471: l_api_name,
11472: G_PKG_NAME,
11473: 'OKL_API.G_RET_STS_ERROR',
11474: x_msg_count,
11469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11471: l_api_name,
11472: G_PKG_NAME,
11473: 'OKL_API.G_RET_STS_ERROR',
11474: x_msg_count,
11475: x_msg_data,
11476: '_PVT');
11477: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11473: 'OKL_API.G_RET_STS_ERROR',
11474: x_msg_count,
11475: x_msg_data,
11476: '_PVT');
11477: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11479: l_api_name,
11480: G_PKG_NAME,
11481: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11474: x_msg_count,
11475: x_msg_data,
11476: '_PVT');
11477: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11479: l_api_name,
11480: G_PKG_NAME,
11481: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11482: x_msg_count,
11477: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11479: l_api_name,
11480: G_PKG_NAME,
11481: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11482: x_msg_count,
11483: x_msg_data,
11484: '_PVT');
11485: WHEN OTHERS THEN
11482: x_msg_count,
11483: x_msg_data,
11484: '_PVT');
11485: WHEN OTHERS THEN
11486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11487: l_api_name,
11488: G_PKG_NAME,
11489: 'OTHERS',
11490: x_msg_count,
11495: ------------------ Main Process for Updating Instance IB Line ---------------------------------
11496: -----------------------------------------------------------------------------------------------
11497: PROCEDURE Update_instance_ib_line(
11498: p_api_version IN NUMBER,
11499: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11500: x_return_status OUT NOCOPY VARCHAR2,
11501: x_msg_count OUT NOCOPY NUMBER,
11502: x_msg_data OUT NOCOPY VARCHAR2,
11503: p_clev_rec IN clev_rec_type,
11523: l_itiv_rec itiv_rec_type;
11524: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
11525: ln_line_number OKL_TXL_ASSETS_V.LINE_NUMBER%TYPE;
11526: BEGIN
11527: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11528: -- Call start_activity to create savepoint, check compatibility
11529: -- and initialize message list
11530: x_return_status := OKL_API.START_ACTIVITY (
11531: l_api_name
11526: BEGIN
11527: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11528: -- Call start_activity to create savepoint, check compatibility
11529: -- and initialize message list
11530: x_return_status := OKL_API.START_ACTIVITY (
11531: l_api_name
11532: ,p_init_msg_list
11533: ,'_PVT'
11534: ,x_return_status);
11532: ,p_init_msg_list
11533: ,'_PVT'
11534: ,x_return_status);
11535: -- Check if activity started successfully
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11533: ,'_PVT'
11534: ,x_return_status);
11535: -- Check if activity started successfully
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11534: ,x_return_status);
11535: -- Check if activity started successfully
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11542: x_return_status => x_return_status);
11535: -- Check if activity started successfully
11536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11542: x_return_status => x_return_status);
11543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_ERROR;
11540: END IF;
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11542: x_return_status => x_return_status);
11543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11546: RAISE OKL_API.G_EXCEPTION_ERROR;
11547: END IF;
11540: END IF;
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11542: x_return_status => x_return_status);
11543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11546: RAISE OKL_API.G_EXCEPTION_ERROR;
11547: END IF;
11548: -- Validate Line Style id and get the line type code
11541: validate_sts_code(p_clev_rec => p_clev_rec,
11542: x_return_status => x_return_status);
11543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11546: RAISE OKL_API.G_EXCEPTION_ERROR;
11547: END IF;
11548: -- Validate Line Style id and get the line type code
11549: -- and line style type for further processing
11542: x_return_status => x_return_status);
11543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11546: RAISE OKL_API.G_EXCEPTION_ERROR;
11547: END IF;
11548: -- Validate Line Style id and get the line type code
11549: -- and line style type for further processing
11550: validate_lse_id(p_clev_rec => p_clev_rec,
11551: x_return_status => x_return_status,
11552: x_lty_code => l_lty_code,
11553: x_lse_type => l_lse_type);
11554: -- Check if activity started successfully
11555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11558: RAISE OKL_API.G_EXCEPTION_ERROR;
11559: END IF;
11552: x_lty_code => l_lty_code,
11553: x_lse_type => l_lse_type);
11554: -- Check if activity started successfully
11555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11558: RAISE OKL_API.G_EXCEPTION_ERROR;
11559: END IF;
11560: -- Validate the Dnz_Chr_id
11553: x_lse_type => l_lse_type);
11554: -- Check if activity started successfully
11555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11558: RAISE OKL_API.G_EXCEPTION_ERROR;
11559: END IF;
11560: -- Validate the Dnz_Chr_id
11561: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11554: -- Check if activity started successfully
11555: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11556: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11557: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11558: RAISE OKL_API.G_EXCEPTION_ERROR;
11559: END IF;
11560: -- Validate the Dnz_Chr_id
11561: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11562: x_return_status => x_return_status);
11560: -- Validate the Dnz_Chr_id
11561: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11562: x_return_status => x_return_status);
11563: -- Check if activity started successfully
11564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11567: RAISE OKL_API.G_EXCEPTION_ERROR;
11568: END IF;
11561: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11562: x_return_status => x_return_status);
11563: -- Check if activity started successfully
11564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11567: RAISE OKL_API.G_EXCEPTION_ERROR;
11568: END IF;
11569: -- Now we are going to create the installed_base_Line
11562: x_return_status => x_return_status);
11563: -- Check if activity started successfully
11564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11567: RAISE OKL_API.G_EXCEPTION_ERROR;
11568: END IF;
11569: -- Now we are going to create the installed_base_Line
11570: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11563: -- Check if activity started successfully
11564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11566: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11567: RAISE OKL_API.G_EXCEPTION_ERROR;
11568: END IF;
11569: -- Now we are going to create the installed_base_Line
11570: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11571: -- The Record Should have the cle_id
11570: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11571: -- The Record Should have the cle_id
11572: -- if the given line style is instance base Line
11573: l_clev_rec := p_clev_rec;
11574: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11575: l_clev_rec.chr_id IS NULL) AND
11576: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11577: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11578: (l_clev_rec.cle_id IS NOT NULL OR
11573: l_clev_rec := p_clev_rec;
11574: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11575: l_clev_rec.chr_id IS NULL) AND
11576: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11577: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11578: (l_clev_rec.cle_id IS NOT NULL OR
11579: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11580: l_lty_code = G_IB_LINE_LTY_CODE AND
11581: l_lse_type = G_SLS_TYPE THEN
11575: l_clev_rec.chr_id IS NULL) AND
11576: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11577: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11578: (l_clev_rec.cle_id IS NOT NULL OR
11579: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11580: l_lty_code = G_IB_LINE_LTY_CODE AND
11581: l_lse_type = G_SLS_TYPE THEN
11582: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11583: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11579: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11580: l_lty_code = G_IB_LINE_LTY_CODE AND
11581: l_lse_type = G_SLS_TYPE THEN
11582: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11583: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11584: l_cimv_rec := p_cimv_rec;
11585: update_installed_base_line(p_api_version => p_api_version,
11586: p_init_msg_list => p_init_msg_list,
11587: x_return_status => x_return_status,
11595: x_clev_rec => x_clev_rec,
11596: x_klev_rec => x_klev_rec,
11597: x_cimv_rec => x_cimv_rec,
11598: x_itiv_rec => x_itiv_rec);
11599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11602: RAISE OKL_API.G_EXCEPTION_ERROR;
11603: END IF;
11596: x_klev_rec => x_klev_rec,
11597: x_cimv_rec => x_cimv_rec,
11598: x_itiv_rec => x_itiv_rec);
11599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11602: RAISE OKL_API.G_EXCEPTION_ERROR;
11603: END IF;
11604: ELSE
11597: x_cimv_rec => x_cimv_rec,
11598: x_itiv_rec => x_itiv_rec);
11599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11602: RAISE OKL_API.G_EXCEPTION_ERROR;
11603: END IF;
11604: ELSE
11605: OKL_API.set_message(p_app_name => G_APP_NAME,
11598: x_itiv_rec => x_itiv_rec);
11599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11602: RAISE OKL_API.G_EXCEPTION_ERROR;
11603: END IF;
11604: ELSE
11605: OKL_API.set_message(p_app_name => G_APP_NAME,
11606: p_msg_name => G_INVALID_CRITERIA,
11601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11602: RAISE OKL_API.G_EXCEPTION_ERROR;
11603: END IF;
11604: ELSE
11605: OKL_API.set_message(p_app_name => G_APP_NAME,
11606: p_msg_name => G_INVALID_CRITERIA,
11607: p_token1 => G_COL_NAME_TOKEN,
11608: p_token1_value => 'Install Base Asset line');
11609: x_return_status := OKL_API.G_RET_STS_ERROR;
11605: OKL_API.set_message(p_app_name => G_APP_NAME,
11606: p_msg_name => G_INVALID_CRITERIA,
11607: p_token1 => G_COL_NAME_TOKEN,
11608: p_token1_value => 'Install Base Asset line');
11609: x_return_status := OKL_API.G_RET_STS_ERROR;
11610: RAISE OKL_API.G_EXCEPTION_ERROR;
11611: END IF;
11612: ELSE
11613: OKL_API.set_message(p_app_name => G_APP_NAME,
11606: p_msg_name => G_INVALID_CRITERIA,
11607: p_token1 => G_COL_NAME_TOKEN,
11608: p_token1_value => 'Install Base Asset line');
11609: x_return_status := OKL_API.G_RET_STS_ERROR;
11610: RAISE OKL_API.G_EXCEPTION_ERROR;
11611: END IF;
11612: ELSE
11613: OKL_API.set_message(p_app_name => G_APP_NAME,
11614: p_msg_name => G_INVALID_CRITERIA,
11609: x_return_status := OKL_API.G_RET_STS_ERROR;
11610: RAISE OKL_API.G_EXCEPTION_ERROR;
11611: END IF;
11612: ELSE
11613: OKL_API.set_message(p_app_name => G_APP_NAME,
11614: p_msg_name => G_INVALID_CRITERIA,
11615: p_token1 => G_COL_NAME_TOKEN,
11616: p_token1_value => 'Instance Asset line');
11617: x_return_status := OKL_API.G_RET_STS_ERROR;
11613: OKL_API.set_message(p_app_name => G_APP_NAME,
11614: p_msg_name => G_INVALID_CRITERIA,
11615: p_token1 => G_COL_NAME_TOKEN,
11616: p_token1_value => 'Instance Asset line');
11617: x_return_status := OKL_API.G_RET_STS_ERROR;
11618: RAISE OKL_API.G_EXCEPTION_ERROR;
11619: END IF;
11620: OKL_API.END_ACTIVITY (x_msg_count,
11621: x_msg_data );
11614: p_msg_name => G_INVALID_CRITERIA,
11615: p_token1 => G_COL_NAME_TOKEN,
11616: p_token1_value => 'Instance Asset line');
11617: x_return_status := OKL_API.G_RET_STS_ERROR;
11618: RAISE OKL_API.G_EXCEPTION_ERROR;
11619: END IF;
11620: OKL_API.END_ACTIVITY (x_msg_count,
11621: x_msg_data );
11622: EXCEPTION
11616: p_token1_value => 'Instance Asset line');
11617: x_return_status := OKL_API.G_RET_STS_ERROR;
11618: RAISE OKL_API.G_EXCEPTION_ERROR;
11619: END IF;
11620: OKL_API.END_ACTIVITY (x_msg_count,
11621: x_msg_data );
11622: EXCEPTION
11623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11624: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11619: END IF;
11620: OKL_API.END_ACTIVITY (x_msg_count,
11621: x_msg_data );
11622: EXCEPTION
11623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11624: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11625: l_api_name,
11626: G_PKG_NAME,
11627: 'OKL_API.G_RET_STS_ERROR',
11620: OKL_API.END_ACTIVITY (x_msg_count,
11621: x_msg_data );
11622: EXCEPTION
11623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11624: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11625: l_api_name,
11626: G_PKG_NAME,
11627: 'OKL_API.G_RET_STS_ERROR',
11628: x_msg_count,
11623: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11624: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11625: l_api_name,
11626: G_PKG_NAME,
11627: 'OKL_API.G_RET_STS_ERROR',
11628: x_msg_count,
11629: x_msg_data,
11630: '_PVT');
11631: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11627: 'OKL_API.G_RET_STS_ERROR',
11628: x_msg_count,
11629: x_msg_data,
11630: '_PVT');
11631: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11633: l_api_name,
11634: G_PKG_NAME,
11635: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11628: x_msg_count,
11629: x_msg_data,
11630: '_PVT');
11631: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11633: l_api_name,
11634: G_PKG_NAME,
11635: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11636: x_msg_count,
11631: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11633: l_api_name,
11634: G_PKG_NAME,
11635: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11636: x_msg_count,
11637: x_msg_data,
11638: '_PVT');
11639: WHEN OTHERS THEN
11636: x_msg_count,
11637: x_msg_data,
11638: '_PVT');
11639: WHEN OTHERS THEN
11640: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11641: l_api_name,
11642: G_PKG_NAME,
11643: 'OTHERS',
11644: x_msg_count,
11667: --Bug# 4558486
11668: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11669: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11670: BEGIN
11671: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11672: -- Call start_activity to create savepoint, check compatibility
11673: -- and initialize message list
11674: x_return_status := OKL_API.START_ACTIVITY (
11675: l_api_name
11670: BEGIN
11671: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11672: -- Call start_activity to create savepoint, check compatibility
11673: -- and initialize message list
11674: x_return_status := OKL_API.START_ACTIVITY (
11675: l_api_name
11676: ,p_init_msg_list
11677: ,'_PVT'
11678: ,x_return_status);
11676: ,p_init_msg_list
11677: ,'_PVT'
11678: ,x_return_status);
11679: -- Check if activity started successfully
11680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11683: RAISE OKL_API.G_EXCEPTION_ERROR;
11684: END IF;
11677: ,'_PVT'
11678: ,x_return_status);
11679: -- Check if activity started successfully
11680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11683: RAISE OKL_API.G_EXCEPTION_ERROR;
11684: END IF;
11685: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11678: ,x_return_status);
11679: -- Check if activity started successfully
11680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11683: RAISE OKL_API.G_EXCEPTION_ERROR;
11684: END IF;
11685: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11686: x_clev_rec => l_clev_rec);
11679: -- Check if activity started successfully
11680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11683: RAISE OKL_API.G_EXCEPTION_ERROR;
11684: END IF;
11685: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11686: x_clev_rec => l_clev_rec);
11687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11683: RAISE OKL_API.G_EXCEPTION_ERROR;
11684: END IF;
11685: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11686: x_clev_rec => l_clev_rec);
11687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11688: OKL_API.set_message(p_app_name => G_APP_NAME,
11689: p_msg_name => G_FETCHING_INFO,
11690: p_token1 => G_REC_NAME_TOKEN,
11691: p_token1_value => 'OKC_K_LINES_V Record');
11684: END IF;
11685: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11686: x_clev_rec => l_clev_rec);
11687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11688: OKL_API.set_message(p_app_name => G_APP_NAME,
11689: p_msg_name => G_FETCHING_INFO,
11690: p_token1 => G_REC_NAME_TOKEN,
11691: p_token1_value => 'OKC_K_LINES_V Record');
11692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11688: OKL_API.set_message(p_app_name => G_APP_NAME,
11689: p_msg_name => G_FETCHING_INFO,
11690: p_token1 => G_REC_NAME_TOKEN,
11691: p_token1_value => 'OKC_K_LINES_V Record');
11692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11694: OKL_API.set_message(p_app_name => G_APP_NAME,
11695: p_msg_name => G_FETCHING_INFO,
11696: p_token1 => G_REC_NAME_TOKEN,
11689: p_msg_name => G_FETCHING_INFO,
11690: p_token1 => G_REC_NAME_TOKEN,
11691: p_token1_value => 'OKC_K_LINES_V Record');
11692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11694: OKL_API.set_message(p_app_name => G_APP_NAME,
11695: p_msg_name => G_FETCHING_INFO,
11696: p_token1 => G_REC_NAME_TOKEN,
11697: p_token1_value => 'OKC_K_LINES_V Record');
11690: p_token1 => G_REC_NAME_TOKEN,
11691: p_token1_value => 'OKC_K_LINES_V Record');
11692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11694: OKL_API.set_message(p_app_name => G_APP_NAME,
11695: p_msg_name => G_FETCHING_INFO,
11696: p_token1 => G_REC_NAME_TOKEN,
11697: p_token1_value => 'OKC_K_LINES_V Record');
11698: RAISE OKL_API.G_EXCEPTION_ERROR;
11694: OKL_API.set_message(p_app_name => G_APP_NAME,
11695: p_msg_name => G_FETCHING_INFO,
11696: p_token1 => G_REC_NAME_TOKEN,
11697: p_token1_value => 'OKC_K_LINES_V Record');
11698: RAISE OKL_API.G_EXCEPTION_ERROR;
11699: END IF;
11700: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11701: x_klev_rec => l_klev_rec);
11702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11698: RAISE OKL_API.G_EXCEPTION_ERROR;
11699: END IF;
11700: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11701: x_klev_rec => l_klev_rec);
11702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11703: OKL_API.set_message(p_app_name => G_APP_NAME,
11704: p_msg_name => G_FETCHING_INFO,
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11699: END IF;
11700: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11701: x_klev_rec => l_klev_rec);
11702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11703: OKL_API.set_message(p_app_name => G_APP_NAME,
11704: p_msg_name => G_FETCHING_INFO,
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11703: OKL_API.set_message(p_app_name => G_APP_NAME,
11704: p_msg_name => G_FETCHING_INFO,
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11711: p_token1 => G_REC_NAME_TOKEN,
11704: p_msg_name => G_FETCHING_INFO,
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11711: p_token1 => G_REC_NAME_TOKEN,
11712: p_token1_value => 'OKL_K_LINES_V Record');
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11711: p_token1 => G_REC_NAME_TOKEN,
11712: p_token1_value => 'OKL_K_LINES_V Record');
11713: RAISE OKL_API.G_EXCEPTION_ERROR;
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11711: p_token1 => G_REC_NAME_TOKEN,
11712: p_token1_value => 'OKL_K_LINES_V Record');
11713: RAISE OKL_API.G_EXCEPTION_ERROR;
11714: END IF;
11715: IF l_clev_rec.id <> l_klev_rec.id THEN
11716: OKL_API.set_message(p_app_name => G_APP_NAME,
11717: p_msg_name => G_LINE_RECORD);
11712: p_token1_value => 'OKL_K_LINES_V Record');
11713: RAISE OKL_API.G_EXCEPTION_ERROR;
11714: END IF;
11715: IF l_clev_rec.id <> l_klev_rec.id THEN
11716: OKL_API.set_message(p_app_name => G_APP_NAME,
11717: p_msg_name => G_LINE_RECORD);
11718: x_return_status := OKL_API.G_RET_STS_ERROR;
11719: RAISE OKL_API.G_EXCEPTION_ERROR;
11720: END IF;
11714: END IF;
11715: IF l_clev_rec.id <> l_klev_rec.id THEN
11716: OKL_API.set_message(p_app_name => G_APP_NAME,
11717: p_msg_name => G_LINE_RECORD);
11718: x_return_status := OKL_API.G_RET_STS_ERROR;
11719: RAISE OKL_API.G_EXCEPTION_ERROR;
11720: END IF;
11721: -- Validate Line Style id and get the line type code
11722: -- and line style type for further processing
11715: IF l_clev_rec.id <> l_klev_rec.id THEN
11716: OKL_API.set_message(p_app_name => G_APP_NAME,
11717: p_msg_name => G_LINE_RECORD);
11718: x_return_status := OKL_API.G_RET_STS_ERROR;
11719: RAISE OKL_API.G_EXCEPTION_ERROR;
11720: END IF;
11721: -- Validate Line Style id and get the line type code
11722: -- and line style type for further processing
11723: validate_lse_id(p_clev_rec => l_clev_rec,
11724: x_return_status => x_return_status,
11725: x_lty_code => l_lty_code,
11726: x_lse_type => l_lse_type);
11727: -- Check if activity started successfully
11728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11731: RAISE OKL_API.G_EXCEPTION_ERROR;
11732: END IF;
11725: x_lty_code => l_lty_code,
11726: x_lse_type => l_lse_type);
11727: -- Check if activity started successfully
11728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11731: RAISE OKL_API.G_EXCEPTION_ERROR;
11732: END IF;
11733: -- Validate the Dnz_Chr_id
11726: x_lse_type => l_lse_type);
11727: -- Check if activity started successfully
11728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11731: RAISE OKL_API.G_EXCEPTION_ERROR;
11732: END IF;
11733: -- Validate the Dnz_Chr_id
11734: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11727: -- Check if activity started successfully
11728: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11731: RAISE OKL_API.G_EXCEPTION_ERROR;
11732: END IF;
11733: -- Validate the Dnz_Chr_id
11734: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11735: x_return_status => x_return_status);
11733: -- Validate the Dnz_Chr_id
11734: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11735: x_return_status => x_return_status);
11736: -- Check if activity started successfully
11737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11740: RAISE OKL_API.G_EXCEPTION_ERROR;
11741: END IF;
11734: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11735: x_return_status => x_return_status);
11736: -- Check if activity started successfully
11737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11740: RAISE OKL_API.G_EXCEPTION_ERROR;
11741: END IF;
11742: -- We can create a party item info only if the line is Model Line
11735: x_return_status => x_return_status);
11736: -- Check if activity started successfully
11737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11740: RAISE OKL_API.G_EXCEPTION_ERROR;
11741: END IF;
11742: -- We can create a party item info only if the line is Model Line
11743: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11736: -- Check if activity started successfully
11737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11740: RAISE OKL_API.G_EXCEPTION_ERROR;
11741: END IF;
11742: -- We can create a party item info only if the line is Model Line
11743: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11744: l_clev_rec.chr_id IS NULL) AND
11739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11740: RAISE OKL_API.G_EXCEPTION_ERROR;
11741: END IF;
11742: -- We can create a party item info only if the line is Model Line
11743: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11744: l_clev_rec.chr_id IS NULL) AND
11745: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11746: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11747: (l_clev_rec.cle_id IS NOT NULL OR
11742: -- We can create a party item info only if the line is Model Line
11743: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11744: l_clev_rec.chr_id IS NULL) AND
11745: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11746: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11747: (l_clev_rec.cle_id IS NOT NULL OR
11748: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11749: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11750: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11744: l_clev_rec.chr_id IS NULL) AND
11745: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11746: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11747: (l_clev_rec.cle_id IS NOT NULL OR
11748: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11749: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11750: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11751: l_lse_type = G_SLS_TYPE THEN
11752: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11750: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11751: l_lse_type = G_SLS_TYPE THEN
11752: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11753: x_cplv_rec => l_cplv_rec);
11754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11755: OKL_API.set_message(p_app_name => G_APP_NAME,
11756: p_msg_name => G_FETCHING_INFO,
11757: p_token1 => G_REC_NAME_TOKEN,
11758: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11751: l_lse_type = G_SLS_TYPE THEN
11752: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11753: x_cplv_rec => l_cplv_rec);
11754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11755: OKL_API.set_message(p_app_name => G_APP_NAME,
11756: p_msg_name => G_FETCHING_INFO,
11757: p_token1 => G_REC_NAME_TOKEN,
11758: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11755: OKL_API.set_message(p_app_name => G_APP_NAME,
11756: p_msg_name => G_FETCHING_INFO,
11757: p_token1 => G_REC_NAME_TOKEN,
11758: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11761: OKL_API.set_message(p_app_name => G_APP_NAME,
11762: p_msg_name => G_FETCHING_INFO,
11763: p_token1 => G_REC_NAME_TOKEN,
11756: p_msg_name => G_FETCHING_INFO,
11757: p_token1 => G_REC_NAME_TOKEN,
11758: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11761: OKL_API.set_message(p_app_name => G_APP_NAME,
11762: p_msg_name => G_FETCHING_INFO,
11763: p_token1 => G_REC_NAME_TOKEN,
11764: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11757: p_token1 => G_REC_NAME_TOKEN,
11758: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11761: OKL_API.set_message(p_app_name => G_APP_NAME,
11762: p_msg_name => G_FETCHING_INFO,
11763: p_token1 => G_REC_NAME_TOKEN,
11764: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11765: RAISE OKL_API.G_EXCEPTION_ERROR;
11761: OKL_API.set_message(p_app_name => G_APP_NAME,
11762: p_msg_name => G_FETCHING_INFO,
11763: p_token1 => G_REC_NAME_TOKEN,
11764: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11765: RAISE OKL_API.G_EXCEPTION_ERROR;
11766: END IF;
11767:
11768: IF (p_cplv_rec.cle_id IS NOT NULL OR
11769: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11765: RAISE OKL_API.G_EXCEPTION_ERROR;
11766: END IF;
11767:
11768: IF (p_cplv_rec.cle_id IS NOT NULL OR
11769: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11770: l_cplv_rec.cle_id := p_cplv_rec.cle_id;
11771: ELSE
11772: OKL_API.set_message(p_app_name => G_APP_NAME,
11773: p_msg_name => G_REQUIRED_VALUE,
11768: IF (p_cplv_rec.cle_id IS NOT NULL OR
11769: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11770: l_cplv_rec.cle_id := p_cplv_rec.cle_id;
11771: ELSE
11772: OKL_API.set_message(p_app_name => G_APP_NAME,
11773: p_msg_name => G_REQUIRED_VALUE,
11774: p_token1 => G_COL_NAME_TOKEN,
11775: p_token1_value => 'cle_id in creation party roles');
11776: RAISE OKL_API.G_EXCEPTION_ERROR;
11772: OKL_API.set_message(p_app_name => G_APP_NAME,
11773: p_msg_name => G_REQUIRED_VALUE,
11774: p_token1 => G_COL_NAME_TOKEN,
11775: p_token1_value => 'cle_id in creation party roles');
11776: RAISE OKL_API.G_EXCEPTION_ERROR;
11777: END IF;
11778: l_cplv_rec.chr_id := null;
11779: -- Creation of Party Item Record for the above record information
11780: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
11800: x_cplv_rec => x_cplv_rec,
11801: p_kplv_rec => l_kplv_rec,
11802: x_kplv_rec => x_kplv_rec);
11803:
11804: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11805: OKL_API.set_message(p_app_name => G_APP_NAME,
11806: p_msg_name => G_CREATION_PARTY_ROLE);
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11801: p_kplv_rec => l_kplv_rec,
11802: x_kplv_rec => x_kplv_rec);
11803:
11804: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11805: OKL_API.set_message(p_app_name => G_APP_NAME,
11806: p_msg_name => G_CREATION_PARTY_ROLE);
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11809: OKL_API.set_message(p_app_name => G_APP_NAME,
11803:
11804: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11805: OKL_API.set_message(p_app_name => G_APP_NAME,
11806: p_msg_name => G_CREATION_PARTY_ROLE);
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11809: OKL_API.set_message(p_app_name => G_APP_NAME,
11810: p_msg_name => G_CREATION_PARTY_ROLE);
11811: RAISE OKL_API.G_EXCEPTION_ERROR;
11804: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11805: OKL_API.set_message(p_app_name => G_APP_NAME,
11806: p_msg_name => G_CREATION_PARTY_ROLE);
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11809: OKL_API.set_message(p_app_name => G_APP_NAME,
11810: p_msg_name => G_CREATION_PARTY_ROLE);
11811: RAISE OKL_API.G_EXCEPTION_ERROR;
11812: END IF;
11805: OKL_API.set_message(p_app_name => G_APP_NAME,
11806: p_msg_name => G_CREATION_PARTY_ROLE);
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11809: OKL_API.set_message(p_app_name => G_APP_NAME,
11810: p_msg_name => G_CREATION_PARTY_ROLE);
11811: RAISE OKL_API.G_EXCEPTION_ERROR;
11812: END IF;
11813: ELSE
11807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11809: OKL_API.set_message(p_app_name => G_APP_NAME,
11810: p_msg_name => G_CREATION_PARTY_ROLE);
11811: RAISE OKL_API.G_EXCEPTION_ERROR;
11812: END IF;
11813: ELSE
11814: OKL_API.set_message(p_app_name => G_APP_NAME,
11815: p_msg_name => G_INVALID_CRITERIA,
11810: p_msg_name => G_CREATION_PARTY_ROLE);
11811: RAISE OKL_API.G_EXCEPTION_ERROR;
11812: END IF;
11813: ELSE
11814: OKL_API.set_message(p_app_name => G_APP_NAME,
11815: p_msg_name => G_INVALID_CRITERIA,
11816: p_token1 => 'LINE_STYLE',
11817: p_token1_value => 'Model/Addon Line for Party Roles');
11818: x_return_status := OKL_API.G_RET_STS_ERROR;
11814: OKL_API.set_message(p_app_name => G_APP_NAME,
11815: p_msg_name => G_INVALID_CRITERIA,
11816: p_token1 => 'LINE_STYLE',
11817: p_token1_value => 'Model/Addon Line for Party Roles');
11818: x_return_status := OKL_API.G_RET_STS_ERROR;
11819: RAISE OKL_API.G_EXCEPTION_ERROR;
11820: END IF;
11821: OKL_API.END_ACTIVITY (x_msg_count,
11822: x_msg_data );
11815: p_msg_name => G_INVALID_CRITERIA,
11816: p_token1 => 'LINE_STYLE',
11817: p_token1_value => 'Model/Addon Line for Party Roles');
11818: x_return_status := OKL_API.G_RET_STS_ERROR;
11819: RAISE OKL_API.G_EXCEPTION_ERROR;
11820: END IF;
11821: OKL_API.END_ACTIVITY (x_msg_count,
11822: x_msg_data );
11823: EXCEPTION
11817: p_token1_value => 'Model/Addon Line for Party Roles');
11818: x_return_status := OKL_API.G_RET_STS_ERROR;
11819: RAISE OKL_API.G_EXCEPTION_ERROR;
11820: END IF;
11821: OKL_API.END_ACTIVITY (x_msg_count,
11822: x_msg_data );
11823: EXCEPTION
11824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11825: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11820: END IF;
11821: OKL_API.END_ACTIVITY (x_msg_count,
11822: x_msg_data );
11823: EXCEPTION
11824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11825: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11826: l_api_name,
11827: G_PKG_NAME,
11828: 'OKL_API.G_RET_STS_ERROR',
11821: OKL_API.END_ACTIVITY (x_msg_count,
11822: x_msg_data );
11823: EXCEPTION
11824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11825: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11826: l_api_name,
11827: G_PKG_NAME,
11828: 'OKL_API.G_RET_STS_ERROR',
11829: x_msg_count,
11824: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11825: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11826: l_api_name,
11827: G_PKG_NAME,
11828: 'OKL_API.G_RET_STS_ERROR',
11829: x_msg_count,
11830: x_msg_data,
11831: '_PVT');
11832: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11828: 'OKL_API.G_RET_STS_ERROR',
11829: x_msg_count,
11830: x_msg_data,
11831: '_PVT');
11832: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11834: l_api_name,
11835: G_PKG_NAME,
11836: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11829: x_msg_count,
11830: x_msg_data,
11831: '_PVT');
11832: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11834: l_api_name,
11835: G_PKG_NAME,
11836: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11837: x_msg_count,
11832: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11833: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11834: l_api_name,
11835: G_PKG_NAME,
11836: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11837: x_msg_count,
11838: x_msg_data,
11839: '_PVT');
11840: WHEN OTHERS THEN
11837: x_msg_count,
11838: x_msg_data,
11839: '_PVT');
11840: WHEN OTHERS THEN
11841: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11842: l_api_name,
11843: G_PKG_NAME,
11844: 'OTHERS',
11845: x_msg_count,
11868: --Bug# 4558486
11869: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11870: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11871: BEGIN
11872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11873: -- Call start_activity to create savepoint, check compatibility
11874: -- and initialize message list
11875: x_return_status := OKL_API.START_ACTIVITY (
11876: l_api_name
11871: BEGIN
11872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11873: -- Call start_activity to create savepoint, check compatibility
11874: -- and initialize message list
11875: x_return_status := OKL_API.START_ACTIVITY (
11876: l_api_name
11877: ,p_init_msg_list
11878: ,'_PVT'
11879: ,x_return_status);
11877: ,p_init_msg_list
11878: ,'_PVT'
11879: ,x_return_status);
11880: -- Check if activity started successfully
11881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11884: RAISE OKL_API.G_EXCEPTION_ERROR;
11885: END IF;
11878: ,'_PVT'
11879: ,x_return_status);
11880: -- Check if activity started successfully
11881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11884: RAISE OKL_API.G_EXCEPTION_ERROR;
11885: END IF;
11886: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11879: ,x_return_status);
11880: -- Check if activity started successfully
11881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11884: RAISE OKL_API.G_EXCEPTION_ERROR;
11885: END IF;
11886: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11887: x_cplv_rec => l_cplv_rec);
11880: -- Check if activity started successfully
11881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11884: RAISE OKL_API.G_EXCEPTION_ERROR;
11885: END IF;
11886: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11887: x_cplv_rec => l_cplv_rec);
11888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11884: RAISE OKL_API.G_EXCEPTION_ERROR;
11885: END IF;
11886: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11887: x_cplv_rec => l_cplv_rec);
11888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11889: OKL_API.set_message(p_app_name => G_APP_NAME,
11890: p_msg_name => G_FETCHING_INFO,
11891: p_token1 => G_REC_NAME_TOKEN,
11892: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11885: END IF;
11886: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11887: x_cplv_rec => l_cplv_rec);
11888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11889: OKL_API.set_message(p_app_name => G_APP_NAME,
11890: p_msg_name => G_FETCHING_INFO,
11891: p_token1 => G_REC_NAME_TOKEN,
11892: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11889: OKL_API.set_message(p_app_name => G_APP_NAME,
11890: p_msg_name => G_FETCHING_INFO,
11891: p_token1 => G_REC_NAME_TOKEN,
11892: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11895: OKL_API.set_message(p_app_name => G_APP_NAME,
11896: p_msg_name => G_FETCHING_INFO,
11897: p_token1 => G_REC_NAME_TOKEN,
11890: p_msg_name => G_FETCHING_INFO,
11891: p_token1 => G_REC_NAME_TOKEN,
11892: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11895: OKL_API.set_message(p_app_name => G_APP_NAME,
11896: p_msg_name => G_FETCHING_INFO,
11897: p_token1 => G_REC_NAME_TOKEN,
11898: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11891: p_token1 => G_REC_NAME_TOKEN,
11892: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11895: OKL_API.set_message(p_app_name => G_APP_NAME,
11896: p_msg_name => G_FETCHING_INFO,
11897: p_token1 => G_REC_NAME_TOKEN,
11898: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11899: RAISE OKL_API.G_EXCEPTION_ERROR;
11895: OKL_API.set_message(p_app_name => G_APP_NAME,
11896: p_msg_name => G_FETCHING_INFO,
11897: p_token1 => G_REC_NAME_TOKEN,
11898: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11899: RAISE OKL_API.G_EXCEPTION_ERROR;
11900: END IF;
11901: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11902: x_clev_rec => l_clev_rec);
11903: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11899: RAISE OKL_API.G_EXCEPTION_ERROR;
11900: END IF;
11901: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11902: x_clev_rec => l_clev_rec);
11903: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11904: OKL_API.set_message(p_app_name => G_APP_NAME,
11905: p_msg_name => G_FETCHING_INFO,
11906: p_token1 => G_REC_NAME_TOKEN,
11907: p_token1_value => 'OKC_K_ITEMS_V Record');
11900: END IF;
11901: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11902: x_clev_rec => l_clev_rec);
11903: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11904: OKL_API.set_message(p_app_name => G_APP_NAME,
11905: p_msg_name => G_FETCHING_INFO,
11906: p_token1 => G_REC_NAME_TOKEN,
11907: p_token1_value => 'OKC_K_ITEMS_V Record');
11908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11904: OKL_API.set_message(p_app_name => G_APP_NAME,
11905: p_msg_name => G_FETCHING_INFO,
11906: p_token1 => G_REC_NAME_TOKEN,
11907: p_token1_value => 'OKC_K_ITEMS_V Record');
11908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11910: OKL_API.set_message(p_app_name => G_APP_NAME,
11911: p_msg_name => G_FETCHING_INFO,
11912: p_token1 => G_REC_NAME_TOKEN,
11905: p_msg_name => G_FETCHING_INFO,
11906: p_token1 => G_REC_NAME_TOKEN,
11907: p_token1_value => 'OKC_K_ITEMS_V Record');
11908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11910: OKL_API.set_message(p_app_name => G_APP_NAME,
11911: p_msg_name => G_FETCHING_INFO,
11912: p_token1 => G_REC_NAME_TOKEN,
11913: p_token1_value => 'OKC_K_ITEMS_V Record');
11906: p_token1 => G_REC_NAME_TOKEN,
11907: p_token1_value => 'OKC_K_ITEMS_V Record');
11908: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11909: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11910: OKL_API.set_message(p_app_name => G_APP_NAME,
11911: p_msg_name => G_FETCHING_INFO,
11912: p_token1 => G_REC_NAME_TOKEN,
11913: p_token1_value => 'OKC_K_ITEMS_V Record');
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11910: OKL_API.set_message(p_app_name => G_APP_NAME,
11911: p_msg_name => G_FETCHING_INFO,
11912: p_token1 => G_REC_NAME_TOKEN,
11913: p_token1_value => 'OKC_K_ITEMS_V Record');
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11915: END IF;
11916: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
11917: x_klev_rec => l_klev_rec);
11918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11914: RAISE OKL_API.G_EXCEPTION_ERROR;
11915: END IF;
11916: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
11917: x_klev_rec => l_klev_rec);
11918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11919: OKL_API.set_message(p_app_name => G_APP_NAME,
11920: p_msg_name => G_FETCHING_INFO,
11921: p_token1 => G_REC_NAME_TOKEN,
11922: p_token1_value => 'OKL_K_ITEMS_V Record');
11915: END IF;
11916: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
11917: x_klev_rec => l_klev_rec);
11918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11919: OKL_API.set_message(p_app_name => G_APP_NAME,
11920: p_msg_name => G_FETCHING_INFO,
11921: p_token1 => G_REC_NAME_TOKEN,
11922: p_token1_value => 'OKL_K_ITEMS_V Record');
11923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11919: OKL_API.set_message(p_app_name => G_APP_NAME,
11920: p_msg_name => G_FETCHING_INFO,
11921: p_token1 => G_REC_NAME_TOKEN,
11922: p_token1_value => 'OKL_K_ITEMS_V Record');
11923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11925: OKL_API.set_message(p_app_name => G_APP_NAME,
11926: p_msg_name => G_FETCHING_INFO,
11927: p_token1 => G_REC_NAME_TOKEN,
11920: p_msg_name => G_FETCHING_INFO,
11921: p_token1 => G_REC_NAME_TOKEN,
11922: p_token1_value => 'OKL_K_ITEMS_V Record');
11923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11925: OKL_API.set_message(p_app_name => G_APP_NAME,
11926: p_msg_name => G_FETCHING_INFO,
11927: p_token1 => G_REC_NAME_TOKEN,
11928: p_token1_value => 'OKL_K_ITEMS_V Record');
11921: p_token1 => G_REC_NAME_TOKEN,
11922: p_token1_value => 'OKL_K_ITEMS_V Record');
11923: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11924: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11925: OKL_API.set_message(p_app_name => G_APP_NAME,
11926: p_msg_name => G_FETCHING_INFO,
11927: p_token1 => G_REC_NAME_TOKEN,
11928: p_token1_value => 'OKL_K_ITEMS_V Record');
11929: RAISE OKL_API.G_EXCEPTION_ERROR;
11925: OKL_API.set_message(p_app_name => G_APP_NAME,
11926: p_msg_name => G_FETCHING_INFO,
11927: p_token1 => G_REC_NAME_TOKEN,
11928: p_token1_value => 'OKL_K_ITEMS_V Record');
11929: RAISE OKL_API.G_EXCEPTION_ERROR;
11930: END IF;
11931: IF l_clev_rec.id <> l_klev_rec.id THEN
11932: OKL_API.set_message(p_app_name => G_APP_NAME,
11933: p_msg_name => G_LINE_RECORD);
11928: p_token1_value => 'OKL_K_ITEMS_V Record');
11929: RAISE OKL_API.G_EXCEPTION_ERROR;
11930: END IF;
11931: IF l_clev_rec.id <> l_klev_rec.id THEN
11932: OKL_API.set_message(p_app_name => G_APP_NAME,
11933: p_msg_name => G_LINE_RECORD);
11934: x_return_status := OKL_API.G_RET_STS_ERROR;
11935: RAISE OKL_API.G_EXCEPTION_ERROR;
11936: END IF;
11930: END IF;
11931: IF l_clev_rec.id <> l_klev_rec.id THEN
11932: OKL_API.set_message(p_app_name => G_APP_NAME,
11933: p_msg_name => G_LINE_RECORD);
11934: x_return_status := OKL_API.G_RET_STS_ERROR;
11935: RAISE OKL_API.G_EXCEPTION_ERROR;
11936: END IF;
11937: -- Validate Line Style id and get the line type code
11938: -- and line style type for further processing
11931: IF l_clev_rec.id <> l_klev_rec.id THEN
11932: OKL_API.set_message(p_app_name => G_APP_NAME,
11933: p_msg_name => G_LINE_RECORD);
11934: x_return_status := OKL_API.G_RET_STS_ERROR;
11935: RAISE OKL_API.G_EXCEPTION_ERROR;
11936: END IF;
11937: -- Validate Line Style id and get the line type code
11938: -- and line style type for further processing
11939: validate_lse_id(p_clev_rec => l_clev_rec,
11940: x_return_status => x_return_status,
11941: x_lty_code => l_lty_code,
11942: x_lse_type => l_lse_type);
11943: -- Check if activity started successfully
11944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11947: RAISE OKL_API.G_EXCEPTION_ERROR;
11948: END IF;
11941: x_lty_code => l_lty_code,
11942: x_lse_type => l_lse_type);
11943: -- Check if activity started successfully
11944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11947: RAISE OKL_API.G_EXCEPTION_ERROR;
11948: END IF;
11949: -- Validate the Dnz_Chr_id
11942: x_lse_type => l_lse_type);
11943: -- Check if activity started successfully
11944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11947: RAISE OKL_API.G_EXCEPTION_ERROR;
11948: END IF;
11949: -- Validate the Dnz_Chr_id
11950: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11943: -- Check if activity started successfully
11944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11947: RAISE OKL_API.G_EXCEPTION_ERROR;
11948: END IF;
11949: -- Validate the Dnz_Chr_id
11950: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11951: x_return_status => x_return_status);
11949: -- Validate the Dnz_Chr_id
11950: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11951: x_return_status => x_return_status);
11952: -- Check if activity started successfully
11953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11956: RAISE OKL_API.G_EXCEPTION_ERROR;
11957: END IF;
11950: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11951: x_return_status => x_return_status);
11952: -- Check if activity started successfully
11953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11956: RAISE OKL_API.G_EXCEPTION_ERROR;
11957: END IF;
11958: -- We can create a party item info only if the line is Model Line
11951: x_return_status => x_return_status);
11952: -- Check if activity started successfully
11953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11956: RAISE OKL_API.G_EXCEPTION_ERROR;
11957: END IF;
11958: -- We can create a party item info only if the line is Model Line
11959: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11952: -- Check if activity started successfully
11953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11956: RAISE OKL_API.G_EXCEPTION_ERROR;
11957: END IF;
11958: -- We can create a party item info only if the line is Model Line
11959: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11960: l_clev_rec.chr_id IS NULL) AND
11955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11956: RAISE OKL_API.G_EXCEPTION_ERROR;
11957: END IF;
11958: -- We can create a party item info only if the line is Model Line
11959: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11960: l_clev_rec.chr_id IS NULL) AND
11961: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11962: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11963: (l_clev_rec.cle_id IS NOT NULL OR
11958: -- We can create a party item info only if the line is Model Line
11959: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11960: l_clev_rec.chr_id IS NULL) AND
11961: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11962: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11963: (l_clev_rec.cle_id IS NOT NULL OR
11964: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11965: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11966: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11960: l_clev_rec.chr_id IS NULL) AND
11961: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11962: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11963: (l_clev_rec.cle_id IS NOT NULL OR
11964: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11965: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11966: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11967: l_lse_type = G_SLS_TYPE THEN
11968: l_cplv_rec.object1_id1 := p_cplv_rec.object1_id1;
11991: x_cplv_rec => x_cplv_rec,
11992: p_kplv_rec => l_kplv_rec,
11993: x_kplv_rec => x_kplv_rec);
11994:
11995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11996: OKL_API.set_message(p_app_name => G_APP_NAME,
11997: p_msg_name => G_UPDATING_PARTY_ROLE);
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11992: p_kplv_rec => l_kplv_rec,
11993: x_kplv_rec => x_kplv_rec);
11994:
11995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11996: OKL_API.set_message(p_app_name => G_APP_NAME,
11997: p_msg_name => G_UPDATING_PARTY_ROLE);
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12000: OKL_API.set_message(p_app_name => G_APP_NAME,
11994:
11995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11996: OKL_API.set_message(p_app_name => G_APP_NAME,
11997: p_msg_name => G_UPDATING_PARTY_ROLE);
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12000: OKL_API.set_message(p_app_name => G_APP_NAME,
12001: p_msg_name => G_UPDATING_PARTY_ROLE);
12002: RAISE OKL_API.G_EXCEPTION_ERROR;
11995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11996: OKL_API.set_message(p_app_name => G_APP_NAME,
11997: p_msg_name => G_UPDATING_PARTY_ROLE);
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12000: OKL_API.set_message(p_app_name => G_APP_NAME,
12001: p_msg_name => G_UPDATING_PARTY_ROLE);
12002: RAISE OKL_API.G_EXCEPTION_ERROR;
12003: END IF;
11996: OKL_API.set_message(p_app_name => G_APP_NAME,
11997: p_msg_name => G_UPDATING_PARTY_ROLE);
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12000: OKL_API.set_message(p_app_name => G_APP_NAME,
12001: p_msg_name => G_UPDATING_PARTY_ROLE);
12002: RAISE OKL_API.G_EXCEPTION_ERROR;
12003: END IF;
12004: ELSE
11998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11999: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12000: OKL_API.set_message(p_app_name => G_APP_NAME,
12001: p_msg_name => G_UPDATING_PARTY_ROLE);
12002: RAISE OKL_API.G_EXCEPTION_ERROR;
12003: END IF;
12004: ELSE
12005: OKL_API.set_message(p_app_name => G_APP_NAME,
12006: p_msg_name => G_INVALID_CRITERIA,
12001: p_msg_name => G_UPDATING_PARTY_ROLE);
12002: RAISE OKL_API.G_EXCEPTION_ERROR;
12003: END IF;
12004: ELSE
12005: OKL_API.set_message(p_app_name => G_APP_NAME,
12006: p_msg_name => G_INVALID_CRITERIA,
12007: p_token1 => G_COL_NAME_TOKEN,
12008: p_token1_value => 'Model/Addon Line for Party Roles');
12009: x_return_status := OKL_API.G_RET_STS_ERROR;
12005: OKL_API.set_message(p_app_name => G_APP_NAME,
12006: p_msg_name => G_INVALID_CRITERIA,
12007: p_token1 => G_COL_NAME_TOKEN,
12008: p_token1_value => 'Model/Addon Line for Party Roles');
12009: x_return_status := OKL_API.G_RET_STS_ERROR;
12010: RAISE OKL_API.G_EXCEPTION_ERROR;
12011: END IF;
12012: -- We need to change the status of the header whenever there is updating happening
12013: -- after the contract status is approved
12006: p_msg_name => G_INVALID_CRITERIA,
12007: p_token1 => G_COL_NAME_TOKEN,
12008: p_token1_value => 'Model/Addon Line for Party Roles');
12009: x_return_status := OKL_API.G_RET_STS_ERROR;
12010: RAISE OKL_API.G_EXCEPTION_ERROR;
12011: END IF;
12012: -- We need to change the status of the header whenever there is updating happening
12013: -- after the contract status is approved
12014: IF (x_cplv_rec.dnz_chr_id is NOT NULL) AND
12011: END IF;
12012: -- We need to change the status of the header whenever there is updating happening
12013: -- after the contract status is approved
12014: IF (x_cplv_rec.dnz_chr_id is NOT NULL) AND
12015: (x_cplv_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
12016: --cascade edit status on to lines
12017: okl_contract_status_pub.cascade_lease_status_edit
12018: (p_api_version => p_api_version,
12019: p_init_msg_list => p_init_msg_list,
12020: x_return_status => x_return_status,
12021: x_msg_count => x_msg_count,
12022: x_msg_data => x_msg_data,
12023: p_chr_id => x_cplv_rec.dnz_chr_id);
12024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12027: RAISE OKL_API.G_EXCEPTION_ERROR;
12028: END IF;
12021: x_msg_count => x_msg_count,
12022: x_msg_data => x_msg_data,
12023: p_chr_id => x_cplv_rec.dnz_chr_id);
12024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12027: RAISE OKL_API.G_EXCEPTION_ERROR;
12028: END IF;
12029: END IF;
12022: x_msg_data => x_msg_data,
12023: p_chr_id => x_cplv_rec.dnz_chr_id);
12024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12027: RAISE OKL_API.G_EXCEPTION_ERROR;
12028: END IF;
12029: END IF;
12030: OKL_API.END_ACTIVITY (x_msg_count,
12023: p_chr_id => x_cplv_rec.dnz_chr_id);
12024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12027: RAISE OKL_API.G_EXCEPTION_ERROR;
12028: END IF;
12029: END IF;
12030: OKL_API.END_ACTIVITY (x_msg_count,
12031: x_msg_data );
12026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12027: RAISE OKL_API.G_EXCEPTION_ERROR;
12028: END IF;
12029: END IF;
12030: OKL_API.END_ACTIVITY (x_msg_count,
12031: x_msg_data );
12032: EXCEPTION
12033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12034: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12029: END IF;
12030: OKL_API.END_ACTIVITY (x_msg_count,
12031: x_msg_data );
12032: EXCEPTION
12033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12034: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12035: l_api_name,
12036: G_PKG_NAME,
12037: 'OKL_API.G_RET_STS_ERROR',
12030: OKL_API.END_ACTIVITY (x_msg_count,
12031: x_msg_data );
12032: EXCEPTION
12033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12034: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12035: l_api_name,
12036: G_PKG_NAME,
12037: 'OKL_API.G_RET_STS_ERROR',
12038: x_msg_count,
12033: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12034: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12035: l_api_name,
12036: G_PKG_NAME,
12037: 'OKL_API.G_RET_STS_ERROR',
12038: x_msg_count,
12039: x_msg_data,
12040: '_PVT');
12041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12037: 'OKL_API.G_RET_STS_ERROR',
12038: x_msg_count,
12039: x_msg_data,
12040: '_PVT');
12041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12042: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12043: l_api_name,
12044: G_PKG_NAME,
12045: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12038: x_msg_count,
12039: x_msg_data,
12040: '_PVT');
12041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12042: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12043: l_api_name,
12044: G_PKG_NAME,
12045: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12046: x_msg_count,
12041: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12042: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12043: l_api_name,
12044: G_PKG_NAME,
12045: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12046: x_msg_count,
12047: x_msg_data,
12048: '_PVT');
12049: WHEN OTHERS THEN
12046: x_msg_count,
12047: x_msg_data,
12048: '_PVT');
12049: WHEN OTHERS THEN
12050: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12051: l_api_name,
12052: G_PKG_NAME,
12053: 'OTHERS',
12054: x_msg_count,
12081: x_msg_data OUT NOCOPY VARCHAR2,
12082: p_asset_id IN NUMBER,
12083: x_pending_trx_yn OUT NOCOPY VARCHAR2) is
12084:
12085: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
12086: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_OFF_LEASE_TRX';
12087: l_api_version CONSTANT NUMBER := 1.0;
12088:
12089: --cursor to find whether unprocessed off lease transaction exists
12103:
12104: l_off_lease_trx_exists varchar2(1);
12105:
12106: Begin
12107: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12108: -- Call start_activity to create savepoint, check compatibility
12109: -- and initialize message list
12110: x_return_status := Okl_Api.START_ACTIVITY(
12111: p_api_name => l_api_name,
12106: Begin
12107: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12108: -- Call start_activity to create savepoint, check compatibility
12109: -- and initialize message list
12110: x_return_status := Okl_Api.START_ACTIVITY(
12111: p_api_name => l_api_name,
12112: p_pkg_name => g_pkg_name,
12113: p_init_msg_list => p_init_msg_list,
12114: l_api_version => l_api_version,
12117: x_return_status => x_return_status);
12118: -- Check if activity started successfully
12119: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12120: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12121: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12122: RAISE Okc_Api.G_EXCEPTION_ERROR;
12123: END IF;
12124:
12125: --check with cursor
12132: close l_off_lease_csr;
12133:
12134: x_pending_trx_yn := l_off_lease_trx_exists;
12135: EXCEPTION
12136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12137: if l_off_lease_csr%ISOPEN then
12138: close l_off_lease_csr;
12139: end if;
12140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12136: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12137: if l_off_lease_csr%ISOPEN then
12138: close l_off_lease_csr;
12139: end if;
12140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12141: l_api_name,
12142: G_PKG_NAME,
12143: 'OKL_API.G_RET_STS_ERROR',
12144: x_msg_count,
12139: end if;
12140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12141: l_api_name,
12142: G_PKG_NAME,
12143: 'OKL_API.G_RET_STS_ERROR',
12144: x_msg_count,
12145: x_msg_data,
12146: '_PVT');
12147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12143: 'OKL_API.G_RET_STS_ERROR',
12144: x_msg_count,
12145: x_msg_data,
12146: '_PVT');
12147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12148: if l_off_lease_csr%ISOPEN then
12149: close l_off_lease_csr;
12150: end if;
12151: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12148: if l_off_lease_csr%ISOPEN then
12149: close l_off_lease_csr;
12150: end if;
12151: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12152: l_api_name,
12153: G_PKG_NAME,
12154: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12155: x_msg_count,
12150: end if;
12151: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12152: l_api_name,
12153: G_PKG_NAME,
12154: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12155: x_msg_count,
12156: x_msg_data,
12157: '_PVT');
12158: WHEN OTHERS THEN
12158: WHEN OTHERS THEN
12159: if l_off_lease_csr%ISOPEN then
12160: close l_off_lease_csr;
12161: end if;
12162: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12163: l_api_name,
12164: G_PKG_NAME,
12165: 'OTHERS',
12166: x_msg_count,
12200: l_rep_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
12201: l_pdt_date DATE;
12202: l_no_data_found BOOLEAN;
12203: l_error_condition Exception;
12204: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
12205:
12206: --cursor to get pdt_id and k_start date
12207: cursor l_chr_csr (p_chr_id in number) is
12208: SELECT chrb.start_date,
12226:
12227: l_pdtv_rec.id := l_chr_rec.pdt_id;
12228: l_pdt_date := l_chr_rec.start_date;
12229: l_no_data_found := TRUE;
12230: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12231:
12232: okl_setupproducts_pub.Getpdt_parameters(p_api_version => p_api_version,
12233: p_init_msg_list => p_init_msg_list,
12234: x_return_status => l_return_status,
12238: p_pdtv_rec => l_pdtv_rec,
12239: p_product_date => l_pdt_date,
12240: p_pdt_parameter_rec => l_pdt_parameter_rec);
12241:
12242: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
12243: x_rep_pdt_id := Null;
12244: x_tax_owner := Null;
12245: Else
12246: x_rep_pdt_id := l_pdt_parameter_rec.reporting_pdt_id;
12258: p_pdtv_rec => l_pdtv_rec,
12259: p_product_date => l_pdt_date,
12260: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
12261:
12262: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
12263: x_rep_deal_type := NULL;
12264: Else
12265: x_rep_deal_type := l_rep_pdt_parameter_rec.deal_type;
12266: End If;
12274: When Others Then
12275: If l_chr_csr%ISOPEN then
12276: close l_chr_csr;
12277: End If;
12278: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12279: End Get_Pdt_Params;
12280: --Bug# 3631094
12281:
12282: --Bug# 3950089: start
12298: p_chr_id IN NUMBER,
12299: p_release_date IN DATE,
12300: x_nbv OUT NOCOPY Number) IS
12301:
12302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12303: l_api_name CONSTANT VARCHAR2(30) := 'GET_NBV';
12304: l_api_version CONSTANT NUMBER := 1.0;
12305:
12306: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
12315: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
12316:
12317: BEGIN
12318: --call start activity to set savepoint
12319: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
12320: p_init_msg_list,
12321: '_PVT',
12322: x_return_status);
12323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12319: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
12320: p_init_msg_list,
12321: '_PVT',
12322: x_return_status);
12323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12326: RAISE OKL_API.G_EXCEPTION_ERROR;
12327: END IF;
12320: p_init_msg_list,
12321: '_PVT',
12322: x_return_status);
12323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12326: RAISE OKL_API.G_EXCEPTION_ERROR;
12327: END IF;
12328:
12321: '_PVT',
12322: x_return_status);
12323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12326: RAISE OKL_API.G_EXCEPTION_ERROR;
12327: END IF;
12328:
12329: l_asset_hdr_rec.asset_id := p_asset_id;
12322: x_return_status);
12323: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12325: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12326: RAISE OKL_API.G_EXCEPTION_ERROR;
12327: END IF;
12328:
12329: l_asset_hdr_rec.asset_id := p_asset_id;
12330: l_asset_hdr_rec.book_type_code := p_book_type_code;
12329: l_asset_hdr_rec.asset_id := p_asset_id;
12330: l_asset_hdr_rec.book_type_code := p_book_type_code;
12331:
12332: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
12333: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12334: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12335: );
12336: Raise OKL_API.G_EXCEPTION_ERROR;
12337: end if;
12332: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
12333: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12334: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12335: );
12336: Raise OKL_API.G_EXCEPTION_ERROR;
12337: end if;
12338:
12339: -- To fetch Asset Current Cost
12340: if not FA_UTIL_PVT.get_asset_fin_rec
12343: p_transaction_header_id => NULL,
12344: p_mrc_sob_type_code => 'P'
12345: ) then
12346:
12347: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12348: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12349: );
12350: Raise OKL_API.G_EXCEPTION_ERROR;
12351: end if;
12346:
12347: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12348: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12349: );
12350: Raise OKL_API.G_EXCEPTION_ERROR;
12351: end if;
12352:
12353: -- To fetch Depreciation Reserve
12354: if not FA_UTIL_PVT.get_asset_deprn_rec
12356: px_asset_deprn_rec => l_asset_deprn_rec,
12357: p_period_counter => NULL,
12358: p_mrc_sob_type_code => 'P'
12359: ) then
12360: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12361: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12362: );
12363: Raise OKL_API.G_EXCEPTION_ERROR;
12364: end if;
12359: ) then
12360: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12361: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12362: );
12363: Raise OKL_API.G_EXCEPTION_ERROR;
12364: end if;
12365:
12366: l_nbv := l_asset_fin_rec.cost - l_asset_deprn_rec.deprn_reserve;
12367:
12377: x_currency_conversion_rate => l_currency_conversion_rate,
12378: x_currency_conversion_date => l_currency_conversion_date,
12379: x_converted_amount => l_converted_amount);
12380:
12381: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12382: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12383: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12384: RAISE Okl_Api.G_EXCEPTION_ERROR;
12385: END IF;
12378: x_currency_conversion_date => l_currency_conversion_date,
12379: x_converted_amount => l_converted_amount);
12380:
12381: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12382: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12383: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12384: RAISE Okl_Api.G_EXCEPTION_ERROR;
12385: END IF;
12386:
12380:
12381: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12382: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12383: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12384: RAISE Okl_Api.G_EXCEPTION_ERROR;
12385: END IF;
12386:
12387: x_nbv := l_converted_amount;
12388:
12386:
12387: x_nbv := l_converted_amount;
12388:
12389: --Call end Activity
12390: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12391: EXCEPTION
12392: WHEN OKL_API.G_EXCEPTION_ERROR Then
12393: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12394: (
12388:
12389: --Call end Activity
12390: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12391: EXCEPTION
12392: WHEN OKL_API.G_EXCEPTION_ERROR Then
12393: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12394: (
12395: l_api_name,
12396: G_PKG_NAME,
12389: --Call end Activity
12390: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12391: EXCEPTION
12392: WHEN OKL_API.G_EXCEPTION_ERROR Then
12393: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12394: (
12395: l_api_name,
12396: G_PKG_NAME,
12397: 'OKL_API.G_RET_STS_ERROR',
12393: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12394: (
12395: l_api_name,
12396: G_PKG_NAME,
12397: 'OKL_API.G_RET_STS_ERROR',
12398: x_msg_count,
12399: x_msg_data,
12400: '_PVT'
12401: );
12398: x_msg_count,
12399: x_msg_data,
12400: '_PVT'
12401: );
12402: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12403: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12404: (
12405: l_api_name,
12406: G_PKG_NAME,
12399: x_msg_data,
12400: '_PVT'
12401: );
12402: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12403: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12404: (
12405: l_api_name,
12406: G_PKG_NAME,
12407: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12403: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12404: (
12405: l_api_name,
12406: G_PKG_NAME,
12407: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12408: x_msg_count,
12409: x_msg_data,
12410: '_PVT'
12411: );
12409: x_msg_data,
12410: '_PVT'
12411: );
12412: WHEN OTHERS THEN
12413: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12414: (
12415: l_api_name,
12416: G_PKG_NAME,
12417: 'OTHERS',
12435: p_chr_id IN NUMBER,
12436: x_cle_id OUT NOCOPY NUMBER) IS
12437:
12438:
12439: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
12440: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELEASE_ASSET';
12441: l_api_version CONSTANT NUMBER := 1.0;
12442:
12443: --cursor to fetch original financial asset line id
12750: l_termination_date varchar2(240);
12751: l_k_start_date varchar2(240);
12752: --Bug# 4869443
12753: BEGIN
12754: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12755: -- Call start_activity to create savepoint, check compatibility
12756: -- and initialize message list
12757: x_return_status := Okl_Api.START_ACTIVITY(
12758: p_api_name => l_api_name,
12753: BEGIN
12754: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12755: -- Call start_activity to create savepoint, check compatibility
12756: -- and initialize message list
12757: x_return_status := Okl_Api.START_ACTIVITY(
12758: p_api_name => l_api_name,
12759: p_pkg_name => g_pkg_name,
12760: p_init_msg_list => p_init_msg_list,
12761: l_api_version => l_api_version,
12764: x_return_status => x_return_status);
12765: -- Check if activity started successfully
12766: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12767: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12768: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12769: RAISE Okc_Api.G_EXCEPTION_ERROR;
12770: END IF;
12771:
12772: --------------------------------
12780: end if;
12781: close l_chk_rbk_csr;
12782:
12783: If l_rbk_yn = 'Y' then
12784: OKL_API.set_message(
12785: p_app_name => G_APP_NAME,
12786: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
12787: x_return_status := OKC_API.G_RET_STS_ERROR;
12788: RAISE OKL_API.G_EXCEPTION_ERROR;
12784: OKL_API.set_message(
12785: p_app_name => G_APP_NAME,
12786: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
12787: x_return_status := OKC_API.G_RET_STS_ERROR;
12788: RAISE OKL_API.G_EXCEPTION_ERROR;
12789:
12790: End If;
12791: ------------------
12792: --end Bug# 3783518
12812: p_asset_id => p_asset_id,
12813: x_pending_trx_yn => l_pending_trx_yn);
12814: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12815: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12816: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12817: RAISE Okc_Api.G_EXCEPTION_ERROR;
12818: END IF;
12819:
12820: If l_pending_trx_yn = 'Y' then
12825: null;
12826: end if;
12827: close l_asset_no_csr;
12828:
12829: OKL_API.set_message(
12830: p_app_name => G_APP_NAME,
12831: p_msg_name => 'OKL_LA_OFF_LEASE_TRX',
12832: p_token1 => 'ASSET_NUMBER',
12833: p_token1_value => l_asset_number);
12831: p_msg_name => 'OKL_LA_OFF_LEASE_TRX',
12832: p_token1 => 'ASSET_NUMBER',
12833: p_token1_value => l_asset_number);
12834: x_return_status := OKC_API.G_RET_STS_ERROR;
12835: RAISE OKL_API.G_EXCEPTION_ERROR;
12836:
12837: End If;
12838:
12839:
12844: Fetch l_orig_ast_csr into l_orig_ast_rec;
12845: If l_orig_ast_csr%NOTFOUND then
12846: --raise error: Unable to fetch data for asset to release
12847: --from the old contract
12848: OKL_API.set_message(p_app_name => G_APP_NAME,
12849: p_msg_name => 'OKL_LA_RELEASE_AST_DTLS');
12850: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958
12851: End If;
12852: Close l_orig_ast_csr;
12846: --raise error: Unable to fetch data for asset to release
12847: --from the old contract
12848: OKL_API.set_message(p_app_name => G_APP_NAME,
12849: p_msg_name => 'OKL_LA_RELEASE_AST_DTLS');
12850: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958
12851: End If;
12852: Close l_orig_ast_csr;
12853:
12854:
12852: Close l_orig_ast_csr;
12853:
12854:
12855: --Bug# 4869443
12856: If nvl(l_hdr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE' then --is a release asset case
12857: If (l_hdr_rec.start_date <= l_orig_ast_rec.date_terminated) then
12858: -- Raise Error: start date of the contract should not be less than or equal to termination
12859: -- date of the asset.
12860: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
12868: null;
12869: end if;
12870: close l_asset_no_csr;
12871:
12872: OKL_API.set_message(p_app_name => G_APP_NAME,
12873: p_msg_name => 'OKL_LA_RELEASE_AST_TRMN_DATE',
12874: p_token1 => 'TERMINATION_DATE',
12875: p_token1_value => l_termination_date,
12876: p_token2 => 'ASSET_NUMBER',
12876: p_token2 => 'ASSET_NUMBER',
12877: p_token2_value => l_asset_number,
12878: p_token3 => 'CONTRACT_START_DATE',
12879: p_token3_value => l_k_start_date);
12880: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958 changed to OKL_API from OKC_API
12881: End If;
12882:
12883: --Bug# 6328924
12884: If (l_hdr_rec.legal_entity_id <> l_orig_ast_rec.legal_entity_id) then
12891: null;
12892: end if;
12893: close l_asset_no_csr;
12894:
12895: OKL_API.set_message(p_app_name => G_APP_NAME,
12896: p_msg_name => 'OKL_LA_RELEASE_ASSET_LGL_ENTY',
12897: p_token1 => 'ASSET_NUMBER',
12898: p_token1_value => l_asset_number);
12899: RAISE Okl_Api.G_EXCEPTION_ERROR;
12895: OKL_API.set_message(p_app_name => G_APP_NAME,
12896: p_msg_name => 'OKL_LA_RELEASE_ASSET_LGL_ENTY',
12897: p_token1 => 'ASSET_NUMBER',
12898: p_token1_value => l_asset_number);
12899: RAISE Okl_Api.G_EXCEPTION_ERROR;
12900: End If;
12901:
12902: End If;
12903: --Bug# 4869443
12911: x_return_status => x_return_status,
12912: x_msg_count => x_msg_count,
12913: x_msg_data => x_msg_data,
12914: p_from_cle_id => l_orig_ast_rec.finasst_id,
12915: p_to_cle_id => OKL_API.G_MISS_NUM ,
12916: p_to_chr_id => p_chr_id,
12917: p_to_template_yn => 'N',
12918: p_copy_reference => 'COPY',
12919: p_copy_line_party_yn => 'N',
12919: p_copy_line_party_yn => 'N',
12920: p_renew_ref_yn => 'N',
12921: p_trans_type => 'CRL',
12922: x_cle_id => l_new_finasst_id);
12923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12924: RAISE OKL_API.G_EXCEPTION_ERROR;
12925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12927: END IF;
12920: p_renew_ref_yn => 'N',
12921: p_trans_type => 'CRL',
12922: x_cle_id => l_new_finasst_id);
12923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12924: RAISE OKL_API.G_EXCEPTION_ERROR;
12925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12927: END IF;
12928:
12921: p_trans_type => 'CRL',
12922: x_cle_id => l_new_finasst_id);
12923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12924: RAISE OKL_API.G_EXCEPTION_ERROR;
12925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12927: END IF;
12928:
12929: ---------------------------
12922: x_cle_id => l_new_finasst_id);
12923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12924: RAISE OKL_API.G_EXCEPTION_ERROR;
12925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12926: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12927: END IF;
12928:
12929: ---------------------------
12930: --3. delete addon lines
12941: x_msg_count => x_msg_count,
12942: x_msg_data => x_msg_data,
12943: p_line_id => l_addonline_id);
12944:
12945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12946: RAISE OKL_API.G_EXCEPTION_ERROR;
12947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12949: END IF;
12942: x_msg_data => x_msg_data,
12943: p_line_id => l_addonline_id);
12944:
12945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12946: RAISE OKL_API.G_EXCEPTION_ERROR;
12947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12949: END IF;
12950: End Loop;
12943: p_line_id => l_addonline_id);
12944:
12945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12946: RAISE OKL_API.G_EXCEPTION_ERROR;
12947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12949: END IF;
12950: End Loop;
12951: Close l_addonline_csr;
12944:
12945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12946: RAISE OKL_API.G_EXCEPTION_ERROR;
12947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12949: END IF;
12950: End Loop;
12951: Close l_addonline_csr;
12952:
12965: x_msg_count => x_msg_count,
12966: x_msg_data => x_msg_data,
12967: p_line_id => l_subsidyline_id);
12968:
12969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12973: END IF;
12966: x_msg_data => x_msg_data,
12967: p_line_id => l_subsidyline_id);
12968:
12969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12973: END IF;
12974: End Loop;
12967: p_line_id => l_subsidyline_id);
12968:
12969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12973: END IF;
12974: End Loop;
12975: Close l_subsidyline_csr;
12968:
12969: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12970: RAISE OKL_API.G_EXCEPTION_ERROR;
12971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12973: END IF;
12974: End Loop;
12975: Close l_subsidyline_csr;
12976:
13011: p_klev_rec => l_dt_klev_rec,
13012: x_clev_rec => lx_dt_clev_rec,
13013: x_klev_rec => lx_dt_klev_rec);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13019: END IF;
13012: x_clev_rec => lx_dt_clev_rec,
13013: x_klev_rec => lx_dt_klev_rec);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13019: END IF;
13020:
13013: x_klev_rec => lx_dt_klev_rec);
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13019: END IF;
13020:
13021:
13014:
13015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13016: RAISE OKL_API.G_EXCEPTION_ERROR;
13017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13019: END IF;
13020:
13021:
13022: --plug in asset and ib ids
13043: x_msg_data => x_msg_data,
13044: p_cimv_rec => l_upd_cimv_rec,
13045: x_cimv_rec => lx_upd_cimv_rec);
13046:
13047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13048: RAISE OKL_API.G_EXCEPTION_ERROR;
13049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13051: END IF;
13044: p_cimv_rec => l_upd_cimv_rec,
13045: x_cimv_rec => lx_upd_cimv_rec);
13046:
13047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13048: RAISE OKL_API.G_EXCEPTION_ERROR;
13049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13051: END IF;
13052: End If;
13045: x_cimv_rec => lx_upd_cimv_rec);
13046:
13047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13048: RAISE OKL_API.G_EXCEPTION_ERROR;
13049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13051: END IF;
13052: End If;
13053: Close l_cim_csr;
13046:
13047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13048: RAISE OKL_API.G_EXCEPTION_ERROR;
13049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13050: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13051: END IF;
13052: End If;
13053: Close l_cim_csr;
13054: End If;
13068: x_msg_count => x_msg_count,
13069: x_msg_data => x_msg_data,
13070: p_rgpv_rec => l_rgpv_rec );
13071:
13072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13073: RAISE OKL_API.G_EXCEPTION_ERROR;
13074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13076: END IF;
13069: x_msg_data => x_msg_data,
13070: p_rgpv_rec => l_rgpv_rec );
13071:
13072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13073: RAISE OKL_API.G_EXCEPTION_ERROR;
13074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13076: END IF;
13077: End Loop;
13070: p_rgpv_rec => l_rgpv_rec );
13071:
13072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13073: RAISE OKL_API.G_EXCEPTION_ERROR;
13074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13076: END IF;
13077: End Loop;
13078: Close l_rgp_csr;
13071:
13072: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13073: RAISE OKL_API.G_EXCEPTION_ERROR;
13074: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13076: END IF;
13077: End Loop;
13078: Close l_rgp_csr;
13079:
13091: x_msg_count => x_msg_count,
13092: x_msg_data => x_msg_data,
13093: p_sidv_rec => l_sidv_rec );
13094:
13095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13096: RAISE OKL_API.G_EXCEPTION_ERROR;
13097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13099: END IF;
13092: x_msg_data => x_msg_data,
13093: p_sidv_rec => l_sidv_rec );
13094:
13095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13096: RAISE OKL_API.G_EXCEPTION_ERROR;
13097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13099: END IF;
13100: End Loop;
13093: p_sidv_rec => l_sidv_rec );
13094:
13095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13096: RAISE OKL_API.G_EXCEPTION_ERROR;
13097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13099: END IF;
13100: End Loop;
13101: Close l_sid_csr;
13094:
13095: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13096: RAISE OKL_API.G_EXCEPTION_ERROR;
13097: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13099: END IF;
13100: End Loop;
13101: Close l_sid_csr;
13102:
13128: x_msg_data => x_msg_data,
13129: p_cplv_rec => l_cplv_rec,
13130: p_kplv_rec => l_kplv_rec);
13131:
13132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13136: END IF;
13129: p_cplv_rec => l_cplv_rec,
13130: p_kplv_rec => l_kplv_rec);
13131:
13132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13136: END IF;
13137: End Loop;
13130: p_kplv_rec => l_kplv_rec);
13131:
13132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13136: END IF;
13137: End Loop;
13138: Close l_cpl_csr;
13131:
13132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13133: RAISE OKL_API.G_EXCEPTION_ERROR;
13134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13136: END IF;
13137: End Loop;
13138: Close l_cpl_csr;
13139: End Loop;
13175: p_chr_id => p_chr_id,
13176: p_release_date => l_hdr_rec.start_date,
13177: x_nbv => l_nbv);
13178:
13179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13182: RAISE OKL_API.G_EXCEPTION_ERROR;
13183: END IF;
13176: p_release_date => l_hdr_rec.start_date,
13177: x_nbv => l_nbv);
13178:
13179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13182: RAISE OKL_API.G_EXCEPTION_ERROR;
13183: END IF;
13184:
13177: x_nbv => l_nbv);
13178:
13179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13182: RAISE OKL_API.G_EXCEPTION_ERROR;
13183: END IF;
13184:
13185: IF l_nbv is not NULL then
13178:
13179: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13181: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13182: RAISE OKL_API.G_EXCEPTION_ERROR;
13183: END IF;
13184:
13185: IF l_nbv is not NULL then
13186: --update okl_txl_Assets
13199: x_talv_rec => lx_talv_rec);
13200:
13201: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13202: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13203: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13204: RAISE Okc_Api.G_EXCEPTION_ERROR;
13205: END IF;
13206: END IF;
13207: --BUG# :END 3569441
13236: p_clev_rec => l_clev_rec,
13237: p_klev_rec => l_klev_rec,
13238: x_clev_rec => lx_clev_rec,
13239: x_klev_rec => lx_klev_rec);
13240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13241: RAISE OKL_API.G_EXCEPTION_ERROR;
13242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13244: END IF;
13237: p_klev_rec => l_klev_rec,
13238: x_clev_rec => lx_clev_rec,
13239: x_klev_rec => lx_klev_rec);
13240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13241: RAISE OKL_API.G_EXCEPTION_ERROR;
13242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13244: END IF;
13245:
13238: x_clev_rec => lx_clev_rec,
13239: x_klev_rec => lx_klev_rec);
13240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13241: RAISE OKL_API.G_EXCEPTION_ERROR;
13242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13244: END IF;
13245:
13246: okl_okc_migration_pvt.update_contract_item
13239: x_klev_rec => lx_klev_rec);
13240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13241: RAISE OKL_API.G_EXCEPTION_ERROR;
13242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13244: END IF;
13245:
13246: okl_okc_migration_pvt.update_contract_item
13247: (p_api_version => p_api_version,
13250: x_msg_count => x_msg_count,
13251: x_msg_data => x_msg_data,
13252: p_cimv_rec => l_cimv_rec,
13253: x_cimv_rec => lx_cimv_rec);
13254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13255: RAISE OKL_API.G_EXCEPTION_ERROR;
13256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13258: END IF;
13251: x_msg_data => x_msg_data,
13252: p_cimv_rec => l_cimv_rec,
13253: x_cimv_rec => lx_cimv_rec);
13254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13255: RAISE OKL_API.G_EXCEPTION_ERROR;
13256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13258: END IF;
13259:
13252: p_cimv_rec => l_cimv_rec,
13253: x_cimv_rec => lx_cimv_rec);
13254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13255: RAISE OKL_API.G_EXCEPTION_ERROR;
13256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13258: END IF;
13259:
13260: --update financial asset line for OEC and residual value
13253: x_cimv_rec => lx_cimv_rec);
13254: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13255: RAISE OKL_API.G_EXCEPTION_ERROR;
13256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13258: END IF;
13259:
13260: --update financial asset line for OEC and residual value
13261: l_clev_rec.id := l_new_finasst_id;
13259:
13260: --update financial asset line for OEC and residual value
13261: l_clev_rec.id := l_new_finasst_id;
13262: l_klev_rec.id := l_new_finasst_id;
13263: l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
13264: l_klev_rec.residual_percentage := l_corpbook_rec.percent_salvage_value;
13265: l_klev_rec.residual_value := l_corpbook_rec.salvage_value;
13266: --BUG : 3569441
13267: l_klev_rec.oec := l_nbv;
13276: p_clev_rec => l_clev_rec,
13277: p_klev_rec => l_klev_rec,
13278: x_clev_rec => lx_clev_rec,
13279: x_klev_rec => lx_klev_rec);
13280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13284: END IF;
13277: p_klev_rec => l_klev_rec,
13278: x_clev_rec => lx_clev_rec,
13279: x_klev_rec => lx_klev_rec);
13280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13284: END IF;
13285:
13278: x_clev_rec => lx_clev_rec,
13279: x_klev_rec => lx_klev_rec);
13280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13284: END IF;
13285:
13286: --Bug# 3631094 : Creation of reporting tax book
13279: x_klev_rec => lx_klev_rec);
13280: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13284: END IF;
13285:
13286: --Bug# 3631094 : Creation of reporting tax book
13287: l_rep_asset_book := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
13290: OPEN l_taxbook_csr(p_tal_id => l_corpbook_rec.id);
13291: Loop
13292: Fetch l_taxbook_csr into l_taxbook_rec;
13293: Exit when l_taxbook_csr%NOTFOUND;
13294: If l_taxbook_rec.tax_book = nvl(l_rep_Asset_book,OKL_API.G_MISS_CHAR) then
13295: l_rep_Asset_book_done := 'Y';
13296: l_mg_txd_id := l_taxbook_rec.id;
13297: End If;
13298: --Bug# 3950089: Fetch NBV using FA apis
13318: p_chr_id => p_chr_id,
13319: p_release_date => l_hdr_rec.start_date,
13320: x_nbv => l_nbv);
13321:
13322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13325: RAISE OKL_API.G_EXCEPTION_ERROR;
13326: END IF;
13319: p_release_date => l_hdr_rec.start_date,
13320: x_nbv => l_nbv);
13321:
13322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13325: RAISE OKL_API.G_EXCEPTION_ERROR;
13326: END IF;
13327:
13320: x_nbv => l_nbv);
13321:
13322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13325: RAISE OKL_API.G_EXCEPTION_ERROR;
13326: END IF;
13327:
13328: If l_nbv is NOT NULL then
13321:
13322: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13324: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13325: RAISE OKL_API.G_EXCEPTION_ERROR;
13326: END IF;
13327:
13328: If l_nbv is NOT NULL then
13329: --update okl_txd_Assets_b
13340: x_adpv_rec => lx_txdv_rec);
13341:
13342: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13343: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13344: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13345: RAISE Okc_Api.G_EXCEPTION_ERROR;
13346: END IF;
13347: END IF;
13348: End Loop;
13360: x_tax_owner => l_tax_owner,
13361: x_deal_type => l_deal_type,
13362: x_rep_deal_type => l_rep_deal_type);
13363:
13364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13367: RAISE OKL_API.G_EXCEPTION_ERROR;
13368: END IF;
13361: x_deal_type => l_deal_type,
13362: x_rep_deal_type => l_rep_deal_type);
13363:
13364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13367: RAISE OKL_API.G_EXCEPTION_ERROR;
13368: END IF;
13369:
13362: x_rep_deal_type => l_rep_deal_type);
13363:
13364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13367: RAISE OKL_API.G_EXCEPTION_ERROR;
13368: END IF;
13369:
13370: If l_tax_owner is null then
13363:
13364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13367: RAISE OKL_API.G_EXCEPTION_ERROR;
13368: END IF;
13369:
13370: If l_tax_owner is null then
13371: Open town_rul_csr(pchrid => p_chr_id);
13377: p_msg_name => G_REQUIRED_VALUE,
13378: p_token1 => G_COL_NAME_TOKEN,
13379: p_token1_value => 'Tax Owner');
13380: x_return_status := OKC_API.G_RET_STS_ERROR;
13381: RAISE OKL_API.G_EXCEPTION_ERROR;
13382: Else
13383: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
13384: End If;
13385: Close town_rul_csr;
13446:
13447: --Bug 7708944. SGIYER 01/15/2009.
13448: -- Implemented MG changes based on PM recommendation.
13449: If l_Multi_GAAP_YN = 'Y' and nvl(l_rep_deal_type,'X') in ('LEASEDF','LEASEST','LEASEOP') then
13450: If nvl(l_rep_Asset_book_done,OKL_API.G_MISS_CHAR) = 'N' then
13451: l_mg_txdv_rec.tal_id := l_corpbook_rec.id;
13452: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13453: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13454: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13450: If nvl(l_rep_Asset_book_done,OKL_API.G_MISS_CHAR) = 'N' then
13451: l_mg_txdv_rec.tal_id := l_corpbook_rec.id;
13452: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13453: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13454: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13455: --l_mg_txdv_rec.cost := 0;
13456: --ElsIf nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'N' then
13457: l_mg_txdv_rec.cost := l_corp_nbv;
13458: --End If;
13452: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13453: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13454: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13455: --l_mg_txdv_rec.cost := 0;
13456: --ElsIf nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'N' then
13457: l_mg_txdv_rec.cost := l_corp_nbv;
13458: --End If;
13459: --get defaults from category books
13460: open l_defaults_csr (p_book => l_rep_asset_book,
13490: x_adpv_rec => lx_mg_txdv_rec);
13491:
13492: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13493: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13494: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13495: RAISE Okc_Api.G_EXCEPTION_ERROR;
13496: END IF;
13497: End If; -- if multi gaap asset book is not doen
13498: End If; --If l_mutigaap_yn
13497: End If; -- if multi gaap asset book is not doen
13498: End If; --If l_mutigaap_yn
13499: x_cle_id:= l_new_finasst_id;
13500:
13501: OKL_API.END_ACTIVITY (x_msg_count,
13502: x_msg_data );
13503: EXCEPTION
13504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13500:
13501: OKL_API.END_ACTIVITY (x_msg_count,
13502: x_msg_data );
13503: EXCEPTION
13504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13506: l_api_name,
13507: G_PKG_NAME,
13508: 'OKL_API.G_RET_STS_ERROR',
13501: OKL_API.END_ACTIVITY (x_msg_count,
13502: x_msg_data );
13503: EXCEPTION
13504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13506: l_api_name,
13507: G_PKG_NAME,
13508: 'OKL_API.G_RET_STS_ERROR',
13509: x_msg_count,
13504: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13506: l_api_name,
13507: G_PKG_NAME,
13508: 'OKL_API.G_RET_STS_ERROR',
13509: x_msg_count,
13510: x_msg_data,
13511: '_PVT');
13512: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13508: 'OKL_API.G_RET_STS_ERROR',
13509: x_msg_count,
13510: x_msg_data,
13511: '_PVT');
13512: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13513: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13514: l_api_name,
13515: G_PKG_NAME,
13516: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13509: x_msg_count,
13510: x_msg_data,
13511: '_PVT');
13512: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13513: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13514: l_api_name,
13515: G_PKG_NAME,
13516: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13517: x_msg_count,
13512: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13513: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13514: l_api_name,
13515: G_PKG_NAME,
13516: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13517: x_msg_count,
13518: x_msg_data,
13519: '_PVT');
13520: WHEN OTHERS THEN
13517: x_msg_count,
13518: x_msg_data,
13519: '_PVT');
13520: WHEN OTHERS THEN
13521: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13522: l_api_name,
13523: G_PKG_NAME,
13524: 'OTHERS',
13525: x_msg_count,
13542: p_cle_id IN NUMBER,
13543: p_orig_cle_id IN NUMBER,
13544: p_chr_id IN NUMBER) IS
13545:
13546: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
13547: l_api_name CONSTANT VARCHAR2(30) := 'COPY_UPDATED_ASSET';
13548: l_api_version CONSTANT NUMBER := 1.0;
13549:
13550: --cursor to get rule groups attached to old line
13691: l_srfvv_rec OKL_SUBSIDY_RFND_DTLS_PVT.srfvv_rec_type;
13692: lx_srfvv_rec OKL_SUBSIDY_RFND_DTLS_PVT.srfvv_rec_type;
13693:
13694: Begin
13695: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13696: -- Call start_activity to create savepoint, check compatibility
13697: -- and initialize message list
13698: x_return_status := Okl_Api.START_ACTIVITY(
13699: p_api_name => l_api_name,
13694: Begin
13695: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13696: -- Call start_activity to create savepoint, check compatibility
13697: -- and initialize message list
13698: x_return_status := Okl_Api.START_ACTIVITY(
13699: p_api_name => l_api_name,
13700: p_pkg_name => g_pkg_name,
13701: p_init_msg_list => p_init_msg_list,
13702: l_api_version => l_api_version,
13705: x_return_status => x_return_status);
13706: -- Check if activity started successfully
13707: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13708: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13710: RAISE Okc_Api.G_EXCEPTION_ERROR;
13711: END IF;
13712:
13713: --1. Copy rules from old line to new line
13727: p_to_template_yn => 'N',
13728: x_rgp_id => lx_rgp_id);
13729: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13730: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13731: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13732: RAISE Okc_Api.G_EXCEPTION_ERROR;
13733: END IF;
13734: End Loop;
13735: close l_rgp_csr;
13751: p_rle_code => l_cpl_rec.rle_code,
13752: x_cpl_id => lx_cpl_id);
13753: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13755: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13756: RAISE Okc_Api.G_EXCEPTION_ERROR;
13757: END IF;
13758: End Loop;
13759: close l_cpl_csr;
13775: p_cimv_rec => l_cimv_rec,
13776: x_cimv_rec => lx_cimv_rec);
13777: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13778: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13779: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13780: RAISE Okc_Api.G_EXCEPTION_ERROR;
13781: END IF;
13782: End Loop;
13783: Close l_lnk_ast_csr;
13801: p_rulv_rec => l_rulv_rec,
13802: x_rulv_rec => lx_rulv_rec);
13803: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13804: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13805: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13806: RAISE Okc_Api.G_EXCEPTION_ERROR;
13807: END IF;
13808: End Loop;
13809: Close l_slh_csr;
13833: p_asb_rec => l_asb_rec,
13834: x_asb_rec => lx_asb_rec);
13835: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13836: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13837: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13838: RAISE Okc_Api.G_EXCEPTION_ERROR;
13839: END IF;
13840:
13841: --update link to party payment details
13855: p_srfvv_rec => l_srfvv_rec,
13856: x_srfvv_rec => lx_srfvv_rec);
13857: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13858: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13859: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13860: RAISE Okc_Api.G_EXCEPTION_ERROR;
13861: END IF;
13862: End If;
13863: Close l_subrfnd_csr;
13864: End Loop;
13865: Close l_subsidy_csr;
13866:
13867:
13868: OKL_API.END_ACTIVITY (x_msg_count,
13869: x_msg_data );
13870: EXCEPTION
13871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13872: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13867:
13868: OKL_API.END_ACTIVITY (x_msg_count,
13869: x_msg_data );
13870: EXCEPTION
13871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13872: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13873: l_api_name,
13874: G_PKG_NAME,
13875: 'OKL_API.G_RET_STS_ERROR',
13868: OKL_API.END_ACTIVITY (x_msg_count,
13869: x_msg_data );
13870: EXCEPTION
13871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13872: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13873: l_api_name,
13874: G_PKG_NAME,
13875: 'OKL_API.G_RET_STS_ERROR',
13876: x_msg_count,
13871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13872: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13873: l_api_name,
13874: G_PKG_NAME,
13875: 'OKL_API.G_RET_STS_ERROR',
13876: x_msg_count,
13877: x_msg_data,
13878: '_PVT');
13879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13875: 'OKL_API.G_RET_STS_ERROR',
13876: x_msg_count,
13877: x_msg_data,
13878: '_PVT');
13879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13881: l_api_name,
13882: G_PKG_NAME,
13883: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13876: x_msg_count,
13877: x_msg_data,
13878: '_PVT');
13879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13881: l_api_name,
13882: G_PKG_NAME,
13883: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13884: x_msg_count,
13879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13880: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13881: l_api_name,
13882: G_PKG_NAME,
13883: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13884: x_msg_count,
13885: x_msg_data,
13886: '_PVT');
13887: WHEN OTHERS THEN
13884: x_msg_count,
13885: x_msg_data,
13886: '_PVT');
13887: WHEN OTHERS THEN
13888: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13889: l_api_name,
13890: G_PKG_NAME,
13891: 'OTHERS',
13892: x_msg_count,
13911: p_clev_fin_id IN NUMBER,
13912: x_cle_id OUT NOCOPY NUMBER) IS
13913:
13914:
13915: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
13916: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELEASE_ASSET';
13917: l_api_version CONSTANT NUMBER := 1.0;
13918:
13919: --cursor to find the existing asset id on release asset line
13969: l_rbk_ast_change_yn varchar2(1);
13970: l_k_source okc_k_headers_b.orig_system_source_code%TYPE;
13971:
13972: BEGIN
13973: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13974: -- Call start_activity to create savepoint, check compatibility
13975: -- and initialize message list
13976: x_return_status := Okl_Api.START_ACTIVITY(
13977: p_api_name => l_api_name,
13972: BEGIN
13973: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13974: -- Call start_activity to create savepoint, check compatibility
13975: -- and initialize message list
13976: x_return_status := Okl_Api.START_ACTIVITY(
13977: p_api_name => l_api_name,
13978: p_pkg_name => g_pkg_name,
13979: p_init_msg_list => p_init_msg_list,
13980: l_api_version => l_api_version,
13983: x_return_status => x_return_status);
13984: -- Check if activity started successfully
13985: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13986: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13987: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13988: RAISE Okc_Api.G_EXCEPTION_ERROR;
13989: END IF;
13990:
13991: --------------------
13998: l_rbk_ast_change_yn := l_chk_rbk_rec.change_flag;
13999: l_k_source := l_chk_rbk_rec.orig_system_source_code;
14000: end loop;
14001:
14002: If nvl(l_k_source,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' then
14003: If l_rbk_ast_change_yn = 'Y' then
14004: --raise error : can not add new asset on a rebook
14005: OKL_API.set_message(
14006: p_app_name => G_APP_NAME,
14001:
14002: If nvl(l_k_source,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' then
14003: If l_rbk_ast_change_yn = 'Y' then
14004: --raise error : can not add new asset on a rebook
14005: OKL_API.set_message(
14006: p_app_name => G_APP_NAME,
14007: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
14008: x_return_status := OKC_API.G_RET_STS_ERROR;
14009: RAISE OKL_API.G_EXCEPTION_ERROR;
14005: OKL_API.set_message(
14006: p_app_name => G_APP_NAME,
14007: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
14008: x_return_status := OKC_API.G_RET_STS_ERROR;
14009: RAISE OKL_API.G_EXCEPTION_ERROR;
14010: ElsIf l_rbk_ast_change_yn = 'N' then
14011: x_cle_id := p_clev_fin_id;
14012:
14013: End If;
14014: Else
14015: --------------------
14016: --End : Bug# 3783518
14017: --------------------
14018: If nvl(p_asset_id,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
14019: x_cle_id := p_clev_fin_id;
14020: Else
14021: open l_cim_fa_csr(p_fin_asst_id => p_clev_fin_id);
14022: Fetch l_cim_fa_csr into l_asset_id, l_chr_id;
14021: open l_cim_fa_csr(p_fin_asst_id => p_clev_fin_id);
14022: Fetch l_cim_fa_csr into l_asset_id, l_chr_id;
14023: If l_cim_fa_csr%NOTFOUND then
14024: --raise error : invalid line information
14025: OKL_API.set_message(p_app_name => G_APP_NAME,
14026: p_msg_name => 'OKL_LLA_LINE_RECORD');
14027: RAISE Okc_Api.G_EXCEPTION_ERROR;
14028: End If;
14029: close l_cim_fa_csr;
14026: p_msg_name => 'OKL_LLA_LINE_RECORD');
14027: RAISE Okc_Api.G_EXCEPTION_ERROR;
14028: End If;
14029: close l_cim_fa_csr;
14030: If nvl(p_asset_id,OKL_API.G_MISS_CHAR) = nvl(l_asset_id,OKL_API.G_MISS_CHAR) then
14031: x_cle_id := p_clev_fin_id;
14032: Else
14033:
14034: --Create new release asset line
14041: p_asset_id => p_asset_id,
14042: p_chr_id => l_chr_id,
14043: x_cle_id => x_cle_id);
14044:
14045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14048: RAISE OKL_API.G_EXCEPTION_ERROR;
14049: END IF;
14042: p_chr_id => l_chr_id,
14043: x_cle_id => x_cle_id);
14044:
14045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14048: RAISE OKL_API.G_EXCEPTION_ERROR;
14049: END IF;
14050:
14043: x_cle_id => x_cle_id);
14044:
14045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14048: RAISE OKL_API.G_EXCEPTION_ERROR;
14049: END IF;
14050:
14051: --Copy rules, party roles, supplier invoice details
14044:
14045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14046: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14048: RAISE OKL_API.G_EXCEPTION_ERROR;
14049: END IF;
14050:
14051: --Copy rules, party roles, supplier invoice details
14052: Open l_lines_csr(p_from_cle_id => x_cle_id);
14061: x_msg_data => x_msg_data,
14062: p_cle_id => l_lines_rec.id,
14063: p_orig_cle_id => l_lines_rec.orig_system_id1,
14064: p_chr_id => l_chr_id);
14065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14068: RAISE OKL_API.G_EXCEPTION_ERROR;
14069: END IF;
14062: p_cle_id => l_lines_rec.id,
14063: p_orig_cle_id => l_lines_rec.orig_system_id1,
14064: p_chr_id => l_chr_id);
14065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14068: RAISE OKL_API.G_EXCEPTION_ERROR;
14069: END IF;
14070: End Loop;
14063: p_orig_cle_id => l_lines_rec.orig_system_id1,
14064: p_chr_id => l_chr_id);
14065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14068: RAISE OKL_API.G_EXCEPTION_ERROR;
14069: END IF;
14070: End Loop;
14071: Close l_lines_csr;
14064: p_chr_id => l_chr_id);
14065: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14067: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14068: RAISE OKL_API.G_EXCEPTION_ERROR;
14069: END IF;
14070: End Loop;
14071: Close l_lines_csr;
14072:
14080: x_msg_data => x_msg_data,
14081: p_line_id => p_clev_fin_id
14082: );
14083:
14084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14087: RAISE OKL_API.G_EXCEPTION_ERROR;
14088: END IF;
14081: p_line_id => p_clev_fin_id
14082: );
14083:
14084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14087: RAISE OKL_API.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14082: );
14083:
14084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14087: RAISE OKL_API.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14090:
14083:
14084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14087: RAISE OKL_API.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14090:
14091: End If;
14090:
14091: End If;
14092: End If; --Bug# 3783518
14093: End If;
14094: OKL_API.END_ACTIVITY (x_msg_count,
14095: x_msg_data );
14096: EXCEPTION
14097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14093: End If;
14094: OKL_API.END_ACTIVITY (x_msg_count,
14095: x_msg_data );
14096: EXCEPTION
14097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14099: l_api_name,
14100: G_PKG_NAME,
14101: 'OKL_API.G_RET_STS_ERROR',
14094: OKL_API.END_ACTIVITY (x_msg_count,
14095: x_msg_data );
14096: EXCEPTION
14097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14099: l_api_name,
14100: G_PKG_NAME,
14101: 'OKL_API.G_RET_STS_ERROR',
14102: x_msg_count,
14097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14099: l_api_name,
14100: G_PKG_NAME,
14101: 'OKL_API.G_RET_STS_ERROR',
14102: x_msg_count,
14103: x_msg_data,
14104: '_PVT');
14105: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14101: 'OKL_API.G_RET_STS_ERROR',
14102: x_msg_count,
14103: x_msg_data,
14104: '_PVT');
14105: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14106: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14107: l_api_name,
14108: G_PKG_NAME,
14109: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14102: x_msg_count,
14103: x_msg_data,
14104: '_PVT');
14105: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14106: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14107: l_api_name,
14108: G_PKG_NAME,
14109: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14110: x_msg_count,
14105: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14106: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14107: l_api_name,
14108: G_PKG_NAME,
14109: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14110: x_msg_count,
14111: x_msg_data,
14112: '_PVT');
14113: WHEN OTHERS THEN
14110: x_msg_count,
14111: x_msg_data,
14112: '_PVT');
14113: WHEN OTHERS THEN
14114: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14115: l_api_name,
14116: G_PKG_NAME,
14117: 'OTHERS',
14118: x_msg_count,
14139: p_call_mode IN Varchar2,
14140: x_clev_fin_rec OUT NOCOPY clev_rec_type,
14141: x_klev_fin_rec OUT NOCOPY klev_rec_type) IS
14142:
14143: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
14144: l_api_name CONSTANT VARCHAR2(30) := 'RESOLVE_RESIDUL';
14145: l_api_version CONSTANT NUMBER := 1.0;
14146:
14147:
14173: l_exp_cost_rec l_exp_cost_csr%ROWTYPE;
14174:
14175: Begin
14176:
14177: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14178: -- Call start_activity to create savepoint, check compatibility
14179: -- and initialize message list
14180: x_return_status := Okl_Api.START_ACTIVITY(
14181: p_api_name => l_api_name,
14176:
14177: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14178: -- Call start_activity to create savepoint, check compatibility
14179: -- and initialize message list
14180: x_return_status := Okl_Api.START_ACTIVITY(
14181: p_api_name => l_api_name,
14182: p_pkg_name => g_pkg_name,
14183: p_init_msg_list => p_init_msg_list,
14184: l_api_version => l_api_version,
14187: x_return_status => x_return_status);
14188: -- Check if activity started successfully
14189: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14190: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14191: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14192: RAISE Okc_Api.G_EXCEPTION_ERROR;
14193: END IF;
14194:
14195: --Bug# 4631549
14192: RAISE Okc_Api.G_EXCEPTION_ERROR;
14193: END IF;
14194:
14195: --Bug# 4631549
14196: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14197: open l_exp_cost_csr (p_kle_id => p_clev_fin_rec.id);
14198: fetch l_exp_cost_csr into l_exp_cost_rec;
14199: close l_exp_cost_csr;
14200: end if;
14203: p_chr_id => p_clev_fin_rec.dnz_chr_id);
14204: Fetch l_modelline_csr into l_model_line_id;
14205: If l_modelline_csr%NOTFOUND then
14206: --raise errorr: invliad line information
14207: OKL_API.set_message(p_app_name => G_APP_NAME,
14208: p_msg_name => 'OKL_LLA_LINE_RECORD');
14209: RAISE Okc_Api.G_EXCEPTION_ERROR;
14210: End If;
14211: Close l_modelline_csr;
14210: End If;
14211: Close l_modelline_csr;
14212:
14213: IF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14214: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14215: (p_klev_fin_rec.residual_value IS NOT NULL OR
14216: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14217:
14218: l_top_line_id := p_clev_fin_rec.id;
14212:
14213: IF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14214: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14215: (p_klev_fin_rec.residual_value IS NOT NULL OR
14216: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14217:
14218: l_top_line_id := p_clev_fin_rec.id;
14219: --Bug# 4631549
14220: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14216: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14217:
14218: l_top_line_id := p_clev_fin_rec.id;
14219: --Bug# 4631549
14220: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14221: l_oec := l_exp_cost_rec.expected_asset_cost;
14222: else
14223: l_oec := p_klev_fin_rec.oec;
14224: end if;
14236: p_top_line_id => l_top_line_id,
14237: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14238: x_fin_clev_rec => x_clev_fin_rec,
14239: x_fin_klev_rec => x_klev_fin_rec,
14240: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14241:
14242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14238: x_fin_clev_rec => x_clev_fin_rec,
14239: x_fin_klev_rec => x_klev_fin_rec,
14240: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14241:
14242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14245: RAISE OKL_API.G_EXCEPTION_ERROR;
14246: END IF;
14239: x_fin_klev_rec => x_klev_fin_rec,
14240: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14241:
14242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14245: RAISE OKL_API.G_EXCEPTION_ERROR;
14246: END IF;
14247:
14240: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14241:
14242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14245: RAISE OKL_API.G_EXCEPTION_ERROR;
14246: END IF;
14247:
14248: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
14241:
14242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14245: RAISE OKL_API.G_EXCEPTION_ERROR;
14246: END IF;
14247:
14248: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
14249: p_init_msg_list => p_init_msg_list,
14257: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14258: x_fin_clev_rec => x_clev_fin_rec,
14259: x_fin_klev_rec => x_klev_fin_rec,
14260: x_res_value => lx_residual_value,
14261: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14262:
14263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14259: x_fin_klev_rec => x_klev_fin_rec,
14260: x_res_value => lx_residual_value,
14261: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14262:
14263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14266: RAISE OKL_API.G_EXCEPTION_ERROR;
14267: END IF;
14260: x_res_value => lx_residual_value,
14261: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14262:
14263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14266: RAISE OKL_API.G_EXCEPTION_ERROR;
14267: END IF;
14268:
14261: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14262:
14263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14266: RAISE OKL_API.G_EXCEPTION_ERROR;
14267: END IF;
14268:
14269: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14262:
14263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14266: RAISE OKL_API.G_EXCEPTION_ERROR;
14267: END IF;
14268:
14269: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14270: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14266: RAISE OKL_API.G_EXCEPTION_ERROR;
14267: END IF;
14268:
14269: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14270: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14271: (p_klev_fin_rec.residual_value IS NOT NULL OR
14272: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14273:
14274: l_top_line_id := p_clev_fin_rec.id;
14268:
14269: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14270: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14271: (p_klev_fin_rec.residual_value IS NOT NULL OR
14272: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14273:
14274: l_top_line_id := p_clev_fin_rec.id;
14275: --Bug# 4631549
14276: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14272: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14273:
14274: l_top_line_id := p_clev_fin_rec.id;
14275: --Bug# 4631549
14276: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14277: l_oec := l_exp_cost_rec.expected_asset_cost;
14278: else
14279: l_oec := p_klev_fin_rec.oec;
14280: end if;
14293: p_top_line_id => l_top_line_id,
14294: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14295: x_fin_clev_rec => x_clev_fin_rec,
14296: x_fin_klev_rec => x_klev_fin_rec,
14297: p_validate_fin_line => OKL_API.G_TRUE);
14298:
14299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14295: x_fin_clev_rec => x_clev_fin_rec,
14296: x_fin_klev_rec => x_klev_fin_rec,
14297: p_validate_fin_line => OKL_API.G_TRUE);
14298:
14299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14302: RAISE OKL_API.G_EXCEPTION_ERROR;
14303: END IF;
14296: x_fin_klev_rec => x_klev_fin_rec,
14297: p_validate_fin_line => OKL_API.G_TRUE);
14298:
14299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14302: RAISE OKL_API.G_EXCEPTION_ERROR;
14303: END IF;
14304:
14297: p_validate_fin_line => OKL_API.G_TRUE);
14298:
14299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14302: RAISE OKL_API.G_EXCEPTION_ERROR;
14303: END IF;
14304:
14305: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14298:
14299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14302: RAISE OKL_API.G_EXCEPTION_ERROR;
14303: END IF;
14304:
14305: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14306: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14302: RAISE OKL_API.G_EXCEPTION_ERROR;
14303: END IF;
14304:
14305: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14306: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14307: (p_klev_fin_rec.residual_value IS NULL OR
14308: p_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
14309:
14310: --Bug# 4631549
14304:
14305: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14306: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14307: (p_klev_fin_rec.residual_value IS NULL OR
14308: p_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
14309:
14310: --Bug# 4631549
14311: l_top_line_id := p_clev_fin_rec.id;
14312:
14322: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14323: x_fin_clev_rec => x_clev_fin_rec,
14324: x_fin_klev_rec => x_klev_fin_rec,
14325: x_res_value => lx_residual_value,
14326: p_validate_fin_line => OKL_API.G_TRUE);
14327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14323: x_fin_clev_rec => x_clev_fin_rec,
14324: x_fin_klev_rec => x_klev_fin_rec,
14325: x_res_value => lx_residual_value,
14326: p_validate_fin_line => OKL_API.G_TRUE);
14327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14331: END IF;
14324: x_fin_klev_rec => x_klev_fin_rec,
14325: x_res_value => lx_residual_value,
14326: p_validate_fin_line => OKL_API.G_TRUE);
14327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14331: END IF;
14332: END IF;
14325: x_res_value => lx_residual_value,
14326: p_validate_fin_line => OKL_API.G_TRUE);
14327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14331: END IF;
14332: END IF;
14333:
14326: p_validate_fin_line => OKL_API.G_TRUE);
14327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14328: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14331: END IF;
14332: END IF;
14333:
14334: OKL_API.END_ACTIVITY (x_msg_count,
14330: RAISE OKL_API.G_EXCEPTION_ERROR;
14331: END IF;
14332: END IF;
14333:
14334: OKL_API.END_ACTIVITY (x_msg_count,
14335: x_msg_data );
14336: EXCEPTION
14337: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14333:
14334: OKL_API.END_ACTIVITY (x_msg_count,
14335: x_msg_data );
14336: EXCEPTION
14337: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14339: l_api_name,
14340: G_PKG_NAME,
14341: 'OKL_API.G_RET_STS_ERROR',
14334: OKL_API.END_ACTIVITY (x_msg_count,
14335: x_msg_data );
14336: EXCEPTION
14337: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14339: l_api_name,
14340: G_PKG_NAME,
14341: 'OKL_API.G_RET_STS_ERROR',
14342: x_msg_count,
14337: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14338: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14339: l_api_name,
14340: G_PKG_NAME,
14341: 'OKL_API.G_RET_STS_ERROR',
14342: x_msg_count,
14343: x_msg_data,
14344: '_PVT');
14345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14341: 'OKL_API.G_RET_STS_ERROR',
14342: x_msg_count,
14343: x_msg_data,
14344: '_PVT');
14345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14346: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14347: l_api_name,
14348: G_PKG_NAME,
14349: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14342: x_msg_count,
14343: x_msg_data,
14344: '_PVT');
14345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14346: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14347: l_api_name,
14348: G_PKG_NAME,
14349: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14350: x_msg_count,
14345: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14346: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14347: l_api_name,
14348: G_PKG_NAME,
14349: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14350: x_msg_count,
14351: x_msg_data,
14352: '_PVT');
14353: WHEN OTHERS THEN
14350: x_msg_count,
14351: x_msg_data,
14352: '_PVT');
14353: WHEN OTHERS THEN
14354: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14355: l_api_name,
14356: G_PKG_NAME,
14357: 'OTHERS',
14358: x_msg_count,
14395: ) IS
14396:
14397:
14398:
14399: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
14400: l_api_name CONSTANT VARCHAR2(30) := 'MODIFY_RELEASE_ASSET';
14401: l_api_version CONSTANT NUMBER := 1.0;
14402:
14403: --cursor to get fixed asset details
14548: --akrangan Bug# 5362977 end
14549:
14550: BEGIN
14551:
14552: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14553: -- Call start_activity to create savepoint, check compatibility
14554: -- and initialize message list
14555: x_return_status := Okl_Api.START_ACTIVITY(
14556: p_api_name => l_api_name,
14551:
14552: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14553: -- Call start_activity to create savepoint, check compatibility
14554: -- and initialize message list
14555: x_return_status := Okl_Api.START_ACTIVITY(
14556: p_api_name => l_api_name,
14557: p_pkg_name => g_pkg_name,
14558: p_init_msg_list => p_init_msg_list,
14559: l_api_version => l_api_version,
14562: x_return_status => x_return_status);
14563: -- Check if activity started successfully
14564: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14565: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14566: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14567: RAISE Okc_Api.G_EXCEPTION_ERROR;
14568: END IF;
14569: -- akrangan Bug# 5362977 start
14570: l_rbk_khr := '?';
14583: l_klev_fin_rec.RESIDUAL_GRNTY_AMOUNT := p_klev_fin_rec.RESIDUAL_GRNTY_AMOUNT;
14584:
14585: l_klev_fin_rec.RESIDUAL_CODE := p_klev_fin_rec.RESIDUAL_CODE;
14586:
14587: If nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14588: nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14589: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14590: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14591: End If;
14584:
14585: l_klev_fin_rec.RESIDUAL_CODE := p_klev_fin_rec.RESIDUAL_CODE;
14586:
14587: If nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14588: nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14589: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14590: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14591: End If;
14592:
14589: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14590: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14591: End If;
14592:
14593: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14594: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
14595: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14596: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14597: End If;
14590: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14591: End If;
14592:
14593: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14594: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
14595: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14596: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14597: End If;
14598:
14595: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14596: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14597: End If;
14598:
14599: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM and
14600: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14601: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14602: l_klev_fin_rec.RESIDUAL_PERCENTAGE := NULL;
14603: End If;
14596: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14597: End If;
14598:
14599: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM and
14600: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14601: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14602: l_klev_fin_rec.RESIDUAL_PERCENTAGE := NULL;
14603: End If;
14604:
14646: x_klev_tbl => lx_klev_price_tbl);
14647:
14648: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14649: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14650: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14651: RAISE Okc_Api.G_EXCEPTION_ERROR;
14652: END IF;
14653:
14654: --Bug# 4631549
14651: RAISE Okc_Api.G_EXCEPTION_ERROR;
14652: END IF;
14653:
14654: --Bug# 4631549
14655: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_ASSET' then
14656: --Calculate oec
14657: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14658: p_init_msg_list => p_init_msg_list,
14659: x_return_status => x_return_status,
14662: p_formula_name => G_FORMULA_OEC,
14663: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14664: p_line_id => p_cle_id,
14665: x_value => l_klev_fin_rec.oec);
14666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14667: OKL_API.set_message(p_app_name => G_APP_NAME,
14668: p_msg_name => G_CALC_AMOUNT,
14669: p_token1 => G_AMT_TOKEN,
14670: p_token1_value => 'OEC');
14663: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14664: p_line_id => p_cle_id,
14665: x_value => l_klev_fin_rec.oec);
14666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14667: OKL_API.set_message(p_app_name => G_APP_NAME,
14668: p_msg_name => G_CALC_AMOUNT,
14669: p_token1 => G_AMT_TOKEN,
14670: p_token1_value => 'OEC');
14671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14667: OKL_API.set_message(p_app_name => G_APP_NAME,
14668: p_msg_name => G_CALC_AMOUNT,
14669: p_token1 => G_AMT_TOKEN,
14670: p_token1_value => 'OEC');
14671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14673: OKL_API.set_message(p_app_name => G_APP_NAME,
14674: p_msg_name => G_CALC_AMOUNT,
14675: p_token1 => G_AMT_TOKEN,
14668: p_msg_name => G_CALC_AMOUNT,
14669: p_token1 => G_AMT_TOKEN,
14670: p_token1_value => 'OEC');
14671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14673: OKL_API.set_message(p_app_name => G_APP_NAME,
14674: p_msg_name => G_CALC_AMOUNT,
14675: p_token1 => G_AMT_TOKEN,
14676: p_token1_value => 'OEC');
14669: p_token1 => G_AMT_TOKEN,
14670: p_token1_value => 'OEC');
14671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14673: OKL_API.set_message(p_app_name => G_APP_NAME,
14674: p_msg_name => G_CALC_AMOUNT,
14675: p_token1 => G_AMT_TOKEN,
14676: p_token1_value => 'OEC');
14677: RAISE OKL_API.G_EXCEPTION_ERROR;
14673: OKL_API.set_message(p_app_name => G_APP_NAME,
14674: p_msg_name => G_CALC_AMOUNT,
14675: p_token1 => G_AMT_TOKEN,
14676: p_token1_value => 'OEC');
14677: RAISE OKL_API.G_EXCEPTION_ERROR;
14678: END IF;
14679: End If;
14680: END IF;
14681: --END BUG: NBV
14703: x_klev_rec => l_rel_ast_klev_fin_rec);
14704:
14705: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14706: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14707: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14708: RAISE Okc_Api.G_EXCEPTION_ERROR;
14709: END IF;
14710: --Bug#5601721 -- end
14711:
14709: END IF;
14710: --Bug#5601721 -- end
14711:
14712: --Bug# 4631549
14713: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_ASSET' then
14714: --calculate capital_amount
14715: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14716: p_init_msg_list => p_init_msg_list,
14717: x_return_status => x_return_status,
14720: p_formula_name => G_FORMULA_CAP,
14721: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14722: p_line_id => p_cle_id,
14723: x_value => l_klev_fin_rec.capital_amount);
14724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14725: OKL_API.set_message(p_app_name => G_APP_NAME,
14726: p_msg_name => G_CALC_AMOUNT,
14727: p_token1 => G_AMT_TOKEN,
14728: p_token1_value => 'Capital Amount');
14721: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14722: p_line_id => p_cle_id,
14723: x_value => l_klev_fin_rec.capital_amount);
14724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14725: OKL_API.set_message(p_app_name => G_APP_NAME,
14726: p_msg_name => G_CALC_AMOUNT,
14727: p_token1 => G_AMT_TOKEN,
14728: p_token1_value => 'Capital Amount');
14729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14725: OKL_API.set_message(p_app_name => G_APP_NAME,
14726: p_msg_name => G_CALC_AMOUNT,
14727: p_token1 => G_AMT_TOKEN,
14728: p_token1_value => 'Capital Amount');
14729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14731: OKL_API.set_message(p_app_name => G_APP_NAME,
14732: p_msg_name => G_CALC_AMOUNT,
14733: p_token1 => G_AMT_TOKEN,
14726: p_msg_name => G_CALC_AMOUNT,
14727: p_token1 => G_AMT_TOKEN,
14728: p_token1_value => 'Capital Amount');
14729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14731: OKL_API.set_message(p_app_name => G_APP_NAME,
14732: p_msg_name => G_CALC_AMOUNT,
14733: p_token1 => G_AMT_TOKEN,
14734: p_token1_value => 'Capital Amount');
14727: p_token1 => G_AMT_TOKEN,
14728: p_token1_value => 'Capital Amount');
14729: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14730: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14731: OKL_API.set_message(p_app_name => G_APP_NAME,
14732: p_msg_name => G_CALC_AMOUNT,
14733: p_token1 => G_AMT_TOKEN,
14734: p_token1_value => 'Capital Amount');
14735: RAISE OKL_API.G_EXCEPTION_ERROR;
14731: OKL_API.set_message(p_app_name => G_APP_NAME,
14732: p_msg_name => G_CALC_AMOUNT,
14733: p_token1 => G_AMT_TOKEN,
14734: p_token1_value => 'Capital Amount');
14735: RAISE OKL_API.G_EXCEPTION_ERROR;
14736: END IF;
14737: End If;
14738:
14739: -- akrangan bug 5362977 start
14751: x_klev_rec => l_rel_ast_klev_fin_rec);
14752:
14753: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14754: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14755: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14756: RAISE Okc_Api.G_EXCEPTION_ERROR;
14757: END IF;
14758: -- akrangan Bug# 5362977 start
14759: IF l_rbk_khr = '!' THEN
14774: x_klev_rec => lx_klev_fa_rec);
14775:
14776: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14777: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14778: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14779: RAISE Okc_Api.G_EXCEPTION_ERROR;
14780: END IF;
14781:
14782: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14781:
14782: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14783: p_clev_fin_rec.dnz_chr_id,
14784: l_cimv_model_rec);
14785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14786: OKL_API.set_message(p_app_name => G_APP_NAME,
14787: p_msg_name => G_FETCHING_INFO,
14788: p_token1 => G_REC_NAME_TOKEN,
14789: p_token1_value => 'OKC_K_ITEMS_V Record');
14782: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14783: p_clev_fin_rec.dnz_chr_id,
14784: l_cimv_model_rec);
14785: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14786: OKL_API.set_message(p_app_name => G_APP_NAME,
14787: p_msg_name => G_FETCHING_INFO,
14788: p_token1 => G_REC_NAME_TOKEN,
14789: p_token1_value => 'OKC_K_ITEMS_V Record');
14790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14786: OKL_API.set_message(p_app_name => G_APP_NAME,
14787: p_msg_name => G_FETCHING_INFO,
14788: p_token1 => G_REC_NAME_TOKEN,
14789: p_token1_value => 'OKC_K_ITEMS_V Record');
14790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14792: OKL_API.set_message(p_app_name => G_APP_NAME,
14793: p_msg_name => G_FETCHING_INFO,
14794: p_token1 => G_REC_NAME_TOKEN,
14787: p_msg_name => G_FETCHING_INFO,
14788: p_token1 => G_REC_NAME_TOKEN,
14789: p_token1_value => 'OKC_K_ITEMS_V Record');
14790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14792: OKL_API.set_message(p_app_name => G_APP_NAME,
14793: p_msg_name => G_FETCHING_INFO,
14794: p_token1 => G_REC_NAME_TOKEN,
14795: p_token1_value => 'OKC_K_ITEMS_V Record');
14788: p_token1 => G_REC_NAME_TOKEN,
14789: p_token1_value => 'OKC_K_ITEMS_V Record');
14790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14792: OKL_API.set_message(p_app_name => G_APP_NAME,
14793: p_msg_name => G_FETCHING_INFO,
14794: p_token1 => G_REC_NAME_TOKEN,
14795: p_token1_value => 'OKC_K_ITEMS_V Record');
14796: RAISE OKL_API.G_EXCEPTION_ERROR;
14792: OKL_API.set_message(p_app_name => G_APP_NAME,
14793: p_msg_name => G_FETCHING_INFO,
14794: p_token1 => G_REC_NAME_TOKEN,
14795: p_token1_value => 'OKC_K_ITEMS_V Record');
14796: RAISE OKL_API.G_EXCEPTION_ERROR;
14797: END IF;
14798:
14799: l_cimv_model_rec.object1_id1 := p_cimv_model_rec.object1_id1;
14800: l_cimv_model_rec.object1_id2 := p_cimv_model_rec.object1_id2;
14808: x_cimv_rec => x_cimv_model_rec);
14809:
14810: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14811: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14812: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14813: RAISE Okc_Api.G_EXCEPTION_ERROR;
14814: END IF;
14815:
14816: END IF;
14822: p_chr_id => p_clev_fin_rec.dnz_chr_id);
14823: fetch l_fa_csr into l_fa_rec;
14824: If l_fa_csr%NOTFOUND then
14825: --raise error:invalid line information
14826: OKL_API.set_message(p_app_name => G_APP_NAME,
14827: p_msg_name => 'OKL_LLA_LINE_RECORD');
14828: RAISE Okc_Api.G_EXCEPTION_ERROR;
14829: End If;
14830: close l_fa_csr;
14854: x_talv_rec => l_rel_ast_talv_rec);
14855:
14856: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14857: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14858: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14859: RAISE Okc_Api.G_EXCEPTION_ERROR;
14860: END IF;
14861:
14862: --3. update modifiable parameters on IB transaction line
14881: --therefor the if clause commented below is not required
14882: For j in p_itiv_ib_tbl.FIRST..p_itiv_ib_tbl.LAST
14883: Loop
14884: --If (l_itiv_ib_tbl(i).SERIAL_NUMBER = p_itiv_ib_tbl(j).SERIAL_NUMBER) OR
14885: --(nvl(l_itiv_ib_tbl(i).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR
14886: --and nvl(p_itiv_ib_tbl(j).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) then
14887: l_itiv_ib_tbl(i).OBJECT_ID1_OLD := l_itiv_ib_tbl(i).OBJECT_ID1_NEW;
14888: l_itiv_ib_tbl(i).OBJECT_ID2_OLD := l_itiv_ib_tbl(i).OBJECT_ID2_NEW;
14889: l_itiv_ib_tbl(i).OBJECT_ID1_NEW := p_itiv_ib_tbl(j).OBJECT_ID1_NEW;
14882: For j in p_itiv_ib_tbl.FIRST..p_itiv_ib_tbl.LAST
14883: Loop
14884: --If (l_itiv_ib_tbl(i).SERIAL_NUMBER = p_itiv_ib_tbl(j).SERIAL_NUMBER) OR
14885: --(nvl(l_itiv_ib_tbl(i).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR
14886: --and nvl(p_itiv_ib_tbl(j).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) then
14887: l_itiv_ib_tbl(i).OBJECT_ID1_OLD := l_itiv_ib_tbl(i).OBJECT_ID1_NEW;
14888: l_itiv_ib_tbl(i).OBJECT_ID2_OLD := l_itiv_ib_tbl(i).OBJECT_ID2_NEW;
14889: l_itiv_ib_tbl(i).OBJECT_ID1_NEW := p_itiv_ib_tbl(j).OBJECT_ID1_NEW;
14890: l_itiv_ib_tbl(i).OBJECT_ID2_NEW := p_itiv_ib_tbl(j).OBJECT_ID2_NEW;
14907: x_iipv_tbl => l_rel_ast_itiv_ib_tbl);
14908:
14909: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14910: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14911: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14912: RAISE Okc_Api.G_EXCEPTION_ERROR;
14913: END IF;
14914: End If;
14915:
14931: x_klev_fin_rec => x_klev_fin_rec);
14932:
14933: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14934: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14935: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14936: RAISE Okc_Api.G_EXCEPTION_ERROR;
14937: END IF;
14938:
14939: -------------------------------------------
14945: Fetch l_lines_csr into l_lines_rec;
14946: Exit when l_lines_csr%NOTFOUND;
14947: x_return_status := get_rec_clev(l_lines_rec.id,
14948: lx_clev_rec);
14949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14950: OKL_API.set_message(p_app_name => G_APP_NAME,
14951: p_msg_name => G_FETCHING_INFO,
14952: p_token1 => G_REC_NAME_TOKEN,
14953: p_token1_value => 'OKC_K_LINES_V Record');
14946: Exit when l_lines_csr%NOTFOUND;
14947: x_return_status := get_rec_clev(l_lines_rec.id,
14948: lx_clev_rec);
14949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14950: OKL_API.set_message(p_app_name => G_APP_NAME,
14951: p_msg_name => G_FETCHING_INFO,
14952: p_token1 => G_REC_NAME_TOKEN,
14953: p_token1_value => 'OKC_K_LINES_V Record');
14954: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14951: p_msg_name => G_FETCHING_INFO,
14952: p_token1 => G_REC_NAME_TOKEN,
14953: p_token1_value => 'OKC_K_LINES_V Record');
14954: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14956: OKL_API.set_message(p_app_name => G_APP_NAME,
14957: p_msg_name => G_FETCHING_INFO,
14958: p_token1 => G_REC_NAME_TOKEN,
14959: p_token1_value => 'OKC_K_LINES_V Record');
14952: p_token1 => G_REC_NAME_TOKEN,
14953: p_token1_value => 'OKC_K_LINES_V Record');
14954: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14956: OKL_API.set_message(p_app_name => G_APP_NAME,
14957: p_msg_name => G_FETCHING_INFO,
14958: p_token1 => G_REC_NAME_TOKEN,
14959: p_token1_value => 'OKC_K_LINES_V Record');
14960: RAISE Okc_Api.G_EXCEPTION_ERROR;
14960: RAISE Okc_Api.G_EXCEPTION_ERROR;
14961: END IF;
14962: x_return_status := get_rec_klev(l_lines_rec.id,
14963: lx_klev_rec);
14964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14965: OKL_API.set_message(p_app_name => G_APP_NAME,
14966: p_msg_name => G_FETCHING_INFO,
14967: p_token1 => G_REC_NAME_TOKEN,
14968: p_token1_value => 'OKL_K_LINES_V Record');
14961: END IF;
14962: x_return_status := get_rec_klev(l_lines_rec.id,
14963: lx_klev_rec);
14964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14965: OKL_API.set_message(p_app_name => G_APP_NAME,
14966: p_msg_name => G_FETCHING_INFO,
14967: p_token1 => G_REC_NAME_TOKEN,
14968: p_token1_value => 'OKL_K_LINES_V Record');
14969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14966: p_msg_name => G_FETCHING_INFO,
14967: p_token1 => G_REC_NAME_TOKEN,
14968: p_token1_value => 'OKL_K_LINES_V Record');
14969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14971: OKL_API.set_message(p_app_name => G_APP_NAME,
14972: p_msg_name => G_FETCHING_INFO,
14973: p_token1 => G_REC_NAME_TOKEN,
14974: p_token1_value => 'OKL_K_LINES_V Record');
14967: p_token1 => G_REC_NAME_TOKEN,
14968: p_token1_value => 'OKL_K_LINES_V Record');
14969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14971: OKL_API.set_message(p_app_name => G_APP_NAME,
14972: p_msg_name => G_FETCHING_INFO,
14973: p_token1 => G_REC_NAME_TOKEN,
14974: p_token1_value => 'OKL_K_LINES_V Record');
14975: RAISE Okc_Api.G_EXCEPTION_ERROR;
14994: Close l_lines_csr;
14995:
14996:
14997:
14998: OKL_API.END_ACTIVITY (x_msg_count,
14999: x_msg_data );
15000: EXCEPTION
15001: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14997:
14998: OKL_API.END_ACTIVITY (x_msg_count,
14999: x_msg_data );
15000: EXCEPTION
15001: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15003: l_api_name,
15004: G_PKG_NAME,
15005: 'OKL_API.G_RET_STS_ERROR',
14998: OKL_API.END_ACTIVITY (x_msg_count,
14999: x_msg_data );
15000: EXCEPTION
15001: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15003: l_api_name,
15004: G_PKG_NAME,
15005: 'OKL_API.G_RET_STS_ERROR',
15006: x_msg_count,
15001: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15003: l_api_name,
15004: G_PKG_NAME,
15005: 'OKL_API.G_RET_STS_ERROR',
15006: x_msg_count,
15007: x_msg_data,
15008: '_PVT');
15009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15005: 'OKL_API.G_RET_STS_ERROR',
15006: x_msg_count,
15007: x_msg_data,
15008: '_PVT');
15009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15011: l_api_name,
15012: G_PKG_NAME,
15013: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15006: x_msg_count,
15007: x_msg_data,
15008: '_PVT');
15009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15011: l_api_name,
15012: G_PKG_NAME,
15013: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15014: x_msg_count,
15009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15011: l_api_name,
15012: G_PKG_NAME,
15013: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15014: x_msg_count,
15015: x_msg_data,
15016: '_PVT');
15017: WHEN OTHERS THEN
15014: x_msg_count,
15015: x_msg_data,
15016: '_PVT');
15017: WHEN OTHERS THEN
15018: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15019: l_api_name,
15020: G_PKG_NAME,
15021: 'OTHERS',
15022: x_msg_count,
15198:
15199:
15200: BEGIN
15201:
15202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15203: -- Call start_activity to create savepoint, check compatibility
15204: -- and initialize message list
15205: x_return_status := OKL_API.START_ACTIVITY (
15206: l_api_name
15201:
15202: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15203: -- Call start_activity to create savepoint, check compatibility
15204: -- and initialize message list
15205: x_return_status := OKL_API.START_ACTIVITY (
15206: l_api_name
15207: ,p_init_msg_list
15208: ,'_PVT'
15209: ,x_return_status);
15207: ,p_init_msg_list
15208: ,'_PVT'
15209: ,x_return_status);
15210: -- Check if activity started successfully
15211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15214: RAISE OKL_API.G_EXCEPTION_ERROR;
15215: END IF;
15208: ,'_PVT'
15209: ,x_return_status);
15210: -- Check if activity started successfully
15211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15214: RAISE OKL_API.G_EXCEPTION_ERROR;
15215: END IF;
15216:
15209: ,x_return_status);
15210: -- Check if activity started successfully
15211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15214: RAISE OKL_API.G_EXCEPTION_ERROR;
15215: END IF;
15216:
15217:
15210: -- Check if activity started successfully
15211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15214: RAISE OKL_API.G_EXCEPTION_ERROR;
15215: END IF;
15216:
15217:
15218: l_clev_fin_rec := p_clev_fin_rec;
15224: l_itiv_inst_tbl := p_itiv_ib_tbl;
15225: l_itiv_ib_tbl := p_itiv_ib_tbl;
15226:
15227: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
15228: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
15229: OKL_API.set_message(p_app_name => G_APP_NAME,
15230: p_msg_name => G_REQUIRED_VALUE,
15231: p_token1 => G_COL_NAME_TOKEN,
15232: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15225: l_itiv_ib_tbl := p_itiv_ib_tbl;
15226:
15227: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
15228: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
15229: OKL_API.set_message(p_app_name => G_APP_NAME,
15230: p_msg_name => G_REQUIRED_VALUE,
15231: p_token1 => G_COL_NAME_TOKEN,
15232: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15233: RAISE OKL_API.G_EXCEPTION_ERROR;
15229: OKL_API.set_message(p_app_name => G_APP_NAME,
15230: p_msg_name => G_REQUIRED_VALUE,
15231: p_token1 => G_COL_NAME_TOKEN,
15232: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15233: RAISE OKL_API.G_EXCEPTION_ERROR;
15234: END IF;
15235: --start:| 14-May-2008 cklee Bug 6405415 |
15236: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15237: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15232: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15233: RAISE OKL_API.G_EXCEPTION_ERROR;
15234: END IF;
15235: --start:| 14-May-2008 cklee Bug 6405415 |
15236: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15237: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15238: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15239: OKL_API.set_message(p_app_name => G_APP_NAME,
15240: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15235: --start:| 14-May-2008 cklee Bug 6405415 |
15236: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15237: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15238: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15239: OKL_API.set_message(p_app_name => G_APP_NAME,
15240: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15241: RAISE OKL_API.G_EXCEPTION_ERROR;
15242: END IF;
15243: END IF;
15237: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15238: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15239: OKL_API.set_message(p_app_name => G_APP_NAME,
15240: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15241: RAISE OKL_API.G_EXCEPTION_ERROR;
15242: END IF;
15243: END IF;
15244: --end:| 14-May-2008 cklee Bug 6405415 |
15245:
15246: OPEN c_get_scs_code(p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15247: --Bug#4418339
15248: FETCH c_get_scs_code INTO lv_scs_code, l_orig_system_source_code;
15249: IF c_get_scs_code%NOTFOUND THEN
15250: OKL_API.set_message(p_app_name => G_APP_NAME,
15251: p_msg_name => G_NO_MATCHING_RECORD,
15252: p_token1 => G_COL_NAME_TOKEN,
15253: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
15254: RAISE G_EXCEPTION_HALT_VALIDATION;
15283: --ramurt Bug#4945190
15284: ln_chr_id := l_clev_fin_rec.dnz_chr_id;
15285: ln_cle_id := l_rel_ast_fin_cle_id;
15286:
15287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15290: RAISE OKL_API.G_EXCEPTION_ERROR;
15291: END IF;
15284: ln_chr_id := l_clev_fin_rec.dnz_chr_id;
15285: ln_cle_id := l_rel_ast_fin_cle_id;
15286:
15287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15290: RAISE OKL_API.G_EXCEPTION_ERROR;
15291: END IF;
15292:
15285: ln_cle_id := l_rel_ast_fin_cle_id;
15286:
15287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15290: RAISE OKL_API.G_EXCEPTION_ERROR;
15291: END IF;
15292:
15293: Modify_Release_Asset_Line(
15286:
15287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15290: RAISE OKL_API.G_EXCEPTION_ERROR;
15291: END IF;
15292:
15293: Modify_Release_Asset_Line(
15294: p_api_version => p_api_version,
15317: x_klev_fa_rec => l_rel_ast_klev_fa_rec,
15318: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
15319: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
15320:
15321: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15323: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15324: RAISE OKL_API.G_EXCEPTION_ERROR;
15325: END IF;
15318: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
15319: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
15320:
15321: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15323: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15324: RAISE OKL_API.G_EXCEPTION_ERROR;
15325: END IF;
15326:
15319: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
15320:
15321: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15323: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15324: RAISE OKL_API.G_EXCEPTION_ERROR;
15325: END IF;
15326:
15327: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
15320:
15321: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15322: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15323: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15324: RAISE OKL_API.G_EXCEPTION_ERROR;
15325: END IF;
15326:
15327: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
15328: x_clev_model_rec := l_rel_ast_clev_model_rec;
15339:
15340: -- Code is commneted as per Nagen mail on 01/23/2002 10.11am
15341: -- code is put in place as per Manish on 09/16/2002
15342: IF (p_asset_number IS NULL OR
15343: p_asset_number = OKL_API.G_MISS_CHAR) AND
15344: (lv_scs_code IS NOT NULL OR
15345: lv_scs_code <> OKL_API.G_MISS_CHAR) AND
15346: --Bug#4419339
15347: --(lv_scs_code = 'QUOTE') AND
15341: -- code is put in place as per Manish on 09/16/2002
15342: IF (p_asset_number IS NULL OR
15343: p_asset_number = OKL_API.G_MISS_CHAR) AND
15344: (lv_scs_code IS NOT NULL OR
15345: lv_scs_code <> OKL_API.G_MISS_CHAR) AND
15346: --Bug#4419339
15347: --(lv_scs_code = 'QUOTE') AND
15348: --Bug# 4721141 : changed AND to OR
15349: (lv_scs_code = 'QUOTE') OR
15350: --Bug# 5098124 : Added 'OKL_QUOTE'
15351: (l_orig_system_source_code = 'OKL_LEASE_APP') OR
15352: (l_orig_system_source_code = 'OKL_QUOTE') THEN
15353: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15355: OKL_API.set_message(p_app_name => G_APP_NAME,
15356: p_msg_name => G_GEN_ASSET_NUMBER);
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15351: (l_orig_system_source_code = 'OKL_LEASE_APP') OR
15352: (l_orig_system_source_code = 'OKL_QUOTE') THEN
15353: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15355: OKL_API.set_message(p_app_name => G_APP_NAME,
15356: p_msg_name => G_GEN_ASSET_NUMBER);
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15359: OKL_API.set_message(p_app_name => G_APP_NAME,
15353: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15355: OKL_API.set_message(p_app_name => G_APP_NAME,
15356: p_msg_name => G_GEN_ASSET_NUMBER);
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15359: OKL_API.set_message(p_app_name => G_APP_NAME,
15360: p_msg_name => G_GEN_ASSET_NUMBER);
15361: RAISE OKL_API.G_EXCEPTION_ERROR;
15354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15355: OKL_API.set_message(p_app_name => G_APP_NAME,
15356: p_msg_name => G_GEN_ASSET_NUMBER);
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15359: OKL_API.set_message(p_app_name => G_APP_NAME,
15360: p_msg_name => G_GEN_ASSET_NUMBER);
15361: RAISE OKL_API.G_EXCEPTION_ERROR;
15362: END IF;
15355: OKL_API.set_message(p_app_name => G_APP_NAME,
15356: p_msg_name => G_GEN_ASSET_NUMBER);
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15359: OKL_API.set_message(p_app_name => G_APP_NAME,
15360: p_msg_name => G_GEN_ASSET_NUMBER);
15361: RAISE OKL_API.G_EXCEPTION_ERROR;
15362: END IF;
15363: l_talv_fa_rec.asset_number := l_asset_number;
15357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15358: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15359: OKL_API.set_message(p_app_name => G_APP_NAME,
15360: p_msg_name => G_GEN_ASSET_NUMBER);
15361: RAISE OKL_API.G_EXCEPTION_ERROR;
15362: END IF;
15363: l_talv_fa_rec.asset_number := l_asset_number;
15364: ELSE
15365: --Bug# 4053845:
15381: p_ib_loc2 => l_itiv_ib_tbl(p).object_id2_new,
15382: p_fa_loc => l_talv_fa_rec.fa_location_id,
15383: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15384: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15386: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15388: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15389: END IF;
15382: p_fa_loc => l_talv_fa_rec.fa_location_id,
15383: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15384: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15386: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15388: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15389: END IF;
15390: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15383: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15384: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15386: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15388: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15389: END IF;
15390: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15391: p := l_itiv_ib_tbl.NEXT(p);
15384: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15386: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15387: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15388: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15389: END IF;
15390: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15391: p := l_itiv_ib_tbl.NEXT(p);
15392: END LOOP;
15390: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15391: p := l_itiv_ib_tbl.NEXT(p);
15392: END LOOP;
15393: END IF;
15394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15397: RAISE OKL_API.G_EXCEPTION_ERROR;
15398: END IF;
15391: p := l_itiv_ib_tbl.NEXT(p);
15392: END LOOP;
15393: END IF;
15394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15397: RAISE OKL_API.G_EXCEPTION_ERROR;
15398: END IF;
15399: IF P_new_yn = 'Y' THEN
15392: END LOOP;
15393: END IF;
15394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15397: RAISE OKL_API.G_EXCEPTION_ERROR;
15398: END IF;
15399: IF P_new_yn = 'Y' THEN
15400: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15393: END IF;
15394: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15397: RAISE OKL_API.G_EXCEPTION_ERROR;
15398: END IF;
15399: IF P_new_yn = 'Y' THEN
15400: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15401: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15399: IF P_new_yn = 'Y' THEN
15400: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15401: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15402: ELSIF p_new_yn = 'N' THEN
15403: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
15404: l_clev_model_rec.price_unit := null;
15405: END IF;
15406: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
15407: l_cimv_model_rec.number_of_items := null;
15402: ELSIF p_new_yn = 'N' THEN
15403: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
15404: l_clev_model_rec.price_unit := null;
15405: END IF;
15406: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
15407: l_cimv_model_rec.number_of_items := null;
15408: END IF;
15409: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15410: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15417: -- 4414408 Assign the line style id directly
15418: /*
15419: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15420: x_lse_id => l_clev_fin_rec.lse_id);
15421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15424: RAISE OKL_API.G_EXCEPTION_ERROR;
15425: END IF;
15418: /*
15419: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15420: x_lse_id => l_clev_fin_rec.lse_id);
15421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15424: RAISE OKL_API.G_EXCEPTION_ERROR;
15425: END IF;
15426: */
15419: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15420: x_lse_id => l_clev_fin_rec.lse_id);
15421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15424: RAISE OKL_API.G_EXCEPTION_ERROR;
15425: END IF;
15426: */
15427: l_clev_fin_rec.lse_id := G_FIN_LINE_LTY_ID;
15420: x_lse_id => l_clev_fin_rec.lse_id);
15421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15424: RAISE OKL_API.G_EXCEPTION_ERROR;
15425: END IF;
15426: */
15427: l_clev_fin_rec.lse_id := G_FIN_LINE_LTY_ID;
15428: l_clev_fin_rec.chr_id := l_clev_fin_rec.dnz_chr_id;
15432: l_clev_fin_rec.name := upper(l_clev_fin_rec.name);
15433: l_clev_fin_rec.item_description := l_talv_fa_rec.description;
15434: l_clev_fin_rec.exception_yn := 'N';
15435: IF (l_clev_fin_rec.display_sequence IS NUll OR
15436: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15437: l_clev_fin_rec.display_sequence := 1;
15438: END IF;
15439: -- To Check We Got the Valid info
15440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15437: l_clev_fin_rec.display_sequence := 1;
15438: END IF;
15439: -- To Check We Got the Valid info
15440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15441: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
15442: UPPER(p_new_yn) IS NULL) THEN
15443: OKL_API.set_message(p_app_name => G_APP_NAME,
15444: p_msg_name => G_INVALID_YN,
15445: p_token1 => G_COL_NAME_TOKEN,
15439: -- To Check We Got the Valid info
15440: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15441: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
15442: UPPER(p_new_yn) IS NULL) THEN
15443: OKL_API.set_message(p_app_name => G_APP_NAME,
15444: p_msg_name => G_INVALID_YN,
15445: p_token1 => G_COL_NAME_TOKEN,
15446: p_token1_value => 'p_new_yn');
15447: -- Halt Validation
15444: p_msg_name => G_INVALID_YN,
15445: p_token1 => G_COL_NAME_TOKEN,
15446: p_token1_value => 'p_new_yn');
15447: -- Halt Validation
15448: RAISE OKL_API.G_EXCEPTION_ERROR;
15449: END IF;
15450: -- 4414408 Validate the Asset Number
15451: -- Validate to see if the asset_number given is not null
15452: -- and also Validate asset_number does not exists
15455: validate_new_asset_number(x_return_status => x_return_status,
15456: p_asset_number => l_asset_number,
15457: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15458: -- Check if activity started successfully
15459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15462: RAISE OKL_API.G_EXCEPTION_ERROR;
15463: END IF;
15456: p_asset_number => l_asset_number,
15457: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15458: -- Check if activity started successfully
15459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15462: RAISE OKL_API.G_EXCEPTION_ERROR;
15463: END IF;
15464: ELSE
15457: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15458: -- Check if activity started successfully
15459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15462: RAISE OKL_API.G_EXCEPTION_ERROR;
15463: END IF;
15464: ELSE
15465: validate_new_asset_number(x_return_status => x_return_status,
15458: -- Check if activity started successfully
15459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15462: RAISE OKL_API.G_EXCEPTION_ERROR;
15463: END IF;
15464: ELSE
15465: validate_new_asset_number(x_return_status => x_return_status,
15466: p_asset_number => l_asset_number,
15465: validate_new_asset_number(x_return_status => x_return_status,
15466: p_asset_number => l_asset_number,
15467: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15468: -- Check if activity ended successfully
15469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_ERROR;
15473: END IF;
15466: p_asset_number => l_asset_number,
15467: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15468: -- Check if activity ended successfully
15469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_ERROR;
15473: END IF;
15474: END IF;
15467: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15468: -- Check if activity ended successfully
15469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_ERROR;
15473: END IF;
15474: END IF;
15475:
15468: -- Check if activity ended successfully
15469: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15471: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15472: RAISE OKL_API.G_EXCEPTION_ERROR;
15473: END IF;
15474: END IF;
15475:
15476: -- Creation of the Financial Asset Line
15484: p_clev_rec => l_clev_fin_rec,
15485: p_klev_rec => l_klev_fin_rec,
15486: x_clev_rec => x_clev_fin_rec,
15487: x_klev_rec => l_klev_fin_rec_out);
15488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15491: RAISE OKL_API.G_EXCEPTION_ERROR;
15492: END IF;
15485: p_klev_rec => l_klev_fin_rec,
15486: x_clev_rec => x_clev_fin_rec,
15487: x_klev_rec => l_klev_fin_rec_out);
15488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15491: RAISE OKL_API.G_EXCEPTION_ERROR;
15492: END IF;
15493:
15486: x_clev_rec => x_clev_fin_rec,
15487: x_klev_rec => l_klev_fin_rec_out);
15488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15491: RAISE OKL_API.G_EXCEPTION_ERROR;
15492: END IF;
15493:
15494: -- added by rravikir (Estimated property tax)
15487: x_klev_rec => l_klev_fin_rec_out);
15488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15491: RAISE OKL_API.G_EXCEPTION_ERROR;
15492: END IF;
15493:
15494: -- added by rravikir (Estimated property tax)
15495: ln_chr_id := x_clev_fin_rec.dnz_chr_id;
15501: -- 4414408 Assign the line style id directly
15502: /*
15503: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15504: x_lse_id => l_clev_model_rec.lse_id);
15505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15508: RAISE OKL_API.G_EXCEPTION_ERROR;
15509: END IF;
15502: /*
15503: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15504: x_lse_id => l_clev_model_rec.lse_id);
15505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15508: RAISE OKL_API.G_EXCEPTION_ERROR;
15509: END IF;
15510: */
15503: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15504: x_lse_id => l_clev_model_rec.lse_id);
15505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15508: RAISE OKL_API.G_EXCEPTION_ERROR;
15509: END IF;
15510: */
15511: IF (l_clev_model_rec.display_sequence IS NUll OR
15504: x_lse_id => l_clev_model_rec.lse_id);
15505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15508: RAISE OKL_API.G_EXCEPTION_ERROR;
15509: END IF;
15510: */
15511: IF (l_clev_model_rec.display_sequence IS NUll OR
15512: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15508: RAISE OKL_API.G_EXCEPTION_ERROR;
15509: END IF;
15510: */
15511: IF (l_clev_model_rec.display_sequence IS NUll OR
15512: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15513: l_clev_model_rec.display_sequence := x_clev_fin_rec.display_sequence + 1;
15514: END IF;
15515: l_clev_model_rec.lse_id := G_MODEL_LINE_LTY_ID;
15516: l_clev_model_rec.chr_id := null;
15534: p_cimv_rec => l_cimv_model_rec,
15535: x_clev_rec => x_clev_model_rec,
15536: x_klev_rec => l_klev_model_rec_out,
15537: x_cimv_rec => l_cimv_model_rec_out);
15538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15541: RAISE OKL_API.G_EXCEPTION_ERROR;
15542: END IF;
15535: x_clev_rec => x_clev_model_rec,
15536: x_klev_rec => l_klev_model_rec_out,
15537: x_cimv_rec => l_cimv_model_rec_out);
15538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15541: RAISE OKL_API.G_EXCEPTION_ERROR;
15542: END IF;
15543: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15536: x_klev_rec => l_klev_model_rec_out,
15537: x_cimv_rec => l_cimv_model_rec_out);
15538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15541: RAISE OKL_API.G_EXCEPTION_ERROR;
15542: END IF;
15543: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15544: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15537: x_cimv_rec => l_cimv_model_rec_out);
15538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15541: RAISE OKL_API.G_EXCEPTION_ERROR;
15542: END IF;
15543: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15544: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15545: p_init_msg_list => p_init_msg_list,
15553: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15554: x_fin_clev_rec => x_clev_fin_rec,
15555: x_fin_klev_rec => l_klev_fin_rec_out,
15556: x_oec => ln_klev_fin_oec,
15557: p_validate_fin_line => OKL_API.G_FALSE);
15558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15554: x_fin_clev_rec => x_clev_fin_rec,
15555: x_fin_klev_rec => l_klev_fin_rec_out,
15556: x_oec => ln_klev_fin_oec,
15557: p_validate_fin_line => OKL_API.G_FALSE);
15558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15562: END IF;
15555: x_fin_klev_rec => l_klev_fin_rec_out,
15556: x_oec => ln_klev_fin_oec,
15557: p_validate_fin_line => OKL_API.G_FALSE);
15558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15562: END IF;
15563: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15556: x_oec => ln_klev_fin_oec,
15557: p_validate_fin_line => OKL_API.G_FALSE);
15558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15562: END IF;
15563: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15564: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15557: p_validate_fin_line => OKL_API.G_FALSE);
15558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15562: END IF;
15563: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15564: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15565: p_init_msg_list => p_init_msg_list,
15573: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15574: x_fin_clev_rec => x_clev_fin_rec,
15575: x_fin_klev_rec => l_klev_fin_rec_out,
15576: x_cap_amt => ln_klev_fin_cap,
15577: p_validate_fin_line => OKL_API.G_FALSE);
15578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15574: x_fin_clev_rec => x_clev_fin_rec,
15575: x_fin_klev_rec => l_klev_fin_rec_out,
15576: x_cap_amt => ln_klev_fin_cap,
15577: p_validate_fin_line => OKL_API.G_FALSE);
15578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15582: END IF;
15575: x_fin_klev_rec => l_klev_fin_rec_out,
15576: x_cap_amt => ln_klev_fin_cap,
15577: p_validate_fin_line => OKL_API.G_FALSE);
15578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15582: END IF;
15583: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15576: x_cap_amt => ln_klev_fin_cap,
15577: p_validate_fin_line => OKL_API.G_FALSE);
15578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15582: END IF;
15583: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15584: -- We need to Back calculate the Residual Percentage if value not given
15577: p_validate_fin_line => OKL_API.G_FALSE);
15578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15582: END IF;
15583: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15584: -- We need to Back calculate the Residual Percentage if value not given
15585: -- or if given should be in sync with residual value
15583: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15584: -- We need to Back calculate the Residual Percentage if value not given
15585: -- or if given should be in sync with residual value
15586:
15587: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15588: l_klev_fin_rec_out.residual_percentage := null;
15589: END IF;
15590:
15591: IF l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM THEN
15587: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15588: l_klev_fin_rec_out.residual_percentage := null;
15589: END IF;
15590:
15591: IF l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM THEN
15592: l_klev_fin_rec_out.residual_value := null;
15593: END IF;
15594:
15595: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15592: l_klev_fin_rec_out.residual_value := null;
15593: END IF;
15594:
15595: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15596: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15597: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15598: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15599:
15600: l_top_line_id := x_clev_fin_rec.id;
15594:
15595: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15596: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15597: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15598: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15599:
15600: l_top_line_id := x_clev_fin_rec.id;
15601: l_oec := l_klev_fin_rec_out.oec;
15602: l_residual_value := l_klev_fin_rec_out.residual_value;
15613: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
15614: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15615: x_fin_clev_rec => x_clev_fin_rec,
15616: x_fin_klev_rec => l_klev_fin_rec_out,
15617: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15621: RAISE OKL_API.G_EXCEPTION_ERROR;
15614: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15615: x_fin_clev_rec => x_clev_fin_rec,
15616: x_fin_klev_rec => l_klev_fin_rec_out,
15617: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15621: RAISE OKL_API.G_EXCEPTION_ERROR;
15622: END IF;
15615: x_fin_clev_rec => x_clev_fin_rec,
15616: x_fin_klev_rec => l_klev_fin_rec_out,
15617: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15621: RAISE OKL_API.G_EXCEPTION_ERROR;
15622: END IF;
15623: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15616: x_fin_klev_rec => l_klev_fin_rec_out,
15617: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15621: RAISE OKL_API.G_EXCEPTION_ERROR;
15622: END IF;
15623: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15624: p_init_msg_list => p_init_msg_list,
15617: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15618: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15621: RAISE OKL_API.G_EXCEPTION_ERROR;
15622: END IF;
15623: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15624: p_init_msg_list => p_init_msg_list,
15625: x_return_status => x_return_status,
15632: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15633: x_fin_clev_rec => x_clev_fin_rec,
15634: x_fin_klev_rec => l_klev_fin_rec_out,
15635: x_res_value => ln_klev_fin_res,
15636: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15633: x_fin_clev_rec => x_clev_fin_rec,
15634: x_fin_klev_rec => l_klev_fin_rec_out,
15635: x_res_value => ln_klev_fin_res,
15636: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15641: END IF;
15634: x_fin_klev_rec => l_klev_fin_rec_out,
15635: x_res_value => ln_klev_fin_res,
15636: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15641: END IF;
15642: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15635: x_res_value => ln_klev_fin_res,
15636: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15641: END IF;
15642: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15643: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15636: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15641: END IF;
15642: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15643: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15644: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15640: RAISE OKL_API.G_EXCEPTION_ERROR;
15641: END IF;
15642: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15643: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15644: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15645: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15646:
15647: l_top_line_id := x_clev_fin_rec.id;
15641: END IF;
15642: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15643: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15644: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15645: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15646:
15647: l_top_line_id := x_clev_fin_rec.id;
15648: l_oec := l_klev_fin_rec_out.oec;
15649: l_residual_value := l_klev_fin_rec_out.residual_value;
15660: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
15661: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15662: x_fin_clev_rec => x_clev_fin_rec,
15663: x_fin_klev_rec => l_klev_fin_rec_out,
15664: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15661: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15662: x_fin_clev_rec => x_clev_fin_rec,
15663: x_fin_klev_rec => l_klev_fin_rec_out,
15664: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15669: END IF;
15662: x_fin_clev_rec => x_clev_fin_rec,
15663: x_fin_klev_rec => l_klev_fin_rec_out,
15664: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15669: END IF;
15670: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15663: x_fin_klev_rec => l_klev_fin_rec_out,
15664: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15669: END IF;
15670: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15671: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15664: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15669: END IF;
15670: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15671: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15672: (l_klev_fin_rec_out.residual_value IS NULL OR
15667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15668: RAISE OKL_API.G_EXCEPTION_ERROR;
15669: END IF;
15670: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15671: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15672: (l_klev_fin_rec_out.residual_value IS NULL OR
15673: l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM) THEN
15674: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15675: p_init_msg_list => p_init_msg_list,
15669: END IF;
15670: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15671: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15672: (l_klev_fin_rec_out.residual_value IS NULL OR
15673: l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM) THEN
15674: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15675: p_init_msg_list => p_init_msg_list,
15676: x_return_status => x_return_status,
15677: x_msg_count => x_msg_count,
15683: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15684: x_fin_clev_rec => x_clev_fin_rec,
15685: x_fin_klev_rec => l_klev_fin_rec_out,
15686: x_res_value => ln_klev_fin_res,
15687: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15684: x_fin_clev_rec => x_clev_fin_rec,
15685: x_fin_klev_rec => l_klev_fin_rec_out,
15686: x_res_value => ln_klev_fin_res,
15687: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: END IF;
15685: x_fin_klev_rec => l_klev_fin_rec_out,
15686: x_res_value => ln_klev_fin_res,
15687: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: END IF;
15693: END IF;
15686: x_res_value => ln_klev_fin_res,
15687: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: END IF;
15693: END IF;
15694: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15687: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: END IF;
15693: END IF;
15694: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15695: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15691: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: END IF;
15693: END IF;
15694: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15695: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15696: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15697: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15698: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15699: OKL_API.set_message(p_app_name => G_APP_NAME,
15693: END IF;
15694: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15695: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15696: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15697: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15698: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15699: OKL_API.set_message(p_app_name => G_APP_NAME,
15700: p_msg_name => G_SALVAGE_VALUE);
15701: RAISE OKL_API.G_EXCEPTION_ERROR;
15695: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15696: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15697: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15698: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15699: OKL_API.set_message(p_app_name => G_APP_NAME,
15700: p_msg_name => G_SALVAGE_VALUE);
15701: RAISE OKL_API.G_EXCEPTION_ERROR;
15702: END IF;
15703: END IF;
15697: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15698: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15699: OKL_API.set_message(p_app_name => G_APP_NAME,
15700: p_msg_name => G_SALVAGE_VALUE);
15701: RAISE OKL_API.G_EXCEPTION_ERROR;
15702: END IF;
15703: END IF;
15704: -- Required cle Line Information
15705: -- Creation of the Fixed Asset Line Process
15707: -- 4414408 Assign the line style ID directly
15708: /*
15709: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15710: x_lse_id => l_clev_fa_rec.lse_id);
15711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15714: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: END IF;
15708: /*
15709: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15710: x_lse_id => l_clev_fa_rec.lse_id);
15711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15714: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: END IF;
15716: */
15709: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15710: x_lse_id => l_clev_fa_rec.lse_id);
15711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15714: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: END IF;
15716: */
15717: IF (l_clev_fa_rec.display_sequence IS NUll OR
15710: x_lse_id => l_clev_fa_rec.lse_id);
15711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15714: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: END IF;
15716: */
15717: IF (l_clev_fa_rec.display_sequence IS NUll OR
15718: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15714: RAISE OKL_API.G_EXCEPTION_ERROR;
15715: END IF;
15716: */
15717: IF (l_clev_fa_rec.display_sequence IS NUll OR
15718: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15719: l_clev_fa_rec.display_sequence := x_clev_model_rec.display_sequence + 2;
15720: END IF;
15721: l_clev_fa_rec.lse_id := G_FA_LINE_LTY_ID;
15722: l_clev_fa_rec.chr_id := null;
15746: END IF;
15747: l_cimv_fa_rec.number_of_items := ln_cimv_model_no_items;
15748: -- Txl Asset Information
15749: IF (l_talv_fa_rec.asset_number IS NULL OR
15750: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
15751: l_talv_fa_rec.asset_number := l_asset_number;
15752: --bug# 4053845
15753: ELSE
15754: l_talv_fa_rec.asset_number := UPPER(l_talv_fa_rec.asset_number);
15755: END IF;
15756: IF P_new_yn= 'Y' THEN
15757: --fix for #3481999
15758: IF ( l_talv_fa_rec.depreciation_cost IS NULL OR
15759: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM ) THEN
15760: l_talv_fa_rec.depreciation_cost := l_klev_fin_rec_out.oec;
15761: END IF;
15762:
15763: l_talv_fa_rec.original_cost := l_klev_fin_rec_out.oec;
15768: --| start 29-Oct-2008 cklee Bug: 7492324 move code logic to |
15769: --| OKL_TXL_ASSETS_PVT.CREATE_TXL_ASSET_DEF |
15770:
15771: /*
15772: If nvl(l_talv_fa_rec.salvage_value,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM AND
15773: nvl(l_talv_fa_rec.percent_salvage_value, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
15774: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15775: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15776: loop
15769: --| OKL_TXL_ASSETS_PVT.CREATE_TXL_ASSET_DEF |
15770:
15771: /*
15772: If nvl(l_talv_fa_rec.salvage_value,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM AND
15773: nvl(l_talv_fa_rec.percent_salvage_value, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
15774: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15775: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15776: loop
15777: If l_deal_type_rec.deal_type = 'LOAN' then
15774: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15775: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15776: loop
15777: If l_deal_type_rec.deal_type = 'LOAN' then
15778: If nvl(l_deal_type_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
15779: for l_pdt_deal_rec in l_pdt_deal_csr(p_pdt_id => l_deal_type_rec.reporting_pdt_id)
15780: loop
15781: If l_pdt_deal_rec.deal_type = 'LEASEOP' then -- reporting pdt is operating lease
15782: l_talv_fa_rec.salvage_value := nvl(l_klev_fin_rec_out.residual_value,0);
15817: x_klev_rec => l_klev_fa_rec_out,
15818: x_cimv_rec => l_cimv_fa_rec_out,
15819: x_trxv_rec => l_trxv_fa_rec_out,
15820: x_talv_rec => l_talv_fa_rec_out);
15821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15824: RAISE OKL_API.G_EXCEPTION_ERROR;
15825: END IF;
15818: x_cimv_rec => l_cimv_fa_rec_out,
15819: x_trxv_rec => l_trxv_fa_rec_out,
15820: x_talv_rec => l_talv_fa_rec_out);
15821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15824: RAISE OKL_API.G_EXCEPTION_ERROR;
15825: END IF;
15826: IF p_new_yn = 'N' THEN
15819: x_trxv_rec => l_trxv_fa_rec_out,
15820: x_talv_rec => l_talv_fa_rec_out);
15821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15824: RAISE OKL_API.G_EXCEPTION_ERROR;
15825: END IF;
15826: IF p_new_yn = 'N' THEN
15827: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15820: x_talv_rec => l_talv_fa_rec_out);
15821: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15822: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15823: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15824: RAISE OKL_API.G_EXCEPTION_ERROR;
15825: END IF;
15826: IF p_new_yn = 'N' THEN
15827: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15828: r_itiv_ib_tbl(k).serial_number := r_ib_sno_asset.ib_serial_number;
15826: IF p_new_yn = 'N' THEN
15827: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15828: r_itiv_ib_tbl(k).serial_number := r_ib_sno_asset.ib_serial_number;
15829: IF r_ib_sno_asset.ib_serial_number IS NULL OR
15830: r_ib_sno_asset.ib_serial_number = OKL_API.G_MISS_CHAR THEN
15831: r_itiv_ib_tbl(k).mfg_serial_number_yn := 'N';
15832: ELSE
15833: r_itiv_ib_tbl(k).mfg_serial_number_yn := 'Y';
15834: END IF;
15850: -- We have intialize the J , since there could be any index integer
15851: j := l_itiv_ib_tbl.FIRST;
15852: LOOP
15853: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15854: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15855: x_return_status := OKL_API.G_RET_STS_ERROR;
15856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15857: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15858: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15851: j := l_itiv_ib_tbl.FIRST;
15852: LOOP
15853: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15854: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15855: x_return_status := OKL_API.G_RET_STS_ERROR;
15856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15857: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15858: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15859: OKL_API.set_message(p_app_name => G_APP_NAME,
15852: LOOP
15853: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15854: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15855: x_return_status := OKL_API.G_RET_STS_ERROR;
15856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15857: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15858: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15859: OKL_API.set_message(p_app_name => G_APP_NAME,
15860: p_msg_name => G_CNT_REC);
15855: x_return_status := OKL_API.G_RET_STS_ERROR;
15856: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15857: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15858: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15859: OKL_API.set_message(p_app_name => G_APP_NAME,
15860: p_msg_name => G_CNT_REC);
15861: RAISE OKL_API.G_EXCEPTION_ERROR;
15862: END IF;
15863: ln_dummy := ln_cimv_model_no_items;
15857: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15858: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15859: OKL_API.set_message(p_app_name => G_APP_NAME,
15860: p_msg_name => G_CNT_REC);
15861: RAISE OKL_API.G_EXCEPTION_ERROR;
15862: END IF;
15863: ln_dummy := ln_cimv_model_no_items;
15864: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'N' THEN
15865: ln_dummy := 1;
15867: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
15868: j := l_itiv_ib_tbl.NEXT(j);
15869: END LOOP;
15870: ELSE
15871: OKL_API.set_message(p_app_name => G_APP_NAME,
15872: p_msg_name => G_CNT_REC);
15873: RAISE OKL_API.G_EXCEPTION_ERROR;
15874: END IF;
15875: ELSIF p_new_yn = 'Y' THEN
15869: END LOOP;
15870: ELSE
15871: OKL_API.set_message(p_app_name => G_APP_NAME,
15872: p_msg_name => G_CNT_REC);
15873: RAISE OKL_API.G_EXCEPTION_ERROR;
15874: END IF;
15875: ELSIF p_new_yn = 'Y' THEN
15876: -- We have to make sure the count of the itiv_tbl
15877: -- should be equal to qty of items
15885:
15886: l_itiv_ib_tbl(j).dnz_cle_id := x_clev_fa_rec.cle_id; -- For importing Serial Item fix
15887:
15888: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15889: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15890: x_return_status := OKL_API.G_RET_STS_ERROR;
15891: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15892: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15893: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15886: l_itiv_ib_tbl(j).dnz_cle_id := x_clev_fa_rec.cle_id; -- For importing Serial Item fix
15887:
15888: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15889: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15890: x_return_status := OKL_API.G_RET_STS_ERROR;
15891: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15892: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15893: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15894: OKL_API.set_message(p_app_name => G_APP_NAME,
15887:
15888: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15889: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15890: x_return_status := OKL_API.G_RET_STS_ERROR;
15891: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15892: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15893: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15894: OKL_API.set_message(p_app_name => G_APP_NAME,
15895: p_msg_name => G_CNT_REC);
15890: x_return_status := OKL_API.G_RET_STS_ERROR;
15891: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15892: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15893: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15894: OKL_API.set_message(p_app_name => G_APP_NAME,
15895: p_msg_name => G_CNT_REC);
15896: RAISE OKL_API.G_EXCEPTION_ERROR;
15897: END IF;
15898: ln_dummy := ln_cimv_model_no_items;
15892: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15893: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15894: OKL_API.set_message(p_app_name => G_APP_NAME,
15895: p_msg_name => G_CNT_REC);
15896: RAISE OKL_API.G_EXCEPTION_ERROR;
15897: END IF;
15898: ln_dummy := ln_cimv_model_no_items;
15899: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'N' THEN
15900: ln_dummy := 1;
15902: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
15903: j := l_itiv_ib_tbl.NEXT(j);
15904: END LOOP;
15905: ELSE
15906: OKL_API.set_message(p_app_name => G_APP_NAME,
15907: p_msg_name => G_CNT_REC);
15908: RAISE OKL_API.G_EXCEPTION_ERROR;
15909: END IF;
15910: END IF;
15904: END LOOP;
15905: ELSE
15906: OKL_API.set_message(p_app_name => G_APP_NAME,
15907: p_msg_name => G_CNT_REC);
15908: RAISE OKL_API.G_EXCEPTION_ERROR;
15909: END IF;
15910: END IF;
15911: -- Since we have to create the instance
15912: -- Depending of the qty in l_cimv_model_rec.number_of_items
15913: -- we have use loop
15914: j := l_itiv_ib_tbl.FIRST;
15915: FOR i IN 1..ln_dummy LOOP
15916: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
15917: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
15918: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
15919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15915: FOR i IN 1..ln_dummy LOOP
15916: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
15917: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
15918: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
15919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15916: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
15917: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
15918: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
15919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15924: OKL_API.set_message(p_app_name => G_APP_NAME,
15918: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
15919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15924: OKL_API.set_message(p_app_name => G_APP_NAME,
15925: p_msg_name => G_GEN_INST_NUM_IB);
15926: RAISE OKL_API.G_EXCEPTION_ERROR;
15919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15924: OKL_API.set_message(p_app_name => G_APP_NAME,
15925: p_msg_name => G_GEN_INST_NUM_IB);
15926: RAISE OKL_API.G_EXCEPTION_ERROR;
15927: END IF;
15920: OKL_API.set_message(p_app_name => G_APP_NAME,
15921: p_msg_name => G_GEN_INST_NUM_IB);
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15924: OKL_API.set_message(p_app_name => G_APP_NAME,
15925: p_msg_name => G_GEN_INST_NUM_IB);
15926: RAISE OKL_API.G_EXCEPTION_ERROR;
15927: END IF;
15928: l_itiv_ib_tbl(j).instance_number_ib := l_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
15922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15924: OKL_API.set_message(p_app_name => G_APP_NAME,
15925: p_msg_name => G_GEN_INST_NUM_IB);
15926: RAISE OKL_API.G_EXCEPTION_ERROR;
15927: END IF;
15928: l_itiv_ib_tbl(j).instance_number_ib := l_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
15929: l_itiv_inst_tbl(j).instance_number_ib := l_itiv_ib_tbl(j).instance_number_ib;
15930: END IF;
15933: -- 4414408 Assign the line style ID directly
15934: /*
15935: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
15936: x_lse_id => l_clev_inst_rec.lse_id);
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15941: END IF;
15934: /*
15935: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
15936: x_lse_id => l_clev_inst_rec.lse_id);
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15941: END IF;
15942: */
15935: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
15936: x_lse_id => l_clev_inst_rec.lse_id);
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15941: END IF;
15942: */
15943: IF (l_clev_inst_rec.display_sequence IS NUll OR
15936: x_lse_id => l_clev_inst_rec.lse_id);
15937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15940: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15941: END IF;
15942: */
15943: IF (l_clev_inst_rec.display_sequence IS NUll OR
15944: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15940: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15941: END IF;
15942: */
15943: IF (l_clev_inst_rec.display_sequence IS NUll OR
15944: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15945: l_clev_inst_rec.display_sequence := x_clev_fa_rec.display_sequence + 3;
15946: END IF;
15947: -- Required cle Line Information
15948: l_clev_inst_rec.lse_id := G_INST_LINE_LTY_ID;
15961: p_itiv_rec => l_itiv_inst_tbl(j),
15962: x_clev_rec => l_clev_inst_rec_out,
15963: x_klev_rec => l_klev_inst_rec_out,
15964: x_itiv_rec => l_itiv_inst_tbl_out(j));
15965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15966: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15969: END IF;
15962: x_clev_rec => l_clev_inst_rec_out,
15963: x_klev_rec => l_klev_inst_rec_out,
15964: x_itiv_rec => l_itiv_inst_tbl_out(j));
15965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15966: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15969: END IF;
15970: -- Creation of the ib Line Process
15963: x_klev_rec => l_klev_inst_rec_out,
15964: x_itiv_rec => l_itiv_inst_tbl_out(j));
15965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15966: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15969: END IF;
15970: -- Creation of the ib Line Process
15971: -- Getting the Line style Info
15964: x_itiv_rec => l_itiv_inst_tbl_out(j));
15965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15966: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15969: END IF;
15970: -- Creation of the ib Line Process
15971: -- Getting the Line style Info
15972: -- 4414408 Assign the IB line style ID directly
15972: -- 4414408 Assign the IB line style ID directly
15973: /*
15974: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
15975: x_lse_id => l_clev_ib_rec.lse_id);
15976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15980: END IF;
15973: /*
15974: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
15975: x_lse_id => l_clev_ib_rec.lse_id);
15976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15980: END IF;
15981: */
15974: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
15975: x_lse_id => l_clev_ib_rec.lse_id);
15976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15980: END IF;
15981: */
15982: IF (l_clev_ib_rec.display_sequence IS NUll OR
15975: x_lse_id => l_clev_ib_rec.lse_id);
15976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15980: END IF;
15981: */
15982: IF (l_clev_ib_rec.display_sequence IS NUll OR
15983: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15980: END IF;
15981: */
15982: IF (l_clev_ib_rec.display_sequence IS NUll OR
15983: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15984: l_clev_ib_rec.display_sequence := l_clev_inst_rec_out.display_sequence + 4;
15985: END IF;
15986: -- Required cle Line Information
15987: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
15998: lv_object_id1_new := l_itiv_ib_tbl(j).object_id1_new;
15999: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
16000: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16001: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16005: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16006: END IF;
15999: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
16000: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16001: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16005: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16006: END IF;
16007: IF P_new_yn= 'Y' THEN
16000: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16001: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16005: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16006: END IF;
16007: IF P_new_yn= 'Y' THEN
16008: l_itiv_ib_tbl(j).tal_type := 'CFA';
16001: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16004: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16005: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16006: END IF;
16007: IF P_new_yn= 'Y' THEN
16008: l_itiv_ib_tbl(j).tal_type := 'CFA';
16009: ELSIF p_new_yn = 'N' THEN
16026: x_klev_rec => l_klev_ib_rec_out,
16027: x_cimv_rec => l_cimv_ib_rec_out,
16028: x_trxv_rec => l_trxv_ib_rec_out,
16029: x_itiv_rec => l_itiv_ib_tbl_out(j));
16030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16034: END IF;
16027: x_cimv_rec => l_cimv_ib_rec_out,
16028: x_trxv_rec => l_trxv_ib_rec_out,
16029: x_itiv_rec => l_itiv_ib_tbl_out(j));
16030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16034: END IF;
16035: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16028: x_trxv_rec => l_trxv_ib_rec_out,
16029: x_itiv_rec => l_itiv_ib_tbl_out(j));
16030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16034: END IF;
16035: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16036: j := l_itiv_inst_tbl.NEXT(j);
16029: x_itiv_rec => l_itiv_ib_tbl_out(j));
16030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16034: END IF;
16035: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16036: j := l_itiv_inst_tbl.NEXT(j);
16037: m := m + 1;
16035: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16036: j := l_itiv_inst_tbl.NEXT(j);
16037: m := m + 1;
16038: END LOOP;
16039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16041: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16042: RAISE OKL_API.G_EXCEPTION_ERROR;
16043: END IF;
16036: j := l_itiv_inst_tbl.NEXT(j);
16037: m := m + 1;
16038: END LOOP;
16039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16041: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16042: RAISE OKL_API.G_EXCEPTION_ERROR;
16043: END IF;
16044: END IF; --release asset --Bug# 3533936
16037: m := m + 1;
16038: END LOOP;
16039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16041: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16042: RAISE OKL_API.G_EXCEPTION_ERROR;
16043: END IF;
16044: END IF; --release asset --Bug# 3533936
16045:
16038: END LOOP;
16039: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16040: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16041: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16042: RAISE OKL_API.G_EXCEPTION_ERROR;
16043: END IF;
16044: END IF; --release asset --Bug# 3533936
16045:
16046: -- Added by rravikir (Estimated property tax) -- Bug 3947959
16054: x_msg_count => x_msg_count,
16055: x_msg_data => x_msg_data,
16056: p_chr_id => ln_chr_id,
16057: p_cle_id => ln_cle_id);
16058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16061: RAISE OKL_API.G_EXCEPTION_ERROR;
16062: END IF;
16055: x_msg_data => x_msg_data,
16056: p_chr_id => ln_chr_id,
16057: p_cle_id => ln_cle_id);
16058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16061: RAISE OKL_API.G_EXCEPTION_ERROR;
16062: END IF;
16063: --Bug#4658856 ramurt
16056: p_chr_id => ln_chr_id,
16057: p_cle_id => ln_cle_id);
16058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16061: RAISE OKL_API.G_EXCEPTION_ERROR;
16062: END IF;
16063: --Bug#4658856 ramurt
16064: OKL_LA_SALES_TAX_PVT.create_sales_tax_rules(
16057: p_cle_id => ln_cle_id);
16058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16061: RAISE OKL_API.G_EXCEPTION_ERROR;
16062: END IF;
16063: --Bug#4658856 ramurt
16064: OKL_LA_SALES_TAX_PVT.create_sales_tax_rules(
16065: p_api_version => p_api_version,
16069: x_msg_data => x_msg_data,
16070: p_chr_id => ln_chr_id,
16071: p_cle_id => ln_cle_id);
16072:
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16070: p_chr_id => ln_chr_id,
16071: p_cle_id => ln_cle_id);
16072:
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078: END IF;
16071: p_cle_id => ln_cle_id);
16072:
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078: END IF;
16079: -- end
16072:
16073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16076: RAISE OKL_API.G_EXCEPTION_ERROR;
16077: END IF;
16078: END IF;
16079: -- end
16080:
16077: END IF;
16078: END IF;
16079: -- end
16080:
16081: OKL_API.END_ACTIVITY (x_msg_count,
16082: x_msg_data );
16083: EXCEPTION
16084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16080:
16081: OKL_API.END_ACTIVITY (x_msg_count,
16082: x_msg_data );
16083: EXCEPTION
16084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16086: l_api_name,
16087: G_PKG_NAME,
16088: 'OKL_API.G_RET_STS_ERROR',
16081: OKL_API.END_ACTIVITY (x_msg_count,
16082: x_msg_data );
16083: EXCEPTION
16084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16086: l_api_name,
16087: G_PKG_NAME,
16088: 'OKL_API.G_RET_STS_ERROR',
16089: x_msg_count,
16084: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16085: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16086: l_api_name,
16087: G_PKG_NAME,
16088: 'OKL_API.G_RET_STS_ERROR',
16089: x_msg_count,
16090: x_msg_data,
16091: '_PVT');
16092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16088: 'OKL_API.G_RET_STS_ERROR',
16089: x_msg_count,
16090: x_msg_data,
16091: '_PVT');
16092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16093: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16094: l_api_name,
16095: G_PKG_NAME,
16096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16089: x_msg_count,
16090: x_msg_data,
16091: '_PVT');
16092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16093: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16094: l_api_name,
16095: G_PKG_NAME,
16096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16097: x_msg_count,
16092: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16093: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16094: l_api_name,
16095: G_PKG_NAME,
16096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16097: x_msg_count,
16098: x_msg_data,
16099: '_PVT');
16100: WHEN OTHERS THEN
16097: x_msg_count,
16098: x_msg_data,
16099: '_PVT');
16100: WHEN OTHERS THEN
16101: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16102: l_api_name,
16103: G_PKG_NAME,
16104: 'OTHERS',
16105: x_msg_count,
16384: lx_klev_fin_rec2 okl_contract_pub.klev_rec_type;
16385: --End Bug# 4631549
16386: BEGIN
16387:
16388: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16389: -- Call start_activity to create savepoint, check compatibility
16390: -- and initialize message list
16391: x_return_status := OKL_API.START_ACTIVITY (
16392: l_api_name
16387:
16388: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16389: -- Call start_activity to create savepoint, check compatibility
16390: -- and initialize message list
16391: x_return_status := OKL_API.START_ACTIVITY (
16392: l_api_name
16393: ,p_init_msg_list
16394: ,'_PVT'
16395: ,x_return_status);
16393: ,p_init_msg_list
16394: ,'_PVT'
16395: ,x_return_status);
16396: -- Check if activity started successfully
16397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16400: RAISE OKL_API.G_EXCEPTION_ERROR;
16401: END IF;
16394: ,'_PVT'
16395: ,x_return_status);
16396: -- Check if activity started successfully
16397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16400: RAISE OKL_API.G_EXCEPTION_ERROR;
16401: END IF;
16402: --start:| 14-May-2008 cklee Bug 6405415 |
16395: ,x_return_status);
16396: -- Check if activity started successfully
16397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16400: RAISE OKL_API.G_EXCEPTION_ERROR;
16401: END IF;
16402: --start:| 14-May-2008 cklee Bug 6405415 |
16403: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16396: -- Check if activity started successfully
16397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16400: RAISE OKL_API.G_EXCEPTION_ERROR;
16401: END IF;
16402: --start:| 14-May-2008 cklee Bug 6405415 |
16403: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16404: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16400: RAISE OKL_API.G_EXCEPTION_ERROR;
16401: END IF;
16402: --start:| 14-May-2008 cklee Bug 6405415 |
16403: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16404: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16405: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16406: OKL_API.set_message(p_app_name => G_APP_NAME,
16407: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16402: --start:| 14-May-2008 cklee Bug 6405415 |
16403: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16404: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16405: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16406: OKL_API.set_message(p_app_name => G_APP_NAME,
16407: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16408: RAISE OKL_API.G_EXCEPTION_ERROR;
16409: END IF;
16410: END IF;
16404: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16405: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16406: OKL_API.set_message(p_app_name => G_APP_NAME,
16407: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16408: RAISE OKL_API.G_EXCEPTION_ERROR;
16409: END IF;
16410: END IF;
16411: --end:| 14-May-2008 cklee Bug 6405415 |
16412:
16418: x_msg_count => x_msg_count,
16419: x_msg_data => x_msg_data,
16420: p_cle_id => p_clev_fin_rec.id);
16421:
16422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16425: RAISE OKL_API.G_EXCEPTION_ERROR;
16426: END IF;
16419: x_msg_data => x_msg_data,
16420: p_cle_id => p_clev_fin_rec.id);
16421:
16422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16425: RAISE OKL_API.G_EXCEPTION_ERROR;
16426: END IF;
16427: --Bug# 4959361
16420: p_cle_id => p_clev_fin_rec.id);
16421:
16422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16425: RAISE OKL_API.G_EXCEPTION_ERROR;
16426: END IF;
16427: --Bug# 4959361
16428:
16421:
16422: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16424: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16425: RAISE OKL_API.G_EXCEPTION_ERROR;
16426: END IF;
16427: --Bug# 4959361
16428:
16429: l_new_yn := p_new_yn;
16446: l_itiv_inst_rec := p_itiv_ib_rec;
16447: l_clev_ib_rec := p_clev_ib_rec;
16448: l_itiv_ib_rec := p_itiv_ib_rec;
16449: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
16450: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16451: OKL_API.set_message(p_app_name => G_APP_NAME,
16452: p_msg_name => G_REQUIRED_VALUE,
16453: p_token1 => G_COL_NAME_TOKEN,
16454: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16447: l_clev_ib_rec := p_clev_ib_rec;
16448: l_itiv_ib_rec := p_itiv_ib_rec;
16449: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
16450: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16451: OKL_API.set_message(p_app_name => G_APP_NAME,
16452: p_msg_name => G_REQUIRED_VALUE,
16453: p_token1 => G_COL_NAME_TOKEN,
16454: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16455: RAISE OKL_API.G_EXCEPTION_ERROR;
16451: OKL_API.set_message(p_app_name => G_APP_NAME,
16452: p_msg_name => G_REQUIRED_VALUE,
16453: p_token1 => G_COL_NAME_TOKEN,
16454: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16455: RAISE OKL_API.G_EXCEPTION_ERROR;
16456: END IF;
16457:
16458:
16459: ------------------------------------------------------
16482: End If;
16483: close l_fab_csr;
16484:
16485:
16486: If l_klev_fin_rec.id = OKL_API.G_MISS_NUM then
16487: l_klev_fin_rec.id := l_clev_fin_rec.id;
16488: End If;
16489:
16490:
16490:
16491: l_itiv_ib_tbl(1) := l_itiv_ib_rec;
16492:
16493: --Bug# 4631549
16494: If nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_RELEASE' Then
16495: update_release_asset_line
16496: (p_api_version => p_api_version,
16497: p_init_msg_list => p_init_msg_list,
16498: x_return_status => x_return_status,
16502: p_chr_id => l_clev_fin_rec.dnz_chr_id,
16503: p_clev_fin_id => l_clev_fin_rec.id,
16504: x_cle_id => l_rel_ast_fin_cle_id);
16505:
16506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16509: RAISE OKL_API.G_EXCEPTION_ERROR;
16510: END IF;
16503: p_clev_fin_id => l_clev_fin_rec.id,
16504: x_cle_id => l_rel_ast_fin_cle_id);
16505:
16506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16509: RAISE OKL_API.G_EXCEPTION_ERROR;
16510: END IF;
16511:
16504: x_cle_id => l_rel_ast_fin_cle_id);
16505:
16506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16509: RAISE OKL_API.G_EXCEPTION_ERROR;
16510: END IF;
16511:
16512:
16505:
16506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16509: RAISE OKL_API.G_EXCEPTION_ERROR;
16510: END IF;
16511:
16512:
16513:
16538: x_klev_fa_rec => l_rel_ast_klev_fa_rec,
16539: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16540: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16541:
16542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16545: RAISE OKL_API.G_EXCEPTION_ERROR;
16546: END IF;
16539: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16540: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16541:
16542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16545: RAISE OKL_API.G_EXCEPTION_ERROR;
16546: END IF;
16547:
16540: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16541:
16542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16545: RAISE OKL_API.G_EXCEPTION_ERROR;
16546: END IF;
16547:
16548: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16541:
16542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16545: RAISE OKL_API.G_EXCEPTION_ERROR;
16546: END IF;
16547:
16548: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16549: x_clev_model_rec := l_rel_ast_clev_model_rec;
16552: x_clev_ib_rec := l_rel_ast_clev_ib_tbl(1);
16553: End If;
16554:
16555: --Bug# 4631549
16556: ElsIf nvl(l_orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' Then
16557:
16558: Modify_Release_Asset_Line(
16559: p_api_version => p_api_version,
16560: p_init_msg_list => p_init_msg_list,
16582: x_klev_fa_rec => l_rel_ast_klev_fa_rec,
16583: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16584: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16585:
16586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16589: RAISE OKL_API.G_EXCEPTION_ERROR;
16590: END IF;
16583: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16584: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16585:
16586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16589: RAISE OKL_API.G_EXCEPTION_ERROR;
16590: END IF;
16591:
16584: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16585:
16586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16589: RAISE OKL_API.G_EXCEPTION_ERROR;
16590: END IF;
16591:
16592: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16585:
16586: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16587: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16588: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16589: RAISE OKL_API.G_EXCEPTION_ERROR;
16590: END IF;
16591:
16592: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16593: x_clev_model_rec := l_rel_ast_clev_model_rec;
16617: p_release_date => l_start_date,
16618: p_nbv => l_corp_net_book_value,
16619: x_expected_cost => l_expected_cost);
16620:
16621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16622: RAISE OKL_API.G_EXCEPTION_ERROR;
16623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16625: END IF;
16618: p_nbv => l_corp_net_book_value,
16619: x_expected_cost => l_expected_cost);
16620:
16621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16622: RAISE OKL_API.G_EXCEPTION_ERROR;
16623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16625: END IF;
16626:
16619: x_expected_cost => l_expected_cost);
16620:
16621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16622: RAISE OKL_API.G_EXCEPTION_ERROR;
16623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16625: END IF;
16626:
16627: l_clev_fin_rec2.id := x_clev_fin_rec.id;
16620:
16621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16622: RAISE OKL_API.G_EXCEPTION_ERROR;
16623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16625: END IF;
16626:
16627: l_clev_fin_rec2.id := x_clev_fin_rec.id;
16628: l_klev_fin_rec2.id := x_clev_fin_rec.id;
16638: p_klev_rec => l_klev_fin_rec2,
16639: x_clev_rec => lx_clev_fin_rec2,
16640: x_klev_rec => lx_klev_fin_rec2);
16641:
16642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16643: RAISE OKL_API.G_EXCEPTION_ERROR;
16644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16646: END IF;
16639: x_clev_rec => lx_clev_fin_rec2,
16640: x_klev_rec => lx_klev_fin_rec2);
16641:
16642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16643: RAISE OKL_API.G_EXCEPTION_ERROR;
16644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16646: END IF;
16647: End If;
16640: x_klev_rec => lx_klev_fin_rec2);
16641:
16642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16643: RAISE OKL_API.G_EXCEPTION_ERROR;
16644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16646: END IF;
16647: End If;
16648: --End Bug# 4631549
16641:
16642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16643: RAISE OKL_API.G_EXCEPTION_ERROR;
16644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16645: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16646: END IF;
16647: End If;
16648: --End Bug# 4631549
16649:
16663: p_ib_loc2 => l_itiv_ib_rec.object_id2_new,
16664: p_fa_loc => l_talv_fa_rec.fa_location_id,
16665: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16666: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16670: RAISE OKL_API.G_EXCEPTION_ERROR;
16671: END IF;
16664: p_fa_loc => l_talv_fa_rec.fa_location_id,
16665: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16666: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16670: RAISE OKL_API.G_EXCEPTION_ERROR;
16671: END IF;
16672: -- To Get the txlv fa Line Record
16665: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16666: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16670: RAISE OKL_API.G_EXCEPTION_ERROR;
16671: END IF;
16672: -- To Get the txlv fa Line Record
16673: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16666: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16669: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16670: RAISE OKL_API.G_EXCEPTION_ERROR;
16671: END IF;
16672: -- To Get the txlv fa Line Record
16673: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16674: r_talv_fa_rec);
16671: END IF;
16672: -- To Get the txlv fa Line Record
16673: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16674: r_talv_fa_rec);
16675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16676: OKL_API.set_message(p_app_name => G_APP_NAME,
16677: p_msg_name => G_FETCHING_INFO,
16678: p_token1 => G_REC_NAME_TOKEN,
16679: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16672: -- To Get the txlv fa Line Record
16673: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16674: r_talv_fa_rec);
16675: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16676: OKL_API.set_message(p_app_name => G_APP_NAME,
16677: p_msg_name => G_FETCHING_INFO,
16678: p_token1 => G_REC_NAME_TOKEN,
16679: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16676: OKL_API.set_message(p_app_name => G_APP_NAME,
16677: p_msg_name => G_FETCHING_INFO,
16678: p_token1 => G_REC_NAME_TOKEN,
16679: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16682: OKL_API.set_message(p_app_name => G_APP_NAME,
16683: p_msg_name => G_FETCHING_INFO,
16684: p_token1 => G_REC_NAME_TOKEN,
16677: p_msg_name => G_FETCHING_INFO,
16678: p_token1 => G_REC_NAME_TOKEN,
16679: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16682: OKL_API.set_message(p_app_name => G_APP_NAME,
16683: p_msg_name => G_FETCHING_INFO,
16684: p_token1 => G_REC_NAME_TOKEN,
16685: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16678: p_token1 => G_REC_NAME_TOKEN,
16679: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16682: OKL_API.set_message(p_app_name => G_APP_NAME,
16683: p_msg_name => G_FETCHING_INFO,
16684: p_token1 => G_REC_NAME_TOKEN,
16685: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16686: RAISE OKL_API.G_EXCEPTION_ERROR;
16682: OKL_API.set_message(p_app_name => G_APP_NAME,
16683: p_msg_name => G_FETCHING_INFO,
16684: p_token1 => G_REC_NAME_TOKEN,
16685: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16686: RAISE OKL_API.G_EXCEPTION_ERROR;
16687: END IF;
16688: IF (l_talv_fa_rec.asset_number IS NUll OR
16689: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
16690: l_talv_fa_rec.asset_number := r_talv_fa_rec.asset_number;
16685: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16686: RAISE OKL_API.G_EXCEPTION_ERROR;
16687: END IF;
16688: IF (l_talv_fa_rec.asset_number IS NUll OR
16689: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
16690: l_talv_fa_rec.asset_number := r_talv_fa_rec.asset_number;
16691: -- ELSIF l_talv_fa_rec.asset_number = r_talv_fa_rec.asset_number THEN
16692: -- l_new_yn := 'N';
16693: END IF;
16691: -- ELSIF l_talv_fa_rec.asset_number = r_talv_fa_rec.asset_number THEN
16692: -- l_new_yn := 'N';
16693: END IF;
16694: IF (l_talv_fa_rec.original_cost IS NUll OR
16695: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
16696: OKL_API.set_message(p_app_name => G_APP_NAME,
16697: p_msg_name => G_REQUIRED_VALUE,
16698: p_token1 => G_REC_NAME_TOKEN,
16699: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16692: -- l_new_yn := 'N';
16693: END IF;
16694: IF (l_talv_fa_rec.original_cost IS NUll OR
16695: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
16696: OKL_API.set_message(p_app_name => G_APP_NAME,
16697: p_msg_name => G_REQUIRED_VALUE,
16698: p_token1 => G_REC_NAME_TOKEN,
16699: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16700: RAISE OKL_API.G_EXCEPTION_ERROR;
16696: OKL_API.set_message(p_app_name => G_APP_NAME,
16697: p_msg_name => G_REQUIRED_VALUE,
16698: p_token1 => G_REC_NAME_TOKEN,
16699: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16700: RAISE OKL_API.G_EXCEPTION_ERROR;
16701: END IF;
16702: IF (l_talv_fa_rec.current_units IS NUll OR
16703: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16704: OKL_API.set_message(p_app_name => G_APP_NAME,
16699: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16700: RAISE OKL_API.G_EXCEPTION_ERROR;
16701: END IF;
16702: IF (l_talv_fa_rec.current_units IS NUll OR
16703: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16704: OKL_API.set_message(p_app_name => G_APP_NAME,
16705: p_msg_name => G_REQUIRED_VALUE,
16706: p_token1 => G_COL_NAME_TOKEN,
16707: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16700: RAISE OKL_API.G_EXCEPTION_ERROR;
16701: END IF;
16702: IF (l_talv_fa_rec.current_units IS NUll OR
16703: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16704: OKL_API.set_message(p_app_name => G_APP_NAME,
16705: p_msg_name => G_REQUIRED_VALUE,
16706: p_token1 => G_COL_NAME_TOKEN,
16707: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16708: RAISE OKL_API.G_EXCEPTION_ERROR;
16704: OKL_API.set_message(p_app_name => G_APP_NAME,
16705: p_msg_name => G_REQUIRED_VALUE,
16706: p_token1 => G_COL_NAME_TOKEN,
16707: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16708: RAISE OKL_API.G_EXCEPTION_ERROR;
16709: END IF;
16710: l_clev_model_rec.price_unit := l_talv_fa_rec.original_cost;
16711: l_clev_fa_rec.price_unit := l_talv_fa_rec.original_cost;
16712: l_cimv_model_rec.number_of_items := l_talv_fa_rec.current_units;
16713: l_cimv_fa_rec.number_of_items := l_talv_fa_rec.current_units;
16714: -- To Get the kle top Line Record
16715: x_return_status := get_rec_clev(l_clev_fin_rec.id,
16716: r_clev_fin_rec);
16717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16718: OKL_API.set_message(p_app_name => G_APP_NAME,
16719: p_msg_name => G_FETCHING_INFO,
16720: p_token1 => G_REC_NAME_TOKEN,
16721: p_token1_value => 'OKC_K_LINES_V Record');
16714: -- To Get the kle top Line Record
16715: x_return_status := get_rec_clev(l_clev_fin_rec.id,
16716: r_clev_fin_rec);
16717: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16718: OKL_API.set_message(p_app_name => G_APP_NAME,
16719: p_msg_name => G_FETCHING_INFO,
16720: p_token1 => G_REC_NAME_TOKEN,
16721: p_token1_value => 'OKC_K_LINES_V Record');
16722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16718: OKL_API.set_message(p_app_name => G_APP_NAME,
16719: p_msg_name => G_FETCHING_INFO,
16720: p_token1 => G_REC_NAME_TOKEN,
16721: p_token1_value => 'OKC_K_LINES_V Record');
16722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16724: OKL_API.set_message(p_app_name => G_APP_NAME,
16725: p_msg_name => G_FETCHING_INFO,
16726: p_token1 => G_REC_NAME_TOKEN,
16719: p_msg_name => G_FETCHING_INFO,
16720: p_token1 => G_REC_NAME_TOKEN,
16721: p_token1_value => 'OKC_K_LINES_V Record');
16722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16724: OKL_API.set_message(p_app_name => G_APP_NAME,
16725: p_msg_name => G_FETCHING_INFO,
16726: p_token1 => G_REC_NAME_TOKEN,
16727: p_token1_value => 'OKC_K_LINES_V Record');
16720: p_token1 => G_REC_NAME_TOKEN,
16721: p_token1_value => 'OKC_K_LINES_V Record');
16722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16724: OKL_API.set_message(p_app_name => G_APP_NAME,
16725: p_msg_name => G_FETCHING_INFO,
16726: p_token1 => G_REC_NAME_TOKEN,
16727: p_token1_value => 'OKC_K_LINES_V Record');
16728: RAISE OKL_API.G_EXCEPTION_ERROR;
16724: OKL_API.set_message(p_app_name => G_APP_NAME,
16725: p_msg_name => G_FETCHING_INFO,
16726: p_token1 => G_REC_NAME_TOKEN,
16727: p_token1_value => 'OKC_K_LINES_V Record');
16728: RAISE OKL_API.G_EXCEPTION_ERROR;
16729: END IF;
16730: -- To Get the kle top Line Record
16731: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16732: r_klev_fin_rec);
16729: END IF;
16730: -- To Get the kle top Line Record
16731: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16732: r_klev_fin_rec);
16733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16734: OKL_API.set_message(p_app_name => G_APP_NAME,
16735: p_msg_name => G_FETCHING_INFO,
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16730: -- To Get the kle top Line Record
16731: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16732: r_klev_fin_rec);
16733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16734: OKL_API.set_message(p_app_name => G_APP_NAME,
16735: p_msg_name => G_FETCHING_INFO,
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16734: OKL_API.set_message(p_app_name => G_APP_NAME,
16735: p_msg_name => G_FETCHING_INFO,
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16742: p_token1 => G_REC_NAME_TOKEN,
16735: p_msg_name => G_FETCHING_INFO,
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16742: p_token1 => G_REC_NAME_TOKEN,
16743: p_token1_value => 'OKL_K_LINES_V Record');
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16742: p_token1 => G_REC_NAME_TOKEN,
16743: p_token1_value => 'OKL_K_LINES_V Record');
16744: RAISE OKL_API.G_EXCEPTION_ERROR;
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16742: p_token1 => G_REC_NAME_TOKEN,
16743: p_token1_value => 'OKL_K_LINES_V Record');
16744: RAISE OKL_API.G_EXCEPTION_ERROR;
16745: END IF;
16746: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16747: OKL_API.set_message(p_app_name => G_APP_NAME,
16748: p_msg_name => G_LINE_RECORD);
16743: p_token1_value => 'OKL_K_LINES_V Record');
16744: RAISE OKL_API.G_EXCEPTION_ERROR;
16745: END IF;
16746: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16747: OKL_API.set_message(p_app_name => G_APP_NAME,
16748: p_msg_name => G_LINE_RECORD);
16749: RAISE OKL_API.G_EXCEPTION_ERROR;
16750: END IF;
16751: --Build the clev Top Line Record
16745: END IF;
16746: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16747: OKL_API.set_message(p_app_name => G_APP_NAME,
16748: p_msg_name => G_LINE_RECORD);
16749: RAISE OKL_API.G_EXCEPTION_ERROR;
16750: END IF;
16751: --Build the clev Top Line Record
16752: l_clev_fin_rec.cle_id := null;
16753: IF (l_clev_fin_rec.chr_id IS NUll OR
16750: END IF;
16751: --Build the clev Top Line Record
16752: l_clev_fin_rec.cle_id := null;
16753: IF (l_clev_fin_rec.chr_id IS NUll OR
16754: l_clev_fin_rec.chr_id = OKL_API.G_MISS_NUM) THEN
16755: l_clev_fin_rec.chr_id := r_clev_fin_rec.chr_id;
16756: END IF;
16757: IF (l_clev_fin_rec.name IS NUll OR
16758: l_clev_fin_rec.name = OKL_API.G_MISS_CHAR) AND
16754: l_clev_fin_rec.chr_id = OKL_API.G_MISS_NUM) THEN
16755: l_clev_fin_rec.chr_id := r_clev_fin_rec.chr_id;
16756: END IF;
16757: IF (l_clev_fin_rec.name IS NUll OR
16758: l_clev_fin_rec.name = OKL_API.G_MISS_CHAR) AND
16759: (r_clev_fin_rec.name <> p_asset_number) THEN
16760: l_clev_fin_rec.name := p_asset_number;
16761: END IF;
16762: IF (l_clev_fin_rec.exception_yn IS NUll OR
16759: (r_clev_fin_rec.name <> p_asset_number) THEN
16760: l_clev_fin_rec.name := p_asset_number;
16761: END IF;
16762: IF (l_clev_fin_rec.exception_yn IS NUll OR
16763: l_clev_fin_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16764: l_clev_fin_rec.exception_yn := r_clev_fin_rec.exception_yn;
16765: END IF;
16766: IF (l_clev_fin_rec.display_sequence IS NUll OR
16767: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16763: l_clev_fin_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16764: l_clev_fin_rec.exception_yn := r_clev_fin_rec.exception_yn;
16765: END IF;
16766: IF (l_clev_fin_rec.display_sequence IS NUll OR
16767: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16768: l_clev_fin_rec.display_sequence := r_clev_fin_rec.display_sequence;
16769: END IF;
16770: IF (l_clev_fin_rec.lse_id IS NUll OR
16771: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16767: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16768: l_clev_fin_rec.display_sequence := r_clev_fin_rec.display_sequence;
16769: END IF;
16770: IF (l_clev_fin_rec.lse_id IS NUll OR
16771: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16772: l_clev_fin_rec.lse_id := r_clev_fin_rec.lse_id;
16773: END IF;
16774: IF (l_clev_fin_rec.line_number IS NUll OR
16775: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16771: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16772: l_clev_fin_rec.lse_id := r_clev_fin_rec.lse_id;
16773: END IF;
16774: IF (l_clev_fin_rec.line_number IS NUll OR
16775: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16776: l_clev_fin_rec.line_number := r_clev_fin_rec.line_number;
16777: END IF;
16778: IF (l_clev_fin_rec.sts_code IS NUll OR
16779: l_clev_fin_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16775: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16776: l_clev_fin_rec.line_number := r_clev_fin_rec.line_number;
16777: END IF;
16778: IF (l_clev_fin_rec.sts_code IS NUll OR
16779: l_clev_fin_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16780: l_clev_fin_rec.sts_code := r_clev_fin_rec.sts_code;
16781: END IF;
16782: --Build the klev Top Line Record
16783: IF l_new_yn = 'Y' THEN
16783: IF l_new_yn = 'Y' THEN
16784: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
16785: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
16786: ELSIF l_new_yn = 'N' THEN
16787: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
16788: l_clev_model_rec.price_unit := null;
16789: END IF;
16790: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
16791: l_cimv_model_rec.number_of_items := null;
16786: ELSIF l_new_yn = 'N' THEN
16787: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
16788: l_clev_model_rec.price_unit := null;
16789: END IF;
16790: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
16791: l_cimv_model_rec.number_of_items := null;
16792: END IF;
16793: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
16794: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
16810: p_clev_rec => l_clev_fin_rec,
16811: p_klev_rec => l_klev_fin_rec,
16812: x_clev_rec => x_clev_fin_rec,
16813: x_klev_rec => l_klev_fin_rec_out);
16814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16817: RAISE OKL_API.G_EXCEPTION_ERROR;
16818: END IF;
16811: p_klev_rec => l_klev_fin_rec,
16812: x_clev_rec => x_clev_fin_rec,
16813: x_klev_rec => l_klev_fin_rec_out);
16814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16817: RAISE OKL_API.G_EXCEPTION_ERROR;
16818: END IF;
16819:
16812: x_clev_rec => x_clev_fin_rec,
16813: x_klev_rec => l_klev_fin_rec_out);
16814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16817: RAISE OKL_API.G_EXCEPTION_ERROR;
16818: END IF;
16819:
16820: --We have to build the Model Line Record for the calculations of the
16813: x_klev_rec => l_klev_fin_rec_out);
16814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16817: RAISE OKL_API.G_EXCEPTION_ERROR;
16818: END IF;
16819:
16820: --We have to build the Model Line Record for the calculations of the
16821: -- oec of the top line
16821: -- oec of the top line
16822: -- To Get the cle Model Line Record
16823: x_return_status := get_rec_clev(l_clev_model_rec.id,
16824: r_clev_model_rec);
16825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16826: OKL_API.set_message(p_app_name => G_APP_NAME,
16827: p_msg_name => G_FETCHING_INFO,
16828: p_token1 => G_REC_NAME_TOKEN,
16829: p_token1_value => 'OKC_K_LINES_V Record');
16822: -- To Get the cle Model Line Record
16823: x_return_status := get_rec_clev(l_clev_model_rec.id,
16824: r_clev_model_rec);
16825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16826: OKL_API.set_message(p_app_name => G_APP_NAME,
16827: p_msg_name => G_FETCHING_INFO,
16828: p_token1 => G_REC_NAME_TOKEN,
16829: p_token1_value => 'OKC_K_LINES_V Record');
16830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16826: OKL_API.set_message(p_app_name => G_APP_NAME,
16827: p_msg_name => G_FETCHING_INFO,
16828: p_token1 => G_REC_NAME_TOKEN,
16829: p_token1_value => 'OKC_K_LINES_V Record');
16830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16832: OKL_API.set_message(p_app_name => G_APP_NAME,
16833: p_msg_name => G_FETCHING_INFO,
16834: p_token1 => G_REC_NAME_TOKEN,
16827: p_msg_name => G_FETCHING_INFO,
16828: p_token1 => G_REC_NAME_TOKEN,
16829: p_token1_value => 'OKC_K_LINES_V Record');
16830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16832: OKL_API.set_message(p_app_name => G_APP_NAME,
16833: p_msg_name => G_FETCHING_INFO,
16834: p_token1 => G_REC_NAME_TOKEN,
16835: p_token1_value => 'OKC_K_LINES_V Record');
16828: p_token1 => G_REC_NAME_TOKEN,
16829: p_token1_value => 'OKC_K_LINES_V Record');
16830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16832: OKL_API.set_message(p_app_name => G_APP_NAME,
16833: p_msg_name => G_FETCHING_INFO,
16834: p_token1 => G_REC_NAME_TOKEN,
16835: p_token1_value => 'OKC_K_LINES_V Record');
16836: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: OKL_API.set_message(p_app_name => G_APP_NAME,
16833: p_msg_name => G_FETCHING_INFO,
16834: p_token1 => G_REC_NAME_TOKEN,
16835: p_token1_value => 'OKC_K_LINES_V Record');
16836: RAISE OKL_API.G_EXCEPTION_ERROR;
16837: END IF;
16838: -- To Get the kle Model Line Record
16839: x_return_status := get_rec_klev(l_clev_model_rec.id,
16840: r_klev_model_rec);
16837: END IF;
16838: -- To Get the kle Model Line Record
16839: x_return_status := get_rec_klev(l_clev_model_rec.id,
16840: r_klev_model_rec);
16841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16842: OKL_API.set_message(p_app_name => G_APP_NAME,
16843: p_msg_name => G_FETCHING_INFO,
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16838: -- To Get the kle Model Line Record
16839: x_return_status := get_rec_klev(l_clev_model_rec.id,
16840: r_klev_model_rec);
16841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16842: OKL_API.set_message(p_app_name => G_APP_NAME,
16843: p_msg_name => G_FETCHING_INFO,
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16842: OKL_API.set_message(p_app_name => G_APP_NAME,
16843: p_msg_name => G_FETCHING_INFO,
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16850: p_token1 => G_REC_NAME_TOKEN,
16843: p_msg_name => G_FETCHING_INFO,
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16850: p_token1 => G_REC_NAME_TOKEN,
16851: p_token1_value => 'OKL_K_LINES_V Record');
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16850: p_token1 => G_REC_NAME_TOKEN,
16851: p_token1_value => 'OKL_K_LINES_V Record');
16852: RAISE OKL_API.G_EXCEPTION_ERROR;
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16850: p_token1 => G_REC_NAME_TOKEN,
16851: p_token1_value => 'OKL_K_LINES_V Record');
16852: RAISE OKL_API.G_EXCEPTION_ERROR;
16853: END IF;
16854: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
16855: OKL_API.set_message(p_app_name => G_APP_NAME,
16856: p_msg_name => G_LINE_RECORD);
16851: p_token1_value => 'OKL_K_LINES_V Record');
16852: RAISE OKL_API.G_EXCEPTION_ERROR;
16853: END IF;
16854: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
16855: OKL_API.set_message(p_app_name => G_APP_NAME,
16856: p_msg_name => G_LINE_RECORD);
16857: RAISE OKL_API.G_EXCEPTION_ERROR;
16858: END IF;
16859: -- Build clev Model Line Record
16853: END IF;
16854: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
16855: OKL_API.set_message(p_app_name => G_APP_NAME,
16856: p_msg_name => G_LINE_RECORD);
16857: RAISE OKL_API.G_EXCEPTION_ERROR;
16858: END IF;
16859: -- Build clev Model Line Record
16860: l_clev_model_rec.chr_id := null;
16861: IF (l_clev_model_rec.cle_id IS NUll OR
16858: END IF;
16859: -- Build clev Model Line Record
16860: l_clev_model_rec.chr_id := null;
16861: IF (l_clev_model_rec.cle_id IS NUll OR
16862: l_clev_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
16863: l_clev_model_rec.cle_id := r_clev_model_rec.cle_id;
16864: END IF;
16865: IF (l_clev_model_rec.dnz_chr_id IS NUll OR
16866: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16862: l_clev_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
16863: l_clev_model_rec.cle_id := r_clev_model_rec.cle_id;
16864: END IF;
16865: IF (l_clev_model_rec.dnz_chr_id IS NUll OR
16866: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16867: l_clev_model_rec.dnz_chr_id := r_clev_model_rec.dnz_chr_id;
16868: END IF;
16869: IF (l_clev_model_rec.lse_id IS NUll OR
16870: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16866: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16867: l_clev_model_rec.dnz_chr_id := r_clev_model_rec.dnz_chr_id;
16868: END IF;
16869: IF (l_clev_model_rec.lse_id IS NUll OR
16870: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16871: l_clev_model_rec.lse_id := r_clev_model_rec.lse_id;
16872: END IF;
16873: IF (l_clev_model_rec.display_sequence IS NUll OR
16874: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16870: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16871: l_clev_model_rec.lse_id := r_clev_model_rec.lse_id;
16872: END IF;
16873: IF (l_clev_model_rec.display_sequence IS NUll OR
16874: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16875: l_clev_model_rec.display_sequence := r_clev_model_rec.display_sequence;
16876: END IF;
16877: IF (l_clev_model_rec.exception_yn IS NUll OR
16878: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16874: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16875: l_clev_model_rec.display_sequence := r_clev_model_rec.display_sequence;
16876: END IF;
16877: IF (l_clev_model_rec.exception_yn IS NUll OR
16878: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16879: l_clev_model_rec.exception_yn := r_clev_model_rec.exception_yn;
16880: END IF;
16881: IF (l_clev_model_rec.line_number IS NUll OR
16882: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16878: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16879: l_clev_model_rec.exception_yn := r_clev_model_rec.exception_yn;
16880: END IF;
16881: IF (l_clev_model_rec.line_number IS NUll OR
16882: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16883: l_clev_model_rec.line_number := r_clev_model_rec.line_number;
16884: END IF;
16885: IF (l_clev_model_rec.sts_code IS NUll OR
16886: l_clev_model_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16882: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16883: l_clev_model_rec.line_number := r_clev_model_rec.line_number;
16884: END IF;
16885: IF (l_clev_model_rec.sts_code IS NUll OR
16886: l_clev_model_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16887: l_clev_model_rec.sts_code := r_clev_model_rec.sts_code;
16888: END IF;
16889: -- Build klev Model Line Record
16890: l_klev_model_rec := r_klev_model_rec;
16891: -- To Get the cimv Model Line Record
16892: x_return_status := get_rec_cimv(l_clev_model_rec.id,
16893: l_clev_model_rec.dnz_chr_id,
16894: r_cimv_model_rec);
16895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16896: OKL_API.set_message(p_app_name => G_APP_NAME,
16897: p_msg_name => G_FETCHING_INFO,
16898: p_token1 => G_REC_NAME_TOKEN,
16899: p_token1_value => 'OKC_K_ITEMS_V Record');
16892: x_return_status := get_rec_cimv(l_clev_model_rec.id,
16893: l_clev_model_rec.dnz_chr_id,
16894: r_cimv_model_rec);
16895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16896: OKL_API.set_message(p_app_name => G_APP_NAME,
16897: p_msg_name => G_FETCHING_INFO,
16898: p_token1 => G_REC_NAME_TOKEN,
16899: p_token1_value => 'OKC_K_ITEMS_V Record');
16900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16896: OKL_API.set_message(p_app_name => G_APP_NAME,
16897: p_msg_name => G_FETCHING_INFO,
16898: p_token1 => G_REC_NAME_TOKEN,
16899: p_token1_value => 'OKC_K_ITEMS_V Record');
16900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16902: OKL_API.set_message(p_app_name => G_APP_NAME,
16903: p_msg_name => G_FETCHING_INFO,
16904: p_token1 => G_REC_NAME_TOKEN,
16897: p_msg_name => G_FETCHING_INFO,
16898: p_token1 => G_REC_NAME_TOKEN,
16899: p_token1_value => 'OKC_K_ITEMS_V Record');
16900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16902: OKL_API.set_message(p_app_name => G_APP_NAME,
16903: p_msg_name => G_FETCHING_INFO,
16904: p_token1 => G_REC_NAME_TOKEN,
16905: p_token1_value => 'OKC_K_ITEMS_V Record');
16898: p_token1 => G_REC_NAME_TOKEN,
16899: p_token1_value => 'OKC_K_ITEMS_V Record');
16900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16902: OKL_API.set_message(p_app_name => G_APP_NAME,
16903: p_msg_name => G_FETCHING_INFO,
16904: p_token1 => G_REC_NAME_TOKEN,
16905: p_token1_value => 'OKC_K_ITEMS_V Record');
16906: RAISE OKL_API.G_EXCEPTION_ERROR;
16902: OKL_API.set_message(p_app_name => G_APP_NAME,
16903: p_msg_name => G_FETCHING_INFO,
16904: p_token1 => G_REC_NAME_TOKEN,
16905: p_token1_value => 'OKC_K_ITEMS_V Record');
16906: RAISE OKL_API.G_EXCEPTION_ERROR;
16907: END IF;
16908: --Build Model cimv item rec
16909: l_cimv_model_rec.id := r_cimv_model_rec.id;
16910: IF (l_cimv_model_rec.exception_yn IS NUll OR
16907: END IF;
16908: --Build Model cimv item rec
16909: l_cimv_model_rec.id := r_cimv_model_rec.id;
16910: IF (l_cimv_model_rec.exception_yn IS NUll OR
16911: l_cimv_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16912: l_cimv_model_rec.exception_yn := r_cimv_model_rec.exception_yn;
16913: END IF;
16914: IF (l_cimv_model_rec.dnz_chr_id IS NUll OR
16915: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16911: l_cimv_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16912: l_cimv_model_rec.exception_yn := r_cimv_model_rec.exception_yn;
16913: END IF;
16914: IF (l_cimv_model_rec.dnz_chr_id IS NUll OR
16915: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16916: l_cimv_model_rec.dnz_chr_id := r_cimv_model_rec.dnz_chr_id;
16917: END IF;
16918: IF (l_cimv_model_rec.cle_id IS NUll OR
16919: l_cimv_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
16915: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16916: l_cimv_model_rec.dnz_chr_id := r_cimv_model_rec.dnz_chr_id;
16917: END IF;
16918: IF (l_cimv_model_rec.cle_id IS NUll OR
16919: l_cimv_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
16920: l_cimv_model_rec.cle_id := r_cimv_model_rec.cle_id;
16921: END IF;
16922: -- We need to check the below since we do not have to call the formula
16923: -- Engine avery time. Which means that we have to call the formula Engine
16950: p_cimv_rec => l_cimv_model_rec,
16951: x_clev_rec => x_clev_model_rec,
16952: x_klev_rec => l_klev_model_rec_out,
16953: x_cimv_rec => l_cimv_model_rec_out);
16954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16957: RAISE OKL_API.G_EXCEPTION_ERROR;
16958: END IF;
16951: x_clev_rec => x_clev_model_rec,
16952: x_klev_rec => l_klev_model_rec_out,
16953: x_cimv_rec => l_cimv_model_rec_out);
16954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16957: RAISE OKL_API.G_EXCEPTION_ERROR;
16958: END IF;
16959:
16952: x_klev_rec => l_klev_model_rec_out,
16953: x_cimv_rec => l_cimv_model_rec_out);
16954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16957: RAISE OKL_API.G_EXCEPTION_ERROR;
16958: END IF;
16959:
16960: --Bug# 4161221: start
16953: x_cimv_rec => l_cimv_model_rec_out);
16954: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16955: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16956: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16957: RAISE OKL_API.G_EXCEPTION_ERROR;
16958: END IF;
16959:
16960: --Bug# 4161221: start
16961: -- Update No. of Units on Add-on line when there is a change in the
16966: -- To Get the cimv Addon Line Record
16967: x_return_status := get_rec_cimv(r_addon_line_id.id,
16968: x_clev_model_rec.dnz_chr_id,
16969: r_cimv_addon_rec);
16970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16971: OKL_API.set_message(p_app_name => G_APP_NAME,
16972: p_msg_name => G_FETCHING_INFO,
16973: p_token1 => G_REC_NAME_TOKEN,
16974: p_token1_value => 'OKC_K_ITEMS_V Record');
16967: x_return_status := get_rec_cimv(r_addon_line_id.id,
16968: x_clev_model_rec.dnz_chr_id,
16969: r_cimv_addon_rec);
16970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16971: OKL_API.set_message(p_app_name => G_APP_NAME,
16972: p_msg_name => G_FETCHING_INFO,
16973: p_token1 => G_REC_NAME_TOKEN,
16974: p_token1_value => 'OKC_K_ITEMS_V Record');
16975: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16971: OKL_API.set_message(p_app_name => G_APP_NAME,
16972: p_msg_name => G_FETCHING_INFO,
16973: p_token1 => G_REC_NAME_TOKEN,
16974: p_token1_value => 'OKC_K_ITEMS_V Record');
16975: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16977: OKL_API.set_message(p_app_name => G_APP_NAME,
16978: p_msg_name => G_FETCHING_INFO,
16979: p_token1 => G_REC_NAME_TOKEN,
16972: p_msg_name => G_FETCHING_INFO,
16973: p_token1 => G_REC_NAME_TOKEN,
16974: p_token1_value => 'OKC_K_ITEMS_V Record');
16975: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16977: OKL_API.set_message(p_app_name => G_APP_NAME,
16978: p_msg_name => G_FETCHING_INFO,
16979: p_token1 => G_REC_NAME_TOKEN,
16980: p_token1_value => 'OKC_K_ITEMS_V Record');
16973: p_token1 => G_REC_NAME_TOKEN,
16974: p_token1_value => 'OKC_K_ITEMS_V Record');
16975: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16977: OKL_API.set_message(p_app_name => G_APP_NAME,
16978: p_msg_name => G_FETCHING_INFO,
16979: p_token1 => G_REC_NAME_TOKEN,
16980: p_token1_value => 'OKC_K_ITEMS_V Record');
16981: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16977: OKL_API.set_message(p_app_name => G_APP_NAME,
16978: p_msg_name => G_FETCHING_INFO,
16979: p_token1 => G_REC_NAME_TOKEN,
16980: p_token1_value => 'OKC_K_ITEMS_V Record');
16981: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16982: END IF;
16983:
16984: IF (NVL(r_cimv_addon_rec.number_of_items,0) <>
16985: NVL(l_cimv_model_rec_out.number_of_items,0)) THEN
16994: x_msg_count => x_msg_count,
16995: x_msg_data => x_msg_data,
16996: p_cimv_rec => r_cimv_addon_rec,
16997: x_cimv_rec => rx_cimv_addon_rec);
16998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16999: OKL_API.set_message(p_app_name => G_APP_NAME,
17000: p_msg_name => G_UPDATING_ADDON_ITEM);
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16995: x_msg_data => x_msg_data,
16996: p_cimv_rec => r_cimv_addon_rec,
16997: x_cimv_rec => rx_cimv_addon_rec);
16998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16999: OKL_API.set_message(p_app_name => G_APP_NAME,
17000: p_msg_name => G_UPDATING_ADDON_ITEM);
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17003: OKL_API.set_message(p_app_name => G_APP_NAME,
16997: x_cimv_rec => rx_cimv_addon_rec);
16998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16999: OKL_API.set_message(p_app_name => G_APP_NAME,
17000: p_msg_name => G_UPDATING_ADDON_ITEM);
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17003: OKL_API.set_message(p_app_name => G_APP_NAME,
17004: p_msg_name => G_UPDATING_ADDON_ITEM);
17005: RAISE OKL_API.G_EXCEPTION_ERROR;
16998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16999: OKL_API.set_message(p_app_name => G_APP_NAME,
17000: p_msg_name => G_UPDATING_ADDON_ITEM);
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17003: OKL_API.set_message(p_app_name => G_APP_NAME,
17004: p_msg_name => G_UPDATING_ADDON_ITEM);
17005: RAISE OKL_API.G_EXCEPTION_ERROR;
17006: END IF;
16999: OKL_API.set_message(p_app_name => G_APP_NAME,
17000: p_msg_name => G_UPDATING_ADDON_ITEM);
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17003: OKL_API.set_message(p_app_name => G_APP_NAME,
17004: p_msg_name => G_UPDATING_ADDON_ITEM);
17005: RAISE OKL_API.G_EXCEPTION_ERROR;
17006: END IF;
17007: END IF;
17001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17002: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17003: OKL_API.set_message(p_app_name => G_APP_NAME,
17004: p_msg_name => G_UPDATING_ADDON_ITEM);
17005: RAISE OKL_API.G_EXCEPTION_ERROR;
17006: END IF;
17007: END IF;
17008: END LOOP;
17009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17005: RAISE OKL_API.G_EXCEPTION_ERROR;
17006: END IF;
17007: END IF;
17008: END LOOP;
17009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17012: RAISE OKL_API.G_EXCEPTION_ERROR;
17013: END IF;
17006: END IF;
17007: END IF;
17008: END LOOP;
17009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17012: RAISE OKL_API.G_EXCEPTION_ERROR;
17013: END IF;
17014: --Bug# 4161221: end
17007: END IF;
17008: END LOOP;
17009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17012: RAISE OKL_API.G_EXCEPTION_ERROR;
17013: END IF;
17014: --Bug# 4161221: end
17015:
17008: END LOOP;
17009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17012: RAISE OKL_API.G_EXCEPTION_ERROR;
17013: END IF;
17014: --Bug# 4161221: end
17015:
17016: lv_model_object_id1 := l_cimv_model_rec_out.object1_id1;
17029: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17030: x_fin_clev_rec => x_clev_fin_rec,
17031: x_fin_klev_rec => l_klev_fin_rec_out,
17032: x_oec => ln_klev_fin_oec,
17033: p_validate_fin_line => OKL_API.G_TRUE);
17034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17030: x_fin_clev_rec => x_clev_fin_rec,
17031: x_fin_klev_rec => l_klev_fin_rec_out,
17032: x_oec => ln_klev_fin_oec,
17033: p_validate_fin_line => OKL_API.G_TRUE);
17034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17038: END IF;
17031: x_fin_klev_rec => l_klev_fin_rec_out,
17032: x_oec => ln_klev_fin_oec,
17033: p_validate_fin_line => OKL_API.G_TRUE);
17034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17038: END IF;
17039: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17032: x_oec => ln_klev_fin_oec,
17033: p_validate_fin_line => OKL_API.G_TRUE);
17034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17038: END IF;
17039: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17040: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17033: p_validate_fin_line => OKL_API.G_TRUE);
17034: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17038: END IF;
17039: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17040: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17041: p_init_msg_list => p_init_msg_list,
17049: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17050: x_fin_clev_rec => x_clev_fin_rec,
17051: x_fin_klev_rec => l_klev_fin_rec_out,
17052: x_cap_amt => ln_klev_fin_cap,
17053: p_validate_fin_line => OKL_API.G_TRUE);
17054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17050: x_fin_clev_rec => x_clev_fin_rec,
17051: x_fin_klev_rec => l_klev_fin_rec_out,
17052: x_cap_amt => ln_klev_fin_cap,
17053: p_validate_fin_line => OKL_API.G_TRUE);
17054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17051: x_fin_klev_rec => l_klev_fin_rec_out,
17052: x_cap_amt => ln_klev_fin_cap,
17053: p_validate_fin_line => OKL_API.G_TRUE);
17054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17059: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17052: x_cap_amt => ln_klev_fin_cap,
17053: p_validate_fin_line => OKL_API.G_TRUE);
17054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17059: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17060: l_klev_fin_rec.residual_percentage := null;
17053: p_validate_fin_line => OKL_API.G_TRUE);
17054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17059: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17060: l_klev_fin_rec.residual_percentage := null;
17061: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17059: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17060: l_klev_fin_rec.residual_percentage := null;
17061: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17062: l_klev_fin_rec.residual_value := null;
17063: END IF;
17057: RAISE OKL_API.G_EXCEPTION_ERROR;
17058: END IF;
17059: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17060: l_klev_fin_rec.residual_percentage := null;
17061: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17062: l_klev_fin_rec.residual_value := null;
17063: END IF;
17064: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17065: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17062: l_klev_fin_rec.residual_value := null;
17063: END IF;
17064: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17065: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17066: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17067: (l_klev_fin_rec.residual_value IS NOT NULL OR
17068: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17069: IF l_klev_fin_rec.residual_value <> r_klev_fin_rec.residual_value THEN
17070:
17064: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17065: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17066: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17067: (l_klev_fin_rec.residual_value IS NOT NULL OR
17068: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17069: IF l_klev_fin_rec.residual_value <> r_klev_fin_rec.residual_value THEN
17070:
17071: l_top_line_id := x_clev_fin_rec.id;
17072: l_oec := l_klev_fin_rec_out.oec;
17083: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
17084: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17085: x_fin_clev_rec => x_clev_fin_rec,
17086: x_fin_klev_rec => l_klev_fin_rec_out,
17087: p_validate_fin_line => OKL_API.G_TRUE);
17088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17091: RAISE OKL_API.G_EXCEPTION_ERROR;
17084: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17085: x_fin_clev_rec => x_clev_fin_rec,
17086: x_fin_klev_rec => l_klev_fin_rec_out,
17087: p_validate_fin_line => OKL_API.G_TRUE);
17088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17091: RAISE OKL_API.G_EXCEPTION_ERROR;
17092: END IF;
17085: x_fin_clev_rec => x_clev_fin_rec,
17086: x_fin_klev_rec => l_klev_fin_rec_out,
17087: p_validate_fin_line => OKL_API.G_TRUE);
17088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17091: RAISE OKL_API.G_EXCEPTION_ERROR;
17092: END IF;
17093: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17086: x_fin_klev_rec => l_klev_fin_rec_out,
17087: p_validate_fin_line => OKL_API.G_TRUE);
17088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17091: RAISE OKL_API.G_EXCEPTION_ERROR;
17092: END IF;
17093: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17094: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17087: p_validate_fin_line => OKL_API.G_TRUE);
17088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17091: RAISE OKL_API.G_EXCEPTION_ERROR;
17092: END IF;
17093: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17094: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17095: p_init_msg_list => p_init_msg_list,
17103: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17104: x_fin_clev_rec => x_clev_fin_rec,
17105: x_fin_klev_rec => l_klev_fin_rec_out,
17106: x_res_value => ln_klev_fin_res,
17107: p_validate_fin_line => OKL_API.G_TRUE);
17108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17104: x_fin_clev_rec => x_clev_fin_rec,
17105: x_fin_klev_rec => l_klev_fin_rec_out,
17106: x_res_value => ln_klev_fin_res,
17107: p_validate_fin_line => OKL_API.G_TRUE);
17108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17112: END IF;
17105: x_fin_klev_rec => l_klev_fin_rec_out,
17106: x_res_value => ln_klev_fin_res,
17107: p_validate_fin_line => OKL_API.G_TRUE);
17108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17112: END IF;
17113: END IF;
17106: x_res_value => ln_klev_fin_res,
17107: p_validate_fin_line => OKL_API.G_TRUE);
17108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17112: END IF;
17113: END IF;
17114: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17107: p_validate_fin_line => OKL_API.G_TRUE);
17108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17112: END IF;
17113: END IF;
17114: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17115: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17111: RAISE OKL_API.G_EXCEPTION_ERROR;
17112: END IF;
17113: END IF;
17114: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17115: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17116: (l_klev_fin_rec.residual_value IS NOT NULL OR
17117: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17118:
17119: l_top_line_id := x_clev_fin_rec.id;
17113: END IF;
17114: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17115: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17116: (l_klev_fin_rec.residual_value IS NOT NULL OR
17117: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17118:
17119: l_top_line_id := x_clev_fin_rec.id;
17120: l_oec := l_klev_fin_rec_out.oec;
17121:
17131: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
17132: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17133: x_fin_clev_rec => x_clev_fin_rec,
17134: x_fin_klev_rec => l_klev_fin_rec_out,
17135: p_validate_fin_line => OKL_API.G_TRUE);
17136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17132: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17133: x_fin_clev_rec => x_clev_fin_rec,
17134: x_fin_klev_rec => l_klev_fin_rec_out,
17135: p_validate_fin_line => OKL_API.G_TRUE);
17136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17140: END IF;
17133: x_fin_clev_rec => x_clev_fin_rec,
17134: x_fin_klev_rec => l_klev_fin_rec_out,
17135: p_validate_fin_line => OKL_API.G_TRUE);
17136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17140: END IF;
17141: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17134: x_fin_klev_rec => l_klev_fin_rec_out,
17135: p_validate_fin_line => OKL_API.G_TRUE);
17136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17140: END IF;
17141: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17142: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17135: p_validate_fin_line => OKL_API.G_TRUE);
17136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17140: END IF;
17141: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17142: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17143: (l_klev_fin_rec.residual_value IS NULL OR
17138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17139: RAISE OKL_API.G_EXCEPTION_ERROR;
17140: END IF;
17141: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17142: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17143: (l_klev_fin_rec.residual_value IS NULL OR
17144: l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
17145: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17146: p_init_msg_list => p_init_msg_list,
17140: END IF;
17141: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17142: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17143: (l_klev_fin_rec.residual_value IS NULL OR
17144: l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
17145: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17146: p_init_msg_list => p_init_msg_list,
17147: x_return_status => x_return_status,
17148: x_msg_count => x_msg_count,
17154: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17155: x_fin_clev_rec => x_clev_fin_rec,
17156: x_fin_klev_rec => l_klev_fin_rec_out,
17157: x_res_value => ln_klev_fin_res,
17158: p_validate_fin_line => OKL_API.G_TRUE);
17159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17162: RAISE OKL_API.G_EXCEPTION_ERROR;
17155: x_fin_clev_rec => x_clev_fin_rec,
17156: x_fin_klev_rec => l_klev_fin_rec_out,
17157: x_res_value => ln_klev_fin_res,
17158: p_validate_fin_line => OKL_API.G_TRUE);
17159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17162: RAISE OKL_API.G_EXCEPTION_ERROR;
17163: END IF;
17156: x_fin_klev_rec => l_klev_fin_rec_out,
17157: x_res_value => ln_klev_fin_res,
17158: p_validate_fin_line => OKL_API.G_TRUE);
17159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17162: RAISE OKL_API.G_EXCEPTION_ERROR;
17163: END IF;
17164: END IF;
17157: x_res_value => ln_klev_fin_res,
17158: p_validate_fin_line => OKL_API.G_TRUE);
17159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17162: RAISE OKL_API.G_EXCEPTION_ERROR;
17163: END IF;
17164: END IF;
17165: END IF;
17158: p_validate_fin_line => OKL_API.G_TRUE);
17159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17162: RAISE OKL_API.G_EXCEPTION_ERROR;
17163: END IF;
17164: END IF;
17165: END IF;
17166: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17163: END IF;
17164: END IF;
17165: END IF;
17166: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17167: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17168: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17169: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17170: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17171: OKL_API.set_message(p_app_name => G_APP_NAME,
17165: END IF;
17166: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17167: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17168: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17169: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17170: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17171: OKL_API.set_message(p_app_name => G_APP_NAME,
17172: p_msg_name => G_SALVAGE_VALUE);
17173: RAISE OKL_API.G_EXCEPTION_ERROR;
17167: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17168: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17169: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17170: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17171: OKL_API.set_message(p_app_name => G_APP_NAME,
17172: p_msg_name => G_SALVAGE_VALUE);
17173: RAISE OKL_API.G_EXCEPTION_ERROR;
17174: END IF;
17175: END IF;
17169: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17170: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17171: OKL_API.set_message(p_app_name => G_APP_NAME,
17172: p_msg_name => G_SALVAGE_VALUE);
17173: RAISE OKL_API.G_EXCEPTION_ERROR;
17174: END IF;
17175: END IF;
17176: -- Updating of the Fixed Asset Line Process
17177: -- To Get the cle fa Line Record
17176: -- Updating of the Fixed Asset Line Process
17177: -- To Get the cle fa Line Record
17178: x_return_status := get_rec_clev(l_clev_fa_rec.id,
17179: r_clev_fa_rec);
17180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17181: OKL_API.set_message(p_app_name => G_APP_NAME,
17182: p_msg_name => G_FETCHING_INFO,
17183: p_token1 => G_REC_NAME_TOKEN,
17184: p_token1_value => 'OKC_K_LINES_V Record');
17177: -- To Get the cle fa Line Record
17178: x_return_status := get_rec_clev(l_clev_fa_rec.id,
17179: r_clev_fa_rec);
17180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17181: OKL_API.set_message(p_app_name => G_APP_NAME,
17182: p_msg_name => G_FETCHING_INFO,
17183: p_token1 => G_REC_NAME_TOKEN,
17184: p_token1_value => 'OKC_K_LINES_V Record');
17185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17181: OKL_API.set_message(p_app_name => G_APP_NAME,
17182: p_msg_name => G_FETCHING_INFO,
17183: p_token1 => G_REC_NAME_TOKEN,
17184: p_token1_value => 'OKC_K_LINES_V Record');
17185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17187: OKL_API.set_message(p_app_name => G_APP_NAME,
17188: p_msg_name => G_FETCHING_INFO,
17189: p_token1 => G_REC_NAME_TOKEN,
17182: p_msg_name => G_FETCHING_INFO,
17183: p_token1 => G_REC_NAME_TOKEN,
17184: p_token1_value => 'OKC_K_LINES_V Record');
17185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17187: OKL_API.set_message(p_app_name => G_APP_NAME,
17188: p_msg_name => G_FETCHING_INFO,
17189: p_token1 => G_REC_NAME_TOKEN,
17190: p_token1_value => 'OKC_K_LINES_V Record');
17183: p_token1 => G_REC_NAME_TOKEN,
17184: p_token1_value => 'OKC_K_LINES_V Record');
17185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17187: OKL_API.set_message(p_app_name => G_APP_NAME,
17188: p_msg_name => G_FETCHING_INFO,
17189: p_token1 => G_REC_NAME_TOKEN,
17190: p_token1_value => 'OKC_K_LINES_V Record');
17191: RAISE OKL_API.G_EXCEPTION_ERROR;
17187: OKL_API.set_message(p_app_name => G_APP_NAME,
17188: p_msg_name => G_FETCHING_INFO,
17189: p_token1 => G_REC_NAME_TOKEN,
17190: p_token1_value => 'OKC_K_LINES_V Record');
17191: RAISE OKL_API.G_EXCEPTION_ERROR;
17192: END IF;
17193: -- To Get the kle fa Line Record
17194: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17195: r_klev_fa_rec);
17192: END IF;
17193: -- To Get the kle fa Line Record
17194: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17195: r_klev_fa_rec);
17196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17197: OKL_API.set_message(p_app_name => G_APP_NAME,
17198: p_msg_name => G_FETCHING_INFO,
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17193: -- To Get the kle fa Line Record
17194: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17195: r_klev_fa_rec);
17196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17197: OKL_API.set_message(p_app_name => G_APP_NAME,
17198: p_msg_name => G_FETCHING_INFO,
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: OKL_API.set_message(p_app_name => G_APP_NAME,
17198: p_msg_name => G_FETCHING_INFO,
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17202: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17205: p_token1 => G_REC_NAME_TOKEN,
17198: p_msg_name => G_FETCHING_INFO,
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17202: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17205: p_token1 => G_REC_NAME_TOKEN,
17206: p_token1_value => 'OKL_K_LINES_V Record');
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17202: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17205: p_token1 => G_REC_NAME_TOKEN,
17206: p_token1_value => 'OKL_K_LINES_V Record');
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17205: p_token1 => G_REC_NAME_TOKEN,
17206: p_token1_value => 'OKL_K_LINES_V Record');
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17210: OKL_API.set_message(p_app_name => G_APP_NAME,
17211: p_msg_name => G_LINE_RECORD);
17206: p_token1_value => 'OKL_K_LINES_V Record');
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17210: OKL_API.set_message(p_app_name => G_APP_NAME,
17211: p_msg_name => G_LINE_RECORD);
17212: RAISE OKL_API.G_EXCEPTION_ERROR;
17213: END IF;
17214: -- Build clev fa Line Record
17208: END IF;
17209: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17210: OKL_API.set_message(p_app_name => G_APP_NAME,
17211: p_msg_name => G_LINE_RECORD);
17212: RAISE OKL_API.G_EXCEPTION_ERROR;
17213: END IF;
17214: -- Build clev fa Line Record
17215: l_clev_fa_rec.chr_id := null;
17216: IF (l_clev_fa_rec.cle_id IS NUll OR
17213: END IF;
17214: -- Build clev fa Line Record
17215: l_clev_fa_rec.chr_id := null;
17216: IF (l_clev_fa_rec.cle_id IS NUll OR
17217: l_clev_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17218: l_clev_fa_rec.cle_id := r_clev_fa_rec.cle_id;
17219: END IF;
17220: IF (l_clev_fa_rec.dnz_chr_id IS NUll OR
17221: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17217: l_clev_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17218: l_clev_fa_rec.cle_id := r_clev_fa_rec.cle_id;
17219: END IF;
17220: IF (l_clev_fa_rec.dnz_chr_id IS NUll OR
17221: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17222: l_clev_fa_rec.dnz_chr_id := r_clev_fa_rec.dnz_chr_id;
17223: END IF;
17224: IF (l_clev_fa_rec.display_sequence IS NUll OR
17225: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17221: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17222: l_clev_fa_rec.dnz_chr_id := r_clev_fa_rec.dnz_chr_id;
17223: END IF;
17224: IF (l_clev_fa_rec.display_sequence IS NUll OR
17225: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17226: l_clev_fa_rec.display_sequence := r_clev_fa_rec.display_sequence;
17227: END IF;
17228: IF (l_clev_fa_rec.lse_id IS NUll OR
17229: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17225: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17226: l_clev_fa_rec.display_sequence := r_clev_fa_rec.display_sequence;
17227: END IF;
17228: IF (l_clev_fa_rec.lse_id IS NUll OR
17229: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17230: l_clev_fa_rec.lse_id := r_clev_fa_rec.lse_id;
17231: END IF;
17232: IF (l_clev_fa_rec.exception_yn IS NUll OR
17233: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17229: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17230: l_clev_fa_rec.lse_id := r_clev_fa_rec.lse_id;
17231: END IF;
17232: IF (l_clev_fa_rec.exception_yn IS NUll OR
17233: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17234: l_clev_fa_rec.exception_yn := r_clev_fa_rec.exception_yn;
17235: END IF;
17236: IF (l_clev_fa_rec.line_number IS NUll OR
17237: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17233: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17234: l_clev_fa_rec.exception_yn := r_clev_fa_rec.exception_yn;
17235: END IF;
17236: IF (l_clev_fa_rec.line_number IS NUll OR
17237: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17238: l_clev_fa_rec.line_number := r_clev_fa_rec.line_number;
17239: END IF;
17240: IF (l_clev_fa_rec.sts_code IS NUll OR
17241: l_clev_fa_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17237: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17238: l_clev_fa_rec.line_number := r_clev_fa_rec.line_number;
17239: END IF;
17240: IF (l_clev_fa_rec.sts_code IS NUll OR
17241: l_clev_fa_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17242: l_clev_fa_rec.sts_code := r_clev_fa_rec.sts_code;
17243: END IF;
17244: -- Build klev fa Line Record
17245: l_klev_fa_rec := r_klev_fa_rec;
17246: -- To Get the cimv fa Line Record
17247: x_return_status := get_rec_cimv(l_clev_fa_rec.id,
17248: l_clev_fa_rec.dnz_chr_id,
17249: r_cimv_fa_rec);
17250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17251: OKL_API.set_message(p_app_name => G_APP_NAME,
17252: p_msg_name => G_FETCHING_INFO,
17253: p_token1 => G_REC_NAME_TOKEN,
17254: p_token1_value => 'OKC_K_ITEMS_V Record');
17247: x_return_status := get_rec_cimv(l_clev_fa_rec.id,
17248: l_clev_fa_rec.dnz_chr_id,
17249: r_cimv_fa_rec);
17250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17251: OKL_API.set_message(p_app_name => G_APP_NAME,
17252: p_msg_name => G_FETCHING_INFO,
17253: p_token1 => G_REC_NAME_TOKEN,
17254: p_token1_value => 'OKC_K_ITEMS_V Record');
17255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: OKL_API.set_message(p_app_name => G_APP_NAME,
17252: p_msg_name => G_FETCHING_INFO,
17253: p_token1 => G_REC_NAME_TOKEN,
17254: p_token1_value => 'OKC_K_ITEMS_V Record');
17255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17257: OKL_API.set_message(p_app_name => G_APP_NAME,
17258: p_msg_name => G_FETCHING_INFO,
17259: p_token1 => G_REC_NAME_TOKEN,
17252: p_msg_name => G_FETCHING_INFO,
17253: p_token1 => G_REC_NAME_TOKEN,
17254: p_token1_value => 'OKC_K_ITEMS_V Record');
17255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17257: OKL_API.set_message(p_app_name => G_APP_NAME,
17258: p_msg_name => G_FETCHING_INFO,
17259: p_token1 => G_REC_NAME_TOKEN,
17260: p_token1_value => 'OKC_K_ITEMS_V Record');
17253: p_token1 => G_REC_NAME_TOKEN,
17254: p_token1_value => 'OKC_K_ITEMS_V Record');
17255: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17256: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17257: OKL_API.set_message(p_app_name => G_APP_NAME,
17258: p_msg_name => G_FETCHING_INFO,
17259: p_token1 => G_REC_NAME_TOKEN,
17260: p_token1_value => 'OKC_K_ITEMS_V Record');
17261: RAISE OKL_API.G_EXCEPTION_ERROR;
17257: OKL_API.set_message(p_app_name => G_APP_NAME,
17258: p_msg_name => G_FETCHING_INFO,
17259: p_token1 => G_REC_NAME_TOKEN,
17260: p_token1_value => 'OKC_K_ITEMS_V Record');
17261: RAISE OKL_API.G_EXCEPTION_ERROR;
17262: END IF;
17263: --Build cimv fa item rec
17264: l_cimv_fa_rec.id := r_cimv_fa_rec.id;
17265: IF (l_cimv_fa_rec.exception_yn IS NUll OR
17262: END IF;
17263: --Build cimv fa item rec
17264: l_cimv_fa_rec.id := r_cimv_fa_rec.id;
17265: IF (l_cimv_fa_rec.exception_yn IS NUll OR
17266: l_cimv_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17267: l_cimv_fa_rec.exception_yn := r_cimv_fa_rec.exception_yn;
17268: END IF;
17269: IF (l_cimv_fa_rec.dnz_chr_id IS NUll OR
17270: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17266: l_cimv_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17267: l_cimv_fa_rec.exception_yn := r_cimv_fa_rec.exception_yn;
17268: END IF;
17269: IF (l_cimv_fa_rec.dnz_chr_id IS NUll OR
17270: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17271: l_cimv_fa_rec.dnz_chr_id := r_cimv_fa_rec.dnz_chr_id;
17272: END IF;
17273: IF (l_cimv_fa_rec.cle_id IS NUll OR
17274: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17270: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17271: l_cimv_fa_rec.dnz_chr_id := r_cimv_fa_rec.dnz_chr_id;
17272: END IF;
17273: IF (l_cimv_fa_rec.cle_id IS NUll OR
17274: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17275: l_cimv_fa_rec.cle_id := r_cimv_fa_rec.cle_id;
17276: END IF;
17277: IF (l_cimv_fa_rec.object1_id1 IS NUll OR
17278: l_cimv_fa_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17274: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17275: l_cimv_fa_rec.cle_id := r_cimv_fa_rec.cle_id;
17276: END IF;
17277: IF (l_cimv_fa_rec.object1_id1 IS NUll OR
17278: l_cimv_fa_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17279: l_cimv_fa_rec.object1_id1 := null;
17280: ELSE
17281: l_cimv_fa_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17282: END IF;
17280: ELSE
17281: l_cimv_fa_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17282: END IF;
17283: IF (l_cimv_fa_rec.object1_id2 IS NUll OR
17284: l_cimv_fa_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
17285: l_cimv_fa_rec.object1_id2 := null;
17286: ELSE
17287: l_cimv_fa_rec.object1_id2 := r_cimv_ib_rec.cle_id;
17288: END IF;
17294: l_talv_fa_rec.tal_type := r_talv_fa_rec.tal_type;
17295: l_talv_fa_rec.line_number := r_talv_fa_rec.line_number;
17296: l_talv_fa_rec.asset_number := p_asset_number;
17297: IF (l_talv_fa_rec.kle_id IS NUll OR
17298: l_talv_fa_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17299: l_talv_fa_rec.kle_id := r_talv_fa_rec.kle_id;
17300: END IF;
17301: IF (l_talv_fa_rec.original_cost IS NUll OR
17302: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17298: l_talv_fa_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17299: l_talv_fa_rec.kle_id := r_talv_fa_rec.kle_id;
17300: END IF;
17301: IF (l_talv_fa_rec.original_cost IS NUll OR
17302: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17303: l_talv_fa_rec.original_cost := r_talv_fa_rec.original_cost;
17304: END IF;
17305: IF (l_talv_fa_rec.depreciation_cost IS NUll OR
17306: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM) THEN
17302: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17303: l_talv_fa_rec.original_cost := r_talv_fa_rec.original_cost;
17304: END IF;
17305: IF (l_talv_fa_rec.depreciation_cost IS NUll OR
17306: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM) THEN
17307: l_talv_fa_rec.depreciation_cost := r_talv_fa_rec.depreciation_cost;
17308: END IF;
17309:
17310: IF (l_talv_fa_rec.description IS NUll OR
17307: l_talv_fa_rec.depreciation_cost := r_talv_fa_rec.depreciation_cost;
17308: END IF;
17309:
17310: IF (l_talv_fa_rec.description IS NUll OR
17311: l_talv_fa_rec.description = OKL_API.G_MISS_CHAR) THEN
17312: l_talv_fa_rec.description := r_talv_fa_rec.description;
17313: END IF;
17314: IF (l_talv_fa_rec.current_units IS NUll OR
17315: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
17311: l_talv_fa_rec.description = OKL_API.G_MISS_CHAR) THEN
17312: l_talv_fa_rec.description := r_talv_fa_rec.description;
17313: END IF;
17314: IF (l_talv_fa_rec.current_units IS NUll OR
17315: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
17316: l_talv_fa_rec.current_units := r_talv_fa_rec.current_units;
17317: END IF;
17318:
17319: --Bug# 4899328: For online rebook, update depreciation_cost and
17364: x_clev_rec => x_clev_fa_rec,
17365: x_klev_rec => l_klev_fa_rec_out,
17366: x_cimv_rec => l_cimv_fa_rec_out,
17367: x_talv_rec => l_talv_fa_rec_out);
17368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17371: RAISE OKL_API.G_EXCEPTION_ERROR;
17372: END IF;
17365: x_klev_rec => l_klev_fa_rec_out,
17366: x_cimv_rec => l_cimv_fa_rec_out,
17367: x_talv_rec => l_talv_fa_rec_out);
17368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17371: RAISE OKL_API.G_EXCEPTION_ERROR;
17372: END IF;
17373: -- Updating Asset Lines Details Asset Number
17366: x_cimv_rec => l_cimv_fa_rec_out,
17367: x_talv_rec => l_talv_fa_rec_out);
17368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17371: RAISE OKL_API.G_EXCEPTION_ERROR;
17372: END IF;
17373: -- Updating Asset Lines Details Asset Number
17374: update_asset_line_details(p_api_version => p_api_version,
17367: x_talv_rec => l_talv_fa_rec_out);
17368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17371: RAISE OKL_API.G_EXCEPTION_ERROR;
17372: END IF;
17373: -- Updating Asset Lines Details Asset Number
17374: update_asset_line_details(p_api_version => p_api_version,
17375: p_init_msg_list => p_init_msg_list,
17378: x_msg_data => x_msg_data,
17379: p_asset_number => p_asset_number,
17380: p_original_cost => l_talv_fa_rec_out.original_cost,
17381: p_tal_id => l_talv_fa_rec_out.ID);
17382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17385: RAISE OKL_API.G_EXCEPTION_ERROR;
17386: END IF;
17379: p_asset_number => p_asset_number,
17380: p_original_cost => l_talv_fa_rec_out.original_cost,
17381: p_tal_id => l_talv_fa_rec_out.ID);
17382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17385: RAISE OKL_API.G_EXCEPTION_ERROR;
17386: END IF;
17387: IF p_new_yn = 'Y' THEN
17380: p_original_cost => l_talv_fa_rec_out.original_cost,
17381: p_tal_id => l_talv_fa_rec_out.ID);
17382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17385: RAISE OKL_API.G_EXCEPTION_ERROR;
17386: END IF;
17387: IF p_new_yn = 'Y' THEN
17388: -- Updating of the Install Base Line Process
17381: p_tal_id => l_talv_fa_rec_out.ID);
17382: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17383: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17384: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17385: RAISE OKL_API.G_EXCEPTION_ERROR;
17386: END IF;
17387: IF p_new_yn = 'Y' THEN
17388: -- Updating of the Install Base Line Process
17389: -- To Get the cle IB Line Record
17388: -- Updating of the Install Base Line Process
17389: -- To Get the cle IB Line Record
17390: x_return_status := get_rec_clev(l_clev_ib_rec.id,
17391: r_clev_ib_rec);
17392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17393: OKL_API.set_message(p_app_name => G_APP_NAME,
17394: p_msg_name => G_FETCHING_INFO,
17395: p_token1 => G_REC_NAME_TOKEN,
17396: p_token1_value => 'OKC_K_LINES_V Record');
17389: -- To Get the cle IB Line Record
17390: x_return_status := get_rec_clev(l_clev_ib_rec.id,
17391: r_clev_ib_rec);
17392: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17393: OKL_API.set_message(p_app_name => G_APP_NAME,
17394: p_msg_name => G_FETCHING_INFO,
17395: p_token1 => G_REC_NAME_TOKEN,
17396: p_token1_value => 'OKC_K_LINES_V Record');
17397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17393: OKL_API.set_message(p_app_name => G_APP_NAME,
17394: p_msg_name => G_FETCHING_INFO,
17395: p_token1 => G_REC_NAME_TOKEN,
17396: p_token1_value => 'OKC_K_LINES_V Record');
17397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17399: OKL_API.set_message(p_app_name => G_APP_NAME,
17400: p_msg_name => G_FETCHING_INFO,
17401: p_token1 => G_REC_NAME_TOKEN,
17394: p_msg_name => G_FETCHING_INFO,
17395: p_token1 => G_REC_NAME_TOKEN,
17396: p_token1_value => 'OKC_K_LINES_V Record');
17397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17399: OKL_API.set_message(p_app_name => G_APP_NAME,
17400: p_msg_name => G_FETCHING_INFO,
17401: p_token1 => G_REC_NAME_TOKEN,
17402: p_token1_value => 'OKC_K_LINES_V Record');
17395: p_token1 => G_REC_NAME_TOKEN,
17396: p_token1_value => 'OKC_K_LINES_V Record');
17397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17399: OKL_API.set_message(p_app_name => G_APP_NAME,
17400: p_msg_name => G_FETCHING_INFO,
17401: p_token1 => G_REC_NAME_TOKEN,
17402: p_token1_value => 'OKC_K_LINES_V Record');
17403: RAISE OKL_API.G_EXCEPTION_ERROR;
17399: OKL_API.set_message(p_app_name => G_APP_NAME,
17400: p_msg_name => G_FETCHING_INFO,
17401: p_token1 => G_REC_NAME_TOKEN,
17402: p_token1_value => 'OKC_K_LINES_V Record');
17403: RAISE OKL_API.G_EXCEPTION_ERROR;
17404: END IF;
17405: -- To Get the kle IB Line Record
17406: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17407: r_klev_ib_rec);
17404: END IF;
17405: -- To Get the kle IB Line Record
17406: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17407: r_klev_ib_rec);
17408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17409: OKL_API.set_message(p_app_name => G_APP_NAME,
17410: p_msg_name => G_FETCHING_INFO,
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17405: -- To Get the kle IB Line Record
17406: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17407: r_klev_ib_rec);
17408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17409: OKL_API.set_message(p_app_name => G_APP_NAME,
17410: p_msg_name => G_FETCHING_INFO,
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17409: OKL_API.set_message(p_app_name => G_APP_NAME,
17410: p_msg_name => G_FETCHING_INFO,
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17417: p_token1 => G_REC_NAME_TOKEN,
17410: p_msg_name => G_FETCHING_INFO,
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17417: p_token1 => G_REC_NAME_TOKEN,
17418: p_token1_value => 'OKL_K_LINES_V Record');
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17417: p_token1 => G_REC_NAME_TOKEN,
17418: p_token1_value => 'OKL_K_LINES_V Record');
17419: RAISE OKL_API.G_EXCEPTION_ERROR;
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17417: p_token1 => G_REC_NAME_TOKEN,
17418: p_token1_value => 'OKL_K_LINES_V Record');
17419: RAISE OKL_API.G_EXCEPTION_ERROR;
17420: END IF;
17421: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17422: OKL_API.set_message(p_app_name => G_APP_NAME,
17423: p_msg_name => G_LINE_RECORD);
17418: p_token1_value => 'OKL_K_LINES_V Record');
17419: RAISE OKL_API.G_EXCEPTION_ERROR;
17420: END IF;
17421: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17422: OKL_API.set_message(p_app_name => G_APP_NAME,
17423: p_msg_name => G_LINE_RECORD);
17424: RAISE OKL_API.G_EXCEPTION_ERROR;
17425: END IF;
17426: --Build the clev Top Line Record
17420: END IF;
17421: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17422: OKL_API.set_message(p_app_name => G_APP_NAME,
17423: p_msg_name => G_LINE_RECORD);
17424: RAISE OKL_API.G_EXCEPTION_ERROR;
17425: END IF;
17426: --Build the clev Top Line Record
17427: l_clev_ib_rec.chr_id := null;
17428: IF (l_clev_ib_rec.cle_id IS NUll OR
17425: END IF;
17426: --Build the clev Top Line Record
17427: l_clev_ib_rec.chr_id := null;
17428: IF (l_clev_ib_rec.cle_id IS NUll OR
17429: l_clev_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17430: l_clev_ib_rec.cle_id := r_clev_ib_rec.cle_id;
17431: END IF;
17432: IF (l_clev_ib_rec.dnz_chr_id IS NUll OR
17433: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17429: l_clev_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17430: l_clev_ib_rec.cle_id := r_clev_ib_rec.cle_id;
17431: END IF;
17432: IF (l_clev_ib_rec.dnz_chr_id IS NUll OR
17433: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17434: l_clev_ib_rec.dnz_chr_id := r_clev_ib_rec.dnz_chr_id;
17435: END IF;
17436: IF (l_clev_ib_rec.lse_id IS NUll OR
17437: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17433: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17434: l_clev_ib_rec.dnz_chr_id := r_clev_ib_rec.dnz_chr_id;
17435: END IF;
17436: IF (l_clev_ib_rec.lse_id IS NUll OR
17437: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17438: l_clev_ib_rec.lse_id := r_clev_ib_rec.lse_id;
17439: END IF;
17440: IF (l_clev_ib_rec.display_sequence IS NUll OR
17441: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17437: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17438: l_clev_ib_rec.lse_id := r_clev_ib_rec.lse_id;
17439: END IF;
17440: IF (l_clev_ib_rec.display_sequence IS NUll OR
17441: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17442: l_clev_ib_rec.display_sequence := r_clev_ib_rec.display_sequence;
17443: END IF;
17444: IF (l_clev_ib_rec.exception_yn IS NUll OR
17445: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17441: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17442: l_clev_ib_rec.display_sequence := r_clev_ib_rec.display_sequence;
17443: END IF;
17444: IF (l_clev_ib_rec.exception_yn IS NUll OR
17445: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17446: l_clev_ib_rec.exception_yn := r_clev_ib_rec.exception_yn;
17447: END IF;
17448: IF (l_clev_ib_rec.line_number IS NUll OR
17449: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17445: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17446: l_clev_ib_rec.exception_yn := r_clev_ib_rec.exception_yn;
17447: END IF;
17448: IF (l_clev_ib_rec.line_number IS NUll OR
17449: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17450: l_clev_ib_rec.line_number := r_clev_ib_rec.line_number;
17451: END IF;
17452: IF (l_clev_ib_rec.sts_code IS NUll OR
17453: l_clev_ib_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17449: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17450: l_clev_ib_rec.line_number := r_clev_ib_rec.line_number;
17451: END IF;
17452: IF (l_clev_ib_rec.sts_code IS NUll OR
17453: l_clev_ib_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17454: l_clev_ib_rec.sts_code := r_clev_ib_rec.sts_code;
17455: END IF;
17456: --Build the klev Top Line Record
17457: l_klev_ib_rec := r_klev_ib_rec;
17458: -- To Get the cimv ib Line Record
17459: x_return_status := get_rec_cimv(l_clev_ib_rec.id,
17460: l_clev_fin_rec.dnz_chr_id,
17461: r_cimv_ib_rec);
17462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17463: OKL_API.set_message(p_app_name => G_APP_NAME,
17464: p_msg_name => G_FETCHING_INFO,
17465: p_token1 => G_REC_NAME_TOKEN,
17466: p_token1_value => 'OKC_K_ITEMS_V Record');
17459: x_return_status := get_rec_cimv(l_clev_ib_rec.id,
17460: l_clev_fin_rec.dnz_chr_id,
17461: r_cimv_ib_rec);
17462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17463: OKL_API.set_message(p_app_name => G_APP_NAME,
17464: p_msg_name => G_FETCHING_INFO,
17465: p_token1 => G_REC_NAME_TOKEN,
17466: p_token1_value => 'OKC_K_ITEMS_V Record');
17467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17463: OKL_API.set_message(p_app_name => G_APP_NAME,
17464: p_msg_name => G_FETCHING_INFO,
17465: p_token1 => G_REC_NAME_TOKEN,
17466: p_token1_value => 'OKC_K_ITEMS_V Record');
17467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17469: OKL_API.set_message(p_app_name => G_APP_NAME,
17470: p_msg_name => G_FETCHING_INFO,
17471: p_token1 => G_REC_NAME_TOKEN,
17464: p_msg_name => G_FETCHING_INFO,
17465: p_token1 => G_REC_NAME_TOKEN,
17466: p_token1_value => 'OKC_K_ITEMS_V Record');
17467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17469: OKL_API.set_message(p_app_name => G_APP_NAME,
17470: p_msg_name => G_FETCHING_INFO,
17471: p_token1 => G_REC_NAME_TOKEN,
17472: p_token1_value => 'OKC_K_ITEMS_V Record');
17465: p_token1 => G_REC_NAME_TOKEN,
17466: p_token1_value => 'OKC_K_ITEMS_V Record');
17467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17469: OKL_API.set_message(p_app_name => G_APP_NAME,
17470: p_msg_name => G_FETCHING_INFO,
17471: p_token1 => G_REC_NAME_TOKEN,
17472: p_token1_value => 'OKC_K_ITEMS_V Record');
17473: RAISE OKL_API.G_EXCEPTION_ERROR;
17469: OKL_API.set_message(p_app_name => G_APP_NAME,
17470: p_msg_name => G_FETCHING_INFO,
17471: p_token1 => G_REC_NAME_TOKEN,
17472: p_token1_value => 'OKC_K_ITEMS_V Record');
17473: RAISE OKL_API.G_EXCEPTION_ERROR;
17474: END IF;
17475: --Build cimv ib item rec
17476: l_cimv_ib_rec.id := r_cimv_ib_rec.id;
17477: IF (l_cimv_ib_rec.exception_yn IS NUll OR
17474: END IF;
17475: --Build cimv ib item rec
17476: l_cimv_ib_rec.id := r_cimv_ib_rec.id;
17477: IF (l_cimv_ib_rec.exception_yn IS NUll OR
17478: l_cimv_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17479: l_cimv_ib_rec.exception_yn := r_cimv_ib_rec.exception_yn;
17480: END IF;
17481: IF (l_cimv_ib_rec.dnz_chr_id IS NUll OR
17482: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17478: l_cimv_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17479: l_cimv_ib_rec.exception_yn := r_cimv_ib_rec.exception_yn;
17480: END IF;
17481: IF (l_cimv_ib_rec.dnz_chr_id IS NUll OR
17482: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17483: l_cimv_ib_rec.dnz_chr_id := r_cimv_ib_rec.dnz_chr_id;
17484: END IF;
17485: IF (l_cimv_ib_rec.cle_id IS NUll OR
17486: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17482: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17483: l_cimv_ib_rec.dnz_chr_id := r_cimv_ib_rec.dnz_chr_id;
17484: END IF;
17485: IF (l_cimv_ib_rec.cle_id IS NUll OR
17486: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17487: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17488: END IF;
17489: IF (l_cimv_ib_rec.cle_id IS NUll OR
17490: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17486: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17487: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17488: END IF;
17489: IF (l_cimv_ib_rec.cle_id IS NUll OR
17490: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17491: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17492: END IF;
17493: IF (l_cimv_ib_rec.cle_id IS NUll OR
17494: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17490: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17491: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17492: END IF;
17493: IF (l_cimv_ib_rec.cle_id IS NUll OR
17494: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17495: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17496: END IF;
17497: IF (l_cimv_ib_rec.object1_id1 IS NUll OR
17498: l_cimv_ib_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17494: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17495: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17496: END IF;
17497: IF (l_cimv_ib_rec.object1_id1 IS NUll OR
17498: l_cimv_ib_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17499: l_cimv_ib_rec.object1_id1 := null;
17500: ELSE
17501: l_cimv_ib_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17502: END IF;
17500: ELSE
17501: l_cimv_ib_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17502: END IF;
17503: IF (l_cimv_ib_rec.object1_id2 IS NUll OR
17504: l_cimv_ib_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
17505: l_cimv_ib_rec.object1_id2 := null;
17506: ELSE
17507: l_cimv_ib_rec.object1_id2 := r_cimv_ib_rec.cle_id;
17508: END IF;
17508: END IF;
17509: -- To Get the itiv ib Line Record
17510: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
17511: r_itiv_ib_rec);
17512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17513: OKL_API.set_message(p_app_name => G_APP_NAME,
17514: p_msg_name => G_FETCHING_INFO,
17515: p_token1 => G_REC_NAME_TOKEN,
17516: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17509: -- To Get the itiv ib Line Record
17510: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
17511: r_itiv_ib_rec);
17512: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17513: OKL_API.set_message(p_app_name => G_APP_NAME,
17514: p_msg_name => G_FETCHING_INFO,
17515: p_token1 => G_REC_NAME_TOKEN,
17516: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17513: OKL_API.set_message(p_app_name => G_APP_NAME,
17514: p_msg_name => G_FETCHING_INFO,
17515: p_token1 => G_REC_NAME_TOKEN,
17516: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17519: OKL_API.set_message(p_app_name => G_APP_NAME,
17520: p_msg_name => G_FETCHING_INFO,
17521: p_token1 => G_REC_NAME_TOKEN,
17514: p_msg_name => G_FETCHING_INFO,
17515: p_token1 => G_REC_NAME_TOKEN,
17516: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17519: OKL_API.set_message(p_app_name => G_APP_NAME,
17520: p_msg_name => G_FETCHING_INFO,
17521: p_token1 => G_REC_NAME_TOKEN,
17522: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17515: p_token1 => G_REC_NAME_TOKEN,
17516: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17517: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17518: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17519: OKL_API.set_message(p_app_name => G_APP_NAME,
17520: p_msg_name => G_FETCHING_INFO,
17521: p_token1 => G_REC_NAME_TOKEN,
17522: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17523: RAISE OKL_API.G_EXCEPTION_ERROR;
17519: OKL_API.set_message(p_app_name => G_APP_NAME,
17520: p_msg_name => G_FETCHING_INFO,
17521: p_token1 => G_REC_NAME_TOKEN,
17522: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17523: RAISE OKL_API.G_EXCEPTION_ERROR;
17524: END IF;
17525: --Build itiv ib item rec
17526: l_itiv_ib_rec.id := r_itiv_ib_rec.id;
17527: l_itiv_ib_rec.object_version_number := r_itiv_ib_rec.object_version_number;
17527: l_itiv_ib_rec.object_version_number := r_itiv_ib_rec.object_version_number;
17528: l_itiv_ib_rec.tas_id := r_itiv_ib_rec.tas_id;
17529: l_itiv_ib_rec.line_number := r_itiv_ib_rec.line_number;
17530: IF (l_itiv_ib_rec.kle_id IS NUll OR
17531: l_itiv_ib_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17532: l_itiv_ib_rec.kle_id := r_itiv_ib_rec.kle_id;
17533: END IF;
17534: IF (l_itiv_ib_rec.instance_number_ib IS NUll OR
17535: l_itiv_ib_rec.instance_number_ib = OKL_API.G_MISS_CHAR) THEN
17531: l_itiv_ib_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17532: l_itiv_ib_rec.kle_id := r_itiv_ib_rec.kle_id;
17533: END IF;
17534: IF (l_itiv_ib_rec.instance_number_ib IS NUll OR
17535: l_itiv_ib_rec.instance_number_ib = OKL_API.G_MISS_CHAR) THEN
17536: l_itiv_ib_rec.instance_number_ib := r_itiv_ib_rec.instance_number_ib;
17537: END IF;
17538: -- Since the screen can give only party_site_id via l_itiv_tbl(j).object_id1_new
17539: -- We have to use the below function
17540: lv_object_id1_new := l_itiv_ib_rec.object_id1_new;
17541: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
17542: x_object_id1_new => l_itiv_ib_rec.object_id1_new,
17543: x_object_id2_new => l_itiv_ib_rec.object_id2_new);
17544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17545: OKL_API.set_message(p_app_name => G_APP_NAME,
17546: p_msg_name => G_NO_MATCHING_RECORD,
17547: p_token1 => G_COL_NAME_TOKEN,
17548: p_token1_value => 'Party_site_id');
17541: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
17542: x_object_id1_new => l_itiv_ib_rec.object_id1_new,
17543: x_object_id2_new => l_itiv_ib_rec.object_id2_new);
17544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17545: OKL_API.set_message(p_app_name => G_APP_NAME,
17546: p_msg_name => G_NO_MATCHING_RECORD,
17547: p_token1 => G_COL_NAME_TOKEN,
17548: p_token1_value => 'Party_site_id');
17549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17545: OKL_API.set_message(p_app_name => G_APP_NAME,
17546: p_msg_name => G_NO_MATCHING_RECORD,
17547: p_token1 => G_COL_NAME_TOKEN,
17548: p_token1_value => 'Party_site_id');
17549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17551: OKL_API.set_message(p_app_name => G_APP_NAME,
17552: p_msg_name => G_NO_MATCHING_RECORD,
17553: p_token1 => G_COL_NAME_TOKEN,
17546: p_msg_name => G_NO_MATCHING_RECORD,
17547: p_token1 => G_COL_NAME_TOKEN,
17548: p_token1_value => 'Party_site_id');
17549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17551: OKL_API.set_message(p_app_name => G_APP_NAME,
17552: p_msg_name => G_NO_MATCHING_RECORD,
17553: p_token1 => G_COL_NAME_TOKEN,
17554: p_token1_value => 'Party_site_id');
17547: p_token1 => G_COL_NAME_TOKEN,
17548: p_token1_value => 'Party_site_id');
17549: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17550: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17551: OKL_API.set_message(p_app_name => G_APP_NAME,
17552: p_msg_name => G_NO_MATCHING_RECORD,
17553: p_token1 => G_COL_NAME_TOKEN,
17554: p_token1_value => 'Party_site_id');
17555: RAISE OKL_API.G_EXCEPTION_ERROR;
17551: OKL_API.set_message(p_app_name => G_APP_NAME,
17552: p_msg_name => G_NO_MATCHING_RECORD,
17553: p_token1 => G_COL_NAME_TOKEN,
17554: p_token1_value => 'Party_site_id');
17555: RAISE OKL_API.G_EXCEPTION_ERROR;
17556: END IF;
17557: IF (l_itiv_ib_rec.object_id1_new IS NUll OR
17558: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17559: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17554: p_token1_value => 'Party_site_id');
17555: RAISE OKL_API.G_EXCEPTION_ERROR;
17556: END IF;
17557: IF (l_itiv_ib_rec.object_id1_new IS NUll OR
17558: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17559: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17560: END IF;
17561: IF (l_itiv_ib_rec.object_id2_new IS NUll OR
17562: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17558: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17559: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17560: END IF;
17561: IF (l_itiv_ib_rec.object_id2_new IS NUll OR
17562: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17563: l_itiv_ib_rec.object_id2_new := r_itiv_ib_rec.object_id2_new;
17564: END IF;
17565: IF (l_itiv_ib_rec.jtot_object_code_new IS NUll OR
17566: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17562: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17563: l_itiv_ib_rec.object_id2_new := r_itiv_ib_rec.object_id2_new;
17564: END IF;
17565: IF (l_itiv_ib_rec.jtot_object_code_new IS NUll OR
17566: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17567: l_itiv_ib_rec.jtot_object_code_new := r_itiv_ib_rec.jtot_object_code_new;
17568: END IF;
17569: IF (l_itiv_ib_rec.mfg_serial_number_yn IS NUll OR
17570: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17566: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17567: l_itiv_ib_rec.jtot_object_code_new := r_itiv_ib_rec.jtot_object_code_new;
17568: END IF;
17569: IF (l_itiv_ib_rec.mfg_serial_number_yn IS NUll OR
17570: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17571: l_itiv_ib_rec.mfg_serial_number_yn := r_itiv_ib_rec.mfg_serial_number_yn;
17572: END IF;
17573: IF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17574: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17570: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17571: l_itiv_ib_rec.mfg_serial_number_yn := r_itiv_ib_rec.mfg_serial_number_yn;
17572: END IF;
17573: IF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17574: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17575: lv_model_object_id1 = r_itiv_ib_rec.inventory_item_id THEN
17576: l_itiv_ib_rec.inventory_item_id := r_itiv_ib_rec.inventory_item_id;
17577: ELSIF (l_itiv_ib_rec.inventory_item_id IS NOT NUll OR
17578: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17574: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17575: lv_model_object_id1 = r_itiv_ib_rec.inventory_item_id THEN
17576: l_itiv_ib_rec.inventory_item_id := r_itiv_ib_rec.inventory_item_id;
17577: ELSIF (l_itiv_ib_rec.inventory_item_id IS NOT NUll OR
17578: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17579: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17580: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17581: ELSIF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17582: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) OR
17578: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17579: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17580: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17581: ELSIF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17582: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) OR
17583: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17584: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17585: END IF;
17586: IF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17583: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17584: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17585: END IF;
17586: IF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17587: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) AND
17588: lv_model_object_id2 = r_itiv_ib_rec.inventory_org_id THEN
17589: l_itiv_ib_rec.inventory_org_id := r_itiv_ib_rec.inventory_org_id;
17590: ELSIF (l_itiv_ib_rec.inventory_org_id IS NOT NUll OR
17591: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17587: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) AND
17588: lv_model_object_id2 = r_itiv_ib_rec.inventory_org_id THEN
17589: l_itiv_ib_rec.inventory_org_id := r_itiv_ib_rec.inventory_org_id;
17590: ELSIF (l_itiv_ib_rec.inventory_org_id IS NOT NUll OR
17591: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17592: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17593: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17594: ELSIF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17595: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) OR
17591: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17592: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17593: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17594: ELSIF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17595: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) OR
17596: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17597: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17598: END IF;
17599: -- Updating of the ib Line
17609: x_clev_rec => x_clev_ib_rec,
17610: x_klev_rec => l_klev_ib_rec_out,
17611: x_cimv_rec => l_cimv_ib_rec_out,
17612: x_itiv_rec => l_itiv_ib_rec_out);
17613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17616: RAISE OKL_API.G_EXCEPTION_ERROR;
17617: END IF;
17610: x_klev_rec => l_klev_ib_rec_out,
17611: x_cimv_rec => l_cimv_ib_rec_out,
17612: x_itiv_rec => l_itiv_ib_rec_out);
17613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17616: RAISE OKL_API.G_EXCEPTION_ERROR;
17617: END IF;
17618: -- Updating of the Instance Line
17611: x_cimv_rec => l_cimv_ib_rec_out,
17612: x_itiv_rec => l_itiv_ib_rec_out);
17613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17616: RAISE OKL_API.G_EXCEPTION_ERROR;
17617: END IF;
17618: -- Updating of the Instance Line
17619: -- To Get the cle IB Line Record
17612: x_itiv_rec => l_itiv_ib_rec_out);
17613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17616: RAISE OKL_API.G_EXCEPTION_ERROR;
17617: END IF;
17618: -- Updating of the Instance Line
17619: -- To Get the cle IB Line Record
17620: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17618: -- Updating of the Instance Line
17619: -- To Get the cle IB Line Record
17620: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17621: r_clev_inst_rec);
17622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17623: OKL_API.set_message(p_app_name => G_APP_NAME,
17624: p_msg_name => G_FETCHING_INFO,
17625: p_token1 => G_REC_NAME_TOKEN,
17626: p_token1_value => 'OKC_K_LINES_V Record');
17619: -- To Get the cle IB Line Record
17620: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17621: r_clev_inst_rec);
17622: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17623: OKL_API.set_message(p_app_name => G_APP_NAME,
17624: p_msg_name => G_FETCHING_INFO,
17625: p_token1 => G_REC_NAME_TOKEN,
17626: p_token1_value => 'OKC_K_LINES_V Record');
17627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17623: OKL_API.set_message(p_app_name => G_APP_NAME,
17624: p_msg_name => G_FETCHING_INFO,
17625: p_token1 => G_REC_NAME_TOKEN,
17626: p_token1_value => 'OKC_K_LINES_V Record');
17627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_FETCHING_INFO,
17631: p_token1 => G_REC_NAME_TOKEN,
17624: p_msg_name => G_FETCHING_INFO,
17625: p_token1 => G_REC_NAME_TOKEN,
17626: p_token1_value => 'OKC_K_LINES_V Record');
17627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_FETCHING_INFO,
17631: p_token1 => G_REC_NAME_TOKEN,
17632: p_token1_value => 'OKC_K_LINES_V Record');
17625: p_token1 => G_REC_NAME_TOKEN,
17626: p_token1_value => 'OKC_K_LINES_V Record');
17627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_FETCHING_INFO,
17631: p_token1 => G_REC_NAME_TOKEN,
17632: p_token1_value => 'OKC_K_LINES_V Record');
17633: RAISE OKL_API.G_EXCEPTION_ERROR;
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_FETCHING_INFO,
17631: p_token1 => G_REC_NAME_TOKEN,
17632: p_token1_value => 'OKC_K_LINES_V Record');
17633: RAISE OKL_API.G_EXCEPTION_ERROR;
17634: END IF;
17635: -- To Get the kle IB Line Record
17636: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17637: r_klev_inst_rec);
17634: END IF;
17635: -- To Get the kle IB Line Record
17636: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17637: r_klev_inst_rec);
17638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17639: OKL_API.set_message(p_app_name => G_APP_NAME,
17640: p_msg_name => G_FETCHING_INFO,
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17635: -- To Get the kle IB Line Record
17636: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17637: r_klev_inst_rec);
17638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17639: OKL_API.set_message(p_app_name => G_APP_NAME,
17640: p_msg_name => G_FETCHING_INFO,
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17639: OKL_API.set_message(p_app_name => G_APP_NAME,
17640: p_msg_name => G_FETCHING_INFO,
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17647: p_token1 => G_REC_NAME_TOKEN,
17640: p_msg_name => G_FETCHING_INFO,
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17647: p_token1 => G_REC_NAME_TOKEN,
17648: p_token1_value => 'OKL_K_LINES_V Record');
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17647: p_token1 => G_REC_NAME_TOKEN,
17648: p_token1_value => 'OKL_K_LINES_V Record');
17649: RAISE OKL_API.G_EXCEPTION_ERROR;
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17647: p_token1 => G_REC_NAME_TOKEN,
17648: p_token1_value => 'OKL_K_LINES_V Record');
17649: RAISE OKL_API.G_EXCEPTION_ERROR;
17650: END IF;
17651: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17652: OKL_API.set_message(p_app_name => G_APP_NAME,
17653: p_msg_name => G_LINE_RECORD);
17648: p_token1_value => 'OKL_K_LINES_V Record');
17649: RAISE OKL_API.G_EXCEPTION_ERROR;
17650: END IF;
17651: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17652: OKL_API.set_message(p_app_name => G_APP_NAME,
17653: p_msg_name => G_LINE_RECORD);
17654: RAISE OKL_API.G_EXCEPTION_ERROR;
17655: END IF;
17656: l_clev_inst_rec := r_clev_inst_rec;
17650: END IF;
17651: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17652: OKL_API.set_message(p_app_name => G_APP_NAME,
17653: p_msg_name => G_LINE_RECORD);
17654: RAISE OKL_API.G_EXCEPTION_ERROR;
17655: END IF;
17656: l_clev_inst_rec := r_clev_inst_rec;
17657: l_klev_inst_rec := r_klev_inst_rec;
17658: -- upating of the Instance Line
17666: p_itiv_rec => l_itiv_inst_rec,
17667: x_clev_rec => l_clev_inst_rec_out,
17668: x_klev_rec => l_klev_inst_rec_out,
17669: x_itiv_rec => l_itiv_inst_rec_out);
17670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17673: RAISE OKL_API.G_EXCEPTION_ERROR;
17674: END IF;
17667: x_clev_rec => l_clev_inst_rec_out,
17668: x_klev_rec => l_klev_inst_rec_out,
17669: x_itiv_rec => l_itiv_inst_rec_out);
17670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17673: RAISE OKL_API.G_EXCEPTION_ERROR;
17674: END IF;
17675: ELSIF p_new_yn = 'N' THEN
17668: x_klev_rec => l_klev_inst_rec_out,
17669: x_itiv_rec => l_itiv_inst_rec_out);
17670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17673: RAISE OKL_API.G_EXCEPTION_ERROR;
17674: END IF;
17675: ELSIF p_new_yn = 'N' THEN
17676: FOR r_asset_iti IN c_asset_iti(p_asset_number => p_asset_number,
17669: x_itiv_rec => l_itiv_inst_rec_out);
17670: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17673: RAISE OKL_API.G_EXCEPTION_ERROR;
17674: END IF;
17675: ELSIF p_new_yn = 'N' THEN
17676: FOR r_asset_iti IN c_asset_iti(p_asset_number => p_asset_number,
17677: p_dnz_chr_id => x_clev_fa_rec.dnz_chr_id) LOOP
17677: p_dnz_chr_id => x_clev_fa_rec.dnz_chr_id) LOOP
17678: -- To Get the itiv ib Line Record
17679: x_return_status := get_rec_itiv(r_asset_iti.id,
17680: n_itiv_ib_rec);
17681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17682: OKL_API.set_message(p_app_name => G_APP_NAME,
17683: p_msg_name => G_FETCHING_INFO,
17684: p_token1 => G_REC_NAME_TOKEN,
17685: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17678: -- To Get the itiv ib Line Record
17679: x_return_status := get_rec_itiv(r_asset_iti.id,
17680: n_itiv_ib_rec);
17681: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17682: OKL_API.set_message(p_app_name => G_APP_NAME,
17683: p_msg_name => G_FETCHING_INFO,
17684: p_token1 => G_REC_NAME_TOKEN,
17685: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17686: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17682: OKL_API.set_message(p_app_name => G_APP_NAME,
17683: p_msg_name => G_FETCHING_INFO,
17684: p_token1 => G_REC_NAME_TOKEN,
17685: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17686: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17688: OKL_API.set_message(p_app_name => G_APP_NAME,
17689: p_msg_name => G_FETCHING_INFO,
17690: p_token1 => G_REC_NAME_TOKEN,
17683: p_msg_name => G_FETCHING_INFO,
17684: p_token1 => G_REC_NAME_TOKEN,
17685: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17686: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17688: OKL_API.set_message(p_app_name => G_APP_NAME,
17689: p_msg_name => G_FETCHING_INFO,
17690: p_token1 => G_REC_NAME_TOKEN,
17691: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17684: p_token1 => G_REC_NAME_TOKEN,
17685: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17686: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17688: OKL_API.set_message(p_app_name => G_APP_NAME,
17689: p_msg_name => G_FETCHING_INFO,
17690: p_token1 => G_REC_NAME_TOKEN,
17691: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17692: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17688: OKL_API.set_message(p_app_name => G_APP_NAME,
17689: p_msg_name => G_FETCHING_INFO,
17690: p_token1 => G_REC_NAME_TOKEN,
17691: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17692: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17693: END IF;
17694: n_itiv_ib_rec.object_id1_new := p_itiv_ib_rec.object_id1_new;
17695: n_itiv_ib_rec.object_id1_old := p_itiv_ib_rec.object_id1_new;
17696: OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
17699: x_msg_count => x_msg_count,
17700: x_msg_data => x_msg_data,
17701: p_iipv_rec => n_itiv_ib_rec,
17702: x_iipv_rec => nx_itiv_ib_rec);
17703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17704: OKL_API.set_message(p_app_name => G_APP_NAME,
17705: p_msg_name => G_ITI_ID);
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17700: x_msg_data => x_msg_data,
17701: p_iipv_rec => n_itiv_ib_rec,
17702: x_iipv_rec => nx_itiv_ib_rec);
17703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17704: OKL_API.set_message(p_app_name => G_APP_NAME,
17705: p_msg_name => G_ITI_ID);
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17708: OKL_API.set_message(p_app_name => G_APP_NAME,
17702: x_iipv_rec => nx_itiv_ib_rec);
17703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17704: OKL_API.set_message(p_app_name => G_APP_NAME,
17705: p_msg_name => G_ITI_ID);
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17708: OKL_API.set_message(p_app_name => G_APP_NAME,
17709: p_msg_name => G_ITI_ID);
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17704: OKL_API.set_message(p_app_name => G_APP_NAME,
17705: p_msg_name => G_ITI_ID);
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17708: OKL_API.set_message(p_app_name => G_APP_NAME,
17709: p_msg_name => G_ITI_ID);
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17711: END IF;
17704: OKL_API.set_message(p_app_name => G_APP_NAME,
17705: p_msg_name => G_ITI_ID);
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17708: OKL_API.set_message(p_app_name => G_APP_NAME,
17709: p_msg_name => G_ITI_ID);
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17711: END IF;
17712: END LOOP;
17706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17708: OKL_API.set_message(p_app_name => G_APP_NAME,
17709: p_msg_name => G_ITI_ID);
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17711: END IF;
17712: END LOOP;
17713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17709: p_msg_name => G_ITI_ID);
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17711: END IF;
17712: END LOOP;
17713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17716: RAISE OKL_API.G_EXCEPTION_ERROR;
17717: END IF;
17710: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17711: END IF;
17712: END LOOP;
17713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17716: RAISE OKL_API.G_EXCEPTION_ERROR;
17717: END IF;
17718: END IF;
17711: END IF;
17712: END LOOP;
17713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17716: RAISE OKL_API.G_EXCEPTION_ERROR;
17717: END IF;
17718: END IF;
17719:
17712: END LOOP;
17713: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17715: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17716: RAISE OKL_API.G_EXCEPTION_ERROR;
17717: END IF;
17718: END IF;
17719:
17720: -- rravikir modified.
17740: x_msg_count => x_msg_count,
17741: x_msg_data => x_msg_data,
17742: p_iipv_rec => k_itiv_ib_rec,
17743: x_iipv_rec => kx_itiv_ib_rec);
17744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17745: OKL_API.set_message(p_app_name => G_APP_NAME,
17746: p_msg_name => G_ITI_ID);
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17741: x_msg_data => x_msg_data,
17742: p_iipv_rec => k_itiv_ib_rec,
17743: x_iipv_rec => kx_itiv_ib_rec);
17744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17745: OKL_API.set_message(p_app_name => G_APP_NAME,
17746: p_msg_name => G_ITI_ID);
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17749: OKL_API.set_message(p_app_name => G_APP_NAME,
17743: x_iipv_rec => kx_itiv_ib_rec);
17744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17745: OKL_API.set_message(p_app_name => G_APP_NAME,
17746: p_msg_name => G_ITI_ID);
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17749: OKL_API.set_message(p_app_name => G_APP_NAME,
17750: p_msg_name => G_ITI_ID);
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17745: OKL_API.set_message(p_app_name => G_APP_NAME,
17746: p_msg_name => G_ITI_ID);
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17749: OKL_API.set_message(p_app_name => G_APP_NAME,
17750: p_msg_name => G_ITI_ID);
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17752: END IF;
17745: OKL_API.set_message(p_app_name => G_APP_NAME,
17746: p_msg_name => G_ITI_ID);
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17749: OKL_API.set_message(p_app_name => G_APP_NAME,
17750: p_msg_name => G_ITI_ID);
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17752: END IF;
17753: END LOOP;
17747: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17749: OKL_API.set_message(p_app_name => G_APP_NAME,
17750: p_msg_name => G_ITI_ID);
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17752: END IF;
17753: END LOOP;
17754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17750: p_msg_name => G_ITI_ID);
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17752: END IF;
17753: END LOOP;
17754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17757: RAISE OKL_API.G_EXCEPTION_ERROR;
17758: END IF;
17751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17752: END IF;
17753: END LOOP;
17754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17757: RAISE OKL_API.G_EXCEPTION_ERROR;
17758: END IF;
17759: -- end rravikir
17752: END IF;
17753: END LOOP;
17754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17757: RAISE OKL_API.G_EXCEPTION_ERROR;
17758: END IF;
17759: -- end rravikir
17760:
17753: END LOOP;
17754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17757: RAISE OKL_API.G_EXCEPTION_ERROR;
17758: END IF;
17759: -- end rravikir
17760:
17761: -- We need to change the status of the header whenever there is updating happening
17760:
17761: -- We need to change the status of the header whenever there is updating happening
17762: -- after the contract status is approved
17763: IF (l_clev_inst_rec_out.dnz_chr_id is NOT NULL) AND
17764: (l_clev_inst_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
17765: --cascade edit status on to lines
17766: okl_contract_status_pub.cascade_lease_status_edit
17767: (p_api_version => p_api_version,
17768: p_init_msg_list => p_init_msg_list,
17769: x_return_status => x_return_status,
17770: x_msg_count => x_msg_count,
17771: x_msg_data => x_msg_data,
17772: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17776: RAISE OKL_API.G_EXCEPTION_ERROR;
17777: END IF;
17770: x_msg_count => x_msg_count,
17771: x_msg_data => x_msg_data,
17772: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17776: RAISE OKL_API.G_EXCEPTION_ERROR;
17777: END IF;
17778: END IF;
17771: x_msg_data => x_msg_data,
17772: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17776: RAISE OKL_API.G_EXCEPTION_ERROR;
17777: END IF;
17778: END IF;
17779: End If; --release asset : Bug# 3533936
17772: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17773: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17774: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17775: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17776: RAISE OKL_API.G_EXCEPTION_ERROR;
17777: END IF;
17778: END IF;
17779: End If; --release asset : Bug# 3533936
17780: OKL_API.END_ACTIVITY (x_msg_count,
17776: RAISE OKL_API.G_EXCEPTION_ERROR;
17777: END IF;
17778: END IF;
17779: End If; --release asset : Bug# 3533936
17780: OKL_API.END_ACTIVITY (x_msg_count,
17781: x_msg_data );
17782: EXCEPTION
17783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17779: End If; --release asset : Bug# 3533936
17780: OKL_API.END_ACTIVITY (x_msg_count,
17781: x_msg_data );
17782: EXCEPTION
17783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17785: l_api_name,
17786: G_PKG_NAME,
17787: 'OKL_API.G_RET_STS_ERROR',
17780: OKL_API.END_ACTIVITY (x_msg_count,
17781: x_msg_data );
17782: EXCEPTION
17783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17785: l_api_name,
17786: G_PKG_NAME,
17787: 'OKL_API.G_RET_STS_ERROR',
17788: x_msg_count,
17783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17785: l_api_name,
17786: G_PKG_NAME,
17787: 'OKL_API.G_RET_STS_ERROR',
17788: x_msg_count,
17789: x_msg_data,
17790: '_PVT');
17791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17787: 'OKL_API.G_RET_STS_ERROR',
17788: x_msg_count,
17789: x_msg_data,
17790: '_PVT');
17791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17793: l_api_name,
17794: G_PKG_NAME,
17795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17788: x_msg_count,
17789: x_msg_data,
17790: '_PVT');
17791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17793: l_api_name,
17794: G_PKG_NAME,
17795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17796: x_msg_count,
17791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17792: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17793: l_api_name,
17794: G_PKG_NAME,
17795: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17796: x_msg_count,
17797: x_msg_data,
17798: '_PVT');
17799: WHEN OTHERS THEN
17796: x_msg_count,
17797: x_msg_data,
17798: '_PVT');
17799: WHEN OTHERS THEN
17800: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17801: l_api_name,
17802: G_PKG_NAME,
17803: 'OTHERS',
17804: x_msg_count,
17856: lb_update_oec_required BOOLEAN := FALSE;
17857: ln_item_id OKL_TXL_ITM_INSTS.INVENTORY_ITEM_ID%TYPE;
17858: -- end
17859: ln_final_current_units OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE;
17860: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
17861: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
17862: r_clev_model_rec clev_rec_type;
17863: r_klev_model_rec klev_rec_type;
17864: r_cimv_model_rec cimv_rec_type;
17857: ln_item_id OKL_TXL_ITM_INSTS.INVENTORY_ITEM_ID%TYPE;
17858: -- end
17859: ln_final_current_units OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE;
17860: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
17861: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
17862: r_clev_model_rec clev_rec_type;
17863: r_klev_model_rec klev_rec_type;
17864: r_cimv_model_rec cimv_rec_type;
17865: r_clev_addon_rec clev_rec_type;
18009: --akrangan Bug# 5362977 end
18010:
18011:
18012: BEGIN
18013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18014: -- Call start_activity to create savepoint, check compatibility
18015: -- and initialize message list
18016: x_return_status := OKL_API.START_ACTIVITY (
18017: l_api_name
18012: BEGIN
18013: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18014: -- Call start_activity to create savepoint, check compatibility
18015: -- and initialize message list
18016: x_return_status := OKL_API.START_ACTIVITY (
18017: l_api_name
18018: ,p_init_msg_list
18019: ,'_PVT'
18020: ,x_return_status);
18018: ,p_init_msg_list
18019: ,'_PVT'
18020: ,x_return_status);
18021: -- Check if activity started successfully
18022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18025: RAISE OKL_API.G_EXCEPTION_ERROR;
18026: END IF;
18019: ,'_PVT'
18020: ,x_return_status);
18021: -- Check if activity started successfully
18022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18025: RAISE OKL_API.G_EXCEPTION_ERROR;
18026: END IF;
18027: -- Get the Ib rec first and then we can get the instance line above the IB line
18020: ,x_return_status);
18021: -- Check if activity started successfully
18022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18025: RAISE OKL_API.G_EXCEPTION_ERROR;
18026: END IF;
18027: -- Get the Ib rec first and then we can get the instance line above the IB line
18028: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18021: -- Check if activity started successfully
18022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18025: RAISE OKL_API.G_EXCEPTION_ERROR;
18026: END IF;
18027: -- Get the Ib rec first and then we can get the instance line above the IB line
18028: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18029: l_clev_ib_rec);
18026: END IF;
18027: -- Get the Ib rec first and then we can get the instance line above the IB line
18028: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18029: l_clev_ib_rec);
18030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18031: OKL_API.set_message(p_app_name => G_APP_NAME,
18032: p_msg_name => G_FETCHING_INFO,
18033: p_token1 => G_REC_NAME_TOKEN,
18034: p_token1_value => 'OKC_K_LINES_V Record');
18027: -- Get the Ib rec first and then we can get the instance line above the IB line
18028: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18029: l_clev_ib_rec);
18030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18031: OKL_API.set_message(p_app_name => G_APP_NAME,
18032: p_msg_name => G_FETCHING_INFO,
18033: p_token1 => G_REC_NAME_TOKEN,
18034: p_token1_value => 'OKC_K_LINES_V Record');
18035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18031: OKL_API.set_message(p_app_name => G_APP_NAME,
18032: p_msg_name => G_FETCHING_INFO,
18033: p_token1 => G_REC_NAME_TOKEN,
18034: p_token1_value => 'OKC_K_LINES_V Record');
18035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18037: OKL_API.set_message(p_app_name => G_APP_NAME,
18038: p_msg_name => G_FETCHING_INFO,
18039: p_token1 => G_REC_NAME_TOKEN,
18032: p_msg_name => G_FETCHING_INFO,
18033: p_token1 => G_REC_NAME_TOKEN,
18034: p_token1_value => 'OKC_K_LINES_V Record');
18035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18037: OKL_API.set_message(p_app_name => G_APP_NAME,
18038: p_msg_name => G_FETCHING_INFO,
18039: p_token1 => G_REC_NAME_TOKEN,
18040: p_token1_value => 'OKC_K_LINES_V Record');
18033: p_token1 => G_REC_NAME_TOKEN,
18034: p_token1_value => 'OKC_K_LINES_V Record');
18035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18037: OKL_API.set_message(p_app_name => G_APP_NAME,
18038: p_msg_name => G_FETCHING_INFO,
18039: p_token1 => G_REC_NAME_TOKEN,
18040: p_token1_value => 'OKC_K_LINES_V Record');
18041: RAISE OKL_API.G_EXCEPTION_ERROR;
18037: OKL_API.set_message(p_app_name => G_APP_NAME,
18038: p_msg_name => G_FETCHING_INFO,
18039: p_token1 => G_REC_NAME_TOKEN,
18040: p_token1_value => 'OKC_K_LINES_V Record');
18041: RAISE OKL_API.G_EXCEPTION_ERROR;
18042: END IF;
18043: -- Now getting the inst line
18044: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18045: l_clev_inst_rec);
18042: END IF;
18043: -- Now getting the inst line
18044: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18045: l_clev_inst_rec);
18046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18047: OKL_API.set_message(p_app_name => G_APP_NAME,
18048: p_msg_name => G_FETCHING_INFO,
18049: p_token1 => G_REC_NAME_TOKEN,
18050: p_token1_value => 'OKC_K_LINES_V Record');
18043: -- Now getting the inst line
18044: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18045: l_clev_inst_rec);
18046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18047: OKL_API.set_message(p_app_name => G_APP_NAME,
18048: p_msg_name => G_FETCHING_INFO,
18049: p_token1 => G_REC_NAME_TOKEN,
18050: p_token1_value => 'OKC_K_LINES_V Record');
18051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18047: OKL_API.set_message(p_app_name => G_APP_NAME,
18048: p_msg_name => G_FETCHING_INFO,
18049: p_token1 => G_REC_NAME_TOKEN,
18050: p_token1_value => 'OKC_K_LINES_V Record');
18051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18053: OKL_API.set_message(p_app_name => G_APP_NAME,
18054: p_msg_name => G_FETCHING_INFO,
18055: p_token1 => G_REC_NAME_TOKEN,
18048: p_msg_name => G_FETCHING_INFO,
18049: p_token1 => G_REC_NAME_TOKEN,
18050: p_token1_value => 'OKC_K_LINES_V Record');
18051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18053: OKL_API.set_message(p_app_name => G_APP_NAME,
18054: p_msg_name => G_FETCHING_INFO,
18055: p_token1 => G_REC_NAME_TOKEN,
18056: p_token1_value => 'OKC_K_LINES_V Record');
18049: p_token1 => G_REC_NAME_TOKEN,
18050: p_token1_value => 'OKC_K_LINES_V Record');
18051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18052: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18053: OKL_API.set_message(p_app_name => G_APP_NAME,
18054: p_msg_name => G_FETCHING_INFO,
18055: p_token1 => G_REC_NAME_TOKEN,
18056: p_token1_value => 'OKC_K_LINES_V Record');
18057: RAISE OKL_API.G_EXCEPTION_ERROR;
18053: OKL_API.set_message(p_app_name => G_APP_NAME,
18054: p_msg_name => G_FETCHING_INFO,
18055: p_token1 => G_REC_NAME_TOKEN,
18056: p_token1_value => 'OKC_K_LINES_V Record');
18057: RAISE OKL_API.G_EXCEPTION_ERROR;
18058: END IF;
18059:
18060: -- Since a record is already created in TXL_ITM_INSTS, we need to update this
18061: -- record, and create 'n-1' records.
18060: -- Since a record is already created in TXL_ITM_INSTS, we need to update this
18061: -- record, and create 'n-1' records.
18062: -- rravikir modified
18063: IF (l_clev_inst_rec.id IS NOT NULL OR
18064: l_clev_inst_rec.id <> OKL_API.G_MISS_NUM) THEN
18065: -- We are here b'cause we have to update the okl_txl_itm_inst rec
18066: -- So we are calling the update api for the okl_txl_itm_insts rec
18067:
18068: -- Now getting the item information OKL_TXL_ITM_INSTS
18067:
18068: -- Now getting the item information OKL_TXL_ITM_INSTS
18069: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
18070: l_itiv_rec);
18071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18072: OKL_API.set_message(p_app_name => G_APP_NAME,
18073: p_msg_name => G_FETCHING_INFO,
18074: p_token1 => G_REC_NAME_TOKEN,
18075: p_token1_value => 'OKC_K_LINES_V Record');
18068: -- Now getting the item information OKL_TXL_ITM_INSTS
18069: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
18070: l_itiv_rec);
18071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18072: OKL_API.set_message(p_app_name => G_APP_NAME,
18073: p_msg_name => G_FETCHING_INFO,
18074: p_token1 => G_REC_NAME_TOKEN,
18075: p_token1_value => 'OKC_K_LINES_V Record');
18076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18072: OKL_API.set_message(p_app_name => G_APP_NAME,
18073: p_msg_name => G_FETCHING_INFO,
18074: p_token1 => G_REC_NAME_TOKEN,
18075: p_token1_value => 'OKC_K_LINES_V Record');
18076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18078: OKL_API.set_message(p_app_name => G_APP_NAME,
18079: p_msg_name => G_FETCHING_INFO,
18080: p_token1 => G_REC_NAME_TOKEN,
18073: p_msg_name => G_FETCHING_INFO,
18074: p_token1 => G_REC_NAME_TOKEN,
18075: p_token1_value => 'OKC_K_LINES_V Record');
18076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18078: OKL_API.set_message(p_app_name => G_APP_NAME,
18079: p_msg_name => G_FETCHING_INFO,
18080: p_token1 => G_REC_NAME_TOKEN,
18081: p_token1_value => 'OKC_K_LINES_V Record');
18074: p_token1 => G_REC_NAME_TOKEN,
18075: p_token1_value => 'OKC_K_LINES_V Record');
18076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18078: OKL_API.set_message(p_app_name => G_APP_NAME,
18079: p_msg_name => G_FETCHING_INFO,
18080: p_token1 => G_REC_NAME_TOKEN,
18081: p_token1_value => 'OKC_K_LINES_V Record');
18082: RAISE OKL_API.G_EXCEPTION_ERROR;
18078: OKL_API.set_message(p_app_name => G_APP_NAME,
18079: p_msg_name => G_FETCHING_INFO,
18080: p_token1 => G_REC_NAME_TOKEN,
18081: p_token1_value => 'OKC_K_LINES_V Record');
18082: RAISE OKL_API.G_EXCEPTION_ERROR;
18083: END IF;
18084: -- checking for mfg_serial_number_yn flag
18085: k := l_itiv_ib_tbl.FIRST;
18086: IF l_itiv_ib_tbl(k).mfg_serial_number_yn <> 'Y' THEN
18083: END IF;
18084: -- checking for mfg_serial_number_yn flag
18085: k := l_itiv_ib_tbl.FIRST;
18086: IF l_itiv_ib_tbl(k).mfg_serial_number_yn <> 'Y' THEN
18087: OKL_API.set_message(p_app_name => G_APP_NAME,
18088: p_msg_name => G_REQUIRED_VALUE,
18089: p_token1 => G_COL_NAME_TOKEN,
18090: p_token1_value => 'mfg_serial_number_yn cannot be N');
18091: x_return_status := OKL_API.G_RET_STS_ERROR;
18087: OKL_API.set_message(p_app_name => G_APP_NAME,
18088: p_msg_name => G_REQUIRED_VALUE,
18089: p_token1 => G_COL_NAME_TOKEN,
18090: p_token1_value => 'mfg_serial_number_yn cannot be N');
18091: x_return_status := OKL_API.G_RET_STS_ERROR;
18092: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18093: RAISE OKL_API.G_EXCEPTION_ERROR;
18094: END IF;
18095: END IF;
18088: p_msg_name => G_REQUIRED_VALUE,
18089: p_token1 => G_COL_NAME_TOKEN,
18090: p_token1_value => 'mfg_serial_number_yn cannot be N');
18091: x_return_status := OKL_API.G_RET_STS_ERROR;
18092: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18093: RAISE OKL_API.G_EXCEPTION_ERROR;
18094: END IF;
18095: END IF;
18096:
18089: p_token1 => G_COL_NAME_TOKEN,
18090: p_token1_value => 'mfg_serial_number_yn cannot be N');
18091: x_return_status := OKL_API.G_RET_STS_ERROR;
18092: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18093: RAISE OKL_API.G_EXCEPTION_ERROR;
18094: END IF;
18095: END IF;
18096:
18097: l_itiv_rec.object_id1_new := l_itiv_ib_tbl(k).object_id1_new;
18104:
18105: -- Check for uniqueness of Serial number
18106: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18107: p_item_id => l_itiv_rec.inventory_item_id);
18108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18111: RAISE OKL_API.G_EXCEPTION_ERROR;
18112: END IF;
18105: -- Check for uniqueness of Serial number
18106: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18107: p_item_id => l_itiv_rec.inventory_item_id);
18108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18111: RAISE OKL_API.G_EXCEPTION_ERROR;
18112: END IF;
18113: l_itiv_rec.object_id2_new := '#';
18106: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18107: p_item_id => l_itiv_rec.inventory_item_id);
18108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18111: RAISE OKL_API.G_EXCEPTION_ERROR;
18112: END IF;
18113: l_itiv_rec.object_id2_new := '#';
18114:
18107: p_item_id => l_itiv_rec.inventory_item_id);
18108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18111: RAISE OKL_API.G_EXCEPTION_ERROR;
18112: END IF;
18113: l_itiv_rec.object_id2_new := '#';
18114:
18115: update_txl_itm_insts(p_api_version => p_api_version,
18118: x_msg_count => x_msg_count,
18119: x_msg_data => x_msg_data,
18120: p_itiv_rec => l_itiv_rec,
18121: x_itiv_rec => lx_itiv_rec);
18122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18123: OKL_API.set_message(p_app_name => G_APP_NAME,
18124: p_msg_name => G_ITI_ID);
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18119: x_msg_data => x_msg_data,
18120: p_itiv_rec => l_itiv_rec,
18121: x_itiv_rec => lx_itiv_rec);
18122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18123: OKL_API.set_message(p_app_name => G_APP_NAME,
18124: p_msg_name => G_ITI_ID);
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18127: OKL_API.set_message(p_app_name => G_APP_NAME,
18121: x_itiv_rec => lx_itiv_rec);
18122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18123: OKL_API.set_message(p_app_name => G_APP_NAME,
18124: p_msg_name => G_ITI_ID);
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18127: OKL_API.set_message(p_app_name => G_APP_NAME,
18128: p_msg_name => G_ITI_ID);
18129: RAISE OKL_API.G_EXCEPTION_ERROR;
18122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18123: OKL_API.set_message(p_app_name => G_APP_NAME,
18124: p_msg_name => G_ITI_ID);
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18127: OKL_API.set_message(p_app_name => G_APP_NAME,
18128: p_msg_name => G_ITI_ID);
18129: RAISE OKL_API.G_EXCEPTION_ERROR;
18130: END IF;
18123: OKL_API.set_message(p_app_name => G_APP_NAME,
18124: p_msg_name => G_ITI_ID);
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18127: OKL_API.set_message(p_app_name => G_APP_NAME,
18128: p_msg_name => G_ITI_ID);
18129: RAISE OKL_API.G_EXCEPTION_ERROR;
18130: END IF;
18131: lb_record_created := TRUE;
18125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18127: OKL_API.set_message(p_app_name => G_APP_NAME,
18128: p_msg_name => G_ITI_ID);
18129: RAISE OKL_API.G_EXCEPTION_ERROR;
18130: END IF;
18131: lb_record_created := TRUE;
18132: END IF;
18133: -- end rravikir modified
18140: -- Should be able to create more # of serial numbers than the current units.
18141: OPEN c_model_item(l_clev_inst_rec.cle_id,
18142: l_clev_inst_rec.dnz_chr_id);
18143: IF c_model_item%NOTFOUND THEN
18144: OKL_API.set_message(p_app_name => G_APP_NAME,
18145: p_msg_name => G_ITEM_RECORD);
18146: RAISE OKL_API.G_EXCEPTION_ERROR;
18147: END IF;
18148: FETCH c_model_item INTO ln_model_qty;
18142: l_clev_inst_rec.dnz_chr_id);
18143: IF c_model_item%NOTFOUND THEN
18144: OKL_API.set_message(p_app_name => G_APP_NAME,
18145: p_msg_name => G_ITEM_RECORD);
18146: RAISE OKL_API.G_EXCEPTION_ERROR;
18147: END IF;
18148: FETCH c_model_item INTO ln_model_qty;
18149: CLOSE c_model_item;
18150:
18160: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
18161: CLOSE l_chk_rel_ast_csr;
18162:
18163: IF l_chk_rel_ast = 'Y' THEN
18164: OKL_API.set_message(p_app_name => G_APP_NAME,
18165: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
18166: RAISE OKL_API.G_EXCEPTION_ERROR;
18167: ELSE
18168:
18162:
18163: IF l_chk_rel_ast = 'Y' THEN
18164: OKL_API.set_message(p_app_name => G_APP_NAME,
18165: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
18166: RAISE OKL_API.G_EXCEPTION_ERROR;
18167: ELSE
18168:
18169: lb_update_oec_required := TRUE;
18170: END IF;
18184: j := l_itiv_ib_tbl.FIRST;
18185: j := l_itiv_ib_tbl.NEXT(j);
18186: LOOP
18187: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18188: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18189: x_return_status := OKL_API.G_RET_STS_ERROR;
18190: OKL_API.set_message(p_app_name => G_APP_NAME,
18191: p_msg_name => G_REQUIRED_VALUE,
18192: p_token1 => G_COL_NAME_TOKEN,
18185: j := l_itiv_ib_tbl.NEXT(j);
18186: LOOP
18187: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18188: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18189: x_return_status := OKL_API.G_RET_STS_ERROR;
18190: OKL_API.set_message(p_app_name => G_APP_NAME,
18191: p_msg_name => G_REQUIRED_VALUE,
18192: p_token1 => G_COL_NAME_TOKEN,
18193: p_token1_value => 'mfg_serial_number_yn');
18186: LOOP
18187: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18188: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18189: x_return_status := OKL_API.G_RET_STS_ERROR;
18190: OKL_API.set_message(p_app_name => G_APP_NAME,
18191: p_msg_name => G_REQUIRED_VALUE,
18192: p_token1 => G_COL_NAME_TOKEN,
18193: p_token1_value => 'mfg_serial_number_yn');
18194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18190: OKL_API.set_message(p_app_name => G_APP_NAME,
18191: p_msg_name => G_REQUIRED_VALUE,
18192: p_token1 => G_COL_NAME_TOKEN,
18193: p_token1_value => 'mfg_serial_number_yn');
18194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18195: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn <> 'Y' THEN
18196: OKL_API.set_message(p_app_name => G_APP_NAME,
18197: p_msg_name => G_REQUIRED_VALUE,
18198: p_token1 => G_COL_NAME_TOKEN,
18192: p_token1 => G_COL_NAME_TOKEN,
18193: p_token1_value => 'mfg_serial_number_yn');
18194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18195: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn <> 'Y' THEN
18196: OKL_API.set_message(p_app_name => G_APP_NAME,
18197: p_msg_name => G_REQUIRED_VALUE,
18198: p_token1 => G_COL_NAME_TOKEN,
18199: p_token1_value => 'mfg_serial_number_yn cannot be N');
18200: x_return_status := OKL_API.G_RET_STS_ERROR;
18196: OKL_API.set_message(p_app_name => G_APP_NAME,
18197: p_msg_name => G_REQUIRED_VALUE,
18198: p_token1 => G_COL_NAME_TOKEN,
18199: p_token1_value => 'mfg_serial_number_yn cannot be N');
18200: x_return_status := OKL_API.G_RET_STS_ERROR;
18201: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18202: END IF;
18203: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18204: j := l_itiv_ib_tbl.NEXT(j);
18197: p_msg_name => G_REQUIRED_VALUE,
18198: p_token1 => G_COL_NAME_TOKEN,
18199: p_token1_value => 'mfg_serial_number_yn cannot be N');
18200: x_return_status := OKL_API.G_RET_STS_ERROR;
18201: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18202: END IF;
18203: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18204: j := l_itiv_ib_tbl.NEXT(j);
18205: END LOOP;
18202: END IF;
18203: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18204: j := l_itiv_ib_tbl.NEXT(j);
18205: END LOOP;
18206: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18207: RAISE OKL_API.G_EXCEPTION_ERROR;
18208: END IF;
18209: ELSIF (NOT lb_record_created) THEN
18210: OKL_API.set_message(p_app_name => G_APP_NAME,
18203: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18204: j := l_itiv_ib_tbl.NEXT(j);
18205: END LOOP;
18206: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18207: RAISE OKL_API.G_EXCEPTION_ERROR;
18208: END IF;
18209: ELSIF (NOT lb_record_created) THEN
18210: OKL_API.set_message(p_app_name => G_APP_NAME,
18211: p_msg_name => G_CNT_REC);
18206: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18207: RAISE OKL_API.G_EXCEPTION_ERROR;
18208: END IF;
18209: ELSIF (NOT lb_record_created) THEN
18210: OKL_API.set_message(p_app_name => G_APP_NAME,
18211: p_msg_name => G_CNT_REC);
18212: RAISE OKL_API.G_EXCEPTION_ERROR;
18213: END IF;
18214: -- Since we have to create the instance
18208: END IF;
18209: ELSIF (NOT lb_record_created) THEN
18210: OKL_API.set_message(p_app_name => G_APP_NAME,
18211: p_msg_name => G_CNT_REC);
18212: RAISE OKL_API.G_EXCEPTION_ERROR;
18213: END IF;
18214: -- Since we have to create the instance
18215: -- Depending of the qty in l_cimv_model_rec.number_of_items
18216: -- we have use loop
18224: -- Creation of the Instance Line Process
18225: -- Getting the Line style Info
18226: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18227: x_lse_id => l_clev_inst_rec.lse_id);
18228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18232: END IF;
18225: -- Getting the Line style Info
18226: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18227: x_lse_id => l_clev_inst_rec.lse_id);
18228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18232: END IF;
18233: */
18226: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18227: x_lse_id => l_clev_inst_rec.lse_id);
18228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18232: END IF;
18233: */
18234: IF (l_clev_inst_rec.display_sequence IS NUll OR
18227: x_lse_id => l_clev_inst_rec.lse_id);
18228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18232: END IF;
18233: */
18234: IF (l_clev_inst_rec.display_sequence IS NUll OR
18235: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18232: END IF;
18233: */
18234: IF (l_clev_inst_rec.display_sequence IS NUll OR
18235: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18236: l_clev_inst_rec.display_sequence := l_clev_inst_rec.display_sequence + 1;
18237: END IF;
18238: -- Required cle Line Information
18239: -- Since we have a local Record of the Instance line
18243: l_clev_inst_rec.cle_id := l_clev_inst_rec.cle_id;
18244: l_clev_inst_rec.dnz_chr_id := l_clev_inst_rec.dnz_chr_id;
18245: l_clev_inst_rec.exception_yn := 'N';
18246: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18247: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18248: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18245: l_clev_inst_rec.exception_yn := 'N';
18246: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18247: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18248: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18246: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18247: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18248: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18254: OKL_API.set_message(p_app_name => G_APP_NAME,
18248: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18254: OKL_API.set_message(p_app_name => G_APP_NAME,
18255: p_msg_name => G_GEN_INST_NUM_IB);
18256: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18254: OKL_API.set_message(p_app_name => G_APP_NAME,
18255: p_msg_name => G_GEN_INST_NUM_IB);
18256: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18257: END IF;
18250: OKL_API.set_message(p_app_name => G_APP_NAME,
18251: p_msg_name => G_GEN_INST_NUM_IB);
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18254: OKL_API.set_message(p_app_name => G_APP_NAME,
18255: p_msg_name => G_GEN_INST_NUM_IB);
18256: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18257: END IF;
18258: l_itiv_ib_tbl(j).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
18252: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18254: OKL_API.set_message(p_app_name => G_APP_NAME,
18255: p_msg_name => G_GEN_INST_NUM_IB);
18256: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18257: END IF;
18258: l_itiv_ib_tbl(j).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
18259: END IF;
18260:
18269: p_itiv_rec => l_itiv_ib_tbl(j),
18270: x_clev_rec => l_clev_inst_rec_out,
18271: x_klev_rec => l_klev_inst_rec_out,
18272: x_itiv_rec => l_itiv_ib_tbl_out(j));
18273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18276: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18277: END IF;
18270: x_clev_rec => l_clev_inst_rec_out,
18271: x_klev_rec => l_klev_inst_rec_out,
18272: x_itiv_rec => l_itiv_ib_tbl_out(j));
18273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18276: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18277: END IF;
18278: -- 4414408 Assign the line style ID directly
18271: x_klev_rec => l_klev_inst_rec_out,
18272: x_itiv_rec => l_itiv_ib_tbl_out(j));
18273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18276: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18277: END IF;
18278: -- 4414408 Assign the line style ID directly
18279: /*
18272: x_itiv_rec => l_itiv_ib_tbl_out(j));
18273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18276: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18277: END IF;
18278: -- 4414408 Assign the line style ID directly
18279: /*
18280: -- Creation of the ib Line Process
18280: -- Creation of the ib Line Process
18281: -- Getting the Line style Info
18282: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18283: x_lse_id => l_clev_ib_rec.lse_id);
18284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18288: END IF;
18281: -- Getting the Line style Info
18282: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18283: x_lse_id => l_clev_ib_rec.lse_id);
18284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18288: END IF;
18289: */
18282: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18283: x_lse_id => l_clev_ib_rec.lse_id);
18284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18288: END IF;
18289: */
18290: IF (l_clev_ib_rec.display_sequence IS NUll OR
18283: x_lse_id => l_clev_ib_rec.lse_id);
18284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18285: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18288: END IF;
18289: */
18290: IF (l_clev_ib_rec.display_sequence IS NUll OR
18291: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18288: END IF;
18289: */
18290: IF (l_clev_ib_rec.display_sequence IS NUll OR
18291: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18292: l_clev_ib_rec.display_sequence := l_clev_ib_rec_out.display_sequence + 1;
18293: END IF;
18294: -- Required cle Line Information
18295: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
18306: lv_object_id1_new := l_itiv_ib_tbl(j).object_id1_new;
18307: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
18308: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
18309: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
18310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18311: OKL_API.set_message(p_app_name => G_APP_NAME,
18312: p_msg_name => G_NO_MATCHING_RECORD,
18313: p_token1 => G_COL_NAME_TOKEN,
18314: p_token1_value => 'Party_site_id');
18307: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
18308: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
18309: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
18310: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18311: OKL_API.set_message(p_app_name => G_APP_NAME,
18312: p_msg_name => G_NO_MATCHING_RECORD,
18313: p_token1 => G_COL_NAME_TOKEN,
18314: p_token1_value => 'Party_site_id');
18315: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18311: OKL_API.set_message(p_app_name => G_APP_NAME,
18312: p_msg_name => G_NO_MATCHING_RECORD,
18313: p_token1 => G_COL_NAME_TOKEN,
18314: p_token1_value => 'Party_site_id');
18315: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18317: OKL_API.set_message(p_app_name => G_APP_NAME,
18318: p_msg_name => G_NO_MATCHING_RECORD,
18319: p_token1 => G_COL_NAME_TOKEN,
18312: p_msg_name => G_NO_MATCHING_RECORD,
18313: p_token1 => G_COL_NAME_TOKEN,
18314: p_token1_value => 'Party_site_id');
18315: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18317: OKL_API.set_message(p_app_name => G_APP_NAME,
18318: p_msg_name => G_NO_MATCHING_RECORD,
18319: p_token1 => G_COL_NAME_TOKEN,
18320: p_token1_value => 'Party_site_id');
18313: p_token1 => G_COL_NAME_TOKEN,
18314: p_token1_value => 'Party_site_id');
18315: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18317: OKL_API.set_message(p_app_name => G_APP_NAME,
18318: p_msg_name => G_NO_MATCHING_RECORD,
18319: p_token1 => G_COL_NAME_TOKEN,
18320: p_token1_value => 'Party_site_id');
18321: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18317: OKL_API.set_message(p_app_name => G_APP_NAME,
18318: p_msg_name => G_NO_MATCHING_RECORD,
18319: p_token1 => G_COL_NAME_TOKEN,
18320: p_token1_value => 'Party_site_id');
18321: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18322: END IF;
18323:
18324: -- Check for uniqueness of Serial number
18325: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18323:
18324: -- Check for uniqueness of Serial number
18325: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18326: p_item_id => ln_item_id);
18327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18330: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18331: END IF;
18324: -- Check for uniqueness of Serial number
18325: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18326: p_item_id => ln_item_id);
18327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18330: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18331: END IF;
18332:
18325: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18326: p_item_id => ln_item_id);
18327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18330: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18331: END IF;
18332:
18333: -- Creation of the ib Line
18326: p_item_id => ln_item_id);
18327: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18328: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18329: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18330: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18331: END IF;
18332:
18333: -- Creation of the ib Line
18334: Create_instance_ib_line(p_api_version => p_api_version,
18344: x_klev_rec => l_klev_ib_rec_out,
18345: x_cimv_rec => l_cimv_ib_rec_out,
18346: x_trxv_rec => l_trxv_ib_rec_out,
18347: x_itiv_rec => x_itiv_ib_tbl(j));
18348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18349: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18351: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18352: END IF;
18345: x_cimv_rec => l_cimv_ib_rec_out,
18346: x_trxv_rec => l_trxv_ib_rec_out,
18347: x_itiv_rec => x_itiv_ib_tbl(j));
18348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18349: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18351: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18352: END IF;
18353: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18346: x_trxv_rec => l_trxv_ib_rec_out,
18347: x_itiv_rec => x_itiv_ib_tbl(j));
18348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18349: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18351: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18352: END IF;
18353: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18354: x_clev_ib_tbl(i) := x_clev_ib_rec;
18347: x_itiv_rec => x_itiv_ib_tbl(j));
18348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18349: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18351: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18352: END IF;
18353: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18354: x_clev_ib_tbl(i) := x_clev_ib_rec;
18355: j := l_itiv_ib_tbl.NEXT(j);
18353: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18354: x_clev_ib_tbl(i) := x_clev_ib_rec;
18355: j := l_itiv_ib_tbl.NEXT(j);
18356: END LOOP;
18357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18354: x_clev_ib_tbl(i) := x_clev_ib_rec;
18355: j := l_itiv_ib_tbl.NEXT(j);
18356: END LOOP;
18357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18362: ELSIF (NOT lb_record_created) THEN
18355: j := l_itiv_ib_tbl.NEXT(j);
18356: END LOOP;
18357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18362: ELSIF (NOT lb_record_created) THEN
18363: OKL_API.set_message(p_app_name => G_APP_NAME,
18356: END LOOP;
18357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18362: ELSIF (NOT lb_record_created) THEN
18363: OKL_API.set_message(p_app_name => G_APP_NAME,
18364: p_msg_name => G_CNT_REC);
18359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18360: RAISE OKL_API.G_EXCEPTION_ERROR;
18361: END IF;
18362: ELSIF (NOT lb_record_created) THEN
18363: OKL_API.set_message(p_app_name => G_APP_NAME,
18364: p_msg_name => G_CNT_REC);
18365: RAISE OKL_API.G_EXCEPTION_ERROR;
18366: END IF; -- End if (ln_dummy > 0)
18367:
18361: END IF;
18362: ELSIF (NOT lb_record_created) THEN
18363: OKL_API.set_message(p_app_name => G_APP_NAME,
18364: p_msg_name => G_CNT_REC);
18365: RAISE OKL_API.G_EXCEPTION_ERROR;
18366: END IF; -- End if (ln_dummy > 0)
18367:
18368: -- We need to execute the following 'IF' loop, when the current units
18369: -- is changed, by editing more or less serial #'s.
18372: -- the fixed line , model line and also update the top line with latest OEC
18373: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
18374: l_clev_inst_rec.dnz_chr_id);
18375: IF c_remain_inst_line%NOTFOUND THEN
18376: OKL_API.set_message(p_app_name => G_APP_NAME,
18377: p_msg_name => G_DELETING_INSTS_LINE);
18378: RAISE OKL_API.G_EXCEPTION_ERROR;
18379: END IF;
18380: FETCH c_remain_inst_line INTO ln_remain_inst;
18374: l_clev_inst_rec.dnz_chr_id);
18375: IF c_remain_inst_line%NOTFOUND THEN
18376: OKL_API.set_message(p_app_name => G_APP_NAME,
18377: p_msg_name => G_DELETING_INSTS_LINE);
18378: RAISE OKL_API.G_EXCEPTION_ERROR;
18379: END IF;
18380: FETCH c_remain_inst_line INTO ln_remain_inst;
18381: CLOSE c_remain_inst_line;
18382:
18384: -- Since we have update the model line
18385: OPEN c_model_line(l_clev_inst_rec.cle_id,
18386: l_clev_inst_rec.dnz_chr_id);
18387: IF c_model_line%NOTFOUND THEN
18388: OKL_API.set_message(p_app_name => G_APP_NAME,
18389: p_msg_name => G_NO_MATCHING_RECORD,
18390: p_token1 => G_COL_NAME_TOKEN,
18391: p_token1_value => 'Model Asset Line record');
18392: RAISE OKL_API.G_EXCEPTION_ERROR;
18388: OKL_API.set_message(p_app_name => G_APP_NAME,
18389: p_msg_name => G_NO_MATCHING_RECORD,
18390: p_token1 => G_COL_NAME_TOKEN,
18391: p_token1_value => 'Model Asset Line record');
18392: RAISE OKL_API.G_EXCEPTION_ERROR;
18393: END IF;
18394: FETCH c_model_line INTO ln_model_line_id;
18395: CLOSE c_model_line;
18396:
18398: -- Since we have update the Fixed Asset Line
18399: OPEN c_fa_line(l_clev_inst_rec.cle_id,
18400: l_clev_inst_rec.dnz_chr_id);
18401: IF c_fa_line%NOTFOUND THEN
18402: OKL_API.set_message(p_app_name => G_APP_NAME,
18403: p_msg_name => G_NO_MATCHING_RECORD,
18404: p_token1 => G_COL_NAME_TOKEN,
18405: p_token1_value => 'Fixed Asset Line record');
18406: RAISE OKL_API.G_EXCEPTION_ERROR;
18402: OKL_API.set_message(p_app_name => G_APP_NAME,
18403: p_msg_name => G_NO_MATCHING_RECORD,
18404: p_token1 => G_COL_NAME_TOKEN,
18405: p_token1_value => 'Fixed Asset Line record');
18406: RAISE OKL_API.G_EXCEPTION_ERROR;
18407: END IF;
18408: FETCH c_fa_line INTO ln_fa_line_id;
18409: CLOSE c_fa_line;
18410:
18413:
18414: -- To Get the cle Model Line Record
18415: x_return_status := get_rec_clev(ln_model_line_id,
18416: r_clev_model_rec);
18417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18418: OKL_API.set_message(p_app_name => G_APP_NAME,
18419: p_msg_name => G_FETCHING_INFO,
18420: p_token1 => G_REC_NAME_TOKEN,
18421: p_token1_value => 'OKC_K_LINES_V Record');
18414: -- To Get the cle Model Line Record
18415: x_return_status := get_rec_clev(ln_model_line_id,
18416: r_clev_model_rec);
18417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18418: OKL_API.set_message(p_app_name => G_APP_NAME,
18419: p_msg_name => G_FETCHING_INFO,
18420: p_token1 => G_REC_NAME_TOKEN,
18421: p_token1_value => 'OKC_K_LINES_V Record');
18422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18418: OKL_API.set_message(p_app_name => G_APP_NAME,
18419: p_msg_name => G_FETCHING_INFO,
18420: p_token1 => G_REC_NAME_TOKEN,
18421: p_token1_value => 'OKC_K_LINES_V Record');
18422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18424: OKL_API.set_message(p_app_name => G_APP_NAME,
18425: p_msg_name => G_FETCHING_INFO,
18426: p_token1 => G_REC_NAME_TOKEN,
18419: p_msg_name => G_FETCHING_INFO,
18420: p_token1 => G_REC_NAME_TOKEN,
18421: p_token1_value => 'OKC_K_LINES_V Record');
18422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18424: OKL_API.set_message(p_app_name => G_APP_NAME,
18425: p_msg_name => G_FETCHING_INFO,
18426: p_token1 => G_REC_NAME_TOKEN,
18427: p_token1_value => 'OKC_K_LINES_V Record');
18420: p_token1 => G_REC_NAME_TOKEN,
18421: p_token1_value => 'OKC_K_LINES_V Record');
18422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18424: OKL_API.set_message(p_app_name => G_APP_NAME,
18425: p_msg_name => G_FETCHING_INFO,
18426: p_token1 => G_REC_NAME_TOKEN,
18427: p_token1_value => 'OKC_K_LINES_V Record');
18428: RAISE OKL_API.G_EXCEPTION_ERROR;
18424: OKL_API.set_message(p_app_name => G_APP_NAME,
18425: p_msg_name => G_FETCHING_INFO,
18426: p_token1 => G_REC_NAME_TOKEN,
18427: p_token1_value => 'OKC_K_LINES_V Record');
18428: RAISE OKL_API.G_EXCEPTION_ERROR;
18429: END IF;
18430:
18431: -- To Get the kle Model Line Record
18432: x_return_status := get_rec_klev(ln_model_line_id,
18430:
18431: -- To Get the kle Model Line Record
18432: x_return_status := get_rec_klev(ln_model_line_id,
18433: r_klev_model_rec);
18434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18435: OKL_API.set_message(p_app_name => G_APP_NAME,
18436: p_msg_name => G_FETCHING_INFO,
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18431: -- To Get the kle Model Line Record
18432: x_return_status := get_rec_klev(ln_model_line_id,
18433: r_klev_model_rec);
18434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18435: OKL_API.set_message(p_app_name => G_APP_NAME,
18436: p_msg_name => G_FETCHING_INFO,
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18435: OKL_API.set_message(p_app_name => G_APP_NAME,
18436: p_msg_name => G_FETCHING_INFO,
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18443: p_token1 => G_REC_NAME_TOKEN,
18436: p_msg_name => G_FETCHING_INFO,
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18443: p_token1 => G_REC_NAME_TOKEN,
18444: p_token1_value => 'OKL_K_LINES_V Record');
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18443: p_token1 => G_REC_NAME_TOKEN,
18444: p_token1_value => 'OKL_K_LINES_V Record');
18445: RAISE OKL_API.G_EXCEPTION_ERROR;
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18443: p_token1 => G_REC_NAME_TOKEN,
18444: p_token1_value => 'OKL_K_LINES_V Record');
18445: RAISE OKL_API.G_EXCEPTION_ERROR;
18446: END IF;
18447:
18448: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18449: OKL_API.set_message(p_app_name => G_APP_NAME,
18445: RAISE OKL_API.G_EXCEPTION_ERROR;
18446: END IF;
18447:
18448: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18449: OKL_API.set_message(p_app_name => G_APP_NAME,
18450: p_msg_name => G_LINE_RECORD);
18451: RAISE OKL_API.G_EXCEPTION_ERROR;
18452: END IF;
18453:
18447:
18448: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18449: OKL_API.set_message(p_app_name => G_APP_NAME,
18450: p_msg_name => G_LINE_RECORD);
18451: RAISE OKL_API.G_EXCEPTION_ERROR;
18452: END IF;
18453:
18454: -- To Get the cimv Model Line Record
18455: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18454: -- To Get the cimv Model Line Record
18455: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18456: r_clev_model_rec.dnz_chr_id,
18457: r_cimv_model_rec);
18458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18459: OKL_API.set_message(p_app_name => G_APP_NAME,
18460: p_msg_name => G_FETCHING_INFO,
18461: p_token1 => G_REC_NAME_TOKEN,
18462: p_token1_value => 'OKC_K_ITEMS_V Record');
18455: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18456: r_clev_model_rec.dnz_chr_id,
18457: r_cimv_model_rec);
18458: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18459: OKL_API.set_message(p_app_name => G_APP_NAME,
18460: p_msg_name => G_FETCHING_INFO,
18461: p_token1 => G_REC_NAME_TOKEN,
18462: p_token1_value => 'OKC_K_ITEMS_V Record');
18463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18459: OKL_API.set_message(p_app_name => G_APP_NAME,
18460: p_msg_name => G_FETCHING_INFO,
18461: p_token1 => G_REC_NAME_TOKEN,
18462: p_token1_value => 'OKC_K_ITEMS_V Record');
18463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18465: OKL_API.set_message(p_app_name => G_APP_NAME,
18466: p_msg_name => G_FETCHING_INFO,
18467: p_token1 => G_REC_NAME_TOKEN,
18460: p_msg_name => G_FETCHING_INFO,
18461: p_token1 => G_REC_NAME_TOKEN,
18462: p_token1_value => 'OKC_K_ITEMS_V Record');
18463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18465: OKL_API.set_message(p_app_name => G_APP_NAME,
18466: p_msg_name => G_FETCHING_INFO,
18467: p_token1 => G_REC_NAME_TOKEN,
18468: p_token1_value => 'OKC_K_ITEMS_V Record');
18461: p_token1 => G_REC_NAME_TOKEN,
18462: p_token1_value => 'OKC_K_ITEMS_V Record');
18463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18465: OKL_API.set_message(p_app_name => G_APP_NAME,
18466: p_msg_name => G_FETCHING_INFO,
18467: p_token1 => G_REC_NAME_TOKEN,
18468: p_token1_value => 'OKC_K_ITEMS_V Record');
18469: RAISE OKL_API.G_EXCEPTION_ERROR;
18465: OKL_API.set_message(p_app_name => G_APP_NAME,
18466: p_msg_name => G_FETCHING_INFO,
18467: p_token1 => G_REC_NAME_TOKEN,
18468: p_token1_value => 'OKC_K_ITEMS_V Record');
18469: RAISE OKL_API.G_EXCEPTION_ERROR;
18470: END IF;
18471:
18472: --Build Model cimv item rec
18473: r_cimv_model_rec.number_of_items := ln_remain_inst;
18484: p_cimv_rec => r_cimv_model_rec,
18485: x_clev_rec => l_clev_model_rec_out,
18486: x_klev_rec => l_klev_model_rec_out,
18487: x_cimv_rec => x_cimv_model_rec);
18488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18491: RAISE OKL_API.G_EXCEPTION_ERROR;
18492: END IF;
18485: x_clev_rec => l_clev_model_rec_out,
18486: x_klev_rec => l_klev_model_rec_out,
18487: x_cimv_rec => x_cimv_model_rec);
18488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18491: RAISE OKL_API.G_EXCEPTION_ERROR;
18492: END IF;
18493:
18486: x_klev_rec => l_klev_model_rec_out,
18487: x_cimv_rec => x_cimv_model_rec);
18488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18491: RAISE OKL_API.G_EXCEPTION_ERROR;
18492: END IF;
18493:
18494: -- We need to check if there are add on line and then we update the Addon number of items also
18487: x_cimv_rec => x_cimv_model_rec);
18488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18491: RAISE OKL_API.G_EXCEPTION_ERROR;
18492: END IF;
18493:
18494: -- We need to check if there are add on line and then we update the Addon number of items also
18495: -- Since there can be multiple Addo lines
18499: -- oec of the top line
18500: -- To Get the cle addon Line Record
18501: x_return_status := get_rec_clev(r_addon_line_id.id,
18502: r_clev_addon_rec);
18503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18504: OKL_API.set_message(p_app_name => G_APP_NAME,
18505: p_msg_name => G_FETCHING_INFO,
18506: p_token1 => G_REC_NAME_TOKEN,
18507: p_token1_value => 'OKC_K_LINES_V Record');
18500: -- To Get the cle addon Line Record
18501: x_return_status := get_rec_clev(r_addon_line_id.id,
18502: r_clev_addon_rec);
18503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18504: OKL_API.set_message(p_app_name => G_APP_NAME,
18505: p_msg_name => G_FETCHING_INFO,
18506: p_token1 => G_REC_NAME_TOKEN,
18507: p_token1_value => 'OKC_K_LINES_V Record');
18508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18504: OKL_API.set_message(p_app_name => G_APP_NAME,
18505: p_msg_name => G_FETCHING_INFO,
18506: p_token1 => G_REC_NAME_TOKEN,
18507: p_token1_value => 'OKC_K_LINES_V Record');
18508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18510: OKL_API.set_message(p_app_name => G_APP_NAME,
18511: p_msg_name => G_FETCHING_INFO,
18512: p_token1 => G_REC_NAME_TOKEN,
18505: p_msg_name => G_FETCHING_INFO,
18506: p_token1 => G_REC_NAME_TOKEN,
18507: p_token1_value => 'OKC_K_LINES_V Record');
18508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18510: OKL_API.set_message(p_app_name => G_APP_NAME,
18511: p_msg_name => G_FETCHING_INFO,
18512: p_token1 => G_REC_NAME_TOKEN,
18513: p_token1_value => 'OKC_K_LINES_V Record');
18506: p_token1 => G_REC_NAME_TOKEN,
18507: p_token1_value => 'OKC_K_LINES_V Record');
18508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18510: OKL_API.set_message(p_app_name => G_APP_NAME,
18511: p_msg_name => G_FETCHING_INFO,
18512: p_token1 => G_REC_NAME_TOKEN,
18513: p_token1_value => 'OKC_K_LINES_V Record');
18514: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18510: OKL_API.set_message(p_app_name => G_APP_NAME,
18511: p_msg_name => G_FETCHING_INFO,
18512: p_token1 => G_REC_NAME_TOKEN,
18513: p_token1_value => 'OKC_K_LINES_V Record');
18514: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18515: END IF;
18516: -- To Get the kle Model Line Record
18517: x_return_status := get_rec_klev(r_addon_line_id.id,
18518: r_klev_addon_rec);
18515: END IF;
18516: -- To Get the kle Model Line Record
18517: x_return_status := get_rec_klev(r_addon_line_id.id,
18518: r_klev_addon_rec);
18519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18520: OKL_API.set_message(p_app_name => G_APP_NAME,
18521: p_msg_name => G_FETCHING_INFO,
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18516: -- To Get the kle Model Line Record
18517: x_return_status := get_rec_klev(r_addon_line_id.id,
18518: r_klev_addon_rec);
18519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18520: OKL_API.set_message(p_app_name => G_APP_NAME,
18521: p_msg_name => G_FETCHING_INFO,
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18520: OKL_API.set_message(p_app_name => G_APP_NAME,
18521: p_msg_name => G_FETCHING_INFO,
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18528: p_token1 => G_REC_NAME_TOKEN,
18521: p_msg_name => G_FETCHING_INFO,
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18528: p_token1 => G_REC_NAME_TOKEN,
18529: p_token1_value => 'OKL_K_LINES_V Record');
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18528: p_token1 => G_REC_NAME_TOKEN,
18529: p_token1_value => 'OKL_K_LINES_V Record');
18530: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18528: p_token1 => G_REC_NAME_TOKEN,
18529: p_token1_value => 'OKL_K_LINES_V Record');
18530: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18531: END IF;
18532: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18533: OKL_API.set_message(p_app_name => G_APP_NAME,
18534: p_msg_name => G_LINE_RECORD);
18529: p_token1_value => 'OKL_K_LINES_V Record');
18530: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18531: END IF;
18532: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18533: OKL_API.set_message(p_app_name => G_APP_NAME,
18534: p_msg_name => G_LINE_RECORD);
18535: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18536: END IF;
18537: -- To Get the cimv Model Line Record
18531: END IF;
18532: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18533: OKL_API.set_message(p_app_name => G_APP_NAME,
18534: p_msg_name => G_LINE_RECORD);
18535: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18536: END IF;
18537: -- To Get the cimv Model Line Record
18538: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18539: r_clev_addon_rec.dnz_chr_id,
18537: -- To Get the cimv Model Line Record
18538: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18539: r_clev_addon_rec.dnz_chr_id,
18540: r_cimv_addon_rec);
18541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18542: OKL_API.set_message(p_app_name => G_APP_NAME,
18543: p_msg_name => G_FETCHING_INFO,
18544: p_token1 => G_REC_NAME_TOKEN,
18545: p_token1_value => 'OKC_K_ITEMS_V Record');
18538: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18539: r_clev_addon_rec.dnz_chr_id,
18540: r_cimv_addon_rec);
18541: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18542: OKL_API.set_message(p_app_name => G_APP_NAME,
18543: p_msg_name => G_FETCHING_INFO,
18544: p_token1 => G_REC_NAME_TOKEN,
18545: p_token1_value => 'OKC_K_ITEMS_V Record');
18546: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18542: OKL_API.set_message(p_app_name => G_APP_NAME,
18543: p_msg_name => G_FETCHING_INFO,
18544: p_token1 => G_REC_NAME_TOKEN,
18545: p_token1_value => 'OKC_K_ITEMS_V Record');
18546: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18548: OKL_API.set_message(p_app_name => G_APP_NAME,
18549: p_msg_name => G_FETCHING_INFO,
18550: p_token1 => G_REC_NAME_TOKEN,
18543: p_msg_name => G_FETCHING_INFO,
18544: p_token1 => G_REC_NAME_TOKEN,
18545: p_token1_value => 'OKC_K_ITEMS_V Record');
18546: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18548: OKL_API.set_message(p_app_name => G_APP_NAME,
18549: p_msg_name => G_FETCHING_INFO,
18550: p_token1 => G_REC_NAME_TOKEN,
18551: p_token1_value => 'OKC_K_ITEMS_V Record');
18544: p_token1 => G_REC_NAME_TOKEN,
18545: p_token1_value => 'OKC_K_ITEMS_V Record');
18546: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18548: OKL_API.set_message(p_app_name => G_APP_NAME,
18549: p_msg_name => G_FETCHING_INFO,
18550: p_token1 => G_REC_NAME_TOKEN,
18551: p_token1_value => 'OKC_K_ITEMS_V Record');
18552: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18548: OKL_API.set_message(p_app_name => G_APP_NAME,
18549: p_msg_name => G_FETCHING_INFO,
18550: p_token1 => G_REC_NAME_TOKEN,
18551: p_token1_value => 'OKC_K_ITEMS_V Record');
18552: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18553: END IF;
18554: --Build addon cimv item rec
18555: r_cimv_addon_rec.number_of_items := ln_remain_inst;
18556: -- Updating of the addon Line and Item Record
18566: p_cimv_rec => r_cimv_addon_rec,
18567: x_clev_rec => rx_clev_addon_rec,
18568: x_klev_rec => rx_klev_addon_rec,
18569: x_cimv_rec => rx_cimv_addon_rec);
18570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18567: x_clev_rec => rx_clev_addon_rec,
18568: x_klev_rec => rx_klev_addon_rec,
18569: x_cimv_rec => rx_cimv_addon_rec);
18570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18575: END LOOP;
18568: x_klev_rec => rx_klev_addon_rec,
18569: x_cimv_rec => rx_cimv_addon_rec);
18570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18569: x_cimv_rec => rx_cimv_addon_rec);
18570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18579: RAISE OKL_API.G_EXCEPTION_ERROR;
18580: END IF;
18573: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18574: END IF;
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18579: RAISE OKL_API.G_EXCEPTION_ERROR;
18580: END IF;
18581:
18574: END IF;
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18579: RAISE OKL_API.G_EXCEPTION_ERROR;
18580: END IF;
18581:
18582: -- Since we need to populate the OEC into fixed asset line also
18575: END LOOP;
18576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18579: RAISE OKL_API.G_EXCEPTION_ERROR;
18580: END IF;
18581:
18582: -- Since we need to populate the OEC into fixed asset line also
18583: -- So we need to calcualte the same here it self
18593: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18594: x_fin_clev_rec => x_clev_fin_rec,
18595: x_fin_klev_rec => x_klev_fin_rec,
18596: x_oec => ln_klev_fin_oec,
18597: p_validate_fin_line => OKL_API.G_TRUE);
18598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18594: x_fin_clev_rec => x_clev_fin_rec,
18595: x_fin_klev_rec => x_klev_fin_rec,
18596: x_oec => ln_klev_fin_oec,
18597: p_validate_fin_line => OKL_API.G_TRUE);
18598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18602: END IF;
18595: x_fin_klev_rec => x_klev_fin_rec,
18596: x_oec => ln_klev_fin_oec,
18597: p_validate_fin_line => OKL_API.G_TRUE);
18598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18602: END IF;
18603:
18596: x_oec => ln_klev_fin_oec,
18597: p_validate_fin_line => OKL_API.G_TRUE);
18598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18602: END IF;
18603:
18604: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18597: p_validate_fin_line => OKL_API.G_TRUE);
18598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18602: END IF;
18603:
18604: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18605: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
18614: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18615: x_fin_clev_rec => x_clev_fin_rec,
18616: x_fin_klev_rec => x_klev_fin_rec,
18617: x_cap_amt => ln_klev_fin_cap,
18618: p_validate_fin_line => OKL_API.G_TRUE);
18619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18615: x_fin_clev_rec => x_clev_fin_rec,
18616: x_fin_klev_rec => x_klev_fin_rec,
18617: x_cap_amt => ln_klev_fin_cap,
18618: p_validate_fin_line => OKL_API.G_TRUE);
18619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18623: END IF;
18616: x_fin_klev_rec => x_klev_fin_rec,
18617: x_cap_amt => ln_klev_fin_cap,
18618: p_validate_fin_line => OKL_API.G_TRUE);
18619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18623: END IF;
18624:
18617: x_cap_amt => ln_klev_fin_cap,
18618: p_validate_fin_line => OKL_API.G_TRUE);
18619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18623: END IF;
18624:
18625: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18618: p_validate_fin_line => OKL_API.G_TRUE);
18619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18623: END IF;
18624:
18625: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18626: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
18635: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18636: x_fin_clev_rec => x_clev_fin_rec,
18637: x_fin_klev_rec => x_klev_fin_rec,
18638: x_res_value => ln_klev_fin_res,
18639: p_validate_fin_line => OKL_API.G_TRUE);
18640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18643: RAISE OKL_API.G_EXCEPTION_ERROR;
18636: x_fin_clev_rec => x_clev_fin_rec,
18637: x_fin_klev_rec => x_klev_fin_rec,
18638: x_res_value => ln_klev_fin_res,
18639: p_validate_fin_line => OKL_API.G_TRUE);
18640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18643: RAISE OKL_API.G_EXCEPTION_ERROR;
18644: END IF;
18637: x_fin_klev_rec => x_klev_fin_rec,
18638: x_res_value => ln_klev_fin_res,
18639: p_validate_fin_line => OKL_API.G_TRUE);
18640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18643: RAISE OKL_API.G_EXCEPTION_ERROR;
18644: END IF;
18645:
18638: x_res_value => ln_klev_fin_res,
18639: p_validate_fin_line => OKL_API.G_TRUE);
18640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18643: RAISE OKL_API.G_EXCEPTION_ERROR;
18644: END IF;
18645:
18646: -- Updating of the Fixed Asset Line Process
18639: p_validate_fin_line => OKL_API.G_TRUE);
18640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18643: RAISE OKL_API.G_EXCEPTION_ERROR;
18644: END IF;
18645:
18646: -- Updating of the Fixed Asset Line Process
18647: -- To Get the cle fa Line Record
18646: -- Updating of the Fixed Asset Line Process
18647: -- To Get the cle fa Line Record
18648: x_return_status := get_rec_clev(ln_fa_line_id,
18649: r_clev_fa_rec);
18650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18651: OKL_API.set_message(p_app_name => G_APP_NAME,
18652: p_msg_name => G_FETCHING_INFO,
18653: p_token1 => G_REC_NAME_TOKEN,
18654: p_token1_value => 'OKC_K_LINES_V Record');
18647: -- To Get the cle fa Line Record
18648: x_return_status := get_rec_clev(ln_fa_line_id,
18649: r_clev_fa_rec);
18650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18651: OKL_API.set_message(p_app_name => G_APP_NAME,
18652: p_msg_name => G_FETCHING_INFO,
18653: p_token1 => G_REC_NAME_TOKEN,
18654: p_token1_value => 'OKC_K_LINES_V Record');
18655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18651: OKL_API.set_message(p_app_name => G_APP_NAME,
18652: p_msg_name => G_FETCHING_INFO,
18653: p_token1 => G_REC_NAME_TOKEN,
18654: p_token1_value => 'OKC_K_LINES_V Record');
18655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18657: OKL_API.set_message(p_app_name => G_APP_NAME,
18658: p_msg_name => G_FETCHING_INFO,
18659: p_token1 => G_REC_NAME_TOKEN,
18652: p_msg_name => G_FETCHING_INFO,
18653: p_token1 => G_REC_NAME_TOKEN,
18654: p_token1_value => 'OKC_K_LINES_V Record');
18655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18657: OKL_API.set_message(p_app_name => G_APP_NAME,
18658: p_msg_name => G_FETCHING_INFO,
18659: p_token1 => G_REC_NAME_TOKEN,
18660: p_token1_value => 'OKC_K_LINES_V Record');
18653: p_token1 => G_REC_NAME_TOKEN,
18654: p_token1_value => 'OKC_K_LINES_V Record');
18655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18656: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18657: OKL_API.set_message(p_app_name => G_APP_NAME,
18658: p_msg_name => G_FETCHING_INFO,
18659: p_token1 => G_REC_NAME_TOKEN,
18660: p_token1_value => 'OKC_K_LINES_V Record');
18661: RAISE OKL_API.G_EXCEPTION_ERROR;
18657: OKL_API.set_message(p_app_name => G_APP_NAME,
18658: p_msg_name => G_FETCHING_INFO,
18659: p_token1 => G_REC_NAME_TOKEN,
18660: p_token1_value => 'OKC_K_LINES_V Record');
18661: RAISE OKL_API.G_EXCEPTION_ERROR;
18662: END IF;
18663:
18664: -- To Get the kle fa Line Record
18665: x_return_status := get_rec_klev(ln_fa_line_id,
18663:
18664: -- To Get the kle fa Line Record
18665: x_return_status := get_rec_klev(ln_fa_line_id,
18666: r_klev_fa_rec);
18667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18668: OKL_API.set_message(p_app_name => G_APP_NAME,
18669: p_msg_name => G_FETCHING_INFO,
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18664: -- To Get the kle fa Line Record
18665: x_return_status := get_rec_klev(ln_fa_line_id,
18666: r_klev_fa_rec);
18667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18668: OKL_API.set_message(p_app_name => G_APP_NAME,
18669: p_msg_name => G_FETCHING_INFO,
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18668: OKL_API.set_message(p_app_name => G_APP_NAME,
18669: p_msg_name => G_FETCHING_INFO,
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18676: p_token1 => G_REC_NAME_TOKEN,
18669: p_msg_name => G_FETCHING_INFO,
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18676: p_token1 => G_REC_NAME_TOKEN,
18677: p_token1_value => 'OKL_K_LINES_V Record');
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18676: p_token1 => G_REC_NAME_TOKEN,
18677: p_token1_value => 'OKL_K_LINES_V Record');
18678: RAISE OKL_API.G_EXCEPTION_ERROR;
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18676: p_token1 => G_REC_NAME_TOKEN,
18677: p_token1_value => 'OKL_K_LINES_V Record');
18678: RAISE OKL_API.G_EXCEPTION_ERROR;
18679: END IF;
18680:
18681: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18682: OKL_API.set_message(p_app_name => G_APP_NAME,
18678: RAISE OKL_API.G_EXCEPTION_ERROR;
18679: END IF;
18680:
18681: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18682: OKL_API.set_message(p_app_name => G_APP_NAME,
18683: p_msg_name => G_LINE_RECORD);
18684: RAISE OKL_API.G_EXCEPTION_ERROR;
18685: END IF;
18686:
18680:
18681: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18682: OKL_API.set_message(p_app_name => G_APP_NAME,
18683: p_msg_name => G_LINE_RECORD);
18684: RAISE OKL_API.G_EXCEPTION_ERROR;
18685: END IF;
18686:
18687: -- To Get the cimv fa Line Record
18688: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18687: -- To Get the cimv fa Line Record
18688: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18689: r_clev_fa_rec.dnz_chr_id,
18690: r_cimv_fa_rec);
18691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18692: OKL_API.set_message(p_app_name => G_APP_NAME,
18693: p_msg_name => G_FETCHING_INFO,
18694: p_token1 => G_REC_NAME_TOKEN,
18695: p_token1_value => 'OKC_K_ITEMS_V Record');
18688: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18689: r_clev_fa_rec.dnz_chr_id,
18690: r_cimv_fa_rec);
18691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18692: OKL_API.set_message(p_app_name => G_APP_NAME,
18693: p_msg_name => G_FETCHING_INFO,
18694: p_token1 => G_REC_NAME_TOKEN,
18695: p_token1_value => 'OKC_K_ITEMS_V Record');
18696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18692: OKL_API.set_message(p_app_name => G_APP_NAME,
18693: p_msg_name => G_FETCHING_INFO,
18694: p_token1 => G_REC_NAME_TOKEN,
18695: p_token1_value => 'OKC_K_ITEMS_V Record');
18696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18698: OKL_API.set_message(p_app_name => G_APP_NAME,
18699: p_msg_name => G_FETCHING_INFO,
18700: p_token1 => G_REC_NAME_TOKEN,
18693: p_msg_name => G_FETCHING_INFO,
18694: p_token1 => G_REC_NAME_TOKEN,
18695: p_token1_value => 'OKC_K_ITEMS_V Record');
18696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18698: OKL_API.set_message(p_app_name => G_APP_NAME,
18699: p_msg_name => G_FETCHING_INFO,
18700: p_token1 => G_REC_NAME_TOKEN,
18701: p_token1_value => 'OKC_K_ITEMS_V Record');
18694: p_token1 => G_REC_NAME_TOKEN,
18695: p_token1_value => 'OKC_K_ITEMS_V Record');
18696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18698: OKL_API.set_message(p_app_name => G_APP_NAME,
18699: p_msg_name => G_FETCHING_INFO,
18700: p_token1 => G_REC_NAME_TOKEN,
18701: p_token1_value => 'OKC_K_ITEMS_V Record');
18702: RAISE OKL_API.G_EXCEPTION_ERROR;
18698: OKL_API.set_message(p_app_name => G_APP_NAME,
18699: p_msg_name => G_FETCHING_INFO,
18700: p_token1 => G_REC_NAME_TOKEN,
18701: p_token1_value => 'OKC_K_ITEMS_V Record');
18702: RAISE OKL_API.G_EXCEPTION_ERROR;
18703: END IF;
18704:
18705: --Build cimv fa item rec
18706: r_cimv_fa_rec.number_of_items := ln_remain_inst;
18706: r_cimv_fa_rec.number_of_items := ln_remain_inst;
18707: --Build talv fa item rec
18708: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
18709: r_talv_fa_rec);
18710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18711: OKL_API.set_message(p_app_name => G_APP_NAME,
18712: p_msg_name => G_FETCHING_INFO,
18713: p_token1 => G_REC_NAME_TOKEN,
18714: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18707: --Build talv fa item rec
18708: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
18709: r_talv_fa_rec);
18710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18711: OKL_API.set_message(p_app_name => G_APP_NAME,
18712: p_msg_name => G_FETCHING_INFO,
18713: p_token1 => G_REC_NAME_TOKEN,
18714: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18711: OKL_API.set_message(p_app_name => G_APP_NAME,
18712: p_msg_name => G_FETCHING_INFO,
18713: p_token1 => G_REC_NAME_TOKEN,
18714: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18717: OKL_API.set_message(p_app_name => G_APP_NAME,
18718: p_msg_name => G_FETCHING_INFO,
18719: p_token1 => G_REC_NAME_TOKEN,
18712: p_msg_name => G_FETCHING_INFO,
18713: p_token1 => G_REC_NAME_TOKEN,
18714: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18717: OKL_API.set_message(p_app_name => G_APP_NAME,
18718: p_msg_name => G_FETCHING_INFO,
18719: p_token1 => G_REC_NAME_TOKEN,
18720: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18713: p_token1 => G_REC_NAME_TOKEN,
18714: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18717: OKL_API.set_message(p_app_name => G_APP_NAME,
18718: p_msg_name => G_FETCHING_INFO,
18719: p_token1 => G_REC_NAME_TOKEN,
18720: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18721: RAISE OKL_API.G_EXCEPTION_ERROR;
18717: OKL_API.set_message(p_app_name => G_APP_NAME,
18718: p_msg_name => G_FETCHING_INFO,
18719: p_token1 => G_REC_NAME_TOKEN,
18720: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18721: RAISE OKL_API.G_EXCEPTION_ERROR;
18722: END IF;
18723:
18724: --Build talv fa item rec
18725: r_talv_fa_rec.current_units := ln_remain_inst;
18759: x_clev_rec => l_clev_fa_rec_out,
18760: x_klev_rec => l_klev_fa_rec_out,
18761: x_cimv_rec => x_cimv_fa_rec,
18762: x_talv_rec => x_talv_fa_rec);
18763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18766: RAISE OKL_API.G_EXCEPTION_ERROR;
18767: END IF;
18760: x_klev_rec => l_klev_fa_rec_out,
18761: x_cimv_rec => x_cimv_fa_rec,
18762: x_talv_rec => x_talv_fa_rec);
18763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18766: RAISE OKL_API.G_EXCEPTION_ERROR;
18767: END IF;
18768: --akrangan Bug# 5362977 start
18761: x_cimv_rec => x_cimv_fa_rec,
18762: x_talv_rec => x_talv_fa_rec);
18763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18766: RAISE OKL_API.G_EXCEPTION_ERROR;
18767: END IF;
18768: --akrangan Bug# 5362977 start
18769: -- Update Tax Book details - okl_txd_assets_b
18762: x_talv_rec => x_talv_fa_rec);
18763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18766: RAISE OKL_API.G_EXCEPTION_ERROR;
18767: END IF;
18768: --akrangan Bug# 5362977 start
18769: -- Update Tax Book details - okl_txd_assets_b
18770: update_asset_line_details(p_api_version => p_api_version,
18774: x_msg_data => x_msg_data,
18775: p_asset_number => p_asset_number,
18776: p_original_cost => x_talv_fa_rec.original_cost,
18777: p_tal_id => x_talv_fa_rec.ID);
18778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18775: p_asset_number => p_asset_number,
18776: p_original_cost => x_talv_fa_rec.original_cost,
18777: p_tal_id => x_talv_fa_rec.ID);
18778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: --akrangan Bug# 5362977 end
18776: p_original_cost => x_talv_fa_rec.original_cost,
18777: p_tal_id => x_talv_fa_rec.ID);
18778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: --akrangan Bug# 5362977 end
18784:
18777: p_tal_id => x_talv_fa_rec.ID);
18778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18781: RAISE OKL_API.G_EXCEPTION_ERROR;
18782: END IF;
18783: --akrangan Bug# 5362977 end
18784:
18785: -- We need to change the status of the header whenever there is updating happening
18784:
18785: -- We need to change the status of the header whenever there is updating happening
18786: -- after the contract status is approved
18787: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
18788: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
18789: --cascade edit status on to lines
18790: okl_contract_status_pub.cascade_lease_status_edit
18791: (p_api_version => p_api_version,
18792: p_init_msg_list => p_init_msg_list,
18793: x_return_status => x_return_status,
18794: x_msg_count => x_msg_count,
18795: x_msg_data => x_msg_data,
18796: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
18797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18800: RAISE OKL_API.G_EXCEPTION_ERROR;
18801: END IF;
18794: x_msg_count => x_msg_count,
18795: x_msg_data => x_msg_data,
18796: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
18797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18800: RAISE OKL_API.G_EXCEPTION_ERROR;
18801: END IF;
18802: END IF;
18795: x_msg_data => x_msg_data,
18796: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
18797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18800: RAISE OKL_API.G_EXCEPTION_ERROR;
18801: END IF;
18802: END IF;
18803:
18796: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
18797: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18798: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18799: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18800: RAISE OKL_API.G_EXCEPTION_ERROR;
18801: END IF;
18802: END IF;
18803:
18804: END IF;
18802: END IF;
18803:
18804: END IF;
18805:
18806: OKL_API.END_ACTIVITY (x_msg_count,
18807: x_msg_data );
18808: EXCEPTION
18809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
18810: IF c_model_item%ISOPEN THEN
18805:
18806: OKL_API.END_ACTIVITY (x_msg_count,
18807: x_msg_data );
18808: EXCEPTION
18809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
18810: IF c_model_item%ISOPEN THEN
18811: CLOSE c_model_item;
18812: END IF;
18813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
18809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
18810: IF c_model_item%ISOPEN THEN
18811: CLOSE c_model_item;
18812: END IF;
18813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
18814: l_api_name,
18815: G_PKG_NAME,
18816: 'OKL_API.G_RET_STS_ERROR',
18817: x_msg_count,
18812: END IF;
18813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
18814: l_api_name,
18815: G_PKG_NAME,
18816: 'OKL_API.G_RET_STS_ERROR',
18817: x_msg_count,
18818: x_msg_data,
18819: '_PVT');
18820: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
18816: 'OKL_API.G_RET_STS_ERROR',
18817: x_msg_count,
18818: x_msg_data,
18819: '_PVT');
18820: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
18821: IF c_model_item%ISOPEN THEN
18822: CLOSE c_model_item;
18823: END IF;
18824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18820: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
18821: IF c_model_item%ISOPEN THEN
18822: CLOSE c_model_item;
18823: END IF;
18824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18825: l_api_name,
18826: G_PKG_NAME,
18827: 'OKL_API.G_RET_STS_UNEXP_ERROR',
18828: x_msg_count,
18823: END IF;
18824: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18825: l_api_name,
18826: G_PKG_NAME,
18827: 'OKL_API.G_RET_STS_UNEXP_ERROR',
18828: x_msg_count,
18829: x_msg_data,
18830: '_PVT');
18831: WHEN OTHERS THEN
18831: WHEN OTHERS THEN
18832: IF c_model_item%ISOPEN THEN
18833: CLOSE c_model_item;
18834: END IF;
18835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18836: l_api_name,
18837: G_PKG_NAME,
18838: 'OTHERS',
18839: x_msg_count,
18870: l_klev_ib_rec_out klev_rec_type;
18871: l_cimv_ib_rec_out cimv_rec_type;
18872: l_trxv_ib_rec_out trxv_rec_type;
18873: ln_remain_inst NUMBER := 0;
18874: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18875: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
18876: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18877: r_clev_model_rec clev_rec_type;
18878: r_klev_model_rec klev_rec_type;
18871: l_cimv_ib_rec_out cimv_rec_type;
18872: l_trxv_ib_rec_out trxv_rec_type;
18873: ln_remain_inst NUMBER := 0;
18874: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18875: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
18876: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18877: r_clev_model_rec clev_rec_type;
18878: r_klev_model_rec klev_rec_type;
18879: r_cimv_model_rec cimv_rec_type;
18872: l_trxv_ib_rec_out trxv_rec_type;
18873: ln_remain_inst NUMBER := 0;
18874: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18875: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
18876: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18877: r_clev_model_rec clev_rec_type;
18878: r_klev_model_rec klev_rec_type;
18879: r_cimv_model_rec cimv_rec_type;
18880: r_clev_fa_rec clev_rec_type;
19028: l_rbk_khr VARCHAR2(1);
19029: --akrangan Bug# 5362977 end
19030:
19031: BEGIN
19032: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19033: -- Call start_activity to create savepoint, check compatibility
19034: -- and initialize message list
19035: x_return_status := OKL_API.START_ACTIVITY (
19036: l_api_name
19031: BEGIN
19032: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19033: -- Call start_activity to create savepoint, check compatibility
19034: -- and initialize message list
19035: x_return_status := OKL_API.START_ACTIVITY (
19036: l_api_name
19037: ,p_init_msg_list
19038: ,'_PVT'
19039: ,x_return_status);
19037: ,p_init_msg_list
19038: ,'_PVT'
19039: ,x_return_status);
19040: -- Check if activity started successfully
19041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19044: RAISE OKL_API.G_EXCEPTION_ERROR;
19045: END IF;
19038: ,'_PVT'
19039: ,x_return_status);
19040: -- Check if activity started successfully
19041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19044: RAISE OKL_API.G_EXCEPTION_ERROR;
19045: END IF;
19046: -- We must have top line id to go further
19039: ,x_return_status);
19040: -- Check if activity started successfully
19041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19044: RAISE OKL_API.G_EXCEPTION_ERROR;
19045: END IF;
19046: -- We must have top line id to go further
19047: IF (p_top_line_id IS NUll OR
19040: -- Check if activity started successfully
19041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19044: RAISE OKL_API.G_EXCEPTION_ERROR;
19045: END IF;
19046: -- We must have top line id to go further
19047: IF (p_top_line_id IS NUll OR
19048: p_top_line_id = OKL_API.G_MISS_NUM) AND
19044: RAISE OKL_API.G_EXCEPTION_ERROR;
19045: END IF;
19046: -- We must have top line id to go further
19047: IF (p_top_line_id IS NUll OR
19048: p_top_line_id = OKL_API.G_MISS_NUM) AND
19049: (p_dnz_chr_id IS NUll OR
19050: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19051: OKL_API.set_message(p_app_name => G_APP_NAME,
19052: p_msg_name => G_REQUIRED_VALUE,
19046: -- We must have top line id to go further
19047: IF (p_top_line_id IS NUll OR
19048: p_top_line_id = OKL_API.G_MISS_NUM) AND
19049: (p_dnz_chr_id IS NUll OR
19050: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19051: OKL_API.set_message(p_app_name => G_APP_NAME,
19052: p_msg_name => G_REQUIRED_VALUE,
19053: p_token1 => G_COL_NAME_TOKEN,
19054: p_token1_value => 'Top Line and Dnz_chr_id');
19047: IF (p_top_line_id IS NUll OR
19048: p_top_line_id = OKL_API.G_MISS_NUM) AND
19049: (p_dnz_chr_id IS NUll OR
19050: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19051: OKL_API.set_message(p_app_name => G_APP_NAME,
19052: p_msg_name => G_REQUIRED_VALUE,
19053: p_token1 => G_COL_NAME_TOKEN,
19054: p_token1_value => 'Top Line and Dnz_chr_id');
19055: RAISE OKL_API.G_EXCEPTION_ERROR;
19051: OKL_API.set_message(p_app_name => G_APP_NAME,
19052: p_msg_name => G_REQUIRED_VALUE,
19053: p_token1 => G_COL_NAME_TOKEN,
19054: p_token1_value => 'Top Line and Dnz_chr_id');
19055: RAISE OKL_API.G_EXCEPTION_ERROR;
19056: END IF;
19057:
19058: -- Get the model item
19059: OPEN c_model_item(p_top_line_id,
19058: -- Get the model item
19059: OPEN c_model_item(p_top_line_id,
19060: p_dnz_chr_id);
19061: IF c_model_item%NOTFOUND THEN
19062: OKL_API.set_message(p_app_name => G_APP_NAME,
19063: p_msg_name => G_NO_MATCHING_RECORD,
19064: p_token1 => G_COL_NAME_TOKEN,
19065: p_token1_value => 'Item_Id');
19066: RAISE OKL_API.G_EXCEPTION_ERROR;
19062: OKL_API.set_message(p_app_name => G_APP_NAME,
19063: p_msg_name => G_NO_MATCHING_RECORD,
19064: p_token1 => G_COL_NAME_TOKEN,
19065: p_token1_value => 'Item_Id');
19066: RAISE OKL_API.G_EXCEPTION_ERROR;
19067: END IF;
19068: FETCH c_model_item INTO ln_model_item;
19069: CLOSE c_model_item;
19070:
19076: -- We have intialize the I, since there could be any index integer
19077: i := l_itiv_ib_tbl.FIRST;
19078: LOOP
19079: IF l_itiv_ib_tbl(i).id IS NULL OR
19080: l_itiv_ib_tbl(i).id = OKL_API.G_MISS_NUM THEN
19081:
19082: -- 4334903 Assign the line style ID directly
19083: /*
19084: -- Creation of the Instance Line Process
19084: -- Creation of the Instance Line Process
19085: -- Getting the Line style Info
19086: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19087: x_lse_id => l_clev_inst_rec.lse_id);
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19085: -- Getting the Line style Info
19086: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19087: x_lse_id => l_clev_inst_rec.lse_id);
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: */
19086: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19087: x_lse_id => l_clev_inst_rec.lse_id);
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: */
19094: --akrangan Bug# 5362977 start
19087: x_lse_id => l_clev_inst_rec.lse_id);
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: */
19094: --akrangan Bug# 5362977 start
19095: -- Do not allow update of units if the contract has Re-lease assets
19098: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
19099: CLOSE l_chk_rel_ast_csr;
19100:
19101: IF l_chk_rel_ast = 'Y' THEN
19102: OKL_API.set_message(p_app_name => G_APP_NAME,
19103: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
19104: RAISE OKL_API.G_EXCEPTION_ERROR;
19105: END IF;
19106: --akrangan Bug# 5362977 end
19100:
19101: IF l_chk_rel_ast = 'Y' THEN
19102: OKL_API.set_message(p_app_name => G_APP_NAME,
19103: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
19104: RAISE OKL_API.G_EXCEPTION_ERROR;
19105: END IF;
19106: --akrangan Bug# 5362977 end
19107:
19108: l_clev_inst_rec.display_sequence := 1;
19114: l_clev_inst_rec.cle_id := p_top_line_id;
19115: l_clev_inst_rec.dnz_chr_id := p_dnz_chr_id;
19116: l_clev_inst_rec.exception_yn := 'N';
19117: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19118: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19119: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19116: l_clev_inst_rec.exception_yn := 'N';
19117: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19118: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19119: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19117: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19118: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19119: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19125: OKL_API.set_message(p_app_name => G_APP_NAME,
19119: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19125: OKL_API.set_message(p_app_name => G_APP_NAME,
19126: p_msg_name => G_GEN_INST_NUM_IB);
19127: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19120: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19125: OKL_API.set_message(p_app_name => G_APP_NAME,
19126: p_msg_name => G_GEN_INST_NUM_IB);
19127: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19128: END IF;
19121: OKL_API.set_message(p_app_name => G_APP_NAME,
19122: p_msg_name => G_GEN_INST_NUM_IB);
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19125: OKL_API.set_message(p_app_name => G_APP_NAME,
19126: p_msg_name => G_GEN_INST_NUM_IB);
19127: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19128: END IF;
19129: l_itiv_ib_tbl(i).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(i).instance_number_ib;
19123: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19125: OKL_API.set_message(p_app_name => G_APP_NAME,
19126: p_msg_name => G_GEN_INST_NUM_IB);
19127: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19128: END IF;
19129: l_itiv_ib_tbl(i).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(i).instance_number_ib;
19130: END IF;
19131: -- Creation of the Instance Line
19139: p_itiv_rec => l_itiv_ib_tbl(i),
19140: x_clev_rec => l_clev_inst_rec_out,
19141: x_klev_rec => l_klev_inst_rec_out,
19142: x_itiv_rec => l_itiv_ib_tbl_out(i));
19143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19144: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19146: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19147: END IF;
19140: x_clev_rec => l_clev_inst_rec_out,
19141: x_klev_rec => l_klev_inst_rec_out,
19142: x_itiv_rec => l_itiv_ib_tbl_out(i));
19143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19144: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19146: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19147: END IF;
19148: -- 4414408 Assign the line style ID directly
19141: x_klev_rec => l_klev_inst_rec_out,
19142: x_itiv_rec => l_itiv_ib_tbl_out(i));
19143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19144: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19146: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19147: END IF;
19148: -- 4414408 Assign the line style ID directly
19149: /*
19142: x_itiv_rec => l_itiv_ib_tbl_out(i));
19143: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19144: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19146: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19147: END IF;
19148: -- 4414408 Assign the line style ID directly
19149: /*
19150: -- Creation of the ib Line Process
19150: -- Creation of the ib Line Process
19151: -- Getting the Line style Info
19152: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19153: x_lse_id => l_clev_ib_rec.lse_id);
19154: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19157: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19158: END IF;
19151: -- Getting the Line style Info
19152: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19153: x_lse_id => l_clev_ib_rec.lse_id);
19154: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19157: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19158: END IF;
19159: */
19152: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19153: x_lse_id => l_clev_ib_rec.lse_id);
19154: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19157: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19158: END IF;
19159: */
19160: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
19153: x_lse_id => l_clev_ib_rec.lse_id);
19154: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19156: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19157: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19158: END IF;
19159: */
19160: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
19161: l_clev_ib_rec.display_sequence := 2;
19173: lv_object_id1_new := l_itiv_ib_tbl(i).object_id1_new;
19174: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
19175: x_object_id1_new => l_itiv_ib_tbl(i).object_id1_new,
19176: x_object_id2_new => l_itiv_ib_tbl(i).object_id2_new);
19177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19178: OKL_API.set_message(p_app_name => G_APP_NAME,
19179: p_msg_name => G_NO_MATCHING_RECORD,
19180: p_token1 => G_COL_NAME_TOKEN,
19181: p_token1_value => 'Party_site_id');
19174: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
19175: x_object_id1_new => l_itiv_ib_tbl(i).object_id1_new,
19176: x_object_id2_new => l_itiv_ib_tbl(i).object_id2_new);
19177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19178: OKL_API.set_message(p_app_name => G_APP_NAME,
19179: p_msg_name => G_NO_MATCHING_RECORD,
19180: p_token1 => G_COL_NAME_TOKEN,
19181: p_token1_value => 'Party_site_id');
19182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19178: OKL_API.set_message(p_app_name => G_APP_NAME,
19179: p_msg_name => G_NO_MATCHING_RECORD,
19180: p_token1 => G_COL_NAME_TOKEN,
19181: p_token1_value => 'Party_site_id');
19182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19184: OKL_API.set_message(p_app_name => G_APP_NAME,
19185: p_msg_name => G_NO_MATCHING_RECORD,
19186: p_token1 => G_COL_NAME_TOKEN,
19179: p_msg_name => G_NO_MATCHING_RECORD,
19180: p_token1 => G_COL_NAME_TOKEN,
19181: p_token1_value => 'Party_site_id');
19182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19184: OKL_API.set_message(p_app_name => G_APP_NAME,
19185: p_msg_name => G_NO_MATCHING_RECORD,
19186: p_token1 => G_COL_NAME_TOKEN,
19187: p_token1_value => 'Party_site_id');
19180: p_token1 => G_COL_NAME_TOKEN,
19181: p_token1_value => 'Party_site_id');
19182: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19184: OKL_API.set_message(p_app_name => G_APP_NAME,
19185: p_msg_name => G_NO_MATCHING_RECORD,
19186: p_token1 => G_COL_NAME_TOKEN,
19187: p_token1_value => 'Party_site_id');
19188: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19184: OKL_API.set_message(p_app_name => G_APP_NAME,
19185: p_msg_name => G_NO_MATCHING_RECORD,
19186: p_token1 => G_COL_NAME_TOKEN,
19187: p_token1_value => 'Party_site_id');
19188: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19189: END IF;
19190:
19191: -- Check for uniqueness of Serial number
19192: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19190:
19191: -- Check for uniqueness of Serial number
19192: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19193: p_item_id => ln_model_item);
19194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19195: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19198: END IF;
19191: -- Check for uniqueness of Serial number
19192: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19193: p_item_id => ln_model_item);
19194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19195: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19198: END IF;
19199:
19192: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19193: p_item_id => ln_model_item);
19194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19195: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19198: END IF;
19199:
19200: -- Creation of the ib Line
19193: p_item_id => ln_model_item);
19194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19195: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19197: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19198: END IF;
19199:
19200: -- Creation of the ib Line
19201: Create_instance_ib_line(p_api_version => p_api_version,
19211: x_klev_rec => l_klev_ib_rec_out,
19212: x_cimv_rec => l_cimv_ib_rec_out,
19213: x_trxv_rec => l_trxv_ib_rec_out,
19214: x_itiv_rec => x_itiv_ib_tbl(i));
19215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19216: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19218: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19219: END IF;
19212: x_cimv_rec => l_cimv_ib_rec_out,
19213: x_trxv_rec => l_trxv_ib_rec_out,
19214: x_itiv_rec => x_itiv_ib_tbl(i));
19215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19216: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19218: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19219: END IF;
19220: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19213: x_trxv_rec => l_trxv_ib_rec_out,
19214: x_itiv_rec => x_itiv_ib_tbl(i));
19215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19216: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19218: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19219: END IF;
19220: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19221: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19214: x_itiv_rec => x_itiv_ib_tbl(i));
19215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19216: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19218: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19219: END IF;
19220: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19221: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19222:
19217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19218: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19219: END IF;
19220: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19221: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19222:
19223: -- Check for uniqueness of Serial number
19224: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19225: p_item_id => ln_model_item);
19222:
19223: -- Check for uniqueness of Serial number
19224: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19225: p_item_id => ln_model_item);
19226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19230: END IF;
19223: -- Check for uniqueness of Serial number
19224: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19225: p_item_id => ln_model_item);
19226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19230: END IF;
19231:
19224: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19225: p_item_id => ln_model_item);
19226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19230: END IF;
19231:
19232: -- We are here b'cause we have to update the okl_txl_itm_inst rec
19225: p_item_id => ln_model_item);
19226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19227: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19229: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19230: END IF;
19231:
19232: -- We are here b'cause we have to update the okl_txl_itm_inst rec
19233: -- So we are calling the update api for the okl_txl_itm_insts rec
19238: x_msg_count => x_msg_count,
19239: x_msg_data => x_msg_data,
19240: p_itiv_rec => l_itiv_ib_tbl(i),
19241: x_itiv_rec => x_itiv_ib_tbl(i));
19242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19243: OKL_API.set_message(p_app_name => G_APP_NAME,
19244: p_msg_name => G_ITI_ID);
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19239: x_msg_data => x_msg_data,
19240: p_itiv_rec => l_itiv_ib_tbl(i),
19241: x_itiv_rec => x_itiv_ib_tbl(i));
19242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19243: OKL_API.set_message(p_app_name => G_APP_NAME,
19244: p_msg_name => G_ITI_ID);
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19247: OKL_API.set_message(p_app_name => G_APP_NAME,
19241: x_itiv_rec => x_itiv_ib_tbl(i));
19242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19243: OKL_API.set_message(p_app_name => G_APP_NAME,
19244: p_msg_name => G_ITI_ID);
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19247: OKL_API.set_message(p_app_name => G_APP_NAME,
19248: p_msg_name => G_ITI_ID);
19249: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19243: OKL_API.set_message(p_app_name => G_APP_NAME,
19244: p_msg_name => G_ITI_ID);
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19247: OKL_API.set_message(p_app_name => G_APP_NAME,
19248: p_msg_name => G_ITI_ID);
19249: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19250: END IF;
19243: OKL_API.set_message(p_app_name => G_APP_NAME,
19244: p_msg_name => G_ITI_ID);
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19247: OKL_API.set_message(p_app_name => G_APP_NAME,
19248: p_msg_name => G_ITI_ID);
19249: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19250: END IF;
19251: ELSE
19245: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19247: OKL_API.set_message(p_app_name => G_APP_NAME,
19248: p_msg_name => G_ITI_ID);
19249: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19250: END IF;
19251: ELSE
19252: OKL_API.set_message(p_app_name => G_APP_NAME,
19253: p_msg_name => G_LINE_RECORD);
19248: p_msg_name => G_ITI_ID);
19249: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19250: END IF;
19251: ELSE
19252: OKL_API.set_message(p_app_name => G_APP_NAME,
19253: p_msg_name => G_LINE_RECORD);
19254: x_return_status := OKL_API.G_RET_STS_ERROR;
19255: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19256: END IF;
19250: END IF;
19251: ELSE
19252: OKL_API.set_message(p_app_name => G_APP_NAME,
19253: p_msg_name => G_LINE_RECORD);
19254: x_return_status := OKL_API.G_RET_STS_ERROR;
19255: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19256: END IF;
19257: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19258: i := l_itiv_ib_tbl.NEXT(i);
19251: ELSE
19252: OKL_API.set_message(p_app_name => G_APP_NAME,
19253: p_msg_name => G_LINE_RECORD);
19254: x_return_status := OKL_API.G_RET_STS_ERROR;
19255: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19256: END IF;
19257: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19258: i := l_itiv_ib_tbl.NEXT(i);
19259: END LOOP;
19256: END IF;
19257: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19258: i := l_itiv_ib_tbl.NEXT(i);
19259: END LOOP;
19260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19263: RAISE OKL_API.G_EXCEPTION_ERROR;
19264: END IF;
19257: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19258: i := l_itiv_ib_tbl.NEXT(i);
19259: END LOOP;
19260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19263: RAISE OKL_API.G_EXCEPTION_ERROR;
19264: END IF;
19265: ELSE
19258: i := l_itiv_ib_tbl.NEXT(i);
19259: END LOOP;
19260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19263: RAISE OKL_API.G_EXCEPTION_ERROR;
19264: END IF;
19265: ELSE
19266: OKL_API.set_message(p_app_name => G_APP_NAME,
19259: END LOOP;
19260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19263: RAISE OKL_API.G_EXCEPTION_ERROR;
19264: END IF;
19265: ELSE
19266: OKL_API.set_message(p_app_name => G_APP_NAME,
19267: p_msg_name => G_CNT_REC);
19262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19263: RAISE OKL_API.G_EXCEPTION_ERROR;
19264: END IF;
19265: ELSE
19266: OKL_API.set_message(p_app_name => G_APP_NAME,
19267: p_msg_name => G_CNT_REC);
19268: RAISE OKL_API.G_EXCEPTION_ERROR;
19269: END IF;
19270: -- we should get the remaining inst line , so that we can update
19264: END IF;
19265: ELSE
19266: OKL_API.set_message(p_app_name => G_APP_NAME,
19267: p_msg_name => G_CNT_REC);
19268: RAISE OKL_API.G_EXCEPTION_ERROR;
19269: END IF;
19270: -- we should get the remaining inst line , so that we can update
19271: -- the fixed line , model line and also update the top line with latest OEC
19272: OPEN c_remain_inst_line(p_top_line_id,
19271: -- the fixed line , model line and also update the top line with latest OEC
19272: OPEN c_remain_inst_line(p_top_line_id,
19273: p_dnz_chr_id);
19274: IF c_remain_inst_line%NOTFOUND THEN
19275: OKL_API.set_message(p_app_name => G_APP_NAME,
19276: p_msg_name => G_DELETING_INSTS_LINE);
19277: RAISE OKL_API.G_EXCEPTION_ERROR;
19278: END IF;
19279: FETCH c_remain_inst_line INTO ln_remain_inst;
19273: p_dnz_chr_id);
19274: IF c_remain_inst_line%NOTFOUND THEN
19275: OKL_API.set_message(p_app_name => G_APP_NAME,
19276: p_msg_name => G_DELETING_INSTS_LINE);
19277: RAISE OKL_API.G_EXCEPTION_ERROR;
19278: END IF;
19279: FETCH c_remain_inst_line INTO ln_remain_inst;
19280: CLOSE c_remain_inst_line;
19281: -- To get the Model Line
19282: -- Since we have update the model line
19283: OPEN c_model_line(p_top_line_id,
19284: p_dnz_chr_id);
19285: IF c_model_line%NOTFOUND THEN
19286: OKL_API.set_message(p_app_name => G_APP_NAME,
19287: p_msg_name => G_NO_MATCHING_RECORD,
19288: p_token1 => G_COL_NAME_TOKEN,
19289: p_token1_value => 'Model Asset Line record');
19290: RAISE OKL_API.G_EXCEPTION_ERROR;
19286: OKL_API.set_message(p_app_name => G_APP_NAME,
19287: p_msg_name => G_NO_MATCHING_RECORD,
19288: p_token1 => G_COL_NAME_TOKEN,
19289: p_token1_value => 'Model Asset Line record');
19290: RAISE OKL_API.G_EXCEPTION_ERROR;
19291: END IF;
19292: FETCH c_model_line INTO ln_model_line_id;
19293: CLOSE c_model_line;
19294: -- To get the Fixed Asset Line
19295: -- Since we have update the Fixed Asset Line
19296: OPEN c_fa_line(p_top_line_id,
19297: p_dnz_chr_id);
19298: IF c_fa_line%NOTFOUND THEN
19299: OKL_API.set_message(p_app_name => G_APP_NAME,
19300: p_msg_name => G_NO_MATCHING_RECORD,
19301: p_token1 => G_COL_NAME_TOKEN,
19302: p_token1_value => 'Fixed Asset Line record');
19303: RAISE OKL_API.G_EXCEPTION_ERROR;
19299: OKL_API.set_message(p_app_name => G_APP_NAME,
19300: p_msg_name => G_NO_MATCHING_RECORD,
19301: p_token1 => G_COL_NAME_TOKEN,
19302: p_token1_value => 'Fixed Asset Line record');
19303: RAISE OKL_API.G_EXCEPTION_ERROR;
19304: END IF;
19305: FETCH c_fa_line INTO ln_fa_line_id;
19306: CLOSE c_fa_line;
19307: --We have to build the Model Line Record for the calculations of the
19308: -- oec of the top line
19309: -- To Get the cle Model Line Record
19310: x_return_status := get_rec_clev(ln_model_line_id,
19311: r_clev_model_rec);
19312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19313: OKL_API.set_message(p_app_name => G_APP_NAME,
19314: p_msg_name => G_FETCHING_INFO,
19315: p_token1 => G_REC_NAME_TOKEN,
19316: p_token1_value => 'OKC_K_LINES_V Record');
19309: -- To Get the cle Model Line Record
19310: x_return_status := get_rec_clev(ln_model_line_id,
19311: r_clev_model_rec);
19312: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19313: OKL_API.set_message(p_app_name => G_APP_NAME,
19314: p_msg_name => G_FETCHING_INFO,
19315: p_token1 => G_REC_NAME_TOKEN,
19316: p_token1_value => 'OKC_K_LINES_V Record');
19317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19313: OKL_API.set_message(p_app_name => G_APP_NAME,
19314: p_msg_name => G_FETCHING_INFO,
19315: p_token1 => G_REC_NAME_TOKEN,
19316: p_token1_value => 'OKC_K_LINES_V Record');
19317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19319: OKL_API.set_message(p_app_name => G_APP_NAME,
19320: p_msg_name => G_FETCHING_INFO,
19321: p_token1 => G_REC_NAME_TOKEN,
19314: p_msg_name => G_FETCHING_INFO,
19315: p_token1 => G_REC_NAME_TOKEN,
19316: p_token1_value => 'OKC_K_LINES_V Record');
19317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19319: OKL_API.set_message(p_app_name => G_APP_NAME,
19320: p_msg_name => G_FETCHING_INFO,
19321: p_token1 => G_REC_NAME_TOKEN,
19322: p_token1_value => 'OKC_K_LINES_V Record');
19315: p_token1 => G_REC_NAME_TOKEN,
19316: p_token1_value => 'OKC_K_LINES_V Record');
19317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19319: OKL_API.set_message(p_app_name => G_APP_NAME,
19320: p_msg_name => G_FETCHING_INFO,
19321: p_token1 => G_REC_NAME_TOKEN,
19322: p_token1_value => 'OKC_K_LINES_V Record');
19323: RAISE OKL_API.G_EXCEPTION_ERROR;
19319: OKL_API.set_message(p_app_name => G_APP_NAME,
19320: p_msg_name => G_FETCHING_INFO,
19321: p_token1 => G_REC_NAME_TOKEN,
19322: p_token1_value => 'OKC_K_LINES_V Record');
19323: RAISE OKL_API.G_EXCEPTION_ERROR;
19324: END IF;
19325: -- To Get the kle Model Line Record
19326: x_return_status := get_rec_klev(ln_model_line_id,
19327: r_klev_model_rec);
19324: END IF;
19325: -- To Get the kle Model Line Record
19326: x_return_status := get_rec_klev(ln_model_line_id,
19327: r_klev_model_rec);
19328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19329: OKL_API.set_message(p_app_name => G_APP_NAME,
19330: p_msg_name => G_FETCHING_INFO,
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19325: -- To Get the kle Model Line Record
19326: x_return_status := get_rec_klev(ln_model_line_id,
19327: r_klev_model_rec);
19328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19329: OKL_API.set_message(p_app_name => G_APP_NAME,
19330: p_msg_name => G_FETCHING_INFO,
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19329: OKL_API.set_message(p_app_name => G_APP_NAME,
19330: p_msg_name => G_FETCHING_INFO,
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19337: p_token1 => G_REC_NAME_TOKEN,
19330: p_msg_name => G_FETCHING_INFO,
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19337: p_token1 => G_REC_NAME_TOKEN,
19338: p_token1_value => 'OKL_K_LINES_V Record');
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19337: p_token1 => G_REC_NAME_TOKEN,
19338: p_token1_value => 'OKL_K_LINES_V Record');
19339: RAISE OKL_API.G_EXCEPTION_ERROR;
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19337: p_token1 => G_REC_NAME_TOKEN,
19338: p_token1_value => 'OKL_K_LINES_V Record');
19339: RAISE OKL_API.G_EXCEPTION_ERROR;
19340: END IF;
19341: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19342: OKL_API.set_message(p_app_name => G_APP_NAME,
19343: p_msg_name => G_LINE_RECORD);
19338: p_token1_value => 'OKL_K_LINES_V Record');
19339: RAISE OKL_API.G_EXCEPTION_ERROR;
19340: END IF;
19341: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19342: OKL_API.set_message(p_app_name => G_APP_NAME,
19343: p_msg_name => G_LINE_RECORD);
19344: RAISE OKL_API.G_EXCEPTION_ERROR;
19345: END IF;
19346: -- To Get the cimv Model Line Record
19340: END IF;
19341: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19342: OKL_API.set_message(p_app_name => G_APP_NAME,
19343: p_msg_name => G_LINE_RECORD);
19344: RAISE OKL_API.G_EXCEPTION_ERROR;
19345: END IF;
19346: -- To Get the cimv Model Line Record
19347: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19348: r_clev_model_rec.dnz_chr_id,
19346: -- To Get the cimv Model Line Record
19347: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19348: r_clev_model_rec.dnz_chr_id,
19349: r_cimv_model_rec);
19350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19351: OKL_API.set_message(p_app_name => G_APP_NAME,
19352: p_msg_name => G_FETCHING_INFO,
19353: p_token1 => G_REC_NAME_TOKEN,
19354: p_token1_value => 'OKC_K_ITEMS_V Record');
19347: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19348: r_clev_model_rec.dnz_chr_id,
19349: r_cimv_model_rec);
19350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19351: OKL_API.set_message(p_app_name => G_APP_NAME,
19352: p_msg_name => G_FETCHING_INFO,
19353: p_token1 => G_REC_NAME_TOKEN,
19354: p_token1_value => 'OKC_K_ITEMS_V Record');
19355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19351: OKL_API.set_message(p_app_name => G_APP_NAME,
19352: p_msg_name => G_FETCHING_INFO,
19353: p_token1 => G_REC_NAME_TOKEN,
19354: p_token1_value => 'OKC_K_ITEMS_V Record');
19355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => G_FETCHING_INFO,
19359: p_token1 => G_REC_NAME_TOKEN,
19352: p_msg_name => G_FETCHING_INFO,
19353: p_token1 => G_REC_NAME_TOKEN,
19354: p_token1_value => 'OKC_K_ITEMS_V Record');
19355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => G_FETCHING_INFO,
19359: p_token1 => G_REC_NAME_TOKEN,
19360: p_token1_value => 'OKC_K_ITEMS_V Record');
19353: p_token1 => G_REC_NAME_TOKEN,
19354: p_token1_value => 'OKC_K_ITEMS_V Record');
19355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => G_FETCHING_INFO,
19359: p_token1 => G_REC_NAME_TOKEN,
19360: p_token1_value => 'OKC_K_ITEMS_V Record');
19361: RAISE OKL_API.G_EXCEPTION_ERROR;
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => G_FETCHING_INFO,
19359: p_token1 => G_REC_NAME_TOKEN,
19360: p_token1_value => 'OKC_K_ITEMS_V Record');
19361: RAISE OKL_API.G_EXCEPTION_ERROR;
19362: END IF;
19363: --Build Model cimv item rec
19364: r_cimv_model_rec.number_of_items := ln_remain_inst;
19365: -- Updating of the Model Line and Item Record
19375: p_cimv_rec => r_cimv_model_rec,
19376: x_clev_rec => l_clev_model_rec_out,
19377: x_klev_rec => l_klev_model_rec_out,
19378: x_cimv_rec => l_cimv_model_rec_out);
19379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19382: RAISE OKL_API.G_EXCEPTION_ERROR;
19383: END IF;
19376: x_clev_rec => l_clev_model_rec_out,
19377: x_klev_rec => l_klev_model_rec_out,
19378: x_cimv_rec => l_cimv_model_rec_out);
19379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19382: RAISE OKL_API.G_EXCEPTION_ERROR;
19383: END IF;
19384: -- We need to check if there are add on line and then we update the Addon number of items also
19377: x_klev_rec => l_klev_model_rec_out,
19378: x_cimv_rec => l_cimv_model_rec_out);
19379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19382: RAISE OKL_API.G_EXCEPTION_ERROR;
19383: END IF;
19384: -- We need to check if there are add on line and then we update the Addon number of items also
19385: -- Since there can be multiple Addo lines
19378: x_cimv_rec => l_cimv_model_rec_out);
19379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19382: RAISE OKL_API.G_EXCEPTION_ERROR;
19383: END IF;
19384: -- We need to check if there are add on line and then we update the Addon number of items also
19385: -- Since there can be multiple Addo lines
19386: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => p_top_line_id,
19389: -- oec of the top line
19390: -- To Get the cle addon Line Record
19391: x_return_status := get_rec_clev(r_addon_line_id.id,
19392: r_clev_addon_rec);
19393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19394: OKL_API.set_message(p_app_name => G_APP_NAME,
19395: p_msg_name => G_FETCHING_INFO,
19396: p_token1 => G_REC_NAME_TOKEN,
19397: p_token1_value => 'OKC_K_LINES_V Record');
19390: -- To Get the cle addon Line Record
19391: x_return_status := get_rec_clev(r_addon_line_id.id,
19392: r_clev_addon_rec);
19393: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19394: OKL_API.set_message(p_app_name => G_APP_NAME,
19395: p_msg_name => G_FETCHING_INFO,
19396: p_token1 => G_REC_NAME_TOKEN,
19397: p_token1_value => 'OKC_K_LINES_V Record');
19398: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19394: OKL_API.set_message(p_app_name => G_APP_NAME,
19395: p_msg_name => G_FETCHING_INFO,
19396: p_token1 => G_REC_NAME_TOKEN,
19397: p_token1_value => 'OKC_K_LINES_V Record');
19398: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19400: OKL_API.set_message(p_app_name => G_APP_NAME,
19401: p_msg_name => G_FETCHING_INFO,
19402: p_token1 => G_REC_NAME_TOKEN,
19395: p_msg_name => G_FETCHING_INFO,
19396: p_token1 => G_REC_NAME_TOKEN,
19397: p_token1_value => 'OKC_K_LINES_V Record');
19398: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19400: OKL_API.set_message(p_app_name => G_APP_NAME,
19401: p_msg_name => G_FETCHING_INFO,
19402: p_token1 => G_REC_NAME_TOKEN,
19403: p_token1_value => 'OKC_K_LINES_V Record');
19396: p_token1 => G_REC_NAME_TOKEN,
19397: p_token1_value => 'OKC_K_LINES_V Record');
19398: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19400: OKL_API.set_message(p_app_name => G_APP_NAME,
19401: p_msg_name => G_FETCHING_INFO,
19402: p_token1 => G_REC_NAME_TOKEN,
19403: p_token1_value => 'OKC_K_LINES_V Record');
19404: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19400: OKL_API.set_message(p_app_name => G_APP_NAME,
19401: p_msg_name => G_FETCHING_INFO,
19402: p_token1 => G_REC_NAME_TOKEN,
19403: p_token1_value => 'OKC_K_LINES_V Record');
19404: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19405: END IF;
19406: -- To Get the kle Model Line Record
19407: x_return_status := get_rec_klev(r_addon_line_id.id,
19408: r_klev_addon_rec);
19405: END IF;
19406: -- To Get the kle Model Line Record
19407: x_return_status := get_rec_klev(r_addon_line_id.id,
19408: r_klev_addon_rec);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: OKL_API.set_message(p_app_name => G_APP_NAME,
19411: p_msg_name => G_FETCHING_INFO,
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19406: -- To Get the kle Model Line Record
19407: x_return_status := get_rec_klev(r_addon_line_id.id,
19408: r_klev_addon_rec);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: OKL_API.set_message(p_app_name => G_APP_NAME,
19411: p_msg_name => G_FETCHING_INFO,
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19414: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19410: OKL_API.set_message(p_app_name => G_APP_NAME,
19411: p_msg_name => G_FETCHING_INFO,
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19414: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19418: p_token1 => G_REC_NAME_TOKEN,
19411: p_msg_name => G_FETCHING_INFO,
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19414: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19418: p_token1 => G_REC_NAME_TOKEN,
19419: p_token1_value => 'OKL_K_LINES_V Record');
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19414: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19418: p_token1 => G_REC_NAME_TOKEN,
19419: p_token1_value => 'OKL_K_LINES_V Record');
19420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19418: p_token1 => G_REC_NAME_TOKEN,
19419: p_token1_value => 'OKL_K_LINES_V Record');
19420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19421: END IF;
19422: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19423: OKL_API.set_message(p_app_name => G_APP_NAME,
19424: p_msg_name => G_LINE_RECORD);
19419: p_token1_value => 'OKL_K_LINES_V Record');
19420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19421: END IF;
19422: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19423: OKL_API.set_message(p_app_name => G_APP_NAME,
19424: p_msg_name => G_LINE_RECORD);
19425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19426: END IF;
19427: -- To Get the cimv Model Line Record
19421: END IF;
19422: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19423: OKL_API.set_message(p_app_name => G_APP_NAME,
19424: p_msg_name => G_LINE_RECORD);
19425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19426: END IF;
19427: -- To Get the cimv Model Line Record
19428: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19429: r_clev_addon_rec.dnz_chr_id,
19427: -- To Get the cimv Model Line Record
19428: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19429: r_clev_addon_rec.dnz_chr_id,
19430: r_cimv_addon_rec);
19431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19432: OKL_API.set_message(p_app_name => G_APP_NAME,
19433: p_msg_name => G_FETCHING_INFO,
19434: p_token1 => G_REC_NAME_TOKEN,
19435: p_token1_value => 'OKC_K_ITEMS_V Record');
19428: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19429: r_clev_addon_rec.dnz_chr_id,
19430: r_cimv_addon_rec);
19431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19432: OKL_API.set_message(p_app_name => G_APP_NAME,
19433: p_msg_name => G_FETCHING_INFO,
19434: p_token1 => G_REC_NAME_TOKEN,
19435: p_token1_value => 'OKC_K_ITEMS_V Record');
19436: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19432: OKL_API.set_message(p_app_name => G_APP_NAME,
19433: p_msg_name => G_FETCHING_INFO,
19434: p_token1 => G_REC_NAME_TOKEN,
19435: p_token1_value => 'OKC_K_ITEMS_V Record');
19436: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19438: OKL_API.set_message(p_app_name => G_APP_NAME,
19439: p_msg_name => G_FETCHING_INFO,
19440: p_token1 => G_REC_NAME_TOKEN,
19433: p_msg_name => G_FETCHING_INFO,
19434: p_token1 => G_REC_NAME_TOKEN,
19435: p_token1_value => 'OKC_K_ITEMS_V Record');
19436: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19438: OKL_API.set_message(p_app_name => G_APP_NAME,
19439: p_msg_name => G_FETCHING_INFO,
19440: p_token1 => G_REC_NAME_TOKEN,
19441: p_token1_value => 'OKC_K_ITEMS_V Record');
19434: p_token1 => G_REC_NAME_TOKEN,
19435: p_token1_value => 'OKC_K_ITEMS_V Record');
19436: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19437: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19438: OKL_API.set_message(p_app_name => G_APP_NAME,
19439: p_msg_name => G_FETCHING_INFO,
19440: p_token1 => G_REC_NAME_TOKEN,
19441: p_token1_value => 'OKC_K_ITEMS_V Record');
19442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19438: OKL_API.set_message(p_app_name => G_APP_NAME,
19439: p_msg_name => G_FETCHING_INFO,
19440: p_token1 => G_REC_NAME_TOKEN,
19441: p_token1_value => 'OKC_K_ITEMS_V Record');
19442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19443: END IF;
19444: --Build addon cimv item rec
19445: r_cimv_addon_rec.number_of_items := ln_remain_inst;
19446: -- Updating of the addon Line and Item Record
19456: p_cimv_rec => r_cimv_addon_rec,
19457: x_clev_rec => rx_clev_addon_rec,
19458: x_klev_rec => rx_klev_addon_rec,
19459: x_cimv_rec => rx_cimv_addon_rec);
19460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19457: x_clev_rec => rx_clev_addon_rec,
19458: x_klev_rec => rx_klev_addon_rec,
19459: x_cimv_rec => rx_cimv_addon_rec);
19460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19465: END LOOP;
19458: x_klev_rec => rx_klev_addon_rec,
19459: x_cimv_rec => rx_cimv_addon_rec);
19460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19459: x_cimv_rec => rx_cimv_addon_rec);
19460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19461: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19469: RAISE OKL_API.G_EXCEPTION_ERROR;
19470: END IF;
19463: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19464: END IF;
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19469: RAISE OKL_API.G_EXCEPTION_ERROR;
19470: END IF;
19471: -- Since we need to populate the OEC into fixed asset line also
19464: END IF;
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19469: RAISE OKL_API.G_EXCEPTION_ERROR;
19470: END IF;
19471: -- Since we need to populate the OEC into fixed asset line also
19472: -- So we need to calcualte the same here it self
19465: END LOOP;
19466: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19467: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19468: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19469: RAISE OKL_API.G_EXCEPTION_ERROR;
19470: END IF;
19471: -- Since we need to populate the OEC into fixed asset line also
19472: -- So we need to calcualte the same here it self
19473: oec_calc_upd_fin_rec(p_api_version => p_api_version,
19482: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19483: x_fin_clev_rec => lx_clev_fin_rec,
19484: x_fin_klev_rec => lx_klev_fin_rec,
19485: x_oec => ln_klev_fin_oec,
19486: p_validate_fin_line => OKL_API.G_TRUE);
19487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19483: x_fin_clev_rec => lx_clev_fin_rec,
19484: x_fin_klev_rec => lx_klev_fin_rec,
19485: x_oec => ln_klev_fin_oec,
19486: p_validate_fin_line => OKL_API.G_TRUE);
19487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19491: END IF;
19484: x_fin_klev_rec => lx_klev_fin_rec,
19485: x_oec => ln_klev_fin_oec,
19486: p_validate_fin_line => OKL_API.G_TRUE);
19487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19491: END IF;
19492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19485: x_oec => ln_klev_fin_oec,
19486: p_validate_fin_line => OKL_API.G_TRUE);
19487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19491: END IF;
19492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19486: p_validate_fin_line => OKL_API.G_TRUE);
19487: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19491: END IF;
19492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19494: p_init_msg_list => p_init_msg_list,
19502: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19503: x_fin_clev_rec => lx_clev_fin_rec,
19504: x_fin_klev_rec => lx_klev_fin_rec,
19505: x_cap_amt => ln_klev_fin_cap,
19506: p_validate_fin_line => OKL_API.G_TRUE);
19507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19503: x_fin_clev_rec => lx_clev_fin_rec,
19504: x_fin_klev_rec => lx_klev_fin_rec,
19505: x_cap_amt => ln_klev_fin_cap,
19506: p_validate_fin_line => OKL_API.G_TRUE);
19507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19511: END IF;
19504: x_fin_klev_rec => lx_klev_fin_rec,
19505: x_cap_amt => ln_klev_fin_cap,
19506: p_validate_fin_line => OKL_API.G_TRUE);
19507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19511: END IF;
19512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19505: x_cap_amt => ln_klev_fin_cap,
19506: p_validate_fin_line => OKL_API.G_TRUE);
19507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19511: END IF;
19512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19506: p_validate_fin_line => OKL_API.G_TRUE);
19507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19511: END IF;
19512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19514: p_init_msg_list => p_init_msg_list,
19522: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19523: x_fin_clev_rec => lx_clev_fin_rec,
19524: x_fin_klev_rec => lx_klev_fin_rec,
19525: x_res_value => ln_klev_fin_res,
19526: p_validate_fin_line => OKL_API.G_TRUE);
19527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19530: RAISE OKL_API.G_EXCEPTION_ERROR;
19523: x_fin_clev_rec => lx_clev_fin_rec,
19524: x_fin_klev_rec => lx_klev_fin_rec,
19525: x_res_value => ln_klev_fin_res,
19526: p_validate_fin_line => OKL_API.G_TRUE);
19527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19530: RAISE OKL_API.G_EXCEPTION_ERROR;
19531: END IF;
19524: x_fin_klev_rec => lx_klev_fin_rec,
19525: x_res_value => ln_klev_fin_res,
19526: p_validate_fin_line => OKL_API.G_TRUE);
19527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19530: RAISE OKL_API.G_EXCEPTION_ERROR;
19531: END IF;
19532: -- Updating of the Fixed Asset Line Process
19525: x_res_value => ln_klev_fin_res,
19526: p_validate_fin_line => OKL_API.G_TRUE);
19527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19530: RAISE OKL_API.G_EXCEPTION_ERROR;
19531: END IF;
19532: -- Updating of the Fixed Asset Line Process
19533: -- To Get the cle fa Line Record
19526: p_validate_fin_line => OKL_API.G_TRUE);
19527: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19528: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19530: RAISE OKL_API.G_EXCEPTION_ERROR;
19531: END IF;
19532: -- Updating of the Fixed Asset Line Process
19533: -- To Get the cle fa Line Record
19534: x_return_status := get_rec_clev(ln_fa_line_id,
19532: -- Updating of the Fixed Asset Line Process
19533: -- To Get the cle fa Line Record
19534: x_return_status := get_rec_clev(ln_fa_line_id,
19535: r_clev_fa_rec);
19536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19537: OKL_API.set_message(p_app_name => G_APP_NAME,
19538: p_msg_name => G_FETCHING_INFO,
19539: p_token1 => G_REC_NAME_TOKEN,
19540: p_token1_value => 'OKC_K_LINES_V Record');
19533: -- To Get the cle fa Line Record
19534: x_return_status := get_rec_clev(ln_fa_line_id,
19535: r_clev_fa_rec);
19536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19537: OKL_API.set_message(p_app_name => G_APP_NAME,
19538: p_msg_name => G_FETCHING_INFO,
19539: p_token1 => G_REC_NAME_TOKEN,
19540: p_token1_value => 'OKC_K_LINES_V Record');
19541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19537: OKL_API.set_message(p_app_name => G_APP_NAME,
19538: p_msg_name => G_FETCHING_INFO,
19539: p_token1 => G_REC_NAME_TOKEN,
19540: p_token1_value => 'OKC_K_LINES_V Record');
19541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19543: OKL_API.set_message(p_app_name => G_APP_NAME,
19544: p_msg_name => G_FETCHING_INFO,
19545: p_token1 => G_REC_NAME_TOKEN,
19538: p_msg_name => G_FETCHING_INFO,
19539: p_token1 => G_REC_NAME_TOKEN,
19540: p_token1_value => 'OKC_K_LINES_V Record');
19541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19543: OKL_API.set_message(p_app_name => G_APP_NAME,
19544: p_msg_name => G_FETCHING_INFO,
19545: p_token1 => G_REC_NAME_TOKEN,
19546: p_token1_value => 'OKC_K_LINES_V Record');
19539: p_token1 => G_REC_NAME_TOKEN,
19540: p_token1_value => 'OKC_K_LINES_V Record');
19541: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19542: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19543: OKL_API.set_message(p_app_name => G_APP_NAME,
19544: p_msg_name => G_FETCHING_INFO,
19545: p_token1 => G_REC_NAME_TOKEN,
19546: p_token1_value => 'OKC_K_LINES_V Record');
19547: RAISE OKL_API.G_EXCEPTION_ERROR;
19543: OKL_API.set_message(p_app_name => G_APP_NAME,
19544: p_msg_name => G_FETCHING_INFO,
19545: p_token1 => G_REC_NAME_TOKEN,
19546: p_token1_value => 'OKC_K_LINES_V Record');
19547: RAISE OKL_API.G_EXCEPTION_ERROR;
19548: END IF;
19549: -- To Get the kle fa Line Record
19550: x_return_status := get_rec_klev(ln_fa_line_id,
19551: r_klev_fa_rec);
19548: END IF;
19549: -- To Get the kle fa Line Record
19550: x_return_status := get_rec_klev(ln_fa_line_id,
19551: r_klev_fa_rec);
19552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19553: OKL_API.set_message(p_app_name => G_APP_NAME,
19554: p_msg_name => G_FETCHING_INFO,
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19549: -- To Get the kle fa Line Record
19550: x_return_status := get_rec_klev(ln_fa_line_id,
19551: r_klev_fa_rec);
19552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19553: OKL_API.set_message(p_app_name => G_APP_NAME,
19554: p_msg_name => G_FETCHING_INFO,
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19553: OKL_API.set_message(p_app_name => G_APP_NAME,
19554: p_msg_name => G_FETCHING_INFO,
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19561: p_token1 => G_REC_NAME_TOKEN,
19554: p_msg_name => G_FETCHING_INFO,
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19561: p_token1 => G_REC_NAME_TOKEN,
19562: p_token1_value => 'OKL_K_LINES_V Record');
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19561: p_token1 => G_REC_NAME_TOKEN,
19562: p_token1_value => 'OKL_K_LINES_V Record');
19563: RAISE OKL_API.G_EXCEPTION_ERROR;
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19561: p_token1 => G_REC_NAME_TOKEN,
19562: p_token1_value => 'OKL_K_LINES_V Record');
19563: RAISE OKL_API.G_EXCEPTION_ERROR;
19564: END IF;
19565: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19566: OKL_API.set_message(p_app_name => G_APP_NAME,
19567: p_msg_name => G_LINE_RECORD);
19562: p_token1_value => 'OKL_K_LINES_V Record');
19563: RAISE OKL_API.G_EXCEPTION_ERROR;
19564: END IF;
19565: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19566: OKL_API.set_message(p_app_name => G_APP_NAME,
19567: p_msg_name => G_LINE_RECORD);
19568: RAISE OKL_API.G_EXCEPTION_ERROR;
19569: END IF;
19570: -- To Get the cimv fa Line Record
19564: END IF;
19565: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19566: OKL_API.set_message(p_app_name => G_APP_NAME,
19567: p_msg_name => G_LINE_RECORD);
19568: RAISE OKL_API.G_EXCEPTION_ERROR;
19569: END IF;
19570: -- To Get the cimv fa Line Record
19571: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19572: r_clev_fa_rec.dnz_chr_id,
19570: -- To Get the cimv fa Line Record
19571: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19572: r_clev_fa_rec.dnz_chr_id,
19573: r_cimv_fa_rec);
19574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19575: OKL_API.set_message(p_app_name => G_APP_NAME,
19576: p_msg_name => G_FETCHING_INFO,
19577: p_token1 => G_REC_NAME_TOKEN,
19578: p_token1_value => 'OKC_K_ITEMS_V Record');
19571: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19572: r_clev_fa_rec.dnz_chr_id,
19573: r_cimv_fa_rec);
19574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19575: OKL_API.set_message(p_app_name => G_APP_NAME,
19576: p_msg_name => G_FETCHING_INFO,
19577: p_token1 => G_REC_NAME_TOKEN,
19578: p_token1_value => 'OKC_K_ITEMS_V Record');
19579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19575: OKL_API.set_message(p_app_name => G_APP_NAME,
19576: p_msg_name => G_FETCHING_INFO,
19577: p_token1 => G_REC_NAME_TOKEN,
19578: p_token1_value => 'OKC_K_ITEMS_V Record');
19579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19581: OKL_API.set_message(p_app_name => G_APP_NAME,
19582: p_msg_name => G_FETCHING_INFO,
19583: p_token1 => G_REC_NAME_TOKEN,
19576: p_msg_name => G_FETCHING_INFO,
19577: p_token1 => G_REC_NAME_TOKEN,
19578: p_token1_value => 'OKC_K_ITEMS_V Record');
19579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19581: OKL_API.set_message(p_app_name => G_APP_NAME,
19582: p_msg_name => G_FETCHING_INFO,
19583: p_token1 => G_REC_NAME_TOKEN,
19584: p_token1_value => 'OKC_K_ITEMS_V Record');
19577: p_token1 => G_REC_NAME_TOKEN,
19578: p_token1_value => 'OKC_K_ITEMS_V Record');
19579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19581: OKL_API.set_message(p_app_name => G_APP_NAME,
19582: p_msg_name => G_FETCHING_INFO,
19583: p_token1 => G_REC_NAME_TOKEN,
19584: p_token1_value => 'OKC_K_ITEMS_V Record');
19585: RAISE OKL_API.G_EXCEPTION_ERROR;
19581: OKL_API.set_message(p_app_name => G_APP_NAME,
19582: p_msg_name => G_FETCHING_INFO,
19583: p_token1 => G_REC_NAME_TOKEN,
19584: p_token1_value => 'OKC_K_ITEMS_V Record');
19585: RAISE OKL_API.G_EXCEPTION_ERROR;
19586: END IF;
19587: --Build cimv fa item rec
19588: r_cimv_fa_rec.number_of_items := ln_remain_inst;
19589: --Build talv fa item rec
19588: r_cimv_fa_rec.number_of_items := ln_remain_inst;
19589: --Build talv fa item rec
19590: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
19591: r_talv_fa_rec);
19592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19593: OKL_API.set_message(p_app_name => G_APP_NAME,
19594: p_msg_name => G_FETCHING_INFO,
19595: p_token1 => G_REC_NAME_TOKEN,
19596: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19589: --Build talv fa item rec
19590: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
19591: r_talv_fa_rec);
19592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19593: OKL_API.set_message(p_app_name => G_APP_NAME,
19594: p_msg_name => G_FETCHING_INFO,
19595: p_token1 => G_REC_NAME_TOKEN,
19596: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19593: OKL_API.set_message(p_app_name => G_APP_NAME,
19594: p_msg_name => G_FETCHING_INFO,
19595: p_token1 => G_REC_NAME_TOKEN,
19596: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19599: OKL_API.set_message(p_app_name => G_APP_NAME,
19600: p_msg_name => G_FETCHING_INFO,
19601: p_token1 => G_REC_NAME_TOKEN,
19594: p_msg_name => G_FETCHING_INFO,
19595: p_token1 => G_REC_NAME_TOKEN,
19596: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19599: OKL_API.set_message(p_app_name => G_APP_NAME,
19600: p_msg_name => G_FETCHING_INFO,
19601: p_token1 => G_REC_NAME_TOKEN,
19602: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19595: p_token1 => G_REC_NAME_TOKEN,
19596: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19599: OKL_API.set_message(p_app_name => G_APP_NAME,
19600: p_msg_name => G_FETCHING_INFO,
19601: p_token1 => G_REC_NAME_TOKEN,
19602: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19603: RAISE OKL_API.G_EXCEPTION_ERROR;
19599: OKL_API.set_message(p_app_name => G_APP_NAME,
19600: p_msg_name => G_FETCHING_INFO,
19601: p_token1 => G_REC_NAME_TOKEN,
19602: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19603: RAISE OKL_API.G_EXCEPTION_ERROR;
19604: END IF;
19605: --Build talv fa item rec
19606: r_talv_fa_rec.current_units := ln_remain_inst;
19607: --akrangan Bug# 5362977 start
19639: x_clev_rec => l_clev_fa_rec_out,
19640: x_klev_rec => l_klev_fa_rec_out,
19641: x_cimv_rec => lx_cimv_fa_rec,
19642: x_talv_rec => lx_talv_fa_rec);
19643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19646: RAISE OKL_API.G_EXCEPTION_ERROR;
19647: END IF;
19640: x_klev_rec => l_klev_fa_rec_out,
19641: x_cimv_rec => lx_cimv_fa_rec,
19642: x_talv_rec => lx_talv_fa_rec);
19643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19646: RAISE OKL_API.G_EXCEPTION_ERROR;
19647: END IF;
19648: --akrangan Bug# 5362977 start
19641: x_cimv_rec => lx_cimv_fa_rec,
19642: x_talv_rec => lx_talv_fa_rec);
19643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19646: RAISE OKL_API.G_EXCEPTION_ERROR;
19647: END IF;
19648: --akrangan Bug# 5362977 start
19649: -- Update Tax Book details - okl_txd_assets_b
19642: x_talv_rec => lx_talv_fa_rec);
19643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19646: RAISE OKL_API.G_EXCEPTION_ERROR;
19647: END IF;
19648: --akrangan Bug# 5362977 start
19649: -- Update Tax Book details - okl_txd_assets_b
19650: update_asset_line_details(p_api_version => p_api_version,
19654: x_msg_data => x_msg_data,
19655: p_asset_number => p_asset_number,
19656: p_original_cost => lx_talv_fa_rec.original_cost,
19657: p_tal_id => lx_talv_fa_rec.ID);
19658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19661: RAISE OKL_API.G_EXCEPTION_ERROR;
19662: END IF;
19655: p_asset_number => p_asset_number,
19656: p_original_cost => lx_talv_fa_rec.original_cost,
19657: p_tal_id => lx_talv_fa_rec.ID);
19658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19661: RAISE OKL_API.G_EXCEPTION_ERROR;
19662: END IF;
19663: --akrangan Bug# 5362977 end
19656: p_original_cost => lx_talv_fa_rec.original_cost,
19657: p_tal_id => lx_talv_fa_rec.ID);
19658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19661: RAISE OKL_API.G_EXCEPTION_ERROR;
19662: END IF;
19663: --akrangan Bug# 5362977 end
19664:
19657: p_tal_id => lx_talv_fa_rec.ID);
19658: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19660: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19661: RAISE OKL_API.G_EXCEPTION_ERROR;
19662: END IF;
19663: --akrangan Bug# 5362977 end
19664:
19665: -- We need to change the status of the header whenever there is updating happening
19664:
19665: -- We need to change the status of the header whenever there is updating happening
19666: -- after the contract status is approved
19667: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
19668: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
19669: --cascade edit status on to lines
19670: okl_contract_status_pub.cascade_lease_status_edit
19671: (p_api_version => p_api_version,
19672: p_init_msg_list => p_init_msg_list,
19673: x_return_status => x_return_status,
19674: x_msg_count => x_msg_count,
19675: x_msg_data => x_msg_data,
19676: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19680: RAISE OKL_API.G_EXCEPTION_ERROR;
19681: END IF;
19674: x_msg_count => x_msg_count,
19675: x_msg_data => x_msg_data,
19676: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19680: RAISE OKL_API.G_EXCEPTION_ERROR;
19681: END IF;
19682: END IF;
19675: x_msg_data => x_msg_data,
19676: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19680: RAISE OKL_API.G_EXCEPTION_ERROR;
19681: END IF;
19682: END IF;
19683: OKL_API.END_ACTIVITY (x_msg_count,
19676: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19680: RAISE OKL_API.G_EXCEPTION_ERROR;
19681: END IF;
19682: END IF;
19683: OKL_API.END_ACTIVITY (x_msg_count,
19684: x_msg_data );
19679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19680: RAISE OKL_API.G_EXCEPTION_ERROR;
19681: END IF;
19682: END IF;
19683: OKL_API.END_ACTIVITY (x_msg_count,
19684: x_msg_data );
19685: EXCEPTION
19686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19687: IF c_remain_inst_line%ISOPEN THEN
19682: END IF;
19683: OKL_API.END_ACTIVITY (x_msg_count,
19684: x_msg_data );
19685: EXCEPTION
19686: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19687: IF c_remain_inst_line%ISOPEN THEN
19688: CLOSE c_remain_inst_line;
19689: END IF;
19690: IF c_model_line%ISOPEN THEN
19698: END IF;
19699: IF c_model_item%ISOPEN THEN
19700: CLOSE c_model_item;
19701: END IF;
19702: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19703: l_api_name,
19704: G_PKG_NAME,
19705: 'OKL_API.G_RET_STS_ERROR',
19706: x_msg_count,
19701: END IF;
19702: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19703: l_api_name,
19704: G_PKG_NAME,
19705: 'OKL_API.G_RET_STS_ERROR',
19706: x_msg_count,
19707: x_msg_data,
19708: '_PVT');
19709: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19705: 'OKL_API.G_RET_STS_ERROR',
19706: x_msg_count,
19707: x_msg_data,
19708: '_PVT');
19709: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19710: IF c_remain_inst_line%ISOPEN THEN
19711: CLOSE c_remain_inst_line;
19712: END IF;
19713: IF c_model_line%ISOPEN THEN
19721: END IF;
19722: IF c_model_item%ISOPEN THEN
19723: CLOSE c_model_item;
19724: END IF;
19725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19726: l_api_name,
19727: G_PKG_NAME,
19728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19729: x_msg_count,
19724: END IF;
19725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19726: l_api_name,
19727: G_PKG_NAME,
19728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19729: x_msg_count,
19730: x_msg_data,
19731: '_PVT');
19732: WHEN OTHERS THEN
19744: END IF;
19745: IF c_model_item%ISOPEN THEN
19746: CLOSE c_model_item;
19747: END IF;
19748: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19749: l_api_name,
19750: G_PKG_NAME,
19751: 'OTHERS',
19752: x_msg_count,
19774: l_clev_ib_tbl clev_tbl_type := p_clev_ib_tbl;
19775: l_clev_ib_rec clev_rec_type;
19776: l_clev_inst_rec clev_rec_type;
19777: ln_remain_inst NUMBER := 0;
19778: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19779: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19780: r_clev_model_rec clev_rec_type;
19781: r_klev_model_rec klev_rec_type;
19782: r_cimv_model_rec cimv_rec_type;
19775: l_clev_ib_rec clev_rec_type;
19776: l_clev_inst_rec clev_rec_type;
19777: ln_remain_inst NUMBER := 0;
19778: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19779: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19780: r_clev_model_rec clev_rec_type;
19781: r_klev_model_rec klev_rec_type;
19782: r_cimv_model_rec cimv_rec_type;
19783: r_clev_fa_rec clev_rec_type;
19910: --Bug# 5362977 end
19911:
19912:
19913: BEGIN
19914: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19915: -- Call start_activity to create savepoint, check compatibility
19916: -- and initialize message list
19917: x_return_status := OKL_API.START_ACTIVITY (
19918: l_api_name
19913: BEGIN
19914: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19915: -- Call start_activity to create savepoint, check compatibility
19916: -- and initialize message list
19917: x_return_status := OKL_API.START_ACTIVITY (
19918: l_api_name
19919: ,p_init_msg_list
19920: ,'_PVT'
19921: ,x_return_status);
19919: ,p_init_msg_list
19920: ,'_PVT'
19921: ,x_return_status);
19922: -- Check if activity started successfully
19923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19926: RAISE OKL_API.G_EXCEPTION_ERROR;
19927: END IF;
19920: ,'_PVT'
19921: ,x_return_status);
19922: -- Check if activity started successfully
19923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19926: RAISE OKL_API.G_EXCEPTION_ERROR;
19927: END IF;
19928: IF l_clev_ib_tbl.COUNT > 0 THEN
19921: ,x_return_status);
19922: -- Check if activity started successfully
19923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19926: RAISE OKL_API.G_EXCEPTION_ERROR;
19927: END IF;
19928: IF l_clev_ib_tbl.COUNT > 0 THEN
19929: -- We have intialize the J , since there could be any index integer
19922: -- Check if activity started successfully
19923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19926: RAISE OKL_API.G_EXCEPTION_ERROR;
19927: END IF;
19928: IF l_clev_ib_tbl.COUNT > 0 THEN
19929: -- We have intialize the J , since there could be any index integer
19930: j := l_clev_ib_tbl.FIRST;
19929: -- We have intialize the J , since there could be any index integer
19930: j := l_clev_ib_tbl.FIRST;
19931: LOOP
19932: IF l_clev_ib_tbl(j).id IS NUll OR
19933: l_clev_ib_tbl(j).id = OKL_API.G_MISS_NUM THEN
19934: OKL_API.set_message(p_app_name => G_APP_NAME,
19935: p_msg_name => G_REQUIRED_VALUE,
19936: p_token1 => G_COL_NAME_TOKEN,
19937: p_token1_value => 'IB OKC_K_LINES_B.ID');
19930: j := l_clev_ib_tbl.FIRST;
19931: LOOP
19932: IF l_clev_ib_tbl(j).id IS NUll OR
19933: l_clev_ib_tbl(j).id = OKL_API.G_MISS_NUM THEN
19934: OKL_API.set_message(p_app_name => G_APP_NAME,
19935: p_msg_name => G_REQUIRED_VALUE,
19936: p_token1 => G_COL_NAME_TOKEN,
19937: p_token1_value => 'IB OKC_K_LINES_B.ID');
19938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19934: OKL_API.set_message(p_app_name => G_APP_NAME,
19935: p_msg_name => G_REQUIRED_VALUE,
19936: p_token1 => G_COL_NAME_TOKEN,
19937: p_token1_value => 'IB OKC_K_LINES_B.ID');
19938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19939: END IF;
19940: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
19941: l_clev_ib_rec);
19942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19938: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19939: END IF;
19940: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
19941: l_clev_ib_rec);
19942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19943: OKL_API.set_message(p_app_name => G_APP_NAME,
19944: p_msg_name => G_FETCHING_INFO,
19945: p_token1 => G_REC_NAME_TOKEN,
19946: p_token1_value => 'OKC_K_LINES_V Record');
19939: END IF;
19940: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
19941: l_clev_ib_rec);
19942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19943: OKL_API.set_message(p_app_name => G_APP_NAME,
19944: p_msg_name => G_FETCHING_INFO,
19945: p_token1 => G_REC_NAME_TOKEN,
19946: p_token1_value => 'OKC_K_LINES_V Record');
19947: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19943: OKL_API.set_message(p_app_name => G_APP_NAME,
19944: p_msg_name => G_FETCHING_INFO,
19945: p_token1 => G_REC_NAME_TOKEN,
19946: p_token1_value => 'OKC_K_LINES_V Record');
19947: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19949: OKL_API.set_message(p_app_name => G_APP_NAME,
19950: p_msg_name => G_FETCHING_INFO,
19951: p_token1 => G_REC_NAME_TOKEN,
19944: p_msg_name => G_FETCHING_INFO,
19945: p_token1 => G_REC_NAME_TOKEN,
19946: p_token1_value => 'OKC_K_LINES_V Record');
19947: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19949: OKL_API.set_message(p_app_name => G_APP_NAME,
19950: p_msg_name => G_FETCHING_INFO,
19951: p_token1 => G_REC_NAME_TOKEN,
19952: p_token1_value => 'OKC_K_LINES_V Record');
19945: p_token1 => G_REC_NAME_TOKEN,
19946: p_token1_value => 'OKC_K_LINES_V Record');
19947: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19948: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19949: OKL_API.set_message(p_app_name => G_APP_NAME,
19950: p_msg_name => G_FETCHING_INFO,
19951: p_token1 => G_REC_NAME_TOKEN,
19952: p_token1_value => 'OKC_K_LINES_V Record');
19953: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19949: OKL_API.set_message(p_app_name => G_APP_NAME,
19950: p_msg_name => G_FETCHING_INFO,
19951: p_token1 => G_REC_NAME_TOKEN,
19952: p_token1_value => 'OKC_K_LINES_V Record');
19953: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19954: END IF;
19955: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
19956: l_clev_inst_rec);
19957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19953: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19954: END IF;
19955: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
19956: l_clev_inst_rec);
19957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19958: OKL_API.set_message(p_app_name => G_APP_NAME,
19959: p_msg_name => G_FETCHING_INFO,
19960: p_token1 => G_REC_NAME_TOKEN,
19961: p_token1_value => 'OKC_K_LINES_V Record');
19954: END IF;
19955: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
19956: l_clev_inst_rec);
19957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19958: OKL_API.set_message(p_app_name => G_APP_NAME,
19959: p_msg_name => G_FETCHING_INFO,
19960: p_token1 => G_REC_NAME_TOKEN,
19961: p_token1_value => 'OKC_K_LINES_V Record');
19962: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19958: OKL_API.set_message(p_app_name => G_APP_NAME,
19959: p_msg_name => G_FETCHING_INFO,
19960: p_token1 => G_REC_NAME_TOKEN,
19961: p_token1_value => 'OKC_K_LINES_V Record');
19962: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19964: OKL_API.set_message(p_app_name => G_APP_NAME,
19965: p_msg_name => G_FETCHING_INFO,
19966: p_token1 => G_REC_NAME_TOKEN,
19959: p_msg_name => G_FETCHING_INFO,
19960: p_token1 => G_REC_NAME_TOKEN,
19961: p_token1_value => 'OKC_K_LINES_V Record');
19962: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19964: OKL_API.set_message(p_app_name => G_APP_NAME,
19965: p_msg_name => G_FETCHING_INFO,
19966: p_token1 => G_REC_NAME_TOKEN,
19967: p_token1_value => 'OKC_K_LINES_V Record');
19960: p_token1 => G_REC_NAME_TOKEN,
19961: p_token1_value => 'OKC_K_LINES_V Record');
19962: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19964: OKL_API.set_message(p_app_name => G_APP_NAME,
19965: p_msg_name => G_FETCHING_INFO,
19966: p_token1 => G_REC_NAME_TOKEN,
19967: p_token1_value => 'OKC_K_LINES_V Record');
19968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19964: OKL_API.set_message(p_app_name => G_APP_NAME,
19965: p_msg_name => G_FETCHING_INFO,
19966: p_token1 => G_REC_NAME_TOKEN,
19967: p_token1_value => 'OKC_K_LINES_V Record');
19968: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19969: END IF;
19970:
19971: -- we should get the remaining inst line , so that we can update
19972: -- the fixed line , model line and also update the top line with latest OEC
19972: -- the fixed line , model line and also update the top line with latest OEC
19973: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
19974: l_clev_inst_rec.dnz_chr_id);
19975: IF c_remain_inst_line%NOTFOUND THEN
19976: OKL_API.set_message(p_app_name => G_APP_NAME,
19977: p_msg_name => G_DELETING_INSTS_LINE);
19978: x_return_status := OKL_API.G_RET_STS_ERROR;
19979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19980: END IF;
19974: l_clev_inst_rec.dnz_chr_id);
19975: IF c_remain_inst_line%NOTFOUND THEN
19976: OKL_API.set_message(p_app_name => G_APP_NAME,
19977: p_msg_name => G_DELETING_INSTS_LINE);
19978: x_return_status := OKL_API.G_RET_STS_ERROR;
19979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19980: END IF;
19981: FETCH c_remain_inst_line INTO ln_remain_inst;
19982: CLOSE c_remain_inst_line;
19975: IF c_remain_inst_line%NOTFOUND THEN
19976: OKL_API.set_message(p_app_name => G_APP_NAME,
19977: p_msg_name => G_DELETING_INSTS_LINE);
19978: x_return_status := OKL_API.G_RET_STS_ERROR;
19979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19980: END IF;
19981: FETCH c_remain_inst_line INTO ln_remain_inst;
19982: CLOSE c_remain_inst_line;
19983:
19985: -- has to update the MFG_FLAG to 'N' and nullify the serial number.
19986: IF ln_remain_inst < 2 THEN
19987: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
19988: l_itiv_rec);
19989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19990: OKL_API.set_message(p_app_name => G_APP_NAME,
19991: p_msg_name => G_FETCHING_INFO,
19992: p_token1 => G_REC_NAME_TOKEN,
19993: p_token1_value => 'OKC_K_LINES_V Record');
19986: IF ln_remain_inst < 2 THEN
19987: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
19988: l_itiv_rec);
19989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19990: OKL_API.set_message(p_app_name => G_APP_NAME,
19991: p_msg_name => G_FETCHING_INFO,
19992: p_token1 => G_REC_NAME_TOKEN,
19993: p_token1_value => 'OKC_K_LINES_V Record');
19994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19990: OKL_API.set_message(p_app_name => G_APP_NAME,
19991: p_msg_name => G_FETCHING_INFO,
19992: p_token1 => G_REC_NAME_TOKEN,
19993: p_token1_value => 'OKC_K_LINES_V Record');
19994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19996: OKL_API.set_message(p_app_name => G_APP_NAME,
19997: p_msg_name => G_FETCHING_INFO,
19998: p_token1 => G_REC_NAME_TOKEN,
19991: p_msg_name => G_FETCHING_INFO,
19992: p_token1 => G_REC_NAME_TOKEN,
19993: p_token1_value => 'OKC_K_LINES_V Record');
19994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19996: OKL_API.set_message(p_app_name => G_APP_NAME,
19997: p_msg_name => G_FETCHING_INFO,
19998: p_token1 => G_REC_NAME_TOKEN,
19999: p_token1_value => 'OKC_K_LINES_V Record');
19992: p_token1 => G_REC_NAME_TOKEN,
19993: p_token1_value => 'OKC_K_LINES_V Record');
19994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19996: OKL_API.set_message(p_app_name => G_APP_NAME,
19997: p_msg_name => G_FETCHING_INFO,
19998: p_token1 => G_REC_NAME_TOKEN,
19999: p_token1_value => 'OKC_K_LINES_V Record');
20000: RAISE OKL_API.G_EXCEPTION_ERROR;
19996: OKL_API.set_message(p_app_name => G_APP_NAME,
19997: p_msg_name => G_FETCHING_INFO,
19998: p_token1 => G_REC_NAME_TOKEN,
19999: p_token1_value => 'OKC_K_LINES_V Record');
20000: RAISE OKL_API.G_EXCEPTION_ERROR;
20001: END IF;
20002:
20003: l_itiv_rec.mfg_serial_number_yn := 'N';
20004: l_itiv_rec.serial_number := null;
20009: x_msg_count => x_msg_count,
20010: x_msg_data => x_msg_data,
20011: p_itiv_rec => l_itiv_rec,
20012: x_itiv_rec => lx_itiv_rec);
20013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20014: OKL_API.set_message(p_app_name => G_APP_NAME,
20015: p_msg_name => G_ITI_ID);
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20010: x_msg_data => x_msg_data,
20011: p_itiv_rec => l_itiv_rec,
20012: x_itiv_rec => lx_itiv_rec);
20013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20014: OKL_API.set_message(p_app_name => G_APP_NAME,
20015: p_msg_name => G_ITI_ID);
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20018: OKL_API.set_message(p_app_name => G_APP_NAME,
20012: x_itiv_rec => lx_itiv_rec);
20013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20014: OKL_API.set_message(p_app_name => G_APP_NAME,
20015: p_msg_name => G_ITI_ID);
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20018: OKL_API.set_message(p_app_name => G_APP_NAME,
20019: p_msg_name => G_ITI_ID);
20020: RAISE OKL_API.G_EXCEPTION_ERROR;
20013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20014: OKL_API.set_message(p_app_name => G_APP_NAME,
20015: p_msg_name => G_ITI_ID);
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20018: OKL_API.set_message(p_app_name => G_APP_NAME,
20019: p_msg_name => G_ITI_ID);
20020: RAISE OKL_API.G_EXCEPTION_ERROR;
20021: END IF;
20014: OKL_API.set_message(p_app_name => G_APP_NAME,
20015: p_msg_name => G_ITI_ID);
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20018: OKL_API.set_message(p_app_name => G_APP_NAME,
20019: p_msg_name => G_ITI_ID);
20020: RAISE OKL_API.G_EXCEPTION_ERROR;
20021: END IF;
20022: lb_last_record_updated := TRUE;
20016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20018: OKL_API.set_message(p_app_name => G_APP_NAME,
20019: p_msg_name => G_ITI_ID);
20020: RAISE OKL_API.G_EXCEPTION_ERROR;
20021: END IF;
20022: lb_last_record_updated := TRUE;
20023: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20024: p_msg_name => G_MIN_INST_LINE);
20019: p_msg_name => G_ITI_ID);
20020: RAISE OKL_API.G_EXCEPTION_ERROR;
20021: END IF;
20022: lb_last_record_updated := TRUE;
20023: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20024: p_msg_name => G_MIN_INST_LINE);
20025: x_return_status := OKL_API.G_RET_STS_ERROR;
20026: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20027: END IF;
20021: END IF;
20022: lb_last_record_updated := TRUE;
20023: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20024: p_msg_name => G_MIN_INST_LINE);
20025: x_return_status := OKL_API.G_RET_STS_ERROR;
20026: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20027: END IF;
20028:
20029: IF (NOT lb_last_record_updated) THEN
20022: lb_last_record_updated := TRUE;
20023: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20024: p_msg_name => G_MIN_INST_LINE);
20025: x_return_status := OKL_API.G_RET_STS_ERROR;
20026: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20027: END IF;
20028:
20029: IF (NOT lb_last_record_updated) THEN
20030: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20028:
20029: IF (NOT lb_last_record_updated) THEN
20030: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20031: x_return_status => x_return_status);
20032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20035: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20036: END IF;
20029: IF (NOT lb_last_record_updated) THEN
20030: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20031: x_return_status => x_return_status);
20032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20035: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20036: END IF;
20037: --Bug# 5362977 start
20030: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20031: x_return_status => x_return_status);
20032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20035: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20036: END IF;
20037: --Bug# 5362977 start
20038: -- Do not allow update of units if the contract has Re-lease assets
20031: x_return_status => x_return_status);
20032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20035: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20036: END IF;
20037: --Bug# 5362977 start
20038: -- Do not allow update of units if the contract has Re-lease assets
20039: l_chk_rel_ast := 'N';
20041: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
20042: CLOSE l_chk_rel_ast_csr;
20043:
20044: IF l_chk_rel_ast = 'Y' THEN
20045: OKL_API.set_message(p_app_name => G_APP_NAME,
20046: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
20047: RAISE OKL_API.G_EXCEPTION_ERROR;
20048: END IF;
20049: --Bug# 5362977 end
20043:
20044: IF l_chk_rel_ast = 'Y' THEN
20045: OKL_API.set_message(p_app_name => G_APP_NAME,
20046: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
20047: RAISE OKL_API.G_EXCEPTION_ERROR;
20048: END IF;
20049: --Bug# 5362977 end
20050:
20051: OKL_CONTRACT_PUB.delete_contract_line(
20054: x_return_status => x_return_status,
20055: x_msg_count => x_msg_count,
20056: x_msg_data => x_msg_data,
20057: p_line_id => l_clev_inst_rec.id);
20058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20059: OKL_API.set_message(p_app_name => G_APP_NAME,
20060: p_msg_name => G_DELETING_IB_LINE);
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20055: x_msg_count => x_msg_count,
20056: x_msg_data => x_msg_data,
20057: p_line_id => l_clev_inst_rec.id);
20058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20059: OKL_API.set_message(p_app_name => G_APP_NAME,
20060: p_msg_name => G_DELETING_IB_LINE);
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20063: OKL_API.set_message(p_app_name => G_APP_NAME,
20057: p_line_id => l_clev_inst_rec.id);
20058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20059: OKL_API.set_message(p_app_name => G_APP_NAME,
20060: p_msg_name => G_DELETING_IB_LINE);
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20063: OKL_API.set_message(p_app_name => G_APP_NAME,
20064: p_msg_name => G_DELETING_IB_LINE);
20065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20059: OKL_API.set_message(p_app_name => G_APP_NAME,
20060: p_msg_name => G_DELETING_IB_LINE);
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20063: OKL_API.set_message(p_app_name => G_APP_NAME,
20064: p_msg_name => G_DELETING_IB_LINE);
20065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20066: END IF;
20059: OKL_API.set_message(p_app_name => G_APP_NAME,
20060: p_msg_name => G_DELETING_IB_LINE);
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20063: OKL_API.set_message(p_app_name => G_APP_NAME,
20064: p_msg_name => G_DELETING_IB_LINE);
20065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20066: END IF;
20067: END IF;
20061: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20062: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20063: OKL_API.set_message(p_app_name => G_APP_NAME,
20064: p_msg_name => G_DELETING_IB_LINE);
20065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20066: END IF;
20067: END IF;
20068: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20069: j := l_clev_ib_tbl.NEXT(j);
20067: END IF;
20068: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20069: j := l_clev_ib_tbl.NEXT(j);
20070: END LOOP;
20071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20074: RAISE OKL_API.G_EXCEPTION_ERROR;
20075: END IF;
20068: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20069: j := l_clev_ib_tbl.NEXT(j);
20070: END LOOP;
20071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20074: RAISE OKL_API.G_EXCEPTION_ERROR;
20075: END IF;
20076: ELSE
20069: j := l_clev_ib_tbl.NEXT(j);
20070: END LOOP;
20071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20074: RAISE OKL_API.G_EXCEPTION_ERROR;
20075: END IF;
20076: ELSE
20077: OKL_API.set_message(p_app_name => G_APP_NAME,
20070: END LOOP;
20071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20074: RAISE OKL_API.G_EXCEPTION_ERROR;
20075: END IF;
20076: ELSE
20077: OKL_API.set_message(p_app_name => G_APP_NAME,
20078: p_msg_name => G_CNT_REC);
20073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20074: RAISE OKL_API.G_EXCEPTION_ERROR;
20075: END IF;
20076: ELSE
20077: OKL_API.set_message(p_app_name => G_APP_NAME,
20078: p_msg_name => G_CNT_REC);
20079: RAISE OKL_API.G_EXCEPTION_ERROR;
20080: END IF;
20081: -- we should get the remaining inst line , so that we can update
20075: END IF;
20076: ELSE
20077: OKL_API.set_message(p_app_name => G_APP_NAME,
20078: p_msg_name => G_CNT_REC);
20079: RAISE OKL_API.G_EXCEPTION_ERROR;
20080: END IF;
20081: -- we should get the remaining inst line , so that we can update
20082: -- the fixed line , model line and also update the top line with latest OEC
20083: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
20082: -- the fixed line , model line and also update the top line with latest OEC
20083: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
20084: l_clev_inst_rec.dnz_chr_id);
20085: IF c_remain_inst_line%NOTFOUND THEN
20086: OKL_API.set_message(p_app_name => G_APP_NAME,
20087: p_msg_name => G_DELETING_INSTS_LINE);
20088: RAISE OKL_API.G_EXCEPTION_ERROR;
20089: END IF;
20090: FETCH c_remain_inst_line INTO ln_remain_inst;
20084: l_clev_inst_rec.dnz_chr_id);
20085: IF c_remain_inst_line%NOTFOUND THEN
20086: OKL_API.set_message(p_app_name => G_APP_NAME,
20087: p_msg_name => G_DELETING_INSTS_LINE);
20088: RAISE OKL_API.G_EXCEPTION_ERROR;
20089: END IF;
20090: FETCH c_remain_inst_line INTO ln_remain_inst;
20091: CLOSE c_remain_inst_line;
20092: -- To get the Model Line
20093: -- Since we have update the model line
20094: OPEN c_model_line(l_clev_inst_rec.cle_id,
20095: l_clev_inst_rec.dnz_chr_id);
20096: IF c_model_line%NOTFOUND THEN
20097: OKL_API.set_message(p_app_name => G_APP_NAME,
20098: p_msg_name => G_NO_MATCHING_RECORD,
20099: p_token1 => G_COL_NAME_TOKEN,
20100: p_token1_value => 'Model Asset Line record');
20101: RAISE OKL_API.G_EXCEPTION_ERROR;
20097: OKL_API.set_message(p_app_name => G_APP_NAME,
20098: p_msg_name => G_NO_MATCHING_RECORD,
20099: p_token1 => G_COL_NAME_TOKEN,
20100: p_token1_value => 'Model Asset Line record');
20101: RAISE OKL_API.G_EXCEPTION_ERROR;
20102: END IF;
20103: FETCH c_model_line INTO ln_model_line_id;
20104: CLOSE c_model_line;
20105: -- To get the Fixed Asset Line
20106: -- Since we have update the Fixed Asset Line
20107: OPEN c_fa_line(l_clev_inst_rec.cle_id,
20108: l_clev_inst_rec.dnz_chr_id);
20109: IF c_fa_line%NOTFOUND THEN
20110: OKL_API.set_message(p_app_name => G_APP_NAME,
20111: p_msg_name => G_NO_MATCHING_RECORD,
20112: p_token1 => G_COL_NAME_TOKEN,
20113: p_token1_value => 'Fixed Asset Line record');
20114: RAISE OKL_API.G_EXCEPTION_ERROR;
20110: OKL_API.set_message(p_app_name => G_APP_NAME,
20111: p_msg_name => G_NO_MATCHING_RECORD,
20112: p_token1 => G_COL_NAME_TOKEN,
20113: p_token1_value => 'Fixed Asset Line record');
20114: RAISE OKL_API.G_EXCEPTION_ERROR;
20115: END IF;
20116: FETCH c_fa_line INTO ln_fa_line_id;
20117: CLOSE c_fa_line;
20118: --We have to build the Model Line Record for the calculations of the
20119: -- oec of the top line
20120: -- To Get the cle Model Line Record
20121: x_return_status := get_rec_clev(ln_model_line_id,
20122: r_clev_model_rec);
20123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20124: OKL_API.set_message(p_app_name => G_APP_NAME,
20125: p_msg_name => G_FETCHING_INFO,
20126: p_token1 => G_REC_NAME_TOKEN,
20127: p_token1_value => 'OKC_K_LINES_V Record');
20120: -- To Get the cle Model Line Record
20121: x_return_status := get_rec_clev(ln_model_line_id,
20122: r_clev_model_rec);
20123: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20124: OKL_API.set_message(p_app_name => G_APP_NAME,
20125: p_msg_name => G_FETCHING_INFO,
20126: p_token1 => G_REC_NAME_TOKEN,
20127: p_token1_value => 'OKC_K_LINES_V Record');
20128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20124: OKL_API.set_message(p_app_name => G_APP_NAME,
20125: p_msg_name => G_FETCHING_INFO,
20126: p_token1 => G_REC_NAME_TOKEN,
20127: p_token1_value => 'OKC_K_LINES_V Record');
20128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20130: OKL_API.set_message(p_app_name => G_APP_NAME,
20131: p_msg_name => G_FETCHING_INFO,
20132: p_token1 => G_REC_NAME_TOKEN,
20125: p_msg_name => G_FETCHING_INFO,
20126: p_token1 => G_REC_NAME_TOKEN,
20127: p_token1_value => 'OKC_K_LINES_V Record');
20128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20130: OKL_API.set_message(p_app_name => G_APP_NAME,
20131: p_msg_name => G_FETCHING_INFO,
20132: p_token1 => G_REC_NAME_TOKEN,
20133: p_token1_value => 'OKC_K_LINES_V Record');
20126: p_token1 => G_REC_NAME_TOKEN,
20127: p_token1_value => 'OKC_K_LINES_V Record');
20128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20130: OKL_API.set_message(p_app_name => G_APP_NAME,
20131: p_msg_name => G_FETCHING_INFO,
20132: p_token1 => G_REC_NAME_TOKEN,
20133: p_token1_value => 'OKC_K_LINES_V Record');
20134: RAISE OKL_API.G_EXCEPTION_ERROR;
20130: OKL_API.set_message(p_app_name => G_APP_NAME,
20131: p_msg_name => G_FETCHING_INFO,
20132: p_token1 => G_REC_NAME_TOKEN,
20133: p_token1_value => 'OKC_K_LINES_V Record');
20134: RAISE OKL_API.G_EXCEPTION_ERROR;
20135: END IF;
20136: -- To Get the kle Model Line Record
20137: x_return_status := get_rec_klev(ln_model_line_id,
20138: r_klev_model_rec);
20135: END IF;
20136: -- To Get the kle Model Line Record
20137: x_return_status := get_rec_klev(ln_model_line_id,
20138: r_klev_model_rec);
20139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20140: OKL_API.set_message(p_app_name => G_APP_NAME,
20141: p_msg_name => G_FETCHING_INFO,
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20136: -- To Get the kle Model Line Record
20137: x_return_status := get_rec_klev(ln_model_line_id,
20138: r_klev_model_rec);
20139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20140: OKL_API.set_message(p_app_name => G_APP_NAME,
20141: p_msg_name => G_FETCHING_INFO,
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20140: OKL_API.set_message(p_app_name => G_APP_NAME,
20141: p_msg_name => G_FETCHING_INFO,
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20148: p_token1 => G_REC_NAME_TOKEN,
20141: p_msg_name => G_FETCHING_INFO,
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20148: p_token1 => G_REC_NAME_TOKEN,
20149: p_token1_value => 'OKL_K_LINES_V Record');
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20148: p_token1 => G_REC_NAME_TOKEN,
20149: p_token1_value => 'OKL_K_LINES_V Record');
20150: RAISE OKL_API.G_EXCEPTION_ERROR;
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20148: p_token1 => G_REC_NAME_TOKEN,
20149: p_token1_value => 'OKL_K_LINES_V Record');
20150: RAISE OKL_API.G_EXCEPTION_ERROR;
20151: END IF;
20152: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20153: OKL_API.set_message(p_app_name => G_APP_NAME,
20154: p_msg_name => G_LINE_RECORD);
20149: p_token1_value => 'OKL_K_LINES_V Record');
20150: RAISE OKL_API.G_EXCEPTION_ERROR;
20151: END IF;
20152: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20153: OKL_API.set_message(p_app_name => G_APP_NAME,
20154: p_msg_name => G_LINE_RECORD);
20155: RAISE OKL_API.G_EXCEPTION_ERROR;
20156: END IF;
20157: -- To Get the cimv Model Line Record
20151: END IF;
20152: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20153: OKL_API.set_message(p_app_name => G_APP_NAME,
20154: p_msg_name => G_LINE_RECORD);
20155: RAISE OKL_API.G_EXCEPTION_ERROR;
20156: END IF;
20157: -- To Get the cimv Model Line Record
20158: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20159: r_clev_model_rec.dnz_chr_id,
20157: -- To Get the cimv Model Line Record
20158: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20159: r_clev_model_rec.dnz_chr_id,
20160: r_cimv_model_rec);
20161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20162: OKL_API.set_message(p_app_name => G_APP_NAME,
20163: p_msg_name => G_FETCHING_INFO,
20164: p_token1 => G_REC_NAME_TOKEN,
20165: p_token1_value => 'OKC_K_ITEMS_V Record');
20158: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20159: r_clev_model_rec.dnz_chr_id,
20160: r_cimv_model_rec);
20161: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20162: OKL_API.set_message(p_app_name => G_APP_NAME,
20163: p_msg_name => G_FETCHING_INFO,
20164: p_token1 => G_REC_NAME_TOKEN,
20165: p_token1_value => 'OKC_K_ITEMS_V Record');
20166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20162: OKL_API.set_message(p_app_name => G_APP_NAME,
20163: p_msg_name => G_FETCHING_INFO,
20164: p_token1 => G_REC_NAME_TOKEN,
20165: p_token1_value => 'OKC_K_ITEMS_V Record');
20166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20168: OKL_API.set_message(p_app_name => G_APP_NAME,
20169: p_msg_name => G_FETCHING_INFO,
20170: p_token1 => G_REC_NAME_TOKEN,
20163: p_msg_name => G_FETCHING_INFO,
20164: p_token1 => G_REC_NAME_TOKEN,
20165: p_token1_value => 'OKC_K_ITEMS_V Record');
20166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20168: OKL_API.set_message(p_app_name => G_APP_NAME,
20169: p_msg_name => G_FETCHING_INFO,
20170: p_token1 => G_REC_NAME_TOKEN,
20171: p_token1_value => 'OKC_K_ITEMS_V Record');
20164: p_token1 => G_REC_NAME_TOKEN,
20165: p_token1_value => 'OKC_K_ITEMS_V Record');
20166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20167: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20168: OKL_API.set_message(p_app_name => G_APP_NAME,
20169: p_msg_name => G_FETCHING_INFO,
20170: p_token1 => G_REC_NAME_TOKEN,
20171: p_token1_value => 'OKC_K_ITEMS_V Record');
20172: RAISE OKL_API.G_EXCEPTION_ERROR;
20168: OKL_API.set_message(p_app_name => G_APP_NAME,
20169: p_msg_name => G_FETCHING_INFO,
20170: p_token1 => G_REC_NAME_TOKEN,
20171: p_token1_value => 'OKC_K_ITEMS_V Record');
20172: RAISE OKL_API.G_EXCEPTION_ERROR;
20173: END IF;
20174: --Build Model cimv item rec
20175: r_cimv_model_rec.number_of_items := ln_remain_inst;
20176: -- Updating of the Model Line and Item Record
20186: p_cimv_rec => r_cimv_model_rec,
20187: x_clev_rec => l_clev_model_rec_out,
20188: x_klev_rec => l_klev_model_rec_out,
20189: x_cimv_rec => x_cimv_model_rec);
20190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20193: RAISE OKL_API.G_EXCEPTION_ERROR;
20194: END IF;
20187: x_clev_rec => l_clev_model_rec_out,
20188: x_klev_rec => l_klev_model_rec_out,
20189: x_cimv_rec => x_cimv_model_rec);
20190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20193: RAISE OKL_API.G_EXCEPTION_ERROR;
20194: END IF;
20195: -- We need to check if there are add on line and then we update the Addon number of items also
20188: x_klev_rec => l_klev_model_rec_out,
20189: x_cimv_rec => x_cimv_model_rec);
20190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20193: RAISE OKL_API.G_EXCEPTION_ERROR;
20194: END IF;
20195: -- We need to check if there are add on line and then we update the Addon number of items also
20196: -- Since there can be multiple Addo lines
20189: x_cimv_rec => x_cimv_model_rec);
20190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20193: RAISE OKL_API.G_EXCEPTION_ERROR;
20194: END IF;
20195: -- We need to check if there are add on line and then we update the Addon number of items also
20196: -- Since there can be multiple Addo lines
20197: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => l_clev_model_rec_out.cle_id,
20200: -- oec of the top line
20201: -- To Get the cle addon Line Record
20202: x_return_status := get_rec_clev(r_addon_line_id.id,
20203: r_clev_addon_rec);
20204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20205: OKL_API.set_message(p_app_name => G_APP_NAME,
20206: p_msg_name => G_FETCHING_INFO,
20207: p_token1 => G_REC_NAME_TOKEN,
20208: p_token1_value => 'OKC_K_LINES_V Record');
20201: -- To Get the cle addon Line Record
20202: x_return_status := get_rec_clev(r_addon_line_id.id,
20203: r_clev_addon_rec);
20204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20205: OKL_API.set_message(p_app_name => G_APP_NAME,
20206: p_msg_name => G_FETCHING_INFO,
20207: p_token1 => G_REC_NAME_TOKEN,
20208: p_token1_value => 'OKC_K_LINES_V Record');
20209: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20205: OKL_API.set_message(p_app_name => G_APP_NAME,
20206: p_msg_name => G_FETCHING_INFO,
20207: p_token1 => G_REC_NAME_TOKEN,
20208: p_token1_value => 'OKC_K_LINES_V Record');
20209: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20211: OKL_API.set_message(p_app_name => G_APP_NAME,
20212: p_msg_name => G_FETCHING_INFO,
20213: p_token1 => G_REC_NAME_TOKEN,
20206: p_msg_name => G_FETCHING_INFO,
20207: p_token1 => G_REC_NAME_TOKEN,
20208: p_token1_value => 'OKC_K_LINES_V Record');
20209: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20211: OKL_API.set_message(p_app_name => G_APP_NAME,
20212: p_msg_name => G_FETCHING_INFO,
20213: p_token1 => G_REC_NAME_TOKEN,
20214: p_token1_value => 'OKC_K_LINES_V Record');
20207: p_token1 => G_REC_NAME_TOKEN,
20208: p_token1_value => 'OKC_K_LINES_V Record');
20209: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20211: OKL_API.set_message(p_app_name => G_APP_NAME,
20212: p_msg_name => G_FETCHING_INFO,
20213: p_token1 => G_REC_NAME_TOKEN,
20214: p_token1_value => 'OKC_K_LINES_V Record');
20215: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20211: OKL_API.set_message(p_app_name => G_APP_NAME,
20212: p_msg_name => G_FETCHING_INFO,
20213: p_token1 => G_REC_NAME_TOKEN,
20214: p_token1_value => 'OKC_K_LINES_V Record');
20215: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20216: END IF;
20217: -- To Get the kle Model Line Record
20218: x_return_status := get_rec_klev(r_addon_line_id.id,
20219: r_klev_addon_rec);
20216: END IF;
20217: -- To Get the kle Model Line Record
20218: x_return_status := get_rec_klev(r_addon_line_id.id,
20219: r_klev_addon_rec);
20220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20221: OKL_API.set_message(p_app_name => G_APP_NAME,
20222: p_msg_name => G_FETCHING_INFO,
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20217: -- To Get the kle Model Line Record
20218: x_return_status := get_rec_klev(r_addon_line_id.id,
20219: r_klev_addon_rec);
20220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20221: OKL_API.set_message(p_app_name => G_APP_NAME,
20222: p_msg_name => G_FETCHING_INFO,
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20221: OKL_API.set_message(p_app_name => G_APP_NAME,
20222: p_msg_name => G_FETCHING_INFO,
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20229: p_token1 => G_REC_NAME_TOKEN,
20222: p_msg_name => G_FETCHING_INFO,
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20229: p_token1 => G_REC_NAME_TOKEN,
20230: p_token1_value => 'OKL_K_LINES_V Record');
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20229: p_token1 => G_REC_NAME_TOKEN,
20230: p_token1_value => 'OKL_K_LINES_V Record');
20231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20229: p_token1 => G_REC_NAME_TOKEN,
20230: p_token1_value => 'OKL_K_LINES_V Record');
20231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20232: END IF;
20233: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20234: OKL_API.set_message(p_app_name => G_APP_NAME,
20235: p_msg_name => G_LINE_RECORD);
20230: p_token1_value => 'OKL_K_LINES_V Record');
20231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20232: END IF;
20233: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20234: OKL_API.set_message(p_app_name => G_APP_NAME,
20235: p_msg_name => G_LINE_RECORD);
20236: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20237: END IF;
20238: -- To Get the cimv Model Line Record
20232: END IF;
20233: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20234: OKL_API.set_message(p_app_name => G_APP_NAME,
20235: p_msg_name => G_LINE_RECORD);
20236: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20237: END IF;
20238: -- To Get the cimv Model Line Record
20239: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20240: r_clev_addon_rec.dnz_chr_id,
20238: -- To Get the cimv Model Line Record
20239: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20240: r_clev_addon_rec.dnz_chr_id,
20241: r_cimv_addon_rec);
20242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20243: OKL_API.set_message(p_app_name => G_APP_NAME,
20244: p_msg_name => G_FETCHING_INFO,
20245: p_token1 => G_REC_NAME_TOKEN,
20246: p_token1_value => 'OKC_K_ITEMS_V Record');
20239: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20240: r_clev_addon_rec.dnz_chr_id,
20241: r_cimv_addon_rec);
20242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20243: OKL_API.set_message(p_app_name => G_APP_NAME,
20244: p_msg_name => G_FETCHING_INFO,
20245: p_token1 => G_REC_NAME_TOKEN,
20246: p_token1_value => 'OKC_K_ITEMS_V Record');
20247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20243: OKL_API.set_message(p_app_name => G_APP_NAME,
20244: p_msg_name => G_FETCHING_INFO,
20245: p_token1 => G_REC_NAME_TOKEN,
20246: p_token1_value => 'OKC_K_ITEMS_V Record');
20247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20249: OKL_API.set_message(p_app_name => G_APP_NAME,
20250: p_msg_name => G_FETCHING_INFO,
20251: p_token1 => G_REC_NAME_TOKEN,
20244: p_msg_name => G_FETCHING_INFO,
20245: p_token1 => G_REC_NAME_TOKEN,
20246: p_token1_value => 'OKC_K_ITEMS_V Record');
20247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20249: OKL_API.set_message(p_app_name => G_APP_NAME,
20250: p_msg_name => G_FETCHING_INFO,
20251: p_token1 => G_REC_NAME_TOKEN,
20252: p_token1_value => 'OKC_K_ITEMS_V Record');
20245: p_token1 => G_REC_NAME_TOKEN,
20246: p_token1_value => 'OKC_K_ITEMS_V Record');
20247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20248: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20249: OKL_API.set_message(p_app_name => G_APP_NAME,
20250: p_msg_name => G_FETCHING_INFO,
20251: p_token1 => G_REC_NAME_TOKEN,
20252: p_token1_value => 'OKC_K_ITEMS_V Record');
20253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20249: OKL_API.set_message(p_app_name => G_APP_NAME,
20250: p_msg_name => G_FETCHING_INFO,
20251: p_token1 => G_REC_NAME_TOKEN,
20252: p_token1_value => 'OKC_K_ITEMS_V Record');
20253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20254: END IF;
20255: --Build addon cimv item rec
20256: r_cimv_addon_rec.number_of_items := ln_remain_inst;
20257: -- Updating of the addon Line and Item Record
20267: p_cimv_rec => r_cimv_addon_rec,
20268: x_clev_rec => rx_clev_addon_rec,
20269: x_klev_rec => rx_klev_addon_rec,
20270: x_cimv_rec => rx_cimv_addon_rec);
20271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20272: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20268: x_clev_rec => rx_clev_addon_rec,
20269: x_klev_rec => rx_klev_addon_rec,
20270: x_cimv_rec => rx_cimv_addon_rec);
20271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20272: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20276: END LOOP;
20269: x_klev_rec => rx_klev_addon_rec,
20270: x_cimv_rec => rx_cimv_addon_rec);
20271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20272: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20270: x_cimv_rec => rx_cimv_addon_rec);
20271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20272: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20280: RAISE OKL_API.G_EXCEPTION_ERROR;
20281: END IF;
20274: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20275: END IF;
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20280: RAISE OKL_API.G_EXCEPTION_ERROR;
20281: END IF;
20282: -- Since we need to populate the OEC into fixed asset line also
20275: END IF;
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20280: RAISE OKL_API.G_EXCEPTION_ERROR;
20281: END IF;
20282: -- Since we need to populate the OEC into fixed asset line also
20283: -- So we need to calcualte the same here it self
20276: END LOOP;
20277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20280: RAISE OKL_API.G_EXCEPTION_ERROR;
20281: END IF;
20282: -- Since we need to populate the OEC into fixed asset line also
20283: -- So we need to calcualte the same here it self
20284: oec_calc_upd_fin_rec(p_api_version => p_api_version,
20293: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20294: x_fin_clev_rec => x_clev_fin_rec,
20295: x_fin_klev_rec => x_klev_fin_rec,
20296: x_oec => ln_klev_fin_oec,
20297: p_validate_fin_line => OKL_API.G_TRUE);
20298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20294: x_fin_clev_rec => x_clev_fin_rec,
20295: x_fin_klev_rec => x_klev_fin_rec,
20296: x_oec => ln_klev_fin_oec,
20297: p_validate_fin_line => OKL_API.G_TRUE);
20298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20302: END IF;
20295: x_fin_klev_rec => x_klev_fin_rec,
20296: x_oec => ln_klev_fin_oec,
20297: p_validate_fin_line => OKL_API.G_TRUE);
20298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20302: END IF;
20303: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20296: x_oec => ln_klev_fin_oec,
20297: p_validate_fin_line => OKL_API.G_TRUE);
20298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20302: END IF;
20303: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20304: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20297: p_validate_fin_line => OKL_API.G_TRUE);
20298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20302: END IF;
20303: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20304: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20305: p_init_msg_list => p_init_msg_list,
20313: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20314: x_fin_clev_rec => x_clev_fin_rec,
20315: x_fin_klev_rec => x_klev_fin_rec,
20316: x_cap_amt => ln_klev_fin_cap,
20317: p_validate_fin_line => OKL_API.G_TRUE);
20318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20314: x_fin_clev_rec => x_clev_fin_rec,
20315: x_fin_klev_rec => x_klev_fin_rec,
20316: x_cap_amt => ln_klev_fin_cap,
20317: p_validate_fin_line => OKL_API.G_TRUE);
20318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20322: END IF;
20315: x_fin_klev_rec => x_klev_fin_rec,
20316: x_cap_amt => ln_klev_fin_cap,
20317: p_validate_fin_line => OKL_API.G_TRUE);
20318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20322: END IF;
20323: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20316: x_cap_amt => ln_klev_fin_cap,
20317: p_validate_fin_line => OKL_API.G_TRUE);
20318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20322: END IF;
20323: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20324: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20317: p_validate_fin_line => OKL_API.G_TRUE);
20318: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20322: END IF;
20323: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20324: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20325: p_init_msg_list => p_init_msg_list,
20333: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20334: x_fin_clev_rec => x_clev_fin_rec,
20335: x_fin_klev_rec => x_klev_fin_rec,
20336: x_res_value => ln_klev_fin_res,
20337: p_validate_fin_line => OKL_API.G_TRUE);
20338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20341: RAISE OKL_API.G_EXCEPTION_ERROR;
20334: x_fin_clev_rec => x_clev_fin_rec,
20335: x_fin_klev_rec => x_klev_fin_rec,
20336: x_res_value => ln_klev_fin_res,
20337: p_validate_fin_line => OKL_API.G_TRUE);
20338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20341: RAISE OKL_API.G_EXCEPTION_ERROR;
20342: END IF;
20335: x_fin_klev_rec => x_klev_fin_rec,
20336: x_res_value => ln_klev_fin_res,
20337: p_validate_fin_line => OKL_API.G_TRUE);
20338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20341: RAISE OKL_API.G_EXCEPTION_ERROR;
20342: END IF;
20343: -- Updating of the Fixed Asset Line Process
20336: x_res_value => ln_klev_fin_res,
20337: p_validate_fin_line => OKL_API.G_TRUE);
20338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20341: RAISE OKL_API.G_EXCEPTION_ERROR;
20342: END IF;
20343: -- Updating of the Fixed Asset Line Process
20344: -- To Get the cle fa Line Record
20337: p_validate_fin_line => OKL_API.G_TRUE);
20338: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20340: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20341: RAISE OKL_API.G_EXCEPTION_ERROR;
20342: END IF;
20343: -- Updating of the Fixed Asset Line Process
20344: -- To Get the cle fa Line Record
20345: x_return_status := get_rec_clev(ln_fa_line_id,
20343: -- Updating of the Fixed Asset Line Process
20344: -- To Get the cle fa Line Record
20345: x_return_status := get_rec_clev(ln_fa_line_id,
20346: r_clev_fa_rec);
20347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20348: OKL_API.set_message(p_app_name => G_APP_NAME,
20349: p_msg_name => G_FETCHING_INFO,
20350: p_token1 => G_REC_NAME_TOKEN,
20351: p_token1_value => 'OKC_K_LINES_V Record');
20344: -- To Get the cle fa Line Record
20345: x_return_status := get_rec_clev(ln_fa_line_id,
20346: r_clev_fa_rec);
20347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20348: OKL_API.set_message(p_app_name => G_APP_NAME,
20349: p_msg_name => G_FETCHING_INFO,
20350: p_token1 => G_REC_NAME_TOKEN,
20351: p_token1_value => 'OKC_K_LINES_V Record');
20352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20348: OKL_API.set_message(p_app_name => G_APP_NAME,
20349: p_msg_name => G_FETCHING_INFO,
20350: p_token1 => G_REC_NAME_TOKEN,
20351: p_token1_value => 'OKC_K_LINES_V Record');
20352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20354: OKL_API.set_message(p_app_name => G_APP_NAME,
20355: p_msg_name => G_FETCHING_INFO,
20356: p_token1 => G_REC_NAME_TOKEN,
20349: p_msg_name => G_FETCHING_INFO,
20350: p_token1 => G_REC_NAME_TOKEN,
20351: p_token1_value => 'OKC_K_LINES_V Record');
20352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20354: OKL_API.set_message(p_app_name => G_APP_NAME,
20355: p_msg_name => G_FETCHING_INFO,
20356: p_token1 => G_REC_NAME_TOKEN,
20357: p_token1_value => 'OKC_K_LINES_V Record');
20350: p_token1 => G_REC_NAME_TOKEN,
20351: p_token1_value => 'OKC_K_LINES_V Record');
20352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20354: OKL_API.set_message(p_app_name => G_APP_NAME,
20355: p_msg_name => G_FETCHING_INFO,
20356: p_token1 => G_REC_NAME_TOKEN,
20357: p_token1_value => 'OKC_K_LINES_V Record');
20358: RAISE OKL_API.G_EXCEPTION_ERROR;
20354: OKL_API.set_message(p_app_name => G_APP_NAME,
20355: p_msg_name => G_FETCHING_INFO,
20356: p_token1 => G_REC_NAME_TOKEN,
20357: p_token1_value => 'OKC_K_LINES_V Record');
20358: RAISE OKL_API.G_EXCEPTION_ERROR;
20359: END IF;
20360: -- To Get the kle fa Line Record
20361: x_return_status := get_rec_klev(ln_fa_line_id,
20362: r_klev_fa_rec);
20359: END IF;
20360: -- To Get the kle fa Line Record
20361: x_return_status := get_rec_klev(ln_fa_line_id,
20362: r_klev_fa_rec);
20363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20364: OKL_API.set_message(p_app_name => G_APP_NAME,
20365: p_msg_name => G_FETCHING_INFO,
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20360: -- To Get the kle fa Line Record
20361: x_return_status := get_rec_klev(ln_fa_line_id,
20362: r_klev_fa_rec);
20363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20364: OKL_API.set_message(p_app_name => G_APP_NAME,
20365: p_msg_name => G_FETCHING_INFO,
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20364: OKL_API.set_message(p_app_name => G_APP_NAME,
20365: p_msg_name => G_FETCHING_INFO,
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20369: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20372: p_token1 => G_REC_NAME_TOKEN,
20365: p_msg_name => G_FETCHING_INFO,
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20369: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20372: p_token1 => G_REC_NAME_TOKEN,
20373: p_token1_value => 'OKL_K_LINES_V Record');
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20369: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20372: p_token1 => G_REC_NAME_TOKEN,
20373: p_token1_value => 'OKL_K_LINES_V Record');
20374: RAISE OKL_API.G_EXCEPTION_ERROR;
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20372: p_token1 => G_REC_NAME_TOKEN,
20373: p_token1_value => 'OKL_K_LINES_V Record');
20374: RAISE OKL_API.G_EXCEPTION_ERROR;
20375: END IF;
20376: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20377: OKL_API.set_message(p_app_name => G_APP_NAME,
20378: p_msg_name => G_LINE_RECORD);
20373: p_token1_value => 'OKL_K_LINES_V Record');
20374: RAISE OKL_API.G_EXCEPTION_ERROR;
20375: END IF;
20376: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20377: OKL_API.set_message(p_app_name => G_APP_NAME,
20378: p_msg_name => G_LINE_RECORD);
20379: RAISE OKL_API.G_EXCEPTION_ERROR;
20380: END IF;
20381: -- To Get the cimv fa Line Record
20375: END IF;
20376: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20377: OKL_API.set_message(p_app_name => G_APP_NAME,
20378: p_msg_name => G_LINE_RECORD);
20379: RAISE OKL_API.G_EXCEPTION_ERROR;
20380: END IF;
20381: -- To Get the cimv fa Line Record
20382: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20383: r_clev_fa_rec.dnz_chr_id,
20381: -- To Get the cimv fa Line Record
20382: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20383: r_clev_fa_rec.dnz_chr_id,
20384: r_cimv_fa_rec);
20385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20386: OKL_API.set_message(p_app_name => G_APP_NAME,
20387: p_msg_name => G_FETCHING_INFO,
20388: p_token1 => G_REC_NAME_TOKEN,
20389: p_token1_value => 'OKC_K_ITEMS_V Record');
20382: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20383: r_clev_fa_rec.dnz_chr_id,
20384: r_cimv_fa_rec);
20385: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20386: OKL_API.set_message(p_app_name => G_APP_NAME,
20387: p_msg_name => G_FETCHING_INFO,
20388: p_token1 => G_REC_NAME_TOKEN,
20389: p_token1_value => 'OKC_K_ITEMS_V Record');
20390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20386: OKL_API.set_message(p_app_name => G_APP_NAME,
20387: p_msg_name => G_FETCHING_INFO,
20388: p_token1 => G_REC_NAME_TOKEN,
20389: p_token1_value => 'OKC_K_ITEMS_V Record');
20390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20392: OKL_API.set_message(p_app_name => G_APP_NAME,
20393: p_msg_name => G_FETCHING_INFO,
20394: p_token1 => G_REC_NAME_TOKEN,
20387: p_msg_name => G_FETCHING_INFO,
20388: p_token1 => G_REC_NAME_TOKEN,
20389: p_token1_value => 'OKC_K_ITEMS_V Record');
20390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20392: OKL_API.set_message(p_app_name => G_APP_NAME,
20393: p_msg_name => G_FETCHING_INFO,
20394: p_token1 => G_REC_NAME_TOKEN,
20395: p_token1_value => 'OKC_K_ITEMS_V Record');
20388: p_token1 => G_REC_NAME_TOKEN,
20389: p_token1_value => 'OKC_K_ITEMS_V Record');
20390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20392: OKL_API.set_message(p_app_name => G_APP_NAME,
20393: p_msg_name => G_FETCHING_INFO,
20394: p_token1 => G_REC_NAME_TOKEN,
20395: p_token1_value => 'OKC_K_ITEMS_V Record');
20396: RAISE OKL_API.G_EXCEPTION_ERROR;
20392: OKL_API.set_message(p_app_name => G_APP_NAME,
20393: p_msg_name => G_FETCHING_INFO,
20394: p_token1 => G_REC_NAME_TOKEN,
20395: p_token1_value => 'OKC_K_ITEMS_V Record');
20396: RAISE OKL_API.G_EXCEPTION_ERROR;
20397: END IF;
20398: --Build cimv fa item rec
20399: r_cimv_fa_rec.number_of_items := ln_remain_inst;
20400: --Build talv fa item rec
20399: r_cimv_fa_rec.number_of_items := ln_remain_inst;
20400: --Build talv fa item rec
20401: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
20402: r_talv_fa_rec);
20403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20404: OKL_API.set_message(p_app_name => G_APP_NAME,
20405: p_msg_name => G_FETCHING_INFO,
20406: p_token1 => G_REC_NAME_TOKEN,
20407: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20400: --Build talv fa item rec
20401: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
20402: r_talv_fa_rec);
20403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20404: OKL_API.set_message(p_app_name => G_APP_NAME,
20405: p_msg_name => G_FETCHING_INFO,
20406: p_token1 => G_REC_NAME_TOKEN,
20407: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20404: OKL_API.set_message(p_app_name => G_APP_NAME,
20405: p_msg_name => G_FETCHING_INFO,
20406: p_token1 => G_REC_NAME_TOKEN,
20407: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20410: OKL_API.set_message(p_app_name => G_APP_NAME,
20411: p_msg_name => G_FETCHING_INFO,
20412: p_token1 => G_REC_NAME_TOKEN,
20405: p_msg_name => G_FETCHING_INFO,
20406: p_token1 => G_REC_NAME_TOKEN,
20407: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20410: OKL_API.set_message(p_app_name => G_APP_NAME,
20411: p_msg_name => G_FETCHING_INFO,
20412: p_token1 => G_REC_NAME_TOKEN,
20413: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20406: p_token1 => G_REC_NAME_TOKEN,
20407: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20410: OKL_API.set_message(p_app_name => G_APP_NAME,
20411: p_msg_name => G_FETCHING_INFO,
20412: p_token1 => G_REC_NAME_TOKEN,
20413: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20414: RAISE OKL_API.G_EXCEPTION_ERROR;
20410: OKL_API.set_message(p_app_name => G_APP_NAME,
20411: p_msg_name => G_FETCHING_INFO,
20412: p_token1 => G_REC_NAME_TOKEN,
20413: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20414: RAISE OKL_API.G_EXCEPTION_ERROR;
20415: END IF;
20416: --Build talv fa item rec
20417: r_talv_fa_rec.current_units := ln_remain_inst;
20418:
20452: x_clev_rec => l_clev_fa_rec_out,
20453: x_klev_rec => l_klev_fa_rec_out,
20454: x_cimv_rec => x_cimv_fa_rec,
20455: x_talv_rec => x_talv_fa_rec);
20456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20459: RAISE OKL_API.G_EXCEPTION_ERROR;
20460: END IF;
20453: x_klev_rec => l_klev_fa_rec_out,
20454: x_cimv_rec => x_cimv_fa_rec,
20455: x_talv_rec => x_talv_fa_rec);
20456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20459: RAISE OKL_API.G_EXCEPTION_ERROR;
20460: END IF;
20461: --Bug# 5176649 start
20454: x_cimv_rec => x_cimv_fa_rec,
20455: x_talv_rec => x_talv_fa_rec);
20456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20459: RAISE OKL_API.G_EXCEPTION_ERROR;
20460: END IF;
20461: --Bug# 5176649 start
20462: -- Update Tax Book details - okl_txd_assets_b
20455: x_talv_rec => x_talv_fa_rec);
20456: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20457: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20458: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20459: RAISE OKL_API.G_EXCEPTION_ERROR;
20460: END IF;
20461: --Bug# 5176649 start
20462: -- Update Tax Book details - okl_txd_assets_b
20463: update_asset_line_details(p_api_version => p_api_version,
20467: x_msg_data => x_msg_data,
20468: p_asset_number => p_asset_number,
20469: p_original_cost => x_talv_fa_rec.original_cost,
20470: p_tal_id => x_talv_fa_rec.ID);
20471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20474: RAISE OKL_API.G_EXCEPTION_ERROR;
20475: END IF;
20468: p_asset_number => p_asset_number,
20469: p_original_cost => x_talv_fa_rec.original_cost,
20470: p_tal_id => x_talv_fa_rec.ID);
20471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20474: RAISE OKL_API.G_EXCEPTION_ERROR;
20475: END IF;
20476: --Bug# 5176649 end
20469: p_original_cost => x_talv_fa_rec.original_cost,
20470: p_tal_id => x_talv_fa_rec.ID);
20471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20474: RAISE OKL_API.G_EXCEPTION_ERROR;
20475: END IF;
20476: --Bug# 5176649 end
20477:
20470: p_tal_id => x_talv_fa_rec.ID);
20471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20474: RAISE OKL_API.G_EXCEPTION_ERROR;
20475: END IF;
20476: --Bug# 5176649 end
20477:
20478: -- We need to change the status of the header whenever there is updating happening
20477:
20478: -- We need to change the status of the header whenever there is updating happening
20479: -- after the contract status is approved
20480: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
20481: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
20482: --cascade edit status on to lines
20483: okl_contract_status_pub.cascade_lease_status_edit
20484: (p_api_version => p_api_version,
20485: p_init_msg_list => p_init_msg_list,
20486: x_return_status => x_return_status,
20487: x_msg_count => x_msg_count,
20488: x_msg_data => x_msg_data,
20489: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20493: RAISE OKL_API.G_EXCEPTION_ERROR;
20494: END IF;
20487: x_msg_count => x_msg_count,
20488: x_msg_data => x_msg_data,
20489: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20493: RAISE OKL_API.G_EXCEPTION_ERROR;
20494: END IF;
20495: END IF;
20488: x_msg_data => x_msg_data,
20489: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20493: RAISE OKL_API.G_EXCEPTION_ERROR;
20494: END IF;
20495: END IF;
20496: OKL_API.END_ACTIVITY (x_msg_count,
20489: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20490: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20493: RAISE OKL_API.G_EXCEPTION_ERROR;
20494: END IF;
20495: END IF;
20496: OKL_API.END_ACTIVITY (x_msg_count,
20497: x_msg_data );
20492: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20493: RAISE OKL_API.G_EXCEPTION_ERROR;
20494: END IF;
20495: END IF;
20496: OKL_API.END_ACTIVITY (x_msg_count,
20497: x_msg_data );
20498: EXCEPTION
20499: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20500: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20495: END IF;
20496: OKL_API.END_ACTIVITY (x_msg_count,
20497: x_msg_data );
20498: EXCEPTION
20499: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20500: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20501: l_api_name,
20502: G_PKG_NAME,
20503: 'OKL_API.G_RET_STS_ERROR',
20496: OKL_API.END_ACTIVITY (x_msg_count,
20497: x_msg_data );
20498: EXCEPTION
20499: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20500: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20501: l_api_name,
20502: G_PKG_NAME,
20503: 'OKL_API.G_RET_STS_ERROR',
20504: x_msg_count,
20499: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20500: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20501: l_api_name,
20502: G_PKG_NAME,
20503: 'OKL_API.G_RET_STS_ERROR',
20504: x_msg_count,
20505: x_msg_data,
20506: '_PVT');
20507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20503: 'OKL_API.G_RET_STS_ERROR',
20504: x_msg_count,
20505: x_msg_data,
20506: '_PVT');
20507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20508: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20509: l_api_name,
20510: G_PKG_NAME,
20511: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20504: x_msg_count,
20505: x_msg_data,
20506: '_PVT');
20507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20508: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20509: l_api_name,
20510: G_PKG_NAME,
20511: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20512: x_msg_count,
20507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20508: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20509: l_api_name,
20510: G_PKG_NAME,
20511: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20512: x_msg_count,
20513: x_msg_data,
20514: '_PVT');
20515: WHEN OTHERS THEN
20512: x_msg_count,
20513: x_msg_data,
20514: '_PVT');
20515: WHEN OTHERS THEN
20516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20517: l_api_name,
20518: G_PKG_NAME,
20519: 'OTHERS',
20520: x_msg_count,