2: /* $Header: OKLRKLLB.pls 120.63.12020000.5 2013/03/08 12:54:15 racheruv 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;
2577: -- Bug# 15992711 : End of Modifications
2578:
2579: BEGIN
2580: -- initialize return status
2581: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2582: -- data is required
2583: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2584: (p_asset_number IS NULL) THEN
2585: -- store SQL error message on message stack
2579: BEGIN
2580: -- initialize return status
2581: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2582: -- data is required
2583: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2584: (p_asset_number IS NULL) THEN
2585: -- store SQL error message on message stack
2586: OKL_API.set_message(p_app_name => G_APP_NAME,
2587: p_msg_name => G_REQUIRED_VALUE,
2582: -- data is required
2583: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR
2584: (p_asset_number IS NULL) THEN
2585: -- store SQL error message on message stack
2586: OKL_API.set_message(p_app_name => G_APP_NAME,
2587: p_msg_name => G_REQUIRED_VALUE,
2588: p_token1 => G_COL_NAME_TOKEN,
2589: p_token1_value => 'ASSET_NUMBER');
2590: -- halt validation as it is a required field
2599:
2600: FETCH c_check_release_asset into lv_release_asset;
2601: IF c_check_release_asset%NOTFOUND THEN
2602: lv_release_asset := 'N';
2603: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2604: OKL_API.set_message(p_app_name => G_APP_NAME,
2605: p_msg_name => G_NO_MATCHING_RECORD,
2606: p_token1 => G_COL_NAME_TOKEN,
2607: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2600: FETCH c_check_release_asset into lv_release_asset;
2601: IF c_check_release_asset%NOTFOUND THEN
2602: lv_release_asset := 'N';
2603: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2604: OKL_API.set_message(p_app_name => G_APP_NAME,
2605: p_msg_name => G_NO_MATCHING_RECORD,
2606: p_token1 => G_COL_NAME_TOKEN,
2607: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2608: RAISE G_EXCEPTION_HALT_VALIDATION;*/
2615: --
2616: IF (upper(lv_release_asset) = 'Y') THEN
2617: okl_transaction_pvt.check_contract_securitized(
2618: p_api_version => 1.0,
2619: p_init_msg_list => OKL_API.G_FALSE,
2620: x_return_status => x_return_status,
2621: x_msg_count => x_msg_count,
2622: x_msg_data => x_msg_data,
2623: p_chr_id => p_dnz_chr_id,
2625: p_stream_type_class => 'RESIDUAL',
2626: p_trx_date => SYSDATE
2627: );
2628:
2629: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2630: OKL_API.set_message(p_app_name => G_APP_NAME,
2631: p_msg_name => 'OKL_LLA_ASSET_SECU_ERROR',
2632: p_token1 => 'ASSET_NUM',
2633: p_token1_value => p_asset_number
2626: p_trx_date => SYSDATE
2627: );
2628:
2629: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2630: OKL_API.set_message(p_app_name => G_APP_NAME,
2631: p_msg_name => 'OKL_LLA_ASSET_SECU_ERROR',
2632: p_token1 => 'ASSET_NUM',
2633: p_token1_value => p_asset_number
2634: );
2632: p_token1 => 'ASSET_NUM',
2633: p_token1_value => p_asset_number
2634: );
2635:
2636: x_return_status := OKL_API.G_RET_STS_ERROR;
2637: RETURN; -- no further processing
2638: END IF;
2639: END IF;
2640:
2644: -- Get the asset number from the system
2645: OPEN c_get_asset_number(p_kle_id);
2646: FETCH c_get_asset_number into lv_asset_number;
2647: IF c_get_asset_number%NOTFOUND THEN
2648: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2649: END IF;
2650: CLOSE c_get_asset_number;
2651:
2652: -- Check the asset number being changed
2662: OPEN c_txl_asset_number(p_asset_number,
2663: p_kle_id);
2664: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2665: IF c_txl_asset_number%NOTFOUND THEN
2666: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2667: END IF;
2668: CLOSE c_txl_asset_number;
2669:
2670: -- Validate if the Asset Number exists in OKX_ASSETS_V
2670: -- Validate if the Asset Number exists in OKX_ASSETS_V
2671: OPEN c_okx_assets_v(p_asset_number);
2672: FETCH c_okx_assets_v into ln_okx_assets_v;
2673: IF c_okx_assets_v%NOTFOUND THEN
2674: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2675: END IF;
2676: CLOSE c_okx_assets_v;
2677:
2678: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2678: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2679: OPEN c_okx_asset_lines_v(p_asset_number);
2680: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2681: IF c_okx_asset_lines_v%NOTFOUND THEN
2682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2683: END IF;
2684: CLOSE c_okx_asset_lines_v;
2685:
2686: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2687: -- for Split Asset scenario.
2688: OPEN c_txd_assets_v(p_asset_number);
2689: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2690: IF c_txd_assets_v%NOTFOUND THEN
2691: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2692: END IF;
2693: CLOSE c_txd_assets_v;
2694:
2695: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2691: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2692: END IF;
2693: CLOSE c_txd_assets_v;
2694:
2695: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2696: -- Enforce validation
2697: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2698: OPEN c_txl_asset_number(p_asset_number,
2699: p_kle_id);
2698: OPEN c_txl_asset_number(p_asset_number,
2699: p_kle_id);
2700: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2701: IF c_txl_asset_number%NOTFOUND THEN
2702: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2703: END IF;
2704: CLOSE c_txl_asset_number;
2705:
2706: -- Validate if the Asset Number exists in OKX_ASSETS_V
2706: -- Validate if the Asset Number exists in OKX_ASSETS_V
2707: OPEN c_okx_assets_v(p_asset_number);
2708: FETCH c_okx_assets_v into ln_okx_assets_v;
2709: IF c_okx_assets_v%NOTFOUND THEN
2710: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2711: END IF;
2712: CLOSE c_okx_assets_v;
2713:
2714: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2714: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2715: OPEN c_okx_asset_lines_v(p_asset_number);
2716: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2717: IF c_okx_asset_lines_v%NOTFOUND THEN
2718: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2719: END IF;
2720: CLOSE c_okx_asset_lines_v;
2721:
2722: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2723: -- for Split Asset scenario.
2724: OPEN c_txd_assets_v(p_asset_number);
2725: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2726: IF c_txd_assets_v%NOTFOUND THEN
2727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2728: END IF;
2729: CLOSE c_txd_assets_v;
2730:
2731: -- Since we have add this check only the cases if the asset number
2735: OPEN c_txl_asset_number(p_asset_number,
2736: p_kle_Id);
2737: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2738: IF c_txl_asset_number%NOTFOUND THEN
2739: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2740: END IF;
2741: CLOSE c_txl_asset_number;
2742:
2743: -- Validate if the Asset Number exists in OKX_ASSETS_V
2743: -- Validate if the Asset Number exists in OKX_ASSETS_V
2744: OPEN c_okx_assets_v(p_asset_number);
2745: FETCH c_okx_assets_v into ln_okx_assets_v;
2746: IF c_okx_assets_v%NOTFOUND THEN
2747: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2748: END IF;
2749: CLOSE c_okx_assets_v;
2750:
2751: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2751: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
2752: OPEN c_okx_asset_lines_v(p_asset_number);
2753: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
2754: IF c_okx_asset_lines_v%NOTFOUND THEN
2755: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2756: END IF;
2757: CLOSE c_okx_asset_lines_v;
2758:
2759: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
2760: -- for Split Asset scenario.
2761: OPEN c_txd_assets_v(p_asset_number);
2762: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
2763: IF c_txd_assets_v%NOTFOUND THEN
2764: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2765: END IF;
2766: CLOSE c_txd_assets_v;
2767: END IF;
2768:
2768:
2769: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
2770: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
2771: -- store SQL error message on message stack
2772: OKL_API.set_message(p_app_name => G_APP_NAME,
2773: p_msg_name => G_ASSET_NUMBER);
2774: RAISE G_EXCEPTION_HALT_VALIDATION;
2775: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2776: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2774: RAISE G_EXCEPTION_HALT_VALIDATION;
2775: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
2776: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
2777: -- store SQL error message on message stack
2778: OKL_API.set_message(p_app_name => G_APP_NAME,
2779: p_msg_name => G_ASSET_NUMBER);
2780: RAISE G_EXCEPTION_HALT_VALIDATION;
2781: END IF;
2782: END IF; -- End of Asset number equality check
2802: IF c_check_release_asset%ISOPEN THEN
2803: CLOSE c_check_release_asset;
2804: END IF;
2805:
2806: x_return_status := OKL_API.G_RET_STS_ERROR;
2807: WHEN G_EXCEPTION_HALT_VALIDATION then
2808: -- We are here b'cause we have no parent record
2809: -- If the cursor is open then it has to be closed
2810: IF c_txl_asset_number%ISOPEN THEN
2823: CLOSE c_check_release_asset;
2824: END IF;
2825:
2826: -- notify caller of an error
2827: x_return_status := OKL_API.G_RET_STS_ERROR;
2828: WHEN OTHERS THEN
2829: -- store SQL error message on message stack
2830: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2831: p_msg_name => G_UNEXPECTED_ERROR,
2826: -- notify caller of an error
2827: x_return_status := OKL_API.G_RET_STS_ERROR;
2828: WHEN OTHERS THEN
2829: -- store SQL error message on message stack
2830: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2831: p_msg_name => G_UNEXPECTED_ERROR,
2832: p_token1 => G_SQLCODE_TOKEN,
2833: p_token1_value => SQLCODE,
2834: p_token2 => G_SQLERRM_TOKEN,
2850: CLOSE c_check_release_asset;
2851: END IF;
2852:
2853: -- notify caller of an error as UNEXPETED error
2854: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2855: END validate_new_ast_num_update;
2856: -------------------------------------------------------------------------------------------------
2857: -- Start of Commnets
2858: -- Badrinath Kuchibholta
2939:
2940:
2941: BEGIN
2942: -- initialize return status
2943: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2944: -- data is required
2945: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2946: -- store SQL error message on message stack
2947: OKL_API.set_message(p_app_name => G_APP_NAME,
2941: BEGIN
2942: -- initialize return status
2943: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2944: -- data is required
2945: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2946: -- store SQL error message on message stack
2947: OKL_API.set_message(p_app_name => G_APP_NAME,
2948: p_msg_name => G_REQUIRED_VALUE,
2949: p_token1 => G_COL_NAME_TOKEN,
2943: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2944: -- data is required
2945: IF (p_asset_number = OKL_API.G_MISS_CHAR) OR (p_asset_number IS NULL) THEN
2946: -- store SQL error message on message stack
2947: OKL_API.set_message(p_app_name => G_APP_NAME,
2948: p_msg_name => G_REQUIRED_VALUE,
2949: p_token1 => G_COL_NAME_TOKEN,
2950: p_token1_value => 'ASSET_NUMBER');
2951: -- halt validation as it is a required field
2951: -- halt validation as it is a required field
2952: RAISE G_EXCEPTION_STOP_VALIDATION;
2953: END IF;
2954:
2955: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR (p_dnz_chr_id IS NULL) THEN
2956: -- store SQL error message on message stack
2957: OKL_API.set_message(p_app_name => G_APP_NAME,
2958: p_msg_name => G_REQUIRED_VALUE,
2959: p_token1 => G_COL_NAME_TOKEN,
2953: END IF;
2954:
2955: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR (p_dnz_chr_id IS NULL) THEN
2956: -- store SQL error message on message stack
2957: OKL_API.set_message(p_app_name => G_APP_NAME,
2958: p_msg_name => G_REQUIRED_VALUE,
2959: p_token1 => G_COL_NAME_TOKEN,
2960: p_token1_value => 'DNZ_CHR_ID');
2961: -- halt validation as it is a required field
2970:
2971: FETCH c_check_release_asset into lv_release_asset;
2972: IF c_check_release_asset%NOTFOUND THEN
2973: lv_release_asset := 'N';
2974: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2975: OKL_API.set_message(p_app_name => G_APP_NAME,
2976: p_msg_name => G_NO_MATCHING_RECORD,
2977: p_token1 => G_COL_NAME_TOKEN,
2978: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2971: FETCH c_check_release_asset into lv_release_asset;
2972: IF c_check_release_asset%NOTFOUND THEN
2973: lv_release_asset := 'N';
2974: /* x_return_status := OKL_API.G_RET_STS_ERROR;
2975: OKL_API.set_message(p_app_name => G_APP_NAME,
2976: p_msg_name => G_NO_MATCHING_RECORD,
2977: p_token1 => G_COL_NAME_TOKEN,
2978: p_token1_value => 'OKC_RULES_V.RULE_INFORMATION1');
2979: RAISE G_EXCEPTION_HALT_VALIDATION;*/
2986: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2987: OPEN c_txl_asset_number(p_asset_number);
2988: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2989: IF c_txl_asset_number%NOTFOUND THEN
2990: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2991: END IF;
2992: CLOSE c_txl_asset_number;
2993:
2994: -- Validate if the Asset Number exists in OKX_ASSETS_V
2994: -- Validate if the Asset Number exists in OKX_ASSETS_V
2995: OPEN c_okx_assets_v(p_asset_number);
2996: FETCH c_okx_assets_v into ln_okx_assets_v;
2997: IF c_okx_assets_v%NOTFOUND THEN
2998: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2999: END IF;
3000: CLOSE c_okx_assets_v;
3001:
3002: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
3002: -- Validate if the Asset Number exists in OKX_ASSET_LINES_V
3003: OPEN c_okx_asset_lines_v(p_asset_number);
3004: FETCH c_okx_asset_lines_v into ln_okx_asset_lines_v;
3005: IF c_okx_asset_lines_v%NOTFOUND THEN
3006: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3007: END IF;
3008: CLOSE c_okx_asset_lines_v;
3009:
3010: -- Validate if the Asset Number exists in OKL_TXD_ASSETS_V
3011: -- for Split Asset scenario.
3012: OPEN c_txd_assets_v(p_asset_number);
3013: FETCH c_txd_assets_v into ln_okl_txd_assets_v;
3014: IF c_txd_assets_v%NOTFOUND THEN
3015: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3016: END IF;
3017: CLOSE c_txd_assets_v;
3018:
3019: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
3018:
3019: IF (ln_okl_txl_assets_v = 1) OR (ln_okx_assets_v = 1) OR
3020: (ln_okx_asset_lines_v = 1) OR (ln_okl_txd_assets_v = 1) THEN
3021: -- store SQL error message on message stack
3022: OKL_API.set_message(p_app_name => G_APP_NAME,
3023: p_msg_name => G_ASSET_NUMBER);
3024: RAISE G_EXCEPTION_HALT_VALIDATION;
3025: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
3026: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
3024: RAISE G_EXCEPTION_HALT_VALIDATION;
3025: ELSIF (ln_okl_txl_assets_v = 1) AND (ln_okx_assets_v = 1) AND
3026: (ln_okx_asset_lines_v = 1) AND (ln_okl_txd_assets_v = 1) THEN
3027: -- store SQL error message on message stack
3028: OKL_API.set_message(p_app_name => G_APP_NAME,
3029: p_msg_name => G_ASSET_NUMBER);
3030: RAISE G_EXCEPTION_HALT_VALIDATION;
3031: END IF;
3032: END IF;
3033: EXCEPTION
3034: WHEN G_EXCEPTION_STOP_VALIDATION then
3035: -- We are here since the field is required
3036: -- Notify Error
3037: x_return_status := OKL_API.G_RET_STS_ERROR;
3038: WHEN G_EXCEPTION_HALT_VALIDATION then
3039: -- We are here b'cause we have no parent record
3040: -- If the cursor is open then it has to be closed
3041: IF c_txl_asset_number%ISOPEN THEN
3054: CLOSE c_check_release_asset;
3055: END IF;
3056:
3057: -- notify caller of an error
3058: x_return_status := OKL_API.G_RET_STS_ERROR;
3059: WHEN OTHERS THEN
3060: -- store SQL error message on message stack
3061: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3062: p_msg_name => G_UNEXPECTED_ERROR,
3057: -- notify caller of an error
3058: x_return_status := OKL_API.G_RET_STS_ERROR;
3059: WHEN OTHERS THEN
3060: -- store SQL error message on message stack
3061: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3062: p_msg_name => G_UNEXPECTED_ERROR,
3063: p_token1 => G_SQLCODE_TOKEN,
3064: p_token1_value => SQLCODE,
3065: p_token2 => G_SQLERRM_TOKEN,
3080: IF c_check_release_asset%ISOPEN THEN
3081: CLOSE c_check_release_asset;
3082: END IF;
3083: -- notify caller of an error as UNEXPETED error
3084: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3085: END validate_new_asset_number;
3086: -------------------------------------------------------------------------------------------------
3087: -- Start of Commnets
3088: -- Badrinath Kuchibholta
3112: AND txd.tal_id = p_tal_id
3113: AND txd.tax_book = p_tax_book; --);
3114: BEGIN
3115: -- initialize return status
3116: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3117: -- data is required
3118: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3119: p_asset_number IS NULL) OR
3120: (p_tal_id = OKL_API.G_MISS_NUM OR
3114: BEGIN
3115: -- initialize return status
3116: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3117: -- data is required
3118: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3119: p_asset_number IS NULL) OR
3120: (p_tal_id = OKL_API.G_MISS_NUM OR
3121: p_tal_id IS NULL) OR
3122: (p_tax_book = OKL_API.G_MISS_CHAR OR
3116: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3117: -- data is required
3118: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3119: p_asset_number IS NULL) OR
3120: (p_tal_id = OKL_API.G_MISS_NUM OR
3121: p_tal_id IS NULL) OR
3122: (p_tax_book = OKL_API.G_MISS_CHAR OR
3123: p_tax_book IS NULL) THEN
3124: -- store SQL error message on message stack
3118: IF (p_asset_number = OKL_API.G_MISS_CHAR OR
3119: p_asset_number IS NULL) OR
3120: (p_tal_id = OKL_API.G_MISS_NUM OR
3121: p_tal_id IS NULL) OR
3122: (p_tax_book = OKL_API.G_MISS_CHAR OR
3123: p_tax_book IS NULL) THEN
3124: -- store SQL error message on message stack
3125: OKL_API.set_message(p_app_name => G_APP_NAME,
3126: p_msg_name => G_REQUIRED_VALUE,
3121: p_tal_id IS NULL) OR
3122: (p_tax_book = OKL_API.G_MISS_CHAR OR
3123: p_tax_book IS NULL) THEN
3124: -- store SQL error message on message stack
3125: OKL_API.set_message(p_app_name => G_APP_NAME,
3126: p_msg_name => G_REQUIRED_VALUE,
3127: p_token1 => G_COL_NAME_TOKEN,
3128: p_token1_value => 'ASSET_NUMBER ,TAX BOOK and TAL ID');
3129: -- halt validation as it is a required field
3135: p_tax_book => p_tax_book,
3136: p_tal_id => p_tal_id);
3137: FETCH c_asset_lines_dtls_v into ln_asset_lines_dtls;
3138: IF c_asset_lines_dtls_v%NOTFOUND THEN
3139: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3140: END IF;
3141: CLOSE c_asset_lines_dtls_v;
3142: IF (ln_asset_lines_dtls = 1) THEN
3143: -- store SQL error message on message stack
3140: END IF;
3141: CLOSE c_asset_lines_dtls_v;
3142: IF (ln_asset_lines_dtls = 1) THEN
3143: -- store SQL error message on message stack
3144: OKL_API.set_message(p_app_name => G_APP_NAME,
3145: p_msg_name => G_ASSET_NUMBER);
3146: RAISE G_EXCEPTION_HALT_VALIDATION;
3147: END IF;
3148: EXCEPTION
3148: EXCEPTION
3149: WHEN G_EXCEPTION_STOP_VALIDATION then
3150: -- We are here since the field is required
3151: -- Notify Error
3152: x_return_status := OKL_API.G_RET_STS_ERROR;
3153: WHEN G_EXCEPTION_HALT_VALIDATION then
3154: -- We are here b'cause we have no parent record
3155: -- If the cursor is open then it has to be closed
3156: IF c_asset_lines_dtls_v%ISOPEN THEN
3156: IF c_asset_lines_dtls_v%ISOPEN THEN
3157: CLOSE c_asset_lines_dtls_v;
3158: END IF;
3159: -- notify caller of an error
3160: x_return_status := OKL_API.G_RET_STS_ERROR;
3161: WHEN OTHERS 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_UNEXPECTED_ERROR,
3159: -- notify caller of an error
3160: x_return_status := OKL_API.G_RET_STS_ERROR;
3161: WHEN OTHERS 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_UNEXPECTED_ERROR,
3165: p_token1 => G_SQLCODE_TOKEN,
3166: p_token1_value => SQLCODE,
3167: p_token2 => G_SQLERRM_TOKEN,
3170: IF c_asset_lines_dtls_v%ISOPEN THEN
3171: CLOSE c_asset_lines_dtls_v;
3172: END IF;
3173: -- notify caller of an error as UNEXPETED error
3174: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3175: END Validate_asset_tax_book;
3176: ----------------------------------------------------------------------------------------
3177: -- Start of Commnets
3178: -- Badrinath Kuchibholta
3195: WHERE instance_number_ib = p_inst_ib; --);
3196:
3197: BEGIN
3198: -- initialize return status
3199: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3200: -- data is required
3201: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3202: p_inst_num_ib IS NULL) THEN
3203: -- store SQL error message on message stack
3197: BEGIN
3198: -- initialize return status
3199: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3200: -- data is required
3201: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3202: p_inst_num_ib IS NULL) THEN
3203: -- store SQL error message on message stack
3204: OKL_API.set_message(p_app_name => G_APP_NAME,
3205: p_msg_name => G_REQUIRED_VALUE,
3200: -- data is required
3201: IF (p_inst_num_ib = OKL_API.G_MISS_CHAR OR
3202: p_inst_num_ib IS NULL) THEN
3203: -- store SQL error message on message stack
3204: OKL_API.set_message(p_app_name => G_APP_NAME,
3205: p_msg_name => G_REQUIRED_VALUE,
3206: p_token1 => G_COL_NAME_TOKEN,
3207: p_token1_value => 'INSTANCE_NUMBER_IB');
3208: RAISE G_EXCEPTION_STOP_VALIDATION;
3211: OPEN c_inst_num_ib_validate(p_inst_num_ib);
3212: FETCH c_inst_num_ib_validate into ln_dummy;
3213: IF c_inst_num_ib_validate%NOTFOUND THEN
3214: -- Since no parent record existing in OKL_TXL_ITM_INSTS
3215: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3216: END IF;
3217: CLOSE c_inst_num_ib_validate;
3218: IF (ln_dummy = 1) THEN
3219: -- store SQL error message on message stack
3216: END IF;
3217: CLOSE c_inst_num_ib_validate;
3218: IF (ln_dummy = 1) THEN
3219: -- store SQL error message on message stack
3220: OKL_API.set_message(p_app_name => G_APP_NAME,
3221: p_msg_name => G_INSTALL_BASE_NUMBER);
3222: RAISE G_EXCEPTION_HALT_VALIDATION;
3223: END IF;
3224: EXCEPTION
3224: EXCEPTION
3225: WHEN G_EXCEPTION_STOP_VALIDATION then
3226: -- We are here since the field is required
3227: -- Notify Error
3228: x_return_status := OKL_API.G_RET_STS_ERROR;
3229: WHEN G_EXCEPTION_HALT_VALIDATION then
3230: -- We are here b'cause we have no parent record
3231: -- store SQL error message on message stack
3232: -- If the cursor is open then it has to be closed
3233: IF c_inst_num_ib_validate%ISOPEN THEN
3234: CLOSE c_inst_num_ib_validate;
3235: END IF;
3236: -- notify caller of an error
3237: x_return_status := OKL_API.G_RET_STS_ERROR;
3238: WHEN OTHERS THEN
3239: -- store SQL error message on message stack
3240: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3241: p_msg_name => G_UNEXPECTED_ERROR,
3236: -- notify caller of an error
3237: x_return_status := OKL_API.G_RET_STS_ERROR;
3238: WHEN OTHERS THEN
3239: -- store SQL error message on message stack
3240: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3241: p_msg_name => G_UNEXPECTED_ERROR,
3242: p_token1 => G_SQLCODE_TOKEN,
3243: p_token1_value => SQLCODE,
3244: p_token2 => G_SQLERRM_TOKEN,
3247: IF c_inst_num_ib_validate%ISOPEN THEN
3248: CLOSE c_inst_num_ib_validate;
3249: END IF;
3250: -- notify caller of an error as UNEXPETED error
3251: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3252: END validate_instance_number_ib;
3253: ------------------------------------------------------------------------------------------------------------
3254: -- Start of Commnets
3255: -- Badrinath Kuchibholta
3270: FROM OKC_LINE_STYLES_V
3271: WHERE id = p_lse_id;
3272: BEGIN
3273: -- initialize return status
3274: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3275: -- data is required
3276: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3277: (p_clev_rec.lse_id IS NULL) THEN
3278: -- store SQL error message on message stack
3272: BEGIN
3273: -- initialize return status
3274: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3275: -- data is required
3276: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3277: (p_clev_rec.lse_id IS NULL) THEN
3278: -- store SQL error message on message stack
3279: OKL_API.set_message(p_app_name => G_APP_NAME,
3280: p_msg_name => G_REQUIRED_VALUE,
3275: -- data is required
3276: IF (p_clev_rec.lse_id = OKL_API.G_MISS_NUM) OR
3277: (p_clev_rec.lse_id IS NULL) THEN
3278: -- store SQL error message on message stack
3279: OKL_API.set_message(p_app_name => G_APP_NAME,
3280: p_msg_name => G_REQUIRED_VALUE,
3281: p_token1 => G_COL_NAME_TOKEN,
3282: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3283: -- halt validation as it is a required field
3288: FETCH c_lse_id_validate into x_lty_code,
3289: x_lse_type;
3290: -- If there are no records then
3291: IF c_lse_id_validate%NOTFOUND THEN
3292: OKL_API.set_message(p_app_name => G_APP_NAME,
3293: p_msg_name => G_NO_MATCHING_RECORD,
3294: p_token1 => G_COL_NAME_TOKEN,
3295: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3296: -- halt validation as it has no parent record
3297: RAISE G_EXCEPTION_HALT_VALIDATION;
3298: END IF;
3299: CLOSE c_lse_id_validate;
3300: -- If we have null records coming up
3301: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3302: x_lty_code IS NULL) AND
3303: (x_lse_type = OKL_API.G_MISS_CHAR OR
3304: x_lse_type IS NULL) THEN
3305: OKL_API.set_message(p_app_name => G_APP_NAME,
3299: CLOSE c_lse_id_validate;
3300: -- If we have null records coming up
3301: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3302: x_lty_code IS NULL) AND
3303: (x_lse_type = OKL_API.G_MISS_CHAR OR
3304: x_lse_type IS NULL) THEN
3305: OKL_API.set_message(p_app_name => G_APP_NAME,
3306: p_msg_name => G_NO_MATCHING_RECORD,
3307: p_token1 => G_COL_NAME_TOKEN,
3301: IF (x_lty_code = OKL_API.G_MISS_CHAR OR
3302: x_lty_code IS NULL) AND
3303: (x_lse_type = OKL_API.G_MISS_CHAR OR
3304: x_lse_type IS NULL) THEN
3305: OKL_API.set_message(p_app_name => G_APP_NAME,
3306: p_msg_name => G_NO_MATCHING_RECORD,
3307: p_token1 => G_COL_NAME_TOKEN,
3308: p_token1_value => 'OKC_K_LINES_V.LSE_ID');
3309: -- halt validation as it has no parent record
3312: EXCEPTION
3313: WHEN G_EXCEPTION_STOP_VALIDATION then
3314: -- We are here since the field is required
3315: -- Notify Error
3316: x_return_status := OKL_API.G_RET_STS_ERROR;
3317: WHEN G_EXCEPTION_HALT_VALIDATION then
3318: -- If the cursor is open then it has to be closed
3319: IF c_lse_id_validate%ISOPEN THEN
3320: CLOSE c_lse_id_validate;
3318: -- If the cursor is open then it has to be closed
3319: IF c_lse_id_validate%ISOPEN THEN
3320: CLOSE c_lse_id_validate;
3321: END IF;
3322: x_return_status := OKL_API.G_RET_STS_ERROR;
3323: WHEN OTHERS THEN
3324: -- store SQL error message on message stack
3325: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3326: p_msg_name => G_UNEXPECTED_ERROR,
3321: END IF;
3322: x_return_status := OKL_API.G_RET_STS_ERROR;
3323: WHEN OTHERS THEN
3324: -- store SQL error message on message stack
3325: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3326: p_msg_name => G_UNEXPECTED_ERROR,
3327: p_token1 => G_SQLCODE_TOKEN,
3328: p_token1_value => SQLCODE,
3329: p_token2 => G_SQLERRM_TOKEN,
3332: IF c_lse_id_validate%ISOPEN THEN
3333: CLOSE c_lse_id_validate;
3334: END IF;
3335: -- notify caller of an error as UNEXPETED error
3336: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3337: END validate_lse_id;
3338: ---------------------------------------------------------------------------------------------------
3339: -- Start of Commnets
3340: -- Badrinath Kuchibholta
3362: AND lse.id = cle.lse_id;
3363:
3364: BEGIN
3365: -- initialize return status
3366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3367: -- data is required
3368: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3369: p_clev_rec.cle_id IS NULL) THEN
3370: OKL_API.set_message(p_app_name => G_APP_NAME,
3364: BEGIN
3365: -- initialize return status
3366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3367: -- data is required
3368: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3369: p_clev_rec.cle_id IS NULL) THEN
3370: OKL_API.set_message(p_app_name => G_APP_NAME,
3371: p_msg_name => G_REQUIRED_VALUE,
3372: p_token1 => G_COL_NAME_TOKEN,
3366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3367: -- data is required
3368: IF (p_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
3369: p_clev_rec.cle_id IS NULL) THEN
3370: OKL_API.set_message(p_app_name => G_APP_NAME,
3371: p_msg_name => G_REQUIRED_VALUE,
3372: p_token1 => G_COL_NAME_TOKEN,
3373: p_token1_value => 'OKC_K_LINES_V.CLE_ID');
3374: -- halt validation as it is a required field
3376: END IF;
3377: -- check the valid id is there
3378: OPEN c_cle_id_validate(p_clev_rec.cle_id);
3379: IF c_cle_id_validate%NOTFOUND THEN
3380: OKL_API.set_message(p_app_name => G_APP_NAME,
3381: p_msg_name => G_NO_MATCHING_RECORD,
3382: p_token1 => G_COL_NAME_TOKEN,
3383: p_token1_value => 'OKC_K_LINES_V.CLE_ID');
3384: -- halt validation as it has no parent record
3402: ELSIF p_lty_code = G_IB_LINE_LTY_CODE AND
3403: lv_lty_code = G_INST_LINE_LTY_CODE THEN
3404: x_lty_code := lv_lty_code;
3405: ELSE
3406: OKL_API.set_message(p_app_name => G_APP_NAME,
3407: p_msg_name => G_LINE_STYLE);
3408: -- halt validation as it has invalid Value
3409: RAISE G_EXCEPTION_HALT_VALIDATION;
3410: END IF;
3412: WHEN G_EXCEPTION_STOP_VALIDATION then
3413: -- We are here since the field is required
3414: -- store SQL error message on message stack
3415: -- Notify Error
3416: x_return_status := OKL_API.G_RET_STS_ERROR;
3417: WHEN G_EXCEPTION_HALT_VALIDATION then
3418: IF c_cle_id_validate%ISOPEN THEN
3419: -- halt validation as it has no parent record
3420: RAISE G_EXCEPTION_HALT_VALIDATION;
3418: IF c_cle_id_validate%ISOPEN THEN
3419: -- halt validation as it has no parent record
3420: RAISE G_EXCEPTION_HALT_VALIDATION;
3421: END IF;
3422: x_return_status := OKL_API.G_RET_STS_ERROR;
3423: WHEN OTHERS THEN
3424: -- store SQL error message on message stack
3425: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3426: p_msg_name => G_UNEXPECTED_ERROR,
3421: END IF;
3422: x_return_status := OKL_API.G_RET_STS_ERROR;
3423: WHEN OTHERS THEN
3424: -- store SQL error message on message stack
3425: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3426: p_msg_name => G_UNEXPECTED_ERROR,
3427: p_token1 => G_SQLCODE_TOKEN,
3428: p_token1_value => SQLCODE,
3429: p_token2 => G_SQLERRM_TOKEN,
3432: -- halt validation as it has no parent record
3433: RAISE G_EXCEPTION_HALT_VALIDATION;
3434: END IF;
3435: -- notify caller of an error as UNEXPETED error
3436: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3437: END validate_cle_lse_id;
3438: ----------------------------------------------------------------------------------------------------
3439: -- Start of Commnets
3440: -- Badrinath Kuchibholta
3455: FROM OKC_K_HEADERS_B chrv
3456: WHERE chrv.id = p_dnz_chr_id; --);
3457: BEGIN
3458: -- initialize return status
3459: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3460: -- data is required
3461: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3462: (p_clev_rec.dnz_chr_id IS NULL) THEN
3463: -- store SQL error message on message stack
3457: BEGIN
3458: -- initialize return status
3459: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3460: -- data is required
3461: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3462: (p_clev_rec.dnz_chr_id IS NULL) THEN
3463: -- store SQL error message on message stack
3464: OKL_API.set_message(p_app_name => G_APP_NAME,
3465: p_msg_name => G_REQUIRED_VALUE,
3460: -- data is required
3461: IF (p_clev_rec.dnz_chr_id = OKL_API.G_MISS_NUM) OR
3462: (p_clev_rec.dnz_chr_id IS NULL) THEN
3463: -- store SQL error message on message stack
3464: OKL_API.set_message(p_app_name => G_APP_NAME,
3465: p_msg_name => G_REQUIRED_VALUE,
3466: p_token1 => G_COL_NAME_TOKEN,
3467: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3468: -- halt validation as it is a required field
3473: -- we assume the cle_id will not null
3474: -- as the same is not top line and it will be sub line
3475: OPEN c_dnz_chr_id_validate(p_clev_rec.dnz_chr_id);
3476: IF c_dnz_chr_id_validate%NOTFOUND THEN
3477: OKL_API.set_message(p_app_name => G_APP_NAME,
3478: p_msg_name => G_NO_MATCHING_RECORD,
3479: p_token1 => G_COL_NAME_TOKEN,
3480: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3481: -- halt validation as it has no parent record
3483: END IF;
3484: FETCH c_dnz_chr_id_validate into ln_dummy;
3485: CLOSE c_dnz_chr_id_validate;
3486: IF (ln_dummy = 0) THEN
3487: OKL_API.set_message(p_app_name => G_APP_NAME,
3488: p_msg_name => G_NO_MATCHING_RECORD,
3489: p_token1 => G_COL_NAME_TOKEN,
3490: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
3491: -- halt validation as it has no parent record
3494: EXCEPTION
3495: WHEN G_EXCEPTION_STOP_VALIDATION then
3496: -- We are here since the field is required
3497: -- Notify Error
3498: x_return_status := OKL_API.G_RET_STS_ERROR;
3499: WHEN G_EXCEPTION_HALT_VALIDATION then
3500: -- If the cursor is open then it has to be closed
3501: IF c_dnz_chr_id_validate%ISOPEN THEN
3502: CLOSE c_dnz_chr_id_validate;
3500: -- If the cursor is open then it has to be closed
3501: IF c_dnz_chr_id_validate%ISOPEN THEN
3502: CLOSE c_dnz_chr_id_validate;
3503: END IF;
3504: x_return_status := OKL_API.G_RET_STS_ERROR;
3505: WHEN OTHERS THEN
3506: -- store SQL error message on message stack
3507: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3508: p_msg_name => G_UNEXPECTED_ERROR,
3503: END IF;
3504: x_return_status := OKL_API.G_RET_STS_ERROR;
3505: WHEN OTHERS THEN
3506: -- store SQL error message on message stack
3507: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3508: p_msg_name => G_UNEXPECTED_ERROR,
3509: p_token1 => G_SQLCODE_TOKEN,
3510: p_token1_value => SQLCODE,
3511: p_token2 => G_SQLERRM_TOKEN,
3514: IF c_dnz_chr_id_validate%ISOPEN THEN
3515: CLOSE c_dnz_chr_id_validate;
3516: END IF;
3517: -- notify caller of an error as UNEXPETED error
3518: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3519: END validate_dnz_chr_id;
3520: --------------------------------------------------------------------------------------------
3521: -- Start of Commnets
3522: -- Badrinath Kuchibholta
3538: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3539: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3540: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3541: RETURN VARCHAR2 IS
3542: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3543: ln_dummy NUMBER := 0;
3544: ln1_dummy NUMBER := 0;
3545: ln2_dummy NUMBER := 0;
3546: ln3_dummy NUMBER := p_units;
3558: OKC_K_HEADERS_B chr
3559: WHERE khr.id = p_dnz_chr_id
3560: AND chr.id = khr.id;
3561: BEGIN
3562: IF (p_chr_id <> OKL_API.G_MISS_NUM OR
3563: p_chr_id IS NOT NULL) THEN
3564: OPEN get_deal_type(p_dnz_chr_id => p_chr_id);
3565: FETCH get_deal_type into lv_deal_type,
3566: lv_scs_code,
3568: l_orig_system_source_code;
3569: CLOSE get_deal_type;
3570: END IF;
3571: -- data is required
3572: IF (p_item1 = OKL_API.G_MISS_CHAR OR
3573: p_item1 IS NULL) THEN
3574: -- store SQL error message on message stack
3575: OKL_API.set_message(p_app_name => G_APP_NAME,
3576: p_msg_name => G_REQUIRED_VALUE,
3571: -- data is required
3572: IF (p_item1 = OKL_API.G_MISS_CHAR OR
3573: p_item1 IS NULL) THEN
3574: -- store SQL error message on message stack
3575: OKL_API.set_message(p_app_name => G_APP_NAME,
3576: p_msg_name => G_REQUIRED_VALUE,
3577: p_token1 => G_COL_NAME_TOKEN,
3578: p_token1_value => 'Item');
3579: -- halt validation as it is a required field
3578: p_token1_value => 'Item');
3579: -- halt validation as it is a required field
3580: RAISE G_EXCEPTION_STOP_VALIDATION;
3581: END IF;
3582: IF (p_item2 = OKL_API.G_MISS_CHAR OR
3583: p_item2 IS NULL) THEN
3584: -- store SQL error message on message stack
3585: OKL_API.set_message(p_app_name => G_APP_NAME,
3586: p_msg_name => G_REQUIRED_VALUE,
3581: END IF;
3582: IF (p_item2 = OKL_API.G_MISS_CHAR OR
3583: p_item2 IS NULL) THEN
3584: -- store SQL error message on message stack
3585: OKL_API.set_message(p_app_name => G_APP_NAME,
3586: p_msg_name => G_REQUIRED_VALUE,
3587: p_token1 => G_COL_NAME_TOKEN,
3588: p_token1_value => 'Item');
3589: -- halt validation as it is a required field
3588: p_token1_value => 'Item');
3589: -- halt validation as it is a required field
3590: RAISE G_EXCEPTION_STOP_VALIDATION;
3591: END IF;
3592: IF (p_ast_no = OKL_API.G_MISS_CHAR OR
3593: p_ast_no IS NULL) THEN
3594: -- store SQL error message on message stack
3595: OKL_API.set_message(p_app_name => G_APP_NAME,
3596: p_msg_name => G_REQUIRED_VALUE,
3591: END IF;
3592: IF (p_ast_no = OKL_API.G_MISS_CHAR OR
3593: p_ast_no IS NULL) THEN
3594: -- store SQL error message on message stack
3595: OKL_API.set_message(p_app_name => G_APP_NAME,
3596: p_msg_name => G_REQUIRED_VALUE,
3597: p_token1 => G_COL_NAME_TOKEN,
3598: p_token1_value => 'Asset Number');
3599: -- halt validation as it is a required field
3598: p_token1_value => 'Asset Number');
3599: -- halt validation as it is a required field
3600: RAISE G_EXCEPTION_STOP_VALIDATION;
3601: END IF;
3602: IF (p_ast_desc = OKL_API.G_MISS_CHAR OR
3603: p_ast_desc IS NULL) THEN
3604: -- store SQL error message on message stack
3605: OKL_API.set_message(p_app_name => G_APP_NAME,
3606: p_msg_name => G_REQUIRED_VALUE,
3601: END IF;
3602: IF (p_ast_desc = OKL_API.G_MISS_CHAR OR
3603: p_ast_desc IS NULL) THEN
3604: -- store SQL error message on message stack
3605: OKL_API.set_message(p_app_name => G_APP_NAME,
3606: p_msg_name => G_REQUIRED_VALUE,
3607: p_token1 => G_COL_NAME_TOKEN,
3608: p_token1_value => 'Description');
3609: -- halt validation as it is a required field
3608: p_token1_value => 'Description');
3609: -- halt validation as it is a required field
3610: RAISE G_EXCEPTION_STOP_VALIDATION;
3611: END IF;
3612: IF (p_cost = OKL_API.G_MISS_NUM OR
3613: p_cost IS NULL) THEN
3614: -- store SQL error message on message stack
3615: OKL_API.set_message(p_app_name => G_APP_NAME,
3616: p_msg_name => G_REQUIRED_VALUE,
3611: END IF;
3612: IF (p_cost = OKL_API.G_MISS_NUM OR
3613: p_cost IS NULL) THEN
3614: -- store SQL error message on message stack
3615: OKL_API.set_message(p_app_name => G_APP_NAME,
3616: p_msg_name => G_REQUIRED_VALUE,
3617: p_token1 => G_COL_NAME_TOKEN,
3618: p_token1_value => 'Unit Cost');
3619: -- halt validation as it is a required field
3620: RAISE G_EXCEPTION_STOP_VALIDATION;
3621: ELSE
3622: ln_dummy := sign(p_cost);
3623: IF ln_dummy = -1 THEN
3624: OKL_API.set_message(p_app_name => G_APP_NAME,
3625: p_msg_name => G_INVALID_VALUE,
3626: p_token1 => G_COL_NAME_TOKEN,
3627: p_token1_value => 'Unit Cost');
3628: -- halt validation as it is a required field
3628: -- halt validation as it is a required field
3629: RAISE G_EXCEPTION_STOP_VALIDATION;
3630: END IF;
3631: END IF;
3632: IF (ln3_dummy = OKL_API.G_MISS_NUM OR
3633: ln3_dummy IS NULL) THEN
3634: -- store SQL error message on message stack
3635: OKL_API.set_message(p_app_name => G_APP_NAME,
3636: p_msg_name => G_REQUIRED_VALUE,
3631: END IF;
3632: IF (ln3_dummy = OKL_API.G_MISS_NUM OR
3633: ln3_dummy IS NULL) THEN
3634: -- store SQL error message on message stack
3635: OKL_API.set_message(p_app_name => G_APP_NAME,
3636: p_msg_name => G_REQUIRED_VALUE,
3637: p_token1 => G_COL_NAME_TOKEN,
3638: p_token1_value => 'Units');
3639: -- halt validation as it is a required field
3640: RAISE G_EXCEPTION_STOP_VALIDATION;
3641: ELSE
3642: ln1_dummy := sign(p_units);
3643: IF ln1_dummy = -1 THEN
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_INVALID_VALUE,
3646: p_token1 => G_COL_NAME_TOKEN,
3647: p_token1_value => 'Units');
3648: -- halt validation as it is a required field
3649: RAISE G_EXCEPTION_STOP_VALIDATION;
3650: END IF;
3651: ln2_dummy := instr(to_char(p_units),'.');
3652: IF ln2_dummy <> 0 THEN
3653: OKL_API.set_message(p_app_name => G_APP_NAME,
3654: p_msg_name => G_DECIMAL_VALUE,
3655: p_token1 => G_COL_NAME_TOKEN,
3656: p_token1_value => 'Units');
3657: -- halt validation as it is a required field
3657: -- halt validation as it is a required field
3658: RAISE G_EXCEPTION_STOP_VALIDATION;
3659: END IF;
3660: END IF;
3661: IF (p_ib_loc1 = OKL_API.G_MISS_CHAR OR
3662: p_ib_loc1 IS NULL) THEN
3663: -- store SQL error message on message stack
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_REQUIRED_VALUE,
3660: END IF;
3661: IF (p_ib_loc1 = OKL_API.G_MISS_CHAR OR
3662: p_ib_loc1 IS NULL) THEN
3663: -- store SQL error message on message stack
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_REQUIRED_VALUE,
3666: p_token1 => G_COL_NAME_TOKEN,
3667: p_token1_value => 'Installed Site');
3668: -- halt validation as it is a required field
3667: p_token1_value => 'Installed Site');
3668: -- halt validation as it is a required field
3669: RAISE G_EXCEPTION_STOP_VALIDATION;
3670: END IF;
3671: IF (p_ib_loc2 = OKL_API.G_MISS_CHAR OR
3672: p_ib_loc2 IS NULL) THEN
3673: -- store SQL error message on message stack
3674: OKL_API.set_message(p_app_name => G_APP_NAME,
3675: p_msg_name => G_REQUIRED_VALUE,
3670: END IF;
3671: IF (p_ib_loc2 = OKL_API.G_MISS_CHAR OR
3672: p_ib_loc2 IS NULL) THEN
3673: -- store SQL error message on message stack
3674: OKL_API.set_message(p_app_name => G_APP_NAME,
3675: p_msg_name => G_REQUIRED_VALUE,
3676: p_token1 => G_COL_NAME_TOKEN,
3677: p_token1_value => 'Installed Site');
3678: -- halt validation as it is a required field
3677: p_token1_value => 'Installed Site');
3678: -- halt validation as it is a required field
3679: RAISE G_EXCEPTION_STOP_VALIDATION;
3680: END IF;
3681: IF (p_fa_loc = OKL_API.G_MISS_NUM OR
3682: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3683: --Bug# 4419339
3684: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3685: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3680: END IF;
3681: IF (p_fa_loc = OKL_API.G_MISS_NUM OR
3682: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3683: --Bug# 4419339
3684: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3685: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3686: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3687: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3688: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3682: p_fa_loc IS NULL) AND lv_scs_code <> 'QUOTE' AND
3683: --Bug# 4419339
3684: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3685: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3686: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3687: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3688: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3689: -- store SQL error message on message stack
3690: OKL_API.set_message(p_app_name => G_APP_NAME,
3684: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_LEASE_APP' AND
3685: --Bug# 5098124 : Added condition for 'OKL_QUOTE'
3686: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3687: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3688: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3689: -- store SQL error message on message stack
3690: OKL_API.set_message(p_app_name => G_APP_NAME,
3691: p_msg_name => G_REQUIRED_VALUE,
3692: p_token1 => G_COL_NAME_TOKEN,
3686: nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_QUOTE' THEN
3687: IF (lv_deal_type <> 'LOAN' AND (p_refinance_amount IS NULL OR
3688: p_refinance_amount = OKL_API.G_MISS_NUM)) THEN
3689: -- store SQL error message on message stack
3690: OKL_API.set_message(p_app_name => G_APP_NAME,
3691: p_msg_name => G_REQUIRED_VALUE,
3692: p_token1 => G_COL_NAME_TOKEN,
3693: p_token1_value => 'Fixed Asset Location');
3694: -- halt validation as it is a required field
3699: EXCEPTION
3700: WHEN G_EXCEPTION_STOP_VALIDATION then
3701: -- We are here since the field is required
3702: -- Notify Error
3703: x_return_status := OKL_API.G_RET_STS_ERROR;
3704: RETURN(x_return_status);
3705: WHEN OTHERS THEN
3706: OKL_API.set_message(p_app_name => G_APP_NAME,
3707: p_msg_name => 'Error Message from Required values');
3702: -- Notify Error
3703: x_return_status := OKL_API.G_RET_STS_ERROR;
3704: RETURN(x_return_status);
3705: WHEN OTHERS THEN
3706: OKL_API.set_message(p_app_name => G_APP_NAME,
3707: p_msg_name => 'Error Message from Required values');
3708: -- store SQL error message on message stack
3709: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3710: p_msg_name => G_UNEXPECTED_ERROR,
3705: WHEN OTHERS THEN
3706: OKL_API.set_message(p_app_name => G_APP_NAME,
3707: p_msg_name => 'Error Message from Required values');
3708: -- store SQL error message on message stack
3709: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3710: p_msg_name => G_UNEXPECTED_ERROR,
3711: p_token1 => G_SQLCODE_TOKEN,
3712: p_token1_value => SQLCODE,
3713: p_token2 => G_SQLERRM_TOKEN,
3712: p_token1_value => SQLCODE,
3713: p_token2 => G_SQLERRM_TOKEN,
3714: p_token2_value => SQLERRM);
3715: -- notify caller of an error as UNEXPETED error
3716: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3717: RETURN(x_return_status);
3718: END check_required_values;
3719: --------------------------------------------------------------------------------------------
3720: -- Start of Commnets
3737: FROM OKL_TXL_ASSETS_V
3738: WHERE kle_id = p_kle_id; --);
3739: BEGIN
3740: -- initialize return status
3741: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3742: -- data is required
3743: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3744: (p_klev_rec.id IS NULL) THEN
3745: -- store SQL error message on message stack
3739: BEGIN
3740: -- initialize return status
3741: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3742: -- data is required
3743: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3744: (p_klev_rec.id IS NULL) THEN
3745: -- store SQL error message on message stack
3746: OKL_API.set_message(p_app_name => G_APP_NAME,
3747: p_msg_name => G_REQUIRED_VALUE,
3742: -- data is required
3743: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3744: (p_klev_rec.id IS NULL) THEN
3745: -- store SQL error message on message stack
3746: OKL_API.set_message(p_app_name => G_APP_NAME,
3747: p_msg_name => G_REQUIRED_VALUE,
3748: p_token1 => G_COL_NAME_TOKEN,
3749: p_token1_value => 'OKL_TXL_ASSETS_V.KLE_ID');
3750: -- halt validation as it is a required field
3766: EXCEPTION
3767: WHEN G_EXCEPTION_STOP_VALIDATION then
3768: -- We are here since the field is required
3769: -- Notify Error
3770: x_return_status := OKL_API.G_RET_STS_ERROR;
3771: WHEN OTHERS THEN
3772: -- store SQL error message on message stack
3773: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3774: p_msg_name => G_UNEXPECTED_ERROR,
3769: -- Notify Error
3770: x_return_status := OKL_API.G_RET_STS_ERROR;
3771: WHEN OTHERS THEN
3772: -- store SQL error message on message stack
3773: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3774: p_msg_name => G_UNEXPECTED_ERROR,
3775: p_token1 => G_SQLCODE_TOKEN,
3776: p_token1_value => SQLCODE,
3777: p_token2 => G_SQLERRM_TOKEN,
3780: IF c_kle_id_validate%ISOPEN THEN
3781: CLOSE c_kle_id_validate;
3782: END IF;
3783: -- notify caller of an error as UNEXPETED error
3784: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3785: END validate_kle_id;
3786: --------------------------------------------------------------------------------------------------
3787: -- Start of Commnets
3788: -- Badrinath Kuchibholta
3804: FROM OKL_TXL_ITM_INSTS_V
3805: WHERE kle_id = p_kle_id; --);
3806: BEGIN
3807: -- initialize return status
3808: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3809: -- data is required
3810: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3811: (p_klev_rec.id IS NULL) THEN
3812: -- store SQL error message on message stack
3806: BEGIN
3807: -- initialize return status
3808: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3809: -- data is required
3810: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3811: (p_klev_rec.id IS NULL) THEN
3812: -- store SQL error message on message stack
3813: OKL_API.set_message(p_app_name => G_APP_NAME,
3814: p_msg_name => G_REQUIRED_VALUE,
3809: -- data is required
3810: IF (p_klev_rec.id = OKL_API.G_MISS_NUM) OR
3811: (p_klev_rec.id IS NULL) THEN
3812: -- store SQL error message on message stack
3813: OKL_API.set_message(p_app_name => G_APP_NAME,
3814: p_msg_name => G_REQUIRED_VALUE,
3815: p_token1 => G_COL_NAME_TOKEN,
3816: p_token1_value => 'OKL_TXL_ITM_INSTS_V.KLE_ID');
3817: -- halt validation as it is a required field
3833: EXCEPTION
3834: WHEN G_EXCEPTION_STOP_VALIDATION then
3835: -- We are here since the field is required
3836: -- Notify Error
3837: x_return_status := OKL_API.G_RET_STS_ERROR;
3838: WHEN OTHERS THEN
3839: -- store SQL error message on message stack
3840: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3841: p_msg_name => G_UNEXPECTED_ERROR,
3836: -- Notify Error
3837: x_return_status := OKL_API.G_RET_STS_ERROR;
3838: WHEN OTHERS THEN
3839: -- store SQL error message on message stack
3840: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3841: p_msg_name => G_UNEXPECTED_ERROR,
3842: p_token1 => G_SQLCODE_TOKEN,
3843: p_token1_value => SQLCODE,
3844: p_token2 => G_SQLERRM_TOKEN,
3847: IF c_iti_kle_id_validate%ISOPEN THEN
3848: CLOSE c_iti_kle_id_validate;
3849: END IF;
3850: -- notify caller of an error as UNEXPETED error
3851: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3852: END validate_iti_kle_id;
3853: ----------------------------------------------------------------------------------------------------
3854: -- Start of Commnets
3855: -- Badrinath Kuchibholta
3909: AND cle.id = p_cle_id
3910: AND cle.chr_id = p_chr_id;
3911: BEGIN
3912: -- initialize return status
3913: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3914: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3915: p_clev_rec.sts_code IS NULL) THEN
3916: -- store SQL error message on message stack
3917: OKL_API.set_message(p_app_name => G_APP_NAME,
3910: AND cle.chr_id = p_chr_id;
3911: BEGIN
3912: -- initialize return status
3913: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3914: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3915: p_clev_rec.sts_code IS NULL) THEN
3916: -- store SQL error message on message stack
3917: OKL_API.set_message(p_app_name => G_APP_NAME,
3918: p_msg_name => G_REQUIRED_VALUE,
3913: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3914: IF (p_clev_rec.sts_code = OKL_API.G_MISS_CHAR OR
3915: p_clev_rec.sts_code IS NULL) THEN
3916: -- store SQL error message on message stack
3917: OKL_API.set_message(p_app_name => G_APP_NAME,
3918: p_msg_name => G_REQUIRED_VALUE,
3919: p_token1 => G_COL_NAME_TOKEN,
3920: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3921: -- halt validation as it is a required field
3923: END IF;
3924: -- First Get the Lty _code we are going to validate
3925: OPEN c_lty_code_validate(p_clev_rec.lse_id);
3926: IF c_lty_code_validate%NOTFOUND THEN
3927: OKL_API.set_message(p_app_name => G_APP_NAME,
3928: p_msg_name => G_NO_MATCHING_RECORD,
3929: p_token1 => G_COL_NAME_TOKEN,
3930: p_token1_value => 'OKC_LINE_STYLE_V.LTY_CODE');
3931: -- halt validation as it is a required field
3939: OPEN c_sub_sub_line_sts_code(p_clev_rec.dnz_chr_id,
3940: p_clev_rec.id,
3941: lv_lty_code);
3942: IF c_sub_sub_line_sts_code%NOTFOUND THEN
3943: OKL_API.set_message(p_app_name => G_APP_NAME,
3944: p_msg_name => G_NO_MATCHING_RECORD,
3945: p_token1 => G_COL_NAME_TOKEN,
3946: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3947: -- halt validation as it is a required field
3955: OPEN c_sub_line_sts_code(p_clev_rec.dnz_chr_id,
3956: p_clev_rec.id,
3957: lv_lty_code);
3958: IF c_sub_line_sts_code%NOTFOUND THEN
3959: OKL_API.set_message(p_app_name => G_APP_NAME,
3960: p_msg_name => G_NO_MATCHING_RECORD,
3961: p_token1 => G_COL_NAME_TOKEN,
3962: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3963: -- halt validation as it is a required field
3969: OPEN c_top_line_sts_code(p_clev_rec.dnz_chr_id,
3970: p_clev_rec.id,
3971: p_clev_rec.chr_id);
3972: IF c_top_line_sts_code%NOTFOUND THEN
3973: OKL_API.set_message(p_app_name => G_APP_NAME,
3974: p_msg_name => G_NO_MATCHING_RECORD,
3975: p_token1 => G_COL_NAME_TOKEN,
3976: p_token1_value => 'OKC_K_LINES_V.STS_CODE');
3977: -- halt validation as it is a required field
3990: 'APPROVED',
3991: 'COMPLETE',
3992: 'INCOMPLETE',
3993: 'PASSED') THEN
3994: OKL_API.set_message(p_app_name => G_APP_NAME,
3995: p_msg_name => G_STATUS,
3996: p_token1 => 'STATUS',
3997: p_token1_value => lv_sts_code);
3998: -- halt validation as it is a required field
4001: EXCEPTION
4002: WHEN G_EXCEPTION_STOP_VALIDATION then
4003: -- We are here since the field is required
4004: -- Notify Error
4005: x_return_status := OKL_API.G_RET_STS_ERROR;
4006: WHEN G_EXCEPTION_HALT_VALIDATION then
4007: -- If the cursor is open then it has to be closed
4008: IF c_lty_code_validate%ISOPEN THEN
4009: CLOSE c_lty_code_validate;
4019: -- If the cursor is open then it has to be closed
4020: IF c_top_line_sts_code%ISOPEN THEN
4021: CLOSE c_top_line_sts_code;
4022: END IF;
4023: x_return_status := OKL_API.G_RET_STS_ERROR;
4024: WHEN OTHERS THEN
4025: -- store SQL error message on message stack
4026: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
4027: p_msg_name => G_UNEXPECTED_ERROR,
4022: END IF;
4023: x_return_status := OKL_API.G_RET_STS_ERROR;
4024: WHEN OTHERS THEN
4025: -- store SQL error message on message stack
4026: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
4027: p_msg_name => G_UNEXPECTED_ERROR,
4028: p_token1 => G_SQLCODE_TOKEN,
4029: p_token1_value => SQLCODE,
4030: p_token2 => G_SQLERRM_TOKEN,
4045: IF c_top_line_sts_code%ISOPEN THEN
4046: CLOSE c_top_line_sts_code;
4047: END IF;
4048: -- notify caller of an error as UNEXPETED error
4049: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4050: END validate_sts_code;
4051: ----------------------------------------------------------------------------------------------------------
4052: PROCEDURE Create_asset_header(
4053: p_api_version IN NUMBER,
4050: END validate_sts_code;
4051: ----------------------------------------------------------------------------------------------------------
4052: PROCEDURE Create_asset_header(
4053: p_api_version IN NUMBER,
4054: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4055: x_return_status OUT NOCOPY VARCHAR2,
4056: x_msg_count OUT NOCOPY NUMBER,
4057: x_msg_data OUT NOCOPY VARCHAR2,
4058: p_trxv_rec IN trxv_rec_type,
4058: p_trxv_rec IN trxv_rec_type,
4059: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
4060: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_ASSET_HEADER';
4061: BEGIN
4062: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4063: -- Call start_activity to create savepoint, check compatibility
4064: -- and initialize message list
4065: x_return_status := OKL_API.START_ACTIVITY (
4066: l_api_name
4061: BEGIN
4062: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4063: -- Call start_activity to create savepoint, check compatibility
4064: -- and initialize message list
4065: x_return_status := OKL_API.START_ACTIVITY (
4066: l_api_name
4067: ,p_init_msg_list
4068: ,'_PVT'
4069: ,x_return_status);
4067: ,p_init_msg_list
4068: ,'_PVT'
4069: ,x_return_status);
4070: -- Check if activity started successfully
4071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4074: RAISE OKL_API.G_EXCEPTION_ERROR;
4075: END IF;
4068: ,'_PVT'
4069: ,x_return_status);
4070: -- Check if activity started successfully
4071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4074: RAISE OKL_API.G_EXCEPTION_ERROR;
4075: END IF;
4076: -- evaluate conditions, build outcomes for true conditions and
4069: ,x_return_status);
4070: -- Check if activity started successfully
4071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4074: RAISE OKL_API.G_EXCEPTION_ERROR;
4075: END IF;
4076: -- evaluate conditions, build outcomes for true conditions and
4077: -- put them on outcome queue
4070: -- Check if activity started successfully
4071: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4073: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4074: RAISE OKL_API.G_EXCEPTION_ERROR;
4075: END IF;
4076: -- evaluate conditions, build outcomes for true conditions and
4077: -- put them on outcome queue
4078: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
4082: x_msg_count => x_msg_count,
4083: x_msg_data => x_msg_data,
4084: p_thpv_rec => p_trxv_rec,
4085: x_thpv_rec => x_trxv_rec);
4086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4089: RAISE OKL_API.G_EXCEPTION_ERROR;
4090: END IF;
4083: x_msg_data => x_msg_data,
4084: p_thpv_rec => p_trxv_rec,
4085: x_thpv_rec => x_trxv_rec);
4086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4089: RAISE OKL_API.G_EXCEPTION_ERROR;
4090: END IF;
4091: OKL_API.END_ACTIVITY (x_msg_count,
4084: p_thpv_rec => p_trxv_rec,
4085: x_thpv_rec => x_trxv_rec);
4086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4089: RAISE OKL_API.G_EXCEPTION_ERROR;
4090: END IF;
4091: OKL_API.END_ACTIVITY (x_msg_count,
4092: x_msg_data );
4085: x_thpv_rec => x_trxv_rec);
4086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4089: RAISE OKL_API.G_EXCEPTION_ERROR;
4090: END IF;
4091: OKL_API.END_ACTIVITY (x_msg_count,
4092: x_msg_data );
4093: EXCEPTION
4087: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4089: RAISE OKL_API.G_EXCEPTION_ERROR;
4090: END IF;
4091: OKL_API.END_ACTIVITY (x_msg_count,
4092: x_msg_data );
4093: EXCEPTION
4094: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4095: OKL_API.set_message(p_app_name => G_APP_NAME,
4090: END IF;
4091: OKL_API.END_ACTIVITY (x_msg_count,
4092: x_msg_data );
4093: EXCEPTION
4094: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4095: OKL_API.set_message(p_app_name => G_APP_NAME,
4096: p_msg_name => G_TRX_ID);
4097: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4098: l_api_name,
4091: OKL_API.END_ACTIVITY (x_msg_count,
4092: x_msg_data );
4093: EXCEPTION
4094: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4095: OKL_API.set_message(p_app_name => G_APP_NAME,
4096: p_msg_name => G_TRX_ID);
4097: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4098: l_api_name,
4099: G_PKG_NAME,
4093: EXCEPTION
4094: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4095: OKL_API.set_message(p_app_name => G_APP_NAME,
4096: p_msg_name => G_TRX_ID);
4097: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4098: l_api_name,
4099: G_PKG_NAME,
4100: 'OKL_API.G_RET_STS_ERROR',
4101: x_msg_count,
4096: p_msg_name => G_TRX_ID);
4097: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4098: l_api_name,
4099: G_PKG_NAME,
4100: 'OKL_API.G_RET_STS_ERROR',
4101: x_msg_count,
4102: x_msg_data,
4103: '_PVT');
4104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4100: 'OKL_API.G_RET_STS_ERROR',
4101: x_msg_count,
4102: x_msg_data,
4103: '_PVT');
4104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4105: OKL_API.set_message(p_app_name => G_APP_NAME,
4106: p_msg_name => G_TRX_ID);
4107: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4108: l_api_name,
4101: x_msg_count,
4102: x_msg_data,
4103: '_PVT');
4104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4105: OKL_API.set_message(p_app_name => G_APP_NAME,
4106: p_msg_name => G_TRX_ID);
4107: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4108: l_api_name,
4109: G_PKG_NAME,
4103: '_PVT');
4104: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4105: OKL_API.set_message(p_app_name => G_APP_NAME,
4106: p_msg_name => G_TRX_ID);
4107: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4108: l_api_name,
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4111: x_msg_count,
4106: p_msg_name => G_TRX_ID);
4107: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4108: l_api_name,
4109: G_PKG_NAME,
4110: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4111: x_msg_count,
4112: x_msg_data,
4113: '_PVT');
4114: WHEN OTHERS THEN
4111: x_msg_count,
4112: x_msg_data,
4113: '_PVT');
4114: WHEN OTHERS THEN
4115: OKL_API.set_message(p_app_name => G_APP_NAME,
4116: p_msg_name => G_TRX_ID);
4117: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4118: l_api_name,
4119: G_PKG_NAME,
4113: '_PVT');
4114: WHEN OTHERS THEN
4115: OKL_API.set_message(p_app_name => G_APP_NAME,
4116: p_msg_name => G_TRX_ID);
4117: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4118: l_api_name,
4119: G_PKG_NAME,
4120: 'OTHERS',
4121: x_msg_count,
4126: -- Local Procedures for Update of Header record
4127: -- Incase where the error condition should be updated
4128: PROCEDURE Update_asset_header(
4129: p_api_version IN NUMBER,
4130: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4131: x_return_status OUT NOCOPY VARCHAR2,
4132: x_msg_count OUT NOCOPY NUMBER,
4133: x_msg_data OUT NOCOPY VARCHAR2,
4134: p_trxv_rec IN trxv_rec_type,
4134: p_trxv_rec IN trxv_rec_type,
4135: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
4136: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSET_HEADER';
4137: BEGIN
4138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4139: -- Call start_activity to create savepoint, check compatibility
4140: -- and initialize message list
4141: x_return_status := OKL_API.START_ACTIVITY (
4142: l_api_name
4137: BEGIN
4138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4139: -- Call start_activity to create savepoint, check compatibility
4140: -- and initialize message list
4141: x_return_status := OKL_API.START_ACTIVITY (
4142: l_api_name
4143: ,p_init_msg_list
4144: ,'_PVT'
4145: ,x_return_status);
4143: ,p_init_msg_list
4144: ,'_PVT'
4145: ,x_return_status);
4146: -- Check if activity started successfully
4147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4150: RAISE OKL_API.G_EXCEPTION_ERROR;
4151: END IF;
4144: ,'_PVT'
4145: ,x_return_status);
4146: -- Check if activity started successfully
4147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4150: RAISE OKL_API.G_EXCEPTION_ERROR;
4151: END IF;
4152: -- evaluate conditions, build outcomes for true conditions and
4145: ,x_return_status);
4146: -- Check if activity started successfully
4147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4150: RAISE OKL_API.G_EXCEPTION_ERROR;
4151: END IF;
4152: -- evaluate conditions, build outcomes for true conditions and
4153: -- put them on outcome queue
4146: -- Check if activity started successfully
4147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4150: RAISE OKL_API.G_EXCEPTION_ERROR;
4151: END IF;
4152: -- evaluate conditions, build outcomes for true conditions and
4153: -- put them on outcome queue
4154: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
4158: x_msg_count => x_msg_count,
4159: x_msg_data => x_msg_data,
4160: p_thpv_rec => p_trxv_rec,
4161: x_thpv_rec => x_trxv_rec);
4162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_ERROR;
4166: END IF;
4159: x_msg_data => x_msg_data,
4160: p_thpv_rec => p_trxv_rec,
4161: x_thpv_rec => x_trxv_rec);
4162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_ERROR;
4166: END IF;
4167: OKL_API.END_ACTIVITY (x_msg_count,
4160: p_thpv_rec => p_trxv_rec,
4161: x_thpv_rec => x_trxv_rec);
4162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_ERROR;
4166: END IF;
4167: OKL_API.END_ACTIVITY (x_msg_count,
4168: x_msg_data );
4161: x_thpv_rec => x_trxv_rec);
4162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_ERROR;
4166: END IF;
4167: OKL_API.END_ACTIVITY (x_msg_count,
4168: x_msg_data );
4169: EXCEPTION
4163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4165: RAISE OKL_API.G_EXCEPTION_ERROR;
4166: END IF;
4167: OKL_API.END_ACTIVITY (x_msg_count,
4168: x_msg_data );
4169: EXCEPTION
4170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4171: OKL_API.set_message(p_app_name => G_APP_NAME,
4166: END IF;
4167: OKL_API.END_ACTIVITY (x_msg_count,
4168: x_msg_data );
4169: EXCEPTION
4170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4171: OKL_API.set_message(p_app_name => G_APP_NAME,
4172: p_msg_name => G_TRX_ID);
4173: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4174: l_api_name,
4167: OKL_API.END_ACTIVITY (x_msg_count,
4168: x_msg_data );
4169: EXCEPTION
4170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4171: OKL_API.set_message(p_app_name => G_APP_NAME,
4172: p_msg_name => G_TRX_ID);
4173: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4174: l_api_name,
4175: G_PKG_NAME,
4169: EXCEPTION
4170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4171: OKL_API.set_message(p_app_name => G_APP_NAME,
4172: p_msg_name => G_TRX_ID);
4173: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'OKL_API.G_RET_STS_ERROR',
4177: x_msg_count,
4172: p_msg_name => G_TRX_ID);
4173: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4174: l_api_name,
4175: G_PKG_NAME,
4176: 'OKL_API.G_RET_STS_ERROR',
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT');
4180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4176: 'OKL_API.G_RET_STS_ERROR',
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT');
4180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4181: OKL_API.set_message(p_app_name => G_APP_NAME,
4182: p_msg_name => G_TRX_ID);
4183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4184: l_api_name,
4177: x_msg_count,
4178: x_msg_data,
4179: '_PVT');
4180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4181: OKL_API.set_message(p_app_name => G_APP_NAME,
4182: p_msg_name => G_TRX_ID);
4183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4184: l_api_name,
4185: G_PKG_NAME,
4179: '_PVT');
4180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4181: OKL_API.set_message(p_app_name => G_APP_NAME,
4182: p_msg_name => G_TRX_ID);
4183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4187: x_msg_count,
4182: p_msg_name => G_TRX_ID);
4183: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4184: l_api_name,
4185: G_PKG_NAME,
4186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT');
4190: WHEN OTHERS THEN
4187: x_msg_count,
4188: x_msg_data,
4189: '_PVT');
4190: WHEN OTHERS THEN
4191: OKL_API.set_message(p_app_name => G_APP_NAME,
4192: p_msg_name => G_TRX_ID);
4193: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4194: l_api_name,
4195: G_PKG_NAME,
4189: '_PVT');
4190: WHEN OTHERS THEN
4191: OKL_API.set_message(p_app_name => G_APP_NAME,
4192: p_msg_name => G_TRX_ID);
4193: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4194: l_api_name,
4195: G_PKG_NAME,
4196: 'OTHERS',
4197: x_msg_count,
4200: END Update_asset_header;
4201: ------------------------------------------------------------------------------------------------------
4202: PROCEDURE Create_asset_lines(
4203: p_api_version IN NUMBER,
4204: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4205: x_return_status OUT NOCOPY VARCHAR2,
4206: x_msg_count OUT NOCOPY NUMBER,
4207: x_msg_data OUT NOCOPY VARCHAR2,
4208: p_talv_rec IN talv_rec_type,
4216: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
4217: l_legal_entity_id NUMBER;
4218:
4219: BEGIN
4220: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4221: -- Call start_activity to create savepoint, check compatibility
4222: -- and initialize message list
4223: x_return_status := OKL_API.START_ACTIVITY (
4224: l_api_name
4219: BEGIN
4220: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4221: -- Call start_activity to create savepoint, check compatibility
4222: -- and initialize message list
4223: x_return_status := OKL_API.START_ACTIVITY (
4224: l_api_name
4225: ,p_init_msg_list
4226: ,'_PVT'
4227: ,x_return_status);
4225: ,p_init_msg_list
4226: ,'_PVT'
4227: ,x_return_status);
4228: -- Check if activity started successfully
4229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4232: RAISE OKL_API.G_EXCEPTION_ERROR;
4233: END IF;
4226: ,'_PVT'
4227: ,x_return_status);
4228: -- Check if activity started successfully
4229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4232: RAISE OKL_API.G_EXCEPTION_ERROR;
4233: END IF;
4234: -- Create New Header record and new Line record
4227: ,x_return_status);
4228: -- Check if activity started successfully
4229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4232: RAISE OKL_API.G_EXCEPTION_ERROR;
4233: END IF;
4234: -- Create New Header record and new Line record
4235: -- Before creating Header record
4228: -- Check if activity started successfully
4229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4232: RAISE OKL_API.G_EXCEPTION_ERROR;
4233: END IF;
4234: -- Create New Header record and new Line record
4235: -- Before creating Header record
4236: -- we should make sure atleast the required record is given
4236: -- we should make sure atleast the required record is given
4237: l_trxv_rec.tas_type := 'CFA';
4238: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4239: x_try_id => l_trxv_rec.try_id);
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4237: l_trxv_rec.tas_type := 'CFA';
4238: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4239: x_try_id => l_trxv_rec.try_id);
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: l_trxv_rec.tsu_code := 'ENTERED';
4238: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4239: x_try_id => l_trxv_rec.try_id);
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: l_trxv_rec.tsu_code := 'ENTERED';
4246: l_trxv_rec.date_trans_occurred := sysdate;
4239: x_try_id => l_trxv_rec.try_id);
4240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4243: RAISE OKL_API.G_EXCEPTION_ERROR;
4244: END IF;
4245: l_trxv_rec.tsu_code := 'ENTERED';
4246: l_trxv_rec.date_trans_occurred := sysdate;
4247:
4254: -- get the contract number
4255: OPEN contract_num_csr(p_talv_rec.dnz_khr_id);
4256: FETCH contract_num_csr INTO l_cntrct_number;
4257: CLOSE contract_num_csr;
4258: Okl_Api.set_message(p_app_name => g_app_name,
4259: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4260: p_token1 => 'CONTRACT_NUMBER',
4261: p_token1_value => l_cntrct_number);
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4258: Okl_Api.set_message(p_app_name => g_app_name,
4259: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4260: p_token1 => 'CONTRACT_NUMBER',
4261: p_token1_value => l_cntrct_number);
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: -- Now creating the new header record
4265: Create_asset_header(p_api_version => p_api_version,
4266: p_init_msg_list => p_init_msg_list,
4268: x_msg_count => x_msg_count,
4269: x_msg_data => x_msg_data,
4270: p_trxv_rec => l_trxv_rec,
4271: x_trxv_rec => x_trxv_rec);
4272: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4273: l_trxv_rec := x_trxv_rec;
4274: l_trxv_rec.tsu_code := 'ERROR';
4275: Update_asset_header(p_api_version => p_api_version,
4276: p_init_msg_list => p_init_msg_list,
4278: x_msg_count => x_msg_count,
4279: x_msg_data => x_msg_data,
4280: p_trxv_rec => l_trxv_rec,
4281: x_trxv_rec => x_trxv_rec);
4282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4279: x_msg_data => x_msg_data,
4280: p_trxv_rec => l_trxv_rec,
4281: x_trxv_rec => x_trxv_rec);
4282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: p_trxv_rec => l_trxv_rec,
4281: x_trxv_rec => x_trxv_rec);
4282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: x_trxv_rec => x_trxv_rec);
4282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: l_trxv_rec := x_trxv_rec;
4283: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: l_trxv_rec := x_trxv_rec;
4290: l_trxv_rec.tsu_code := 'ERROR';
4291: Update_asset_header(p_api_version => p_api_version,
4284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4285: RAISE OKL_API.G_EXCEPTION_ERROR;
4286: END IF;
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: l_trxv_rec := x_trxv_rec;
4290: l_trxv_rec.tsu_code := 'ERROR';
4291: Update_asset_header(p_api_version => p_api_version,
4292: p_init_msg_list => p_init_msg_list,
4294: x_msg_count => x_msg_count,
4295: x_msg_data => x_msg_data,
4296: p_trxv_rec => l_trxv_rec,
4297: x_trxv_rec => x_trxv_rec);
4298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4301: RAISE OKL_API.G_EXCEPTION_ERROR;
4302: END IF;
4295: x_msg_data => x_msg_data,
4296: p_trxv_rec => l_trxv_rec,
4297: x_trxv_rec => x_trxv_rec);
4298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4301: RAISE OKL_API.G_EXCEPTION_ERROR;
4302: END IF;
4303: RAISE OKL_API.G_EXCEPTION_ERROR;
4296: p_trxv_rec => l_trxv_rec,
4297: x_trxv_rec => x_trxv_rec);
4298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4301: RAISE OKL_API.G_EXCEPTION_ERROR;
4302: END IF;
4303: RAISE OKL_API.G_EXCEPTION_ERROR;
4304: END IF;
4297: x_trxv_rec => x_trxv_rec);
4298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4301: RAISE OKL_API.G_EXCEPTION_ERROR;
4302: END IF;
4303: RAISE OKL_API.G_EXCEPTION_ERROR;
4304: END IF;
4305: -- Now we are creating the new line record
4299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4301: RAISE OKL_API.G_EXCEPTION_ERROR;
4302: END IF;
4303: RAISE OKL_API.G_EXCEPTION_ERROR;
4304: END IF;
4305: -- Now we are creating the new line record
4306: l_talv_rec := p_talv_rec;
4307: l_talv_rec.tas_id := x_trxv_rec.id;
4304: END IF;
4305: -- Now we are creating the new line record
4306: l_talv_rec := p_talv_rec;
4307: l_talv_rec.tas_id := x_trxv_rec.id;
4308: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
4309: l_talv_rec.tal_type IS NUll) THEN
4310: l_talv_rec.tal_type := 'CFA';
4311: END IF;
4312: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
4308: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
4309: l_talv_rec.tal_type IS NUll) THEN
4310: l_talv_rec.tal_type := 'CFA';
4311: END IF;
4312: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
4313: l_talv_rec.line_number IS NUll) THEN
4314: l_talv_rec.line_number := 1;
4315: ELSE
4316: l_talv_rec.line_number := l_talv_rec.line_number + 1;
4314: l_talv_rec.line_number := 1;
4315: ELSE
4316: l_talv_rec.line_number := l_talv_rec.line_number + 1;
4317: END IF;
4318: IF (l_talv_rec.description = OKL_API.G_MISS_CHAR OR
4319: l_talv_rec.description IS NUll) THEN
4320: l_talv_rec.description := 'CREATION OF FIXED ASSETS' ;
4321: END IF;
4322: -- evaluate conditions, build outcomes for true conditions and
4328: x_msg_count => x_msg_count,
4329: x_msg_data => x_msg_data,
4330: p_tlpv_rec => l_talv_rec,
4331: x_tlpv_rec => x_talv_rec);
4332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: OKL_API.set_message(p_app_name => G_APP_NAME,
4334: p_msg_name => G_KLE_ID);
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4329: x_msg_data => x_msg_data,
4330: p_tlpv_rec => l_talv_rec,
4331: x_tlpv_rec => x_talv_rec);
4332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: OKL_API.set_message(p_app_name => G_APP_NAME,
4334: p_msg_name => G_KLE_ID);
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4331: x_tlpv_rec => x_talv_rec);
4332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: OKL_API.set_message(p_app_name => G_APP_NAME,
4334: p_msg_name => G_KLE_ID);
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4338: p_msg_name => G_KLE_ID);
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4332: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: OKL_API.set_message(p_app_name => G_APP_NAME,
4334: p_msg_name => G_KLE_ID);
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4338: p_msg_name => G_KLE_ID);
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4333: OKL_API.set_message(p_app_name => G_APP_NAME,
4334: p_msg_name => G_KLE_ID);
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4338: p_msg_name => G_KLE_ID);
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: OKL_API.END_ACTIVITY (x_msg_count,
4335: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4338: p_msg_name => G_KLE_ID);
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: OKL_API.END_ACTIVITY (x_msg_count,
4342: x_msg_data );
4343: EXCEPTION
4337: OKL_API.set_message(p_app_name => G_APP_NAME,
4338: p_msg_name => G_KLE_ID);
4339: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: END IF;
4341: OKL_API.END_ACTIVITY (x_msg_count,
4342: x_msg_data );
4343: EXCEPTION
4344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4345: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4340: END IF;
4341: OKL_API.END_ACTIVITY (x_msg_count,
4342: x_msg_data );
4343: EXCEPTION
4344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4345: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4346: l_api_name,
4347: G_PKG_NAME,
4348: 'OKL_API.G_RET_STS_ERROR',
4341: OKL_API.END_ACTIVITY (x_msg_count,
4342: x_msg_data );
4343: EXCEPTION
4344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4345: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4346: l_api_name,
4347: G_PKG_NAME,
4348: 'OKL_API.G_RET_STS_ERROR',
4349: x_msg_count,
4344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4345: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4346: l_api_name,
4347: G_PKG_NAME,
4348: 'OKL_API.G_RET_STS_ERROR',
4349: x_msg_count,
4350: x_msg_data,
4351: '_PVT');
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4348: 'OKL_API.G_RET_STS_ERROR',
4349: x_msg_count,
4350: x_msg_data,
4351: '_PVT');
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4354: l_api_name,
4355: G_PKG_NAME,
4356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4349: x_msg_count,
4350: x_msg_data,
4351: '_PVT');
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4354: l_api_name,
4355: G_PKG_NAME,
4356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4357: x_msg_count,
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4354: l_api_name,
4355: G_PKG_NAME,
4356: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4357: x_msg_count,
4358: x_msg_data,
4359: '_PVT');
4360: WHEN OTHERS THEN
4357: x_msg_count,
4358: x_msg_data,
4359: '_PVT');
4360: WHEN OTHERS THEN
4361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4362: l_api_name,
4363: G_PKG_NAME,
4364: 'OTHERS',
4365: x_msg_count,
4369: -------------------------------------------------------------------------------------------------------------------
4370: -- Local Procedures for update of line record
4371: PROCEDURE Update_asset_lines(
4372: p_api_version IN NUMBER,
4373: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4374: x_return_status OUT NOCOPY VARCHAR2,
4375: x_msg_count OUT NOCOPY NUMBER,
4376: x_msg_data OUT NOCOPY VARCHAR2,
4377: p_talv_rec IN talv_rec_type,
4377: p_talv_rec IN talv_rec_type,
4378: x_talv_rec OUT NOCOPY talv_rec_type) IS
4379: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXL_ASSET_LINE';
4380: BEGIN
4381: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4382: -- Call start_activity to create savepoint, check compatibility
4383: -- and initialize message list
4384: x_return_status := OKL_API.START_ACTIVITY (
4385: l_api_name
4380: BEGIN
4381: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4382: -- Call start_activity to create savepoint, check compatibility
4383: -- and initialize message list
4384: x_return_status := OKL_API.START_ACTIVITY (
4385: l_api_name
4386: ,p_init_msg_list
4387: ,'_PVT'
4388: ,x_return_status);
4386: ,p_init_msg_list
4387: ,'_PVT'
4388: ,x_return_status);
4389: -- Check if activity started successfully
4390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: END IF;
4387: ,'_PVT'
4388: ,x_return_status);
4389: -- Check if activity started successfully
4390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: END IF;
4395: -- evaluate conditions, build outcomes for true conditions and
4388: ,x_return_status);
4389: -- Check if activity started successfully
4390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: END IF;
4395: -- evaluate conditions, build outcomes for true conditions and
4396: -- put them on outcome queue
4389: -- Check if activity started successfully
4390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4393: RAISE OKL_API.G_EXCEPTION_ERROR;
4394: END IF;
4395: -- evaluate conditions, build outcomes for true conditions and
4396: -- put them on outcome queue
4397: OKL_TXL_ASSETS_PUB.update_txl_asset_def(
4401: x_msg_count => x_msg_count,
4402: x_msg_data => x_msg_data,
4403: p_tlpv_rec => p_talv_rec,
4404: x_tlpv_rec => x_talv_rec);
4405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4408: RAISE OKL_API.G_EXCEPTION_ERROR;
4409: END IF;
4402: x_msg_data => x_msg_data,
4403: p_tlpv_rec => p_talv_rec,
4404: x_tlpv_rec => x_talv_rec);
4405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4408: RAISE OKL_API.G_EXCEPTION_ERROR;
4409: END IF;
4410: OKL_API.END_ACTIVITY (x_msg_count,
4403: p_tlpv_rec => p_talv_rec,
4404: x_tlpv_rec => x_talv_rec);
4405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4408: RAISE OKL_API.G_EXCEPTION_ERROR;
4409: END IF;
4410: OKL_API.END_ACTIVITY (x_msg_count,
4411: x_msg_data );
4404: x_tlpv_rec => x_talv_rec);
4405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4408: RAISE OKL_API.G_EXCEPTION_ERROR;
4409: END IF;
4410: OKL_API.END_ACTIVITY (x_msg_count,
4411: x_msg_data );
4412: EXCEPTION
4406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4408: RAISE OKL_API.G_EXCEPTION_ERROR;
4409: END IF;
4410: OKL_API.END_ACTIVITY (x_msg_count,
4411: x_msg_data );
4412: EXCEPTION
4413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4414: OKL_API.set_message(p_app_name => G_APP_NAME,
4409: END IF;
4410: OKL_API.END_ACTIVITY (x_msg_count,
4411: x_msg_data );
4412: EXCEPTION
4413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4414: OKL_API.set_message(p_app_name => G_APP_NAME,
4415: p_msg_name => G_KLE_ID);
4416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4417: l_api_name,
4410: OKL_API.END_ACTIVITY (x_msg_count,
4411: x_msg_data );
4412: EXCEPTION
4413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4414: OKL_API.set_message(p_app_name => G_APP_NAME,
4415: p_msg_name => G_KLE_ID);
4416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4417: l_api_name,
4418: G_PKG_NAME,
4412: EXCEPTION
4413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4414: OKL_API.set_message(p_app_name => G_APP_NAME,
4415: p_msg_name => G_KLE_ID);
4416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4417: l_api_name,
4418: G_PKG_NAME,
4419: 'OKL_API.G_RET_STS_ERROR',
4420: x_msg_count,
4415: p_msg_name => G_KLE_ID);
4416: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4417: l_api_name,
4418: G_PKG_NAME,
4419: 'OKL_API.G_RET_STS_ERROR',
4420: x_msg_count,
4421: x_msg_data,
4422: '_PVT');
4423: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4419: 'OKL_API.G_RET_STS_ERROR',
4420: x_msg_count,
4421: x_msg_data,
4422: '_PVT');
4423: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4424: OKL_API.set_message(p_app_name => G_APP_NAME,
4425: p_msg_name => G_KLE_ID);
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4420: x_msg_count,
4421: x_msg_data,
4422: '_PVT');
4423: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4424: OKL_API.set_message(p_app_name => G_APP_NAME,
4425: p_msg_name => G_KLE_ID);
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4422: '_PVT');
4423: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4424: OKL_API.set_message(p_app_name => G_APP_NAME,
4425: p_msg_name => G_KLE_ID);
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4429: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4430: x_msg_count,
4425: p_msg_name => G_KLE_ID);
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4429: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4430: x_msg_count,
4431: x_msg_data,
4432: '_PVT');
4433: WHEN OTHERS THEN
4430: x_msg_count,
4431: x_msg_data,
4432: '_PVT');
4433: WHEN OTHERS THEN
4434: OKL_API.set_message(p_app_name => G_APP_NAME,
4435: p_msg_name => G_KLE_ID);
4436: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4437: l_api_name,
4438: G_PKG_NAME,
4432: '_PVT');
4433: WHEN OTHERS THEN
4434: OKL_API.set_message(p_app_name => G_APP_NAME,
4435: p_msg_name => G_KLE_ID);
4436: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4437: l_api_name,
4438: G_PKG_NAME,
4439: 'OTHERS',
4440: x_msg_count,
4452: -- Version :
4453: -- End of Commnets
4454: PROCEDURE Create_asset_line_details(
4455: p_api_version IN NUMBER,
4456: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4457: x_return_status OUT NOCOPY VARCHAR2,
4458: x_msg_count OUT NOCOPY NUMBER,
4459: x_msg_data OUT NOCOPY VARCHAR2,
4460: p_txdv_tbl IN txdv_tbl_type,
4463: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXD_ASSET_DTL';
4464: i NUMBER := 0;
4465: l_txdv_tbl txdv_tbl_type := p_txdv_tbl;
4466: BEGIN
4467: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4468: -- Call start_activity to create savepoint, check compatibility
4469: -- and initialize message list
4470: x_return_status := OKL_API.START_ACTIVITY (
4471: l_api_name
4466: BEGIN
4467: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4468: -- Call start_activity to create savepoint, check compatibility
4469: -- and initialize message list
4470: x_return_status := OKL_API.START_ACTIVITY (
4471: l_api_name
4472: ,p_init_msg_list
4473: ,'_PVT'
4474: ,x_return_status);
4472: ,p_init_msg_list
4473: ,'_PVT'
4474: ,x_return_status);
4475: -- Check if activity started successfully
4476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4480: END IF;
4473: ,'_PVT'
4474: ,x_return_status);
4475: -- Check if activity started successfully
4476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4480: END IF;
4481: IF (p_txdv_tbl.COUNT > 0) THEN
4474: ,x_return_status);
4475: -- Check if activity started successfully
4476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4480: END IF;
4481: IF (p_txdv_tbl.COUNT > 0) THEN
4482: i := p_txdv_tbl.FIRST;
4475: -- Check if activity started successfully
4476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4480: END IF;
4481: IF (p_txdv_tbl.COUNT > 0) THEN
4482: i := p_txdv_tbl.FIRST;
4483: LOOP
4484: Validate_asset_tax_book(x_return_status => x_return_status,
4485: p_asset_number => l_txdv_tbl(i).asset_number,
4486: p_tax_book => l_txdv_tbl(i).tax_book,
4487: p_tal_id => l_txdv_tbl(i).tal_id);
4488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4489: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4491: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4492: END IF;
4485: p_asset_number => l_txdv_tbl(i).asset_number,
4486: p_tax_book => l_txdv_tbl(i).tax_book,
4487: p_tal_id => l_txdv_tbl(i).tal_id);
4488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4489: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4491: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4492: END IF;
4493: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4486: p_tax_book => l_txdv_tbl(i).tax_book,
4487: p_tal_id => l_txdv_tbl(i).tal_id);
4488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4489: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4491: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4492: END IF;
4493: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4494: p_api_version => p_api_version,
4487: p_tal_id => l_txdv_tbl(i).tal_id);
4488: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4489: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4490: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4491: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4492: END IF;
4493: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
4494: p_api_version => p_api_version,
4495: p_init_msg_list => p_init_msg_list,
4497: x_msg_count => x_msg_count,
4498: x_msg_data => x_msg_data,
4499: p_adpv_rec => p_txdv_tbl(i),
4500: x_adpv_rec => x_txdv_tbl(i));
4501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4505: END IF;
4498: x_msg_data => x_msg_data,
4499: p_adpv_rec => p_txdv_tbl(i),
4500: x_adpv_rec => x_txdv_tbl(i));
4501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4505: END IF;
4506: EXIT WHEN (i = p_txdv_tbl.LAST);
4499: p_adpv_rec => p_txdv_tbl(i),
4500: x_adpv_rec => x_txdv_tbl(i));
4501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4505: END IF;
4506: EXIT WHEN (i = p_txdv_tbl.LAST);
4507: i := p_txdv_tbl.NEXT(i);
4500: x_adpv_rec => x_txdv_tbl(i));
4501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4505: END IF;
4506: EXIT WHEN (i = p_txdv_tbl.LAST);
4507: i := p_txdv_tbl.NEXT(i);
4508: END LOOP;
4505: END IF;
4506: EXIT WHEN (i = p_txdv_tbl.LAST);
4507: i := p_txdv_tbl.NEXT(i);
4508: END LOOP;
4509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_ERROR;
4513: END IF;
4506: EXIT WHEN (i = p_txdv_tbl.LAST);
4507: i := p_txdv_tbl.NEXT(i);
4508: END LOOP;
4509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_ERROR;
4513: END IF;
4514: END IF;
4507: i := p_txdv_tbl.NEXT(i);
4508: END LOOP;
4509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_ERROR;
4513: END IF;
4514: END IF;
4515: OKL_API.END_ACTIVITY (x_msg_count,
4508: END LOOP;
4509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_ERROR;
4513: END IF;
4514: END IF;
4515: OKL_API.END_ACTIVITY (x_msg_count,
4516: x_msg_data );
4511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4512: RAISE OKL_API.G_EXCEPTION_ERROR;
4513: END IF;
4514: END IF;
4515: OKL_API.END_ACTIVITY (x_msg_count,
4516: x_msg_data );
4517: EXCEPTION
4518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4519: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4514: END IF;
4515: OKL_API.END_ACTIVITY (x_msg_count,
4516: x_msg_data );
4517: EXCEPTION
4518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4519: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4520: l_api_name,
4521: G_PKG_NAME,
4522: 'OKL_API.G_RET_STS_ERROR',
4515: OKL_API.END_ACTIVITY (x_msg_count,
4516: x_msg_data );
4517: EXCEPTION
4518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4519: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4520: l_api_name,
4521: G_PKG_NAME,
4522: 'OKL_API.G_RET_STS_ERROR',
4523: x_msg_count,
4518: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4519: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4520: l_api_name,
4521: G_PKG_NAME,
4522: 'OKL_API.G_RET_STS_ERROR',
4523: x_msg_count,
4524: x_msg_data,
4525: '_PVT');
4526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4522: 'OKL_API.G_RET_STS_ERROR',
4523: x_msg_count,
4524: x_msg_data,
4525: '_PVT');
4526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4527: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4528: l_api_name,
4529: G_PKG_NAME,
4530: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4523: x_msg_count,
4524: x_msg_data,
4525: '_PVT');
4526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4527: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4528: l_api_name,
4529: G_PKG_NAME,
4530: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4531: x_msg_count,
4526: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4527: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4528: l_api_name,
4529: G_PKG_NAME,
4530: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4531: x_msg_count,
4532: x_msg_data,
4533: '_PVT');
4534: WHEN OTHERS THEN
4531: x_msg_count,
4532: x_msg_data,
4533: '_PVT');
4534: WHEN OTHERS THEN
4535: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4536: l_api_name,
4537: G_PKG_NAME,
4538: 'OTHERS',
4539: x_msg_count,
4551: -- Version :
4552: -- End of Commnets
4553: PROCEDURE update_asset_line_details(
4554: p_api_version IN NUMBER,
4555: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4556: x_return_status OUT NOCOPY VARCHAR2,
4557: x_msg_count OUT NOCOPY NUMBER,
4558: x_msg_data OUT NOCOPY VARCHAR2,
4559: p_txdv_tbl IN txdv_tbl_type,
4562: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4563: i NUMBER := 0;
4564: l_txdv_tbl txdv_tbl_type := p_txdv_tbl;
4565: BEGIN
4566: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4567: -- Call start_activity to create savepoint, check compatibility
4568: -- and initialize message list
4569: x_return_status := OKL_API.START_ACTIVITY (
4570: l_api_name
4565: BEGIN
4566: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4567: -- Call start_activity to create savepoint, check compatibility
4568: -- and initialize message list
4569: x_return_status := OKL_API.START_ACTIVITY (
4570: l_api_name
4571: ,p_init_msg_list
4572: ,'_PVT'
4573: ,x_return_status);
4571: ,p_init_msg_list
4572: ,'_PVT'
4573: ,x_return_status);
4574: -- Check if activity started successfully
4575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4578: RAISE OKL_API.G_EXCEPTION_ERROR;
4579: END IF;
4572: ,'_PVT'
4573: ,x_return_status);
4574: -- Check if activity started successfully
4575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4578: RAISE OKL_API.G_EXCEPTION_ERROR;
4579: END IF;
4580: IF (p_txdv_tbl.COUNT > 0) THEN
4573: ,x_return_status);
4574: -- Check if activity started successfully
4575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4578: RAISE OKL_API.G_EXCEPTION_ERROR;
4579: END IF;
4580: IF (p_txdv_tbl.COUNT > 0) THEN
4581: i := p_txdv_tbl.FIRST;
4574: -- Check if activity started successfully
4575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4578: RAISE OKL_API.G_EXCEPTION_ERROR;
4579: END IF;
4580: IF (p_txdv_tbl.COUNT > 0) THEN
4581: i := p_txdv_tbl.FIRST;
4582: LOOP
4583: Validate_asset_tax_book(x_return_status => x_return_status,
4584: p_asset_number => l_txdv_tbl(i).asset_number,
4585: p_tax_book => l_txdv_tbl(i).tax_book,
4586: p_tal_id => l_txdv_tbl(i).tal_id);
4587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4588: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4590: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4591: END IF;
4584: p_asset_number => l_txdv_tbl(i).asset_number,
4585: p_tax_book => l_txdv_tbl(i).tax_book,
4586: p_tal_id => l_txdv_tbl(i).tal_id);
4587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4588: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4590: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4591: END IF;
4592: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4585: p_tax_book => l_txdv_tbl(i).tax_book,
4586: p_tal_id => l_txdv_tbl(i).tal_id);
4587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4588: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4590: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4591: END IF;
4592: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4593: p_api_version => p_api_version,
4586: p_tal_id => l_txdv_tbl(i).tal_id);
4587: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4588: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4590: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4591: END IF;
4592: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4593: p_api_version => p_api_version,
4594: p_init_msg_list => p_init_msg_list,
4596: x_msg_count => x_msg_count,
4597: x_msg_data => x_msg_data,
4598: p_adpv_rec => p_txdv_tbl(i),
4599: x_adpv_rec => x_txdv_tbl(i));
4600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4601: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4603: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4604: END IF;
4597: x_msg_data => x_msg_data,
4598: p_adpv_rec => p_txdv_tbl(i),
4599: x_adpv_rec => x_txdv_tbl(i));
4600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4601: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4603: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4604: END IF;
4605: EXIT WHEN (i = p_txdv_tbl.LAST);
4598: p_adpv_rec => p_txdv_tbl(i),
4599: x_adpv_rec => x_txdv_tbl(i));
4600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4601: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4603: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4604: END IF;
4605: EXIT WHEN (i = p_txdv_tbl.LAST);
4606: i := p_txdv_tbl.NEXT(i);
4599: x_adpv_rec => x_txdv_tbl(i));
4600: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4601: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4602: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4603: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4604: END IF;
4605: EXIT WHEN (i = p_txdv_tbl.LAST);
4606: i := p_txdv_tbl.NEXT(i);
4607: END LOOP;
4604: END IF;
4605: EXIT WHEN (i = p_txdv_tbl.LAST);
4606: i := p_txdv_tbl.NEXT(i);
4607: END LOOP;
4608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4611: RAISE OKL_API.G_EXCEPTION_ERROR;
4612: END IF;
4605: EXIT WHEN (i = p_txdv_tbl.LAST);
4606: i := p_txdv_tbl.NEXT(i);
4607: END LOOP;
4608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4611: RAISE OKL_API.G_EXCEPTION_ERROR;
4612: END IF;
4613: END IF;
4606: i := p_txdv_tbl.NEXT(i);
4607: END LOOP;
4608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4611: RAISE OKL_API.G_EXCEPTION_ERROR;
4612: END IF;
4613: END IF;
4614: OKL_API.END_ACTIVITY (x_msg_count,
4607: END LOOP;
4608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4611: RAISE OKL_API.G_EXCEPTION_ERROR;
4612: END IF;
4613: END IF;
4614: OKL_API.END_ACTIVITY (x_msg_count,
4615: x_msg_data );
4610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4611: RAISE OKL_API.G_EXCEPTION_ERROR;
4612: END IF;
4613: END IF;
4614: OKL_API.END_ACTIVITY (x_msg_count,
4615: x_msg_data );
4616: EXCEPTION
4617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4613: END IF;
4614: OKL_API.END_ACTIVITY (x_msg_count,
4615: x_msg_data );
4616: EXCEPTION
4617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4619: l_api_name,
4620: G_PKG_NAME,
4621: 'OKL_API.G_RET_STS_ERROR',
4614: OKL_API.END_ACTIVITY (x_msg_count,
4615: x_msg_data );
4616: EXCEPTION
4617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4619: l_api_name,
4620: G_PKG_NAME,
4621: 'OKL_API.G_RET_STS_ERROR',
4622: x_msg_count,
4617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4619: l_api_name,
4620: G_PKG_NAME,
4621: 'OKL_API.G_RET_STS_ERROR',
4622: x_msg_count,
4623: x_msg_data,
4624: '_PVT');
4625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4621: 'OKL_API.G_RET_STS_ERROR',
4622: x_msg_count,
4623: x_msg_data,
4624: '_PVT');
4625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4627: l_api_name,
4628: G_PKG_NAME,
4629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4622: x_msg_count,
4623: x_msg_data,
4624: '_PVT');
4625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4627: l_api_name,
4628: G_PKG_NAME,
4629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4630: x_msg_count,
4625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4627: l_api_name,
4628: G_PKG_NAME,
4629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4630: x_msg_count,
4631: x_msg_data,
4632: '_PVT');
4633: WHEN OTHERS THEN
4630: x_msg_count,
4631: x_msg_data,
4632: '_PVT');
4633: WHEN OTHERS THEN
4634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4635: l_api_name,
4636: G_PKG_NAME,
4637: 'OTHERS',
4638: x_msg_count,
4650: -- Version :
4651: -- End of Commnets
4652: PROCEDURE update_asset_line_details(
4653: p_api_version IN NUMBER,
4654: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4655: x_return_status OUT NOCOPY VARCHAR2,
4656: x_msg_count OUT NOCOPY NUMBER,
4657: x_msg_data OUT NOCOPY VARCHAR2,
4658: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4664: l_txdv_tbl txdv_tbl_type;
4665: lx_txdv_tbl txdv_tbl_type;
4666: lv_to_update VARCHAR2(3);
4667: BEGIN
4668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4669: -- Call start_activity to create savepoint, check compatibility
4670: -- and initialize message list
4671: x_return_status := OKL_API.START_ACTIVITY (
4672: l_api_name
4667: BEGIN
4668: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4669: -- Call start_activity to create savepoint, check compatibility
4670: -- and initialize message list
4671: x_return_status := OKL_API.START_ACTIVITY (
4672: l_api_name
4673: ,p_init_msg_list
4674: ,'_PVT'
4675: ,x_return_status);
4673: ,p_init_msg_list
4674: ,'_PVT'
4675: ,x_return_status);
4676: -- Check if activity started successfully
4677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4680: RAISE OKL_API.G_EXCEPTION_ERROR;
4681: END IF;
4674: ,'_PVT'
4675: ,x_return_status);
4676: -- Check if activity started successfully
4677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4680: RAISE OKL_API.G_EXCEPTION_ERROR;
4681: END IF;
4682: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4675: ,x_return_status);
4676: -- Check if activity started successfully
4677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4680: RAISE OKL_API.G_EXCEPTION_ERROR;
4681: END IF;
4682: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4683: p_asset_number => p_asset_number,
4676: -- Check if activity started successfully
4677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4680: RAISE OKL_API.G_EXCEPTION_ERROR;
4681: END IF;
4682: x_return_status := get_txdv_tbl(p_tal_id => p_tal_id,
4683: p_asset_number => p_asset_number,
4684: p_original_cost => p_original_cost,
4683: p_asset_number => p_asset_number,
4684: p_original_cost => p_original_cost,
4685: x_to_update => lv_to_update,
4686: x_txdv_tbl => l_txdv_tbl);
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4684: p_original_cost => p_original_cost,
4685: x_to_update => lv_to_update,
4686: x_txdv_tbl => l_txdv_tbl);
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692: IF lv_to_update = 'Y' THEN
4685: x_to_update => lv_to_update,
4686: x_txdv_tbl => l_txdv_tbl);
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692: IF lv_to_update = 'Y' THEN
4693: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4686: x_txdv_tbl => l_txdv_tbl);
4687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4690: RAISE OKL_API.G_EXCEPTION_ERROR;
4691: END IF;
4692: IF lv_to_update = 'Y' THEN
4693: OKL_TXD_ASSETS_PUB.update_txd_asset_def(
4694: p_api_version => p_api_version,
4697: x_msg_count => x_msg_count,
4698: x_msg_data => x_msg_data,
4699: p_adpv_tbl => l_txdv_tbl,
4700: x_adpv_tbl => lx_txdv_tbl);
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4698: x_msg_data => x_msg_data,
4699: p_adpv_tbl => l_txdv_tbl,
4700: x_adpv_tbl => lx_txdv_tbl);
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: END IF;
4699: p_adpv_tbl => l_txdv_tbl,
4700: x_adpv_tbl => lx_txdv_tbl);
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: END IF;
4707: OKL_API.END_ACTIVITY (x_msg_count,
4700: x_adpv_tbl => lx_txdv_tbl);
4701: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4702: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: END IF;
4707: OKL_API.END_ACTIVITY (x_msg_count,
4708: x_msg_data );
4703: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4704: RAISE OKL_API.G_EXCEPTION_ERROR;
4705: END IF;
4706: END IF;
4707: OKL_API.END_ACTIVITY (x_msg_count,
4708: x_msg_data );
4709: EXCEPTION
4710: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4711: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4706: END IF;
4707: OKL_API.END_ACTIVITY (x_msg_count,
4708: x_msg_data );
4709: EXCEPTION
4710: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4711: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4712: l_api_name,
4713: G_PKG_NAME,
4714: 'OKL_API.G_RET_STS_ERROR',
4707: OKL_API.END_ACTIVITY (x_msg_count,
4708: x_msg_data );
4709: EXCEPTION
4710: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4711: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4712: l_api_name,
4713: G_PKG_NAME,
4714: 'OKL_API.G_RET_STS_ERROR',
4715: x_msg_count,
4710: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4711: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4712: l_api_name,
4713: G_PKG_NAME,
4714: 'OKL_API.G_RET_STS_ERROR',
4715: x_msg_count,
4716: x_msg_data,
4717: '_PVT');
4718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4714: 'OKL_API.G_RET_STS_ERROR',
4715: x_msg_count,
4716: x_msg_data,
4717: '_PVT');
4718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4720: l_api_name,
4721: G_PKG_NAME,
4722: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4715: x_msg_count,
4716: x_msg_data,
4717: '_PVT');
4718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4720: l_api_name,
4721: G_PKG_NAME,
4722: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4723: x_msg_count,
4718: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4720: l_api_name,
4721: G_PKG_NAME,
4722: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4723: x_msg_count,
4724: x_msg_data,
4725: '_PVT');
4726: WHEN OTHERS THEN
4723: x_msg_count,
4724: x_msg_data,
4725: '_PVT');
4726: WHEN OTHERS THEN
4727: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4728: l_api_name,
4729: G_PKG_NAME,
4730: 'OTHERS',
4731: x_msg_count,
4735:
4736: -- 5530990
4737: PROCEDURE Update_Asset_Cost(
4738: p_api_version IN NUMBER,
4739: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4740: x_return_status OUT NOCOPY VARCHAR2,
4741: x_msg_count OUT NOCOPY NUMBER,
4742: x_msg_data OUT NOCOPY VARCHAR2,
4743: p_cleb_fin_id IN NUMBER,
4779: l_talv_rec talv_rec_type;
4780: x_talv_rec talv_rec_type;
4781:
4782: BEGIN
4783: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4784: -- Call start_activity to create savepoint, check compatibility
4785: -- and initialize message list
4786: x_return_status := OKL_API.START_ACTIVITY (
4787: l_api_name
4782: BEGIN
4783: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4784: -- Call start_activity to create savepoint, check compatibility
4785: -- and initialize message list
4786: x_return_status := OKL_API.START_ACTIVITY (
4787: l_api_name
4788: ,p_init_msg_list
4789: ,'_PVT'
4790: ,x_return_status);
4788: ,p_init_msg_list
4789: ,'_PVT'
4790: ,x_return_status);
4791: -- Check if activity started successfully
4792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_ERROR;
4796: END IF;
4789: ,'_PVT'
4790: ,x_return_status);
4791: -- Check if activity started successfully
4792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_ERROR;
4796: END IF;
4797:
4790: ,x_return_status);
4791: -- Check if activity started successfully
4792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_ERROR;
4796: END IF;
4797:
4798: l_rbk_khr := '?';
4791: -- Check if activity started successfully
4792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4795: RAISE OKL_API.G_EXCEPTION_ERROR;
4796: END IF;
4797:
4798: l_rbk_khr := '?';
4799: OPEN l_chk_rbk_csr (p_chr_id => p_chr_id);
4811: p_chr_id => p_chr_id,
4812: p_cle_id => p_cleb_fin_id
4813: );
4814:
4815: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_ERROR;
4819: END IF;
4812: p_cle_id => p_cleb_fin_id
4813: );
4814:
4815: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4813: );
4814:
4815: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4821: ELSE
4814:
4815: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4817: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4818: RAISE OKL_API.G_EXCEPTION_ERROR;
4819: END IF;
4820:
4821: ELSE
4822:
4837: x_msg_count => x_msg_count,
4838: x_msg_data => x_msg_data,
4839: p_talv_rec => l_talv_rec,
4840: x_talv_rec => x_talv_rec);
4841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4844: RAISE OKL_API.G_EXCEPTION_ERROR;
4845: END IF;
4838: x_msg_data => x_msg_data,
4839: p_talv_rec => l_talv_rec,
4840: x_talv_rec => x_talv_rec);
4841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4844: RAISE OKL_API.G_EXCEPTION_ERROR;
4845: END IF;
4846:
4839: p_talv_rec => l_talv_rec,
4840: x_talv_rec => x_talv_rec);
4841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4844: RAISE OKL_API.G_EXCEPTION_ERROR;
4845: END IF;
4846:
4847: update_asset_line_details(p_api_version => p_api_version,
4840: x_talv_rec => x_talv_rec);
4841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4843: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4844: RAISE OKL_API.G_EXCEPTION_ERROR;
4845: END IF;
4846:
4847: update_asset_line_details(p_api_version => p_api_version,
4848: p_init_msg_list => p_init_msg_list,
4851: x_msg_data => x_msg_data,
4852: p_asset_number => l_asset_number,
4853: p_original_cost => l_talv_rec.original_cost,
4854: p_tal_id => l_talv_rec.id);
4855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4858: RAISE OKL_API.G_EXCEPTION_ERROR;
4859: END IF;
4852: p_asset_number => l_asset_number,
4853: p_original_cost => l_talv_rec.original_cost,
4854: p_tal_id => l_talv_rec.id);
4855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4858: RAISE OKL_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4853: p_original_cost => l_talv_rec.original_cost,
4854: p_tal_id => l_talv_rec.id);
4855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4858: RAISE OKL_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4861: END IF;
4854: p_tal_id => l_talv_rec.id);
4855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4858: RAISE OKL_API.G_EXCEPTION_ERROR;
4859: END IF;
4860:
4861: END IF;
4862:
4861: END IF;
4862:
4863: END IF;
4864:
4865: OKL_API.END_ACTIVITY (x_msg_count,
4866: x_msg_data);
4867: EXCEPTION
4868: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4869: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4864:
4865: OKL_API.END_ACTIVITY (x_msg_count,
4866: x_msg_data);
4867: EXCEPTION
4868: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4869: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4870: l_api_name,
4871: G_PKG_NAME,
4872: 'OKL_API.G_RET_STS_ERROR',
4865: OKL_API.END_ACTIVITY (x_msg_count,
4866: x_msg_data);
4867: EXCEPTION
4868: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4869: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4870: l_api_name,
4871: G_PKG_NAME,
4872: 'OKL_API.G_RET_STS_ERROR',
4873: x_msg_count,
4868: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4869: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4870: l_api_name,
4871: G_PKG_NAME,
4872: 'OKL_API.G_RET_STS_ERROR',
4873: x_msg_count,
4874: x_msg_data,
4875: '_PVT');
4876: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4872: 'OKL_API.G_RET_STS_ERROR',
4873: x_msg_count,
4874: x_msg_data,
4875: '_PVT');
4876: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4877: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4878: l_api_name,
4879: G_PKG_NAME,
4880: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4873: x_msg_count,
4874: x_msg_data,
4875: '_PVT');
4876: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4877: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4878: l_api_name,
4879: G_PKG_NAME,
4880: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4881: x_msg_count,
4876: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4877: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4878: l_api_name,
4879: G_PKG_NAME,
4880: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4881: x_msg_count,
4882: x_msg_data,
4883: '_PVT');
4884: WHEN OTHERS THEN
4881: x_msg_count,
4882: x_msg_data,
4883: '_PVT');
4884: WHEN OTHERS THEN
4885: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4886: l_api_name,
4887: G_PKG_NAME,
4888: 'OTHERS',
4889: x_msg_count,
4895: --------------------------------------------------------------------------------------------------------------
4896: -- Local Procedures for creation of Txl Item Instance record
4897: PROCEDURE create_txl_itm_insts(
4898: p_api_version IN NUMBER,
4899: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4900: x_return_status OUT NOCOPY VARCHAR2,
4901: x_msg_count OUT NOCOPY NUMBER,
4902: x_msg_data OUT NOCOPY VARCHAR2,
4903: p_itiv_rec IN itiv_rec_type,
4918: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
4919: l_legal_entity_id NUMBER;
4920:
4921: BEGIN
4922: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4923: -- Call start_activity to create savepoint, check compatibility
4924: -- and initialize message list
4925: x_return_status := OKL_API.START_ACTIVITY (
4926: l_api_name
4921: BEGIN
4922: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4923: -- Call start_activity to create savepoint, check compatibility
4924: -- and initialize message list
4925: x_return_status := OKL_API.START_ACTIVITY (
4926: l_api_name
4927: ,p_init_msg_list
4928: ,'_PVT'
4929: ,x_return_status);
4927: ,p_init_msg_list
4928: ,'_PVT'
4929: ,x_return_status);
4930: -- Check if activity started successfully
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4928: ,'_PVT'
4929: ,x_return_status);
4930: -- Check if activity started successfully
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936: -- Create New Header record and new Line record
4929: ,x_return_status);
4930: -- Check if activity started successfully
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936: -- Create New Header record and new Line record
4937: -- Before creating Header record
4930: -- Check if activity started successfully
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936: -- Create New Header record and new Line record
4937: -- Before creating Header record
4938: -- we should make sure atleast the required record is given
4938: -- we should make sure atleast the required record is given
4939: l_trxv_rec.tas_type := 'CFA';
4940: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4941: x_try_id => l_trxv_rec.try_id);
4942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4939: l_trxv_rec.tas_type := 'CFA';
4940: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4941: x_try_id => l_trxv_rec.try_id);
4942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: l_trxv_rec.tsu_code := 'ENTERED';
4940: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
4941: x_try_id => l_trxv_rec.try_id);
4942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: l_trxv_rec.tsu_code := 'ENTERED';
4948: l_trxv_rec.date_trans_occurred := sysdate;
4941: x_try_id => l_trxv_rec.try_id);
4942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4945: RAISE OKL_API.G_EXCEPTION_ERROR;
4946: END IF;
4947: l_trxv_rec.tsu_code := 'ENTERED';
4948: l_trxv_rec.date_trans_occurred := sysdate;
4949:
4959: -- get the contract number
4960: OPEN contract_num_csr(l_chr_id);
4961: FETCH contract_num_csr INTO l_cntrct_number;
4962: CLOSE contract_num_csr;
4963: Okl_Api.set_message(p_app_name => g_app_name,
4964: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4965: p_token1 => 'CONTRACT_NUMBER',
4966: p_token1_value => l_cntrct_number);
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4963: Okl_Api.set_message(p_app_name => g_app_name,
4964: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
4965: p_token1 => 'CONTRACT_NUMBER',
4966: p_token1_value => l_cntrct_number);
4967: RAISE OKL_API.G_EXCEPTION_ERROR;
4968: END IF;
4969: -- Now creating the new header record
4970: Create_asset_header(p_api_version => p_api_version,
4971: p_init_msg_list => p_init_msg_list,
4973: x_msg_count => x_msg_count,
4974: x_msg_data => x_msg_data,
4975: p_trxv_rec => l_trxv_rec,
4976: x_trxv_rec => x_trxv_rec);
4977: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4978: l_trxv_rec := x_trxv_rec;
4979: l_trxv_rec.tsu_code := 'ERROR';
4980: Update_asset_header(p_api_version => p_api_version,
4981: p_init_msg_list => p_init_msg_list,
4983: x_msg_count => x_msg_count,
4984: x_msg_data => x_msg_data,
4985: p_trxv_rec => l_trxv_rec,
4986: x_trxv_rec => x_trxv_rec);
4987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4984: x_msg_data => x_msg_data,
4985: p_trxv_rec => l_trxv_rec,
4986: x_trxv_rec => x_trxv_rec);
4987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4985: p_trxv_rec => l_trxv_rec,
4986: x_trxv_rec => x_trxv_rec);
4987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4986: x_trxv_rec => x_trxv_rec);
4987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: l_trxv_rec := x_trxv_rec;
4988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: l_trxv_rec := x_trxv_rec;
4995: l_trxv_rec.tsu_code := 'ERROR';
4996: Update_asset_header(p_api_version => p_api_version,
4989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4990: RAISE OKL_API.G_EXCEPTION_ERROR;
4991: END IF;
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: l_trxv_rec := x_trxv_rec;
4995: l_trxv_rec.tsu_code := 'ERROR';
4996: Update_asset_header(p_api_version => p_api_version,
4997: p_init_msg_list => p_init_msg_list,
4999: x_msg_count => x_msg_count,
5000: x_msg_data => x_msg_data,
5001: p_trxv_rec => l_trxv_rec,
5002: x_trxv_rec => x_trxv_rec);
5003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5006: RAISE OKL_API.G_EXCEPTION_ERROR;
5007: END IF;
5000: x_msg_data => x_msg_data,
5001: p_trxv_rec => l_trxv_rec,
5002: x_trxv_rec => x_trxv_rec);
5003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5006: RAISE OKL_API.G_EXCEPTION_ERROR;
5007: END IF;
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5001: p_trxv_rec => l_trxv_rec,
5002: x_trxv_rec => x_trxv_rec);
5003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5006: RAISE OKL_API.G_EXCEPTION_ERROR;
5007: END IF;
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5009: END IF;
5002: x_trxv_rec => x_trxv_rec);
5003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5006: RAISE OKL_API.G_EXCEPTION_ERROR;
5007: END IF;
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5009: END IF;
5010: -- Now we are creating the new line record
5004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5006: RAISE OKL_API.G_EXCEPTION_ERROR;
5007: END IF;
5008: RAISE OKL_API.G_EXCEPTION_ERROR;
5009: END IF;
5010: -- Now we are creating the new line record
5011: l_itiv_rec := p_itiv_rec;
5012: l_itiv_rec.tas_id := x_trxv_rec.id;
5009: END IF;
5010: -- Now we are creating the new line record
5011: l_itiv_rec := p_itiv_rec;
5012: l_itiv_rec.tas_id := x_trxv_rec.id;
5013: IF (l_itiv_rec.tal_type = OKL_API.G_MISS_CHAR OR
5014: l_itiv_rec.tal_type IS NUll) THEN
5015: l_itiv_rec.tal_type := 'CFA';
5016: END IF;
5017: -- evaluate conditions, build outcomes for true conditions and
5023: x_msg_count => x_msg_count,
5024: x_msg_data => x_msg_data,
5025: p_iipv_rec => l_itiv_rec,
5026: x_iipv_rec => x_itiv_rec);
5027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5028: OKL_API.set_message(p_app_name => G_APP_NAME,
5029: p_msg_name => G_ITI_ID);
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5024: x_msg_data => x_msg_data,
5025: p_iipv_rec => l_itiv_rec,
5026: x_iipv_rec => x_itiv_rec);
5027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5028: OKL_API.set_message(p_app_name => G_APP_NAME,
5029: p_msg_name => G_ITI_ID);
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5026: x_iipv_rec => x_itiv_rec);
5027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5028: OKL_API.set_message(p_app_name => G_APP_NAME,
5029: p_msg_name => G_ITI_ID);
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5033: p_msg_name => G_ITI_ID);
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5027: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5028: OKL_API.set_message(p_app_name => G_APP_NAME,
5029: p_msg_name => G_ITI_ID);
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5033: p_msg_name => G_ITI_ID);
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5028: OKL_API.set_message(p_app_name => G_APP_NAME,
5029: p_msg_name => G_ITI_ID);
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5033: p_msg_name => G_ITI_ID);
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036: OKL_API.END_ACTIVITY (x_msg_count,
5030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5033: p_msg_name => G_ITI_ID);
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036: OKL_API.END_ACTIVITY (x_msg_count,
5037: x_msg_data );
5038: EXCEPTION
5032: OKL_API.set_message(p_app_name => G_APP_NAME,
5033: p_msg_name => G_ITI_ID);
5034: RAISE OKL_API.G_EXCEPTION_ERROR;
5035: END IF;
5036: OKL_API.END_ACTIVITY (x_msg_count,
5037: x_msg_data );
5038: EXCEPTION
5039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5035: END IF;
5036: OKL_API.END_ACTIVITY (x_msg_count,
5037: x_msg_data );
5038: EXCEPTION
5039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5041: l_api_name,
5042: G_PKG_NAME,
5043: 'OKL_API.G_RET_STS_ERROR',
5036: OKL_API.END_ACTIVITY (x_msg_count,
5037: x_msg_data );
5038: EXCEPTION
5039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5041: l_api_name,
5042: G_PKG_NAME,
5043: 'OKL_API.G_RET_STS_ERROR',
5044: x_msg_count,
5039: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5040: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5041: l_api_name,
5042: G_PKG_NAME,
5043: 'OKL_API.G_RET_STS_ERROR',
5044: x_msg_count,
5045: x_msg_data,
5046: '_PVT');
5047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5043: 'OKL_API.G_RET_STS_ERROR',
5044: x_msg_count,
5045: x_msg_data,
5046: '_PVT');
5047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5049: l_api_name,
5050: G_PKG_NAME,
5051: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5044: x_msg_count,
5045: x_msg_data,
5046: '_PVT');
5047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5049: l_api_name,
5050: G_PKG_NAME,
5051: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5052: x_msg_count,
5047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5048: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5049: l_api_name,
5050: G_PKG_NAME,
5051: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5052: x_msg_count,
5053: x_msg_data,
5054: '_PVT');
5055: WHEN OTHERS THEN
5052: x_msg_count,
5053: x_msg_data,
5054: '_PVT');
5055: WHEN OTHERS THEN
5056: OKL_API.set_message(p_app_name => G_APP_NAME,
5057: p_msg_name => G_ITI_ID);
5058: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5059: l_api_name,
5060: G_PKG_NAME,
5054: '_PVT');
5055: WHEN OTHERS THEN
5056: OKL_API.set_message(p_app_name => G_APP_NAME,
5057: p_msg_name => G_ITI_ID);
5058: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5059: l_api_name,
5060: G_PKG_NAME,
5061: 'OTHERS',
5062: x_msg_count,
5066: --------------------------------------------------------------------------------------------------------------
5067: -- Local Procedures for update of Txl Item Instance record
5068: PROCEDURE update_txl_itm_insts(
5069: p_api_version IN NUMBER,
5070: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5071: x_return_status OUT NOCOPY VARCHAR2,
5072: x_msg_count OUT NOCOPY NUMBER,
5073: x_msg_data OUT NOCOPY VARCHAR2,
5074: p_itiv_rec IN itiv_rec_type,
5075: x_itiv_rec OUT NOCOPY itiv_rec_type) IS
5076:
5077: l_api_name CONSTANT VARCHAR2(30) := 'UPD_TXL_ITM_INSTS';
5078: BEGIN
5079: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5080: -- Call start_activity to create savepoint, check compatibility
5081: -- and initialize message list
5082: x_return_status := OKL_API.START_ACTIVITY (
5083: l_api_name
5078: BEGIN
5079: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5080: -- Call start_activity to create savepoint, check compatibility
5081: -- and initialize message list
5082: x_return_status := OKL_API.START_ACTIVITY (
5083: l_api_name
5084: ,p_init_msg_list
5085: ,'_PVT'
5086: ,x_return_status);
5084: ,p_init_msg_list
5085: ,'_PVT'
5086: ,x_return_status);
5087: -- Check if activity started successfully
5088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_ERROR;
5092: END IF;
5085: ,'_PVT'
5086: ,x_return_status);
5087: -- Check if activity started successfully
5088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_ERROR;
5092: END IF;
5093: -- evaluate conditions, build outcomes for true conditions and
5086: ,x_return_status);
5087: -- Check if activity started successfully
5088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_ERROR;
5092: END IF;
5093: -- evaluate conditions, build outcomes for true conditions and
5094: -- put them on outcome queue
5087: -- Check if activity started successfully
5088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_ERROR;
5092: END IF;
5093: -- evaluate conditions, build outcomes for true conditions and
5094: -- put them on outcome queue
5095: OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
5098: x_msg_count => x_msg_count,
5099: x_msg_data => x_msg_data,
5100: p_iipv_rec => p_itiv_rec,
5101: x_iipv_rec => x_itiv_rec);
5102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106: END IF;
5099: x_msg_data => x_msg_data,
5100: p_iipv_rec => p_itiv_rec,
5101: x_iipv_rec => x_itiv_rec);
5102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106: END IF;
5107: OKL_API.END_ACTIVITY (x_msg_count,
5100: p_iipv_rec => p_itiv_rec,
5101: x_iipv_rec => x_itiv_rec);
5102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106: END IF;
5107: OKL_API.END_ACTIVITY (x_msg_count,
5108: x_msg_data );
5101: x_iipv_rec => x_itiv_rec);
5102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106: END IF;
5107: OKL_API.END_ACTIVITY (x_msg_count,
5108: x_msg_data );
5109: EXCEPTION
5103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5105: RAISE OKL_API.G_EXCEPTION_ERROR;
5106: END IF;
5107: OKL_API.END_ACTIVITY (x_msg_count,
5108: x_msg_data );
5109: EXCEPTION
5110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5111: OKL_API.set_message(p_app_name => G_APP_NAME,
5106: END IF;
5107: OKL_API.END_ACTIVITY (x_msg_count,
5108: x_msg_data );
5109: EXCEPTION
5110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5111: OKL_API.set_message(p_app_name => G_APP_NAME,
5112: p_msg_name => G_ITI_ID);
5113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5114: l_api_name,
5107: OKL_API.END_ACTIVITY (x_msg_count,
5108: x_msg_data );
5109: EXCEPTION
5110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5111: OKL_API.set_message(p_app_name => G_APP_NAME,
5112: p_msg_name => G_ITI_ID);
5113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5114: l_api_name,
5115: G_PKG_NAME,
5109: EXCEPTION
5110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5111: OKL_API.set_message(p_app_name => G_APP_NAME,
5112: p_msg_name => G_ITI_ID);
5113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5114: l_api_name,
5115: G_PKG_NAME,
5116: 'OKL_API.G_RET_STS_ERROR',
5117: x_msg_count,
5112: p_msg_name => G_ITI_ID);
5113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5114: l_api_name,
5115: G_PKG_NAME,
5116: 'OKL_API.G_RET_STS_ERROR',
5117: x_msg_count,
5118: x_msg_data,
5119: '_PVT');
5120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5116: 'OKL_API.G_RET_STS_ERROR',
5117: x_msg_count,
5118: x_msg_data,
5119: '_PVT');
5120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5121: OKL_API.set_message(p_app_name => G_APP_NAME,
5122: p_msg_name => G_ITI_ID);
5123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5124: l_api_name,
5117: x_msg_count,
5118: x_msg_data,
5119: '_PVT');
5120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5121: OKL_API.set_message(p_app_name => G_APP_NAME,
5122: p_msg_name => G_ITI_ID);
5123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5124: l_api_name,
5125: G_PKG_NAME,
5119: '_PVT');
5120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5121: OKL_API.set_message(p_app_name => G_APP_NAME,
5122: p_msg_name => G_ITI_ID);
5123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5124: l_api_name,
5125: G_PKG_NAME,
5126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5127: x_msg_count,
5122: p_msg_name => G_ITI_ID);
5123: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5124: l_api_name,
5125: G_PKG_NAME,
5126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5127: x_msg_count,
5128: x_msg_data,
5129: '_PVT');
5130: WHEN OTHERS THEN
5127: x_msg_count,
5128: x_msg_data,
5129: '_PVT');
5130: WHEN OTHERS THEN
5131: OKL_API.set_message(p_app_name => G_APP_NAME,
5132: p_msg_name => G_ITI_ID);
5133: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5134: l_api_name,
5135: G_PKG_NAME,
5129: '_PVT');
5130: WHEN OTHERS THEN
5131: OKL_API.set_message(p_app_name => G_APP_NAME,
5132: p_msg_name => G_ITI_ID);
5133: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5134: l_api_name,
5135: G_PKG_NAME,
5136: 'OTHERS',
5137: x_msg_count,
5140: END update_txl_itm_insts;
5141: ---------------------------------------------------------------------------------------------
5142: PROCEDURE Create_financial_asset_line(
5143: p_api_version IN NUMBER,
5144: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5145: x_return_status OUT NOCOPY VARCHAR2,
5146: x_msg_count OUT NOCOPY NUMBER,
5147: x_msg_data OUT NOCOPY VARCHAR2,
5148: p_clev_rec IN clev_rec_type,
5151: x_klev_rec OUT NOCOPY klev_rec_type) IS
5152: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FIN_AST_LINES';
5153: l_clev_rec clev_rec_type;
5154: BEGIN
5155: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5156: -- Call start_activity to create savepoint, check compatibility
5157: -- and initialize message list
5158: x_return_status := OKL_API.START_ACTIVITY (
5159: l_api_name
5154: BEGIN
5155: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5156: -- Call start_activity to create savepoint, check compatibility
5157: -- and initialize message list
5158: x_return_status := OKL_API.START_ACTIVITY (
5159: l_api_name
5160: ,p_init_msg_list
5161: ,'_PVT'
5162: ,x_return_status);
5160: ,p_init_msg_list
5161: ,'_PVT'
5162: ,x_return_status);
5163: -- Check if activity started successfully
5164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5167: RAISE OKL_API.G_EXCEPTION_ERROR;
5168: END IF;
5161: ,'_PVT'
5162: ,x_return_status);
5163: -- Check if activity started successfully
5164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5167: RAISE OKL_API.G_EXCEPTION_ERROR;
5168: END IF;
5169: l_clev_rec := p_clev_rec;
5162: ,x_return_status);
5163: -- Check if activity started successfully
5164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5167: RAISE OKL_API.G_EXCEPTION_ERROR;
5168: END IF;
5169: l_clev_rec := p_clev_rec;
5170: -- # 4334903 use new function default_contract_line_values
5163: -- Check if activity started successfully
5164: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5167: RAISE OKL_API.G_EXCEPTION_ERROR;
5168: END IF;
5169: l_clev_rec := p_clev_rec;
5170: -- # 4334903 use new function default_contract_line_values
5171: /*
5169: l_clev_rec := p_clev_rec;
5170: -- # 4334903 use new function default_contract_line_values
5171: /*
5172: IF (p_clev_rec.sts_code IS NULL OR
5173: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5174: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5175: p_cle_id => null,
5176: x_sts_code => l_clev_rec.sts_code);
5177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5173: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5174: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5175: p_cle_id => null,
5176: x_sts_code => l_clev_rec.sts_code);
5177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_ERROR;
5181: END IF;
5174: x_return_status := get_sts_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5175: p_cle_id => null,
5176: x_sts_code => l_clev_rec.sts_code);
5177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_ERROR;
5181: END IF;
5182: END IF;
5175: p_cle_id => null,
5176: x_sts_code => l_clev_rec.sts_code);
5177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_ERROR;
5181: END IF;
5182: END IF;
5183: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5176: x_sts_code => l_clev_rec.sts_code);
5177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180: RAISE OKL_API.G_EXCEPTION_ERROR;
5181: END IF;
5182: END IF;
5183: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5184: 'SIGNED',
5189: 'APPROVED',
5190: 'COMPLETE',
5191: 'INCOMPLETE',
5192: 'PASSED') THEN
5193: OKL_API.set_message(p_app_name => G_APP_NAME,
5194: p_msg_name => G_STATUS,
5195: p_token1 => 'STATUS',
5196: p_token1_value => l_clev_rec.sts_code);
5197: RAISE OKL_API.G_EXCEPTION_ERROR;
5193: OKL_API.set_message(p_app_name => G_APP_NAME,
5194: p_msg_name => G_STATUS,
5195: p_token1 => 'STATUS',
5196: p_token1_value => l_clev_rec.sts_code);
5197: RAISE OKL_API.G_EXCEPTION_ERROR;
5198: END IF;
5199: IF (p_clev_rec.end_date IS NULL OR
5200: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5201: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5196: p_token1_value => l_clev_rec.sts_code);
5197: RAISE OKL_API.G_EXCEPTION_ERROR;
5198: END IF;
5199: IF (p_clev_rec.end_date IS NULL OR
5200: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5201: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: x_end_date => l_clev_rec.end_date);
5204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5200: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5201: x_return_status := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: x_end_date => l_clev_rec.end_date);
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 := get_end_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5202: p_cle_id => null,
5203: x_end_date => l_clev_rec.end_date);
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: x_end_date => l_clev_rec.end_date);
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 (p_clev_rec.start_date IS NULL OR
5203: x_end_date => l_clev_rec.end_date);
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 (p_clev_rec.start_date IS NULL OR
5211: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5207: RAISE OKL_API.G_EXCEPTION_ERROR;
5208: END IF;
5209: END IF;
5210: IF (p_clev_rec.start_date IS NULL OR
5211: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5212: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5213: p_cle_id => null,
5214: x_start_date => l_clev_rec.start_date);
5215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5211: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5212: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5213: p_cle_id => null,
5214: x_start_date => l_clev_rec.start_date);
5215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5218: RAISE OKL_API.G_EXCEPTION_ERROR;
5219: END IF;
5212: x_return_status := get_start_date(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5213: p_cle_id => null,
5214: x_start_date => l_clev_rec.start_date);
5215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5218: RAISE OKL_API.G_EXCEPTION_ERROR;
5219: END IF;
5220: END IF;
5213: p_cle_id => null,
5214: x_start_date => l_clev_rec.start_date);
5215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5218: RAISE OKL_API.G_EXCEPTION_ERROR;
5219: END IF;
5220: END IF;
5221: IF (p_clev_rec.currency_code IS NULL OR
5214: x_start_date => l_clev_rec.start_date);
5215: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5217: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5218: RAISE OKL_API.G_EXCEPTION_ERROR;
5219: END IF;
5220: END IF;
5221: IF (p_clev_rec.currency_code IS NULL OR
5222: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5218: RAISE OKL_API.G_EXCEPTION_ERROR;
5219: END IF;
5220: END IF;
5221: IF (p_clev_rec.currency_code IS NULL OR
5222: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5223: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5224: p_cle_id => null,
5225: x_currency_code => l_clev_rec.currency_code);
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5222: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5223: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5224: p_cle_id => null,
5225: x_currency_code => l_clev_rec.currency_code);
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5223: x_return_status := get_currency_code(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5224: p_cle_id => null,
5225: x_currency_code => l_clev_rec.currency_code);
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231: END IF;
5224: p_cle_id => null,
5225: x_currency_code => l_clev_rec.currency_code);
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231: END IF;
5232: */
5225: x_currency_code => l_clev_rec.currency_code);
5226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_ERROR;
5230: END IF;
5231: END IF;
5232: */
5233: IF ((p_clev_rec.sts_code IS NULL OR
5230: END IF;
5231: END IF;
5232: */
5233: IF ((p_clev_rec.sts_code IS NULL OR
5234: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5235: (p_clev_rec.end_date IS NULL OR
5236: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5237: (p_clev_rec.start_date IS NULL OR
5238: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5232: */
5233: IF ((p_clev_rec.sts_code IS NULL OR
5234: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5235: (p_clev_rec.end_date IS NULL OR
5236: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5237: (p_clev_rec.start_date IS NULL OR
5238: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5239: (p_clev_rec.currency_code IS NULL OR
5240: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5234: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5235: (p_clev_rec.end_date IS NULL OR
5236: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5237: (p_clev_rec.start_date IS NULL OR
5238: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5239: (p_clev_rec.currency_code IS NULL OR
5240: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5241: ) THEN
5242: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5236: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5237: (p_clev_rec.start_date IS NULL OR
5238: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5239: (p_clev_rec.currency_code IS NULL OR
5240: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5241: ) THEN
5242: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5243: p_cle_id => null,
5244: p_clev_rec => l_clev_rec);
5241: ) THEN
5242: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5243: p_cle_id => null,
5244: p_clev_rec => l_clev_rec);
5245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5248: RAISE OKL_API.G_EXCEPTION_ERROR;
5249: END IF;
5242: x_return_status := default_contract_line_values(p_dnz_chr_id => p_clev_rec.dnz_chr_id,
5243: p_cle_id => null,
5244: p_clev_rec => l_clev_rec);
5245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5248: RAISE OKL_API.G_EXCEPTION_ERROR;
5249: END IF;
5250: END IF;
5243: p_cle_id => null,
5244: p_clev_rec => l_clev_rec);
5245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5248: RAISE OKL_API.G_EXCEPTION_ERROR;
5249: END IF;
5250: END IF;
5251: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5244: p_clev_rec => l_clev_rec);
5245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5248: RAISE OKL_API.G_EXCEPTION_ERROR;
5249: END IF;
5250: END IF;
5251: IF l_clev_rec.sts_code NOT IN ('ENTERED',
5252: 'SIGNED',
5257: 'APPROVED',
5258: 'COMPLETE',
5259: 'INCOMPLETE',
5260: 'PASSED') THEN
5261: OKL_API.set_message(p_app_name => G_APP_NAME,
5262: p_msg_name => G_STATUS,
5263: p_token1 => 'STATUS',
5264: p_token1_value => l_clev_rec.sts_code);
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5261: OKL_API.set_message(p_app_name => G_APP_NAME,
5262: p_msg_name => G_STATUS,
5263: p_token1 => 'STATUS',
5264: p_token1_value => l_clev_rec.sts_code);
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5267:
5268: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
5269: p_init_msg_list => p_init_msg_list,
5273: p_clev_rec => l_clev_rec,
5274: p_klev_rec => p_klev_rec,
5275: x_clev_rec => x_clev_rec,
5276: x_klev_rec => x_klev_rec);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: OKL_API.set_message(p_app_name => G_APP_NAME,
5279: p_msg_name => G_CREATION_FIN_LINE);
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5274: p_klev_rec => p_klev_rec,
5275: x_clev_rec => x_clev_rec,
5276: x_klev_rec => x_klev_rec);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: OKL_API.set_message(p_app_name => G_APP_NAME,
5279: p_msg_name => G_CREATION_FIN_LINE);
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5276: x_klev_rec => x_klev_rec);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: OKL_API.set_message(p_app_name => G_APP_NAME,
5279: p_msg_name => G_CREATION_FIN_LINE);
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5283: p_msg_name => G_CREATION_FIN_LINE);
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: OKL_API.set_message(p_app_name => G_APP_NAME,
5279: p_msg_name => G_CREATION_FIN_LINE);
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5283: p_msg_name => G_CREATION_FIN_LINE);
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5278: OKL_API.set_message(p_app_name => G_APP_NAME,
5279: p_msg_name => G_CREATION_FIN_LINE);
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5283: p_msg_name => G_CREATION_FIN_LINE);
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: OKL_API.END_ACTIVITY (x_msg_count,
5280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5283: p_msg_name => G_CREATION_FIN_LINE);
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: OKL_API.END_ACTIVITY (x_msg_count,
5287: x_msg_data );
5288: EXCEPTION
5282: OKL_API.set_message(p_app_name => G_APP_NAME,
5283: p_msg_name => G_CREATION_FIN_LINE);
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286: OKL_API.END_ACTIVITY (x_msg_count,
5287: x_msg_data );
5288: EXCEPTION
5289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5285: END IF;
5286: OKL_API.END_ACTIVITY (x_msg_count,
5287: x_msg_data );
5288: EXCEPTION
5289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5291: l_api_name,
5292: G_PKG_NAME,
5293: 'OKL_API.G_RET_STS_ERROR',
5286: OKL_API.END_ACTIVITY (x_msg_count,
5287: x_msg_data );
5288: EXCEPTION
5289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5291: l_api_name,
5292: G_PKG_NAME,
5293: 'OKL_API.G_RET_STS_ERROR',
5294: x_msg_count,
5289: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5291: l_api_name,
5292: G_PKG_NAME,
5293: 'OKL_API.G_RET_STS_ERROR',
5294: x_msg_count,
5295: x_msg_data,
5296: '_PVT');
5297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5293: 'OKL_API.G_RET_STS_ERROR',
5294: x_msg_count,
5295: x_msg_data,
5296: '_PVT');
5297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5299: l_api_name,
5300: G_PKG_NAME,
5301: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5294: x_msg_count,
5295: x_msg_data,
5296: '_PVT');
5297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5299: l_api_name,
5300: G_PKG_NAME,
5301: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5302: x_msg_count,
5297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5299: l_api_name,
5300: G_PKG_NAME,
5301: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5302: x_msg_count,
5303: x_msg_data,
5304: '_PVT');
5305: WHEN OTHERS THEN
5302: x_msg_count,
5303: x_msg_data,
5304: '_PVT');
5305: WHEN OTHERS THEN
5306: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5307: l_api_name,
5308: G_PKG_NAME,
5309: 'OTHERS',
5310: x_msg_count,
5313: END Create_financial_asset_line;
5314: ---------------------------------------------------------------------------------------------
5315: PROCEDURE update_financial_asset_line(
5316: p_api_version IN NUMBER,
5317: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5318: x_return_status OUT NOCOPY VARCHAR2,
5319: x_msg_count OUT NOCOPY NUMBER,
5320: x_msg_data OUT NOCOPY VARCHAR2,
5321: p_clev_rec IN clev_rec_type,
5322: p_klev_rec IN klev_rec_type,
5323: x_clev_rec OUT NOCOPY clev_rec_type,
5324: x_klev_rec OUT NOCOPY klev_rec_type) IS
5325: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
5326: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5327: BEGIN
5328: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5329: -- Call start_activity to create savepoint, check compatibility
5330: -- and initialize message list
5324: x_klev_rec OUT NOCOPY klev_rec_type) IS
5325: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
5326: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5327: BEGIN
5328: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5329: -- Call start_activity to create savepoint, check compatibility
5330: -- and initialize message list
5331: x_return_status := OKL_API.START_ACTIVITY (
5332: l_api_name
5327: BEGIN
5328: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5329: -- Call start_activity to create savepoint, check compatibility
5330: -- and initialize message list
5331: x_return_status := OKL_API.START_ACTIVITY (
5332: l_api_name
5333: ,p_init_msg_list
5334: ,'_PVT'
5335: ,x_return_status);
5333: ,p_init_msg_list
5334: ,'_PVT'
5335: ,x_return_status);
5336: -- Check if activity started successfully
5337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5334: ,'_PVT'
5335: ,x_return_status);
5336: -- Check if activity started successfully
5337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: -- Calling the Process
5335: ,x_return_status);
5336: -- Check if activity started successfully
5337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: -- Calling the Process
5343: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5336: -- Check if activity started successfully
5337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5340: RAISE OKL_API.G_EXCEPTION_ERROR;
5341: END IF;
5342: -- Calling the Process
5343: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5344: p_init_msg_list => p_init_msg_list,
5348: p_clev_rec => p_clev_rec,
5349: p_klev_rec => p_klev_rec,
5350: x_clev_rec => x_clev_rec,
5351: x_klev_rec => x_klev_rec);
5352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5353: OKL_API.set_message(p_app_name => G_APP_NAME,
5354: p_msg_name => G_UPDATING_FIN_LINE);
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5349: p_klev_rec => p_klev_rec,
5350: x_clev_rec => x_clev_rec,
5351: x_klev_rec => x_klev_rec);
5352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5353: OKL_API.set_message(p_app_name => G_APP_NAME,
5354: p_msg_name => G_UPDATING_FIN_LINE);
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5351: x_klev_rec => x_klev_rec);
5352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5353: OKL_API.set_message(p_app_name => G_APP_NAME,
5354: p_msg_name => G_UPDATING_FIN_LINE);
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5358: p_msg_name => G_UPDATING_FIN_LINE);
5359: RAISE OKL_API.G_EXCEPTION_ERROR;
5352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5353: OKL_API.set_message(p_app_name => G_APP_NAME,
5354: p_msg_name => G_UPDATING_FIN_LINE);
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5358: p_msg_name => G_UPDATING_FIN_LINE);
5359: RAISE OKL_API.G_EXCEPTION_ERROR;
5360: END IF;
5353: OKL_API.set_message(p_app_name => G_APP_NAME,
5354: p_msg_name => G_UPDATING_FIN_LINE);
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5358: p_msg_name => G_UPDATING_FIN_LINE);
5359: RAISE OKL_API.G_EXCEPTION_ERROR;
5360: END IF;
5361: OKL_API.END_ACTIVITY (x_msg_count,
5355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5358: p_msg_name => G_UPDATING_FIN_LINE);
5359: RAISE OKL_API.G_EXCEPTION_ERROR;
5360: END IF;
5361: OKL_API.END_ACTIVITY (x_msg_count,
5362: x_msg_data );
5363: EXCEPTION
5357: OKL_API.set_message(p_app_name => G_APP_NAME,
5358: p_msg_name => G_UPDATING_FIN_LINE);
5359: RAISE OKL_API.G_EXCEPTION_ERROR;
5360: END IF;
5361: OKL_API.END_ACTIVITY (x_msg_count,
5362: x_msg_data );
5363: EXCEPTION
5364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5360: END IF;
5361: OKL_API.END_ACTIVITY (x_msg_count,
5362: x_msg_data );
5363: EXCEPTION
5364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5366: l_api_name,
5367: G_PKG_NAME,
5368: 'OKL_API.G_RET_STS_ERROR',
5361: OKL_API.END_ACTIVITY (x_msg_count,
5362: x_msg_data );
5363: EXCEPTION
5364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5366: l_api_name,
5367: G_PKG_NAME,
5368: 'OKL_API.G_RET_STS_ERROR',
5369: x_msg_count,
5364: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5366: l_api_name,
5367: G_PKG_NAME,
5368: 'OKL_API.G_RET_STS_ERROR',
5369: x_msg_count,
5370: x_msg_data,
5371: '_PVT');
5372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5368: 'OKL_API.G_RET_STS_ERROR',
5369: x_msg_count,
5370: x_msg_data,
5371: '_PVT');
5372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5373: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5374: l_api_name,
5375: G_PKG_NAME,
5376: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5369: x_msg_count,
5370: x_msg_data,
5371: '_PVT');
5372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5373: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5374: l_api_name,
5375: G_PKG_NAME,
5376: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5377: x_msg_count,
5372: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5373: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5374: l_api_name,
5375: G_PKG_NAME,
5376: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5377: x_msg_count,
5378: x_msg_data,
5379: '_PVT');
5380: WHEN OTHERS THEN
5377: x_msg_count,
5378: x_msg_data,
5379: '_PVT');
5380: WHEN OTHERS THEN
5381: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5382: l_api_name,
5383: G_PKG_NAME,
5384: 'OTHERS',
5385: x_msg_count,
5390: ---------------
5391: --Bug# 2994971
5392: ---------------
5393: PROCEDURE populate_insurance_category(p_api_version IN NUMBER,
5394: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5395: x_return_status OUT NOCOPY VARCHAR2,
5396: x_msg_count OUT NOCOPY NUMBER,
5397: x_msg_data OUT NOCOPY VARCHAR2,
5398: p_cle_id IN NUMBER,
5417:
5418:
5419: BEGIN
5420:
5421: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5422: -- Call start_activity to create savepoint, check compatibility
5423: -- and initialize message list
5424: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5425: ,p_init_msg_list
5420:
5421: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5422: -- Call start_activity to create savepoint, check compatibility
5423: -- and initialize message list
5424: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5425: ,p_init_msg_list
5426: ,'_PVT'
5427: ,x_return_status);
5428: -- Check if activity started successfully
5425: ,p_init_msg_list
5426: ,'_PVT'
5427: ,x_return_status);
5428: -- Check if activity started successfully
5429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5433: END IF;
5426: ,'_PVT'
5427: ,x_return_status);
5428: -- Check if activity started successfully
5429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5433: END IF;
5434:
5427: ,x_return_status);
5428: -- Check if activity started successfully
5429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5433: END IF;
5434:
5435: --fetch asset category
5428: -- Check if activity started successfully
5429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5433: END IF;
5434:
5435: --fetch asset category
5436: l_asset_category_id := NULL;
5458: x_clev_rec => lx_clev_rec,
5459: x_klev_rec => lx_klev_rec
5460: );
5461:
5462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5459: x_klev_rec => lx_klev_rec
5460: );
5461:
5462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467:
5460: );
5461:
5462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467:
5468: OKL_API.END_ACTIVITY (x_msg_count,
5461:
5462: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5463: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467:
5468: OKL_API.END_ACTIVITY (x_msg_count,
5469: x_msg_data );
5464: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5465: RAISE OKL_API.G_EXCEPTION_ERROR;
5466: END IF;
5467:
5468: OKL_API.END_ACTIVITY (x_msg_count,
5469: x_msg_data );
5470: EXCEPTION
5471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5472: if l_msi_csr%ISOPEN then
5467:
5468: OKL_API.END_ACTIVITY (x_msg_count,
5469: x_msg_data );
5470: EXCEPTION
5471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5472: if l_msi_csr%ISOPEN then
5473: close l_msi_csr;
5474: end if;
5475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5471: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5472: if l_msi_csr%ISOPEN then
5473: close l_msi_csr;
5474: end if;
5475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5476: l_api_name,
5477: G_PKG_NAME,
5478: 'OKL_API.G_RET_STS_ERROR',
5479: x_msg_count,
5474: end if;
5475: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5476: l_api_name,
5477: G_PKG_NAME,
5478: 'OKL_API.G_RET_STS_ERROR',
5479: x_msg_count,
5480: x_msg_data,
5481: '_PVT');
5482: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5478: 'OKL_API.G_RET_STS_ERROR',
5479: x_msg_count,
5480: x_msg_data,
5481: '_PVT');
5482: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5483: if l_msi_csr%ISOPEN then
5484: close l_msi_csr;
5485: end if;
5486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5482: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5483: if l_msi_csr%ISOPEN then
5484: close l_msi_csr;
5485: end if;
5486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5487: l_api_name,
5488: G_PKG_NAME,
5489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5490: x_msg_count,
5485: end if;
5486: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5487: l_api_name,
5488: G_PKG_NAME,
5489: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5490: x_msg_count,
5491: x_msg_data,
5492: '_PVT');
5493: WHEN OTHERS THEN
5493: WHEN OTHERS THEN
5494: if l_msi_csr%ISOPEN then
5495: close l_msi_csr;
5496: end if;
5497: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5498: l_api_name,
5499: G_PKG_NAME,
5500: 'OTHERS',
5501: x_msg_count,
5507: ------------------
5508:
5509: ---22------------------------------------------------------------------------------------------
5510: PROCEDURE Create_model_line_item(p_api_version IN NUMBER,
5511: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5512: x_return_status OUT NOCOPY VARCHAR2,
5513: x_msg_count OUT NOCOPY NUMBER,
5514: x_msg_data OUT NOCOPY VARCHAR2,
5515: -- 4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5533: l_inv_org_id number;
5534: l_asset_cle_id number;
5535:
5536: BEGIN
5537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5538: -- Call start_activity to create savepoint, check compatibility
5539: -- and initialize message list
5540: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5541: ,p_init_msg_list
5536: BEGIN
5537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5538: -- Call start_activity to create savepoint, check compatibility
5539: -- and initialize message list
5540: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5541: ,p_init_msg_list
5542: ,'_PVT'
5543: ,x_return_status);
5544: -- Check if activity started successfully
5541: ,p_init_msg_list
5542: ,'_PVT'
5543: ,x_return_status);
5544: -- Check if activity started successfully
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5542: ,'_PVT'
5543: ,x_return_status);
5544: -- Check if activity started successfully
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550: -- 4414408 redundant validation
5543: ,x_return_status);
5544: -- Check if activity started successfully
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550: -- 4414408 redundant validation
5551: /*
5544: -- Check if activity started successfully
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550: -- 4414408 redundant validation
5551: /*
5552: -- Check the cle_id that is of the top Fin Asset line
5553: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5554: p_lty_code => p_lty_code,
5555: x_lty_code => l_lty_code,
5556: x_return_status => x_return_status);
5557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5554: p_lty_code => p_lty_code,
5555: x_lty_code => l_lty_code,
5556: x_return_status => x_return_status);
5557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562: */
5555: x_lty_code => l_lty_code,
5556: x_return_status => x_return_status);
5557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562: */
5563: -- 4414408
5556: x_return_status => x_return_status);
5557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5559: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5560: RAISE OKL_API.G_EXCEPTION_ERROR;
5561: END IF;
5562: */
5563: -- 4414408
5564: -- IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5566:
5567: -- # 4334903 use new function default_contract_line_values
5568: /*
5569: IF (p_clev_rec.sts_code IS NULL OR
5570: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5571: x_return_status := get_sts_code(p_dnz_chr_id => null,
5572: p_cle_id => p_clev_rec.cle_id,
5573: x_sts_code => r_clev_rec.sts_code);
5574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5570: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5571: x_return_status := get_sts_code(p_dnz_chr_id => null,
5572: p_cle_id => p_clev_rec.cle_id,
5573: x_sts_code => r_clev_rec.sts_code);
5574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5577: RAISE OKL_API.G_EXCEPTION_ERROR;
5578: END IF;
5571: x_return_status := get_sts_code(p_dnz_chr_id => null,
5572: p_cle_id => p_clev_rec.cle_id,
5573: x_sts_code => r_clev_rec.sts_code);
5574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5577: RAISE OKL_API.G_EXCEPTION_ERROR;
5578: END IF;
5579: END IF;
5572: p_cle_id => p_clev_rec.cle_id,
5573: x_sts_code => r_clev_rec.sts_code);
5574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5577: RAISE OKL_API.G_EXCEPTION_ERROR;
5578: END IF;
5579: END IF;
5580: IF (p_clev_rec.end_date IS NULL OR
5573: x_sts_code => r_clev_rec.sts_code);
5574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5577: RAISE OKL_API.G_EXCEPTION_ERROR;
5578: END IF;
5579: END IF;
5580: IF (p_clev_rec.end_date IS NULL OR
5581: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5577: RAISE OKL_API.G_EXCEPTION_ERROR;
5578: END IF;
5579: END IF;
5580: IF (p_clev_rec.end_date IS NULL OR
5581: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5582: x_return_status := get_end_date(p_dnz_chr_id => null,
5583: p_cle_id => p_clev_rec.cle_id,
5584: x_end_date => r_clev_rec.end_date);
5585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5581: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5582: x_return_status := get_end_date(p_dnz_chr_id => null,
5583: p_cle_id => p_clev_rec.cle_id,
5584: x_end_date => r_clev_rec.end_date);
5585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5588: RAISE OKL_API.G_EXCEPTION_ERROR;
5589: END IF;
5582: x_return_status := get_end_date(p_dnz_chr_id => null,
5583: p_cle_id => p_clev_rec.cle_id,
5584: x_end_date => r_clev_rec.end_date);
5585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5588: RAISE OKL_API.G_EXCEPTION_ERROR;
5589: END IF;
5590: END IF;
5583: p_cle_id => p_clev_rec.cle_id,
5584: x_end_date => r_clev_rec.end_date);
5585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5588: RAISE OKL_API.G_EXCEPTION_ERROR;
5589: END IF;
5590: END IF;
5591: IF (p_clev_rec.start_date IS NULL OR
5584: x_end_date => r_clev_rec.end_date);
5585: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5588: RAISE OKL_API.G_EXCEPTION_ERROR;
5589: END IF;
5590: END IF;
5591: IF (p_clev_rec.start_date IS NULL OR
5592: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5588: RAISE OKL_API.G_EXCEPTION_ERROR;
5589: END IF;
5590: END IF;
5591: IF (p_clev_rec.start_date IS NULL OR
5592: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5593: x_return_status := get_start_date(p_dnz_chr_id => null,
5594: p_cle_id => p_clev_rec.cle_id,
5595: x_start_date => r_clev_rec.start_date);
5596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5592: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
5593: x_return_status := get_start_date(p_dnz_chr_id => null,
5594: p_cle_id => p_clev_rec.cle_id,
5595: x_start_date => r_clev_rec.start_date);
5596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5599: RAISE OKL_API.G_EXCEPTION_ERROR;
5600: END IF;
5593: x_return_status := get_start_date(p_dnz_chr_id => null,
5594: p_cle_id => p_clev_rec.cle_id,
5595: x_start_date => r_clev_rec.start_date);
5596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5599: RAISE OKL_API.G_EXCEPTION_ERROR;
5600: END IF;
5601: END IF;
5594: p_cle_id => p_clev_rec.cle_id,
5595: x_start_date => r_clev_rec.start_date);
5596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5599: RAISE OKL_API.G_EXCEPTION_ERROR;
5600: END IF;
5601: END IF;
5602: IF (p_clev_rec.currency_code IS NULL OR
5595: x_start_date => r_clev_rec.start_date);
5596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5599: RAISE OKL_API.G_EXCEPTION_ERROR;
5600: END IF;
5601: END IF;
5602: IF (p_clev_rec.currency_code IS NULL OR
5603: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5599: RAISE OKL_API.G_EXCEPTION_ERROR;
5600: END IF;
5601: END IF;
5602: IF (p_clev_rec.currency_code IS NULL OR
5603: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5604: x_return_status := get_currency_code(p_dnz_chr_id => null,
5605: p_cle_id => p_clev_rec.cle_id,
5606: x_currency_code => r_clev_rec.currency_code);
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5603: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
5604: x_return_status := get_currency_code(p_dnz_chr_id => null,
5605: p_cle_id => p_clev_rec.cle_id,
5606: x_currency_code => r_clev_rec.currency_code);
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5604: x_return_status := get_currency_code(p_dnz_chr_id => null,
5605: p_cle_id => p_clev_rec.cle_id,
5606: x_currency_code => r_clev_rec.currency_code);
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: END IF;
5605: p_cle_id => p_clev_rec.cle_id,
5606: x_currency_code => r_clev_rec.currency_code);
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: END IF;
5613: */
5606: x_currency_code => r_clev_rec.currency_code);
5607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5610: RAISE OKL_API.G_EXCEPTION_ERROR;
5611: END IF;
5612: END IF;
5613: */
5614:
5612: END IF;
5613: */
5614:
5615: IF ((p_clev_rec.sts_code IS NULL OR
5616: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5617: (p_clev_rec.end_date IS NULL OR
5618: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5619: (p_clev_rec.start_date IS NULL OR
5620: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5614:
5615: IF ((p_clev_rec.sts_code IS NULL OR
5616: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5617: (p_clev_rec.end_date IS NULL OR
5618: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5619: (p_clev_rec.start_date IS NULL OR
5620: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5621: (p_clev_rec.currency_code IS NULL OR
5622: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5616: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
5617: (p_clev_rec.end_date IS NULL OR
5618: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5619: (p_clev_rec.start_date IS NULL OR
5620: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5621: (p_clev_rec.currency_code IS NULL OR
5622: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5623: ) THEN
5624: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5618: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
5619: (p_clev_rec.start_date IS NULL OR
5620: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
5621: (p_clev_rec.currency_code IS NULL OR
5622: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
5623: ) THEN
5624: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5625: p_cle_id => r_clev_rec.cle_id,
5626: p_clev_rec => r_clev_rec);
5623: ) THEN
5624: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5625: p_cle_id => r_clev_rec.cle_id,
5626: p_clev_rec => r_clev_rec);
5627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_ERROR;
5631: END IF;
5624: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
5625: p_cle_id => r_clev_rec.cle_id,
5626: p_clev_rec => r_clev_rec);
5627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_ERROR;
5631: END IF;
5632: END IF;
5625: p_cle_id => r_clev_rec.cle_id,
5626: p_clev_rec => r_clev_rec);
5627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_ERROR;
5631: END IF;
5632: END IF;
5633:
5626: p_clev_rec => r_clev_rec);
5627: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5628: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5629: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_ERROR;
5631: END IF;
5632: END IF;
5633:
5634: -- Now the all the records are there we can create Model Line
5640: p_clev_rec => r_clev_rec,
5641: p_klev_rec => p_klev_rec,
5642: x_clev_rec => x_clev_rec,
5643: x_klev_rec => x_klev_rec);
5644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5645: OKL_API.set_message(p_app_name => G_APP_NAME,
5646: p_msg_name => G_CREATION_MODEL_LINE);
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5641: p_klev_rec => p_klev_rec,
5642: x_clev_rec => x_clev_rec,
5643: x_klev_rec => x_klev_rec);
5644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5645: OKL_API.set_message(p_app_name => G_APP_NAME,
5646: p_msg_name => G_CREATION_MODEL_LINE);
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: OKL_API.set_message(p_app_name => G_APP_NAME,
5643: x_klev_rec => x_klev_rec);
5644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5645: OKL_API.set_message(p_app_name => G_APP_NAME,
5646: p_msg_name => G_CREATION_MODEL_LINE);
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: OKL_API.set_message(p_app_name => G_APP_NAME,
5650: p_msg_name => G_CREATION_MODEL_LINE);
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5645: OKL_API.set_message(p_app_name => G_APP_NAME,
5646: p_msg_name => G_CREATION_MODEL_LINE);
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: OKL_API.set_message(p_app_name => G_APP_NAME,
5650: p_msg_name => G_CREATION_MODEL_LINE);
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5645: OKL_API.set_message(p_app_name => G_APP_NAME,
5646: p_msg_name => G_CREATION_MODEL_LINE);
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: OKL_API.set_message(p_app_name => G_APP_NAME,
5650: p_msg_name => G_CREATION_MODEL_LINE);
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5653: l_cimv_rec := p_cimv_rec;
5647: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5648: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5649: OKL_API.set_message(p_app_name => G_APP_NAME,
5650: p_msg_name => G_CREATION_MODEL_LINE);
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5653: l_cimv_rec := p_cimv_rec;
5654: l_cimv_rec.cle_id := x_clev_rec.id;
5655: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
5662: x_msg_count => x_msg_count,
5663: x_msg_data => x_msg_data,
5664: p_cimv_rec => l_cimv_rec,
5665: x_cimv_rec => x_cimv_rec);
5666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5667: OKL_API.set_message(p_app_name => G_APP_NAME,
5668: p_msg_name => G_CREATION_MODEL_ITEM);
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5663: x_msg_data => x_msg_data,
5664: p_cimv_rec => l_cimv_rec,
5665: x_cimv_rec => x_cimv_rec);
5666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5667: OKL_API.set_message(p_app_name => G_APP_NAME,
5668: p_msg_name => G_CREATION_MODEL_ITEM);
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5671: OKL_API.set_message(p_app_name => G_APP_NAME,
5665: x_cimv_rec => x_cimv_rec);
5666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5667: OKL_API.set_message(p_app_name => G_APP_NAME,
5668: p_msg_name => G_CREATION_MODEL_ITEM);
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5671: OKL_API.set_message(p_app_name => G_APP_NAME,
5672: p_msg_name => G_CREATION_MODEL_ITEM);
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5667: OKL_API.set_message(p_app_name => G_APP_NAME,
5668: p_msg_name => G_CREATION_MODEL_ITEM);
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5671: OKL_API.set_message(p_app_name => G_APP_NAME,
5672: p_msg_name => G_CREATION_MODEL_ITEM);
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5667: OKL_API.set_message(p_app_name => G_APP_NAME,
5668: p_msg_name => G_CREATION_MODEL_ITEM);
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5671: OKL_API.set_message(p_app_name => G_APP_NAME,
5672: p_msg_name => G_CREATION_MODEL_ITEM);
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5675:
5669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5671: OKL_API.set_message(p_app_name => G_APP_NAME,
5672: p_msg_name => G_CREATION_MODEL_ITEM);
5673: RAISE OKL_API.G_EXCEPTION_ERROR;
5674: END IF;
5675:
5676: ---------------
5677: --Bug# 2994971
5675:
5676: ---------------
5677: --Bug# 2994971
5678: ---------------
5679: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5680: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5681:
5682: --Bug# 3438811 :
5683: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5676: ---------------
5677: --Bug# 2994971
5678: ---------------
5679: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5680: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5681:
5682: --Bug# 3438811 :
5683: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5684: --l_inv_org_id := to_char(x_cimv_rec.object1_id2);
5693: x_msg_data => x_msg_data,
5694: p_cle_id => l_asset_cle_id,
5695: p_inv_item_id => l_inv_item_id,
5696: p_inv_org_id => l_inv_org_id);
5697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5700: RAISE OKL_API.G_EXCEPTION_ERROR;
5701: END IF;
5694: p_cle_id => l_asset_cle_id,
5695: p_inv_item_id => l_inv_item_id,
5696: p_inv_org_id => l_inv_org_id);
5697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5700: RAISE OKL_API.G_EXCEPTION_ERROR;
5701: END IF;
5702: End If;
5695: p_inv_item_id => l_inv_item_id,
5696: p_inv_org_id => l_inv_org_id);
5697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5700: RAISE OKL_API.G_EXCEPTION_ERROR;
5701: END IF;
5702: End If;
5703: ---------------
5696: p_inv_org_id => l_inv_org_id);
5697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5700: RAISE OKL_API.G_EXCEPTION_ERROR;
5701: END IF;
5702: End If;
5703: ---------------
5704: --Bug# 2994971
5705: ---------------
5706:
5707: -- #4414408
5708: -- ELSE
5709: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5710: -- p_msg_name => G_LINE_STYLE);
5711: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5712: -- END IF;
5713: OKL_API.END_ACTIVITY (x_msg_count,
5707: -- #4414408
5708: -- ELSE
5709: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5710: -- p_msg_name => G_LINE_STYLE);
5711: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5712: -- END IF;
5713: OKL_API.END_ACTIVITY (x_msg_count,
5714: x_msg_data );
5715: EXCEPTION
5709: -- OKL_API.set_message(p_app_name => G_APP_NAME,
5710: -- p_msg_name => G_LINE_STYLE);
5711: -- RAISE OKL_API.G_EXCEPTION_ERROR;
5712: -- END IF;
5713: OKL_API.END_ACTIVITY (x_msg_count,
5714: x_msg_data );
5715: EXCEPTION
5716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5712: -- END IF;
5713: OKL_API.END_ACTIVITY (x_msg_count,
5714: x_msg_data );
5715: EXCEPTION
5716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5718: l_api_name,
5719: G_PKG_NAME,
5720: 'OKL_API.G_RET_STS_ERROR',
5713: OKL_API.END_ACTIVITY (x_msg_count,
5714: x_msg_data );
5715: EXCEPTION
5716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5718: l_api_name,
5719: G_PKG_NAME,
5720: 'OKL_API.G_RET_STS_ERROR',
5721: x_msg_count,
5716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5717: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5718: l_api_name,
5719: G_PKG_NAME,
5720: 'OKL_API.G_RET_STS_ERROR',
5721: x_msg_count,
5722: x_msg_data,
5723: '_PVT');
5724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5720: 'OKL_API.G_RET_STS_ERROR',
5721: x_msg_count,
5722: x_msg_data,
5723: '_PVT');
5724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5726: l_api_name,
5727: G_PKG_NAME,
5728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5721: x_msg_count,
5722: x_msg_data,
5723: '_PVT');
5724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5726: l_api_name,
5727: G_PKG_NAME,
5728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5729: x_msg_count,
5724: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5726: l_api_name,
5727: G_PKG_NAME,
5728: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5729: x_msg_count,
5730: x_msg_data,
5731: '_PVT');
5732: WHEN OTHERS THEN
5729: x_msg_count,
5730: x_msg_data,
5731: '_PVT');
5732: WHEN OTHERS THEN
5733: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5734: l_api_name,
5735: G_PKG_NAME,
5736: 'OTHERS',
5737: x_msg_count,
5739: '_PVT');
5740: END Create_model_line_item;
5741: ---------------------------------------------------------------------------------------------
5742: PROCEDURE update_model_line_item(p_api_version IN NUMBER,
5743: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5744: x_return_status OUT NOCOPY VARCHAR2,
5745: x_msg_count OUT NOCOPY NUMBER,
5746: x_msg_data OUT NOCOPY VARCHAR2,
5747: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5765: l_inv_org_id number;
5766: l_asset_cle_id number;
5767:
5768: BEGIN
5769: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5770: -- Call start_activity to create savepoint, check compatibility
5771: -- and initialize message list
5772: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5773: ,p_init_msg_list
5768: BEGIN
5769: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5770: -- Call start_activity to create savepoint, check compatibility
5771: -- and initialize message list
5772: x_return_status := OKL_API.START_ACTIVITY (l_api_name
5773: ,p_init_msg_list
5774: ,'_PVT'
5775: ,x_return_status);
5776: -- Check if activity started successfully
5773: ,p_init_msg_list
5774: ,'_PVT'
5775: ,x_return_status);
5776: -- Check if activity started successfully
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5774: ,'_PVT'
5775: ,x_return_status);
5776: -- Check if activity started successfully
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782: -- Check the cle_id that is of the top Fin Asset line
5775: ,x_return_status);
5776: -- Check if activity started successfully
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782: -- Check the cle_id that is of the top Fin Asset line
5783: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5776: -- Check if activity started successfully
5777: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5778: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5779: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782: -- Check the cle_id that is of the top Fin Asset line
5783: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5784: p_lty_code => p_lty_code,
5783: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5784: p_lty_code => p_lty_code,
5785: x_lty_code => l_lty_code,
5786: x_return_status => x_return_status);
5787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5790: RAISE OKL_API.G_EXCEPTION_ERROR;
5791: END IF;
5784: p_lty_code => p_lty_code,
5785: x_lty_code => l_lty_code,
5786: x_return_status => x_return_status);
5787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5790: RAISE OKL_API.G_EXCEPTION_ERROR;
5791: END IF;
5792: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5785: x_lty_code => l_lty_code,
5786: x_return_status => x_return_status);
5787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5790: RAISE OKL_API.G_EXCEPTION_ERROR;
5791: END IF;
5792: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5793: -- Now the all the records are there we can create Model Line
5786: x_return_status => x_return_status);
5787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5789: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5790: RAISE OKL_API.G_EXCEPTION_ERROR;
5791: END IF;
5792: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
5793: -- Now the all the records are there we can create Model Line
5794: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
5799: p_clev_rec => p_clev_rec,
5800: p_klev_rec => p_klev_rec,
5801: x_clev_rec => x_clev_rec,
5802: x_klev_rec => x_klev_rec);
5803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: OKL_API.set_message(p_app_name => G_APP_NAME,
5805: p_msg_name => G_UPDATING_MODEL_LINE);
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5800: p_klev_rec => p_klev_rec,
5801: x_clev_rec => x_clev_rec,
5802: x_klev_rec => x_klev_rec);
5803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: OKL_API.set_message(p_app_name => G_APP_NAME,
5805: p_msg_name => G_UPDATING_MODEL_LINE);
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: OKL_API.set_message(p_app_name => G_APP_NAME,
5802: x_klev_rec => x_klev_rec);
5803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: OKL_API.set_message(p_app_name => G_APP_NAME,
5805: p_msg_name => G_UPDATING_MODEL_LINE);
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: OKL_API.set_message(p_app_name => G_APP_NAME,
5809: p_msg_name => G_UPDATING_MODEL_LINE);
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5804: OKL_API.set_message(p_app_name => G_APP_NAME,
5805: p_msg_name => G_UPDATING_MODEL_LINE);
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: OKL_API.set_message(p_app_name => G_APP_NAME,
5809: p_msg_name => G_UPDATING_MODEL_LINE);
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5804: OKL_API.set_message(p_app_name => G_APP_NAME,
5805: p_msg_name => G_UPDATING_MODEL_LINE);
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: OKL_API.set_message(p_app_name => G_APP_NAME,
5809: p_msg_name => G_UPDATING_MODEL_LINE);
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812: l_cimv_rec := p_cimv_rec;
5806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5808: OKL_API.set_message(p_app_name => G_APP_NAME,
5809: p_msg_name => G_UPDATING_MODEL_LINE);
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812: l_cimv_rec := p_cimv_rec;
5813: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5814: OKL_API.set_message(p_app_name => G_APP_NAME,
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812: l_cimv_rec := p_cimv_rec;
5813: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5814: OKL_API.set_message(p_app_name => G_APP_NAME,
5815: p_msg_name => G_ITEM_RECORD);
5816: RAISE OKL_API.G_EXCEPTION_ERROR;
5817: END IF;
5818: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5812: l_cimv_rec := p_cimv_rec;
5813: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
5814: OKL_API.set_message(p_app_name => G_APP_NAME,
5815: p_msg_name => G_ITEM_RECORD);
5816: RAISE OKL_API.G_EXCEPTION_ERROR;
5817: END IF;
5818: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5819: OKL_API.set_message(p_app_name => G_APP_NAME,
5820: p_msg_name => G_ITEM_RECORD);
5815: p_msg_name => G_ITEM_RECORD);
5816: RAISE OKL_API.G_EXCEPTION_ERROR;
5817: END IF;
5818: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5819: OKL_API.set_message(p_app_name => G_APP_NAME,
5820: p_msg_name => G_ITEM_RECORD);
5821: RAISE OKL_API.G_EXCEPTION_ERROR;
5822: END IF;
5823: -- Creation of Item Record for the above record information
5817: END IF;
5818: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
5819: OKL_API.set_message(p_app_name => G_APP_NAME,
5820: p_msg_name => G_ITEM_RECORD);
5821: RAISE OKL_API.G_EXCEPTION_ERROR;
5822: END IF;
5823: -- Creation of Item Record for the above record information
5824: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
5825: p_init_msg_list => p_init_msg_list,
5827: x_msg_count => x_msg_count,
5828: x_msg_data => x_msg_data,
5829: p_cimv_rec => l_cimv_rec,
5830: x_cimv_rec => x_cimv_rec);
5831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5832: OKL_API.set_message(p_app_name => G_APP_NAME,
5833: p_msg_name => G_UPDATING_MODEL_ITEM);
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5828: x_msg_data => x_msg_data,
5829: p_cimv_rec => l_cimv_rec,
5830: x_cimv_rec => x_cimv_rec);
5831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5832: OKL_API.set_message(p_app_name => G_APP_NAME,
5833: p_msg_name => G_UPDATING_MODEL_ITEM);
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5836: OKL_API.set_message(p_app_name => G_APP_NAME,
5830: x_cimv_rec => x_cimv_rec);
5831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5832: OKL_API.set_message(p_app_name => G_APP_NAME,
5833: p_msg_name => G_UPDATING_MODEL_ITEM);
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5836: OKL_API.set_message(p_app_name => G_APP_NAME,
5837: p_msg_name => G_UPDATING_MODEL_ITEM);
5838: RAISE OKL_API.G_EXCEPTION_ERROR;
5831: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5832: OKL_API.set_message(p_app_name => G_APP_NAME,
5833: p_msg_name => G_UPDATING_MODEL_ITEM);
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5836: OKL_API.set_message(p_app_name => G_APP_NAME,
5837: p_msg_name => G_UPDATING_MODEL_ITEM);
5838: RAISE OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5832: OKL_API.set_message(p_app_name => G_APP_NAME,
5833: p_msg_name => G_UPDATING_MODEL_ITEM);
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5836: OKL_API.set_message(p_app_name => G_APP_NAME,
5837: p_msg_name => G_UPDATING_MODEL_ITEM);
5838: RAISE OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5840:
5834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5836: OKL_API.set_message(p_app_name => G_APP_NAME,
5837: p_msg_name => G_UPDATING_MODEL_ITEM);
5838: RAISE OKL_API.G_EXCEPTION_ERROR;
5839: END IF;
5840:
5841: ---------------
5842: --Bug# 2994971
5840:
5841: ---------------
5842: --Bug# 2994971
5843: ---------------
5844: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5845: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5846:
5847: --Bug# 3438811 :
5848: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5841: ---------------
5842: --Bug# 2994971
5843: ---------------
5844: If nvl(x_cimv_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
5845: nvl(x_cimv_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR then
5846:
5847: --Bug# 3438811 :
5848: --l_inv_item_id := to_char(x_cimv_rec.object1_id1);
5849: --l_inv_org_id := to_char(x_cimv_rec.object1_id2);
5858: x_msg_data => x_msg_data,
5859: p_cle_id => l_asset_cle_id,
5860: p_inv_item_id => l_inv_item_id,
5861: p_inv_org_id => l_inv_org_id);
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5859: p_cle_id => l_asset_cle_id,
5860: p_inv_item_id => l_inv_item_id,
5861: p_inv_org_id => l_inv_org_id);
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867: End If;
5860: p_inv_item_id => l_inv_item_id,
5861: p_inv_org_id => l_inv_org_id);
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867: End If;
5868: ---------------
5861: p_inv_org_id => l_inv_org_id);
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867: End If;
5868: ---------------
5869: --Bug# 2994971
5870: ---------------
5871:
5872:
5873: ELSE
5874: OKL_API.set_message(p_app_name => G_APP_NAME,
5875: p_msg_name => G_LINE_STYLE);
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878: OKL_API.END_ACTIVITY (x_msg_count,
5872:
5873: ELSE
5874: OKL_API.set_message(p_app_name => G_APP_NAME,
5875: p_msg_name => G_LINE_STYLE);
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878: OKL_API.END_ACTIVITY (x_msg_count,
5879: x_msg_data );
5880: EXCEPTION
5874: OKL_API.set_message(p_app_name => G_APP_NAME,
5875: p_msg_name => G_LINE_STYLE);
5876: RAISE OKL_API.G_EXCEPTION_ERROR;
5877: END IF;
5878: OKL_API.END_ACTIVITY (x_msg_count,
5879: x_msg_data );
5880: EXCEPTION
5881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5882: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5877: END IF;
5878: OKL_API.END_ACTIVITY (x_msg_count,
5879: x_msg_data );
5880: EXCEPTION
5881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5882: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5883: l_api_name,
5884: G_PKG_NAME,
5885: 'OKL_API.G_RET_STS_ERROR',
5878: OKL_API.END_ACTIVITY (x_msg_count,
5879: x_msg_data );
5880: EXCEPTION
5881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5882: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5883: l_api_name,
5884: G_PKG_NAME,
5885: 'OKL_API.G_RET_STS_ERROR',
5886: x_msg_count,
5881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5882: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5883: l_api_name,
5884: G_PKG_NAME,
5885: 'OKL_API.G_RET_STS_ERROR',
5886: x_msg_count,
5887: x_msg_data,
5888: '_PVT');
5889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5885: 'OKL_API.G_RET_STS_ERROR',
5886: x_msg_count,
5887: x_msg_data,
5888: '_PVT');
5889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5886: x_msg_count,
5887: x_msg_data,
5888: '_PVT');
5889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5894: x_msg_count,
5889: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5890: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5891: l_api_name,
5892: G_PKG_NAME,
5893: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5894: x_msg_count,
5895: x_msg_data,
5896: '_PVT');
5897: WHEN OTHERS THEN
5894: x_msg_count,
5895: x_msg_data,
5896: '_PVT');
5897: WHEN OTHERS THEN
5898: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5899: l_api_name,
5900: G_PKG_NAME,
5901: 'OTHERS',
5902: x_msg_count,
5904: '_PVT');
5905: END update_model_line_item;
5906: --------------------------------------------------------------------------------------------------
5907: PROCEDURE create_fa_line_item(p_api_version IN NUMBER,
5908: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5909: x_return_status OUT NOCOPY VARCHAR2,
5910: x_msg_count OUT NOCOPY NUMBER,
5911: x_msg_data OUT NOCOPY VARCHAR2,
5912: -- p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
5928: l_trxv_rec trxv_rec_type;
5929: i NUMBER := 0;
5930:
5931: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
5932: lv_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
5933: lv_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR;
5934: ln_dummy NUMBER := 0;
5935: lv_dummy VARCHAR2(3);
5936: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
5929: i NUMBER := 0;
5930:
5931: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
5932: lv_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR;
5933: lv_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR;
5934: ln_dummy NUMBER := 0;
5935: lv_dummy VARCHAR2(3);
5936: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
5937: ln_line_number OKL_TXL_ASSETS_V.LINE_NUMBER%TYPE;
5948: AND id2 = p_id2
5949: AND dnz_chr_id <> p_dnz_chr_id
5950: AND line_status NOT IN ('EXPRIED','TERMINATED','ABANDONED'); --);
5951: BEGIN
5952: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5953: -- Call start_activity to create savepoint, check compatibility
5954: -- and initialize message list
5955: x_return_status := OKL_API.START_ACTIVITY (l_api_name,
5956: p_init_msg_list,
5951: BEGIN
5952: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5953: -- Call start_activity to create savepoint, check compatibility
5954: -- and initialize message list
5955: x_return_status := OKL_API.START_ACTIVITY (l_api_name,
5956: p_init_msg_list,
5957: '_PVT',
5958: x_return_status);
5959: -- Check if activity started successfully
5956: p_init_msg_list,
5957: '_PVT',
5958: x_return_status);
5959: -- Check if activity started successfully
5960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5963: RAISE OKL_API.G_EXCEPTION_ERROR;
5964: END IF;
5957: '_PVT',
5958: x_return_status);
5959: -- Check if activity started successfully
5960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5963: RAISE OKL_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: -- #4414408
5958: x_return_status);
5959: -- Check if activity started successfully
5960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5963: RAISE OKL_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: -- #4414408
5966: /*
5959: -- Check if activity started successfully
5960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5963: RAISE OKL_API.G_EXCEPTION_ERROR;
5964: END IF;
5965: -- #4414408
5966: /*
5967: -- Check the cle_id that is of the top Fin Asset line
5968: validate_cle_lse_id(p_clev_rec => p_clev_rec,
5969: p_lty_code => p_lty_code,
5970: x_lty_code => l_lty_code,
5971: x_return_status => x_return_status);
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: p_lty_code => p_lty_code,
5970: x_lty_code => l_lty_code,
5971: x_return_status => x_return_status);
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: */
5970: x_lty_code => l_lty_code,
5971: x_return_status => x_return_status);
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: */
5978: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
5971: x_return_status => x_return_status);
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: */
5978: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
5979: -- which line are creating under which line
5983:
5984: -- # 4414408 New function default_contract_line_values
5985: /*
5986: IF (p_clev_rec.sts_code IS NULL OR
5987: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5988: x_return_status := get_sts_code(p_dnz_chr_id => null,
5989: p_cle_id => p_clev_rec.cle_id,
5990: x_sts_code => r_clev_rec.sts_code);
5991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5987: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
5988: x_return_status := get_sts_code(p_dnz_chr_id => null,
5989: p_cle_id => p_clev_rec.cle_id,
5990: x_sts_code => r_clev_rec.sts_code);
5991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5994: RAISE OKL_API.G_EXCEPTION_ERROR;
5995: END IF;
5988: x_return_status := get_sts_code(p_dnz_chr_id => null,
5989: p_cle_id => p_clev_rec.cle_id,
5990: x_sts_code => r_clev_rec.sts_code);
5991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5994: RAISE OKL_API.G_EXCEPTION_ERROR;
5995: END IF;
5996: END IF;
5989: p_cle_id => p_clev_rec.cle_id,
5990: x_sts_code => r_clev_rec.sts_code);
5991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5994: RAISE OKL_API.G_EXCEPTION_ERROR;
5995: END IF;
5996: END IF;
5997: IF (p_clev_rec.end_date IS NULL OR
5990: x_sts_code => r_clev_rec.sts_code);
5991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5994: RAISE OKL_API.G_EXCEPTION_ERROR;
5995: END IF;
5996: END IF;
5997: IF (p_clev_rec.end_date IS NULL OR
5998: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5994: RAISE OKL_API.G_EXCEPTION_ERROR;
5995: END IF;
5996: END IF;
5997: IF (p_clev_rec.end_date IS NULL OR
5998: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5999: x_return_status := get_end_date(p_dnz_chr_id => null,
6000: p_cle_id => p_clev_rec.cle_id,
6001: x_end_date => r_clev_rec.end_date);
6002: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5998: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
5999: x_return_status := get_end_date(p_dnz_chr_id => null,
6000: p_cle_id => p_clev_rec.cle_id,
6001: x_end_date => r_clev_rec.end_date);
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 := get_end_date(p_dnz_chr_id => null,
6000: p_cle_id => p_clev_rec.cle_id,
6001: x_end_date => r_clev_rec.end_date);
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 => p_clev_rec.cle_id,
6001: x_end_date => r_clev_rec.end_date);
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: IF (p_clev_rec.start_date IS NULL OR
6001: x_end_date => r_clev_rec.end_date);
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: IF (p_clev_rec.start_date IS NULL OR
6009: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6005: RAISE OKL_API.G_EXCEPTION_ERROR;
6006: END IF;
6007: END IF;
6008: IF (p_clev_rec.start_date IS NULL OR
6009: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6010: x_return_status := get_start_date(p_dnz_chr_id => null,
6011: p_cle_id => p_clev_rec.cle_id,
6012: x_start_date => r_clev_rec.start_date);
6013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6009: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6010: x_return_status := get_start_date(p_dnz_chr_id => null,
6011: p_cle_id => p_clev_rec.cle_id,
6012: x_start_date => r_clev_rec.start_date);
6013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6016: RAISE OKL_API.G_EXCEPTION_ERROR;
6017: END IF;
6010: x_return_status := get_start_date(p_dnz_chr_id => null,
6011: p_cle_id => p_clev_rec.cle_id,
6012: x_start_date => r_clev_rec.start_date);
6013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6016: RAISE OKL_API.G_EXCEPTION_ERROR;
6017: END IF;
6018: END IF;
6011: p_cle_id => p_clev_rec.cle_id,
6012: x_start_date => r_clev_rec.start_date);
6013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6016: RAISE OKL_API.G_EXCEPTION_ERROR;
6017: END IF;
6018: END IF;
6019: IF (p_clev_rec.currency_code IS NULL OR
6012: x_start_date => r_clev_rec.start_date);
6013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6016: RAISE OKL_API.G_EXCEPTION_ERROR;
6017: END IF;
6018: END IF;
6019: IF (p_clev_rec.currency_code IS NULL OR
6020: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6016: RAISE OKL_API.G_EXCEPTION_ERROR;
6017: END IF;
6018: END IF;
6019: IF (p_clev_rec.currency_code IS NULL OR
6020: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6021: x_return_status := get_currency_code(p_dnz_chr_id => null,
6022: p_cle_id => p_clev_rec.cle_id,
6023: x_currency_code => r_clev_rec.currency_code);
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6020: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6021: x_return_status := get_currency_code(p_dnz_chr_id => null,
6022: p_cle_id => p_clev_rec.cle_id,
6023: x_currency_code => r_clev_rec.currency_code);
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6021: x_return_status := get_currency_code(p_dnz_chr_id => null,
6022: p_cle_id => p_clev_rec.cle_id,
6023: x_currency_code => r_clev_rec.currency_code);
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6022: p_cle_id => p_clev_rec.cle_id,
6023: x_currency_code => r_clev_rec.currency_code);
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6030: */
6023: x_currency_code => r_clev_rec.currency_code);
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6030: */
6031: IF ((p_clev_rec.sts_code IS NULL OR
6028: END IF;
6029: END IF;
6030: */
6031: IF ((p_clev_rec.sts_code IS NULL OR
6032: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
6033: (p_clev_rec.end_date IS NULL OR
6034: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
6035: (p_clev_rec.start_date IS NULL OR
6036: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
6030: */
6031: IF ((p_clev_rec.sts_code IS NULL OR
6032: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
6033: (p_clev_rec.end_date IS NULL OR
6034: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
6035: (p_clev_rec.start_date IS NULL OR
6036: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
6037: (p_clev_rec.currency_code IS NULL OR
6038: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
6032: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
6033: (p_clev_rec.end_date IS NULL OR
6034: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
6035: (p_clev_rec.start_date IS NULL OR
6036: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
6037: (p_clev_rec.currency_code IS NULL OR
6038: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
6039: ) THEN
6040: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6034: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
6035: (p_clev_rec.start_date IS NULL OR
6036: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
6037: (p_clev_rec.currency_code IS NULL OR
6038: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
6039: ) THEN
6040: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6041: p_cle_id => r_clev_rec.cle_id,
6042: p_clev_rec => r_clev_rec);
6039: ) THEN
6040: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6041: p_cle_id => r_clev_rec.cle_id,
6042: p_clev_rec => r_clev_rec);
6043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6046: RAISE OKL_API.G_EXCEPTION_ERROR;
6047: END IF;
6040: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
6041: p_cle_id => r_clev_rec.cle_id,
6042: p_clev_rec => r_clev_rec);
6043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6046: RAISE OKL_API.G_EXCEPTION_ERROR;
6047: END IF;
6048: END IF;
6041: p_cle_id => r_clev_rec.cle_id,
6042: p_clev_rec => r_clev_rec);
6043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6046: RAISE OKL_API.G_EXCEPTION_ERROR;
6047: END IF;
6048: END IF;
6049: -- Now the all the records are there we can create Fixed Asset Line
6042: p_clev_rec => r_clev_rec);
6043: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6046: RAISE OKL_API.G_EXCEPTION_ERROR;
6047: END IF;
6048: END IF;
6049: -- Now the all the records are there we can create Fixed Asset Line
6050: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
6055: p_clev_rec => r_clev_rec,
6056: p_klev_rec => p_klev_rec,
6057: x_clev_rec => x_clev_rec,
6058: x_klev_rec => x_klev_rec);
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: OKL_API.set_message(p_app_name => G_APP_NAME,
6061: p_msg_name => G_CREATION_FA_LINE);
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6056: p_klev_rec => p_klev_rec,
6057: x_clev_rec => x_clev_rec,
6058: x_klev_rec => x_klev_rec);
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: OKL_API.set_message(p_app_name => G_APP_NAME,
6061: p_msg_name => G_CREATION_FA_LINE);
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6064: OKL_API.set_message(p_app_name => G_APP_NAME,
6058: x_klev_rec => x_klev_rec);
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: OKL_API.set_message(p_app_name => G_APP_NAME,
6061: p_msg_name => G_CREATION_FA_LINE);
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6064: OKL_API.set_message(p_app_name => G_APP_NAME,
6065: p_msg_name => G_CREATION_FA_LINE);
6066: RAISE OKL_API.G_EXCEPTION_ERROR;
6059: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6060: OKL_API.set_message(p_app_name => G_APP_NAME,
6061: p_msg_name => G_CREATION_FA_LINE);
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6064: OKL_API.set_message(p_app_name => G_APP_NAME,
6065: p_msg_name => G_CREATION_FA_LINE);
6066: RAISE OKL_API.G_EXCEPTION_ERROR;
6067: END IF;
6060: OKL_API.set_message(p_app_name => G_APP_NAME,
6061: p_msg_name => G_CREATION_FA_LINE);
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6064: OKL_API.set_message(p_app_name => G_APP_NAME,
6065: p_msg_name => G_CREATION_FA_LINE);
6066: RAISE OKL_API.G_EXCEPTION_ERROR;
6067: END IF;
6068: l_cimv_rec := p_cimv_rec;
6062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6063: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6064: OKL_API.set_message(p_app_name => G_APP_NAME,
6065: p_msg_name => G_CREATION_FA_LINE);
6066: RAISE OKL_API.G_EXCEPTION_ERROR;
6067: END IF;
6068: l_cimv_rec := p_cimv_rec;
6069: l_cimv_rec.cle_id := x_clev_rec.id;
6070: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6072: lv_id2 := l_cimv_rec.object1_id2;
6073: l_cimv_rec.jtot_object1_code := 'OKX_ASSET';
6074: -- Now we should check weather the associated id1,id2 for a given asset number is null or not
6075: IF (lv_id1 IS NOT NULL OR
6076: lv_id1 <> OKL_API.G_MISS_CHAR) AND
6077: (lv_id2 IS NOT NULL OR
6078: lv_id2 <> OKL_API.G_MISS_CHAR) THEN
6079: -- Check to See the Fixed asset is not already in another contract
6080: OPEN c_asset_exist_chr(lv_id1,lv_id2,l_cimv_rec.dnz_chr_id);
6074: -- Now we should check weather the associated id1,id2 for a given asset number is null or not
6075: IF (lv_id1 IS NOT NULL OR
6076: lv_id1 <> OKL_API.G_MISS_CHAR) AND
6077: (lv_id2 IS NOT NULL OR
6078: lv_id2 <> OKL_API.G_MISS_CHAR) THEN
6079: -- Check to See the Fixed asset is not already in another contract
6080: OPEN c_asset_exist_chr(lv_id1,lv_id2,l_cimv_rec.dnz_chr_id);
6081: FETCH c_asset_exist_chr into ln_dummy;
6082: CLOSE c_asset_exist_chr;
6088: x_msg_count => x_msg_count,
6089: x_msg_data => x_msg_data,
6090: p_cimv_rec => l_cimv_rec,
6091: x_cimv_rec => x_cimv_rec);
6092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_CREATION_FA_ITEM);
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6089: x_msg_data => x_msg_data,
6090: p_cimv_rec => l_cimv_rec,
6091: x_cimv_rec => x_cimv_rec);
6092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_CREATION_FA_ITEM);
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6097: OKL_API.set_message(p_app_name => G_APP_NAME,
6091: x_cimv_rec => x_cimv_rec);
6092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_CREATION_FA_ITEM);
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6097: OKL_API.set_message(p_app_name => G_APP_NAME,
6098: p_msg_name => G_CREATION_FA_ITEM);
6099: RAISE OKL_API.G_EXCEPTION_ERROR;
6092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_CREATION_FA_ITEM);
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6097: OKL_API.set_message(p_app_name => G_APP_NAME,
6098: p_msg_name => G_CREATION_FA_ITEM);
6099: RAISE OKL_API.G_EXCEPTION_ERROR;
6100: END IF;
6093: OKL_API.set_message(p_app_name => G_APP_NAME,
6094: p_msg_name => G_CREATION_FA_ITEM);
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6097: OKL_API.set_message(p_app_name => G_APP_NAME,
6098: p_msg_name => G_CREATION_FA_ITEM);
6099: RAISE OKL_API.G_EXCEPTION_ERROR;
6100: END IF;
6101: -- We need to do this as part of Asset Release since the p_new_yn flag is N
6095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6097: OKL_API.set_message(p_app_name => G_APP_NAME,
6098: p_msg_name => G_CREATION_FA_ITEM);
6099: RAISE OKL_API.G_EXCEPTION_ERROR;
6100: END IF;
6101: -- We need to do this as part of Asset Release since the p_new_yn flag is N
6102: -- So that the adjustment will be done while activation of the re-lease asseted contract.
6103: -- We need to know if the kle_id is already there or not
6104: -- ideally it should be null since it is a new record
6105: validate_kle_id(p_klev_rec => x_klev_rec,
6106: x_record_exists => lv_dummy,
6107: x_return_status => x_return_status);
6108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6105: validate_kle_id(p_klev_rec => x_klev_rec,
6106: x_record_exists => lv_dummy,
6107: x_return_status => x_return_status);
6108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6106: x_record_exists => lv_dummy,
6107: x_return_status => x_return_status);
6108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6114: lv_dummy IS NUll) THEN
6107: x_return_status => x_return_status);
6108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6114: lv_dummy IS NUll) THEN
6115: l_talv_rec := p_talv_rec;
6109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6111: RAISE OKL_API.G_EXCEPTION_ERROR;
6112: END IF;
6113: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6114: lv_dummy IS NUll) THEN
6115: l_talv_rec := p_talv_rec;
6116: l_talv_rec.kle_id := x_clev_rec.id;
6117: l_talv_rec.dnz_khr_id := x_clev_rec.dnz_chr_id;
6124: x_msg_data => x_msg_data,
6125: p_talv_rec => l_talv_rec,
6126: x_trxv_rec => x_trxv_rec,
6127: x_talv_rec => x_talv_rec);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6125: p_talv_rec => l_talv_rec,
6126: x_trxv_rec => x_trxv_rec,
6127: x_talv_rec => x_talv_rec);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133: ELSE
6126: x_trxv_rec => x_trxv_rec,
6127: x_talv_rec => x_talv_rec);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133: ELSE
6134: OKL_API.set_message(p_app_name => G_APP_NAME,
6127: x_talv_rec => x_talv_rec);
6128: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6129: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133: ELSE
6134: OKL_API.set_message(p_app_name => G_APP_NAME,
6135: p_msg_name => G_KLE_ID);
6130: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6131: RAISE OKL_API.G_EXCEPTION_ERROR;
6132: END IF;
6133: ELSE
6134: OKL_API.set_message(p_app_name => G_APP_NAME,
6135: p_msg_name => G_KLE_ID);
6136: RAISE OKL_API.G_EXCEPTION_ERROR;
6137: END IF;
6138: ELSE
6132: END IF;
6133: ELSE
6134: OKL_API.set_message(p_app_name => G_APP_NAME,
6135: p_msg_name => G_KLE_ID);
6136: RAISE OKL_API.G_EXCEPTION_ERROR;
6137: END IF;
6138: ELSE
6139: OKL_API.set_message(p_app_name => G_APP_NAME,
6140: p_msg_name => G_CREATION_FA_ITEM);
6135: p_msg_name => G_KLE_ID);
6136: RAISE OKL_API.G_EXCEPTION_ERROR;
6137: END IF;
6138: ELSE
6139: OKL_API.set_message(p_app_name => G_APP_NAME,
6140: p_msg_name => G_CREATION_FA_ITEM);
6141: RAISE OKL_API.G_EXCEPTION_ERROR;
6142: END IF;
6143: ELSE
6137: END IF;
6138: ELSE
6139: OKL_API.set_message(p_app_name => G_APP_NAME,
6140: p_msg_name => G_CREATION_FA_ITEM);
6141: RAISE OKL_API.G_EXCEPTION_ERROR;
6142: END IF;
6143: ELSE
6144: -- Since id1,id12 are null , hence NO Asset Number we are creating a new asset Number
6145: -- Creation of Item Record for the above record information
6149: x_msg_count => x_msg_count,
6150: x_msg_data => x_msg_data,
6151: p_cimv_rec => l_cimv_rec,
6152: x_cimv_rec => x_cimv_rec);
6153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6154: OKL_API.set_message(p_app_name => G_APP_NAME,
6155: p_msg_name => G_CREATION_FA_ITEM);
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6150: x_msg_data => x_msg_data,
6151: p_cimv_rec => l_cimv_rec,
6152: x_cimv_rec => x_cimv_rec);
6153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6154: OKL_API.set_message(p_app_name => G_APP_NAME,
6155: p_msg_name => G_CREATION_FA_ITEM);
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6158: OKL_API.set_message(p_app_name => G_APP_NAME,
6152: x_cimv_rec => x_cimv_rec);
6153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6154: OKL_API.set_message(p_app_name => G_APP_NAME,
6155: p_msg_name => G_CREATION_FA_ITEM);
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6158: OKL_API.set_message(p_app_name => G_APP_NAME,
6159: p_msg_name => G_CREATION_FA_ITEM);
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6153: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6154: OKL_API.set_message(p_app_name => G_APP_NAME,
6155: p_msg_name => G_CREATION_FA_ITEM);
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6158: OKL_API.set_message(p_app_name => G_APP_NAME,
6159: p_msg_name => G_CREATION_FA_ITEM);
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6154: OKL_API.set_message(p_app_name => G_APP_NAME,
6155: p_msg_name => G_CREATION_FA_ITEM);
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6158: OKL_API.set_message(p_app_name => G_APP_NAME,
6159: p_msg_name => G_CREATION_FA_ITEM);
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6162: -- We need to know if the kle_id is already there or not
6156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6158: OKL_API.set_message(p_app_name => G_APP_NAME,
6159: p_msg_name => G_CREATION_FA_ITEM);
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6162: -- We need to know if the kle_id is already there or not
6163: -- ideally it should be null since it is a new record
6164: validate_kle_id(p_klev_rec => x_klev_rec,
6163: -- ideally it should be null since it is a new record
6164: validate_kle_id(p_klev_rec => x_klev_rec,
6165: x_record_exists => lv_dummy,
6166: x_return_status => x_return_status);
6167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_ERROR;
6171: END IF;
6164: validate_kle_id(p_klev_rec => x_klev_rec,
6165: x_record_exists => lv_dummy,
6166: x_return_status => x_return_status);
6167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_ERROR;
6171: END IF;
6172: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6165: x_record_exists => lv_dummy,
6166: x_return_status => x_return_status);
6167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_ERROR;
6171: END IF;
6172: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6173: lv_dummy IS NUll) THEN
6166: x_return_status => x_return_status);
6167: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_ERROR;
6171: END IF;
6172: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6173: lv_dummy IS NUll) THEN
6174: l_talv_rec := p_talv_rec;
6168: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6169: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_ERROR;
6171: END IF;
6172: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
6173: lv_dummy IS NUll) THEN
6174: l_talv_rec := p_talv_rec;
6175: l_talv_rec.kle_id := x_clev_rec.id;
6176: l_talv_rec.dnz_khr_id := x_clev_rec.dnz_chr_id;
6183: x_msg_data => x_msg_data,
6184: p_talv_rec => l_talv_rec,
6185: x_trxv_rec => x_trxv_rec,
6186: x_talv_rec => x_talv_rec);
6187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6190: RAISE OKL_API.G_EXCEPTION_ERROR;
6191: END IF;
6184: p_talv_rec => l_talv_rec,
6185: x_trxv_rec => x_trxv_rec,
6186: x_talv_rec => x_talv_rec);
6187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6190: RAISE OKL_API.G_EXCEPTION_ERROR;
6191: END IF;
6192: ELSE
6185: x_trxv_rec => x_trxv_rec,
6186: x_talv_rec => x_talv_rec);
6187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6190: RAISE OKL_API.G_EXCEPTION_ERROR;
6191: END IF;
6192: ELSE
6193: OKL_API.set_message(p_app_name => G_APP_NAME,
6186: x_talv_rec => x_talv_rec);
6187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6190: RAISE OKL_API.G_EXCEPTION_ERROR;
6191: END IF;
6192: ELSE
6193: OKL_API.set_message(p_app_name => G_APP_NAME,
6194: p_msg_name => G_KLE_ID);
6189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6190: RAISE OKL_API.G_EXCEPTION_ERROR;
6191: END IF;
6192: ELSE
6193: OKL_API.set_message(p_app_name => G_APP_NAME,
6194: p_msg_name => G_KLE_ID);
6195: RAISE OKL_API.G_EXCEPTION_ERROR;
6196: END IF;
6197: END IF;
6191: END IF;
6192: ELSE
6193: OKL_API.set_message(p_app_name => G_APP_NAME,
6194: p_msg_name => G_KLE_ID);
6195: RAISE OKL_API.G_EXCEPTION_ERROR;
6196: END IF;
6197: END IF;
6198: -- #4414408
6199: -- ELSE
6196: END IF;
6197: END IF;
6198: -- #4414408
6199: -- ELSE
6200: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6201: -- p_msg_name => G_LINE_STYLE);
6202: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6203: -- END IF;
6204: OKL_API.END_ACTIVITY (x_msg_count,
6198: -- #4414408
6199: -- ELSE
6200: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6201: -- p_msg_name => G_LINE_STYLE);
6202: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6203: -- END IF;
6204: OKL_API.END_ACTIVITY (x_msg_count,
6205: x_msg_data );
6206: EXCEPTION
6200: -- OKL_API.set_message(p_app_name => G_APP_NAME,
6201: -- p_msg_name => G_LINE_STYLE);
6202: -- RAISE OKL_API.G_EXCEPTION_ERROR;
6203: -- END IF;
6204: OKL_API.END_ACTIVITY (x_msg_count,
6205: x_msg_data );
6206: EXCEPTION
6207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6208: IF c_asset_exist_chr%ISOPEN THEN
6203: -- END IF;
6204: OKL_API.END_ACTIVITY (x_msg_count,
6205: x_msg_data );
6206: EXCEPTION
6207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6208: IF c_asset_exist_chr%ISOPEN THEN
6209: CLOSE c_asset_exist_chr;
6210: END IF;
6211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6208: IF c_asset_exist_chr%ISOPEN THEN
6209: CLOSE c_asset_exist_chr;
6210: END IF;
6211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6212: l_api_name,
6213: G_PKG_NAME,
6214: 'OKL_API.G_RET_STS_ERROR',
6215: x_msg_count,
6210: END IF;
6211: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6212: l_api_name,
6213: G_PKG_NAME,
6214: 'OKL_API.G_RET_STS_ERROR',
6215: x_msg_count,
6216: x_msg_data,
6217: '_PVT');
6218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6214: 'OKL_API.G_RET_STS_ERROR',
6215: x_msg_count,
6216: x_msg_data,
6217: '_PVT');
6218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6220: l_api_name,
6221: G_PKG_NAME,
6222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6215: x_msg_count,
6216: x_msg_data,
6217: '_PVT');
6218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6220: l_api_name,
6221: G_PKG_NAME,
6222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6223: x_msg_count,
6218: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6219: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6220: l_api_name,
6221: G_PKG_NAME,
6222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6223: x_msg_count,
6224: x_msg_data,
6225: '_PVT');
6226: WHEN OTHERS THEN
6226: WHEN OTHERS THEN
6227: IF c_asset_exist_chr%ISOPEN THEN
6228: CLOSE c_asset_exist_chr;
6229: END IF;
6230: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6231: l_api_name,
6232: G_PKG_NAME,
6233: 'OTHERS',
6234: x_msg_count,
6236: '_PVT');
6237: END create_fa_line_item;
6238: -------------------------------------------------------------------------------------------------
6239: PROCEDURE update_fa_line_item(p_api_version IN NUMBER,
6240: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6241: x_return_status OUT NOCOPY VARCHAR2,
6242: x_msg_count OUT NOCOPY NUMBER,
6243: x_msg_data OUT NOCOPY VARCHAR2,
6244: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6262: lv_dummy VARCHAR2(3);
6263: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
6264: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FA_LINE_ITEM';
6265: BEGIN
6266: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6267: -- Call start_activity to create savepoint, check compatibility
6268: -- and initialize message list
6269: x_return_status := OKL_API.START_ACTIVITY (
6270: l_api_name
6265: BEGIN
6266: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6267: -- Call start_activity to create savepoint, check compatibility
6268: -- and initialize message list
6269: x_return_status := OKL_API.START_ACTIVITY (
6270: l_api_name
6271: ,p_init_msg_list
6272: ,'_PVT'
6273: ,x_return_status);
6271: ,p_init_msg_list
6272: ,'_PVT'
6273: ,x_return_status);
6274: -- Check if activity started successfully
6275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6278: RAISE OKL_API.G_EXCEPTION_ERROR;
6279: END IF;
6272: ,'_PVT'
6273: ,x_return_status);
6274: -- Check if activity started successfully
6275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6278: RAISE OKL_API.G_EXCEPTION_ERROR;
6279: END IF;
6280: -- Check the cle_id that is of the top Fin Asset line
6273: ,x_return_status);
6274: -- Check if activity started successfully
6275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6278: RAISE OKL_API.G_EXCEPTION_ERROR;
6279: END IF;
6280: -- Check the cle_id that is of the top Fin Asset line
6281: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6274: -- Check if activity started successfully
6275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6278: RAISE OKL_API.G_EXCEPTION_ERROR;
6279: END IF;
6280: -- Check the cle_id that is of the top Fin Asset line
6281: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6282: p_lty_code => p_lty_code,
6281: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6282: p_lty_code => p_lty_code,
6283: x_lty_code => l_lty_code,
6284: x_return_status => x_return_status);
6285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6288: RAISE OKL_API.G_EXCEPTION_ERROR;
6289: END IF;
6282: p_lty_code => p_lty_code,
6283: x_lty_code => l_lty_code,
6284: x_return_status => x_return_status);
6285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6288: RAISE OKL_API.G_EXCEPTION_ERROR;
6289: END IF;
6290: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6283: x_lty_code => l_lty_code,
6284: x_return_status => x_return_status);
6285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6288: RAISE OKL_API.G_EXCEPTION_ERROR;
6289: END IF;
6290: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6291: -- which line are creating under which line
6284: x_return_status => x_return_status);
6285: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6286: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6287: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6288: RAISE OKL_API.G_EXCEPTION_ERROR;
6289: END IF;
6290: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
6291: -- which line are creating under which line
6292: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
6298: p_clev_rec => p_clev_rec,
6299: p_klev_rec => p_klev_rec,
6300: x_clev_rec => x_clev_rec,
6301: x_klev_rec => x_klev_rec);
6302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6303: OKL_API.set_message(p_app_name => G_APP_NAME,
6304: p_msg_name => G_UPDATING_FA_LINE);
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6299: p_klev_rec => p_klev_rec,
6300: x_clev_rec => x_clev_rec,
6301: x_klev_rec => x_klev_rec);
6302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6303: OKL_API.set_message(p_app_name => G_APP_NAME,
6304: p_msg_name => G_UPDATING_FA_LINE);
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6307: OKL_API.set_message(p_app_name => G_APP_NAME,
6301: x_klev_rec => x_klev_rec);
6302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6303: OKL_API.set_message(p_app_name => G_APP_NAME,
6304: p_msg_name => G_UPDATING_FA_LINE);
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6307: OKL_API.set_message(p_app_name => G_APP_NAME,
6308: p_msg_name => G_UPDATING_FA_LINE);
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6302: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6303: OKL_API.set_message(p_app_name => G_APP_NAME,
6304: p_msg_name => G_UPDATING_FA_LINE);
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6307: OKL_API.set_message(p_app_name => G_APP_NAME,
6308: p_msg_name => G_UPDATING_FA_LINE);
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6310: END IF;
6303: OKL_API.set_message(p_app_name => G_APP_NAME,
6304: p_msg_name => G_UPDATING_FA_LINE);
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6307: OKL_API.set_message(p_app_name => G_APP_NAME,
6308: p_msg_name => G_UPDATING_FA_LINE);
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6310: END IF;
6311: l_cimv_rec := p_cimv_rec;
6305: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6306: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6307: OKL_API.set_message(p_app_name => G_APP_NAME,
6308: p_msg_name => G_UPDATING_FA_LINE);
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6310: END IF;
6311: l_cimv_rec := p_cimv_rec;
6312: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6313: OKL_API.set_message(p_app_name => G_APP_NAME,
6309: RAISE OKL_API.G_EXCEPTION_ERROR;
6310: END IF;
6311: l_cimv_rec := p_cimv_rec;
6312: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6313: OKL_API.set_message(p_app_name => G_APP_NAME,
6314: p_msg_name => G_ITEM_RECORD);
6315: RAISE OKL_API.G_EXCEPTION_ERROR;
6316: END IF;
6317: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6311: l_cimv_rec := p_cimv_rec;
6312: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6313: OKL_API.set_message(p_app_name => G_APP_NAME,
6314: p_msg_name => G_ITEM_RECORD);
6315: RAISE OKL_API.G_EXCEPTION_ERROR;
6316: END IF;
6317: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6318: OKL_API.set_message(p_app_name => G_APP_NAME,
6319: p_msg_name => G_ITEM_RECORD);
6314: p_msg_name => G_ITEM_RECORD);
6315: RAISE OKL_API.G_EXCEPTION_ERROR;
6316: END IF;
6317: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6318: OKL_API.set_message(p_app_name => G_APP_NAME,
6319: p_msg_name => G_ITEM_RECORD);
6320: RAISE OKL_API.G_EXCEPTION_ERROR;
6321: END IF;
6322: -- Creation of Item Record for the above record information
6316: END IF;
6317: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6318: OKL_API.set_message(p_app_name => G_APP_NAME,
6319: p_msg_name => G_ITEM_RECORD);
6320: RAISE OKL_API.G_EXCEPTION_ERROR;
6321: END IF;
6322: -- Creation of Item Record for the above record information
6323: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
6324: p_init_msg_list => p_init_msg_list,
6326: x_msg_count => x_msg_count,
6327: x_msg_data => x_msg_data,
6328: p_cimv_rec => l_cimv_rec,
6329: x_cimv_rec => x_cimv_rec);
6330: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6331: OKL_API.set_message(p_app_name => G_APP_NAME,
6332: p_msg_name => G_UPDATING_FA_ITEM);
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6327: x_msg_data => x_msg_data,
6328: p_cimv_rec => l_cimv_rec,
6329: x_cimv_rec => x_cimv_rec);
6330: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6331: OKL_API.set_message(p_app_name => G_APP_NAME,
6332: p_msg_name => G_UPDATING_FA_ITEM);
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: OKL_API.set_message(p_app_name => G_APP_NAME,
6329: x_cimv_rec => x_cimv_rec);
6330: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6331: OKL_API.set_message(p_app_name => G_APP_NAME,
6332: p_msg_name => G_UPDATING_FA_ITEM);
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: OKL_API.set_message(p_app_name => G_APP_NAME,
6336: p_msg_name => G_UPDATING_FA_ITEM);
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6330: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6331: OKL_API.set_message(p_app_name => G_APP_NAME,
6332: p_msg_name => G_UPDATING_FA_ITEM);
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: OKL_API.set_message(p_app_name => G_APP_NAME,
6336: p_msg_name => G_UPDATING_FA_ITEM);
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6331: OKL_API.set_message(p_app_name => G_APP_NAME,
6332: p_msg_name => G_UPDATING_FA_ITEM);
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: OKL_API.set_message(p_app_name => G_APP_NAME,
6336: p_msg_name => G_UPDATING_FA_ITEM);
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6339: -- x_clev_rec := l_clev_rec;
6333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6335: OKL_API.set_message(p_app_name => G_APP_NAME,
6336: p_msg_name => G_UPDATING_FA_ITEM);
6337: RAISE OKL_API.G_EXCEPTION_ERROR;
6338: END IF;
6339: -- x_clev_rec := l_clev_rec;
6340: -- We commented the same out because does not make sense
6341: -- because we are now populating the txl assets in both the cases
6340: -- We commented the same out because does not make sense
6341: -- because we are now populating the txl assets in both the cases
6342: -- i.e., when the OKC_K_ITEMS.OBJECT1_ID1 and OBJECT1_ID2 is null or not null
6343: -- IF (x_cimv_rec.object1_id1 IS NULL OR
6344: -- x_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
6345: -- (x_cimv_rec.object1_id2 IS NULL OR
6346: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6347: validate_kle_id(p_klev_rec => x_klev_rec,
6348: x_record_exists => lv_dummy,
6342: -- i.e., when the OKC_K_ITEMS.OBJECT1_ID1 and OBJECT1_ID2 is null or not null
6343: -- IF (x_cimv_rec.object1_id1 IS NULL OR
6344: -- x_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
6345: -- (x_cimv_rec.object1_id2 IS NULL OR
6346: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6347: validate_kle_id(p_klev_rec => x_klev_rec,
6348: x_record_exists => lv_dummy,
6349: x_return_status => x_return_status);
6350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6346: -- x_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
6347: validate_kle_id(p_klev_rec => x_klev_rec,
6348: x_record_exists => lv_dummy,
6349: x_return_status => x_return_status);
6350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6353: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6347: validate_kle_id(p_klev_rec => x_klev_rec,
6348: x_record_exists => lv_dummy,
6349: x_return_status => x_return_status);
6350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6353: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6355: IF (lv_dummy IS NOT NUll OR
6348: x_record_exists => lv_dummy,
6349: x_return_status => x_return_status);
6350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6353: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6355: IF (lv_dummy IS NOT NUll OR
6356: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6349: x_return_status => x_return_status);
6350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6353: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6355: IF (lv_dummy IS NOT NUll OR
6356: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6357: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6353: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6355: IF (lv_dummy IS NOT NUll OR
6356: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6357: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6358: OKL_API.set_message(p_app_name => G_APP_NAME,
6359: p_msg_name => G_KLE_ID);
6360: RAISE OKL_API.G_EXCEPTION_ERROR;
6354: END IF;
6355: IF (lv_dummy IS NOT NUll OR
6356: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6357: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6358: OKL_API.set_message(p_app_name => G_APP_NAME,
6359: p_msg_name => G_KLE_ID);
6360: RAISE OKL_API.G_EXCEPTION_ERROR;
6361: END IF;
6362: update_asset_lines(p_api_version => p_api_version,
6356: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
6357: IF p_talv_rec.kle_id <> x_klev_rec.id THEN
6358: OKL_API.set_message(p_app_name => G_APP_NAME,
6359: p_msg_name => G_KLE_ID);
6360: RAISE OKL_API.G_EXCEPTION_ERROR;
6361: END IF;
6362: update_asset_lines(p_api_version => p_api_version,
6363: p_init_msg_list => p_init_msg_list,
6364: x_return_status => x_return_status,
6365: x_msg_count => x_msg_count,
6366: x_msg_data => x_msg_data,
6367: p_talv_rec => p_talv_rec,
6368: x_talv_rec => x_talv_rec);
6369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6372: RAISE OKL_API.G_EXCEPTION_ERROR;
6373: END IF;
6366: x_msg_data => x_msg_data,
6367: p_talv_rec => p_talv_rec,
6368: x_talv_rec => x_talv_rec);
6369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6372: RAISE OKL_API.G_EXCEPTION_ERROR;
6373: END IF;
6374: ELSE
6367: p_talv_rec => p_talv_rec,
6368: x_talv_rec => x_talv_rec);
6369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6372: RAISE OKL_API.G_EXCEPTION_ERROR;
6373: END IF;
6374: ELSE
6375: OKL_API.set_message(p_app_name => G_APP_NAME,
6368: x_talv_rec => x_talv_rec);
6369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6372: RAISE OKL_API.G_EXCEPTION_ERROR;
6373: END IF;
6374: ELSE
6375: OKL_API.set_message(p_app_name => G_APP_NAME,
6376: p_msg_name => G_KLE_ID);
6371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6372: RAISE OKL_API.G_EXCEPTION_ERROR;
6373: END IF;
6374: ELSE
6375: OKL_API.set_message(p_app_name => G_APP_NAME,
6376: p_msg_name => G_KLE_ID);
6377: RAISE OKL_API.G_EXCEPTION_ERROR;
6378: END IF;
6379: -- END IF;
6373: END IF;
6374: ELSE
6375: OKL_API.set_message(p_app_name => G_APP_NAME,
6376: p_msg_name => G_KLE_ID);
6377: RAISE OKL_API.G_EXCEPTION_ERROR;
6378: END IF;
6379: -- END IF;
6380: ELSE
6381: OKL_API.set_message(p_app_name => G_APP_NAME,
6377: RAISE OKL_API.G_EXCEPTION_ERROR;
6378: END IF;
6379: -- END IF;
6380: ELSE
6381: OKL_API.set_message(p_app_name => G_APP_NAME,
6382: p_msg_name => G_LINE_STYLE);
6383: RAISE OKL_API.G_EXCEPTION_ERROR;
6384: END IF;
6385: -- x_clev_rec := l_clev_rec;
6379: -- END IF;
6380: ELSE
6381: OKL_API.set_message(p_app_name => G_APP_NAME,
6382: p_msg_name => G_LINE_STYLE);
6383: RAISE OKL_API.G_EXCEPTION_ERROR;
6384: END IF;
6385: -- x_clev_rec := l_clev_rec;
6386: OKL_API.END_ACTIVITY (x_msg_count,
6387: x_msg_data );
6382: p_msg_name => G_LINE_STYLE);
6383: RAISE OKL_API.G_EXCEPTION_ERROR;
6384: END IF;
6385: -- x_clev_rec := l_clev_rec;
6386: OKL_API.END_ACTIVITY (x_msg_count,
6387: x_msg_data );
6388: EXCEPTION
6389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6390: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6385: -- x_clev_rec := l_clev_rec;
6386: OKL_API.END_ACTIVITY (x_msg_count,
6387: x_msg_data );
6388: EXCEPTION
6389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6390: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6391: l_api_name,
6392: G_PKG_NAME,
6393: 'OKL_API.G_RET_STS_ERROR',
6386: OKL_API.END_ACTIVITY (x_msg_count,
6387: x_msg_data );
6388: EXCEPTION
6389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6390: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6391: l_api_name,
6392: G_PKG_NAME,
6393: 'OKL_API.G_RET_STS_ERROR',
6394: x_msg_count,
6389: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6390: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6391: l_api_name,
6392: G_PKG_NAME,
6393: 'OKL_API.G_RET_STS_ERROR',
6394: x_msg_count,
6395: x_msg_data,
6396: '_PVT');
6397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6393: 'OKL_API.G_RET_STS_ERROR',
6394: x_msg_count,
6395: x_msg_data,
6396: '_PVT');
6397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6398: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6399: l_api_name,
6400: G_PKG_NAME,
6401: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6394: x_msg_count,
6395: x_msg_data,
6396: '_PVT');
6397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6398: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6399: l_api_name,
6400: G_PKG_NAME,
6401: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6402: x_msg_count,
6397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6398: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6399: l_api_name,
6400: G_PKG_NAME,
6401: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6402: x_msg_count,
6403: x_msg_data,
6404: '_PVT');
6405: WHEN OTHERS THEN
6402: x_msg_count,
6403: x_msg_data,
6404: '_PVT');
6405: WHEN OTHERS THEN
6406: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6407: l_api_name,
6408: G_PKG_NAME,
6409: 'OTHERS',
6410: x_msg_count,
6412: '_PVT');
6413: END update_fa_line_item;
6414: -------------------------------------------------------------------------------------------------
6415: PROCEDURE create_addon_line_item_rec(p_api_version IN NUMBER,
6416: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6417: x_return_status OUT NOCOPY VARCHAR2,
6418: x_msg_count OUT NOCOPY NUMBER,
6419: x_msg_data OUT NOCOPY VARCHAR2,
6420: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6449: AND lse1.lty_code = G_MODEL_LINE_LTY_CODE
6450: AND lse1.lse_parent_id = lse2.id
6451: AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
6452: BEGIN
6453: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6454: -- Call start_activity to create savepoint, check compatibility
6455: -- and initialize message list
6456: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6457: ,p_init_msg_list
6452: BEGIN
6453: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6454: -- Call start_activity to create savepoint, check compatibility
6455: -- and initialize message list
6456: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6457: ,p_init_msg_list
6458: ,'_PVT'
6459: ,x_return_status);
6460: -- Check if activity started successfully
6457: ,p_init_msg_list
6458: ,'_PVT'
6459: ,x_return_status);
6460: -- Check if activity started successfully
6461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6464: RAISE OKL_API.G_EXCEPTION_ERROR;
6465: END IF;
6458: ,'_PVT'
6459: ,x_return_status);
6460: -- Check if activity started successfully
6461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6464: RAISE OKL_API.G_EXCEPTION_ERROR;
6465: END IF;
6466: -- Check the cle_id that is of the top Model line
6459: ,x_return_status);
6460: -- Check if activity started successfully
6461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6464: RAISE OKL_API.G_EXCEPTION_ERROR;
6465: END IF;
6466: -- Check the cle_id that is of the top Model line
6467: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6460: -- Check if activity started successfully
6461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6464: RAISE OKL_API.G_EXCEPTION_ERROR;
6465: END IF;
6466: -- Check the cle_id that is of the top Model line
6467: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6468: p_lty_code => p_lty_code,
6467: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6468: p_lty_code => p_lty_code,
6469: x_lty_code => l_lty_code,
6470: x_return_status => x_return_status);
6471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6474: RAISE OKL_API.G_EXCEPTION_ERROR;
6475: END IF;
6468: p_lty_code => p_lty_code,
6469: x_lty_code => l_lty_code,
6470: x_return_status => x_return_status);
6471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6474: RAISE OKL_API.G_EXCEPTION_ERROR;
6475: END IF;
6476: -- since Add on is a sub line of Model line we have to check weather
6469: x_lty_code => l_lty_code,
6470: x_return_status => x_return_status);
6471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6474: RAISE OKL_API.G_EXCEPTION_ERROR;
6475: END IF;
6476: -- since Add on is a sub line of Model line we have to check weather
6477: -- which line are creating under which line
6470: x_return_status => x_return_status);
6471: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6472: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6473: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6474: RAISE OKL_API.G_EXCEPTION_ERROR;
6475: END IF;
6476: -- since Add on is a sub line of Model line we have to check weather
6477: -- which line are creating under which line
6478: IF l_lty_code = G_MODEL_LINE_LTY_CODE THEN
6477: -- which line are creating under which line
6478: IF l_lty_code = G_MODEL_LINE_LTY_CODE THEN
6479: r_clev_rec := p_clev_rec;
6480: IF (p_clev_rec.sts_code IS NULL OR
6481: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
6482: x_return_status := get_sts_code(p_dnz_chr_id => null,
6483: p_cle_id => p_clev_rec.cle_id,
6484: x_sts_code => r_clev_rec.sts_code);
6485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6481: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
6482: x_return_status := get_sts_code(p_dnz_chr_id => null,
6483: p_cle_id => p_clev_rec.cle_id,
6484: x_sts_code => r_clev_rec.sts_code);
6485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6486: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6482: x_return_status := get_sts_code(p_dnz_chr_id => null,
6483: p_cle_id => p_clev_rec.cle_id,
6484: x_sts_code => r_clev_rec.sts_code);
6485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6486: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: END IF;
6483: p_cle_id => p_clev_rec.cle_id,
6484: x_sts_code => r_clev_rec.sts_code);
6485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6486: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: END IF;
6491: IF (p_clev_rec.end_date IS NULL OR
6484: x_sts_code => r_clev_rec.sts_code);
6485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6486: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: END IF;
6491: IF (p_clev_rec.end_date IS NULL OR
6492: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6488: RAISE OKL_API.G_EXCEPTION_ERROR;
6489: END IF;
6490: END IF;
6491: IF (p_clev_rec.end_date IS NULL OR
6492: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6493: x_return_status := get_end_date(p_dnz_chr_id => null,
6494: p_cle_id => p_clev_rec.cle_id,
6495: x_end_date => r_clev_rec.end_date);
6496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6492: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
6493: x_return_status := get_end_date(p_dnz_chr_id => null,
6494: p_cle_id => p_clev_rec.cle_id,
6495: x_end_date => r_clev_rec.end_date);
6496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6499: RAISE OKL_API.G_EXCEPTION_ERROR;
6500: END IF;
6493: x_return_status := get_end_date(p_dnz_chr_id => null,
6494: p_cle_id => p_clev_rec.cle_id,
6495: x_end_date => r_clev_rec.end_date);
6496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6499: RAISE OKL_API.G_EXCEPTION_ERROR;
6500: END IF;
6501: END IF;
6494: p_cle_id => p_clev_rec.cle_id,
6495: x_end_date => r_clev_rec.end_date);
6496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6499: RAISE OKL_API.G_EXCEPTION_ERROR;
6500: END IF;
6501: END IF;
6502: IF (p_clev_rec.start_date IS NULL OR
6495: x_end_date => r_clev_rec.end_date);
6496: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6498: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6499: RAISE OKL_API.G_EXCEPTION_ERROR;
6500: END IF;
6501: END IF;
6502: IF (p_clev_rec.start_date IS NULL OR
6503: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6499: RAISE OKL_API.G_EXCEPTION_ERROR;
6500: END IF;
6501: END IF;
6502: IF (p_clev_rec.start_date IS NULL OR
6503: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6504: x_return_status := get_start_date(p_dnz_chr_id => null,
6505: p_cle_id => p_clev_rec.cle_id,
6506: x_start_date => r_clev_rec.start_date);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6503: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
6504: x_return_status := get_start_date(p_dnz_chr_id => null,
6505: p_cle_id => p_clev_rec.cle_id,
6506: x_start_date => r_clev_rec.start_date);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6510: RAISE OKL_API.G_EXCEPTION_ERROR;
6511: END IF;
6504: x_return_status := get_start_date(p_dnz_chr_id => null,
6505: p_cle_id => p_clev_rec.cle_id,
6506: x_start_date => r_clev_rec.start_date);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6510: RAISE OKL_API.G_EXCEPTION_ERROR;
6511: END IF;
6512: END IF;
6505: p_cle_id => p_clev_rec.cle_id,
6506: x_start_date => r_clev_rec.start_date);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6510: RAISE OKL_API.G_EXCEPTION_ERROR;
6511: END IF;
6512: END IF;
6513: IF (p_clev_rec.currency_code IS NULL OR
6506: x_start_date => r_clev_rec.start_date);
6507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6510: RAISE OKL_API.G_EXCEPTION_ERROR;
6511: END IF;
6512: END IF;
6513: IF (p_clev_rec.currency_code IS NULL OR
6514: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6510: RAISE OKL_API.G_EXCEPTION_ERROR;
6511: END IF;
6512: END IF;
6513: IF (p_clev_rec.currency_code IS NULL OR
6514: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6515: x_return_status := get_currency_code(p_dnz_chr_id => null,
6516: p_cle_id => p_clev_rec.cle_id,
6517: x_currency_code => r_clev_rec.currency_code);
6518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6514: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
6515: x_return_status := get_currency_code(p_dnz_chr_id => null,
6516: p_cle_id => p_clev_rec.cle_id,
6517: x_currency_code => r_clev_rec.currency_code);
6518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6521: RAISE OKL_API.G_EXCEPTION_ERROR;
6522: END IF;
6515: x_return_status := get_currency_code(p_dnz_chr_id => null,
6516: p_cle_id => p_clev_rec.cle_id,
6517: x_currency_code => r_clev_rec.currency_code);
6518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6521: RAISE OKL_API.G_EXCEPTION_ERROR;
6522: END IF;
6523: END IF;
6516: p_cle_id => p_clev_rec.cle_id,
6517: x_currency_code => r_clev_rec.currency_code);
6518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6521: RAISE OKL_API.G_EXCEPTION_ERROR;
6522: END IF;
6523: END IF;
6524: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6517: x_currency_code => r_clev_rec.currency_code);
6518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6521: RAISE OKL_API.G_EXCEPTION_ERROR;
6522: END IF;
6523: END IF;
6524: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6525: r_clev_rec.dnz_chr_id);
6523: END IF;
6524: OPEN get_dis_seq_qty(r_clev_rec.cle_id,
6525: r_clev_rec.dnz_chr_id);
6526: IF get_dis_seq_qty%NOTFOUND THEN
6527: OKL_API.set_message(p_app_name => G_APP_NAME,
6528: p_msg_name => G_LINE_RECORD);
6529: RAISE OKL_API.G_EXCEPTION_ERROR;
6530: END IF;
6531: FETCH get_dis_seq_qty INTO ln_display_sequence,
6525: r_clev_rec.dnz_chr_id);
6526: IF get_dis_seq_qty%NOTFOUND THEN
6527: OKL_API.set_message(p_app_name => G_APP_NAME,
6528: p_msg_name => G_LINE_RECORD);
6529: RAISE OKL_API.G_EXCEPTION_ERROR;
6530: END IF;
6531: FETCH get_dis_seq_qty INTO ln_display_sequence,
6532: ln_num_of_items;
6533: CLOSE get_dis_seq_qty;
6531: FETCH get_dis_seq_qty INTO ln_display_sequence,
6532: ln_num_of_items;
6533: CLOSE get_dis_seq_qty;
6534: IF (p_clev_rec.display_sequence IS NULL OR
6535: p_clev_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
6536: r_clev_rec.display_sequence := ln_display_sequence + 1;
6537: END IF;
6538: -- Calling the Process
6539: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
6544: p_clev_rec => r_clev_rec,
6545: p_klev_rec => p_klev_rec,
6546: x_clev_rec => x_clev_rec,
6547: x_klev_rec => x_klev_rec);
6548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6549: OKL_API.set_message(p_app_name => G_APP_NAME,
6550: p_msg_name => G_CREATION_ADDON_LINE);
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6545: p_klev_rec => p_klev_rec,
6546: x_clev_rec => x_clev_rec,
6547: x_klev_rec => x_klev_rec);
6548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6549: OKL_API.set_message(p_app_name => G_APP_NAME,
6550: p_msg_name => G_CREATION_ADDON_LINE);
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6553: OKL_API.set_message(p_app_name => G_APP_NAME,
6547: x_klev_rec => x_klev_rec);
6548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6549: OKL_API.set_message(p_app_name => G_APP_NAME,
6550: p_msg_name => G_CREATION_ADDON_LINE);
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6553: OKL_API.set_message(p_app_name => G_APP_NAME,
6554: p_msg_name => G_CREATION_ADDON_LINE);
6555: RAISE OKL_API.G_EXCEPTION_ERROR;
6548: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6549: OKL_API.set_message(p_app_name => G_APP_NAME,
6550: p_msg_name => G_CREATION_ADDON_LINE);
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6553: OKL_API.set_message(p_app_name => G_APP_NAME,
6554: p_msg_name => G_CREATION_ADDON_LINE);
6555: RAISE OKL_API.G_EXCEPTION_ERROR;
6556: END IF;
6549: OKL_API.set_message(p_app_name => G_APP_NAME,
6550: p_msg_name => G_CREATION_ADDON_LINE);
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6553: OKL_API.set_message(p_app_name => G_APP_NAME,
6554: p_msg_name => G_CREATION_ADDON_LINE);
6555: RAISE OKL_API.G_EXCEPTION_ERROR;
6556: END IF;
6557: l_cimv_rec := p_cimv_rec;
6551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6552: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6553: OKL_API.set_message(p_app_name => G_APP_NAME,
6554: p_msg_name => G_CREATION_ADDON_LINE);
6555: RAISE OKL_API.G_EXCEPTION_ERROR;
6556: END IF;
6557: l_cimv_rec := p_cimv_rec;
6558: l_cimv_rec.cle_id := x_clev_rec.id;
6559: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6559: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
6560: l_cimv_rec.jtot_object1_code := 'OKX_SYSITEM';
6561: -- Check the number of items
6562: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6563: OKL_API.set_message(p_app_name => G_APP_NAME,
6564: p_msg_name => G_ITEM_RECORD);
6565: RAISE OKL_API.G_EXCEPTION_ERROR;
6566: END IF;
6567: -- Creation of Item Record for the above record information
6561: -- Check the number of items
6562: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6563: OKL_API.set_message(p_app_name => G_APP_NAME,
6564: p_msg_name => G_ITEM_RECORD);
6565: RAISE OKL_API.G_EXCEPTION_ERROR;
6566: END IF;
6567: -- Creation of Item Record for the above record information
6568: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
6569: p_init_msg_list => p_init_msg_list,
6571: x_msg_count => x_msg_count,
6572: x_msg_data => x_msg_data,
6573: p_cimv_rec => l_cimv_rec,
6574: x_cimv_rec => x_cimv_rec);
6575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6576: OKL_API.set_message(p_app_name => G_APP_NAME,
6577: p_msg_name => G_CREATION_ADDON_ITEM);
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6572: x_msg_data => x_msg_data,
6573: p_cimv_rec => l_cimv_rec,
6574: x_cimv_rec => x_cimv_rec);
6575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6576: OKL_API.set_message(p_app_name => G_APP_NAME,
6577: p_msg_name => G_CREATION_ADDON_ITEM);
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6580: OKL_API.set_message(p_app_name => G_APP_NAME,
6574: x_cimv_rec => x_cimv_rec);
6575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6576: OKL_API.set_message(p_app_name => G_APP_NAME,
6577: p_msg_name => G_CREATION_ADDON_ITEM);
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6580: OKL_API.set_message(p_app_name => G_APP_NAME,
6581: p_msg_name => G_CREATION_ADDON_ITEM);
6582: RAISE OKL_API.G_EXCEPTION_ERROR;
6575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6576: OKL_API.set_message(p_app_name => G_APP_NAME,
6577: p_msg_name => G_CREATION_ADDON_ITEM);
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6580: OKL_API.set_message(p_app_name => G_APP_NAME,
6581: p_msg_name => G_CREATION_ADDON_ITEM);
6582: RAISE OKL_API.G_EXCEPTION_ERROR;
6583: END IF;
6576: OKL_API.set_message(p_app_name => G_APP_NAME,
6577: p_msg_name => G_CREATION_ADDON_ITEM);
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6580: OKL_API.set_message(p_app_name => G_APP_NAME,
6581: p_msg_name => G_CREATION_ADDON_ITEM);
6582: RAISE OKL_API.G_EXCEPTION_ERROR;
6583: END IF;
6584: ELSE
6578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6579: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6580: OKL_API.set_message(p_app_name => G_APP_NAME,
6581: p_msg_name => G_CREATION_ADDON_ITEM);
6582: RAISE OKL_API.G_EXCEPTION_ERROR;
6583: END IF;
6584: ELSE
6585: OKL_API.set_message(p_app_name => G_APP_NAME,
6586: p_msg_name => G_LINE_STYLE);
6581: p_msg_name => G_CREATION_ADDON_ITEM);
6582: RAISE OKL_API.G_EXCEPTION_ERROR;
6583: END IF;
6584: ELSE
6585: OKL_API.set_message(p_app_name => G_APP_NAME,
6586: p_msg_name => G_LINE_STYLE);
6587: RAISE OKL_API.G_EXCEPTION_ERROR;
6588: END IF;
6589: OKL_API.END_ACTIVITY (x_msg_count,
6583: END IF;
6584: ELSE
6585: OKL_API.set_message(p_app_name => G_APP_NAME,
6586: p_msg_name => G_LINE_STYLE);
6587: RAISE OKL_API.G_EXCEPTION_ERROR;
6588: END IF;
6589: OKL_API.END_ACTIVITY (x_msg_count,
6590: x_msg_data );
6591: EXCEPTION
6585: OKL_API.set_message(p_app_name => G_APP_NAME,
6586: p_msg_name => G_LINE_STYLE);
6587: RAISE OKL_API.G_EXCEPTION_ERROR;
6588: END IF;
6589: OKL_API.END_ACTIVITY (x_msg_count,
6590: x_msg_data );
6591: EXCEPTION
6592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6588: END IF;
6589: OKL_API.END_ACTIVITY (x_msg_count,
6590: x_msg_data );
6591: EXCEPTION
6592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6594: l_api_name,
6595: G_PKG_NAME,
6596: 'OKL_API.G_RET_STS_ERROR',
6589: OKL_API.END_ACTIVITY (x_msg_count,
6590: x_msg_data );
6591: EXCEPTION
6592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6594: l_api_name,
6595: G_PKG_NAME,
6596: 'OKL_API.G_RET_STS_ERROR',
6597: x_msg_count,
6592: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6593: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6594: l_api_name,
6595: G_PKG_NAME,
6596: 'OKL_API.G_RET_STS_ERROR',
6597: x_msg_count,
6598: x_msg_data,
6599: '_PVT');
6600: IF get_dis_seq_qty%ISOPEN THEN
6599: '_PVT');
6600: IF get_dis_seq_qty%ISOPEN THEN
6601: CLOSE get_dis_seq_qty;
6602: END IF;
6603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6604: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6605: l_api_name,
6606: G_PKG_NAME,
6607: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6600: IF get_dis_seq_qty%ISOPEN THEN
6601: CLOSE get_dis_seq_qty;
6602: END IF;
6603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6604: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6605: l_api_name,
6606: G_PKG_NAME,
6607: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6608: x_msg_count,
6603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6604: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6605: l_api_name,
6606: G_PKG_NAME,
6607: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6608: x_msg_count,
6609: x_msg_data,
6610: '_PVT');
6611: WHEN OTHERS THEN
6608: x_msg_count,
6609: x_msg_data,
6610: '_PVT');
6611: WHEN OTHERS THEN
6612: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6613: l_api_name,
6614: G_PKG_NAME,
6615: 'OTHERS',
6616: x_msg_count,
6621: END IF;
6622: END create_addon_line_item_rec;
6623: -----------------------------------------------------------------------------------------------------------
6624: PROCEDURE Update_addon_line_item_rec(p_api_version IN NUMBER,
6625: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6626: x_return_status OUT NOCOPY VARCHAR2,
6627: x_msg_count OUT NOCOPY NUMBER,
6628: x_msg_data OUT NOCOPY VARCHAR2,
6629: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
6659: AND lse1.lse_parent_id = lse2.id
6660: AND lse2.lty_code = G_FIN_LINE_LTY_CODE;
6661:
6662: BEGIN
6663: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6664: -- Call start_activity to create savepoint, check compatibility
6665: -- and initialize message list
6666: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6667: ,p_init_msg_list
6662: BEGIN
6663: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6664: -- Call start_activity to create savepoint, check compatibility
6665: -- and initialize message list
6666: x_return_status := OKL_API.START_ACTIVITY (l_api_name
6667: ,p_init_msg_list
6668: ,'_PVT'
6669: ,x_return_status);
6670: -- Check if activity started successfully
6667: ,p_init_msg_list
6668: ,'_PVT'
6669: ,x_return_status);
6670: -- Check if activity started successfully
6671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6674: RAISE OKL_API.G_EXCEPTION_ERROR;
6675: END IF;
6668: ,'_PVT'
6669: ,x_return_status);
6670: -- Check if activity started successfully
6671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6674: RAISE OKL_API.G_EXCEPTION_ERROR;
6675: END IF;
6676: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6669: ,x_return_status);
6670: -- Check if activity started successfully
6671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6674: RAISE OKL_API.G_EXCEPTION_ERROR;
6675: END IF;
6676: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6677: p_lty_code => p_lty_code,
6670: -- Check if activity started successfully
6671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6674: RAISE OKL_API.G_EXCEPTION_ERROR;
6675: END IF;
6676: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6677: p_lty_code => p_lty_code,
6678: x_lty_code => l_lty_code,
6676: validate_cle_lse_id(p_clev_rec => p_clev_rec,
6677: p_lty_code => p_lty_code,
6678: x_lty_code => l_lty_code,
6679: x_return_status => x_return_status);
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6677: p_lty_code => p_lty_code,
6678: x_lty_code => l_lty_code,
6679: x_return_status => x_return_status);
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: x_return_status := get_rec_klev(p_clev_rec.id,
6678: x_lty_code => l_lty_code,
6679: x_return_status => x_return_status);
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: x_return_status := get_rec_klev(p_clev_rec.id,
6686: l_klev_rec);
6679: x_return_status => x_return_status);
6680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: x_return_status := get_rec_klev(p_clev_rec.id,
6686: l_klev_rec);
6687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6683: RAISE OKL_API.G_EXCEPTION_ERROR;
6684: END IF;
6685: x_return_status := get_rec_klev(p_clev_rec.id,
6686: l_klev_rec);
6687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6688: OKL_API.set_message(p_app_name => G_APP_NAME,
6689: p_msg_name => G_FETCHING_INFO,
6690: p_token1 => G_REC_NAME_TOKEN,
6691: p_token1_value => 'OKL_K_LINES_V Record');
6684: END IF;
6685: x_return_status := get_rec_klev(p_clev_rec.id,
6686: l_klev_rec);
6687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6688: OKL_API.set_message(p_app_name => G_APP_NAME,
6689: p_msg_name => G_FETCHING_INFO,
6690: p_token1 => G_REC_NAME_TOKEN,
6691: p_token1_value => 'OKL_K_LINES_V Record');
6692: RAISE G_EXCEPTION_HALT_VALIDATION;
6689: p_msg_name => G_FETCHING_INFO,
6690: p_token1 => G_REC_NAME_TOKEN,
6691: p_token1_value => 'OKL_K_LINES_V Record');
6692: RAISE G_EXCEPTION_HALT_VALIDATION;
6693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6694: OKL_API.set_message(p_app_name => G_APP_NAME,
6695: p_msg_name => G_FETCHING_INFO,
6696: p_token1 => G_REC_NAME_TOKEN,
6697: p_token1_value => 'OKL_K_LINES_V Record');
6690: p_token1 => G_REC_NAME_TOKEN,
6691: p_token1_value => 'OKL_K_LINES_V Record');
6692: RAISE G_EXCEPTION_HALT_VALIDATION;
6693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6694: OKL_API.set_message(p_app_name => G_APP_NAME,
6695: p_msg_name => G_FETCHING_INFO,
6696: p_token1 => G_REC_NAME_TOKEN,
6697: p_token1_value => 'OKL_K_LINES_V Record');
6698: RAISE G_EXCEPTION_HALT_VALIDATION;
6705: l_clev_rec := p_clev_rec;
6706: OPEN get_dis_seq_qty(l_clev_rec.cle_id,
6707: l_clev_rec.dnz_chr_id);
6708: IF get_dis_seq_qty%NOTFOUND THEN
6709: OKL_API.set_message(p_app_name => G_APP_NAME,
6710: p_msg_name => G_LINE_RECORD);
6711: RAISE OKL_API.G_EXCEPTION_ERROR;
6712: END IF;
6713: FETCH get_dis_seq_qty INTO ln_display_sequence,
6707: l_clev_rec.dnz_chr_id);
6708: IF get_dis_seq_qty%NOTFOUND THEN
6709: OKL_API.set_message(p_app_name => G_APP_NAME,
6710: p_msg_name => G_LINE_RECORD);
6711: RAISE OKL_API.G_EXCEPTION_ERROR;
6712: END IF;
6713: FETCH get_dis_seq_qty INTO ln_display_sequence,
6714: ln_num_of_items;
6715: CLOSE get_dis_seq_qty;
6713: FETCH get_dis_seq_qty INTO ln_display_sequence,
6714: ln_num_of_items;
6715: CLOSE get_dis_seq_qty;
6716: IF (p_clev_rec.display_sequence IS NULL OR
6717: p_clev_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
6718: l_clev_rec.display_sequence := ln_display_sequence + 1;
6719: END IF;
6720: OKL_CONTRACT_PUB.update_contract_line(p_api_version => p_api_version,
6721: p_init_msg_list => p_init_msg_list,
6725: p_clev_rec => l_clev_rec,
6726: p_klev_rec => l_klev_rec,
6727: x_clev_rec => x_clev_rec,
6728: x_klev_rec => x_klev_rec);
6729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_UPDATING_ADDON_LINE);
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6726: p_klev_rec => l_klev_rec,
6727: x_clev_rec => x_clev_rec,
6728: x_klev_rec => x_klev_rec);
6729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_UPDATING_ADDON_LINE);
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: OKL_API.set_message(p_app_name => G_APP_NAME,
6728: x_klev_rec => x_klev_rec);
6729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_UPDATING_ADDON_LINE);
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: OKL_API.set_message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UPDATING_ADDON_LINE);
6736: RAISE OKL_API.G_EXCEPTION_ERROR;
6729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_UPDATING_ADDON_LINE);
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: OKL_API.set_message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UPDATING_ADDON_LINE);
6736: RAISE OKL_API.G_EXCEPTION_ERROR;
6737: END IF;
6730: OKL_API.set_message(p_app_name => G_APP_NAME,
6731: p_msg_name => G_UPDATING_ADDON_LINE);
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: OKL_API.set_message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UPDATING_ADDON_LINE);
6736: RAISE OKL_API.G_EXCEPTION_ERROR;
6737: END IF;
6738: l_cimv_rec := p_cimv_rec;
6732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6734: OKL_API.set_message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UPDATING_ADDON_LINE);
6736: RAISE OKL_API.G_EXCEPTION_ERROR;
6737: END IF;
6738: l_cimv_rec := p_cimv_rec;
6739: x_return_status := get_rec_cimv(x_clev_rec.id,
6740: x_clev_rec.dnz_chr_id,
6738: l_cimv_rec := p_cimv_rec;
6739: x_return_status := get_rec_cimv(x_clev_rec.id,
6740: x_clev_rec.dnz_chr_id,
6741: l_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_FETCHING_INFO,
6745: p_token1 => G_REC_NAME_TOKEN,
6746: p_token1_value => 'OKC_K_ITEMS_V Record');
6739: x_return_status := get_rec_cimv(x_clev_rec.id,
6740: x_clev_rec.dnz_chr_id,
6741: l_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_FETCHING_INFO,
6745: p_token1 => G_REC_NAME_TOKEN,
6746: p_token1_value => 'OKC_K_ITEMS_V Record');
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6743: OKL_API.set_message(p_app_name => G_APP_NAME,
6744: p_msg_name => G_FETCHING_INFO,
6745: p_token1 => G_REC_NAME_TOKEN,
6746: p_token1_value => 'OKC_K_ITEMS_V Record');
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: OKL_API.set_message(p_app_name => G_APP_NAME,
6750: p_msg_name => G_FETCHING_INFO,
6751: p_token1 => G_REC_NAME_TOKEN,
6744: p_msg_name => G_FETCHING_INFO,
6745: p_token1 => G_REC_NAME_TOKEN,
6746: p_token1_value => 'OKC_K_ITEMS_V Record');
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: OKL_API.set_message(p_app_name => G_APP_NAME,
6750: p_msg_name => G_FETCHING_INFO,
6751: p_token1 => G_REC_NAME_TOKEN,
6752: p_token1_value => 'OKC_K_ITEMS_V Record');
6745: p_token1 => G_REC_NAME_TOKEN,
6746: p_token1_value => 'OKC_K_ITEMS_V Record');
6747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6748: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6749: OKL_API.set_message(p_app_name => G_APP_NAME,
6750: p_msg_name => G_FETCHING_INFO,
6751: p_token1 => G_REC_NAME_TOKEN,
6752: p_token1_value => 'OKC_K_ITEMS_V Record');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6749: OKL_API.set_message(p_app_name => G_APP_NAME,
6750: p_msg_name => G_FETCHING_INFO,
6751: p_token1 => G_REC_NAME_TOKEN,
6752: p_token1_value => 'OKC_K_ITEMS_V Record');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6754: END IF;
6755: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6756: OKL_API.set_message(p_app_name => G_APP_NAME,
6757: p_msg_name => G_ITEM_RECORD);
6752: p_token1_value => 'OKC_K_ITEMS_V Record');
6753: RAISE OKL_API.G_EXCEPTION_ERROR;
6754: END IF;
6755: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6756: OKL_API.set_message(p_app_name => G_APP_NAME,
6757: p_msg_name => G_ITEM_RECORD);
6758: RAISE OKL_API.G_EXCEPTION_ERROR;
6759: END IF;
6760: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6754: END IF;
6755: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
6756: OKL_API.set_message(p_app_name => G_APP_NAME,
6757: p_msg_name => G_ITEM_RECORD);
6758: RAISE OKL_API.G_EXCEPTION_ERROR;
6759: END IF;
6760: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6761: OKL_API.set_message(p_app_name => G_APP_NAME,
6762: p_msg_name => G_ITEM_RECORD);
6757: p_msg_name => G_ITEM_RECORD);
6758: RAISE OKL_API.G_EXCEPTION_ERROR;
6759: END IF;
6760: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6761: OKL_API.set_message(p_app_name => G_APP_NAME,
6762: p_msg_name => G_ITEM_RECORD);
6763: RAISE OKL_API.G_EXCEPTION_ERROR;
6764: END IF;
6765: -- We have the below has to been given from the screen
6759: END IF;
6760: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
6761: OKL_API.set_message(p_app_name => G_APP_NAME,
6762: p_msg_name => G_ITEM_RECORD);
6763: RAISE OKL_API.G_EXCEPTION_ERROR;
6764: END IF;
6765: -- We have the below has to been given from the screen
6766: l_cimv_rec.object1_id1 := p_cimv_rec.object1_id1;
6767: l_cimv_rec.object1_id2 := p_cimv_rec.object1_id2;
6767: l_cimv_rec.object1_id2 := p_cimv_rec.object1_id2;
6768: l_cimv_rec.number_of_items := p_cimv_rec.number_of_items;
6769: -- Check the number of items
6770: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6771: OKL_API.set_message(p_app_name => G_APP_NAME,
6772: p_msg_name => G_ITEM_RECORD);
6773: RAISE OKL_API.G_EXCEPTION_ERROR;
6774: END IF;
6775: -- Creation of Item Record for the above record information
6769: -- Check the number of items
6770: IF l_cimv_rec.number_of_items <> ln_num_of_items THEN
6771: OKL_API.set_message(p_app_name => G_APP_NAME,
6772: p_msg_name => G_ITEM_RECORD);
6773: RAISE OKL_API.G_EXCEPTION_ERROR;
6774: END IF;
6775: -- Creation of Item Record for the above record information
6776: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
6777: p_init_msg_list => p_init_msg_list,
6779: x_msg_count => x_msg_count,
6780: x_msg_data => x_msg_data,
6781: p_cimv_rec => l_cimv_rec,
6782: x_cimv_rec => x_cimv_rec);
6783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6784: OKL_API.set_message(p_app_name => G_APP_NAME,
6785: p_msg_name => G_UPDATING_ADDON_ITEM);
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6780: x_msg_data => x_msg_data,
6781: p_cimv_rec => l_cimv_rec,
6782: x_cimv_rec => x_cimv_rec);
6783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6784: OKL_API.set_message(p_app_name => G_APP_NAME,
6785: p_msg_name => G_UPDATING_ADDON_ITEM);
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6788: OKL_API.set_message(p_app_name => G_APP_NAME,
6782: x_cimv_rec => x_cimv_rec);
6783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6784: OKL_API.set_message(p_app_name => G_APP_NAME,
6785: p_msg_name => G_UPDATING_ADDON_ITEM);
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6788: OKL_API.set_message(p_app_name => G_APP_NAME,
6789: p_msg_name => G_UPDATING_ADDON_ITEM);
6790: RAISE OKL_API.G_EXCEPTION_ERROR;
6783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6784: OKL_API.set_message(p_app_name => G_APP_NAME,
6785: p_msg_name => G_UPDATING_ADDON_ITEM);
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6788: OKL_API.set_message(p_app_name => G_APP_NAME,
6789: p_msg_name => G_UPDATING_ADDON_ITEM);
6790: RAISE OKL_API.G_EXCEPTION_ERROR;
6791: END IF;
6784: OKL_API.set_message(p_app_name => G_APP_NAME,
6785: p_msg_name => G_UPDATING_ADDON_ITEM);
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6788: OKL_API.set_message(p_app_name => G_APP_NAME,
6789: p_msg_name => G_UPDATING_ADDON_ITEM);
6790: RAISE OKL_API.G_EXCEPTION_ERROR;
6791: END IF;
6792: ELSE
6786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6787: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6788: OKL_API.set_message(p_app_name => G_APP_NAME,
6789: p_msg_name => G_UPDATING_ADDON_ITEM);
6790: RAISE OKL_API.G_EXCEPTION_ERROR;
6791: END IF;
6792: ELSE
6793: OKL_API.set_message(p_app_name => G_APP_NAME,
6794: p_msg_name => G_LINE_STYLE);
6789: p_msg_name => G_UPDATING_ADDON_ITEM);
6790: RAISE OKL_API.G_EXCEPTION_ERROR;
6791: END IF;
6792: ELSE
6793: OKL_API.set_message(p_app_name => G_APP_NAME,
6794: p_msg_name => G_LINE_STYLE);
6795: RAISE OKL_API.G_EXCEPTION_ERROR;
6796: END IF;
6797: OKL_API.END_ACTIVITY (x_msg_count,
6791: END IF;
6792: ELSE
6793: OKL_API.set_message(p_app_name => G_APP_NAME,
6794: p_msg_name => G_LINE_STYLE);
6795: RAISE OKL_API.G_EXCEPTION_ERROR;
6796: END IF;
6797: OKL_API.END_ACTIVITY (x_msg_count,
6798: x_msg_data );
6799: EXCEPTION
6793: OKL_API.set_message(p_app_name => G_APP_NAME,
6794: p_msg_name => G_LINE_STYLE);
6795: RAISE OKL_API.G_EXCEPTION_ERROR;
6796: END IF;
6797: OKL_API.END_ACTIVITY (x_msg_count,
6798: x_msg_data );
6799: EXCEPTION
6800: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6801: IF get_dis_seq_qty%ISOPEN THEN
6796: END IF;
6797: OKL_API.END_ACTIVITY (x_msg_count,
6798: x_msg_data );
6799: EXCEPTION
6800: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6801: IF get_dis_seq_qty%ISOPEN THEN
6802: CLOSE get_dis_seq_qty;
6803: END IF;
6804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6800: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6801: IF get_dis_seq_qty%ISOPEN THEN
6802: CLOSE get_dis_seq_qty;
6803: END IF;
6804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6805: l_api_name,
6806: G_PKG_NAME,
6807: 'OKL_API.G_RET_STS_ERROR',
6808: x_msg_count,
6803: END IF;
6804: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6805: l_api_name,
6806: G_PKG_NAME,
6807: 'OKL_API.G_RET_STS_ERROR',
6808: x_msg_count,
6809: x_msg_data,
6810: '_PVT');
6811: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6807: 'OKL_API.G_RET_STS_ERROR',
6808: x_msg_count,
6809: x_msg_data,
6810: '_PVT');
6811: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6812: IF get_dis_seq_qty%ISOPEN THEN
6813: CLOSE get_dis_seq_qty;
6814: END IF;
6815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6811: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6812: IF get_dis_seq_qty%ISOPEN THEN
6813: CLOSE get_dis_seq_qty;
6814: END IF;
6815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6816: l_api_name,
6817: G_PKG_NAME,
6818: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6819: x_msg_count,
6814: END IF;
6815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6816: l_api_name,
6817: G_PKG_NAME,
6818: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6819: x_msg_count,
6820: x_msg_data,
6821: '_PVT');
6822: WHEN OTHERS THEN
6822: WHEN OTHERS THEN
6823: IF get_dis_seq_qty%ISOPEN THEN
6824: CLOSE get_dis_seq_qty;
6825: END IF;
6826: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6827: l_api_name,
6828: G_PKG_NAME,
6829: 'OTHERS',
6830: x_msg_count,
6833: END Update_addon_line_item_rec;
6834: -------------------------------------------------------------------------------------------------------
6835: Procedure create_addon_line_rec(
6836: p_api_version IN NUMBER,
6837: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6838: x_return_status OUT NOCOPY VARCHAR2,
6839: x_msg_count OUT NOCOPY NUMBER,
6840: x_msg_data OUT NOCOPY VARCHAR2,
6841: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
6881: AND lse2.lty_code = G_FIN_LINE_LTY_CODE
6882: AND lse2.id = stl.lse_id
6883: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
6884: BEGIN
6885: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6886: -- Call start_activity to create savepoint, check compatibility
6887: -- and initialize message list
6888: x_return_status := OKL_API.START_ACTIVITY (
6889: l_api_name
6884: BEGIN
6885: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6886: -- Call start_activity to create savepoint, check compatibility
6887: -- and initialize message list
6888: x_return_status := OKL_API.START_ACTIVITY (
6889: l_api_name
6890: ,p_init_msg_list
6891: ,'_PVT'
6892: ,x_return_status);
6890: ,p_init_msg_list
6891: ,'_PVT'
6892: ,x_return_status);
6893: -- Check if activity started successfully
6894: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6891: ,'_PVT'
6892: ,x_return_status);
6893: -- Check if activity started successfully
6894: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: -- To Check We Got the Valid info
6892: ,x_return_status);
6893: -- Check if activity started successfully
6894: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: -- To Check We Got the Valid info
6900: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6893: -- Check if activity started successfully
6894: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6895: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6896: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: -- To Check We Got the Valid info
6900: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6901: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6897: RAISE OKL_API.G_EXCEPTION_ERROR;
6898: END IF;
6899: -- To Check We Got the Valid info
6900: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6901: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6902: UPPER(p_new_yn) IS NULL) THEN
6903: OKL_API.set_message(p_app_name => G_APP_NAME,
6904: p_msg_name => G_INVALID_YN,
6905: p_token1 => G_COL_NAME_TOKEN,
6899: -- To Check We Got the Valid info
6900: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
6901: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
6902: UPPER(p_new_yn) IS NULL) THEN
6903: OKL_API.set_message(p_app_name => G_APP_NAME,
6904: p_msg_name => G_INVALID_YN,
6905: p_token1 => G_COL_NAME_TOKEN,
6906: p_token1_value => 'p_new_yn');
6907: -- Halt Validation
6904: p_msg_name => G_INVALID_YN,
6905: p_token1 => G_COL_NAME_TOKEN,
6906: p_token1_value => 'p_new_yn');
6907: -- Halt Validation
6908: RAISE OKL_API.G_EXCEPTION_ERROR;
6909: END IF;
6910: -- Validate to see if the asset_number given is not null
6911: -- and also Validate asset_number does not exists
6912: -- in OKL_TXL_ASSETS_V
6912: -- in OKL_TXL_ASSETS_V
6913: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
6914: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6915: IF get_fa_id%NOTFOUND THEN
6916: OKL_API.set_message(p_app_name => G_APP_NAME,
6917: p_msg_name => G_LINE_RECORD);
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920: FETCH get_fa_id INTO ln_fa_id;
6914: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6915: IF get_fa_id%NOTFOUND THEN
6916: OKL_API.set_message(p_app_name => G_APP_NAME,
6917: p_msg_name => G_LINE_RECORD);
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920: FETCH get_fa_id INTO ln_fa_id;
6921: CLOSE get_fa_id;
6922:
6925: p_asset_number => p_asset_number,
6926: p_kle_id => ln_fa_id,
6927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6928: -- Check if activity started successfully
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6926: p_kle_id => ln_fa_id,
6927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6928: -- Check if activity started successfully
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934: END IF;
6927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
6928: -- Check if activity started successfully
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934: END IF;
6935: -- Validate Line Style id and get the line type code
6928: -- Check if activity started successfully
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934: END IF;
6935: -- Validate Line Style id and get the line type code
6936: -- and line style type for further processing
6938: x_return_status => x_return_status,
6939: x_lty_code => l_lty_code,
6940: x_lse_type => l_lse_type);
6941: -- Check if activity started successfully
6942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6945: RAISE OKL_API.G_EXCEPTION_ERROR;
6946: END IF;
6939: x_lty_code => l_lty_code,
6940: x_lse_type => l_lse_type);
6941: -- Check if activity started successfully
6942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6945: RAISE OKL_API.G_EXCEPTION_ERROR;
6946: END IF;
6947: -- Validate the Dnz_Chr_id
6940: x_lse_type => l_lse_type);
6941: -- Check if activity started successfully
6942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6945: RAISE OKL_API.G_EXCEPTION_ERROR;
6946: END IF;
6947: -- Validate the Dnz_Chr_id
6948: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6941: -- Check if activity started successfully
6942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6945: RAISE OKL_API.G_EXCEPTION_ERROR;
6946: END IF;
6947: -- Validate the Dnz_Chr_id
6948: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6949: x_return_status => x_return_status);
6947: -- Validate the Dnz_Chr_id
6948: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6949: x_return_status => x_return_status);
6950: -- Check if activity started successfully
6951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6954: RAISE OKL_API.G_EXCEPTION_ERROR;
6955: END IF;
6948: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
6949: x_return_status => x_return_status);
6950: -- Check if activity started successfully
6951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6954: RAISE OKL_API.G_EXCEPTION_ERROR;
6955: END IF;
6956: -- Now we are creating Add on Line
6949: x_return_status => x_return_status);
6950: -- Check if activity started successfully
6951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6954: RAISE OKL_API.G_EXCEPTION_ERROR;
6955: END IF;
6956: -- Now we are creating Add on Line
6957: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
6950: -- Check if activity started successfully
6951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6954: RAISE OKL_API.G_EXCEPTION_ERROR;
6955: END IF;
6956: -- Now we are creating Add on Line
6957: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
6958: -- The Record Should have the cle_id
6958: -- The Record Should have the cle_id
6959: -- if the given line style is Add on Line
6960: -- Since there could be mutilple records we have to accept
6961: l_clev_rec := p_clev_rec;
6962: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
6963: l_clev_rec.chr_id IS NULL) AND
6964: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6965: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6966: (l_clev_rec.cle_id IS NOT NULL OR
6961: l_clev_rec := p_clev_rec;
6962: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
6963: l_clev_rec.chr_id IS NULL) AND
6964: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6965: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6966: (l_clev_rec.cle_id IS NOT NULL OR
6967: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
6968: l_lty_code = G_ADDON_LINE_LTY_CODE AND
6969: l_lse_type = G_SLS_TYPE THEN
6963: l_clev_rec.chr_id IS NULL) AND
6964: (l_clev_rec.dnz_chr_id IS NOT NULL OR
6965: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
6966: (l_clev_rec.cle_id IS NOT NULL OR
6967: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
6968: l_lty_code = G_ADDON_LINE_LTY_CODE AND
6969: l_lse_type = G_SLS_TYPE THEN
6970: create_addon_line_item_rec(p_api_version => p_api_version,
6971: p_init_msg_list => p_init_msg_list,
6978: p_cimv_rec => p_cimv_rec,
6979: x_clev_rec => x_clev_rec,
6980: x_klev_rec => x_klev_rec,
6981: x_cimv_rec => x_cimv_rec);
6982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6985: RAISE OKL_API.G_EXCEPTION_ERROR;
6986: END IF;
6979: x_clev_rec => x_clev_rec,
6980: x_klev_rec => x_klev_rec,
6981: x_cimv_rec => x_cimv_rec);
6982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6985: RAISE OKL_API.G_EXCEPTION_ERROR;
6986: END IF;
6987: ELSE
6980: x_klev_rec => x_klev_rec,
6981: x_cimv_rec => x_cimv_rec);
6982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6985: RAISE OKL_API.G_EXCEPTION_ERROR;
6986: END IF;
6987: ELSE
6988: OKL_API.set_message(p_app_name => G_APP_NAME,
6981: x_cimv_rec => x_cimv_rec);
6982: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6985: RAISE OKL_API.G_EXCEPTION_ERROR;
6986: END IF;
6987: ELSE
6988: OKL_API.set_message(p_app_name => G_APP_NAME,
6989: p_msg_name => G_INVALID_CRITERIA,
6984: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6985: RAISE OKL_API.G_EXCEPTION_ERROR;
6986: END IF;
6987: ELSE
6988: OKL_API.set_message(p_app_name => G_APP_NAME,
6989: p_msg_name => G_INVALID_CRITERIA,
6990: p_token1 => G_COL_NAME_TOKEN,
6991: p_token1_value => 'Add on line');
6992: x_return_status := OKL_API.G_RET_STS_ERROR;
6988: OKL_API.set_message(p_app_name => G_APP_NAME,
6989: p_msg_name => G_INVALID_CRITERIA,
6990: p_token1 => G_COL_NAME_TOKEN,
6991: p_token1_value => 'Add on line');
6992: x_return_status := OKL_API.G_RET_STS_ERROR;
6993: RAISE OKL_API.G_EXCEPTION_ERROR;
6994: END IF;
6995: OKL_API.END_ACTIVITY (x_msg_count,
6996: x_msg_data );
6989: p_msg_name => G_INVALID_CRITERIA,
6990: p_token1 => G_COL_NAME_TOKEN,
6991: p_token1_value => 'Add on line');
6992: x_return_status := OKL_API.G_RET_STS_ERROR;
6993: RAISE OKL_API.G_EXCEPTION_ERROR;
6994: END IF;
6995: OKL_API.END_ACTIVITY (x_msg_count,
6996: x_msg_data );
6997: EXCEPTION
6991: p_token1_value => 'Add on line');
6992: x_return_status := OKL_API.G_RET_STS_ERROR;
6993: RAISE OKL_API.G_EXCEPTION_ERROR;
6994: END IF;
6995: OKL_API.END_ACTIVITY (x_msg_count,
6996: x_msg_data );
6997: EXCEPTION
6998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6999: IF get_fa_id%ISOPEN THEN
6994: END IF;
6995: OKL_API.END_ACTIVITY (x_msg_count,
6996: x_msg_data );
6997: EXCEPTION
6998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6999: IF get_fa_id%ISOPEN THEN
7000: CLOSE get_fa_id;
7001: END IF;
7002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6998: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6999: IF get_fa_id%ISOPEN THEN
7000: CLOSE get_fa_id;
7001: END IF;
7002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7003: l_api_name,
7004: G_PKG_NAME,
7005: 'OKL_API.G_RET_STS_ERROR',
7006: x_msg_count,
7001: END IF;
7002: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7003: l_api_name,
7004: G_PKG_NAME,
7005: 'OKL_API.G_RET_STS_ERROR',
7006: x_msg_count,
7007: x_msg_data,
7008: '_PVT');
7009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7005: 'OKL_API.G_RET_STS_ERROR',
7006: x_msg_count,
7007: x_msg_data,
7008: '_PVT');
7009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7010: IF get_fa_id%ISOPEN THEN
7011: CLOSE get_fa_id;
7012: END IF;
7013: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7010: IF get_fa_id%ISOPEN THEN
7011: CLOSE get_fa_id;
7012: END IF;
7013: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7014: l_api_name,
7015: G_PKG_NAME,
7016: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7017: x_msg_count,
7012: END IF;
7013: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7014: l_api_name,
7015: G_PKG_NAME,
7016: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7017: x_msg_count,
7018: x_msg_data,
7019: '_PVT');
7020: WHEN OTHERS THEN
7020: WHEN OTHERS THEN
7021: IF get_fa_id%ISOPEN THEN
7022: CLOSE get_fa_id;
7023: END IF;
7024: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7025: l_api_name,
7026: G_PKG_NAME,
7027: 'OTHERS',
7028: x_msg_count,
7031: END create_addon_line_rec;
7032: -------------------------------------------------------------------------------------------------------
7033: Procedure Update_addon_line_rec(
7034: p_api_version IN NUMBER,
7035: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7036: x_return_status OUT NOCOPY VARCHAR2,
7037: x_msg_count OUT NOCOPY NUMBER,
7038: x_msg_data OUT NOCOPY VARCHAR2,
7039: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
7079: AND lse2.lty_code = G_FIN_LINE_LTY_CODE
7080: AND lse2.id = stl.lse_id
7081: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
7082: BEGIN
7083: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7084: -- Call start_activity to create savepoint, check compatibility
7085: -- and initialize message list
7086: x_return_status := OKL_API.START_ACTIVITY (
7087: l_api_name
7082: BEGIN
7083: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7084: -- Call start_activity to create savepoint, check compatibility
7085: -- and initialize message list
7086: x_return_status := OKL_API.START_ACTIVITY (
7087: l_api_name
7088: ,p_init_msg_list
7089: ,'_PVT'
7090: ,x_return_status);
7088: ,p_init_msg_list
7089: ,'_PVT'
7090: ,x_return_status);
7091: -- Check if activity started successfully
7092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7094: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7095: RAISE OKL_API.G_EXCEPTION_ERROR;
7096: END IF;
7089: ,'_PVT'
7090: ,x_return_status);
7091: -- Check if activity started successfully
7092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7094: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7095: RAISE OKL_API.G_EXCEPTION_ERROR;
7096: END IF;
7097: l_clev_rec := p_clev_rec;
7090: ,x_return_status);
7091: -- Check if activity started successfully
7092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7094: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7095: RAISE OKL_API.G_EXCEPTION_ERROR;
7096: END IF;
7097: l_clev_rec := p_clev_rec;
7098: x_return_status := get_sts_code(p_dnz_chr_id => null,
7091: -- Check if activity started successfully
7092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7093: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7094: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7095: RAISE OKL_API.G_EXCEPTION_ERROR;
7096: END IF;
7097: l_clev_rec := p_clev_rec;
7098: x_return_status := get_sts_code(p_dnz_chr_id => null,
7099: p_cle_id => l_clev_rec.cle_id,
7097: l_clev_rec := p_clev_rec;
7098: x_return_status := get_sts_code(p_dnz_chr_id => null,
7099: p_cle_id => l_clev_rec.cle_id,
7100: x_sts_code => l_clev_rec.sts_code);
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: x_return_status := get_sts_code(p_dnz_chr_id => null,
7099: p_cle_id => l_clev_rec.cle_id,
7100: x_sts_code => l_clev_rec.sts_code);
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: validate_sts_code(p_clev_rec => l_clev_rec,
7099: p_cle_id => l_clev_rec.cle_id,
7100: x_sts_code => l_clev_rec.sts_code);
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: validate_sts_code(p_clev_rec => l_clev_rec,
7107: x_return_status => x_return_status);
7100: x_sts_code => l_clev_rec.sts_code);
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: validate_sts_code(p_clev_rec => l_clev_rec,
7107: x_return_status => x_return_status);
7108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7104: RAISE OKL_API.G_EXCEPTION_ERROR;
7105: END IF;
7106: validate_sts_code(p_clev_rec => l_clev_rec,
7107: x_return_status => x_return_status);
7108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7111: RAISE OKL_API.G_EXCEPTION_ERROR;
7112: END IF;
7105: END IF;
7106: validate_sts_code(p_clev_rec => l_clev_rec,
7107: x_return_status => x_return_status);
7108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7111: RAISE OKL_API.G_EXCEPTION_ERROR;
7112: END IF;
7113: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7106: validate_sts_code(p_clev_rec => l_clev_rec,
7107: x_return_status => x_return_status);
7108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7111: RAISE OKL_API.G_EXCEPTION_ERROR;
7112: END IF;
7113: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7114: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7107: x_return_status => x_return_status);
7108: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7109: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7110: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7111: RAISE OKL_API.G_EXCEPTION_ERROR;
7112: END IF;
7113: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7114: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7115: IF get_fa_id%NOTFOUND THEN
7112: END IF;
7113: OPEN get_fa_id(p_top_line => l_clev_rec.cle_id,
7114: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7115: IF get_fa_id%NOTFOUND THEN
7116: OKL_API.set_message(p_app_name => G_APP_NAME,
7117: p_msg_name => G_LINE_RECORD);
7118: RAISE OKL_API.G_EXCEPTION_ERROR;
7119: END IF;
7120: FETCH get_fa_id INTO ln_fa_id;
7114: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7115: IF get_fa_id%NOTFOUND THEN
7116: OKL_API.set_message(p_app_name => G_APP_NAME,
7117: p_msg_name => G_LINE_RECORD);
7118: RAISE OKL_API.G_EXCEPTION_ERROR;
7119: END IF;
7120: FETCH get_fa_id INTO ln_fa_id;
7121: CLOSE get_fa_id;
7122: -- To Check We Got the Valid info
7120: FETCH get_fa_id INTO ln_fa_id;
7121: CLOSE get_fa_id;
7122: -- To Check We Got the Valid info
7123: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
7124: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
7125: UPPER(p_new_yn) IS NULL) THEN
7126: OKL_API.set_message(p_app_name => G_APP_NAME,
7127: p_msg_name => G_INVALID_YN,
7128: p_token1 => G_COL_NAME_TOKEN,
7122: -- To Check We Got the Valid info
7123: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
7124: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
7125: UPPER(p_new_yn) IS NULL) THEN
7126: OKL_API.set_message(p_app_name => G_APP_NAME,
7127: p_msg_name => G_INVALID_YN,
7128: p_token1 => G_COL_NAME_TOKEN,
7129: p_token1_value => 'p_new_yn');
7130: -- Halt Validation
7127: p_msg_name => G_INVALID_YN,
7128: p_token1 => G_COL_NAME_TOKEN,
7129: p_token1_value => 'p_new_yn');
7130: -- Halt Validation
7131: RAISE OKL_API.G_EXCEPTION_ERROR;
7132: END IF;
7133: -- Validate to see if the asset_number given is not null
7134: -- and also Validate asset_number does not exists
7135: -- in OKL_TXL_ASSETS_V
7138: p_asset_number => p_asset_number,
7139: p_kle_id => ln_fa_id,
7140: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7141: -- Check if activity started successfully
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7139: p_kle_id => ln_fa_id,
7140: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7141: -- Check if activity started successfully
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: END IF;
7140: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
7141: -- Check if activity started successfully
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: END IF;
7148: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7141: -- Check if activity started successfully
7142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7145: RAISE OKL_API.G_EXCEPTION_ERROR;
7146: END IF;
7147: END IF;
7148: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7149: x_lse_id => l_clev_rec.lse_id);
7146: END IF;
7147: END IF;
7148: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7149: x_lse_id => l_clev_rec.lse_id);
7150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_ERROR;
7154: END IF;
7147: END IF;
7148: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7149: x_lse_id => l_clev_rec.lse_id);
7150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_ERROR;
7154: END IF;
7155: -- Validate Line Style id and get the line type code
7148: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
7149: x_lse_id => l_clev_rec.lse_id);
7150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_ERROR;
7154: END IF;
7155: -- Validate Line Style id and get the line type code
7156: -- and line style type for further processing
7149: x_lse_id => l_clev_rec.lse_id);
7150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7152: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7153: RAISE OKL_API.G_EXCEPTION_ERROR;
7154: END IF;
7155: -- Validate Line Style id and get the line type code
7156: -- and line style type for further processing
7157: validate_lse_id(p_clev_rec => l_clev_rec,
7158: x_return_status => x_return_status,
7159: x_lty_code => l_lty_code,
7160: x_lse_type => l_lse_type);
7161: -- Check if activity started successfully
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7159: x_lty_code => l_lty_code,
7160: x_lse_type => l_lse_type);
7161: -- Check if activity started successfully
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: -- Validate the Dnz_Chr_id
7160: x_lse_type => l_lse_type);
7161: -- Check if activity started successfully
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: -- Validate the Dnz_Chr_id
7168: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7161: -- Check if activity started successfully
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: -- Validate the Dnz_Chr_id
7168: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7169: x_return_status => x_return_status);
7167: -- Validate the Dnz_Chr_id
7168: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7169: x_return_status => x_return_status);
7170: -- Check if activity started successfully
7171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7174: RAISE OKL_API.G_EXCEPTION_ERROR;
7175: END IF;
7168: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
7169: x_return_status => x_return_status);
7170: -- Check if activity started successfully
7171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7174: RAISE OKL_API.G_EXCEPTION_ERROR;
7175: END IF;
7176: -- Now we are updating Add on Line
7169: x_return_status => x_return_status);
7170: -- Check if activity started successfully
7171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7174: RAISE OKL_API.G_EXCEPTION_ERROR;
7175: END IF;
7176: -- Now we are updating Add on Line
7177: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7170: -- Check if activity started successfully
7171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7174: RAISE OKL_API.G_EXCEPTION_ERROR;
7175: END IF;
7176: -- Now we are updating Add on Line
7177: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7178: -- The Record Should have the cle_id
7177: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7178: -- The Record Should have the cle_id
7179: -- if the given line style is Add on Line
7180: -- Since there could be mutilple records we have to accept
7181: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7182: l_clev_rec.chr_id IS NULL) AND
7183: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7184: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7185: (l_clev_rec.cle_id IS NOT NULL OR
7180: -- Since there could be mutilple records we have to accept
7181: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7182: l_clev_rec.chr_id IS NULL) AND
7183: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7184: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7185: (l_clev_rec.cle_id IS NOT NULL OR
7186: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7187: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7188: l_lse_type = G_SLS_TYPE THEN
7182: l_clev_rec.chr_id IS NULL) AND
7183: (l_clev_rec.dnz_chr_id IS NOT NULL OR
7184: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7185: (l_clev_rec.cle_id IS NOT NULL OR
7186: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7187: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7188: l_lse_type = G_SLS_TYPE THEN
7189: update_addon_line_item_rec(p_api_version => p_api_version,
7190: p_init_msg_list => p_init_msg_list,
7197: p_cimv_rec => p_cimv_rec,
7198: x_clev_rec => x_clev_rec,
7199: x_klev_rec => x_klev_rec,
7200: x_cimv_rec => x_cimv_rec);
7201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7204: RAISE OKL_API.G_EXCEPTION_ERROR;
7205: END IF;
7198: x_clev_rec => x_clev_rec,
7199: x_klev_rec => x_klev_rec,
7200: x_cimv_rec => x_cimv_rec);
7201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7204: RAISE OKL_API.G_EXCEPTION_ERROR;
7205: END IF;
7206: ELSE
7199: x_klev_rec => x_klev_rec,
7200: x_cimv_rec => x_cimv_rec);
7201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7204: RAISE OKL_API.G_EXCEPTION_ERROR;
7205: END IF;
7206: ELSE
7207: OKL_API.set_message(p_app_name => G_APP_NAME,
7200: x_cimv_rec => x_cimv_rec);
7201: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7204: RAISE OKL_API.G_EXCEPTION_ERROR;
7205: END IF;
7206: ELSE
7207: OKL_API.set_message(p_app_name => G_APP_NAME,
7208: p_msg_name => G_INVALID_CRITERIA,
7203: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7204: RAISE OKL_API.G_EXCEPTION_ERROR;
7205: END IF;
7206: ELSE
7207: OKL_API.set_message(p_app_name => G_APP_NAME,
7208: p_msg_name => G_INVALID_CRITERIA,
7209: p_token1 => G_COL_NAME_TOKEN,
7210: p_token1_value => 'Add on line');
7211: x_return_status := OKL_API.G_RET_STS_ERROR;
7207: OKL_API.set_message(p_app_name => G_APP_NAME,
7208: p_msg_name => G_INVALID_CRITERIA,
7209: p_token1 => G_COL_NAME_TOKEN,
7210: p_token1_value => 'Add on line');
7211: x_return_status := OKL_API.G_RET_STS_ERROR;
7212: RAISE OKL_API.G_EXCEPTION_ERROR;
7213: END IF;
7214: OKL_API.END_ACTIVITY (x_msg_count,
7215: x_msg_data );
7208: p_msg_name => G_INVALID_CRITERIA,
7209: p_token1 => G_COL_NAME_TOKEN,
7210: p_token1_value => 'Add on line');
7211: x_return_status := OKL_API.G_RET_STS_ERROR;
7212: RAISE OKL_API.G_EXCEPTION_ERROR;
7213: END IF;
7214: OKL_API.END_ACTIVITY (x_msg_count,
7215: x_msg_data );
7216: EXCEPTION
7210: p_token1_value => 'Add on line');
7211: x_return_status := OKL_API.G_RET_STS_ERROR;
7212: RAISE OKL_API.G_EXCEPTION_ERROR;
7213: END IF;
7214: OKL_API.END_ACTIVITY (x_msg_count,
7215: x_msg_data );
7216: EXCEPTION
7217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7218: IF get_fa_id%ISOPEN THEN
7213: END IF;
7214: OKL_API.END_ACTIVITY (x_msg_count,
7215: x_msg_data );
7216: EXCEPTION
7217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7218: IF get_fa_id%ISOPEN THEN
7219: CLOSE get_fa_id;
7220: END IF;
7221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7218: IF get_fa_id%ISOPEN THEN
7219: CLOSE get_fa_id;
7220: END IF;
7221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7222: l_api_name,
7223: G_PKG_NAME,
7224: 'OKL_API.G_RET_STS_ERROR',
7225: x_msg_count,
7220: END IF;
7221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7222: l_api_name,
7223: G_PKG_NAME,
7224: 'OKL_API.G_RET_STS_ERROR',
7225: x_msg_count,
7226: x_msg_data,
7227: '_PVT');
7228: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7224: 'OKL_API.G_RET_STS_ERROR',
7225: x_msg_count,
7226: x_msg_data,
7227: '_PVT');
7228: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7229: IF get_fa_id%ISOPEN THEN
7230: CLOSE get_fa_id;
7231: END IF;
7232: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7228: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7229: IF get_fa_id%ISOPEN THEN
7230: CLOSE get_fa_id;
7231: END IF;
7232: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7233: l_api_name,
7234: G_PKG_NAME,
7235: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7236: x_msg_count,
7231: END IF;
7232: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7233: l_api_name,
7234: G_PKG_NAME,
7235: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7236: x_msg_count,
7237: x_msg_data,
7238: '_PVT');
7239: WHEN OTHERS THEN
7239: WHEN OTHERS THEN
7240: IF get_fa_id%ISOPEN THEN
7241: CLOSE get_fa_id;
7242: END IF;
7243: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7244: l_api_name,
7245: G_PKG_NAME,
7246: 'OTHERS',
7247: x_msg_count,
7250: END Update_addon_line_rec;
7251: -------------------------------------------------------------------------------------------------------
7252: PROCEDURE delete_addon_line_rec(
7253: p_api_version IN NUMBER,
7254: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7255: x_return_status OUT NOCOPY VARCHAR2,
7256: x_msg_count OUT NOCOPY NUMBER,
7257: x_msg_data OUT NOCOPY VARCHAR2,
7258: p_clev_rec IN clev_rec_type,
7264: -- Variables for validation of line style
7265: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7266: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
7267: BEGIN
7268: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7269: -- Call start_activity to create savepoint, check compatibility
7270: -- and initialize message list
7271: x_return_status := OKL_API.START_ACTIVITY (
7272: l_api_name
7267: BEGIN
7268: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7269: -- Call start_activity to create savepoint, check compatibility
7270: -- and initialize message list
7271: x_return_status := OKL_API.START_ACTIVITY (
7272: l_api_name
7273: ,p_init_msg_list
7274: ,'_PVT'
7275: ,x_return_status);
7273: ,p_init_msg_list
7274: ,'_PVT'
7275: ,x_return_status);
7276: -- Check if activity started successfully
7277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7280: RAISE OKL_API.G_EXCEPTION_ERROR;
7281: END IF;
7274: ,'_PVT'
7275: ,x_return_status);
7276: -- Check if activity started successfully
7277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7280: RAISE OKL_API.G_EXCEPTION_ERROR;
7281: END IF;
7282: OKL_API.init_msg_list(p_init_msg_list);
7275: ,x_return_status);
7276: -- Check if activity started successfully
7277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7280: RAISE OKL_API.G_EXCEPTION_ERROR;
7281: END IF;
7282: OKL_API.init_msg_list(p_init_msg_list);
7283: l_delete_clev_rec := p_clev_rec;
7276: -- Check if activity started successfully
7277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7280: RAISE OKL_API.G_EXCEPTION_ERROR;
7281: END IF;
7282: OKL_API.init_msg_list(p_init_msg_list);
7283: l_delete_clev_rec := p_clev_rec;
7284: -- To Get the cle top Line Record
7278: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7280: RAISE OKL_API.G_EXCEPTION_ERROR;
7281: END IF;
7282: OKL_API.init_msg_list(p_init_msg_list);
7283: l_delete_clev_rec := p_clev_rec;
7284: -- To Get the cle top Line Record
7285: x_return_status := get_rec_clev(p_clev_rec.id,
7286: l_delete_clev_rec);
7283: l_delete_clev_rec := p_clev_rec;
7284: -- To Get the cle top Line Record
7285: x_return_status := get_rec_clev(p_clev_rec.id,
7286: l_delete_clev_rec);
7287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7288: OKL_API.set_message(p_app_name => G_APP_NAME,
7289: p_msg_name => G_FETCHING_INFO,
7290: p_token1 => G_REC_NAME_TOKEN,
7291: p_token1_value => 'OKC_K_LINES_V Record');
7284: -- To Get the cle top Line Record
7285: x_return_status := get_rec_clev(p_clev_rec.id,
7286: l_delete_clev_rec);
7287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7288: OKL_API.set_message(p_app_name => G_APP_NAME,
7289: p_msg_name => G_FETCHING_INFO,
7290: p_token1 => G_REC_NAME_TOKEN,
7291: p_token1_value => 'OKC_K_LINES_V Record');
7292: RAISE G_EXCEPTION_HALT_VALIDATION;
7289: p_msg_name => G_FETCHING_INFO,
7290: p_token1 => G_REC_NAME_TOKEN,
7291: p_token1_value => 'OKC_K_LINES_V Record');
7292: RAISE G_EXCEPTION_HALT_VALIDATION;
7293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7294: OKL_API.set_message(p_app_name => G_APP_NAME,
7295: p_msg_name => G_FETCHING_INFO,
7296: p_token1 => G_REC_NAME_TOKEN,
7297: p_token1_value => 'OKC_K_LINES_V Record');
7290: p_token1 => G_REC_NAME_TOKEN,
7291: p_token1_value => 'OKC_K_LINES_V Record');
7292: RAISE G_EXCEPTION_HALT_VALIDATION;
7293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7294: OKL_API.set_message(p_app_name => G_APP_NAME,
7295: p_msg_name => G_FETCHING_INFO,
7296: p_token1 => G_REC_NAME_TOKEN,
7297: p_token1_value => 'OKC_K_LINES_V Record');
7298: RAISE G_EXCEPTION_HALT_VALIDATION;
7299: END IF;
7300: -- To Get the kle top Line Record
7301: x_return_status := get_rec_klev(p_clev_rec.id,
7302: l_delete_klev_rec);
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: OKL_API.set_message(p_app_name => G_APP_NAME,
7305: p_msg_name => G_FETCHING_INFO,
7306: p_token1 => G_REC_NAME_TOKEN,
7307: p_token1_value => 'OKL_K_LINES_V Record');
7300: -- To Get the kle top Line Record
7301: x_return_status := get_rec_klev(p_clev_rec.id,
7302: l_delete_klev_rec);
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: OKL_API.set_message(p_app_name => G_APP_NAME,
7305: p_msg_name => G_FETCHING_INFO,
7306: p_token1 => G_REC_NAME_TOKEN,
7307: p_token1_value => 'OKL_K_LINES_V Record');
7308: RAISE G_EXCEPTION_HALT_VALIDATION;
7305: p_msg_name => G_FETCHING_INFO,
7306: p_token1 => G_REC_NAME_TOKEN,
7307: p_token1_value => 'OKL_K_LINES_V Record');
7308: RAISE G_EXCEPTION_HALT_VALIDATION;
7309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7310: OKL_API.set_message(p_app_name => G_APP_NAME,
7311: p_msg_name => G_FETCHING_INFO,
7312: p_token1 => G_REC_NAME_TOKEN,
7313: p_token1_value => 'OKL_K_LINES_V Record');
7306: p_token1 => G_REC_NAME_TOKEN,
7307: p_token1_value => 'OKL_K_LINES_V Record');
7308: RAISE G_EXCEPTION_HALT_VALIDATION;
7309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7310: OKL_API.set_message(p_app_name => G_APP_NAME,
7311: p_msg_name => G_FETCHING_INFO,
7312: p_token1 => G_REC_NAME_TOKEN,
7313: p_token1_value => 'OKL_K_LINES_V Record');
7314: RAISE G_EXCEPTION_HALT_VALIDATION;
7313: p_token1_value => 'OKL_K_LINES_V Record');
7314: RAISE G_EXCEPTION_HALT_VALIDATION;
7315: END IF;
7316: IF l_delete_klev_rec.id <> l_delete_clev_rec.id THEN
7317: OKL_API.set_message(p_app_name => G_APP_NAME,
7318: p_msg_name => G_LINE_RECORD);
7319: RAISE G_EXCEPTION_HALT_VALIDATION;
7320: END IF;
7321: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7319: RAISE G_EXCEPTION_HALT_VALIDATION;
7320: END IF;
7321: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7322: x_return_status => x_return_status);
7323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7326: RAISE OKL_API.G_EXCEPTION_ERROR;
7327: END IF;
7320: END IF;
7321: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7322: x_return_status => x_return_status);
7323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7326: RAISE OKL_API.G_EXCEPTION_ERROR;
7327: END IF;
7328: -- Validate Line Style id and get the line type code
7321: validate_sts_code(p_clev_rec => l_delete_clev_rec,
7322: x_return_status => x_return_status);
7323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7326: RAISE OKL_API.G_EXCEPTION_ERROR;
7327: END IF;
7328: -- Validate Line Style id and get the line type code
7329: -- and line style type for further processing
7322: x_return_status => x_return_status);
7323: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7325: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7326: RAISE OKL_API.G_EXCEPTION_ERROR;
7327: END IF;
7328: -- Validate Line Style id and get the line type code
7329: -- and line style type for further processing
7330: validate_lse_id(p_clev_rec => l_delete_clev_rec,
7331: x_return_status => x_return_status,
7332: x_lty_code => l_lty_code,
7333: x_lse_type => l_lse_type);
7334: -- Check if activity started successfully
7335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7338: RAISE OKL_API.G_EXCEPTION_ERROR;
7339: END IF;
7332: x_lty_code => l_lty_code,
7333: x_lse_type => l_lse_type);
7334: -- Check if activity started successfully
7335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7338: RAISE OKL_API.G_EXCEPTION_ERROR;
7339: END IF;
7340: -- Validate the Dnz_Chr_id
7333: x_lse_type => l_lse_type);
7334: -- Check if activity started successfully
7335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7338: RAISE OKL_API.G_EXCEPTION_ERROR;
7339: END IF;
7340: -- Validate the Dnz_Chr_id
7341: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7334: -- Check if activity started successfully
7335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7336: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7337: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7338: RAISE OKL_API.G_EXCEPTION_ERROR;
7339: END IF;
7340: -- Validate the Dnz_Chr_id
7341: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7342: x_return_status => x_return_status);
7340: -- Validate the Dnz_Chr_id
7341: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7342: x_return_status => x_return_status);
7343: -- Check if activity started successfully
7344: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7346: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_ERROR;
7348: END IF;
7341: validate_dnz_chr_id(p_clev_rec => l_delete_clev_rec,
7342: x_return_status => x_return_status);
7343: -- Check if activity started successfully
7344: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7346: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_ERROR;
7348: END IF;
7349: -- Now we are deleting Add on Line
7342: x_return_status => x_return_status);
7343: -- Check if activity started successfully
7344: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7346: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_ERROR;
7348: END IF;
7349: -- Now we are deleting Add on Line
7350: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7343: -- Check if activity started successfully
7344: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7345: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7346: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_ERROR;
7348: END IF;
7349: -- Now we are deleting Add on Line
7350: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7351: -- The Record Should have the cle_id
7350: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
7351: -- The Record Should have the cle_id
7352: -- if the given line style is Add on Line
7353: -- Since there could be mutilple records we have to accept
7354: IF (l_delete_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7355: l_delete_clev_rec.chr_id IS NULL) AND
7356: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7357: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7358: (l_delete_clev_rec.cle_id IS NOT NULL OR
7353: -- Since there could be mutilple records we have to accept
7354: IF (l_delete_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
7355: l_delete_clev_rec.chr_id IS NULL) AND
7356: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7357: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7358: (l_delete_clev_rec.cle_id IS NOT NULL OR
7359: l_delete_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7360: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7361: l_lse_type = G_SLS_TYPE THEN
7355: l_delete_clev_rec.chr_id IS NULL) AND
7356: (l_delete_clev_rec.dnz_chr_id IS NOT NULL OR
7357: l_delete_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
7358: (l_delete_clev_rec.cle_id IS NOT NULL OR
7359: l_delete_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
7360: l_lty_code = G_ADDON_LINE_LTY_CODE AND
7361: l_lse_type = G_SLS_TYPE THEN
7362: OKL_CONTRACT_PUB.delete_contract_line(
7363: p_api_version => p_api_version,
7365: x_return_status => x_return_status,
7366: x_msg_count => x_msg_count,
7367: x_msg_data => x_msg_data,
7368: p_line_id => l_delete_clev_rec.id);
7369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7370: OKL_API.set_message(p_app_name => G_APP_NAME,
7371: p_msg_name => G_DELETING_ADDON_LINE);
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7366: x_msg_count => x_msg_count,
7367: x_msg_data => x_msg_data,
7368: p_line_id => l_delete_clev_rec.id);
7369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7370: OKL_API.set_message(p_app_name => G_APP_NAME,
7371: p_msg_name => G_DELETING_ADDON_LINE);
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7374: OKL_API.set_message(p_app_name => G_APP_NAME,
7368: p_line_id => l_delete_clev_rec.id);
7369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7370: OKL_API.set_message(p_app_name => G_APP_NAME,
7371: p_msg_name => G_DELETING_ADDON_LINE);
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7374: OKL_API.set_message(p_app_name => G_APP_NAME,
7375: p_msg_name => G_DELETING_ADDON_LINE);
7376: RAISE OKL_API.G_EXCEPTION_ERROR;
7369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7370: OKL_API.set_message(p_app_name => G_APP_NAME,
7371: p_msg_name => G_DELETING_ADDON_LINE);
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7374: OKL_API.set_message(p_app_name => G_APP_NAME,
7375: p_msg_name => G_DELETING_ADDON_LINE);
7376: RAISE OKL_API.G_EXCEPTION_ERROR;
7377: END IF;
7370: OKL_API.set_message(p_app_name => G_APP_NAME,
7371: p_msg_name => G_DELETING_ADDON_LINE);
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7374: OKL_API.set_message(p_app_name => G_APP_NAME,
7375: p_msg_name => G_DELETING_ADDON_LINE);
7376: RAISE OKL_API.G_EXCEPTION_ERROR;
7377: END IF;
7378: ELSE
7372: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7373: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7374: OKL_API.set_message(p_app_name => G_APP_NAME,
7375: p_msg_name => G_DELETING_ADDON_LINE);
7376: RAISE OKL_API.G_EXCEPTION_ERROR;
7377: END IF;
7378: ELSE
7379: OKL_API.set_message(p_app_name => G_APP_NAME,
7380: p_msg_name => G_INVALID_CRITERIA,
7375: p_msg_name => G_DELETING_ADDON_LINE);
7376: RAISE OKL_API.G_EXCEPTION_ERROR;
7377: END IF;
7378: ELSE
7379: OKL_API.set_message(p_app_name => G_APP_NAME,
7380: p_msg_name => G_INVALID_CRITERIA,
7381: p_token1 => G_COL_NAME_TOKEN,
7382: p_token1_value => 'Add on line');
7383: x_return_status := OKL_API.G_RET_STS_ERROR;
7379: OKL_API.set_message(p_app_name => G_APP_NAME,
7380: p_msg_name => G_INVALID_CRITERIA,
7381: p_token1 => G_COL_NAME_TOKEN,
7382: p_token1_value => 'Add on line');
7383: x_return_status := OKL_API.G_RET_STS_ERROR;
7384: RAISE OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386: -- We need to the below since we need to calculate the OEC again
7387: x_clev_rec := l_delete_clev_rec;
7380: p_msg_name => G_INVALID_CRITERIA,
7381: p_token1 => G_COL_NAME_TOKEN,
7382: p_token1_value => 'Add on line');
7383: x_return_status := OKL_API.G_RET_STS_ERROR;
7384: RAISE OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386: -- We need to the below since we need to calculate the OEC again
7387: x_clev_rec := l_delete_clev_rec;
7388: OKL_API.END_ACTIVITY (x_msg_count,
7384: RAISE OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386: -- We need to the below since we need to calculate the OEC again
7387: x_clev_rec := l_delete_clev_rec;
7388: OKL_API.END_ACTIVITY (x_msg_count,
7389: x_msg_data );
7390: EXCEPTION
7391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7387: x_clev_rec := l_delete_clev_rec;
7388: OKL_API.END_ACTIVITY (x_msg_count,
7389: x_msg_data );
7390: EXCEPTION
7391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7393: l_api_name,
7394: G_PKG_NAME,
7395: 'OKL_API.G_RET_STS_ERROR',
7388: OKL_API.END_ACTIVITY (x_msg_count,
7389: x_msg_data );
7390: EXCEPTION
7391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7393: l_api_name,
7394: G_PKG_NAME,
7395: 'OKL_API.G_RET_STS_ERROR',
7396: x_msg_count,
7391: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7393: l_api_name,
7394: G_PKG_NAME,
7395: 'OKL_API.G_RET_STS_ERROR',
7396: x_msg_count,
7397: x_msg_data,
7398: '_PVT');
7399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7395: 'OKL_API.G_RET_STS_ERROR',
7396: x_msg_count,
7397: x_msg_data,
7398: '_PVT');
7399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7401: l_api_name,
7402: G_PKG_NAME,
7403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7396: x_msg_count,
7397: x_msg_data,
7398: '_PVT');
7399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7401: l_api_name,
7402: G_PKG_NAME,
7403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7404: x_msg_count,
7399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7400: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7401: l_api_name,
7402: G_PKG_NAME,
7403: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7404: x_msg_count,
7405: x_msg_data,
7406: '_PVT');
7407: WHEN OTHERS THEN
7404: x_msg_count,
7405: x_msg_data,
7406: '_PVT');
7407: WHEN OTHERS THEN
7408: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7409: l_api_name,
7410: G_PKG_NAME,
7411: 'OTHERS',
7412: x_msg_count,
7414: '_PVT');
7415: END delete_addon_line_rec;
7416: -------------------------------------------------------------------------------------------------
7417: PROCEDURE Create_inst_line(p_api_version IN NUMBER,
7418: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7419: x_return_status OUT NOCOPY VARCHAR2,
7420: x_msg_count OUT NOCOPY NUMBER,
7421: x_msg_data OUT NOCOPY VARCHAR2,
7422: -- #4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7430:
7431: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTS_LINE';
7432: BEGIN
7433:
7434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7435: -- Call start_activity to create savepoint, check compatibility
7436: -- and initialize message list
7437: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7438: ,p_init_msg_list
7433:
7434: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7435: -- Call start_activity to create savepoint, check compatibility
7436: -- and initialize message list
7437: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7438: ,p_init_msg_list
7439: ,'_PVT'
7440: ,x_return_status);
7441: -- Check if activity started successfully
7438: ,p_init_msg_list
7439: ,'_PVT'
7440: ,x_return_status);
7441: -- Check if activity started successfully
7442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7443: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7444: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7445: RAISE OKL_API.G_EXCEPTION_ERROR;
7446: END IF;
7439: ,'_PVT'
7440: ,x_return_status);
7441: -- Check if activity started successfully
7442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7443: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7444: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7445: RAISE OKL_API.G_EXCEPTION_ERROR;
7446: END IF;
7447: -- 4414408 redundant validation
7440: ,x_return_status);
7441: -- Check if activity started successfully
7442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7443: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7444: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7445: RAISE OKL_API.G_EXCEPTION_ERROR;
7446: END IF;
7447: -- 4414408 redundant validation
7448: /*
7441: -- Check if activity started successfully
7442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7443: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7444: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7445: RAISE OKL_API.G_EXCEPTION_ERROR;
7446: END IF;
7447: -- 4414408 redundant validation
7448: /*
7449: -- Check the cle_id that is of the top Fin Asset line
7450: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7451: p_lty_code => p_lty_code,
7452: x_lty_code => l_lty_code,
7453: x_return_status => x_return_status);
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: p_lty_code => p_lty_code,
7452: x_lty_code => l_lty_code,
7453: x_return_status => x_return_status);
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: */
7452: x_lty_code => l_lty_code,
7453: x_return_status => x_return_status);
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: */
7460: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7453: x_return_status => x_return_status);
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: */
7460: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7461: -- which line are creating under which line
7465:
7466: -- # 4414408 use new function default_contract_line_values
7467: /*
7468: IF (p_clev_rec.sts_code IS NULL OR
7469: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7470: x_return_status := get_sts_code(p_dnz_chr_id => null,
7471: p_cle_id => p_clev_rec.cle_id,
7472: x_sts_code => r_clev_rec.sts_code);
7473: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7469: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7470: x_return_status := get_sts_code(p_dnz_chr_id => null,
7471: p_cle_id => p_clev_rec.cle_id,
7472: x_sts_code => r_clev_rec.sts_code);
7473: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7475: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7476: RAISE OKL_API.G_EXCEPTION_ERROR;
7477: END IF;
7470: x_return_status := get_sts_code(p_dnz_chr_id => null,
7471: p_cle_id => p_clev_rec.cle_id,
7472: x_sts_code => r_clev_rec.sts_code);
7473: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7475: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7476: RAISE OKL_API.G_EXCEPTION_ERROR;
7477: END IF;
7478: END IF;
7471: p_cle_id => p_clev_rec.cle_id,
7472: x_sts_code => r_clev_rec.sts_code);
7473: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7475: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7476: RAISE OKL_API.G_EXCEPTION_ERROR;
7477: END IF;
7478: END IF;
7479: IF (p_clev_rec.end_date IS NULL OR
7472: x_sts_code => r_clev_rec.sts_code);
7473: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7475: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7476: RAISE OKL_API.G_EXCEPTION_ERROR;
7477: END IF;
7478: END IF;
7479: IF (p_clev_rec.end_date IS NULL OR
7480: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7476: RAISE OKL_API.G_EXCEPTION_ERROR;
7477: END IF;
7478: END IF;
7479: IF (p_clev_rec.end_date IS NULL OR
7480: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7481: x_return_status := get_end_date(p_dnz_chr_id => null,
7482: p_cle_id => p_clev_rec.cle_id,
7483: x_end_date => r_clev_rec.end_date);
7484: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7480: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7481: x_return_status := get_end_date(p_dnz_chr_id => null,
7482: p_cle_id => p_clev_rec.cle_id,
7483: x_end_date => r_clev_rec.end_date);
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 := get_end_date(p_dnz_chr_id => null,
7482: p_cle_id => p_clev_rec.cle_id,
7483: x_end_date => r_clev_rec.end_date);
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 => p_clev_rec.cle_id,
7483: x_end_date => r_clev_rec.end_date);
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: IF (p_clev_rec.start_date IS NULL OR
7483: x_end_date => r_clev_rec.end_date);
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: IF (p_clev_rec.start_date IS NULL OR
7491: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7487: RAISE OKL_API.G_EXCEPTION_ERROR;
7488: END IF;
7489: END IF;
7490: IF (p_clev_rec.start_date IS NULL OR
7491: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7492: x_return_status := get_start_date(p_dnz_chr_id => null,
7493: p_cle_id => p_clev_rec.cle_id,
7494: x_start_date => r_clev_rec.start_date);
7495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7491: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7492: x_return_status := get_start_date(p_dnz_chr_id => null,
7493: p_cle_id => p_clev_rec.cle_id,
7494: x_start_date => r_clev_rec.start_date);
7495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7498: RAISE OKL_API.G_EXCEPTION_ERROR;
7499: END IF;
7492: x_return_status := get_start_date(p_dnz_chr_id => null,
7493: p_cle_id => p_clev_rec.cle_id,
7494: x_start_date => r_clev_rec.start_date);
7495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7498: RAISE OKL_API.G_EXCEPTION_ERROR;
7499: END IF;
7500: END IF;
7493: p_cle_id => p_clev_rec.cle_id,
7494: x_start_date => r_clev_rec.start_date);
7495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7498: RAISE OKL_API.G_EXCEPTION_ERROR;
7499: END IF;
7500: END IF;
7501: IF (p_clev_rec.currency_code IS NULL OR
7494: x_start_date => r_clev_rec.start_date);
7495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7498: RAISE OKL_API.G_EXCEPTION_ERROR;
7499: END IF;
7500: END IF;
7501: IF (p_clev_rec.currency_code IS NULL OR
7502: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7498: RAISE OKL_API.G_EXCEPTION_ERROR;
7499: END IF;
7500: END IF;
7501: IF (p_clev_rec.currency_code IS NULL OR
7502: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7503: x_return_status := get_currency_code(p_dnz_chr_id => null,
7504: p_cle_id => p_clev_rec.cle_id,
7505: x_currency_code => r_clev_rec.currency_code);
7506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7502: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7503: x_return_status := get_currency_code(p_dnz_chr_id => null,
7504: p_cle_id => p_clev_rec.cle_id,
7505: x_currency_code => r_clev_rec.currency_code);
7506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7509: RAISE OKL_API.G_EXCEPTION_ERROR;
7510: END IF;
7503: x_return_status := get_currency_code(p_dnz_chr_id => null,
7504: p_cle_id => p_clev_rec.cle_id,
7505: x_currency_code => r_clev_rec.currency_code);
7506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7509: RAISE OKL_API.G_EXCEPTION_ERROR;
7510: END IF;
7511: END IF;
7504: p_cle_id => p_clev_rec.cle_id,
7505: x_currency_code => r_clev_rec.currency_code);
7506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7509: RAISE OKL_API.G_EXCEPTION_ERROR;
7510: END IF;
7511: END IF;
7512: */
7505: x_currency_code => r_clev_rec.currency_code);
7506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7509: RAISE OKL_API.G_EXCEPTION_ERROR;
7510: END IF;
7511: END IF;
7512: */
7513: IF ((p_clev_rec.sts_code IS NULL OR
7510: END IF;
7511: END IF;
7512: */
7513: IF ((p_clev_rec.sts_code IS NULL OR
7514: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7515: (p_clev_rec.end_date IS NULL OR
7516: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7517: (p_clev_rec.start_date IS NULL OR
7518: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7512: */
7513: IF ((p_clev_rec.sts_code IS NULL OR
7514: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7515: (p_clev_rec.end_date IS NULL OR
7516: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7517: (p_clev_rec.start_date IS NULL OR
7518: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7519: (p_clev_rec.currency_code IS NULL OR
7520: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7514: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7515: (p_clev_rec.end_date IS NULL OR
7516: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7517: (p_clev_rec.start_date IS NULL OR
7518: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7519: (p_clev_rec.currency_code IS NULL OR
7520: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7521: ) THEN
7522: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7516: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7517: (p_clev_rec.start_date IS NULL OR
7518: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7519: (p_clev_rec.currency_code IS NULL OR
7520: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7521: ) THEN
7522: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7523: p_cle_id => r_clev_rec.cle_id,
7524: p_clev_rec => r_clev_rec);
7521: ) THEN
7522: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7523: p_cle_id => r_clev_rec.cle_id,
7524: p_clev_rec => r_clev_rec);
7525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7522: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7523: p_cle_id => r_clev_rec.cle_id,
7524: p_clev_rec => r_clev_rec);
7525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: END IF;
7523: p_cle_id => r_clev_rec.cle_id,
7524: p_clev_rec => r_clev_rec);
7525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: END IF;
7531:
7524: p_clev_rec => r_clev_rec);
7525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7528: RAISE OKL_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: END IF;
7531:
7532: -- Now the all the records are there we can create Instance Line
7538: p_clev_rec => r_clev_rec,
7539: p_klev_rec => p_klev_rec,
7540: x_clev_rec => x_clev_rec,
7541: x_klev_rec => x_klev_rec);
7542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7543: OKL_API.set_message(p_app_name => G_APP_NAME,
7544: p_msg_name => G_CREATION_INSTS_LINE);
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7539: p_klev_rec => p_klev_rec,
7540: x_clev_rec => x_clev_rec,
7541: x_klev_rec => x_klev_rec);
7542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7543: OKL_API.set_message(p_app_name => G_APP_NAME,
7544: p_msg_name => G_CREATION_INSTS_LINE);
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7547: OKL_API.set_message(p_app_name => G_APP_NAME,
7541: x_klev_rec => x_klev_rec);
7542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7543: OKL_API.set_message(p_app_name => G_APP_NAME,
7544: p_msg_name => G_CREATION_INSTS_LINE);
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7547: OKL_API.set_message(p_app_name => G_APP_NAME,
7548: p_msg_name => G_CREATION_INSTS_LINE);
7549: RAISE OKL_API.G_EXCEPTION_ERROR;
7542: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7543: OKL_API.set_message(p_app_name => G_APP_NAME,
7544: p_msg_name => G_CREATION_INSTS_LINE);
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7547: OKL_API.set_message(p_app_name => G_APP_NAME,
7548: p_msg_name => G_CREATION_INSTS_LINE);
7549: RAISE OKL_API.G_EXCEPTION_ERROR;
7550: END IF;
7543: OKL_API.set_message(p_app_name => G_APP_NAME,
7544: p_msg_name => G_CREATION_INSTS_LINE);
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7547: OKL_API.set_message(p_app_name => G_APP_NAME,
7548: p_msg_name => G_CREATION_INSTS_LINE);
7549: RAISE OKL_API.G_EXCEPTION_ERROR;
7550: END IF;
7551: -- #4414408
7545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7547: OKL_API.set_message(p_app_name => G_APP_NAME,
7548: p_msg_name => G_CREATION_INSTS_LINE);
7549: RAISE OKL_API.G_EXCEPTION_ERROR;
7550: END IF;
7551: -- #4414408
7552: -- ELSE
7553: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7549: RAISE OKL_API.G_EXCEPTION_ERROR;
7550: END IF;
7551: -- #4414408
7552: -- ELSE
7553: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7554: -- p_msg_name => G_LINE_STYLE);
7555: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7556: -- END IF;
7557: OKL_API.END_ACTIVITY (x_msg_count,
7551: -- #4414408
7552: -- ELSE
7553: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7554: -- p_msg_name => G_LINE_STYLE);
7555: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7556: -- END IF;
7557: OKL_API.END_ACTIVITY (x_msg_count,
7558: x_msg_data );
7559: EXCEPTION
7553: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7554: -- p_msg_name => G_LINE_STYLE);
7555: -- RAISE OKL_API.G_EXCEPTION_ERROR;
7556: -- END IF;
7557: OKL_API.END_ACTIVITY (x_msg_count,
7558: x_msg_data );
7559: EXCEPTION
7560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7556: -- END IF;
7557: OKL_API.END_ACTIVITY (x_msg_count,
7558: x_msg_data );
7559: EXCEPTION
7560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7562: l_api_name,
7563: G_PKG_NAME,
7564: 'OKL_API.G_RET_STS_ERROR',
7557: OKL_API.END_ACTIVITY (x_msg_count,
7558: x_msg_data );
7559: EXCEPTION
7560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7562: l_api_name,
7563: G_PKG_NAME,
7564: 'OKL_API.G_RET_STS_ERROR',
7565: x_msg_count,
7560: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7562: l_api_name,
7563: G_PKG_NAME,
7564: 'OKL_API.G_RET_STS_ERROR',
7565: x_msg_count,
7566: x_msg_data,
7567: '_PVT');
7568: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7564: 'OKL_API.G_RET_STS_ERROR',
7565: x_msg_count,
7566: x_msg_data,
7567: '_PVT');
7568: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7569: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7570: l_api_name,
7571: G_PKG_NAME,
7572: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7565: x_msg_count,
7566: x_msg_data,
7567: '_PVT');
7568: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7569: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7570: l_api_name,
7571: G_PKG_NAME,
7572: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7573: x_msg_count,
7568: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7569: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7570: l_api_name,
7571: G_PKG_NAME,
7572: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7573: x_msg_count,
7574: x_msg_data,
7575: '_PVT');
7576: WHEN OTHERS THEN
7573: x_msg_count,
7574: x_msg_data,
7575: '_PVT');
7576: WHEN OTHERS THEN
7577: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7578: l_api_name,
7579: G_PKG_NAME,
7580: 'OTHERS',
7581: x_msg_count,
7583: '_PVT');
7584: END Create_inst_line;
7585: -------------------------------------------------------------------------------------------------
7586: PROCEDURE update_inst_line(p_api_version IN NUMBER,
7587: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7588: x_return_status OUT NOCOPY VARCHAR2,
7589: x_msg_count OUT NOCOPY NUMBER,
7590: x_msg_data OUT NOCOPY VARCHAR2,
7591: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7598: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7599:
7600: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INSTS_LINE';
7601: BEGIN
7602: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7603: -- Call start_activity to create savepoint, check compatibility
7604: -- and initialize message list
7605: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7606: ,p_init_msg_list
7601: BEGIN
7602: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7603: -- Call start_activity to create savepoint, check compatibility
7604: -- and initialize message list
7605: x_return_status := OKL_API.START_ACTIVITY (l_api_name
7606: ,p_init_msg_list
7607: ,'_PVT'
7608: ,x_return_status);
7609: -- Check if activity started successfully
7606: ,p_init_msg_list
7607: ,'_PVT'
7608: ,x_return_status);
7609: -- Check if activity started successfully
7610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7613: RAISE OKL_API.G_EXCEPTION_ERROR;
7614: END IF;
7607: ,'_PVT'
7608: ,x_return_status);
7609: -- Check if activity started successfully
7610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7613: RAISE OKL_API.G_EXCEPTION_ERROR;
7614: END IF;
7615: -- Check the cle_id that is of the top Fin Asset line
7608: ,x_return_status);
7609: -- Check if activity started successfully
7610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7613: RAISE OKL_API.G_EXCEPTION_ERROR;
7614: END IF;
7615: -- Check the cle_id that is of the top Fin Asset line
7616: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7609: -- Check if activity started successfully
7610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7611: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7613: RAISE OKL_API.G_EXCEPTION_ERROR;
7614: END IF;
7615: -- Check the cle_id that is of the top Fin Asset line
7616: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7617: p_lty_code => p_lty_code,
7616: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7617: p_lty_code => p_lty_code,
7618: x_lty_code => l_lty_code,
7619: x_return_status => x_return_status);
7620: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7622: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7623: RAISE OKL_API.G_EXCEPTION_ERROR;
7624: END IF;
7617: p_lty_code => p_lty_code,
7618: x_lty_code => l_lty_code,
7619: x_return_status => x_return_status);
7620: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7622: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7623: RAISE OKL_API.G_EXCEPTION_ERROR;
7624: END IF;
7625: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7618: x_lty_code => l_lty_code,
7619: x_return_status => x_return_status);
7620: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7622: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7623: RAISE OKL_API.G_EXCEPTION_ERROR;
7624: END IF;
7625: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7626: -- which line are creating under which line
7619: x_return_status => x_return_status);
7620: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7622: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7623: RAISE OKL_API.G_EXCEPTION_ERROR;
7624: END IF;
7625: -- since Fixed Assets Line is a sub line of Fin Asset line we have to check weather
7626: -- which line are creating under which line
7627: IF l_lty_code = G_FIN_LINE_LTY_CODE THEN
7634: p_clev_rec => p_clev_rec,
7635: p_klev_rec => p_klev_rec,
7636: x_clev_rec => x_clev_rec,
7637: x_klev_rec => x_klev_rec);
7638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7639: OKL_API.set_message(p_app_name => G_APP_NAME,
7640: p_msg_name => G_UPDATING_INSTS_LINE);
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7635: p_klev_rec => p_klev_rec,
7636: x_clev_rec => x_clev_rec,
7637: x_klev_rec => x_klev_rec);
7638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7639: OKL_API.set_message(p_app_name => G_APP_NAME,
7640: p_msg_name => G_UPDATING_INSTS_LINE);
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7643: OKL_API.set_message(p_app_name => G_APP_NAME,
7637: x_klev_rec => x_klev_rec);
7638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7639: OKL_API.set_message(p_app_name => G_APP_NAME,
7640: p_msg_name => G_UPDATING_INSTS_LINE);
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7643: OKL_API.set_message(p_app_name => G_APP_NAME,
7644: p_msg_name => G_UPDATING_INSTS_LINE);
7645: RAISE OKL_API.G_EXCEPTION_ERROR;
7638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7639: OKL_API.set_message(p_app_name => G_APP_NAME,
7640: p_msg_name => G_UPDATING_INSTS_LINE);
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7643: OKL_API.set_message(p_app_name => G_APP_NAME,
7644: p_msg_name => G_UPDATING_INSTS_LINE);
7645: RAISE OKL_API.G_EXCEPTION_ERROR;
7646: END IF;
7639: OKL_API.set_message(p_app_name => G_APP_NAME,
7640: p_msg_name => G_UPDATING_INSTS_LINE);
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7643: OKL_API.set_message(p_app_name => G_APP_NAME,
7644: p_msg_name => G_UPDATING_INSTS_LINE);
7645: RAISE OKL_API.G_EXCEPTION_ERROR;
7646: END IF;
7647: ELSE
7641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7643: OKL_API.set_message(p_app_name => G_APP_NAME,
7644: p_msg_name => G_UPDATING_INSTS_LINE);
7645: RAISE OKL_API.G_EXCEPTION_ERROR;
7646: END IF;
7647: ELSE
7648: OKL_API.set_message(p_app_name => G_APP_NAME,
7649: p_msg_name => G_LINE_STYLE);
7644: p_msg_name => G_UPDATING_INSTS_LINE);
7645: RAISE OKL_API.G_EXCEPTION_ERROR;
7646: END IF;
7647: ELSE
7648: OKL_API.set_message(p_app_name => G_APP_NAME,
7649: p_msg_name => G_LINE_STYLE);
7650: RAISE OKL_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: OKL_API.END_ACTIVITY (x_msg_count,
7646: END IF;
7647: ELSE
7648: OKL_API.set_message(p_app_name => G_APP_NAME,
7649: p_msg_name => G_LINE_STYLE);
7650: RAISE OKL_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: OKL_API.END_ACTIVITY (x_msg_count,
7653: x_msg_data );
7654: EXCEPTION
7648: OKL_API.set_message(p_app_name => G_APP_NAME,
7649: p_msg_name => G_LINE_STYLE);
7650: RAISE OKL_API.G_EXCEPTION_ERROR;
7651: END IF;
7652: OKL_API.END_ACTIVITY (x_msg_count,
7653: x_msg_data );
7654: EXCEPTION
7655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7651: END IF;
7652: OKL_API.END_ACTIVITY (x_msg_count,
7653: x_msg_data );
7654: EXCEPTION
7655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7657: l_api_name,
7658: G_PKG_NAME,
7659: 'OKL_API.G_RET_STS_ERROR',
7652: OKL_API.END_ACTIVITY (x_msg_count,
7653: x_msg_data );
7654: EXCEPTION
7655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7657: l_api_name,
7658: G_PKG_NAME,
7659: 'OKL_API.G_RET_STS_ERROR',
7660: x_msg_count,
7655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7656: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7657: l_api_name,
7658: G_PKG_NAME,
7659: 'OKL_API.G_RET_STS_ERROR',
7660: x_msg_count,
7661: x_msg_data,
7662: '_PVT');
7663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7659: 'OKL_API.G_RET_STS_ERROR',
7660: x_msg_count,
7661: x_msg_data,
7662: '_PVT');
7663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7665: l_api_name,
7666: G_PKG_NAME,
7667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7660: x_msg_count,
7661: x_msg_data,
7662: '_PVT');
7663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7665: l_api_name,
7666: G_PKG_NAME,
7667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7668: x_msg_count,
7663: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7664: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7665: l_api_name,
7666: G_PKG_NAME,
7667: 'OKL_API.G_RET_STS_UNEXP_ERROR',
7668: x_msg_count,
7669: x_msg_data,
7670: '_PVT');
7671: WHEN OTHERS THEN
7668: x_msg_count,
7669: x_msg_data,
7670: '_PVT');
7671: WHEN OTHERS THEN
7672: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7673: l_api_name,
7674: G_PKG_NAME,
7675: 'OTHERS',
7676: x_msg_count,
7678: '_PVT');
7679: END update_inst_line;
7680: -------------------------------------------------------------------------------------------------
7681: PROCEDURE Create_installed_base_line(p_api_version IN NUMBER,
7682: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7683: x_return_status OUT NOCOPY VARCHAR2,
7684: x_msg_count OUT NOCOPY NUMBER,
7685: x_msg_data OUT NOCOPY VARCHAR2,
7686: -- 4414408 p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
7696: l_clev_rec clev_rec_type;
7697: r_clev_rec clev_rec_type;
7698: l_cimv_rec cimv_rec_type;
7699: r_cimv_rec cimv_rec_type;
7700: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
7701: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7702: l_itiv_rec itiv_rec_type;
7703: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_LINE';
7704: BEGIN
7701: -- l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
7702: l_itiv_rec itiv_rec_type;
7703: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_IB_LINE';
7704: BEGIN
7705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7706: -- Call start_activity to create savepoint, check compatibility
7707: -- and initialize message list
7708: x_return_status := OKL_API.START_ACTIVITY (
7709: l_api_name
7704: BEGIN
7705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7706: -- Call start_activity to create savepoint, check compatibility
7707: -- and initialize message list
7708: x_return_status := OKL_API.START_ACTIVITY (
7709: l_api_name
7710: ,p_init_msg_list
7711: ,'_PVT'
7712: ,x_return_status);
7710: ,p_init_msg_list
7711: ,'_PVT'
7712: ,x_return_status);
7713: -- Check if activity started successfully
7714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: END IF;
7711: ,'_PVT'
7712: ,x_return_status);
7713: -- Check if activity started successfully
7714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: END IF;
7719: -- 4414408 redundant validation
7712: ,x_return_status);
7713: -- Check if activity started successfully
7714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: END IF;
7719: -- 4414408 redundant validation
7720: /*
7713: -- Check if activity started successfully
7714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: END IF;
7719: -- 4414408 redundant validation
7720: /*
7721: -- Check the cle_id that is of the top Fin Asset line
7722: validate_cle_lse_id(p_clev_rec => p_clev_rec,
7723: p_lty_code => p_lty_code,
7724: x_lty_code => l_lty_code,
7725: x_return_status => x_return_status);
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: p_lty_code => p_lty_code,
7724: x_lty_code => l_lty_code,
7725: x_return_status => x_return_status);
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: */
7724: x_lty_code => l_lty_code,
7725: x_return_status => x_return_status);
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: */
7732: -- since IB Line is a sub line of instance line we have to check weather
7725: x_return_status => x_return_status);
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: */
7732: -- since IB Line is a sub line of instance line we have to check weather
7733: -- which line are creating under which line
7737:
7738: -- # 4414408 use new function default_contract_line_values
7739: /*
7740: IF (p_clev_rec.sts_code IS NULL OR
7741: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7742: x_return_status := get_sts_code(p_dnz_chr_id => null,
7743: p_cle_id => p_clev_rec.cle_id,
7744: x_sts_code => r_clev_rec.sts_code);
7745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7741: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
7742: x_return_status := get_sts_code(p_dnz_chr_id => null,
7743: p_cle_id => p_clev_rec.cle_id,
7744: x_sts_code => r_clev_rec.sts_code);
7745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7748: RAISE OKL_API.G_EXCEPTION_ERROR;
7749: END IF;
7742: x_return_status := get_sts_code(p_dnz_chr_id => null,
7743: p_cle_id => p_clev_rec.cle_id,
7744: x_sts_code => r_clev_rec.sts_code);
7745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7748: RAISE OKL_API.G_EXCEPTION_ERROR;
7749: END IF;
7750: END IF;
7743: p_cle_id => p_clev_rec.cle_id,
7744: x_sts_code => r_clev_rec.sts_code);
7745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7748: RAISE OKL_API.G_EXCEPTION_ERROR;
7749: END IF;
7750: END IF;
7751: IF (p_clev_rec.end_date IS NULL OR
7744: x_sts_code => r_clev_rec.sts_code);
7745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7748: RAISE OKL_API.G_EXCEPTION_ERROR;
7749: END IF;
7750: END IF;
7751: IF (p_clev_rec.end_date IS NULL OR
7752: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7748: RAISE OKL_API.G_EXCEPTION_ERROR;
7749: END IF;
7750: END IF;
7751: IF (p_clev_rec.end_date IS NULL OR
7752: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7753: x_return_status := get_end_date(p_dnz_chr_id => null,
7754: p_cle_id => p_clev_rec.cle_id,
7755: x_end_date => r_clev_rec.end_date);
7756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7752: p_clev_rec.end_date = OKL_API.G_MISS_DATE) THEN
7753: x_return_status := get_end_date(p_dnz_chr_id => null,
7754: p_cle_id => p_clev_rec.cle_id,
7755: x_end_date => r_clev_rec.end_date);
7756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_ERROR;
7760: END IF;
7753: x_return_status := get_end_date(p_dnz_chr_id => null,
7754: p_cle_id => p_clev_rec.cle_id,
7755: x_end_date => r_clev_rec.end_date);
7756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_ERROR;
7760: END IF;
7761: END IF;
7754: p_cle_id => p_clev_rec.cle_id,
7755: x_end_date => r_clev_rec.end_date);
7756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_ERROR;
7760: END IF;
7761: END IF;
7762: IF (p_clev_rec.start_date IS NULL OR
7755: x_end_date => r_clev_rec.end_date);
7756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7759: RAISE OKL_API.G_EXCEPTION_ERROR;
7760: END IF;
7761: END IF;
7762: IF (p_clev_rec.start_date IS NULL OR
7763: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7759: RAISE OKL_API.G_EXCEPTION_ERROR;
7760: END IF;
7761: END IF;
7762: IF (p_clev_rec.start_date IS NULL OR
7763: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7764: x_return_status := get_start_date(p_dnz_chr_id => null,
7765: p_cle_id => p_clev_rec.cle_id,
7766: x_start_date => r_clev_rec.start_date);
7767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7763: p_clev_rec.start_date = OKL_API.G_MISS_DATE) THEN
7764: x_return_status := get_start_date(p_dnz_chr_id => null,
7765: p_cle_id => p_clev_rec.cle_id,
7766: x_start_date => r_clev_rec.start_date);
7767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7770: RAISE OKL_API.G_EXCEPTION_ERROR;
7771: END IF;
7764: x_return_status := get_start_date(p_dnz_chr_id => null,
7765: p_cle_id => p_clev_rec.cle_id,
7766: x_start_date => r_clev_rec.start_date);
7767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7770: RAISE OKL_API.G_EXCEPTION_ERROR;
7771: END IF;
7772: END IF;
7765: p_cle_id => p_clev_rec.cle_id,
7766: x_start_date => r_clev_rec.start_date);
7767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7770: RAISE OKL_API.G_EXCEPTION_ERROR;
7771: END IF;
7772: END IF;
7773: IF (p_clev_rec.currency_code IS NULL OR
7766: x_start_date => r_clev_rec.start_date);
7767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7770: RAISE OKL_API.G_EXCEPTION_ERROR;
7771: END IF;
7772: END IF;
7773: IF (p_clev_rec.currency_code IS NULL OR
7774: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7770: RAISE OKL_API.G_EXCEPTION_ERROR;
7771: END IF;
7772: END IF;
7773: IF (p_clev_rec.currency_code IS NULL OR
7774: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7775: x_return_status := get_currency_code(p_dnz_chr_id => null,
7776: p_cle_id => p_clev_rec.cle_id,
7777: x_currency_code => r_clev_rec.currency_code);
7778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7774: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR) THEN
7775: x_return_status := get_currency_code(p_dnz_chr_id => null,
7776: p_cle_id => p_clev_rec.cle_id,
7777: x_currency_code => r_clev_rec.currency_code);
7778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7781: RAISE OKL_API.G_EXCEPTION_ERROR;
7782: END IF;
7775: x_return_status := get_currency_code(p_dnz_chr_id => null,
7776: p_cle_id => p_clev_rec.cle_id,
7777: x_currency_code => r_clev_rec.currency_code);
7778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7781: RAISE OKL_API.G_EXCEPTION_ERROR;
7782: END IF;
7783: END IF;
7776: p_cle_id => p_clev_rec.cle_id,
7777: x_currency_code => r_clev_rec.currency_code);
7778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7781: RAISE OKL_API.G_EXCEPTION_ERROR;
7782: END IF;
7783: END IF;
7784: */
7777: x_currency_code => r_clev_rec.currency_code);
7778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7781: RAISE OKL_API.G_EXCEPTION_ERROR;
7782: END IF;
7783: END IF;
7784: */
7785:
7783: END IF;
7784: */
7785:
7786: IF ((p_clev_rec.sts_code IS NULL OR
7787: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7788: (p_clev_rec.end_date IS NULL OR
7789: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7790: (p_clev_rec.start_date IS NULL OR
7791: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7785:
7786: IF ((p_clev_rec.sts_code IS NULL OR
7787: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7788: (p_clev_rec.end_date IS NULL OR
7789: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7790: (p_clev_rec.start_date IS NULL OR
7791: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7792: (p_clev_rec.currency_code IS NULL OR
7793: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7787: p_clev_rec.sts_code = OKL_API.G_MISS_CHAR) OR
7788: (p_clev_rec.end_date IS NULL OR
7789: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7790: (p_clev_rec.start_date IS NULL OR
7791: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7792: (p_clev_rec.currency_code IS NULL OR
7793: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7794: ) THEN
7795: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7789: p_clev_rec.end_date = OKL_API.G_MISS_DATE) OR
7790: (p_clev_rec.start_date IS NULL OR
7791: p_clev_rec.start_date = OKL_API.G_MISS_DATE) OR
7792: (p_clev_rec.currency_code IS NULL OR
7793: p_clev_rec.currency_code = OKL_API.G_MISS_CHAR)
7794: ) THEN
7795: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7796: p_cle_id => r_clev_rec.cle_id,
7797: p_clev_rec => r_clev_rec);
7794: ) THEN
7795: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7796: p_cle_id => r_clev_rec.cle_id,
7797: p_clev_rec => r_clev_rec);
7798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7801: RAISE OKL_API.G_EXCEPTION_ERROR;
7802: END IF;
7795: x_return_status := default_contract_line_values(p_dnz_chr_id => null,
7796: p_cle_id => r_clev_rec.cle_id,
7797: p_clev_rec => r_clev_rec);
7798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7801: RAISE OKL_API.G_EXCEPTION_ERROR;
7802: END IF;
7803: END IF;
7796: p_cle_id => r_clev_rec.cle_id,
7797: p_clev_rec => r_clev_rec);
7798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7801: RAISE OKL_API.G_EXCEPTION_ERROR;
7802: END IF;
7803: END IF;
7804: -- Now the all the records are there we can create Instance Line
7797: p_clev_rec => r_clev_rec);
7798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7801: RAISE OKL_API.G_EXCEPTION_ERROR;
7802: END IF;
7803: END IF;
7804: -- Now the all the records are there we can create Instance Line
7805: OKL_CONTRACT_PUB.create_contract_line(p_api_version => p_api_version,
7810: p_clev_rec => r_clev_rec,
7811: p_klev_rec => p_klev_rec,
7812: x_clev_rec => x_clev_rec,
7813: x_klev_rec => x_klev_rec);
7814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7815: OKL_API.set_message(p_app_name => G_APP_NAME,
7816: p_msg_name => G_CREATION_IB_LINE);
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7811: p_klev_rec => p_klev_rec,
7812: x_clev_rec => x_clev_rec,
7813: x_klev_rec => x_klev_rec);
7814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7815: OKL_API.set_message(p_app_name => G_APP_NAME,
7816: p_msg_name => G_CREATION_IB_LINE);
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: OKL_API.set_message(p_app_name => G_APP_NAME,
7813: x_klev_rec => x_klev_rec);
7814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7815: OKL_API.set_message(p_app_name => G_APP_NAME,
7816: p_msg_name => G_CREATION_IB_LINE);
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: OKL_API.set_message(p_app_name => G_APP_NAME,
7820: p_msg_name => G_CREATION_IB_LINE);
7821: RAISE OKL_API.G_EXCEPTION_ERROR;
7814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7815: OKL_API.set_message(p_app_name => G_APP_NAME,
7816: p_msg_name => G_CREATION_IB_LINE);
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: OKL_API.set_message(p_app_name => G_APP_NAME,
7820: p_msg_name => G_CREATION_IB_LINE);
7821: RAISE OKL_API.G_EXCEPTION_ERROR;
7822: END IF;
7815: OKL_API.set_message(p_app_name => G_APP_NAME,
7816: p_msg_name => G_CREATION_IB_LINE);
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: OKL_API.set_message(p_app_name => G_APP_NAME,
7820: p_msg_name => G_CREATION_IB_LINE);
7821: RAISE OKL_API.G_EXCEPTION_ERROR;
7822: END IF;
7823: l_cimv_rec := p_cimv_rec;
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: OKL_API.set_message(p_app_name => G_APP_NAME,
7820: p_msg_name => G_CREATION_IB_LINE);
7821: RAISE OKL_API.G_EXCEPTION_ERROR;
7822: END IF;
7823: l_cimv_rec := p_cimv_rec;
7824: l_cimv_rec.cle_id := x_clev_rec.id;
7825: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
7825: l_cimv_rec.dnz_chr_id := x_clev_rec.dnz_chr_id;
7826: l_cimv_rec.JTOT_OBJECT1_CODE := 'OKX_IB_ITEM';
7827: l_cimv_rec.exception_yn := 'N';
7828: IF (l_cimv_rec.object1_id1 IS NULL OR
7829: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
7830: (l_cimv_rec.object1_id2 IS NULL OR
7831: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
7832: -- We have create the item rec,tal rec,trx rec and also create the iti rec
7833: -- Creation of Item Record for the above record information
7827: l_cimv_rec.exception_yn := 'N';
7828: IF (l_cimv_rec.object1_id1 IS NULL OR
7829: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
7830: (l_cimv_rec.object1_id2 IS NULL OR
7831: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
7832: -- We have create the item rec,tal rec,trx rec and also create the iti rec
7833: -- Creation of Item Record for the above record information
7834: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7835: p_init_msg_list => p_init_msg_list,
7837: x_msg_count => x_msg_count,
7838: x_msg_data => x_msg_data,
7839: p_cimv_rec => l_cimv_rec,
7840: x_cimv_rec => x_cimv_rec);
7841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7842: OKL_API.set_message(p_app_name => G_APP_NAME,
7843: p_msg_name => G_CREATION_IB_ITEM);
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7838: x_msg_data => x_msg_data,
7839: p_cimv_rec => l_cimv_rec,
7840: x_cimv_rec => x_cimv_rec);
7841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7842: OKL_API.set_message(p_app_name => G_APP_NAME,
7843: p_msg_name => G_CREATION_IB_ITEM);
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7846: OKL_API.set_message(p_app_name => G_APP_NAME,
7840: x_cimv_rec => x_cimv_rec);
7841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7842: OKL_API.set_message(p_app_name => G_APP_NAME,
7843: p_msg_name => G_CREATION_IB_ITEM);
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7846: OKL_API.set_message(p_app_name => G_APP_NAME,
7847: p_msg_name => G_CREATION_IB_ITEM);
7848: RAISE OKL_API.G_EXCEPTION_ERROR;
7841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7842: OKL_API.set_message(p_app_name => G_APP_NAME,
7843: p_msg_name => G_CREATION_IB_ITEM);
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7846: OKL_API.set_message(p_app_name => G_APP_NAME,
7847: p_msg_name => G_CREATION_IB_ITEM);
7848: RAISE OKL_API.G_EXCEPTION_ERROR;
7849: END IF;
7842: OKL_API.set_message(p_app_name => G_APP_NAME,
7843: p_msg_name => G_CREATION_IB_ITEM);
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7846: OKL_API.set_message(p_app_name => G_APP_NAME,
7847: p_msg_name => G_CREATION_IB_ITEM);
7848: RAISE OKL_API.G_EXCEPTION_ERROR;
7849: END IF;
7850: -- Rest of the record Creation will Follow
7844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7846: OKL_API.set_message(p_app_name => G_APP_NAME,
7847: p_msg_name => G_CREATION_IB_ITEM);
7848: RAISE OKL_API.G_EXCEPTION_ERROR;
7849: END IF;
7850: -- Rest of the record Creation will Follow
7851: -- We need to know if the kle_id is already there or not
7852: -- ideally it should be null since it is a new record
7850: -- Rest of the record Creation will Follow
7851: -- We need to know if the kle_id is already there or not
7852: -- ideally it should be null since it is a new record
7853: IF (x_klev_rec.id IS NOT NULL OR
7854: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7855: lv_dummy := null;
7856: END IF;
7857: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7858: lv_dummy IS NUll) THEN
7853: IF (x_klev_rec.id IS NOT NULL OR
7854: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7855: lv_dummy := null;
7856: END IF;
7857: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7858: lv_dummy IS NUll) THEN
7859: l_itiv_rec := p_itiv_rec;
7860: -- To the Item Info from model Line
7861: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7860: -- To the Item Info from model Line
7861: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7862: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7863: x_cimv_rec => r_cimv_rec);
7864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7865: OKL_API.set_message(p_app_name => G_APP_NAME,
7866: p_msg_name => G_FETCHING_INFO,
7867: p_token1 => G_REC_NAME_TOKEN,
7868: p_token1_value => 'OKC_K_ITEMS_V Record');
7861: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7862: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7863: x_cimv_rec => r_cimv_rec);
7864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7865: OKL_API.set_message(p_app_name => G_APP_NAME,
7866: p_msg_name => G_FETCHING_INFO,
7867: p_token1 => G_REC_NAME_TOKEN,
7868: p_token1_value => 'OKC_K_ITEMS_V Record');
7869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7865: OKL_API.set_message(p_app_name => G_APP_NAME,
7866: p_msg_name => G_FETCHING_INFO,
7867: p_token1 => G_REC_NAME_TOKEN,
7868: p_token1_value => 'OKC_K_ITEMS_V Record');
7869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7871: OKL_API.set_message(p_app_name => G_APP_NAME,
7872: p_msg_name => G_FETCHING_INFO,
7873: p_token1 => G_REC_NAME_TOKEN,
7866: p_msg_name => G_FETCHING_INFO,
7867: p_token1 => G_REC_NAME_TOKEN,
7868: p_token1_value => 'OKC_K_ITEMS_V Record');
7869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7871: OKL_API.set_message(p_app_name => G_APP_NAME,
7872: p_msg_name => G_FETCHING_INFO,
7873: p_token1 => G_REC_NAME_TOKEN,
7874: p_token1_value => 'OKC_K_ITEMS_V Record');
7867: p_token1 => G_REC_NAME_TOKEN,
7868: p_token1_value => 'OKC_K_ITEMS_V Record');
7869: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7870: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7871: OKL_API.set_message(p_app_name => G_APP_NAME,
7872: p_msg_name => G_FETCHING_INFO,
7873: p_token1 => G_REC_NAME_TOKEN,
7874: p_token1_value => 'OKC_K_ITEMS_V Record');
7875: RAISE OKL_API.G_EXCEPTION_ERROR;
7871: OKL_API.set_message(p_app_name => G_APP_NAME,
7872: p_msg_name => G_FETCHING_INFO,
7873: p_token1 => G_REC_NAME_TOKEN,
7874: p_token1_value => 'OKC_K_ITEMS_V Record');
7875: RAISE OKL_API.G_EXCEPTION_ERROR;
7876: END IF;
7877: -- Creating iti record
7878: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7879: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7877: -- Creating iti record
7878: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7879: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7880: IF (l_itiv_rec.line_number IS NULL OR
7881: l_itiv_rec.line_number = OKL_API.G_MISS_NUM) THEN
7882: l_itiv_rec.line_number := 1;
7883: END IF;
7884: l_itiv_rec.kle_id := x_klev_rec.id;
7885: l_itiv_rec.jtot_object_code_new := 'OKX_PARTSITE';
7891: x_msg_data => x_msg_data,
7892: p_itiv_rec => l_itiv_rec,
7893: x_trxv_rec => x_trxv_rec,
7894: x_itiv_rec => x_itiv_rec);
7895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7896: OKL_API.set_message(p_app_name => G_APP_NAME,
7897: p_msg_name => G_ITI_ID);
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7892: p_itiv_rec => l_itiv_rec,
7893: x_trxv_rec => x_trxv_rec,
7894: x_itiv_rec => x_itiv_rec);
7895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7896: OKL_API.set_message(p_app_name => G_APP_NAME,
7897: p_msg_name => G_ITI_ID);
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7900: OKL_API.set_message(p_app_name => G_APP_NAME,
7894: x_itiv_rec => x_itiv_rec);
7895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7896: OKL_API.set_message(p_app_name => G_APP_NAME,
7897: p_msg_name => G_ITI_ID);
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7900: OKL_API.set_message(p_app_name => G_APP_NAME,
7901: p_msg_name => G_ITI_ID);
7902: RAISE OKL_API.G_EXCEPTION_ERROR;
7895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7896: OKL_API.set_message(p_app_name => G_APP_NAME,
7897: p_msg_name => G_ITI_ID);
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7900: OKL_API.set_message(p_app_name => G_APP_NAME,
7901: p_msg_name => G_ITI_ID);
7902: RAISE OKL_API.G_EXCEPTION_ERROR;
7903: END IF;
7896: OKL_API.set_message(p_app_name => G_APP_NAME,
7897: p_msg_name => G_ITI_ID);
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7900: OKL_API.set_message(p_app_name => G_APP_NAME,
7901: p_msg_name => G_ITI_ID);
7902: RAISE OKL_API.G_EXCEPTION_ERROR;
7903: END IF;
7904: ELSE
7898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7900: OKL_API.set_message(p_app_name => G_APP_NAME,
7901: p_msg_name => G_ITI_ID);
7902: RAISE OKL_API.G_EXCEPTION_ERROR;
7903: END IF;
7904: ELSE
7905: OKL_API.set_message(p_app_name => G_APP_NAME,
7906: p_msg_name => G_ITI_ID);
7901: p_msg_name => G_ITI_ID);
7902: RAISE OKL_API.G_EXCEPTION_ERROR;
7903: END IF;
7904: ELSE
7905: OKL_API.set_message(p_app_name => G_APP_NAME,
7906: p_msg_name => G_ITI_ID);
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: END IF;
7909: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7903: END IF;
7904: ELSE
7905: OKL_API.set_message(p_app_name => G_APP_NAME,
7906: p_msg_name => G_ITI_ID);
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: END IF;
7909: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7910: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7911: (l_cimv_rec.object1_id2 IS NOT NULL OR
7906: p_msg_name => G_ITI_ID);
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: END IF;
7909: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7910: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7911: (l_cimv_rec.object1_id2 IS NOT NULL OR
7912: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR)THEN
7913: -- Creation of Item Record for the above record information
7914: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7908: END IF;
7909: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
7910: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
7911: (l_cimv_rec.object1_id2 IS NOT NULL OR
7912: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR)THEN
7913: -- Creation of Item Record for the above record information
7914: OKL_OKC_MIGRATION_PVT.create_contract_item(p_api_version => p_api_version,
7915: p_init_msg_list => p_init_msg_list,
7916: x_return_status => x_return_status,
7917: x_msg_count => x_msg_count,
7918: x_msg_data => x_msg_data,
7919: p_cimv_rec => l_cimv_rec,
7920: x_cimv_rec => x_cimv_rec);
7921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7922: OKL_API.set_message(p_app_name => G_APP_NAME,
7923: p_msg_name => G_CREATION_IB_ITEM);
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7918: x_msg_data => x_msg_data,
7919: p_cimv_rec => l_cimv_rec,
7920: x_cimv_rec => x_cimv_rec);
7921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7922: OKL_API.set_message(p_app_name => G_APP_NAME,
7923: p_msg_name => G_CREATION_IB_ITEM);
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7926: OKL_API.set_message(p_app_name => G_APP_NAME,
7920: x_cimv_rec => x_cimv_rec);
7921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7922: OKL_API.set_message(p_app_name => G_APP_NAME,
7923: p_msg_name => G_CREATION_IB_ITEM);
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7926: OKL_API.set_message(p_app_name => G_APP_NAME,
7927: p_msg_name => G_CREATION_IB_ITEM);
7928: RAISE OKL_API.G_EXCEPTION_ERROR;
7921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7922: OKL_API.set_message(p_app_name => G_APP_NAME,
7923: p_msg_name => G_CREATION_IB_ITEM);
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7926: OKL_API.set_message(p_app_name => G_APP_NAME,
7927: p_msg_name => G_CREATION_IB_ITEM);
7928: RAISE OKL_API.G_EXCEPTION_ERROR;
7929: END IF;
7922: OKL_API.set_message(p_app_name => G_APP_NAME,
7923: p_msg_name => G_CREATION_IB_ITEM);
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7926: OKL_API.set_message(p_app_name => G_APP_NAME,
7927: p_msg_name => G_CREATION_IB_ITEM);
7928: RAISE OKL_API.G_EXCEPTION_ERROR;
7929: END IF;
7930: -- Rest of the record Creation will Follow
7924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7926: OKL_API.set_message(p_app_name => G_APP_NAME,
7927: p_msg_name => G_CREATION_IB_ITEM);
7928: RAISE OKL_API.G_EXCEPTION_ERROR;
7929: END IF;
7930: -- Rest of the record Creation will Follow
7931: -- We need to know if the kle_id is already there or not
7932: -- ideally it should be null since it is a new record
7930: -- Rest of the record Creation will Follow
7931: -- We need to know if the kle_id is already there or not
7932: -- ideally it should be null since it is a new record
7933: IF (x_klev_rec.id IS NOT NULL OR
7934: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7935: lv_dummy := null;
7936: END IF;
7937: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7938: lv_dummy IS NUll) THEN
7933: IF (x_klev_rec.id IS NOT NULL OR
7934: x_klev_rec.id <> OKL_API.G_MISS_NUM) THEN
7935: lv_dummy := null;
7936: END IF;
7937: IF (lv_dummy = OKL_API.G_MISS_CHAR OR
7938: lv_dummy IS NUll) THEN
7939: l_itiv_rec := p_itiv_rec;
7940: -- To the Item Info from model Line
7941: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7940: -- To the Item Info from model Line
7941: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7942: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7943: x_cimv_rec => r_cimv_rec);
7944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7945: OKL_API.set_message(p_app_name => G_APP_NAME,
7946: p_msg_name => G_FETCHING_INFO,
7947: p_token1 => G_REC_NAME_TOKEN,
7948: p_token1_value => 'OKC_K_ITEMS_V Record');
7941: x_return_status := get_rec_ib_cimv(p_cle_id => x_clev_rec.cle_id,
7942: p_dnz_chr_id => x_cimv_rec.dnz_chr_id,
7943: x_cimv_rec => r_cimv_rec);
7944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7945: OKL_API.set_message(p_app_name => G_APP_NAME,
7946: p_msg_name => G_FETCHING_INFO,
7947: p_token1 => G_REC_NAME_TOKEN,
7948: p_token1_value => 'OKC_K_ITEMS_V Record');
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7945: OKL_API.set_message(p_app_name => G_APP_NAME,
7946: p_msg_name => G_FETCHING_INFO,
7947: p_token1 => G_REC_NAME_TOKEN,
7948: p_token1_value => 'OKC_K_ITEMS_V Record');
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: OKL_API.set_message(p_app_name => G_APP_NAME,
7952: p_msg_name => G_FETCHING_INFO,
7953: p_token1 => G_REC_NAME_TOKEN,
7946: p_msg_name => G_FETCHING_INFO,
7947: p_token1 => G_REC_NAME_TOKEN,
7948: p_token1_value => 'OKC_K_ITEMS_V Record');
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: OKL_API.set_message(p_app_name => G_APP_NAME,
7952: p_msg_name => G_FETCHING_INFO,
7953: p_token1 => G_REC_NAME_TOKEN,
7954: p_token1_value => 'OKC_K_ITEMS_V Record');
7947: p_token1 => G_REC_NAME_TOKEN,
7948: p_token1_value => 'OKC_K_ITEMS_V Record');
7949: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7950: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7951: OKL_API.set_message(p_app_name => G_APP_NAME,
7952: p_msg_name => G_FETCHING_INFO,
7953: p_token1 => G_REC_NAME_TOKEN,
7954: p_token1_value => 'OKC_K_ITEMS_V Record');
7955: RAISE OKL_API.G_EXCEPTION_ERROR;
7951: OKL_API.set_message(p_app_name => G_APP_NAME,
7952: p_msg_name => G_FETCHING_INFO,
7953: p_token1 => G_REC_NAME_TOKEN,
7954: p_token1_value => 'OKC_K_ITEMS_V Record');
7955: RAISE OKL_API.G_EXCEPTION_ERROR;
7956: END IF;
7957: -- Creating iti record
7958: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7959: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7957: -- Creating iti record
7958: l_itiv_rec.inventory_item_id := to_number(r_cimv_rec.object1_id1);
7959: l_itiv_rec.inventory_org_id := to_number(r_cimv_rec.object1_id2);
7960: IF (l_itiv_rec.line_number IS NULL OR
7961: l_itiv_rec.line_number = OKL_API.G_MISS_NUM) THEN
7962: l_itiv_rec.line_number := 1;
7963: END IF;
7964: l_itiv_rec.kle_id := x_klev_rec.id;
7965: l_itiv_rec.jtot_object_code_new := 'OKX_PARTSITE';
7971: x_msg_data => x_msg_data,
7972: p_itiv_rec => l_itiv_rec,
7973: x_trxv_rec => x_trxv_rec,
7974: x_itiv_rec => x_itiv_rec);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: OKL_API.set_message(p_app_name => G_APP_NAME,
7977: p_msg_name => G_ITI_ID);
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7972: p_itiv_rec => l_itiv_rec,
7973: x_trxv_rec => x_trxv_rec,
7974: x_itiv_rec => x_itiv_rec);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: OKL_API.set_message(p_app_name => G_APP_NAME,
7977: p_msg_name => G_ITI_ID);
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7980: OKL_API.set_message(p_app_name => G_APP_NAME,
7974: x_itiv_rec => x_itiv_rec);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: OKL_API.set_message(p_app_name => G_APP_NAME,
7977: p_msg_name => G_ITI_ID);
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7980: OKL_API.set_message(p_app_name => G_APP_NAME,
7981: p_msg_name => G_ITI_ID);
7982: RAISE OKL_API.G_EXCEPTION_ERROR;
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: OKL_API.set_message(p_app_name => G_APP_NAME,
7977: p_msg_name => G_ITI_ID);
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7980: OKL_API.set_message(p_app_name => G_APP_NAME,
7981: p_msg_name => G_ITI_ID);
7982: RAISE OKL_API.G_EXCEPTION_ERROR;
7983: END IF;
7976: OKL_API.set_message(p_app_name => G_APP_NAME,
7977: p_msg_name => G_ITI_ID);
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7980: OKL_API.set_message(p_app_name => G_APP_NAME,
7981: p_msg_name => G_ITI_ID);
7982: RAISE OKL_API.G_EXCEPTION_ERROR;
7983: END IF;
7984: ELSE
7978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7980: OKL_API.set_message(p_app_name => G_APP_NAME,
7981: p_msg_name => G_ITI_ID);
7982: RAISE OKL_API.G_EXCEPTION_ERROR;
7983: END IF;
7984: ELSE
7985: OKL_API.set_message(p_app_name => G_APP_NAME,
7986: p_msg_name => G_ITI_ID);
7981: p_msg_name => G_ITI_ID);
7982: RAISE OKL_API.G_EXCEPTION_ERROR;
7983: END IF;
7984: ELSE
7985: OKL_API.set_message(p_app_name => G_APP_NAME,
7986: p_msg_name => G_ITI_ID);
7987: RAISE OKL_API.G_EXCEPTION_ERROR;
7988: END IF;
7989: ELSE
7983: END IF;
7984: ELSE
7985: OKL_API.set_message(p_app_name => G_APP_NAME,
7986: p_msg_name => G_ITI_ID);
7987: RAISE OKL_API.G_EXCEPTION_ERROR;
7988: END IF;
7989: ELSE
7990: OKL_API.set_message(p_app_name => G_APP_NAME,
7991: p_msg_name => G_ITEM_RECORD);
7986: p_msg_name => G_ITI_ID);
7987: RAISE OKL_API.G_EXCEPTION_ERROR;
7988: END IF;
7989: ELSE
7990: OKL_API.set_message(p_app_name => G_APP_NAME,
7991: p_msg_name => G_ITEM_RECORD);
7992: x_return_status := OKL_API.G_RET_STS_ERROR;
7993: RAISE OKL_API.G_EXCEPTION_ERROR;
7994: END IF;
7988: END IF;
7989: ELSE
7990: OKL_API.set_message(p_app_name => G_APP_NAME,
7991: p_msg_name => G_ITEM_RECORD);
7992: x_return_status := OKL_API.G_RET_STS_ERROR;
7993: RAISE OKL_API.G_EXCEPTION_ERROR;
7994: END IF;
7995: -- #4414408
7996: -- ELSE
7989: ELSE
7990: OKL_API.set_message(p_app_name => G_APP_NAME,
7991: p_msg_name => G_ITEM_RECORD);
7992: x_return_status := OKL_API.G_RET_STS_ERROR;
7993: RAISE OKL_API.G_EXCEPTION_ERROR;
7994: END IF;
7995: -- #4414408
7996: -- ELSE
7997: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7993: RAISE OKL_API.G_EXCEPTION_ERROR;
7994: END IF;
7995: -- #4414408
7996: -- ELSE
7997: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7998: -- p_msg_name => G_LINE_STYLE);
7999: -- x_return_status := OKL_API.G_RET_STS_ERROR;
8000: -- RAISE OKL_API.G_EXCEPTION_ERROR;
8001: -- END IF;
7995: -- #4414408
7996: -- ELSE
7997: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7998: -- p_msg_name => G_LINE_STYLE);
7999: -- x_return_status := OKL_API.G_RET_STS_ERROR;
8000: -- RAISE OKL_API.G_EXCEPTION_ERROR;
8001: -- END IF;
8002: OKL_API.END_ACTIVITY (x_msg_count,
8003: x_msg_data );
7996: -- ELSE
7997: -- OKL_API.set_message(p_app_name => G_APP_NAME,
7998: -- p_msg_name => G_LINE_STYLE);
7999: -- x_return_status := OKL_API.G_RET_STS_ERROR;
8000: -- RAISE OKL_API.G_EXCEPTION_ERROR;
8001: -- END IF;
8002: OKL_API.END_ACTIVITY (x_msg_count,
8003: x_msg_data );
8004: EXCEPTION
7998: -- p_msg_name => G_LINE_STYLE);
7999: -- x_return_status := OKL_API.G_RET_STS_ERROR;
8000: -- RAISE OKL_API.G_EXCEPTION_ERROR;
8001: -- END IF;
8002: OKL_API.END_ACTIVITY (x_msg_count,
8003: x_msg_data );
8004: EXCEPTION
8005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8001: -- END IF;
8002: OKL_API.END_ACTIVITY (x_msg_count,
8003: x_msg_data );
8004: EXCEPTION
8005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8007: l_api_name,
8008: G_PKG_NAME,
8009: 'OKL_API.G_RET_STS_ERROR',
8002: OKL_API.END_ACTIVITY (x_msg_count,
8003: x_msg_data );
8004: EXCEPTION
8005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8007: l_api_name,
8008: G_PKG_NAME,
8009: 'OKL_API.G_RET_STS_ERROR',
8010: x_msg_count,
8005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8007: l_api_name,
8008: G_PKG_NAME,
8009: 'OKL_API.G_RET_STS_ERROR',
8010: x_msg_count,
8011: x_msg_data,
8012: '_PVT');
8013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8009: 'OKL_API.G_RET_STS_ERROR',
8010: x_msg_count,
8011: x_msg_data,
8012: '_PVT');
8013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8015: l_api_name,
8016: G_PKG_NAME,
8017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8010: x_msg_count,
8011: x_msg_data,
8012: '_PVT');
8013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8015: l_api_name,
8016: G_PKG_NAME,
8017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8018: x_msg_count,
8013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8015: l_api_name,
8016: G_PKG_NAME,
8017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8018: x_msg_count,
8019: x_msg_data,
8020: '_PVT');
8021: WHEN OTHERS THEN
8018: x_msg_count,
8019: x_msg_data,
8020: '_PVT');
8021: WHEN OTHERS THEN
8022: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8023: l_api_name,
8024: G_PKG_NAME,
8025: 'OTHERS',
8026: x_msg_count,
8028: '_PVT');
8029: END Create_installed_base_line;
8030: ---34----------------------------------------------------------------------------------------------
8031: PROCEDURE update_installed_base_line(p_api_version IN NUMBER,
8032: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8033: x_return_status OUT NOCOPY VARCHAR2,
8034: x_msg_count OUT NOCOPY NUMBER,
8035: x_msg_data OUT NOCOPY VARCHAR2,
8036: p_lty_code IN OKC_LINE_STYLES_V.LTY_CODE%TYPE,
8047: l_cimv_rec cimv_rec_type;
8048: l_itiv_rec itiv_rec_type;
8049: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
8050: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
8051: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
8052: i NUMBER := 0;
8053: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_IB_LINE';
8054: BEGIN
8055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8051: lv_dummy VARCHAR2(3) := OKL_API.G_MISS_CHAR ;
8052: i NUMBER := 0;
8053: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_IB_LINE';
8054: BEGIN
8055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8056: -- Call start_activity to create savepoint, check compatibility
8057: -- and initialize message list
8058: x_return_status := OKL_API.START_ACTIVITY (
8059: l_api_name
8054: BEGIN
8055: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8056: -- Call start_activity to create savepoint, check compatibility
8057: -- and initialize message list
8058: x_return_status := OKL_API.START_ACTIVITY (
8059: l_api_name
8060: ,p_init_msg_list
8061: ,'_PVT'
8062: ,x_return_status);
8060: ,p_init_msg_list
8061: ,'_PVT'
8062: ,x_return_status);
8063: -- Check if activity started successfully
8064: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8066: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8067: RAISE OKL_API.G_EXCEPTION_ERROR;
8068: END IF;
8061: ,'_PVT'
8062: ,x_return_status);
8063: -- Check if activity started successfully
8064: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8066: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8067: RAISE OKL_API.G_EXCEPTION_ERROR;
8068: END IF;
8069: -- Check the cle_id that is of the top Fin Asset line
8062: ,x_return_status);
8063: -- Check if activity started successfully
8064: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8066: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8067: RAISE OKL_API.G_EXCEPTION_ERROR;
8068: END IF;
8069: -- Check the cle_id that is of the top Fin Asset line
8070: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8063: -- Check if activity started successfully
8064: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8066: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8067: RAISE OKL_API.G_EXCEPTION_ERROR;
8068: END IF;
8069: -- Check the cle_id that is of the top Fin Asset line
8070: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8071: p_lty_code => p_lty_code,
8070: validate_cle_lse_id(p_clev_rec => p_clev_rec,
8071: p_lty_code => p_lty_code,
8072: x_lty_code => l_lty_code,
8073: x_return_status => x_return_status);
8074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8077: RAISE OKL_API.G_EXCEPTION_ERROR;
8078: END IF;
8071: p_lty_code => p_lty_code,
8072: x_lty_code => l_lty_code,
8073: x_return_status => x_return_status);
8074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8077: RAISE OKL_API.G_EXCEPTION_ERROR;
8078: END IF;
8079: -- since IB Line is a sub line of instance line we have to check weather
8072: x_lty_code => l_lty_code,
8073: x_return_status => x_return_status);
8074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8077: RAISE OKL_API.G_EXCEPTION_ERROR;
8078: END IF;
8079: -- since IB Line is a sub line of instance line we have to check weather
8080: -- which line are creating under which line
8073: x_return_status => x_return_status);
8074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8077: RAISE OKL_API.G_EXCEPTION_ERROR;
8078: END IF;
8079: -- since IB Line is a sub line of instance line we have to check weather
8080: -- which line are creating under which line
8081: IF l_lty_code = G_INST_LINE_LTY_CODE THEN
8088: p_clev_rec => p_clev_rec,
8089: p_klev_rec => p_klev_rec,
8090: x_clev_rec => x_clev_rec,
8091: x_klev_rec => x_klev_rec);
8092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8093: OKL_API.set_message(p_app_name => G_APP_NAME,
8094: p_msg_name => G_UPDATING_IB_LINE);
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8089: p_klev_rec => p_klev_rec,
8090: x_clev_rec => x_clev_rec,
8091: x_klev_rec => x_klev_rec);
8092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8093: OKL_API.set_message(p_app_name => G_APP_NAME,
8094: p_msg_name => G_UPDATING_IB_LINE);
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8091: x_klev_rec => x_klev_rec);
8092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8093: OKL_API.set_message(p_app_name => G_APP_NAME,
8094: p_msg_name => G_UPDATING_IB_LINE);
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_UPDATING_IB_LINE);
8099: RAISE OKL_API.G_EXCEPTION_ERROR;
8092: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8093: OKL_API.set_message(p_app_name => G_APP_NAME,
8094: p_msg_name => G_UPDATING_IB_LINE);
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_UPDATING_IB_LINE);
8099: RAISE OKL_API.G_EXCEPTION_ERROR;
8100: END IF;
8093: OKL_API.set_message(p_app_name => G_APP_NAME,
8094: p_msg_name => G_UPDATING_IB_LINE);
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_UPDATING_IB_LINE);
8099: RAISE OKL_API.G_EXCEPTION_ERROR;
8100: END IF;
8101: l_cimv_rec := p_cimv_rec;
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: OKL_API.set_message(p_app_name => G_APP_NAME,
8098: p_msg_name => G_UPDATING_IB_LINE);
8099: RAISE OKL_API.G_EXCEPTION_ERROR;
8100: END IF;
8101: l_cimv_rec := p_cimv_rec;
8102: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8103: OKL_API.set_message(p_app_name => G_APP_NAME,
8099: RAISE OKL_API.G_EXCEPTION_ERROR;
8100: END IF;
8101: l_cimv_rec := p_cimv_rec;
8102: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8103: OKL_API.set_message(p_app_name => G_APP_NAME,
8104: p_msg_name => G_ITEM_RECORD);
8105: RAISE OKL_API.G_EXCEPTION_ERROR;
8106: END IF;
8107: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8101: l_cimv_rec := p_cimv_rec;
8102: IF l_cimv_rec.cle_id <> x_clev_rec.id THEN
8103: OKL_API.set_message(p_app_name => G_APP_NAME,
8104: p_msg_name => G_ITEM_RECORD);
8105: RAISE OKL_API.G_EXCEPTION_ERROR;
8106: END IF;
8107: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITEM_RECORD);
8104: p_msg_name => G_ITEM_RECORD);
8105: RAISE OKL_API.G_EXCEPTION_ERROR;
8106: END IF;
8107: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITEM_RECORD);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8111: END IF;
8112: IF (l_cimv_rec.object1_id1 IS NULL OR
8106: END IF;
8107: IF l_cimv_rec.dnz_chr_id <> x_clev_rec.dnz_chr_id THEN
8108: OKL_API.set_message(p_app_name => G_APP_NAME,
8109: p_msg_name => G_ITEM_RECORD);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8111: END IF;
8112: IF (l_cimv_rec.object1_id1 IS NULL OR
8113: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8114: (l_cimv_rec.object1_id2 IS NULL OR
8109: p_msg_name => G_ITEM_RECORD);
8110: RAISE OKL_API.G_EXCEPTION_ERROR;
8111: END IF;
8112: IF (l_cimv_rec.object1_id1 IS NULL OR
8113: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8114: (l_cimv_rec.object1_id2 IS NULL OR
8115: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
8116: -- We have create the item rec,tal rec,trx rec and also create the iti rec
8117: -- Creation of Item Record for the above record information
8111: END IF;
8112: IF (l_cimv_rec.object1_id1 IS NULL OR
8113: l_cimv_rec.object1_id1 = OKL_API.G_MISS_CHAR) AND
8114: (l_cimv_rec.object1_id2 IS NULL OR
8115: l_cimv_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
8116: -- We have create the item rec,tal rec,trx rec and also create the iti rec
8117: -- Creation of Item Record for the above record information
8118: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8119: p_init_msg_list => p_init_msg_list,
8121: x_msg_count => x_msg_count,
8122: x_msg_data => x_msg_data,
8123: p_cimv_rec => l_cimv_rec,
8124: x_cimv_rec => x_cimv_rec);
8125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8126: OKL_API.set_message(p_app_name => G_APP_NAME,
8127: p_msg_name => G_UPDATING_IB_ITEM);
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8122: x_msg_data => x_msg_data,
8123: p_cimv_rec => l_cimv_rec,
8124: x_cimv_rec => x_cimv_rec);
8125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8126: OKL_API.set_message(p_app_name => G_APP_NAME,
8127: p_msg_name => G_UPDATING_IB_ITEM);
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8130: OKL_API.set_message(p_app_name => G_APP_NAME,
8124: x_cimv_rec => x_cimv_rec);
8125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8126: OKL_API.set_message(p_app_name => G_APP_NAME,
8127: p_msg_name => G_UPDATING_IB_ITEM);
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8130: OKL_API.set_message(p_app_name => G_APP_NAME,
8131: p_msg_name => G_UPDATING_IB_ITEM);
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8125: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8126: OKL_API.set_message(p_app_name => G_APP_NAME,
8127: p_msg_name => G_UPDATING_IB_ITEM);
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8130: OKL_API.set_message(p_app_name => G_APP_NAME,
8131: p_msg_name => G_UPDATING_IB_ITEM);
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8126: OKL_API.set_message(p_app_name => G_APP_NAME,
8127: p_msg_name => G_UPDATING_IB_ITEM);
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8130: OKL_API.set_message(p_app_name => G_APP_NAME,
8131: p_msg_name => G_UPDATING_IB_ITEM);
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8134: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8130: OKL_API.set_message(p_app_name => G_APP_NAME,
8131: p_msg_name => G_UPDATING_IB_ITEM);
8132: RAISE OKL_API.G_EXCEPTION_ERROR;
8133: END IF;
8134: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8135: x_record_exists => lv_dummy,
8136: x_return_status => x_return_status);
8133: END IF;
8134: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8135: x_record_exists => lv_dummy,
8136: x_return_status => x_return_status);
8137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8138: OKL_API.set_message(p_app_name => G_APP_NAME,
8139: p_msg_name => G_ITI_ID);
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8134: validate_iti_kle_id(p_klev_rec => x_klev_rec,
8135: x_record_exists => lv_dummy,
8136: x_return_status => x_return_status);
8137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8138: OKL_API.set_message(p_app_name => G_APP_NAME,
8139: p_msg_name => G_ITI_ID);
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: OKL_API.set_message(p_app_name => G_APP_NAME,
8136: x_return_status => x_return_status);
8137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8138: OKL_API.set_message(p_app_name => G_APP_NAME,
8139: p_msg_name => G_ITI_ID);
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: OKL_API.set_message(p_app_name => G_APP_NAME,
8143: p_msg_name => G_ITI_ID);
8144: RAISE OKL_API.G_EXCEPTION_ERROR;
8137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8138: OKL_API.set_message(p_app_name => G_APP_NAME,
8139: p_msg_name => G_ITI_ID);
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: OKL_API.set_message(p_app_name => G_APP_NAME,
8143: p_msg_name => G_ITI_ID);
8144: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: END IF;
8138: OKL_API.set_message(p_app_name => G_APP_NAME,
8139: p_msg_name => G_ITI_ID);
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: OKL_API.set_message(p_app_name => G_APP_NAME,
8143: p_msg_name => G_ITI_ID);
8144: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: END IF;
8146: IF (lv_dummy IS NOT NUll OR
8140: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8141: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8142: OKL_API.set_message(p_app_name => G_APP_NAME,
8143: p_msg_name => G_ITI_ID);
8144: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: END IF;
8146: IF (lv_dummy IS NOT NUll OR
8147: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8148: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8143: p_msg_name => G_ITI_ID);
8144: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: END IF;
8146: IF (lv_dummy IS NOT NUll OR
8147: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8148: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8149: OKL_API.set_message(p_app_name => G_APP_NAME,
8150: p_msg_name => G_ITI_ID);
8151: RAISE OKL_API.G_EXCEPTION_ERROR;
8145: END IF;
8146: IF (lv_dummy IS NOT NUll OR
8147: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8148: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8149: OKL_API.set_message(p_app_name => G_APP_NAME,
8150: p_msg_name => G_ITI_ID);
8151: RAISE OKL_API.G_EXCEPTION_ERROR;
8152: END IF;
8153: update_txl_itm_insts(p_api_version => p_api_version,
8147: lv_dummy <> OKL_API.G_MISS_CHAR) THEN
8148: IF p_itiv_rec.kle_id <> x_klev_rec.id THEN
8149: OKL_API.set_message(p_app_name => G_APP_NAME,
8150: p_msg_name => G_ITI_ID);
8151: RAISE OKL_API.G_EXCEPTION_ERROR;
8152: END IF;
8153: update_txl_itm_insts(p_api_version => p_api_version,
8154: p_init_msg_list => p_init_msg_list,
8155: x_return_status => x_return_status,
8156: x_msg_count => x_msg_count,
8157: x_msg_data => x_msg_data,
8158: p_itiv_rec => p_itiv_rec,
8159: x_itiv_rec => x_itiv_rec);
8160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8161: OKL_API.set_message(p_app_name => G_APP_NAME,
8162: p_msg_name => G_ITI_ID);
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8157: x_msg_data => x_msg_data,
8158: p_itiv_rec => p_itiv_rec,
8159: x_itiv_rec => x_itiv_rec);
8160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8161: OKL_API.set_message(p_app_name => G_APP_NAME,
8162: p_msg_name => G_ITI_ID);
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8165: OKL_API.set_message(p_app_name => G_APP_NAME,
8159: x_itiv_rec => x_itiv_rec);
8160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8161: OKL_API.set_message(p_app_name => G_APP_NAME,
8162: p_msg_name => G_ITI_ID);
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8165: OKL_API.set_message(p_app_name => G_APP_NAME,
8166: p_msg_name => G_ITI_ID);
8167: RAISE OKL_API.G_EXCEPTION_ERROR;
8160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8161: OKL_API.set_message(p_app_name => G_APP_NAME,
8162: p_msg_name => G_ITI_ID);
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8165: OKL_API.set_message(p_app_name => G_APP_NAME,
8166: p_msg_name => G_ITI_ID);
8167: RAISE OKL_API.G_EXCEPTION_ERROR;
8168: END IF;
8161: OKL_API.set_message(p_app_name => G_APP_NAME,
8162: p_msg_name => G_ITI_ID);
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8165: OKL_API.set_message(p_app_name => G_APP_NAME,
8166: p_msg_name => G_ITI_ID);
8167: RAISE OKL_API.G_EXCEPTION_ERROR;
8168: END IF;
8169: ELSE
8163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8165: OKL_API.set_message(p_app_name => G_APP_NAME,
8166: p_msg_name => G_ITI_ID);
8167: RAISE OKL_API.G_EXCEPTION_ERROR;
8168: END IF;
8169: ELSE
8170: OKL_API.set_message(p_app_name => G_APP_NAME,
8171: p_msg_name => G_ITI_ID);
8166: p_msg_name => G_ITI_ID);
8167: RAISE OKL_API.G_EXCEPTION_ERROR;
8168: END IF;
8169: ELSE
8170: OKL_API.set_message(p_app_name => G_APP_NAME,
8171: p_msg_name => G_ITI_ID);
8172: RAISE OKL_API.G_EXCEPTION_ERROR;
8173: END IF;
8174: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8168: END IF;
8169: ELSE
8170: OKL_API.set_message(p_app_name => G_APP_NAME,
8171: p_msg_name => G_ITI_ID);
8172: RAISE OKL_API.G_EXCEPTION_ERROR;
8173: END IF;
8174: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8175: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8176: (l_cimv_rec.object1_id2 IS NOT NULL OR
8171: p_msg_name => G_ITI_ID);
8172: RAISE OKL_API.G_EXCEPTION_ERROR;
8173: END IF;
8174: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8175: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8176: (l_cimv_rec.object1_id2 IS NOT NULL OR
8177: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR) THEN
8178: -- Creation of Item Record for the above record information
8179: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8173: END IF;
8174: ELSIF (l_cimv_rec.object1_id1 IS NOT NULL OR
8175: l_cimv_rec.object1_id1 <> OKL_API.G_MISS_CHAR) AND
8176: (l_cimv_rec.object1_id2 IS NOT NULL OR
8177: l_cimv_rec.object1_id2 <> OKL_API.G_MISS_CHAR) THEN
8178: -- Creation of Item Record for the above record information
8179: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8180: p_init_msg_list => p_init_msg_list,
8181: x_return_status => x_return_status,
8182: x_msg_count => x_msg_count,
8183: x_msg_data => x_msg_data,
8184: p_cimv_rec => l_cimv_rec,
8185: x_cimv_rec => x_cimv_rec);
8186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8187: OKL_API.set_message(p_app_name => G_APP_NAME,
8188: p_msg_name => G_UPDATING_IB_ITEM);
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8183: x_msg_data => x_msg_data,
8184: p_cimv_rec => l_cimv_rec,
8185: x_cimv_rec => x_cimv_rec);
8186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8187: OKL_API.set_message(p_app_name => G_APP_NAME,
8188: p_msg_name => G_UPDATING_IB_ITEM);
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8191: OKL_API.set_message(p_app_name => G_APP_NAME,
8185: x_cimv_rec => x_cimv_rec);
8186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8187: OKL_API.set_message(p_app_name => G_APP_NAME,
8188: p_msg_name => G_UPDATING_IB_ITEM);
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8191: OKL_API.set_message(p_app_name => G_APP_NAME,
8192: p_msg_name => G_UPDATING_IB_ITEM);
8193: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8187: OKL_API.set_message(p_app_name => G_APP_NAME,
8188: p_msg_name => G_UPDATING_IB_ITEM);
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8191: OKL_API.set_message(p_app_name => G_APP_NAME,
8192: p_msg_name => G_UPDATING_IB_ITEM);
8193: RAISE OKL_API.G_EXCEPTION_ERROR;
8194: END IF;
8187: OKL_API.set_message(p_app_name => G_APP_NAME,
8188: p_msg_name => G_UPDATING_IB_ITEM);
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8191: OKL_API.set_message(p_app_name => G_APP_NAME,
8192: p_msg_name => G_UPDATING_IB_ITEM);
8193: RAISE OKL_API.G_EXCEPTION_ERROR;
8194: END IF;
8195: ELSE
8189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8191: OKL_API.set_message(p_app_name => G_APP_NAME,
8192: p_msg_name => G_UPDATING_IB_ITEM);
8193: RAISE OKL_API.G_EXCEPTION_ERROR;
8194: END IF;
8195: ELSE
8196: OKL_API.set_message(p_app_name => G_APP_NAME,
8197: p_msg_name => G_UPDATING_IB_ITEM);
8192: p_msg_name => G_UPDATING_IB_ITEM);
8193: RAISE OKL_API.G_EXCEPTION_ERROR;
8194: END IF;
8195: ELSE
8196: OKL_API.set_message(p_app_name => G_APP_NAME,
8197: p_msg_name => G_UPDATING_IB_ITEM);
8198: RAISE OKL_API.G_EXCEPTION_ERROR;
8199: END IF;
8200: ELSE
8194: END IF;
8195: ELSE
8196: OKL_API.set_message(p_app_name => G_APP_NAME,
8197: p_msg_name => G_UPDATING_IB_ITEM);
8198: RAISE OKL_API.G_EXCEPTION_ERROR;
8199: END IF;
8200: ELSE
8201: OKL_API.set_message(p_app_name => G_APP_NAME,
8202: p_msg_name => G_LINE_STYLE);
8197: p_msg_name => G_UPDATING_IB_ITEM);
8198: RAISE OKL_API.G_EXCEPTION_ERROR;
8199: END IF;
8200: ELSE
8201: OKL_API.set_message(p_app_name => G_APP_NAME,
8202: p_msg_name => G_LINE_STYLE);
8203: RAISE OKL_API.G_EXCEPTION_ERROR;
8204: END IF;
8205: OKL_API.END_ACTIVITY (x_msg_count,
8199: END IF;
8200: ELSE
8201: OKL_API.set_message(p_app_name => G_APP_NAME,
8202: p_msg_name => G_LINE_STYLE);
8203: RAISE OKL_API.G_EXCEPTION_ERROR;
8204: END IF;
8205: OKL_API.END_ACTIVITY (x_msg_count,
8206: x_msg_data );
8207: EXCEPTION
8201: OKL_API.set_message(p_app_name => G_APP_NAME,
8202: p_msg_name => G_LINE_STYLE);
8203: RAISE OKL_API.G_EXCEPTION_ERROR;
8204: END IF;
8205: OKL_API.END_ACTIVITY (x_msg_count,
8206: x_msg_data );
8207: EXCEPTION
8208: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8204: END IF;
8205: OKL_API.END_ACTIVITY (x_msg_count,
8206: x_msg_data );
8207: EXCEPTION
8208: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8210: l_api_name,
8211: G_PKG_NAME,
8212: 'OKL_API.G_RET_STS_ERROR',
8205: OKL_API.END_ACTIVITY (x_msg_count,
8206: x_msg_data );
8207: EXCEPTION
8208: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8210: l_api_name,
8211: G_PKG_NAME,
8212: 'OKL_API.G_RET_STS_ERROR',
8213: x_msg_count,
8208: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8209: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8210: l_api_name,
8211: G_PKG_NAME,
8212: 'OKL_API.G_RET_STS_ERROR',
8213: x_msg_count,
8214: x_msg_data,
8215: '_PVT');
8216: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8212: 'OKL_API.G_RET_STS_ERROR',
8213: x_msg_count,
8214: x_msg_data,
8215: '_PVT');
8216: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8217: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8218: l_api_name,
8219: G_PKG_NAME,
8220: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8213: x_msg_count,
8214: x_msg_data,
8215: '_PVT');
8216: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8217: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8218: l_api_name,
8219: G_PKG_NAME,
8220: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8221: x_msg_count,
8216: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8217: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8218: l_api_name,
8219: G_PKG_NAME,
8220: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8221: x_msg_count,
8222: x_msg_data,
8223: '_PVT');
8224: WHEN OTHERS THEN
8221: x_msg_count,
8222: x_msg_data,
8223: '_PVT');
8224: WHEN OTHERS THEN
8225: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8226: l_api_name,
8227: G_PKG_NAME,
8228: 'OTHERS',
8229: x_msg_count,
8234: ---------------------------- Main Process for Creation of Financial Asset -------------------------------
8235: -------------------------------------------------------------------------------------------------------
8236: PROCEDURE create_fin_line(
8237: p_api_version IN NUMBER,
8238: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8239: x_return_status OUT NOCOPY VARCHAR2,
8240: x_msg_count OUT NOCOPY NUMBER,
8241: x_msg_data OUT NOCOPY VARCHAR2,
8242: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8250: -- Variables for validation of line style
8251: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
8252: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
8253: BEGIN
8254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8255: -- Call start_activity to create savepoint, check compatibility
8256: -- and initialize message list
8257: x_return_status := OKL_API.START_ACTIVITY (
8258: l_api_name
8253: BEGIN
8254: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8255: -- Call start_activity to create savepoint, check compatibility
8256: -- and initialize message list
8257: x_return_status := OKL_API.START_ACTIVITY (
8258: l_api_name
8259: ,p_init_msg_list
8260: ,'_PVT'
8261: ,x_return_status);
8259: ,p_init_msg_list
8260: ,'_PVT'
8261: ,x_return_status);
8262: -- Check if activity started successfully
8263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8266: RAISE OKL_API.G_EXCEPTION_ERROR;
8267: END IF;
8260: ,'_PVT'
8261: ,x_return_status);
8262: -- Check if activity started successfully
8263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8266: RAISE OKL_API.G_EXCEPTION_ERROR;
8267: END IF;
8268:
8261: ,x_return_status);
8262: -- Check if activity started successfully
8263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8266: RAISE OKL_API.G_EXCEPTION_ERROR;
8267: END IF;
8268:
8269: -- 4414408 The validation is now performed in create_all_line procedure
8262: -- Check if activity started successfully
8263: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8265: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8266: RAISE OKL_API.G_EXCEPTION_ERROR;
8267: END IF;
8268:
8269: -- 4414408 The validation is now performed in create_all_line procedure
8270: /*
8269: -- 4414408 The validation is now performed in create_all_line procedure
8270: /*
8271: -- To Check We Got the Valid info
8272: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8273: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8274: UPPER(p_new_yn) IS NULL) THEN
8275: OKL_API.set_message(p_app_name => G_APP_NAME,
8276: p_msg_name => G_INVALID_YN,
8277: p_token1 => G_COL_NAME_TOKEN,
8271: -- To Check We Got the Valid info
8272: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8273: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8274: UPPER(p_new_yn) IS NULL) THEN
8275: OKL_API.set_message(p_app_name => G_APP_NAME,
8276: p_msg_name => G_INVALID_YN,
8277: p_token1 => G_COL_NAME_TOKEN,
8278: p_token1_value => 'p_new_yn');
8279: -- Halt Validation
8276: p_msg_name => G_INVALID_YN,
8277: p_token1 => G_COL_NAME_TOKEN,
8278: p_token1_value => 'p_new_yn');
8279: -- Halt Validation
8280: RAISE OKL_API.G_EXCEPTION_ERROR;
8281: END IF;
8282: -- Validate to see if the asset_number given is not null
8283: -- and also Validate asset_number does not exists
8284: -- in OKL_TXL_ASSETS_V
8286: validate_new_asset_number(x_return_status => x_return_status,
8287: p_asset_number => p_asset_number,
8288: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8289: -- Check if activity started successfully
8290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8293: RAISE OKL_API.G_EXCEPTION_ERROR;
8294: END IF;
8287: p_asset_number => p_asset_number,
8288: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8289: -- Check if activity started successfully
8290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8293: RAISE OKL_API.G_EXCEPTION_ERROR;
8294: END IF;
8295: ELSE
8288: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8289: -- Check if activity started successfully
8290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8293: RAISE OKL_API.G_EXCEPTION_ERROR;
8294: END IF;
8295: ELSE
8296: validate_new_asset_number(x_return_status => x_return_status,
8289: -- Check if activity started successfully
8290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8293: RAISE OKL_API.G_EXCEPTION_ERROR;
8294: END IF;
8295: ELSE
8296: validate_new_asset_number(x_return_status => x_return_status,
8297: p_asset_number => p_asset_number,
8296: validate_new_asset_number(x_return_status => x_return_status,
8297: p_asset_number => p_asset_number,
8298: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8299: -- Check if activity ended successfully
8300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8303: RAISE OKL_API.G_EXCEPTION_ERROR;
8304: END IF;
8297: p_asset_number => p_asset_number,
8298: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8299: -- Check if activity ended successfully
8300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8303: RAISE OKL_API.G_EXCEPTION_ERROR;
8304: END IF;
8305: END IF;
8298: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
8299: -- Check if activity ended successfully
8300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8303: RAISE OKL_API.G_EXCEPTION_ERROR;
8304: END IF;
8305: END IF;
8306: */
8299: -- Check if activity ended successfully
8300: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8303: RAISE OKL_API.G_EXCEPTION_ERROR;
8304: END IF;
8305: END IF;
8306: */
8307: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
8312: x_return_status => x_return_status,
8313: x_lty_code => l_lty_code,
8314: x_lse_type => l_lse_type);
8315: -- Check if activity started successfully
8316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_ERROR;
8320: END IF;
8313: x_lty_code => l_lty_code,
8314: x_lse_type => l_lse_type);
8315: -- Check if activity started successfully
8316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_ERROR;
8320: END IF;
8321: -- Validate the Dnz_Chr_id
8314: x_lse_type => l_lse_type);
8315: -- Check if activity started successfully
8316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_ERROR;
8320: END IF;
8321: -- Validate the Dnz_Chr_id
8322: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8315: -- Check if activity started successfully
8316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8319: RAISE OKL_API.G_EXCEPTION_ERROR;
8320: END IF;
8321: -- Validate the Dnz_Chr_id
8322: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8323: x_return_status => x_return_status);
8321: -- Validate the Dnz_Chr_id
8322: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8323: x_return_status => x_return_status);
8324: -- Check if activity started successfully
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8322: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
8323: x_return_status => x_return_status);
8324: -- Check if activity started successfully
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330: */
8323: x_return_status => x_return_status);
8324: -- Check if activity started successfully
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330: */
8331: -- creating of finanical Asset Lines which is the top Line
8324: -- Check if activity started successfully
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330: */
8331: -- creating of finanical Asset Lines which is the top Line
8332: -- While createing the cle_id will be null, chr_id will be not null
8332: -- While createing the cle_id will be null, chr_id will be not null
8333: -- and also the dnz_chr_id will be not null.Lse_id given will also helps
8334: -- to decide that this line is finanical Asset Line
8335: l_clev_rec := p_clev_rec;
8336: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8337: l_clev_rec.cle_id IS NULL) AND
8338: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8339: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8340: (l_clev_rec.chr_id IS NOT NULL OR
8335: l_clev_rec := p_clev_rec;
8336: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8337: l_clev_rec.cle_id IS NULL) AND
8338: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8339: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8340: (l_clev_rec.chr_id IS NOT NULL OR
8341: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8342: -- #4414408
8343: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8337: l_clev_rec.cle_id IS NULL) AND
8338: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8339: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8340: (l_clev_rec.chr_id IS NOT NULL OR
8341: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8342: -- #4414408
8343: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8344: -- l_lse_type = G_TLS_TYPE THEN
8345: l_clev_rec.lse_id = G_FIN_LINE_LTY_ID THEN
8355: p_clev_rec => l_clev_rec,
8356: p_klev_rec => p_klev_rec,
8357: x_clev_rec => x_clev_rec,
8358: x_klev_rec => x_klev_rec);
8359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8362: RAISE OKL_API.G_EXCEPTION_ERROR;
8363: END IF;
8356: p_klev_rec => p_klev_rec,
8357: x_clev_rec => x_clev_rec,
8358: x_klev_rec => x_klev_rec);
8359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8362: RAISE OKL_API.G_EXCEPTION_ERROR;
8363: END IF;
8364: ELSE
8357: x_clev_rec => x_clev_rec,
8358: x_klev_rec => x_klev_rec);
8359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8362: RAISE OKL_API.G_EXCEPTION_ERROR;
8363: END IF;
8364: ELSE
8365: OKL_API.set_message(p_app_name => G_APP_NAME,
8358: x_klev_rec => x_klev_rec);
8359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8362: RAISE OKL_API.G_EXCEPTION_ERROR;
8363: END IF;
8364: ELSE
8365: OKL_API.set_message(p_app_name => G_APP_NAME,
8366: p_msg_name => G_INVALID_CRITERIA,
8361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8362: RAISE OKL_API.G_EXCEPTION_ERROR;
8363: END IF;
8364: ELSE
8365: OKL_API.set_message(p_app_name => G_APP_NAME,
8366: p_msg_name => G_INVALID_CRITERIA,
8367: p_token1 => G_COL_NAME_TOKEN,
8368: p_token1_value => 'Financial Asset line');
8369: x_return_status := OKL_API.G_RET_STS_ERROR;
8365: OKL_API.set_message(p_app_name => G_APP_NAME,
8366: p_msg_name => G_INVALID_CRITERIA,
8367: p_token1 => G_COL_NAME_TOKEN,
8368: p_token1_value => 'Financial Asset line');
8369: x_return_status := OKL_API.G_RET_STS_ERROR;
8370: RAISE OKL_API.G_EXCEPTION_ERROR;
8371: END IF;
8372: OKL_API.END_ACTIVITY (x_msg_count,
8373: x_msg_data );
8366: p_msg_name => G_INVALID_CRITERIA,
8367: p_token1 => G_COL_NAME_TOKEN,
8368: p_token1_value => 'Financial Asset line');
8369: x_return_status := OKL_API.G_RET_STS_ERROR;
8370: RAISE OKL_API.G_EXCEPTION_ERROR;
8371: END IF;
8372: OKL_API.END_ACTIVITY (x_msg_count,
8373: x_msg_data );
8374: EXCEPTION
8368: p_token1_value => 'Financial Asset line');
8369: x_return_status := OKL_API.G_RET_STS_ERROR;
8370: RAISE OKL_API.G_EXCEPTION_ERROR;
8371: END IF;
8372: OKL_API.END_ACTIVITY (x_msg_count,
8373: x_msg_data );
8374: EXCEPTION
8375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8371: END IF;
8372: OKL_API.END_ACTIVITY (x_msg_count,
8373: x_msg_data );
8374: EXCEPTION
8375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8377: l_api_name,
8378: G_PKG_NAME,
8379: 'OKL_API.G_RET_STS_ERROR',
8372: OKL_API.END_ACTIVITY (x_msg_count,
8373: x_msg_data );
8374: EXCEPTION
8375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8377: l_api_name,
8378: G_PKG_NAME,
8379: 'OKL_API.G_RET_STS_ERROR',
8380: x_msg_count,
8375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8377: l_api_name,
8378: G_PKG_NAME,
8379: 'OKL_API.G_RET_STS_ERROR',
8380: x_msg_count,
8381: x_msg_data,
8382: '_PVT');
8383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8379: 'OKL_API.G_RET_STS_ERROR',
8380: x_msg_count,
8381: x_msg_data,
8382: '_PVT');
8383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8385: l_api_name,
8386: G_PKG_NAME,
8387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8380: x_msg_count,
8381: x_msg_data,
8382: '_PVT');
8383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8385: l_api_name,
8386: G_PKG_NAME,
8387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8388: x_msg_count,
8383: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8384: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8385: l_api_name,
8386: G_PKG_NAME,
8387: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8388: x_msg_count,
8389: x_msg_data,
8390: '_PVT');
8391: WHEN OTHERS THEN
8388: x_msg_count,
8389: x_msg_data,
8390: '_PVT');
8391: WHEN OTHERS THEN
8392: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8393: l_api_name,
8394: G_PKG_NAME,
8395: 'OTHERS',
8396: x_msg_count,
8401: ---------------------------- Main Process for update of Financial Asset -------------------------------
8402: -------------------------------------------------------------------------------------------------------
8403: PROCEDURE Update_fin_line(
8404: p_api_version IN NUMBER,
8405: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8406: x_return_status OUT NOCOPY VARCHAR2,
8407: x_msg_count OUT NOCOPY NUMBER,
8408: x_msg_data OUT NOCOPY VARCHAR2,
8409: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8411: p_clev_rec IN clev_rec_type,
8412: p_klev_rec IN klev_rec_type,
8413: x_clev_rec OUT NOCOPY clev_rec_type,
8414: x_klev_rec OUT NOCOPY klev_rec_type,
8415: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8416: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FIN_AST_LINES';
8417: l_clev_rec clev_rec_type := p_clev_rec;
8418: l_klev_rec klev_rec_type := p_klev_rec;
8419: -- Variables for validation of line style
8444: -- AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
8445: AND cle.lse_id = G_FA_LINE_LTY_ID;
8446:
8447: BEGIN
8448: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8449: -- Call start_activity to create savepoint, check compatibility
8450: -- and initialize message list
8451: x_return_status := OKL_API.START_ACTIVITY (
8452: l_api_name
8447: BEGIN
8448: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8449: -- Call start_activity to create savepoint, check compatibility
8450: -- and initialize message list
8451: x_return_status := OKL_API.START_ACTIVITY (
8452: l_api_name
8453: ,p_init_msg_list
8454: ,'_PVT'
8455: ,x_return_status);
8453: ,p_init_msg_list
8454: ,'_PVT'
8455: ,x_return_status);
8456: -- Check if activity started successfully
8457: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8459: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_ERROR;
8461: END IF;
8454: ,'_PVT'
8455: ,x_return_status);
8456: -- Check if activity started successfully
8457: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8459: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_ERROR;
8461: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8455: ,x_return_status);
8456: -- Check if activity started successfully
8457: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8459: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_ERROR;
8461: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8456: -- Check if activity started successfully
8457: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8459: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_ERROR;
8461: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8464: x_return_status => x_return_status);
8458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8459: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8460: RAISE OKL_API.G_EXCEPTION_ERROR;
8461: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8464: x_return_status => x_return_status);
8465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8461: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8464: x_return_status => x_return_status);
8465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8468: RAISE OKL_API.G_EXCEPTION_ERROR;
8469: END IF;
8462: IF (p_validate_fin_line = OKL_API.G_TRUE) THEN
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8464: x_return_status => x_return_status);
8465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8468: RAISE OKL_API.G_EXCEPTION_ERROR;
8469: END IF;
8470: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8463: validate_sts_code(p_clev_rec => l_clev_rec,
8464: x_return_status => x_return_status);
8465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8468: RAISE OKL_API.G_EXCEPTION_ERROR;
8469: END IF;
8470: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8471: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8464: x_return_status => x_return_status);
8465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8468: RAISE OKL_API.G_EXCEPTION_ERROR;
8469: END IF;
8470: OPEN get_fa_id(p_top_line => l_clev_rec.id,
8471: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8472: FETCH get_fa_id INTO ln_fa_id;
8471: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8472: FETCH get_fa_id INTO ln_fa_id;
8473: -- 4414408
8474: IF get_fa_id%NOTFOUND THEN
8475: OKL_API.set_message(p_app_name => G_APP_NAME,
8476: p_msg_name => G_LINE_RECORD);
8477: RAISE OKL_API.G_EXCEPTION_ERROR;
8478: END IF;
8479: CLOSE get_fa_id;
8473: -- 4414408
8474: IF get_fa_id%NOTFOUND THEN
8475: OKL_API.set_message(p_app_name => G_APP_NAME,
8476: p_msg_name => G_LINE_RECORD);
8477: RAISE OKL_API.G_EXCEPTION_ERROR;
8478: END IF;
8479: CLOSE get_fa_id;
8480: -- To Check We Got the Valid info
8481: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8478: END IF;
8479: CLOSE get_fa_id;
8480: -- To Check We Got the Valid info
8481: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8482: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8483: UPPER(p_new_yn) IS NULL) THEN
8484: OKL_API.set_message(p_app_name => G_APP_NAME,
8485: p_msg_name => G_INVALID_YN,
8486: p_token1 => G_COL_NAME_TOKEN,
8480: -- To Check We Got the Valid info
8481: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
8482: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
8483: UPPER(p_new_yn) IS NULL) THEN
8484: OKL_API.set_message(p_app_name => G_APP_NAME,
8485: p_msg_name => G_INVALID_YN,
8486: p_token1 => G_COL_NAME_TOKEN,
8487: p_token1_value => 'p_new_yn');
8488: -- Halt Validation
8485: p_msg_name => G_INVALID_YN,
8486: p_token1 => G_COL_NAME_TOKEN,
8487: p_token1_value => 'p_new_yn');
8488: -- Halt Validation
8489: RAISE OKL_API.G_EXCEPTION_ERROR;
8490: END IF;
8491: -- Validate to see if the asset_number given is not null
8492: -- and also Validate asset_number does not exists
8493: -- in OKL_TXL_ASSETS_V
8496: p_asset_number => p_asset_number,
8497: p_kle_id => ln_fa_id,
8498: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8499: -- Check if activity started successfully
8500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8503: RAISE OKL_API.G_EXCEPTION_ERROR;
8504: END IF;
8497: p_kle_id => ln_fa_id,
8498: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8499: -- Check if activity started successfully
8500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8503: RAISE OKL_API.G_EXCEPTION_ERROR;
8504: END IF;
8505: ELSIF UPPER(p_new_yn) = 'N' THEN
8498: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8499: -- Check if activity started successfully
8500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8503: RAISE OKL_API.G_EXCEPTION_ERROR;
8504: END IF;
8505: ELSIF UPPER(p_new_yn) = 'N' THEN
8506: validate_new_ast_num_update(x_return_status => x_return_status,
8499: -- Check if activity started successfully
8500: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8501: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8502: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8503: RAISE OKL_API.G_EXCEPTION_ERROR;
8504: END IF;
8505: ELSIF UPPER(p_new_yn) = 'N' THEN
8506: validate_new_ast_num_update(x_return_status => x_return_status,
8507: p_asset_number => p_asset_number,
8507: p_asset_number => p_asset_number,
8508: p_kle_id => ln_fa_id,
8509: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8510: -- Check if activity started successfully
8511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8514: RAISE OKL_API.G_EXCEPTION_ERROR;
8515: END IF;
8508: p_kle_id => ln_fa_id,
8509: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8510: -- Check if activity started successfully
8511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8514: RAISE OKL_API.G_EXCEPTION_ERROR;
8515: END IF;
8516: END IF;
8509: p_dnz_chr_id => l_clev_rec.dnz_chr_id);
8510: -- Check if activity started successfully
8511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8514: RAISE OKL_API.G_EXCEPTION_ERROR;
8515: END IF;
8516: END IF;
8517: -- Validate Line Style id and get the line type code
8510: -- Check if activity started successfully
8511: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8512: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8513: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8514: RAISE OKL_API.G_EXCEPTION_ERROR;
8515: END IF;
8516: END IF;
8517: -- Validate Line Style id and get the line type code
8518: -- and line style type for further processing
8520: x_return_status => x_return_status,
8521: x_lty_code => l_lty_code,
8522: x_lse_type => l_lse_type);
8523: -- Check if activity started successfully
8524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8527: RAISE OKL_API.G_EXCEPTION_ERROR;
8528: END IF;
8521: x_lty_code => l_lty_code,
8522: x_lse_type => l_lse_type);
8523: -- Check if activity started successfully
8524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8527: RAISE OKL_API.G_EXCEPTION_ERROR;
8528: END IF;
8529: -- Validate the Dnz_Chr_id
8522: x_lse_type => l_lse_type);
8523: -- Check if activity started successfully
8524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8527: RAISE OKL_API.G_EXCEPTION_ERROR;
8528: END IF;
8529: -- Validate the Dnz_Chr_id
8530: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8523: -- Check if activity started successfully
8524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8527: RAISE OKL_API.G_EXCEPTION_ERROR;
8528: END IF;
8529: -- Validate the Dnz_Chr_id
8530: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8531: x_return_status => x_return_status);
8529: -- Validate the Dnz_Chr_id
8530: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8531: x_return_status => x_return_status);
8532: -- Check if activity started successfully
8533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8536: RAISE OKL_API.G_EXCEPTION_ERROR;
8537: END IF;
8530: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
8531: x_return_status => x_return_status);
8532: -- Check if activity started successfully
8533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8536: RAISE OKL_API.G_EXCEPTION_ERROR;
8537: END IF;
8538: END IF;
8531: x_return_status => x_return_status);
8532: -- Check if activity started successfully
8533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8536: RAISE OKL_API.G_EXCEPTION_ERROR;
8537: END IF;
8538: END IF;
8539: -- Modified by rravikir
8532: -- Check if activity started successfully
8533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8536: RAISE OKL_API.G_EXCEPTION_ERROR;
8537: END IF;
8538: END IF;
8539: -- Modified by rravikir
8540: -- Call to Accounting Util package to address Multi Currency requirement
8542: /*
8543: -- nnirnaka 12/24/02 commented this out as this already happens in
8544: -- contract line update
8545:
8546: IF (l_klev_rec.capital_reduction <> OKL_API.G_MISS_NUM AND
8547: l_klev_rec.capital_reduction IS NOT NULL) THEN
8548: capital_reduction := l_klev_rec.capital_reduction;
8549: l_klev_rec.capital_reduction :=
8550: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.capital_reduction,
8550: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.capital_reduction,
8551: l_clev_rec.currency_code);
8552:
8553: IF (capital_reduction <> 0 AND l_klev_rec.capital_reduction = 0) THEN
8554: OKL_API.set_message(p_app_name => G_APP_NAME,
8555: p_msg_name => G_AMOUNT_ROUNDING,
8556: p_token1 => 'AMT',
8557: p_token1_value => to_char(capital_reduction));
8558: RAISE G_EXCEPTION_HALT_VALIDATION;
8558: RAISE G_EXCEPTION_HALT_VALIDATION;
8559: END IF;
8560: END IF;
8561:
8562: IF (l_klev_rec.tradein_amount <> OKL_API.G_MISS_NUM AND
8563: l_klev_rec.tradein_amount IS NOT NULL) THEN
8564: tradein_amount := l_klev_rec.tradein_amount;
8565: l_klev_rec.tradein_amount :=
8566: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.tradein_amount,
8566: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_klev_rec.tradein_amount,
8567: l_clev_rec.currency_code);
8568:
8569: IF (tradein_amount <> 0 AND l_klev_rec.tradein_amount = 0) THEN
8570: OKL_API.set_message(p_app_name => G_APP_NAME,
8571: p_msg_name => G_AMOUNT_ROUNDING,
8572: p_token1 => 'AMT',
8573: p_token1_value => to_char(tradein_amount));
8574: RAISE G_EXCEPTION_HALT_VALIDATION;
8581: -- Updating of finanical Asset Lines which is the top Line
8582: -- While Updating the cle_id will be null, chr_id will be not null
8583: -- and also the dnz_chr_id will be not null.Lse_id given will also helps
8584: -- to decide that this line is finanical Asset Line
8585: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8586: l_clev_rec.cle_id IS NULL) AND
8587: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8588: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8589: (l_clev_rec.chr_id IS NOT NULL OR
8584: -- to decide that this line is finanical Asset Line
8585: IF (l_clev_rec.cle_id = OKL_API.G_MISS_NUM OR
8586: l_clev_rec.cle_id IS NULL) AND
8587: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8588: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8589: (l_clev_rec.chr_id IS NOT NULL OR
8590: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8591: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8592: -- l_lse_type = G_TLS_TYPE THEN
8586: l_clev_rec.cle_id IS NULL) AND
8587: (l_clev_rec.dnz_chr_id IS NOT NULL OR
8588: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
8589: (l_clev_rec.chr_id IS NOT NULL OR
8590: l_clev_rec.chr_id <> OKL_API.G_MISS_NUM) AND
8591: -- l_lty_code = G_FIN_LINE_LTY_CODE AND
8592: -- l_lse_type = G_TLS_TYPE THEN
8593: l_clev_rec.lse_id = G_FIN_LINE_LTY_ID THEN
8594:
8601: p_clev_rec => l_clev_rec,
8602: p_klev_rec => l_klev_rec,
8603: x_clev_rec => x_clev_rec,
8604: x_klev_rec => x_klev_rec);
8605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8608: RAISE OKL_API.G_EXCEPTION_ERROR;
8609: END IF;
8602: p_klev_rec => l_klev_rec,
8603: x_clev_rec => x_clev_rec,
8604: x_klev_rec => x_klev_rec);
8605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8608: RAISE OKL_API.G_EXCEPTION_ERROR;
8609: END IF;
8610: ELSE
8603: x_clev_rec => x_clev_rec,
8604: x_klev_rec => x_klev_rec);
8605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8608: RAISE OKL_API.G_EXCEPTION_ERROR;
8609: END IF;
8610: ELSE
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8604: x_klev_rec => x_klev_rec);
8605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8608: RAISE OKL_API.G_EXCEPTION_ERROR;
8609: END IF;
8610: ELSE
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_INVALID_CRITERIA,
8607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8608: RAISE OKL_API.G_EXCEPTION_ERROR;
8609: END IF;
8610: ELSE
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_INVALID_CRITERIA,
8613: p_token1 => 'LINE_STYLE',
8614: p_token1_value => 'Financial Asset line');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_INVALID_CRITERIA,
8613: p_token1 => 'LINE_STYLE',
8614: p_token1_value => 'Financial Asset line');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: RAISE OKL_API.G_EXCEPTION_ERROR;
8617: END IF;
8618: OKL_API.END_ACTIVITY (x_msg_count,
8619: x_msg_data );
8612: p_msg_name => G_INVALID_CRITERIA,
8613: p_token1 => 'LINE_STYLE',
8614: p_token1_value => 'Financial Asset line');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: RAISE OKL_API.G_EXCEPTION_ERROR;
8617: END IF;
8618: OKL_API.END_ACTIVITY (x_msg_count,
8619: x_msg_data );
8620: EXCEPTION
8614: p_token1_value => 'Financial Asset line');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: RAISE OKL_API.G_EXCEPTION_ERROR;
8617: END IF;
8618: OKL_API.END_ACTIVITY (x_msg_count,
8619: x_msg_data );
8620: EXCEPTION
8621: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8622: IF get_fa_id%ISOPEN THEN
8617: END IF;
8618: OKL_API.END_ACTIVITY (x_msg_count,
8619: x_msg_data );
8620: EXCEPTION
8621: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8622: IF get_fa_id%ISOPEN THEN
8623: CLOSE get_fa_id;
8624: END IF;
8625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8621: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8622: IF get_fa_id%ISOPEN THEN
8623: CLOSE get_fa_id;
8624: END IF;
8625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8626: l_api_name,
8627: G_PKG_NAME,
8628: 'OKL_API.G_RET_STS_ERROR',
8629: x_msg_count,
8624: END IF;
8625: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8626: l_api_name,
8627: G_PKG_NAME,
8628: 'OKL_API.G_RET_STS_ERROR',
8629: x_msg_count,
8630: x_msg_data,
8631: '_PVT');
8632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8628: 'OKL_API.G_RET_STS_ERROR',
8629: x_msg_count,
8630: x_msg_data,
8631: '_PVT');
8632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8633: IF get_fa_id%ISOPEN THEN
8634: CLOSE get_fa_id;
8635: END IF;
8636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8632: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8633: IF get_fa_id%ISOPEN THEN
8634: CLOSE get_fa_id;
8635: END IF;
8636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8637: l_api_name,
8638: G_PKG_NAME,
8639: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8640: x_msg_count,
8635: END IF;
8636: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8637: l_api_name,
8638: G_PKG_NAME,
8639: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8640: x_msg_count,
8641: x_msg_data,
8642: '_PVT');
8643: WHEN OTHERS THEN
8643: WHEN OTHERS THEN
8644: IF get_fa_id%ISOPEN THEN
8645: CLOSE get_fa_id;
8646: END IF;
8647: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8648: l_api_name,
8649: G_PKG_NAME,
8650: 'OTHERS',
8651: x_msg_count,
8656: ----------------- Main Process for update of Financial Asset for Capital Cost -------------------------
8657: -------------------------------------------------------------------------------------------------------
8658: PROCEDURE Update_fin_cap_cost(
8659: p_api_version IN NUMBER,
8660: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8661: x_return_status OUT NOCOPY VARCHAR2,
8662: x_msg_count OUT NOCOPY NUMBER,
8663: x_msg_data OUT NOCOPY VARCHAR2,
8664: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8701:
8702: l_rbk_khr VARCHAR2(1) DEFAULT '?';
8703:
8704: BEGIN
8705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8706: -- Call start_activity to create savepoint, check compatibility
8707: -- and initialize message list
8708: x_return_status := OKL_API.START_ACTIVITY (
8709: l_api_name
8704: BEGIN
8705: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8706: -- Call start_activity to create savepoint, check compatibility
8707: -- and initialize message list
8708: x_return_status := OKL_API.START_ACTIVITY (
8709: l_api_name
8710: ,p_init_msg_list
8711: ,'_PVT'
8712: ,x_return_status);
8710: ,p_init_msg_list
8711: ,'_PVT'
8712: ,x_return_status);
8713: -- Check if activity started successfully
8714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8717: RAISE OKL_API.G_EXCEPTION_ERROR;
8718: END IF;
8711: ,'_PVT'
8712: ,x_return_status);
8713: -- Check if activity started successfully
8714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8717: RAISE OKL_API.G_EXCEPTION_ERROR;
8718: END IF;
8719: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8712: ,x_return_status);
8713: -- Check if activity started successfully
8714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8717: RAISE OKL_API.G_EXCEPTION_ERROR;
8718: END IF;
8719: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8720: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8713: -- Check if activity started successfully
8714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8717: RAISE OKL_API.G_EXCEPTION_ERROR;
8718: END IF;
8719: OPEN c_get_lse_id_sts(p_top_line_id => l_clev_rec.id);
8720: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8721: l_clev_rec.sts_code;
8720: FETCH c_get_lse_id_sts INTO l_clev_rec.lse_id,
8721: l_clev_rec.sts_code;
8722: -- 4414408
8723: IF c_get_lse_id_sts%NOTFOUND THEN
8724: OKL_API.set_message(p_app_name => G_APP_NAME,
8725: p_msg_name => G_LINE_RECORD);
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8728: CLOSE c_get_lse_id_sts;
8722: -- 4414408
8723: IF c_get_lse_id_sts%NOTFOUND THEN
8724: OKL_API.set_message(p_app_name => G_APP_NAME,
8725: p_msg_name => G_LINE_RECORD);
8726: RAISE OKL_API.G_EXCEPTION_ERROR;
8727: END IF;
8728: CLOSE c_get_lse_id_sts;
8729: -- Here we update the capital Amount for the Top line of klev_rec
8730: --Bug# 3877032 :
8728: CLOSE c_get_lse_id_sts;
8729: -- Here we update the capital Amount for the Top line of klev_rec
8730: --Bug# 3877032 :
8731: --IF (l_klev_rec.capital_reduction_percent IS NULL OR
8732: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8733: --(l_klev_rec.capital_reduction IS NULL OR
8734: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8735: --(l_klev_rec.tradein_amount IS NULL OR
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8730: --Bug# 3877032 :
8731: --IF (l_klev_rec.capital_reduction_percent IS NULL OR
8732: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8733: --(l_klev_rec.capital_reduction IS NULL OR
8734: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8735: --(l_klev_rec.tradein_amount IS NULL OR
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8737:
8738: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8732: --l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM ) AND
8733: --(l_klev_rec.capital_reduction IS NULL OR
8734: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8735: --(l_klev_rec.tradein_amount IS NULL OR
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8737:
8738: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8739: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8740: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8734: --l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM ) AND
8735: --(l_klev_rec.tradein_amount IS NULL OR
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8737:
8738: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8739: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8740: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8741: -- Updating of finanical Asset Lines with all the values
8742: Update_fin_line(p_api_version => p_api_version,
8735: --(l_klev_rec.tradein_amount IS NULL OR
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8737:
8738: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8739: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8740: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8741: -- Updating of finanical Asset Lines with all the values
8742: Update_fin_line(p_api_version => p_api_version,
8743: p_init_msg_list => p_init_msg_list,
8736: --l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM ) THEN
8737:
8738: IF l_klev_rec.capital_reduction_percent = OKL_API.G_MISS_NUM AND
8739: l_klev_rec.capital_reduction = OKL_API.G_MISS_NUM AND
8740: l_klev_rec.tradein_amount = OKL_API.G_MISS_NUM THEN
8741: -- Updating of finanical Asset Lines with all the values
8742: Update_fin_line(p_api_version => p_api_version,
8743: p_init_msg_list => p_init_msg_list,
8744: x_return_status => x_return_status,
8749: p_clev_rec => l_clev_rec,
8750: p_klev_rec => l_klev_rec,
8751: x_clev_rec => x_clev_rec,
8752: x_klev_rec => x_klev_rec,
8753: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8757: RAISE OKL_API.G_EXCEPTION_ERROR;
8750: p_klev_rec => l_klev_rec,
8751: x_clev_rec => x_clev_rec,
8752: x_klev_rec => x_klev_rec,
8753: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8757: RAISE OKL_API.G_EXCEPTION_ERROR;
8758: END IF;
8751: x_clev_rec => x_clev_rec,
8752: x_klev_rec => x_klev_rec,
8753: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8757: RAISE OKL_API.G_EXCEPTION_ERROR;
8758: END IF;
8759: ELSE
8752: x_klev_rec => x_klev_rec,
8753: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8757: RAISE OKL_API.G_EXCEPTION_ERROR;
8758: END IF;
8759: ELSE
8760: -- Here we update the capital Amount for the Top line of klev_rec
8753: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
8754: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8757: RAISE OKL_API.G_EXCEPTION_ERROR;
8758: END IF;
8759: ELSE
8760: -- Here we update the capital Amount for the Top line of klev_rec
8761: -- But further we first have to update the top line with values
8773: p_clev_rec => l_clev_rec,
8774: p_klev_rec => l_klev_rec,
8775: x_clev_rec => x_clev_rec,
8776: x_klev_rec => x_klev_rec,
8777: p_validate_fin_line => OKL_API.G_TRUE);
8778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8781: RAISE OKL_API.G_EXCEPTION_ERROR;
8774: p_klev_rec => l_klev_rec,
8775: x_clev_rec => x_clev_rec,
8776: x_klev_rec => x_klev_rec,
8777: p_validate_fin_line => OKL_API.G_TRUE);
8778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8781: RAISE OKL_API.G_EXCEPTION_ERROR;
8782: END IF;
8775: x_clev_rec => x_clev_rec,
8776: x_klev_rec => x_klev_rec,
8777: p_validate_fin_line => OKL_API.G_TRUE);
8778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8781: RAISE OKL_API.G_EXCEPTION_ERROR;
8782: END IF;
8783: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8776: x_klev_rec => x_klev_rec,
8777: p_validate_fin_line => OKL_API.G_TRUE);
8778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8781: RAISE OKL_API.G_EXCEPTION_ERROR;
8782: END IF;
8783: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8784: p_init_msg_list => p_init_msg_list,
8777: p_validate_fin_line => OKL_API.G_TRUE);
8778: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8780: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8781: RAISE OKL_API.G_EXCEPTION_ERROR;
8782: END IF;
8783: OKL_EXECUTE_FORMULA_PUB.execute(p_api_version => p_api_version,
8784: p_init_msg_list => p_init_msg_list,
8785: x_return_status => x_return_status,
8788: p_formula_name => G_FORMULA_CAP,
8789: p_contract_id => x_clev_rec.dnz_chr_id,
8790: p_line_id => x_clev_rec.id,
8791: x_value => x_klev_rec.capital_amount);
8792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8793: OKL_API.set_message(p_app_name => G_APP_NAME,
8794: p_msg_name => G_CALC_AMOUNT,
8795: p_token1 => G_AMT_TOKEN,
8796: p_token1_value => 'Capital Amount');
8789: p_contract_id => x_clev_rec.dnz_chr_id,
8790: p_line_id => x_clev_rec.id,
8791: x_value => x_klev_rec.capital_amount);
8792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8793: OKL_API.set_message(p_app_name => G_APP_NAME,
8794: p_msg_name => G_CALC_AMOUNT,
8795: p_token1 => G_AMT_TOKEN,
8796: p_token1_value => 'Capital Amount');
8797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8793: OKL_API.set_message(p_app_name => G_APP_NAME,
8794: p_msg_name => G_CALC_AMOUNT,
8795: p_token1 => G_AMT_TOKEN,
8796: p_token1_value => 'Capital Amount');
8797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8799: OKL_API.set_message(p_app_name => G_APP_NAME,
8800: p_msg_name => G_CALC_AMOUNT,
8801: p_token1 => G_AMT_TOKEN,
8794: p_msg_name => G_CALC_AMOUNT,
8795: p_token1 => G_AMT_TOKEN,
8796: p_token1_value => 'Capital Amount');
8797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8799: OKL_API.set_message(p_app_name => G_APP_NAME,
8800: p_msg_name => G_CALC_AMOUNT,
8801: p_token1 => G_AMT_TOKEN,
8802: p_token1_value => 'Capital Amount');
8795: p_token1 => G_AMT_TOKEN,
8796: p_token1_value => 'Capital Amount');
8797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8798: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8799: OKL_API.set_message(p_app_name => G_APP_NAME,
8800: p_msg_name => G_CALC_AMOUNT,
8801: p_token1 => G_AMT_TOKEN,
8802: p_token1_value => 'Capital Amount');
8803: RAISE OKL_API.G_EXCEPTION_ERROR;
8799: OKL_API.set_message(p_app_name => G_APP_NAME,
8800: p_msg_name => G_CALC_AMOUNT,
8801: p_token1 => G_AMT_TOKEN,
8802: p_token1_value => 'Capital Amount');
8803: RAISE OKL_API.G_EXCEPTION_ERROR;
8804: END IF;
8805: -- Updating of finanical Asset Lines with all the values
8806: Update_fin_line(p_api_version => p_api_version,
8807: p_init_msg_list => p_init_msg_list,
8813: p_clev_rec => x_clev_rec,
8814: p_klev_rec => x_klev_rec,
8815: x_clev_rec => lx_clev_rec,
8816: x_klev_rec => lx_klev_rec,
8817: p_validate_fin_line => OKL_API.G_TRUE);
8818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8821: RAISE OKL_API.G_EXCEPTION_ERROR;
8814: p_klev_rec => x_klev_rec,
8815: x_clev_rec => lx_clev_rec,
8816: x_klev_rec => lx_klev_rec,
8817: p_validate_fin_line => OKL_API.G_TRUE);
8818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8821: RAISE OKL_API.G_EXCEPTION_ERROR;
8822: END IF;
8815: x_clev_rec => lx_clev_rec,
8816: x_klev_rec => lx_klev_rec,
8817: p_validate_fin_line => OKL_API.G_TRUE);
8818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8821: RAISE OKL_API.G_EXCEPTION_ERROR;
8822: END IF;
8823:
8816: x_klev_rec => lx_klev_rec,
8817: p_validate_fin_line => OKL_API.G_TRUE);
8818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8821: RAISE OKL_API.G_EXCEPTION_ERROR;
8822: END IF;
8823:
8824: --Bug# 8652738
8817: p_validate_fin_line => OKL_API.G_TRUE);
8818: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8820: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8821: RAISE OKL_API.G_EXCEPTION_ERROR;
8822: END IF;
8823:
8824: --Bug# 8652738
8825: -- Recalculate Asset Depreciation cost when down payment is updated
8839: p_chr_id => x_clev_rec.dnz_chr_id,
8840: p_cle_id => x_clev_rec.id
8841: );
8842:
8843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8846: RAISE OKL_API.G_EXCEPTION_ERROR;
8847: END IF;
8840: p_cle_id => x_clev_rec.id
8841: );
8842:
8843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8846: RAISE OKL_API.G_EXCEPTION_ERROR;
8847: END IF;
8848:
8841: );
8842:
8843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8846: RAISE OKL_API.G_EXCEPTION_ERROR;
8847: END IF;
8848:
8849: END IF;
8842:
8843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8846: RAISE OKL_API.G_EXCEPTION_ERROR;
8847: END IF;
8848:
8849: END IF;
8850: --Bug# 8652738
8854: END IF;
8855: -- We need to change the status of the header whenever there is updating happening
8856: -- after the contract status is approved
8857: IF (x_clev_rec.dnz_chr_id is NOT NULL) AND
8858: (x_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
8859: --cascade edit status on to lines
8860: okl_contract_status_pub.cascade_lease_status_edit
8861: (p_api_version => p_api_version,
8862: p_init_msg_list => p_init_msg_list,
8863: x_return_status => x_return_status,
8864: x_msg_count => x_msg_count,
8865: x_msg_data => x_msg_data,
8866: p_chr_id => x_clev_rec.dnz_chr_id);
8867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8870: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: END IF;
8864: x_msg_count => x_msg_count,
8865: x_msg_data => x_msg_data,
8866: p_chr_id => x_clev_rec.dnz_chr_id);
8867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8870: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: END IF;
8872: END IF;
8865: x_msg_data => x_msg_data,
8866: p_chr_id => x_clev_rec.dnz_chr_id);
8867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8870: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: END IF;
8872: END IF;
8873: EXCEPTION
8866: p_chr_id => x_clev_rec.dnz_chr_id);
8867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8870: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: END IF;
8872: END IF;
8873: EXCEPTION
8874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8870: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: END IF;
8872: END IF;
8873: EXCEPTION
8874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8875: IF c_get_lse_id_sts%ISOPEN THEN
8876: CLOSE c_get_lse_id_sts;
8877: END IF;
8878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8874: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8875: IF c_get_lse_id_sts%ISOPEN THEN
8876: CLOSE c_get_lse_id_sts;
8877: END IF;
8878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8879: l_api_name,
8880: G_PKG_NAME,
8881: 'OKL_API.G_RET_STS_ERROR',
8882: x_msg_count,
8877: END IF;
8878: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8879: l_api_name,
8880: G_PKG_NAME,
8881: 'OKL_API.G_RET_STS_ERROR',
8882: x_msg_count,
8883: x_msg_data,
8884: '_PVT');
8885: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8881: 'OKL_API.G_RET_STS_ERROR',
8882: x_msg_count,
8883: x_msg_data,
8884: '_PVT');
8885: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8886: IF c_get_lse_id_sts%ISOPEN THEN
8887: CLOSE c_get_lse_id_sts;
8888: END IF;
8889: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8885: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8886: IF c_get_lse_id_sts%ISOPEN THEN
8887: CLOSE c_get_lse_id_sts;
8888: END IF;
8889: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8890: l_api_name,
8891: G_PKG_NAME,
8892: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8893: x_msg_count,
8888: END IF;
8889: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8890: l_api_name,
8891: G_PKG_NAME,
8892: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8893: x_msg_count,
8894: x_msg_data,
8895: '_PVT');
8896: WHEN OTHERS THEN
8896: WHEN OTHERS THEN
8897: IF c_get_lse_id_sts%ISOPEN THEN
8898: CLOSE c_get_lse_id_sts;
8899: END IF;
8900: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8901: l_api_name,
8902: G_PKG_NAME,
8903: 'OTHERS',
8904: x_msg_count,
8916: -- End of Commnets
8917:
8918: PROCEDURE oec_calc_upd_fin_rec(
8919: p_api_version IN NUMBER,
8920: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8921: x_return_status OUT NOCOPY VARCHAR2,
8922: x_msg_count OUT NOCOPY NUMBER,
8923: x_msg_data OUT NOCOPY VARCHAR2,
8924: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
8927: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
8928: x_fin_clev_rec OUT NOCOPY clev_rec_type,
8929: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8930: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8931: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8932:
8933: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8934: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8935: l_update_clev_rec clev_rec_type;
8958: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE,G_QUOTE_SCS_CODE);
8959: */
8960: BEGIN
8961: -- initialize return status
8962: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8963: /*
8964: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
8965: p_dnz_chr_id => p_dnz_chr_id);
8966: FETCH c_model_top_line INTO ln_top_line_id;
8965: p_dnz_chr_id => p_dnz_chr_id);
8966: FETCH c_model_top_line INTO ln_top_line_id;
8967: -- #4414408 Moved the IF statement below fetch statement
8968: IF c_model_top_line%NOTFOUND THEN
8969: OKL_API.set_message(p_app_name => G_APP_NAME,
8970: p_msg_name => G_NO_MATCHING_RECORD,
8971: p_token1 => G_COL_NAME_TOKEN,
8972: p_token1_value => 'cle_id');
8973: RAISE G_EXCEPTION_HALT_VALIDATION;
8973: RAISE G_EXCEPTION_HALT_VALIDATION;
8974: END IF;
8975: -- #4414408 This condition will never be met
8976: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
8977: -- OKL_API.set_message(p_app_name => G_APP_NAME,
8978: -- p_msg_name => 'More than one',
8979: -- p_token1 => 'Model line',
8980: -- p_token1_value => 'cle_id');
8981: -- RAISE G_EXCEPTION_HALT_VALIDATION;
8997: p_contract_id => p_dnz_chr_id,
8998: p_line_id => p_top_line_id,
8999: x_value => x_oec);
9000:
9001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9002: OKL_API.set_message(p_app_name => G_APP_NAME,
9003: p_msg_name => G_CALC_AMOUNT,
9004: p_token1 => G_AMT_TOKEN,
9005: p_token1_value => 'OEC');
8998: p_line_id => p_top_line_id,
8999: x_value => x_oec);
9000:
9001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9002: OKL_API.set_message(p_app_name => G_APP_NAME,
9003: p_msg_name => G_CALC_AMOUNT,
9004: p_token1 => G_AMT_TOKEN,
9005: p_token1_value => 'OEC');
9006: RAISE G_EXCEPTION_HALT_VALIDATION;
9003: p_msg_name => G_CALC_AMOUNT,
9004: p_token1 => G_AMT_TOKEN,
9005: p_token1_value => 'OEC');
9006: RAISE G_EXCEPTION_HALT_VALIDATION;
9007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9008: OKL_API.set_message(p_app_name => G_APP_NAME,
9009: p_msg_name => G_CALC_AMOUNT,
9010: p_token1 => G_AMT_TOKEN,
9011: p_token1_value => 'OEC');
9004: p_token1 => G_AMT_TOKEN,
9005: p_token1_value => 'OEC');
9006: RAISE G_EXCEPTION_HALT_VALIDATION;
9007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9008: OKL_API.set_message(p_app_name => G_APP_NAME,
9009: p_msg_name => G_CALC_AMOUNT,
9010: p_token1 => G_AMT_TOKEN,
9011: p_token1_value => 'OEC');
9012: RAISE G_EXCEPTION_HALT_VALIDATION;
9013: END IF;
9014: -- To Get the cle top Line Record
9015: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9016: l_update_clev_rec);
9017: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9018: OKL_API.set_message(p_app_name => G_APP_NAME,
9019: p_msg_name => G_FETCHING_INFO,
9020: p_token1 => G_REC_NAME_TOKEN,
9021: p_token1_value => 'OKC_K_LINES_V Record');
9014: -- To Get the cle top Line Record
9015: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9016: l_update_clev_rec);
9017: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9018: OKL_API.set_message(p_app_name => G_APP_NAME,
9019: p_msg_name => G_FETCHING_INFO,
9020: p_token1 => G_REC_NAME_TOKEN,
9021: p_token1_value => 'OKC_K_LINES_V Record');
9022: RAISE G_EXCEPTION_HALT_VALIDATION;
9019: p_msg_name => G_FETCHING_INFO,
9020: p_token1 => G_REC_NAME_TOKEN,
9021: p_token1_value => 'OKC_K_LINES_V Record');
9022: RAISE G_EXCEPTION_HALT_VALIDATION;
9023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9024: OKL_API.set_message(p_app_name => G_APP_NAME,
9025: p_msg_name => G_FETCHING_INFO,
9026: p_token1 => G_REC_NAME_TOKEN,
9027: p_token1_value => 'OKC_K_LINES_V Record');
9020: p_token1 => G_REC_NAME_TOKEN,
9021: p_token1_value => 'OKC_K_LINES_V Record');
9022: RAISE G_EXCEPTION_HALT_VALIDATION;
9023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9024: OKL_API.set_message(p_app_name => G_APP_NAME,
9025: p_msg_name => G_FETCHING_INFO,
9026: p_token1 => G_REC_NAME_TOKEN,
9027: p_token1_value => 'OKC_K_LINES_V Record');
9028: RAISE G_EXCEPTION_HALT_VALIDATION;
9029: END IF;
9030: -- To Get the kle top Line Record
9031: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9032: l_update_klev_rec);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: OKL_API.set_message(p_app_name => G_APP_NAME,
9035: p_msg_name => G_FETCHING_INFO,
9036: p_token1 => G_REC_NAME_TOKEN,
9037: p_token1_value => 'OKL_K_LINES_V Record');
9030: -- To Get the kle top Line Record
9031: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9032: l_update_klev_rec);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: OKL_API.set_message(p_app_name => G_APP_NAME,
9035: p_msg_name => G_FETCHING_INFO,
9036: p_token1 => G_REC_NAME_TOKEN,
9037: p_token1_value => 'OKL_K_LINES_V Record');
9038: RAISE G_EXCEPTION_HALT_VALIDATION;
9035: p_msg_name => G_FETCHING_INFO,
9036: p_token1 => G_REC_NAME_TOKEN,
9037: p_token1_value => 'OKL_K_LINES_V Record');
9038: RAISE G_EXCEPTION_HALT_VALIDATION;
9039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9040: OKL_API.set_message(p_app_name => G_APP_NAME,
9041: p_msg_name => G_FETCHING_INFO,
9042: p_token1 => G_REC_NAME_TOKEN,
9043: p_token1_value => 'OKL_K_LINES_V Record');
9036: p_token1 => G_REC_NAME_TOKEN,
9037: p_token1_value => 'OKL_K_LINES_V Record');
9038: RAISE G_EXCEPTION_HALT_VALIDATION;
9039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9040: OKL_API.set_message(p_app_name => G_APP_NAME,
9041: p_msg_name => G_FETCHING_INFO,
9042: p_token1 => G_REC_NAME_TOKEN,
9043: p_token1_value => 'OKL_K_LINES_V Record');
9044: RAISE G_EXCEPTION_HALT_VALIDATION;
9043: p_token1_value => 'OKL_K_LINES_V Record');
9044: RAISE G_EXCEPTION_HALT_VALIDATION;
9045: END IF;
9046: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9047: OKL_API.set_message(p_app_name => G_APP_NAME,
9048: p_msg_name => G_LINE_RECORD);
9049: RAISE G_EXCEPTION_HALT_VALIDATION;
9050: END IF;
9051: l_update_klev_rec.oec := x_oec;
9057: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.oec,
9058: l_update_clev_rec.currency_code);
9059:
9060: IF (x_oec <> 0 AND l_update_klev_rec.oec = 0) THEN
9061: OKL_API.set_message(p_app_name => G_APP_NAME,
9062: p_msg_name => G_AMOUNT_ROUNDING,
9063: p_token1 => 'AMT',
9064: p_token1_value => to_char(x_oec));
9065: RAISE G_EXCEPTION_HALT_VALIDATION;
9078: p_klev_rec => l_update_klev_rec,
9079: x_clev_rec => x_fin_clev_rec,
9080: x_klev_rec => x_fin_klev_rec,
9081: p_validate_fin_line => p_validate_fin_line); -- 4414408
9082: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9083: RAISE G_EXCEPTION_HALT_VALIDATION;
9084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9085: RAISE G_EXCEPTION_HALT_VALIDATION;
9086: END IF;
9080: x_klev_rec => x_fin_klev_rec,
9081: p_validate_fin_line => p_validate_fin_line); -- 4414408
9082: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9083: RAISE G_EXCEPTION_HALT_VALIDATION;
9084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9085: RAISE G_EXCEPTION_HALT_VALIDATION;
9086: END IF;
9087: EXCEPTION
9088: WHEN G_EXCEPTION_STOP_VALIDATION then
9086: END IF;
9087: EXCEPTION
9088: WHEN G_EXCEPTION_STOP_VALIDATION then
9089: -- Notify Error
9090: x_return_status := OKL_API.G_RET_STS_ERROR;
9091: WHEN G_EXCEPTION_HALT_VALIDATION then
9092: -- If the cursor is open then it has to be closed
9093: -- 4414408
9094: -- IF c_model_top_line%ISOPEN THEN
9094: -- IF c_model_top_line%ISOPEN THEN
9095: -- CLOSE c_model_top_line;
9096: -- END IF;
9097: -- notify caller of an error
9098: x_return_status := OKL_API.G_RET_STS_ERROR;
9099: WHEN OTHERS THEN
9100: -- store SQL error message on message stack
9101: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9102: p_msg_name => G_UNEXPECTED_ERROR,
9097: -- notify caller of an error
9098: x_return_status := OKL_API.G_RET_STS_ERROR;
9099: WHEN OTHERS THEN
9100: -- store SQL error message on message stack
9101: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9102: p_msg_name => G_UNEXPECTED_ERROR,
9103: p_token1 => G_SQLCODE_TOKEN,
9104: p_token1_value => SQLCODE,
9105: p_token2 => G_SQLERRM_TOKEN,
9109: -- IF c_model_top_line%ISOPEN THEN
9110: -- CLOSE c_model_top_line;
9111: -- END IF;
9112: -- notify caller of an error as UNEXPETED error
9113: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9114: END oec_calc_upd_fin_rec;
9115: -----------------------------------------------------------------------------------
9116: -- Start of Commnets
9117: -- Badrinath Kuchibholta
9123: -- End of Commnets
9124:
9125: PROCEDURE cap_amt_calc_upd_fin_rec(
9126: p_api_version IN NUMBER,
9127: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9128: x_return_status OUT NOCOPY VARCHAR2,
9129: x_msg_count OUT NOCOPY NUMBER,
9130: x_msg_data OUT NOCOPY VARCHAR2,
9131: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9134: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9135: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9136: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9137: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9138: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9139:
9140: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9141: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9142: l_update_clev_rec clev_rec_type;
9165: */
9166:
9167: BEGIN
9168: -- initialize return status
9169: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9170: /*
9171: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
9172: p_dnz_chr_id => p_dnz_chr_id);
9173: FETCH c_model_top_line INTO ln_top_line_id;
9172: p_dnz_chr_id => p_dnz_chr_id);
9173: FETCH c_model_top_line INTO ln_top_line_id;
9174: -- #4414408 Moved the IF statement below fetch statement
9175: IF c_model_top_line%NOTFOUND THEN
9176: OKL_API.set_message(p_app_name => G_APP_NAME,
9177: p_msg_name => G_NO_MATCHING_RECORD,
9178: p_token1 => G_COL_NAME_TOKEN,
9179: p_token1_value => 'cle_id');
9180: RAISE G_EXCEPTION_HALT_VALIDATION;
9180: RAISE G_EXCEPTION_HALT_VALIDATION;
9181: END IF;
9182: -- #4414408 This condition will never be met
9183: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
9184: -- OKL_API.set_message(p_app_name => G_APP_NAME,
9185: -- p_msg_name => 'More than one',
9186: -- p_token1 => 'Model line',
9187: -- p_token1_value => 'cle_id');
9188: -- RAISE G_EXCEPTION_HALT_VALIDATION;
9203: p_contract_id => p_dnz_chr_id,
9204: p_line_id => p_top_line_id, -- 4414408
9205: x_value => x_cap_amt);
9206:
9207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9208: OKL_API.set_message(p_app_name => G_APP_NAME,
9209: p_msg_name => G_CALC_AMOUNT,
9210: p_token1 => G_AMT_TOKEN,
9211: p_token1_value => 'Capital Amount');
9204: p_line_id => p_top_line_id, -- 4414408
9205: x_value => x_cap_amt);
9206:
9207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9208: OKL_API.set_message(p_app_name => G_APP_NAME,
9209: p_msg_name => G_CALC_AMOUNT,
9210: p_token1 => G_AMT_TOKEN,
9211: p_token1_value => 'Capital Amount');
9212: RAISE G_EXCEPTION_HALT_VALIDATION;
9209: p_msg_name => G_CALC_AMOUNT,
9210: p_token1 => G_AMT_TOKEN,
9211: p_token1_value => 'Capital Amount');
9212: RAISE G_EXCEPTION_HALT_VALIDATION;
9213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9214: OKL_API.set_message(p_app_name => G_APP_NAME,
9215: p_msg_name => G_CALC_AMOUNT,
9216: p_token1 => G_AMT_TOKEN,
9217: p_token1_value => 'Capital Amount');
9210: p_token1 => G_AMT_TOKEN,
9211: p_token1_value => 'Capital Amount');
9212: RAISE G_EXCEPTION_HALT_VALIDATION;
9213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9214: OKL_API.set_message(p_app_name => G_APP_NAME,
9215: p_msg_name => G_CALC_AMOUNT,
9216: p_token1 => G_AMT_TOKEN,
9217: p_token1_value => 'Capital Amount');
9218: RAISE G_EXCEPTION_HALT_VALIDATION;
9220:
9221: -- To Get the cle top Line Record
9222: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9223: l_update_clev_rec);
9224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9225: OKL_API.set_message(p_app_name => G_APP_NAME,
9226: p_msg_name => G_FETCHING_INFO,
9227: p_token1 => G_REC_NAME_TOKEN,
9228: p_token1_value => 'OKC_K_LINES_V Record');
9221: -- To Get the cle top Line Record
9222: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9223: l_update_clev_rec);
9224: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9225: OKL_API.set_message(p_app_name => G_APP_NAME,
9226: p_msg_name => G_FETCHING_INFO,
9227: p_token1 => G_REC_NAME_TOKEN,
9228: p_token1_value => 'OKC_K_LINES_V Record');
9229: RAISE G_EXCEPTION_HALT_VALIDATION;
9226: p_msg_name => G_FETCHING_INFO,
9227: p_token1 => G_REC_NAME_TOKEN,
9228: p_token1_value => 'OKC_K_LINES_V Record');
9229: RAISE G_EXCEPTION_HALT_VALIDATION;
9230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9231: OKL_API.set_message(p_app_name => G_APP_NAME,
9232: p_msg_name => G_FETCHING_INFO,
9233: p_token1 => G_REC_NAME_TOKEN,
9234: p_token1_value => 'OKC_K_LINES_V Record');
9227: p_token1 => G_REC_NAME_TOKEN,
9228: p_token1_value => 'OKC_K_LINES_V Record');
9229: RAISE G_EXCEPTION_HALT_VALIDATION;
9230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9231: OKL_API.set_message(p_app_name => G_APP_NAME,
9232: p_msg_name => G_FETCHING_INFO,
9233: p_token1 => G_REC_NAME_TOKEN,
9234: p_token1_value => 'OKC_K_LINES_V Record');
9235: RAISE G_EXCEPTION_HALT_VALIDATION;
9236: END IF;
9237: -- To Get the kle top Line Record
9238: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9239: l_update_klev_rec);
9240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9241: OKL_API.set_message(p_app_name => G_APP_NAME,
9242: p_msg_name => G_FETCHING_INFO,
9243: p_token1 => G_REC_NAME_TOKEN,
9244: p_token1_value => 'OKL_K_LINES_V Record');
9237: -- To Get the kle top Line Record
9238: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9239: l_update_klev_rec);
9240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9241: OKL_API.set_message(p_app_name => G_APP_NAME,
9242: p_msg_name => G_FETCHING_INFO,
9243: p_token1 => G_REC_NAME_TOKEN,
9244: p_token1_value => 'OKL_K_LINES_V Record');
9245: RAISE G_EXCEPTION_HALT_VALIDATION;
9242: p_msg_name => G_FETCHING_INFO,
9243: p_token1 => G_REC_NAME_TOKEN,
9244: p_token1_value => 'OKL_K_LINES_V Record');
9245: RAISE G_EXCEPTION_HALT_VALIDATION;
9246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9247: OKL_API.set_message(p_app_name => G_APP_NAME,
9248: p_msg_name => G_FETCHING_INFO,
9249: p_token1 => G_REC_NAME_TOKEN,
9250: p_token1_value => 'OKL_K_LINES_V Record');
9243: p_token1 => G_REC_NAME_TOKEN,
9244: p_token1_value => 'OKL_K_LINES_V Record');
9245: RAISE G_EXCEPTION_HALT_VALIDATION;
9246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9247: OKL_API.set_message(p_app_name => G_APP_NAME,
9248: p_msg_name => G_FETCHING_INFO,
9249: p_token1 => G_REC_NAME_TOKEN,
9250: p_token1_value => 'OKL_K_LINES_V Record');
9251: RAISE G_EXCEPTION_HALT_VALIDATION;
9250: p_token1_value => 'OKL_K_LINES_V Record');
9251: RAISE G_EXCEPTION_HALT_VALIDATION;
9252: END IF;
9253: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9254: OKL_API.set_message(p_app_name => G_APP_NAME,
9255: p_msg_name => G_LINE_RECORD);
9256: RAISE G_EXCEPTION_HALT_VALIDATION;
9257: END IF;
9258: l_update_klev_rec.capital_amount := x_cap_amt;
9264: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.capital_amount,
9265: l_update_clev_rec.currency_code);
9266:
9267: IF (x_cap_amt <> 0 AND l_update_klev_rec.capital_amount = 0) THEN
9268: OKL_API.set_message(p_app_name => G_APP_NAME,
9269: p_msg_name => G_AMOUNT_ROUNDING,
9270: p_token1 => 'AMT',
9271: p_token1_value => to_char(x_cap_amt));
9272: RAISE G_EXCEPTION_HALT_VALIDATION;
9285: p_klev_rec => l_update_klev_rec,
9286: x_clev_rec => x_fin_clev_rec,
9287: x_klev_rec => x_fin_klev_rec,
9288: p_validate_fin_line => p_validate_fin_line); -- 4414408
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE G_EXCEPTION_HALT_VALIDATION;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE G_EXCEPTION_HALT_VALIDATION;
9293: END IF;
9287: x_klev_rec => x_fin_klev_rec,
9288: p_validate_fin_line => p_validate_fin_line); -- 4414408
9289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9290: RAISE G_EXCEPTION_HALT_VALIDATION;
9291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9292: RAISE G_EXCEPTION_HALT_VALIDATION;
9293: END IF;
9294: EXCEPTION
9295: WHEN G_EXCEPTION_STOP_VALIDATION then
9293: END IF;
9294: EXCEPTION
9295: WHEN G_EXCEPTION_STOP_VALIDATION then
9296: -- Notify Error
9297: x_return_status := OKL_API.G_RET_STS_ERROR;
9298: WHEN G_EXCEPTION_HALT_VALIDATION then
9299: -- If the cursor is open then it has to be closed
9300: -- IF c_model_top_line%ISOPEN THEN
9301: -- CLOSE c_model_top_line;
9300: -- IF c_model_top_line%ISOPEN THEN
9301: -- CLOSE c_model_top_line;
9302: -- END IF;
9303: -- notify caller of an error
9304: x_return_status := OKL_API.G_RET_STS_ERROR;
9305: WHEN OTHERS THEN
9306: -- store SQL error message on message stack
9307: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9308: p_msg_name => G_UNEXPECTED_ERROR,
9303: -- notify caller of an error
9304: x_return_status := OKL_API.G_RET_STS_ERROR;
9305: WHEN OTHERS THEN
9306: -- store SQL error message on message stack
9307: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9308: p_msg_name => G_UNEXPECTED_ERROR,
9309: p_token1 => G_SQLCODE_TOKEN,
9310: p_token1_value => SQLCODE,
9311: p_token2 => G_SQLERRM_TOKEN,
9314: -- IF c_model_top_line%ISOPEN THEN
9315: -- CLOSE c_model_top_line;
9316: -- END IF;
9317: -- notify caller of an error as UNEXPETED error
9318: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9319: END cap_amt_calc_upd_fin_rec;
9320: -----------------------------------------------------------------------------------
9321: -- Start of Commnets
9322: -- Badrinath Kuchibholta
9328: -- End of Commnets
9329:
9330: PROCEDURE res_value_calc_upd_fin_rec(
9331: p_api_version IN NUMBER,
9332: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9333: x_return_status OUT NOCOPY VARCHAR2,
9334: x_msg_count OUT NOCOPY NUMBER,
9335: x_msg_data OUT NOCOPY VARCHAR2,
9336: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9339: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9340: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9341: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9342: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9343: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9344:
9345: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9346: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9347: l_update_clev_rec clev_rec_type;
9369: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
9370: */
9371: BEGIN
9372: -- initialize return status
9373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9374: /*
9375: OPEN c_model_top_line(p_model_line_id => p_model_line_id,
9376: p_dnz_chr_id => p_dnz_chr_id);
9377: FETCH c_model_top_line INTO ln_top_line_id;
9376: p_dnz_chr_id => p_dnz_chr_id);
9377: FETCH c_model_top_line INTO ln_top_line_id;
9378: -- #4414408 Moved the IF statement below fetch statement
9379: IF c_model_top_line%NOTFOUND THEN
9380: OKL_API.set_message(p_app_name => G_APP_NAME,
9381: p_msg_name => G_NO_MATCHING_RECORD,
9382: p_token1 => G_COL_NAME_TOKEN,
9383: p_token1_value => 'cle_id');
9384: RAISE G_EXCEPTION_HALT_VALIDATION;
9384: RAISE G_EXCEPTION_HALT_VALIDATION;
9385: END IF;
9386: -- #4414408 This condition will never be met
9387: -- IF (c_model_top_line%ROWCOUNT > 1) THEN
9388: -- OKL_API.set_message(p_app_name => G_APP_NAME,
9389: -- p_msg_name => 'More than one',
9390: -- p_token1 => 'Model line',
9391: -- p_token1_value => 'cle_id');
9392: -- RAISE G_EXCEPTION_HALT_VALIDATION;
9407: p_formula_name => G_FORMULA_RES,
9408: p_contract_id => p_dnz_chr_id,
9409: p_line_id => p_top_line_id, -- 4414408
9410: x_value => x_res_value);
9411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9412: OKL_API.set_message(p_app_name => G_APP_NAME,
9413: p_msg_name => G_CALC_AMOUNT,
9414: p_token1 => G_AMT_TOKEN,
9415: p_token1_value => 'Residual Value');
9408: p_contract_id => p_dnz_chr_id,
9409: p_line_id => p_top_line_id, -- 4414408
9410: x_value => x_res_value);
9411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9412: OKL_API.set_message(p_app_name => G_APP_NAME,
9413: p_msg_name => G_CALC_AMOUNT,
9414: p_token1 => G_AMT_TOKEN,
9415: p_token1_value => 'Residual Value');
9416: RAISE G_EXCEPTION_HALT_VALIDATION;
9413: p_msg_name => G_CALC_AMOUNT,
9414: p_token1 => G_AMT_TOKEN,
9415: p_token1_value => 'Residual Value');
9416: RAISE G_EXCEPTION_HALT_VALIDATION;
9417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9418: OKL_API.set_message(p_app_name => G_APP_NAME,
9419: p_msg_name => G_CALC_AMOUNT,
9420: p_token1 => G_AMT_TOKEN,
9421: p_token1_value => 'Residual Value');
9414: p_token1 => G_AMT_TOKEN,
9415: p_token1_value => 'Residual Value');
9416: RAISE G_EXCEPTION_HALT_VALIDATION;
9417: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9418: OKL_API.set_message(p_app_name => G_APP_NAME,
9419: p_msg_name => G_CALC_AMOUNT,
9420: p_token1 => G_AMT_TOKEN,
9421: p_token1_value => 'Residual Value');
9422: RAISE G_EXCEPTION_HALT_VALIDATION;
9423: END IF;
9424: -- To Get the cle top Line Record
9425: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9426: l_update_clev_rec);
9427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9428: OKL_API.set_message(p_app_name => G_APP_NAME,
9429: p_msg_name => G_FETCHING_INFO,
9430: p_token1 => G_REC_NAME_TOKEN,
9431: p_token1_value => 'OKC_K_LINES_V Record');
9424: -- To Get the cle top Line Record
9425: x_return_status := get_rec_clev(p_top_line_id, -- 4414408
9426: l_update_clev_rec);
9427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9428: OKL_API.set_message(p_app_name => G_APP_NAME,
9429: p_msg_name => G_FETCHING_INFO,
9430: p_token1 => G_REC_NAME_TOKEN,
9431: p_token1_value => 'OKC_K_LINES_V Record');
9432: RAISE G_EXCEPTION_HALT_VALIDATION;
9429: p_msg_name => G_FETCHING_INFO,
9430: p_token1 => G_REC_NAME_TOKEN,
9431: p_token1_value => 'OKC_K_LINES_V Record');
9432: RAISE G_EXCEPTION_HALT_VALIDATION;
9433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9434: OKL_API.set_message(p_app_name => G_APP_NAME,
9435: p_msg_name => G_FETCHING_INFO,
9436: p_token1 => G_REC_NAME_TOKEN,
9437: p_token1_value => 'OKC_K_LINES_V Record');
9430: p_token1 => G_REC_NAME_TOKEN,
9431: p_token1_value => 'OKC_K_LINES_V Record');
9432: RAISE G_EXCEPTION_HALT_VALIDATION;
9433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9434: OKL_API.set_message(p_app_name => G_APP_NAME,
9435: p_msg_name => G_FETCHING_INFO,
9436: p_token1 => G_REC_NAME_TOKEN,
9437: p_token1_value => 'OKC_K_LINES_V Record');
9438: RAISE G_EXCEPTION_HALT_VALIDATION;
9439: END IF;
9440: -- To Get the kle top Line Record
9441: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9442: l_update_klev_rec);
9443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9444: OKL_API.set_message(p_app_name => G_APP_NAME,
9445: p_msg_name => G_FETCHING_INFO,
9446: p_token1 => G_REC_NAME_TOKEN,
9447: p_token1_value => 'OKL_K_LINES_V Record');
9440: -- To Get the kle top Line Record
9441: x_return_status := get_rec_klev(p_top_line_id, -- 4414408
9442: l_update_klev_rec);
9443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9444: OKL_API.set_message(p_app_name => G_APP_NAME,
9445: p_msg_name => G_FETCHING_INFO,
9446: p_token1 => G_REC_NAME_TOKEN,
9447: p_token1_value => 'OKL_K_LINES_V Record');
9448: RAISE G_EXCEPTION_HALT_VALIDATION;
9445: p_msg_name => G_FETCHING_INFO,
9446: p_token1 => G_REC_NAME_TOKEN,
9447: p_token1_value => 'OKL_K_LINES_V Record');
9448: RAISE G_EXCEPTION_HALT_VALIDATION;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: OKL_API.set_message(p_app_name => G_APP_NAME,
9451: p_msg_name => G_FETCHING_INFO,
9452: p_token1 => G_REC_NAME_TOKEN,
9453: p_token1_value => 'OKL_K_LINES_V Record');
9446: p_token1 => G_REC_NAME_TOKEN,
9447: p_token1_value => 'OKL_K_LINES_V Record');
9448: RAISE G_EXCEPTION_HALT_VALIDATION;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: OKL_API.set_message(p_app_name => G_APP_NAME,
9451: p_msg_name => G_FETCHING_INFO,
9452: p_token1 => G_REC_NAME_TOKEN,
9453: p_token1_value => 'OKL_K_LINES_V Record');
9454: RAISE G_EXCEPTION_HALT_VALIDATION;
9453: p_token1_value => 'OKL_K_LINES_V Record');
9454: RAISE G_EXCEPTION_HALT_VALIDATION;
9455: END IF;
9456: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9457: OKL_API.set_message(p_app_name => G_APP_NAME,
9458: p_msg_name => G_LINE_RECORD);
9459: RAISE G_EXCEPTION_HALT_VALIDATION;
9460: END IF;
9461: -- commented for multi currency requirement. No need to round the value, as
9470: OKL_ACCOUNTING_UTIL.CROSS_CURRENCY_ROUND_AMOUNT(l_update_klev_rec.residual_value,
9471: l_update_clev_rec.currency_code);
9472:
9473: IF (x_res_value <> 0 AND l_update_klev_rec.residual_value = 0) THEN
9474: OKL_API.set_message(p_app_name => G_APP_NAME,
9475: p_msg_name => G_AMOUNT_ROUNDING,
9476: p_token1 => 'AMT',
9477: p_token1_value => to_char(x_res_value));
9478: RAISE G_EXCEPTION_HALT_VALIDATION;
9491: p_klev_rec => l_update_klev_rec,
9492: x_clev_rec => x_fin_clev_rec,
9493: x_klev_rec => x_fin_klev_rec,
9494: p_validate_fin_line => p_validate_fin_line); -- 4414408
9495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9496: RAISE G_EXCEPTION_HALT_VALIDATION;
9497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9498: RAISE G_EXCEPTION_HALT_VALIDATION;
9499: END IF;
9493: x_klev_rec => x_fin_klev_rec,
9494: p_validate_fin_line => p_validate_fin_line); -- 4414408
9495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9496: RAISE G_EXCEPTION_HALT_VALIDATION;
9497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9498: RAISE G_EXCEPTION_HALT_VALIDATION;
9499: END IF;
9500: EXCEPTION
9501: WHEN G_EXCEPTION_STOP_VALIDATION then
9499: END IF;
9500: EXCEPTION
9501: WHEN G_EXCEPTION_STOP_VALIDATION then
9502: -- Notify Error
9503: x_return_status := OKL_API.G_RET_STS_ERROR;
9504: WHEN G_EXCEPTION_HALT_VALIDATION then
9505: -- If the cursor is open then it has to be closed
9506: -- IF c_model_top_line%ISOPEN THEN
9507: -- CLOSE c_model_top_line;
9506: -- IF c_model_top_line%ISOPEN THEN
9507: -- CLOSE c_model_top_line;
9508: -- END IF;
9509: -- notify caller of an error
9510: x_return_status := OKL_API.G_RET_STS_ERROR;
9511: WHEN OTHERS THEN
9512: -- store SQL error message on message stack
9513: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9514: p_msg_name => G_UNEXPECTED_ERROR,
9509: -- notify caller of an error
9510: x_return_status := OKL_API.G_RET_STS_ERROR;
9511: WHEN OTHERS THEN
9512: -- store SQL error message on message stack
9513: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9514: p_msg_name => G_UNEXPECTED_ERROR,
9515: p_token1 => G_SQLCODE_TOKEN,
9516: p_token1_value => SQLCODE,
9517: p_token2 => G_SQLERRM_TOKEN,
9520: -- IF c_model_top_line%ISOPEN THEN
9521: -- CLOSE c_model_top_line;
9522: -- END IF;
9523: -- notify caller of an error as UNEXPETED error
9524: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9525: END res_value_calc_upd_fin_rec;
9526:
9527: -----------------------------------------------------------------------------------
9528: -- Start of Commnets
9535: -- End of Commnets
9536:
9537: PROCEDURE get_res_per_upd_fin_rec(
9538: p_api_version IN NUMBER,
9539: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9540: x_return_status OUT NOCOPY VARCHAR2,
9541: x_msg_count OUT NOCOPY NUMBER,
9542: x_msg_data OUT NOCOPY VARCHAR2,
9543: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9547: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9548: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9549: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9550: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9551: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9552:
9553: ln_res_per OKL_K_LINES_V.RESIDUAL_PERCENTAGE%TYPE := 0;
9554: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9555: l_update_clev_rec clev_rec_type;
9556: l_update_klev_rec klev_rec_type;
9557:
9558: BEGIN
9559: -- initialize return status
9560: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9561:
9562: IF (p_dnz_chr_id IS NULL OR
9563: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9564: (p_top_line_id IS NULL OR
9559: -- initialize return status
9560: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9561:
9562: IF (p_dnz_chr_id IS NULL OR
9563: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9564: (p_top_line_id IS NULL OR
9565: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9566: OKL_API.set_message(p_app_name => G_APP_NAME,
9567: p_msg_name => G_REQUIRED_VALUE,
9561:
9562: IF (p_dnz_chr_id IS NULL OR
9563: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9564: (p_top_line_id IS NULL OR
9565: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9566: OKL_API.set_message(p_app_name => G_APP_NAME,
9567: p_msg_name => G_REQUIRED_VALUE,
9568: p_token1 => G_COL_NAME_TOKEN,
9569: p_token1_value => 'Chr_id,top_line');
9562: IF (p_dnz_chr_id IS NULL OR
9563: p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
9564: (p_top_line_id IS NULL OR
9565: p_top_line_id = OKL_API.G_MISS_NUM) THEN
9566: OKL_API.set_message(p_app_name => G_APP_NAME,
9567: p_msg_name => G_REQUIRED_VALUE,
9568: p_token1 => G_COL_NAME_TOKEN,
9569: p_token1_value => 'Chr_id,top_line');
9570: RAISE G_EXCEPTION_STOP_VALIDATION;
9572: -- gboomina bug 6139003 - Start
9573: -- Modified this condition to calculate residual percent
9574: -- only for valid values
9575: IF (p_oec IS NOT NULL AND
9576: p_oec <> OKL_API.G_MISS_NUM) AND
9577: (p_res_value IS NOT NULL AND
9578: p_res_value <> OKL_API.G_MISS_NUM) THEN
9579: -- gboomina bug 6139003 - End
9580: --Bug# 4631549
9574: -- only for valid values
9575: IF (p_oec IS NOT NULL AND
9576: p_oec <> OKL_API.G_MISS_NUM) AND
9577: (p_res_value IS NOT NULL AND
9578: p_res_value <> OKL_API.G_MISS_NUM) THEN
9579: -- gboomina bug 6139003 - End
9580: --Bug# 4631549
9581: If p_oec = 0 then
9582: ln_res_per := 0;
9586: END IF;
9587: -- To Get the cle top Line Record
9588: x_return_status := get_rec_clev(p_top_line_id,
9589: l_update_clev_rec);
9590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9591: OKL_API.set_message(p_app_name => G_APP_NAME,
9592: p_msg_name => G_FETCHING_INFO,
9593: p_token1 => G_REC_NAME_TOKEN,
9594: p_token1_value => 'OKC_K_LINES_V Record');
9587: -- To Get the cle top Line Record
9588: x_return_status := get_rec_clev(p_top_line_id,
9589: l_update_clev_rec);
9590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9591: OKL_API.set_message(p_app_name => G_APP_NAME,
9592: p_msg_name => G_FETCHING_INFO,
9593: p_token1 => G_REC_NAME_TOKEN,
9594: p_token1_value => 'OKC_K_LINES_V Record');
9595: RAISE G_EXCEPTION_HALT_VALIDATION;
9592: p_msg_name => G_FETCHING_INFO,
9593: p_token1 => G_REC_NAME_TOKEN,
9594: p_token1_value => 'OKC_K_LINES_V Record');
9595: RAISE G_EXCEPTION_HALT_VALIDATION;
9596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9597: OKL_API.set_message(p_app_name => G_APP_NAME,
9598: p_msg_name => G_FETCHING_INFO,
9599: p_token1 => G_REC_NAME_TOKEN,
9600: p_token1_value => 'OKC_K_LINES_V Record');
9593: p_token1 => G_REC_NAME_TOKEN,
9594: p_token1_value => 'OKC_K_LINES_V Record');
9595: RAISE G_EXCEPTION_HALT_VALIDATION;
9596: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9597: OKL_API.set_message(p_app_name => G_APP_NAME,
9598: p_msg_name => G_FETCHING_INFO,
9599: p_token1 => G_REC_NAME_TOKEN,
9600: p_token1_value => 'OKC_K_LINES_V Record');
9601: RAISE G_EXCEPTION_HALT_VALIDATION;
9602: END IF;
9603: -- To Get the kle top Line Record
9604: x_return_status := get_rec_klev(p_top_line_id,
9605: l_update_klev_rec);
9606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9607: OKL_API.set_message(p_app_name => G_APP_NAME,
9608: p_msg_name => G_FETCHING_INFO,
9609: p_token1 => G_REC_NAME_TOKEN,
9610: p_token1_value => 'OKL_K_LINES_V Record');
9603: -- To Get the kle top Line Record
9604: x_return_status := get_rec_klev(p_top_line_id,
9605: l_update_klev_rec);
9606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9607: OKL_API.set_message(p_app_name => G_APP_NAME,
9608: p_msg_name => G_FETCHING_INFO,
9609: p_token1 => G_REC_NAME_TOKEN,
9610: p_token1_value => 'OKL_K_LINES_V Record');
9611: RAISE G_EXCEPTION_HALT_VALIDATION;
9608: p_msg_name => G_FETCHING_INFO,
9609: p_token1 => G_REC_NAME_TOKEN,
9610: p_token1_value => 'OKL_K_LINES_V Record');
9611: RAISE G_EXCEPTION_HALT_VALIDATION;
9612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9613: OKL_API.set_message(p_app_name => G_APP_NAME,
9614: p_msg_name => G_FETCHING_INFO,
9615: p_token1 => G_REC_NAME_TOKEN,
9616: p_token1_value => 'OKL_K_LINES_V Record');
9609: p_token1 => G_REC_NAME_TOKEN,
9610: p_token1_value => 'OKL_K_LINES_V Record');
9611: RAISE G_EXCEPTION_HALT_VALIDATION;
9612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9613: OKL_API.set_message(p_app_name => G_APP_NAME,
9614: p_msg_name => G_FETCHING_INFO,
9615: p_token1 => G_REC_NAME_TOKEN,
9616: p_token1_value => 'OKL_K_LINES_V Record');
9617: RAISE G_EXCEPTION_HALT_VALIDATION;
9616: p_token1_value => 'OKL_K_LINES_V Record');
9617: RAISE G_EXCEPTION_HALT_VALIDATION;
9618: END IF;
9619: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9620: OKL_API.set_message(p_app_name => G_APP_NAME,
9621: p_msg_name => G_LINE_RECORD);
9622: RAISE G_EXCEPTION_HALT_VALIDATION;
9623: END IF;
9624: l_update_klev_rec.residual_percentage := ln_res_per;
9633: p_klev_rec => l_update_klev_rec,
9634: x_clev_rec => x_fin_clev_rec,
9635: x_klev_rec => x_fin_klev_rec,
9636: p_validate_fin_line => p_validate_fin_line); -- 4414408
9637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9638: RAISE G_EXCEPTION_HALT_VALIDATION;
9639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9640: RAISE G_EXCEPTION_HALT_VALIDATION;
9641: END IF;
9635: x_klev_rec => x_fin_klev_rec,
9636: p_validate_fin_line => p_validate_fin_line); -- 4414408
9637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9638: RAISE G_EXCEPTION_HALT_VALIDATION;
9639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9640: RAISE G_EXCEPTION_HALT_VALIDATION;
9641: END IF;
9642: EXCEPTION
9643: WHEN G_EXCEPTION_STOP_VALIDATION then
9641: END IF;
9642: EXCEPTION
9643: WHEN G_EXCEPTION_STOP_VALIDATION then
9644: -- Notify Error
9645: x_return_status := OKL_API.G_RET_STS_ERROR;
9646: WHEN G_EXCEPTION_HALT_VALIDATION then
9647: -- notify caller of an error
9648: x_return_status := OKL_API.G_RET_STS_ERROR;
9649: WHEN OTHERS THEN
9644: -- Notify Error
9645: x_return_status := OKL_API.G_RET_STS_ERROR;
9646: WHEN G_EXCEPTION_HALT_VALIDATION then
9647: -- notify caller of an error
9648: x_return_status := OKL_API.G_RET_STS_ERROR;
9649: WHEN OTHERS THEN
9650: -- store SQL error message on message stack
9651: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9652: p_msg_name => G_UNEXPECTED_ERROR,
9647: -- notify caller of an error
9648: x_return_status := OKL_API.G_RET_STS_ERROR;
9649: WHEN OTHERS THEN
9650: -- store SQL error message on message stack
9651: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
9652: p_msg_name => G_UNEXPECTED_ERROR,
9653: p_token1 => G_SQLCODE_TOKEN,
9654: p_token1_value => SQLCODE,
9655: p_token2 => G_SQLERRM_TOKEN,
9654: p_token1_value => SQLCODE,
9655: p_token2 => G_SQLERRM_TOKEN,
9656: p_token2_value => SQLERRM);
9657: -- notify caller of an error as UNEXPETED error
9658: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9659: END get_res_per_upd_fin_rec;
9660: -------------------------------------------------------------------------------------------------------
9661: ----------------------------- Main Process for Creation of model Line -----------------------------------
9662: -------------------------------------------------------------------------------------------------------
9661: ----------------------------- Main Process for Creation of model Line -----------------------------------
9662: -------------------------------------------------------------------------------------------------------
9663: PROCEDURE create_model_line(
9664: p_api_version IN NUMBER,
9665: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9666: x_return_status OUT NOCOPY VARCHAR2,
9667: x_msg_count OUT NOCOPY NUMBER,
9668: x_msg_data OUT NOCOPY VARCHAR2,
9669: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9680: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
9681: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
9682: l_update_clev_rec clev_rec_type;
9683: l_update_klev_rec klev_rec_type;
9684: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
9685: l_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
9686:
9687: BEGIN
9688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9684: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
9685: l_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
9686:
9687: BEGIN
9688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9689: -- Call start_activity to create savepoint, check compatibility
9690: -- and initialize message list
9691: x_return_status := OKL_API.START_ACTIVITY (
9692: l_api_name
9687: BEGIN
9688: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9689: -- Call start_activity to create savepoint, check compatibility
9690: -- and initialize message list
9691: x_return_status := OKL_API.START_ACTIVITY (
9692: l_api_name
9693: ,p_init_msg_list
9694: ,'_PVT'
9695: ,x_return_status);
9693: ,p_init_msg_list
9694: ,'_PVT'
9695: ,x_return_status);
9696: -- Check if activity started successfully
9697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9700: RAISE OKL_API.G_EXCEPTION_ERROR;
9701: END IF;
9694: ,'_PVT'
9695: ,x_return_status);
9696: -- Check if activity started successfully
9697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9700: RAISE OKL_API.G_EXCEPTION_ERROR;
9701: END IF;
9702: -- 4414408 The validation is now performed in create_all_line procedure
9695: ,x_return_status);
9696: -- Check if activity started successfully
9697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9700: RAISE OKL_API.G_EXCEPTION_ERROR;
9701: END IF;
9702: -- 4414408 The validation is now performed in create_all_line procedure
9703: /*
9696: -- Check if activity started successfully
9697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9700: RAISE OKL_API.G_EXCEPTION_ERROR;
9701: END IF;
9702: -- 4414408 The validation is now performed in create_all_line procedure
9703: /*
9704: -- To Check We Got the Valid info
9702: -- 4414408 The validation is now performed in create_all_line procedure
9703: /*
9704: -- To Check We Got the Valid info
9705: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9706: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9707: UPPER(p_new_yn) IS NULL) THEN
9708: OKL_API.set_message(p_app_name => G_APP_NAME,
9709: p_msg_name => G_INVALID_YN,
9710: p_token1 => G_COL_NAME_TOKEN,
9704: -- To Check We Got the Valid info
9705: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9706: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9707: UPPER(p_new_yn) IS NULL) THEN
9708: OKL_API.set_message(p_app_name => G_APP_NAME,
9709: p_msg_name => G_INVALID_YN,
9710: p_token1 => G_COL_NAME_TOKEN,
9711: p_token1_value => 'p_new_yn');
9712: -- Halt Validation
9709: p_msg_name => G_INVALID_YN,
9710: p_token1 => G_COL_NAME_TOKEN,
9711: p_token1_value => 'p_new_yn');
9712: -- Halt Validation
9713: RAISE OKL_API.G_EXCEPTION_ERROR;
9714: END IF;
9715: -- Validate to see if the asset_number given is not null
9716: -- and also Validate asset_number does not exists
9717: -- in OKL_TXL_ASSETS_V
9719: validate_new_asset_number(x_return_status => x_return_status,
9720: p_asset_number => p_asset_number,
9721: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9722: -- Check if activity started successfully
9723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9726: RAISE OKL_API.G_EXCEPTION_ERROR;
9727: END IF;
9720: p_asset_number => p_asset_number,
9721: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9722: -- Check if activity started successfully
9723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9726: RAISE OKL_API.G_EXCEPTION_ERROR;
9727: END IF;
9728: ELSE
9721: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9722: -- Check if activity started successfully
9723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9726: RAISE OKL_API.G_EXCEPTION_ERROR;
9727: END IF;
9728: ELSE
9729: validate_new_asset_number(x_return_status => x_return_status,
9722: -- Check if activity started successfully
9723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9726: RAISE OKL_API.G_EXCEPTION_ERROR;
9727: END IF;
9728: ELSE
9729: validate_new_asset_number(x_return_status => x_return_status,
9730: p_asset_number => p_asset_number,
9729: validate_new_asset_number(x_return_status => x_return_status,
9730: p_asset_number => p_asset_number,
9731: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9732: -- Check if activity ended successfully
9733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9736: RAISE OKL_API.G_EXCEPTION_ERROR;
9737: END IF;
9730: p_asset_number => p_asset_number,
9731: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9732: -- Check if activity ended successfully
9733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9736: RAISE OKL_API.G_EXCEPTION_ERROR;
9737: END IF;
9738: END IF;
9731: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9732: -- Check if activity ended successfully
9733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9736: RAISE OKL_API.G_EXCEPTION_ERROR;
9737: END IF;
9738: END IF;
9739: */
9732: -- Check if activity ended successfully
9733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9735: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9736: RAISE OKL_API.G_EXCEPTION_ERROR;
9737: END IF;
9738: END IF;
9739: */
9740: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
9745: x_return_status => x_return_status,
9746: x_lty_code => l_lty_code,
9747: x_lse_type => l_lse_type);
9748: -- Check if activity started successfully
9749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9752: RAISE OKL_API.G_EXCEPTION_ERROR;
9753: END IF;
9746: x_lty_code => l_lty_code,
9747: x_lse_type => l_lse_type);
9748: -- Check if activity started successfully
9749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9752: RAISE OKL_API.G_EXCEPTION_ERROR;
9753: END IF;
9754: -- Validate the Dnz_Chr_id
9747: x_lse_type => l_lse_type);
9748: -- Check if activity started successfully
9749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9752: RAISE OKL_API.G_EXCEPTION_ERROR;
9753: END IF;
9754: -- Validate the Dnz_Chr_id
9755: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9748: -- Check if activity started successfully
9749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9752: RAISE OKL_API.G_EXCEPTION_ERROR;
9753: END IF;
9754: -- Validate the Dnz_Chr_id
9755: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9756: x_return_status => x_return_status);
9754: -- Validate the Dnz_Chr_id
9755: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9756: x_return_status => x_return_status);
9757: -- Check if activity started successfully
9758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9761: RAISE OKL_API.G_EXCEPTION_ERROR;
9762: END IF;
9755: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9756: x_return_status => x_return_status);
9757: -- Check if activity started successfully
9758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9761: RAISE OKL_API.G_EXCEPTION_ERROR;
9762: END IF;
9763: */
9756: x_return_status => x_return_status);
9757: -- Check if activity started successfully
9758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9761: RAISE OKL_API.G_EXCEPTION_ERROR;
9762: END IF;
9763: */
9764: -- We have to Populate the Model Line Record
9757: -- Check if activity started successfully
9758: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9760: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9761: RAISE OKL_API.G_EXCEPTION_ERROR;
9762: END IF;
9763: */
9764: -- We have to Populate the Model Line Record
9765: l_clev_rec := p_clev_rec;
9766: -- Now we are Creating Model Line
9767: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
9768: -- The Record Should have the cle_id
9769: -- if the given line style is Model Line
9770: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9771: l_clev_rec.chr_id IS NULL) AND
9772: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9773: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9774: (l_clev_rec.cle_id IS NOT NULL OR
9769: -- if the given line style is Model Line
9770: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9771: l_clev_rec.chr_id IS NULL) AND
9772: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9773: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9774: (l_clev_rec.cle_id IS NOT NULL OR
9775: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9776: -- #414408
9777: -- l_lty_code = G_MODEL_LINE_LTY_CODE AND
9771: l_clev_rec.chr_id IS NULL) AND
9772: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9773: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9774: (l_clev_rec.cle_id IS NOT NULL OR
9775: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9776: -- #414408
9777: -- l_lty_code = G_MODEL_LINE_LTY_CODE AND
9778: -- l_lse_type = G_SLS_TYPE THEN
9779: l_clev_rec.lse_id = G_MODEL_LINE_LTY_ID THEN
9789: p_cimv_rec => p_cimv_rec,
9790: x_clev_rec => x_clev_rec,
9791: x_klev_rec => x_klev_rec,
9792: x_cimv_rec => x_cimv_rec);
9793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9796: RAISE OKL_API.G_EXCEPTION_ERROR;
9797: END IF;
9790: x_clev_rec => x_clev_rec,
9791: x_klev_rec => x_klev_rec,
9792: x_cimv_rec => x_cimv_rec);
9793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9796: RAISE OKL_API.G_EXCEPTION_ERROR;
9797: END IF;
9798: ELSE
9791: x_klev_rec => x_klev_rec,
9792: x_cimv_rec => x_cimv_rec);
9793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9796: RAISE OKL_API.G_EXCEPTION_ERROR;
9797: END IF;
9798: ELSE
9799: OKL_API.set_message(p_app_name => G_APP_NAME,
9792: x_cimv_rec => x_cimv_rec);
9793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9796: RAISE OKL_API.G_EXCEPTION_ERROR;
9797: END IF;
9798: ELSE
9799: OKL_API.set_message(p_app_name => G_APP_NAME,
9800: p_msg_name => G_INVALID_CRITERIA,
9795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9796: RAISE OKL_API.G_EXCEPTION_ERROR;
9797: END IF;
9798: ELSE
9799: OKL_API.set_message(p_app_name => G_APP_NAME,
9800: p_msg_name => G_INVALID_CRITERIA,
9801: p_token1 => G_COL_NAME_TOKEN,
9802: p_token1_value => 'Model Asset line');
9803: x_return_status := OKL_API.G_RET_STS_ERROR;
9799: OKL_API.set_message(p_app_name => G_APP_NAME,
9800: p_msg_name => G_INVALID_CRITERIA,
9801: p_token1 => G_COL_NAME_TOKEN,
9802: p_token1_value => 'Model Asset line');
9803: x_return_status := OKL_API.G_RET_STS_ERROR;
9804: RAISE OKL_API.G_EXCEPTION_ERROR;
9805: END IF;
9806: OKL_API.END_ACTIVITY (x_msg_count,
9807: x_msg_data );
9800: p_msg_name => G_INVALID_CRITERIA,
9801: p_token1 => G_COL_NAME_TOKEN,
9802: p_token1_value => 'Model Asset line');
9803: x_return_status := OKL_API.G_RET_STS_ERROR;
9804: RAISE OKL_API.G_EXCEPTION_ERROR;
9805: END IF;
9806: OKL_API.END_ACTIVITY (x_msg_count,
9807: x_msg_data );
9808: EXCEPTION
9802: p_token1_value => 'Model Asset line');
9803: x_return_status := OKL_API.G_RET_STS_ERROR;
9804: RAISE OKL_API.G_EXCEPTION_ERROR;
9805: END IF;
9806: OKL_API.END_ACTIVITY (x_msg_count,
9807: x_msg_data );
9808: EXCEPTION
9809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9810: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9805: END IF;
9806: OKL_API.END_ACTIVITY (x_msg_count,
9807: x_msg_data );
9808: EXCEPTION
9809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9810: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9811: l_api_name,
9812: G_PKG_NAME,
9813: 'OKL_API.G_RET_STS_ERROR',
9806: OKL_API.END_ACTIVITY (x_msg_count,
9807: x_msg_data );
9808: EXCEPTION
9809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9810: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9811: l_api_name,
9812: G_PKG_NAME,
9813: 'OKL_API.G_RET_STS_ERROR',
9814: x_msg_count,
9809: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9810: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9811: l_api_name,
9812: G_PKG_NAME,
9813: 'OKL_API.G_RET_STS_ERROR',
9814: x_msg_count,
9815: x_msg_data,
9816: '_PVT');
9817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9813: 'OKL_API.G_RET_STS_ERROR',
9814: x_msg_count,
9815: x_msg_data,
9816: '_PVT');
9817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9819: l_api_name,
9820: G_PKG_NAME,
9821: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9814: x_msg_count,
9815: x_msg_data,
9816: '_PVT');
9817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9819: l_api_name,
9820: G_PKG_NAME,
9821: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9822: x_msg_count,
9817: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9818: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9819: l_api_name,
9820: G_PKG_NAME,
9821: 'OKL_API.G_RET_STS_UNEXP_ERROR',
9822: x_msg_count,
9823: x_msg_data,
9824: '_PVT');
9825: WHEN OTHERS THEN
9822: x_msg_count,
9823: x_msg_data,
9824: '_PVT');
9825: WHEN OTHERS THEN
9826: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
9827: l_api_name,
9828: G_PKG_NAME,
9829: 'OTHERS',
9830: x_msg_count,
9835: ----------------------------- Main Process for update of model Line -----------------------------------
9836: -------------------------------------------------------------------------------------------------------
9837: PROCEDURE Update_model_line(
9838: p_api_version IN NUMBER,
9839: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9840: x_return_status OUT NOCOPY VARCHAR2,
9841: x_msg_count OUT NOCOPY NUMBER,
9842: x_msg_data OUT NOCOPY VARCHAR2,
9843: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9872: AND lse2.id = stl.lse_id
9873: AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
9874:
9875: BEGIN
9876: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9877: -- Call start_activity to create savepoint, check compatibility
9878: -- and initialize message list
9879: x_return_status := OKL_API.START_ACTIVITY (
9880: l_api_name
9875: BEGIN
9876: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9877: -- Call start_activity to create savepoint, check compatibility
9878: -- and initialize message list
9879: x_return_status := OKL_API.START_ACTIVITY (
9880: l_api_name
9881: ,p_init_msg_list
9882: ,'_PVT'
9883: ,x_return_status);
9881: ,p_init_msg_list
9882: ,'_PVT'
9883: ,x_return_status);
9884: -- Check if activity started successfully
9885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9882: ,'_PVT'
9883: ,x_return_status);
9884: -- Check if activity started successfully
9885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9883: ,x_return_status);
9884: -- Check if activity started successfully
9885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9891: x_return_status => x_return_status);
9884: -- Check if activity started successfully
9885: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9891: x_return_status => x_return_status);
9892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9888: RAISE OKL_API.G_EXCEPTION_ERROR;
9889: END IF;
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9891: x_return_status => x_return_status);
9892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9895: RAISE OKL_API.G_EXCEPTION_ERROR;
9896: END IF;
9889: END IF;
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9891: x_return_status => x_return_status);
9892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9895: RAISE OKL_API.G_EXCEPTION_ERROR;
9896: END IF;
9897: -- To get the fixed asset line asset to see
9890: validate_sts_code(p_clev_rec => p_clev_rec,
9891: x_return_status => x_return_status);
9892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9895: RAISE OKL_API.G_EXCEPTION_ERROR;
9896: END IF;
9897: -- To get the fixed asset line asset to see
9898: -- the asset number does not duplicate
9891: x_return_status => x_return_status);
9892: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9893: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9895: RAISE OKL_API.G_EXCEPTION_ERROR;
9896: END IF;
9897: -- To get the fixed asset line asset to see
9898: -- the asset number does not duplicate
9899: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
9898: -- the asset number does not duplicate
9899: OPEN get_fa_id(p_top_line => p_clev_rec.cle_id,
9900: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9901: IF get_fa_id%NOTFOUND THEN
9902: OKL_API.set_message(p_app_name => G_APP_NAME,
9903: p_msg_name => G_LINE_RECORD);
9904: RAISE OKL_API.G_EXCEPTION_ERROR;
9905: END IF;
9906: FETCH get_fa_id INTO ln_fa_id;
9900: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9901: IF get_fa_id%NOTFOUND THEN
9902: OKL_API.set_message(p_app_name => G_APP_NAME,
9903: p_msg_name => G_LINE_RECORD);
9904: RAISE OKL_API.G_EXCEPTION_ERROR;
9905: END IF;
9906: FETCH get_fa_id INTO ln_fa_id;
9907: CLOSE get_fa_id;
9908:
9907: CLOSE get_fa_id;
9908:
9909: -- To Check We Got the Valid info
9910: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9911: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9912: UPPER(p_new_yn) IS NULL) THEN
9913: OKL_API.set_message(p_app_name => G_APP_NAME,
9914: p_msg_name => G_INVALID_YN,
9915: p_token1 => G_COL_NAME_TOKEN,
9909: -- To Check We Got the Valid info
9910: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
9911: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
9912: UPPER(p_new_yn) IS NULL) THEN
9913: OKL_API.set_message(p_app_name => G_APP_NAME,
9914: p_msg_name => G_INVALID_YN,
9915: p_token1 => G_COL_NAME_TOKEN,
9916: p_token1_value => 'p_new_yn');
9917: -- Halt Validation
9914: p_msg_name => G_INVALID_YN,
9915: p_token1 => G_COL_NAME_TOKEN,
9916: p_token1_value => 'p_new_yn');
9917: -- Halt Validation
9918: RAISE OKL_API.G_EXCEPTION_ERROR;
9919: END IF;
9920: -- Validate to see if the asset_number given is not null
9921: -- and also Validate asset_number does not exists
9922: -- in OKL_TXL_ASSETS_V
9925: p_asset_number => p_asset_number,
9926: p_kle_id => ln_fa_id,
9927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9928: -- Check if activity started successfully
9929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9932: RAISE OKL_API.G_EXCEPTION_ERROR;
9933: END IF;
9926: p_kle_id => ln_fa_id,
9927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9928: -- Check if activity started successfully
9929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9932: RAISE OKL_API.G_EXCEPTION_ERROR;
9933: END IF;
9934: ELSIF UPPER(p_new_yn) = 'N' THEN
9927: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9928: -- Check if activity started successfully
9929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9932: RAISE OKL_API.G_EXCEPTION_ERROR;
9933: END IF;
9934: ELSIF UPPER(p_new_yn) = 'N' THEN
9935: validate_new_ast_num_update(x_return_status => x_return_status,
9928: -- Check if activity started successfully
9929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9932: RAISE OKL_API.G_EXCEPTION_ERROR;
9933: END IF;
9934: ELSIF UPPER(p_new_yn) = 'N' THEN
9935: validate_new_ast_num_update(x_return_status => x_return_status,
9936: p_asset_number => p_asset_number,
9936: p_asset_number => p_asset_number,
9937: p_kle_id => ln_fa_id,
9938: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9939: -- Check if activity started successfully
9940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9943: RAISE OKL_API.G_EXCEPTION_ERROR;
9944: END IF;
9937: p_kle_id => ln_fa_id,
9938: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9939: -- Check if activity started successfully
9940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9943: RAISE OKL_API.G_EXCEPTION_ERROR;
9944: END IF;
9945: END IF;
9938: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
9939: -- Check if activity started successfully
9940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9943: RAISE OKL_API.G_EXCEPTION_ERROR;
9944: END IF;
9945: END IF;
9946: -- Validate Line Style id and get the line type code
9939: -- Check if activity started successfully
9940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9943: RAISE OKL_API.G_EXCEPTION_ERROR;
9944: END IF;
9945: END IF;
9946: -- Validate Line Style id and get the line type code
9947: -- and line style type for further processing
9949: x_return_status => x_return_status,
9950: x_lty_code => l_lty_code,
9951: x_lse_type => l_lse_type);
9952: -- Check if activity started successfully
9953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9956: RAISE OKL_API.G_EXCEPTION_ERROR;
9957: END IF;
9950: x_lty_code => l_lty_code,
9951: x_lse_type => l_lse_type);
9952: -- Check if activity started successfully
9953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9956: RAISE OKL_API.G_EXCEPTION_ERROR;
9957: END IF;
9958: -- Validate the Dnz_Chr_id
9951: x_lse_type => l_lse_type);
9952: -- Check if activity started successfully
9953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9956: RAISE OKL_API.G_EXCEPTION_ERROR;
9957: END IF;
9958: -- Validate the Dnz_Chr_id
9959: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9952: -- Check if activity started successfully
9953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9956: RAISE OKL_API.G_EXCEPTION_ERROR;
9957: END IF;
9958: -- Validate the Dnz_Chr_id
9959: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9960: x_return_status => x_return_status);
9958: -- Validate the Dnz_Chr_id
9959: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9960: x_return_status => x_return_status);
9961: -- Check if activity started successfully
9962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9965: RAISE OKL_API.G_EXCEPTION_ERROR;
9966: END IF;
9959: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
9960: x_return_status => x_return_status);
9961: -- Check if activity started successfully
9962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9965: RAISE OKL_API.G_EXCEPTION_ERROR;
9966: END IF;
9967: -- We have to Populate the Model Line Record
9960: x_return_status => x_return_status);
9961: -- Check if activity started successfully
9962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9965: RAISE OKL_API.G_EXCEPTION_ERROR;
9966: END IF;
9967: -- We have to Populate the Model Line Record
9968: l_clev_rec := p_clev_rec;
9961: -- Check if activity started successfully
9962: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9963: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9964: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9965: RAISE OKL_API.G_EXCEPTION_ERROR;
9966: END IF;
9967: -- We have to Populate the Model Line Record
9968: l_clev_rec := p_clev_rec;
9969: -- Now we are updating Model Line
9969: -- Now we are updating Model Line
9970: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
9971: -- The Record Should have the cle_id
9972: -- if the given line style is Model Line
9973: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9974: l_clev_rec.chr_id IS NULL) AND
9975: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9976: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9977: (l_clev_rec.cle_id IS NOT NULL OR
9972: -- if the given line style is Model Line
9973: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
9974: l_clev_rec.chr_id IS NULL) AND
9975: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9976: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9977: (l_clev_rec.cle_id IS NOT NULL OR
9978: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9979: l_lty_code = G_MODEL_LINE_LTY_CODE AND
9980: l_lse_type = G_SLS_TYPE THEN
9974: l_clev_rec.chr_id IS NULL) AND
9975: (l_clev_rec.dnz_chr_id IS NOT NULL OR
9976: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
9977: (l_clev_rec.cle_id IS NOT NULL OR
9978: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
9979: l_lty_code = G_MODEL_LINE_LTY_CODE AND
9980: l_lse_type = G_SLS_TYPE THEN
9981: update_model_line_item(p_api_version => p_api_version,
9982: p_init_msg_list => p_init_msg_list,
9989: p_cimv_rec => p_cimv_rec,
9990: x_clev_rec => x_clev_rec,
9991: x_klev_rec => x_klev_rec,
9992: x_cimv_rec => x_cimv_rec);
9993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9996: RAISE OKL_API.G_EXCEPTION_ERROR;
9997: END IF;
9990: x_clev_rec => x_clev_rec,
9991: x_klev_rec => x_klev_rec,
9992: x_cimv_rec => x_cimv_rec);
9993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9996: RAISE OKL_API.G_EXCEPTION_ERROR;
9997: END IF;
9998: ELSE
9991: x_klev_rec => x_klev_rec,
9992: x_cimv_rec => x_cimv_rec);
9993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9996: RAISE OKL_API.G_EXCEPTION_ERROR;
9997: END IF;
9998: ELSE
9999: OKL_API.set_message(p_app_name => G_APP_NAME,
9992: x_cimv_rec => x_cimv_rec);
9993: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9996: RAISE OKL_API.G_EXCEPTION_ERROR;
9997: END IF;
9998: ELSE
9999: OKL_API.set_message(p_app_name => G_APP_NAME,
10000: p_msg_name => G_INVALID_CRITERIA,
9995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9996: RAISE OKL_API.G_EXCEPTION_ERROR;
9997: END IF;
9998: ELSE
9999: OKL_API.set_message(p_app_name => G_APP_NAME,
10000: p_msg_name => G_INVALID_CRITERIA,
10001: p_token1 => G_COL_NAME_TOKEN,
10002: p_token1_value => 'Model Asset line');
10003: x_return_status := OKL_API.G_RET_STS_ERROR;
9999: OKL_API.set_message(p_app_name => G_APP_NAME,
10000: p_msg_name => G_INVALID_CRITERIA,
10001: p_token1 => G_COL_NAME_TOKEN,
10002: p_token1_value => 'Model Asset line');
10003: x_return_status := OKL_API.G_RET_STS_ERROR;
10004: RAISE OKL_API.G_EXCEPTION_ERROR;
10005: END IF;
10006: OKL_API.END_ACTIVITY (x_msg_count,
10007: x_msg_data );
10000: p_msg_name => G_INVALID_CRITERIA,
10001: p_token1 => G_COL_NAME_TOKEN,
10002: p_token1_value => 'Model Asset line');
10003: x_return_status := OKL_API.G_RET_STS_ERROR;
10004: RAISE OKL_API.G_EXCEPTION_ERROR;
10005: END IF;
10006: OKL_API.END_ACTIVITY (x_msg_count,
10007: x_msg_data );
10008: EXCEPTION
10002: p_token1_value => 'Model Asset line');
10003: x_return_status := OKL_API.G_RET_STS_ERROR;
10004: RAISE OKL_API.G_EXCEPTION_ERROR;
10005: END IF;
10006: OKL_API.END_ACTIVITY (x_msg_count,
10007: x_msg_data );
10008: EXCEPTION
10009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10010: IF get_fa_id%ISOPEN THEN
10005: END IF;
10006: OKL_API.END_ACTIVITY (x_msg_count,
10007: x_msg_data );
10008: EXCEPTION
10009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10010: IF get_fa_id%ISOPEN THEN
10011: CLOSE get_fa_id;
10012: END IF;
10013: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10009: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10010: IF get_fa_id%ISOPEN THEN
10011: CLOSE get_fa_id;
10012: END IF;
10013: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10014: l_api_name,
10015: G_PKG_NAME,
10016: 'OKL_API.G_RET_STS_ERROR',
10017: x_msg_count,
10012: END IF;
10013: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10014: l_api_name,
10015: G_PKG_NAME,
10016: 'OKL_API.G_RET_STS_ERROR',
10017: x_msg_count,
10018: x_msg_data,
10019: '_PVT');
10020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10016: 'OKL_API.G_RET_STS_ERROR',
10017: x_msg_count,
10018: x_msg_data,
10019: '_PVT');
10020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10021: IF get_fa_id%ISOPEN THEN
10022: CLOSE get_fa_id;
10023: END IF;
10024: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10020: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10021: IF get_fa_id%ISOPEN THEN
10022: CLOSE get_fa_id;
10023: END IF;
10024: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10025: l_api_name,
10026: G_PKG_NAME,
10027: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10028: x_msg_count,
10023: END IF;
10024: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10025: l_api_name,
10026: G_PKG_NAME,
10027: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10028: x_msg_count,
10029: x_msg_data,
10030: '_PVT');
10031: WHEN OTHERS THEN
10031: WHEN OTHERS THEN
10032: IF get_fa_id%ISOPEN THEN
10033: CLOSE get_fa_id;
10034: END IF;
10035: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10036: l_api_name,
10037: G_PKG_NAME,
10038: 'OTHERS',
10039: x_msg_count,
10044: ----------------- Main Process for Fixed Asset Line Creation-----------------------------------
10045: -----------------------------------------------------------------------------------------------
10046: PROCEDURE Create_fixed_asset_line(
10047: p_api_version IN NUMBER,
10048: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10049: x_return_status OUT NOCOPY VARCHAR2,
10050: x_msg_count OUT NOCOPY NUMBER,
10051: x_msg_data OUT NOCOPY VARCHAR2,
10052: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
10066: -- Variables for validation of line style
10067: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
10068: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
10069: BEGIN
10070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10071: -- Call start_activity to create savepoint, check compatibility
10072: -- and initialize message list
10073: x_return_status := OKL_API.START_ACTIVITY (
10074: l_api_name
10069: BEGIN
10070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10071: -- Call start_activity to create savepoint, check compatibility
10072: -- and initialize message list
10073: x_return_status := OKL_API.START_ACTIVITY (
10074: l_api_name
10075: ,p_init_msg_list
10076: ,'_PVT'
10077: ,x_return_status);
10075: ,p_init_msg_list
10076: ,'_PVT'
10077: ,x_return_status);
10078: -- Check if activity started successfully
10079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10082: RAISE OKL_API.G_EXCEPTION_ERROR;
10083: END IF;
10076: ,'_PVT'
10077: ,x_return_status);
10078: -- Check if activity started successfully
10079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10082: RAISE OKL_API.G_EXCEPTION_ERROR;
10083: END IF;
10084: -- 4414408 The validation is now performed in create_all_line procedure
10077: ,x_return_status);
10078: -- Check if activity started successfully
10079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10082: RAISE OKL_API.G_EXCEPTION_ERROR;
10083: END IF;
10084: -- 4414408 The validation is now performed in create_all_line procedure
10085: /*
10078: -- Check if activity started successfully
10079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10082: RAISE OKL_API.G_EXCEPTION_ERROR;
10083: END IF;
10084: -- 4414408 The validation is now performed in create_all_line procedure
10085: /*
10086: -- To Check We Got the Valid info
10084: -- 4414408 The validation is now performed in create_all_line procedure
10085: /*
10086: -- To Check We Got the Valid info
10087: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10088: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10089: UPPER(p_new_yn) IS NULL) THEN
10090: OKL_API.set_message(p_app_name => G_APP_NAME,
10091: p_msg_name => G_INVALID_YN,
10092: p_token1 => G_COL_NAME_TOKEN,
10086: -- To Check We Got the Valid info
10087: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10088: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10089: UPPER(p_new_yn) IS NULL) THEN
10090: OKL_API.set_message(p_app_name => G_APP_NAME,
10091: p_msg_name => G_INVALID_YN,
10092: p_token1 => G_COL_NAME_TOKEN,
10093: p_token1_value => 'p_new_yn');
10094: -- Halt Validation
10091: p_msg_name => G_INVALID_YN,
10092: p_token1 => G_COL_NAME_TOKEN,
10093: p_token1_value => 'p_new_yn');
10094: -- Halt Validation
10095: RAISE OKL_API.G_EXCEPTION_ERROR;
10096: END IF;
10097: -- Validate to see if the asset_number given is not null
10098: -- and also Validate asset_number does not exists
10099: -- in OKL_TXL_ASSETS_V
10101: validate_new_asset_number(x_return_status => x_return_status,
10102: p_asset_number => p_asset_number,
10103: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10104: -- Check if activity started successfully
10105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10108: RAISE OKL_API.G_EXCEPTION_ERROR;
10109: END IF;
10102: p_asset_number => p_asset_number,
10103: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10104: -- Check if activity started successfully
10105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10108: RAISE OKL_API.G_EXCEPTION_ERROR;
10109: END IF;
10110: ELSE
10103: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10104: -- Check if activity started successfully
10105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10108: RAISE OKL_API.G_EXCEPTION_ERROR;
10109: END IF;
10110: ELSE
10111: validate_new_asset_number(x_return_status => x_return_status,
10104: -- Check if activity started successfully
10105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10108: RAISE OKL_API.G_EXCEPTION_ERROR;
10109: END IF;
10110: ELSE
10111: validate_new_asset_number(x_return_status => x_return_status,
10112: p_asset_number => p_asset_number,
10111: validate_new_asset_number(x_return_status => x_return_status,
10112: p_asset_number => p_asset_number,
10113: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10114: -- Check if activity ended successfully
10115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10118: RAISE OKL_API.G_EXCEPTION_ERROR;
10119: END IF;
10112: p_asset_number => p_asset_number,
10113: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10114: -- Check if activity ended successfully
10115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10118: RAISE OKL_API.G_EXCEPTION_ERROR;
10119: END IF;
10120: END IF;
10113: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10114: -- Check if activity ended successfully
10115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10118: RAISE OKL_API.G_EXCEPTION_ERROR;
10119: END IF;
10120: END IF;
10121: */
10114: -- Check if activity ended successfully
10115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10118: RAISE OKL_API.G_EXCEPTION_ERROR;
10119: END IF;
10120: END IF;
10121: */
10122: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
10127: x_return_status => x_return_status,
10128: x_lty_code => l_lty_code,
10129: x_lse_type => l_lse_type);
10130: -- Check if activity started successfully
10131: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10134: RAISE OKL_API.G_EXCEPTION_ERROR;
10135: END IF;
10128: x_lty_code => l_lty_code,
10129: x_lse_type => l_lse_type);
10130: -- Check if activity started successfully
10131: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10134: RAISE OKL_API.G_EXCEPTION_ERROR;
10135: END IF;
10136: -- Validate the Dnz_Chr_id
10129: x_lse_type => l_lse_type);
10130: -- Check if activity started successfully
10131: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10134: RAISE OKL_API.G_EXCEPTION_ERROR;
10135: END IF;
10136: -- Validate the Dnz_Chr_id
10137: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10130: -- Check if activity started successfully
10131: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10133: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10134: RAISE OKL_API.G_EXCEPTION_ERROR;
10135: END IF;
10136: -- Validate the Dnz_Chr_id
10137: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10138: x_return_status => x_return_status);
10136: -- Validate the Dnz_Chr_id
10137: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10138: x_return_status => x_return_status);
10139: -- Check if activity started successfully
10140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10143: RAISE OKL_API.G_EXCEPTION_ERROR;
10144: END IF;
10137: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10138: x_return_status => x_return_status);
10139: -- Check if activity started successfully
10140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10143: RAISE OKL_API.G_EXCEPTION_ERROR;
10144: END IF;
10145: */
10138: x_return_status => x_return_status);
10139: -- Check if activity started successfully
10140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10143: RAISE OKL_API.G_EXCEPTION_ERROR;
10144: END IF;
10145: */
10146: -- Now we are going to create the Fixed Assets Line
10139: -- Check if activity started successfully
10140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10143: RAISE OKL_API.G_EXCEPTION_ERROR;
10144: END IF;
10145: */
10146: -- Now we are going to create the Fixed Assets Line
10147: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10147: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10148: -- The Record Should have the cle_id
10149: -- if the given line style is Fixed Assets Line
10150: l_clev_rec := p_clev_rec;
10151: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10152: l_clev_rec.chr_id IS NULL) AND
10153: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10154: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10155: (l_clev_rec.cle_id IS NOT NULL OR
10150: l_clev_rec := p_clev_rec;
10151: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10152: l_clev_rec.chr_id IS NULL) AND
10153: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10154: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10155: (l_clev_rec.cle_id IS NOT NULL OR
10156: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10157: -- #4414408
10158: -- l_lty_code = G_FA_LINE_LTY_CODE AND
10152: l_clev_rec.chr_id IS NULL) AND
10153: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10154: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10155: (l_clev_rec.cle_id IS NOT NULL OR
10156: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10157: -- #4414408
10158: -- l_lty_code = G_FA_LINE_LTY_CODE AND
10159: -- l_lse_type = G_SLS_TYPE THEN
10160: l_clev_rec.lse_id = G_FA_LINE_LTY_ID THEN
10172: x_klev_rec => x_klev_rec,
10173: x_cimv_rec => x_cimv_rec,
10174: x_trxv_rec => x_trxv_rec,
10175: x_talv_rec => x_talv_rec);
10176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_ERROR;
10180: END IF;
10173: x_cimv_rec => x_cimv_rec,
10174: x_trxv_rec => x_trxv_rec,
10175: x_talv_rec => x_talv_rec);
10176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_ERROR;
10180: END IF;
10181: ELSE
10174: x_trxv_rec => x_trxv_rec,
10175: x_talv_rec => x_talv_rec);
10176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_ERROR;
10180: END IF;
10181: ELSE
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10175: x_talv_rec => x_talv_rec);
10176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_ERROR;
10180: END IF;
10181: ELSE
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10183: p_msg_name => G_INVALID_CRITERIA,
10178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10179: RAISE OKL_API.G_EXCEPTION_ERROR;
10180: END IF;
10181: ELSE
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10183: p_msg_name => G_INVALID_CRITERIA,
10184: p_token1 => G_COL_NAME_TOKEN,
10185: p_token1_value => 'Fixed Asset line');
10186: x_return_status := OKL_API.G_RET_STS_ERROR;
10182: OKL_API.set_message(p_app_name => G_APP_NAME,
10183: p_msg_name => G_INVALID_CRITERIA,
10184: p_token1 => G_COL_NAME_TOKEN,
10185: p_token1_value => 'Fixed Asset line');
10186: x_return_status := OKL_API.G_RET_STS_ERROR;
10187: RAISE OKL_API.G_EXCEPTION_ERROR;
10188: END IF;
10189: OKL_API.END_ACTIVITY (x_msg_count,
10190: x_msg_data );
10183: p_msg_name => G_INVALID_CRITERIA,
10184: p_token1 => G_COL_NAME_TOKEN,
10185: p_token1_value => 'Fixed Asset line');
10186: x_return_status := OKL_API.G_RET_STS_ERROR;
10187: RAISE OKL_API.G_EXCEPTION_ERROR;
10188: END IF;
10189: OKL_API.END_ACTIVITY (x_msg_count,
10190: x_msg_data );
10191: EXCEPTION
10185: p_token1_value => 'Fixed Asset line');
10186: x_return_status := OKL_API.G_RET_STS_ERROR;
10187: RAISE OKL_API.G_EXCEPTION_ERROR;
10188: END IF;
10189: OKL_API.END_ACTIVITY (x_msg_count,
10190: x_msg_data );
10191: EXCEPTION
10192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10193: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10188: END IF;
10189: OKL_API.END_ACTIVITY (x_msg_count,
10190: x_msg_data );
10191: EXCEPTION
10192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10193: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10194: l_api_name,
10195: G_PKG_NAME,
10196: 'OKL_API.G_RET_STS_ERROR',
10189: OKL_API.END_ACTIVITY (x_msg_count,
10190: x_msg_data );
10191: EXCEPTION
10192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10193: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10194: l_api_name,
10195: G_PKG_NAME,
10196: 'OKL_API.G_RET_STS_ERROR',
10197: x_msg_count,
10192: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10193: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10194: l_api_name,
10195: G_PKG_NAME,
10196: 'OKL_API.G_RET_STS_ERROR',
10197: x_msg_count,
10198: x_msg_data,
10199: '_PVT');
10200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10196: 'OKL_API.G_RET_STS_ERROR',
10197: x_msg_count,
10198: x_msg_data,
10199: '_PVT');
10200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10202: l_api_name,
10203: G_PKG_NAME,
10204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10197: x_msg_count,
10198: x_msg_data,
10199: '_PVT');
10200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10202: l_api_name,
10203: G_PKG_NAME,
10204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10205: x_msg_count,
10200: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10201: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10202: l_api_name,
10203: G_PKG_NAME,
10204: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10205: x_msg_count,
10206: x_msg_data,
10207: '_PVT');
10208: WHEN OTHERS THEN
10205: x_msg_count,
10206: x_msg_data,
10207: '_PVT');
10208: WHEN OTHERS THEN
10209: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10210: l_api_name,
10211: G_PKG_NAME,
10212: 'OTHERS',
10213: x_msg_count,
10218: ----------------------------- Main Process for update of fixed asset Line -----------------------------
10219: -------------------------------------------------------------------------------------------------------
10220: PROCEDURE Update_fixed_asset_line(
10221: p_api_version IN NUMBER,
10222: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10223: x_return_status OUT NOCOPY VARCHAR2,
10224: x_msg_count OUT NOCOPY NUMBER,
10225: x_msg_data OUT NOCOPY VARCHAR2,
10226: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
10238: -- Variables for validation of line style
10239: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
10240: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
10241: BEGIN
10242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10243: -- Call start_activity to create savepoint, check compatibility
10244: -- and initialize message list
10245: x_return_status := OKL_API.START_ACTIVITY (
10246: l_api_name
10241: BEGIN
10242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10243: -- Call start_activity to create savepoint, check compatibility
10244: -- and initialize message list
10245: x_return_status := OKL_API.START_ACTIVITY (
10246: l_api_name
10247: ,p_init_msg_list
10248: ,'_PVT'
10249: ,x_return_status);
10247: ,p_init_msg_list
10248: ,'_PVT'
10249: ,x_return_status);
10250: -- Check if activity started successfully
10251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10254: RAISE OKL_API.G_EXCEPTION_ERROR;
10255: END IF;
10248: ,'_PVT'
10249: ,x_return_status);
10250: -- Check if activity started successfully
10251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10254: RAISE OKL_API.G_EXCEPTION_ERROR;
10255: END IF;
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10249: ,x_return_status);
10250: -- Check if activity started successfully
10251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10254: RAISE OKL_API.G_EXCEPTION_ERROR;
10255: END IF;
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10257: x_return_status => x_return_status);
10250: -- Check if activity started successfully
10251: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10252: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10253: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10254: RAISE OKL_API.G_EXCEPTION_ERROR;
10255: END IF;
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10257: x_return_status => x_return_status);
10258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10254: RAISE OKL_API.G_EXCEPTION_ERROR;
10255: END IF;
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10257: x_return_status => x_return_status);
10258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10261: RAISE OKL_API.G_EXCEPTION_ERROR;
10262: END IF;
10255: END IF;
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10257: x_return_status => x_return_status);
10258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10261: RAISE OKL_API.G_EXCEPTION_ERROR;
10262: END IF;
10263: -- To Check We Got the Valid info
10256: validate_sts_code(p_clev_rec => p_clev_rec,
10257: x_return_status => x_return_status);
10258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10261: RAISE OKL_API.G_EXCEPTION_ERROR;
10262: END IF;
10263: -- To Check We Got the Valid info
10264: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10257: x_return_status => x_return_status);
10258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10261: RAISE OKL_API.G_EXCEPTION_ERROR;
10262: END IF;
10263: -- To Check We Got the Valid info
10264: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10265: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10261: RAISE OKL_API.G_EXCEPTION_ERROR;
10262: END IF;
10263: -- To Check We Got the Valid info
10264: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10265: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10266: UPPER(p_new_yn) IS NULL) THEN
10267: OKL_API.set_message(p_app_name => G_APP_NAME,
10268: p_msg_name => G_INVALID_YN,
10269: p_token1 => G_COL_NAME_TOKEN,
10263: -- To Check We Got the Valid info
10264: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
10265: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
10266: UPPER(p_new_yn) IS NULL) THEN
10267: OKL_API.set_message(p_app_name => G_APP_NAME,
10268: p_msg_name => G_INVALID_YN,
10269: p_token1 => G_COL_NAME_TOKEN,
10270: p_token1_value => 'p_new_yn');
10271: -- Halt Validation
10268: p_msg_name => G_INVALID_YN,
10269: p_token1 => G_COL_NAME_TOKEN,
10270: p_token1_value => 'p_new_yn');
10271: -- Halt Validation
10272: RAISE OKL_API.G_EXCEPTION_ERROR;
10273: END IF;
10274: -- Validate to see if the asset_number given is not null
10275: -- and also Validate asset_number does not exists
10276: -- in OKL_TXL_ASSETS_V
10279: p_asset_number => p_asset_number,
10280: p_kle_id => p_talv_rec.kle_id,
10281: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10282: -- Check if activity started successfully
10283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10286: RAISE OKL_API.G_EXCEPTION_ERROR;
10287: END IF;
10280: p_kle_id => p_talv_rec.kle_id,
10281: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10282: -- Check if activity started successfully
10283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10286: RAISE OKL_API.G_EXCEPTION_ERROR;
10287: END IF;
10288: ELSIF UPPER(p_new_yn) = 'N' THEN
10281: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10282: -- Check if activity started successfully
10283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10286: RAISE OKL_API.G_EXCEPTION_ERROR;
10287: END IF;
10288: ELSIF UPPER(p_new_yn) = 'N' THEN
10289: validate_new_ast_num_update(x_return_status => x_return_status,
10282: -- Check if activity started successfully
10283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10286: RAISE OKL_API.G_EXCEPTION_ERROR;
10287: END IF;
10288: ELSIF UPPER(p_new_yn) = 'N' THEN
10289: validate_new_ast_num_update(x_return_status => x_return_status,
10290: p_asset_number => p_asset_number,
10290: p_asset_number => p_asset_number,
10291: p_kle_id => p_talv_rec.kle_id,
10292: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10293: -- Check if activity started successfully
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10291: p_kle_id => p_talv_rec.kle_id,
10292: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10293: -- Check if activity started successfully
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299: END IF;
10292: p_dnz_chr_id => p_clev_rec.dnz_chr_id);
10293: -- Check if activity started successfully
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299: END IF;
10300: -- Validate Line Style id and get the line type code
10293: -- Check if activity started successfully
10294: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10296: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10297: RAISE OKL_API.G_EXCEPTION_ERROR;
10298: END IF;
10299: END IF;
10300: -- Validate Line Style id and get the line type code
10301: -- and line style type for further processing
10303: x_return_status => x_return_status,
10304: x_lty_code => l_lty_code,
10305: x_lse_type => l_lse_type);
10306: -- Check if activity started successfully
10307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10304: x_lty_code => l_lty_code,
10305: x_lse_type => l_lse_type);
10306: -- Check if activity started successfully
10307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10312: -- Validate the Dnz_Chr_id
10305: x_lse_type => l_lse_type);
10306: -- Check if activity started successfully
10307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10312: -- Validate the Dnz_Chr_id
10313: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10306: -- Check if activity started successfully
10307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10310: RAISE OKL_API.G_EXCEPTION_ERROR;
10311: END IF;
10312: -- Validate the Dnz_Chr_id
10313: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10314: x_return_status => x_return_status);
10312: -- Validate the Dnz_Chr_id
10313: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10314: x_return_status => x_return_status);
10315: -- Check if activity started successfully
10316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10319: RAISE OKL_API.G_EXCEPTION_ERROR;
10320: END IF;
10313: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
10314: x_return_status => x_return_status);
10315: -- Check if activity started successfully
10316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10319: RAISE OKL_API.G_EXCEPTION_ERROR;
10320: END IF;
10321: -- We have to Populate the Model Line Record
10314: x_return_status => x_return_status);
10315: -- Check if activity started successfully
10316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10319: RAISE OKL_API.G_EXCEPTION_ERROR;
10320: END IF;
10321: -- We have to Populate the Model Line Record
10322: l_clev_rec := p_clev_rec;
10315: -- Check if activity started successfully
10316: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10317: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10318: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10319: RAISE OKL_API.G_EXCEPTION_ERROR;
10320: END IF;
10321: -- We have to Populate the Model Line Record
10322: l_clev_rec := p_clev_rec;
10323: -- Now we are updating Fixed Asset Line
10323: -- Now we are updating Fixed Asset Line
10324: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
10325: -- The Record Should have the cle_id
10326: -- if the given line style is Fixed Asset Line
10327: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10328: l_clev_rec.chr_id IS NULL) AND
10329: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10330: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10331: (l_clev_rec.cle_id IS NOT NULL OR
10326: -- if the given line style is Fixed Asset Line
10327: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
10328: l_clev_rec.chr_id IS NULL) AND
10329: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10330: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10331: (l_clev_rec.cle_id IS NOT NULL OR
10332: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10333: l_lty_code = G_FA_LINE_LTY_CODE AND
10334: l_lse_type = G_SLS_TYPE THEN
10328: l_clev_rec.chr_id IS NULL) AND
10329: (l_clev_rec.dnz_chr_id IS NOT NULL OR
10330: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
10331: (l_clev_rec.cle_id IS NOT NULL OR
10332: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
10333: l_lty_code = G_FA_LINE_LTY_CODE AND
10334: l_lse_type = G_SLS_TYPE THEN
10335: update_fa_line_item(p_api_version => p_api_version,
10336: p_init_msg_list => p_init_msg_list,
10346: x_clev_rec => x_clev_rec,
10347: x_klev_rec => x_klev_rec,
10348: x_cimv_rec => x_cimv_rec,
10349: x_talv_rec => x_talv_rec);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10347: x_klev_rec => x_klev_rec,
10348: x_cimv_rec => x_cimv_rec,
10349: x_talv_rec => x_talv_rec);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355: ELSE
10348: x_cimv_rec => x_cimv_rec,
10349: x_talv_rec => x_talv_rec);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355: ELSE
10356: OKL_API.set_message(p_app_name => G_APP_NAME,
10349: x_talv_rec => x_talv_rec);
10350: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10351: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355: ELSE
10356: OKL_API.set_message(p_app_name => G_APP_NAME,
10357: p_msg_name => G_INVALID_CRITERIA,
10352: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10353: RAISE OKL_API.G_EXCEPTION_ERROR;
10354: END IF;
10355: ELSE
10356: OKL_API.set_message(p_app_name => G_APP_NAME,
10357: p_msg_name => G_INVALID_CRITERIA,
10358: p_token1 => G_COL_NAME_TOKEN,
10359: p_token1_value => 'Fixed Asset line');
10360: x_return_status := OKL_API.G_RET_STS_ERROR;
10356: OKL_API.set_message(p_app_name => G_APP_NAME,
10357: p_msg_name => G_INVALID_CRITERIA,
10358: p_token1 => G_COL_NAME_TOKEN,
10359: p_token1_value => 'Fixed Asset line');
10360: x_return_status := OKL_API.G_RET_STS_ERROR;
10361: RAISE OKL_API.G_EXCEPTION_ERROR;
10362: END IF;
10363: OKL_API.END_ACTIVITY (x_msg_count,
10364: x_msg_data );
10357: p_msg_name => G_INVALID_CRITERIA,
10358: p_token1 => G_COL_NAME_TOKEN,
10359: p_token1_value => 'Fixed Asset line');
10360: x_return_status := OKL_API.G_RET_STS_ERROR;
10361: RAISE OKL_API.G_EXCEPTION_ERROR;
10362: END IF;
10363: OKL_API.END_ACTIVITY (x_msg_count,
10364: x_msg_data );
10365: EXCEPTION
10359: p_token1_value => 'Fixed Asset line');
10360: x_return_status := OKL_API.G_RET_STS_ERROR;
10361: RAISE OKL_API.G_EXCEPTION_ERROR;
10362: END IF;
10363: OKL_API.END_ACTIVITY (x_msg_count,
10364: x_msg_data );
10365: EXCEPTION
10366: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10362: END IF;
10363: OKL_API.END_ACTIVITY (x_msg_count,
10364: x_msg_data );
10365: EXCEPTION
10366: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10368: l_api_name,
10369: G_PKG_NAME,
10370: 'OKL_API.G_RET_STS_ERROR',
10363: OKL_API.END_ACTIVITY (x_msg_count,
10364: x_msg_data );
10365: EXCEPTION
10366: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10368: l_api_name,
10369: G_PKG_NAME,
10370: 'OKL_API.G_RET_STS_ERROR',
10371: x_msg_count,
10366: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10367: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10368: l_api_name,
10369: G_PKG_NAME,
10370: 'OKL_API.G_RET_STS_ERROR',
10371: x_msg_count,
10372: x_msg_data,
10373: '_PVT');
10374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10370: 'OKL_API.G_RET_STS_ERROR',
10371: x_msg_count,
10372: x_msg_data,
10373: '_PVT');
10374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10375: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10376: l_api_name,
10377: G_PKG_NAME,
10378: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10371: x_msg_count,
10372: x_msg_data,
10373: '_PVT');
10374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10375: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10376: l_api_name,
10377: G_PKG_NAME,
10378: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10379: x_msg_count,
10374: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10375: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10376: l_api_name,
10377: G_PKG_NAME,
10378: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10379: x_msg_count,
10380: x_msg_data,
10381: '_PVT');
10382: WHEN OTHERS THEN
10379: x_msg_count,
10380: x_msg_data,
10381: '_PVT');
10382: WHEN OTHERS THEN
10383: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10384: l_api_name,
10385: G_PKG_NAME,
10386: 'OTHERS',
10387: x_msg_count,
10431: AND cle.dnz_chr_id = p_dnz_chr_id
10432: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10433:
10434: BEGIN
10435: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10436: -- Call start_activity to create savepoint, check compatibility
10437: -- and initialize message list
10438: x_return_status := OKL_API.START_ACTIVITY (
10439: l_api_name
10434: BEGIN
10435: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10436: -- Call start_activity to create savepoint, check compatibility
10437: -- and initialize message list
10438: x_return_status := OKL_API.START_ACTIVITY (
10439: l_api_name
10440: ,p_init_msg_list
10441: ,'_PVT'
10442: ,x_return_status);
10440: ,p_init_msg_list
10441: ,'_PVT'
10442: ,x_return_status);
10443: -- Check if activity started successfully
10444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10447: RAISE OKL_API.G_EXCEPTION_ERROR;
10448: END IF;
10441: ,'_PVT'
10442: ,x_return_status);
10443: -- Check if activity started successfully
10444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10447: RAISE OKL_API.G_EXCEPTION_ERROR;
10448: END IF;
10449: OKL_API.init_msg_list(p_init_msg_list);
10442: ,x_return_status);
10443: -- Check if activity started successfully
10444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10447: RAISE OKL_API.G_EXCEPTION_ERROR;
10448: END IF;
10449: OKL_API.init_msg_list(p_init_msg_list);
10450: -- Make sure PL/SQL table has records in it before passing
10443: -- Check if activity started successfully
10444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10447: RAISE OKL_API.G_EXCEPTION_ERROR;
10448: END IF;
10449: OKL_API.init_msg_list(p_init_msg_list);
10450: -- Make sure PL/SQL table has records in it before passing
10451: IF (p_clev_tbl.COUNT > 0) AND
10445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10447: RAISE OKL_API.G_EXCEPTION_ERROR;
10448: END IF;
10449: OKL_API.init_msg_list(p_init_msg_list);
10450: -- Make sure PL/SQL table has records in it before passing
10451: IF (p_clev_tbl.COUNT > 0) AND
10452: (p_cimv_tbl.COUNT > 0)THEN
10453: i := p_clev_tbl.FIRST;
10457: l_clev_tbl := p_clev_tbl;
10458: LOOP
10459: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10460: x_lse_id => l_clev_tbl(i).lse_id);
10461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10465: END IF;
10458: LOOP
10459: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10460: x_lse_id => l_clev_tbl(i).lse_id);
10461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10465: END IF;
10466: create_addon_line_rec(p_api_version => p_api_version,
10459: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10460: x_lse_id => l_clev_tbl(i).lse_id);
10461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10465: END IF;
10466: create_addon_line_rec(p_api_version => p_api_version,
10467: p_init_msg_list => p_init_msg_list,
10460: x_lse_id => l_clev_tbl(i).lse_id);
10461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10465: END IF;
10466: create_addon_line_rec(p_api_version => p_api_version,
10467: p_init_msg_list => p_init_msg_list,
10468: x_return_status => x_return_status,
10475: p_cimv_rec => p_cimv_tbl(k),
10476: x_clev_rec => x_clev_tbl(i),
10477: x_klev_rec => x_klev_rec,
10478: x_cimv_rec => x_cimv_tbl(k));
10479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10480: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10483: END IF;
10476: x_clev_rec => x_clev_tbl(i),
10477: x_klev_rec => x_klev_rec,
10478: x_cimv_rec => x_cimv_tbl(k));
10479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10480: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10483: END IF;
10484: ln_add_cle_id := x_clev_tbl(i).cle_id;
10477: x_klev_rec => x_klev_rec,
10478: x_cimv_rec => x_cimv_tbl(k));
10479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10480: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10483: END IF;
10484: ln_add_cle_id := x_clev_tbl(i).cle_id;
10485: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10478: x_cimv_rec => x_cimv_tbl(k));
10479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10480: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10483: END IF;
10484: ln_add_cle_id := x_clev_tbl(i).cle_id;
10485: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10486: -- Assume that there will be one to one for item and add on line
10492: ELSE
10493: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) OR
10494: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10495: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10496: OKL_API.set_message(p_app_name => G_APP_NAME,
10497: p_msg_name => G_CNT_REC);
10498: RAISE OKL_API.G_EXCEPTION_ERROR;
10499: END IF;
10500: j := p_klev_tbl.FIRST;
10494: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10495: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10496: OKL_API.set_message(p_app_name => G_APP_NAME,
10497: p_msg_name => G_CNT_REC);
10498: RAISE OKL_API.G_EXCEPTION_ERROR;
10499: END IF;
10500: j := p_klev_tbl.FIRST;
10501: l_clev_tbl := p_clev_tbl;
10502: LOOP
10501: l_clev_tbl := p_clev_tbl;
10502: LOOP
10503: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10504: x_lse_id => l_clev_tbl(i).lse_id);
10505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10509: END IF;
10502: LOOP
10503: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10504: x_lse_id => l_clev_tbl(i).lse_id);
10505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10509: END IF;
10510: create_addon_line_rec(p_api_version => p_api_version,
10503: x_return_status := get_lse_id(p_lty_code => G_ADDON_LINE_LTY_CODE,
10504: x_lse_id => l_clev_tbl(i).lse_id);
10505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10509: END IF;
10510: create_addon_line_rec(p_api_version => p_api_version,
10511: p_init_msg_list => p_init_msg_list,
10504: x_lse_id => l_clev_tbl(i).lse_id);
10505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10508: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10509: END IF;
10510: create_addon_line_rec(p_api_version => p_api_version,
10511: p_init_msg_list => p_init_msg_list,
10512: x_return_status => x_return_status,
10519: p_cimv_rec => p_cimv_tbl(k),
10520: x_clev_rec => x_clev_tbl(i),
10521: x_klev_rec => x_klev_tbl(j),
10522: x_cimv_rec => x_cimv_tbl(k));
10523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10527: END IF;
10520: x_clev_rec => x_clev_tbl(i),
10521: x_klev_rec => x_klev_tbl(j),
10522: x_cimv_rec => x_cimv_tbl(k));
10523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10527: END IF;
10528: ln_add_cle_id := x_clev_tbl(i).cle_id;
10521: x_klev_rec => x_klev_tbl(j),
10522: x_cimv_rec => x_cimv_tbl(k));
10523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10527: END IF;
10528: ln_add_cle_id := x_clev_tbl(i).cle_id;
10529: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10522: x_cimv_rec => x_cimv_tbl(k));
10523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10527: END IF;
10528: ln_add_cle_id := x_clev_tbl(i).cle_id;
10529: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10530: -- Assume that there will be one to one for item and add on line
10533: j := p_klev_tbl.NEXT(j);
10534: k := p_cimv_tbl.NEXT(K);
10535: END LOOP;
10536: END IF;
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10534: k := p_cimv_tbl.NEXT(K);
10535: END LOOP;
10536: END IF;
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10535: END LOOP;
10536: END IF;
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10543: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10536: END IF;
10537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10540: RAISE OKL_API.G_EXCEPTION_ERROR;
10541: END IF;
10542:
10543: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10544: p_dnz_chr_id => ln_add_dnz_chr_id);
10544: p_dnz_chr_id => ln_add_dnz_chr_id);
10545: FETCH c_model_top_line INTO ln_top_line_id;
10546:
10547: IF c_model_top_line%NOTFOUND THEN
10548: OKL_API.set_message(p_app_name => G_APP_NAME,
10549: p_msg_name => G_NO_MATCHING_RECORD,
10550: p_token1 => G_COL_NAME_TOKEN,
10551: p_token1_value => 'cle_id');
10552: RAISE G_EXCEPTION_HALT_VALIDATION;
10567: p_dnz_chr_id => ln_add_dnz_chr_id,
10568: x_fin_clev_rec => x_fin_clev_rec,
10569: x_fin_klev_rec => x_fin_klev_rec,
10570: x_oec => ln_klev_fin_oec,
10571: p_validate_fin_line => OKL_API.G_TRUE);
10572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10568: x_fin_clev_rec => x_fin_clev_rec,
10569: x_fin_klev_rec => x_fin_klev_rec,
10570: x_oec => ln_klev_fin_oec,
10571: p_validate_fin_line => OKL_API.G_TRUE);
10572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10576: END IF;
10569: x_fin_klev_rec => x_fin_klev_rec,
10570: x_oec => ln_klev_fin_oec,
10571: p_validate_fin_line => OKL_API.G_TRUE);
10572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10576: END IF;
10577: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10570: x_oec => ln_klev_fin_oec,
10571: p_validate_fin_line => OKL_API.G_TRUE);
10572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10576: END IF;
10577: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10578: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10571: p_validate_fin_line => OKL_API.G_TRUE);
10572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10576: END IF;
10577: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10578: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10579: p_init_msg_list => p_init_msg_list,
10587: p_dnz_chr_id => ln_add_dnz_chr_id,
10588: x_fin_clev_rec => x_fin_clev_rec,
10589: x_fin_klev_rec => x_fin_klev_rec,
10590: x_cap_amt => ln_klev_fin_cap,
10591: p_validate_fin_line => OKL_API.G_TRUE);
10592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10588: x_fin_clev_rec => x_fin_clev_rec,
10589: x_fin_klev_rec => x_fin_klev_rec,
10590: x_cap_amt => ln_klev_fin_cap,
10591: p_validate_fin_line => OKL_API.G_TRUE);
10592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10596: END IF;
10589: x_fin_klev_rec => x_fin_klev_rec,
10590: x_cap_amt => ln_klev_fin_cap,
10591: p_validate_fin_line => OKL_API.G_TRUE);
10592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10596: END IF;
10597: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10590: x_cap_amt => ln_klev_fin_cap,
10591: p_validate_fin_line => OKL_API.G_TRUE);
10592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10596: END IF;
10597: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10598: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10591: p_validate_fin_line => OKL_API.G_TRUE);
10592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10596: END IF;
10597: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10598: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10599: p_init_msg_list => p_init_msg_list,
10607: p_dnz_chr_id => ln_add_dnz_chr_id,
10608: x_fin_clev_rec => x_fin_clev_rec,
10609: x_fin_klev_rec => x_fin_klev_rec,
10610: x_res_value => ln_klev_fin_res,
10611: p_validate_fin_line => OKL_API.G_TRUE);
10612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10615: RAISE OKL_API.G_EXCEPTION_ERROR;
10608: x_fin_clev_rec => x_fin_clev_rec,
10609: x_fin_klev_rec => x_fin_klev_rec,
10610: x_res_value => ln_klev_fin_res,
10611: p_validate_fin_line => OKL_API.G_TRUE);
10612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10615: RAISE OKL_API.G_EXCEPTION_ERROR;
10616: END IF;
10609: x_fin_klev_rec => x_fin_klev_rec,
10610: x_res_value => ln_klev_fin_res,
10611: p_validate_fin_line => OKL_API.G_TRUE);
10612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10615: RAISE OKL_API.G_EXCEPTION_ERROR;
10616: END IF;
10617:
10610: x_res_value => ln_klev_fin_res,
10611: p_validate_fin_line => OKL_API.G_TRUE);
10612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10615: RAISE OKL_API.G_EXCEPTION_ERROR;
10616: END IF;
10617:
10618: --Bug# 5530990
10611: p_validate_fin_line => OKL_API.G_TRUE);
10612: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10613: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10614: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10615: RAISE OKL_API.G_EXCEPTION_ERROR;
10616: END IF;
10617:
10618: --Bug# 5530990
10619: -- Update Original Cost and Depreciation Cost in
10626: x_msg_data => x_msg_data,
10627: p_cleb_fin_id => ln_top_line_id,
10628: p_chr_id => ln_add_dnz_chr_id,
10629: p_oec => ln_klev_fin_oec);
10630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10633: RAISE OKL_API.G_EXCEPTION_ERROR;
10634: END IF;
10627: p_cleb_fin_id => ln_top_line_id,
10628: p_chr_id => ln_add_dnz_chr_id,
10629: p_oec => ln_klev_fin_oec);
10630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10633: RAISE OKL_API.G_EXCEPTION_ERROR;
10634: END IF;
10635:
10628: p_chr_id => ln_add_dnz_chr_id,
10629: p_oec => ln_klev_fin_oec);
10630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10633: RAISE OKL_API.G_EXCEPTION_ERROR;
10634: END IF;
10635:
10636: ELSE
10629: p_oec => ln_klev_fin_oec);
10630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10633: RAISE OKL_API.G_EXCEPTION_ERROR;
10634: END IF;
10635:
10636: ELSE
10637: OKL_API.set_message(p_app_name => G_APP_NAME,
10633: RAISE OKL_API.G_EXCEPTION_ERROR;
10634: END IF;
10635:
10636: ELSE
10637: OKL_API.set_message(p_app_name => G_APP_NAME,
10638: p_msg_name => G_CNT_REC);
10639: x_return_status := OKL_API.G_RET_STS_ERROR;
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10635:
10636: ELSE
10637: OKL_API.set_message(p_app_name => G_APP_NAME,
10638: p_msg_name => G_CNT_REC);
10639: x_return_status := OKL_API.G_RET_STS_ERROR;
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10636: ELSE
10637: OKL_API.set_message(p_app_name => G_APP_NAME,
10638: p_msg_name => G_CNT_REC);
10639: x_return_status := OKL_API.G_RET_STS_ERROR;
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10638: p_msg_name => G_CNT_REC);
10639: x_return_status := OKL_API.G_RET_STS_ERROR;
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10639: x_return_status := OKL_API.G_RET_STS_ERROR;
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647: OKL_API.END_ACTIVITY (x_msg_count,
10640: RAISE OKL_API.G_EXCEPTION_ERROR;
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647: OKL_API.END_ACTIVITY (x_msg_count,
10648: x_msg_data );
10641: END IF;
10642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647: OKL_API.END_ACTIVITY (x_msg_count,
10648: x_msg_data );
10649: EXCEPTION
10643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10645: RAISE OKL_API.G_EXCEPTION_ERROR;
10646: END IF;
10647: OKL_API.END_ACTIVITY (x_msg_count,
10648: x_msg_data );
10649: EXCEPTION
10650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10646: END IF;
10647: OKL_API.END_ACTIVITY (x_msg_count,
10648: x_msg_data );
10649: EXCEPTION
10650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10652: l_api_name,
10653: G_PKG_NAME,
10654: 'OKL_API.G_RET_STS_ERROR',
10647: OKL_API.END_ACTIVITY (x_msg_count,
10648: x_msg_data );
10649: EXCEPTION
10650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10652: l_api_name,
10653: G_PKG_NAME,
10654: 'OKL_API.G_RET_STS_ERROR',
10655: x_msg_count,
10650: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10651: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10652: l_api_name,
10653: G_PKG_NAME,
10654: 'OKL_API.G_RET_STS_ERROR',
10655: x_msg_count,
10656: x_msg_data,
10657: '_PVT');
10658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10654: 'OKL_API.G_RET_STS_ERROR',
10655: x_msg_count,
10656: x_msg_data,
10657: '_PVT');
10658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10660: l_api_name,
10661: G_PKG_NAME,
10662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10655: x_msg_count,
10656: x_msg_data,
10657: '_PVT');
10658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10660: l_api_name,
10661: G_PKG_NAME,
10662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10663: x_msg_count,
10658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10659: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10660: l_api_name,
10661: G_PKG_NAME,
10662: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10663: x_msg_count,
10664: x_msg_data,
10665: '_PVT');
10666: WHEN OTHERS THEN
10663: x_msg_count,
10664: x_msg_data,
10665: '_PVT');
10666: WHEN OTHERS THEN
10667: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10668: l_api_name,
10669: G_PKG_NAME,
10670: 'OTHERS',
10671: x_msg_count,
10716: AND cle.dnz_chr_id = p_dnz_chr_id
10717: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10718:
10719: BEGIN
10720: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10721: -- Call start_activity to create savepoint, check compatibility
10722: -- and initialize message list
10723: x_return_status := OKL_API.START_ACTIVITY (
10724: l_api_name
10719: BEGIN
10720: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10721: -- Call start_activity to create savepoint, check compatibility
10722: -- and initialize message list
10723: x_return_status := OKL_API.START_ACTIVITY (
10724: l_api_name
10725: ,p_init_msg_list
10726: ,'_PVT'
10727: ,x_return_status);
10725: ,p_init_msg_list
10726: ,'_PVT'
10727: ,x_return_status);
10728: -- Check if activity started successfully
10729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10732: RAISE OKL_API.G_EXCEPTION_ERROR;
10733: END IF;
10726: ,'_PVT'
10727: ,x_return_status);
10728: -- Check if activity started successfully
10729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10732: RAISE OKL_API.G_EXCEPTION_ERROR;
10733: END IF;
10734: OKL_API.init_msg_list(p_init_msg_list);
10727: ,x_return_status);
10728: -- Check if activity started successfully
10729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10732: RAISE OKL_API.G_EXCEPTION_ERROR;
10733: END IF;
10734: OKL_API.init_msg_list(p_init_msg_list);
10735: -- Make sure PL/SQL table has records in it before passing
10728: -- Check if activity started successfully
10729: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10732: RAISE OKL_API.G_EXCEPTION_ERROR;
10733: END IF;
10734: OKL_API.init_msg_list(p_init_msg_list);
10735: -- Make sure PL/SQL table has records in it before passing
10736: IF (p_clev_tbl.COUNT > 0) AND
10730: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10731: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10732: RAISE OKL_API.G_EXCEPTION_ERROR;
10733: END IF;
10734: OKL_API.init_msg_list(p_init_msg_list);
10735: -- Make sure PL/SQL table has records in it before passing
10736: IF (p_clev_tbl.COUNT > 0) AND
10737: (p_klev_tbl.COUNT > 0) AND
10738: (p_cimv_tbl.COUNT > 0)THEN
10738: (p_cimv_tbl.COUNT > 0)THEN
10739: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) OR
10740: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10741: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10742: OKL_API.set_message(p_app_name => G_APP_NAME,
10743: p_msg_name => G_CNT_REC);
10744: RAISE OKL_API.G_EXCEPTION_ERROR;
10745: END IF;
10746: i := p_clev_tbl.FIRST;
10740: (p_clev_tbl.COUNT <> p_cimv_tbl.COUNT) OR
10741: (p_klev_tbl.COUNT <> p_cimv_tbl.COUNT) THEN
10742: OKL_API.set_message(p_app_name => G_APP_NAME,
10743: p_msg_name => G_CNT_REC);
10744: RAISE OKL_API.G_EXCEPTION_ERROR;
10745: END IF;
10746: i := p_clev_tbl.FIRST;
10747: j := p_klev_tbl.FIRST;
10748: k := p_cimv_tbl.FIRST;
10760: p_cimv_rec => p_cimv_tbl(k),
10761: x_clev_rec => x_clev_tbl(i),
10762: x_klev_rec => x_klev_tbl(j),
10763: x_cimv_rec => x_cimv_tbl(k));
10764: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10767: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10768: RAISE OKL_API.G_EXCEPTION_ERROR;
10761: x_clev_rec => x_clev_tbl(i),
10762: x_klev_rec => x_klev_tbl(j),
10763: x_cimv_rec => x_cimv_tbl(k));
10764: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10767: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10768: RAISE OKL_API.G_EXCEPTION_ERROR;
10769: END IF;
10762: x_klev_rec => x_klev_tbl(j),
10763: x_cimv_rec => x_cimv_tbl(k));
10764: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10767: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10768: RAISE OKL_API.G_EXCEPTION_ERROR;
10769: END IF;
10770: ln_add_cle_id := x_clev_tbl(i).cle_id;
10763: x_cimv_rec => x_cimv_tbl(k));
10764: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10767: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10768: RAISE OKL_API.G_EXCEPTION_ERROR;
10769: END IF;
10770: ln_add_cle_id := x_clev_tbl(i).cle_id;
10771: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10764: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10766: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10767: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10768: RAISE OKL_API.G_EXCEPTION_ERROR;
10769: END IF;
10770: ln_add_cle_id := x_clev_tbl(i).cle_id;
10771: ln_add_dnz_chr_id := x_clev_tbl(i).dnz_chr_id;
10772: -- Assume that there will be one to one for item and add on line
10775: j := p_klev_tbl.NEXT(j);
10776: k := p_clev_tbl.NEXT(k);
10777: END LOOP;
10778: ELSE
10779: OKL_API.set_message(p_app_name => G_APP_NAME,
10780: p_msg_name => G_CNT_REC);
10781: x_return_status := OKL_API.G_RET_STS_ERROR;
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10777: END LOOP;
10778: ELSE
10779: OKL_API.set_message(p_app_name => G_APP_NAME,
10780: p_msg_name => G_CNT_REC);
10781: x_return_status := OKL_API.G_RET_STS_ERROR;
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10778: ELSE
10779: OKL_API.set_message(p_app_name => G_APP_NAME,
10780: p_msg_name => G_CNT_REC);
10781: x_return_status := OKL_API.G_RET_STS_ERROR;
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10780: p_msg_name => G_CNT_REC);
10781: x_return_status := OKL_API.G_RET_STS_ERROR;
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10787: RAISE OKL_API.G_EXCEPTION_ERROR;
10788: END IF;
10781: x_return_status := OKL_API.G_RET_STS_ERROR;
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10787: RAISE OKL_API.G_EXCEPTION_ERROR;
10788: END IF;
10789:
10782: RAISE OKL_API.G_EXCEPTION_ERROR;
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10787: RAISE OKL_API.G_EXCEPTION_ERROR;
10788: END IF;
10789:
10790: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10783: END IF;
10784: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10785: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10786: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10787: RAISE OKL_API.G_EXCEPTION_ERROR;
10788: END IF;
10789:
10790: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
10791: p_dnz_chr_id => ln_add_dnz_chr_id);
10791: p_dnz_chr_id => ln_add_dnz_chr_id);
10792: FETCH c_model_top_line INTO ln_top_line_id;
10793:
10794: IF c_model_top_line%NOTFOUND THEN
10795: OKL_API.set_message(p_app_name => G_APP_NAME,
10796: p_msg_name => G_NO_MATCHING_RECORD,
10797: p_token1 => G_COL_NAME_TOKEN,
10798: p_token1_value => 'cle_id');
10799: RAISE G_EXCEPTION_HALT_VALIDATION;
10814: p_dnz_chr_id => ln_add_dnz_chr_id,
10815: x_fin_clev_rec => x_fin_clev_rec,
10816: x_fin_klev_rec => x_fin_klev_rec,
10817: x_oec => ln_klev_fin_oec,
10818: p_validate_fin_line => OKL_API.G_TRUE);
10819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10815: x_fin_clev_rec => x_fin_clev_rec,
10816: x_fin_klev_rec => x_fin_klev_rec,
10817: x_oec => ln_klev_fin_oec,
10818: p_validate_fin_line => OKL_API.G_TRUE);
10819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10823: END IF;
10816: x_fin_klev_rec => x_fin_klev_rec,
10817: x_oec => ln_klev_fin_oec,
10818: p_validate_fin_line => OKL_API.G_TRUE);
10819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10823: END IF;
10824: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10817: x_oec => ln_klev_fin_oec,
10818: p_validate_fin_line => OKL_API.G_TRUE);
10819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10823: END IF;
10824: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10825: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10818: p_validate_fin_line => OKL_API.G_TRUE);
10819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10823: END IF;
10824: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10825: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10826: p_init_msg_list => p_init_msg_list,
10834: p_dnz_chr_id => ln_add_dnz_chr_id,
10835: x_fin_clev_rec => x_fin_clev_rec,
10836: x_fin_klev_rec => x_fin_klev_rec,
10837: x_cap_amt => ln_klev_fin_cap,
10838: p_validate_fin_line => OKL_API.G_TRUE);
10839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10835: x_fin_clev_rec => x_fin_clev_rec,
10836: x_fin_klev_rec => x_fin_klev_rec,
10837: x_cap_amt => ln_klev_fin_cap,
10838: p_validate_fin_line => OKL_API.G_TRUE);
10839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10843: END IF;
10836: x_fin_klev_rec => x_fin_klev_rec,
10837: x_cap_amt => ln_klev_fin_cap,
10838: p_validate_fin_line => OKL_API.G_TRUE);
10839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10843: END IF;
10844: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10837: x_cap_amt => ln_klev_fin_cap,
10838: p_validate_fin_line => OKL_API.G_TRUE);
10839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10843: END IF;
10844: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10845: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10838: p_validate_fin_line => OKL_API.G_TRUE);
10839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10843: END IF;
10844: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10845: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10846: p_init_msg_list => p_init_msg_list,
10854: p_dnz_chr_id => ln_add_dnz_chr_id,
10855: x_fin_clev_rec => x_fin_clev_rec,
10856: x_fin_klev_rec => x_fin_klev_rec,
10857: x_res_value => ln_klev_fin_res,
10858: p_validate_fin_line => OKL_API.G_TRUE);
10859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10862: RAISE OKL_API.G_EXCEPTION_ERROR;
10855: x_fin_clev_rec => x_fin_clev_rec,
10856: x_fin_klev_rec => x_fin_klev_rec,
10857: x_res_value => ln_klev_fin_res,
10858: p_validate_fin_line => OKL_API.G_TRUE);
10859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10862: RAISE OKL_API.G_EXCEPTION_ERROR;
10863: END IF;
10856: x_fin_klev_rec => x_fin_klev_rec,
10857: x_res_value => ln_klev_fin_res,
10858: p_validate_fin_line => OKL_API.G_TRUE);
10859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10862: RAISE OKL_API.G_EXCEPTION_ERROR;
10863: END IF;
10864:
10857: x_res_value => ln_klev_fin_res,
10858: p_validate_fin_line => OKL_API.G_TRUE);
10859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10862: RAISE OKL_API.G_EXCEPTION_ERROR;
10863: END IF;
10864:
10865: --Bug# 5530990
10858: p_validate_fin_line => OKL_API.G_TRUE);
10859: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10861: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10862: RAISE OKL_API.G_EXCEPTION_ERROR;
10863: END IF;
10864:
10865: --Bug# 5530990
10866: -- Update Original Cost and Depreciation Cost in
10873: x_msg_data => x_msg_data,
10874: p_cleb_fin_id => ln_top_line_id,
10875: p_chr_id => ln_add_dnz_chr_id,
10876: p_oec => ln_klev_fin_oec);
10877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10880: RAISE OKL_API.G_EXCEPTION_ERROR;
10881: END IF;
10874: p_cleb_fin_id => ln_top_line_id,
10875: p_chr_id => ln_add_dnz_chr_id,
10876: p_oec => ln_klev_fin_oec);
10877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10880: RAISE OKL_API.G_EXCEPTION_ERROR;
10881: END IF;
10882:
10875: p_chr_id => ln_add_dnz_chr_id,
10876: p_oec => ln_klev_fin_oec);
10877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10880: RAISE OKL_API.G_EXCEPTION_ERROR;
10881: END IF;
10882:
10883: -- We need to change the status of the header whenever there is updating happening
10876: p_oec => ln_klev_fin_oec);
10877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10880: RAISE OKL_API.G_EXCEPTION_ERROR;
10881: END IF;
10882:
10883: -- We need to change the status of the header whenever there is updating happening
10884: -- after the contract status is approved
10882:
10883: -- We need to change the status of the header whenever there is updating happening
10884: -- after the contract status is approved
10885: IF (x_fin_clev_rec.dnz_chr_id is NOT NULL) AND
10886: (x_fin_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
10887: --cascade edit status on to lines
10888: okl_contract_status_pub.cascade_lease_status_edit
10889: (p_api_version => p_api_version,
10890: p_init_msg_list => p_init_msg_list,
10891: x_return_status => x_return_status,
10892: x_msg_count => x_msg_count,
10893: x_msg_data => x_msg_data,
10894: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10898: RAISE OKL_API.G_EXCEPTION_ERROR;
10899: END IF;
10892: x_msg_count => x_msg_count,
10893: x_msg_data => x_msg_data,
10894: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10898: RAISE OKL_API.G_EXCEPTION_ERROR;
10899: END IF;
10900: END IF;
10893: x_msg_data => x_msg_data,
10894: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10898: RAISE OKL_API.G_EXCEPTION_ERROR;
10899: END IF;
10900: END IF;
10901: OKL_API.END_ACTIVITY (x_msg_count,
10894: p_chr_id => x_fin_clev_rec.dnz_chr_id);
10895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10898: RAISE OKL_API.G_EXCEPTION_ERROR;
10899: END IF;
10900: END IF;
10901: OKL_API.END_ACTIVITY (x_msg_count,
10902: x_msg_data );
10897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10898: RAISE OKL_API.G_EXCEPTION_ERROR;
10899: END IF;
10900: END IF;
10901: OKL_API.END_ACTIVITY (x_msg_count,
10902: x_msg_data );
10903: EXCEPTION
10904: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10900: END IF;
10901: OKL_API.END_ACTIVITY (x_msg_count,
10902: x_msg_data );
10903: EXCEPTION
10904: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10906: l_api_name,
10907: G_PKG_NAME,
10908: 'OKL_API.G_RET_STS_ERROR',
10901: OKL_API.END_ACTIVITY (x_msg_count,
10902: x_msg_data );
10903: EXCEPTION
10904: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10906: l_api_name,
10907: G_PKG_NAME,
10908: 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count,
10904: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10906: l_api_name,
10907: G_PKG_NAME,
10908: 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count,
10910: x_msg_data,
10911: '_PVT');
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10908: 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count,
10910: x_msg_data,
10911: '_PVT');
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10913: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10914: l_api_name,
10915: G_PKG_NAME,
10916: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10909: x_msg_count,
10910: x_msg_data,
10911: '_PVT');
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10913: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10914: l_api_name,
10915: G_PKG_NAME,
10916: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10917: x_msg_count,
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10913: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10914: l_api_name,
10915: G_PKG_NAME,
10916: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10917: x_msg_count,
10918: x_msg_data,
10919: '_PVT');
10920: WHEN OTHERS THEN
10917: x_msg_count,
10918: x_msg_data,
10919: '_PVT');
10920: WHEN OTHERS THEN
10921: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10922: l_api_name,
10923: G_PKG_NAME,
10924: 'OTHERS',
10925: x_msg_count,
10963: AND cle.dnz_chr_id = p_dnz_chr_id
10964: AND cle.lse_id = G_MODEL_LINE_LTY_ID;
10965:
10966: BEGIN
10967: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10968: -- Call start_activity to create savepoint, check compatibility
10969: -- and initialize message list
10970: x_return_status := OKL_API.START_ACTIVITY (
10971: l_api_name
10966: BEGIN
10967: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10968: -- Call start_activity to create savepoint, check compatibility
10969: -- and initialize message list
10970: x_return_status := OKL_API.START_ACTIVITY (
10971: l_api_name
10972: ,p_init_msg_list
10973: ,'_PVT'
10974: ,x_return_status);
10972: ,p_init_msg_list
10973: ,'_PVT'
10974: ,x_return_status);
10975: -- Check if activity started successfully
10976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10979: RAISE OKL_API.G_EXCEPTION_ERROR;
10980: END IF;
10973: ,'_PVT'
10974: ,x_return_status);
10975: -- Check if activity started successfully
10976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10979: RAISE OKL_API.G_EXCEPTION_ERROR;
10980: END IF;
10981: OKL_API.init_msg_list(p_init_msg_list);
10974: ,x_return_status);
10975: -- Check if activity started successfully
10976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10979: RAISE OKL_API.G_EXCEPTION_ERROR;
10980: END IF;
10981: OKL_API.init_msg_list(p_init_msg_list);
10982: -- Make sure PL/SQL table has records in it before passing
10975: -- Check if activity started successfully
10976: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10979: RAISE OKL_API.G_EXCEPTION_ERROR;
10980: END IF;
10981: OKL_API.init_msg_list(p_init_msg_list);
10982: -- Make sure PL/SQL table has records in it before passing
10983: IF (p_clev_tbl.COUNT > 0) AND
10977: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10978: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10979: RAISE OKL_API.G_EXCEPTION_ERROR;
10980: END IF;
10981: OKL_API.init_msg_list(p_init_msg_list);
10982: -- Make sure PL/SQL table has records in it before passing
10983: IF (p_clev_tbl.COUNT > 0) AND
10984: (p_klev_tbl.COUNT > 0) THEN
10985: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10982: -- Make sure PL/SQL table has records in it before passing
10983: IF (p_clev_tbl.COUNT > 0) AND
10984: (p_klev_tbl.COUNT > 0) THEN
10985: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10986: OKL_API.set_message(p_app_name => G_APP_NAME,
10987: p_msg_name => G_CNT_REC);
10988: RAISE OKL_API.G_EXCEPTION_ERROR;
10989: END IF;
10990: i := p_clev_tbl.FIRST;
10984: (p_klev_tbl.COUNT > 0) THEN
10985: IF (p_clev_tbl.COUNT <> p_klev_tbl.COUNT) THEN
10986: OKL_API.set_message(p_app_name => G_APP_NAME,
10987: p_msg_name => G_CNT_REC);
10988: RAISE OKL_API.G_EXCEPTION_ERROR;
10989: END IF;
10990: i := p_clev_tbl.FIRST;
10991: j := p_klev_tbl.FIRST;
10992: LOOP
10997: x_msg_data => x_msg_data,
10998: p_clev_rec => p_clev_tbl(i),
10999: p_klev_rec => p_klev_tbl(j),
11000: x_clev_rec => l_clev_tbl(i));
11001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11002: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
11003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11004: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
11005: END IF;
10998: p_clev_rec => p_clev_tbl(i),
10999: p_klev_rec => p_klev_tbl(j),
11000: x_clev_rec => l_clev_tbl(i));
11001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11002: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
11003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11004: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
11005: END IF;
11006: ln_add_cle_id := l_clev_tbl(i).cle_id;
10999: p_klev_rec => p_klev_tbl(j),
11000: x_clev_rec => l_clev_tbl(i));
11001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11002: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
11003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11004: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
11005: END IF;
11006: ln_add_cle_id := l_clev_tbl(i).cle_id;
11007: ln_add_dnz_chr_id := l_clev_tbl(i).dnz_chr_id;
11000: x_clev_rec => l_clev_tbl(i));
11001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11002: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
11003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11004: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
11005: END IF;
11006: ln_add_cle_id := l_clev_tbl(i).cle_id;
11007: ln_add_dnz_chr_id := l_clev_tbl(i).dnz_chr_id;
11008: -- Assume that there will be one to one for item and add on line
11010: i := p_clev_tbl.NEXT(i);
11011: j := p_klev_tbl.NEXT(j);
11012: END LOOP;
11013: ELSE
11014: OKL_API.set_message(p_app_name => G_APP_NAME,
11015: p_msg_name => G_CNT_REC);
11016: x_return_status := OKL_API.G_RET_STS_ERROR;
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11012: END LOOP;
11013: ELSE
11014: OKL_API.set_message(p_app_name => G_APP_NAME,
11015: p_msg_name => G_CNT_REC);
11016: x_return_status := OKL_API.G_RET_STS_ERROR;
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11013: ELSE
11014: OKL_API.set_message(p_app_name => G_APP_NAME,
11015: p_msg_name => G_CNT_REC);
11016: x_return_status := OKL_API.G_RET_STS_ERROR;
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11015: p_msg_name => G_CNT_REC);
11016: x_return_status := OKL_API.G_RET_STS_ERROR;
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11022: RAISE OKL_API.G_EXCEPTION_ERROR;
11023: END IF;
11016: x_return_status := OKL_API.G_RET_STS_ERROR;
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11022: RAISE OKL_API.G_EXCEPTION_ERROR;
11023: END IF;
11024:
11017: RAISE OKL_API.G_EXCEPTION_ERROR;
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11022: RAISE OKL_API.G_EXCEPTION_ERROR;
11023: END IF;
11024:
11025: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
11018: END IF;
11019: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11021: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11022: RAISE OKL_API.G_EXCEPTION_ERROR;
11023: END IF;
11024:
11025: OPEN c_model_top_line(p_model_line_id => ln_add_cle_id,
11026: p_dnz_chr_id => ln_add_dnz_chr_id);
11026: p_dnz_chr_id => ln_add_dnz_chr_id);
11027: FETCH c_model_top_line INTO ln_top_line_id;
11028:
11029: IF c_model_top_line%NOTFOUND THEN
11030: OKL_API.set_message(p_app_name => G_APP_NAME,
11031: p_msg_name => G_NO_MATCHING_RECORD,
11032: p_token1 => G_COL_NAME_TOKEN,
11033: p_token1_value => 'cle_id');
11034: RAISE G_EXCEPTION_HALT_VALIDATION;
11049: p_dnz_chr_id => ln_add_dnz_chr_id,
11050: x_fin_clev_rec => x_fin_clev_rec,
11051: x_fin_klev_rec => x_fin_klev_rec,
11052: x_oec => ln_klev_fin_oec,
11053: p_validate_fin_line => OKL_API.G_TRUE);
11054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11050: x_fin_clev_rec => x_fin_clev_rec,
11051: x_fin_klev_rec => x_fin_klev_rec,
11052: x_oec => ln_klev_fin_oec,
11053: p_validate_fin_line => OKL_API.G_TRUE);
11054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11058: END IF;
11051: x_fin_klev_rec => x_fin_klev_rec,
11052: x_oec => ln_klev_fin_oec,
11053: p_validate_fin_line => OKL_API.G_TRUE);
11054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11058: END IF;
11059: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
11052: x_oec => ln_klev_fin_oec,
11053: p_validate_fin_line => OKL_API.G_TRUE);
11054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11058: END IF;
11059: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
11060: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
11053: p_validate_fin_line => OKL_API.G_TRUE);
11054: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11058: END IF;
11059: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
11060: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
11061: p_init_msg_list => p_init_msg_list,
11069: p_dnz_chr_id => ln_add_dnz_chr_id,
11070: x_fin_clev_rec => x_fin_clev_rec,
11071: x_fin_klev_rec => x_fin_klev_rec,
11072: x_cap_amt => ln_klev_fin_cap,
11073: p_validate_fin_line => OKL_API.G_TRUE);
11074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11070: x_fin_clev_rec => x_fin_clev_rec,
11071: x_fin_klev_rec => x_fin_klev_rec,
11072: x_cap_amt => ln_klev_fin_cap,
11073: p_validate_fin_line => OKL_API.G_TRUE);
11074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11078: END IF;
11071: x_fin_klev_rec => x_fin_klev_rec,
11072: x_cap_amt => ln_klev_fin_cap,
11073: p_validate_fin_line => OKL_API.G_TRUE);
11074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11078: END IF;
11079: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
11072: x_cap_amt => ln_klev_fin_cap,
11073: p_validate_fin_line => OKL_API.G_TRUE);
11074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11078: END IF;
11079: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
11080: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
11073: p_validate_fin_line => OKL_API.G_TRUE);
11074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11078: END IF;
11079: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
11080: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
11081: p_init_msg_list => p_init_msg_list,
11089: p_dnz_chr_id => ln_add_dnz_chr_id,
11090: x_fin_clev_rec => x_fin_clev_rec,
11091: x_fin_klev_rec => x_fin_klev_rec,
11092: x_res_value => ln_klev_fin_res,
11093: p_validate_fin_line => OKL_API.G_TRUE);
11094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11097: RAISE OKL_API.G_EXCEPTION_ERROR;
11090: x_fin_clev_rec => x_fin_clev_rec,
11091: x_fin_klev_rec => x_fin_klev_rec,
11092: x_res_value => ln_klev_fin_res,
11093: p_validate_fin_line => OKL_API.G_TRUE);
11094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11097: RAISE OKL_API.G_EXCEPTION_ERROR;
11098: END IF;
11091: x_fin_klev_rec => x_fin_klev_rec,
11092: x_res_value => ln_klev_fin_res,
11093: p_validate_fin_line => OKL_API.G_TRUE);
11094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11097: RAISE OKL_API.G_EXCEPTION_ERROR;
11098: END IF;
11099:
11092: x_res_value => ln_klev_fin_res,
11093: p_validate_fin_line => OKL_API.G_TRUE);
11094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11097: RAISE OKL_API.G_EXCEPTION_ERROR;
11098: END IF;
11099:
11100: --Bug# 5530990
11093: p_validate_fin_line => OKL_API.G_TRUE);
11094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11097: RAISE OKL_API.G_EXCEPTION_ERROR;
11098: END IF;
11099:
11100: --Bug# 5530990
11101: -- Update Original Cost and Depreciation Cost in
11108: x_msg_data => x_msg_data,
11109: p_cleb_fin_id => ln_top_line_id,
11110: p_chr_id => ln_add_dnz_chr_id,
11111: p_oec => ln_klev_fin_oec);
11112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11114: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11115: RAISE OKL_API.G_EXCEPTION_ERROR;
11116: END IF;
11109: p_cleb_fin_id => ln_top_line_id,
11110: p_chr_id => ln_add_dnz_chr_id,
11111: p_oec => ln_klev_fin_oec);
11112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11114: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11115: RAISE OKL_API.G_EXCEPTION_ERROR;
11116: END IF;
11117:
11110: p_chr_id => ln_add_dnz_chr_id,
11111: p_oec => ln_klev_fin_oec);
11112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11114: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11115: RAISE OKL_API.G_EXCEPTION_ERROR;
11116: END IF;
11117:
11118: -- We need to change the status of the header whenever there is updating happening
11111: p_oec => ln_klev_fin_oec);
11112: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11113: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11114: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11115: RAISE OKL_API.G_EXCEPTION_ERROR;
11116: END IF;
11117:
11118: -- We need to change the status of the header whenever there is updating happening
11119: -- after the contract status is approved
11117:
11118: -- We need to change the status of the header whenever there is updating happening
11119: -- after the contract status is approved
11120: IF (x_fin_clev_rec.dnz_chr_id is NOT NULL) AND
11121: (x_fin_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
11122: --cascade edit status on to lines
11123: okl_contract_status_pub.cascade_lease_status_edit
11124: (p_api_version => p_api_version,
11125: p_init_msg_list => p_init_msg_list,
11126: x_return_status => x_return_status,
11127: x_msg_count => x_msg_count,
11128: x_msg_data => x_msg_data,
11129: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11133: RAISE OKL_API.G_EXCEPTION_ERROR;
11134: END IF;
11127: x_msg_count => x_msg_count,
11128: x_msg_data => x_msg_data,
11129: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11133: RAISE OKL_API.G_EXCEPTION_ERROR;
11134: END IF;
11135: END IF;
11128: x_msg_data => x_msg_data,
11129: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11133: RAISE OKL_API.G_EXCEPTION_ERROR;
11134: END IF;
11135: END IF;
11136: OKL_API.END_ACTIVITY (x_msg_count,
11129: p_chr_id => x_fin_clev_rec.dnz_chr_id);
11130: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11131: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11133: RAISE OKL_API.G_EXCEPTION_ERROR;
11134: END IF;
11135: END IF;
11136: OKL_API.END_ACTIVITY (x_msg_count,
11137: x_msg_data );
11132: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11133: RAISE OKL_API.G_EXCEPTION_ERROR;
11134: END IF;
11135: END IF;
11136: OKL_API.END_ACTIVITY (x_msg_count,
11137: x_msg_data );
11138: EXCEPTION
11139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11135: END IF;
11136: OKL_API.END_ACTIVITY (x_msg_count,
11137: x_msg_data );
11138: EXCEPTION
11139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11141: l_api_name,
11142: G_PKG_NAME,
11143: 'OKL_API.G_RET_STS_ERROR',
11136: OKL_API.END_ACTIVITY (x_msg_count,
11137: x_msg_data );
11138: EXCEPTION
11139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11141: l_api_name,
11142: G_PKG_NAME,
11143: 'OKL_API.G_RET_STS_ERROR',
11144: x_msg_count,
11139: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11141: l_api_name,
11142: G_PKG_NAME,
11143: 'OKL_API.G_RET_STS_ERROR',
11144: x_msg_count,
11145: x_msg_data,
11146: '_PVT');
11147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11143: 'OKL_API.G_RET_STS_ERROR',
11144: x_msg_count,
11145: x_msg_data,
11146: '_PVT');
11147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11148: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11149: l_api_name,
11150: G_PKG_NAME,
11151: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11144: x_msg_count,
11145: x_msg_data,
11146: '_PVT');
11147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11148: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11149: l_api_name,
11150: G_PKG_NAME,
11151: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11152: x_msg_count,
11147: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11148: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11149: l_api_name,
11150: G_PKG_NAME,
11151: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11152: x_msg_count,
11153: x_msg_data,
11154: '_PVT');
11155: WHEN OTHERS THEN
11152: x_msg_count,
11153: x_msg_data,
11154: '_PVT');
11155: WHEN OTHERS THEN
11156: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11157: l_api_name,
11158: G_PKG_NAME,
11159: 'OTHERS',
11160: x_msg_count,
11165: ------------------ Main Process for Instance Line Creation-------------------------------------
11166: -----------------------------------------------------------------------------------------------
11167: PROCEDURE Create_instance_line(
11168: p_api_version IN NUMBER,
11169: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11170: x_return_status OUT NOCOPY VARCHAR2,
11171: x_msg_count OUT NOCOPY NUMBER,
11172: x_msg_data OUT NOCOPY VARCHAR2,
11173: p_clev_rec IN clev_rec_type,
11178: x_itiv_rec OUT NOCOPY itiv_rec_type) IS
11179:
11180: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTANCE_LINES';
11181: l_clev_rec clev_rec_type;
11182: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
11183: -- Variables for validation of line style
11184: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11185: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11186: BEGIN
11183: -- Variables for validation of line style
11184: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11185: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11186: BEGIN
11187: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11188: -- Call start_activity to create savepoint, check compatibility
11189: -- and initialize message list
11190: x_return_status := OKL_API.START_ACTIVITY (
11191: l_api_name
11186: BEGIN
11187: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11188: -- Call start_activity to create savepoint, check compatibility
11189: -- and initialize message list
11190: x_return_status := OKL_API.START_ACTIVITY (
11191: l_api_name
11192: ,p_init_msg_list
11193: ,'_PVT'
11194: ,x_return_status);
11192: ,p_init_msg_list
11193: ,'_PVT'
11194: ,x_return_status);
11195: -- Check if activity started successfully
11196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11199: RAISE OKL_API.G_EXCEPTION_ERROR;
11200: END IF;
11193: ,'_PVT'
11194: ,x_return_status);
11195: -- Check if activity started successfully
11196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11199: RAISE OKL_API.G_EXCEPTION_ERROR;
11200: END IF;
11201: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11194: ,x_return_status);
11195: -- Check if activity started successfully
11196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11199: RAISE OKL_API.G_EXCEPTION_ERROR;
11200: END IF;
11201: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11202: /*
11195: -- Check if activity started successfully
11196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11199: RAISE OKL_API.G_EXCEPTION_ERROR;
11200: END IF;
11201: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11202: /*
11203: -- Validate Line Style id and get the line type code
11206: x_return_status => x_return_status,
11207: x_lty_code => l_lty_code,
11208: x_lse_type => l_lse_type);
11209: -- Check if activity started successfully
11210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11213: RAISE OKL_API.G_EXCEPTION_ERROR;
11214: END IF;
11207: x_lty_code => l_lty_code,
11208: x_lse_type => l_lse_type);
11209: -- Check if activity started successfully
11210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11213: RAISE OKL_API.G_EXCEPTION_ERROR;
11214: END IF;
11215: -- Validate the Dnz_Chr_id
11208: x_lse_type => l_lse_type);
11209: -- Check if activity started successfully
11210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11213: RAISE OKL_API.G_EXCEPTION_ERROR;
11214: END IF;
11215: -- Validate the Dnz_Chr_id
11216: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11209: -- Check if activity started successfully
11210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11213: RAISE OKL_API.G_EXCEPTION_ERROR;
11214: END IF;
11215: -- Validate the Dnz_Chr_id
11216: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11217: x_return_status => x_return_status);
11215: -- Validate the Dnz_Chr_id
11216: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11217: x_return_status => x_return_status);
11218: -- Check if activity started successfully
11219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11222: RAISE OKL_API.G_EXCEPTION_ERROR;
11223: END IF;
11216: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11217: x_return_status => x_return_status);
11218: -- Check if activity started successfully
11219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11222: RAISE OKL_API.G_EXCEPTION_ERROR;
11223: END IF;
11224: */
11217: x_return_status => x_return_status);
11218: -- Check if activity started successfully
11219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11222: RAISE OKL_API.G_EXCEPTION_ERROR;
11223: END IF;
11224: */
11225: -- Now we are going to create the instance Line
11218: -- Check if activity started successfully
11219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11222: RAISE OKL_API.G_EXCEPTION_ERROR;
11223: END IF;
11224: */
11225: -- Now we are going to create the instance Line
11226: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11226: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11227: -- The Record Should have the cle_id
11228: -- if the given line style is instance Line
11229: l_clev_rec := p_clev_rec;
11230: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11231: l_clev_rec.chr_id IS NULL) AND
11232: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11233: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11234: (l_clev_rec.cle_id IS NOT NULL OR
11229: l_clev_rec := p_clev_rec;
11230: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11231: l_clev_rec.chr_id IS NULL) AND
11232: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11233: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11234: (l_clev_rec.cle_id IS NOT NULL OR
11235: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11236: -- #4414408
11237: -- l_lty_code = G_INST_LINE_LTY_CODE AND
11231: l_clev_rec.chr_id IS NULL) AND
11232: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11233: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11234: (l_clev_rec.cle_id IS NOT NULL OR
11235: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11236: -- #4414408
11237: -- l_lty_code = G_INST_LINE_LTY_CODE AND
11238: -- l_lse_type = G_SLS_TYPE THEN
11239: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11238: -- l_lse_type = G_SLS_TYPE THEN
11239: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11240: validate_instance_number_ib(x_return_status => x_return_status,
11241: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11239: l_clev_rec.lse_id = G_INST_LINE_LTY_ID THEN
11240: validate_instance_number_ib(x_return_status => x_return_status,
11241: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11247: Create_inst_line(p_api_version => p_api_version,
11240: validate_instance_number_ib(x_return_status => x_return_status,
11241: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11247: Create_inst_line(p_api_version => p_api_version,
11248: p_init_msg_list => p_init_msg_list,
11241: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11242: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11244: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11245: RAISE OKL_API.G_EXCEPTION_ERROR;
11246: END IF;
11247: Create_inst_line(p_api_version => p_api_version,
11248: p_init_msg_list => p_init_msg_list,
11249: x_return_status => x_return_status,
11253: p_clev_rec => l_clev_rec,
11254: p_klev_rec => p_klev_rec,
11255: x_clev_rec => x_clev_rec,
11256: x_klev_rec => x_klev_rec);
11257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11260: RAISE OKL_API.G_EXCEPTION_ERROR;
11261: END IF;
11254: p_klev_rec => p_klev_rec,
11255: x_clev_rec => x_clev_rec,
11256: x_klev_rec => x_klev_rec);
11257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11260: RAISE OKL_API.G_EXCEPTION_ERROR;
11261: END IF;
11262: ELSE
11255: x_clev_rec => x_clev_rec,
11256: x_klev_rec => x_klev_rec);
11257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11260: RAISE OKL_API.G_EXCEPTION_ERROR;
11261: END IF;
11262: ELSE
11263: OKL_API.set_message(p_app_name => G_APP_NAME,
11256: x_klev_rec => x_klev_rec);
11257: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11258: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11260: RAISE OKL_API.G_EXCEPTION_ERROR;
11261: END IF;
11262: ELSE
11263: OKL_API.set_message(p_app_name => G_APP_NAME,
11264: p_msg_name => G_INVALID_CRITERIA,
11259: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11260: RAISE OKL_API.G_EXCEPTION_ERROR;
11261: END IF;
11262: ELSE
11263: OKL_API.set_message(p_app_name => G_APP_NAME,
11264: p_msg_name => G_INVALID_CRITERIA,
11265: p_token1 => G_COL_NAME_TOKEN,
11266: p_token1_value => 'Instance Asset line');
11267: x_return_status := OKL_API.G_RET_STS_ERROR;
11263: OKL_API.set_message(p_app_name => G_APP_NAME,
11264: p_msg_name => G_INVALID_CRITERIA,
11265: p_token1 => G_COL_NAME_TOKEN,
11266: p_token1_value => 'Instance Asset line');
11267: x_return_status := OKL_API.G_RET_STS_ERROR;
11268: RAISE OKL_API.G_EXCEPTION_ERROR;
11269: END IF;
11270: OKL_API.END_ACTIVITY (x_msg_count,
11271: x_msg_data );
11264: p_msg_name => G_INVALID_CRITERIA,
11265: p_token1 => G_COL_NAME_TOKEN,
11266: p_token1_value => 'Instance Asset line');
11267: x_return_status := OKL_API.G_RET_STS_ERROR;
11268: RAISE OKL_API.G_EXCEPTION_ERROR;
11269: END IF;
11270: OKL_API.END_ACTIVITY (x_msg_count,
11271: x_msg_data );
11272: EXCEPTION
11266: p_token1_value => 'Instance Asset line');
11267: x_return_status := OKL_API.G_RET_STS_ERROR;
11268: RAISE OKL_API.G_EXCEPTION_ERROR;
11269: END IF;
11270: OKL_API.END_ACTIVITY (x_msg_count,
11271: x_msg_data );
11272: EXCEPTION
11273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11274: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11269: END IF;
11270: OKL_API.END_ACTIVITY (x_msg_count,
11271: x_msg_data );
11272: EXCEPTION
11273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11274: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11275: l_api_name,
11276: G_PKG_NAME,
11277: 'OKL_API.G_RET_STS_ERROR',
11270: OKL_API.END_ACTIVITY (x_msg_count,
11271: x_msg_data );
11272: EXCEPTION
11273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11274: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11275: l_api_name,
11276: G_PKG_NAME,
11277: 'OKL_API.G_RET_STS_ERROR',
11278: x_msg_count,
11273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11274: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11275: l_api_name,
11276: G_PKG_NAME,
11277: 'OKL_API.G_RET_STS_ERROR',
11278: x_msg_count,
11279: x_msg_data,
11280: '_PVT');
11281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11277: 'OKL_API.G_RET_STS_ERROR',
11278: x_msg_count,
11279: x_msg_data,
11280: '_PVT');
11281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11282: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11283: l_api_name,
11284: G_PKG_NAME,
11285: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11278: x_msg_count,
11279: x_msg_data,
11280: '_PVT');
11281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11282: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11283: l_api_name,
11284: G_PKG_NAME,
11285: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11286: x_msg_count,
11281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11282: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11283: l_api_name,
11284: G_PKG_NAME,
11285: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11286: x_msg_count,
11287: x_msg_data,
11288: '_PVT');
11289: WHEN OTHERS THEN
11286: x_msg_count,
11287: x_msg_data,
11288: '_PVT');
11289: WHEN OTHERS THEN
11290: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11291: l_api_name,
11292: G_PKG_NAME,
11293: 'OTHERS',
11294: x_msg_count,
11299: ------------------ Main Process for Updating Instance Line ------------------------------------
11300: -----------------------------------------------------------------------------------------------
11301: PROCEDURE Update_instance_line(
11302: p_api_version IN NUMBER,
11303: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11304: x_return_status OUT NOCOPY VARCHAR2,
11305: x_msg_count OUT NOCOPY NUMBER,
11306: x_msg_data OUT NOCOPY VARCHAR2,
11307: p_clev_rec IN clev_rec_type,
11316: -- Variables for validation of line style
11317: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11318: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11319: BEGIN
11320: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11321: -- Call start_activity to create savepoint, check compatibility
11322: -- and initialize message list
11323: x_return_status := OKL_API.START_ACTIVITY (
11324: l_api_name
11319: BEGIN
11320: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11321: -- Call start_activity to create savepoint, check compatibility
11322: -- and initialize message list
11323: x_return_status := OKL_API.START_ACTIVITY (
11324: l_api_name
11325: ,p_init_msg_list
11326: ,'_PVT'
11327: ,x_return_status);
11325: ,p_init_msg_list
11326: ,'_PVT'
11327: ,x_return_status);
11328: -- Check if activity started successfully
11329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11332: RAISE OKL_API.G_EXCEPTION_ERROR;
11333: END IF;
11326: ,'_PVT'
11327: ,x_return_status);
11328: -- Check if activity started successfully
11329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11332: RAISE OKL_API.G_EXCEPTION_ERROR;
11333: END IF;
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11327: ,x_return_status);
11328: -- Check if activity started successfully
11329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11332: RAISE OKL_API.G_EXCEPTION_ERROR;
11333: END IF;
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11335: x_return_status => x_return_status);
11328: -- Check if activity started successfully
11329: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11332: RAISE OKL_API.G_EXCEPTION_ERROR;
11333: END IF;
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11335: x_return_status => x_return_status);
11336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11332: RAISE OKL_API.G_EXCEPTION_ERROR;
11333: END IF;
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11335: x_return_status => x_return_status);
11336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11339: RAISE OKL_API.G_EXCEPTION_ERROR;
11340: END IF;
11333: END IF;
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11335: x_return_status => x_return_status);
11336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11339: RAISE OKL_API.G_EXCEPTION_ERROR;
11340: END IF;
11341: -- Validate Line Style id and get the line type code
11334: validate_sts_code(p_clev_rec => p_clev_rec,
11335: x_return_status => x_return_status);
11336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11339: RAISE OKL_API.G_EXCEPTION_ERROR;
11340: END IF;
11341: -- Validate Line Style id and get the line type code
11342: -- and line style type for further processing
11335: x_return_status => x_return_status);
11336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11339: RAISE OKL_API.G_EXCEPTION_ERROR;
11340: END IF;
11341: -- Validate Line Style id and get the line type code
11342: -- and line style type for further processing
11343: validate_lse_id(p_clev_rec => p_clev_rec,
11344: x_return_status => x_return_status,
11345: x_lty_code => l_lty_code,
11346: x_lse_type => l_lse_type);
11347: -- Check if activity started successfully
11348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11351: RAISE OKL_API.G_EXCEPTION_ERROR;
11352: END IF;
11345: x_lty_code => l_lty_code,
11346: x_lse_type => l_lse_type);
11347: -- Check if activity started successfully
11348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11351: RAISE OKL_API.G_EXCEPTION_ERROR;
11352: END IF;
11353: -- Validate the Dnz_Chr_id
11346: x_lse_type => l_lse_type);
11347: -- Check if activity started successfully
11348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11351: RAISE OKL_API.G_EXCEPTION_ERROR;
11352: END IF;
11353: -- Validate the Dnz_Chr_id
11354: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11347: -- Check if activity started successfully
11348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11351: RAISE OKL_API.G_EXCEPTION_ERROR;
11352: END IF;
11353: -- Validate the Dnz_Chr_id
11354: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11355: x_return_status => x_return_status);
11353: -- Validate the Dnz_Chr_id
11354: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11355: x_return_status => x_return_status);
11356: -- Check if activity started successfully
11357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11360: RAISE OKL_API.G_EXCEPTION_ERROR;
11361: END IF;
11354: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11355: x_return_status => x_return_status);
11356: -- Check if activity started successfully
11357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11360: RAISE OKL_API.G_EXCEPTION_ERROR;
11361: END IF;
11362: -- Now we are going to create the instance Line
11355: x_return_status => x_return_status);
11356: -- Check if activity started successfully
11357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11360: RAISE OKL_API.G_EXCEPTION_ERROR;
11361: END IF;
11362: -- Now we are going to create the instance Line
11363: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11356: -- Check if activity started successfully
11357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11360: RAISE OKL_API.G_EXCEPTION_ERROR;
11361: END IF;
11362: -- Now we are going to create the instance Line
11363: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11364: -- The Record Should have the cle_id
11363: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11364: -- The Record Should have the cle_id
11365: -- if the given line style is instance Line
11366: l_clev_rec := p_clev_rec;
11367: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11368: l_clev_rec.chr_id IS NULL) AND
11369: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11370: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11371: (l_clev_rec.cle_id IS NOT NULL OR
11366: l_clev_rec := p_clev_rec;
11367: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11368: l_clev_rec.chr_id IS NULL) AND
11369: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11370: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11371: (l_clev_rec.cle_id IS NOT NULL OR
11372: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11373: l_lty_code = G_INST_LINE_LTY_CODE AND
11374: l_lse_type = G_SLS_TYPE THEN
11368: l_clev_rec.chr_id IS NULL) AND
11369: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11370: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11371: (l_clev_rec.cle_id IS NOT NULL OR
11372: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11373: l_lty_code = G_INST_LINE_LTY_CODE AND
11374: l_lse_type = G_SLS_TYPE THEN
11375: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11376: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11372: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11373: l_lty_code = G_INST_LINE_LTY_CODE AND
11374: l_lse_type = G_SLS_TYPE THEN
11375: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11376: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11377: update_inst_line(p_api_version => p_api_version,
11378: p_init_msg_list => p_init_msg_list,
11379: x_return_status => x_return_status,
11380: x_msg_count => x_msg_count,
11383: p_clev_rec => p_clev_rec,
11384: p_klev_rec => p_klev_rec,
11385: x_clev_rec => x_clev_rec,
11386: x_klev_rec => x_klev_rec);
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: p_klev_rec => p_klev_rec,
11385: x_clev_rec => x_clev_rec,
11386: x_klev_rec => x_klev_rec);
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: ELSE
11385: x_clev_rec => x_clev_rec,
11386: x_klev_rec => x_klev_rec);
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: ELSE
11393: OKL_API.set_message(p_app_name => G_APP_NAME,
11386: x_klev_rec => x_klev_rec);
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: ELSE
11393: OKL_API.set_message(p_app_name => G_APP_NAME,
11394: p_msg_name => G_INVALID_CRITERIA,
11389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11390: RAISE OKL_API.G_EXCEPTION_ERROR;
11391: END IF;
11392: ELSE
11393: OKL_API.set_message(p_app_name => G_APP_NAME,
11394: p_msg_name => G_INVALID_CRITERIA,
11395: p_token1 => G_COL_NAME_TOKEN,
11396: p_token1_value => 'Instance Asset line');
11397: x_return_status := OKL_API.G_RET_STS_ERROR;
11393: OKL_API.set_message(p_app_name => G_APP_NAME,
11394: p_msg_name => G_INVALID_CRITERIA,
11395: p_token1 => G_COL_NAME_TOKEN,
11396: p_token1_value => 'Instance Asset line');
11397: x_return_status := OKL_API.G_RET_STS_ERROR;
11398: RAISE OKL_API.G_EXCEPTION_ERROR;
11399: END IF;
11400: ELSE
11401: OKL_API.set_message(p_app_name => G_APP_NAME,
11394: p_msg_name => G_INVALID_CRITERIA,
11395: p_token1 => G_COL_NAME_TOKEN,
11396: p_token1_value => 'Instance Asset line');
11397: x_return_status := OKL_API.G_RET_STS_ERROR;
11398: RAISE OKL_API.G_EXCEPTION_ERROR;
11399: END IF;
11400: ELSE
11401: OKL_API.set_message(p_app_name => G_APP_NAME,
11402: p_msg_name => G_INVALID_CRITERIA,
11397: x_return_status := OKL_API.G_RET_STS_ERROR;
11398: RAISE OKL_API.G_EXCEPTION_ERROR;
11399: END IF;
11400: ELSE
11401: OKL_API.set_message(p_app_name => G_APP_NAME,
11402: p_msg_name => G_INVALID_CRITERIA,
11403: p_token1 => G_COL_NAME_TOKEN,
11404: p_token1_value => 'Instance Asset line');
11405: x_return_status := OKL_API.G_RET_STS_ERROR;
11401: OKL_API.set_message(p_app_name => G_APP_NAME,
11402: p_msg_name => G_INVALID_CRITERIA,
11403: p_token1 => G_COL_NAME_TOKEN,
11404: p_token1_value => 'Instance Asset line');
11405: x_return_status := OKL_API.G_RET_STS_ERROR;
11406: RAISE OKL_API.G_EXCEPTION_ERROR;
11407: END IF;
11408: OKL_API.END_ACTIVITY (x_msg_count,
11409: x_msg_data );
11402: p_msg_name => G_INVALID_CRITERIA,
11403: p_token1 => G_COL_NAME_TOKEN,
11404: p_token1_value => 'Instance Asset line');
11405: x_return_status := OKL_API.G_RET_STS_ERROR;
11406: RAISE OKL_API.G_EXCEPTION_ERROR;
11407: END IF;
11408: OKL_API.END_ACTIVITY (x_msg_count,
11409: x_msg_data );
11410: EXCEPTION
11404: p_token1_value => 'Instance Asset line');
11405: x_return_status := OKL_API.G_RET_STS_ERROR;
11406: RAISE OKL_API.G_EXCEPTION_ERROR;
11407: END IF;
11408: OKL_API.END_ACTIVITY (x_msg_count,
11409: x_msg_data );
11410: EXCEPTION
11411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11412: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11407: END IF;
11408: OKL_API.END_ACTIVITY (x_msg_count,
11409: x_msg_data );
11410: EXCEPTION
11411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11412: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11413: l_api_name,
11414: G_PKG_NAME,
11415: 'OKL_API.G_RET_STS_ERROR',
11408: OKL_API.END_ACTIVITY (x_msg_count,
11409: x_msg_data );
11410: EXCEPTION
11411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11412: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11413: l_api_name,
11414: G_PKG_NAME,
11415: 'OKL_API.G_RET_STS_ERROR',
11416: x_msg_count,
11411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11412: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11413: l_api_name,
11414: G_PKG_NAME,
11415: 'OKL_API.G_RET_STS_ERROR',
11416: x_msg_count,
11417: x_msg_data,
11418: '_PVT');
11419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11415: 'OKL_API.G_RET_STS_ERROR',
11416: x_msg_count,
11417: x_msg_data,
11418: '_PVT');
11419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11421: l_api_name,
11422: G_PKG_NAME,
11423: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11416: x_msg_count,
11417: x_msg_data,
11418: '_PVT');
11419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11421: l_api_name,
11422: G_PKG_NAME,
11423: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11424: x_msg_count,
11419: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11420: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11421: l_api_name,
11422: G_PKG_NAME,
11423: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11424: x_msg_count,
11425: x_msg_data,
11426: '_PVT');
11427: WHEN OTHERS THEN
11424: x_msg_count,
11425: x_msg_data,
11426: '_PVT');
11427: WHEN OTHERS THEN
11428: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11429: l_api_name,
11430: G_PKG_NAME,
11431: 'OTHERS',
11432: x_msg_count,
11437: ------------------ Main Process for Install Base Line Creation---------------------------------
11438: -----------------------------------------------------------------------------------------------
11439: PROCEDURE Create_instance_ib_line(
11440: p_api_version IN NUMBER,
11441: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11442: x_return_status OUT NOCOPY VARCHAR2,
11443: x_msg_count OUT NOCOPY NUMBER,
11444: x_msg_data OUT NOCOPY VARCHAR2,
11445: p_clev_rec IN clev_rec_type,
11454:
11455: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INSTANCE_IB_LINES';
11456: l_clev_rec clev_rec_type;
11457: l_cimv_rec cimv_rec_type;
11458: ln_lse_id OKC_LINE_STYLES_V.ID%TYPE := OKL_API.G_MISS_NUM;
11459: -- Variables for validation of line style
11460: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11461: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11462: BEGIN
11459: -- Variables for validation of line style
11460: l_lty_code OKC_LINE_STYLES_V.LTY_CODE%TYPE;
11461: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
11462: BEGIN
11463: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11464: -- Call start_activity to create savepoint, check compatibility
11465: -- and initialize message list
11466: x_return_status := OKL_API.START_ACTIVITY (
11467: l_api_name
11462: BEGIN
11463: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11464: -- Call start_activity to create savepoint, check compatibility
11465: -- and initialize message list
11466: x_return_status := OKL_API.START_ACTIVITY (
11467: l_api_name
11468: ,p_init_msg_list
11469: ,'_PVT'
11470: ,x_return_status);
11468: ,p_init_msg_list
11469: ,'_PVT'
11470: ,x_return_status);
11471: -- Check if activity started successfully
11472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11475: RAISE OKL_API.G_EXCEPTION_ERROR;
11476: END IF;
11469: ,'_PVT'
11470: ,x_return_status);
11471: -- Check if activity started successfully
11472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11475: RAISE OKL_API.G_EXCEPTION_ERROR;
11476: END IF;
11477: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11470: ,x_return_status);
11471: -- Check if activity started successfully
11472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11475: RAISE OKL_API.G_EXCEPTION_ERROR;
11476: END IF;
11477: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11478: /*
11471: -- Check if activity started successfully
11472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11475: RAISE OKL_API.G_EXCEPTION_ERROR;
11476: END IF;
11477: -- 4414408 The validations in Validate_lse_id and Validate_dnz_chr_id are redundant
11478: /*
11479: -- Validate Line Style id and get the line type code
11482: x_return_status => x_return_status,
11483: x_lty_code => l_lty_code,
11484: x_lse_type => l_lse_type);
11485: -- Check if activity started successfully
11486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11489: RAISE OKL_API.G_EXCEPTION_ERROR;
11490: END IF;
11483: x_lty_code => l_lty_code,
11484: x_lse_type => l_lse_type);
11485: -- Check if activity started successfully
11486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11489: RAISE OKL_API.G_EXCEPTION_ERROR;
11490: END IF;
11491: -- Validate the Dnz_Chr_id
11484: x_lse_type => l_lse_type);
11485: -- Check if activity started successfully
11486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11489: RAISE OKL_API.G_EXCEPTION_ERROR;
11490: END IF;
11491: -- Validate the Dnz_Chr_id
11492: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11485: -- Check if activity started successfully
11486: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11488: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11489: RAISE OKL_API.G_EXCEPTION_ERROR;
11490: END IF;
11491: -- Validate the Dnz_Chr_id
11492: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11493: x_return_status => x_return_status);
11491: -- Validate the Dnz_Chr_id
11492: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11493: x_return_status => x_return_status);
11494: -- Check if activity started successfully
11495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11498: RAISE OKL_API.G_EXCEPTION_ERROR;
11499: END IF;
11492: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11493: x_return_status => x_return_status);
11494: -- Check if activity started successfully
11495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11498: RAISE OKL_API.G_EXCEPTION_ERROR;
11499: END IF;
11500: */
11493: x_return_status => x_return_status);
11494: -- Check if activity started successfully
11495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11498: RAISE OKL_API.G_EXCEPTION_ERROR;
11499: END IF;
11500: */
11501: -- Now we are going to create the instance Line
11494: -- Check if activity started successfully
11495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11498: RAISE OKL_API.G_EXCEPTION_ERROR;
11499: END IF;
11500: */
11501: -- Now we are going to create the instance Line
11502: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11502: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11503: -- The Record Should have the cle_id
11504: -- if the given line style is instance Line
11505: l_clev_rec := p_clev_rec;
11506: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11507: l_clev_rec.chr_id IS NULL) AND
11508: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11509: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11510: (l_clev_rec.cle_id IS NOT NULL OR
11505: l_clev_rec := p_clev_rec;
11506: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11507: l_clev_rec.chr_id IS NULL) AND
11508: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11509: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11510: (l_clev_rec.cle_id IS NOT NULL OR
11511: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11512: -- 4414408
11513: -- l_lty_code = G_IB_LINE_LTY_CODE AND
11507: l_clev_rec.chr_id IS NULL) AND
11508: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11509: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11510: (l_clev_rec.cle_id IS NOT NULL OR
11511: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11512: -- 4414408
11513: -- l_lty_code = G_IB_LINE_LTY_CODE AND
11514: -- l_lse_type = G_SLS_TYPE THEN
11515: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11514: -- l_lse_type = G_SLS_TYPE THEN
11515: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11516: validate_instance_number_ib(x_return_status => x_return_status,
11517: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11521: RAISE OKL_API.G_EXCEPTION_ERROR;
11522: END IF;
11515: l_clev_rec.lse_id = G_IB_LINE_LTY_ID THEN
11516: validate_instance_number_ib(x_return_status => x_return_status,
11517: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11521: RAISE OKL_API.G_EXCEPTION_ERROR;
11522: END IF;
11523: Create_installed_base_line(p_api_version => p_api_version,
11516: validate_instance_number_ib(x_return_status => x_return_status,
11517: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11521: RAISE OKL_API.G_EXCEPTION_ERROR;
11522: END IF;
11523: Create_installed_base_line(p_api_version => p_api_version,
11524: p_init_msg_list => p_init_msg_list,
11517: p_inst_num_ib => p_itiv_rec.instance_number_ib);
11518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11521: RAISE OKL_API.G_EXCEPTION_ERROR;
11522: END IF;
11523: Create_installed_base_line(p_api_version => p_api_version,
11524: p_init_msg_list => p_init_msg_list,
11525: x_return_status => x_return_status,
11534: x_klev_rec => x_klev_rec,
11535: x_cimv_rec => x_cimv_rec,
11536: x_trxv_rec => x_trxv_rec,
11537: x_itiv_rec => x_itiv_rec);
11538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11541: RAISE OKL_API.G_EXCEPTION_ERROR;
11542: END IF;
11535: x_cimv_rec => x_cimv_rec,
11536: x_trxv_rec => x_trxv_rec,
11537: x_itiv_rec => x_itiv_rec);
11538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11541: RAISE OKL_API.G_EXCEPTION_ERROR;
11542: END IF;
11543: ELSE
11536: x_trxv_rec => x_trxv_rec,
11537: x_itiv_rec => x_itiv_rec);
11538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11541: RAISE OKL_API.G_EXCEPTION_ERROR;
11542: END IF;
11543: ELSE
11544: OKL_API.set_message(p_app_name => G_APP_NAME,
11537: x_itiv_rec => x_itiv_rec);
11538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11541: RAISE OKL_API.G_EXCEPTION_ERROR;
11542: END IF;
11543: ELSE
11544: OKL_API.set_message(p_app_name => G_APP_NAME,
11545: p_msg_name => G_INVALID_CRITERIA,
11540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11541: RAISE OKL_API.G_EXCEPTION_ERROR;
11542: END IF;
11543: ELSE
11544: OKL_API.set_message(p_app_name => G_APP_NAME,
11545: p_msg_name => G_INVALID_CRITERIA,
11546: p_token1 => G_COL_NAME_TOKEN,
11547: p_token1_value => 'Install Base Asset line');
11548: x_return_status := OKL_API.G_RET_STS_ERROR;
11544: OKL_API.set_message(p_app_name => G_APP_NAME,
11545: p_msg_name => G_INVALID_CRITERIA,
11546: p_token1 => G_COL_NAME_TOKEN,
11547: p_token1_value => 'Install Base Asset line');
11548: x_return_status := OKL_API.G_RET_STS_ERROR;
11549: RAISE OKL_API.G_EXCEPTION_ERROR;
11550: END IF;
11551: OKL_API.END_ACTIVITY (x_msg_count,
11552: x_msg_data );
11545: p_msg_name => G_INVALID_CRITERIA,
11546: p_token1 => G_COL_NAME_TOKEN,
11547: p_token1_value => 'Install Base Asset line');
11548: x_return_status := OKL_API.G_RET_STS_ERROR;
11549: RAISE OKL_API.G_EXCEPTION_ERROR;
11550: END IF;
11551: OKL_API.END_ACTIVITY (x_msg_count,
11552: x_msg_data );
11553: EXCEPTION
11547: p_token1_value => 'Install Base Asset line');
11548: x_return_status := OKL_API.G_RET_STS_ERROR;
11549: RAISE OKL_API.G_EXCEPTION_ERROR;
11550: END IF;
11551: OKL_API.END_ACTIVITY (x_msg_count,
11552: x_msg_data );
11553: EXCEPTION
11554: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11555: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11550: END IF;
11551: OKL_API.END_ACTIVITY (x_msg_count,
11552: x_msg_data );
11553: EXCEPTION
11554: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11555: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11556: l_api_name,
11557: G_PKG_NAME,
11558: 'OKL_API.G_RET_STS_ERROR',
11551: OKL_API.END_ACTIVITY (x_msg_count,
11552: x_msg_data );
11553: EXCEPTION
11554: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11555: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11556: l_api_name,
11557: G_PKG_NAME,
11558: 'OKL_API.G_RET_STS_ERROR',
11559: x_msg_count,
11554: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11555: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11556: l_api_name,
11557: G_PKG_NAME,
11558: 'OKL_API.G_RET_STS_ERROR',
11559: x_msg_count,
11560: x_msg_data,
11561: '_PVT');
11562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11558: 'OKL_API.G_RET_STS_ERROR',
11559: x_msg_count,
11560: x_msg_data,
11561: '_PVT');
11562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11564: l_api_name,
11565: G_PKG_NAME,
11566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11559: x_msg_count,
11560: x_msg_data,
11561: '_PVT');
11562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11564: l_api_name,
11565: G_PKG_NAME,
11566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11567: x_msg_count,
11562: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11564: l_api_name,
11565: G_PKG_NAME,
11566: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11567: x_msg_count,
11568: x_msg_data,
11569: '_PVT');
11570: WHEN OTHERS THEN
11567: x_msg_count,
11568: x_msg_data,
11569: '_PVT');
11570: WHEN OTHERS THEN
11571: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11572: l_api_name,
11573: G_PKG_NAME,
11574: 'OTHERS',
11575: x_msg_count,
11580: ------------------ Main Process for Updating Instance IB Line ---------------------------------
11581: -----------------------------------------------------------------------------------------------
11582: PROCEDURE Update_instance_ib_line(
11583: p_api_version IN NUMBER,
11584: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11585: x_return_status OUT NOCOPY VARCHAR2,
11586: x_msg_count OUT NOCOPY NUMBER,
11587: x_msg_data OUT NOCOPY VARCHAR2,
11588: p_clev_rec IN clev_rec_type,
11608: l_itiv_rec itiv_rec_type;
11609: ln_tas_id OKL_TRX_ASSETS.ID%TYPE;
11610: ln_line_number OKL_TXL_ASSETS_V.LINE_NUMBER%TYPE;
11611: BEGIN
11612: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11613: -- Call start_activity to create savepoint, check compatibility
11614: -- and initialize message list
11615: x_return_status := OKL_API.START_ACTIVITY (
11616: l_api_name
11611: BEGIN
11612: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11613: -- Call start_activity to create savepoint, check compatibility
11614: -- and initialize message list
11615: x_return_status := OKL_API.START_ACTIVITY (
11616: l_api_name
11617: ,p_init_msg_list
11618: ,'_PVT'
11619: ,x_return_status);
11617: ,p_init_msg_list
11618: ,'_PVT'
11619: ,x_return_status);
11620: -- Check if activity started successfully
11621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11624: RAISE OKL_API.G_EXCEPTION_ERROR;
11625: END IF;
11618: ,'_PVT'
11619: ,x_return_status);
11620: -- Check if activity started successfully
11621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11624: RAISE OKL_API.G_EXCEPTION_ERROR;
11625: END IF;
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11619: ,x_return_status);
11620: -- Check if activity started successfully
11621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11624: RAISE OKL_API.G_EXCEPTION_ERROR;
11625: END IF;
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11627: x_return_status => x_return_status);
11620: -- Check if activity started successfully
11621: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11623: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11624: RAISE OKL_API.G_EXCEPTION_ERROR;
11625: END IF;
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11627: x_return_status => x_return_status);
11628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11624: RAISE OKL_API.G_EXCEPTION_ERROR;
11625: END IF;
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11627: x_return_status => x_return_status);
11628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11631: RAISE OKL_API.G_EXCEPTION_ERROR;
11632: END IF;
11625: END IF;
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11627: x_return_status => x_return_status);
11628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11631: RAISE OKL_API.G_EXCEPTION_ERROR;
11632: END IF;
11633: -- Validate Line Style id and get the line type code
11626: validate_sts_code(p_clev_rec => p_clev_rec,
11627: x_return_status => x_return_status);
11628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11631: RAISE OKL_API.G_EXCEPTION_ERROR;
11632: END IF;
11633: -- Validate Line Style id and get the line type code
11634: -- and line style type for further processing
11627: x_return_status => x_return_status);
11628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11629: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11630: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11631: RAISE OKL_API.G_EXCEPTION_ERROR;
11632: END IF;
11633: -- Validate Line Style id and get the line type code
11634: -- and line style type for further processing
11635: validate_lse_id(p_clev_rec => p_clev_rec,
11636: x_return_status => x_return_status,
11637: x_lty_code => l_lty_code,
11638: x_lse_type => l_lse_type);
11639: -- Check if activity started successfully
11640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11643: RAISE OKL_API.G_EXCEPTION_ERROR;
11644: END IF;
11637: x_lty_code => l_lty_code,
11638: x_lse_type => l_lse_type);
11639: -- Check if activity started successfully
11640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11643: RAISE OKL_API.G_EXCEPTION_ERROR;
11644: END IF;
11645: -- Validate the Dnz_Chr_id
11638: x_lse_type => l_lse_type);
11639: -- Check if activity started successfully
11640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11643: RAISE OKL_API.G_EXCEPTION_ERROR;
11644: END IF;
11645: -- Validate the Dnz_Chr_id
11646: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11639: -- Check if activity started successfully
11640: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11641: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11642: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11643: RAISE OKL_API.G_EXCEPTION_ERROR;
11644: END IF;
11645: -- Validate the Dnz_Chr_id
11646: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11647: x_return_status => x_return_status);
11645: -- Validate the Dnz_Chr_id
11646: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11647: x_return_status => x_return_status);
11648: -- Check if activity started successfully
11649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11652: RAISE OKL_API.G_EXCEPTION_ERROR;
11653: END IF;
11646: validate_dnz_chr_id(p_clev_rec => p_clev_rec,
11647: x_return_status => x_return_status);
11648: -- Check if activity started successfully
11649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11652: RAISE OKL_API.G_EXCEPTION_ERROR;
11653: END IF;
11654: -- Now we are going to create the installed_base_Line
11647: x_return_status => x_return_status);
11648: -- Check if activity started successfully
11649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11652: RAISE OKL_API.G_EXCEPTION_ERROR;
11653: END IF;
11654: -- Now we are going to create the installed_base_Line
11655: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11648: -- Check if activity started successfully
11649: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11650: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11651: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11652: RAISE OKL_API.G_EXCEPTION_ERROR;
11653: END IF;
11654: -- Now we are going to create the installed_base_Line
11655: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11656: -- The Record Should have the cle_id
11655: -- Here we have have Dnz_Chr_id ,lse_id and cle_id
11656: -- The Record Should have the cle_id
11657: -- if the given line style is instance base Line
11658: l_clev_rec := p_clev_rec;
11659: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11660: l_clev_rec.chr_id IS NULL) AND
11661: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11662: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11663: (l_clev_rec.cle_id IS NOT NULL OR
11658: l_clev_rec := p_clev_rec;
11659: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11660: l_clev_rec.chr_id IS NULL) AND
11661: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11662: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11663: (l_clev_rec.cle_id IS NOT NULL OR
11664: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11665: l_lty_code = G_IB_LINE_LTY_CODE AND
11666: l_lse_type = G_SLS_TYPE THEN
11660: l_clev_rec.chr_id IS NULL) AND
11661: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11662: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11663: (l_clev_rec.cle_id IS NOT NULL OR
11664: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11665: l_lty_code = G_IB_LINE_LTY_CODE AND
11666: l_lse_type = G_SLS_TYPE THEN
11667: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11668: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11664: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11665: l_lty_code = G_IB_LINE_LTY_CODE AND
11666: l_lse_type = G_SLS_TYPE THEN
11667: IF (p_itiv_rec.instance_number_ib IS NOT NULL OR
11668: p_itiv_rec.instance_number_ib <> OKL_API.G_MISS_CHAR) THEN
11669: l_cimv_rec := p_cimv_rec;
11670: update_installed_base_line(p_api_version => p_api_version,
11671: p_init_msg_list => p_init_msg_list,
11672: x_return_status => x_return_status,
11680: x_clev_rec => x_clev_rec,
11681: x_klev_rec => x_klev_rec,
11682: x_cimv_rec => x_cimv_rec,
11683: x_itiv_rec => x_itiv_rec);
11684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11687: RAISE OKL_API.G_EXCEPTION_ERROR;
11688: END IF;
11681: x_klev_rec => x_klev_rec,
11682: x_cimv_rec => x_cimv_rec,
11683: x_itiv_rec => x_itiv_rec);
11684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11687: RAISE OKL_API.G_EXCEPTION_ERROR;
11688: END IF;
11689: ELSE
11682: x_cimv_rec => x_cimv_rec,
11683: x_itiv_rec => x_itiv_rec);
11684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11687: RAISE OKL_API.G_EXCEPTION_ERROR;
11688: END IF;
11689: ELSE
11690: OKL_API.set_message(p_app_name => G_APP_NAME,
11683: x_itiv_rec => x_itiv_rec);
11684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11687: RAISE OKL_API.G_EXCEPTION_ERROR;
11688: END IF;
11689: ELSE
11690: OKL_API.set_message(p_app_name => G_APP_NAME,
11691: p_msg_name => G_INVALID_CRITERIA,
11686: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11687: RAISE OKL_API.G_EXCEPTION_ERROR;
11688: END IF;
11689: ELSE
11690: OKL_API.set_message(p_app_name => G_APP_NAME,
11691: p_msg_name => G_INVALID_CRITERIA,
11692: p_token1 => G_COL_NAME_TOKEN,
11693: p_token1_value => 'Install Base Asset line');
11694: x_return_status := OKL_API.G_RET_STS_ERROR;
11690: OKL_API.set_message(p_app_name => G_APP_NAME,
11691: p_msg_name => G_INVALID_CRITERIA,
11692: p_token1 => G_COL_NAME_TOKEN,
11693: p_token1_value => 'Install Base Asset line');
11694: x_return_status := OKL_API.G_RET_STS_ERROR;
11695: RAISE OKL_API.G_EXCEPTION_ERROR;
11696: END IF;
11697: ELSE
11698: OKL_API.set_message(p_app_name => G_APP_NAME,
11691: p_msg_name => G_INVALID_CRITERIA,
11692: p_token1 => G_COL_NAME_TOKEN,
11693: p_token1_value => 'Install Base Asset line');
11694: x_return_status := OKL_API.G_RET_STS_ERROR;
11695: RAISE OKL_API.G_EXCEPTION_ERROR;
11696: END IF;
11697: ELSE
11698: OKL_API.set_message(p_app_name => G_APP_NAME,
11699: p_msg_name => G_INVALID_CRITERIA,
11694: x_return_status := OKL_API.G_RET_STS_ERROR;
11695: RAISE OKL_API.G_EXCEPTION_ERROR;
11696: END IF;
11697: ELSE
11698: OKL_API.set_message(p_app_name => G_APP_NAME,
11699: p_msg_name => G_INVALID_CRITERIA,
11700: p_token1 => G_COL_NAME_TOKEN,
11701: p_token1_value => 'Instance Asset line');
11702: x_return_status := OKL_API.G_RET_STS_ERROR;
11698: OKL_API.set_message(p_app_name => G_APP_NAME,
11699: p_msg_name => G_INVALID_CRITERIA,
11700: p_token1 => G_COL_NAME_TOKEN,
11701: p_token1_value => 'Instance Asset line');
11702: x_return_status := OKL_API.G_RET_STS_ERROR;
11703: RAISE OKL_API.G_EXCEPTION_ERROR;
11704: END IF;
11705: OKL_API.END_ACTIVITY (x_msg_count,
11706: x_msg_data );
11699: p_msg_name => G_INVALID_CRITERIA,
11700: p_token1 => G_COL_NAME_TOKEN,
11701: p_token1_value => 'Instance Asset line');
11702: x_return_status := OKL_API.G_RET_STS_ERROR;
11703: RAISE OKL_API.G_EXCEPTION_ERROR;
11704: END IF;
11705: OKL_API.END_ACTIVITY (x_msg_count,
11706: x_msg_data );
11707: EXCEPTION
11701: p_token1_value => 'Instance Asset line');
11702: x_return_status := OKL_API.G_RET_STS_ERROR;
11703: RAISE OKL_API.G_EXCEPTION_ERROR;
11704: END IF;
11705: OKL_API.END_ACTIVITY (x_msg_count,
11706: x_msg_data );
11707: EXCEPTION
11708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11704: END IF;
11705: OKL_API.END_ACTIVITY (x_msg_count,
11706: x_msg_data );
11707: EXCEPTION
11708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11710: l_api_name,
11711: G_PKG_NAME,
11712: 'OKL_API.G_RET_STS_ERROR',
11705: OKL_API.END_ACTIVITY (x_msg_count,
11706: x_msg_data );
11707: EXCEPTION
11708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11710: l_api_name,
11711: G_PKG_NAME,
11712: 'OKL_API.G_RET_STS_ERROR',
11713: x_msg_count,
11708: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11709: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11710: l_api_name,
11711: G_PKG_NAME,
11712: 'OKL_API.G_RET_STS_ERROR',
11713: x_msg_count,
11714: x_msg_data,
11715: '_PVT');
11716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11712: 'OKL_API.G_RET_STS_ERROR',
11713: x_msg_count,
11714: x_msg_data,
11715: '_PVT');
11716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11718: l_api_name,
11719: G_PKG_NAME,
11720: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11713: x_msg_count,
11714: x_msg_data,
11715: '_PVT');
11716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11718: l_api_name,
11719: G_PKG_NAME,
11720: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11721: x_msg_count,
11716: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11717: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11718: l_api_name,
11719: G_PKG_NAME,
11720: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11721: x_msg_count,
11722: x_msg_data,
11723: '_PVT');
11724: WHEN OTHERS THEN
11721: x_msg_count,
11722: x_msg_data,
11723: '_PVT');
11724: WHEN OTHERS THEN
11725: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11726: l_api_name,
11727: G_PKG_NAME,
11728: 'OTHERS',
11729: x_msg_count,
11752: --Bug# 4558486
11753: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11754: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11755: BEGIN
11756: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11757: -- Call start_activity to create savepoint, check compatibility
11758: -- and initialize message list
11759: x_return_status := OKL_API.START_ACTIVITY (
11760: l_api_name
11755: BEGIN
11756: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11757: -- Call start_activity to create savepoint, check compatibility
11758: -- and initialize message list
11759: x_return_status := OKL_API.START_ACTIVITY (
11760: l_api_name
11761: ,p_init_msg_list
11762: ,'_PVT'
11763: ,x_return_status);
11761: ,p_init_msg_list
11762: ,'_PVT'
11763: ,x_return_status);
11764: -- Check if activity started successfully
11765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11768: RAISE OKL_API.G_EXCEPTION_ERROR;
11769: END IF;
11762: ,'_PVT'
11763: ,x_return_status);
11764: -- Check if activity started successfully
11765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11768: RAISE OKL_API.G_EXCEPTION_ERROR;
11769: END IF;
11770: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11763: ,x_return_status);
11764: -- Check if activity started successfully
11765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11768: RAISE OKL_API.G_EXCEPTION_ERROR;
11769: END IF;
11770: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11771: x_clev_rec => l_clev_rec);
11764: -- Check if activity started successfully
11765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11768: RAISE OKL_API.G_EXCEPTION_ERROR;
11769: END IF;
11770: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11771: x_clev_rec => l_clev_rec);
11772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11768: RAISE OKL_API.G_EXCEPTION_ERROR;
11769: END IF;
11770: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11771: x_clev_rec => l_clev_rec);
11772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11773: OKL_API.set_message(p_app_name => G_APP_NAME,
11774: p_msg_name => G_FETCHING_INFO,
11775: p_token1 => G_REC_NAME_TOKEN,
11776: p_token1_value => 'OKC_K_LINES_V Record');
11769: END IF;
11770: x_return_status := get_rec_clev(p_id => p_cplv_rec.cle_id,
11771: x_clev_rec => l_clev_rec);
11772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11773: OKL_API.set_message(p_app_name => G_APP_NAME,
11774: p_msg_name => G_FETCHING_INFO,
11775: p_token1 => G_REC_NAME_TOKEN,
11776: p_token1_value => 'OKC_K_LINES_V Record');
11777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11773: OKL_API.set_message(p_app_name => G_APP_NAME,
11774: p_msg_name => G_FETCHING_INFO,
11775: p_token1 => G_REC_NAME_TOKEN,
11776: p_token1_value => 'OKC_K_LINES_V Record');
11777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11779: OKL_API.set_message(p_app_name => G_APP_NAME,
11780: p_msg_name => G_FETCHING_INFO,
11781: p_token1 => G_REC_NAME_TOKEN,
11774: p_msg_name => G_FETCHING_INFO,
11775: p_token1 => G_REC_NAME_TOKEN,
11776: p_token1_value => 'OKC_K_LINES_V Record');
11777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11779: OKL_API.set_message(p_app_name => G_APP_NAME,
11780: p_msg_name => G_FETCHING_INFO,
11781: p_token1 => G_REC_NAME_TOKEN,
11782: p_token1_value => 'OKC_K_LINES_V Record');
11775: p_token1 => G_REC_NAME_TOKEN,
11776: p_token1_value => 'OKC_K_LINES_V Record');
11777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11779: OKL_API.set_message(p_app_name => G_APP_NAME,
11780: p_msg_name => G_FETCHING_INFO,
11781: p_token1 => G_REC_NAME_TOKEN,
11782: p_token1_value => 'OKC_K_LINES_V Record');
11783: RAISE OKL_API.G_EXCEPTION_ERROR;
11779: OKL_API.set_message(p_app_name => G_APP_NAME,
11780: p_msg_name => G_FETCHING_INFO,
11781: p_token1 => G_REC_NAME_TOKEN,
11782: p_token1_value => 'OKC_K_LINES_V Record');
11783: RAISE OKL_API.G_EXCEPTION_ERROR;
11784: END IF;
11785: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11786: x_klev_rec => l_klev_rec);
11787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11783: RAISE OKL_API.G_EXCEPTION_ERROR;
11784: END IF;
11785: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11786: x_klev_rec => l_klev_rec);
11787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11788: OKL_API.set_message(p_app_name => G_APP_NAME,
11789: p_msg_name => G_FETCHING_INFO,
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11784: END IF;
11785: x_return_status := get_rec_klev(p_id => p_cplv_rec.cle_id,
11786: x_klev_rec => l_klev_rec);
11787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11788: OKL_API.set_message(p_app_name => G_APP_NAME,
11789: p_msg_name => G_FETCHING_INFO,
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11788: OKL_API.set_message(p_app_name => G_APP_NAME,
11789: p_msg_name => G_FETCHING_INFO,
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11793: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11796: p_token1 => G_REC_NAME_TOKEN,
11789: p_msg_name => G_FETCHING_INFO,
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11793: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11796: p_token1 => G_REC_NAME_TOKEN,
11797: p_token1_value => 'OKL_K_LINES_V Record');
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11793: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11796: p_token1 => G_REC_NAME_TOKEN,
11797: p_token1_value => 'OKL_K_LINES_V Record');
11798: RAISE OKL_API.G_EXCEPTION_ERROR;
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11796: p_token1 => G_REC_NAME_TOKEN,
11797: p_token1_value => 'OKL_K_LINES_V Record');
11798: RAISE OKL_API.G_EXCEPTION_ERROR;
11799: END IF;
11800: IF l_clev_rec.id <> l_klev_rec.id THEN
11801: OKL_API.set_message(p_app_name => G_APP_NAME,
11802: p_msg_name => G_LINE_RECORD);
11797: p_token1_value => 'OKL_K_LINES_V Record');
11798: RAISE OKL_API.G_EXCEPTION_ERROR;
11799: END IF;
11800: IF l_clev_rec.id <> l_klev_rec.id THEN
11801: OKL_API.set_message(p_app_name => G_APP_NAME,
11802: p_msg_name => G_LINE_RECORD);
11803: x_return_status := OKL_API.G_RET_STS_ERROR;
11804: RAISE OKL_API.G_EXCEPTION_ERROR;
11805: END IF;
11799: END IF;
11800: IF l_clev_rec.id <> l_klev_rec.id THEN
11801: OKL_API.set_message(p_app_name => G_APP_NAME,
11802: p_msg_name => G_LINE_RECORD);
11803: x_return_status := OKL_API.G_RET_STS_ERROR;
11804: RAISE OKL_API.G_EXCEPTION_ERROR;
11805: END IF;
11806: -- Validate Line Style id and get the line type code
11807: -- and line style type for further processing
11800: IF l_clev_rec.id <> l_klev_rec.id THEN
11801: OKL_API.set_message(p_app_name => G_APP_NAME,
11802: p_msg_name => G_LINE_RECORD);
11803: x_return_status := OKL_API.G_RET_STS_ERROR;
11804: RAISE OKL_API.G_EXCEPTION_ERROR;
11805: END IF;
11806: -- Validate Line Style id and get the line type code
11807: -- and line style type for further processing
11808: validate_lse_id(p_clev_rec => l_clev_rec,
11809: x_return_status => x_return_status,
11810: x_lty_code => l_lty_code,
11811: x_lse_type => l_lse_type);
11812: -- Check if activity started successfully
11813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11816: RAISE OKL_API.G_EXCEPTION_ERROR;
11817: END IF;
11810: x_lty_code => l_lty_code,
11811: x_lse_type => l_lse_type);
11812: -- Check if activity started successfully
11813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11816: RAISE OKL_API.G_EXCEPTION_ERROR;
11817: END IF;
11818: -- Validate the Dnz_Chr_id
11811: x_lse_type => l_lse_type);
11812: -- Check if activity started successfully
11813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11816: RAISE OKL_API.G_EXCEPTION_ERROR;
11817: END IF;
11818: -- Validate the Dnz_Chr_id
11819: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11812: -- Check if activity started successfully
11813: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11814: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11815: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11816: RAISE OKL_API.G_EXCEPTION_ERROR;
11817: END IF;
11818: -- Validate the Dnz_Chr_id
11819: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11820: x_return_status => x_return_status);
11818: -- Validate the Dnz_Chr_id
11819: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11820: x_return_status => x_return_status);
11821: -- Check if activity started successfully
11822: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11823: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11824: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11825: RAISE OKL_API.G_EXCEPTION_ERROR;
11826: END IF;
11819: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
11820: x_return_status => x_return_status);
11821: -- Check if activity started successfully
11822: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11823: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11824: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11825: RAISE OKL_API.G_EXCEPTION_ERROR;
11826: END IF;
11827: -- We can create a party item info only if the line is Model Line
11820: x_return_status => x_return_status);
11821: -- Check if activity started successfully
11822: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11823: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11824: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11825: RAISE OKL_API.G_EXCEPTION_ERROR;
11826: END IF;
11827: -- We can create a party item info only if the line is Model Line
11828: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11821: -- Check if activity started successfully
11822: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11823: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11824: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11825: RAISE OKL_API.G_EXCEPTION_ERROR;
11826: END IF;
11827: -- We can create a party item info only if the line is Model Line
11828: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11829: l_clev_rec.chr_id IS NULL) AND
11824: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11825: RAISE OKL_API.G_EXCEPTION_ERROR;
11826: END IF;
11827: -- We can create a party item info only if the line is Model Line
11828: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11829: l_clev_rec.chr_id IS NULL) AND
11830: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11831: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11832: (l_clev_rec.cle_id IS NOT NULL OR
11827: -- We can create a party item info only if the line is Model Line
11828: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
11829: l_clev_rec.chr_id IS NULL) AND
11830: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11831: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11832: (l_clev_rec.cle_id IS NOT NULL OR
11833: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11834: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11835: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11829: l_clev_rec.chr_id IS NULL) AND
11830: (l_clev_rec.dnz_chr_id IS NOT NULL OR
11831: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
11832: (l_clev_rec.cle_id IS NOT NULL OR
11833: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
11834: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
11835: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11836: l_lse_type = G_SLS_TYPE THEN
11837: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11835: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
11836: l_lse_type = G_SLS_TYPE THEN
11837: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11838: x_cplv_rec => l_cplv_rec);
11839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11840: OKL_API.set_message(p_app_name => G_APP_NAME,
11841: p_msg_name => G_FETCHING_INFO,
11842: p_token1 => G_REC_NAME_TOKEN,
11843: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11836: l_lse_type = G_SLS_TYPE THEN
11837: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11838: x_cplv_rec => l_cplv_rec);
11839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11840: OKL_API.set_message(p_app_name => G_APP_NAME,
11841: p_msg_name => G_FETCHING_INFO,
11842: p_token1 => G_REC_NAME_TOKEN,
11843: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11840: OKL_API.set_message(p_app_name => G_APP_NAME,
11841: p_msg_name => G_FETCHING_INFO,
11842: p_token1 => G_REC_NAME_TOKEN,
11843: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11846: OKL_API.set_message(p_app_name => G_APP_NAME,
11847: p_msg_name => G_FETCHING_INFO,
11848: p_token1 => G_REC_NAME_TOKEN,
11841: p_msg_name => G_FETCHING_INFO,
11842: p_token1 => G_REC_NAME_TOKEN,
11843: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11846: OKL_API.set_message(p_app_name => G_APP_NAME,
11847: p_msg_name => G_FETCHING_INFO,
11848: p_token1 => G_REC_NAME_TOKEN,
11849: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11842: p_token1 => G_REC_NAME_TOKEN,
11843: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11846: OKL_API.set_message(p_app_name => G_APP_NAME,
11847: p_msg_name => G_FETCHING_INFO,
11848: p_token1 => G_REC_NAME_TOKEN,
11849: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11850: RAISE OKL_API.G_EXCEPTION_ERROR;
11846: OKL_API.set_message(p_app_name => G_APP_NAME,
11847: p_msg_name => G_FETCHING_INFO,
11848: p_token1 => G_REC_NAME_TOKEN,
11849: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11850: RAISE OKL_API.G_EXCEPTION_ERROR;
11851: END IF;
11852:
11853: IF (p_cplv_rec.cle_id IS NOT NULL OR
11854: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11850: RAISE OKL_API.G_EXCEPTION_ERROR;
11851: END IF;
11852:
11853: IF (p_cplv_rec.cle_id IS NOT NULL OR
11854: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11855: l_cplv_rec.cle_id := p_cplv_rec.cle_id;
11856: ELSE
11857: OKL_API.set_message(p_app_name => G_APP_NAME,
11858: p_msg_name => G_REQUIRED_VALUE,
11853: IF (p_cplv_rec.cle_id IS NOT NULL OR
11854: p_cplv_rec.cle_id <> OKL_API.G_MISS_NUM) THEN
11855: l_cplv_rec.cle_id := p_cplv_rec.cle_id;
11856: ELSE
11857: OKL_API.set_message(p_app_name => G_APP_NAME,
11858: p_msg_name => G_REQUIRED_VALUE,
11859: p_token1 => G_COL_NAME_TOKEN,
11860: p_token1_value => 'cle_id in creation party roles');
11861: RAISE OKL_API.G_EXCEPTION_ERROR;
11857: OKL_API.set_message(p_app_name => G_APP_NAME,
11858: p_msg_name => G_REQUIRED_VALUE,
11859: p_token1 => G_COL_NAME_TOKEN,
11860: p_token1_value => 'cle_id in creation party roles');
11861: RAISE OKL_API.G_EXCEPTION_ERROR;
11862: END IF;
11863: l_cplv_rec.chr_id := null;
11864: -- Creation of Party Item Record for the above record information
11865: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
11885: x_cplv_rec => x_cplv_rec,
11886: p_kplv_rec => l_kplv_rec,
11887: x_kplv_rec => x_kplv_rec);
11888:
11889: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11890: OKL_API.set_message(p_app_name => G_APP_NAME,
11891: p_msg_name => G_CREATION_PARTY_ROLE);
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11886: p_kplv_rec => l_kplv_rec,
11887: x_kplv_rec => x_kplv_rec);
11888:
11889: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11890: OKL_API.set_message(p_app_name => G_APP_NAME,
11891: p_msg_name => G_CREATION_PARTY_ROLE);
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11894: OKL_API.set_message(p_app_name => G_APP_NAME,
11888:
11889: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11890: OKL_API.set_message(p_app_name => G_APP_NAME,
11891: p_msg_name => G_CREATION_PARTY_ROLE);
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11894: OKL_API.set_message(p_app_name => G_APP_NAME,
11895: p_msg_name => G_CREATION_PARTY_ROLE);
11896: RAISE OKL_API.G_EXCEPTION_ERROR;
11889: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11890: OKL_API.set_message(p_app_name => G_APP_NAME,
11891: p_msg_name => G_CREATION_PARTY_ROLE);
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11894: OKL_API.set_message(p_app_name => G_APP_NAME,
11895: p_msg_name => G_CREATION_PARTY_ROLE);
11896: RAISE OKL_API.G_EXCEPTION_ERROR;
11897: END IF;
11890: OKL_API.set_message(p_app_name => G_APP_NAME,
11891: p_msg_name => G_CREATION_PARTY_ROLE);
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11894: OKL_API.set_message(p_app_name => G_APP_NAME,
11895: p_msg_name => G_CREATION_PARTY_ROLE);
11896: RAISE OKL_API.G_EXCEPTION_ERROR;
11897: END IF;
11898: ELSE
11892: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11893: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11894: OKL_API.set_message(p_app_name => G_APP_NAME,
11895: p_msg_name => G_CREATION_PARTY_ROLE);
11896: RAISE OKL_API.G_EXCEPTION_ERROR;
11897: END IF;
11898: ELSE
11899: OKL_API.set_message(p_app_name => G_APP_NAME,
11900: p_msg_name => G_INVALID_CRITERIA,
11895: p_msg_name => G_CREATION_PARTY_ROLE);
11896: RAISE OKL_API.G_EXCEPTION_ERROR;
11897: END IF;
11898: ELSE
11899: OKL_API.set_message(p_app_name => G_APP_NAME,
11900: p_msg_name => G_INVALID_CRITERIA,
11901: p_token1 => 'LINE_STYLE',
11902: p_token1_value => 'Model/Addon Line for Party Roles');
11903: x_return_status := OKL_API.G_RET_STS_ERROR;
11899: OKL_API.set_message(p_app_name => G_APP_NAME,
11900: p_msg_name => G_INVALID_CRITERIA,
11901: p_token1 => 'LINE_STYLE',
11902: p_token1_value => 'Model/Addon Line for Party Roles');
11903: x_return_status := OKL_API.G_RET_STS_ERROR;
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906: OKL_API.END_ACTIVITY (x_msg_count,
11907: x_msg_data );
11900: p_msg_name => G_INVALID_CRITERIA,
11901: p_token1 => 'LINE_STYLE',
11902: p_token1_value => 'Model/Addon Line for Party Roles');
11903: x_return_status := OKL_API.G_RET_STS_ERROR;
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906: OKL_API.END_ACTIVITY (x_msg_count,
11907: x_msg_data );
11908: EXCEPTION
11902: p_token1_value => 'Model/Addon Line for Party Roles');
11903: x_return_status := OKL_API.G_RET_STS_ERROR;
11904: RAISE OKL_API.G_EXCEPTION_ERROR;
11905: END IF;
11906: OKL_API.END_ACTIVITY (x_msg_count,
11907: x_msg_data );
11908: EXCEPTION
11909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11910: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11905: END IF;
11906: OKL_API.END_ACTIVITY (x_msg_count,
11907: x_msg_data );
11908: EXCEPTION
11909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11910: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11911: l_api_name,
11912: G_PKG_NAME,
11913: 'OKL_API.G_RET_STS_ERROR',
11906: OKL_API.END_ACTIVITY (x_msg_count,
11907: x_msg_data );
11908: EXCEPTION
11909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11910: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11911: l_api_name,
11912: G_PKG_NAME,
11913: 'OKL_API.G_RET_STS_ERROR',
11914: x_msg_count,
11909: WHEN OKL_API.G_EXCEPTION_ERROR THEN
11910: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11911: l_api_name,
11912: G_PKG_NAME,
11913: 'OKL_API.G_RET_STS_ERROR',
11914: x_msg_count,
11915: x_msg_data,
11916: '_PVT');
11917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11913: 'OKL_API.G_RET_STS_ERROR',
11914: x_msg_count,
11915: x_msg_data,
11916: '_PVT');
11917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11918: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11919: l_api_name,
11920: G_PKG_NAME,
11921: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11914: x_msg_count,
11915: x_msg_data,
11916: '_PVT');
11917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11918: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11919: l_api_name,
11920: G_PKG_NAME,
11921: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11922: x_msg_count,
11917: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11918: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11919: l_api_name,
11920: G_PKG_NAME,
11921: 'OKL_API.G_RET_STS_UNEXP_ERROR',
11922: x_msg_count,
11923: x_msg_data,
11924: '_PVT');
11925: WHEN OTHERS THEN
11922: x_msg_count,
11923: x_msg_data,
11924: '_PVT');
11925: WHEN OTHERS THEN
11926: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
11927: l_api_name,
11928: G_PKG_NAME,
11929: 'OTHERS',
11930: x_msg_count,
11953: --Bug# 4558486
11954: l_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11955: x_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
11956: BEGIN
11957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11958: -- Call start_activity to create savepoint, check compatibility
11959: -- and initialize message list
11960: x_return_status := OKL_API.START_ACTIVITY (
11961: l_api_name
11956: BEGIN
11957: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11958: -- Call start_activity to create savepoint, check compatibility
11959: -- and initialize message list
11960: x_return_status := OKL_API.START_ACTIVITY (
11961: l_api_name
11962: ,p_init_msg_list
11963: ,'_PVT'
11964: ,x_return_status);
11962: ,p_init_msg_list
11963: ,'_PVT'
11964: ,x_return_status);
11965: -- Check if activity started successfully
11966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11969: RAISE OKL_API.G_EXCEPTION_ERROR;
11970: END IF;
11963: ,'_PVT'
11964: ,x_return_status);
11965: -- Check if activity started successfully
11966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11969: RAISE OKL_API.G_EXCEPTION_ERROR;
11970: END IF;
11971: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11964: ,x_return_status);
11965: -- Check if activity started successfully
11966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11969: RAISE OKL_API.G_EXCEPTION_ERROR;
11970: END IF;
11971: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11972: x_cplv_rec => l_cplv_rec);
11965: -- Check if activity started successfully
11966: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11967: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11968: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11969: RAISE OKL_API.G_EXCEPTION_ERROR;
11970: END IF;
11971: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11972: x_cplv_rec => l_cplv_rec);
11973: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11969: RAISE OKL_API.G_EXCEPTION_ERROR;
11970: END IF;
11971: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11972: x_cplv_rec => l_cplv_rec);
11973: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11974: OKL_API.set_message(p_app_name => G_APP_NAME,
11975: p_msg_name => G_FETCHING_INFO,
11976: p_token1 => G_REC_NAME_TOKEN,
11977: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11970: END IF;
11971: x_return_status := get_rec_cplv(p_cplv_id => p_cplv_rec.id,
11972: x_cplv_rec => l_cplv_rec);
11973: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11974: OKL_API.set_message(p_app_name => G_APP_NAME,
11975: p_msg_name => G_FETCHING_INFO,
11976: p_token1 => G_REC_NAME_TOKEN,
11977: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11974: OKL_API.set_message(p_app_name => G_APP_NAME,
11975: p_msg_name => G_FETCHING_INFO,
11976: p_token1 => G_REC_NAME_TOKEN,
11977: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11980: OKL_API.set_message(p_app_name => G_APP_NAME,
11981: p_msg_name => G_FETCHING_INFO,
11982: p_token1 => G_REC_NAME_TOKEN,
11975: p_msg_name => G_FETCHING_INFO,
11976: p_token1 => G_REC_NAME_TOKEN,
11977: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11980: OKL_API.set_message(p_app_name => G_APP_NAME,
11981: p_msg_name => G_FETCHING_INFO,
11982: p_token1 => G_REC_NAME_TOKEN,
11983: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11976: p_token1 => G_REC_NAME_TOKEN,
11977: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11980: OKL_API.set_message(p_app_name => G_APP_NAME,
11981: p_msg_name => G_FETCHING_INFO,
11982: p_token1 => G_REC_NAME_TOKEN,
11983: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11984: RAISE OKL_API.G_EXCEPTION_ERROR;
11980: OKL_API.set_message(p_app_name => G_APP_NAME,
11981: p_msg_name => G_FETCHING_INFO,
11982: p_token1 => G_REC_NAME_TOKEN,
11983: p_token1_value => 'OKC_K_PARTY_ROLES_V Record');
11984: RAISE OKL_API.G_EXCEPTION_ERROR;
11985: END IF;
11986: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11987: x_clev_rec => l_clev_rec);
11988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11984: RAISE OKL_API.G_EXCEPTION_ERROR;
11985: END IF;
11986: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11987: x_clev_rec => l_clev_rec);
11988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11989: OKL_API.set_message(p_app_name => G_APP_NAME,
11990: p_msg_name => G_FETCHING_INFO,
11991: p_token1 => G_REC_NAME_TOKEN,
11992: p_token1_value => 'OKC_K_ITEMS_V Record');
11985: END IF;
11986: x_return_status := get_rec_clev(p_id => l_cplv_rec.cle_id,
11987: x_clev_rec => l_clev_rec);
11988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11989: OKL_API.set_message(p_app_name => G_APP_NAME,
11990: p_msg_name => G_FETCHING_INFO,
11991: p_token1 => G_REC_NAME_TOKEN,
11992: p_token1_value => 'OKC_K_ITEMS_V Record');
11993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11989: OKL_API.set_message(p_app_name => G_APP_NAME,
11990: p_msg_name => G_FETCHING_INFO,
11991: p_token1 => G_REC_NAME_TOKEN,
11992: p_token1_value => 'OKC_K_ITEMS_V Record');
11993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11995: OKL_API.set_message(p_app_name => G_APP_NAME,
11996: p_msg_name => G_FETCHING_INFO,
11997: p_token1 => G_REC_NAME_TOKEN,
11990: p_msg_name => G_FETCHING_INFO,
11991: p_token1 => G_REC_NAME_TOKEN,
11992: p_token1_value => 'OKC_K_ITEMS_V Record');
11993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11995: OKL_API.set_message(p_app_name => G_APP_NAME,
11996: p_msg_name => G_FETCHING_INFO,
11997: p_token1 => G_REC_NAME_TOKEN,
11998: p_token1_value => 'OKC_K_ITEMS_V Record');
11991: p_token1 => G_REC_NAME_TOKEN,
11992: p_token1_value => 'OKC_K_ITEMS_V Record');
11993: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11995: OKL_API.set_message(p_app_name => G_APP_NAME,
11996: p_msg_name => G_FETCHING_INFO,
11997: p_token1 => G_REC_NAME_TOKEN,
11998: p_token1_value => 'OKC_K_ITEMS_V Record');
11999: RAISE OKL_API.G_EXCEPTION_ERROR;
11995: OKL_API.set_message(p_app_name => G_APP_NAME,
11996: p_msg_name => G_FETCHING_INFO,
11997: p_token1 => G_REC_NAME_TOKEN,
11998: p_token1_value => 'OKC_K_ITEMS_V Record');
11999: RAISE OKL_API.G_EXCEPTION_ERROR;
12000: END IF;
12001: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
12002: x_klev_rec => l_klev_rec);
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11999: RAISE OKL_API.G_EXCEPTION_ERROR;
12000: END IF;
12001: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
12002: x_klev_rec => l_klev_rec);
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: OKL_API.set_message(p_app_name => G_APP_NAME,
12005: p_msg_name => G_FETCHING_INFO,
12006: p_token1 => G_REC_NAME_TOKEN,
12007: p_token1_value => 'OKL_K_ITEMS_V Record');
12000: END IF;
12001: x_return_status := get_rec_klev(p_id => l_cplv_rec.cle_id,
12002: x_klev_rec => l_klev_rec);
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: OKL_API.set_message(p_app_name => G_APP_NAME,
12005: p_msg_name => G_FETCHING_INFO,
12006: p_token1 => G_REC_NAME_TOKEN,
12007: p_token1_value => 'OKL_K_ITEMS_V Record');
12008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12004: OKL_API.set_message(p_app_name => G_APP_NAME,
12005: p_msg_name => G_FETCHING_INFO,
12006: p_token1 => G_REC_NAME_TOKEN,
12007: p_token1_value => 'OKL_K_ITEMS_V Record');
12008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12010: OKL_API.set_message(p_app_name => G_APP_NAME,
12011: p_msg_name => G_FETCHING_INFO,
12012: p_token1 => G_REC_NAME_TOKEN,
12005: p_msg_name => G_FETCHING_INFO,
12006: p_token1 => G_REC_NAME_TOKEN,
12007: p_token1_value => 'OKL_K_ITEMS_V Record');
12008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12010: OKL_API.set_message(p_app_name => G_APP_NAME,
12011: p_msg_name => G_FETCHING_INFO,
12012: p_token1 => G_REC_NAME_TOKEN,
12013: p_token1_value => 'OKL_K_ITEMS_V Record');
12006: p_token1 => G_REC_NAME_TOKEN,
12007: p_token1_value => 'OKL_K_ITEMS_V Record');
12008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12010: OKL_API.set_message(p_app_name => G_APP_NAME,
12011: p_msg_name => G_FETCHING_INFO,
12012: p_token1 => G_REC_NAME_TOKEN,
12013: p_token1_value => 'OKL_K_ITEMS_V Record');
12014: RAISE OKL_API.G_EXCEPTION_ERROR;
12010: OKL_API.set_message(p_app_name => G_APP_NAME,
12011: p_msg_name => G_FETCHING_INFO,
12012: p_token1 => G_REC_NAME_TOKEN,
12013: p_token1_value => 'OKL_K_ITEMS_V Record');
12014: RAISE OKL_API.G_EXCEPTION_ERROR;
12015: END IF;
12016: IF l_clev_rec.id <> l_klev_rec.id THEN
12017: OKL_API.set_message(p_app_name => G_APP_NAME,
12018: p_msg_name => G_LINE_RECORD);
12013: p_token1_value => 'OKL_K_ITEMS_V Record');
12014: RAISE OKL_API.G_EXCEPTION_ERROR;
12015: END IF;
12016: IF l_clev_rec.id <> l_klev_rec.id THEN
12017: OKL_API.set_message(p_app_name => G_APP_NAME,
12018: p_msg_name => G_LINE_RECORD);
12019: x_return_status := OKL_API.G_RET_STS_ERROR;
12020: RAISE OKL_API.G_EXCEPTION_ERROR;
12021: END IF;
12015: END IF;
12016: IF l_clev_rec.id <> l_klev_rec.id THEN
12017: OKL_API.set_message(p_app_name => G_APP_NAME,
12018: p_msg_name => G_LINE_RECORD);
12019: x_return_status := OKL_API.G_RET_STS_ERROR;
12020: RAISE OKL_API.G_EXCEPTION_ERROR;
12021: END IF;
12022: -- Validate Line Style id and get the line type code
12023: -- and line style type for further processing
12016: IF l_clev_rec.id <> l_klev_rec.id THEN
12017: OKL_API.set_message(p_app_name => G_APP_NAME,
12018: p_msg_name => G_LINE_RECORD);
12019: x_return_status := OKL_API.G_RET_STS_ERROR;
12020: RAISE OKL_API.G_EXCEPTION_ERROR;
12021: END IF;
12022: -- Validate Line Style id and get the line type code
12023: -- and line style type for further processing
12024: validate_lse_id(p_clev_rec => l_clev_rec,
12025: x_return_status => x_return_status,
12026: x_lty_code => l_lty_code,
12027: x_lse_type => l_lse_type);
12028: -- Check if activity started successfully
12029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12032: RAISE OKL_API.G_EXCEPTION_ERROR;
12033: END IF;
12026: x_lty_code => l_lty_code,
12027: x_lse_type => l_lse_type);
12028: -- Check if activity started successfully
12029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12032: RAISE OKL_API.G_EXCEPTION_ERROR;
12033: END IF;
12034: -- Validate the Dnz_Chr_id
12027: x_lse_type => l_lse_type);
12028: -- Check if activity started successfully
12029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12032: RAISE OKL_API.G_EXCEPTION_ERROR;
12033: END IF;
12034: -- Validate the Dnz_Chr_id
12035: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
12028: -- Check if activity started successfully
12029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12032: RAISE OKL_API.G_EXCEPTION_ERROR;
12033: END IF;
12034: -- Validate the Dnz_Chr_id
12035: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
12036: x_return_status => x_return_status);
12034: -- Validate the Dnz_Chr_id
12035: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
12036: x_return_status => x_return_status);
12037: -- Check if activity started successfully
12038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_ERROR;
12042: END IF;
12035: validate_dnz_chr_id(p_clev_rec => l_clev_rec,
12036: x_return_status => x_return_status);
12037: -- Check if activity started successfully
12038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_ERROR;
12042: END IF;
12043: -- We can create a party item info only if the line is Model Line
12036: x_return_status => x_return_status);
12037: -- Check if activity started successfully
12038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_ERROR;
12042: END IF;
12043: -- We can create a party item info only if the line is Model Line
12044: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
12037: -- Check if activity started successfully
12038: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_ERROR;
12042: END IF;
12043: -- We can create a party item info only if the line is Model Line
12044: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
12045: l_clev_rec.chr_id IS NULL) AND
12040: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_ERROR;
12042: END IF;
12043: -- We can create a party item info only if the line is Model Line
12044: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
12045: l_clev_rec.chr_id IS NULL) AND
12046: (l_clev_rec.dnz_chr_id IS NOT NULL OR
12047: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
12048: (l_clev_rec.cle_id IS NOT NULL OR
12043: -- We can create a party item info only if the line is Model Line
12044: IF (l_clev_rec.chr_id = OKL_API.G_MISS_NUM OR
12045: l_clev_rec.chr_id IS NULL) AND
12046: (l_clev_rec.dnz_chr_id IS NOT NULL OR
12047: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
12048: (l_clev_rec.cle_id IS NOT NULL OR
12049: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
12050: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
12051: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
12045: l_clev_rec.chr_id IS NULL) AND
12046: (l_clev_rec.dnz_chr_id IS NOT NULL OR
12047: l_clev_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) AND
12048: (l_clev_rec.cle_id IS NOT NULL OR
12049: l_clev_rec.cle_id <> OKL_API.G_MISS_NUM) AND
12050: (l_lty_code = G_MODEL_LINE_LTY_CODE OR
12051: l_lty_code = G_ADDON_LINE_LTY_CODE) AND
12052: l_lse_type = G_SLS_TYPE THEN
12053: l_cplv_rec.object1_id1 := p_cplv_rec.object1_id1;
12076: x_cplv_rec => x_cplv_rec,
12077: p_kplv_rec => l_kplv_rec,
12078: x_kplv_rec => x_kplv_rec);
12079:
12080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12081: OKL_API.set_message(p_app_name => G_APP_NAME,
12082: p_msg_name => G_UPDATING_PARTY_ROLE);
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12077: p_kplv_rec => l_kplv_rec,
12078: x_kplv_rec => x_kplv_rec);
12079:
12080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12081: OKL_API.set_message(p_app_name => G_APP_NAME,
12082: p_msg_name => G_UPDATING_PARTY_ROLE);
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12085: OKL_API.set_message(p_app_name => G_APP_NAME,
12079:
12080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12081: OKL_API.set_message(p_app_name => G_APP_NAME,
12082: p_msg_name => G_UPDATING_PARTY_ROLE);
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12085: OKL_API.set_message(p_app_name => G_APP_NAME,
12086: p_msg_name => G_UPDATING_PARTY_ROLE);
12087: RAISE OKL_API.G_EXCEPTION_ERROR;
12080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12081: OKL_API.set_message(p_app_name => G_APP_NAME,
12082: p_msg_name => G_UPDATING_PARTY_ROLE);
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12085: OKL_API.set_message(p_app_name => G_APP_NAME,
12086: p_msg_name => G_UPDATING_PARTY_ROLE);
12087: RAISE OKL_API.G_EXCEPTION_ERROR;
12088: END IF;
12081: OKL_API.set_message(p_app_name => G_APP_NAME,
12082: p_msg_name => G_UPDATING_PARTY_ROLE);
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12085: OKL_API.set_message(p_app_name => G_APP_NAME,
12086: p_msg_name => G_UPDATING_PARTY_ROLE);
12087: RAISE OKL_API.G_EXCEPTION_ERROR;
12088: END IF;
12089: ELSE
12083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12084: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12085: OKL_API.set_message(p_app_name => G_APP_NAME,
12086: p_msg_name => G_UPDATING_PARTY_ROLE);
12087: RAISE OKL_API.G_EXCEPTION_ERROR;
12088: END IF;
12089: ELSE
12090: OKL_API.set_message(p_app_name => G_APP_NAME,
12091: p_msg_name => G_INVALID_CRITERIA,
12086: p_msg_name => G_UPDATING_PARTY_ROLE);
12087: RAISE OKL_API.G_EXCEPTION_ERROR;
12088: END IF;
12089: ELSE
12090: OKL_API.set_message(p_app_name => G_APP_NAME,
12091: p_msg_name => G_INVALID_CRITERIA,
12092: p_token1 => G_COL_NAME_TOKEN,
12093: p_token1_value => 'Model/Addon Line for Party Roles');
12094: x_return_status := OKL_API.G_RET_STS_ERROR;
12090: OKL_API.set_message(p_app_name => G_APP_NAME,
12091: p_msg_name => G_INVALID_CRITERIA,
12092: p_token1 => G_COL_NAME_TOKEN,
12093: p_token1_value => 'Model/Addon Line for Party Roles');
12094: x_return_status := OKL_API.G_RET_STS_ERROR;
12095: RAISE OKL_API.G_EXCEPTION_ERROR;
12096: END IF;
12097: -- We need to change the status of the header whenever there is updating happening
12098: -- after the contract status is approved
12091: p_msg_name => G_INVALID_CRITERIA,
12092: p_token1 => G_COL_NAME_TOKEN,
12093: p_token1_value => 'Model/Addon Line for Party Roles');
12094: x_return_status := OKL_API.G_RET_STS_ERROR;
12095: RAISE OKL_API.G_EXCEPTION_ERROR;
12096: END IF;
12097: -- We need to change the status of the header whenever there is updating happening
12098: -- after the contract status is approved
12099: IF (x_cplv_rec.dnz_chr_id is NOT NULL) AND
12096: END IF;
12097: -- We need to change the status of the header whenever there is updating happening
12098: -- after the contract status is approved
12099: IF (x_cplv_rec.dnz_chr_id is NOT NULL) AND
12100: (x_cplv_rec.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
12101: --cascade edit status on to lines
12102: okl_contract_status_pub.cascade_lease_status_edit
12103: (p_api_version => p_api_version,
12104: p_init_msg_list => p_init_msg_list,
12105: x_return_status => x_return_status,
12106: x_msg_count => x_msg_count,
12107: x_msg_data => x_msg_data,
12108: p_chr_id => x_cplv_rec.dnz_chr_id);
12109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12112: RAISE OKL_API.G_EXCEPTION_ERROR;
12113: END IF;
12106: x_msg_count => x_msg_count,
12107: x_msg_data => x_msg_data,
12108: p_chr_id => x_cplv_rec.dnz_chr_id);
12109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12112: RAISE OKL_API.G_EXCEPTION_ERROR;
12113: END IF;
12114: END IF;
12107: x_msg_data => x_msg_data,
12108: p_chr_id => x_cplv_rec.dnz_chr_id);
12109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12112: RAISE OKL_API.G_EXCEPTION_ERROR;
12113: END IF;
12114: END IF;
12115: OKL_API.END_ACTIVITY (x_msg_count,
12108: p_chr_id => x_cplv_rec.dnz_chr_id);
12109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12112: RAISE OKL_API.G_EXCEPTION_ERROR;
12113: END IF;
12114: END IF;
12115: OKL_API.END_ACTIVITY (x_msg_count,
12116: x_msg_data );
12111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12112: RAISE OKL_API.G_EXCEPTION_ERROR;
12113: END IF;
12114: END IF;
12115: OKL_API.END_ACTIVITY (x_msg_count,
12116: x_msg_data );
12117: EXCEPTION
12118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12114: END IF;
12115: OKL_API.END_ACTIVITY (x_msg_count,
12116: x_msg_data );
12117: EXCEPTION
12118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12120: l_api_name,
12121: G_PKG_NAME,
12122: 'OKL_API.G_RET_STS_ERROR',
12115: OKL_API.END_ACTIVITY (x_msg_count,
12116: x_msg_data );
12117: EXCEPTION
12118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12120: l_api_name,
12121: G_PKG_NAME,
12122: 'OKL_API.G_RET_STS_ERROR',
12123: x_msg_count,
12118: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12119: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12120: l_api_name,
12121: G_PKG_NAME,
12122: 'OKL_API.G_RET_STS_ERROR',
12123: x_msg_count,
12124: x_msg_data,
12125: '_PVT');
12126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12122: 'OKL_API.G_RET_STS_ERROR',
12123: x_msg_count,
12124: x_msg_data,
12125: '_PVT');
12126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12127: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12128: l_api_name,
12129: G_PKG_NAME,
12130: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12123: x_msg_count,
12124: x_msg_data,
12125: '_PVT');
12126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12127: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12128: l_api_name,
12129: G_PKG_NAME,
12130: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12131: x_msg_count,
12126: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12127: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12128: l_api_name,
12129: G_PKG_NAME,
12130: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12131: x_msg_count,
12132: x_msg_data,
12133: '_PVT');
12134: WHEN OTHERS THEN
12131: x_msg_count,
12132: x_msg_data,
12133: '_PVT');
12134: WHEN OTHERS THEN
12135: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12136: l_api_name,
12137: G_PKG_NAME,
12138: 'OTHERS',
12139: x_msg_count,
12166: x_msg_data OUT NOCOPY VARCHAR2,
12167: p_asset_id IN NUMBER,
12168: x_pending_trx_yn OUT NOCOPY VARCHAR2) is
12169:
12170: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
12171: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_OFF_LEASE_TRX';
12172: l_api_version CONSTANT NUMBER := 1.0;
12173:
12174: --cursor to find whether unprocessed off lease transaction exists
12188:
12189: l_off_lease_trx_exists varchar2(1);
12190:
12191: Begin
12192: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12193: -- Call start_activity to create savepoint, check compatibility
12194: -- and initialize message list
12195: x_return_status := Okl_Api.START_ACTIVITY(
12196: p_api_name => l_api_name,
12191: Begin
12192: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12193: -- Call start_activity to create savepoint, check compatibility
12194: -- and initialize message list
12195: x_return_status := Okl_Api.START_ACTIVITY(
12196: p_api_name => l_api_name,
12197: p_pkg_name => g_pkg_name,
12198: p_init_msg_list => p_init_msg_list,
12199: l_api_version => l_api_version,
12202: x_return_status => x_return_status);
12203: -- Check if activity started successfully
12204: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12205: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12206: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12207: RAISE Okc_Api.G_EXCEPTION_ERROR;
12208: END IF;
12209:
12210: --check with cursor
12217: close l_off_lease_csr;
12218:
12219: x_pending_trx_yn := l_off_lease_trx_exists;
12220: EXCEPTION
12221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12222: if l_off_lease_csr%ISOPEN then
12223: close l_off_lease_csr;
12224: end if;
12225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12222: if l_off_lease_csr%ISOPEN then
12223: close l_off_lease_csr;
12224: end if;
12225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12226: l_api_name,
12227: G_PKG_NAME,
12228: 'OKL_API.G_RET_STS_ERROR',
12229: x_msg_count,
12224: end if;
12225: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
12226: l_api_name,
12227: G_PKG_NAME,
12228: 'OKL_API.G_RET_STS_ERROR',
12229: x_msg_count,
12230: x_msg_data,
12231: '_PVT');
12232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12228: 'OKL_API.G_RET_STS_ERROR',
12229: x_msg_count,
12230: x_msg_data,
12231: '_PVT');
12232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12233: if l_off_lease_csr%ISOPEN then
12234: close l_off_lease_csr;
12235: end if;
12236: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12233: if l_off_lease_csr%ISOPEN then
12234: close l_off_lease_csr;
12235: end if;
12236: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12237: l_api_name,
12238: G_PKG_NAME,
12239: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12240: x_msg_count,
12235: end if;
12236: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12237: l_api_name,
12238: G_PKG_NAME,
12239: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12240: x_msg_count,
12241: x_msg_data,
12242: '_PVT');
12243: WHEN OTHERS THEN
12243: WHEN OTHERS THEN
12244: if l_off_lease_csr%ISOPEN then
12245: close l_off_lease_csr;
12246: end if;
12247: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
12248: l_api_name,
12249: G_PKG_NAME,
12250: 'OTHERS',
12251: x_msg_count,
12285: l_rep_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
12286: l_pdt_date DATE;
12287: l_no_data_found BOOLEAN;
12288: l_error_condition Exception;
12289: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
12290:
12291: --cursor to get pdt_id and k_start date
12292: cursor l_chr_csr (p_chr_id in number) is
12293: SELECT chrb.start_date,
12311:
12312: l_pdtv_rec.id := l_chr_rec.pdt_id;
12313: l_pdt_date := l_chr_rec.start_date;
12314: l_no_data_found := TRUE;
12315: x_return_status := OKL_API.G_RET_STS_SUCCESS;
12316:
12317: okl_setupproducts_pub.Getpdt_parameters(p_api_version => p_api_version,
12318: p_init_msg_list => p_init_msg_list,
12319: x_return_status => l_return_status,
12323: p_pdtv_rec => l_pdtv_rec,
12324: p_product_date => l_pdt_date,
12325: p_pdt_parameter_rec => l_pdt_parameter_rec);
12326:
12327: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
12328: x_rep_pdt_id := Null;
12329: x_tax_owner := Null;
12330: Else
12331: x_rep_pdt_id := l_pdt_parameter_rec.reporting_pdt_id;
12343: p_pdtv_rec => l_pdtv_rec,
12344: p_product_date => l_pdt_date,
12345: p_pdt_parameter_rec => l_rep_pdt_parameter_rec);
12346:
12347: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS Then
12348: x_rep_deal_type := NULL;
12349: Else
12350: x_rep_deal_type := l_rep_pdt_parameter_rec.deal_type;
12351: End If;
12359: When Others Then
12360: If l_chr_csr%ISOPEN then
12361: close l_chr_csr;
12362: End If;
12363: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
12364: End Get_Pdt_Params;
12365: --Bug# 3631094
12366:
12367: --Bug# 3950089: start
12383: p_chr_id IN NUMBER,
12384: p_release_date IN DATE,
12385: x_nbv OUT NOCOPY Number) IS
12386:
12387: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
12388: l_api_name CONSTANT VARCHAR2(30) := 'GET_NBV';
12389: l_api_version CONSTANT NUMBER := 1.0;
12390:
12391: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
12400: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
12401:
12402: BEGIN
12403: --call start activity to set savepoint
12404: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
12405: p_init_msg_list,
12406: '_PVT',
12407: x_return_status);
12408: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12404: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
12405: p_init_msg_list,
12406: '_PVT',
12407: x_return_status);
12408: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12411: RAISE OKL_API.G_EXCEPTION_ERROR;
12412: END IF;
12405: p_init_msg_list,
12406: '_PVT',
12407: x_return_status);
12408: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12411: RAISE OKL_API.G_EXCEPTION_ERROR;
12412: END IF;
12413:
12406: '_PVT',
12407: x_return_status);
12408: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12411: RAISE OKL_API.G_EXCEPTION_ERROR;
12412: END IF;
12413:
12414: l_asset_hdr_rec.asset_id := p_asset_id;
12407: x_return_status);
12408: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12410: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
12411: RAISE OKL_API.G_EXCEPTION_ERROR;
12412: END IF;
12413:
12414: l_asset_hdr_rec.asset_id := p_asset_id;
12415: l_asset_hdr_rec.book_type_code := p_book_type_code;
12414: l_asset_hdr_rec.asset_id := p_asset_id;
12415: l_asset_hdr_rec.book_type_code := p_book_type_code;
12416:
12417: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
12418: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12419: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12420: );
12421: Raise OKL_API.G_EXCEPTION_ERROR;
12422: end if;
12417: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
12418: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12419: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
12420: );
12421: Raise OKL_API.G_EXCEPTION_ERROR;
12422: end if;
12423:
12424: -- To fetch Asset Current Cost
12425: if not FA_UTIL_PVT.get_asset_fin_rec
12428: p_transaction_header_id => NULL,
12429: p_mrc_sob_type_code => 'P'
12430: ) then
12431:
12432: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12433: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12434: );
12435: Raise OKL_API.G_EXCEPTION_ERROR;
12436: end if;
12431:
12432: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12433: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
12434: );
12435: Raise OKL_API.G_EXCEPTION_ERROR;
12436: end if;
12437:
12438: -- To fetch Depreciation Reserve
12439: if not FA_UTIL_PVT.get_asset_deprn_rec
12441: px_asset_deprn_rec => l_asset_deprn_rec,
12442: p_period_counter => NULL,
12443: p_mrc_sob_type_code => 'P'
12444: ) then
12445: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12446: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12447: );
12448: Raise OKL_API.G_EXCEPTION_ERROR;
12449: end if;
12444: ) then
12445: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
12446: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
12447: );
12448: Raise OKL_API.G_EXCEPTION_ERROR;
12449: end if;
12450:
12451: l_nbv := l_asset_fin_rec.cost - l_asset_deprn_rec.deprn_reserve;
12452:
12462: x_currency_conversion_rate => l_currency_conversion_rate,
12463: x_currency_conversion_date => l_currency_conversion_date,
12464: x_converted_amount => l_converted_amount);
12465:
12466: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12467: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12468: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12469: RAISE Okl_Api.G_EXCEPTION_ERROR;
12470: END IF;
12463: x_currency_conversion_date => l_currency_conversion_date,
12464: x_converted_amount => l_converted_amount);
12465:
12466: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12467: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12468: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12469: RAISE Okl_Api.G_EXCEPTION_ERROR;
12470: END IF;
12471:
12465:
12466: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
12467: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
12468: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
12469: RAISE Okl_Api.G_EXCEPTION_ERROR;
12470: END IF;
12471:
12472: x_nbv := l_converted_amount;
12473:
12471:
12472: x_nbv := l_converted_amount;
12473:
12474: --Call end Activity
12475: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12476: EXCEPTION
12477: WHEN OKL_API.G_EXCEPTION_ERROR Then
12478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12479: (
12473:
12474: --Call end Activity
12475: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12476: EXCEPTION
12477: WHEN OKL_API.G_EXCEPTION_ERROR Then
12478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12479: (
12480: l_api_name,
12481: G_PKG_NAME,
12474: --Call end Activity
12475: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
12476: EXCEPTION
12477: WHEN OKL_API.G_EXCEPTION_ERROR Then
12478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12479: (
12480: l_api_name,
12481: G_PKG_NAME,
12482: 'OKL_API.G_RET_STS_ERROR',
12478: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12479: (
12480: l_api_name,
12481: G_PKG_NAME,
12482: 'OKL_API.G_RET_STS_ERROR',
12483: x_msg_count,
12484: x_msg_data,
12485: '_PVT'
12486: );
12483: x_msg_count,
12484: x_msg_data,
12485: '_PVT'
12486: );
12487: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12488: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12489: (
12490: l_api_name,
12491: G_PKG_NAME,
12484: x_msg_data,
12485: '_PVT'
12486: );
12487: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
12488: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12489: (
12490: l_api_name,
12491: G_PKG_NAME,
12492: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12488: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12489: (
12490: l_api_name,
12491: G_PKG_NAME,
12492: 'OKL_API.G_RET_STS_UNEXP_ERROR',
12493: x_msg_count,
12494: x_msg_data,
12495: '_PVT'
12496: );
12494: x_msg_data,
12495: '_PVT'
12496: );
12497: WHEN OTHERS THEN
12498: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
12499: (
12500: l_api_name,
12501: G_PKG_NAME,
12502: 'OTHERS',
12520: p_chr_id IN NUMBER,
12521: x_cle_id OUT NOCOPY NUMBER) IS
12522:
12523:
12524: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
12525: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELEASE_ASSET';
12526: l_api_version CONSTANT NUMBER := 1.0;
12527:
12528: --cursor to fetch original financial asset line id
12836: l_termination_date varchar2(240);
12837: l_k_start_date varchar2(240);
12838: --Bug# 4869443
12839: BEGIN
12840: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12841: -- Call start_activity to create savepoint, check compatibility
12842: -- and initialize message list
12843: x_return_status := Okl_Api.START_ACTIVITY(
12844: p_api_name => l_api_name,
12839: BEGIN
12840: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
12841: -- Call start_activity to create savepoint, check compatibility
12842: -- and initialize message list
12843: x_return_status := Okl_Api.START_ACTIVITY(
12844: p_api_name => l_api_name,
12845: p_pkg_name => g_pkg_name,
12846: p_init_msg_list => p_init_msg_list,
12847: l_api_version => l_api_version,
12850: x_return_status => x_return_status);
12851: -- Check if activity started successfully
12852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12855: RAISE Okc_Api.G_EXCEPTION_ERROR;
12856: END IF;
12857:
12858: --------------------------------
12867: close l_chk_rbk_csr;
12868:
12869:
12870: If l_rbk_yn = 'Y' then
12871: OKL_API.set_message(
12872: p_app_name => G_APP_NAME,
12873: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
12874: x_return_status := OKC_API.G_RET_STS_ERROR;
12875: RAISE OKL_API.G_EXCEPTION_ERROR;
12871: OKL_API.set_message(
12872: p_app_name => G_APP_NAME,
12873: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
12874: x_return_status := OKC_API.G_RET_STS_ERROR;
12875: RAISE OKL_API.G_EXCEPTION_ERROR;
12876:
12877: End If;
12878:
12879: ------------------
12900: p_asset_id => p_asset_id,
12901: x_pending_trx_yn => l_pending_trx_yn);
12902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
12903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
12904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
12905: RAISE Okc_Api.G_EXCEPTION_ERROR;
12906: END IF;
12907:
12908: If l_pending_trx_yn = 'Y' then
12913: null;
12914: end if;
12915: close l_asset_no_csr;
12916:
12917: OKL_API.set_message(
12918: p_app_name => G_APP_NAME,
12919: p_msg_name => 'OKL_LA_OFF_LEASE_TRX',
12920: p_token1 => 'ASSET_NUMBER',
12921: p_token1_value => l_asset_number);
12919: p_msg_name => 'OKL_LA_OFF_LEASE_TRX',
12920: p_token1 => 'ASSET_NUMBER',
12921: p_token1_value => l_asset_number);
12922: x_return_status := OKC_API.G_RET_STS_ERROR;
12923: RAISE OKL_API.G_EXCEPTION_ERROR;
12924:
12925: End If;
12926:
12927:
12932: Fetch l_orig_ast_csr into l_orig_ast_rec;
12933: If l_orig_ast_csr%NOTFOUND then
12934: --raise error: Unable to fetch data for asset to release
12935: --from the old contract
12936: OKL_API.set_message(p_app_name => G_APP_NAME,
12937: p_msg_name => 'OKL_LA_RELEASE_AST_DTLS');
12938: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958
12939: End If;
12940: Close l_orig_ast_csr;
12934: --raise error: Unable to fetch data for asset to release
12935: --from the old contract
12936: OKL_API.set_message(p_app_name => G_APP_NAME,
12937: p_msg_name => 'OKL_LA_RELEASE_AST_DTLS');
12938: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958
12939: End If;
12940: Close l_orig_ast_csr;
12941:
12942:
12940: Close l_orig_ast_csr;
12941:
12942:
12943: --Bug# 4869443
12944: If nvl(l_hdr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) <> 'OKL_RELEASE' then --is a release asset case
12945: If (l_hdr_rec.start_date <= l_orig_ast_rec.date_terminated) then
12946: -- Raise Error: start date of the contract should not be less than or equal to termination
12947: -- date of the asset.
12948: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
12956: null;
12957: end if;
12958: close l_asset_no_csr;
12959:
12960: OKL_API.set_message(p_app_name => G_APP_NAME,
12961: p_msg_name => 'OKL_LA_RELEASE_AST_TRMN_DATE',
12962: p_token1 => 'TERMINATION_DATE',
12963: p_token1_value => l_termination_date,
12964: p_token2 => 'ASSET_NUMBER',
12964: p_token2 => 'ASSET_NUMBER',
12965: p_token2_value => l_asset_number,
12966: p_token3 => 'CONTRACT_START_DATE',
12967: p_token3_value => l_k_start_date);
12968: RAISE Okl_Api.G_EXCEPTION_ERROR; -- rmunjulu bug 6805958 changed to OKL_API from OKC_API
12969: End If;
12970:
12971: --Bug# 6328924
12972: If (l_hdr_rec.legal_entity_id <> l_orig_ast_rec.legal_entity_id) then
12979: null;
12980: end if;
12981: close l_asset_no_csr;
12982:
12983: OKL_API.set_message(p_app_name => G_APP_NAME,
12984: p_msg_name => 'OKL_LA_RELEASE_ASSET_LGL_ENTY',
12985: p_token1 => 'ASSET_NUMBER',
12986: p_token1_value => l_asset_number);
12987: RAISE Okl_Api.G_EXCEPTION_ERROR;
12983: OKL_API.set_message(p_app_name => G_APP_NAME,
12984: p_msg_name => 'OKL_LA_RELEASE_ASSET_LGL_ENTY',
12985: p_token1 => 'ASSET_NUMBER',
12986: p_token1_value => l_asset_number);
12987: RAISE Okl_Api.G_EXCEPTION_ERROR;
12988: End If;
12989:
12990: End If;
12991: --Bug# 4869443
12999: x_return_status => x_return_status,
13000: x_msg_count => x_msg_count,
13001: x_msg_data => x_msg_data,
13002: p_from_cle_id => l_orig_ast_rec.finasst_id,
13003: p_to_cle_id => OKL_API.G_MISS_NUM ,
13004: p_to_chr_id => p_chr_id,
13005: p_to_template_yn => 'N',
13006: p_copy_reference => 'COPY',
13007: p_copy_line_party_yn => 'N',
13007: p_copy_line_party_yn => 'N',
13008: p_renew_ref_yn => 'N',
13009: p_trans_type => 'CRL',
13010: x_cle_id => l_new_finasst_id);
13011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13012: RAISE OKL_API.G_EXCEPTION_ERROR;
13013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: END IF;
13008: p_renew_ref_yn => 'N',
13009: p_trans_type => 'CRL',
13010: x_cle_id => l_new_finasst_id);
13011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13012: RAISE OKL_API.G_EXCEPTION_ERROR;
13013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: END IF;
13016:
13009: p_trans_type => 'CRL',
13010: x_cle_id => l_new_finasst_id);
13011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13012: RAISE OKL_API.G_EXCEPTION_ERROR;
13013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: END IF;
13016:
13017: ---------------------------
13010: x_cle_id => l_new_finasst_id);
13011: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13012: RAISE OKL_API.G_EXCEPTION_ERROR;
13013: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: END IF;
13016:
13017: ---------------------------
13018: --3. delete addon lines
13029: x_msg_count => x_msg_count,
13030: x_msg_data => x_msg_data,
13031: p_line_id => l_addonline_id);
13032:
13033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13034: RAISE OKL_API.G_EXCEPTION_ERROR;
13035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13037: END IF;
13030: x_msg_data => x_msg_data,
13031: p_line_id => l_addonline_id);
13032:
13033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13034: RAISE OKL_API.G_EXCEPTION_ERROR;
13035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13037: END IF;
13038: End Loop;
13031: p_line_id => l_addonline_id);
13032:
13033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13034: RAISE OKL_API.G_EXCEPTION_ERROR;
13035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13037: END IF;
13038: End Loop;
13039: Close l_addonline_csr;
13032:
13033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13034: RAISE OKL_API.G_EXCEPTION_ERROR;
13035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13037: END IF;
13038: End Loop;
13039: Close l_addonline_csr;
13040:
13053: x_msg_count => x_msg_count,
13054: x_msg_data => x_msg_data,
13055: p_line_id => l_subsidyline_id);
13056:
13057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13058: RAISE OKL_API.G_EXCEPTION_ERROR;
13059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13061: END IF;
13054: x_msg_data => x_msg_data,
13055: p_line_id => l_subsidyline_id);
13056:
13057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13058: RAISE OKL_API.G_EXCEPTION_ERROR;
13059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13061: END IF;
13062: End Loop;
13055: p_line_id => l_subsidyline_id);
13056:
13057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13058: RAISE OKL_API.G_EXCEPTION_ERROR;
13059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13061: END IF;
13062: End Loop;
13063: Close l_subsidyline_csr;
13056:
13057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13058: RAISE OKL_API.G_EXCEPTION_ERROR;
13059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13061: END IF;
13062: End Loop;
13063: Close l_subsidyline_csr;
13064:
13110: p_klev_rec => l_dt_klev_rec,
13111: x_clev_rec => lx_dt_clev_rec,
13112: x_klev_rec => lx_dt_klev_rec);
13113:
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: END IF;
13111: x_clev_rec => lx_dt_clev_rec,
13112: x_klev_rec => lx_dt_klev_rec);
13113:
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: END IF;
13119:
13112: x_klev_rec => lx_dt_klev_rec);
13113:
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: END IF;
13119:
13120:
13113:
13114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13115: RAISE OKL_API.G_EXCEPTION_ERROR;
13116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13118: END IF;
13119:
13120:
13121: --plug in asset and ib ids
13142: x_msg_data => x_msg_data,
13143: p_cimv_rec => l_upd_cimv_rec,
13144: x_cimv_rec => lx_upd_cimv_rec);
13145:
13146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13150: END IF;
13143: p_cimv_rec => l_upd_cimv_rec,
13144: x_cimv_rec => lx_upd_cimv_rec);
13145:
13146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13150: END IF;
13151: End If;
13144: x_cimv_rec => lx_upd_cimv_rec);
13145:
13146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13150: END IF;
13151: End If;
13152: Close l_cim_csr;
13145:
13146: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13147: RAISE OKL_API.G_EXCEPTION_ERROR;
13148: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13149: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13150: END IF;
13151: End If;
13152: Close l_cim_csr;
13153: End If;
13167: x_msg_count => x_msg_count,
13168: x_msg_data => x_msg_data,
13169: p_rgpv_rec => l_rgpv_rec );
13170:
13171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13172: RAISE OKL_API.G_EXCEPTION_ERROR;
13173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13175: END IF;
13168: x_msg_data => x_msg_data,
13169: p_rgpv_rec => l_rgpv_rec );
13170:
13171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13172: RAISE OKL_API.G_EXCEPTION_ERROR;
13173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13175: END IF;
13176: End Loop;
13169: p_rgpv_rec => l_rgpv_rec );
13170:
13171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13172: RAISE OKL_API.G_EXCEPTION_ERROR;
13173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13175: END IF;
13176: End Loop;
13177: Close l_rgp_csr;
13170:
13171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13172: RAISE OKL_API.G_EXCEPTION_ERROR;
13173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13174: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13175: END IF;
13176: End Loop;
13177: Close l_rgp_csr;
13178:
13190: x_msg_count => x_msg_count,
13191: x_msg_data => x_msg_data,
13192: p_sidv_rec => l_sidv_rec );
13193:
13194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13195: RAISE OKL_API.G_EXCEPTION_ERROR;
13196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13198: END IF;
13191: x_msg_data => x_msg_data,
13192: p_sidv_rec => l_sidv_rec );
13193:
13194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13195: RAISE OKL_API.G_EXCEPTION_ERROR;
13196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13198: END IF;
13199: End Loop;
13192: p_sidv_rec => l_sidv_rec );
13193:
13194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13195: RAISE OKL_API.G_EXCEPTION_ERROR;
13196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13198: END IF;
13199: End Loop;
13200: Close l_sid_csr;
13193:
13194: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13195: RAISE OKL_API.G_EXCEPTION_ERROR;
13196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13198: END IF;
13199: End Loop;
13200: Close l_sid_csr;
13201:
13227: x_msg_data => x_msg_data,
13228: p_cplv_rec => l_cplv_rec,
13229: p_kplv_rec => l_kplv_rec);
13230:
13231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13232: RAISE OKL_API.G_EXCEPTION_ERROR;
13233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13235: END IF;
13228: p_cplv_rec => l_cplv_rec,
13229: p_kplv_rec => l_kplv_rec);
13230:
13231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13232: RAISE OKL_API.G_EXCEPTION_ERROR;
13233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13235: END IF;
13236: End Loop;
13229: p_kplv_rec => l_kplv_rec);
13230:
13231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13232: RAISE OKL_API.G_EXCEPTION_ERROR;
13233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13235: END IF;
13236: End Loop;
13237: Close l_cpl_csr;
13230:
13231: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13232: RAISE OKL_API.G_EXCEPTION_ERROR;
13233: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13235: END IF;
13236: End Loop;
13237: Close l_cpl_csr;
13238: End Loop;
13274: p_chr_id => p_chr_id,
13275: p_release_date => l_hdr_rec.start_date,
13276: x_nbv => l_nbv);
13277:
13278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13280: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: END IF;
13275: p_release_date => l_hdr_rec.start_date,
13276: x_nbv => l_nbv);
13277:
13278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13280: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: END IF;
13283:
13276: x_nbv => l_nbv);
13277:
13278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13280: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: END IF;
13283:
13284: IF l_nbv is not NULL then
13277:
13278: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13280: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13281: RAISE OKL_API.G_EXCEPTION_ERROR;
13282: END IF;
13283:
13284: IF l_nbv is not NULL then
13285: --update okl_txl_Assets
13298: x_talv_rec => lx_talv_rec);
13299:
13300: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13301: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13302: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13303: RAISE Okc_Api.G_EXCEPTION_ERROR;
13304: END IF;
13305: END IF;
13306: --BUG# :END 3569441
13335: p_clev_rec => l_clev_rec,
13336: p_klev_rec => l_klev_rec,
13337: x_clev_rec => lx_clev_rec,
13338: x_klev_rec => lx_klev_rec);
13339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13340: RAISE OKL_API.G_EXCEPTION_ERROR;
13341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: END IF;
13336: p_klev_rec => l_klev_rec,
13337: x_clev_rec => lx_clev_rec,
13338: x_klev_rec => lx_klev_rec);
13339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13340: RAISE OKL_API.G_EXCEPTION_ERROR;
13341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: END IF;
13344:
13337: x_clev_rec => lx_clev_rec,
13338: x_klev_rec => lx_klev_rec);
13339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13340: RAISE OKL_API.G_EXCEPTION_ERROR;
13341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: END IF;
13344:
13345: okl_okc_migration_pvt.update_contract_item
13338: x_klev_rec => lx_klev_rec);
13339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13340: RAISE OKL_API.G_EXCEPTION_ERROR;
13341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: END IF;
13344:
13345: okl_okc_migration_pvt.update_contract_item
13346: (p_api_version => p_api_version,
13349: x_msg_count => x_msg_count,
13350: x_msg_data => x_msg_data,
13351: p_cimv_rec => l_cimv_rec,
13352: x_cimv_rec => lx_cimv_rec);
13353: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13354: RAISE OKL_API.G_EXCEPTION_ERROR;
13355: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13357: END IF;
13350: x_msg_data => x_msg_data,
13351: p_cimv_rec => l_cimv_rec,
13352: x_cimv_rec => lx_cimv_rec);
13353: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13354: RAISE OKL_API.G_EXCEPTION_ERROR;
13355: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13357: END IF;
13358:
13351: p_cimv_rec => l_cimv_rec,
13352: x_cimv_rec => lx_cimv_rec);
13353: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13354: RAISE OKL_API.G_EXCEPTION_ERROR;
13355: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13357: END IF;
13358:
13359: --update financial asset line for OEC and residual value
13352: x_cimv_rec => lx_cimv_rec);
13353: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13354: RAISE OKL_API.G_EXCEPTION_ERROR;
13355: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13357: END IF;
13358:
13359: --update financial asset line for OEC and residual value
13360: l_clev_rec.id := l_new_finasst_id;
13358:
13359: --update financial asset line for OEC and residual value
13360: l_clev_rec.id := l_new_finasst_id;
13361: l_klev_rec.id := l_new_finasst_id;
13362: l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
13363: l_klev_rec.residual_percentage := l_corpbook_rec.percent_salvage_value;
13364: l_klev_rec.residual_value := l_corpbook_rec.salvage_value;
13365: --BUG : 3569441
13366: l_klev_rec.oec := l_nbv;
13375: p_clev_rec => l_clev_rec,
13376: p_klev_rec => l_klev_rec,
13377: x_clev_rec => lx_clev_rec,
13378: x_klev_rec => lx_klev_rec);
13379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13380: RAISE OKL_API.G_EXCEPTION_ERROR;
13381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13383: END IF;
13376: p_klev_rec => l_klev_rec,
13377: x_clev_rec => lx_clev_rec,
13378: x_klev_rec => lx_klev_rec);
13379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13380: RAISE OKL_API.G_EXCEPTION_ERROR;
13381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13383: END IF;
13384:
13377: x_clev_rec => lx_clev_rec,
13378: x_klev_rec => lx_klev_rec);
13379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13380: RAISE OKL_API.G_EXCEPTION_ERROR;
13381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13383: END IF;
13384:
13385: --Bug# 3631094 : Creation of reporting tax book
13378: x_klev_rec => lx_klev_rec);
13379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13380: RAISE OKL_API.G_EXCEPTION_ERROR;
13381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13383: END IF;
13384:
13385: --Bug# 3631094 : Creation of reporting tax book
13386: l_rep_asset_book := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_RPT_PROD_BOOK_TYPE_CODE);
13389: OPEN l_taxbook_csr(p_tal_id => l_corpbook_rec.id);
13390: Loop
13391: Fetch l_taxbook_csr into l_taxbook_rec;
13392: Exit when l_taxbook_csr%NOTFOUND;
13393: If l_taxbook_rec.tax_book = nvl(l_rep_Asset_book,OKL_API.G_MISS_CHAR) then
13394: l_rep_Asset_book_done := 'Y';
13395: l_mg_txd_id := l_taxbook_rec.id;
13396: End If;
13397: --Bug# 3950089: Fetch NBV using FA apis
13417: p_chr_id => p_chr_id,
13418: p_release_date => l_hdr_rec.start_date,
13419: x_nbv => l_nbv);
13420:
13421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13424: RAISE OKL_API.G_EXCEPTION_ERROR;
13425: END IF;
13418: p_release_date => l_hdr_rec.start_date,
13419: x_nbv => l_nbv);
13420:
13421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13424: RAISE OKL_API.G_EXCEPTION_ERROR;
13425: END IF;
13426:
13419: x_nbv => l_nbv);
13420:
13421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13424: RAISE OKL_API.G_EXCEPTION_ERROR;
13425: END IF;
13426:
13427: If l_nbv is NOT NULL then
13420:
13421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13424: RAISE OKL_API.G_EXCEPTION_ERROR;
13425: END IF;
13426:
13427: If l_nbv is NOT NULL then
13428: --update okl_txd_Assets_b
13439: x_adpv_rec => lx_txdv_rec);
13440:
13441: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13442: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13443: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13444: RAISE Okc_Api.G_EXCEPTION_ERROR;
13445: END IF;
13446: END IF;
13447: End Loop;
13459: x_tax_owner => l_tax_owner,
13460: x_deal_type => l_deal_type,
13461: x_rep_deal_type => l_rep_deal_type);
13462:
13463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13466: RAISE OKL_API.G_EXCEPTION_ERROR;
13467: END IF;
13460: x_deal_type => l_deal_type,
13461: x_rep_deal_type => l_rep_deal_type);
13462:
13463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13466: RAISE OKL_API.G_EXCEPTION_ERROR;
13467: END IF;
13468:
13461: x_rep_deal_type => l_rep_deal_type);
13462:
13463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13466: RAISE OKL_API.G_EXCEPTION_ERROR;
13467: END IF;
13468:
13469: If l_tax_owner is null then
13462:
13463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13466: RAISE OKL_API.G_EXCEPTION_ERROR;
13467: END IF;
13468:
13469: If l_tax_owner is null then
13470: Open town_rul_csr(pchrid => p_chr_id);
13476: p_msg_name => G_REQUIRED_VALUE,
13477: p_token1 => G_COL_NAME_TOKEN,
13478: p_token1_value => 'Tax Owner');
13479: x_return_status := OKC_API.G_RET_STS_ERROR;
13480: RAISE OKL_API.G_EXCEPTION_ERROR;
13481: Else
13482: l_tax_owner := rtrim(ltrim(l_town_rul,' '),' ');
13483: End If;
13484: Close town_rul_csr;
13545:
13546: --Bug 7708944. SGIYER 01/15/2009.
13547: -- Implemented MG changes based on PM recommendation.
13548: If l_Multi_GAAP_YN = 'Y' and nvl(l_rep_deal_type,'X') in ('LEASEDF','LEASEST','LEASEOP') then
13549: If nvl(l_rep_Asset_book_done,OKL_API.G_MISS_CHAR) = 'N' then
13550: l_mg_txdv_rec.tal_id := l_corpbook_rec.id;
13551: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13552: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13553: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13549: If nvl(l_rep_Asset_book_done,OKL_API.G_MISS_CHAR) = 'N' then
13550: l_mg_txdv_rec.tal_id := l_corpbook_rec.id;
13551: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13552: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13553: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13554: --l_mg_txdv_rec.cost := 0;
13555: --ElsIf nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'N' then
13556: l_mg_txdv_rec.cost := l_corp_nbv;
13557: --End If;
13551: l_mg_txdv_rec.asset_number := l_corpbook_rec.asset_number;
13552: l_mg_txdv_rec.tax_book := l_rep_Asset_book;
13553: --If nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'Y' then
13554: --l_mg_txdv_rec.cost := 0;
13555: --ElsIf nvl(l_adjust_asset_to_zero,OKL_API.G_MISS_CHAR) = 'N' then
13556: l_mg_txdv_rec.cost := l_corp_nbv;
13557: --End If;
13558: --get defaults from category books
13559: open l_defaults_csr (p_book => l_rep_asset_book,
13589: x_adpv_rec => lx_mg_txdv_rec);
13590:
13591: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13592: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13593: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13594: RAISE Okc_Api.G_EXCEPTION_ERROR;
13595: END IF;
13596: End If; -- if multi gaap asset book is not doen
13597: End If; --If l_mutigaap_yn
13596: End If; -- if multi gaap asset book is not doen
13597: End If; --If l_mutigaap_yn
13598: x_cle_id:= l_new_finasst_id;
13599:
13600: OKL_API.END_ACTIVITY (x_msg_count,
13601: x_msg_data );
13602: EXCEPTION
13603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13599:
13600: OKL_API.END_ACTIVITY (x_msg_count,
13601: x_msg_data );
13602: EXCEPTION
13603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13605: l_api_name,
13606: G_PKG_NAME,
13607: 'OKL_API.G_RET_STS_ERROR',
13600: OKL_API.END_ACTIVITY (x_msg_count,
13601: x_msg_data );
13602: EXCEPTION
13603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13605: l_api_name,
13606: G_PKG_NAME,
13607: 'OKL_API.G_RET_STS_ERROR',
13608: x_msg_count,
13603: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13604: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13605: l_api_name,
13606: G_PKG_NAME,
13607: 'OKL_API.G_RET_STS_ERROR',
13608: x_msg_count,
13609: x_msg_data,
13610: '_PVT');
13611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13607: 'OKL_API.G_RET_STS_ERROR',
13608: x_msg_count,
13609: x_msg_data,
13610: '_PVT');
13611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13612: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13613: l_api_name,
13614: G_PKG_NAME,
13615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13608: x_msg_count,
13609: x_msg_data,
13610: '_PVT');
13611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13612: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13613: l_api_name,
13614: G_PKG_NAME,
13615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13616: x_msg_count,
13611: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13612: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13613: l_api_name,
13614: G_PKG_NAME,
13615: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13616: x_msg_count,
13617: x_msg_data,
13618: '_PVT');
13619: WHEN OTHERS THEN
13616: x_msg_count,
13617: x_msg_data,
13618: '_PVT');
13619: WHEN OTHERS THEN
13620: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13621: l_api_name,
13622: G_PKG_NAME,
13623: 'OTHERS',
13624: x_msg_count,
13641: p_cle_id IN NUMBER,
13642: p_orig_cle_id IN NUMBER,
13643: p_chr_id IN NUMBER) IS
13644:
13645: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
13646: l_api_name CONSTANT VARCHAR2(30) := 'COPY_UPDATED_ASSET';
13647: l_api_version CONSTANT NUMBER := 1.0;
13648:
13649: --cursor to get rule groups attached to old line
13790: l_srfvv_rec OKL_SUBSIDY_RFND_DTLS_PVT.srfvv_rec_type;
13791: lx_srfvv_rec OKL_SUBSIDY_RFND_DTLS_PVT.srfvv_rec_type;
13792:
13793: Begin
13794: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13795: -- Call start_activity to create savepoint, check compatibility
13796: -- and initialize message list
13797: x_return_status := Okl_Api.START_ACTIVITY(
13798: p_api_name => l_api_name,
13793: Begin
13794: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
13795: -- Call start_activity to create savepoint, check compatibility
13796: -- and initialize message list
13797: x_return_status := Okl_Api.START_ACTIVITY(
13798: p_api_name => l_api_name,
13799: p_pkg_name => g_pkg_name,
13800: p_init_msg_list => p_init_msg_list,
13801: l_api_version => l_api_version,
13804: x_return_status => x_return_status);
13805: -- Check if activity started successfully
13806: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13807: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13808: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13809: RAISE Okc_Api.G_EXCEPTION_ERROR;
13810: END IF;
13811:
13812: --1. Copy rules from old line to new line
13826: p_to_template_yn => 'N',
13827: x_rgp_id => lx_rgp_id);
13828: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13829: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13830: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13831: RAISE Okc_Api.G_EXCEPTION_ERROR;
13832: END IF;
13833: End Loop;
13834: close l_rgp_csr;
13850: p_rle_code => l_cpl_rec.rle_code,
13851: x_cpl_id => lx_cpl_id);
13852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13854: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13855: RAISE Okc_Api.G_EXCEPTION_ERROR;
13856: END IF;
13857: End Loop;
13858: close l_cpl_csr;
13874: p_cimv_rec => l_cimv_rec,
13875: x_cimv_rec => lx_cimv_rec);
13876: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13877: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13878: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13879: RAISE Okc_Api.G_EXCEPTION_ERROR;
13880: END IF;
13881: End Loop;
13882: Close l_lnk_ast_csr;
13900: p_rulv_rec => l_rulv_rec,
13901: x_rulv_rec => lx_rulv_rec);
13902: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13903: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13904: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13905: RAISE Okc_Api.G_EXCEPTION_ERROR;
13906: END IF;
13907: End Loop;
13908: Close l_slh_csr;
13932: p_asb_rec => l_asb_rec,
13933: x_asb_rec => lx_asb_rec);
13934: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13935: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13937: RAISE Okc_Api.G_EXCEPTION_ERROR;
13938: END IF;
13939:
13940: --update link to party payment details
13954: p_srfvv_rec => l_srfvv_rec,
13955: x_srfvv_rec => lx_srfvv_rec);
13956: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
13957: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
13958: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
13959: RAISE Okc_Api.G_EXCEPTION_ERROR;
13960: END IF;
13961: End If;
13962: Close l_subrfnd_csr;
13963: End Loop;
13964: Close l_subsidy_csr;
13965:
13966:
13967: OKL_API.END_ACTIVITY (x_msg_count,
13968: x_msg_data );
13969: EXCEPTION
13970: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13966:
13967: OKL_API.END_ACTIVITY (x_msg_count,
13968: x_msg_data );
13969: EXCEPTION
13970: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13972: l_api_name,
13973: G_PKG_NAME,
13974: 'OKL_API.G_RET_STS_ERROR',
13967: OKL_API.END_ACTIVITY (x_msg_count,
13968: x_msg_data );
13969: EXCEPTION
13970: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13972: l_api_name,
13973: G_PKG_NAME,
13974: 'OKL_API.G_RET_STS_ERROR',
13975: x_msg_count,
13970: WHEN OKL_API.G_EXCEPTION_ERROR THEN
13971: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13972: l_api_name,
13973: G_PKG_NAME,
13974: 'OKL_API.G_RET_STS_ERROR',
13975: x_msg_count,
13976: x_msg_data,
13977: '_PVT');
13978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13974: 'OKL_API.G_RET_STS_ERROR',
13975: x_msg_count,
13976: x_msg_data,
13977: '_PVT');
13978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13979: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13980: l_api_name,
13981: G_PKG_NAME,
13982: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13975: x_msg_count,
13976: x_msg_data,
13977: '_PVT');
13978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13979: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13980: l_api_name,
13981: G_PKG_NAME,
13982: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13983: x_msg_count,
13978: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13979: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13980: l_api_name,
13981: G_PKG_NAME,
13982: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13983: x_msg_count,
13984: x_msg_data,
13985: '_PVT');
13986: WHEN OTHERS THEN
13983: x_msg_count,
13984: x_msg_data,
13985: '_PVT');
13986: WHEN OTHERS THEN
13987: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13988: l_api_name,
13989: G_PKG_NAME,
13990: 'OTHERS',
13991: x_msg_count,
14010: p_clev_fin_id IN NUMBER,
14011: x_cle_id OUT NOCOPY NUMBER) IS
14012:
14013:
14014: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
14015: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RELEASE_ASSET';
14016: l_api_version CONSTANT NUMBER := 1.0;
14017:
14018: --cursor to find the existing asset id on release asset line
14068: l_rbk_ast_change_yn varchar2(1);
14069: l_k_source okc_k_headers_b.orig_system_source_code%TYPE;
14070:
14071: BEGIN
14072: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14073: -- Call start_activity to create savepoint, check compatibility
14074: -- and initialize message list
14075: x_return_status := Okl_Api.START_ACTIVITY(
14076: p_api_name => l_api_name,
14071: BEGIN
14072: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14073: -- Call start_activity to create savepoint, check compatibility
14074: -- and initialize message list
14075: x_return_status := Okl_Api.START_ACTIVITY(
14076: p_api_name => l_api_name,
14077: p_pkg_name => g_pkg_name,
14078: p_init_msg_list => p_init_msg_list,
14079: l_api_version => l_api_version,
14082: x_return_status => x_return_status);
14083: -- Check if activity started successfully
14084: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14085: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14086: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14087: RAISE Okc_Api.G_EXCEPTION_ERROR;
14088: END IF;
14089:
14090: --------------------
14099: end loop;
14100:
14101:
14102:
14103: If nvl(l_k_source,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' then
14104:
14105: If l_rbk_ast_change_yn = 'Y' then
14106: --raise error : can not add new asset on a rebook
14107: OKL_API.set_message(
14103: If nvl(l_k_source,OKL_API.G_MISS_CHAR) = 'OKL_REBOOK' then
14104:
14105: If l_rbk_ast_change_yn = 'Y' then
14106: --raise error : can not add new asset on a rebook
14107: OKL_API.set_message(
14108: p_app_name => G_APP_NAME,
14109: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
14110: x_return_status := OKC_API.G_RET_STS_ERROR;
14111: RAISE OKL_API.G_EXCEPTION_ERROR;
14107: OKL_API.set_message(
14108: p_app_name => G_APP_NAME,
14109: p_msg_name => 'OKL_REL_ASSET_RBK_NEW_AST_ADD');
14110: x_return_status := OKC_API.G_RET_STS_ERROR;
14111: RAISE OKL_API.G_EXCEPTION_ERROR;
14112: ElsIf l_rbk_ast_change_yn = 'N' then
14113: x_cle_id := p_clev_fin_id;
14114:
14115: End If;
14118:
14119: --------------------
14120: --End : Bug# 3783518
14121: --------------------
14122: If nvl(p_asset_id,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR then
14123: x_cle_id := p_clev_fin_id;
14124: Else
14125: open l_cim_fa_csr(p_fin_asst_id => p_clev_fin_id);
14126: Fetch l_cim_fa_csr into l_asset_id, l_chr_id;
14125: open l_cim_fa_csr(p_fin_asst_id => p_clev_fin_id);
14126: Fetch l_cim_fa_csr into l_asset_id, l_chr_id;
14127: If l_cim_fa_csr%NOTFOUND then
14128: --raise error : invalid line information
14129: OKL_API.set_message(p_app_name => G_APP_NAME,
14130: p_msg_name => 'OKL_LLA_LINE_RECORD');
14131: RAISE Okc_Api.G_EXCEPTION_ERROR;
14132: End If;
14133: close l_cim_fa_csr;
14130: p_msg_name => 'OKL_LLA_LINE_RECORD');
14131: RAISE Okc_Api.G_EXCEPTION_ERROR;
14132: End If;
14133: close l_cim_fa_csr;
14134: If nvl(p_asset_id,OKL_API.G_MISS_CHAR) = nvl(l_asset_id,OKL_API.G_MISS_CHAR) then
14135: x_cle_id := p_clev_fin_id;
14136: Else
14137:
14138: --Create new release asset line
14145: p_asset_id => p_asset_id,
14146: p_chr_id => l_chr_id,
14147: x_cle_id => x_cle_id);
14148:
14149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14152: RAISE OKL_API.G_EXCEPTION_ERROR;
14153: END IF;
14146: p_chr_id => l_chr_id,
14147: x_cle_id => x_cle_id);
14148:
14149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14152: RAISE OKL_API.G_EXCEPTION_ERROR;
14153: END IF;
14154:
14147: x_cle_id => x_cle_id);
14148:
14149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14152: RAISE OKL_API.G_EXCEPTION_ERROR;
14153: END IF;
14154:
14155: --Copy rules, party roles, supplier invoice details
14148:
14149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14152: RAISE OKL_API.G_EXCEPTION_ERROR;
14153: END IF;
14154:
14155: --Copy rules, party roles, supplier invoice details
14156: Open l_lines_csr(p_from_cle_id => x_cle_id);
14165: x_msg_data => x_msg_data,
14166: p_cle_id => l_lines_rec.id,
14167: p_orig_cle_id => l_lines_rec.orig_system_id1,
14168: p_chr_id => l_chr_id);
14169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14172: RAISE OKL_API.G_EXCEPTION_ERROR;
14173: END IF;
14166: p_cle_id => l_lines_rec.id,
14167: p_orig_cle_id => l_lines_rec.orig_system_id1,
14168: p_chr_id => l_chr_id);
14169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14172: RAISE OKL_API.G_EXCEPTION_ERROR;
14173: END IF;
14174: End Loop;
14167: p_orig_cle_id => l_lines_rec.orig_system_id1,
14168: p_chr_id => l_chr_id);
14169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14172: RAISE OKL_API.G_EXCEPTION_ERROR;
14173: END IF;
14174: End Loop;
14175: Close l_lines_csr;
14168: p_chr_id => l_chr_id);
14169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14172: RAISE OKL_API.G_EXCEPTION_ERROR;
14173: END IF;
14174: End Loop;
14175: Close l_lines_csr;
14176:
14184: x_msg_data => x_msg_data,
14185: p_line_id => p_clev_fin_id
14186: );
14187:
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14185: p_line_id => p_clev_fin_id
14186: );
14187:
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14186: );
14187:
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14194:
14187:
14188: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14189: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14190: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14191: RAISE OKL_API.G_EXCEPTION_ERROR;
14192: END IF;
14193:
14194:
14195: End If;
14196: End If; --Bug# 3783518
14197:
14198: End If;
14199:
14200: OKL_API.END_ACTIVITY (x_msg_count,
14201: x_msg_data );
14202: EXCEPTION
14203: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14199:
14200: OKL_API.END_ACTIVITY (x_msg_count,
14201: x_msg_data );
14202: EXCEPTION
14203: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14205: l_api_name,
14206: G_PKG_NAME,
14207: 'OKL_API.G_RET_STS_ERROR',
14200: OKL_API.END_ACTIVITY (x_msg_count,
14201: x_msg_data );
14202: EXCEPTION
14203: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14205: l_api_name,
14206: G_PKG_NAME,
14207: 'OKL_API.G_RET_STS_ERROR',
14208: x_msg_count,
14203: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14204: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14205: l_api_name,
14206: G_PKG_NAME,
14207: 'OKL_API.G_RET_STS_ERROR',
14208: x_msg_count,
14209: x_msg_data,
14210: '_PVT');
14211: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14207: 'OKL_API.G_RET_STS_ERROR',
14208: x_msg_count,
14209: x_msg_data,
14210: '_PVT');
14211: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14213: l_api_name,
14214: G_PKG_NAME,
14215: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14208: x_msg_count,
14209: x_msg_data,
14210: '_PVT');
14211: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14213: l_api_name,
14214: G_PKG_NAME,
14215: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14216: x_msg_count,
14211: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14212: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14213: l_api_name,
14214: G_PKG_NAME,
14215: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14216: x_msg_count,
14217: x_msg_data,
14218: '_PVT');
14219: WHEN OTHERS THEN
14216: x_msg_count,
14217: x_msg_data,
14218: '_PVT');
14219: WHEN OTHERS THEN
14220: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14221: l_api_name,
14222: G_PKG_NAME,
14223: 'OTHERS',
14224: x_msg_count,
14245: p_call_mode IN Varchar2,
14246: x_clev_fin_rec OUT NOCOPY clev_rec_type,
14247: x_klev_fin_rec OUT NOCOPY klev_rec_type) IS
14248:
14249: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
14250: l_api_name CONSTANT VARCHAR2(30) := 'RESOLVE_RESIDUL';
14251: l_api_version CONSTANT NUMBER := 1.0;
14252:
14253:
14279: l_exp_cost_rec l_exp_cost_csr%ROWTYPE;
14280:
14281: Begin
14282:
14283: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14284: -- Call start_activity to create savepoint, check compatibility
14285: -- and initialize message list
14286: x_return_status := Okl_Api.START_ACTIVITY(
14287: p_api_name => l_api_name,
14282:
14283: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14284: -- Call start_activity to create savepoint, check compatibility
14285: -- and initialize message list
14286: x_return_status := Okl_Api.START_ACTIVITY(
14287: p_api_name => l_api_name,
14288: p_pkg_name => g_pkg_name,
14289: p_init_msg_list => p_init_msg_list,
14290: l_api_version => l_api_version,
14293: x_return_status => x_return_status);
14294: -- Check if activity started successfully
14295: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14296: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14298: RAISE Okc_Api.G_EXCEPTION_ERROR;
14299: END IF;
14300:
14301: --Bug# 4631549
14298: RAISE Okc_Api.G_EXCEPTION_ERROR;
14299: END IF;
14300:
14301: --Bug# 4631549
14302: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14303: open l_exp_cost_csr (p_kle_id => p_clev_fin_rec.id);
14304: fetch l_exp_cost_csr into l_exp_cost_rec;
14305: close l_exp_cost_csr;
14306: end if;
14309: p_chr_id => p_clev_fin_rec.dnz_chr_id);
14310: Fetch l_modelline_csr into l_model_line_id;
14311: If l_modelline_csr%NOTFOUND then
14312: --raise errorr: invliad line information
14313: OKL_API.set_message(p_app_name => G_APP_NAME,
14314: p_msg_name => 'OKL_LLA_LINE_RECORD');
14315: RAISE Okc_Api.G_EXCEPTION_ERROR;
14316: End If;
14317: Close l_modelline_csr;
14316: End If;
14317: Close l_modelline_csr;
14318:
14319: IF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14320: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14321: (p_klev_fin_rec.residual_value IS NOT NULL OR
14322: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14323:
14324: l_top_line_id := p_clev_fin_rec.id;
14318:
14319: IF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14320: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14321: (p_klev_fin_rec.residual_value IS NOT NULL OR
14322: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14323:
14324: l_top_line_id := p_clev_fin_rec.id;
14325: --Bug# 4631549
14326: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14322: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14323:
14324: l_top_line_id := p_clev_fin_rec.id;
14325: --Bug# 4631549
14326: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14327: l_oec := l_exp_cost_rec.expected_asset_cost;
14328: else
14329: l_oec := p_klev_fin_rec.oec;
14330: end if;
14342: p_top_line_id => l_top_line_id,
14343: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14344: x_fin_clev_rec => x_clev_fin_rec,
14345: x_fin_klev_rec => x_klev_fin_rec,
14346: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14347:
14348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14344: x_fin_clev_rec => x_clev_fin_rec,
14345: x_fin_klev_rec => x_klev_fin_rec,
14346: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14347:
14348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14351: RAISE OKL_API.G_EXCEPTION_ERROR;
14352: END IF;
14345: x_fin_klev_rec => x_klev_fin_rec,
14346: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14347:
14348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14351: RAISE OKL_API.G_EXCEPTION_ERROR;
14352: END IF;
14353:
14346: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14347:
14348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14351: RAISE OKL_API.G_EXCEPTION_ERROR;
14352: END IF;
14353:
14354: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
14347:
14348: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14349: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14350: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14351: RAISE OKL_API.G_EXCEPTION_ERROR;
14352: END IF;
14353:
14354: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
14355: p_init_msg_list => p_init_msg_list,
14363: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14364: x_fin_clev_rec => x_clev_fin_rec,
14365: x_fin_klev_rec => x_klev_fin_rec,
14366: x_res_value => lx_residual_value,
14367: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14368:
14369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14365: x_fin_klev_rec => x_klev_fin_rec,
14366: x_res_value => lx_residual_value,
14367: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14368:
14369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14372: RAISE OKL_API.G_EXCEPTION_ERROR;
14373: END IF;
14366: x_res_value => lx_residual_value,
14367: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14368:
14369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14372: RAISE OKL_API.G_EXCEPTION_ERROR;
14373: END IF;
14374:
14367: p_validate_fin_line => OKL_API.G_TRUE); -- 4414408
14368:
14369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14372: RAISE OKL_API.G_EXCEPTION_ERROR;
14373: END IF;
14374:
14375: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14368:
14369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14372: RAISE OKL_API.G_EXCEPTION_ERROR;
14373: END IF;
14374:
14375: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14376: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14372: RAISE OKL_API.G_EXCEPTION_ERROR;
14373: END IF;
14374:
14375: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14376: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14377: (p_klev_fin_rec.residual_value IS NOT NULL OR
14378: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14379:
14380: l_top_line_id := p_clev_fin_rec.id;
14374:
14375: ELSIF (p_klev_fin_rec.residual_percentage IS NULL OR
14376: p_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
14377: (p_klev_fin_rec.residual_value IS NOT NULL OR
14378: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14379:
14380: l_top_line_id := p_clev_fin_rec.id;
14381: --Bug# 4631549
14382: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14378: p_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
14379:
14380: l_top_line_id := p_clev_fin_rec.id;
14381: --Bug# 4631549
14382: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_CONTRACT' then
14383: l_oec := l_exp_cost_rec.expected_asset_cost;
14384: else
14385: l_oec := p_klev_fin_rec.oec;
14386: end if;
14399: p_top_line_id => l_top_line_id,
14400: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14401: x_fin_clev_rec => x_clev_fin_rec,
14402: x_fin_klev_rec => x_klev_fin_rec,
14403: p_validate_fin_line => OKL_API.G_TRUE);
14404:
14405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14401: x_fin_clev_rec => x_clev_fin_rec,
14402: x_fin_klev_rec => x_klev_fin_rec,
14403: p_validate_fin_line => OKL_API.G_TRUE);
14404:
14405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14408: RAISE OKL_API.G_EXCEPTION_ERROR;
14409: END IF;
14402: x_fin_klev_rec => x_klev_fin_rec,
14403: p_validate_fin_line => OKL_API.G_TRUE);
14404:
14405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14408: RAISE OKL_API.G_EXCEPTION_ERROR;
14409: END IF;
14410:
14403: p_validate_fin_line => OKL_API.G_TRUE);
14404:
14405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14408: RAISE OKL_API.G_EXCEPTION_ERROR;
14409: END IF;
14410:
14411: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14404:
14405: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14407: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14408: RAISE OKL_API.G_EXCEPTION_ERROR;
14409: END IF;
14410:
14411: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14412: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14408: RAISE OKL_API.G_EXCEPTION_ERROR;
14409: END IF;
14410:
14411: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14412: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14413: (p_klev_fin_rec.residual_value IS NULL OR
14414: p_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
14415:
14416: --Bug# 4631549
14410:
14411: ELSIF (p_klev_fin_rec.residual_percentage IS NOT NULL OR
14412: p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
14413: (p_klev_fin_rec.residual_value IS NULL OR
14414: p_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
14415:
14416: --Bug# 4631549
14417: l_top_line_id := p_clev_fin_rec.id;
14418:
14428: p_dnz_chr_id => p_clev_fin_rec.dnz_chr_id,
14429: x_fin_clev_rec => x_clev_fin_rec,
14430: x_fin_klev_rec => x_klev_fin_rec,
14431: x_res_value => lx_residual_value,
14432: p_validate_fin_line => OKL_API.G_TRUE);
14433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14429: x_fin_clev_rec => x_clev_fin_rec,
14430: x_fin_klev_rec => x_klev_fin_rec,
14431: x_res_value => lx_residual_value,
14432: p_validate_fin_line => OKL_API.G_TRUE);
14433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14437: END IF;
14430: x_fin_klev_rec => x_klev_fin_rec,
14431: x_res_value => lx_residual_value,
14432: p_validate_fin_line => OKL_API.G_TRUE);
14433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14437: END IF;
14438: END IF;
14431: x_res_value => lx_residual_value,
14432: p_validate_fin_line => OKL_API.G_TRUE);
14433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14437: END IF;
14438: END IF;
14439:
14432: p_validate_fin_line => OKL_API.G_TRUE);
14433: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14434: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14435: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14437: END IF;
14438: END IF;
14439:
14440: OKL_API.END_ACTIVITY (x_msg_count,
14436: RAISE OKL_API.G_EXCEPTION_ERROR;
14437: END IF;
14438: END IF;
14439:
14440: OKL_API.END_ACTIVITY (x_msg_count,
14441: x_msg_data );
14442: EXCEPTION
14443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14444: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14439:
14440: OKL_API.END_ACTIVITY (x_msg_count,
14441: x_msg_data );
14442: EXCEPTION
14443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14444: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14445: l_api_name,
14446: G_PKG_NAME,
14447: 'OKL_API.G_RET_STS_ERROR',
14440: OKL_API.END_ACTIVITY (x_msg_count,
14441: x_msg_data );
14442: EXCEPTION
14443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14444: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14445: l_api_name,
14446: G_PKG_NAME,
14447: 'OKL_API.G_RET_STS_ERROR',
14448: x_msg_count,
14443: WHEN OKL_API.G_EXCEPTION_ERROR THEN
14444: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
14445: l_api_name,
14446: G_PKG_NAME,
14447: 'OKL_API.G_RET_STS_ERROR',
14448: x_msg_count,
14449: x_msg_data,
14450: '_PVT');
14451: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14447: 'OKL_API.G_RET_STS_ERROR',
14448: x_msg_count,
14449: x_msg_data,
14450: '_PVT');
14451: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14452: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14453: l_api_name,
14454: G_PKG_NAME,
14455: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14448: x_msg_count,
14449: x_msg_data,
14450: '_PVT');
14451: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14452: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14453: l_api_name,
14454: G_PKG_NAME,
14455: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14456: x_msg_count,
14451: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
14452: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14453: l_api_name,
14454: G_PKG_NAME,
14455: 'OKL_API.G_RET_STS_UNEXP_ERROR',
14456: x_msg_count,
14457: x_msg_data,
14458: '_PVT');
14459: WHEN OTHERS THEN
14456: x_msg_count,
14457: x_msg_data,
14458: '_PVT');
14459: WHEN OTHERS THEN
14460: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
14461: l_api_name,
14462: G_PKG_NAME,
14463: 'OTHERS',
14464: x_msg_count,
14501: ) IS
14502:
14503:
14504:
14505: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
14506: l_api_name CONSTANT VARCHAR2(30) := 'MODIFY_RELEASE_ASSET';
14507: l_api_version CONSTANT NUMBER := 1.0;
14508:
14509: --cursor to get fixed asset details
14654: --akrangan Bug# 5362977 end
14655:
14656: BEGIN
14657:
14658: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14659: -- Call start_activity to create savepoint, check compatibility
14660: -- and initialize message list
14661: x_return_status := Okl_Api.START_ACTIVITY(
14662: p_api_name => l_api_name,
14657:
14658: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
14659: -- Call start_activity to create savepoint, check compatibility
14660: -- and initialize message list
14661: x_return_status := Okl_Api.START_ACTIVITY(
14662: p_api_name => l_api_name,
14663: p_pkg_name => g_pkg_name,
14664: p_init_msg_list => p_init_msg_list,
14665: l_api_version => l_api_version,
14668: x_return_status => x_return_status);
14669: -- Check if activity started successfully
14670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14672: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14673: RAISE Okc_Api.G_EXCEPTION_ERROR;
14674: END IF;
14675: -- akrangan Bug# 5362977 start
14676: l_rbk_khr := '?';
14689: l_klev_fin_rec.RESIDUAL_GRNTY_AMOUNT := p_klev_fin_rec.RESIDUAL_GRNTY_AMOUNT;
14690:
14691: l_klev_fin_rec.RESIDUAL_CODE := p_klev_fin_rec.RESIDUAL_CODE;
14692:
14693: If nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14694: nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14695: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14696: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14697: End If;
14690:
14691: l_klev_fin_rec.RESIDUAL_CODE := p_klev_fin_rec.RESIDUAL_CODE;
14692:
14693: If nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14694: nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14695: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14696: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14697: End If;
14698:
14695: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14696: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14697: End If;
14698:
14699: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14700: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
14701: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14702: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14703: End If;
14696: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14697: End If;
14698:
14699: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM and
14700: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
14701: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14702: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14703: End If;
14704:
14701: l_klev_fin_rec.RESIDUAL_PERCENTAGE := p_klev_fin_rec.RESIDUAL_PERCENTAGE;
14702: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14703: End If;
14704:
14705: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM and
14706: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14707: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14708: l_klev_fin_rec.RESIDUAL_PERCENTAGE := NULL;
14709: End If;
14702: l_klev_fin_rec.RESIDUAL_VALUE := NULL;
14703: End If;
14704:
14705: If nvl(p_klev_fin_rec.RESIDUAL_PERCENTAGE,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM and
14706: nvl(p_klev_fin_rec.RESIDUAL_VALUE,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
14707: l_klev_fin_rec.RESIDUAL_VALUE := p_klev_fin_rec.RESIDUAL_VALUE;
14708: l_klev_fin_rec.RESIDUAL_PERCENTAGE := NULL;
14709: End If;
14710:
14752: x_klev_tbl => lx_klev_price_tbl);
14753:
14754: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14755: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14757: RAISE Okc_Api.G_EXCEPTION_ERROR;
14758: END IF;
14759:
14760: --Bug# 4631549
14757: RAISE Okc_Api.G_EXCEPTION_ERROR;
14758: END IF;
14759:
14760: --Bug# 4631549
14761: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_ASSET' then
14762: --Calculate oec
14763: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14764: p_init_msg_list => p_init_msg_list,
14765: x_return_status => x_return_status,
14768: p_formula_name => G_FORMULA_OEC,
14769: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14770: p_line_id => p_cle_id,
14771: x_value => l_klev_fin_rec.oec);
14772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14773: OKL_API.set_message(p_app_name => G_APP_NAME,
14774: p_msg_name => G_CALC_AMOUNT,
14775: p_token1 => G_AMT_TOKEN,
14776: p_token1_value => 'OEC');
14769: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14770: p_line_id => p_cle_id,
14771: x_value => l_klev_fin_rec.oec);
14772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14773: OKL_API.set_message(p_app_name => G_APP_NAME,
14774: p_msg_name => G_CALC_AMOUNT,
14775: p_token1 => G_AMT_TOKEN,
14776: p_token1_value => 'OEC');
14777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14773: OKL_API.set_message(p_app_name => G_APP_NAME,
14774: p_msg_name => G_CALC_AMOUNT,
14775: p_token1 => G_AMT_TOKEN,
14776: p_token1_value => 'OEC');
14777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14779: OKL_API.set_message(p_app_name => G_APP_NAME,
14780: p_msg_name => G_CALC_AMOUNT,
14781: p_token1 => G_AMT_TOKEN,
14774: p_msg_name => G_CALC_AMOUNT,
14775: p_token1 => G_AMT_TOKEN,
14776: p_token1_value => 'OEC');
14777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14779: OKL_API.set_message(p_app_name => G_APP_NAME,
14780: p_msg_name => G_CALC_AMOUNT,
14781: p_token1 => G_AMT_TOKEN,
14782: p_token1_value => 'OEC');
14775: p_token1 => G_AMT_TOKEN,
14776: p_token1_value => 'OEC');
14777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14779: OKL_API.set_message(p_app_name => G_APP_NAME,
14780: p_msg_name => G_CALC_AMOUNT,
14781: p_token1 => G_AMT_TOKEN,
14782: p_token1_value => 'OEC');
14783: RAISE OKL_API.G_EXCEPTION_ERROR;
14779: OKL_API.set_message(p_app_name => G_APP_NAME,
14780: p_msg_name => G_CALC_AMOUNT,
14781: p_token1 => G_AMT_TOKEN,
14782: p_token1_value => 'OEC');
14783: RAISE OKL_API.G_EXCEPTION_ERROR;
14784: END IF;
14785: End If;
14786: END IF;
14787: --END BUG: NBV
14809: x_klev_rec => l_rel_ast_klev_fin_rec);
14810:
14811: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14812: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14813: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14814: RAISE Okc_Api.G_EXCEPTION_ERROR;
14815: END IF;
14816: --Bug#5601721 -- end
14817:
14815: END IF;
14816: --Bug#5601721 -- end
14817:
14818: --Bug# 4631549
14819: If nvl(p_call_mode,okl_api.g_miss_char) = 'RELEASE_ASSET' then
14820: --calculate capital_amount
14821: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
14822: p_init_msg_list => p_init_msg_list,
14823: x_return_status => x_return_status,
14826: p_formula_name => G_FORMULA_CAP,
14827: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14828: p_line_id => p_cle_id,
14829: x_value => l_klev_fin_rec.capital_amount);
14830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14831: OKL_API.set_message(p_app_name => G_APP_NAME,
14832: p_msg_name => G_CALC_AMOUNT,
14833: p_token1 => G_AMT_TOKEN,
14834: p_token1_value => 'Capital Amount');
14827: p_contract_id => p_clev_fin_rec.dnz_chr_id,
14828: p_line_id => p_cle_id,
14829: x_value => l_klev_fin_rec.capital_amount);
14830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14831: OKL_API.set_message(p_app_name => G_APP_NAME,
14832: p_msg_name => G_CALC_AMOUNT,
14833: p_token1 => G_AMT_TOKEN,
14834: p_token1_value => 'Capital Amount');
14835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14831: OKL_API.set_message(p_app_name => G_APP_NAME,
14832: p_msg_name => G_CALC_AMOUNT,
14833: p_token1 => G_AMT_TOKEN,
14834: p_token1_value => 'Capital Amount');
14835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14837: OKL_API.set_message(p_app_name => G_APP_NAME,
14838: p_msg_name => G_CALC_AMOUNT,
14839: p_token1 => G_AMT_TOKEN,
14832: p_msg_name => G_CALC_AMOUNT,
14833: p_token1 => G_AMT_TOKEN,
14834: p_token1_value => 'Capital Amount');
14835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14837: OKL_API.set_message(p_app_name => G_APP_NAME,
14838: p_msg_name => G_CALC_AMOUNT,
14839: p_token1 => G_AMT_TOKEN,
14840: p_token1_value => 'Capital Amount');
14833: p_token1 => G_AMT_TOKEN,
14834: p_token1_value => 'Capital Amount');
14835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14837: OKL_API.set_message(p_app_name => G_APP_NAME,
14838: p_msg_name => G_CALC_AMOUNT,
14839: p_token1 => G_AMT_TOKEN,
14840: p_token1_value => 'Capital Amount');
14841: RAISE OKL_API.G_EXCEPTION_ERROR;
14837: OKL_API.set_message(p_app_name => G_APP_NAME,
14838: p_msg_name => G_CALC_AMOUNT,
14839: p_token1 => G_AMT_TOKEN,
14840: p_token1_value => 'Capital Amount');
14841: RAISE OKL_API.G_EXCEPTION_ERROR;
14842: END IF;
14843: End If;
14844:
14845: -- akrangan bug 5362977 start
14857: x_klev_rec => l_rel_ast_klev_fin_rec);
14858:
14859: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14860: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14861: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14862: RAISE Okc_Api.G_EXCEPTION_ERROR;
14863: END IF;
14864:
14865:
14882: x_klev_rec => lx_klev_fa_rec);
14883:
14884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14885: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14886: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14887: RAISE Okc_Api.G_EXCEPTION_ERROR;
14888: END IF;
14889:
14890: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14889:
14890: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14891: p_clev_fin_rec.dnz_chr_id,
14892: l_cimv_model_rec);
14893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14894: OKL_API.set_message(p_app_name => G_APP_NAME,
14895: p_msg_name => G_FETCHING_INFO,
14896: p_token1 => G_REC_NAME_TOKEN,
14897: p_token1_value => 'OKC_K_ITEMS_V Record');
14890: x_return_status := get_rec_cimv(p_clev_model_rec.id,
14891: p_clev_fin_rec.dnz_chr_id,
14892: l_cimv_model_rec);
14893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14894: OKL_API.set_message(p_app_name => G_APP_NAME,
14895: p_msg_name => G_FETCHING_INFO,
14896: p_token1 => G_REC_NAME_TOKEN,
14897: p_token1_value => 'OKC_K_ITEMS_V Record');
14898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14894: OKL_API.set_message(p_app_name => G_APP_NAME,
14895: p_msg_name => G_FETCHING_INFO,
14896: p_token1 => G_REC_NAME_TOKEN,
14897: p_token1_value => 'OKC_K_ITEMS_V Record');
14898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14900: OKL_API.set_message(p_app_name => G_APP_NAME,
14901: p_msg_name => G_FETCHING_INFO,
14902: p_token1 => G_REC_NAME_TOKEN,
14895: p_msg_name => G_FETCHING_INFO,
14896: p_token1 => G_REC_NAME_TOKEN,
14897: p_token1_value => 'OKC_K_ITEMS_V Record');
14898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14900: OKL_API.set_message(p_app_name => G_APP_NAME,
14901: p_msg_name => G_FETCHING_INFO,
14902: p_token1 => G_REC_NAME_TOKEN,
14903: p_token1_value => 'OKC_K_ITEMS_V Record');
14896: p_token1 => G_REC_NAME_TOKEN,
14897: p_token1_value => 'OKC_K_ITEMS_V Record');
14898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14899: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14900: OKL_API.set_message(p_app_name => G_APP_NAME,
14901: p_msg_name => G_FETCHING_INFO,
14902: p_token1 => G_REC_NAME_TOKEN,
14903: p_token1_value => 'OKC_K_ITEMS_V Record');
14904: RAISE OKL_API.G_EXCEPTION_ERROR;
14900: OKL_API.set_message(p_app_name => G_APP_NAME,
14901: p_msg_name => G_FETCHING_INFO,
14902: p_token1 => G_REC_NAME_TOKEN,
14903: p_token1_value => 'OKC_K_ITEMS_V Record');
14904: RAISE OKL_API.G_EXCEPTION_ERROR;
14905: END IF;
14906:
14907: l_cimv_model_rec.object1_id1 := p_cimv_model_rec.object1_id1;
14908: l_cimv_model_rec.object1_id2 := p_cimv_model_rec.object1_id2;
14916: x_cimv_rec => x_cimv_model_rec);
14917:
14918: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14919: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14920: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14921: RAISE Okc_Api.G_EXCEPTION_ERROR;
14922: END IF;
14923:
14924: END IF;
14931: p_chr_id => p_clev_fin_rec.dnz_chr_id);
14932: fetch l_fa_csr into l_fa_rec;
14933: If l_fa_csr%NOTFOUND then
14934: --raise error:invalid line information
14935: OKL_API.set_message(p_app_name => G_APP_NAME,
14936: p_msg_name => 'OKL_LLA_LINE_RECORD');
14937: RAISE Okc_Api.G_EXCEPTION_ERROR;
14938: End If;
14939: close l_fa_csr;
14963: x_talv_rec => l_rel_ast_talv_rec);
14964:
14965: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
14966: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14967: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
14968: RAISE Okc_Api.G_EXCEPTION_ERROR;
14969: END IF;
14970:
14971: --3. update modifiable parameters on IB transaction line
14990: --therefor the if clause commented below is not required
14991: For j in p_itiv_ib_tbl.FIRST..p_itiv_ib_tbl.LAST
14992: Loop
14993: --If (l_itiv_ib_tbl(i).SERIAL_NUMBER = p_itiv_ib_tbl(j).SERIAL_NUMBER) OR
14994: --(nvl(l_itiv_ib_tbl(i).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR
14995: --and nvl(p_itiv_ib_tbl(j).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) then
14996: l_itiv_ib_tbl(i).OBJECT_ID1_OLD := l_itiv_ib_tbl(i).OBJECT_ID1_NEW;
14997: l_itiv_ib_tbl(i).OBJECT_ID2_OLD := l_itiv_ib_tbl(i).OBJECT_ID2_NEW;
14998: l_itiv_ib_tbl(i).OBJECT_ID1_NEW := p_itiv_ib_tbl(j).OBJECT_ID1_NEW;
14991: For j in p_itiv_ib_tbl.FIRST..p_itiv_ib_tbl.LAST
14992: Loop
14993: --If (l_itiv_ib_tbl(i).SERIAL_NUMBER = p_itiv_ib_tbl(j).SERIAL_NUMBER) OR
14994: --(nvl(l_itiv_ib_tbl(i).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR
14995: --and nvl(p_itiv_ib_tbl(j).SERIAL_NUMBER,OKL_API.G_MISS_CHAR) = OKL_API.G_MISS_CHAR) then
14996: l_itiv_ib_tbl(i).OBJECT_ID1_OLD := l_itiv_ib_tbl(i).OBJECT_ID1_NEW;
14997: l_itiv_ib_tbl(i).OBJECT_ID2_OLD := l_itiv_ib_tbl(i).OBJECT_ID2_NEW;
14998: l_itiv_ib_tbl(i).OBJECT_ID1_NEW := p_itiv_ib_tbl(j).OBJECT_ID1_NEW;
14999: l_itiv_ib_tbl(i).OBJECT_ID2_NEW := p_itiv_ib_tbl(j).OBJECT_ID2_NEW;
15016: x_iipv_tbl => l_rel_ast_itiv_ib_tbl);
15017:
15018: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15019: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15020: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15021: RAISE Okc_Api.G_EXCEPTION_ERROR;
15022: END IF;
15023: End If;
15024:
15040: x_klev_fin_rec => x_klev_fin_rec);
15041:
15042: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
15043: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
15045: RAISE Okc_Api.G_EXCEPTION_ERROR;
15046: END IF;
15047:
15048: -------------------------------------------
15054: Fetch l_lines_csr into l_lines_rec;
15055: Exit when l_lines_csr%NOTFOUND;
15056: x_return_status := get_rec_clev(l_lines_rec.id,
15057: lx_clev_rec);
15058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15059: OKL_API.set_message(p_app_name => G_APP_NAME,
15060: p_msg_name => G_FETCHING_INFO,
15061: p_token1 => G_REC_NAME_TOKEN,
15062: p_token1_value => 'OKC_K_LINES_V Record');
15055: Exit when l_lines_csr%NOTFOUND;
15056: x_return_status := get_rec_clev(l_lines_rec.id,
15057: lx_clev_rec);
15058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15059: OKL_API.set_message(p_app_name => G_APP_NAME,
15060: p_msg_name => G_FETCHING_INFO,
15061: p_token1 => G_REC_NAME_TOKEN,
15062: p_token1_value => 'OKC_K_LINES_V Record');
15063: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15060: p_msg_name => G_FETCHING_INFO,
15061: p_token1 => G_REC_NAME_TOKEN,
15062: p_token1_value => 'OKC_K_LINES_V Record');
15063: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15065: OKL_API.set_message(p_app_name => G_APP_NAME,
15066: p_msg_name => G_FETCHING_INFO,
15067: p_token1 => G_REC_NAME_TOKEN,
15068: p_token1_value => 'OKC_K_LINES_V Record');
15061: p_token1 => G_REC_NAME_TOKEN,
15062: p_token1_value => 'OKC_K_LINES_V Record');
15063: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15065: OKL_API.set_message(p_app_name => G_APP_NAME,
15066: p_msg_name => G_FETCHING_INFO,
15067: p_token1 => G_REC_NAME_TOKEN,
15068: p_token1_value => 'OKC_K_LINES_V Record');
15069: RAISE Okc_Api.G_EXCEPTION_ERROR;
15069: RAISE Okc_Api.G_EXCEPTION_ERROR;
15070: END IF;
15071: x_return_status := get_rec_klev(l_lines_rec.id,
15072: lx_klev_rec);
15073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15074: OKL_API.set_message(p_app_name => G_APP_NAME,
15075: p_msg_name => G_FETCHING_INFO,
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15070: END IF;
15071: x_return_status := get_rec_klev(l_lines_rec.id,
15072: lx_klev_rec);
15073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15074: OKL_API.set_message(p_app_name => G_APP_NAME,
15075: p_msg_name => G_FETCHING_INFO,
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15078: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15075: p_msg_name => G_FETCHING_INFO,
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15078: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15079: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15082: p_token1 => G_REC_NAME_TOKEN,
15083: p_token1_value => 'OKL_K_LINES_V Record');
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15078: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15079: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15082: p_token1 => G_REC_NAME_TOKEN,
15083: p_token1_value => 'OKL_K_LINES_V Record');
15084: RAISE Okc_Api.G_EXCEPTION_ERROR;
15103: Close l_lines_csr;
15104:
15105:
15106:
15107: OKL_API.END_ACTIVITY (x_msg_count,
15108: x_msg_data );
15109: EXCEPTION
15110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15106:
15107: OKL_API.END_ACTIVITY (x_msg_count,
15108: x_msg_data );
15109: EXCEPTION
15110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15112: l_api_name,
15113: G_PKG_NAME,
15114: 'OKL_API.G_RET_STS_ERROR',
15107: OKL_API.END_ACTIVITY (x_msg_count,
15108: x_msg_data );
15109: EXCEPTION
15110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15112: l_api_name,
15113: G_PKG_NAME,
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15112: l_api_name,
15113: G_PKG_NAME,
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15116: x_msg_data,
15117: '_PVT');
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15116: x_msg_data,
15117: '_PVT');
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15119: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15120: l_api_name,
15121: G_PKG_NAME,
15122: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15115: x_msg_count,
15116: x_msg_data,
15117: '_PVT');
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15119: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15120: l_api_name,
15121: G_PKG_NAME,
15122: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15123: x_msg_count,
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15119: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15120: l_api_name,
15121: G_PKG_NAME,
15122: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15123: x_msg_count,
15124: x_msg_data,
15125: '_PVT');
15126: WHEN OTHERS THEN
15123: x_msg_count,
15124: x_msg_data,
15125: '_PVT');
15126: WHEN OTHERS THEN
15127: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15128: l_api_name,
15129: G_PKG_NAME,
15130: 'OTHERS',
15131: x_msg_count,
15329:
15330:
15331: BEGIN
15332:
15333: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15334: -- Call start_activity to create savepoint, check compatibility
15335: -- and initialize message list
15336: x_return_status := OKL_API.START_ACTIVITY (
15337: l_api_name
15332:
15333: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15334: -- Call start_activity to create savepoint, check compatibility
15335: -- and initialize message list
15336: x_return_status := OKL_API.START_ACTIVITY (
15337: l_api_name
15338: ,p_init_msg_list
15339: ,'_PVT'
15340: ,x_return_status);
15338: ,p_init_msg_list
15339: ,'_PVT'
15340: ,x_return_status);
15341: -- Check if activity started successfully
15342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15345: RAISE OKL_API.G_EXCEPTION_ERROR;
15346: END IF;
15339: ,'_PVT'
15340: ,x_return_status);
15341: -- Check if activity started successfully
15342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15345: RAISE OKL_API.G_EXCEPTION_ERROR;
15346: END IF;
15347:
15340: ,x_return_status);
15341: -- Check if activity started successfully
15342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15345: RAISE OKL_API.G_EXCEPTION_ERROR;
15346: END IF;
15347:
15348:
15341: -- Check if activity started successfully
15342: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15343: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15344: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15345: RAISE OKL_API.G_EXCEPTION_ERROR;
15346: END IF;
15347:
15348:
15349: l_clev_fin_rec := p_clev_fin_rec;
15355: l_itiv_inst_tbl := p_itiv_ib_tbl;
15356: l_itiv_ib_tbl := p_itiv_ib_tbl;
15357:
15358: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
15359: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
15360: OKL_API.set_message(p_app_name => G_APP_NAME,
15361: p_msg_name => G_REQUIRED_VALUE,
15362: p_token1 => G_COL_NAME_TOKEN,
15363: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15356: l_itiv_ib_tbl := p_itiv_ib_tbl;
15357:
15358: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
15359: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
15360: OKL_API.set_message(p_app_name => G_APP_NAME,
15361: p_msg_name => G_REQUIRED_VALUE,
15362: p_token1 => G_COL_NAME_TOKEN,
15363: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15360: OKL_API.set_message(p_app_name => G_APP_NAME,
15361: p_msg_name => G_REQUIRED_VALUE,
15362: p_token1 => G_COL_NAME_TOKEN,
15363: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15366: --start:| 14-May-2008 cklee Bug 6405415 |
15367: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15368: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15363: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
15364: RAISE OKL_API.G_EXCEPTION_ERROR;
15365: END IF;
15366: --start:| 14-May-2008 cklee Bug 6405415 |
15367: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15368: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15369: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15370: OKL_API.set_message(p_app_name => G_APP_NAME,
15371: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15366: --start:| 14-May-2008 cklee Bug 6405415 |
15367: IF l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
15368: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15369: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15370: OKL_API.set_message(p_app_name => G_APP_NAME,
15371: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15372: RAISE OKL_API.G_EXCEPTION_ERROR;
15373: END IF;
15374: END IF;
15368: l_klev_fin_rec.residual_percentage IS NOT NULL THEN
15369: IF NOT l_klev_fin_rec.residual_percentage between 0 and 100 THEN
15370: OKL_API.set_message(p_app_name => G_APP_NAME,
15371: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
15372: RAISE OKL_API.G_EXCEPTION_ERROR;
15373: END IF;
15374: END IF;
15375: --end:| 14-May-2008 cklee Bug 6405415 |
15376:
15377: OPEN c_get_scs_code(p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15378: --Bug#4418339
15379: FETCH c_get_scs_code INTO lv_scs_code, l_orig_system_source_code;
15380: IF c_get_scs_code%NOTFOUND THEN
15381: OKL_API.set_message(p_app_name => G_APP_NAME,
15382: p_msg_name => G_NO_MATCHING_RECORD,
15383: p_token1 => G_COL_NAME_TOKEN,
15384: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID');
15385: RAISE G_EXCEPTION_HALT_VALIDATION;
15420: ln_chr_id := l_clev_fin_rec.dnz_chr_id;
15421: ln_cle_id := l_rel_ast_fin_cle_id;
15422:
15423:
15424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15427: RAISE OKL_API.G_EXCEPTION_ERROR;
15428: END IF;
15421: ln_cle_id := l_rel_ast_fin_cle_id;
15422:
15423:
15424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15427: RAISE OKL_API.G_EXCEPTION_ERROR;
15428: END IF;
15429:
15422:
15423:
15424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15427: RAISE OKL_API.G_EXCEPTION_ERROR;
15428: END IF;
15429:
15430: Modify_Release_Asset_Line(
15423:
15424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15427: RAISE OKL_API.G_EXCEPTION_ERROR;
15428: END IF;
15429:
15430: Modify_Release_Asset_Line(
15431: p_api_version => p_api_version,
15455: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
15456: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
15457:
15458:
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: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
15457:
15458:
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:
15457:
15458:
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:
15465: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
15458:
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:
15465: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
15466: x_clev_model_rec := l_rel_ast_clev_model_rec;
15477:
15478: -- Code is commneted as per Nagen mail on 01/23/2002 10.11am
15479: -- code is put in place as per Manish on 09/16/2002
15480: IF (p_asset_number IS NULL OR
15481: p_asset_number = OKL_API.G_MISS_CHAR) AND
15482: (lv_scs_code IS NOT NULL OR
15483: lv_scs_code <> OKL_API.G_MISS_CHAR) AND
15484: --Bug#4419339
15485: --(lv_scs_code = 'QUOTE') AND
15479: -- code is put in place as per Manish on 09/16/2002
15480: IF (p_asset_number IS NULL OR
15481: p_asset_number = OKL_API.G_MISS_CHAR) AND
15482: (lv_scs_code IS NOT NULL OR
15483: lv_scs_code <> OKL_API.G_MISS_CHAR) AND
15484: --Bug#4419339
15485: --(lv_scs_code = 'QUOTE') AND
15486: --Bug# 4721141 : changed AND to OR
15487: (lv_scs_code = 'QUOTE') OR
15488: --Bug# 5098124 : Added 'OKL_QUOTE'
15489: (l_orig_system_source_code = 'OKL_LEASE_APP') OR
15490: (l_orig_system_source_code = 'OKL_QUOTE') THEN
15491: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: OKL_API.set_message(p_app_name => G_APP_NAME,
15494: p_msg_name => G_GEN_ASSET_NUMBER);
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15489: (l_orig_system_source_code = 'OKL_LEASE_APP') OR
15490: (l_orig_system_source_code = 'OKL_QUOTE') THEN
15491: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: OKL_API.set_message(p_app_name => G_APP_NAME,
15494: p_msg_name => G_GEN_ASSET_NUMBER);
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15497: OKL_API.set_message(p_app_name => G_APP_NAME,
15491: x_return_status := generate_asset_number(x_asset_number => l_asset_number);
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: OKL_API.set_message(p_app_name => G_APP_NAME,
15494: p_msg_name => G_GEN_ASSET_NUMBER);
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15497: OKL_API.set_message(p_app_name => G_APP_NAME,
15498: p_msg_name => G_GEN_ASSET_NUMBER);
15499: RAISE OKL_API.G_EXCEPTION_ERROR;
15492: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15493: OKL_API.set_message(p_app_name => G_APP_NAME,
15494: p_msg_name => G_GEN_ASSET_NUMBER);
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15497: OKL_API.set_message(p_app_name => G_APP_NAME,
15498: p_msg_name => G_GEN_ASSET_NUMBER);
15499: RAISE OKL_API.G_EXCEPTION_ERROR;
15500: END IF;
15493: OKL_API.set_message(p_app_name => G_APP_NAME,
15494: p_msg_name => G_GEN_ASSET_NUMBER);
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15497: OKL_API.set_message(p_app_name => G_APP_NAME,
15498: p_msg_name => G_GEN_ASSET_NUMBER);
15499: RAISE OKL_API.G_EXCEPTION_ERROR;
15500: END IF;
15501: l_talv_fa_rec.asset_number := l_asset_number;
15495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15497: OKL_API.set_message(p_app_name => G_APP_NAME,
15498: p_msg_name => G_GEN_ASSET_NUMBER);
15499: RAISE OKL_API.G_EXCEPTION_ERROR;
15500: END IF;
15501: l_talv_fa_rec.asset_number := l_asset_number;
15502: ELSE
15503: --Bug# 4053845:
15519: p_ib_loc2 => l_itiv_ib_tbl(p).object_id2_new,
15520: p_fa_loc => l_talv_fa_rec.fa_location_id,
15521: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15522: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15527: END IF;
15520: p_fa_loc => l_talv_fa_rec.fa_location_id,
15521: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15522: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15527: END IF;
15528: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15521: p_refinance_amount => l_klev_fin_rec.refinance_amount,
15522: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15527: END IF;
15528: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15529: p := l_itiv_ib_tbl.NEXT(p);
15522: p_chr_id => l_clev_fin_rec.dnz_chr_id);
15523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15527: END IF;
15528: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15529: p := l_itiv_ib_tbl.NEXT(p);
15530: END LOOP;
15528: EXIT WHEN (p = l_itiv_ib_tbl.LAST);
15529: p := l_itiv_ib_tbl.NEXT(p);
15530: END LOOP;
15531: END IF;
15532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15535: RAISE OKL_API.G_EXCEPTION_ERROR;
15536: END IF;
15529: p := l_itiv_ib_tbl.NEXT(p);
15530: END LOOP;
15531: END IF;
15532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15535: RAISE OKL_API.G_EXCEPTION_ERROR;
15536: END IF;
15537: IF P_new_yn = 'Y' THEN
15530: END LOOP;
15531: END IF;
15532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15535: RAISE OKL_API.G_EXCEPTION_ERROR;
15536: END IF;
15537: IF P_new_yn = 'Y' THEN
15538: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15531: END IF;
15532: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15533: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15534: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15535: RAISE OKL_API.G_EXCEPTION_ERROR;
15536: END IF;
15537: IF P_new_yn = 'Y' THEN
15538: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15539: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15537: IF P_new_yn = 'Y' THEN
15538: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15539: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15540: ELSIF p_new_yn = 'N' THEN
15541: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
15542: l_clev_model_rec.price_unit := null;
15543: END IF;
15544: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
15545: l_cimv_model_rec.number_of_items := null;
15540: ELSIF p_new_yn = 'N' THEN
15541: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
15542: l_clev_model_rec.price_unit := null;
15543: END IF;
15544: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
15545: l_cimv_model_rec.number_of_items := null;
15546: END IF;
15547: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
15548: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
15555: -- 4414408 Assign the line style id directly
15556: /*
15557: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15558: x_lse_id => l_clev_fin_rec.lse_id);
15559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15562: RAISE OKL_API.G_EXCEPTION_ERROR;
15563: END IF;
15556: /*
15557: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15558: x_lse_id => l_clev_fin_rec.lse_id);
15559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15562: RAISE OKL_API.G_EXCEPTION_ERROR;
15563: END IF;
15564: */
15557: x_return_status := get_lse_id(p_lty_code => G_FIN_LINE_LTY_CODE,
15558: x_lse_id => l_clev_fin_rec.lse_id);
15559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15562: RAISE OKL_API.G_EXCEPTION_ERROR;
15563: END IF;
15564: */
15565: l_clev_fin_rec.lse_id := G_FIN_LINE_LTY_ID;
15558: x_lse_id => l_clev_fin_rec.lse_id);
15559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15562: RAISE OKL_API.G_EXCEPTION_ERROR;
15563: END IF;
15564: */
15565: l_clev_fin_rec.lse_id := G_FIN_LINE_LTY_ID;
15566: l_clev_fin_rec.chr_id := l_clev_fin_rec.dnz_chr_id;
15570: l_clev_fin_rec.name := upper(l_clev_fin_rec.name);
15571: l_clev_fin_rec.item_description := l_talv_fa_rec.description;
15572: l_clev_fin_rec.exception_yn := 'N';
15573: IF (l_clev_fin_rec.display_sequence IS NUll OR
15574: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15575: l_clev_fin_rec.display_sequence := 1;
15576: END IF;
15577: -- To Check We Got the Valid info
15578: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15575: l_clev_fin_rec.display_sequence := 1;
15576: END IF;
15577: -- To Check We Got the Valid info
15578: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15579: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
15580: UPPER(p_new_yn) IS NULL) THEN
15581: OKL_API.set_message(p_app_name => G_APP_NAME,
15582: p_msg_name => G_INVALID_YN,
15583: p_token1 => G_COL_NAME_TOKEN,
15577: -- To Check We Got the Valid info
15578: IF UPPER(p_new_yn) NOT IN ('Y','N') OR
15579: (UPPER(p_new_yn) = OKL_API.G_MISS_CHAR OR
15580: UPPER(p_new_yn) IS NULL) THEN
15581: OKL_API.set_message(p_app_name => G_APP_NAME,
15582: p_msg_name => G_INVALID_YN,
15583: p_token1 => G_COL_NAME_TOKEN,
15584: p_token1_value => 'p_new_yn');
15585: -- Halt Validation
15582: p_msg_name => G_INVALID_YN,
15583: p_token1 => G_COL_NAME_TOKEN,
15584: p_token1_value => 'p_new_yn');
15585: -- Halt Validation
15586: RAISE OKL_API.G_EXCEPTION_ERROR;
15587: END IF;
15588: -- 4414408 Validate the Asset Number
15589: -- Validate to see if the asset_number given is not null
15590: -- and also Validate asset_number does not exists
15593: validate_new_asset_number(x_return_status => x_return_status,
15594: p_asset_number => l_asset_number,
15595: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15596: -- Check if activity started successfully
15597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15600: RAISE OKL_API.G_EXCEPTION_ERROR;
15601: END IF;
15594: p_asset_number => l_asset_number,
15595: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15596: -- Check if activity started successfully
15597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15600: RAISE OKL_API.G_EXCEPTION_ERROR;
15601: END IF;
15602: ELSE
15595: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15596: -- Check if activity started successfully
15597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15600: RAISE OKL_API.G_EXCEPTION_ERROR;
15601: END IF;
15602: ELSE
15603: validate_new_asset_number(x_return_status => x_return_status,
15596: -- Check if activity started successfully
15597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15599: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15600: RAISE OKL_API.G_EXCEPTION_ERROR;
15601: END IF;
15602: ELSE
15603: validate_new_asset_number(x_return_status => x_return_status,
15604: p_asset_number => l_asset_number,
15603: validate_new_asset_number(x_return_status => x_return_status,
15604: p_asset_number => l_asset_number,
15605: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15606: -- Check if activity ended successfully
15607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15610: RAISE OKL_API.G_EXCEPTION_ERROR;
15611: END IF;
15604: p_asset_number => l_asset_number,
15605: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15606: -- Check if activity ended successfully
15607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15610: RAISE OKL_API.G_EXCEPTION_ERROR;
15611: END IF;
15612: END IF;
15605: p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id);
15606: -- Check if activity ended successfully
15607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15610: RAISE OKL_API.G_EXCEPTION_ERROR;
15611: END IF;
15612: END IF;
15613:
15606: -- Check if activity ended successfully
15607: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15608: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15609: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15610: RAISE OKL_API.G_EXCEPTION_ERROR;
15611: END IF;
15612: END IF;
15613:
15614: -- Creation of the Financial Asset Line
15622: p_clev_rec => l_clev_fin_rec,
15623: p_klev_rec => l_klev_fin_rec,
15624: x_clev_rec => x_clev_fin_rec,
15625: x_klev_rec => l_klev_fin_rec_out);
15626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15629: RAISE OKL_API.G_EXCEPTION_ERROR;
15630: END IF;
15623: p_klev_rec => l_klev_fin_rec,
15624: x_clev_rec => x_clev_fin_rec,
15625: x_klev_rec => l_klev_fin_rec_out);
15626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15629: RAISE OKL_API.G_EXCEPTION_ERROR;
15630: END IF;
15631:
15624: x_clev_rec => x_clev_fin_rec,
15625: x_klev_rec => l_klev_fin_rec_out);
15626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15629: RAISE OKL_API.G_EXCEPTION_ERROR;
15630: END IF;
15631:
15632: -- added by rravikir (Estimated property tax)
15625: x_klev_rec => l_klev_fin_rec_out);
15626: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15627: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15628: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15629: RAISE OKL_API.G_EXCEPTION_ERROR;
15630: END IF;
15631:
15632: -- added by rravikir (Estimated property tax)
15633: ln_chr_id := x_clev_fin_rec.dnz_chr_id;
15639: -- 4414408 Assign the line style id directly
15640: /*
15641: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15642: x_lse_id => l_clev_model_rec.lse_id);
15643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15646: RAISE OKL_API.G_EXCEPTION_ERROR;
15647: END IF;
15640: /*
15641: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15642: x_lse_id => l_clev_model_rec.lse_id);
15643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15646: RAISE OKL_API.G_EXCEPTION_ERROR;
15647: END IF;
15648: */
15641: x_return_status := get_lse_id(p_lty_code => G_MODEL_LINE_LTY_CODE,
15642: x_lse_id => l_clev_model_rec.lse_id);
15643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15646: RAISE OKL_API.G_EXCEPTION_ERROR;
15647: END IF;
15648: */
15649: IF (l_clev_model_rec.display_sequence IS NUll OR
15642: x_lse_id => l_clev_model_rec.lse_id);
15643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15644: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15646: RAISE OKL_API.G_EXCEPTION_ERROR;
15647: END IF;
15648: */
15649: IF (l_clev_model_rec.display_sequence IS NUll OR
15650: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15646: RAISE OKL_API.G_EXCEPTION_ERROR;
15647: END IF;
15648: */
15649: IF (l_clev_model_rec.display_sequence IS NUll OR
15650: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15651: l_clev_model_rec.display_sequence := x_clev_fin_rec.display_sequence + 1;
15652: END IF;
15653: l_clev_model_rec.lse_id := G_MODEL_LINE_LTY_ID;
15654: l_clev_model_rec.chr_id := null;
15672: p_cimv_rec => l_cimv_model_rec,
15673: x_clev_rec => x_clev_model_rec,
15674: x_klev_rec => l_klev_model_rec_out,
15675: x_cimv_rec => l_cimv_model_rec_out);
15676: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15678: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15679: RAISE OKL_API.G_EXCEPTION_ERROR;
15680: END IF;
15673: x_clev_rec => x_clev_model_rec,
15674: x_klev_rec => l_klev_model_rec_out,
15675: x_cimv_rec => l_cimv_model_rec_out);
15676: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15678: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15679: RAISE OKL_API.G_EXCEPTION_ERROR;
15680: END IF;
15681: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15674: x_klev_rec => l_klev_model_rec_out,
15675: x_cimv_rec => l_cimv_model_rec_out);
15676: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15678: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15679: RAISE OKL_API.G_EXCEPTION_ERROR;
15680: END IF;
15681: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15682: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15675: x_cimv_rec => l_cimv_model_rec_out);
15676: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15678: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15679: RAISE OKL_API.G_EXCEPTION_ERROR;
15680: END IF;
15681: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15682: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15683: p_init_msg_list => p_init_msg_list,
15691: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15692: x_fin_clev_rec => x_clev_fin_rec,
15693: x_fin_klev_rec => l_klev_fin_rec_out,
15694: x_oec => ln_klev_fin_oec,
15695: p_validate_fin_line => OKL_API.G_FALSE);
15696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15692: x_fin_clev_rec => x_clev_fin_rec,
15693: x_fin_klev_rec => l_klev_fin_rec_out,
15694: x_oec => ln_klev_fin_oec,
15695: p_validate_fin_line => OKL_API.G_FALSE);
15696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15700: END IF;
15693: x_fin_klev_rec => l_klev_fin_rec_out,
15694: x_oec => ln_klev_fin_oec,
15695: p_validate_fin_line => OKL_API.G_FALSE);
15696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15700: END IF;
15701: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15694: x_oec => ln_klev_fin_oec,
15695: p_validate_fin_line => OKL_API.G_FALSE);
15696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15700: END IF;
15701: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15702: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15695: p_validate_fin_line => OKL_API.G_FALSE);
15696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15700: END IF;
15701: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15702: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15703: p_init_msg_list => p_init_msg_list,
15711: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15712: x_fin_clev_rec => x_clev_fin_rec,
15713: x_fin_klev_rec => l_klev_fin_rec_out,
15714: x_cap_amt => ln_klev_fin_cap,
15715: p_validate_fin_line => OKL_API.G_FALSE);
15716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15712: x_fin_clev_rec => x_clev_fin_rec,
15713: x_fin_klev_rec => l_klev_fin_rec_out,
15714: x_cap_amt => ln_klev_fin_cap,
15715: p_validate_fin_line => OKL_API.G_FALSE);
15716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15713: x_fin_klev_rec => l_klev_fin_rec_out,
15714: x_cap_amt => ln_klev_fin_cap,
15715: p_validate_fin_line => OKL_API.G_FALSE);
15716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15721: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15714: x_cap_amt => ln_klev_fin_cap,
15715: p_validate_fin_line => OKL_API.G_FALSE);
15716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15721: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15722: -- We need to Back calculate the Residual Percentage if value not given
15715: p_validate_fin_line => OKL_API.G_FALSE);
15716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15721: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15722: -- We need to Back calculate the Residual Percentage if value not given
15723: -- or if given should be in sync with residual value
15721: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15722: -- We need to Back calculate the Residual Percentage if value not given
15723: -- or if given should be in sync with residual value
15724:
15725: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15726: l_klev_fin_rec_out.residual_percentage := null;
15727: END IF;
15728:
15729: IF l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM THEN
15725: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15726: l_klev_fin_rec_out.residual_percentage := null;
15727: END IF;
15728:
15729: IF l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM THEN
15730: l_klev_fin_rec_out.residual_value := null;
15731: END IF;
15732:
15733: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15730: l_klev_fin_rec_out.residual_value := null;
15731: END IF;
15732:
15733: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15734: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15735: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15736: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15737:
15738: l_top_line_id := x_clev_fin_rec.id;
15732:
15733: IF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15734: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15735: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15736: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15737:
15738: l_top_line_id := x_clev_fin_rec.id;
15739: l_oec := l_klev_fin_rec_out.oec;
15740: l_residual_value := l_klev_fin_rec_out.residual_value;
15751: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
15752: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15753: x_fin_clev_rec => x_clev_fin_rec,
15754: x_fin_klev_rec => l_klev_fin_rec_out,
15755: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15752: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15753: x_fin_clev_rec => x_clev_fin_rec,
15754: x_fin_klev_rec => l_klev_fin_rec_out,
15755: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15753: x_fin_clev_rec => x_clev_fin_rec,
15754: x_fin_klev_rec => l_klev_fin_rec_out,
15755: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15754: x_fin_klev_rec => l_klev_fin_rec_out,
15755: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15762: p_init_msg_list => p_init_msg_list,
15755: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15756: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15757: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15758: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15759: RAISE OKL_API.G_EXCEPTION_ERROR;
15760: END IF;
15761: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15762: p_init_msg_list => p_init_msg_list,
15763: x_return_status => x_return_status,
15770: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15771: x_fin_clev_rec => x_clev_fin_rec,
15772: x_fin_klev_rec => l_klev_fin_rec_out,
15773: x_res_value => ln_klev_fin_res,
15774: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15771: x_fin_clev_rec => x_clev_fin_rec,
15772: x_fin_klev_rec => l_klev_fin_rec_out,
15773: x_res_value => ln_klev_fin_res,
15774: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15772: x_fin_klev_rec => l_klev_fin_rec_out,
15773: x_res_value => ln_klev_fin_res,
15774: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15773: x_res_value => ln_klev_fin_res,
15774: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15781: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15774: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15775: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15776: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15781: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15782: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15777: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15778: RAISE OKL_API.G_EXCEPTION_ERROR;
15779: END IF;
15780: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15781: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15782: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15783: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15784:
15785: l_top_line_id := x_clev_fin_rec.id;
15779: END IF;
15780: ELSIF (l_klev_fin_rec_out.residual_percentage IS NULL OR
15781: l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM) AND
15782: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15783: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15784:
15785: l_top_line_id := x_clev_fin_rec.id;
15786: l_oec := l_klev_fin_rec_out.oec;
15787: l_residual_value := l_klev_fin_rec_out.residual_value;
15798: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
15799: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15800: x_fin_clev_rec => x_clev_fin_rec,
15801: x_fin_klev_rec => l_klev_fin_rec_out,
15802: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15799: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15800: x_fin_clev_rec => x_clev_fin_rec,
15801: x_fin_klev_rec => l_klev_fin_rec_out,
15802: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15807: END IF;
15800: x_fin_clev_rec => x_clev_fin_rec,
15801: x_fin_klev_rec => l_klev_fin_rec_out,
15802: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15807: END IF;
15808: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15801: x_fin_klev_rec => l_klev_fin_rec_out,
15802: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15807: END IF;
15808: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15809: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15802: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15807: END IF;
15808: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15809: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15810: (l_klev_fin_rec_out.residual_value IS NULL OR
15805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15806: RAISE OKL_API.G_EXCEPTION_ERROR;
15807: END IF;
15808: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15809: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15810: (l_klev_fin_rec_out.residual_value IS NULL OR
15811: l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM) THEN
15812: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15813: p_init_msg_list => p_init_msg_list,
15807: END IF;
15808: ELSIF (l_klev_fin_rec_out.residual_percentage IS NOT NULL OR
15809: l_klev_fin_rec_out.residual_percentage <> OKL_API.G_MISS_NUM) AND
15810: (l_klev_fin_rec_out.residual_value IS NULL OR
15811: l_klev_fin_rec_out.residual_value = OKL_API.G_MISS_NUM) THEN
15812: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
15813: p_init_msg_list => p_init_msg_list,
15814: x_return_status => x_return_status,
15815: x_msg_count => x_msg_count,
15821: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
15822: x_fin_clev_rec => x_clev_fin_rec,
15823: x_fin_klev_rec => l_klev_fin_rec_out,
15824: x_res_value => ln_klev_fin_res,
15825: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15822: x_fin_clev_rec => x_clev_fin_rec,
15823: x_fin_klev_rec => l_klev_fin_rec_out,
15824: x_res_value => ln_klev_fin_res,
15825: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15830: END IF;
15823: x_fin_klev_rec => l_klev_fin_rec_out,
15824: x_res_value => ln_klev_fin_res,
15825: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15830: END IF;
15831: END IF;
15824: x_res_value => ln_klev_fin_res,
15825: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15830: END IF;
15831: END IF;
15832: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15825: p_validate_fin_line => OKL_API.G_FALSE); -- #4414408
15826: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15828: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15830: END IF;
15831: END IF;
15832: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15833: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15829: RAISE OKL_API.G_EXCEPTION_ERROR;
15830: END IF;
15831: END IF;
15832: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15833: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15834: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15835: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15836: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15837: OKL_API.set_message(p_app_name => G_APP_NAME,
15831: END IF;
15832: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
15833: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15834: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15835: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15836: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15837: OKL_API.set_message(p_app_name => G_APP_NAME,
15838: p_msg_name => G_SALVAGE_VALUE);
15839: RAISE OKL_API.G_EXCEPTION_ERROR;
15833: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
15834: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
15835: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15836: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15837: OKL_API.set_message(p_app_name => G_APP_NAME,
15838: p_msg_name => G_SALVAGE_VALUE);
15839: RAISE OKL_API.G_EXCEPTION_ERROR;
15840: END IF;
15841: END IF;
15835: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
15836: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
15837: OKL_API.set_message(p_app_name => G_APP_NAME,
15838: p_msg_name => G_SALVAGE_VALUE);
15839: RAISE OKL_API.G_EXCEPTION_ERROR;
15840: END IF;
15841: END IF;
15842: -- Required cle Line Information
15843: -- Creation of the Fixed Asset Line Process
15845: -- 4414408 Assign the line style ID directly
15846: /*
15847: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15848: x_lse_id => l_clev_fa_rec.lse_id);
15849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15852: RAISE OKL_API.G_EXCEPTION_ERROR;
15853: END IF;
15846: /*
15847: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15848: x_lse_id => l_clev_fa_rec.lse_id);
15849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15852: RAISE OKL_API.G_EXCEPTION_ERROR;
15853: END IF;
15854: */
15847: x_return_status := get_lse_id(p_lty_code => G_FA_LINE_LTY_CODE,
15848: x_lse_id => l_clev_fa_rec.lse_id);
15849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15852: RAISE OKL_API.G_EXCEPTION_ERROR;
15853: END IF;
15854: */
15855: IF (l_clev_fa_rec.display_sequence IS NUll OR
15848: x_lse_id => l_clev_fa_rec.lse_id);
15849: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15852: RAISE OKL_API.G_EXCEPTION_ERROR;
15853: END IF;
15854: */
15855: IF (l_clev_fa_rec.display_sequence IS NUll OR
15856: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15852: RAISE OKL_API.G_EXCEPTION_ERROR;
15853: END IF;
15854: */
15855: IF (l_clev_fa_rec.display_sequence IS NUll OR
15856: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
15857: l_clev_fa_rec.display_sequence := x_clev_model_rec.display_sequence + 2;
15858: END IF;
15859: l_clev_fa_rec.lse_id := G_FA_LINE_LTY_ID;
15860: l_clev_fa_rec.chr_id := null;
15884: END IF;
15885: l_cimv_fa_rec.number_of_items := ln_cimv_model_no_items;
15886: -- Txl Asset Information
15887: IF (l_talv_fa_rec.asset_number IS NULL OR
15888: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
15889: l_talv_fa_rec.asset_number := l_asset_number;
15890: --bug# 4053845
15891: ELSE
15892: l_talv_fa_rec.asset_number := UPPER(l_talv_fa_rec.asset_number);
15893: END IF;
15894: IF P_new_yn= 'Y' THEN
15895: --fix for #3481999
15896: IF ( l_talv_fa_rec.depreciation_cost IS NULL OR
15897: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM ) THEN
15898: l_talv_fa_rec.depreciation_cost := l_klev_fin_rec_out.oec;
15899: END IF;
15900:
15901: l_talv_fa_rec.original_cost := l_klev_fin_rec_out.oec;
15906: --| start 29-Oct-2008 cklee Bug: 7492324 move code logic to |
15907: --| OKL_TXL_ASSETS_PVT.CREATE_TXL_ASSET_DEF |
15908:
15909: /*
15910: If nvl(l_talv_fa_rec.salvage_value,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM AND
15911: nvl(l_talv_fa_rec.percent_salvage_value, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
15912: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15913: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15914: loop
15907: --| OKL_TXL_ASSETS_PVT.CREATE_TXL_ASSET_DEF |
15908:
15909: /*
15910: If nvl(l_talv_fa_rec.salvage_value,OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM AND
15911: nvl(l_talv_fa_rec.percent_salvage_value, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM then
15912: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15913: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15914: loop
15915: If l_deal_type_rec.deal_type = 'LOAN' then
15912: --Bug# 4186455 : Do not populate salvage value for Loan and loan revolving deal types
15913: for l_deal_type_rec in l_deal_type_csr(p_chr_id => l_clev_fin_rec.dnz_chr_id)
15914: loop
15915: If l_deal_type_rec.deal_type = 'LOAN' then
15916: If nvl(l_deal_type_rec.reporting_pdt_id,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
15917: for l_pdt_deal_rec in l_pdt_deal_csr(p_pdt_id => l_deal_type_rec.reporting_pdt_id)
15918: loop
15919: If l_pdt_deal_rec.deal_type = 'LEASEOP' then -- reporting pdt is operating lease
15920: l_talv_fa_rec.salvage_value := nvl(l_klev_fin_rec_out.residual_value,0);
15955: x_klev_rec => l_klev_fa_rec_out,
15956: x_cimv_rec => l_cimv_fa_rec_out,
15957: x_trxv_rec => l_trxv_fa_rec_out,
15958: x_talv_rec => l_talv_fa_rec_out);
15959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15962: RAISE OKL_API.G_EXCEPTION_ERROR;
15963: END IF;
15956: x_cimv_rec => l_cimv_fa_rec_out,
15957: x_trxv_rec => l_trxv_fa_rec_out,
15958: x_talv_rec => l_talv_fa_rec_out);
15959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15962: RAISE OKL_API.G_EXCEPTION_ERROR;
15963: END IF;
15964: IF p_new_yn = 'N' THEN
15957: x_trxv_rec => l_trxv_fa_rec_out,
15958: x_talv_rec => l_talv_fa_rec_out);
15959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15962: RAISE OKL_API.G_EXCEPTION_ERROR;
15963: END IF;
15964: IF p_new_yn = 'N' THEN
15965: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15958: x_talv_rec => l_talv_fa_rec_out);
15959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15961: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15962: RAISE OKL_API.G_EXCEPTION_ERROR;
15963: END IF;
15964: IF p_new_yn = 'N' THEN
15965: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15966: r_itiv_ib_tbl(k).serial_number := r_ib_sno_asset.ib_serial_number;
15964: IF p_new_yn = 'N' THEN
15965: FOR r_ib_sno_asset IN c_ib_sno_asset(l_talv_fa_rec_out.asset_number) LOOP
15966: r_itiv_ib_tbl(k).serial_number := r_ib_sno_asset.ib_serial_number;
15967: IF r_ib_sno_asset.ib_serial_number IS NULL OR
15968: r_ib_sno_asset.ib_serial_number = OKL_API.G_MISS_CHAR THEN
15969: r_itiv_ib_tbl(k).mfg_serial_number_yn := 'N';
15970: ELSE
15971: r_itiv_ib_tbl(k).mfg_serial_number_yn := 'Y';
15972: END IF;
15988: -- We have intialize the J , since there could be any index integer
15989: j := l_itiv_ib_tbl.FIRST;
15990: LOOP
15991: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15992: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15993: x_return_status := OKL_API.G_RET_STS_ERROR;
15994: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15995: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15996: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15989: j := l_itiv_ib_tbl.FIRST;
15990: LOOP
15991: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15992: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15993: x_return_status := OKL_API.G_RET_STS_ERROR;
15994: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15995: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15996: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15997: OKL_API.set_message(p_app_name => G_APP_NAME,
15990: LOOP
15991: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
15992: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
15993: x_return_status := OKL_API.G_RET_STS_ERROR;
15994: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15995: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15996: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15997: OKL_API.set_message(p_app_name => G_APP_NAME,
15998: p_msg_name => G_CNT_REC);
15993: x_return_status := OKL_API.G_RET_STS_ERROR;
15994: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
15995: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15996: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15997: OKL_API.set_message(p_app_name => G_APP_NAME,
15998: p_msg_name => G_CNT_REC);
15999: RAISE OKL_API.G_EXCEPTION_ERROR;
16000: END IF;
16001: ln_dummy := ln_cimv_model_no_items;
15995: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
15996: IF ln_dummy1 <> ln_cimv_model_no_items THEN
15997: OKL_API.set_message(p_app_name => G_APP_NAME,
15998: p_msg_name => G_CNT_REC);
15999: RAISE OKL_API.G_EXCEPTION_ERROR;
16000: END IF;
16001: ln_dummy := ln_cimv_model_no_items;
16002: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'N' THEN
16003: ln_dummy := 1;
16005: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
16006: j := l_itiv_ib_tbl.NEXT(j);
16007: END LOOP;
16008: ELSE
16009: OKL_API.set_message(p_app_name => G_APP_NAME,
16010: p_msg_name => G_CNT_REC);
16011: RAISE OKL_API.G_EXCEPTION_ERROR;
16012: END IF;
16013: ELSIF p_new_yn = 'Y' THEN
16007: END LOOP;
16008: ELSE
16009: OKL_API.set_message(p_app_name => G_APP_NAME,
16010: p_msg_name => G_CNT_REC);
16011: RAISE OKL_API.G_EXCEPTION_ERROR;
16012: END IF;
16013: ELSIF p_new_yn = 'Y' THEN
16014: -- We have to make sure the count of the itiv_tbl
16015: -- should be equal to qty of items
16023:
16024: l_itiv_ib_tbl(j).dnz_cle_id := x_clev_fa_rec.cle_id; -- For importing Serial Item fix
16025:
16026: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
16027: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
16028: x_return_status := OKL_API.G_RET_STS_ERROR;
16029: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16030: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
16031: IF ln_dummy1 <> ln_cimv_model_no_items THEN
16024: l_itiv_ib_tbl(j).dnz_cle_id := x_clev_fa_rec.cle_id; -- For importing Serial Item fix
16025:
16026: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
16027: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
16028: x_return_status := OKL_API.G_RET_STS_ERROR;
16029: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16030: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
16031: IF ln_dummy1 <> ln_cimv_model_no_items THEN
16032: OKL_API.set_message(p_app_name => G_APP_NAME,
16025:
16026: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
16027: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
16028: x_return_status := OKL_API.G_RET_STS_ERROR;
16029: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16030: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
16031: IF ln_dummy1 <> ln_cimv_model_no_items THEN
16032: OKL_API.set_message(p_app_name => G_APP_NAME,
16033: p_msg_name => G_CNT_REC);
16028: x_return_status := OKL_API.G_RET_STS_ERROR;
16029: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16030: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
16031: IF ln_dummy1 <> ln_cimv_model_no_items THEN
16032: OKL_API.set_message(p_app_name => G_APP_NAME,
16033: p_msg_name => G_CNT_REC);
16034: RAISE OKL_API.G_EXCEPTION_ERROR;
16035: END IF;
16036: ln_dummy := ln_cimv_model_no_items;
16030: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'Y' THEN
16031: IF ln_dummy1 <> ln_cimv_model_no_items THEN
16032: OKL_API.set_message(p_app_name => G_APP_NAME,
16033: p_msg_name => G_CNT_REC);
16034: RAISE OKL_API.G_EXCEPTION_ERROR;
16035: END IF;
16036: ln_dummy := ln_cimv_model_no_items;
16037: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn = 'N' THEN
16038: ln_dummy := 1;
16040: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
16041: j := l_itiv_ib_tbl.NEXT(j);
16042: END LOOP;
16043: ELSE
16044: OKL_API.set_message(p_app_name => G_APP_NAME,
16045: p_msg_name => G_CNT_REC);
16046: RAISE OKL_API.G_EXCEPTION_ERROR;
16047: END IF;
16048: END IF;
16042: END LOOP;
16043: ELSE
16044: OKL_API.set_message(p_app_name => G_APP_NAME,
16045: p_msg_name => G_CNT_REC);
16046: RAISE OKL_API.G_EXCEPTION_ERROR;
16047: END IF;
16048: END IF;
16049: -- Since we have to create the instance
16050: -- Depending of the qty in l_cimv_model_rec.number_of_items
16051: -- we have use loop
16052: j := l_itiv_ib_tbl.FIRST;
16053: FOR i IN 1..ln_dummy LOOP
16054: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
16055: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
16056: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
16057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16053: FOR i IN 1..ln_dummy LOOP
16054: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
16055: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
16056: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
16057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16054: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
16055: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
16056: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
16057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16062: OKL_API.set_message(p_app_name => G_APP_NAME,
16056: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
16057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16062: OKL_API.set_message(p_app_name => G_APP_NAME,
16063: p_msg_name => G_GEN_INST_NUM_IB);
16064: RAISE OKL_API.G_EXCEPTION_ERROR;
16057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16062: OKL_API.set_message(p_app_name => G_APP_NAME,
16063: p_msg_name => G_GEN_INST_NUM_IB);
16064: RAISE OKL_API.G_EXCEPTION_ERROR;
16065: END IF;
16058: OKL_API.set_message(p_app_name => G_APP_NAME,
16059: p_msg_name => G_GEN_INST_NUM_IB);
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16062: OKL_API.set_message(p_app_name => G_APP_NAME,
16063: p_msg_name => G_GEN_INST_NUM_IB);
16064: RAISE OKL_API.G_EXCEPTION_ERROR;
16065: END IF;
16066: l_itiv_ib_tbl(j).instance_number_ib := l_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
16060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16061: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16062: OKL_API.set_message(p_app_name => G_APP_NAME,
16063: p_msg_name => G_GEN_INST_NUM_IB);
16064: RAISE OKL_API.G_EXCEPTION_ERROR;
16065: END IF;
16066: l_itiv_ib_tbl(j).instance_number_ib := l_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
16067: l_itiv_inst_tbl(j).instance_number_ib := l_itiv_ib_tbl(j).instance_number_ib;
16068: END IF;
16071: -- 4414408 Assign the line style ID directly
16072: /*
16073: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
16074: x_lse_id => l_clev_inst_rec.lse_id);
16075: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16076: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16078: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16079: END IF;
16072: /*
16073: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
16074: x_lse_id => l_clev_inst_rec.lse_id);
16075: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16076: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16078: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16079: END IF;
16080: */
16073: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
16074: x_lse_id => l_clev_inst_rec.lse_id);
16075: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16076: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16078: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16079: END IF;
16080: */
16081: IF (l_clev_inst_rec.display_sequence IS NUll OR
16074: x_lse_id => l_clev_inst_rec.lse_id);
16075: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16076: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16078: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16079: END IF;
16080: */
16081: IF (l_clev_inst_rec.display_sequence IS NUll OR
16082: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16078: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16079: END IF;
16080: */
16081: IF (l_clev_inst_rec.display_sequence IS NUll OR
16082: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16083: l_clev_inst_rec.display_sequence := x_clev_fa_rec.display_sequence + 3;
16084: END IF;
16085: -- Required cle Line Information
16086: l_clev_inst_rec.lse_id := G_INST_LINE_LTY_ID;
16099: p_itiv_rec => l_itiv_inst_tbl(j),
16100: x_clev_rec => l_clev_inst_rec_out,
16101: x_klev_rec => l_klev_inst_rec_out,
16102: x_itiv_rec => l_itiv_inst_tbl_out(j));
16103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16106: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16107: END IF;
16100: x_clev_rec => l_clev_inst_rec_out,
16101: x_klev_rec => l_klev_inst_rec_out,
16102: x_itiv_rec => l_itiv_inst_tbl_out(j));
16103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16106: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16107: END IF;
16108: -- Creation of the ib Line Process
16101: x_klev_rec => l_klev_inst_rec_out,
16102: x_itiv_rec => l_itiv_inst_tbl_out(j));
16103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16106: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16107: END IF;
16108: -- Creation of the ib Line Process
16109: -- Getting the Line style Info
16102: x_itiv_rec => l_itiv_inst_tbl_out(j));
16103: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16105: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16106: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16107: END IF;
16108: -- Creation of the ib Line Process
16109: -- Getting the Line style Info
16110: -- 4414408 Assign the IB line style ID directly
16110: -- 4414408 Assign the IB line style ID directly
16111: /*
16112: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
16113: x_lse_id => l_clev_ib_rec.lse_id);
16114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16115: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16118: END IF;
16111: /*
16112: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
16113: x_lse_id => l_clev_ib_rec.lse_id);
16114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16115: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16118: END IF;
16119: */
16112: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
16113: x_lse_id => l_clev_ib_rec.lse_id);
16114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16115: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16118: END IF;
16119: */
16120: IF (l_clev_ib_rec.display_sequence IS NUll OR
16113: x_lse_id => l_clev_ib_rec.lse_id);
16114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16115: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16118: END IF;
16119: */
16120: IF (l_clev_ib_rec.display_sequence IS NUll OR
16121: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16118: END IF;
16119: */
16120: IF (l_clev_ib_rec.display_sequence IS NUll OR
16121: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16122: l_clev_ib_rec.display_sequence := l_clev_inst_rec_out.display_sequence + 4;
16123: END IF;
16124: -- Required cle Line Information
16125: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
16136: lv_object_id1_new := l_itiv_ib_tbl(j).object_id1_new;
16137: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
16138: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16139: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16141: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16143: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16144: END IF;
16137: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
16138: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16139: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16141: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16143: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16144: END IF;
16145: IF P_new_yn= 'Y' THEN
16138: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
16139: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16141: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16143: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16144: END IF;
16145: IF P_new_yn= 'Y' THEN
16146: l_itiv_ib_tbl(j).tal_type := 'CFA';
16139: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
16140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16141: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16143: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16144: END IF;
16145: IF P_new_yn= 'Y' THEN
16146: l_itiv_ib_tbl(j).tal_type := 'CFA';
16147: ELSIF p_new_yn = 'N' THEN
16164: x_klev_rec => l_klev_ib_rec_out,
16165: x_cimv_rec => l_cimv_ib_rec_out,
16166: x_trxv_rec => l_trxv_ib_rec_out,
16167: x_itiv_rec => l_itiv_ib_tbl_out(j));
16168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16169: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16171: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16172: END IF;
16165: x_cimv_rec => l_cimv_ib_rec_out,
16166: x_trxv_rec => l_trxv_ib_rec_out,
16167: x_itiv_rec => l_itiv_ib_tbl_out(j));
16168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16169: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16171: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16172: END IF;
16173: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16166: x_trxv_rec => l_trxv_ib_rec_out,
16167: x_itiv_rec => l_itiv_ib_tbl_out(j));
16168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16169: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16171: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16172: END IF;
16173: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16174: j := l_itiv_inst_tbl.NEXT(j);
16167: x_itiv_rec => l_itiv_ib_tbl_out(j));
16168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16169: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16171: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
16172: END IF;
16173: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16174: j := l_itiv_inst_tbl.NEXT(j);
16175: m := m + 1;
16173: EXIT WHEN (j = l_itiv_inst_tbl.LAST);
16174: j := l_itiv_inst_tbl.NEXT(j);
16175: m := m + 1;
16176: END LOOP;
16177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16180: RAISE OKL_API.G_EXCEPTION_ERROR;
16181: END IF;
16174: j := l_itiv_inst_tbl.NEXT(j);
16175: m := m + 1;
16176: END LOOP;
16177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16180: RAISE OKL_API.G_EXCEPTION_ERROR;
16181: END IF;
16182: END IF; --release asset --Bug# 3533936
16175: m := m + 1;
16176: END LOOP;
16177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16180: RAISE OKL_API.G_EXCEPTION_ERROR;
16181: END IF;
16182: END IF; --release asset --Bug# 3533936
16183:
16176: END LOOP;
16177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16180: RAISE OKL_API.G_EXCEPTION_ERROR;
16181: END IF;
16182: END IF; --release asset --Bug# 3533936
16183:
16184: -- Added by rravikir (Estimated property tax) -- Bug 3947959
16192: x_msg_count => x_msg_count,
16193: x_msg_data => x_msg_data,
16194: p_chr_id => ln_chr_id,
16195: p_cle_id => ln_cle_id);
16196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16199: RAISE OKL_API.G_EXCEPTION_ERROR;
16200: END IF;
16193: x_msg_data => x_msg_data,
16194: p_chr_id => ln_chr_id,
16195: p_cle_id => ln_cle_id);
16196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16199: RAISE OKL_API.G_EXCEPTION_ERROR;
16200: END IF;
16201: --Bug#4658856 ramurt
16194: p_chr_id => ln_chr_id,
16195: p_cle_id => ln_cle_id);
16196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16199: RAISE OKL_API.G_EXCEPTION_ERROR;
16200: END IF;
16201: --Bug#4658856 ramurt
16202: OKL_LA_SALES_TAX_PVT.create_sales_tax_rules(
16195: p_cle_id => ln_cle_id);
16196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16197: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16198: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16199: RAISE OKL_API.G_EXCEPTION_ERROR;
16200: END IF;
16201: --Bug#4658856 ramurt
16202: OKL_LA_SALES_TAX_PVT.create_sales_tax_rules(
16203: p_api_version => p_api_version,
16207: x_msg_data => x_msg_data,
16208: p_chr_id => ln_chr_id,
16209: p_cle_id => ln_cle_id);
16210:
16211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16214: RAISE OKL_API.G_EXCEPTION_ERROR;
16215: END IF;
16208: p_chr_id => ln_chr_id,
16209: p_cle_id => ln_cle_id);
16210:
16211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16214: RAISE OKL_API.G_EXCEPTION_ERROR;
16215: END IF;
16216: END IF;
16209: p_cle_id => ln_cle_id);
16210:
16211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16214: RAISE OKL_API.G_EXCEPTION_ERROR;
16215: END IF;
16216: END IF;
16217: -- end
16210:
16211: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16212: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16213: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16214: RAISE OKL_API.G_EXCEPTION_ERROR;
16215: END IF;
16216: END IF;
16217: -- end
16218:
16215: END IF;
16216: END IF;
16217: -- end
16218:
16219: OKL_API.END_ACTIVITY (x_msg_count,
16220: x_msg_data );
16221: EXCEPTION
16222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16218:
16219: OKL_API.END_ACTIVITY (x_msg_count,
16220: x_msg_data );
16221: EXCEPTION
16222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16224: l_api_name,
16225: G_PKG_NAME,
16226: 'OKL_API.G_RET_STS_ERROR',
16219: OKL_API.END_ACTIVITY (x_msg_count,
16220: x_msg_data );
16221: EXCEPTION
16222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16224: l_api_name,
16225: G_PKG_NAME,
16226: 'OKL_API.G_RET_STS_ERROR',
16227: x_msg_count,
16222: WHEN OKL_API.G_EXCEPTION_ERROR THEN
16223: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
16224: l_api_name,
16225: G_PKG_NAME,
16226: 'OKL_API.G_RET_STS_ERROR',
16227: x_msg_count,
16228: x_msg_data,
16229: '_PVT');
16230: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16226: 'OKL_API.G_RET_STS_ERROR',
16227: x_msg_count,
16228: x_msg_data,
16229: '_PVT');
16230: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16231: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16232: l_api_name,
16233: G_PKG_NAME,
16234: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16227: x_msg_count,
16228: x_msg_data,
16229: '_PVT');
16230: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16231: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16232: l_api_name,
16233: G_PKG_NAME,
16234: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16235: x_msg_count,
16230: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
16231: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16232: l_api_name,
16233: G_PKG_NAME,
16234: 'OKL_API.G_RET_STS_UNEXP_ERROR',
16235: x_msg_count,
16236: x_msg_data,
16237: '_PVT');
16238: WHEN OTHERS THEN
16235: x_msg_count,
16236: x_msg_data,
16237: '_PVT');
16238: WHEN OTHERS THEN
16239: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
16240: l_api_name,
16241: G_PKG_NAME,
16242: 'OTHERS',
16243: x_msg_count,
16566: --end bkatraga
16567:
16568: BEGIN
16569:
16570: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16571: -- Call start_activity to create savepoint, check compatibility
16572: -- and initialize message list
16573: x_return_status := OKL_API.START_ACTIVITY (
16574: l_api_name
16569:
16570: x_return_status := OKL_API.G_RET_STS_SUCCESS;
16571: -- Call start_activity to create savepoint, check compatibility
16572: -- and initialize message list
16573: x_return_status := OKL_API.START_ACTIVITY (
16574: l_api_name
16575: ,p_init_msg_list
16576: ,'_PVT'
16577: ,x_return_status);
16575: ,p_init_msg_list
16576: ,'_PVT'
16577: ,x_return_status);
16578: -- Check if activity started successfully
16579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16582: RAISE OKL_API.G_EXCEPTION_ERROR;
16583: END IF;
16576: ,'_PVT'
16577: ,x_return_status);
16578: -- Check if activity started successfully
16579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16582: RAISE OKL_API.G_EXCEPTION_ERROR;
16583: END IF;
16584: --start:| 14-May-2008 cklee Bug 6405415 |
16577: ,x_return_status);
16578: -- Check if activity started successfully
16579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16582: RAISE OKL_API.G_EXCEPTION_ERROR;
16583: END IF;
16584: --start:| 14-May-2008 cklee Bug 6405415 |
16585: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16578: -- Check if activity started successfully
16579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16582: RAISE OKL_API.G_EXCEPTION_ERROR;
16583: END IF;
16584: --start:| 14-May-2008 cklee Bug 6405415 |
16585: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16586: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16582: RAISE OKL_API.G_EXCEPTION_ERROR;
16583: END IF;
16584: --start:| 14-May-2008 cklee Bug 6405415 |
16585: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16586: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16587: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16588: OKL_API.set_message(p_app_name => G_APP_NAME,
16589: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16584: --start:| 14-May-2008 cklee Bug 6405415 |
16585: IF p_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM and
16586: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16587: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16588: OKL_API.set_message(p_app_name => G_APP_NAME,
16589: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16590: RAISE OKL_API.G_EXCEPTION_ERROR;
16591: END IF;
16592: END IF;
16586: p_klev_fin_rec.residual_percentage IS NOT NULL THEN
16587: IF NOT p_klev_fin_rec.residual_percentage between 0 and 100 THEN
16588: OKL_API.set_message(p_app_name => G_APP_NAME,
16589: p_msg_name => 'OKL_VALID_RESIDUAL_PERCENT');
16590: RAISE OKL_API.G_EXCEPTION_ERROR;
16591: END IF;
16592: END IF;
16593: --end:| 14-May-2008 cklee Bug 6405415 |
16594:
16600: x_msg_count => x_msg_count,
16601: x_msg_data => x_msg_data,
16602: p_cle_id => p_clev_fin_rec.id);
16603:
16604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16606: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16607: RAISE OKL_API.G_EXCEPTION_ERROR;
16608: END IF;
16601: x_msg_data => x_msg_data,
16602: p_cle_id => p_clev_fin_rec.id);
16603:
16604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16606: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16607: RAISE OKL_API.G_EXCEPTION_ERROR;
16608: END IF;
16609: --Bug# 4959361
16602: p_cle_id => p_clev_fin_rec.id);
16603:
16604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16606: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16607: RAISE OKL_API.G_EXCEPTION_ERROR;
16608: END IF;
16609: --Bug# 4959361
16610:
16603:
16604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16606: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16607: RAISE OKL_API.G_EXCEPTION_ERROR;
16608: END IF;
16609: --Bug# 4959361
16610:
16611: l_new_yn := p_new_yn;
16628: l_itiv_inst_rec := p_itiv_ib_rec;
16629: l_clev_ib_rec := p_clev_ib_rec;
16630: l_itiv_ib_rec := p_itiv_ib_rec;
16631: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
16632: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16633: OKL_API.set_message(p_app_name => G_APP_NAME,
16634: p_msg_name => G_REQUIRED_VALUE,
16635: p_token1 => G_COL_NAME_TOKEN,
16636: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16629: l_clev_ib_rec := p_clev_ib_rec;
16630: l_itiv_ib_rec := p_itiv_ib_rec;
16631: IF (l_clev_fin_rec.dnz_chr_id IS NULL OR
16632: l_clev_fin_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
16633: OKL_API.set_message(p_app_name => G_APP_NAME,
16634: p_msg_name => G_REQUIRED_VALUE,
16635: p_token1 => G_COL_NAME_TOKEN,
16636: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16637: RAISE OKL_API.G_EXCEPTION_ERROR;
16633: OKL_API.set_message(p_app_name => G_APP_NAME,
16634: p_msg_name => G_REQUIRED_VALUE,
16635: p_token1 => G_COL_NAME_TOKEN,
16636: p_token1_value => 'OKC_K_LINES_V.DNZ_CHR_ID for All Lines');
16637: RAISE OKL_API.G_EXCEPTION_ERROR;
16638: END IF;
16639:
16640:
16641: ------------------------------------------------------
16670: End If;
16671: close l_fab_csr;
16672:
16673:
16674: If l_klev_fin_rec.id = OKL_API.G_MISS_NUM then
16675: l_klev_fin_rec.id := l_clev_fin_rec.id;
16676: End If;
16677:
16678:
16678:
16679: l_itiv_ib_tbl(1) := l_itiv_ib_rec;
16680:
16681: --Bug# 4631549
16682: If nvl(l_orig_system_source_code,okl_api.g_miss_char) <> 'OKL_RELEASE' Then
16683: update_release_asset_line
16684: (p_api_version => p_api_version,
16685: p_init_msg_list => p_init_msg_list,
16686: x_return_status => x_return_status,
16690: p_chr_id => l_clev_fin_rec.dnz_chr_id,
16691: p_clev_fin_id => l_clev_fin_rec.id,
16692: x_cle_id => l_rel_ast_fin_cle_id);
16693:
16694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16697: RAISE OKL_API.G_EXCEPTION_ERROR;
16698: END IF;
16691: p_clev_fin_id => l_clev_fin_rec.id,
16692: x_cle_id => l_rel_ast_fin_cle_id);
16693:
16694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16697: RAISE OKL_API.G_EXCEPTION_ERROR;
16698: END IF;
16699:
16692: x_cle_id => l_rel_ast_fin_cle_id);
16693:
16694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16697: RAISE OKL_API.G_EXCEPTION_ERROR;
16698: END IF;
16699:
16700:
16693:
16694: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16696: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16697: RAISE OKL_API.G_EXCEPTION_ERROR;
16698: END IF;
16699:
16700:
16701:
16726: x_klev_fa_rec => l_rel_ast_klev_fa_rec,
16727: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16728: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16729:
16730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16733: RAISE OKL_API.G_EXCEPTION_ERROR;
16734: END IF;
16727: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16728: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16729:
16730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16733: RAISE OKL_API.G_EXCEPTION_ERROR;
16734: END IF;
16735:
16728: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16729:
16730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16733: RAISE OKL_API.G_EXCEPTION_ERROR;
16734: END IF;
16735:
16736: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16729:
16730: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16731: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16732: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16733: RAISE OKL_API.G_EXCEPTION_ERROR;
16734: END IF;
16735:
16736: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16737: x_clev_model_rec := l_rel_ast_clev_model_rec;
16740: x_clev_ib_rec := l_rel_ast_clev_ib_tbl(1);
16741: End If;
16742:
16743: --Bug# 4631549
16744: ElsIf nvl(l_orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' Then
16745:
16746: Modify_Release_Asset_Line(
16747: p_api_version => p_api_version,
16748: p_init_msg_list => p_init_msg_list,
16770: x_klev_fa_rec => l_rel_ast_klev_fa_rec,
16771: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16772: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16773:
16774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16777: RAISE OKL_API.G_EXCEPTION_ERROR;
16778: END IF;
16771: x_clev_ib_tbl => l_rel_ast_clev_ib_tbl,
16772: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16773:
16774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16777: RAISE OKL_API.G_EXCEPTION_ERROR;
16778: END IF;
16779:
16772: x_klev_ib_tbl => l_rel_ast_klev_ib_tbl);
16773:
16774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16777: RAISE OKL_API.G_EXCEPTION_ERROR;
16778: END IF;
16779:
16780: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16773:
16774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16776: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16777: RAISE OKL_API.G_EXCEPTION_ERROR;
16778: END IF;
16779:
16780: x_clev_fin_rec := l_rel_ast_clev_fin_rec;
16781: x_clev_model_rec := l_rel_ast_clev_model_rec;
16805: p_release_date => l_start_date,
16806: p_nbv => l_corp_net_book_value,
16807: x_expected_cost => l_expected_cost);
16808:
16809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16810: RAISE OKL_API.G_EXCEPTION_ERROR;
16811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16813: END IF;
16806: p_nbv => l_corp_net_book_value,
16807: x_expected_cost => l_expected_cost);
16808:
16809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16810: RAISE OKL_API.G_EXCEPTION_ERROR;
16811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16813: END IF;
16814:
16807: x_expected_cost => l_expected_cost);
16808:
16809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16810: RAISE OKL_API.G_EXCEPTION_ERROR;
16811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16813: END IF;
16814:
16815: l_clev_fin_rec2.id := x_clev_fin_rec.id;
16808:
16809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16810: RAISE OKL_API.G_EXCEPTION_ERROR;
16811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16813: END IF;
16814:
16815: l_clev_fin_rec2.id := x_clev_fin_rec.id;
16816: l_klev_fin_rec2.id := x_clev_fin_rec.id;
16826: p_klev_rec => l_klev_fin_rec2,
16827: x_clev_rec => lx_clev_fin_rec2,
16828: x_klev_rec => lx_klev_fin_rec2);
16829:
16830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16831: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16834: END IF;
16827: x_clev_rec => lx_clev_fin_rec2,
16828: x_klev_rec => lx_klev_fin_rec2);
16829:
16830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16831: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16834: END IF;
16835: End If;
16828: x_klev_rec => lx_klev_fin_rec2);
16829:
16830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16831: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16834: END IF;
16835: End If;
16836: --End Bug# 4631549
16829:
16830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16831: RAISE OKL_API.G_EXCEPTION_ERROR;
16832: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16833: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16834: END IF;
16835: End If;
16836: --End Bug# 4631549
16837:
16851: p_ib_loc2 => l_itiv_ib_rec.object_id2_new,
16852: p_fa_loc => l_talv_fa_rec.fa_location_id,
16853: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16854: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16858: RAISE OKL_API.G_EXCEPTION_ERROR;
16859: END IF;
16852: p_fa_loc => l_talv_fa_rec.fa_location_id,
16853: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16854: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16858: RAISE OKL_API.G_EXCEPTION_ERROR;
16859: END IF;
16860:
16853: p_refinance_amount => l_klev_fin_rec.refinance_amount,
16854: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16858: RAISE OKL_API.G_EXCEPTION_ERROR;
16859: END IF;
16860:
16861: --Added by bkatraga for bug 13717587
16854: p_chr_id => l_clev_fin_rec.dnz_chr_id);
16855: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16857: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16858: RAISE OKL_API.G_EXCEPTION_ERROR;
16859: END IF;
16860:
16861: --Added by bkatraga for bug 13717587
16862: OPEN c_get_line_details(p_dnz_chr_id => l_clev_fin_rec.dnz_chr_id, p_clev_fin_id => l_clev_fin_rec.id);
16866:
16867: -- To Get the txlv fa Line Record
16868: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16869: r_talv_fa_rec);
16870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16871: OKL_API.set_message(p_app_name => G_APP_NAME,
16872: p_msg_name => G_FETCHING_INFO,
16873: p_token1 => G_REC_NAME_TOKEN,
16874: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16867: -- To Get the txlv fa Line Record
16868: x_return_status := get_rec_txlv(l_clev_fa_rec.id,
16869: r_talv_fa_rec);
16870: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16871: OKL_API.set_message(p_app_name => G_APP_NAME,
16872: p_msg_name => G_FETCHING_INFO,
16873: p_token1 => G_REC_NAME_TOKEN,
16874: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16871: OKL_API.set_message(p_app_name => G_APP_NAME,
16872: p_msg_name => G_FETCHING_INFO,
16873: p_token1 => G_REC_NAME_TOKEN,
16874: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16877: OKL_API.set_message(p_app_name => G_APP_NAME,
16878: p_msg_name => G_FETCHING_INFO,
16879: p_token1 => G_REC_NAME_TOKEN,
16872: p_msg_name => G_FETCHING_INFO,
16873: p_token1 => G_REC_NAME_TOKEN,
16874: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16877: OKL_API.set_message(p_app_name => G_APP_NAME,
16878: p_msg_name => G_FETCHING_INFO,
16879: p_token1 => G_REC_NAME_TOKEN,
16880: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16873: p_token1 => G_REC_NAME_TOKEN,
16874: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16877: OKL_API.set_message(p_app_name => G_APP_NAME,
16878: p_msg_name => G_FETCHING_INFO,
16879: p_token1 => G_REC_NAME_TOKEN,
16880: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16881: RAISE OKL_API.G_EXCEPTION_ERROR;
16877: OKL_API.set_message(p_app_name => G_APP_NAME,
16878: p_msg_name => G_FETCHING_INFO,
16879: p_token1 => G_REC_NAME_TOKEN,
16880: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16881: RAISE OKL_API.G_EXCEPTION_ERROR;
16882: END IF;
16883: IF (l_talv_fa_rec.asset_number IS NUll OR
16884: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
16885: l_talv_fa_rec.asset_number := r_talv_fa_rec.asset_number;
16880: p_token1_value => 'OKL_TXL_ASSETS_V Record');
16881: RAISE OKL_API.G_EXCEPTION_ERROR;
16882: END IF;
16883: IF (l_talv_fa_rec.asset_number IS NUll OR
16884: l_talv_fa_rec.asset_number = OKL_API.G_MISS_CHAR) THEN
16885: l_talv_fa_rec.asset_number := r_talv_fa_rec.asset_number;
16886: -- ELSIF l_talv_fa_rec.asset_number = r_talv_fa_rec.asset_number THEN
16887: -- l_new_yn := 'N';
16888: END IF;
16886: -- ELSIF l_talv_fa_rec.asset_number = r_talv_fa_rec.asset_number THEN
16887: -- l_new_yn := 'N';
16888: END IF;
16889: IF (l_talv_fa_rec.original_cost IS NUll OR
16890: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
16891: OKL_API.set_message(p_app_name => G_APP_NAME,
16892: p_msg_name => G_REQUIRED_VALUE,
16893: p_token1 => G_REC_NAME_TOKEN,
16894: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16887: -- l_new_yn := 'N';
16888: END IF;
16889: IF (l_talv_fa_rec.original_cost IS NUll OR
16890: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
16891: OKL_API.set_message(p_app_name => G_APP_NAME,
16892: p_msg_name => G_REQUIRED_VALUE,
16893: p_token1 => G_REC_NAME_TOKEN,
16894: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16895: RAISE OKL_API.G_EXCEPTION_ERROR;
16891: OKL_API.set_message(p_app_name => G_APP_NAME,
16892: p_msg_name => G_REQUIRED_VALUE,
16893: p_token1 => G_REC_NAME_TOKEN,
16894: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16895: RAISE OKL_API.G_EXCEPTION_ERROR;
16896: END IF;
16897: IF (l_talv_fa_rec.current_units IS NUll OR
16898: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16899: OKL_API.set_message(p_app_name => G_APP_NAME,
16894: p_token1_value => 'OKL_TXL_ASSETS_V.ORIGINAL_COST');
16895: RAISE OKL_API.G_EXCEPTION_ERROR;
16896: END IF;
16897: IF (l_talv_fa_rec.current_units IS NUll OR
16898: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16899: OKL_API.set_message(p_app_name => G_APP_NAME,
16900: p_msg_name => G_REQUIRED_VALUE,
16901: p_token1 => G_COL_NAME_TOKEN,
16902: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16895: RAISE OKL_API.G_EXCEPTION_ERROR;
16896: END IF;
16897: IF (l_talv_fa_rec.current_units IS NUll OR
16898: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
16899: OKL_API.set_message(p_app_name => G_APP_NAME,
16900: p_msg_name => G_REQUIRED_VALUE,
16901: p_token1 => G_COL_NAME_TOKEN,
16902: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16903: RAISE OKL_API.G_EXCEPTION_ERROR;
16899: OKL_API.set_message(p_app_name => G_APP_NAME,
16900: p_msg_name => G_REQUIRED_VALUE,
16901: p_token1 => G_COL_NAME_TOKEN,
16902: p_token1_value => 'OKL_TXL_ASSETS_V.CURRENT_UNITS');
16903: RAISE OKL_API.G_EXCEPTION_ERROR;
16904: END IF;
16905: l_clev_model_rec.price_unit := l_talv_fa_rec.original_cost;
16906: l_clev_fa_rec.price_unit := l_talv_fa_rec.original_cost;
16907: l_cimv_model_rec.number_of_items := l_talv_fa_rec.current_units;
16908: l_cimv_fa_rec.number_of_items := l_talv_fa_rec.current_units;
16909: -- To Get the kle top Line Record
16910: x_return_status := get_rec_clev(l_clev_fin_rec.id,
16911: r_clev_fin_rec);
16912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16913: OKL_API.set_message(p_app_name => G_APP_NAME,
16914: p_msg_name => G_FETCHING_INFO,
16915: p_token1 => G_REC_NAME_TOKEN,
16916: p_token1_value => 'OKC_K_LINES_V Record');
16909: -- To Get the kle top Line Record
16910: x_return_status := get_rec_clev(l_clev_fin_rec.id,
16911: r_clev_fin_rec);
16912: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16913: OKL_API.set_message(p_app_name => G_APP_NAME,
16914: p_msg_name => G_FETCHING_INFO,
16915: p_token1 => G_REC_NAME_TOKEN,
16916: p_token1_value => 'OKC_K_LINES_V Record');
16917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16913: OKL_API.set_message(p_app_name => G_APP_NAME,
16914: p_msg_name => G_FETCHING_INFO,
16915: p_token1 => G_REC_NAME_TOKEN,
16916: p_token1_value => 'OKC_K_LINES_V Record');
16917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16919: OKL_API.set_message(p_app_name => G_APP_NAME,
16920: p_msg_name => G_FETCHING_INFO,
16921: p_token1 => G_REC_NAME_TOKEN,
16914: p_msg_name => G_FETCHING_INFO,
16915: p_token1 => G_REC_NAME_TOKEN,
16916: p_token1_value => 'OKC_K_LINES_V Record');
16917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16919: OKL_API.set_message(p_app_name => G_APP_NAME,
16920: p_msg_name => G_FETCHING_INFO,
16921: p_token1 => G_REC_NAME_TOKEN,
16922: p_token1_value => 'OKC_K_LINES_V Record');
16915: p_token1 => G_REC_NAME_TOKEN,
16916: p_token1_value => 'OKC_K_LINES_V Record');
16917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16919: OKL_API.set_message(p_app_name => G_APP_NAME,
16920: p_msg_name => G_FETCHING_INFO,
16921: p_token1 => G_REC_NAME_TOKEN,
16922: p_token1_value => 'OKC_K_LINES_V Record');
16923: RAISE OKL_API.G_EXCEPTION_ERROR;
16919: OKL_API.set_message(p_app_name => G_APP_NAME,
16920: p_msg_name => G_FETCHING_INFO,
16921: p_token1 => G_REC_NAME_TOKEN,
16922: p_token1_value => 'OKC_K_LINES_V Record');
16923: RAISE OKL_API.G_EXCEPTION_ERROR;
16924: END IF;
16925: -- To Get the kle top Line Record
16926: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16927: r_klev_fin_rec);
16924: END IF;
16925: -- To Get the kle top Line Record
16926: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16927: r_klev_fin_rec);
16928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16929: OKL_API.set_message(p_app_name => G_APP_NAME,
16930: p_msg_name => G_FETCHING_INFO,
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16925: -- To Get the kle top Line Record
16926: x_return_status := get_rec_klev(l_clev_fin_rec.id,
16927: r_klev_fin_rec);
16928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16929: OKL_API.set_message(p_app_name => G_APP_NAME,
16930: p_msg_name => G_FETCHING_INFO,
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16929: OKL_API.set_message(p_app_name => G_APP_NAME,
16930: p_msg_name => G_FETCHING_INFO,
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16937: p_token1 => G_REC_NAME_TOKEN,
16930: p_msg_name => G_FETCHING_INFO,
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16937: p_token1 => G_REC_NAME_TOKEN,
16938: p_token1_value => 'OKL_K_LINES_V Record');
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16937: p_token1 => G_REC_NAME_TOKEN,
16938: p_token1_value => 'OKL_K_LINES_V Record');
16939: RAISE OKL_API.G_EXCEPTION_ERROR;
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16937: p_token1 => G_REC_NAME_TOKEN,
16938: p_token1_value => 'OKL_K_LINES_V Record');
16939: RAISE OKL_API.G_EXCEPTION_ERROR;
16940: END IF;
16941: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16942: OKL_API.set_message(p_app_name => G_APP_NAME,
16943: p_msg_name => G_LINE_RECORD);
16938: p_token1_value => 'OKL_K_LINES_V Record');
16939: RAISE OKL_API.G_EXCEPTION_ERROR;
16940: END IF;
16941: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16942: OKL_API.set_message(p_app_name => G_APP_NAME,
16943: p_msg_name => G_LINE_RECORD);
16944: RAISE OKL_API.G_EXCEPTION_ERROR;
16945: END IF;
16946: --Build the clev Top Line Record
16940: END IF;
16941: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16942: OKL_API.set_message(p_app_name => G_APP_NAME,
16943: p_msg_name => G_LINE_RECORD);
16944: RAISE OKL_API.G_EXCEPTION_ERROR;
16945: END IF;
16946: --Build the clev Top Line Record
16947: l_clev_fin_rec.cle_id := null;
16948: IF (l_clev_fin_rec.chr_id IS NUll OR
16945: END IF;
16946: --Build the clev Top Line Record
16947: l_clev_fin_rec.cle_id := null;
16948: IF (l_clev_fin_rec.chr_id IS NUll OR
16949: l_clev_fin_rec.chr_id = OKL_API.G_MISS_NUM) THEN
16950: l_clev_fin_rec.chr_id := r_clev_fin_rec.chr_id;
16951: END IF;
16952: IF (l_clev_fin_rec.name IS NUll OR
16953: l_clev_fin_rec.name = OKL_API.G_MISS_CHAR) AND
16949: l_clev_fin_rec.chr_id = OKL_API.G_MISS_NUM) THEN
16950: l_clev_fin_rec.chr_id := r_clev_fin_rec.chr_id;
16951: END IF;
16952: IF (l_clev_fin_rec.name IS NUll OR
16953: l_clev_fin_rec.name = OKL_API.G_MISS_CHAR) AND
16954: (r_clev_fin_rec.name <> p_asset_number) THEN
16955: l_clev_fin_rec.name := p_asset_number;
16956: END IF;
16957: IF (l_clev_fin_rec.exception_yn IS NUll OR
16954: (r_clev_fin_rec.name <> p_asset_number) THEN
16955: l_clev_fin_rec.name := p_asset_number;
16956: END IF;
16957: IF (l_clev_fin_rec.exception_yn IS NUll OR
16958: l_clev_fin_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16959: l_clev_fin_rec.exception_yn := r_clev_fin_rec.exception_yn;
16960: END IF;
16961: IF (l_clev_fin_rec.display_sequence IS NUll OR
16962: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16958: l_clev_fin_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
16959: l_clev_fin_rec.exception_yn := r_clev_fin_rec.exception_yn;
16960: END IF;
16961: IF (l_clev_fin_rec.display_sequence IS NUll OR
16962: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16963: l_clev_fin_rec.display_sequence := r_clev_fin_rec.display_sequence;
16964: END IF;
16965: IF (l_clev_fin_rec.lse_id IS NUll OR
16966: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16962: l_clev_fin_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
16963: l_clev_fin_rec.display_sequence := r_clev_fin_rec.display_sequence;
16964: END IF;
16965: IF (l_clev_fin_rec.lse_id IS NUll OR
16966: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16967: l_clev_fin_rec.lse_id := r_clev_fin_rec.lse_id;
16968: END IF;
16969: IF (l_clev_fin_rec.line_number IS NUll OR
16970: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16966: l_clev_fin_rec.lse_id = OKL_API.G_MISS_NUM) THEN
16967: l_clev_fin_rec.lse_id := r_clev_fin_rec.lse_id;
16968: END IF;
16969: IF (l_clev_fin_rec.line_number IS NUll OR
16970: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16971: l_clev_fin_rec.line_number := r_clev_fin_rec.line_number;
16972: END IF;
16973: IF (l_clev_fin_rec.sts_code IS NUll OR
16974: l_clev_fin_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16970: l_clev_fin_rec.line_number = OKL_API.G_MISS_CHAR) THEN
16971: l_clev_fin_rec.line_number := r_clev_fin_rec.line_number;
16972: END IF;
16973: IF (l_clev_fin_rec.sts_code IS NUll OR
16974: l_clev_fin_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
16975: l_clev_fin_rec.sts_code := r_clev_fin_rec.sts_code;
16976: END IF;
16977: --Build the klev Top Line Record
16978: IF l_new_yn = 'Y' THEN
16978: IF l_new_yn = 'Y' THEN
16979: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
16980: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
16981: ELSIF l_new_yn = 'N' THEN
16982: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
16983: l_clev_model_rec.price_unit := null;
16984: END IF;
16985: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
16986: l_cimv_model_rec.number_of_items := null;
16981: ELSIF l_new_yn = 'N' THEN
16982: IF l_clev_model_rec.price_unit = OKL_API.G_MISS_NUM THEN
16983: l_clev_model_rec.price_unit := null;
16984: END IF;
16985: IF l_cimv_model_rec.number_of_items = OKL_API.G_MISS_NUM THEN
16986: l_cimv_model_rec.number_of_items := null;
16987: END IF;
16988: ln_clev_model_price_unit := abs(l_talv_fa_rec.original_cost);
16989: ln_cimv_model_no_items := l_talv_fa_rec.current_units;
17005: p_clev_rec => l_clev_fin_rec,
17006: p_klev_rec => l_klev_fin_rec,
17007: x_clev_rec => x_clev_fin_rec,
17008: x_klev_rec => l_klev_fin_rec_out);
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: p_klev_rec => l_klev_fin_rec,
17007: x_clev_rec => x_clev_fin_rec,
17008: x_klev_rec => l_klev_fin_rec_out);
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:
17007: x_clev_rec => x_clev_fin_rec,
17008: x_klev_rec => l_klev_fin_rec_out);
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:
17015: --We have to build the Model Line Record for the calculations of the
17008: x_klev_rec => l_klev_fin_rec_out);
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:
17015: --We have to build the Model Line Record for the calculations of the
17016: -- oec of the top line
17016: -- oec of the top line
17017: -- To Get the cle Model Line Record
17018: x_return_status := get_rec_clev(l_clev_model_rec.id,
17019: r_clev_model_rec);
17020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17021: OKL_API.set_message(p_app_name => G_APP_NAME,
17022: p_msg_name => G_FETCHING_INFO,
17023: p_token1 => G_REC_NAME_TOKEN,
17024: p_token1_value => 'OKC_K_LINES_V Record');
17017: -- To Get the cle Model Line Record
17018: x_return_status := get_rec_clev(l_clev_model_rec.id,
17019: r_clev_model_rec);
17020: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17021: OKL_API.set_message(p_app_name => G_APP_NAME,
17022: p_msg_name => G_FETCHING_INFO,
17023: p_token1 => G_REC_NAME_TOKEN,
17024: p_token1_value => 'OKC_K_LINES_V Record');
17025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17021: OKL_API.set_message(p_app_name => G_APP_NAME,
17022: p_msg_name => G_FETCHING_INFO,
17023: p_token1 => G_REC_NAME_TOKEN,
17024: p_token1_value => 'OKC_K_LINES_V Record');
17025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: OKL_API.set_message(p_app_name => G_APP_NAME,
17028: p_msg_name => G_FETCHING_INFO,
17029: p_token1 => G_REC_NAME_TOKEN,
17022: p_msg_name => G_FETCHING_INFO,
17023: p_token1 => G_REC_NAME_TOKEN,
17024: p_token1_value => 'OKC_K_LINES_V Record');
17025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: OKL_API.set_message(p_app_name => G_APP_NAME,
17028: p_msg_name => G_FETCHING_INFO,
17029: p_token1 => G_REC_NAME_TOKEN,
17030: p_token1_value => 'OKC_K_LINES_V Record');
17023: p_token1 => G_REC_NAME_TOKEN,
17024: p_token1_value => 'OKC_K_LINES_V Record');
17025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: OKL_API.set_message(p_app_name => G_APP_NAME,
17028: p_msg_name => G_FETCHING_INFO,
17029: p_token1 => G_REC_NAME_TOKEN,
17030: p_token1_value => 'OKC_K_LINES_V Record');
17031: RAISE OKL_API.G_EXCEPTION_ERROR;
17027: OKL_API.set_message(p_app_name => G_APP_NAME,
17028: p_msg_name => G_FETCHING_INFO,
17029: p_token1 => G_REC_NAME_TOKEN,
17030: p_token1_value => 'OKC_K_LINES_V Record');
17031: RAISE OKL_API.G_EXCEPTION_ERROR;
17032: END IF;
17033: -- To Get the kle Model Line Record
17034: x_return_status := get_rec_klev(l_clev_model_rec.id,
17035: r_klev_model_rec);
17032: END IF;
17033: -- To Get the kle Model Line Record
17034: x_return_status := get_rec_klev(l_clev_model_rec.id,
17035: r_klev_model_rec);
17036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17037: OKL_API.set_message(p_app_name => G_APP_NAME,
17038: p_msg_name => G_FETCHING_INFO,
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17033: -- To Get the kle Model Line Record
17034: x_return_status := get_rec_klev(l_clev_model_rec.id,
17035: r_klev_model_rec);
17036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17037: OKL_API.set_message(p_app_name => G_APP_NAME,
17038: p_msg_name => G_FETCHING_INFO,
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17037: OKL_API.set_message(p_app_name => G_APP_NAME,
17038: p_msg_name => G_FETCHING_INFO,
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17045: p_token1 => G_REC_NAME_TOKEN,
17038: p_msg_name => G_FETCHING_INFO,
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17045: p_token1 => G_REC_NAME_TOKEN,
17046: p_token1_value => 'OKL_K_LINES_V Record');
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17045: p_token1 => G_REC_NAME_TOKEN,
17046: p_token1_value => 'OKL_K_LINES_V Record');
17047: RAISE OKL_API.G_EXCEPTION_ERROR;
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17045: p_token1 => G_REC_NAME_TOKEN,
17046: p_token1_value => 'OKL_K_LINES_V Record');
17047: RAISE OKL_API.G_EXCEPTION_ERROR;
17048: END IF;
17049: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
17050: OKL_API.set_message(p_app_name => G_APP_NAME,
17051: p_msg_name => G_LINE_RECORD);
17046: p_token1_value => 'OKL_K_LINES_V Record');
17047: RAISE OKL_API.G_EXCEPTION_ERROR;
17048: END IF;
17049: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
17050: OKL_API.set_message(p_app_name => G_APP_NAME,
17051: p_msg_name => G_LINE_RECORD);
17052: RAISE OKL_API.G_EXCEPTION_ERROR;
17053: END IF;
17054: -- Build clev Model Line Record
17048: END IF;
17049: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
17050: OKL_API.set_message(p_app_name => G_APP_NAME,
17051: p_msg_name => G_LINE_RECORD);
17052: RAISE OKL_API.G_EXCEPTION_ERROR;
17053: END IF;
17054: -- Build clev Model Line Record
17055: l_clev_model_rec.chr_id := null;
17056: IF (l_clev_model_rec.cle_id IS NUll OR
17053: END IF;
17054: -- Build clev Model Line Record
17055: l_clev_model_rec.chr_id := null;
17056: IF (l_clev_model_rec.cle_id IS NUll OR
17057: l_clev_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17058: l_clev_model_rec.cle_id := r_clev_model_rec.cle_id;
17059: END IF;
17060: IF (l_clev_model_rec.dnz_chr_id IS NUll OR
17061: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17057: l_clev_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17058: l_clev_model_rec.cle_id := r_clev_model_rec.cle_id;
17059: END IF;
17060: IF (l_clev_model_rec.dnz_chr_id IS NUll OR
17061: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17062: l_clev_model_rec.dnz_chr_id := r_clev_model_rec.dnz_chr_id;
17063: END IF;
17064: IF (l_clev_model_rec.lse_id IS NUll OR
17065: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17061: l_clev_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17062: l_clev_model_rec.dnz_chr_id := r_clev_model_rec.dnz_chr_id;
17063: END IF;
17064: IF (l_clev_model_rec.lse_id IS NUll OR
17065: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17066: l_clev_model_rec.lse_id := r_clev_model_rec.lse_id;
17067: END IF;
17068: IF (l_clev_model_rec.display_sequence IS NUll OR
17069: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17065: l_clev_model_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17066: l_clev_model_rec.lse_id := r_clev_model_rec.lse_id;
17067: END IF;
17068: IF (l_clev_model_rec.display_sequence IS NUll OR
17069: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17070: l_clev_model_rec.display_sequence := r_clev_model_rec.display_sequence;
17071: END IF;
17072: IF (l_clev_model_rec.exception_yn IS NUll OR
17073: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17069: l_clev_model_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17070: l_clev_model_rec.display_sequence := r_clev_model_rec.display_sequence;
17071: END IF;
17072: IF (l_clev_model_rec.exception_yn IS NUll OR
17073: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17074: l_clev_model_rec.exception_yn := r_clev_model_rec.exception_yn;
17075: END IF;
17076: IF (l_clev_model_rec.line_number IS NUll OR
17077: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17073: l_clev_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17074: l_clev_model_rec.exception_yn := r_clev_model_rec.exception_yn;
17075: END IF;
17076: IF (l_clev_model_rec.line_number IS NUll OR
17077: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17078: l_clev_model_rec.line_number := r_clev_model_rec.line_number;
17079: END IF;
17080: IF (l_clev_model_rec.sts_code IS NUll OR
17081: l_clev_model_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17077: l_clev_model_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17078: l_clev_model_rec.line_number := r_clev_model_rec.line_number;
17079: END IF;
17080: IF (l_clev_model_rec.sts_code IS NUll OR
17081: l_clev_model_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17082: l_clev_model_rec.sts_code := r_clev_model_rec.sts_code;
17083: END IF;
17084: -- Build klev Model Line Record
17085: l_klev_model_rec := r_klev_model_rec;
17086: -- To Get the cimv Model Line Record
17087: x_return_status := get_rec_cimv(l_clev_model_rec.id,
17088: l_clev_model_rec.dnz_chr_id,
17089: r_cimv_model_rec);
17090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17091: OKL_API.set_message(p_app_name => G_APP_NAME,
17092: p_msg_name => G_FETCHING_INFO,
17093: p_token1 => G_REC_NAME_TOKEN,
17094: p_token1_value => 'OKC_K_ITEMS_V Record');
17087: x_return_status := get_rec_cimv(l_clev_model_rec.id,
17088: l_clev_model_rec.dnz_chr_id,
17089: r_cimv_model_rec);
17090: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17091: OKL_API.set_message(p_app_name => G_APP_NAME,
17092: p_msg_name => G_FETCHING_INFO,
17093: p_token1 => G_REC_NAME_TOKEN,
17094: p_token1_value => 'OKC_K_ITEMS_V Record');
17095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17091: OKL_API.set_message(p_app_name => G_APP_NAME,
17092: p_msg_name => G_FETCHING_INFO,
17093: p_token1 => G_REC_NAME_TOKEN,
17094: p_token1_value => 'OKC_K_ITEMS_V Record');
17095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17097: OKL_API.set_message(p_app_name => G_APP_NAME,
17098: p_msg_name => G_FETCHING_INFO,
17099: p_token1 => G_REC_NAME_TOKEN,
17092: p_msg_name => G_FETCHING_INFO,
17093: p_token1 => G_REC_NAME_TOKEN,
17094: p_token1_value => 'OKC_K_ITEMS_V Record');
17095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17097: OKL_API.set_message(p_app_name => G_APP_NAME,
17098: p_msg_name => G_FETCHING_INFO,
17099: p_token1 => G_REC_NAME_TOKEN,
17100: p_token1_value => 'OKC_K_ITEMS_V Record');
17093: p_token1 => G_REC_NAME_TOKEN,
17094: p_token1_value => 'OKC_K_ITEMS_V Record');
17095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17097: OKL_API.set_message(p_app_name => G_APP_NAME,
17098: p_msg_name => G_FETCHING_INFO,
17099: p_token1 => G_REC_NAME_TOKEN,
17100: p_token1_value => 'OKC_K_ITEMS_V Record');
17101: RAISE OKL_API.G_EXCEPTION_ERROR;
17097: OKL_API.set_message(p_app_name => G_APP_NAME,
17098: p_msg_name => G_FETCHING_INFO,
17099: p_token1 => G_REC_NAME_TOKEN,
17100: p_token1_value => 'OKC_K_ITEMS_V Record');
17101: RAISE OKL_API.G_EXCEPTION_ERROR;
17102: END IF;
17103: --Build Model cimv item rec
17104: l_cimv_model_rec.id := r_cimv_model_rec.id;
17105: IF (l_cimv_model_rec.exception_yn IS NUll OR
17102: END IF;
17103: --Build Model cimv item rec
17104: l_cimv_model_rec.id := r_cimv_model_rec.id;
17105: IF (l_cimv_model_rec.exception_yn IS NUll OR
17106: l_cimv_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17107: l_cimv_model_rec.exception_yn := r_cimv_model_rec.exception_yn;
17108: END IF;
17109: IF (l_cimv_model_rec.dnz_chr_id IS NUll OR
17110: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17106: l_cimv_model_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17107: l_cimv_model_rec.exception_yn := r_cimv_model_rec.exception_yn;
17108: END IF;
17109: IF (l_cimv_model_rec.dnz_chr_id IS NUll OR
17110: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17111: l_cimv_model_rec.dnz_chr_id := r_cimv_model_rec.dnz_chr_id;
17112: END IF;
17113: IF (l_cimv_model_rec.cle_id IS NUll OR
17114: l_cimv_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17110: l_cimv_model_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17111: l_cimv_model_rec.dnz_chr_id := r_cimv_model_rec.dnz_chr_id;
17112: END IF;
17113: IF (l_cimv_model_rec.cle_id IS NUll OR
17114: l_cimv_model_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17115: l_cimv_model_rec.cle_id := r_cimv_model_rec.cle_id;
17116: END IF;
17117: -- We need to check the below since we do not have to call the formula
17118: -- Engine avery time. Which means that we have to call the formula Engine
17145: p_cimv_rec => l_cimv_model_rec,
17146: x_clev_rec => x_clev_model_rec,
17147: x_klev_rec => l_klev_model_rec_out,
17148: x_cimv_rec => l_cimv_model_rec_out);
17149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17152: RAISE OKL_API.G_EXCEPTION_ERROR;
17153: END IF;
17146: x_clev_rec => x_clev_model_rec,
17147: x_klev_rec => l_klev_model_rec_out,
17148: x_cimv_rec => l_cimv_model_rec_out);
17149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17152: RAISE OKL_API.G_EXCEPTION_ERROR;
17153: END IF;
17154:
17147: x_klev_rec => l_klev_model_rec_out,
17148: x_cimv_rec => l_cimv_model_rec_out);
17149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17152: RAISE OKL_API.G_EXCEPTION_ERROR;
17153: END IF;
17154:
17155: --Bug# 4161221: start
17148: x_cimv_rec => l_cimv_model_rec_out);
17149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17152: RAISE OKL_API.G_EXCEPTION_ERROR;
17153: END IF;
17154:
17155: --Bug# 4161221: start
17156: -- Update No. of Units on Add-on line when there is a change in the
17161: -- To Get the cimv Addon Line Record
17162: x_return_status := get_rec_cimv(r_addon_line_id.id,
17163: x_clev_model_rec.dnz_chr_id,
17164: r_cimv_addon_rec);
17165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17166: OKL_API.set_message(p_app_name => G_APP_NAME,
17167: p_msg_name => G_FETCHING_INFO,
17168: p_token1 => G_REC_NAME_TOKEN,
17169: p_token1_value => 'OKC_K_ITEMS_V Record');
17162: x_return_status := get_rec_cimv(r_addon_line_id.id,
17163: x_clev_model_rec.dnz_chr_id,
17164: r_cimv_addon_rec);
17165: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17166: OKL_API.set_message(p_app_name => G_APP_NAME,
17167: p_msg_name => G_FETCHING_INFO,
17168: p_token1 => G_REC_NAME_TOKEN,
17169: p_token1_value => 'OKC_K_ITEMS_V Record');
17170: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17166: OKL_API.set_message(p_app_name => G_APP_NAME,
17167: p_msg_name => G_FETCHING_INFO,
17168: p_token1 => G_REC_NAME_TOKEN,
17169: p_token1_value => 'OKC_K_ITEMS_V Record');
17170: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17172: OKL_API.set_message(p_app_name => G_APP_NAME,
17173: p_msg_name => G_FETCHING_INFO,
17174: p_token1 => G_REC_NAME_TOKEN,
17167: p_msg_name => G_FETCHING_INFO,
17168: p_token1 => G_REC_NAME_TOKEN,
17169: p_token1_value => 'OKC_K_ITEMS_V Record');
17170: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17172: OKL_API.set_message(p_app_name => G_APP_NAME,
17173: p_msg_name => G_FETCHING_INFO,
17174: p_token1 => G_REC_NAME_TOKEN,
17175: p_token1_value => 'OKC_K_ITEMS_V Record');
17168: p_token1 => G_REC_NAME_TOKEN,
17169: p_token1_value => 'OKC_K_ITEMS_V Record');
17170: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17172: OKL_API.set_message(p_app_name => G_APP_NAME,
17173: p_msg_name => G_FETCHING_INFO,
17174: p_token1 => G_REC_NAME_TOKEN,
17175: p_token1_value => 'OKC_K_ITEMS_V Record');
17176: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17172: OKL_API.set_message(p_app_name => G_APP_NAME,
17173: p_msg_name => G_FETCHING_INFO,
17174: p_token1 => G_REC_NAME_TOKEN,
17175: p_token1_value => 'OKC_K_ITEMS_V Record');
17176: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17177: END IF;
17178:
17179: IF (NVL(r_cimv_addon_rec.number_of_items,0) <>
17180: NVL(l_cimv_model_rec_out.number_of_items,0)) THEN
17189: x_msg_count => x_msg_count,
17190: x_msg_data => x_msg_data,
17191: p_cimv_rec => r_cimv_addon_rec,
17192: x_cimv_rec => rx_cimv_addon_rec);
17193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17194: OKL_API.set_message(p_app_name => G_APP_NAME,
17195: p_msg_name => G_UPDATING_ADDON_ITEM);
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17190: x_msg_data => x_msg_data,
17191: p_cimv_rec => r_cimv_addon_rec,
17192: x_cimv_rec => rx_cimv_addon_rec);
17193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17194: OKL_API.set_message(p_app_name => G_APP_NAME,
17195: p_msg_name => G_UPDATING_ADDON_ITEM);
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17198: OKL_API.set_message(p_app_name => G_APP_NAME,
17192: x_cimv_rec => rx_cimv_addon_rec);
17193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17194: OKL_API.set_message(p_app_name => G_APP_NAME,
17195: p_msg_name => G_UPDATING_ADDON_ITEM);
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17198: OKL_API.set_message(p_app_name => G_APP_NAME,
17199: p_msg_name => G_UPDATING_ADDON_ITEM);
17200: RAISE OKL_API.G_EXCEPTION_ERROR;
17193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17194: OKL_API.set_message(p_app_name => G_APP_NAME,
17195: p_msg_name => G_UPDATING_ADDON_ITEM);
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17198: OKL_API.set_message(p_app_name => G_APP_NAME,
17199: p_msg_name => G_UPDATING_ADDON_ITEM);
17200: RAISE OKL_API.G_EXCEPTION_ERROR;
17201: END IF;
17194: OKL_API.set_message(p_app_name => G_APP_NAME,
17195: p_msg_name => G_UPDATING_ADDON_ITEM);
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17198: OKL_API.set_message(p_app_name => G_APP_NAME,
17199: p_msg_name => G_UPDATING_ADDON_ITEM);
17200: RAISE OKL_API.G_EXCEPTION_ERROR;
17201: END IF;
17202: END IF;
17196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17198: OKL_API.set_message(p_app_name => G_APP_NAME,
17199: p_msg_name => G_UPDATING_ADDON_ITEM);
17200: RAISE OKL_API.G_EXCEPTION_ERROR;
17201: END IF;
17202: END IF;
17203: END LOOP;
17204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17200: RAISE OKL_API.G_EXCEPTION_ERROR;
17201: END IF;
17202: END IF;
17203: END LOOP;
17204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17201: END IF;
17202: END IF;
17203: END LOOP;
17204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: --Bug# 4161221: end
17202: END IF;
17203: END LOOP;
17204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: --Bug# 4161221: end
17210:
17203: END LOOP;
17204: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17206: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: --Bug# 4161221: end
17210:
17211: lv_model_object_id1 := l_cimv_model_rec_out.object1_id1;
17224: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17225: x_fin_clev_rec => x_clev_fin_rec,
17226: x_fin_klev_rec => l_klev_fin_rec_out,
17227: x_oec => ln_klev_fin_oec,
17228: p_validate_fin_line => OKL_API.G_TRUE);
17229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17225: x_fin_clev_rec => x_clev_fin_rec,
17226: x_fin_klev_rec => l_klev_fin_rec_out,
17227: x_oec => ln_klev_fin_oec,
17228: p_validate_fin_line => OKL_API.G_TRUE);
17229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17233: END IF;
17226: x_fin_klev_rec => l_klev_fin_rec_out,
17227: x_oec => ln_klev_fin_oec,
17228: p_validate_fin_line => OKL_API.G_TRUE);
17229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17233: END IF;
17234: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17227: x_oec => ln_klev_fin_oec,
17228: p_validate_fin_line => OKL_API.G_TRUE);
17229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17233: END IF;
17234: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17235: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17228: p_validate_fin_line => OKL_API.G_TRUE);
17229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17233: END IF;
17234: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17235: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17236: p_init_msg_list => p_init_msg_list,
17244: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17245: x_fin_clev_rec => x_clev_fin_rec,
17246: x_fin_klev_rec => l_klev_fin_rec_out,
17247: x_cap_amt => ln_klev_fin_cap,
17248: p_validate_fin_line => OKL_API.G_TRUE);
17249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17245: x_fin_clev_rec => x_clev_fin_rec,
17246: x_fin_klev_rec => l_klev_fin_rec_out,
17247: x_cap_amt => ln_klev_fin_cap,
17248: p_validate_fin_line => OKL_API.G_TRUE);
17249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17246: x_fin_klev_rec => l_klev_fin_rec_out,
17247: x_cap_amt => ln_klev_fin_cap,
17248: p_validate_fin_line => OKL_API.G_TRUE);
17249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17254: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17247: x_cap_amt => ln_klev_fin_cap,
17248: p_validate_fin_line => OKL_API.G_TRUE);
17249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17254: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17255: l_klev_fin_rec.residual_percentage := null;
17248: p_validate_fin_line => OKL_API.G_TRUE);
17249: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17254: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17255: l_klev_fin_rec.residual_percentage := null;
17256: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17251: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17254: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17255: l_klev_fin_rec.residual_percentage := null;
17256: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17257: l_klev_fin_rec.residual_value := null;
17258: END IF;
17252: RAISE OKL_API.G_EXCEPTION_ERROR;
17253: END IF;
17254: IF l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM THEN
17255: l_klev_fin_rec.residual_percentage := null;
17256: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17257: l_klev_fin_rec.residual_value := null;
17258: END IF;
17259: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17260: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17257: l_klev_fin_rec.residual_value := null;
17258: END IF;
17259: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17260: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17261: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17262: (l_klev_fin_rec.residual_value IS NOT NULL OR
17263: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17264: IF l_klev_fin_rec.residual_value <> r_klev_fin_rec.residual_value THEN
17265:
17259: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17260: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17261: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17262: (l_klev_fin_rec.residual_value IS NOT NULL OR
17263: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17264: IF l_klev_fin_rec.residual_value <> r_klev_fin_rec.residual_value THEN
17265:
17266: l_top_line_id := x_clev_fin_rec.id;
17267: l_oec := l_klev_fin_rec_out.oec;
17278: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
17279: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17280: x_fin_clev_rec => x_clev_fin_rec,
17281: x_fin_klev_rec => l_klev_fin_rec_out,
17282: p_validate_fin_line => OKL_API.G_TRUE);
17283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17286: RAISE OKL_API.G_EXCEPTION_ERROR;
17279: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17280: x_fin_clev_rec => x_clev_fin_rec,
17281: x_fin_klev_rec => l_klev_fin_rec_out,
17282: p_validate_fin_line => OKL_API.G_TRUE);
17283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17286: RAISE OKL_API.G_EXCEPTION_ERROR;
17287: END IF;
17280: x_fin_clev_rec => x_clev_fin_rec,
17281: x_fin_klev_rec => l_klev_fin_rec_out,
17282: p_validate_fin_line => OKL_API.G_TRUE);
17283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17286: RAISE OKL_API.G_EXCEPTION_ERROR;
17287: END IF;
17288: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17281: x_fin_klev_rec => l_klev_fin_rec_out,
17282: p_validate_fin_line => OKL_API.G_TRUE);
17283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17286: RAISE OKL_API.G_EXCEPTION_ERROR;
17287: END IF;
17288: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17289: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17282: p_validate_fin_line => OKL_API.G_TRUE);
17283: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17285: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17286: RAISE OKL_API.G_EXCEPTION_ERROR;
17287: END IF;
17288: ELSIF l_klev_fin_rec.residual_percentage <> r_klev_fin_rec.residual_percentage THEN
17289: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17290: p_init_msg_list => p_init_msg_list,
17298: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17299: x_fin_clev_rec => x_clev_fin_rec,
17300: x_fin_klev_rec => l_klev_fin_rec_out,
17301: x_res_value => ln_klev_fin_res,
17302: p_validate_fin_line => OKL_API.G_TRUE);
17303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17299: x_fin_clev_rec => x_clev_fin_rec,
17300: x_fin_klev_rec => l_klev_fin_rec_out,
17301: x_res_value => ln_klev_fin_res,
17302: p_validate_fin_line => OKL_API.G_TRUE);
17303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17307: END IF;
17300: x_fin_klev_rec => l_klev_fin_rec_out,
17301: x_res_value => ln_klev_fin_res,
17302: p_validate_fin_line => OKL_API.G_TRUE);
17303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17307: END IF;
17308: END IF;
17301: x_res_value => ln_klev_fin_res,
17302: p_validate_fin_line => OKL_API.G_TRUE);
17303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17307: END IF;
17308: END IF;
17309: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17302: p_validate_fin_line => OKL_API.G_TRUE);
17303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17305: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17307: END IF;
17308: END IF;
17309: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17310: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17306: RAISE OKL_API.G_EXCEPTION_ERROR;
17307: END IF;
17308: END IF;
17309: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17310: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17311: (l_klev_fin_rec.residual_value IS NOT NULL OR
17312: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17313:
17314: l_top_line_id := x_clev_fin_rec.id;
17308: END IF;
17309: ELSIF (l_klev_fin_rec.residual_percentage IS NULL OR
17310: l_klev_fin_rec.residual_percentage = OKL_API.G_MISS_NUM) AND
17311: (l_klev_fin_rec.residual_value IS NOT NULL OR
17312: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17313:
17314: l_top_line_id := x_clev_fin_rec.id;
17315: l_oec := l_klev_fin_rec_out.oec;
17316:
17326: p_top_line_id => l_top_line_id, --x_clev_fin_rec.id,
17327: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17328: x_fin_clev_rec => x_clev_fin_rec,
17329: x_fin_klev_rec => l_klev_fin_rec_out,
17330: p_validate_fin_line => OKL_API.G_TRUE);
17331: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17327: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17328: x_fin_clev_rec => x_clev_fin_rec,
17329: x_fin_klev_rec => l_klev_fin_rec_out,
17330: p_validate_fin_line => OKL_API.G_TRUE);
17331: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17335: END IF;
17328: x_fin_clev_rec => x_clev_fin_rec,
17329: x_fin_klev_rec => l_klev_fin_rec_out,
17330: p_validate_fin_line => OKL_API.G_TRUE);
17331: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17335: END IF;
17336: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17329: x_fin_klev_rec => l_klev_fin_rec_out,
17330: p_validate_fin_line => OKL_API.G_TRUE);
17331: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17335: END IF;
17336: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17337: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17330: p_validate_fin_line => OKL_API.G_TRUE);
17331: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17332: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17335: END IF;
17336: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17337: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17338: (l_klev_fin_rec.residual_value IS NULL OR
17333: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17334: RAISE OKL_API.G_EXCEPTION_ERROR;
17335: END IF;
17336: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17337: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17338: (l_klev_fin_rec.residual_value IS NULL OR
17339: l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
17340: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17341: p_init_msg_list => p_init_msg_list,
17335: END IF;
17336: ELSIF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17337: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17338: (l_klev_fin_rec.residual_value IS NULL OR
17339: l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM) THEN
17340: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
17341: p_init_msg_list => p_init_msg_list,
17342: x_return_status => x_return_status,
17343: x_msg_count => x_msg_count,
17349: p_dnz_chr_id => x_clev_model_rec.dnz_chr_id,
17350: x_fin_clev_rec => x_clev_fin_rec,
17351: x_fin_klev_rec => l_klev_fin_rec_out,
17352: x_res_value => ln_klev_fin_res,
17353: p_validate_fin_line => OKL_API.G_TRUE);
17354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17357: RAISE OKL_API.G_EXCEPTION_ERROR;
17350: x_fin_clev_rec => x_clev_fin_rec,
17351: x_fin_klev_rec => l_klev_fin_rec_out,
17352: x_res_value => ln_klev_fin_res,
17353: p_validate_fin_line => OKL_API.G_TRUE);
17354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17357: RAISE OKL_API.G_EXCEPTION_ERROR;
17358: END IF;
17351: x_fin_klev_rec => l_klev_fin_rec_out,
17352: x_res_value => ln_klev_fin_res,
17353: p_validate_fin_line => OKL_API.G_TRUE);
17354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17357: RAISE OKL_API.G_EXCEPTION_ERROR;
17358: END IF;
17359: END IF;
17352: x_res_value => ln_klev_fin_res,
17353: p_validate_fin_line => OKL_API.G_TRUE);
17354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17357: RAISE OKL_API.G_EXCEPTION_ERROR;
17358: END IF;
17359: END IF;
17360: END IF;
17353: p_validate_fin_line => OKL_API.G_TRUE);
17354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17357: RAISE OKL_API.G_EXCEPTION_ERROR;
17358: END IF;
17359: END IF;
17360: END IF;
17361: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17358: END IF;
17359: END IF;
17360: END IF;
17361: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17362: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17363: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17364: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17365: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17366: OKL_API.set_message(p_app_name => G_APP_NAME,
17360: END IF;
17361: IF (l_klev_fin_rec_out.oec IS NOT NULL OR
17362: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17363: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17364: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17365: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17366: OKL_API.set_message(p_app_name => G_APP_NAME,
17367: p_msg_name => G_SALVAGE_VALUE);
17368: RAISE OKL_API.G_EXCEPTION_ERROR;
17362: l_klev_fin_rec_out.oec <> OKL_API.G_MISS_NUM) AND
17363: (l_klev_fin_rec_out.residual_value IS NOT NULL OR
17364: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17365: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17366: OKL_API.set_message(p_app_name => G_APP_NAME,
17367: p_msg_name => G_SALVAGE_VALUE);
17368: RAISE OKL_API.G_EXCEPTION_ERROR;
17369: END IF;
17370: END IF;
17364: l_klev_fin_rec_out.residual_value <> OKL_API.G_MISS_NUM) THEN
17365: IF l_klev_fin_rec_out.residual_value > l_klev_fin_rec_out.oec THEN
17366: OKL_API.set_message(p_app_name => G_APP_NAME,
17367: p_msg_name => G_SALVAGE_VALUE);
17368: RAISE OKL_API.G_EXCEPTION_ERROR;
17369: END IF;
17370: END IF;
17371: -- Updating of the Fixed Asset Line Process
17372: -- To Get the cle fa Line Record
17371: -- Updating of the Fixed Asset Line Process
17372: -- To Get the cle fa Line Record
17373: x_return_status := get_rec_clev(l_clev_fa_rec.id,
17374: r_clev_fa_rec);
17375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17376: OKL_API.set_message(p_app_name => G_APP_NAME,
17377: p_msg_name => G_FETCHING_INFO,
17378: p_token1 => G_REC_NAME_TOKEN,
17379: p_token1_value => 'OKC_K_LINES_V Record');
17372: -- To Get the cle fa Line Record
17373: x_return_status := get_rec_clev(l_clev_fa_rec.id,
17374: r_clev_fa_rec);
17375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17376: OKL_API.set_message(p_app_name => G_APP_NAME,
17377: p_msg_name => G_FETCHING_INFO,
17378: p_token1 => G_REC_NAME_TOKEN,
17379: p_token1_value => 'OKC_K_LINES_V Record');
17380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17376: OKL_API.set_message(p_app_name => G_APP_NAME,
17377: p_msg_name => G_FETCHING_INFO,
17378: p_token1 => G_REC_NAME_TOKEN,
17379: p_token1_value => 'OKC_K_LINES_V Record');
17380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17382: OKL_API.set_message(p_app_name => G_APP_NAME,
17383: p_msg_name => G_FETCHING_INFO,
17384: p_token1 => G_REC_NAME_TOKEN,
17377: p_msg_name => G_FETCHING_INFO,
17378: p_token1 => G_REC_NAME_TOKEN,
17379: p_token1_value => 'OKC_K_LINES_V Record');
17380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17382: OKL_API.set_message(p_app_name => G_APP_NAME,
17383: p_msg_name => G_FETCHING_INFO,
17384: p_token1 => G_REC_NAME_TOKEN,
17385: p_token1_value => 'OKC_K_LINES_V Record');
17378: p_token1 => G_REC_NAME_TOKEN,
17379: p_token1_value => 'OKC_K_LINES_V Record');
17380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17382: OKL_API.set_message(p_app_name => G_APP_NAME,
17383: p_msg_name => G_FETCHING_INFO,
17384: p_token1 => G_REC_NAME_TOKEN,
17385: p_token1_value => 'OKC_K_LINES_V Record');
17386: RAISE OKL_API.G_EXCEPTION_ERROR;
17382: OKL_API.set_message(p_app_name => G_APP_NAME,
17383: p_msg_name => G_FETCHING_INFO,
17384: p_token1 => G_REC_NAME_TOKEN,
17385: p_token1_value => 'OKC_K_LINES_V Record');
17386: RAISE OKL_API.G_EXCEPTION_ERROR;
17387: END IF;
17388: -- To Get the kle fa Line Record
17389: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17390: r_klev_fa_rec);
17387: END IF;
17388: -- To Get the kle fa Line Record
17389: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17390: r_klev_fa_rec);
17391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17392: OKL_API.set_message(p_app_name => G_APP_NAME,
17393: p_msg_name => G_FETCHING_INFO,
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17388: -- To Get the kle fa Line Record
17389: x_return_status := get_rec_klev(l_clev_fa_rec.id,
17390: r_klev_fa_rec);
17391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17392: OKL_API.set_message(p_app_name => G_APP_NAME,
17393: p_msg_name => G_FETCHING_INFO,
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17392: OKL_API.set_message(p_app_name => G_APP_NAME,
17393: p_msg_name => G_FETCHING_INFO,
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17400: p_token1 => G_REC_NAME_TOKEN,
17393: p_msg_name => G_FETCHING_INFO,
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17400: p_token1 => G_REC_NAME_TOKEN,
17401: p_token1_value => 'OKL_K_LINES_V Record');
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17400: p_token1 => G_REC_NAME_TOKEN,
17401: p_token1_value => 'OKL_K_LINES_V Record');
17402: RAISE OKL_API.G_EXCEPTION_ERROR;
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17400: p_token1 => G_REC_NAME_TOKEN,
17401: p_token1_value => 'OKL_K_LINES_V Record');
17402: RAISE OKL_API.G_EXCEPTION_ERROR;
17403: END IF;
17404: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17405: OKL_API.set_message(p_app_name => G_APP_NAME,
17406: p_msg_name => G_LINE_RECORD);
17401: p_token1_value => 'OKL_K_LINES_V Record');
17402: RAISE OKL_API.G_EXCEPTION_ERROR;
17403: END IF;
17404: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17405: OKL_API.set_message(p_app_name => G_APP_NAME,
17406: p_msg_name => G_LINE_RECORD);
17407: RAISE OKL_API.G_EXCEPTION_ERROR;
17408: END IF;
17409: -- Build clev fa Line Record
17403: END IF;
17404: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17405: OKL_API.set_message(p_app_name => G_APP_NAME,
17406: p_msg_name => G_LINE_RECORD);
17407: RAISE OKL_API.G_EXCEPTION_ERROR;
17408: END IF;
17409: -- Build clev fa Line Record
17410: l_clev_fa_rec.chr_id := null;
17411: IF (l_clev_fa_rec.cle_id IS NUll OR
17408: END IF;
17409: -- Build clev fa Line Record
17410: l_clev_fa_rec.chr_id := null;
17411: IF (l_clev_fa_rec.cle_id IS NUll OR
17412: l_clev_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17413: l_clev_fa_rec.cle_id := r_clev_fa_rec.cle_id;
17414: END IF;
17415: IF (l_clev_fa_rec.dnz_chr_id IS NUll OR
17416: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17412: l_clev_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17413: l_clev_fa_rec.cle_id := r_clev_fa_rec.cle_id;
17414: END IF;
17415: IF (l_clev_fa_rec.dnz_chr_id IS NUll OR
17416: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17417: l_clev_fa_rec.dnz_chr_id := r_clev_fa_rec.dnz_chr_id;
17418: END IF;
17419: IF (l_clev_fa_rec.display_sequence IS NUll OR
17420: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17416: l_clev_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17417: l_clev_fa_rec.dnz_chr_id := r_clev_fa_rec.dnz_chr_id;
17418: END IF;
17419: IF (l_clev_fa_rec.display_sequence IS NUll OR
17420: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17421: l_clev_fa_rec.display_sequence := r_clev_fa_rec.display_sequence;
17422: END IF;
17423: IF (l_clev_fa_rec.lse_id IS NUll OR
17424: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17420: l_clev_fa_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17421: l_clev_fa_rec.display_sequence := r_clev_fa_rec.display_sequence;
17422: END IF;
17423: IF (l_clev_fa_rec.lse_id IS NUll OR
17424: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17425: l_clev_fa_rec.lse_id := r_clev_fa_rec.lse_id;
17426: END IF;
17427: IF (l_clev_fa_rec.exception_yn IS NUll OR
17428: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17424: l_clev_fa_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17425: l_clev_fa_rec.lse_id := r_clev_fa_rec.lse_id;
17426: END IF;
17427: IF (l_clev_fa_rec.exception_yn IS NUll OR
17428: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17429: l_clev_fa_rec.exception_yn := r_clev_fa_rec.exception_yn;
17430: END IF;
17431: IF (l_clev_fa_rec.line_number IS NUll OR
17432: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17428: l_clev_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17429: l_clev_fa_rec.exception_yn := r_clev_fa_rec.exception_yn;
17430: END IF;
17431: IF (l_clev_fa_rec.line_number IS NUll OR
17432: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17433: l_clev_fa_rec.line_number := r_clev_fa_rec.line_number;
17434: END IF;
17435: IF (l_clev_fa_rec.sts_code IS NUll OR
17436: l_clev_fa_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17432: l_clev_fa_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17433: l_clev_fa_rec.line_number := r_clev_fa_rec.line_number;
17434: END IF;
17435: IF (l_clev_fa_rec.sts_code IS NUll OR
17436: l_clev_fa_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17437: l_clev_fa_rec.sts_code := r_clev_fa_rec.sts_code;
17438: END IF;
17439: -- Build klev fa Line Record
17440: l_klev_fa_rec := r_klev_fa_rec;
17441: -- To Get the cimv fa Line Record
17442: x_return_status := get_rec_cimv(l_clev_fa_rec.id,
17443: l_clev_fa_rec.dnz_chr_id,
17444: r_cimv_fa_rec);
17445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17446: OKL_API.set_message(p_app_name => G_APP_NAME,
17447: p_msg_name => G_FETCHING_INFO,
17448: p_token1 => G_REC_NAME_TOKEN,
17449: p_token1_value => 'OKC_K_ITEMS_V Record');
17442: x_return_status := get_rec_cimv(l_clev_fa_rec.id,
17443: l_clev_fa_rec.dnz_chr_id,
17444: r_cimv_fa_rec);
17445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17446: OKL_API.set_message(p_app_name => G_APP_NAME,
17447: p_msg_name => G_FETCHING_INFO,
17448: p_token1 => G_REC_NAME_TOKEN,
17449: p_token1_value => 'OKC_K_ITEMS_V Record');
17450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17446: OKL_API.set_message(p_app_name => G_APP_NAME,
17447: p_msg_name => G_FETCHING_INFO,
17448: p_token1 => G_REC_NAME_TOKEN,
17449: p_token1_value => 'OKC_K_ITEMS_V Record');
17450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17452: OKL_API.set_message(p_app_name => G_APP_NAME,
17453: p_msg_name => G_FETCHING_INFO,
17454: p_token1 => G_REC_NAME_TOKEN,
17447: p_msg_name => G_FETCHING_INFO,
17448: p_token1 => G_REC_NAME_TOKEN,
17449: p_token1_value => 'OKC_K_ITEMS_V Record');
17450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17452: OKL_API.set_message(p_app_name => G_APP_NAME,
17453: p_msg_name => G_FETCHING_INFO,
17454: p_token1 => G_REC_NAME_TOKEN,
17455: p_token1_value => 'OKC_K_ITEMS_V Record');
17448: p_token1 => G_REC_NAME_TOKEN,
17449: p_token1_value => 'OKC_K_ITEMS_V Record');
17450: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17452: OKL_API.set_message(p_app_name => G_APP_NAME,
17453: p_msg_name => G_FETCHING_INFO,
17454: p_token1 => G_REC_NAME_TOKEN,
17455: p_token1_value => 'OKC_K_ITEMS_V Record');
17456: RAISE OKL_API.G_EXCEPTION_ERROR;
17452: OKL_API.set_message(p_app_name => G_APP_NAME,
17453: p_msg_name => G_FETCHING_INFO,
17454: p_token1 => G_REC_NAME_TOKEN,
17455: p_token1_value => 'OKC_K_ITEMS_V Record');
17456: RAISE OKL_API.G_EXCEPTION_ERROR;
17457: END IF;
17458: --Build cimv fa item rec
17459: l_cimv_fa_rec.id := r_cimv_fa_rec.id;
17460: IF (l_cimv_fa_rec.exception_yn IS NUll OR
17457: END IF;
17458: --Build cimv fa item rec
17459: l_cimv_fa_rec.id := r_cimv_fa_rec.id;
17460: IF (l_cimv_fa_rec.exception_yn IS NUll OR
17461: l_cimv_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17462: l_cimv_fa_rec.exception_yn := r_cimv_fa_rec.exception_yn;
17463: END IF;
17464: IF (l_cimv_fa_rec.dnz_chr_id IS NUll OR
17465: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17461: l_cimv_fa_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17462: l_cimv_fa_rec.exception_yn := r_cimv_fa_rec.exception_yn;
17463: END IF;
17464: IF (l_cimv_fa_rec.dnz_chr_id IS NUll OR
17465: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17466: l_cimv_fa_rec.dnz_chr_id := r_cimv_fa_rec.dnz_chr_id;
17467: END IF;
17468: IF (l_cimv_fa_rec.cle_id IS NUll OR
17469: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17465: l_cimv_fa_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17466: l_cimv_fa_rec.dnz_chr_id := r_cimv_fa_rec.dnz_chr_id;
17467: END IF;
17468: IF (l_cimv_fa_rec.cle_id IS NUll OR
17469: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17470: l_cimv_fa_rec.cle_id := r_cimv_fa_rec.cle_id;
17471: END IF;
17472: IF (l_cimv_fa_rec.object1_id1 IS NUll OR
17473: l_cimv_fa_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17469: l_cimv_fa_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17470: l_cimv_fa_rec.cle_id := r_cimv_fa_rec.cle_id;
17471: END IF;
17472: IF (l_cimv_fa_rec.object1_id1 IS NUll OR
17473: l_cimv_fa_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17474: l_cimv_fa_rec.object1_id1 := null;
17475: ELSE
17476: l_cimv_fa_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17477: END IF;
17475: ELSE
17476: l_cimv_fa_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17477: END IF;
17478: IF (l_cimv_fa_rec.object1_id2 IS NUll OR
17479: l_cimv_fa_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
17480: l_cimv_fa_rec.object1_id2 := null;
17481: ELSE
17482: l_cimv_fa_rec.object1_id2 := r_cimv_ib_rec.cle_id;
17483: END IF;
17489: l_talv_fa_rec.tal_type := r_talv_fa_rec.tal_type;
17490: l_talv_fa_rec.line_number := r_talv_fa_rec.line_number;
17491: l_talv_fa_rec.asset_number := p_asset_number;
17492: IF (l_talv_fa_rec.kle_id IS NUll OR
17493: l_talv_fa_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17494: l_talv_fa_rec.kle_id := r_talv_fa_rec.kle_id;
17495: END IF;
17496: IF (l_talv_fa_rec.original_cost IS NUll OR
17497: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17493: l_talv_fa_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17494: l_talv_fa_rec.kle_id := r_talv_fa_rec.kle_id;
17495: END IF;
17496: IF (l_talv_fa_rec.original_cost IS NUll OR
17497: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17498: l_talv_fa_rec.original_cost := r_talv_fa_rec.original_cost;
17499: END IF;
17500: IF (l_talv_fa_rec.depreciation_cost IS NUll OR
17501: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM) THEN
17497: l_talv_fa_rec.original_cost = OKL_API.G_MISS_NUM) THEN
17498: l_talv_fa_rec.original_cost := r_talv_fa_rec.original_cost;
17499: END IF;
17500: IF (l_talv_fa_rec.depreciation_cost IS NUll OR
17501: l_talv_fa_rec.depreciation_cost = OKL_API.G_MISS_NUM) THEN
17502: l_talv_fa_rec.depreciation_cost := r_talv_fa_rec.depreciation_cost;
17503: END IF;
17504:
17505: IF (l_talv_fa_rec.description IS NUll OR
17502: l_talv_fa_rec.depreciation_cost := r_talv_fa_rec.depreciation_cost;
17503: END IF;
17504:
17505: IF (l_talv_fa_rec.description IS NUll OR
17506: l_talv_fa_rec.description = OKL_API.G_MISS_CHAR) THEN
17507: l_talv_fa_rec.description := r_talv_fa_rec.description;
17508: END IF;
17509: IF (l_talv_fa_rec.current_units IS NUll OR
17510: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
17506: l_talv_fa_rec.description = OKL_API.G_MISS_CHAR) THEN
17507: l_talv_fa_rec.description := r_talv_fa_rec.description;
17508: END IF;
17509: IF (l_talv_fa_rec.current_units IS NUll OR
17510: l_talv_fa_rec.current_units = OKL_API.G_MISS_NUM) THEN
17511: l_talv_fa_rec.current_units := r_talv_fa_rec.current_units;
17512: END IF;
17513:
17514: --Bug# 4899328: For online rebook, update depreciation_cost and
17571: x_clev_rec => x_clev_fa_rec,
17572: x_klev_rec => l_klev_fa_rec_out,
17573: x_cimv_rec => l_cimv_fa_rec_out,
17574: x_talv_rec => l_talv_fa_rec_out);
17575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17578: RAISE OKL_API.G_EXCEPTION_ERROR;
17579: END IF;
17572: x_klev_rec => l_klev_fa_rec_out,
17573: x_cimv_rec => l_cimv_fa_rec_out,
17574: x_talv_rec => l_talv_fa_rec_out);
17575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17578: RAISE OKL_API.G_EXCEPTION_ERROR;
17579: END IF;
17580: -- Updating Asset Lines Details Asset Number
17573: x_cimv_rec => l_cimv_fa_rec_out,
17574: x_talv_rec => l_talv_fa_rec_out);
17575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17578: RAISE OKL_API.G_EXCEPTION_ERROR;
17579: END IF;
17580: -- Updating Asset Lines Details Asset Number
17581: update_asset_line_details(p_api_version => p_api_version,
17574: x_talv_rec => l_talv_fa_rec_out);
17575: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17576: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17577: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17578: RAISE OKL_API.G_EXCEPTION_ERROR;
17579: END IF;
17580: -- Updating Asset Lines Details Asset Number
17581: update_asset_line_details(p_api_version => p_api_version,
17582: p_init_msg_list => p_init_msg_list,
17585: x_msg_data => x_msg_data,
17586: p_asset_number => p_asset_number,
17587: p_original_cost => l_talv_fa_rec_out.original_cost,
17588: p_tal_id => l_talv_fa_rec_out.ID);
17589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17592: RAISE OKL_API.G_EXCEPTION_ERROR;
17593: END IF;
17586: p_asset_number => p_asset_number,
17587: p_original_cost => l_talv_fa_rec_out.original_cost,
17588: p_tal_id => l_talv_fa_rec_out.ID);
17589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17592: RAISE OKL_API.G_EXCEPTION_ERROR;
17593: END IF;
17594: IF p_new_yn = 'Y' THEN
17587: p_original_cost => l_talv_fa_rec_out.original_cost,
17588: p_tal_id => l_talv_fa_rec_out.ID);
17589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17592: RAISE OKL_API.G_EXCEPTION_ERROR;
17593: END IF;
17594: IF p_new_yn = 'Y' THEN
17595: -- Updating of the Install Base Line Process
17588: p_tal_id => l_talv_fa_rec_out.ID);
17589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17592: RAISE OKL_API.G_EXCEPTION_ERROR;
17593: END IF;
17594: IF p_new_yn = 'Y' THEN
17595: -- Updating of the Install Base Line Process
17596: -- To Get the cle IB Line Record
17595: -- Updating of the Install Base Line Process
17596: -- To Get the cle IB Line Record
17597: x_return_status := get_rec_clev(l_clev_ib_rec.id,
17598: r_clev_ib_rec);
17599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17600: OKL_API.set_message(p_app_name => G_APP_NAME,
17601: p_msg_name => G_FETCHING_INFO,
17602: p_token1 => G_REC_NAME_TOKEN,
17603: p_token1_value => 'OKC_K_LINES_V Record');
17596: -- To Get the cle IB Line Record
17597: x_return_status := get_rec_clev(l_clev_ib_rec.id,
17598: r_clev_ib_rec);
17599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17600: OKL_API.set_message(p_app_name => G_APP_NAME,
17601: p_msg_name => G_FETCHING_INFO,
17602: p_token1 => G_REC_NAME_TOKEN,
17603: p_token1_value => 'OKC_K_LINES_V Record');
17604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17600: OKL_API.set_message(p_app_name => G_APP_NAME,
17601: p_msg_name => G_FETCHING_INFO,
17602: p_token1 => G_REC_NAME_TOKEN,
17603: p_token1_value => 'OKC_K_LINES_V Record');
17604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17605: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17606: OKL_API.set_message(p_app_name => G_APP_NAME,
17607: p_msg_name => G_FETCHING_INFO,
17608: p_token1 => G_REC_NAME_TOKEN,
17601: p_msg_name => G_FETCHING_INFO,
17602: p_token1 => G_REC_NAME_TOKEN,
17603: p_token1_value => 'OKC_K_LINES_V Record');
17604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17605: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17606: OKL_API.set_message(p_app_name => G_APP_NAME,
17607: p_msg_name => G_FETCHING_INFO,
17608: p_token1 => G_REC_NAME_TOKEN,
17609: p_token1_value => 'OKC_K_LINES_V Record');
17602: p_token1 => G_REC_NAME_TOKEN,
17603: p_token1_value => 'OKC_K_LINES_V Record');
17604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17605: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17606: OKL_API.set_message(p_app_name => G_APP_NAME,
17607: p_msg_name => G_FETCHING_INFO,
17608: p_token1 => G_REC_NAME_TOKEN,
17609: p_token1_value => 'OKC_K_LINES_V Record');
17610: RAISE OKL_API.G_EXCEPTION_ERROR;
17606: OKL_API.set_message(p_app_name => G_APP_NAME,
17607: p_msg_name => G_FETCHING_INFO,
17608: p_token1 => G_REC_NAME_TOKEN,
17609: p_token1_value => 'OKC_K_LINES_V Record');
17610: RAISE OKL_API.G_EXCEPTION_ERROR;
17611: END IF;
17612: -- To Get the kle IB Line Record
17613: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17614: r_klev_ib_rec);
17611: END IF;
17612: -- To Get the kle IB Line Record
17613: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17614: r_klev_ib_rec);
17615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17616: OKL_API.set_message(p_app_name => G_APP_NAME,
17617: p_msg_name => G_FETCHING_INFO,
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17612: -- To Get the kle IB Line Record
17613: x_return_status := get_rec_klev(l_clev_ib_rec.id,
17614: r_klev_ib_rec);
17615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17616: OKL_API.set_message(p_app_name => G_APP_NAME,
17617: p_msg_name => G_FETCHING_INFO,
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17616: OKL_API.set_message(p_app_name => G_APP_NAME,
17617: p_msg_name => G_FETCHING_INFO,
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17624: p_token1 => G_REC_NAME_TOKEN,
17617: p_msg_name => G_FETCHING_INFO,
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17624: p_token1 => G_REC_NAME_TOKEN,
17625: p_token1_value => 'OKL_K_LINES_V Record');
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17624: p_token1 => G_REC_NAME_TOKEN,
17625: p_token1_value => 'OKL_K_LINES_V Record');
17626: RAISE OKL_API.G_EXCEPTION_ERROR;
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17624: p_token1 => G_REC_NAME_TOKEN,
17625: p_token1_value => 'OKL_K_LINES_V Record');
17626: RAISE OKL_API.G_EXCEPTION_ERROR;
17627: END IF;
17628: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_LINE_RECORD);
17625: p_token1_value => 'OKL_K_LINES_V Record');
17626: RAISE OKL_API.G_EXCEPTION_ERROR;
17627: END IF;
17628: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_LINE_RECORD);
17631: RAISE OKL_API.G_EXCEPTION_ERROR;
17632: END IF;
17633: --Build the clev Top Line Record
17627: END IF;
17628: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17630: p_msg_name => G_LINE_RECORD);
17631: RAISE OKL_API.G_EXCEPTION_ERROR;
17632: END IF;
17633: --Build the clev Top Line Record
17634: l_clev_ib_rec.chr_id := null;
17635: IF (l_clev_ib_rec.cle_id IS NUll OR
17632: END IF;
17633: --Build the clev Top Line Record
17634: l_clev_ib_rec.chr_id := null;
17635: IF (l_clev_ib_rec.cle_id IS NUll OR
17636: l_clev_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17637: l_clev_ib_rec.cle_id := r_clev_ib_rec.cle_id;
17638: END IF;
17639: IF (l_clev_ib_rec.dnz_chr_id IS NUll OR
17640: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17636: l_clev_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17637: l_clev_ib_rec.cle_id := r_clev_ib_rec.cle_id;
17638: END IF;
17639: IF (l_clev_ib_rec.dnz_chr_id IS NUll OR
17640: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17641: l_clev_ib_rec.dnz_chr_id := r_clev_ib_rec.dnz_chr_id;
17642: END IF;
17643: IF (l_clev_ib_rec.lse_id IS NUll OR
17644: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17640: l_clev_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17641: l_clev_ib_rec.dnz_chr_id := r_clev_ib_rec.dnz_chr_id;
17642: END IF;
17643: IF (l_clev_ib_rec.lse_id IS NUll OR
17644: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17645: l_clev_ib_rec.lse_id := r_clev_ib_rec.lse_id;
17646: END IF;
17647: IF (l_clev_ib_rec.display_sequence IS NUll OR
17648: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17644: l_clev_ib_rec.lse_id = OKL_API.G_MISS_NUM) THEN
17645: l_clev_ib_rec.lse_id := r_clev_ib_rec.lse_id;
17646: END IF;
17647: IF (l_clev_ib_rec.display_sequence IS NUll OR
17648: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17649: l_clev_ib_rec.display_sequence := r_clev_ib_rec.display_sequence;
17650: END IF;
17651: IF (l_clev_ib_rec.exception_yn IS NUll OR
17652: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17648: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
17649: l_clev_ib_rec.display_sequence := r_clev_ib_rec.display_sequence;
17650: END IF;
17651: IF (l_clev_ib_rec.exception_yn IS NUll OR
17652: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17653: l_clev_ib_rec.exception_yn := r_clev_ib_rec.exception_yn;
17654: END IF;
17655: IF (l_clev_ib_rec.line_number IS NUll OR
17656: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17652: l_clev_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17653: l_clev_ib_rec.exception_yn := r_clev_ib_rec.exception_yn;
17654: END IF;
17655: IF (l_clev_ib_rec.line_number IS NUll OR
17656: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17657: l_clev_ib_rec.line_number := r_clev_ib_rec.line_number;
17658: END IF;
17659: IF (l_clev_ib_rec.sts_code IS NUll OR
17660: l_clev_ib_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17656: l_clev_ib_rec.line_number = OKL_API.G_MISS_CHAR) THEN
17657: l_clev_ib_rec.line_number := r_clev_ib_rec.line_number;
17658: END IF;
17659: IF (l_clev_ib_rec.sts_code IS NUll OR
17660: l_clev_ib_rec.sts_code = OKL_API.G_MISS_CHAR) THEN
17661: l_clev_ib_rec.sts_code := r_clev_ib_rec.sts_code;
17662: END IF;
17663: --Build the klev Top Line Record
17664: l_klev_ib_rec := r_klev_ib_rec;
17665: -- To Get the cimv ib Line Record
17666: x_return_status := get_rec_cimv(l_clev_ib_rec.id,
17667: l_clev_fin_rec.dnz_chr_id,
17668: r_cimv_ib_rec);
17669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17670: OKL_API.set_message(p_app_name => G_APP_NAME,
17671: p_msg_name => G_FETCHING_INFO,
17672: p_token1 => G_REC_NAME_TOKEN,
17673: p_token1_value => 'OKC_K_ITEMS_V Record');
17666: x_return_status := get_rec_cimv(l_clev_ib_rec.id,
17667: l_clev_fin_rec.dnz_chr_id,
17668: r_cimv_ib_rec);
17669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17670: OKL_API.set_message(p_app_name => G_APP_NAME,
17671: p_msg_name => G_FETCHING_INFO,
17672: p_token1 => G_REC_NAME_TOKEN,
17673: p_token1_value => 'OKC_K_ITEMS_V Record');
17674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17670: OKL_API.set_message(p_app_name => G_APP_NAME,
17671: p_msg_name => G_FETCHING_INFO,
17672: p_token1 => G_REC_NAME_TOKEN,
17673: p_token1_value => 'OKC_K_ITEMS_V Record');
17674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17676: OKL_API.set_message(p_app_name => G_APP_NAME,
17677: p_msg_name => G_FETCHING_INFO,
17678: p_token1 => G_REC_NAME_TOKEN,
17671: p_msg_name => G_FETCHING_INFO,
17672: p_token1 => G_REC_NAME_TOKEN,
17673: p_token1_value => 'OKC_K_ITEMS_V Record');
17674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17676: OKL_API.set_message(p_app_name => G_APP_NAME,
17677: p_msg_name => G_FETCHING_INFO,
17678: p_token1 => G_REC_NAME_TOKEN,
17679: p_token1_value => 'OKC_K_ITEMS_V Record');
17672: p_token1 => G_REC_NAME_TOKEN,
17673: p_token1_value => 'OKC_K_ITEMS_V Record');
17674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17675: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17676: OKL_API.set_message(p_app_name => G_APP_NAME,
17677: p_msg_name => G_FETCHING_INFO,
17678: p_token1 => G_REC_NAME_TOKEN,
17679: p_token1_value => 'OKC_K_ITEMS_V Record');
17680: RAISE OKL_API.G_EXCEPTION_ERROR;
17676: OKL_API.set_message(p_app_name => G_APP_NAME,
17677: p_msg_name => G_FETCHING_INFO,
17678: p_token1 => G_REC_NAME_TOKEN,
17679: p_token1_value => 'OKC_K_ITEMS_V Record');
17680: RAISE OKL_API.G_EXCEPTION_ERROR;
17681: END IF;
17682: --Build cimv ib item rec
17683: l_cimv_ib_rec.id := r_cimv_ib_rec.id;
17684: IF (l_cimv_ib_rec.exception_yn IS NUll OR
17681: END IF;
17682: --Build cimv ib item rec
17683: l_cimv_ib_rec.id := r_cimv_ib_rec.id;
17684: IF (l_cimv_ib_rec.exception_yn IS NUll OR
17685: l_cimv_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17686: l_cimv_ib_rec.exception_yn := r_cimv_ib_rec.exception_yn;
17687: END IF;
17688: IF (l_cimv_ib_rec.dnz_chr_id IS NUll OR
17689: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17685: l_cimv_ib_rec.exception_yn = OKL_API.G_MISS_CHAR) THEN
17686: l_cimv_ib_rec.exception_yn := r_cimv_ib_rec.exception_yn;
17687: END IF;
17688: IF (l_cimv_ib_rec.dnz_chr_id IS NUll OR
17689: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17690: l_cimv_ib_rec.dnz_chr_id := r_cimv_ib_rec.dnz_chr_id;
17691: END IF;
17692: IF (l_cimv_ib_rec.cle_id IS NUll OR
17693: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17689: l_cimv_ib_rec.dnz_chr_id = OKL_API.G_MISS_NUM) THEN
17690: l_cimv_ib_rec.dnz_chr_id := r_cimv_ib_rec.dnz_chr_id;
17691: END IF;
17692: IF (l_cimv_ib_rec.cle_id IS NUll OR
17693: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17694: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17695: END IF;
17696: IF (l_cimv_ib_rec.cle_id IS NUll OR
17697: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17693: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17694: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17695: END IF;
17696: IF (l_cimv_ib_rec.cle_id IS NUll OR
17697: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17698: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17699: END IF;
17700: IF (l_cimv_ib_rec.cle_id IS NUll OR
17701: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17697: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17698: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17699: END IF;
17700: IF (l_cimv_ib_rec.cle_id IS NUll OR
17701: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17702: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17703: END IF;
17704: IF (l_cimv_ib_rec.object1_id1 IS NUll OR
17705: l_cimv_ib_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17701: l_cimv_ib_rec.cle_id = OKL_API.G_MISS_NUM) THEN
17702: l_cimv_ib_rec.cle_id := r_cimv_ib_rec.cle_id;
17703: END IF;
17704: IF (l_cimv_ib_rec.object1_id1 IS NUll OR
17705: l_cimv_ib_rec.object1_id1 = OKL_API.G_MISS_CHAR) THEN
17706: l_cimv_ib_rec.object1_id1 := null;
17707: ELSE
17708: l_cimv_ib_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17709: END IF;
17707: ELSE
17708: l_cimv_ib_rec.object1_id1 := r_cimv_ib_rec.cle_id;
17709: END IF;
17710: IF (l_cimv_ib_rec.object1_id2 IS NUll OR
17711: l_cimv_ib_rec.object1_id2 = OKL_API.G_MISS_CHAR) THEN
17712: l_cimv_ib_rec.object1_id2 := null;
17713: ELSE
17714: l_cimv_ib_rec.object1_id2 := r_cimv_ib_rec.cle_id;
17715: END IF;
17715: END IF;
17716: -- To Get the itiv ib Line Record
17717: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
17718: r_itiv_ib_rec);
17719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17720: OKL_API.set_message(p_app_name => G_APP_NAME,
17721: p_msg_name => G_FETCHING_INFO,
17722: p_token1 => G_REC_NAME_TOKEN,
17723: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17716: -- To Get the itiv ib Line Record
17717: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
17718: r_itiv_ib_rec);
17719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17720: OKL_API.set_message(p_app_name => G_APP_NAME,
17721: p_msg_name => G_FETCHING_INFO,
17722: p_token1 => G_REC_NAME_TOKEN,
17723: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17720: OKL_API.set_message(p_app_name => G_APP_NAME,
17721: p_msg_name => G_FETCHING_INFO,
17722: p_token1 => G_REC_NAME_TOKEN,
17723: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: OKL_API.set_message(p_app_name => G_APP_NAME,
17727: p_msg_name => G_FETCHING_INFO,
17728: p_token1 => G_REC_NAME_TOKEN,
17721: p_msg_name => G_FETCHING_INFO,
17722: p_token1 => G_REC_NAME_TOKEN,
17723: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: OKL_API.set_message(p_app_name => G_APP_NAME,
17727: p_msg_name => G_FETCHING_INFO,
17728: p_token1 => G_REC_NAME_TOKEN,
17729: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17722: p_token1 => G_REC_NAME_TOKEN,
17723: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: OKL_API.set_message(p_app_name => G_APP_NAME,
17727: p_msg_name => G_FETCHING_INFO,
17728: p_token1 => G_REC_NAME_TOKEN,
17729: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17730: RAISE OKL_API.G_EXCEPTION_ERROR;
17726: OKL_API.set_message(p_app_name => G_APP_NAME,
17727: p_msg_name => G_FETCHING_INFO,
17728: p_token1 => G_REC_NAME_TOKEN,
17729: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17730: RAISE OKL_API.G_EXCEPTION_ERROR;
17731: END IF;
17732: --Build itiv ib item rec
17733: l_itiv_ib_rec.id := r_itiv_ib_rec.id;
17734: l_itiv_ib_rec.object_version_number := r_itiv_ib_rec.object_version_number;
17734: l_itiv_ib_rec.object_version_number := r_itiv_ib_rec.object_version_number;
17735: l_itiv_ib_rec.tas_id := r_itiv_ib_rec.tas_id;
17736: l_itiv_ib_rec.line_number := r_itiv_ib_rec.line_number;
17737: IF (l_itiv_ib_rec.kle_id IS NUll OR
17738: l_itiv_ib_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17739: l_itiv_ib_rec.kle_id := r_itiv_ib_rec.kle_id;
17740: END IF;
17741: IF (l_itiv_ib_rec.instance_number_ib IS NUll OR
17742: l_itiv_ib_rec.instance_number_ib = OKL_API.G_MISS_CHAR) THEN
17738: l_itiv_ib_rec.kle_id = OKL_API.G_MISS_NUM) THEN
17739: l_itiv_ib_rec.kle_id := r_itiv_ib_rec.kle_id;
17740: END IF;
17741: IF (l_itiv_ib_rec.instance_number_ib IS NUll OR
17742: l_itiv_ib_rec.instance_number_ib = OKL_API.G_MISS_CHAR) THEN
17743: l_itiv_ib_rec.instance_number_ib := r_itiv_ib_rec.instance_number_ib;
17744: END IF;
17745: -- Since the screen can give only party_site_id via l_itiv_tbl(j).object_id1_new
17746: -- We have to use the below function
17747: lv_object_id1_new := l_itiv_ib_rec.object_id1_new;
17748: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
17749: x_object_id1_new => l_itiv_ib_rec.object_id1_new,
17750: x_object_id2_new => l_itiv_ib_rec.object_id2_new);
17751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17752: OKL_API.set_message(p_app_name => G_APP_NAME,
17753: p_msg_name => G_NO_MATCHING_RECORD,
17754: p_token1 => G_COL_NAME_TOKEN,
17755: p_token1_value => 'Party_site_id');
17748: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
17749: x_object_id1_new => l_itiv_ib_rec.object_id1_new,
17750: x_object_id2_new => l_itiv_ib_rec.object_id2_new);
17751: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17752: OKL_API.set_message(p_app_name => G_APP_NAME,
17753: p_msg_name => G_NO_MATCHING_RECORD,
17754: p_token1 => G_COL_NAME_TOKEN,
17755: p_token1_value => 'Party_site_id');
17756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17752: OKL_API.set_message(p_app_name => G_APP_NAME,
17753: p_msg_name => G_NO_MATCHING_RECORD,
17754: p_token1 => G_COL_NAME_TOKEN,
17755: p_token1_value => 'Party_site_id');
17756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17758: OKL_API.set_message(p_app_name => G_APP_NAME,
17759: p_msg_name => G_NO_MATCHING_RECORD,
17760: p_token1 => G_COL_NAME_TOKEN,
17753: p_msg_name => G_NO_MATCHING_RECORD,
17754: p_token1 => G_COL_NAME_TOKEN,
17755: p_token1_value => 'Party_site_id');
17756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17758: OKL_API.set_message(p_app_name => G_APP_NAME,
17759: p_msg_name => G_NO_MATCHING_RECORD,
17760: p_token1 => G_COL_NAME_TOKEN,
17761: p_token1_value => 'Party_site_id');
17754: p_token1 => G_COL_NAME_TOKEN,
17755: p_token1_value => 'Party_site_id');
17756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17758: OKL_API.set_message(p_app_name => G_APP_NAME,
17759: p_msg_name => G_NO_MATCHING_RECORD,
17760: p_token1 => G_COL_NAME_TOKEN,
17761: p_token1_value => 'Party_site_id');
17762: RAISE OKL_API.G_EXCEPTION_ERROR;
17758: OKL_API.set_message(p_app_name => G_APP_NAME,
17759: p_msg_name => G_NO_MATCHING_RECORD,
17760: p_token1 => G_COL_NAME_TOKEN,
17761: p_token1_value => 'Party_site_id');
17762: RAISE OKL_API.G_EXCEPTION_ERROR;
17763: END IF;
17764: IF (l_itiv_ib_rec.object_id1_new IS NUll OR
17765: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17766: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17761: p_token1_value => 'Party_site_id');
17762: RAISE OKL_API.G_EXCEPTION_ERROR;
17763: END IF;
17764: IF (l_itiv_ib_rec.object_id1_new IS NUll OR
17765: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17766: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17767: END IF;
17768: IF (l_itiv_ib_rec.object_id2_new IS NUll OR
17769: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17765: l_itiv_ib_rec.object_id1_new = OKL_API.G_MISS_CHAR) THEN
17766: l_itiv_ib_rec.object_id1_new := r_itiv_ib_rec.object_id1_new;
17767: END IF;
17768: IF (l_itiv_ib_rec.object_id2_new IS NUll OR
17769: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17770: l_itiv_ib_rec.object_id2_new := r_itiv_ib_rec.object_id2_new;
17771: END IF;
17772: IF (l_itiv_ib_rec.jtot_object_code_new IS NUll OR
17773: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17769: l_itiv_ib_rec.object_id2_new = OKL_API.G_MISS_CHAR) THEN
17770: l_itiv_ib_rec.object_id2_new := r_itiv_ib_rec.object_id2_new;
17771: END IF;
17772: IF (l_itiv_ib_rec.jtot_object_code_new IS NUll OR
17773: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17774: l_itiv_ib_rec.jtot_object_code_new := r_itiv_ib_rec.jtot_object_code_new;
17775: END IF;
17776: IF (l_itiv_ib_rec.mfg_serial_number_yn IS NUll OR
17777: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17773: l_itiv_ib_rec.jtot_object_code_new = OKL_API.G_MISS_CHAR) THEN
17774: l_itiv_ib_rec.jtot_object_code_new := r_itiv_ib_rec.jtot_object_code_new;
17775: END IF;
17776: IF (l_itiv_ib_rec.mfg_serial_number_yn IS NUll OR
17777: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17778: l_itiv_ib_rec.mfg_serial_number_yn := r_itiv_ib_rec.mfg_serial_number_yn;
17779: END IF;
17780: IF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17781: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17777: l_itiv_ib_rec.mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
17778: l_itiv_ib_rec.mfg_serial_number_yn := r_itiv_ib_rec.mfg_serial_number_yn;
17779: END IF;
17780: IF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17781: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17782: lv_model_object_id1 = r_itiv_ib_rec.inventory_item_id THEN
17783: l_itiv_ib_rec.inventory_item_id := r_itiv_ib_rec.inventory_item_id;
17784: ELSIF (l_itiv_ib_rec.inventory_item_id IS NOT NUll OR
17785: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17781: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) AND
17782: lv_model_object_id1 = r_itiv_ib_rec.inventory_item_id THEN
17783: l_itiv_ib_rec.inventory_item_id := r_itiv_ib_rec.inventory_item_id;
17784: ELSIF (l_itiv_ib_rec.inventory_item_id IS NOT NUll OR
17785: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17786: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17787: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17788: ELSIF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17789: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) OR
17785: l_itiv_ib_rec.inventory_item_id <> OKL_API.G_MISS_NUM) AND
17786: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17787: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17788: ELSIF (l_itiv_ib_rec.inventory_item_id IS NUll OR
17789: l_itiv_ib_rec.inventory_item_id = OKL_API.G_MISS_NUM) OR
17790: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17791: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17792: END IF;
17793: IF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17790: lv_model_object_id1 <> r_itiv_ib_rec.inventory_item_id THEN
17791: l_itiv_ib_rec.inventory_item_id := lv_model_object_id1;
17792: END IF;
17793: IF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17794: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) AND
17795: lv_model_object_id2 = r_itiv_ib_rec.inventory_org_id THEN
17796: l_itiv_ib_rec.inventory_org_id := r_itiv_ib_rec.inventory_org_id;
17797: ELSIF (l_itiv_ib_rec.inventory_org_id IS NOT NUll OR
17798: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17794: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) AND
17795: lv_model_object_id2 = r_itiv_ib_rec.inventory_org_id THEN
17796: l_itiv_ib_rec.inventory_org_id := r_itiv_ib_rec.inventory_org_id;
17797: ELSIF (l_itiv_ib_rec.inventory_org_id IS NOT NUll OR
17798: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17799: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17800: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17801: ELSIF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17802: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) OR
17798: l_itiv_ib_rec.inventory_org_id <> OKL_API.G_MISS_NUM) AND
17799: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17800: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17801: ELSIF (l_itiv_ib_rec.inventory_org_id IS NUll OR
17802: l_itiv_ib_rec.inventory_org_id = OKL_API.G_MISS_NUM) OR
17803: lv_model_object_id2 <> r_itiv_ib_rec.inventory_org_id THEN
17804: l_itiv_ib_rec.inventory_org_id := lv_model_object_id2;
17805: END IF;
17806: -- Updating of the ib Line
17816: x_clev_rec => x_clev_ib_rec,
17817: x_klev_rec => l_klev_ib_rec_out,
17818: x_cimv_rec => l_cimv_ib_rec_out,
17819: x_itiv_rec => l_itiv_ib_rec_out);
17820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17823: RAISE OKL_API.G_EXCEPTION_ERROR;
17824: END IF;
17817: x_klev_rec => l_klev_ib_rec_out,
17818: x_cimv_rec => l_cimv_ib_rec_out,
17819: x_itiv_rec => l_itiv_ib_rec_out);
17820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17823: RAISE OKL_API.G_EXCEPTION_ERROR;
17824: END IF;
17825: -- Updating of the Instance Line
17818: x_cimv_rec => l_cimv_ib_rec_out,
17819: x_itiv_rec => l_itiv_ib_rec_out);
17820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17823: RAISE OKL_API.G_EXCEPTION_ERROR;
17824: END IF;
17825: -- Updating of the Instance Line
17826: -- To Get the cle IB Line Record
17819: x_itiv_rec => l_itiv_ib_rec_out);
17820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17823: RAISE OKL_API.G_EXCEPTION_ERROR;
17824: END IF;
17825: -- Updating of the Instance Line
17826: -- To Get the cle IB Line Record
17827: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17825: -- Updating of the Instance Line
17826: -- To Get the cle IB Line Record
17827: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17828: r_clev_inst_rec);
17829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17830: OKL_API.set_message(p_app_name => G_APP_NAME,
17831: p_msg_name => G_FETCHING_INFO,
17832: p_token1 => G_REC_NAME_TOKEN,
17833: p_token1_value => 'OKC_K_LINES_V Record');
17826: -- To Get the cle IB Line Record
17827: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
17828: r_clev_inst_rec);
17829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17830: OKL_API.set_message(p_app_name => G_APP_NAME,
17831: p_msg_name => G_FETCHING_INFO,
17832: p_token1 => G_REC_NAME_TOKEN,
17833: p_token1_value => 'OKC_K_LINES_V Record');
17834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17830: OKL_API.set_message(p_app_name => G_APP_NAME,
17831: p_msg_name => G_FETCHING_INFO,
17832: p_token1 => G_REC_NAME_TOKEN,
17833: p_token1_value => 'OKC_K_LINES_V Record');
17834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17836: OKL_API.set_message(p_app_name => G_APP_NAME,
17837: p_msg_name => G_FETCHING_INFO,
17838: p_token1 => G_REC_NAME_TOKEN,
17831: p_msg_name => G_FETCHING_INFO,
17832: p_token1 => G_REC_NAME_TOKEN,
17833: p_token1_value => 'OKC_K_LINES_V Record');
17834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17836: OKL_API.set_message(p_app_name => G_APP_NAME,
17837: p_msg_name => G_FETCHING_INFO,
17838: p_token1 => G_REC_NAME_TOKEN,
17839: p_token1_value => 'OKC_K_LINES_V Record');
17832: p_token1 => G_REC_NAME_TOKEN,
17833: p_token1_value => 'OKC_K_LINES_V Record');
17834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17836: OKL_API.set_message(p_app_name => G_APP_NAME,
17837: p_msg_name => G_FETCHING_INFO,
17838: p_token1 => G_REC_NAME_TOKEN,
17839: p_token1_value => 'OKC_K_LINES_V Record');
17840: RAISE OKL_API.G_EXCEPTION_ERROR;
17836: OKL_API.set_message(p_app_name => G_APP_NAME,
17837: p_msg_name => G_FETCHING_INFO,
17838: p_token1 => G_REC_NAME_TOKEN,
17839: p_token1_value => 'OKC_K_LINES_V Record');
17840: RAISE OKL_API.G_EXCEPTION_ERROR;
17841: END IF;
17842: -- To Get the kle IB Line Record
17843: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17844: r_klev_inst_rec);
17841: END IF;
17842: -- To Get the kle IB Line Record
17843: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17844: r_klev_inst_rec);
17845: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17846: OKL_API.set_message(p_app_name => G_APP_NAME,
17847: p_msg_name => G_FETCHING_INFO,
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17842: -- To Get the kle IB Line Record
17843: x_return_status := get_rec_klev(l_clev_ib_rec.cle_id,
17844: r_klev_inst_rec);
17845: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17846: OKL_API.set_message(p_app_name => G_APP_NAME,
17847: p_msg_name => G_FETCHING_INFO,
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17846: OKL_API.set_message(p_app_name => G_APP_NAME,
17847: p_msg_name => G_FETCHING_INFO,
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17854: p_token1 => G_REC_NAME_TOKEN,
17847: p_msg_name => G_FETCHING_INFO,
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17854: p_token1 => G_REC_NAME_TOKEN,
17855: p_token1_value => 'OKL_K_LINES_V Record');
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17854: p_token1 => G_REC_NAME_TOKEN,
17855: p_token1_value => 'OKL_K_LINES_V Record');
17856: RAISE OKL_API.G_EXCEPTION_ERROR;
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17854: p_token1 => G_REC_NAME_TOKEN,
17855: p_token1_value => 'OKL_K_LINES_V Record');
17856: RAISE OKL_API.G_EXCEPTION_ERROR;
17857: END IF;
17858: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17859: OKL_API.set_message(p_app_name => G_APP_NAME,
17860: p_msg_name => G_LINE_RECORD);
17855: p_token1_value => 'OKL_K_LINES_V Record');
17856: RAISE OKL_API.G_EXCEPTION_ERROR;
17857: END IF;
17858: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17859: OKL_API.set_message(p_app_name => G_APP_NAME,
17860: p_msg_name => G_LINE_RECORD);
17861: RAISE OKL_API.G_EXCEPTION_ERROR;
17862: END IF;
17863: l_clev_inst_rec := r_clev_inst_rec;
17857: END IF;
17858: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17859: OKL_API.set_message(p_app_name => G_APP_NAME,
17860: p_msg_name => G_LINE_RECORD);
17861: RAISE OKL_API.G_EXCEPTION_ERROR;
17862: END IF;
17863: l_clev_inst_rec := r_clev_inst_rec;
17864: l_klev_inst_rec := r_klev_inst_rec;
17865: -- upating of the Instance Line
17873: p_itiv_rec => l_itiv_inst_rec,
17874: x_clev_rec => l_clev_inst_rec_out,
17875: x_klev_rec => l_klev_inst_rec_out,
17876: x_itiv_rec => l_itiv_inst_rec_out);
17877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17880: RAISE OKL_API.G_EXCEPTION_ERROR;
17881: END IF;
17874: x_clev_rec => l_clev_inst_rec_out,
17875: x_klev_rec => l_klev_inst_rec_out,
17876: x_itiv_rec => l_itiv_inst_rec_out);
17877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17880: RAISE OKL_API.G_EXCEPTION_ERROR;
17881: END IF;
17882: ELSIF p_new_yn = 'N' THEN
17875: x_klev_rec => l_klev_inst_rec_out,
17876: x_itiv_rec => l_itiv_inst_rec_out);
17877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17880: RAISE OKL_API.G_EXCEPTION_ERROR;
17881: END IF;
17882: ELSIF p_new_yn = 'N' THEN
17883: FOR r_asset_iti IN c_asset_iti(p_asset_number => p_asset_number,
17876: x_itiv_rec => l_itiv_inst_rec_out);
17877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17880: RAISE OKL_API.G_EXCEPTION_ERROR;
17881: END IF;
17882: ELSIF p_new_yn = 'N' THEN
17883: FOR r_asset_iti IN c_asset_iti(p_asset_number => p_asset_number,
17884: p_dnz_chr_id => x_clev_fa_rec.dnz_chr_id) LOOP
17884: p_dnz_chr_id => x_clev_fa_rec.dnz_chr_id) LOOP
17885: -- To Get the itiv ib Line Record
17886: x_return_status := get_rec_itiv(r_asset_iti.id,
17887: n_itiv_ib_rec);
17888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17889: OKL_API.set_message(p_app_name => G_APP_NAME,
17890: p_msg_name => G_FETCHING_INFO,
17891: p_token1 => G_REC_NAME_TOKEN,
17892: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17885: -- To Get the itiv ib Line Record
17886: x_return_status := get_rec_itiv(r_asset_iti.id,
17887: n_itiv_ib_rec);
17888: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17889: OKL_API.set_message(p_app_name => G_APP_NAME,
17890: p_msg_name => G_FETCHING_INFO,
17891: p_token1 => G_REC_NAME_TOKEN,
17892: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17889: OKL_API.set_message(p_app_name => G_APP_NAME,
17890: p_msg_name => G_FETCHING_INFO,
17891: p_token1 => G_REC_NAME_TOKEN,
17892: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17895: OKL_API.set_message(p_app_name => G_APP_NAME,
17896: p_msg_name => G_FETCHING_INFO,
17897: p_token1 => G_REC_NAME_TOKEN,
17890: p_msg_name => G_FETCHING_INFO,
17891: p_token1 => G_REC_NAME_TOKEN,
17892: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17895: OKL_API.set_message(p_app_name => G_APP_NAME,
17896: p_msg_name => G_FETCHING_INFO,
17897: p_token1 => G_REC_NAME_TOKEN,
17898: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17891: p_token1 => G_REC_NAME_TOKEN,
17892: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17895: OKL_API.set_message(p_app_name => G_APP_NAME,
17896: p_msg_name => G_FETCHING_INFO,
17897: p_token1 => G_REC_NAME_TOKEN,
17898: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17899: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17895: OKL_API.set_message(p_app_name => G_APP_NAME,
17896: p_msg_name => G_FETCHING_INFO,
17897: p_token1 => G_REC_NAME_TOKEN,
17898: p_token1_value => 'OKL_TXL_ITM_INSTS_V Record');
17899: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
17900: END IF;
17901: n_itiv_ib_rec.object_id1_new := p_itiv_ib_rec.object_id1_new;
17902: n_itiv_ib_rec.object_id1_old := p_itiv_ib_rec.object_id1_new;
17903: OKL_TXL_ITM_INSTS_PUB.update_txl_itm_insts(p_api_version => p_api_version,
17906: x_msg_count => x_msg_count,
17907: x_msg_data => x_msg_data,
17908: p_iipv_rec => n_itiv_ib_rec,
17909: x_iipv_rec => nx_itiv_ib_rec);
17910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17911: OKL_API.set_message(p_app_name => G_APP_NAME,
17912: p_msg_name => G_ITI_ID);
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17907: x_msg_data => x_msg_data,
17908: p_iipv_rec => n_itiv_ib_rec,
17909: x_iipv_rec => nx_itiv_ib_rec);
17910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17911: OKL_API.set_message(p_app_name => G_APP_NAME,
17912: p_msg_name => G_ITI_ID);
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17915: OKL_API.set_message(p_app_name => G_APP_NAME,
17909: x_iipv_rec => nx_itiv_ib_rec);
17910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17911: OKL_API.set_message(p_app_name => G_APP_NAME,
17912: p_msg_name => G_ITI_ID);
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17915: OKL_API.set_message(p_app_name => G_APP_NAME,
17916: p_msg_name => G_ITI_ID);
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17910: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17911: OKL_API.set_message(p_app_name => G_APP_NAME,
17912: p_msg_name => G_ITI_ID);
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17915: OKL_API.set_message(p_app_name => G_APP_NAME,
17916: p_msg_name => G_ITI_ID);
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17918: END IF;
17911: OKL_API.set_message(p_app_name => G_APP_NAME,
17912: p_msg_name => G_ITI_ID);
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17915: OKL_API.set_message(p_app_name => G_APP_NAME,
17916: p_msg_name => G_ITI_ID);
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17918: END IF;
17919: END LOOP;
17913: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17914: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17915: OKL_API.set_message(p_app_name => G_APP_NAME,
17916: p_msg_name => G_ITI_ID);
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17918: END IF;
17919: END LOOP;
17920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17916: p_msg_name => G_ITI_ID);
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17918: END IF;
17919: END LOOP;
17920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17923: RAISE OKL_API.G_EXCEPTION_ERROR;
17924: END IF;
17917: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17918: END IF;
17919: END LOOP;
17920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17923: RAISE OKL_API.G_EXCEPTION_ERROR;
17924: END IF;
17925: END IF;
17918: END IF;
17919: END LOOP;
17920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17923: RAISE OKL_API.G_EXCEPTION_ERROR;
17924: END IF;
17925: END IF;
17926:
17919: END LOOP;
17920: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17921: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17923: RAISE OKL_API.G_EXCEPTION_ERROR;
17924: END IF;
17925: END IF;
17926:
17927: -- rravikir modified.
17947: x_msg_count => x_msg_count,
17948: x_msg_data => x_msg_data,
17949: p_iipv_rec => k_itiv_ib_rec,
17950: x_iipv_rec => kx_itiv_ib_rec);
17951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17952: OKL_API.set_message(p_app_name => G_APP_NAME,
17953: p_msg_name => G_ITI_ID);
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17948: x_msg_data => x_msg_data,
17949: p_iipv_rec => k_itiv_ib_rec,
17950: x_iipv_rec => kx_itiv_ib_rec);
17951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17952: OKL_API.set_message(p_app_name => G_APP_NAME,
17953: p_msg_name => G_ITI_ID);
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17956: OKL_API.set_message(p_app_name => G_APP_NAME,
17950: x_iipv_rec => kx_itiv_ib_rec);
17951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17952: OKL_API.set_message(p_app_name => G_APP_NAME,
17953: p_msg_name => G_ITI_ID);
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17956: OKL_API.set_message(p_app_name => G_APP_NAME,
17957: p_msg_name => G_ITI_ID);
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17952: OKL_API.set_message(p_app_name => G_APP_NAME,
17953: p_msg_name => G_ITI_ID);
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17956: OKL_API.set_message(p_app_name => G_APP_NAME,
17957: p_msg_name => G_ITI_ID);
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17959: END IF;
17952: OKL_API.set_message(p_app_name => G_APP_NAME,
17953: p_msg_name => G_ITI_ID);
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17956: OKL_API.set_message(p_app_name => G_APP_NAME,
17957: p_msg_name => G_ITI_ID);
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17959: END IF;
17960: END LOOP;
17954: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17956: OKL_API.set_message(p_app_name => G_APP_NAME,
17957: p_msg_name => G_ITI_ID);
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17959: END IF;
17960: END LOOP;
17961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17957: p_msg_name => G_ITI_ID);
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17959: END IF;
17960: END LOOP;
17961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17964: RAISE OKL_API.G_EXCEPTION_ERROR;
17965: END IF;
17958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17959: END IF;
17960: END LOOP;
17961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17964: RAISE OKL_API.G_EXCEPTION_ERROR;
17965: END IF;
17966: -- end rravikir
17959: END IF;
17960: END LOOP;
17961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17964: RAISE OKL_API.G_EXCEPTION_ERROR;
17965: END IF;
17966: -- end rravikir
17967:
17960: END LOOP;
17961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17962: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17964: RAISE OKL_API.G_EXCEPTION_ERROR;
17965: END IF;
17966: -- end rravikir
17967:
17968: -- We need to change the status of the header whenever there is updating happening
17967:
17968: -- We need to change the status of the header whenever there is updating happening
17969: -- after the contract status is approved
17970: IF (l_clev_inst_rec_out.dnz_chr_id is NOT NULL) AND
17971: (l_clev_inst_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
17972: --cascade edit status on to lines
17973: okl_contract_status_pub.cascade_lease_status_edit
17974: (p_api_version => p_api_version,
17975: p_init_msg_list => p_init_msg_list,
17976: x_return_status => x_return_status,
17977: x_msg_count => x_msg_count,
17978: x_msg_data => x_msg_data,
17979: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17983: RAISE OKL_API.G_EXCEPTION_ERROR;
17984: END IF;
17977: x_msg_count => x_msg_count,
17978: x_msg_data => x_msg_data,
17979: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17983: RAISE OKL_API.G_EXCEPTION_ERROR;
17984: END IF;
17985: END IF;
17978: x_msg_data => x_msg_data,
17979: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17983: RAISE OKL_API.G_EXCEPTION_ERROR;
17984: END IF;
17985: END IF;
17986: End If; --release asset : Bug# 3533936
17979: p_chr_id => l_clev_inst_rec_out.dnz_chr_id);
17980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17983: RAISE OKL_API.G_EXCEPTION_ERROR;
17984: END IF;
17985: END IF;
17986: End If; --release asset : Bug# 3533936
17987: OKL_API.END_ACTIVITY (x_msg_count,
17983: RAISE OKL_API.G_EXCEPTION_ERROR;
17984: END IF;
17985: END IF;
17986: End If; --release asset : Bug# 3533936
17987: OKL_API.END_ACTIVITY (x_msg_count,
17988: x_msg_data );
17989: EXCEPTION
17990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17986: End If; --release asset : Bug# 3533936
17987: OKL_API.END_ACTIVITY (x_msg_count,
17988: x_msg_data );
17989: EXCEPTION
17990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17992: l_api_name,
17993: G_PKG_NAME,
17994: 'OKL_API.G_RET_STS_ERROR',
17987: OKL_API.END_ACTIVITY (x_msg_count,
17988: x_msg_data );
17989: EXCEPTION
17990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17992: l_api_name,
17993: G_PKG_NAME,
17994: 'OKL_API.G_RET_STS_ERROR',
17995: x_msg_count,
17990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17992: l_api_name,
17993: G_PKG_NAME,
17994: 'OKL_API.G_RET_STS_ERROR',
17995: x_msg_count,
17996: x_msg_data,
17997: '_PVT');
17998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17994: 'OKL_API.G_RET_STS_ERROR',
17995: x_msg_count,
17996: x_msg_data,
17997: '_PVT');
17998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18000: l_api_name,
18001: G_PKG_NAME,
18002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17995: x_msg_count,
17996: x_msg_data,
17997: '_PVT');
17998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18000: l_api_name,
18001: G_PKG_NAME,
18002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
18003: x_msg_count,
17998: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18000: l_api_name,
18001: G_PKG_NAME,
18002: 'OKL_API.G_RET_STS_UNEXP_ERROR',
18003: x_msg_count,
18004: x_msg_data,
18005: '_PVT');
18006: WHEN OTHERS THEN
18003: x_msg_count,
18004: x_msg_data,
18005: '_PVT');
18006: WHEN OTHERS THEN
18007: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
18008: l_api_name,
18009: G_PKG_NAME,
18010: 'OTHERS',
18011: x_msg_count,
18063: lb_update_oec_required BOOLEAN := FALSE;
18064: ln_item_id OKL_TXL_ITM_INSTS.INVENTORY_ITEM_ID%TYPE;
18065: -- end
18066: ln_final_current_units OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE;
18067: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18068: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18069: r_clev_model_rec clev_rec_type;
18070: r_klev_model_rec klev_rec_type;
18071: r_cimv_model_rec cimv_rec_type;
18064: ln_item_id OKL_TXL_ITM_INSTS.INVENTORY_ITEM_ID%TYPE;
18065: -- end
18066: ln_final_current_units OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE;
18067: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18068: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
18069: r_clev_model_rec clev_rec_type;
18070: r_klev_model_rec klev_rec_type;
18071: r_cimv_model_rec cimv_rec_type;
18072: r_clev_addon_rec clev_rec_type;
18234: --akrangan Bug# 5362977 end
18235:
18236:
18237: BEGIN
18238: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18239: -- Call start_activity to create savepoint, check compatibility
18240: -- and initialize message list
18241: x_return_status := OKL_API.START_ACTIVITY (
18242: l_api_name
18237: BEGIN
18238: x_return_status := OKL_API.G_RET_STS_SUCCESS;
18239: -- Call start_activity to create savepoint, check compatibility
18240: -- and initialize message list
18241: x_return_status := OKL_API.START_ACTIVITY (
18242: l_api_name
18243: ,p_init_msg_list
18244: ,'_PVT'
18245: ,x_return_status);
18243: ,p_init_msg_list
18244: ,'_PVT'
18245: ,x_return_status);
18246: -- Check if activity started successfully
18247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18250: RAISE OKL_API.G_EXCEPTION_ERROR;
18251: END IF;
18244: ,'_PVT'
18245: ,x_return_status);
18246: -- Check if activity started successfully
18247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18250: RAISE OKL_API.G_EXCEPTION_ERROR;
18251: END IF;
18252: -- Get the Ib rec first and then we can get the instance line above the IB line
18245: ,x_return_status);
18246: -- Check if activity started successfully
18247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18250: RAISE OKL_API.G_EXCEPTION_ERROR;
18251: END IF;
18252: -- Get the Ib rec first and then we can get the instance line above the IB line
18253: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18246: -- Check if activity started successfully
18247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18250: RAISE OKL_API.G_EXCEPTION_ERROR;
18251: END IF;
18252: -- Get the Ib rec first and then we can get the instance line above the IB line
18253: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18254: l_clev_ib_rec);
18251: END IF;
18252: -- Get the Ib rec first and then we can get the instance line above the IB line
18253: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18254: l_clev_ib_rec);
18255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18256: OKL_API.set_message(p_app_name => G_APP_NAME,
18257: p_msg_name => G_FETCHING_INFO,
18258: p_token1 => G_REC_NAME_TOKEN,
18259: p_token1_value => 'OKC_K_LINES_V Record');
18252: -- Get the Ib rec first and then we can get the instance line above the IB line
18253: x_return_status := get_rec_clev(p_clev_ib_rec.id,
18254: l_clev_ib_rec);
18255: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18256: OKL_API.set_message(p_app_name => G_APP_NAME,
18257: p_msg_name => G_FETCHING_INFO,
18258: p_token1 => G_REC_NAME_TOKEN,
18259: p_token1_value => 'OKC_K_LINES_V Record');
18260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18256: OKL_API.set_message(p_app_name => G_APP_NAME,
18257: p_msg_name => G_FETCHING_INFO,
18258: p_token1 => G_REC_NAME_TOKEN,
18259: p_token1_value => 'OKC_K_LINES_V Record');
18260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18262: OKL_API.set_message(p_app_name => G_APP_NAME,
18263: p_msg_name => G_FETCHING_INFO,
18264: p_token1 => G_REC_NAME_TOKEN,
18257: p_msg_name => G_FETCHING_INFO,
18258: p_token1 => G_REC_NAME_TOKEN,
18259: p_token1_value => 'OKC_K_LINES_V Record');
18260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18262: OKL_API.set_message(p_app_name => G_APP_NAME,
18263: p_msg_name => G_FETCHING_INFO,
18264: p_token1 => G_REC_NAME_TOKEN,
18265: p_token1_value => 'OKC_K_LINES_V Record');
18258: p_token1 => G_REC_NAME_TOKEN,
18259: p_token1_value => 'OKC_K_LINES_V Record');
18260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18262: OKL_API.set_message(p_app_name => G_APP_NAME,
18263: p_msg_name => G_FETCHING_INFO,
18264: p_token1 => G_REC_NAME_TOKEN,
18265: p_token1_value => 'OKC_K_LINES_V Record');
18266: RAISE OKL_API.G_EXCEPTION_ERROR;
18262: OKL_API.set_message(p_app_name => G_APP_NAME,
18263: p_msg_name => G_FETCHING_INFO,
18264: p_token1 => G_REC_NAME_TOKEN,
18265: p_token1_value => 'OKC_K_LINES_V Record');
18266: RAISE OKL_API.G_EXCEPTION_ERROR;
18267: END IF;
18268: -- Now getting the inst line
18269: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18270: l_clev_inst_rec);
18267: END IF;
18268: -- Now getting the inst line
18269: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18270: l_clev_inst_rec);
18271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18272: OKL_API.set_message(p_app_name => G_APP_NAME,
18273: p_msg_name => G_FETCHING_INFO,
18274: p_token1 => G_REC_NAME_TOKEN,
18275: p_token1_value => 'OKC_K_LINES_V Record');
18268: -- Now getting the inst line
18269: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
18270: l_clev_inst_rec);
18271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18272: OKL_API.set_message(p_app_name => G_APP_NAME,
18273: p_msg_name => G_FETCHING_INFO,
18274: p_token1 => G_REC_NAME_TOKEN,
18275: p_token1_value => 'OKC_K_LINES_V Record');
18276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18272: OKL_API.set_message(p_app_name => G_APP_NAME,
18273: p_msg_name => G_FETCHING_INFO,
18274: p_token1 => G_REC_NAME_TOKEN,
18275: p_token1_value => 'OKC_K_LINES_V Record');
18276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: OKL_API.set_message(p_app_name => G_APP_NAME,
18279: p_msg_name => G_FETCHING_INFO,
18280: p_token1 => G_REC_NAME_TOKEN,
18273: p_msg_name => G_FETCHING_INFO,
18274: p_token1 => G_REC_NAME_TOKEN,
18275: p_token1_value => 'OKC_K_LINES_V Record');
18276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: OKL_API.set_message(p_app_name => G_APP_NAME,
18279: p_msg_name => G_FETCHING_INFO,
18280: p_token1 => G_REC_NAME_TOKEN,
18281: p_token1_value => 'OKC_K_LINES_V Record');
18274: p_token1 => G_REC_NAME_TOKEN,
18275: p_token1_value => 'OKC_K_LINES_V Record');
18276: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: OKL_API.set_message(p_app_name => G_APP_NAME,
18279: p_msg_name => G_FETCHING_INFO,
18280: p_token1 => G_REC_NAME_TOKEN,
18281: p_token1_value => 'OKC_K_LINES_V Record');
18282: RAISE OKL_API.G_EXCEPTION_ERROR;
18278: OKL_API.set_message(p_app_name => G_APP_NAME,
18279: p_msg_name => G_FETCHING_INFO,
18280: p_token1 => G_REC_NAME_TOKEN,
18281: p_token1_value => 'OKC_K_LINES_V Record');
18282: RAISE OKL_API.G_EXCEPTION_ERROR;
18283: END IF;
18284:
18285: -- Since a record is already created in TXL_ITM_INSTS, we need to update this
18286: -- record, and create 'n-1' records.
18285: -- Since a record is already created in TXL_ITM_INSTS, we need to update this
18286: -- record, and create 'n-1' records.
18287: -- rravikir modified
18288: IF (l_clev_inst_rec.id IS NOT NULL OR
18289: l_clev_inst_rec.id <> OKL_API.G_MISS_NUM) THEN
18290: -- We are here b'cause we have to update the okl_txl_itm_inst rec
18291: -- So we are calling the update api for the okl_txl_itm_insts rec
18292:
18293: -- Now getting the item information OKL_TXL_ITM_INSTS
18292:
18293: -- Now getting the item information OKL_TXL_ITM_INSTS
18294: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
18295: l_itiv_rec);
18296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18297: OKL_API.set_message(p_app_name => G_APP_NAME,
18298: p_msg_name => G_FETCHING_INFO,
18299: p_token1 => G_REC_NAME_TOKEN,
18300: p_token1_value => 'OKC_K_LINES_V Record');
18293: -- Now getting the item information OKL_TXL_ITM_INSTS
18294: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
18295: l_itiv_rec);
18296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18297: OKL_API.set_message(p_app_name => G_APP_NAME,
18298: p_msg_name => G_FETCHING_INFO,
18299: p_token1 => G_REC_NAME_TOKEN,
18300: p_token1_value => 'OKC_K_LINES_V Record');
18301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18297: OKL_API.set_message(p_app_name => G_APP_NAME,
18298: p_msg_name => G_FETCHING_INFO,
18299: p_token1 => G_REC_NAME_TOKEN,
18300: p_token1_value => 'OKC_K_LINES_V Record');
18301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18303: OKL_API.set_message(p_app_name => G_APP_NAME,
18304: p_msg_name => G_FETCHING_INFO,
18305: p_token1 => G_REC_NAME_TOKEN,
18298: p_msg_name => G_FETCHING_INFO,
18299: p_token1 => G_REC_NAME_TOKEN,
18300: p_token1_value => 'OKC_K_LINES_V Record');
18301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18303: OKL_API.set_message(p_app_name => G_APP_NAME,
18304: p_msg_name => G_FETCHING_INFO,
18305: p_token1 => G_REC_NAME_TOKEN,
18306: p_token1_value => 'OKC_K_LINES_V Record');
18299: p_token1 => G_REC_NAME_TOKEN,
18300: p_token1_value => 'OKC_K_LINES_V Record');
18301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18302: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18303: OKL_API.set_message(p_app_name => G_APP_NAME,
18304: p_msg_name => G_FETCHING_INFO,
18305: p_token1 => G_REC_NAME_TOKEN,
18306: p_token1_value => 'OKC_K_LINES_V Record');
18307: RAISE OKL_API.G_EXCEPTION_ERROR;
18303: OKL_API.set_message(p_app_name => G_APP_NAME,
18304: p_msg_name => G_FETCHING_INFO,
18305: p_token1 => G_REC_NAME_TOKEN,
18306: p_token1_value => 'OKC_K_LINES_V Record');
18307: RAISE OKL_API.G_EXCEPTION_ERROR;
18308: END IF;
18309: -- checking for mfg_serial_number_yn flag
18310: k := l_itiv_ib_tbl.FIRST;
18311: IF l_itiv_ib_tbl(k).mfg_serial_number_yn <> 'Y' THEN
18308: END IF;
18309: -- checking for mfg_serial_number_yn flag
18310: k := l_itiv_ib_tbl.FIRST;
18311: IF l_itiv_ib_tbl(k).mfg_serial_number_yn <> 'Y' THEN
18312: OKL_API.set_message(p_app_name => G_APP_NAME,
18313: p_msg_name => G_REQUIRED_VALUE,
18314: p_token1 => G_COL_NAME_TOKEN,
18315: p_token1_value => 'mfg_serial_number_yn cannot be N');
18316: x_return_status := OKL_API.G_RET_STS_ERROR;
18312: OKL_API.set_message(p_app_name => G_APP_NAME,
18313: p_msg_name => G_REQUIRED_VALUE,
18314: p_token1 => G_COL_NAME_TOKEN,
18315: p_token1_value => 'mfg_serial_number_yn cannot be N');
18316: x_return_status := OKL_API.G_RET_STS_ERROR;
18317: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18318: RAISE OKL_API.G_EXCEPTION_ERROR;
18319: END IF;
18320: END IF;
18313: p_msg_name => G_REQUIRED_VALUE,
18314: p_token1 => G_COL_NAME_TOKEN,
18315: p_token1_value => 'mfg_serial_number_yn cannot be N');
18316: x_return_status := OKL_API.G_RET_STS_ERROR;
18317: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18318: RAISE OKL_API.G_EXCEPTION_ERROR;
18319: END IF;
18320: END IF;
18321:
18314: p_token1 => G_COL_NAME_TOKEN,
18315: p_token1_value => 'mfg_serial_number_yn cannot be N');
18316: x_return_status := OKL_API.G_RET_STS_ERROR;
18317: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18318: RAISE OKL_API.G_EXCEPTION_ERROR;
18319: END IF;
18320: END IF;
18321:
18322: l_itiv_rec.object_id1_new := l_itiv_ib_tbl(k).object_id1_new;
18329:
18330: -- Check for uniqueness of Serial number
18331: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18332: p_item_id => l_itiv_rec.inventory_item_id);
18333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18330: -- Check for uniqueness of Serial number
18331: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18332: p_item_id => l_itiv_rec.inventory_item_id);
18333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18338: l_itiv_rec.object_id2_new := '#';
18331: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_rec.serial_number,
18332: p_item_id => l_itiv_rec.inventory_item_id);
18333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18338: l_itiv_rec.object_id2_new := '#';
18339:
18332: p_item_id => l_itiv_rec.inventory_item_id);
18333: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18335: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18336: RAISE OKL_API.G_EXCEPTION_ERROR;
18337: END IF;
18338: l_itiv_rec.object_id2_new := '#';
18339:
18340: update_txl_itm_insts(p_api_version => p_api_version,
18343: x_msg_count => x_msg_count,
18344: x_msg_data => x_msg_data,
18345: p_itiv_rec => l_itiv_rec,
18346: x_itiv_rec => lx_itiv_rec);
18347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18348: OKL_API.set_message(p_app_name => G_APP_NAME,
18349: p_msg_name => G_ITI_ID);
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18344: x_msg_data => x_msg_data,
18345: p_itiv_rec => l_itiv_rec,
18346: x_itiv_rec => lx_itiv_rec);
18347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18348: OKL_API.set_message(p_app_name => G_APP_NAME,
18349: p_msg_name => G_ITI_ID);
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18352: OKL_API.set_message(p_app_name => G_APP_NAME,
18346: x_itiv_rec => lx_itiv_rec);
18347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18348: OKL_API.set_message(p_app_name => G_APP_NAME,
18349: p_msg_name => G_ITI_ID);
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18352: OKL_API.set_message(p_app_name => G_APP_NAME,
18353: p_msg_name => G_ITI_ID);
18354: RAISE OKL_API.G_EXCEPTION_ERROR;
18347: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18348: OKL_API.set_message(p_app_name => G_APP_NAME,
18349: p_msg_name => G_ITI_ID);
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18352: OKL_API.set_message(p_app_name => G_APP_NAME,
18353: p_msg_name => G_ITI_ID);
18354: RAISE OKL_API.G_EXCEPTION_ERROR;
18355: END IF;
18348: OKL_API.set_message(p_app_name => G_APP_NAME,
18349: p_msg_name => G_ITI_ID);
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18352: OKL_API.set_message(p_app_name => G_APP_NAME,
18353: p_msg_name => G_ITI_ID);
18354: RAISE OKL_API.G_EXCEPTION_ERROR;
18355: END IF;
18356: lb_record_created := TRUE;
18350: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18352: OKL_API.set_message(p_app_name => G_APP_NAME,
18353: p_msg_name => G_ITI_ID);
18354: RAISE OKL_API.G_EXCEPTION_ERROR;
18355: END IF;
18356: lb_record_created := TRUE;
18357: END IF;
18358: -- end rravikir modified
18365: -- Should be able to create more # of serial numbers than the current units.
18366: OPEN c_model_item(l_clev_inst_rec.cle_id,
18367: l_clev_inst_rec.dnz_chr_id);
18368: IF c_model_item%NOTFOUND THEN
18369: OKL_API.set_message(p_app_name => G_APP_NAME,
18370: p_msg_name => G_ITEM_RECORD);
18371: RAISE OKL_API.G_EXCEPTION_ERROR;
18372: END IF;
18373: FETCH c_model_item INTO ln_model_qty;
18367: l_clev_inst_rec.dnz_chr_id);
18368: IF c_model_item%NOTFOUND THEN
18369: OKL_API.set_message(p_app_name => G_APP_NAME,
18370: p_msg_name => G_ITEM_RECORD);
18371: RAISE OKL_API.G_EXCEPTION_ERROR;
18372: END IF;
18373: FETCH c_model_item INTO ln_model_qty;
18374: CLOSE c_model_item;
18375:
18391: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
18392: CLOSE l_chk_rel_ast_csr;
18393:
18394: IF l_chk_rel_ast = 'Y' THEN
18395: OKL_API.set_message(p_app_name => G_APP_NAME,
18396: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
18397: RAISE OKL_API.G_EXCEPTION_ERROR;
18398: ELSE
18399:
18393:
18394: IF l_chk_rel_ast = 'Y' THEN
18395: OKL_API.set_message(p_app_name => G_APP_NAME,
18396: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
18397: RAISE OKL_API.G_EXCEPTION_ERROR;
18398: ELSE
18399:
18400: lb_update_oec_required := TRUE;
18401: END IF;
18415: j := l_itiv_ib_tbl.FIRST;
18416: j := l_itiv_ib_tbl.NEXT(j);
18417: LOOP
18418: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18419: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18420: x_return_status := OKL_API.G_RET_STS_ERROR;
18421: OKL_API.set_message(p_app_name => G_APP_NAME,
18422: p_msg_name => G_REQUIRED_VALUE,
18423: p_token1 => G_COL_NAME_TOKEN,
18416: j := l_itiv_ib_tbl.NEXT(j);
18417: LOOP
18418: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18419: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18420: x_return_status := OKL_API.G_RET_STS_ERROR;
18421: OKL_API.set_message(p_app_name => G_APP_NAME,
18422: p_msg_name => G_REQUIRED_VALUE,
18423: p_token1 => G_COL_NAME_TOKEN,
18424: p_token1_value => 'mfg_serial_number_yn');
18417: LOOP
18418: IF (l_itiv_ib_tbl(j).mfg_serial_number_yn IS NULL OR
18419: l_itiv_ib_tbl(j).mfg_serial_number_yn = OKL_API.G_MISS_CHAR) THEN
18420: x_return_status := OKL_API.G_RET_STS_ERROR;
18421: OKL_API.set_message(p_app_name => G_APP_NAME,
18422: p_msg_name => G_REQUIRED_VALUE,
18423: p_token1 => G_COL_NAME_TOKEN,
18424: p_token1_value => 'mfg_serial_number_yn');
18425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18421: OKL_API.set_message(p_app_name => G_APP_NAME,
18422: p_msg_name => G_REQUIRED_VALUE,
18423: p_token1 => G_COL_NAME_TOKEN,
18424: p_token1_value => 'mfg_serial_number_yn');
18425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18426: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn <> 'Y' THEN
18427: OKL_API.set_message(p_app_name => G_APP_NAME,
18428: p_msg_name => G_REQUIRED_VALUE,
18429: p_token1 => G_COL_NAME_TOKEN,
18423: p_token1 => G_COL_NAME_TOKEN,
18424: p_token1_value => 'mfg_serial_number_yn');
18425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18426: ELSIF l_itiv_ib_tbl(j).mfg_serial_number_yn <> 'Y' THEN
18427: OKL_API.set_message(p_app_name => G_APP_NAME,
18428: p_msg_name => G_REQUIRED_VALUE,
18429: p_token1 => G_COL_NAME_TOKEN,
18430: p_token1_value => 'mfg_serial_number_yn cannot be N');
18431: x_return_status := OKL_API.G_RET_STS_ERROR;
18427: OKL_API.set_message(p_app_name => G_APP_NAME,
18428: p_msg_name => G_REQUIRED_VALUE,
18429: p_token1 => G_COL_NAME_TOKEN,
18430: p_token1_value => 'mfg_serial_number_yn cannot be N');
18431: x_return_status := OKL_API.G_RET_STS_ERROR;
18432: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18433: END IF;
18434: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18435: j := l_itiv_ib_tbl.NEXT(j);
18428: p_msg_name => G_REQUIRED_VALUE,
18429: p_token1 => G_COL_NAME_TOKEN,
18430: p_token1_value => 'mfg_serial_number_yn cannot be N');
18431: x_return_status := OKL_API.G_RET_STS_ERROR;
18432: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18433: END IF;
18434: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18435: j := l_itiv_ib_tbl.NEXT(j);
18436: END LOOP;
18433: END IF;
18434: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18435: j := l_itiv_ib_tbl.NEXT(j);
18436: END LOOP;
18437: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18438: RAISE OKL_API.G_EXCEPTION_ERROR;
18439: END IF;
18440: ELSIF (NOT lb_record_created) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18434: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18435: j := l_itiv_ib_tbl.NEXT(j);
18436: END LOOP;
18437: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18438: RAISE OKL_API.G_EXCEPTION_ERROR;
18439: END IF;
18440: ELSIF (NOT lb_record_created) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_CNT_REC);
18437: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18438: RAISE OKL_API.G_EXCEPTION_ERROR;
18439: END IF;
18440: ELSIF (NOT lb_record_created) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_CNT_REC);
18443: RAISE OKL_API.G_EXCEPTION_ERROR;
18444: END IF;
18445: -- Since we have to create the instance
18439: END IF;
18440: ELSIF (NOT lb_record_created) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_CNT_REC);
18443: RAISE OKL_API.G_EXCEPTION_ERROR;
18444: END IF;
18445: -- Since we have to create the instance
18446: -- Depending of the qty in l_cimv_model_rec.number_of_items
18447: -- we have use loop
18455: -- Creation of the Instance Line Process
18456: -- Getting the Line style Info
18457: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18458: x_lse_id => l_clev_inst_rec.lse_id);
18459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18460: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18463: END IF;
18456: -- Getting the Line style Info
18457: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18458: x_lse_id => l_clev_inst_rec.lse_id);
18459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18460: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18463: END IF;
18464: */
18457: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
18458: x_lse_id => l_clev_inst_rec.lse_id);
18459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18460: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18463: END IF;
18464: */
18465: IF (l_clev_inst_rec.display_sequence IS NUll OR
18458: x_lse_id => l_clev_inst_rec.lse_id);
18459: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18460: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18461: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18463: END IF;
18464: */
18465: IF (l_clev_inst_rec.display_sequence IS NUll OR
18466: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18462: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18463: END IF;
18464: */
18465: IF (l_clev_inst_rec.display_sequence IS NUll OR
18466: l_clev_inst_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18467: l_clev_inst_rec.display_sequence := l_clev_inst_rec.display_sequence + 1;
18468: END IF;
18469: -- Required cle Line Information
18470: -- Since we have a local Record of the Instance line
18474: l_clev_inst_rec.cle_id := l_clev_inst_rec.cle_id;
18475: l_clev_inst_rec.dnz_chr_id := l_clev_inst_rec.dnz_chr_id;
18476: l_clev_inst_rec.exception_yn := 'N';
18477: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18478: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18479: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18476: l_clev_inst_rec.exception_yn := 'N';
18477: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18478: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18479: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18477: IF (l_itiv_ib_tbl(j).instance_number_ib IS NULL OR
18478: l_itiv_ib_tbl(j).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
18479: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18485: OKL_API.set_message(p_app_name => G_APP_NAME,
18479: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(j).instance_number_ib);
18480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18485: OKL_API.set_message(p_app_name => G_APP_NAME,
18486: p_msg_name => G_GEN_INST_NUM_IB);
18487: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18485: OKL_API.set_message(p_app_name => G_APP_NAME,
18486: p_msg_name => G_GEN_INST_NUM_IB);
18487: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18488: END IF;
18481: OKL_API.set_message(p_app_name => G_APP_NAME,
18482: p_msg_name => G_GEN_INST_NUM_IB);
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18485: OKL_API.set_message(p_app_name => G_APP_NAME,
18486: p_msg_name => G_GEN_INST_NUM_IB);
18487: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18488: END IF;
18489: l_itiv_ib_tbl(j).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
18483: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18485: OKL_API.set_message(p_app_name => G_APP_NAME,
18486: p_msg_name => G_GEN_INST_NUM_IB);
18487: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18488: END IF;
18489: l_itiv_ib_tbl(j).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(j).instance_number_ib;
18490: END IF;
18491:
18500: p_itiv_rec => l_itiv_ib_tbl(j),
18501: x_clev_rec => l_clev_inst_rec_out,
18502: x_klev_rec => l_klev_inst_rec_out,
18503: x_itiv_rec => l_itiv_ib_tbl_out(j));
18504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18505: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18507: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18508: END IF;
18501: x_clev_rec => l_clev_inst_rec_out,
18502: x_klev_rec => l_klev_inst_rec_out,
18503: x_itiv_rec => l_itiv_ib_tbl_out(j));
18504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18505: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18507: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18508: END IF;
18509: -- 4414408 Assign the line style ID directly
18502: x_klev_rec => l_klev_inst_rec_out,
18503: x_itiv_rec => l_itiv_ib_tbl_out(j));
18504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18505: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18507: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18508: END IF;
18509: -- 4414408 Assign the line style ID directly
18510: /*
18503: x_itiv_rec => l_itiv_ib_tbl_out(j));
18504: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18505: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18506: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18507: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18508: END IF;
18509: -- 4414408 Assign the line style ID directly
18510: /*
18511: -- Creation of the ib Line Process
18511: -- Creation of the ib Line Process
18512: -- Getting the Line style Info
18513: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18514: x_lse_id => l_clev_ib_rec.lse_id);
18515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18516: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18518: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18519: END IF;
18512: -- Getting the Line style Info
18513: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18514: x_lse_id => l_clev_ib_rec.lse_id);
18515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18516: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18518: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18519: END IF;
18520: */
18513: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
18514: x_lse_id => l_clev_ib_rec.lse_id);
18515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18516: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18518: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18519: END IF;
18520: */
18521: IF (l_clev_ib_rec.display_sequence IS NUll OR
18514: x_lse_id => l_clev_ib_rec.lse_id);
18515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18516: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18518: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18519: END IF;
18520: */
18521: IF (l_clev_ib_rec.display_sequence IS NUll OR
18522: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18518: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18519: END IF;
18520: */
18521: IF (l_clev_ib_rec.display_sequence IS NUll OR
18522: l_clev_ib_rec.display_sequence = OKL_API.G_MISS_NUM) THEN
18523: l_clev_ib_rec.display_sequence := l_clev_ib_rec_out.display_sequence + 1;
18524: END IF;
18525: -- Required cle Line Information
18526: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
18537: lv_object_id1_new := l_itiv_ib_tbl(j).object_id1_new;
18538: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
18539: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
18540: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
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_NO_MATCHING_RECORD,
18544: p_token1 => G_COL_NAME_TOKEN,
18545: p_token1_value => 'Party_site_id');
18538: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
18539: x_object_id1_new => l_itiv_ib_tbl(j).object_id1_new,
18540: x_object_id2_new => l_itiv_ib_tbl(j).object_id2_new);
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_NO_MATCHING_RECORD,
18544: p_token1 => G_COL_NAME_TOKEN,
18545: p_token1_value => 'Party_site_id');
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_NO_MATCHING_RECORD,
18544: p_token1 => G_COL_NAME_TOKEN,
18545: p_token1_value => 'Party_site_id');
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_NO_MATCHING_RECORD,
18550: p_token1 => G_COL_NAME_TOKEN,
18543: p_msg_name => G_NO_MATCHING_RECORD,
18544: p_token1 => G_COL_NAME_TOKEN,
18545: p_token1_value => 'Party_site_id');
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_NO_MATCHING_RECORD,
18550: p_token1 => G_COL_NAME_TOKEN,
18551: p_token1_value => 'Party_site_id');
18544: p_token1 => G_COL_NAME_TOKEN,
18545: p_token1_value => 'Party_site_id');
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_NO_MATCHING_RECORD,
18550: p_token1 => G_COL_NAME_TOKEN,
18551: p_token1_value => 'Party_site_id');
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_NO_MATCHING_RECORD,
18550: p_token1 => G_COL_NAME_TOKEN,
18551: p_token1_value => 'Party_site_id');
18552: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18553: END IF;
18554:
18555: -- Check for uniqueness of Serial number
18556: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18554:
18555: -- Check for uniqueness of Serial number
18556: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18557: p_item_id => ln_item_id);
18558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18559: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18561: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18562: END IF;
18555: -- Check for uniqueness of Serial number
18556: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18557: p_item_id => ln_item_id);
18558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18559: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18561: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18562: END IF;
18563:
18556: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(j).serial_number,
18557: p_item_id => ln_item_id);
18558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18559: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18561: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18562: END IF;
18563:
18564: -- Creation of the ib Line
18557: p_item_id => ln_item_id);
18558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18559: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18561: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18562: END IF;
18563:
18564: -- Creation of the ib Line
18565: Create_instance_ib_line(p_api_version => p_api_version,
18575: x_klev_rec => l_klev_ib_rec_out,
18576: x_cimv_rec => l_cimv_ib_rec_out,
18577: x_trxv_rec => l_trxv_ib_rec_out,
18578: x_itiv_rec => x_itiv_ib_tbl(j));
18579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18582: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18583: END IF;
18576: x_cimv_rec => l_cimv_ib_rec_out,
18577: x_trxv_rec => l_trxv_ib_rec_out,
18578: x_itiv_rec => x_itiv_ib_tbl(j));
18579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18582: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18583: END IF;
18584: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18577: x_trxv_rec => l_trxv_ib_rec_out,
18578: x_itiv_rec => x_itiv_ib_tbl(j));
18579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18582: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18583: END IF;
18584: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18585: x_clev_ib_tbl(i) := x_clev_ib_rec;
18578: x_itiv_rec => x_itiv_ib_tbl(j));
18579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18582: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18583: END IF;
18584: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18585: x_clev_ib_tbl(i) := x_clev_ib_rec;
18586: j := l_itiv_ib_tbl.NEXT(j);
18584: EXIT WHEN (j = l_itiv_ib_tbl.LAST);
18585: x_clev_ib_tbl(i) := x_clev_ib_rec;
18586: j := l_itiv_ib_tbl.NEXT(j);
18587: END LOOP;
18588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18591: RAISE OKL_API.G_EXCEPTION_ERROR;
18592: END IF;
18585: x_clev_ib_tbl(i) := x_clev_ib_rec;
18586: j := l_itiv_ib_tbl.NEXT(j);
18587: END LOOP;
18588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18591: RAISE OKL_API.G_EXCEPTION_ERROR;
18592: END IF;
18593: ELSIF (NOT lb_record_created) THEN
18586: j := l_itiv_ib_tbl.NEXT(j);
18587: END LOOP;
18588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18591: RAISE OKL_API.G_EXCEPTION_ERROR;
18592: END IF;
18593: ELSIF (NOT lb_record_created) THEN
18594: OKL_API.set_message(p_app_name => G_APP_NAME,
18587: END LOOP;
18588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18591: RAISE OKL_API.G_EXCEPTION_ERROR;
18592: END IF;
18593: ELSIF (NOT lb_record_created) THEN
18594: OKL_API.set_message(p_app_name => G_APP_NAME,
18595: p_msg_name => G_CNT_REC);
18590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18591: RAISE OKL_API.G_EXCEPTION_ERROR;
18592: END IF;
18593: ELSIF (NOT lb_record_created) THEN
18594: OKL_API.set_message(p_app_name => G_APP_NAME,
18595: p_msg_name => G_CNT_REC);
18596: RAISE OKL_API.G_EXCEPTION_ERROR;
18597: END IF; -- End if (ln_dummy > 0)
18598:
18592: END IF;
18593: ELSIF (NOT lb_record_created) THEN
18594: OKL_API.set_message(p_app_name => G_APP_NAME,
18595: p_msg_name => G_CNT_REC);
18596: RAISE OKL_API.G_EXCEPTION_ERROR;
18597: END IF; -- End if (ln_dummy > 0)
18598:
18599: -- We need to execute the following 'IF' loop, when the current units
18600: -- is changed, by editing more or less serial #'s.
18603: -- the fixed line , model line and also update the top line with latest OEC
18604: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
18605: l_clev_inst_rec.dnz_chr_id);
18606: IF c_remain_inst_line%NOTFOUND THEN
18607: OKL_API.set_message(p_app_name => G_APP_NAME,
18608: p_msg_name => G_DELETING_INSTS_LINE);
18609: RAISE OKL_API.G_EXCEPTION_ERROR;
18610: END IF;
18611: FETCH c_remain_inst_line INTO ln_remain_inst;
18605: l_clev_inst_rec.dnz_chr_id);
18606: IF c_remain_inst_line%NOTFOUND THEN
18607: OKL_API.set_message(p_app_name => G_APP_NAME,
18608: p_msg_name => G_DELETING_INSTS_LINE);
18609: RAISE OKL_API.G_EXCEPTION_ERROR;
18610: END IF;
18611: FETCH c_remain_inst_line INTO ln_remain_inst;
18612: CLOSE c_remain_inst_line;
18613:
18615: -- Since we have update the model line
18616: OPEN c_model_line(l_clev_inst_rec.cle_id,
18617: l_clev_inst_rec.dnz_chr_id);
18618: IF c_model_line%NOTFOUND THEN
18619: OKL_API.set_message(p_app_name => G_APP_NAME,
18620: p_msg_name => G_NO_MATCHING_RECORD,
18621: p_token1 => G_COL_NAME_TOKEN,
18622: p_token1_value => 'Model Asset Line record');
18623: RAISE OKL_API.G_EXCEPTION_ERROR;
18619: OKL_API.set_message(p_app_name => G_APP_NAME,
18620: p_msg_name => G_NO_MATCHING_RECORD,
18621: p_token1 => G_COL_NAME_TOKEN,
18622: p_token1_value => 'Model Asset Line record');
18623: RAISE OKL_API.G_EXCEPTION_ERROR;
18624: END IF;
18625: FETCH c_model_line INTO ln_model_line_id;
18626: CLOSE c_model_line;
18627:
18629: -- Since we have update the Fixed Asset Line
18630: OPEN c_fa_line(l_clev_inst_rec.cle_id,
18631: l_clev_inst_rec.dnz_chr_id);
18632: IF c_fa_line%NOTFOUND THEN
18633: OKL_API.set_message(p_app_name => G_APP_NAME,
18634: p_msg_name => G_NO_MATCHING_RECORD,
18635: p_token1 => G_COL_NAME_TOKEN,
18636: p_token1_value => 'Fixed Asset Line record');
18637: RAISE OKL_API.G_EXCEPTION_ERROR;
18633: OKL_API.set_message(p_app_name => G_APP_NAME,
18634: p_msg_name => G_NO_MATCHING_RECORD,
18635: p_token1 => G_COL_NAME_TOKEN,
18636: p_token1_value => 'Fixed Asset Line record');
18637: RAISE OKL_API.G_EXCEPTION_ERROR;
18638: END IF;
18639: FETCH c_fa_line INTO ln_fa_line_id;
18640: CLOSE c_fa_line;
18641:
18644:
18645: -- To Get the cle Model Line Record
18646: x_return_status := get_rec_clev(ln_model_line_id,
18647: r_clev_model_rec);
18648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18649: OKL_API.set_message(p_app_name => G_APP_NAME,
18650: p_msg_name => G_FETCHING_INFO,
18651: p_token1 => G_REC_NAME_TOKEN,
18652: p_token1_value => 'OKC_K_LINES_V Record');
18645: -- To Get the cle Model Line Record
18646: x_return_status := get_rec_clev(ln_model_line_id,
18647: r_clev_model_rec);
18648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18649: OKL_API.set_message(p_app_name => G_APP_NAME,
18650: p_msg_name => G_FETCHING_INFO,
18651: p_token1 => G_REC_NAME_TOKEN,
18652: p_token1_value => 'OKC_K_LINES_V Record');
18653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18649: OKL_API.set_message(p_app_name => G_APP_NAME,
18650: p_msg_name => G_FETCHING_INFO,
18651: p_token1 => G_REC_NAME_TOKEN,
18652: p_token1_value => 'OKC_K_LINES_V Record');
18653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18655: OKL_API.set_message(p_app_name => G_APP_NAME,
18656: p_msg_name => G_FETCHING_INFO,
18657: p_token1 => G_REC_NAME_TOKEN,
18650: p_msg_name => G_FETCHING_INFO,
18651: p_token1 => G_REC_NAME_TOKEN,
18652: p_token1_value => 'OKC_K_LINES_V Record');
18653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18655: OKL_API.set_message(p_app_name => G_APP_NAME,
18656: p_msg_name => G_FETCHING_INFO,
18657: p_token1 => G_REC_NAME_TOKEN,
18658: p_token1_value => 'OKC_K_LINES_V Record');
18651: p_token1 => G_REC_NAME_TOKEN,
18652: p_token1_value => 'OKC_K_LINES_V Record');
18653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18655: OKL_API.set_message(p_app_name => G_APP_NAME,
18656: p_msg_name => G_FETCHING_INFO,
18657: p_token1 => G_REC_NAME_TOKEN,
18658: p_token1_value => 'OKC_K_LINES_V Record');
18659: RAISE OKL_API.G_EXCEPTION_ERROR;
18655: OKL_API.set_message(p_app_name => G_APP_NAME,
18656: p_msg_name => G_FETCHING_INFO,
18657: p_token1 => G_REC_NAME_TOKEN,
18658: p_token1_value => 'OKC_K_LINES_V Record');
18659: RAISE OKL_API.G_EXCEPTION_ERROR;
18660: END IF;
18661:
18662: -- To Get the kle Model Line Record
18663: x_return_status := get_rec_klev(ln_model_line_id,
18661:
18662: -- To Get the kle Model Line Record
18663: x_return_status := get_rec_klev(ln_model_line_id,
18664: r_klev_model_rec);
18665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18666: OKL_API.set_message(p_app_name => G_APP_NAME,
18667: p_msg_name => G_FETCHING_INFO,
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18662: -- To Get the kle Model Line Record
18663: x_return_status := get_rec_klev(ln_model_line_id,
18664: r_klev_model_rec);
18665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18666: OKL_API.set_message(p_app_name => G_APP_NAME,
18667: p_msg_name => G_FETCHING_INFO,
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18666: OKL_API.set_message(p_app_name => G_APP_NAME,
18667: p_msg_name => G_FETCHING_INFO,
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18674: p_token1 => G_REC_NAME_TOKEN,
18667: p_msg_name => G_FETCHING_INFO,
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18674: p_token1 => G_REC_NAME_TOKEN,
18675: p_token1_value => 'OKL_K_LINES_V Record');
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18674: p_token1 => G_REC_NAME_TOKEN,
18675: p_token1_value => 'OKL_K_LINES_V Record');
18676: RAISE OKL_API.G_EXCEPTION_ERROR;
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18674: p_token1 => G_REC_NAME_TOKEN,
18675: p_token1_value => 'OKL_K_LINES_V Record');
18676: RAISE OKL_API.G_EXCEPTION_ERROR;
18677: END IF;
18678:
18679: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18680: OKL_API.set_message(p_app_name => G_APP_NAME,
18676: RAISE OKL_API.G_EXCEPTION_ERROR;
18677: END IF;
18678:
18679: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18680: OKL_API.set_message(p_app_name => G_APP_NAME,
18681: p_msg_name => G_LINE_RECORD);
18682: RAISE OKL_API.G_EXCEPTION_ERROR;
18683: END IF;
18684:
18678:
18679: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18680: OKL_API.set_message(p_app_name => G_APP_NAME,
18681: p_msg_name => G_LINE_RECORD);
18682: RAISE OKL_API.G_EXCEPTION_ERROR;
18683: END IF;
18684:
18685: -- To Get the cimv Model Line Record
18686: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18685: -- To Get the cimv Model Line Record
18686: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18687: r_clev_model_rec.dnz_chr_id,
18688: r_cimv_model_rec);
18689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18690: OKL_API.set_message(p_app_name => G_APP_NAME,
18691: p_msg_name => G_FETCHING_INFO,
18692: p_token1 => G_REC_NAME_TOKEN,
18693: p_token1_value => 'OKC_K_ITEMS_V Record');
18686: x_return_status := get_rec_cimv(r_clev_model_rec.id,
18687: r_clev_model_rec.dnz_chr_id,
18688: r_cimv_model_rec);
18689: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18690: OKL_API.set_message(p_app_name => G_APP_NAME,
18691: p_msg_name => G_FETCHING_INFO,
18692: p_token1 => G_REC_NAME_TOKEN,
18693: p_token1_value => 'OKC_K_ITEMS_V Record');
18694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18690: OKL_API.set_message(p_app_name => G_APP_NAME,
18691: p_msg_name => G_FETCHING_INFO,
18692: p_token1 => G_REC_NAME_TOKEN,
18693: p_token1_value => 'OKC_K_ITEMS_V Record');
18694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18696: OKL_API.set_message(p_app_name => G_APP_NAME,
18697: p_msg_name => G_FETCHING_INFO,
18698: p_token1 => G_REC_NAME_TOKEN,
18691: p_msg_name => G_FETCHING_INFO,
18692: p_token1 => G_REC_NAME_TOKEN,
18693: p_token1_value => 'OKC_K_ITEMS_V Record');
18694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18696: OKL_API.set_message(p_app_name => G_APP_NAME,
18697: p_msg_name => G_FETCHING_INFO,
18698: p_token1 => G_REC_NAME_TOKEN,
18699: p_token1_value => 'OKC_K_ITEMS_V Record');
18692: p_token1 => G_REC_NAME_TOKEN,
18693: p_token1_value => 'OKC_K_ITEMS_V Record');
18694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18695: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18696: OKL_API.set_message(p_app_name => G_APP_NAME,
18697: p_msg_name => G_FETCHING_INFO,
18698: p_token1 => G_REC_NAME_TOKEN,
18699: p_token1_value => 'OKC_K_ITEMS_V Record');
18700: RAISE OKL_API.G_EXCEPTION_ERROR;
18696: OKL_API.set_message(p_app_name => G_APP_NAME,
18697: p_msg_name => G_FETCHING_INFO,
18698: p_token1 => G_REC_NAME_TOKEN,
18699: p_token1_value => 'OKC_K_ITEMS_V Record');
18700: RAISE OKL_API.G_EXCEPTION_ERROR;
18701: END IF;
18702:
18703: --Build Model cimv item rec
18704: r_cimv_model_rec.number_of_items := ln_remain_inst;
18715: p_cimv_rec => r_cimv_model_rec,
18716: x_clev_rec => l_clev_model_rec_out,
18717: x_klev_rec => l_klev_model_rec_out,
18718: x_cimv_rec => x_cimv_model_rec);
18719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18722: RAISE OKL_API.G_EXCEPTION_ERROR;
18723: END IF;
18716: x_clev_rec => l_clev_model_rec_out,
18717: x_klev_rec => l_klev_model_rec_out,
18718: x_cimv_rec => x_cimv_model_rec);
18719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18722: RAISE OKL_API.G_EXCEPTION_ERROR;
18723: END IF;
18724:
18717: x_klev_rec => l_klev_model_rec_out,
18718: x_cimv_rec => x_cimv_model_rec);
18719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18722: RAISE OKL_API.G_EXCEPTION_ERROR;
18723: END IF;
18724:
18725: -- We need to check if there are add on line and then we update the Addon number of items also
18718: x_cimv_rec => x_cimv_model_rec);
18719: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18720: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18721: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18722: RAISE OKL_API.G_EXCEPTION_ERROR;
18723: END IF;
18724:
18725: -- We need to check if there are add on line and then we update the Addon number of items also
18726: -- Since there can be multiple Addo lines
18730: -- oec of the top line
18731: -- To Get the cle addon Line Record
18732: x_return_status := get_rec_clev(r_addon_line_id.id,
18733: r_clev_addon_rec);
18734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18735: OKL_API.set_message(p_app_name => G_APP_NAME,
18736: p_msg_name => G_FETCHING_INFO,
18737: p_token1 => G_REC_NAME_TOKEN,
18738: p_token1_value => 'OKC_K_LINES_V Record');
18731: -- To Get the cle addon Line Record
18732: x_return_status := get_rec_clev(r_addon_line_id.id,
18733: r_clev_addon_rec);
18734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18735: OKL_API.set_message(p_app_name => G_APP_NAME,
18736: p_msg_name => G_FETCHING_INFO,
18737: p_token1 => G_REC_NAME_TOKEN,
18738: p_token1_value => 'OKC_K_LINES_V Record');
18739: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18735: OKL_API.set_message(p_app_name => G_APP_NAME,
18736: p_msg_name => G_FETCHING_INFO,
18737: p_token1 => G_REC_NAME_TOKEN,
18738: p_token1_value => 'OKC_K_LINES_V Record');
18739: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18741: OKL_API.set_message(p_app_name => G_APP_NAME,
18742: p_msg_name => G_FETCHING_INFO,
18743: p_token1 => G_REC_NAME_TOKEN,
18736: p_msg_name => G_FETCHING_INFO,
18737: p_token1 => G_REC_NAME_TOKEN,
18738: p_token1_value => 'OKC_K_LINES_V Record');
18739: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18741: OKL_API.set_message(p_app_name => G_APP_NAME,
18742: p_msg_name => G_FETCHING_INFO,
18743: p_token1 => G_REC_NAME_TOKEN,
18744: p_token1_value => 'OKC_K_LINES_V Record');
18737: p_token1 => G_REC_NAME_TOKEN,
18738: p_token1_value => 'OKC_K_LINES_V Record');
18739: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18741: OKL_API.set_message(p_app_name => G_APP_NAME,
18742: p_msg_name => G_FETCHING_INFO,
18743: p_token1 => G_REC_NAME_TOKEN,
18744: p_token1_value => 'OKC_K_LINES_V Record');
18745: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18741: OKL_API.set_message(p_app_name => G_APP_NAME,
18742: p_msg_name => G_FETCHING_INFO,
18743: p_token1 => G_REC_NAME_TOKEN,
18744: p_token1_value => 'OKC_K_LINES_V Record');
18745: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18746: END IF;
18747: -- To Get the kle Model Line Record
18748: x_return_status := get_rec_klev(r_addon_line_id.id,
18749: r_klev_addon_rec);
18746: END IF;
18747: -- To Get the kle Model Line Record
18748: x_return_status := get_rec_klev(r_addon_line_id.id,
18749: r_klev_addon_rec);
18750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18751: OKL_API.set_message(p_app_name => G_APP_NAME,
18752: p_msg_name => G_FETCHING_INFO,
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18747: -- To Get the kle Model Line Record
18748: x_return_status := get_rec_klev(r_addon_line_id.id,
18749: r_klev_addon_rec);
18750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18751: OKL_API.set_message(p_app_name => G_APP_NAME,
18752: p_msg_name => G_FETCHING_INFO,
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18755: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18751: OKL_API.set_message(p_app_name => G_APP_NAME,
18752: p_msg_name => G_FETCHING_INFO,
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18755: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18759: p_token1 => G_REC_NAME_TOKEN,
18752: p_msg_name => G_FETCHING_INFO,
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18755: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18759: p_token1 => G_REC_NAME_TOKEN,
18760: p_token1_value => 'OKL_K_LINES_V Record');
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18755: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18759: p_token1 => G_REC_NAME_TOKEN,
18760: p_token1_value => 'OKL_K_LINES_V Record');
18761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18759: p_token1 => G_REC_NAME_TOKEN,
18760: p_token1_value => 'OKL_K_LINES_V Record');
18761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18762: END IF;
18763: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18764: OKL_API.set_message(p_app_name => G_APP_NAME,
18765: p_msg_name => G_LINE_RECORD);
18760: p_token1_value => 'OKL_K_LINES_V Record');
18761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18762: END IF;
18763: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18764: OKL_API.set_message(p_app_name => G_APP_NAME,
18765: p_msg_name => G_LINE_RECORD);
18766: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18767: END IF;
18768: -- To Get the cimv Model Line Record
18762: END IF;
18763: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18764: OKL_API.set_message(p_app_name => G_APP_NAME,
18765: p_msg_name => G_LINE_RECORD);
18766: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18767: END IF;
18768: -- To Get the cimv Model Line Record
18769: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18770: r_clev_addon_rec.dnz_chr_id,
18768: -- To Get the cimv Model Line Record
18769: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18770: r_clev_addon_rec.dnz_chr_id,
18771: r_cimv_addon_rec);
18772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18773: OKL_API.set_message(p_app_name => G_APP_NAME,
18774: p_msg_name => G_FETCHING_INFO,
18775: p_token1 => G_REC_NAME_TOKEN,
18776: p_token1_value => 'OKC_K_ITEMS_V Record');
18769: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
18770: r_clev_addon_rec.dnz_chr_id,
18771: r_cimv_addon_rec);
18772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18773: OKL_API.set_message(p_app_name => G_APP_NAME,
18774: p_msg_name => G_FETCHING_INFO,
18775: p_token1 => G_REC_NAME_TOKEN,
18776: p_token1_value => 'OKC_K_ITEMS_V Record');
18777: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18773: OKL_API.set_message(p_app_name => G_APP_NAME,
18774: p_msg_name => G_FETCHING_INFO,
18775: p_token1 => G_REC_NAME_TOKEN,
18776: p_token1_value => 'OKC_K_ITEMS_V Record');
18777: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18779: OKL_API.set_message(p_app_name => G_APP_NAME,
18780: p_msg_name => G_FETCHING_INFO,
18781: p_token1 => G_REC_NAME_TOKEN,
18774: p_msg_name => G_FETCHING_INFO,
18775: p_token1 => G_REC_NAME_TOKEN,
18776: p_token1_value => 'OKC_K_ITEMS_V Record');
18777: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18779: OKL_API.set_message(p_app_name => G_APP_NAME,
18780: p_msg_name => G_FETCHING_INFO,
18781: p_token1 => G_REC_NAME_TOKEN,
18782: p_token1_value => 'OKC_K_ITEMS_V Record');
18775: p_token1 => G_REC_NAME_TOKEN,
18776: p_token1_value => 'OKC_K_ITEMS_V Record');
18777: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18779: OKL_API.set_message(p_app_name => G_APP_NAME,
18780: p_msg_name => G_FETCHING_INFO,
18781: p_token1 => G_REC_NAME_TOKEN,
18782: p_token1_value => 'OKC_K_ITEMS_V Record');
18783: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18779: OKL_API.set_message(p_app_name => G_APP_NAME,
18780: p_msg_name => G_FETCHING_INFO,
18781: p_token1 => G_REC_NAME_TOKEN,
18782: p_token1_value => 'OKC_K_ITEMS_V Record');
18783: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18784: END IF;
18785: --Build addon cimv item rec
18786: r_cimv_addon_rec.number_of_items := ln_remain_inst;
18787: -- Updating of the addon Line and Item Record
18797: p_cimv_rec => r_cimv_addon_rec,
18798: x_clev_rec => rx_clev_addon_rec,
18799: x_klev_rec => rx_klev_addon_rec,
18800: x_cimv_rec => rx_cimv_addon_rec);
18801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18802: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18798: x_clev_rec => rx_clev_addon_rec,
18799: x_klev_rec => rx_klev_addon_rec,
18800: x_cimv_rec => rx_cimv_addon_rec);
18801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18802: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18806: END LOOP;
18799: x_klev_rec => rx_klev_addon_rec,
18800: x_cimv_rec => rx_cimv_addon_rec);
18801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18802: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18800: x_cimv_rec => rx_cimv_addon_rec);
18801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18802: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18810: RAISE OKL_API.G_EXCEPTION_ERROR;
18811: END IF;
18804: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18805: END IF;
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18810: RAISE OKL_API.G_EXCEPTION_ERROR;
18811: END IF;
18812:
18805: END IF;
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18810: RAISE OKL_API.G_EXCEPTION_ERROR;
18811: END IF;
18812:
18813: -- Since we need to populate the OEC into fixed asset line also
18806: END LOOP;
18807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18810: RAISE OKL_API.G_EXCEPTION_ERROR;
18811: END IF;
18812:
18813: -- Since we need to populate the OEC into fixed asset line also
18814: -- So we need to calcualte the same here it self
18824: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18825: x_fin_clev_rec => x_clev_fin_rec,
18826: x_fin_klev_rec => x_klev_fin_rec,
18827: x_oec => ln_klev_fin_oec,
18828: p_validate_fin_line => OKL_API.G_TRUE);
18829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18825: x_fin_clev_rec => x_clev_fin_rec,
18826: x_fin_klev_rec => x_klev_fin_rec,
18827: x_oec => ln_klev_fin_oec,
18828: p_validate_fin_line => OKL_API.G_TRUE);
18829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18833: END IF;
18826: x_fin_klev_rec => x_klev_fin_rec,
18827: x_oec => ln_klev_fin_oec,
18828: p_validate_fin_line => OKL_API.G_TRUE);
18829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18833: END IF;
18834:
18827: x_oec => ln_klev_fin_oec,
18828: p_validate_fin_line => OKL_API.G_TRUE);
18829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18833: END IF;
18834:
18835: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18828: p_validate_fin_line => OKL_API.G_TRUE);
18829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18833: END IF;
18834:
18835: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18836: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
18845: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18846: x_fin_clev_rec => x_clev_fin_rec,
18847: x_fin_klev_rec => x_klev_fin_rec,
18848: x_cap_amt => ln_klev_fin_cap,
18849: p_validate_fin_line => OKL_API.G_TRUE);
18850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18846: x_fin_clev_rec => x_clev_fin_rec,
18847: x_fin_klev_rec => x_klev_fin_rec,
18848: x_cap_amt => ln_klev_fin_cap,
18849: p_validate_fin_line => OKL_API.G_TRUE);
18850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18854: END IF;
18847: x_fin_klev_rec => x_klev_fin_rec,
18848: x_cap_amt => ln_klev_fin_cap,
18849: p_validate_fin_line => OKL_API.G_TRUE);
18850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18854: END IF;
18855:
18848: x_cap_amt => ln_klev_fin_cap,
18849: p_validate_fin_line => OKL_API.G_TRUE);
18850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18854: END IF;
18855:
18856: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18849: p_validate_fin_line => OKL_API.G_TRUE);
18850: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18851: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18854: END IF;
18855:
18856: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18857: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
18866: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
18867: x_fin_clev_rec => x_clev_fin_rec,
18868: x_fin_klev_rec => x_klev_fin_rec,
18869: x_res_value => ln_klev_fin_res,
18870: p_validate_fin_line => OKL_API.G_TRUE);
18871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18874: RAISE OKL_API.G_EXCEPTION_ERROR;
18867: x_fin_clev_rec => x_clev_fin_rec,
18868: x_fin_klev_rec => x_klev_fin_rec,
18869: x_res_value => ln_klev_fin_res,
18870: p_validate_fin_line => OKL_API.G_TRUE);
18871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18874: RAISE OKL_API.G_EXCEPTION_ERROR;
18875: END IF;
18868: x_fin_klev_rec => x_klev_fin_rec,
18869: x_res_value => ln_klev_fin_res,
18870: p_validate_fin_line => OKL_API.G_TRUE);
18871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18874: RAISE OKL_API.G_EXCEPTION_ERROR;
18875: END IF;
18876:
18869: x_res_value => ln_klev_fin_res,
18870: p_validate_fin_line => OKL_API.G_TRUE);
18871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18874: RAISE OKL_API.G_EXCEPTION_ERROR;
18875: END IF;
18876:
18877: -- Updating of the Fixed Asset Line Process
18870: p_validate_fin_line => OKL_API.G_TRUE);
18871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18874: RAISE OKL_API.G_EXCEPTION_ERROR;
18875: END IF;
18876:
18877: -- Updating of the Fixed Asset Line Process
18878: -- To Get the cle fa Line Record
18877: -- Updating of the Fixed Asset Line Process
18878: -- To Get the cle fa Line Record
18879: x_return_status := get_rec_clev(ln_fa_line_id,
18880: r_clev_fa_rec);
18881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18882: OKL_API.set_message(p_app_name => G_APP_NAME,
18883: p_msg_name => G_FETCHING_INFO,
18884: p_token1 => G_REC_NAME_TOKEN,
18885: p_token1_value => 'OKC_K_LINES_V Record');
18878: -- To Get the cle fa Line Record
18879: x_return_status := get_rec_clev(ln_fa_line_id,
18880: r_clev_fa_rec);
18881: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18882: OKL_API.set_message(p_app_name => G_APP_NAME,
18883: p_msg_name => G_FETCHING_INFO,
18884: p_token1 => G_REC_NAME_TOKEN,
18885: p_token1_value => 'OKC_K_LINES_V Record');
18886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18882: OKL_API.set_message(p_app_name => G_APP_NAME,
18883: p_msg_name => G_FETCHING_INFO,
18884: p_token1 => G_REC_NAME_TOKEN,
18885: p_token1_value => 'OKC_K_LINES_V Record');
18886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18888: OKL_API.set_message(p_app_name => G_APP_NAME,
18889: p_msg_name => G_FETCHING_INFO,
18890: p_token1 => G_REC_NAME_TOKEN,
18883: p_msg_name => G_FETCHING_INFO,
18884: p_token1 => G_REC_NAME_TOKEN,
18885: p_token1_value => 'OKC_K_LINES_V Record');
18886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18888: OKL_API.set_message(p_app_name => G_APP_NAME,
18889: p_msg_name => G_FETCHING_INFO,
18890: p_token1 => G_REC_NAME_TOKEN,
18891: p_token1_value => 'OKC_K_LINES_V Record');
18884: p_token1 => G_REC_NAME_TOKEN,
18885: p_token1_value => 'OKC_K_LINES_V Record');
18886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18887: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18888: OKL_API.set_message(p_app_name => G_APP_NAME,
18889: p_msg_name => G_FETCHING_INFO,
18890: p_token1 => G_REC_NAME_TOKEN,
18891: p_token1_value => 'OKC_K_LINES_V Record');
18892: RAISE OKL_API.G_EXCEPTION_ERROR;
18888: OKL_API.set_message(p_app_name => G_APP_NAME,
18889: p_msg_name => G_FETCHING_INFO,
18890: p_token1 => G_REC_NAME_TOKEN,
18891: p_token1_value => 'OKC_K_LINES_V Record');
18892: RAISE OKL_API.G_EXCEPTION_ERROR;
18893: END IF;
18894:
18895: -- To Get the kle fa Line Record
18896: x_return_status := get_rec_klev(ln_fa_line_id,
18894:
18895: -- To Get the kle fa Line Record
18896: x_return_status := get_rec_klev(ln_fa_line_id,
18897: r_klev_fa_rec);
18898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18899: OKL_API.set_message(p_app_name => G_APP_NAME,
18900: p_msg_name => G_FETCHING_INFO,
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18895: -- To Get the kle fa Line Record
18896: x_return_status := get_rec_klev(ln_fa_line_id,
18897: r_klev_fa_rec);
18898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18899: OKL_API.set_message(p_app_name => G_APP_NAME,
18900: p_msg_name => G_FETCHING_INFO,
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18899: OKL_API.set_message(p_app_name => G_APP_NAME,
18900: p_msg_name => G_FETCHING_INFO,
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18907: p_token1 => G_REC_NAME_TOKEN,
18900: p_msg_name => G_FETCHING_INFO,
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18907: p_token1 => G_REC_NAME_TOKEN,
18908: p_token1_value => 'OKL_K_LINES_V Record');
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18907: p_token1 => G_REC_NAME_TOKEN,
18908: p_token1_value => 'OKL_K_LINES_V Record');
18909: RAISE OKL_API.G_EXCEPTION_ERROR;
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18907: p_token1 => G_REC_NAME_TOKEN,
18908: p_token1_value => 'OKL_K_LINES_V Record');
18909: RAISE OKL_API.G_EXCEPTION_ERROR;
18910: END IF;
18911:
18912: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18913: OKL_API.set_message(p_app_name => G_APP_NAME,
18909: RAISE OKL_API.G_EXCEPTION_ERROR;
18910: END IF;
18911:
18912: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18913: OKL_API.set_message(p_app_name => G_APP_NAME,
18914: p_msg_name => G_LINE_RECORD);
18915: RAISE OKL_API.G_EXCEPTION_ERROR;
18916: END IF;
18917:
18911:
18912: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18913: OKL_API.set_message(p_app_name => G_APP_NAME,
18914: p_msg_name => G_LINE_RECORD);
18915: RAISE OKL_API.G_EXCEPTION_ERROR;
18916: END IF;
18917:
18918: -- To Get the cimv fa Line Record
18919: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18918: -- To Get the cimv fa Line Record
18919: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18920: r_clev_fa_rec.dnz_chr_id,
18921: r_cimv_fa_rec);
18922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18923: OKL_API.set_message(p_app_name => G_APP_NAME,
18924: p_msg_name => G_FETCHING_INFO,
18925: p_token1 => G_REC_NAME_TOKEN,
18926: p_token1_value => 'OKC_K_ITEMS_V Record');
18919: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
18920: r_clev_fa_rec.dnz_chr_id,
18921: r_cimv_fa_rec);
18922: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18923: OKL_API.set_message(p_app_name => G_APP_NAME,
18924: p_msg_name => G_FETCHING_INFO,
18925: p_token1 => G_REC_NAME_TOKEN,
18926: p_token1_value => 'OKC_K_ITEMS_V Record');
18927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18923: OKL_API.set_message(p_app_name => G_APP_NAME,
18924: p_msg_name => G_FETCHING_INFO,
18925: p_token1 => G_REC_NAME_TOKEN,
18926: p_token1_value => 'OKC_K_ITEMS_V Record');
18927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18929: OKL_API.set_message(p_app_name => G_APP_NAME,
18930: p_msg_name => G_FETCHING_INFO,
18931: p_token1 => G_REC_NAME_TOKEN,
18924: p_msg_name => G_FETCHING_INFO,
18925: p_token1 => G_REC_NAME_TOKEN,
18926: p_token1_value => 'OKC_K_ITEMS_V Record');
18927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18929: OKL_API.set_message(p_app_name => G_APP_NAME,
18930: p_msg_name => G_FETCHING_INFO,
18931: p_token1 => G_REC_NAME_TOKEN,
18932: p_token1_value => 'OKC_K_ITEMS_V Record');
18925: p_token1 => G_REC_NAME_TOKEN,
18926: p_token1_value => 'OKC_K_ITEMS_V Record');
18927: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18929: OKL_API.set_message(p_app_name => G_APP_NAME,
18930: p_msg_name => G_FETCHING_INFO,
18931: p_token1 => G_REC_NAME_TOKEN,
18932: p_token1_value => 'OKC_K_ITEMS_V Record');
18933: RAISE OKL_API.G_EXCEPTION_ERROR;
18929: OKL_API.set_message(p_app_name => G_APP_NAME,
18930: p_msg_name => G_FETCHING_INFO,
18931: p_token1 => G_REC_NAME_TOKEN,
18932: p_token1_value => 'OKC_K_ITEMS_V Record');
18933: RAISE OKL_API.G_EXCEPTION_ERROR;
18934: END IF;
18935:
18936: --Build cimv fa item rec
18937: r_cimv_fa_rec.number_of_items := ln_remain_inst;
18937: r_cimv_fa_rec.number_of_items := ln_remain_inst;
18938: --Build talv fa item rec
18939: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
18940: r_talv_fa_rec);
18941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18942: OKL_API.set_message(p_app_name => G_APP_NAME,
18943: p_msg_name => G_FETCHING_INFO,
18944: p_token1 => G_REC_NAME_TOKEN,
18945: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18938: --Build talv fa item rec
18939: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
18940: r_talv_fa_rec);
18941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18942: OKL_API.set_message(p_app_name => G_APP_NAME,
18943: p_msg_name => G_FETCHING_INFO,
18944: p_token1 => G_REC_NAME_TOKEN,
18945: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18942: OKL_API.set_message(p_app_name => G_APP_NAME,
18943: p_msg_name => G_FETCHING_INFO,
18944: p_token1 => G_REC_NAME_TOKEN,
18945: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18948: OKL_API.set_message(p_app_name => G_APP_NAME,
18949: p_msg_name => G_FETCHING_INFO,
18950: p_token1 => G_REC_NAME_TOKEN,
18943: p_msg_name => G_FETCHING_INFO,
18944: p_token1 => G_REC_NAME_TOKEN,
18945: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18948: OKL_API.set_message(p_app_name => G_APP_NAME,
18949: p_msg_name => G_FETCHING_INFO,
18950: p_token1 => G_REC_NAME_TOKEN,
18951: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18944: p_token1 => G_REC_NAME_TOKEN,
18945: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18948: OKL_API.set_message(p_app_name => G_APP_NAME,
18949: p_msg_name => G_FETCHING_INFO,
18950: p_token1 => G_REC_NAME_TOKEN,
18951: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18952: RAISE OKL_API.G_EXCEPTION_ERROR;
18948: OKL_API.set_message(p_app_name => G_APP_NAME,
18949: p_msg_name => G_FETCHING_INFO,
18950: p_token1 => G_REC_NAME_TOKEN,
18951: p_token1_value => 'OKL_TXL_ASSETS_V Record');
18952: RAISE OKL_API.G_EXCEPTION_ERROR;
18953: END IF;
18954:
18955: --Build talv fa item rec
18956: r_talv_fa_rec.current_units := ln_remain_inst;
18990: x_clev_rec => l_clev_fa_rec_out,
18991: x_klev_rec => l_klev_fa_rec_out,
18992: x_cimv_rec => x_cimv_fa_rec,
18993: x_talv_rec => x_talv_fa_rec);
18994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18997: RAISE OKL_API.G_EXCEPTION_ERROR;
18998: END IF;
18991: x_klev_rec => l_klev_fa_rec_out,
18992: x_cimv_rec => x_cimv_fa_rec,
18993: x_talv_rec => x_talv_fa_rec);
18994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18997: RAISE OKL_API.G_EXCEPTION_ERROR;
18998: END IF;
18999: --akrangan Bug# 5362977 start
18992: x_cimv_rec => x_cimv_fa_rec,
18993: x_talv_rec => x_talv_fa_rec);
18994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18997: RAISE OKL_API.G_EXCEPTION_ERROR;
18998: END IF;
18999: --akrangan Bug# 5362977 start
19000: -- Update Tax Book details - okl_txd_assets_b
18993: x_talv_rec => x_talv_fa_rec);
18994: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18996: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18997: RAISE OKL_API.G_EXCEPTION_ERROR;
18998: END IF;
18999: --akrangan Bug# 5362977 start
19000: -- Update Tax Book details - okl_txd_assets_b
19001: update_asset_line_details(p_api_version => p_api_version,
19005: x_msg_data => x_msg_data,
19006: p_asset_number => p_asset_number,
19007: p_original_cost => x_talv_fa_rec.original_cost,
19008: p_tal_id => x_talv_fa_rec.ID);
19009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19012: RAISE OKL_API.G_EXCEPTION_ERROR;
19013: END IF;
19006: p_asset_number => p_asset_number,
19007: p_original_cost => x_talv_fa_rec.original_cost,
19008: p_tal_id => x_talv_fa_rec.ID);
19009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19012: RAISE OKL_API.G_EXCEPTION_ERROR;
19013: END IF;
19014: --akrangan Bug# 5362977 end
19007: p_original_cost => x_talv_fa_rec.original_cost,
19008: p_tal_id => x_talv_fa_rec.ID);
19009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19012: RAISE OKL_API.G_EXCEPTION_ERROR;
19013: END IF;
19014: --akrangan Bug# 5362977 end
19015:
19008: p_tal_id => x_talv_fa_rec.ID);
19009: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19011: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19012: RAISE OKL_API.G_EXCEPTION_ERROR;
19013: END IF;
19014: --akrangan Bug# 5362977 end
19015:
19016: -- We need to change the status of the header whenever there is updating happening
19015:
19016: -- We need to change the status of the header whenever there is updating happening
19017: -- after the contract status is approved
19018: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
19019: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
19020: --cascade edit status on to lines
19021: okl_contract_status_pub.cascade_lease_status_edit
19022: (p_api_version => p_api_version,
19023: p_init_msg_list => p_init_msg_list,
19024: x_return_status => x_return_status,
19025: x_msg_count => x_msg_count,
19026: x_msg_data => x_msg_data,
19027: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19031: RAISE OKL_API.G_EXCEPTION_ERROR;
19032: END IF;
19025: x_msg_count => x_msg_count,
19026: x_msg_data => x_msg_data,
19027: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19031: RAISE OKL_API.G_EXCEPTION_ERROR;
19032: END IF;
19033: END IF;
19026: x_msg_data => x_msg_data,
19027: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19031: RAISE OKL_API.G_EXCEPTION_ERROR;
19032: END IF;
19033: END IF;
19034:
19027: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19028: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19029: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19030: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19031: RAISE OKL_API.G_EXCEPTION_ERROR;
19032: END IF;
19033: END IF;
19034:
19035: END IF;
19033: END IF;
19034:
19035: END IF;
19036:
19037: OKL_API.END_ACTIVITY (x_msg_count,
19038: x_msg_data );
19039: EXCEPTION
19040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19041: IF c_model_item%ISOPEN THEN
19036:
19037: OKL_API.END_ACTIVITY (x_msg_count,
19038: x_msg_data );
19039: EXCEPTION
19040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19041: IF c_model_item%ISOPEN THEN
19042: CLOSE c_model_item;
19043: END IF;
19044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19040: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19041: IF c_model_item%ISOPEN THEN
19042: CLOSE c_model_item;
19043: END IF;
19044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19045: l_api_name,
19046: G_PKG_NAME,
19047: 'OKL_API.G_RET_STS_ERROR',
19048: x_msg_count,
19043: END IF;
19044: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19045: l_api_name,
19046: G_PKG_NAME,
19047: 'OKL_API.G_RET_STS_ERROR',
19048: x_msg_count,
19049: x_msg_data,
19050: '_PVT');
19051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19047: 'OKL_API.G_RET_STS_ERROR',
19048: x_msg_count,
19049: x_msg_data,
19050: '_PVT');
19051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19052: IF c_model_item%ISOPEN THEN
19053: CLOSE c_model_item;
19054: END IF;
19055: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19052: IF c_model_item%ISOPEN THEN
19053: CLOSE c_model_item;
19054: END IF;
19055: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19056: l_api_name,
19057: G_PKG_NAME,
19058: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19059: x_msg_count,
19054: END IF;
19055: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19056: l_api_name,
19057: G_PKG_NAME,
19058: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19059: x_msg_count,
19060: x_msg_data,
19061: '_PVT');
19062: WHEN OTHERS THEN
19062: WHEN OTHERS THEN
19063: IF c_model_item%ISOPEN THEN
19064: CLOSE c_model_item;
19065: END IF;
19066: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19067: l_api_name,
19068: G_PKG_NAME,
19069: 'OTHERS',
19070: x_msg_count,
19101: l_klev_ib_rec_out klev_rec_type;
19102: l_cimv_ib_rec_out cimv_rec_type;
19103: l_trxv_ib_rec_out trxv_rec_type;
19104: ln_remain_inst NUMBER := 0;
19105: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19106: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
19107: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19108: r_clev_model_rec clev_rec_type;
19109: r_klev_model_rec klev_rec_type;
19102: l_cimv_ib_rec_out cimv_rec_type;
19103: l_trxv_ib_rec_out trxv_rec_type;
19104: ln_remain_inst NUMBER := 0;
19105: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19106: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
19107: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19108: r_clev_model_rec clev_rec_type;
19109: r_klev_model_rec klev_rec_type;
19110: r_cimv_model_rec cimv_rec_type;
19103: l_trxv_ib_rec_out trxv_rec_type;
19104: ln_remain_inst NUMBER := 0;
19105: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19106: lv_object_id1_new OKL_TXL_ITM_INSTS.OBJECT_ID1_NEW%TYPE := OKL_API.G_MISS_CHAR;
19107: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
19108: r_clev_model_rec clev_rec_type;
19109: r_klev_model_rec klev_rec_type;
19110: r_cimv_model_rec cimv_rec_type;
19111: r_clev_fa_rec clev_rec_type;
19277: l_rbk_khr VARCHAR2(1);
19278: --akrangan Bug# 5362977 end
19279:
19280: BEGIN
19281: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19282: -- Call start_activity to create savepoint, check compatibility
19283: -- and initialize message list
19284: x_return_status := OKL_API.START_ACTIVITY (
19285: l_api_name
19280: BEGIN
19281: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19282: -- Call start_activity to create savepoint, check compatibility
19283: -- and initialize message list
19284: x_return_status := OKL_API.START_ACTIVITY (
19285: l_api_name
19286: ,p_init_msg_list
19287: ,'_PVT'
19288: ,x_return_status);
19286: ,p_init_msg_list
19287: ,'_PVT'
19288: ,x_return_status);
19289: -- Check if activity started successfully
19290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19293: RAISE OKL_API.G_EXCEPTION_ERROR;
19294: END IF;
19287: ,'_PVT'
19288: ,x_return_status);
19289: -- Check if activity started successfully
19290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19293: RAISE OKL_API.G_EXCEPTION_ERROR;
19294: END IF;
19295: -- We must have top line id to go further
19288: ,x_return_status);
19289: -- Check if activity started successfully
19290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19293: RAISE OKL_API.G_EXCEPTION_ERROR;
19294: END IF;
19295: -- We must have top line id to go further
19296: IF (p_top_line_id IS NUll OR
19289: -- Check if activity started successfully
19290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19293: RAISE OKL_API.G_EXCEPTION_ERROR;
19294: END IF;
19295: -- We must have top line id to go further
19296: IF (p_top_line_id IS NUll OR
19297: p_top_line_id = OKL_API.G_MISS_NUM) AND
19293: RAISE OKL_API.G_EXCEPTION_ERROR;
19294: END IF;
19295: -- We must have top line id to go further
19296: IF (p_top_line_id IS NUll OR
19297: p_top_line_id = OKL_API.G_MISS_NUM) AND
19298: (p_dnz_chr_id IS NUll OR
19299: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19300: OKL_API.set_message(p_app_name => G_APP_NAME,
19301: p_msg_name => G_REQUIRED_VALUE,
19295: -- We must have top line id to go further
19296: IF (p_top_line_id IS NUll OR
19297: p_top_line_id = OKL_API.G_MISS_NUM) AND
19298: (p_dnz_chr_id IS NUll OR
19299: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19300: OKL_API.set_message(p_app_name => G_APP_NAME,
19301: p_msg_name => G_REQUIRED_VALUE,
19302: p_token1 => G_COL_NAME_TOKEN,
19303: p_token1_value => 'Top Line and Dnz_chr_id');
19296: IF (p_top_line_id IS NUll OR
19297: p_top_line_id = OKL_API.G_MISS_NUM) AND
19298: (p_dnz_chr_id IS NUll OR
19299: p_dnz_chr_id = OKL_API.G_MISS_NUM) THEN
19300: OKL_API.set_message(p_app_name => G_APP_NAME,
19301: p_msg_name => G_REQUIRED_VALUE,
19302: p_token1 => G_COL_NAME_TOKEN,
19303: p_token1_value => 'Top Line and Dnz_chr_id');
19304: RAISE OKL_API.G_EXCEPTION_ERROR;
19300: OKL_API.set_message(p_app_name => G_APP_NAME,
19301: p_msg_name => G_REQUIRED_VALUE,
19302: p_token1 => G_COL_NAME_TOKEN,
19303: p_token1_value => 'Top Line and Dnz_chr_id');
19304: RAISE OKL_API.G_EXCEPTION_ERROR;
19305: END IF;
19306:
19307: -- Get the model item
19308: OPEN c_model_item(p_top_line_id,
19307: -- Get the model item
19308: OPEN c_model_item(p_top_line_id,
19309: p_dnz_chr_id);
19310: IF c_model_item%NOTFOUND THEN
19311: OKL_API.set_message(p_app_name => G_APP_NAME,
19312: p_msg_name => G_NO_MATCHING_RECORD,
19313: p_token1 => G_COL_NAME_TOKEN,
19314: p_token1_value => 'Item_Id');
19315: RAISE OKL_API.G_EXCEPTION_ERROR;
19311: OKL_API.set_message(p_app_name => G_APP_NAME,
19312: p_msg_name => G_NO_MATCHING_RECORD,
19313: p_token1 => G_COL_NAME_TOKEN,
19314: p_token1_value => 'Item_Id');
19315: RAISE OKL_API.G_EXCEPTION_ERROR;
19316: END IF;
19317: FETCH c_model_item INTO ln_model_item;
19318: CLOSE c_model_item;
19319:
19325: -- We have intialize the I, since there could be any index integer
19326: i := l_itiv_ib_tbl.FIRST;
19327: LOOP
19328: IF l_itiv_ib_tbl(i).id IS NULL OR
19329: l_itiv_ib_tbl(i).id = OKL_API.G_MISS_NUM THEN
19330:
19331: -- 4334903 Assign the line style ID directly
19332: /*
19333: -- Creation of the Instance Line Process
19333: -- Creation of the Instance Line Process
19334: -- Getting the Line style Info
19335: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19336: x_lse_id => l_clev_inst_rec.lse_id);
19337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19338: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19340: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19341: END IF;
19334: -- Getting the Line style Info
19335: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19336: x_lse_id => l_clev_inst_rec.lse_id);
19337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19338: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19340: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19341: END IF;
19342: */
19335: x_return_status := get_lse_id(p_lty_code => G_INST_LINE_LTY_CODE,
19336: x_lse_id => l_clev_inst_rec.lse_id);
19337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19338: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19340: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19341: END IF;
19342: */
19343: --akrangan Bug# 5362977 start
19336: x_lse_id => l_clev_inst_rec.lse_id);
19337: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19338: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19339: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19340: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19341: END IF;
19342: */
19343: --akrangan Bug# 5362977 start
19344: -- Do not allow update of units if the contract has Re-lease assets
19353: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
19354: CLOSE l_chk_rel_ast_csr;
19355:
19356: IF l_chk_rel_ast = 'Y' THEN
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
19359: RAISE OKL_API.G_EXCEPTION_ERROR;
19360: END IF;
19361: --akrangan Bug# 5362977 end
19355:
19356: IF l_chk_rel_ast = 'Y' THEN
19357: OKL_API.set_message(p_app_name => G_APP_NAME,
19358: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
19359: RAISE OKL_API.G_EXCEPTION_ERROR;
19360: END IF;
19361: --akrangan Bug# 5362977 end
19362:
19363: l_clev_inst_rec.display_sequence := 1;
19369: l_clev_inst_rec.cle_id := p_top_line_id;
19370: l_clev_inst_rec.dnz_chr_id := p_dnz_chr_id;
19371: l_clev_inst_rec.exception_yn := 'N';
19372: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19373: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19374: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19371: l_clev_inst_rec.exception_yn := 'N';
19372: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19373: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19374: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19372: IF (l_itiv_ib_tbl(i).instance_number_ib IS NULL OR
19373: l_itiv_ib_tbl(i).instance_number_ib = OKL_API.G_MISS_CHAR) THEN
19374: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19380: OKL_API.set_message(p_app_name => G_APP_NAME,
19374: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_ib_tbl(i).instance_number_ib);
19375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19380: OKL_API.set_message(p_app_name => G_APP_NAME,
19381: p_msg_name => G_GEN_INST_NUM_IB);
19382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19375: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19380: OKL_API.set_message(p_app_name => G_APP_NAME,
19381: p_msg_name => G_GEN_INST_NUM_IB);
19382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19383: END IF;
19376: OKL_API.set_message(p_app_name => G_APP_NAME,
19377: p_msg_name => G_GEN_INST_NUM_IB);
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19380: OKL_API.set_message(p_app_name => G_APP_NAME,
19381: p_msg_name => G_GEN_INST_NUM_IB);
19382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19383: END IF;
19384: l_itiv_ib_tbl(i).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(i).instance_number_ib;
19378: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19379: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19380: OKL_API.set_message(p_app_name => G_APP_NAME,
19381: p_msg_name => G_GEN_INST_NUM_IB);
19382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19383: END IF;
19384: l_itiv_ib_tbl(i).instance_number_ib := p_asset_number||' '||l_itiv_ib_tbl(i).instance_number_ib;
19385: END IF;
19386: -- Creation of the Instance Line
19394: p_itiv_rec => l_itiv_ib_tbl(i),
19395: x_clev_rec => l_clev_inst_rec_out,
19396: x_klev_rec => l_klev_inst_rec_out,
19397: x_itiv_rec => l_itiv_ib_tbl_out(i));
19398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19399: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19401: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19402: END IF;
19395: x_clev_rec => l_clev_inst_rec_out,
19396: x_klev_rec => l_klev_inst_rec_out,
19397: x_itiv_rec => l_itiv_ib_tbl_out(i));
19398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19399: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19401: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19402: END IF;
19403: -- 4414408 Assign the line style ID directly
19396: x_klev_rec => l_klev_inst_rec_out,
19397: x_itiv_rec => l_itiv_ib_tbl_out(i));
19398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19399: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19401: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19402: END IF;
19403: -- 4414408 Assign the line style ID directly
19404: /*
19397: x_itiv_rec => l_itiv_ib_tbl_out(i));
19398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19399: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19401: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19402: END IF;
19403: -- 4414408 Assign the line style ID directly
19404: /*
19405: -- Creation of the ib Line Process
19405: -- Creation of the ib Line Process
19406: -- Getting the Line style Info
19407: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19408: x_lse_id => l_clev_ib_rec.lse_id);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19412: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19413: END IF;
19406: -- Getting the Line style Info
19407: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19408: x_lse_id => l_clev_ib_rec.lse_id);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19412: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19413: END IF;
19414: */
19407: x_return_status := get_lse_id(p_lty_code => G_IB_LINE_LTY_CODE,
19408: x_lse_id => l_clev_ib_rec.lse_id);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19412: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19413: END IF;
19414: */
19415: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
19408: x_lse_id => l_clev_ib_rec.lse_id);
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19412: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19413: END IF;
19414: */
19415: l_clev_ib_rec.lse_id := G_IB_LINE_LTY_ID;
19416: l_clev_ib_rec.display_sequence := 2;
19428: lv_object_id1_new := l_itiv_ib_tbl(i).object_id1_new;
19429: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
19430: x_object_id1_new => l_itiv_ib_tbl(i).object_id1_new,
19431: x_object_id2_new => l_itiv_ib_tbl(i).object_id2_new);
19432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19433: OKL_API.set_message(p_app_name => G_APP_NAME,
19434: p_msg_name => G_NO_MATCHING_RECORD,
19435: p_token1 => G_COL_NAME_TOKEN,
19436: p_token1_value => 'Party_site_id');
19429: x_return_status := get_party_site_id(p_object_id1_new => lv_object_id1_new,
19430: x_object_id1_new => l_itiv_ib_tbl(i).object_id1_new,
19431: x_object_id2_new => l_itiv_ib_tbl(i).object_id2_new);
19432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19433: OKL_API.set_message(p_app_name => G_APP_NAME,
19434: p_msg_name => G_NO_MATCHING_RECORD,
19435: p_token1 => G_COL_NAME_TOKEN,
19436: p_token1_value => 'Party_site_id');
19437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19433: OKL_API.set_message(p_app_name => G_APP_NAME,
19434: p_msg_name => G_NO_MATCHING_RECORD,
19435: p_token1 => G_COL_NAME_TOKEN,
19436: p_token1_value => 'Party_site_id');
19437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19439: OKL_API.set_message(p_app_name => G_APP_NAME,
19440: p_msg_name => G_NO_MATCHING_RECORD,
19441: p_token1 => G_COL_NAME_TOKEN,
19434: p_msg_name => G_NO_MATCHING_RECORD,
19435: p_token1 => G_COL_NAME_TOKEN,
19436: p_token1_value => 'Party_site_id');
19437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19439: OKL_API.set_message(p_app_name => G_APP_NAME,
19440: p_msg_name => G_NO_MATCHING_RECORD,
19441: p_token1 => G_COL_NAME_TOKEN,
19442: p_token1_value => 'Party_site_id');
19435: p_token1 => G_COL_NAME_TOKEN,
19436: p_token1_value => 'Party_site_id');
19437: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19438: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19439: OKL_API.set_message(p_app_name => G_APP_NAME,
19440: p_msg_name => G_NO_MATCHING_RECORD,
19441: p_token1 => G_COL_NAME_TOKEN,
19442: p_token1_value => 'Party_site_id');
19443: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19439: OKL_API.set_message(p_app_name => G_APP_NAME,
19440: p_msg_name => G_NO_MATCHING_RECORD,
19441: p_token1 => G_COL_NAME_TOKEN,
19442: p_token1_value => 'Party_site_id');
19443: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19444: END IF;
19445:
19446: -- Check for uniqueness of Serial number
19447: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19445:
19446: -- Check for uniqueness of Serial number
19447: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19448: p_item_id => ln_model_item);
19449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19452: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19453: END IF;
19446: -- Check for uniqueness of Serial number
19447: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19448: p_item_id => ln_model_item);
19449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19452: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19453: END IF;
19454:
19447: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19448: p_item_id => ln_model_item);
19449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19452: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19453: END IF;
19454:
19455: -- Creation of the ib Line
19448: p_item_id => ln_model_item);
19449: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19450: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19451: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19452: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19453: END IF;
19454:
19455: -- Creation of the ib Line
19456: Create_instance_ib_line(p_api_version => p_api_version,
19466: x_klev_rec => l_klev_ib_rec_out,
19467: x_cimv_rec => l_cimv_ib_rec_out,
19468: x_trxv_rec => l_trxv_ib_rec_out,
19469: x_itiv_rec => x_itiv_ib_tbl(i));
19470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19471: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19473: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19474: END IF;
19467: x_cimv_rec => l_cimv_ib_rec_out,
19468: x_trxv_rec => l_trxv_ib_rec_out,
19469: x_itiv_rec => x_itiv_ib_tbl(i));
19470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19471: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19473: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19474: END IF;
19475: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19468: x_trxv_rec => l_trxv_ib_rec_out,
19469: x_itiv_rec => x_itiv_ib_tbl(i));
19470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19471: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19473: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19474: END IF;
19475: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19476: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19469: x_itiv_rec => x_itiv_ib_tbl(i));
19470: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19471: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19473: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19474: END IF;
19475: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19476: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19477:
19472: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19473: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19474: END IF;
19475: ELSIF l_itiv_ib_tbl(i).id IS NOT NULL OR
19476: l_itiv_ib_tbl(i).id <> OKL_API.G_MISS_NUM THEN
19477:
19478: -- Check for uniqueness of Serial number
19479: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19480: p_item_id => ln_model_item);
19477:
19478: -- Check for uniqueness of Serial number
19479: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19480: p_item_id => ln_model_item);
19481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19484: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19485: END IF;
19478: -- Check for uniqueness of Serial number
19479: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19480: p_item_id => ln_model_item);
19481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19484: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19485: END IF;
19486:
19479: x_return_status := is_duplicate_serial_number(p_serial_number => l_itiv_ib_tbl(i).serial_number,
19480: p_item_id => ln_model_item);
19481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19484: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19485: END IF;
19486:
19487: -- We are here b'cause we have to update the okl_txl_itm_inst rec
19480: p_item_id => ln_model_item);
19481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19482: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19484: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19485: END IF;
19486:
19487: -- We are here b'cause we have to update the okl_txl_itm_inst rec
19488: -- So we are calling the update api for the okl_txl_itm_insts rec
19493: x_msg_count => x_msg_count,
19494: x_msg_data => x_msg_data,
19495: p_itiv_rec => l_itiv_ib_tbl(i),
19496: x_itiv_rec => x_itiv_ib_tbl(i));
19497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19498: OKL_API.set_message(p_app_name => G_APP_NAME,
19499: p_msg_name => G_ITI_ID);
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19494: x_msg_data => x_msg_data,
19495: p_itiv_rec => l_itiv_ib_tbl(i),
19496: x_itiv_rec => x_itiv_ib_tbl(i));
19497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19498: OKL_API.set_message(p_app_name => G_APP_NAME,
19499: p_msg_name => G_ITI_ID);
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19502: OKL_API.set_message(p_app_name => G_APP_NAME,
19496: x_itiv_rec => x_itiv_ib_tbl(i));
19497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19498: OKL_API.set_message(p_app_name => G_APP_NAME,
19499: p_msg_name => G_ITI_ID);
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19502: OKL_API.set_message(p_app_name => G_APP_NAME,
19503: p_msg_name => G_ITI_ID);
19504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19497: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19498: OKL_API.set_message(p_app_name => G_APP_NAME,
19499: p_msg_name => G_ITI_ID);
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19502: OKL_API.set_message(p_app_name => G_APP_NAME,
19503: p_msg_name => G_ITI_ID);
19504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19505: END IF;
19498: OKL_API.set_message(p_app_name => G_APP_NAME,
19499: p_msg_name => G_ITI_ID);
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19502: OKL_API.set_message(p_app_name => G_APP_NAME,
19503: p_msg_name => G_ITI_ID);
19504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19505: END IF;
19506: ELSE
19500: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19502: OKL_API.set_message(p_app_name => G_APP_NAME,
19503: p_msg_name => G_ITI_ID);
19504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19505: END IF;
19506: ELSE
19507: OKL_API.set_message(p_app_name => G_APP_NAME,
19508: p_msg_name => G_LINE_RECORD);
19503: p_msg_name => G_ITI_ID);
19504: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19505: END IF;
19506: ELSE
19507: OKL_API.set_message(p_app_name => G_APP_NAME,
19508: p_msg_name => G_LINE_RECORD);
19509: x_return_status := OKL_API.G_RET_STS_ERROR;
19510: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19511: END IF;
19505: END IF;
19506: ELSE
19507: OKL_API.set_message(p_app_name => G_APP_NAME,
19508: p_msg_name => G_LINE_RECORD);
19509: x_return_status := OKL_API.G_RET_STS_ERROR;
19510: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19511: END IF;
19512: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19513: i := l_itiv_ib_tbl.NEXT(i);
19506: ELSE
19507: OKL_API.set_message(p_app_name => G_APP_NAME,
19508: p_msg_name => G_LINE_RECORD);
19509: x_return_status := OKL_API.G_RET_STS_ERROR;
19510: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19511: END IF;
19512: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19513: i := l_itiv_ib_tbl.NEXT(i);
19514: END LOOP;
19511: END IF;
19512: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19513: i := l_itiv_ib_tbl.NEXT(i);
19514: END LOOP;
19515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19518: RAISE OKL_API.G_EXCEPTION_ERROR;
19519: END IF;
19512: EXIT WHEN (i = l_itiv_ib_tbl.LAST);
19513: i := l_itiv_ib_tbl.NEXT(i);
19514: END LOOP;
19515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19518: RAISE OKL_API.G_EXCEPTION_ERROR;
19519: END IF;
19520: ELSE
19513: i := l_itiv_ib_tbl.NEXT(i);
19514: END LOOP;
19515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19518: RAISE OKL_API.G_EXCEPTION_ERROR;
19519: END IF;
19520: ELSE
19521: OKL_API.set_message(p_app_name => G_APP_NAME,
19514: END LOOP;
19515: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19518: RAISE OKL_API.G_EXCEPTION_ERROR;
19519: END IF;
19520: ELSE
19521: OKL_API.set_message(p_app_name => G_APP_NAME,
19522: p_msg_name => G_CNT_REC);
19517: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19518: RAISE OKL_API.G_EXCEPTION_ERROR;
19519: END IF;
19520: ELSE
19521: OKL_API.set_message(p_app_name => G_APP_NAME,
19522: p_msg_name => G_CNT_REC);
19523: RAISE OKL_API.G_EXCEPTION_ERROR;
19524: END IF;
19525: -- we should get the remaining inst line , so that we can update
19519: END IF;
19520: ELSE
19521: OKL_API.set_message(p_app_name => G_APP_NAME,
19522: p_msg_name => G_CNT_REC);
19523: RAISE OKL_API.G_EXCEPTION_ERROR;
19524: END IF;
19525: -- we should get the remaining inst line , so that we can update
19526: -- the fixed line , model line and also update the top line with latest OEC
19527: OPEN c_remain_inst_line(p_top_line_id,
19526: -- the fixed line , model line and also update the top line with latest OEC
19527: OPEN c_remain_inst_line(p_top_line_id,
19528: p_dnz_chr_id);
19529: IF c_remain_inst_line%NOTFOUND THEN
19530: OKL_API.set_message(p_app_name => G_APP_NAME,
19531: p_msg_name => G_DELETING_INSTS_LINE);
19532: RAISE OKL_API.G_EXCEPTION_ERROR;
19533: END IF;
19534: FETCH c_remain_inst_line INTO ln_remain_inst;
19528: p_dnz_chr_id);
19529: IF c_remain_inst_line%NOTFOUND THEN
19530: OKL_API.set_message(p_app_name => G_APP_NAME,
19531: p_msg_name => G_DELETING_INSTS_LINE);
19532: RAISE OKL_API.G_EXCEPTION_ERROR;
19533: END IF;
19534: FETCH c_remain_inst_line INTO ln_remain_inst;
19535: CLOSE c_remain_inst_line;
19536: -- To get the Model Line
19537: -- Since we have update the model line
19538: OPEN c_model_line(p_top_line_id,
19539: p_dnz_chr_id);
19540: IF c_model_line%NOTFOUND THEN
19541: OKL_API.set_message(p_app_name => G_APP_NAME,
19542: p_msg_name => G_NO_MATCHING_RECORD,
19543: p_token1 => G_COL_NAME_TOKEN,
19544: p_token1_value => 'Model Asset Line record');
19545: RAISE OKL_API.G_EXCEPTION_ERROR;
19541: OKL_API.set_message(p_app_name => G_APP_NAME,
19542: p_msg_name => G_NO_MATCHING_RECORD,
19543: p_token1 => G_COL_NAME_TOKEN,
19544: p_token1_value => 'Model Asset Line record');
19545: RAISE OKL_API.G_EXCEPTION_ERROR;
19546: END IF;
19547: FETCH c_model_line INTO ln_model_line_id;
19548: CLOSE c_model_line;
19549: -- To get the Fixed Asset Line
19550: -- Since we have update the Fixed Asset Line
19551: OPEN c_fa_line(p_top_line_id,
19552: p_dnz_chr_id);
19553: IF c_fa_line%NOTFOUND THEN
19554: OKL_API.set_message(p_app_name => G_APP_NAME,
19555: p_msg_name => G_NO_MATCHING_RECORD,
19556: p_token1 => G_COL_NAME_TOKEN,
19557: p_token1_value => 'Fixed Asset Line record');
19558: RAISE OKL_API.G_EXCEPTION_ERROR;
19554: OKL_API.set_message(p_app_name => G_APP_NAME,
19555: p_msg_name => G_NO_MATCHING_RECORD,
19556: p_token1 => G_COL_NAME_TOKEN,
19557: p_token1_value => 'Fixed Asset Line record');
19558: RAISE OKL_API.G_EXCEPTION_ERROR;
19559: END IF;
19560: FETCH c_fa_line INTO ln_fa_line_id;
19561: CLOSE c_fa_line;
19562: --We have to build the Model Line Record for the calculations of the
19563: -- oec of the top line
19564: -- To Get the cle Model Line Record
19565: x_return_status := get_rec_clev(ln_model_line_id,
19566: r_clev_model_rec);
19567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19568: OKL_API.set_message(p_app_name => G_APP_NAME,
19569: p_msg_name => G_FETCHING_INFO,
19570: p_token1 => G_REC_NAME_TOKEN,
19571: p_token1_value => 'OKC_K_LINES_V Record');
19564: -- To Get the cle Model Line Record
19565: x_return_status := get_rec_clev(ln_model_line_id,
19566: r_clev_model_rec);
19567: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19568: OKL_API.set_message(p_app_name => G_APP_NAME,
19569: p_msg_name => G_FETCHING_INFO,
19570: p_token1 => G_REC_NAME_TOKEN,
19571: p_token1_value => 'OKC_K_LINES_V Record');
19572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19568: OKL_API.set_message(p_app_name => G_APP_NAME,
19569: p_msg_name => G_FETCHING_INFO,
19570: p_token1 => G_REC_NAME_TOKEN,
19571: p_token1_value => 'OKC_K_LINES_V Record');
19572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19574: OKL_API.set_message(p_app_name => G_APP_NAME,
19575: p_msg_name => G_FETCHING_INFO,
19576: p_token1 => G_REC_NAME_TOKEN,
19569: p_msg_name => G_FETCHING_INFO,
19570: p_token1 => G_REC_NAME_TOKEN,
19571: p_token1_value => 'OKC_K_LINES_V Record');
19572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19574: OKL_API.set_message(p_app_name => G_APP_NAME,
19575: p_msg_name => G_FETCHING_INFO,
19576: p_token1 => G_REC_NAME_TOKEN,
19577: p_token1_value => 'OKC_K_LINES_V Record');
19570: p_token1 => G_REC_NAME_TOKEN,
19571: p_token1_value => 'OKC_K_LINES_V Record');
19572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19574: OKL_API.set_message(p_app_name => G_APP_NAME,
19575: p_msg_name => G_FETCHING_INFO,
19576: p_token1 => G_REC_NAME_TOKEN,
19577: p_token1_value => 'OKC_K_LINES_V Record');
19578: RAISE OKL_API.G_EXCEPTION_ERROR;
19574: OKL_API.set_message(p_app_name => G_APP_NAME,
19575: p_msg_name => G_FETCHING_INFO,
19576: p_token1 => G_REC_NAME_TOKEN,
19577: p_token1_value => 'OKC_K_LINES_V Record');
19578: RAISE OKL_API.G_EXCEPTION_ERROR;
19579: END IF;
19580: -- To Get the kle Model Line Record
19581: x_return_status := get_rec_klev(ln_model_line_id,
19582: r_klev_model_rec);
19579: END IF;
19580: -- To Get the kle Model Line Record
19581: x_return_status := get_rec_klev(ln_model_line_id,
19582: r_klev_model_rec);
19583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19584: OKL_API.set_message(p_app_name => G_APP_NAME,
19585: p_msg_name => G_FETCHING_INFO,
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19580: -- To Get the kle Model Line Record
19581: x_return_status := get_rec_klev(ln_model_line_id,
19582: r_klev_model_rec);
19583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19584: OKL_API.set_message(p_app_name => G_APP_NAME,
19585: p_msg_name => G_FETCHING_INFO,
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19584: OKL_API.set_message(p_app_name => G_APP_NAME,
19585: p_msg_name => G_FETCHING_INFO,
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19592: p_token1 => G_REC_NAME_TOKEN,
19585: p_msg_name => G_FETCHING_INFO,
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19592: p_token1 => G_REC_NAME_TOKEN,
19593: p_token1_value => 'OKL_K_LINES_V Record');
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19592: p_token1 => G_REC_NAME_TOKEN,
19593: p_token1_value => 'OKL_K_LINES_V Record');
19594: RAISE OKL_API.G_EXCEPTION_ERROR;
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19592: p_token1 => G_REC_NAME_TOKEN,
19593: p_token1_value => 'OKL_K_LINES_V Record');
19594: RAISE OKL_API.G_EXCEPTION_ERROR;
19595: END IF;
19596: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19597: OKL_API.set_message(p_app_name => G_APP_NAME,
19598: p_msg_name => G_LINE_RECORD);
19593: p_token1_value => 'OKL_K_LINES_V Record');
19594: RAISE OKL_API.G_EXCEPTION_ERROR;
19595: END IF;
19596: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19597: OKL_API.set_message(p_app_name => G_APP_NAME,
19598: p_msg_name => G_LINE_RECORD);
19599: RAISE OKL_API.G_EXCEPTION_ERROR;
19600: END IF;
19601: -- To Get the cimv Model Line Record
19595: END IF;
19596: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19597: OKL_API.set_message(p_app_name => G_APP_NAME,
19598: p_msg_name => G_LINE_RECORD);
19599: RAISE OKL_API.G_EXCEPTION_ERROR;
19600: END IF;
19601: -- To Get the cimv Model Line Record
19602: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19603: r_clev_model_rec.dnz_chr_id,
19601: -- To Get the cimv Model Line Record
19602: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19603: r_clev_model_rec.dnz_chr_id,
19604: r_cimv_model_rec);
19605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19606: OKL_API.set_message(p_app_name => G_APP_NAME,
19607: p_msg_name => G_FETCHING_INFO,
19608: p_token1 => G_REC_NAME_TOKEN,
19609: p_token1_value => 'OKC_K_ITEMS_V Record');
19602: x_return_status := get_rec_cimv(r_clev_model_rec.id,
19603: r_clev_model_rec.dnz_chr_id,
19604: r_cimv_model_rec);
19605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19606: OKL_API.set_message(p_app_name => G_APP_NAME,
19607: p_msg_name => G_FETCHING_INFO,
19608: p_token1 => G_REC_NAME_TOKEN,
19609: p_token1_value => 'OKC_K_ITEMS_V Record');
19610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19606: OKL_API.set_message(p_app_name => G_APP_NAME,
19607: p_msg_name => G_FETCHING_INFO,
19608: p_token1 => G_REC_NAME_TOKEN,
19609: p_token1_value => 'OKC_K_ITEMS_V Record');
19610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19611: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19612: OKL_API.set_message(p_app_name => G_APP_NAME,
19613: p_msg_name => G_FETCHING_INFO,
19614: p_token1 => G_REC_NAME_TOKEN,
19607: p_msg_name => G_FETCHING_INFO,
19608: p_token1 => G_REC_NAME_TOKEN,
19609: p_token1_value => 'OKC_K_ITEMS_V Record');
19610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19611: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19612: OKL_API.set_message(p_app_name => G_APP_NAME,
19613: p_msg_name => G_FETCHING_INFO,
19614: p_token1 => G_REC_NAME_TOKEN,
19615: p_token1_value => 'OKC_K_ITEMS_V Record');
19608: p_token1 => G_REC_NAME_TOKEN,
19609: p_token1_value => 'OKC_K_ITEMS_V Record');
19610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19611: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19612: OKL_API.set_message(p_app_name => G_APP_NAME,
19613: p_msg_name => G_FETCHING_INFO,
19614: p_token1 => G_REC_NAME_TOKEN,
19615: p_token1_value => 'OKC_K_ITEMS_V Record');
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19612: OKL_API.set_message(p_app_name => G_APP_NAME,
19613: p_msg_name => G_FETCHING_INFO,
19614: p_token1 => G_REC_NAME_TOKEN,
19615: p_token1_value => 'OKC_K_ITEMS_V Record');
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618: --Build Model cimv item rec
19619: r_cimv_model_rec.number_of_items := ln_remain_inst;
19620: -- Updating of the Model Line and Item Record
19630: p_cimv_rec => r_cimv_model_rec,
19631: x_clev_rec => l_clev_model_rec_out,
19632: x_klev_rec => l_klev_model_rec_out,
19633: x_cimv_rec => l_cimv_model_rec_out);
19634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19637: RAISE OKL_API.G_EXCEPTION_ERROR;
19638: END IF;
19631: x_clev_rec => l_clev_model_rec_out,
19632: x_klev_rec => l_klev_model_rec_out,
19633: x_cimv_rec => l_cimv_model_rec_out);
19634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19637: RAISE OKL_API.G_EXCEPTION_ERROR;
19638: END IF;
19639: -- We need to check if there are add on line and then we update the Addon number of items also
19632: x_klev_rec => l_klev_model_rec_out,
19633: x_cimv_rec => l_cimv_model_rec_out);
19634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19637: RAISE OKL_API.G_EXCEPTION_ERROR;
19638: END IF;
19639: -- We need to check if there are add on line and then we update the Addon number of items also
19640: -- Since there can be multiple Addo lines
19633: x_cimv_rec => l_cimv_model_rec_out);
19634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19637: RAISE OKL_API.G_EXCEPTION_ERROR;
19638: END IF;
19639: -- We need to check if there are add on line and then we update the Addon number of items also
19640: -- Since there can be multiple Addo lines
19641: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => p_top_line_id,
19644: -- oec of the top line
19645: -- To Get the cle addon Line Record
19646: x_return_status := get_rec_clev(r_addon_line_id.id,
19647: r_clev_addon_rec);
19648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19649: OKL_API.set_message(p_app_name => G_APP_NAME,
19650: p_msg_name => G_FETCHING_INFO,
19651: p_token1 => G_REC_NAME_TOKEN,
19652: p_token1_value => 'OKC_K_LINES_V Record');
19645: -- To Get the cle addon Line Record
19646: x_return_status := get_rec_clev(r_addon_line_id.id,
19647: r_clev_addon_rec);
19648: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19649: OKL_API.set_message(p_app_name => G_APP_NAME,
19650: p_msg_name => G_FETCHING_INFO,
19651: p_token1 => G_REC_NAME_TOKEN,
19652: p_token1_value => 'OKC_K_LINES_V Record');
19653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19649: OKL_API.set_message(p_app_name => G_APP_NAME,
19650: p_msg_name => G_FETCHING_INFO,
19651: p_token1 => G_REC_NAME_TOKEN,
19652: p_token1_value => 'OKC_K_LINES_V Record');
19653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19655: OKL_API.set_message(p_app_name => G_APP_NAME,
19656: p_msg_name => G_FETCHING_INFO,
19657: p_token1 => G_REC_NAME_TOKEN,
19650: p_msg_name => G_FETCHING_INFO,
19651: p_token1 => G_REC_NAME_TOKEN,
19652: p_token1_value => 'OKC_K_LINES_V Record');
19653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19655: OKL_API.set_message(p_app_name => G_APP_NAME,
19656: p_msg_name => G_FETCHING_INFO,
19657: p_token1 => G_REC_NAME_TOKEN,
19658: p_token1_value => 'OKC_K_LINES_V Record');
19651: p_token1 => G_REC_NAME_TOKEN,
19652: p_token1_value => 'OKC_K_LINES_V Record');
19653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19655: OKL_API.set_message(p_app_name => G_APP_NAME,
19656: p_msg_name => G_FETCHING_INFO,
19657: p_token1 => G_REC_NAME_TOKEN,
19658: p_token1_value => 'OKC_K_LINES_V Record');
19659: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19655: OKL_API.set_message(p_app_name => G_APP_NAME,
19656: p_msg_name => G_FETCHING_INFO,
19657: p_token1 => G_REC_NAME_TOKEN,
19658: p_token1_value => 'OKC_K_LINES_V Record');
19659: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19660: END IF;
19661: -- To Get the kle Model Line Record
19662: x_return_status := get_rec_klev(r_addon_line_id.id,
19663: r_klev_addon_rec);
19660: END IF;
19661: -- To Get the kle Model Line Record
19662: x_return_status := get_rec_klev(r_addon_line_id.id,
19663: r_klev_addon_rec);
19664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19665: OKL_API.set_message(p_app_name => G_APP_NAME,
19666: p_msg_name => G_FETCHING_INFO,
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19661: -- To Get the kle Model Line Record
19662: x_return_status := get_rec_klev(r_addon_line_id.id,
19663: r_klev_addon_rec);
19664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19665: OKL_API.set_message(p_app_name => G_APP_NAME,
19666: p_msg_name => G_FETCHING_INFO,
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19669: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19665: OKL_API.set_message(p_app_name => G_APP_NAME,
19666: p_msg_name => G_FETCHING_INFO,
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19669: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19673: p_token1 => G_REC_NAME_TOKEN,
19666: p_msg_name => G_FETCHING_INFO,
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19669: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19673: p_token1 => G_REC_NAME_TOKEN,
19674: p_token1_value => 'OKL_K_LINES_V Record');
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19669: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19673: p_token1 => G_REC_NAME_TOKEN,
19674: p_token1_value => 'OKL_K_LINES_V Record');
19675: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19673: p_token1 => G_REC_NAME_TOKEN,
19674: p_token1_value => 'OKL_K_LINES_V Record');
19675: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19676: END IF;
19677: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19678: OKL_API.set_message(p_app_name => G_APP_NAME,
19679: p_msg_name => G_LINE_RECORD);
19674: p_token1_value => 'OKL_K_LINES_V Record');
19675: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19676: END IF;
19677: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19678: OKL_API.set_message(p_app_name => G_APP_NAME,
19679: p_msg_name => G_LINE_RECORD);
19680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19681: END IF;
19682: -- To Get the cimv Model Line Record
19676: END IF;
19677: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19678: OKL_API.set_message(p_app_name => G_APP_NAME,
19679: p_msg_name => G_LINE_RECORD);
19680: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19681: END IF;
19682: -- To Get the cimv Model Line Record
19683: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19684: r_clev_addon_rec.dnz_chr_id,
19682: -- To Get the cimv Model Line Record
19683: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19684: r_clev_addon_rec.dnz_chr_id,
19685: r_cimv_addon_rec);
19686: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19687: OKL_API.set_message(p_app_name => G_APP_NAME,
19688: p_msg_name => G_FETCHING_INFO,
19689: p_token1 => G_REC_NAME_TOKEN,
19690: p_token1_value => 'OKC_K_ITEMS_V Record');
19683: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
19684: r_clev_addon_rec.dnz_chr_id,
19685: r_cimv_addon_rec);
19686: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19687: OKL_API.set_message(p_app_name => G_APP_NAME,
19688: p_msg_name => G_FETCHING_INFO,
19689: p_token1 => G_REC_NAME_TOKEN,
19690: p_token1_value => 'OKC_K_ITEMS_V Record');
19691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19687: OKL_API.set_message(p_app_name => G_APP_NAME,
19688: p_msg_name => G_FETCHING_INFO,
19689: p_token1 => G_REC_NAME_TOKEN,
19690: p_token1_value => 'OKC_K_ITEMS_V Record');
19691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19693: OKL_API.set_message(p_app_name => G_APP_NAME,
19694: p_msg_name => G_FETCHING_INFO,
19695: p_token1 => G_REC_NAME_TOKEN,
19688: p_msg_name => G_FETCHING_INFO,
19689: p_token1 => G_REC_NAME_TOKEN,
19690: p_token1_value => 'OKC_K_ITEMS_V Record');
19691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19693: OKL_API.set_message(p_app_name => G_APP_NAME,
19694: p_msg_name => G_FETCHING_INFO,
19695: p_token1 => G_REC_NAME_TOKEN,
19696: p_token1_value => 'OKC_K_ITEMS_V Record');
19689: p_token1 => G_REC_NAME_TOKEN,
19690: p_token1_value => 'OKC_K_ITEMS_V Record');
19691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19692: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19693: OKL_API.set_message(p_app_name => G_APP_NAME,
19694: p_msg_name => G_FETCHING_INFO,
19695: p_token1 => G_REC_NAME_TOKEN,
19696: p_token1_value => 'OKC_K_ITEMS_V Record');
19697: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19693: OKL_API.set_message(p_app_name => G_APP_NAME,
19694: p_msg_name => G_FETCHING_INFO,
19695: p_token1 => G_REC_NAME_TOKEN,
19696: p_token1_value => 'OKC_K_ITEMS_V Record');
19697: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19698: END IF;
19699: --Build addon cimv item rec
19700: r_cimv_addon_rec.number_of_items := ln_remain_inst;
19701: -- Updating of the addon Line and Item Record
19711: p_cimv_rec => r_cimv_addon_rec,
19712: x_clev_rec => rx_clev_addon_rec,
19713: x_klev_rec => rx_klev_addon_rec,
19714: x_cimv_rec => rx_cimv_addon_rec);
19715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19716: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19712: x_clev_rec => rx_clev_addon_rec,
19713: x_klev_rec => rx_klev_addon_rec,
19714: x_cimv_rec => rx_cimv_addon_rec);
19715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19716: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19720: END LOOP;
19713: x_klev_rec => rx_klev_addon_rec,
19714: x_cimv_rec => rx_cimv_addon_rec);
19715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19716: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19714: x_cimv_rec => rx_cimv_addon_rec);
19715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19716: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19724: RAISE OKL_API.G_EXCEPTION_ERROR;
19725: END IF;
19718: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19719: END IF;
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19724: RAISE OKL_API.G_EXCEPTION_ERROR;
19725: END IF;
19726: -- Since we need to populate the OEC into fixed asset line also
19719: END IF;
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19724: RAISE OKL_API.G_EXCEPTION_ERROR;
19725: END IF;
19726: -- Since we need to populate the OEC into fixed asset line also
19727: -- So we need to calcualte the same here it self
19720: END LOOP;
19721: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19722: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19723: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19724: RAISE OKL_API.G_EXCEPTION_ERROR;
19725: END IF;
19726: -- Since we need to populate the OEC into fixed asset line also
19727: -- So we need to calcualte the same here it self
19728: oec_calc_upd_fin_rec(p_api_version => p_api_version,
19737: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19738: x_fin_clev_rec => lx_clev_fin_rec,
19739: x_fin_klev_rec => lx_klev_fin_rec,
19740: x_oec => ln_klev_fin_oec,
19741: p_validate_fin_line => OKL_API.G_TRUE);
19742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19738: x_fin_clev_rec => lx_clev_fin_rec,
19739: x_fin_klev_rec => lx_klev_fin_rec,
19740: x_oec => ln_klev_fin_oec,
19741: p_validate_fin_line => OKL_API.G_TRUE);
19742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19746: END IF;
19739: x_fin_klev_rec => lx_klev_fin_rec,
19740: x_oec => ln_klev_fin_oec,
19741: p_validate_fin_line => OKL_API.G_TRUE);
19742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19746: END IF;
19747: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19740: x_oec => ln_klev_fin_oec,
19741: p_validate_fin_line => OKL_API.G_TRUE);
19742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19746: END IF;
19747: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19748: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19741: p_validate_fin_line => OKL_API.G_TRUE);
19742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19746: END IF;
19747: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19748: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19749: p_init_msg_list => p_init_msg_list,
19757: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19758: x_fin_clev_rec => lx_clev_fin_rec,
19759: x_fin_klev_rec => lx_klev_fin_rec,
19760: x_cap_amt => ln_klev_fin_cap,
19761: p_validate_fin_line => OKL_API.G_TRUE);
19762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19758: x_fin_clev_rec => lx_clev_fin_rec,
19759: x_fin_klev_rec => lx_klev_fin_rec,
19760: x_cap_amt => ln_klev_fin_cap,
19761: p_validate_fin_line => OKL_API.G_TRUE);
19762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19766: END IF;
19759: x_fin_klev_rec => lx_klev_fin_rec,
19760: x_cap_amt => ln_klev_fin_cap,
19761: p_validate_fin_line => OKL_API.G_TRUE);
19762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19766: END IF;
19767: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19760: x_cap_amt => ln_klev_fin_cap,
19761: p_validate_fin_line => OKL_API.G_TRUE);
19762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19766: END IF;
19767: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19768: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19761: p_validate_fin_line => OKL_API.G_TRUE);
19762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19766: END IF;
19767: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19768: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19769: p_init_msg_list => p_init_msg_list,
19777: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
19778: x_fin_clev_rec => lx_clev_fin_rec,
19779: x_fin_klev_rec => lx_klev_fin_rec,
19780: x_res_value => ln_klev_fin_res,
19781: p_validate_fin_line => OKL_API.G_TRUE);
19782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19785: RAISE OKL_API.G_EXCEPTION_ERROR;
19778: x_fin_clev_rec => lx_clev_fin_rec,
19779: x_fin_klev_rec => lx_klev_fin_rec,
19780: x_res_value => ln_klev_fin_res,
19781: p_validate_fin_line => OKL_API.G_TRUE);
19782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19785: RAISE OKL_API.G_EXCEPTION_ERROR;
19786: END IF;
19779: x_fin_klev_rec => lx_klev_fin_rec,
19780: x_res_value => ln_klev_fin_res,
19781: p_validate_fin_line => OKL_API.G_TRUE);
19782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19785: RAISE OKL_API.G_EXCEPTION_ERROR;
19786: END IF;
19787: -- Updating of the Fixed Asset Line Process
19780: x_res_value => ln_klev_fin_res,
19781: p_validate_fin_line => OKL_API.G_TRUE);
19782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19785: RAISE OKL_API.G_EXCEPTION_ERROR;
19786: END IF;
19787: -- Updating of the Fixed Asset Line Process
19788: -- To Get the cle fa Line Record
19781: p_validate_fin_line => OKL_API.G_TRUE);
19782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19785: RAISE OKL_API.G_EXCEPTION_ERROR;
19786: END IF;
19787: -- Updating of the Fixed Asset Line Process
19788: -- To Get the cle fa Line Record
19789: x_return_status := get_rec_clev(ln_fa_line_id,
19787: -- Updating of the Fixed Asset Line Process
19788: -- To Get the cle fa Line Record
19789: x_return_status := get_rec_clev(ln_fa_line_id,
19790: r_clev_fa_rec);
19791: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19792: OKL_API.set_message(p_app_name => G_APP_NAME,
19793: p_msg_name => G_FETCHING_INFO,
19794: p_token1 => G_REC_NAME_TOKEN,
19795: p_token1_value => 'OKC_K_LINES_V Record');
19788: -- To Get the cle fa Line Record
19789: x_return_status := get_rec_clev(ln_fa_line_id,
19790: r_clev_fa_rec);
19791: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19792: OKL_API.set_message(p_app_name => G_APP_NAME,
19793: p_msg_name => G_FETCHING_INFO,
19794: p_token1 => G_REC_NAME_TOKEN,
19795: p_token1_value => 'OKC_K_LINES_V Record');
19796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19792: OKL_API.set_message(p_app_name => G_APP_NAME,
19793: p_msg_name => G_FETCHING_INFO,
19794: p_token1 => G_REC_NAME_TOKEN,
19795: p_token1_value => 'OKC_K_LINES_V Record');
19796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19798: OKL_API.set_message(p_app_name => G_APP_NAME,
19799: p_msg_name => G_FETCHING_INFO,
19800: p_token1 => G_REC_NAME_TOKEN,
19793: p_msg_name => G_FETCHING_INFO,
19794: p_token1 => G_REC_NAME_TOKEN,
19795: p_token1_value => 'OKC_K_LINES_V Record');
19796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19798: OKL_API.set_message(p_app_name => G_APP_NAME,
19799: p_msg_name => G_FETCHING_INFO,
19800: p_token1 => G_REC_NAME_TOKEN,
19801: p_token1_value => 'OKC_K_LINES_V Record');
19794: p_token1 => G_REC_NAME_TOKEN,
19795: p_token1_value => 'OKC_K_LINES_V Record');
19796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19797: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19798: OKL_API.set_message(p_app_name => G_APP_NAME,
19799: p_msg_name => G_FETCHING_INFO,
19800: p_token1 => G_REC_NAME_TOKEN,
19801: p_token1_value => 'OKC_K_LINES_V Record');
19802: RAISE OKL_API.G_EXCEPTION_ERROR;
19798: OKL_API.set_message(p_app_name => G_APP_NAME,
19799: p_msg_name => G_FETCHING_INFO,
19800: p_token1 => G_REC_NAME_TOKEN,
19801: p_token1_value => 'OKC_K_LINES_V Record');
19802: RAISE OKL_API.G_EXCEPTION_ERROR;
19803: END IF;
19804: -- To Get the kle fa Line Record
19805: x_return_status := get_rec_klev(ln_fa_line_id,
19806: r_klev_fa_rec);
19803: END IF;
19804: -- To Get the kle fa Line Record
19805: x_return_status := get_rec_klev(ln_fa_line_id,
19806: r_klev_fa_rec);
19807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19808: OKL_API.set_message(p_app_name => G_APP_NAME,
19809: p_msg_name => G_FETCHING_INFO,
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19804: -- To Get the kle fa Line Record
19805: x_return_status := get_rec_klev(ln_fa_line_id,
19806: r_klev_fa_rec);
19807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19808: OKL_API.set_message(p_app_name => G_APP_NAME,
19809: p_msg_name => G_FETCHING_INFO,
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19808: OKL_API.set_message(p_app_name => G_APP_NAME,
19809: p_msg_name => G_FETCHING_INFO,
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19816: p_token1 => G_REC_NAME_TOKEN,
19809: p_msg_name => G_FETCHING_INFO,
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19816: p_token1 => G_REC_NAME_TOKEN,
19817: p_token1_value => 'OKL_K_LINES_V Record');
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19816: p_token1 => G_REC_NAME_TOKEN,
19817: p_token1_value => 'OKL_K_LINES_V Record');
19818: RAISE OKL_API.G_EXCEPTION_ERROR;
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19816: p_token1 => G_REC_NAME_TOKEN,
19817: p_token1_value => 'OKL_K_LINES_V Record');
19818: RAISE OKL_API.G_EXCEPTION_ERROR;
19819: END IF;
19820: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19821: OKL_API.set_message(p_app_name => G_APP_NAME,
19822: p_msg_name => G_LINE_RECORD);
19817: p_token1_value => 'OKL_K_LINES_V Record');
19818: RAISE OKL_API.G_EXCEPTION_ERROR;
19819: END IF;
19820: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19821: OKL_API.set_message(p_app_name => G_APP_NAME,
19822: p_msg_name => G_LINE_RECORD);
19823: RAISE OKL_API.G_EXCEPTION_ERROR;
19824: END IF;
19825: -- To Get the cimv fa Line Record
19819: END IF;
19820: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19821: OKL_API.set_message(p_app_name => G_APP_NAME,
19822: p_msg_name => G_LINE_RECORD);
19823: RAISE OKL_API.G_EXCEPTION_ERROR;
19824: END IF;
19825: -- To Get the cimv fa Line Record
19826: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19827: r_clev_fa_rec.dnz_chr_id,
19825: -- To Get the cimv fa Line Record
19826: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19827: r_clev_fa_rec.dnz_chr_id,
19828: r_cimv_fa_rec);
19829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19830: OKL_API.set_message(p_app_name => G_APP_NAME,
19831: p_msg_name => G_FETCHING_INFO,
19832: p_token1 => G_REC_NAME_TOKEN,
19833: p_token1_value => 'OKC_K_ITEMS_V Record');
19826: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
19827: r_clev_fa_rec.dnz_chr_id,
19828: r_cimv_fa_rec);
19829: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19830: OKL_API.set_message(p_app_name => G_APP_NAME,
19831: p_msg_name => G_FETCHING_INFO,
19832: p_token1 => G_REC_NAME_TOKEN,
19833: p_token1_value => 'OKC_K_ITEMS_V Record');
19834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19830: OKL_API.set_message(p_app_name => G_APP_NAME,
19831: p_msg_name => G_FETCHING_INFO,
19832: p_token1 => G_REC_NAME_TOKEN,
19833: p_token1_value => 'OKC_K_ITEMS_V Record');
19834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19836: OKL_API.set_message(p_app_name => G_APP_NAME,
19837: p_msg_name => G_FETCHING_INFO,
19838: p_token1 => G_REC_NAME_TOKEN,
19831: p_msg_name => G_FETCHING_INFO,
19832: p_token1 => G_REC_NAME_TOKEN,
19833: p_token1_value => 'OKC_K_ITEMS_V Record');
19834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19836: OKL_API.set_message(p_app_name => G_APP_NAME,
19837: p_msg_name => G_FETCHING_INFO,
19838: p_token1 => G_REC_NAME_TOKEN,
19839: p_token1_value => 'OKC_K_ITEMS_V Record');
19832: p_token1 => G_REC_NAME_TOKEN,
19833: p_token1_value => 'OKC_K_ITEMS_V Record');
19834: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19835: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19836: OKL_API.set_message(p_app_name => G_APP_NAME,
19837: p_msg_name => G_FETCHING_INFO,
19838: p_token1 => G_REC_NAME_TOKEN,
19839: p_token1_value => 'OKC_K_ITEMS_V Record');
19840: RAISE OKL_API.G_EXCEPTION_ERROR;
19836: OKL_API.set_message(p_app_name => G_APP_NAME,
19837: p_msg_name => G_FETCHING_INFO,
19838: p_token1 => G_REC_NAME_TOKEN,
19839: p_token1_value => 'OKC_K_ITEMS_V Record');
19840: RAISE OKL_API.G_EXCEPTION_ERROR;
19841: END IF;
19842: --Build cimv fa item rec
19843: r_cimv_fa_rec.number_of_items := ln_remain_inst;
19844: --Build talv fa item rec
19843: r_cimv_fa_rec.number_of_items := ln_remain_inst;
19844: --Build talv fa item rec
19845: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
19846: r_talv_fa_rec);
19847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19848: OKL_API.set_message(p_app_name => G_APP_NAME,
19849: p_msg_name => G_FETCHING_INFO,
19850: p_token1 => G_REC_NAME_TOKEN,
19851: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19844: --Build talv fa item rec
19845: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
19846: r_talv_fa_rec);
19847: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19848: OKL_API.set_message(p_app_name => G_APP_NAME,
19849: p_msg_name => G_FETCHING_INFO,
19850: p_token1 => G_REC_NAME_TOKEN,
19851: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19848: OKL_API.set_message(p_app_name => G_APP_NAME,
19849: p_msg_name => G_FETCHING_INFO,
19850: p_token1 => G_REC_NAME_TOKEN,
19851: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19854: OKL_API.set_message(p_app_name => G_APP_NAME,
19855: p_msg_name => G_FETCHING_INFO,
19856: p_token1 => G_REC_NAME_TOKEN,
19849: p_msg_name => G_FETCHING_INFO,
19850: p_token1 => G_REC_NAME_TOKEN,
19851: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19854: OKL_API.set_message(p_app_name => G_APP_NAME,
19855: p_msg_name => G_FETCHING_INFO,
19856: p_token1 => G_REC_NAME_TOKEN,
19857: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19850: p_token1 => G_REC_NAME_TOKEN,
19851: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19853: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19854: OKL_API.set_message(p_app_name => G_APP_NAME,
19855: p_msg_name => G_FETCHING_INFO,
19856: p_token1 => G_REC_NAME_TOKEN,
19857: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19858: RAISE OKL_API.G_EXCEPTION_ERROR;
19854: OKL_API.set_message(p_app_name => G_APP_NAME,
19855: p_msg_name => G_FETCHING_INFO,
19856: p_token1 => G_REC_NAME_TOKEN,
19857: p_token1_value => 'OKL_TXL_ASSETS_V Record');
19858: RAISE OKL_API.G_EXCEPTION_ERROR;
19859: END IF;
19860: --Build talv fa item rec
19861: r_talv_fa_rec.current_units := ln_remain_inst;
19862: --akrangan Bug# 5362977 start
19895: x_clev_rec => l_clev_fa_rec_out,
19896: x_klev_rec => l_klev_fa_rec_out,
19897: x_cimv_rec => lx_cimv_fa_rec,
19898: x_talv_rec => lx_talv_fa_rec);
19899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19902: RAISE OKL_API.G_EXCEPTION_ERROR;
19903: END IF;
19896: x_klev_rec => l_klev_fa_rec_out,
19897: x_cimv_rec => lx_cimv_fa_rec,
19898: x_talv_rec => lx_talv_fa_rec);
19899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19902: RAISE OKL_API.G_EXCEPTION_ERROR;
19903: END IF;
19904: --akrangan Bug# 5362977 start
19897: x_cimv_rec => lx_cimv_fa_rec,
19898: x_talv_rec => lx_talv_fa_rec);
19899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19902: RAISE OKL_API.G_EXCEPTION_ERROR;
19903: END IF;
19904: --akrangan Bug# 5362977 start
19905: -- Update Tax Book details - okl_txd_assets_b
19898: x_talv_rec => lx_talv_fa_rec);
19899: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19900: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19901: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19902: RAISE OKL_API.G_EXCEPTION_ERROR;
19903: END IF;
19904: --akrangan Bug# 5362977 start
19905: -- Update Tax Book details - okl_txd_assets_b
19906: update_asset_line_details(p_api_version => p_api_version,
19910: x_msg_data => x_msg_data,
19911: p_asset_number => p_asset_number,
19912: p_original_cost => lx_talv_fa_rec.original_cost,
19913: p_tal_id => lx_talv_fa_rec.ID);
19914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19917: RAISE OKL_API.G_EXCEPTION_ERROR;
19918: END IF;
19911: p_asset_number => p_asset_number,
19912: p_original_cost => lx_talv_fa_rec.original_cost,
19913: p_tal_id => lx_talv_fa_rec.ID);
19914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19917: RAISE OKL_API.G_EXCEPTION_ERROR;
19918: END IF;
19919: --akrangan Bug# 5362977 end
19912: p_original_cost => lx_talv_fa_rec.original_cost,
19913: p_tal_id => lx_talv_fa_rec.ID);
19914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19917: RAISE OKL_API.G_EXCEPTION_ERROR;
19918: END IF;
19919: --akrangan Bug# 5362977 end
19920:
19913: p_tal_id => lx_talv_fa_rec.ID);
19914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19917: RAISE OKL_API.G_EXCEPTION_ERROR;
19918: END IF;
19919: --akrangan Bug# 5362977 end
19920:
19921: -- We need to change the status of the header whenever there is updating happening
19920:
19921: -- We need to change the status of the header whenever there is updating happening
19922: -- after the contract status is approved
19923: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
19924: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
19925: --cascade edit status on to lines
19926: okl_contract_status_pub.cascade_lease_status_edit
19927: (p_api_version => p_api_version,
19928: p_init_msg_list => p_init_msg_list,
19929: x_return_status => x_return_status,
19930: x_msg_count => x_msg_count,
19931: x_msg_data => x_msg_data,
19932: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19936: RAISE OKL_API.G_EXCEPTION_ERROR;
19937: END IF;
19930: x_msg_count => x_msg_count,
19931: x_msg_data => x_msg_data,
19932: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19936: RAISE OKL_API.G_EXCEPTION_ERROR;
19937: END IF;
19938: END IF;
19931: x_msg_data => x_msg_data,
19932: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19936: RAISE OKL_API.G_EXCEPTION_ERROR;
19937: END IF;
19938: END IF;
19939: OKL_API.END_ACTIVITY (x_msg_count,
19932: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
19933: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19934: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19936: RAISE OKL_API.G_EXCEPTION_ERROR;
19937: END IF;
19938: END IF;
19939: OKL_API.END_ACTIVITY (x_msg_count,
19940: x_msg_data );
19935: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19936: RAISE OKL_API.G_EXCEPTION_ERROR;
19937: END IF;
19938: END IF;
19939: OKL_API.END_ACTIVITY (x_msg_count,
19940: x_msg_data );
19941: EXCEPTION
19942: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19943: IF c_remain_inst_line%ISOPEN THEN
19938: END IF;
19939: OKL_API.END_ACTIVITY (x_msg_count,
19940: x_msg_data );
19941: EXCEPTION
19942: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19943: IF c_remain_inst_line%ISOPEN THEN
19944: CLOSE c_remain_inst_line;
19945: END IF;
19946: IF c_model_line%ISOPEN THEN
19954: END IF;
19955: IF c_model_item%ISOPEN THEN
19956: CLOSE c_model_item;
19957: END IF;
19958: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19959: l_api_name,
19960: G_PKG_NAME,
19961: 'OKL_API.G_RET_STS_ERROR',
19962: x_msg_count,
19957: END IF;
19958: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19959: l_api_name,
19960: G_PKG_NAME,
19961: 'OKL_API.G_RET_STS_ERROR',
19962: x_msg_count,
19963: x_msg_data,
19964: '_PVT');
19965: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19961: 'OKL_API.G_RET_STS_ERROR',
19962: x_msg_count,
19963: x_msg_data,
19964: '_PVT');
19965: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19966: IF c_remain_inst_line%ISOPEN THEN
19967: CLOSE c_remain_inst_line;
19968: END IF;
19969: IF c_model_line%ISOPEN THEN
19977: END IF;
19978: IF c_model_item%ISOPEN THEN
19979: CLOSE c_model_item;
19980: END IF;
19981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19982: l_api_name,
19983: G_PKG_NAME,
19984: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19985: x_msg_count,
19980: END IF;
19981: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19982: l_api_name,
19983: G_PKG_NAME,
19984: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19985: x_msg_count,
19986: x_msg_data,
19987: '_PVT');
19988: WHEN OTHERS THEN
20000: END IF;
20001: IF c_model_item%ISOPEN THEN
20002: CLOSE c_model_item;
20003: END IF;
20004: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20005: l_api_name,
20006: G_PKG_NAME,
20007: 'OTHERS',
20008: x_msg_count,
20030: l_clev_ib_tbl clev_tbl_type := p_clev_ib_tbl;
20031: l_clev_ib_rec clev_rec_type;
20032: l_clev_inst_rec clev_rec_type;
20033: ln_remain_inst NUMBER := 0;
20034: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
20035: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
20036: r_clev_model_rec clev_rec_type;
20037: r_klev_model_rec klev_rec_type;
20038: r_cimv_model_rec cimv_rec_type;
20031: l_clev_ib_rec clev_rec_type;
20032: l_clev_inst_rec clev_rec_type;
20033: ln_remain_inst NUMBER := 0;
20034: ln_model_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
20035: ln_fa_line_id OKC_K_LINES_V.ID%TYPE := OKL_API.G_MISS_NUM;
20036: r_clev_model_rec clev_rec_type;
20037: r_klev_model_rec klev_rec_type;
20038: r_cimv_model_rec cimv_rec_type;
20039: r_clev_fa_rec clev_rec_type;
20185: --Bug# 5362977 end
20186:
20187:
20188: BEGIN
20189: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20190: -- Call start_activity to create savepoint, check compatibility
20191: -- and initialize message list
20192: x_return_status := OKL_API.START_ACTIVITY (
20193: l_api_name
20188: BEGIN
20189: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20190: -- Call start_activity to create savepoint, check compatibility
20191: -- and initialize message list
20192: x_return_status := OKL_API.START_ACTIVITY (
20193: l_api_name
20194: ,p_init_msg_list
20195: ,'_PVT'
20196: ,x_return_status);
20194: ,p_init_msg_list
20195: ,'_PVT'
20196: ,x_return_status);
20197: -- Check if activity started successfully
20198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20201: RAISE OKL_API.G_EXCEPTION_ERROR;
20202: END IF;
20195: ,'_PVT'
20196: ,x_return_status);
20197: -- Check if activity started successfully
20198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20201: RAISE OKL_API.G_EXCEPTION_ERROR;
20202: END IF;
20203: IF l_clev_ib_tbl.COUNT > 0 THEN
20196: ,x_return_status);
20197: -- Check if activity started successfully
20198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20201: RAISE OKL_API.G_EXCEPTION_ERROR;
20202: END IF;
20203: IF l_clev_ib_tbl.COUNT > 0 THEN
20204: -- We have intialize the J , since there could be any index integer
20197: -- Check if activity started successfully
20198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20201: RAISE OKL_API.G_EXCEPTION_ERROR;
20202: END IF;
20203: IF l_clev_ib_tbl.COUNT > 0 THEN
20204: -- We have intialize the J , since there could be any index integer
20205: j := l_clev_ib_tbl.FIRST;
20204: -- We have intialize the J , since there could be any index integer
20205: j := l_clev_ib_tbl.FIRST;
20206: LOOP
20207: IF l_clev_ib_tbl(j).id IS NUll OR
20208: l_clev_ib_tbl(j).id = OKL_API.G_MISS_NUM THEN
20209: OKL_API.set_message(p_app_name => G_APP_NAME,
20210: p_msg_name => G_REQUIRED_VALUE,
20211: p_token1 => G_COL_NAME_TOKEN,
20212: p_token1_value => 'IB OKC_K_LINES_B.ID');
20205: j := l_clev_ib_tbl.FIRST;
20206: LOOP
20207: IF l_clev_ib_tbl(j).id IS NUll OR
20208: l_clev_ib_tbl(j).id = OKL_API.G_MISS_NUM THEN
20209: OKL_API.set_message(p_app_name => G_APP_NAME,
20210: p_msg_name => G_REQUIRED_VALUE,
20211: p_token1 => G_COL_NAME_TOKEN,
20212: p_token1_value => 'IB OKC_K_LINES_B.ID');
20213: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20209: OKL_API.set_message(p_app_name => G_APP_NAME,
20210: p_msg_name => G_REQUIRED_VALUE,
20211: p_token1 => G_COL_NAME_TOKEN,
20212: p_token1_value => 'IB OKC_K_LINES_B.ID');
20213: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20214: END IF;
20215: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
20216: l_clev_ib_rec);
20217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20213: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20214: END IF;
20215: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
20216: l_clev_ib_rec);
20217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20218: OKL_API.set_message(p_app_name => G_APP_NAME,
20219: p_msg_name => G_FETCHING_INFO,
20220: p_token1 => G_REC_NAME_TOKEN,
20221: p_token1_value => 'OKC_K_LINES_V Record');
20214: END IF;
20215: x_return_status := get_rec_clev(l_clev_ib_tbl(j).id,
20216: l_clev_ib_rec);
20217: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20218: OKL_API.set_message(p_app_name => G_APP_NAME,
20219: p_msg_name => G_FETCHING_INFO,
20220: p_token1 => G_REC_NAME_TOKEN,
20221: p_token1_value => 'OKC_K_LINES_V Record');
20222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20218: OKL_API.set_message(p_app_name => G_APP_NAME,
20219: p_msg_name => G_FETCHING_INFO,
20220: p_token1 => G_REC_NAME_TOKEN,
20221: p_token1_value => 'OKC_K_LINES_V Record');
20222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20224: OKL_API.set_message(p_app_name => G_APP_NAME,
20225: p_msg_name => G_FETCHING_INFO,
20226: p_token1 => G_REC_NAME_TOKEN,
20219: p_msg_name => G_FETCHING_INFO,
20220: p_token1 => G_REC_NAME_TOKEN,
20221: p_token1_value => 'OKC_K_LINES_V Record');
20222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20224: OKL_API.set_message(p_app_name => G_APP_NAME,
20225: p_msg_name => G_FETCHING_INFO,
20226: p_token1 => G_REC_NAME_TOKEN,
20227: p_token1_value => 'OKC_K_LINES_V Record');
20220: p_token1 => G_REC_NAME_TOKEN,
20221: p_token1_value => 'OKC_K_LINES_V Record');
20222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20223: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20224: OKL_API.set_message(p_app_name => G_APP_NAME,
20225: p_msg_name => G_FETCHING_INFO,
20226: p_token1 => G_REC_NAME_TOKEN,
20227: p_token1_value => 'OKC_K_LINES_V Record');
20228: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20224: OKL_API.set_message(p_app_name => G_APP_NAME,
20225: p_msg_name => G_FETCHING_INFO,
20226: p_token1 => G_REC_NAME_TOKEN,
20227: p_token1_value => 'OKC_K_LINES_V Record');
20228: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20229: END IF;
20230: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
20231: l_clev_inst_rec);
20232: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20228: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20229: END IF;
20230: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
20231: l_clev_inst_rec);
20232: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20233: OKL_API.set_message(p_app_name => G_APP_NAME,
20234: p_msg_name => G_FETCHING_INFO,
20235: p_token1 => G_REC_NAME_TOKEN,
20236: p_token1_value => 'OKC_K_LINES_V Record');
20229: END IF;
20230: x_return_status := get_rec_clev(l_clev_ib_rec.cle_id,
20231: l_clev_inst_rec);
20232: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20233: OKL_API.set_message(p_app_name => G_APP_NAME,
20234: p_msg_name => G_FETCHING_INFO,
20235: p_token1 => G_REC_NAME_TOKEN,
20236: p_token1_value => 'OKC_K_LINES_V Record');
20237: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20233: OKL_API.set_message(p_app_name => G_APP_NAME,
20234: p_msg_name => G_FETCHING_INFO,
20235: p_token1 => G_REC_NAME_TOKEN,
20236: p_token1_value => 'OKC_K_LINES_V Record');
20237: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20239: OKL_API.set_message(p_app_name => G_APP_NAME,
20240: p_msg_name => G_FETCHING_INFO,
20241: p_token1 => G_REC_NAME_TOKEN,
20234: p_msg_name => G_FETCHING_INFO,
20235: p_token1 => G_REC_NAME_TOKEN,
20236: p_token1_value => 'OKC_K_LINES_V Record');
20237: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20239: OKL_API.set_message(p_app_name => G_APP_NAME,
20240: p_msg_name => G_FETCHING_INFO,
20241: p_token1 => G_REC_NAME_TOKEN,
20242: p_token1_value => 'OKC_K_LINES_V Record');
20235: p_token1 => G_REC_NAME_TOKEN,
20236: p_token1_value => 'OKC_K_LINES_V Record');
20237: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20238: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20239: OKL_API.set_message(p_app_name => G_APP_NAME,
20240: p_msg_name => G_FETCHING_INFO,
20241: p_token1 => G_REC_NAME_TOKEN,
20242: p_token1_value => 'OKC_K_LINES_V Record');
20243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20239: OKL_API.set_message(p_app_name => G_APP_NAME,
20240: p_msg_name => G_FETCHING_INFO,
20241: p_token1 => G_REC_NAME_TOKEN,
20242: p_token1_value => 'OKC_K_LINES_V Record');
20243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20244: END IF;
20245:
20246: -- we should get the remaining inst line , so that we can update
20247: -- the fixed line , model line and also update the top line with latest OEC
20247: -- the fixed line , model line and also update the top line with latest OEC
20248: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
20249: l_clev_inst_rec.dnz_chr_id);
20250: IF c_remain_inst_line%NOTFOUND THEN
20251: OKL_API.set_message(p_app_name => G_APP_NAME,
20252: p_msg_name => G_DELETING_INSTS_LINE);
20253: x_return_status := OKL_API.G_RET_STS_ERROR;
20254: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20255: END IF;
20249: l_clev_inst_rec.dnz_chr_id);
20250: IF c_remain_inst_line%NOTFOUND THEN
20251: OKL_API.set_message(p_app_name => G_APP_NAME,
20252: p_msg_name => G_DELETING_INSTS_LINE);
20253: x_return_status := OKL_API.G_RET_STS_ERROR;
20254: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20255: END IF;
20256: FETCH c_remain_inst_line INTO ln_remain_inst;
20257: CLOSE c_remain_inst_line;
20250: IF c_remain_inst_line%NOTFOUND THEN
20251: OKL_API.set_message(p_app_name => G_APP_NAME,
20252: p_msg_name => G_DELETING_INSTS_LINE);
20253: x_return_status := OKL_API.G_RET_STS_ERROR;
20254: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20255: END IF;
20256: FETCH c_remain_inst_line INTO ln_remain_inst;
20257: CLOSE c_remain_inst_line;
20258:
20260: -- has to update the MFG_FLAG to 'N' and nullify the serial number.
20261: IF ln_remain_inst < 2 THEN
20262: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
20263: l_itiv_rec);
20264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20265: OKL_API.set_message(p_app_name => G_APP_NAME,
20266: p_msg_name => G_FETCHING_INFO,
20267: p_token1 => G_REC_NAME_TOKEN,
20268: p_token1_value => 'OKC_K_LINES_V Record');
20261: IF ln_remain_inst < 2 THEN
20262: x_return_status := get_rec_itiv(l_clev_ib_rec.id,
20263: l_itiv_rec);
20264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20265: OKL_API.set_message(p_app_name => G_APP_NAME,
20266: p_msg_name => G_FETCHING_INFO,
20267: p_token1 => G_REC_NAME_TOKEN,
20268: p_token1_value => 'OKC_K_LINES_V Record');
20269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20265: OKL_API.set_message(p_app_name => G_APP_NAME,
20266: p_msg_name => G_FETCHING_INFO,
20267: p_token1 => G_REC_NAME_TOKEN,
20268: p_token1_value => 'OKC_K_LINES_V Record');
20269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20271: OKL_API.set_message(p_app_name => G_APP_NAME,
20272: p_msg_name => G_FETCHING_INFO,
20273: p_token1 => G_REC_NAME_TOKEN,
20266: p_msg_name => G_FETCHING_INFO,
20267: p_token1 => G_REC_NAME_TOKEN,
20268: p_token1_value => 'OKC_K_LINES_V Record');
20269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20271: OKL_API.set_message(p_app_name => G_APP_NAME,
20272: p_msg_name => G_FETCHING_INFO,
20273: p_token1 => G_REC_NAME_TOKEN,
20274: p_token1_value => 'OKC_K_LINES_V Record');
20267: p_token1 => G_REC_NAME_TOKEN,
20268: p_token1_value => 'OKC_K_LINES_V Record');
20269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20271: OKL_API.set_message(p_app_name => G_APP_NAME,
20272: p_msg_name => G_FETCHING_INFO,
20273: p_token1 => G_REC_NAME_TOKEN,
20274: p_token1_value => 'OKC_K_LINES_V Record');
20275: RAISE OKL_API.G_EXCEPTION_ERROR;
20271: OKL_API.set_message(p_app_name => G_APP_NAME,
20272: p_msg_name => G_FETCHING_INFO,
20273: p_token1 => G_REC_NAME_TOKEN,
20274: p_token1_value => 'OKC_K_LINES_V Record');
20275: RAISE OKL_API.G_EXCEPTION_ERROR;
20276: END IF;
20277:
20278: l_itiv_rec.mfg_serial_number_yn := 'N';
20279: l_itiv_rec.serial_number := null;
20284: x_msg_count => x_msg_count,
20285: x_msg_data => x_msg_data,
20286: p_itiv_rec => l_itiv_rec,
20287: x_itiv_rec => lx_itiv_rec);
20288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20289: OKL_API.set_message(p_app_name => G_APP_NAME,
20290: p_msg_name => G_ITI_ID);
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20285: x_msg_data => x_msg_data,
20286: p_itiv_rec => l_itiv_rec,
20287: x_itiv_rec => lx_itiv_rec);
20288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20289: OKL_API.set_message(p_app_name => G_APP_NAME,
20290: p_msg_name => G_ITI_ID);
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20293: OKL_API.set_message(p_app_name => G_APP_NAME,
20287: x_itiv_rec => lx_itiv_rec);
20288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20289: OKL_API.set_message(p_app_name => G_APP_NAME,
20290: p_msg_name => G_ITI_ID);
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20293: OKL_API.set_message(p_app_name => G_APP_NAME,
20294: p_msg_name => G_ITI_ID);
20295: RAISE OKL_API.G_EXCEPTION_ERROR;
20288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20289: OKL_API.set_message(p_app_name => G_APP_NAME,
20290: p_msg_name => G_ITI_ID);
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20293: OKL_API.set_message(p_app_name => G_APP_NAME,
20294: p_msg_name => G_ITI_ID);
20295: RAISE OKL_API.G_EXCEPTION_ERROR;
20296: END IF;
20289: OKL_API.set_message(p_app_name => G_APP_NAME,
20290: p_msg_name => G_ITI_ID);
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20293: OKL_API.set_message(p_app_name => G_APP_NAME,
20294: p_msg_name => G_ITI_ID);
20295: RAISE OKL_API.G_EXCEPTION_ERROR;
20296: END IF;
20297: lb_last_record_updated := TRUE;
20291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20293: OKL_API.set_message(p_app_name => G_APP_NAME,
20294: p_msg_name => G_ITI_ID);
20295: RAISE OKL_API.G_EXCEPTION_ERROR;
20296: END IF;
20297: lb_last_record_updated := TRUE;
20298: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20299: p_msg_name => G_MIN_INST_LINE);
20294: p_msg_name => G_ITI_ID);
20295: RAISE OKL_API.G_EXCEPTION_ERROR;
20296: END IF;
20297: lb_last_record_updated := TRUE;
20298: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20299: p_msg_name => G_MIN_INST_LINE);
20300: x_return_status := OKL_API.G_RET_STS_ERROR;
20301: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20302: END IF;
20296: END IF;
20297: lb_last_record_updated := TRUE;
20298: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20299: p_msg_name => G_MIN_INST_LINE);
20300: x_return_status := OKL_API.G_RET_STS_ERROR;
20301: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20302: END IF;
20303:
20304: IF (NOT lb_last_record_updated) THEN
20297: lb_last_record_updated := TRUE;
20298: /* OKL_API.set_message(p_app_name => G_APP_NAME,
20299: p_msg_name => G_MIN_INST_LINE);
20300: x_return_status := OKL_API.G_RET_STS_ERROR;
20301: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);*/
20302: END IF;
20303:
20304: IF (NOT lb_last_record_updated) THEN
20305: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20303:
20304: IF (NOT lb_last_record_updated) THEN
20305: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20306: x_return_status => x_return_status);
20307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20308: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20310: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20311: END IF;
20304: IF (NOT lb_last_record_updated) THEN
20305: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20306: x_return_status => x_return_status);
20307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20308: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20310: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20311: END IF;
20312: --Bug# 5362977 start
20305: validate_sts_code(p_clev_rec => l_clev_inst_rec,
20306: x_return_status => x_return_status);
20307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20308: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20310: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20311: END IF;
20312: --Bug# 5362977 start
20313: -- Do not allow update of units if the contract has Re-lease assets
20306: x_return_status => x_return_status);
20307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20308: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20310: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20311: END IF;
20312: --Bug# 5362977 start
20313: -- Do not allow update of units if the contract has Re-lease assets
20314: l_chk_rel_ast := 'N';
20322: FETCH l_chk_rel_ast_csr INTO l_chk_rel_ast;
20323: CLOSE l_chk_rel_ast_csr;
20324:
20325: IF l_chk_rel_ast = 'Y' THEN
20326: OKL_API.set_message(p_app_name => G_APP_NAME,
20327: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
20328: RAISE OKL_API.G_EXCEPTION_ERROR;
20329: END IF;
20330: --Bug# 5362977 end
20324:
20325: IF l_chk_rel_ast = 'Y' THEN
20326: OKL_API.set_message(p_app_name => G_APP_NAME,
20327: p_msg_name => 'OKL_LA_REL_UNITS_NO_UPDATE');
20328: RAISE OKL_API.G_EXCEPTION_ERROR;
20329: END IF;
20330: --Bug# 5362977 end
20331:
20332: OKL_CONTRACT_PUB.delete_contract_line(
20335: x_return_status => x_return_status,
20336: x_msg_count => x_msg_count,
20337: x_msg_data => x_msg_data,
20338: p_line_id => l_clev_inst_rec.id);
20339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20340: OKL_API.set_message(p_app_name => G_APP_NAME,
20341: p_msg_name => G_DELETING_IB_LINE);
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20336: x_msg_count => x_msg_count,
20337: x_msg_data => x_msg_data,
20338: p_line_id => l_clev_inst_rec.id);
20339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20340: OKL_API.set_message(p_app_name => G_APP_NAME,
20341: p_msg_name => G_DELETING_IB_LINE);
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20344: OKL_API.set_message(p_app_name => G_APP_NAME,
20338: p_line_id => l_clev_inst_rec.id);
20339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20340: OKL_API.set_message(p_app_name => G_APP_NAME,
20341: p_msg_name => G_DELETING_IB_LINE);
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20344: OKL_API.set_message(p_app_name => G_APP_NAME,
20345: p_msg_name => G_DELETING_IB_LINE);
20346: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20339: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20340: OKL_API.set_message(p_app_name => G_APP_NAME,
20341: p_msg_name => G_DELETING_IB_LINE);
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20344: OKL_API.set_message(p_app_name => G_APP_NAME,
20345: p_msg_name => G_DELETING_IB_LINE);
20346: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20347: END IF;
20340: OKL_API.set_message(p_app_name => G_APP_NAME,
20341: p_msg_name => G_DELETING_IB_LINE);
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20344: OKL_API.set_message(p_app_name => G_APP_NAME,
20345: p_msg_name => G_DELETING_IB_LINE);
20346: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20347: END IF;
20348: END IF;
20342: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20344: OKL_API.set_message(p_app_name => G_APP_NAME,
20345: p_msg_name => G_DELETING_IB_LINE);
20346: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20347: END IF;
20348: END IF;
20349: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20350: j := l_clev_ib_tbl.NEXT(j);
20348: END IF;
20349: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20350: j := l_clev_ib_tbl.NEXT(j);
20351: END LOOP;
20352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20355: RAISE OKL_API.G_EXCEPTION_ERROR;
20356: END IF;
20349: EXIT WHEN (j = l_clev_ib_tbl.LAST);
20350: j := l_clev_ib_tbl.NEXT(j);
20351: END LOOP;
20352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20355: RAISE OKL_API.G_EXCEPTION_ERROR;
20356: END IF;
20357: ELSE
20350: j := l_clev_ib_tbl.NEXT(j);
20351: END LOOP;
20352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20355: RAISE OKL_API.G_EXCEPTION_ERROR;
20356: END IF;
20357: ELSE
20358: OKL_API.set_message(p_app_name => G_APP_NAME,
20351: END LOOP;
20352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20355: RAISE OKL_API.G_EXCEPTION_ERROR;
20356: END IF;
20357: ELSE
20358: OKL_API.set_message(p_app_name => G_APP_NAME,
20359: p_msg_name => G_CNT_REC);
20354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20355: RAISE OKL_API.G_EXCEPTION_ERROR;
20356: END IF;
20357: ELSE
20358: OKL_API.set_message(p_app_name => G_APP_NAME,
20359: p_msg_name => G_CNT_REC);
20360: RAISE OKL_API.G_EXCEPTION_ERROR;
20361: END IF;
20362: -- we should get the remaining inst line , so that we can update
20356: END IF;
20357: ELSE
20358: OKL_API.set_message(p_app_name => G_APP_NAME,
20359: p_msg_name => G_CNT_REC);
20360: RAISE OKL_API.G_EXCEPTION_ERROR;
20361: END IF;
20362: -- we should get the remaining inst line , so that we can update
20363: -- the fixed line , model line and also update the top line with latest OEC
20364: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
20363: -- the fixed line , model line and also update the top line with latest OEC
20364: OPEN c_remain_inst_line(l_clev_inst_rec.cle_id,
20365: l_clev_inst_rec.dnz_chr_id);
20366: IF c_remain_inst_line%NOTFOUND THEN
20367: OKL_API.set_message(p_app_name => G_APP_NAME,
20368: p_msg_name => G_DELETING_INSTS_LINE);
20369: RAISE OKL_API.G_EXCEPTION_ERROR;
20370: END IF;
20371: FETCH c_remain_inst_line INTO ln_remain_inst;
20365: l_clev_inst_rec.dnz_chr_id);
20366: IF c_remain_inst_line%NOTFOUND THEN
20367: OKL_API.set_message(p_app_name => G_APP_NAME,
20368: p_msg_name => G_DELETING_INSTS_LINE);
20369: RAISE OKL_API.G_EXCEPTION_ERROR;
20370: END IF;
20371: FETCH c_remain_inst_line INTO ln_remain_inst;
20372: CLOSE c_remain_inst_line;
20373: -- To get the Model Line
20374: -- Since we have update the model line
20375: OPEN c_model_line(l_clev_inst_rec.cle_id,
20376: l_clev_inst_rec.dnz_chr_id);
20377: IF c_model_line%NOTFOUND THEN
20378: OKL_API.set_message(p_app_name => G_APP_NAME,
20379: p_msg_name => G_NO_MATCHING_RECORD,
20380: p_token1 => G_COL_NAME_TOKEN,
20381: p_token1_value => 'Model Asset Line record');
20382: RAISE OKL_API.G_EXCEPTION_ERROR;
20378: OKL_API.set_message(p_app_name => G_APP_NAME,
20379: p_msg_name => G_NO_MATCHING_RECORD,
20380: p_token1 => G_COL_NAME_TOKEN,
20381: p_token1_value => 'Model Asset Line record');
20382: RAISE OKL_API.G_EXCEPTION_ERROR;
20383: END IF;
20384: FETCH c_model_line INTO ln_model_line_id;
20385: CLOSE c_model_line;
20386: -- To get the Fixed Asset Line
20387: -- Since we have update the Fixed Asset Line
20388: OPEN c_fa_line(l_clev_inst_rec.cle_id,
20389: l_clev_inst_rec.dnz_chr_id);
20390: IF c_fa_line%NOTFOUND THEN
20391: OKL_API.set_message(p_app_name => G_APP_NAME,
20392: p_msg_name => G_NO_MATCHING_RECORD,
20393: p_token1 => G_COL_NAME_TOKEN,
20394: p_token1_value => 'Fixed Asset Line record');
20395: RAISE OKL_API.G_EXCEPTION_ERROR;
20391: OKL_API.set_message(p_app_name => G_APP_NAME,
20392: p_msg_name => G_NO_MATCHING_RECORD,
20393: p_token1 => G_COL_NAME_TOKEN,
20394: p_token1_value => 'Fixed Asset Line record');
20395: RAISE OKL_API.G_EXCEPTION_ERROR;
20396: END IF;
20397: FETCH c_fa_line INTO ln_fa_line_id;
20398: CLOSE c_fa_line;
20399: --We have to build the Model Line Record for the calculations of the
20400: -- oec of the top line
20401: -- To Get the cle Model Line Record
20402: x_return_status := get_rec_clev(ln_model_line_id,
20403: r_clev_model_rec);
20404: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20405: OKL_API.set_message(p_app_name => G_APP_NAME,
20406: p_msg_name => G_FETCHING_INFO,
20407: p_token1 => G_REC_NAME_TOKEN,
20408: p_token1_value => 'OKC_K_LINES_V Record');
20401: -- To Get the cle Model Line Record
20402: x_return_status := get_rec_clev(ln_model_line_id,
20403: r_clev_model_rec);
20404: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20405: OKL_API.set_message(p_app_name => G_APP_NAME,
20406: p_msg_name => G_FETCHING_INFO,
20407: p_token1 => G_REC_NAME_TOKEN,
20408: p_token1_value => 'OKC_K_LINES_V Record');
20409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20405: OKL_API.set_message(p_app_name => G_APP_NAME,
20406: p_msg_name => G_FETCHING_INFO,
20407: p_token1 => G_REC_NAME_TOKEN,
20408: p_token1_value => 'OKC_K_LINES_V Record');
20409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20411: OKL_API.set_message(p_app_name => G_APP_NAME,
20412: p_msg_name => G_FETCHING_INFO,
20413: p_token1 => G_REC_NAME_TOKEN,
20406: p_msg_name => G_FETCHING_INFO,
20407: p_token1 => G_REC_NAME_TOKEN,
20408: p_token1_value => 'OKC_K_LINES_V Record');
20409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20411: OKL_API.set_message(p_app_name => G_APP_NAME,
20412: p_msg_name => G_FETCHING_INFO,
20413: p_token1 => G_REC_NAME_TOKEN,
20414: p_token1_value => 'OKC_K_LINES_V Record');
20407: p_token1 => G_REC_NAME_TOKEN,
20408: p_token1_value => 'OKC_K_LINES_V Record');
20409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20411: OKL_API.set_message(p_app_name => G_APP_NAME,
20412: p_msg_name => G_FETCHING_INFO,
20413: p_token1 => G_REC_NAME_TOKEN,
20414: p_token1_value => 'OKC_K_LINES_V Record');
20415: RAISE OKL_API.G_EXCEPTION_ERROR;
20411: OKL_API.set_message(p_app_name => G_APP_NAME,
20412: p_msg_name => G_FETCHING_INFO,
20413: p_token1 => G_REC_NAME_TOKEN,
20414: p_token1_value => 'OKC_K_LINES_V Record');
20415: RAISE OKL_API.G_EXCEPTION_ERROR;
20416: END IF;
20417: -- To Get the kle Model Line Record
20418: x_return_status := get_rec_klev(ln_model_line_id,
20419: r_klev_model_rec);
20416: END IF;
20417: -- To Get the kle Model Line Record
20418: x_return_status := get_rec_klev(ln_model_line_id,
20419: r_klev_model_rec);
20420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20421: OKL_API.set_message(p_app_name => G_APP_NAME,
20422: p_msg_name => G_FETCHING_INFO,
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20417: -- To Get the kle Model Line Record
20418: x_return_status := get_rec_klev(ln_model_line_id,
20419: r_klev_model_rec);
20420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20421: OKL_API.set_message(p_app_name => G_APP_NAME,
20422: p_msg_name => G_FETCHING_INFO,
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20421: OKL_API.set_message(p_app_name => G_APP_NAME,
20422: p_msg_name => G_FETCHING_INFO,
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20429: p_token1 => G_REC_NAME_TOKEN,
20422: p_msg_name => G_FETCHING_INFO,
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20429: p_token1 => G_REC_NAME_TOKEN,
20430: p_token1_value => 'OKL_K_LINES_V Record');
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20429: p_token1 => G_REC_NAME_TOKEN,
20430: p_token1_value => 'OKL_K_LINES_V Record');
20431: RAISE OKL_API.G_EXCEPTION_ERROR;
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20429: p_token1 => G_REC_NAME_TOKEN,
20430: p_token1_value => 'OKL_K_LINES_V Record');
20431: RAISE OKL_API.G_EXCEPTION_ERROR;
20432: END IF;
20433: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20434: OKL_API.set_message(p_app_name => G_APP_NAME,
20435: p_msg_name => G_LINE_RECORD);
20430: p_token1_value => 'OKL_K_LINES_V Record');
20431: RAISE OKL_API.G_EXCEPTION_ERROR;
20432: END IF;
20433: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20434: OKL_API.set_message(p_app_name => G_APP_NAME,
20435: p_msg_name => G_LINE_RECORD);
20436: RAISE OKL_API.G_EXCEPTION_ERROR;
20437: END IF;
20438: -- To Get the cimv Model Line Record
20432: END IF;
20433: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20434: OKL_API.set_message(p_app_name => G_APP_NAME,
20435: p_msg_name => G_LINE_RECORD);
20436: RAISE OKL_API.G_EXCEPTION_ERROR;
20437: END IF;
20438: -- To Get the cimv Model Line Record
20439: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20440: r_clev_model_rec.dnz_chr_id,
20438: -- To Get the cimv Model Line Record
20439: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20440: r_clev_model_rec.dnz_chr_id,
20441: r_cimv_model_rec);
20442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20443: OKL_API.set_message(p_app_name => G_APP_NAME,
20444: p_msg_name => G_FETCHING_INFO,
20445: p_token1 => G_REC_NAME_TOKEN,
20446: p_token1_value => 'OKC_K_ITEMS_V Record');
20439: x_return_status := get_rec_cimv(r_clev_model_rec.id,
20440: r_clev_model_rec.dnz_chr_id,
20441: r_cimv_model_rec);
20442: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20443: OKL_API.set_message(p_app_name => G_APP_NAME,
20444: p_msg_name => G_FETCHING_INFO,
20445: p_token1 => G_REC_NAME_TOKEN,
20446: p_token1_value => 'OKC_K_ITEMS_V Record');
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20443: OKL_API.set_message(p_app_name => G_APP_NAME,
20444: p_msg_name => G_FETCHING_INFO,
20445: p_token1 => G_REC_NAME_TOKEN,
20446: p_token1_value => 'OKC_K_ITEMS_V Record');
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20449: OKL_API.set_message(p_app_name => G_APP_NAME,
20450: p_msg_name => G_FETCHING_INFO,
20451: p_token1 => G_REC_NAME_TOKEN,
20444: p_msg_name => G_FETCHING_INFO,
20445: p_token1 => G_REC_NAME_TOKEN,
20446: p_token1_value => 'OKC_K_ITEMS_V Record');
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20449: OKL_API.set_message(p_app_name => G_APP_NAME,
20450: p_msg_name => G_FETCHING_INFO,
20451: p_token1 => G_REC_NAME_TOKEN,
20452: p_token1_value => 'OKC_K_ITEMS_V Record');
20445: p_token1 => G_REC_NAME_TOKEN,
20446: p_token1_value => 'OKC_K_ITEMS_V Record');
20447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20448: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20449: OKL_API.set_message(p_app_name => G_APP_NAME,
20450: p_msg_name => G_FETCHING_INFO,
20451: p_token1 => G_REC_NAME_TOKEN,
20452: p_token1_value => 'OKC_K_ITEMS_V Record');
20453: RAISE OKL_API.G_EXCEPTION_ERROR;
20449: OKL_API.set_message(p_app_name => G_APP_NAME,
20450: p_msg_name => G_FETCHING_INFO,
20451: p_token1 => G_REC_NAME_TOKEN,
20452: p_token1_value => 'OKC_K_ITEMS_V Record');
20453: RAISE OKL_API.G_EXCEPTION_ERROR;
20454: END IF;
20455: --Build Model cimv item rec
20456: r_cimv_model_rec.number_of_items := ln_remain_inst;
20457: -- Updating of the Model Line and Item Record
20467: p_cimv_rec => r_cimv_model_rec,
20468: x_clev_rec => l_clev_model_rec_out,
20469: x_klev_rec => l_klev_model_rec_out,
20470: x_cimv_rec => x_cimv_model_rec);
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: x_clev_rec => l_clev_model_rec_out,
20469: x_klev_rec => l_klev_model_rec_out,
20470: x_cimv_rec => x_cimv_model_rec);
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: -- We need to check if there are add on line and then we update the Addon number of items also
20469: x_klev_rec => l_klev_model_rec_out,
20470: x_cimv_rec => x_cimv_model_rec);
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: -- We need to check if there are add on line and then we update the Addon number of items also
20477: -- Since there can be multiple Addo lines
20470: x_cimv_rec => x_cimv_model_rec);
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: -- We need to check if there are add on line and then we update the Addon number of items also
20477: -- Since there can be multiple Addo lines
20478: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => l_clev_model_rec_out.cle_id,
20481: -- oec of the top line
20482: -- To Get the cle addon Line Record
20483: x_return_status := get_rec_clev(r_addon_line_id.id,
20484: r_clev_addon_rec);
20485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20486: OKL_API.set_message(p_app_name => G_APP_NAME,
20487: p_msg_name => G_FETCHING_INFO,
20488: p_token1 => G_REC_NAME_TOKEN,
20489: p_token1_value => 'OKC_K_LINES_V Record');
20482: -- To Get the cle addon Line Record
20483: x_return_status := get_rec_clev(r_addon_line_id.id,
20484: r_clev_addon_rec);
20485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20486: OKL_API.set_message(p_app_name => G_APP_NAME,
20487: p_msg_name => G_FETCHING_INFO,
20488: p_token1 => G_REC_NAME_TOKEN,
20489: p_token1_value => 'OKC_K_LINES_V Record');
20490: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20486: OKL_API.set_message(p_app_name => G_APP_NAME,
20487: p_msg_name => G_FETCHING_INFO,
20488: p_token1 => G_REC_NAME_TOKEN,
20489: p_token1_value => 'OKC_K_LINES_V Record');
20490: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20492: OKL_API.set_message(p_app_name => G_APP_NAME,
20493: p_msg_name => G_FETCHING_INFO,
20494: p_token1 => G_REC_NAME_TOKEN,
20487: p_msg_name => G_FETCHING_INFO,
20488: p_token1 => G_REC_NAME_TOKEN,
20489: p_token1_value => 'OKC_K_LINES_V Record');
20490: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20492: OKL_API.set_message(p_app_name => G_APP_NAME,
20493: p_msg_name => G_FETCHING_INFO,
20494: p_token1 => G_REC_NAME_TOKEN,
20495: p_token1_value => 'OKC_K_LINES_V Record');
20488: p_token1 => G_REC_NAME_TOKEN,
20489: p_token1_value => 'OKC_K_LINES_V Record');
20490: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20491: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20492: OKL_API.set_message(p_app_name => G_APP_NAME,
20493: p_msg_name => G_FETCHING_INFO,
20494: p_token1 => G_REC_NAME_TOKEN,
20495: p_token1_value => 'OKC_K_LINES_V Record');
20496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20492: OKL_API.set_message(p_app_name => G_APP_NAME,
20493: p_msg_name => G_FETCHING_INFO,
20494: p_token1 => G_REC_NAME_TOKEN,
20495: p_token1_value => 'OKC_K_LINES_V Record');
20496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20497: END IF;
20498: -- To Get the kle Model Line Record
20499: x_return_status := get_rec_klev(r_addon_line_id.id,
20500: r_klev_addon_rec);
20497: END IF;
20498: -- To Get the kle Model Line Record
20499: x_return_status := get_rec_klev(r_addon_line_id.id,
20500: r_klev_addon_rec);
20501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20502: OKL_API.set_message(p_app_name => G_APP_NAME,
20503: p_msg_name => G_FETCHING_INFO,
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20498: -- To Get the kle Model Line Record
20499: x_return_status := get_rec_klev(r_addon_line_id.id,
20500: r_klev_addon_rec);
20501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20502: OKL_API.set_message(p_app_name => G_APP_NAME,
20503: p_msg_name => G_FETCHING_INFO,
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20502: OKL_API.set_message(p_app_name => G_APP_NAME,
20503: p_msg_name => G_FETCHING_INFO,
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20510: p_token1 => G_REC_NAME_TOKEN,
20503: p_msg_name => G_FETCHING_INFO,
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20510: p_token1 => G_REC_NAME_TOKEN,
20511: p_token1_value => 'OKL_K_LINES_V Record');
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20510: p_token1 => G_REC_NAME_TOKEN,
20511: p_token1_value => 'OKL_K_LINES_V Record');
20512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20510: p_token1 => G_REC_NAME_TOKEN,
20511: p_token1_value => 'OKL_K_LINES_V Record');
20512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20513: END IF;
20514: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20515: OKL_API.set_message(p_app_name => G_APP_NAME,
20516: p_msg_name => G_LINE_RECORD);
20511: p_token1_value => 'OKL_K_LINES_V Record');
20512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20513: END IF;
20514: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20515: OKL_API.set_message(p_app_name => G_APP_NAME,
20516: p_msg_name => G_LINE_RECORD);
20517: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20518: END IF;
20519: -- To Get the cimv Model Line Record
20513: END IF;
20514: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20515: OKL_API.set_message(p_app_name => G_APP_NAME,
20516: p_msg_name => G_LINE_RECORD);
20517: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20518: END IF;
20519: -- To Get the cimv Model Line Record
20520: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20521: r_clev_addon_rec.dnz_chr_id,
20519: -- To Get the cimv Model Line Record
20520: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20521: r_clev_addon_rec.dnz_chr_id,
20522: r_cimv_addon_rec);
20523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20524: OKL_API.set_message(p_app_name => G_APP_NAME,
20525: p_msg_name => G_FETCHING_INFO,
20526: p_token1 => G_REC_NAME_TOKEN,
20527: p_token1_value => 'OKC_K_ITEMS_V Record');
20520: x_return_status := get_rec_cimv(r_clev_addon_rec.id,
20521: r_clev_addon_rec.dnz_chr_id,
20522: r_cimv_addon_rec);
20523: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20524: OKL_API.set_message(p_app_name => G_APP_NAME,
20525: p_msg_name => G_FETCHING_INFO,
20526: p_token1 => G_REC_NAME_TOKEN,
20527: p_token1_value => 'OKC_K_ITEMS_V Record');
20528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20524: OKL_API.set_message(p_app_name => G_APP_NAME,
20525: p_msg_name => G_FETCHING_INFO,
20526: p_token1 => G_REC_NAME_TOKEN,
20527: p_token1_value => 'OKC_K_ITEMS_V Record');
20528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20530: OKL_API.set_message(p_app_name => G_APP_NAME,
20531: p_msg_name => G_FETCHING_INFO,
20532: p_token1 => G_REC_NAME_TOKEN,
20525: p_msg_name => G_FETCHING_INFO,
20526: p_token1 => G_REC_NAME_TOKEN,
20527: p_token1_value => 'OKC_K_ITEMS_V Record');
20528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20530: OKL_API.set_message(p_app_name => G_APP_NAME,
20531: p_msg_name => G_FETCHING_INFO,
20532: p_token1 => G_REC_NAME_TOKEN,
20533: p_token1_value => 'OKC_K_ITEMS_V Record');
20526: p_token1 => G_REC_NAME_TOKEN,
20527: p_token1_value => 'OKC_K_ITEMS_V Record');
20528: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20529: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20530: OKL_API.set_message(p_app_name => G_APP_NAME,
20531: p_msg_name => G_FETCHING_INFO,
20532: p_token1 => G_REC_NAME_TOKEN,
20533: p_token1_value => 'OKC_K_ITEMS_V Record');
20534: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20530: OKL_API.set_message(p_app_name => G_APP_NAME,
20531: p_msg_name => G_FETCHING_INFO,
20532: p_token1 => G_REC_NAME_TOKEN,
20533: p_token1_value => 'OKC_K_ITEMS_V Record');
20534: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20535: END IF;
20536: --Build addon cimv item rec
20537: r_cimv_addon_rec.number_of_items := ln_remain_inst;
20538: -- Updating of the addon Line and Item Record
20548: p_cimv_rec => r_cimv_addon_rec,
20549: x_clev_rec => rx_clev_addon_rec,
20550: x_klev_rec => rx_klev_addon_rec,
20551: x_cimv_rec => rx_cimv_addon_rec);
20552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20553: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20549: x_clev_rec => rx_clev_addon_rec,
20550: x_klev_rec => rx_klev_addon_rec,
20551: x_cimv_rec => rx_cimv_addon_rec);
20552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20553: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20557: END LOOP;
20550: x_klev_rec => rx_klev_addon_rec,
20551: x_cimv_rec => rx_cimv_addon_rec);
20552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20553: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20551: x_cimv_rec => rx_cimv_addon_rec);
20552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20553: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20554: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20561: RAISE OKL_API.G_EXCEPTION_ERROR;
20562: END IF;
20555: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20556: END IF;
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20561: RAISE OKL_API.G_EXCEPTION_ERROR;
20562: END IF;
20563: -- Since we need to populate the OEC into fixed asset line also
20556: END IF;
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20561: RAISE OKL_API.G_EXCEPTION_ERROR;
20562: END IF;
20563: -- Since we need to populate the OEC into fixed asset line also
20564: -- So we need to calcualte the same here it self
20557: END LOOP;
20558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20561: RAISE OKL_API.G_EXCEPTION_ERROR;
20562: END IF;
20563: -- Since we need to populate the OEC into fixed asset line also
20564: -- So we need to calcualte the same here it self
20565: oec_calc_upd_fin_rec(p_api_version => p_api_version,
20574: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20575: x_fin_clev_rec => x_clev_fin_rec,
20576: x_fin_klev_rec => x_klev_fin_rec,
20577: x_oec => ln_klev_fin_oec,
20578: p_validate_fin_line => OKL_API.G_TRUE);
20579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20575: x_fin_clev_rec => x_clev_fin_rec,
20576: x_fin_klev_rec => x_klev_fin_rec,
20577: x_oec => ln_klev_fin_oec,
20578: p_validate_fin_line => OKL_API.G_TRUE);
20579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20583: END IF;
20576: x_fin_klev_rec => x_klev_fin_rec,
20577: x_oec => ln_klev_fin_oec,
20578: p_validate_fin_line => OKL_API.G_TRUE);
20579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20583: END IF;
20584: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20577: x_oec => ln_klev_fin_oec,
20578: p_validate_fin_line => OKL_API.G_TRUE);
20579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20583: END IF;
20584: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20585: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20578: p_validate_fin_line => OKL_API.G_TRUE);
20579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20583: END IF;
20584: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20585: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20586: p_init_msg_list => p_init_msg_list,
20594: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20595: x_fin_clev_rec => x_clev_fin_rec,
20596: x_fin_klev_rec => x_klev_fin_rec,
20597: x_cap_amt => ln_klev_fin_cap,
20598: p_validate_fin_line => OKL_API.G_TRUE);
20599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20595: x_fin_clev_rec => x_clev_fin_rec,
20596: x_fin_klev_rec => x_klev_fin_rec,
20597: x_cap_amt => ln_klev_fin_cap,
20598: p_validate_fin_line => OKL_API.G_TRUE);
20599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20603: END IF;
20596: x_fin_klev_rec => x_klev_fin_rec,
20597: x_cap_amt => ln_klev_fin_cap,
20598: p_validate_fin_line => OKL_API.G_TRUE);
20599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20603: END IF;
20604: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20597: x_cap_amt => ln_klev_fin_cap,
20598: p_validate_fin_line => OKL_API.G_TRUE);
20599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20603: END IF;
20604: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20605: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20598: p_validate_fin_line => OKL_API.G_TRUE);
20599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20603: END IF;
20604: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20605: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20606: p_init_msg_list => p_init_msg_list,
20614: p_dnz_chr_id => l_clev_model_rec_out.dnz_chr_id,
20615: x_fin_clev_rec => x_clev_fin_rec,
20616: x_fin_klev_rec => x_klev_fin_rec,
20617: x_res_value => ln_klev_fin_res,
20618: p_validate_fin_line => OKL_API.G_TRUE);
20619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20622: RAISE OKL_API.G_EXCEPTION_ERROR;
20615: x_fin_clev_rec => x_clev_fin_rec,
20616: x_fin_klev_rec => x_klev_fin_rec,
20617: x_res_value => ln_klev_fin_res,
20618: p_validate_fin_line => OKL_API.G_TRUE);
20619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20622: RAISE OKL_API.G_EXCEPTION_ERROR;
20623: END IF;
20616: x_fin_klev_rec => x_klev_fin_rec,
20617: x_res_value => ln_klev_fin_res,
20618: p_validate_fin_line => OKL_API.G_TRUE);
20619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20622: RAISE OKL_API.G_EXCEPTION_ERROR;
20623: END IF;
20624: -- Updating of the Fixed Asset Line Process
20617: x_res_value => ln_klev_fin_res,
20618: p_validate_fin_line => OKL_API.G_TRUE);
20619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20622: RAISE OKL_API.G_EXCEPTION_ERROR;
20623: END IF;
20624: -- Updating of the Fixed Asset Line Process
20625: -- To Get the cle fa Line Record
20618: p_validate_fin_line => OKL_API.G_TRUE);
20619: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20622: RAISE OKL_API.G_EXCEPTION_ERROR;
20623: END IF;
20624: -- Updating of the Fixed Asset Line Process
20625: -- To Get the cle fa Line Record
20626: x_return_status := get_rec_clev(ln_fa_line_id,
20624: -- Updating of the Fixed Asset Line Process
20625: -- To Get the cle fa Line Record
20626: x_return_status := get_rec_clev(ln_fa_line_id,
20627: r_clev_fa_rec);
20628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20629: OKL_API.set_message(p_app_name => G_APP_NAME,
20630: p_msg_name => G_FETCHING_INFO,
20631: p_token1 => G_REC_NAME_TOKEN,
20632: p_token1_value => 'OKC_K_LINES_V Record');
20625: -- To Get the cle fa Line Record
20626: x_return_status := get_rec_clev(ln_fa_line_id,
20627: r_clev_fa_rec);
20628: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20629: OKL_API.set_message(p_app_name => G_APP_NAME,
20630: p_msg_name => G_FETCHING_INFO,
20631: p_token1 => G_REC_NAME_TOKEN,
20632: p_token1_value => 'OKC_K_LINES_V Record');
20633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20629: OKL_API.set_message(p_app_name => G_APP_NAME,
20630: p_msg_name => G_FETCHING_INFO,
20631: p_token1 => G_REC_NAME_TOKEN,
20632: p_token1_value => 'OKC_K_LINES_V Record');
20633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20635: OKL_API.set_message(p_app_name => G_APP_NAME,
20636: p_msg_name => G_FETCHING_INFO,
20637: p_token1 => G_REC_NAME_TOKEN,
20630: p_msg_name => G_FETCHING_INFO,
20631: p_token1 => G_REC_NAME_TOKEN,
20632: p_token1_value => 'OKC_K_LINES_V Record');
20633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20635: OKL_API.set_message(p_app_name => G_APP_NAME,
20636: p_msg_name => G_FETCHING_INFO,
20637: p_token1 => G_REC_NAME_TOKEN,
20638: p_token1_value => 'OKC_K_LINES_V Record');
20631: p_token1 => G_REC_NAME_TOKEN,
20632: p_token1_value => 'OKC_K_LINES_V Record');
20633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20635: OKL_API.set_message(p_app_name => G_APP_NAME,
20636: p_msg_name => G_FETCHING_INFO,
20637: p_token1 => G_REC_NAME_TOKEN,
20638: p_token1_value => 'OKC_K_LINES_V Record');
20639: RAISE OKL_API.G_EXCEPTION_ERROR;
20635: OKL_API.set_message(p_app_name => G_APP_NAME,
20636: p_msg_name => G_FETCHING_INFO,
20637: p_token1 => G_REC_NAME_TOKEN,
20638: p_token1_value => 'OKC_K_LINES_V Record');
20639: RAISE OKL_API.G_EXCEPTION_ERROR;
20640: END IF;
20641: -- To Get the kle fa Line Record
20642: x_return_status := get_rec_klev(ln_fa_line_id,
20643: r_klev_fa_rec);
20640: END IF;
20641: -- To Get the kle fa Line Record
20642: x_return_status := get_rec_klev(ln_fa_line_id,
20643: r_klev_fa_rec);
20644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20645: OKL_API.set_message(p_app_name => G_APP_NAME,
20646: p_msg_name => G_FETCHING_INFO,
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20641: -- To Get the kle fa Line Record
20642: x_return_status := get_rec_klev(ln_fa_line_id,
20643: r_klev_fa_rec);
20644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20645: OKL_API.set_message(p_app_name => G_APP_NAME,
20646: p_msg_name => G_FETCHING_INFO,
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20645: OKL_API.set_message(p_app_name => G_APP_NAME,
20646: p_msg_name => G_FETCHING_INFO,
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20653: p_token1 => G_REC_NAME_TOKEN,
20646: p_msg_name => G_FETCHING_INFO,
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20653: p_token1 => G_REC_NAME_TOKEN,
20654: p_token1_value => 'OKL_K_LINES_V Record');
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20653: p_token1 => G_REC_NAME_TOKEN,
20654: p_token1_value => 'OKL_K_LINES_V Record');
20655: RAISE OKL_API.G_EXCEPTION_ERROR;
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20653: p_token1 => G_REC_NAME_TOKEN,
20654: p_token1_value => 'OKL_K_LINES_V Record');
20655: RAISE OKL_API.G_EXCEPTION_ERROR;
20656: END IF;
20657: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20658: OKL_API.set_message(p_app_name => G_APP_NAME,
20659: p_msg_name => G_LINE_RECORD);
20654: p_token1_value => 'OKL_K_LINES_V Record');
20655: RAISE OKL_API.G_EXCEPTION_ERROR;
20656: END IF;
20657: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20658: OKL_API.set_message(p_app_name => G_APP_NAME,
20659: p_msg_name => G_LINE_RECORD);
20660: RAISE OKL_API.G_EXCEPTION_ERROR;
20661: END IF;
20662: -- To Get the cimv fa Line Record
20656: END IF;
20657: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20658: OKL_API.set_message(p_app_name => G_APP_NAME,
20659: p_msg_name => G_LINE_RECORD);
20660: RAISE OKL_API.G_EXCEPTION_ERROR;
20661: END IF;
20662: -- To Get the cimv fa Line Record
20663: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20664: r_clev_fa_rec.dnz_chr_id,
20662: -- To Get the cimv fa Line Record
20663: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20664: r_clev_fa_rec.dnz_chr_id,
20665: r_cimv_fa_rec);
20666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20667: OKL_API.set_message(p_app_name => G_APP_NAME,
20668: p_msg_name => G_FETCHING_INFO,
20669: p_token1 => G_REC_NAME_TOKEN,
20670: p_token1_value => 'OKC_K_ITEMS_V Record');
20663: x_return_status := get_rec_cimv(r_clev_fa_rec.id,
20664: r_clev_fa_rec.dnz_chr_id,
20665: r_cimv_fa_rec);
20666: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20667: OKL_API.set_message(p_app_name => G_APP_NAME,
20668: p_msg_name => G_FETCHING_INFO,
20669: p_token1 => G_REC_NAME_TOKEN,
20670: p_token1_value => 'OKC_K_ITEMS_V Record');
20671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20667: OKL_API.set_message(p_app_name => G_APP_NAME,
20668: p_msg_name => G_FETCHING_INFO,
20669: p_token1 => G_REC_NAME_TOKEN,
20670: p_token1_value => 'OKC_K_ITEMS_V Record');
20671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20673: OKL_API.set_message(p_app_name => G_APP_NAME,
20674: p_msg_name => G_FETCHING_INFO,
20675: p_token1 => G_REC_NAME_TOKEN,
20668: p_msg_name => G_FETCHING_INFO,
20669: p_token1 => G_REC_NAME_TOKEN,
20670: p_token1_value => 'OKC_K_ITEMS_V Record');
20671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20673: OKL_API.set_message(p_app_name => G_APP_NAME,
20674: p_msg_name => G_FETCHING_INFO,
20675: p_token1 => G_REC_NAME_TOKEN,
20676: p_token1_value => 'OKC_K_ITEMS_V Record');
20669: p_token1 => G_REC_NAME_TOKEN,
20670: p_token1_value => 'OKC_K_ITEMS_V Record');
20671: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20672: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20673: OKL_API.set_message(p_app_name => G_APP_NAME,
20674: p_msg_name => G_FETCHING_INFO,
20675: p_token1 => G_REC_NAME_TOKEN,
20676: p_token1_value => 'OKC_K_ITEMS_V Record');
20677: RAISE OKL_API.G_EXCEPTION_ERROR;
20673: OKL_API.set_message(p_app_name => G_APP_NAME,
20674: p_msg_name => G_FETCHING_INFO,
20675: p_token1 => G_REC_NAME_TOKEN,
20676: p_token1_value => 'OKC_K_ITEMS_V Record');
20677: RAISE OKL_API.G_EXCEPTION_ERROR;
20678: END IF;
20679: --Build cimv fa item rec
20680: r_cimv_fa_rec.number_of_items := ln_remain_inst;
20681: --Build talv fa item rec
20680: r_cimv_fa_rec.number_of_items := ln_remain_inst;
20681: --Build talv fa item rec
20682: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
20683: r_talv_fa_rec);
20684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20685: OKL_API.set_message(p_app_name => G_APP_NAME,
20686: p_msg_name => G_FETCHING_INFO,
20687: p_token1 => G_REC_NAME_TOKEN,
20688: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20681: --Build talv fa item rec
20682: x_return_status := get_rec_txlv(r_clev_fa_rec.id,
20683: r_talv_fa_rec);
20684: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20685: OKL_API.set_message(p_app_name => G_APP_NAME,
20686: p_msg_name => G_FETCHING_INFO,
20687: p_token1 => G_REC_NAME_TOKEN,
20688: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20685: OKL_API.set_message(p_app_name => G_APP_NAME,
20686: p_msg_name => G_FETCHING_INFO,
20687: p_token1 => G_REC_NAME_TOKEN,
20688: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20691: OKL_API.set_message(p_app_name => G_APP_NAME,
20692: p_msg_name => G_FETCHING_INFO,
20693: p_token1 => G_REC_NAME_TOKEN,
20686: p_msg_name => G_FETCHING_INFO,
20687: p_token1 => G_REC_NAME_TOKEN,
20688: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20691: OKL_API.set_message(p_app_name => G_APP_NAME,
20692: p_msg_name => G_FETCHING_INFO,
20693: p_token1 => G_REC_NAME_TOKEN,
20694: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20687: p_token1 => G_REC_NAME_TOKEN,
20688: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20691: OKL_API.set_message(p_app_name => G_APP_NAME,
20692: p_msg_name => G_FETCHING_INFO,
20693: p_token1 => G_REC_NAME_TOKEN,
20694: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20695: RAISE OKL_API.G_EXCEPTION_ERROR;
20691: OKL_API.set_message(p_app_name => G_APP_NAME,
20692: p_msg_name => G_FETCHING_INFO,
20693: p_token1 => G_REC_NAME_TOKEN,
20694: p_token1_value => 'OKL_TXL_ASSETS_V Record');
20695: RAISE OKL_API.G_EXCEPTION_ERROR;
20696: END IF;
20697: --Build talv fa item rec
20698: r_talv_fa_rec.current_units := ln_remain_inst;
20699:
20734: x_clev_rec => l_clev_fa_rec_out,
20735: x_klev_rec => l_klev_fa_rec_out,
20736: x_cimv_rec => x_cimv_fa_rec,
20737: x_talv_rec => x_talv_fa_rec);
20738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20741: RAISE OKL_API.G_EXCEPTION_ERROR;
20742: END IF;
20735: x_klev_rec => l_klev_fa_rec_out,
20736: x_cimv_rec => x_cimv_fa_rec,
20737: x_talv_rec => x_talv_fa_rec);
20738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20741: RAISE OKL_API.G_EXCEPTION_ERROR;
20742: END IF;
20743: --Bug# 5176649 start
20736: x_cimv_rec => x_cimv_fa_rec,
20737: x_talv_rec => x_talv_fa_rec);
20738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20741: RAISE OKL_API.G_EXCEPTION_ERROR;
20742: END IF;
20743: --Bug# 5176649 start
20744: -- Update Tax Book details - okl_txd_assets_b
20737: x_talv_rec => x_talv_fa_rec);
20738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20741: RAISE OKL_API.G_EXCEPTION_ERROR;
20742: END IF;
20743: --Bug# 5176649 start
20744: -- Update Tax Book details - okl_txd_assets_b
20745: update_asset_line_details(p_api_version => p_api_version,
20749: x_msg_data => x_msg_data,
20750: p_asset_number => p_asset_number,
20751: p_original_cost => x_talv_fa_rec.original_cost,
20752: p_tal_id => x_talv_fa_rec.ID);
20753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20756: RAISE OKL_API.G_EXCEPTION_ERROR;
20757: END IF;
20750: p_asset_number => p_asset_number,
20751: p_original_cost => x_talv_fa_rec.original_cost,
20752: p_tal_id => x_talv_fa_rec.ID);
20753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20756: RAISE OKL_API.G_EXCEPTION_ERROR;
20757: END IF;
20758: --Bug# 5176649 end
20751: p_original_cost => x_talv_fa_rec.original_cost,
20752: p_tal_id => x_talv_fa_rec.ID);
20753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20756: RAISE OKL_API.G_EXCEPTION_ERROR;
20757: END IF;
20758: --Bug# 5176649 end
20759:
20752: p_tal_id => x_talv_fa_rec.ID);
20753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20756: RAISE OKL_API.G_EXCEPTION_ERROR;
20757: END IF;
20758: --Bug# 5176649 end
20759:
20760: -- We need to change the status of the header whenever there is updating happening
20759:
20760: -- We need to change the status of the header whenever there is updating happening
20761: -- after the contract status is approved
20762: IF (l_clev_fa_rec_out.dnz_chr_id is NOT NULL) AND
20763: (l_clev_fa_rec_out.dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
20764: --cascade edit status on to lines
20765: okl_contract_status_pub.cascade_lease_status_edit
20766: (p_api_version => p_api_version,
20767: p_init_msg_list => p_init_msg_list,
20768: x_return_status => x_return_status,
20769: x_msg_count => x_msg_count,
20770: x_msg_data => x_msg_data,
20771: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20775: RAISE OKL_API.G_EXCEPTION_ERROR;
20776: END IF;
20769: x_msg_count => x_msg_count,
20770: x_msg_data => x_msg_data,
20771: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20775: RAISE OKL_API.G_EXCEPTION_ERROR;
20776: END IF;
20777: END IF;
20770: x_msg_data => x_msg_data,
20771: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20775: RAISE OKL_API.G_EXCEPTION_ERROR;
20776: END IF;
20777: END IF;
20778: OKL_API.END_ACTIVITY (x_msg_count,
20771: p_chr_id => l_clev_fa_rec_out.dnz_chr_id);
20772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20775: RAISE OKL_API.G_EXCEPTION_ERROR;
20776: END IF;
20777: END IF;
20778: OKL_API.END_ACTIVITY (x_msg_count,
20779: x_msg_data );
20774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20775: RAISE OKL_API.G_EXCEPTION_ERROR;
20776: END IF;
20777: END IF;
20778: OKL_API.END_ACTIVITY (x_msg_count,
20779: x_msg_data );
20780: EXCEPTION
20781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20782: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20777: END IF;
20778: OKL_API.END_ACTIVITY (x_msg_count,
20779: x_msg_data );
20780: EXCEPTION
20781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20782: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20783: l_api_name,
20784: G_PKG_NAME,
20785: 'OKL_API.G_RET_STS_ERROR',
20778: OKL_API.END_ACTIVITY (x_msg_count,
20779: x_msg_data );
20780: EXCEPTION
20781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20782: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20783: l_api_name,
20784: G_PKG_NAME,
20785: 'OKL_API.G_RET_STS_ERROR',
20786: x_msg_count,
20781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
20782: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20783: l_api_name,
20784: G_PKG_NAME,
20785: 'OKL_API.G_RET_STS_ERROR',
20786: x_msg_count,
20787: x_msg_data,
20788: '_PVT');
20789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20785: 'OKL_API.G_RET_STS_ERROR',
20786: x_msg_count,
20787: x_msg_data,
20788: '_PVT');
20789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20790: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20791: l_api_name,
20792: G_PKG_NAME,
20793: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20786: x_msg_count,
20787: x_msg_data,
20788: '_PVT');
20789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20790: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20791: l_api_name,
20792: G_PKG_NAME,
20793: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20794: x_msg_count,
20789: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
20790: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20791: l_api_name,
20792: G_PKG_NAME,
20793: 'OKL_API.G_RET_STS_UNEXP_ERROR',
20794: x_msg_count,
20795: x_msg_data,
20796: '_PVT');
20797: WHEN OTHERS THEN
20794: x_msg_count,
20795: x_msg_data,
20796: '_PVT');
20797: WHEN OTHERS THEN
20798: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
20799: l_api_name,
20800: G_PKG_NAME,
20801: 'OTHERS',
20802: x_msg_count,