[Home] [Help]
2: /* $Header: OKLRCALB.pls 120.16 2006/11/13 06:30:14 dpsingh noship $ */
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
7: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
8: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
9: G_INVALID_YN CONSTANT VARCHAR2(200) := 'OKL_INVALID_YN';
10: G_LINE_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_LINE_RECORD';
50: -------------------------------------------------------------------------------------------------
51: -- GLOBAL VARIABLES
52: -------------------------------------------------------------------------------------------------
53: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_COPY_ASSET_PVT';
54: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
55: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
56: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
57: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
58: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
51: -- GLOBAL VARIABLES
52: -------------------------------------------------------------------------------------------------
53: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_COPY_ASSET_PVT';
54: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
55: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
56: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
57: G_MODEL_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ITEM';
58: G_ADDON_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'ADD_ITEM';
59: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
90: subtype itiv_tbl_type is OKL_TXL_ITM_INSTS_PUB.iipv_tbl_type;
91: subtype sidv_rec_type is OKL_SUPP_INVOICE_DTLS_PUB.sidv_rec_type;
92: subtype sidv_tbl_type is OKL_SUPP_INVOICE_DTLS_PUB.sidv_tbl_type;
93: TYPE g_ib_id_rec IS RECORD (
94: id NUMBER := OKL_API.G_MISS_NUM,
95: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
96:
97: TYPE g_ib_id_tbl IS TABLE OF g_ib_id_rec
98: INDEX BY BINARY_INTEGER;
91: subtype sidv_rec_type is OKL_SUPP_INVOICE_DTLS_PUB.sidv_rec_type;
92: subtype sidv_tbl_type is OKL_SUPP_INVOICE_DTLS_PUB.sidv_tbl_type;
93: TYPE g_ib_id_rec IS RECORD (
94: id NUMBER := OKL_API.G_MISS_NUM,
95: dnz_chr_id NUMBER := OKL_API.G_MISS_NUM);
96:
97: TYPE g_ib_id_tbl IS TABLE OF g_ib_id_rec
98: INDEX BY BINARY_INTEGER;
99:
97: TYPE g_ib_id_tbl IS TABLE OF g_ib_id_rec
98: INDEX BY BINARY_INTEGER;
99:
100: TYPE g_ib_item_type IS RECORD (
101: object1_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR,
102: object1_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR);
103:
104: TYPE g_ib_item_tbl IS TABLE OF g_ib_item_type
105: INDEX BY BINARY_INTEGER;
98: INDEX BY BINARY_INTEGER;
99:
100: TYPE g_ib_item_type IS RECORD (
101: object1_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE := OKL_API.G_MISS_CHAR,
102: object1_id2 OKC_K_ITEMS_V.OBJECT1_ID2%TYPE := OKL_API.G_MISS_CHAR);
103:
104: TYPE g_ib_item_tbl IS TABLE OF g_ib_item_type
105: INDEX BY BINARY_INTEGER;
106: -----------------------------------------------------------------------------------------------------------
116: WHERE ID = p_kle_id1;
117:
118: FUNCTION generate_instance_number_ib(x_instance_number_ib OUT NOCOPY OKL_TXL_ITM_INSTS_V.INSTANCE_NUMBER_IB%TYPE)
119: RETURN VARCHAR2 IS
120: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
121: -- cursor to get sequence number for asset number
122: Cursor c_instance_no_ib IS
123: select TO_CHAR(OKL_IBN_SEQ.NEXTVAL)
124: FROM dual;
126: OPEN c_instance_no_ib;
127: FETCH c_instance_no_ib INTO x_instance_number_ib;
128: IF (c_instance_no_ib%NOTFOUND) Then
129: x_return_status := OKC_API.G_RET_STS_ERROR;
130: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
131: p_msg_name => g_unexpected_error,
132: p_token1 => g_sqlcode_token,
133: p_token1_value => sqlcode,
134: p_token2 => g_sqlerrm_token,
141: IF c_instance_no_ib%ISOPEN THEN
142: CLOSE c_instance_no_ib;
143: END IF;
144: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
146: p_msg_name => g_unexpected_error,
147: p_token1 => g_sqlcode_token,
148: p_token1_value => sqlcode,
149: p_token2 => g_sqlerrm_token,
154: /*
155: FUNCTION generate_asset_number(p_old_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
156: x_asset_number OUT NOCOPY OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE)
157: RETURN VARCHAR2 IS
158: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
159: -- cursor to get sequence number for asset number
160: Cursor c_asset_no(p_old_asset_number OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE) IS
161: select p_old_asset_number||'_'||OKL_FAN_SEQ.NEXTVAL
162: FROM dual;
164: OPEN c_asset_no(p_old_asset_number);
165: FETCH c_asset_no INTO x_asset_number;
166: IF (c_asset_no%NOTFOUND) Then
167: x_return_status := OKC_API.G_RET_STS_ERROR;
168: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
169: p_msg_name => g_unexpected_error,
170: p_token1 => g_sqlcode_token,
171: p_token1_value => sqlcode,
172: p_token2 => g_sqlerrm_token,
179: IF c_asset_no%ISOPEN THEN
180: CLOSE c_asset_no;
181: END IF;
182: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
183: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
184: p_msg_name => g_unexpected_error,
185: p_token1 => g_sqlcode_token,
186: p_token1_value => sqlcode,
187: p_token2 => g_sqlerrm_token,
190: END generate_asset_number;
191: */
192: FUNCTION generate_asset_number(x_asset_number OUT NOCOPY OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE)
193: RETURN VARCHAR2 IS
194: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
195: ln_dummy1 NUMBER := 0;
196: ln_dummy2 NUMBER := 0;
197: ln_dummy3 NUMBER := 0;
198: lv_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE;
228: OPEN c_asset_no;
229: FETCH c_asset_no INTO x_asset_number;
230: IF (c_asset_no%NOTFOUND) THEN
231: x_return_status := OKC_API.G_RET_STS_ERROR;
232: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
233: p_msg_name => g_unexpected_error,
234: p_token1 => g_sqlcode_token,
235: p_token1_value => sqlcode,
236: p_token2 => g_sqlerrm_token,
268: OPEN c_asset_no;
269: FETCH c_asset_no INTO x_asset_number;
270: IF (c_asset_no%NOTFOUND) THEN
271: x_return_status := OKC_API.G_RET_STS_ERROR;
272: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
273: p_msg_name => g_unexpected_error,
274: p_token1 => g_sqlcode_token,
275: p_token1_value => sqlcode,
276: p_token2 => g_sqlerrm_token,
297: IF c_okx_assets_v%ISOPEN THEN
298: CLOSE c_okx_assets_v;
299: END IF;
300: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
301: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
302: p_msg_name => g_unexpected_error,
303: p_token1 => g_sqlcode_token,
304: p_token1_value => sqlcode,
305: p_token2 => g_sqlerrm_token,
369: r_get_ib_line_id c_get_ib_line_id%ROWTYPE;
370:
371: BEGIN
372: -- initialize return status
373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
374: -- data is required
375: IF (p_cle_id = OKL_API.G_MISS_NUM) OR
376: (p_cle_id IS NULL) THEN
377: OKL_API.set_message(p_app_name => G_APP_NAME,
371: BEGIN
372: -- initialize return status
373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
374: -- data is required
375: IF (p_cle_id = OKL_API.G_MISS_NUM) OR
376: (p_cle_id IS NULL) THEN
377: OKL_API.set_message(p_app_name => G_APP_NAME,
378: p_msg_name => G_REQUIRED_VALUE,
379: p_token1 => G_COL_NAME_TOKEN,
373: x_return_status := OKL_API.G_RET_STS_SUCCESS;
374: -- data is required
375: IF (p_cle_id = OKL_API.G_MISS_NUM) OR
376: (p_cle_id IS NULL) THEN
377: OKL_API.set_message(p_app_name => G_APP_NAME,
378: p_msg_name => G_REQUIRED_VALUE,
379: p_token1 => G_COL_NAME_TOKEN,
380: p_token1_value => 'Cle_id');
381: -- halt validation
384: -- Enforce Foreign Key
385: OPEN c_cle_id_validate(p_cle_id);
386: IF c_cle_id_validate%NOTFOUND THEN
387: -- store SQL error message on message stack
388: OKL_API.set_message(p_app_name => G_APP_NAME,
389: p_msg_name => G_NO_MATCHING_RECORD,
390: p_token1 => G_COL_NAME_TOKEN,
391: p_token1_value => 'Cle_id');
392: -- halt validation
397: lv_lty_code,
398: lv_lse_type;
399: CLOSE c_cle_id_validate;
400: IF (ln_cle_id IS NULL OR
401: ln_cle_id = OKL_API.G_MISS_NUM) AND
402: ln_chr_id IS NOT NULL AND
403: lv_lty_code = G_FIN_LINE_LTY_CODE AND
404: lv_lse_type = G_TLS_TYPE THEN
405: OPEN c_get_fa_line_id(p_cle_id);
404: lv_lse_type = G_TLS_TYPE THEN
405: OPEN c_get_fa_line_id(p_cle_id);
406: IF c_get_fa_line_id%NOTFOUND THEN
407: -- store SQL error message on message stack
408: OKL_API.set_message(p_app_name => G_APP_NAME,
409: p_msg_name => G_NO_MATCHING_RECORD,
410: p_token1 => G_COL_NAME_TOKEN,
411: p_token1_value => 'FA_Cle_id');
412: -- halt validation
416: x_dnz_chr_id;
417: CLOSE c_get_fa_line_id;
418: FOR r_get_ib_line_id IN c_get_ib_line_id(p_cle_id) LOOP
419: IF c_get_ib_line_id%NOTFOUND THEN
420: OKL_API.set_message(p_app_name => G_APP_NAME,
421: p_msg_name => G_NO_MATCHING_RECORD,
422: p_token1 => G_COL_NAME_TOKEN,
423: p_token1_value => 'IB_Cle_id');
424: x_return_status := OKL_API.G_RET_STS_ERROR;
420: OKL_API.set_message(p_app_name => G_APP_NAME,
421: p_msg_name => G_NO_MATCHING_RECORD,
422: p_token1 => G_COL_NAME_TOKEN,
423: p_token1_value => 'IB_Cle_id');
424: x_return_status := OKL_API.G_RET_STS_ERROR;
425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
426: END IF;
427: x_ib_id_tbl(i).id := r_get_ib_line_id.id;
428: IF r_get_ib_line_id.dnz_chr_id <> x_dnz_chr_id THEN
421: p_msg_name => G_NO_MATCHING_RECORD,
422: p_token1 => G_COL_NAME_TOKEN,
423: p_token1_value => 'IB_Cle_id');
424: x_return_status := OKL_API.G_RET_STS_ERROR;
425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
426: END IF;
427: x_ib_id_tbl(i).id := r_get_ib_line_id.id;
428: IF r_get_ib_line_id.dnz_chr_id <> x_dnz_chr_id THEN
429: OKL_API.set_message(p_app_name => G_APP_NAME,
425: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
426: END IF;
427: x_ib_id_tbl(i).id := r_get_ib_line_id.id;
428: IF r_get_ib_line_id.dnz_chr_id <> x_dnz_chr_id THEN
429: OKL_API.set_message(p_app_name => G_APP_NAME,
430: p_msg_name => G_NO_MATCHING_RECORD,
431: p_token1 => G_COL_NAME_TOKEN,
432: p_token1_value => 'DNZ_CHR_ID');
433: x_return_status := OKL_API.G_RET_STS_ERROR;
429: OKL_API.set_message(p_app_name => G_APP_NAME,
430: p_msg_name => G_NO_MATCHING_RECORD,
431: p_token1 => G_COL_NAME_TOKEN,
432: p_token1_value => 'DNZ_CHR_ID');
433: x_return_status := OKL_API.G_RET_STS_ERROR;
434: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
435: END IF;
436: x_ib_id_tbl(i).dnz_chr_id := r_get_ib_line_id.dnz_chr_id;
437: i := i + 1;
430: p_msg_name => G_NO_MATCHING_RECORD,
431: p_token1 => G_COL_NAME_TOKEN,
432: p_token1_value => 'DNZ_CHR_ID');
433: x_return_status := OKL_API.G_RET_STS_ERROR;
434: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
435: END IF;
436: x_ib_id_tbl(i).dnz_chr_id := r_get_ib_line_id.dnz_chr_id;
437: i := i + 1;
438: END LOOP;
435: END IF;
436: x_ib_id_tbl(i).dnz_chr_id := r_get_ib_line_id.dnz_chr_id;
437: i := i + 1;
438: END LOOP;
439: IF x_return_status = OKL_API.G_RET_STS_ERROR THEN
440: -- halt validation
441: RAISE G_EXCEPTION_HALT_VALIDATION;
442: END IF;
443: ELSE
440: -- halt validation
441: RAISE G_EXCEPTION_HALT_VALIDATION;
442: END IF;
443: ELSE
444: OKL_API.set_message(p_app_name => G_APP_NAME,
445: p_msg_name => G_LINE_RECORD);
446: -- halt validation
447: RAISE G_EXCEPTION_HALT_VALIDATION;
448: END IF;
450: WHEN G_EXCEPTION_STOP_VALIDATION then
451: -- We are here since the field is required
452: -- store SQL error message on message stack
453: -- Notify Error
454: x_return_status := OKL_API.G_RET_STS_ERROR;
455: WHEN G_EXCEPTION_HALT_VALIDATION then
456: -- We are here b'cause we have no parent record
457: -- If the cursor is open then it has to be closed
458: IF c_cle_id_validate%ISOPEN THEN
464: IF c_get_ib_line_id%ISOPEN THEN
465: CLOSE c_get_ib_line_id;
466: END IF;
467: -- notify caller of an error
468: x_return_status := OKL_API.G_RET_STS_ERROR;
469: WHEN OTHERS THEN
470: -- store SQL error message on message stack
471: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
472: p_msg_name => G_UNEXPECTED_ERROR,
467: -- notify caller of an error
468: x_return_status := OKL_API.G_RET_STS_ERROR;
469: WHEN OTHERS THEN
470: -- store SQL error message on message stack
471: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
472: p_msg_name => G_UNEXPECTED_ERROR,
473: p_token1 => G_SQLCODE_TOKEN,
474: p_token1_value => SQLCODE,
475: p_token2 => G_SQLERRM_TOKEN,
484: IF c_get_ib_line_id%ISOPEN THEN
485: CLOSE c_get_ib_line_id;
486: END IF;
487: -- notify caller of an error as UNEXPETED error
488: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
489: END validate_from_cle_id;
490: -------------------------------------------------------------------------------------------------
491: -- Start of Commnets
492: -- Badrinath Kuchibholta
508: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
509: x_object1_id1 OUT NOCOPY OKC_K_ITEMS_V.OBJECT1_ID1%TYPE,
510: x_object1_id2 OUT NOCOPY OKC_K_ITEMS_V.OBJECT1_ID2%TYPE)
511: RETURN VARCHAR2 IS
512: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
513: CURSOR c_validate_items_ids(p_cle_id IN OKC_K_LINES_V.ID%TYPE,
514: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE)
515: IS
516: SELECT object1_id1,
521: AND cim.object1_id1 IS NOT NULL
522: AND cim.object1_id2 IS NOT NULL;
523: BEGIN
524: -- data is required
525: IF (p_cle_id = OKL_API.G_MISS_NUM OR
526: p_cle_id IS NULL) AND
527: (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
528: p_dnz_chr_id IS NULL) THEN
529: -- store SQL error message on message stack
523: BEGIN
524: -- data is required
525: IF (p_cle_id = OKL_API.G_MISS_NUM OR
526: p_cle_id IS NULL) AND
527: (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
528: p_dnz_chr_id IS NULL) THEN
529: -- store SQL error message on message stack
530: OKL_API.set_message(p_app_name => G_APP_NAME,
531: p_msg_name => G_REQUIRED_VALUE,
526: p_cle_id IS NULL) AND
527: (p_dnz_chr_id = OKL_API.G_MISS_NUM OR
528: p_dnz_chr_id IS NULL) THEN
529: -- store SQL error message on message stack
530: OKL_API.set_message(p_app_name => G_APP_NAME,
531: p_msg_name => G_REQUIRED_VALUE,
532: p_token1 => G_COL_NAME_TOKEN,
533: p_token1_value => 'dnz_chr_id and Cle_id');
534: -- halt validation
544: EXCEPTION
545: WHEN G_EXCEPTION_STOP_VALIDATION then
546: -- We are here since the field is required
547: -- Notify Error
548: x_return_status := OKL_API.G_RET_STS_ERROR;
549: -- If the cursor is open then it has to be closed
550: IF c_validate_items_ids%ISOPEN THEN
551: CLOSE c_validate_items_ids;
552: END IF;
552: END IF;
553: RETURN x_return_status;
554: WHEN OTHERS THEN
555: -- store SQL error message on message stack
556: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
557: p_msg_name => G_UNEXPECTED_ERROR,
558: p_token1 => G_SQLCODE_TOKEN,
559: p_token1_value => SQLCODE,
560: p_token2 => G_SQLERRM_TOKEN,
563: IF c_validate_items_ids%ISOPEN THEN
564: CLOSE c_validate_items_ids;
565: END IF;
566: -- notify caller of an error as UNEXPETED error
567: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
568: RETURN x_return_status;
569: END validate_items_ids;
570: ---------------------------------------------------------------------------------------------------------------
571: FUNCTION get_rec_clev(p_id IN OKC_K_LINES_V.ID%TYPE,
651: LAST_UPDATE_LOGIN
652: FROM Okc_K_Lines_V
653: WHERE okc_k_lines_v.id = p_cle_id;
654: l_okc_clev_pk okc_clev_pk_csr%ROWTYPE;
655: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
656: BEGIN
657: -- Get current database values
658: OPEN okc_clev_pk_csr (p_id);
659: FETCH okc_clev_pk_csr INTO
734: x_clev_rec.CURRENCY_CODE,
735: x_clev_rec.CURRENCY_CODE_RENEWED,
736: x_clev_rec.LAST_UPDATE_LOGIN;
737: IF okc_clev_pk_csr%NOTFOUND THEN
738: x_return_status := OKL_API.G_RET_STS_ERROR;
739: END IF;
740: CLOSE okc_clev_pk_csr;
741: RETURN(x_return_status);
742: EXCEPTION
741: RETURN(x_return_status);
742: EXCEPTION
743: WHEN OTHERS THEN
744: -- store SQL error message on message stack for caller
745: OKL_API.set_message(G_APP_NAME,
746: G_UNEXPECTED_ERROR,
747: G_SQLCODE_TOKEN,
748: SQLCODE,
749: G_SQLERRM_TOKEN,
748: SQLCODE,
749: G_SQLERRM_TOKEN,
750: SQLERRM);
751: -- notify caller of an UNEXPECTED error
752: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
753: -- if the cursor is open
754: IF okc_clev_pk_csr%ISOPEN THEN
755: CLOSE okc_clev_pk_csr;
756: END IF;
890: ,FEE_PURPOSE_CODE
891: FROM OKL_K_LINES_V
892: WHERE OKL_K_LINES_V.id = p_kle_id;
893: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
894: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
895: BEGIN
896: -- Get current database values
897: OPEN okl_k_lines_v_pk_csr (p_id);
898: FETCH okl_k_lines_v_pk_csr INTO
1023: x_klev_rec.STREAM_TYPE_SUBCLASS
1024: --ramurt Bug#4552772
1025: ,x_klev_rec.FEE_PURPOSE_CODE;
1026: IF okl_k_lines_v_pk_csr%NOTFOUND THEN
1027: x_return_status := OKL_API.G_RET_STS_ERROR;
1028: END IF;
1029: CLOSE okl_k_lines_v_pk_csr;
1030: RETURN(x_return_status);
1031: EXCEPTION
1030: RETURN(x_return_status);
1031: EXCEPTION
1032: WHEN OTHERS THEN
1033: -- store SQL error message on message stack for caller
1034: OKL_API.set_message(G_APP_NAME,
1035: G_UNEXPECTED_ERROR,
1036: G_SQLCODE_TOKEN,
1037: SQLCODE,
1038: G_SQLERRM_TOKEN,
1037: SQLCODE,
1038: G_SQLERRM_TOKEN,
1039: SQLERRM);
1040: -- notify caller of an UNEXPECTED error
1041: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1042: -- if the cursor is open
1043: IF okl_k_lines_v_pk_csr%ISOPEN THEN
1044: CLOSE okl_k_lines_v_pk_csr;
1045: END IF;
1057: FUNCTION get_tasv_rec(p_tas_id IN NUMBER,
1058: x_trxv_rec OUT NOCOPY trxv_rec_type)
1059: RETURN VARCHAR2
1060: IS
1061: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1062: CURSOR c_trxv_rec(p_tas_id NUMBER)
1063: IS
1064: SELECT ID,
1065: OBJECT_VERSION_NUMBER,
1130: x_trxv_rec.COMMENTS,
1131: x_trxv_rec.REQ_ASSET_ID,
1132: x_trxv_rec.TOTAL_MATCH_AMOUNT;
1133: IF c_trxv_rec%NOTFOUND THEN
1134: x_return_status := OKL_API.G_RET_STS_ERROR;
1135: END IF;
1136: CLOSE c_trxv_rec;
1137: RETURN(x_return_status);
1138: EXCEPTION
1137: RETURN(x_return_status);
1138: EXCEPTION
1139: WHEN OTHERS THEN
1140: -- store SQL error message on message stack for caller
1141: OKL_API.set_message(
1142: G_APP_NAME,
1143: G_UNEXPECTED_ERROR,
1144: G_SQLCODE_TOKEN,
1145: SQLCODE,
1148: IF c_trxv_rec%ISOPEN THEN
1149: CLOSE c_trxv_rec;
1150: END IF;
1151: -- notify caller of an UNEXPECTED error
1152: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1153: RETURN(x_return_status);
1154: END get_tasv_rec;
1155: ------------------------------------------------------------------------------------------------
1156: -- Start of Commnets
1163: -- End of Commnets
1164: FUNCTION get_sidv_rec(p_cle_id IN OKL_SUPP_INVOICE_DTLS.ID%TYPE,
1165: x_sidv_rec OUT NOCOPY sidv_rec_type)
1166: RETURN VARCHAR2 IS
1167: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1168: CURSOR okl_supp_invoice_dtls_v_pk_csr(p_id OKL_SUPP_INVOICE_DTLS.ID%TYPE) IS
1169: SELECT ID,
1170: OBJECT_VERSION_NUMBER,
1171: CLE_ID,
1235: x_sidv_rec.last_updated_by,
1236: x_sidv_rec.last_update_date,
1237: x_sidv_rec.last_update_login;
1238: IF okl_supp_invoice_dtls_v_pk_csr%NOTFOUND THEN
1239: OKL_API.set_message(p_app_name => G_APP_NAME,
1240: p_msg_name => G_NO_MATCHING_RECORD,
1241: p_token1 => G_COL_NAME_TOKEN,
1242: p_token1_value => 'OKL_SUPP_INVOICE_DTLS Record');
1243: x_return_status := OKL_API.G_RET_STS_ERROR;
1239: OKL_API.set_message(p_app_name => G_APP_NAME,
1240: p_msg_name => G_NO_MATCHING_RECORD,
1241: p_token1 => G_COL_NAME_TOKEN,
1242: p_token1_value => 'OKL_SUPP_INVOICE_DTLS Record');
1243: x_return_status := OKL_API.G_RET_STS_ERROR;
1244: END IF;
1245: CLOSE okl_supp_invoice_dtls_v_pk_csr;
1246: RETURN(x_return_status);
1247: EXCEPTION
1246: RETURN(x_return_status);
1247: EXCEPTION
1248: WHEN OTHERS THEN
1249: -- store SQL error message on message stack for caller
1250: OKL_API.set_message(
1251: G_APP_NAME,
1252: G_UNEXPECTED_ERROR,
1253: G_SQLCODE_TOKEN,
1254: SQLCODE,
1257: IF okl_supp_invoice_dtls_v_pk_csr%ISOPEN THEN
1258: CLOSE okl_supp_invoice_dtls_v_pk_csr;
1259: END IF;
1260: -- notify caller of an UNEXPECTED error
1261: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1262: RETURN(x_return_status);
1263: END get_sidv_rec;
1264: ----------------------------------------------------------------------------
1265: -- Start of Commnets
1272: -- End of Commnets
1273: FUNCTION get_txlv_rec(p_kle_id IN NUMBER,
1274: x_txlv_rec OUT NOCOPY talv_rec_type)
1275: RETURN VARCHAR2 IS
1276: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1277: CURSOR okl_talv_pk_csr (p_kle_id IN NUMBER) IS
1278: SELECT ID,
1279: OBJECT_VERSION_NUMBER,
1280: SFWT_FLAG,
1442: x_txlv_rec.CURRENCY_CONVERSION_RATE,
1443: x_txlv_rec.CURRENCY_CONVERSION_DATE;
1444: -- Multi-Currency Change
1445: IF okl_talv_pk_csr%NOTFOUND THEN
1446: x_return_status := OKL_API.G_RET_STS_ERROR;
1447: END IF;
1448: CLOSE okl_talv_pk_csr;
1449: RETURN(x_return_status);
1450: EXCEPTION
1449: RETURN(x_return_status);
1450: EXCEPTION
1451: WHEN OTHERS THEN
1452: -- store SQL error message on message stack for caller
1453: OKL_API.set_message(
1454: G_APP_NAME,
1455: G_UNEXPECTED_ERROR,
1456: G_SQLCODE_TOKEN,
1457: SQLCODE,
1460: IF okl_talv_pk_csr%ISOPEN THEN
1461: CLOSE okl_talv_pk_csr;
1462: END IF;
1463: -- notify caller of an UNEXPECTED error
1464: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1465: RETURN(x_return_status);
1466: END get_txlv_rec;
1467: ----------------------------------------------------------------------------
1468: -- Start of Commnets
1476: FUNCTION get_txdv_tbl(p_tal_id IN NUMBER,
1477: x_txdv_tbl OUT NOCOPY txdv_tbl_type)
1478: RETURN VARCHAR2
1479: IS
1480: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1481: i NUMBER := 0;
1482: CURSOR c_okl_asdv_pk_csr (p_tal_id IN NUMBER) IS
1483: SELECT id,
1484: object_version_number,
1571: x_txdv_tbl(i).CURRENCY_CONVERSION_DATE := r_okl_asdv_pk_csr.currency_conversion_date;
1572: -- Multi-Currency Change
1573: i := i + 1;
1574: IF c_okl_asdv_pk_csr%NOTFOUND THEN
1575: x_return_status := OKL_API.G_RET_STS_ERROR;
1576: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1577: END IF;
1578: END LOOP;
1579: RETURN(x_return_status);
1572: -- Multi-Currency Change
1573: i := i + 1;
1574: IF c_okl_asdv_pk_csr%NOTFOUND THEN
1575: x_return_status := OKL_API.G_RET_STS_ERROR;
1576: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1577: END IF;
1578: END LOOP;
1579: RETURN(x_return_status);
1580: EXCEPTION
1579: RETURN(x_return_status);
1580: EXCEPTION
1581: WHEN OTHERS THEN
1582: -- store SQL error message on message stack for caller
1583: OKL_API.set_message(
1584: G_APP_NAME,
1585: G_UNEXPECTED_ERROR,
1586: G_SQLCODE_TOKEN,
1587: SQLCODE,
1590: IF c_okl_asdv_pk_csr%ISOPEN THEN
1591: CLOSE c_okl_asdv_pk_csr;
1592: END IF;
1593: -- notify caller of an UNEXPECTED error
1594: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1595: return(x_return_status);
1596: END get_txdv_tbl;
1597: ----------------------------------------------------------------------------
1598: -- Start of Commnets
1605: -- End of Commnets
1606: FUNCTION get_itiv_rec(p_kle_id IN NUMBER,
1607: x_itiv_rec OUT NOCOPY itiv_rec_type)
1608: RETURN VARCHAR2 IS
1609: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1610: CURSOR okl_itiv_pk_csr (p_kle_id IN NUMBER) IS
1611: SELECT ID,
1612: OBJECT_VERSION_NUMBER,
1613: TAS_ID,
1694: x_itiv_rec.LAST_UPDATED_BY,
1695: x_itiv_rec.LAST_UPDATE_DATE,
1696: x_itiv_rec.LAST_UPDATE_LOGIN;
1697: IF okl_itiv_pk_csr%NOTFOUND THEN
1698: x_return_status := OKL_API.G_RET_STS_ERROR;
1699: END IF;
1700: CLOSE okl_itiv_pk_csr;
1701: RETURN(x_return_status);
1702: EXCEPTION
1701: RETURN(x_return_status);
1702: EXCEPTION
1703: WHEN OTHERS THEN
1704: -- store SQL error message on message stack for caller
1705: OKL_API.set_message(
1706: G_APP_NAME,
1707: G_UNEXPECTED_ERROR,
1708: G_SQLCODE_TOKEN,
1709: SQLCODE,
1712: IF okl_itiv_pk_csr%ISOPEN THEN
1713: CLOSE okl_itiv_pk_csr;
1714: END IF;
1715: -- notify caller of an UNEXPECTED error
1716: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1717: RETURN(x_return_status);
1718: END get_itiv_rec;
1719: --------------------------------------------------------------------------
1720: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,
1719: --------------------------------------------------------------------------
1720: FUNCTION get_try_id(p_try_name IN OKL_TRX_TYPES_V.NAME%TYPE,
1721: x_try_id OUT NOCOPY OKC_LINE_STYLES_V.ID%TYPE)
1722: RETURN VARCHAR2 IS
1723: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1724: CURSOR c_get_try_id(p_try_name OKL_TRX_TYPES_V.NAME%TYPE) IS
1725: SELECT id
1726: FROM OKL_TRX_TYPES_tl
1727: WHERE upper(name) = upper(p_try_name)
1726: FROM OKL_TRX_TYPES_tl
1727: WHERE upper(name) = upper(p_try_name)
1728: AND language = G_LANGUAGE;
1729: BEGIN
1730: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
1731: (p_try_name IS NULL) THEN
1732: -- store SQL error message on message stack
1733: OKL_API.set_message(p_app_name => G_APP_NAME,
1734: p_msg_name => G_REQUIRED_VALUE,
1729: BEGIN
1730: IF (p_try_name = OKL_API.G_MISS_CHAR) OR
1731: (p_try_name IS NULL) THEN
1732: -- store SQL error message on message stack
1733: OKL_API.set_message(p_app_name => G_APP_NAME,
1734: p_msg_name => G_REQUIRED_VALUE,
1735: p_token1 => G_COL_NAME_TOKEN,
1736: p_token1_value => 'Try Name');
1737: -- halt validation as it is a required field
1739: END IF;
1740: OPEN c_get_try_id(p_try_name);
1741: FETCH c_get_try_id INTO x_try_id;
1742: IF c_get_try_id%NOTFOUND THEN
1743: OKL_API.set_message(p_app_name => G_APP_NAME,
1744: p_msg_name => G_NO_MATCHING_RECORD,
1745: p_token1 => G_COL_NAME_TOKEN,
1746: p_token1_value => 'Try Name');
1747: RAISE G_EXCEPTION_HALT_VALIDATION;
1751: EXCEPTION
1752: WHEN G_EXCEPTION_STOP_VALIDATION then
1753: -- We are here since the field is required
1754: -- Notify Error
1755: x_return_status := OKL_API.G_RET_STS_ERROR;
1756: WHEN G_EXCEPTION_HALT_VALIDATION then
1757: -- We are here b'cause we have no parent record
1758: -- If the cursor is open then it has to be closed
1759: IF c_get_try_id%ISOPEN THEN
1759: IF c_get_try_id%ISOPEN THEN
1760: CLOSE c_get_try_id;
1761: END IF;
1762: -- notify caller of an error
1763: x_return_status := OKL_API.G_RET_STS_ERROR;
1764: WHEN OTHERS THEN
1765: -- store SQL error message on message stack for caller
1766: OKL_API.set_message(
1767: G_APP_NAME,
1762: -- notify caller of an error
1763: x_return_status := OKL_API.G_RET_STS_ERROR;
1764: WHEN OTHERS THEN
1765: -- store SQL error message on message stack for caller
1766: OKL_API.set_message(
1767: G_APP_NAME,
1768: G_UNEXPECTED_ERROR,
1769: G_SQLCODE_TOKEN,
1770: SQLCODE,
1770: SQLCODE,
1771: G_SQLERRM_TOKEN,
1772: SQLERRM);
1773: -- notify caller of an UNEXPECTED error
1774: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1775: -- if the cursor is open
1776: IF c_get_try_id%ISOPEN THEN
1777: CLOSE c_get_try_id;
1778: END IF;
1810: FROM okc_k_items_v cim
1811: WHERE cim.dnz_chr_id = p_dnz_chr_id
1812: AND cim.cle_id = p_cle_id;
1813: l_okc_cimv_pk okc_cimv_pk_csr%ROWTYPE;
1814: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1815: BEGIN
1816: OPEN okc_cimv_pk_csr(p_cle_id,
1817: p_dnz_chr_id);
1818: FETCH okc_cimv_pk_csr INTO
1836: x_cimv_rec.LAST_UPDATED_BY,
1837: x_cimv_rec.LAST_UPDATE_DATE,
1838: x_cimv_rec.LAST_UPDATE_LOGIN;
1839: IF okc_cimv_pk_csr%NOTFOUND THEN
1840: x_return_status := OKL_API.G_RET_STS_ERROR;
1841: END IF;
1842: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1843: x_return_status := OKL_API.G_RET_STS_ERROR;
1844: END IF;
1839: IF okc_cimv_pk_csr%NOTFOUND THEN
1840: x_return_status := OKL_API.G_RET_STS_ERROR;
1841: END IF;
1842: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
1843: x_return_status := OKL_API.G_RET_STS_ERROR;
1844: END IF;
1845: CLOSE okc_cimv_pk_csr;
1846: RETURN(x_return_status);
1847: EXCEPTION
1846: RETURN(x_return_status);
1847: EXCEPTION
1848: WHEN OTHERS THEN
1849: -- store SQL error message on message stack for caller
1850: OKL_API.set_message(
1851: G_APP_NAME,
1852: G_UNEXPECTED_ERROR,
1853: G_SQLCODE_TOKEN,
1854: SQLCODE,
1854: SQLCODE,
1855: G_SQLERRM_TOKEN,
1856: SQLERRM);
1857: -- notify caller of an UNEXPECTED error
1858: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1859: -- if the cursor is open
1860: IF okc_cimv_pk_csr%ISOPEN THEN
1861: CLOSE okc_cimv_pk_csr;
1862: END IF;
1872: -- Version :
1873: -- End of Commnets
1874: PROCEDURE Create_asset_header(
1875: p_api_version IN NUMBER,
1876: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1877: x_return_status OUT NOCOPY VARCHAR2,
1878: x_msg_count OUT NOCOPY NUMBER,
1879: x_msg_data OUT NOCOPY VARCHAR2,
1880: p_trxv_rec IN trxv_rec_type,
1880: p_trxv_rec IN trxv_rec_type,
1881: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
1882: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TRX_ASSET_HEADER';
1883: BEGIN
1884: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1885: -- Call start_activity to create savepoint, check compatibility
1886: -- and initialize message list
1887: x_return_status := OKL_API.START_ACTIVITY (
1888: l_api_name
1883: BEGIN
1884: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1885: -- Call start_activity to create savepoint, check compatibility
1886: -- and initialize message list
1887: x_return_status := OKL_API.START_ACTIVITY (
1888: l_api_name
1889: ,p_init_msg_list
1890: ,'_PVT'
1891: ,x_return_status);
1889: ,p_init_msg_list
1890: ,'_PVT'
1891: ,x_return_status);
1892: -- Check if activity started successfully
1893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1896: RAISE OKL_API.G_EXCEPTION_ERROR;
1897: END IF;
1890: ,'_PVT'
1891: ,x_return_status);
1892: -- Check if activity started successfully
1893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1896: RAISE OKL_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: -- evaluate conditions, build outcomes for true conditions and
1891: ,x_return_status);
1892: -- Check if activity started successfully
1893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1896: RAISE OKL_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: -- evaluate conditions, build outcomes for true conditions and
1899: -- put them on outcome queue
1892: -- Check if activity started successfully
1893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1896: RAISE OKL_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: -- evaluate conditions, build outcomes for true conditions and
1899: -- put them on outcome queue
1900: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
1904: x_msg_count => x_msg_count,
1905: x_msg_data => x_msg_data,
1906: p_thpv_rec => p_trxv_rec,
1907: x_thpv_rec => x_trxv_rec);
1908: OKL_API.END_ACTIVITY (x_msg_count,
1909: x_msg_data );
1910: EXCEPTION
1911: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1907: x_thpv_rec => x_trxv_rec);
1908: OKL_API.END_ACTIVITY (x_msg_count,
1909: x_msg_data );
1910: EXCEPTION
1911: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OKL_API.G_RET_STS_ERROR',
1908: OKL_API.END_ACTIVITY (x_msg_count,
1909: x_msg_data );
1910: EXCEPTION
1911: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OKL_API.G_RET_STS_ERROR',
1916: x_msg_count,
1911: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1912: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1913: l_api_name,
1914: G_PKG_NAME,
1915: 'OKL_API.G_RET_STS_ERROR',
1916: x_msg_count,
1917: x_msg_data,
1918: '_PVT');
1919: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1915: 'OKL_API.G_RET_STS_ERROR',
1916: x_msg_count,
1917: x_msg_data,
1918: '_PVT');
1919: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1916: x_msg_count,
1917: x_msg_data,
1918: '_PVT');
1919: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1924: x_msg_count,
1919: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT');
1927: WHEN OTHERS THEN
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT');
1927: WHEN OTHERS THEN
1928: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1929: l_api_name,
1930: G_PKG_NAME,
1931: 'OTHERS',
1932: x_msg_count,
1943: -- Version :
1944: -- End of Commnets
1945: PROCEDURE Update_asset_header(
1946: p_api_version IN NUMBER,
1947: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1948: x_return_status OUT NOCOPY VARCHAR2,
1949: x_msg_count OUT NOCOPY NUMBER,
1950: x_msg_data OUT NOCOPY VARCHAR2,
1951: p_trxv_rec IN trxv_rec_type,
1951: p_trxv_rec IN trxv_rec_type,
1952: x_trxv_rec OUT NOCOPY trxv_rec_type) IS
1953: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSET_HEADER';
1954: BEGIN
1955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1956: -- Call start_activity to create savepoint, check compatibility
1957: -- and initialize message list
1958: x_return_status := OKL_API.START_ACTIVITY (
1959: l_api_name
1954: BEGIN
1955: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1956: -- Call start_activity to create savepoint, check compatibility
1957: -- and initialize message list
1958: x_return_status := OKL_API.START_ACTIVITY (
1959: l_api_name
1960: ,p_init_msg_list
1961: ,'_PVT'
1962: ,x_return_status);
1960: ,p_init_msg_list
1961: ,'_PVT'
1962: ,x_return_status);
1963: -- Check if activity started successfully
1964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1967: RAISE OKL_API.G_EXCEPTION_ERROR;
1968: END IF;
1961: ,'_PVT'
1962: ,x_return_status);
1963: -- Check if activity started successfully
1964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1967: RAISE OKL_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: -- evaluate conditions, build outcomes for true conditions and
1962: ,x_return_status);
1963: -- Check if activity started successfully
1964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1967: RAISE OKL_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: -- evaluate conditions, build outcomes for true conditions and
1970: -- put them on outcome queue
1963: -- Check if activity started successfully
1964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1967: RAISE OKL_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: -- evaluate conditions, build outcomes for true conditions and
1970: -- put them on outcome queue
1971: OKL_TRX_ASSETS_PUB.update_trx_ass_h_def(
1975: x_msg_count => x_msg_count,
1976: x_msg_data => x_msg_data,
1977: p_thpv_rec => p_trxv_rec,
1978: x_thpv_rec => x_trxv_rec);
1979: OKL_API.END_ACTIVITY (x_msg_count,
1980: x_msg_data );
1981: EXCEPTION
1982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1978: x_thpv_rec => x_trxv_rec);
1979: OKL_API.END_ACTIVITY (x_msg_count,
1980: x_msg_data );
1981: EXCEPTION
1982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1984: l_api_name,
1985: G_PKG_NAME,
1986: 'OKL_API.G_RET_STS_ERROR',
1979: OKL_API.END_ACTIVITY (x_msg_count,
1980: x_msg_data );
1981: EXCEPTION
1982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1984: l_api_name,
1985: G_PKG_NAME,
1986: 'OKL_API.G_RET_STS_ERROR',
1987: x_msg_count,
1982: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1983: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1984: l_api_name,
1985: G_PKG_NAME,
1986: 'OKL_API.G_RET_STS_ERROR',
1987: x_msg_count,
1988: x_msg_data,
1989: '_PVT');
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986: 'OKL_API.G_RET_STS_ERROR',
1987: x_msg_count,
1988: x_msg_data,
1989: '_PVT');
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1987: x_msg_count,
1988: x_msg_data,
1989: '_PVT');
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1995: x_msg_count,
1990: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1991: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1992: l_api_name,
1993: G_PKG_NAME,
1994: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1995: x_msg_count,
1996: x_msg_data,
1997: '_PVT');
1998: WHEN OTHERS THEN
1995: x_msg_count,
1996: x_msg_data,
1997: '_PVT');
1998: WHEN OTHERS THEN
1999: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2000: l_api_name,
2001: G_PKG_NAME,
2002: 'OTHERS',
2003: x_msg_count,
2014: -- Version :
2015: -- End of Commnets
2016: PROCEDURE Create_asset_lines(
2017: p_api_version IN NUMBER,
2018: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2019: x_return_status OUT NOCOPY VARCHAR2,
2020: x_msg_count OUT NOCOPY NUMBER,
2021: x_msg_data OUT NOCOPY VARCHAR2,
2022: p_talv_rec IN talv_rec_type,
2023: x_talv_rec OUT NOCOPY talv_rec_type)
2024: IS
2025: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXL_ASSET_LINE';
2026: BEGIN
2027: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2028: -- Call start_activity to create savepoint, check compatibility
2029: -- and initialize message list
2030: x_return_status := OKL_API.START_ACTIVITY (
2031: l_api_name
2026: BEGIN
2027: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2028: -- Call start_activity to create savepoint, check compatibility
2029: -- and initialize message list
2030: x_return_status := OKL_API.START_ACTIVITY (
2031: l_api_name
2032: ,p_init_msg_list
2033: ,'_PVT'
2034: ,x_return_status);
2032: ,p_init_msg_list
2033: ,'_PVT'
2034: ,x_return_status);
2035: -- Check if activity started successfully
2036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2033: ,'_PVT'
2034: ,x_return_status);
2035: -- Check if activity started successfully
2036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
2034: ,x_return_status);
2035: -- Check if activity started successfully
2036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
2042: p_api_version => p_api_version,
2035: -- Check if activity started successfully
2036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2039: RAISE OKL_API.G_EXCEPTION_ERROR;
2040: END IF;
2041: OKL_TXL_ASSETS_PUB.create_txl_asset_def(
2042: p_api_version => p_api_version,
2043: p_init_msg_list => p_init_msg_list,
2045: x_msg_count => x_msg_count,
2046: x_msg_data => x_msg_data,
2047: p_tlpv_rec => p_talv_rec,
2048: x_tlpv_rec => x_talv_rec);
2049: OKL_API.END_ACTIVITY (x_msg_count,
2050: x_msg_data );
2051: EXCEPTION
2052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2048: x_tlpv_rec => x_talv_rec);
2049: OKL_API.END_ACTIVITY (x_msg_count,
2050: x_msg_data );
2051: EXCEPTION
2052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2054: l_api_name,
2055: G_PKG_NAME,
2056: 'OKL_API.G_RET_STS_ERROR',
2049: OKL_API.END_ACTIVITY (x_msg_count,
2050: x_msg_data );
2051: EXCEPTION
2052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2054: l_api_name,
2055: G_PKG_NAME,
2056: 'OKL_API.G_RET_STS_ERROR',
2057: x_msg_count,
2052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2053: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2054: l_api_name,
2055: G_PKG_NAME,
2056: 'OKL_API.G_RET_STS_ERROR',
2057: x_msg_count,
2058: x_msg_data,
2059: '_PVT');
2060: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2056: 'OKL_API.G_RET_STS_ERROR',
2057: x_msg_count,
2058: x_msg_data,
2059: '_PVT');
2060: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2062: l_api_name,
2063: G_PKG_NAME,
2064: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2057: x_msg_count,
2058: x_msg_data,
2059: '_PVT');
2060: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2062: l_api_name,
2063: G_PKG_NAME,
2064: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2065: x_msg_count,
2060: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2061: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2062: l_api_name,
2063: G_PKG_NAME,
2064: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2065: x_msg_count,
2066: x_msg_data,
2067: '_PVT');
2068: WHEN OTHERS THEN
2065: x_msg_count,
2066: x_msg_data,
2067: '_PVT');
2068: WHEN OTHERS THEN
2069: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2070: l_api_name,
2071: G_PKG_NAME,
2072: 'OTHERS',
2073: x_msg_count,
2084: -- Version :
2085: -- End of Commnets
2086: PROCEDURE Create_asset_line_details(
2087: p_api_version IN NUMBER,
2088: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2089: x_return_status OUT NOCOPY VARCHAR2,
2090: x_msg_count OUT NOCOPY NUMBER,
2091: x_msg_data OUT NOCOPY VARCHAR2,
2092: p_txdv_tbl IN txdv_tbl_type,
2093: x_txdv_tbl OUT NOCOPY txdv_tbl_type)
2094: IS
2095: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXD_ASSET_DTL';
2096: BEGIN
2097: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2098: -- Call start_activity to create savepoint, check compatibility
2099: -- and initialize message list
2100: x_return_status := OKL_API.START_ACTIVITY (
2101: l_api_name
2096: BEGIN
2097: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2098: -- Call start_activity to create savepoint, check compatibility
2099: -- and initialize message list
2100: x_return_status := OKL_API.START_ACTIVITY (
2101: l_api_name
2102: ,p_init_msg_list
2103: ,'_PVT'
2104: ,x_return_status);
2102: ,p_init_msg_list
2103: ,'_PVT'
2104: ,x_return_status);
2105: -- Check if activity started successfully
2106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_ERROR;
2110: END IF;
2103: ,'_PVT'
2104: ,x_return_status);
2105: -- Check if activity started successfully
2106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2104: ,x_return_status);
2105: -- Check if activity started successfully
2106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2112: p_api_version => p_api_version,
2105: -- Check if activity started successfully
2106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2108: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2109: RAISE OKL_API.G_EXCEPTION_ERROR;
2110: END IF;
2111: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2112: p_api_version => p_api_version,
2113: p_init_msg_list => p_init_msg_list,
2115: x_msg_count => x_msg_count,
2116: x_msg_data => x_msg_data,
2117: p_adpv_tbl => p_txdv_tbl,
2118: x_adpv_tbl => x_txdv_tbl);
2119: OKL_API.END_ACTIVITY (x_msg_count,
2120: x_msg_data );
2121: EXCEPTION
2122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2118: x_adpv_tbl => x_txdv_tbl);
2119: OKL_API.END_ACTIVITY (x_msg_count,
2120: x_msg_data );
2121: EXCEPTION
2122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2124: l_api_name,
2125: G_PKG_NAME,
2126: 'OKL_API.G_RET_STS_ERROR',
2119: OKL_API.END_ACTIVITY (x_msg_count,
2120: x_msg_data );
2121: EXCEPTION
2122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2124: l_api_name,
2125: G_PKG_NAME,
2126: 'OKL_API.G_RET_STS_ERROR',
2127: x_msg_count,
2122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2123: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2124: l_api_name,
2125: G_PKG_NAME,
2126: 'OKL_API.G_RET_STS_ERROR',
2127: x_msg_count,
2128: x_msg_data,
2129: '_PVT');
2130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2126: 'OKL_API.G_RET_STS_ERROR',
2127: x_msg_count,
2128: x_msg_data,
2129: '_PVT');
2130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2131: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2132: l_api_name,
2133: G_PKG_NAME,
2134: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2127: x_msg_count,
2128: x_msg_data,
2129: '_PVT');
2130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2131: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2132: l_api_name,
2133: G_PKG_NAME,
2134: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2135: x_msg_count,
2130: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2131: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2132: l_api_name,
2133: G_PKG_NAME,
2134: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2135: x_msg_count,
2136: x_msg_data,
2137: '_PVT');
2138: WHEN OTHERS THEN
2135: x_msg_count,
2136: x_msg_data,
2137: '_PVT');
2138: WHEN OTHERS THEN
2139: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2140: l_api_name,
2141: G_PKG_NAME,
2142: 'OTHERS',
2143: x_msg_count,
2155: -- Version :
2156: -- End of Commnets
2157: PROCEDURE Create_asset_line_details(
2158: p_api_version IN NUMBER,
2159: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2160: x_return_status OUT NOCOPY VARCHAR2,
2161: x_msg_count OUT NOCOPY NUMBER,
2162: x_msg_data OUT NOCOPY VARCHAR2,
2163: p_txdv_rec IN txdv_rec_type,
2164: x_txdv_rec OUT NOCOPY txdv_rec_type)
2165: IS
2166: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXD_ASSET_DTL';
2167: BEGIN
2168: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2169: -- Call start_activity to create savepoint, check compatibility
2170: -- and initialize message list
2171: x_return_status := OKL_API.START_ACTIVITY (
2172: l_api_name
2167: BEGIN
2168: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2169: -- Call start_activity to create savepoint, check compatibility
2170: -- and initialize message list
2171: x_return_status := OKL_API.START_ACTIVITY (
2172: l_api_name
2173: ,p_init_msg_list
2174: ,'_PVT'
2175: ,x_return_status);
2173: ,p_init_msg_list
2174: ,'_PVT'
2175: ,x_return_status);
2176: -- Check if activity started successfully
2177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_ERROR;
2181: END IF;
2174: ,'_PVT'
2175: ,x_return_status);
2176: -- Check if activity started successfully
2177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_ERROR;
2181: END IF;
2182: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2175: ,x_return_status);
2176: -- Check if activity started successfully
2177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_ERROR;
2181: END IF;
2182: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2183: p_api_version => p_api_version,
2176: -- Check if activity started successfully
2177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2180: RAISE OKL_API.G_EXCEPTION_ERROR;
2181: END IF;
2182: OKL_TXD_ASSETS_PUB.create_txd_asset_def(
2183: p_api_version => p_api_version,
2184: p_init_msg_list => p_init_msg_list,
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2188: p_adpv_rec => p_txdv_rec,
2189: x_adpv_rec => x_txdv_rec);
2190: OKL_API.END_ACTIVITY (x_msg_count,
2191: x_msg_data );
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2189: x_adpv_rec => x_txdv_rec);
2190: OKL_API.END_ACTIVITY (x_msg_count,
2191: x_msg_data );
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKL_API.G_RET_STS_ERROR',
2190: OKL_API.END_ACTIVITY (x_msg_count,
2191: x_msg_data );
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKL_API.G_RET_STS_ERROR',
2198: x_msg_count,
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKL_API.G_RET_STS_ERROR',
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT');
2201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2197: 'OKL_API.G_RET_STS_ERROR',
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT');
2201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2203: l_api_name,
2204: G_PKG_NAME,
2205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT');
2201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2203: l_api_name,
2204: G_PKG_NAME,
2205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2206: x_msg_count,
2201: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2202: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2203: l_api_name,
2204: G_PKG_NAME,
2205: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2206: x_msg_count,
2207: x_msg_data,
2208: '_PVT');
2209: WHEN OTHERS THEN
2206: x_msg_count,
2207: x_msg_data,
2208: '_PVT');
2209: WHEN OTHERS THEN
2210: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2211: l_api_name,
2212: G_PKG_NAME,
2213: 'OTHERS',
2214: x_msg_count,
2217: END Create_asset_line_details;
2218: --------------------------------------------------------------------------------------------------------------
2219: PROCEDURE create_txl_iti(
2220: p_api_version IN NUMBER,
2221: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2222: x_return_status OUT NOCOPY VARCHAR2,
2223: x_msg_count OUT NOCOPY NUMBER,
2224: x_msg_data OUT NOCOPY VARCHAR2,
2225: p_itiv_rec IN itiv_rec_type,
2226: x_itiv_rec OUT NOCOPY itiv_rec_type) IS
2227:
2228: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TXL_ITM_INSTS';
2229: BEGIN
2230: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2231: -- Call start_activity to create savepoint, check compatibility
2232: -- and initialize message list
2233: x_return_status := OKL_API.START_ACTIVITY (
2234: l_api_name
2229: BEGIN
2230: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2231: -- Call start_activity to create savepoint, check compatibility
2232: -- and initialize message list
2233: x_return_status := OKL_API.START_ACTIVITY (
2234: l_api_name
2235: ,p_init_msg_list
2236: ,'_PVT'
2237: ,x_return_status);
2235: ,p_init_msg_list
2236: ,'_PVT'
2237: ,x_return_status);
2238: -- Check if activity started successfully
2239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2236: ,'_PVT'
2237: ,x_return_status);
2238: -- Check if activity started successfully
2239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: OKL_TXL_ITM_INSTS_PUB.create_txl_itm_insts(
2237: ,x_return_status);
2238: -- Check if activity started successfully
2239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: OKL_TXL_ITM_INSTS_PUB.create_txl_itm_insts(
2245: p_api_version => p_api_version,
2238: -- Check if activity started successfully
2239: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: OKL_TXL_ITM_INSTS_PUB.create_txl_itm_insts(
2245: p_api_version => p_api_version,
2246: p_init_msg_list => p_init_msg_list,
2248: x_msg_count => x_msg_count,
2249: x_msg_data => x_msg_data,
2250: p_iipv_rec => p_itiv_rec,
2251: x_iipv_rec => x_itiv_rec);
2252: OKL_API.END_ACTIVITY (x_msg_count,
2253: x_msg_data );
2254: EXCEPTION
2255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2251: x_iipv_rec => x_itiv_rec);
2252: OKL_API.END_ACTIVITY (x_msg_count,
2253: x_msg_data );
2254: EXCEPTION
2255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2257: l_api_name,
2258: G_PKG_NAME,
2259: 'OKL_API.G_RET_STS_ERROR',
2252: OKL_API.END_ACTIVITY (x_msg_count,
2253: x_msg_data );
2254: EXCEPTION
2255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2257: l_api_name,
2258: G_PKG_NAME,
2259: 'OKL_API.G_RET_STS_ERROR',
2260: x_msg_count,
2255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2256: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2257: l_api_name,
2258: G_PKG_NAME,
2259: 'OKL_API.G_RET_STS_ERROR',
2260: x_msg_count,
2261: x_msg_data,
2262: '_PVT');
2263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2259: 'OKL_API.G_RET_STS_ERROR',
2260: x_msg_count,
2261: x_msg_data,
2262: '_PVT');
2263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2264: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2265: l_api_name,
2266: G_PKG_NAME,
2267: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2260: x_msg_count,
2261: x_msg_data,
2262: '_PVT');
2263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2264: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2265: l_api_name,
2266: G_PKG_NAME,
2267: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2268: x_msg_count,
2263: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2264: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2265: l_api_name,
2266: G_PKG_NAME,
2267: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2268: x_msg_count,
2269: x_msg_data,
2270: '_PVT');
2271: WHEN OTHERS THEN
2268: x_msg_count,
2269: x_msg_data,
2270: '_PVT');
2271: WHEN OTHERS THEN
2272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2273: l_api_name,
2274: G_PKG_NAME,
2275: 'OTHERS',
2276: x_msg_count,
2278: '_PVT');
2279: END create_txl_iti;
2280: --------------------------------------------------------------------------------------------------------------
2281: PROCEDURE create_supp_invoice_dtls(p_api_version IN NUMBER,
2282: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2283: x_return_status OUT NOCOPY VARCHAR2,
2284: x_msg_count OUT NOCOPY NUMBER,
2285: x_msg_data OUT NOCOPY VARCHAR2,
2286: p_cle_id IN OKC_K_LINES_V.ID%TYPE,
2366: AND cle_ad.lse_id = lse_ad.id
2367: AND lse_ad.lty_code = G_ADDON_LINE_LTY_CODE;
2368:
2369: BEGIN
2370: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2371: -- Call start_activity to create savepoint, check compatibility
2372: -- and initialize message list
2373: x_return_status := OKL_API.START_ACTIVITY (
2374: l_api_name
2369: BEGIN
2370: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2371: -- Call start_activity to create savepoint, check compatibility
2372: -- and initialize message list
2373: x_return_status := OKL_API.START_ACTIVITY (
2374: l_api_name
2375: ,p_init_msg_list
2376: ,'_PVT'
2377: ,x_return_status);
2375: ,p_init_msg_list
2376: ,'_PVT'
2377: ,x_return_status);
2378: -- Check if activity started successfully
2379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2376: ,'_PVT'
2377: ,x_return_status);
2378: -- Check if activity started successfully
2379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2384: OPEN c_model_line_id(p_cle_id => p_cle_id);
2377: ,x_return_status);
2378: -- Check if activity started successfully
2379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2384: OPEN c_model_line_id(p_cle_id => p_cle_id);
2385: FETCH c_model_line_id INTO ln_cle_id,
2378: -- Check if activity started successfully
2379: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2381: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2382: RAISE OKL_API.G_EXCEPTION_ERROR;
2383: END IF;
2384: OPEN c_model_line_id(p_cle_id => p_cle_id);
2385: FETCH c_model_line_id INTO ln_cle_id,
2386: ln_fa_cle_id;
2392: IF ln_dummy = 1 THEN
2393: -- Get the SID Record
2394: x_return_status := get_sidv_rec(p_cle_id => ln_cle_id,
2395: x_sidv_rec => l_sidv_rec);
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: OKL_API.set_message(p_app_name => G_APP_NAME,
2398: p_msg_name => G_NO_MATCHING_RECORD,
2399: p_token1 => G_COL_NAME_TOKEN,
2400: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2393: -- Get the SID Record
2394: x_return_status := get_sidv_rec(p_cle_id => ln_cle_id,
2395: x_sidv_rec => l_sidv_rec);
2396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2397: OKL_API.set_message(p_app_name => G_APP_NAME,
2398: p_msg_name => G_NO_MATCHING_RECORD,
2399: p_token1 => G_COL_NAME_TOKEN,
2400: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2397: OKL_API.set_message(p_app_name => G_APP_NAME,
2398: p_msg_name => G_NO_MATCHING_RECORD,
2399: p_token1 => G_COL_NAME_TOKEN,
2400: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: OKL_API.set_message(p_app_name => G_APP_NAME,
2404: p_msg_name => G_NO_MATCHING_RECORD,
2405: p_token1 => G_COL_NAME_TOKEN,
2398: p_msg_name => G_NO_MATCHING_RECORD,
2399: p_token1 => G_COL_NAME_TOKEN,
2400: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: OKL_API.set_message(p_app_name => G_APP_NAME,
2404: p_msg_name => G_NO_MATCHING_RECORD,
2405: p_token1 => G_COL_NAME_TOKEN,
2406: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2399: p_token1 => G_COL_NAME_TOKEN,
2400: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: OKL_API.set_message(p_app_name => G_APP_NAME,
2404: p_msg_name => G_NO_MATCHING_RECORD,
2405: p_token1 => G_COL_NAME_TOKEN,
2406: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2407: RAISE OKL_API.G_EXCEPTION_ERROR;
2403: OKL_API.set_message(p_app_name => G_APP_NAME,
2404: p_msg_name => G_NO_MATCHING_RECORD,
2405: p_token1 => G_COL_NAME_TOKEN,
2406: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2407: RAISE OKL_API.G_EXCEPTION_ERROR;
2408: END IF;
2409: OPEN c_model_line_id(p_cle_id => p_fin_cle_id);
2410: FETCH c_model_line_id INTO l_sidv_rec.cle_id,
2411: l_sidv_rec.fa_cle_id;
2417: x_msg_count => x_msg_count,
2418: x_msg_data => x_msg_data,
2419: p_sidv_rec => l_sidv_rec,
2420: x_sidv_rec => lx_sidv_rec);
2421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: END IF;
2418: x_msg_data => x_msg_data,
2419: p_sidv_rec => l_sidv_rec,
2420: x_sidv_rec => lx_sidv_rec);
2421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: END IF;
2426: END IF;
2419: p_sidv_rec => l_sidv_rec,
2420: x_sidv_rec => lx_sidv_rec);
2421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: END IF;
2426: END IF;
2427: -- Copy the supplier Invoice Details associated to Add on line
2420: x_sidv_rec => lx_sidv_rec);
2421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2424: RAISE OKL_API.G_EXCEPTION_ERROR;
2425: END IF;
2426: END IF;
2427: -- Copy the supplier Invoice Details associated to Add on line
2428: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => p_cle_id) LOOP
2426: END IF;
2427: -- Copy the supplier Invoice Details associated to Add on line
2428: FOR r_addon_line_id IN c_addon_line_id(p_cle_id => p_cle_id) LOOP
2429: IF r_addon_line_id.ad_cle_id IS NOT NULL OR
2430: r_addon_line_id.ad_cle_id <> OKL_API.G_MISS_NUM THEN
2431: OPEN c_validate_supp(p_cle_id => r_addon_line_id.ad_cle_id);
2432: FETCH c_validate_supp INTO ln1_dummy;
2433: CLOSE c_validate_supp;
2434: IF ln1_dummy = 1 THEN
2433: CLOSE c_validate_supp;
2434: IF ln1_dummy = 1 THEN
2435: x_return_status := get_sidv_rec(p_cle_id => r_addon_line_id.ad_cle_id,
2436: x_sidv_rec => lad_sidv_rec);
2437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: OKL_API.set_message(p_app_name => G_APP_NAME,
2439: p_msg_name => G_NO_MATCHING_RECORD,
2440: p_token1 => G_COL_NAME_TOKEN,
2441: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2434: IF ln1_dummy = 1 THEN
2435: x_return_status := get_sidv_rec(p_cle_id => r_addon_line_id.ad_cle_id,
2436: x_sidv_rec => lad_sidv_rec);
2437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2438: OKL_API.set_message(p_app_name => G_APP_NAME,
2439: p_msg_name => G_NO_MATCHING_RECORD,
2440: p_token1 => G_COL_NAME_TOKEN,
2441: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2438: OKL_API.set_message(p_app_name => G_APP_NAME,
2439: p_msg_name => G_NO_MATCHING_RECORD,
2440: p_token1 => G_COL_NAME_TOKEN,
2441: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: OKL_API.set_message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_NO_MATCHING_RECORD,
2446: p_token1 => G_COL_NAME_TOKEN,
2439: p_msg_name => G_NO_MATCHING_RECORD,
2440: p_token1 => G_COL_NAME_TOKEN,
2441: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: OKL_API.set_message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_NO_MATCHING_RECORD,
2446: p_token1 => G_COL_NAME_TOKEN,
2447: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2440: p_token1 => G_COL_NAME_TOKEN,
2441: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2442: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2443: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: OKL_API.set_message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_NO_MATCHING_RECORD,
2446: p_token1 => G_COL_NAME_TOKEN,
2447: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2444: OKL_API.set_message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_NO_MATCHING_RECORD,
2446: p_token1 => G_COL_NAME_TOKEN,
2447: p_token1_value => 'OKL_SUPP_INVOICE_DTLS_V record');
2448: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2449: END IF;
2450: OPEN c_new_addon_line_id(p_cle_id => p_fin_cle_id,
2451: p_orig_cle_id => r_addon_line_id.ad_cle_id);
2452: FETCH c_new_addon_line_id INTO lad_sidv_rec.cle_id,
2459: x_msg_count => x_msg_count,
2460: x_msg_data => x_msg_data,
2461: p_sidv_rec => lad_sidv_rec,
2462: x_sidv_rec => ladx_sidv_rec);
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2467: END IF;
2460: x_msg_data => x_msg_data,
2461: p_sidv_rec => lad_sidv_rec,
2462: x_sidv_rec => ladx_sidv_rec);
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2467: END IF;
2468: ln1_dummy := 0;
2461: p_sidv_rec => lad_sidv_rec,
2462: x_sidv_rec => ladx_sidv_rec);
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2467: END IF;
2468: ln1_dummy := 0;
2469: END IF;
2462: x_sidv_rec => ladx_sidv_rec);
2463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
2467: END IF;
2468: ln1_dummy := 0;
2469: END IF;
2470: END IF;
2468: ln1_dummy := 0;
2469: END IF;
2470: END IF;
2471: END LOOP;
2472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_ERROR;
2476: END IF;
2469: END IF;
2470: END IF;
2471: END LOOP;
2472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: OKL_API.END_ACTIVITY (x_msg_count,
2470: END IF;
2471: END LOOP;
2472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: OKL_API.END_ACTIVITY (x_msg_count,
2478: x_msg_data );
2471: END LOOP;
2472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: OKL_API.END_ACTIVITY (x_msg_count,
2478: x_msg_data );
2479: EXCEPTION
2473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2475: RAISE OKL_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: OKL_API.END_ACTIVITY (x_msg_count,
2478: x_msg_data );
2479: EXCEPTION
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: IF c_validate_supp%ISOPEN THEN
2476: END IF;
2477: OKL_API.END_ACTIVITY (x_msg_count,
2478: x_msg_data );
2479: EXCEPTION
2480: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2481: IF c_validate_supp%ISOPEN THEN
2482: CLOSE c_validate_supp;
2483: END IF;
2484: IF c_model_line_id%ISOPEN THEN
2489: END IF;
2490: IF c_new_addon_line_id%ISOPEN THEN
2491: CLOSE c_new_addon_line_id;
2492: END IF;
2493: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2494: l_api_name,
2495: G_PKG_NAME,
2496: 'OKL_API.G_RET_STS_ERROR',
2497: x_msg_count,
2492: END IF;
2493: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2494: l_api_name,
2495: G_PKG_NAME,
2496: 'OKL_API.G_RET_STS_ERROR',
2497: x_msg_count,
2498: x_msg_data,
2499: '_PVT');
2500: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2496: 'OKL_API.G_RET_STS_ERROR',
2497: x_msg_count,
2498: x_msg_data,
2499: '_PVT');
2500: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2501: IF c_validate_supp%ISOPEN THEN
2502: CLOSE c_validate_supp;
2503: END IF;
2504: IF c_model_line_id%ISOPEN THEN
2509: END IF;
2510: IF c_new_addon_line_id%ISOPEN THEN
2511: CLOSE c_new_addon_line_id;
2512: END IF;
2513: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2514: l_api_name,
2515: G_PKG_NAME,
2516: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2517: x_msg_count,
2512: END IF;
2513: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2514: l_api_name,
2515: G_PKG_NAME,
2516: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2517: x_msg_count,
2518: x_msg_data,
2519: '_PVT');
2520: WHEN OTHERS THEN
2529: END IF;
2530: IF c_new_addon_line_id%ISOPEN THEN
2531: CLOSE c_new_addon_line_id;
2532: END IF;
2533: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2534: l_api_name,
2535: G_PKG_NAME,
2536: 'OTHERS',
2537: x_msg_count,
2540: END create_supp_invoice_dtls;
2541: -------------------------------------------------------------------------------------------------------
2542: PROCEDURE Create_asset_lines(
2543: p_api_version IN NUMBER,
2544: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2545: x_return_status OUT NOCOPY VARCHAR2,
2546: x_msg_count OUT NOCOPY NUMBER,
2547: x_msg_data OUT NOCOPY VARCHAR2,
2548: p_talv_rec IN talv_rec_type,
2558: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
2559: l_legal_entity_id NUMBER;
2560:
2561: BEGIN
2562: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2563: -- Call start_activity to create savepoint, check compatibility
2564: -- and initialize message list
2565: x_return_status := OKL_API.START_ACTIVITY (
2566: l_api_name
2561: BEGIN
2562: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2563: -- Call start_activity to create savepoint, check compatibility
2564: -- and initialize message list
2565: x_return_status := OKL_API.START_ACTIVITY (
2566: l_api_name
2567: ,p_init_msg_list
2568: ,'_PVT'
2569: ,x_return_status);
2567: ,p_init_msg_list
2568: ,'_PVT'
2569: ,x_return_status);
2570: -- Check if activity started successfully
2571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2568: ,'_PVT'
2569: ,x_return_status);
2570: -- Check if activity started successfully
2571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Create New Header record and new Line record
2569: ,x_return_status);
2570: -- Check if activity started successfully
2571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Create New Header record and new Line record
2577: -- Before creating Header record
2570: -- Check if activity started successfully
2571: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Create New Header record and new Line record
2577: -- Before creating Header record
2578: -- we should make sure atleast the required record is given
2577: -- Before creating Header record
2578: -- we should make sure atleast the required record is given
2579: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
2580: x_try_id => l_trxv_rec.try_id);
2581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2582: OKL_API.set_message(p_app_name => G_APP_NAME,
2583: p_msg_name => G_NO_MATCHING_RECORD,
2584: p_token1 => G_COL_NAME_TOKEN,
2585: p_token1_value => 'try_id');
2578: -- we should make sure atleast the required record is given
2579: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
2580: x_try_id => l_trxv_rec.try_id);
2581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2582: OKL_API.set_message(p_app_name => G_APP_NAME,
2583: p_msg_name => G_NO_MATCHING_RECORD,
2584: p_token1 => G_COL_NAME_TOKEN,
2585: p_token1_value => 'try_id');
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2582: OKL_API.set_message(p_app_name => G_APP_NAME,
2583: p_msg_name => G_NO_MATCHING_RECORD,
2584: p_token1 => G_COL_NAME_TOKEN,
2585: p_token1_value => 'try_id');
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2588: OKL_API.set_message(p_app_name => G_APP_NAME,
2589: p_msg_name => G_NO_MATCHING_RECORD,
2590: p_token1 => G_COL_NAME_TOKEN,
2583: p_msg_name => G_NO_MATCHING_RECORD,
2584: p_token1 => G_COL_NAME_TOKEN,
2585: p_token1_value => 'try_id');
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2588: OKL_API.set_message(p_app_name => G_APP_NAME,
2589: p_msg_name => G_NO_MATCHING_RECORD,
2590: p_token1 => G_COL_NAME_TOKEN,
2591: p_token1_value => 'try_id');
2584: p_token1 => G_COL_NAME_TOKEN,
2585: p_token1_value => 'try_id');
2586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2587: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2588: OKL_API.set_message(p_app_name => G_APP_NAME,
2589: p_msg_name => G_NO_MATCHING_RECORD,
2590: p_token1 => G_COL_NAME_TOKEN,
2591: p_token1_value => 'try_id');
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: OKL_API.set_message(p_app_name => G_APP_NAME,
2589: p_msg_name => G_NO_MATCHING_RECORD,
2590: p_token1 => G_COL_NAME_TOKEN,
2591: p_token1_value => 'try_id');
2592: RAISE OKL_API.G_EXCEPTION_ERROR;
2593: END IF;
2594: l_trxv_rec.tsu_code := 'ENTERED';
2595: l_trxv_rec.date_trans_occurred := sysdate;
2596: l_trxv_rec.tas_type := p_trans_type;
2606: -- get the contract number
2607: OPEN contract_num_csr(l_chr_id);
2608: FETCH contract_num_csr INTO l_cntrct_number;
2609: CLOSE contract_num_csr;
2610: Okl_Api.set_message(p_app_name => g_app_name,
2611: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
2612: p_token1 => 'CONTRACT_NUMBER',
2613: p_token1_value => l_cntrct_number);
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2610: Okl_Api.set_message(p_app_name => g_app_name,
2611: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
2612: p_token1 => 'CONTRACT_NUMBER',
2613: p_token1_value => l_cntrct_number);
2614: RAISE OKL_API.G_EXCEPTION_ERROR;
2615: END IF;
2616:
2617: -- Now creating the new header record
2618: Create_asset_header(p_api_version => p_api_version,
2621: x_msg_count => x_msg_count,
2622: x_msg_data => x_msg_data,
2623: p_trxv_rec => l_trxv_rec,
2624: x_trxv_rec => x_trxv_rec);
2625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2626: OKL_API.set_message(p_app_name => G_APP_NAME,
2627: p_msg_name => G_TRX_ID);
2628: l_trxv_rec := x_trxv_rec;
2629: l_trxv_rec.tsu_code := 'ERROR';
2622: x_msg_data => x_msg_data,
2623: p_trxv_rec => l_trxv_rec,
2624: x_trxv_rec => x_trxv_rec);
2625: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2626: OKL_API.set_message(p_app_name => G_APP_NAME,
2627: p_msg_name => G_TRX_ID);
2628: l_trxv_rec := x_trxv_rec;
2629: l_trxv_rec.tsu_code := 'ERROR';
2630: Update_asset_header(p_api_version => p_api_version,
2633: x_msg_count => x_msg_count,
2634: x_msg_data => x_msg_data,
2635: p_trxv_rec => l_trxv_rec,
2636: x_trxv_rec => x_trxv_rec);
2637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2634: x_msg_data => x_msg_data,
2635: p_trxv_rec => l_trxv_rec,
2636: x_trxv_rec => x_trxv_rec);
2637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2635: p_trxv_rec => l_trxv_rec,
2636: x_trxv_rec => x_trxv_rec);
2637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2636: x_trxv_rec => x_trxv_rec);
2637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2644: OKL_API.set_message(p_app_name => G_APP_NAME,
2638: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2644: OKL_API.set_message(p_app_name => G_APP_NAME,
2645: p_msg_name => G_TRX_ID);
2646: l_trxv_rec := x_trxv_rec;
2639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2644: OKL_API.set_message(p_app_name => G_APP_NAME,
2645: p_msg_name => G_TRX_ID);
2646: l_trxv_rec := x_trxv_rec;
2647: l_trxv_rec.tsu_code := 'ERROR';
2640: RAISE OKL_API.G_EXCEPTION_ERROR;
2641: END IF;
2642: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2643: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2644: OKL_API.set_message(p_app_name => G_APP_NAME,
2645: p_msg_name => G_TRX_ID);
2646: l_trxv_rec := x_trxv_rec;
2647: l_trxv_rec.tsu_code := 'ERROR';
2648: Update_asset_header(p_api_version => p_api_version,
2651: x_msg_count => x_msg_count,
2652: x_msg_data => x_msg_data,
2653: p_trxv_rec => l_trxv_rec,
2654: x_trxv_rec => x_trxv_rec);
2655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: END IF;
2652: x_msg_data => x_msg_data,
2653: p_trxv_rec => l_trxv_rec,
2654: x_trxv_rec => x_trxv_rec);
2655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: END IF;
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2653: p_trxv_rec => l_trxv_rec,
2654: x_trxv_rec => x_trxv_rec);
2655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: END IF;
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2654: x_trxv_rec => x_trxv_rec);
2655: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: END IF;
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662: -- Now we are creating the new line record
2656: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2657: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2658: RAISE OKL_API.G_EXCEPTION_ERROR;
2659: END IF;
2660: RAISE OKL_API.G_EXCEPTION_ERROR;
2661: END IF;
2662: -- Now we are creating the new line record
2663: l_talv_rec := p_talv_rec;
2664: l_talv_rec.tas_id := x_trxv_rec.id;
2661: END IF;
2662: -- Now we are creating the new line record
2663: l_talv_rec := p_talv_rec;
2664: l_talv_rec.tas_id := x_trxv_rec.id;
2665: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
2666: l_talv_rec.tal_type IS NUll) THEN
2667: l_talv_rec.tal_type := p_trans_type;
2668: END IF;
2669: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
2665: IF (l_talv_rec.tal_type = OKL_API.G_MISS_CHAR OR
2666: l_talv_rec.tal_type IS NUll) THEN
2667: l_talv_rec.tal_type := p_trans_type;
2668: END IF;
2669: IF (l_talv_rec.line_number = OKL_API.G_MISS_NUM OR
2670: l_talv_rec.line_number IS NUll) THEN
2671: l_talv_rec.line_number := 1;
2672: ELSE
2673: l_talv_rec.line_number := l_talv_rec.line_number + 1;
2671: l_talv_rec.line_number := 1;
2672: ELSE
2673: l_talv_rec.line_number := l_talv_rec.line_number + 1;
2674: END IF;
2675: IF (l_talv_rec.description = OKL_API.G_MISS_CHAR OR
2676: l_talv_rec.description IS NUll) THEN
2677: l_talv_rec.description := 'CREATION OF FIXED ASSETS' ;
2678: END IF;
2679: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
2679: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
2680: -- x_return_status := generate_asset_number(p_old_asset_number => l_talv_rec.asset_number,
2681: -- x_asset_number => l_talv_rec.asset_number);
2682: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2683: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2684: OKL_API.set_message(p_app_name => G_APP_NAME,
2685: p_msg_name => G_GEN_ASSET_NUMBER);
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2680: -- x_return_status := generate_asset_number(p_old_asset_number => l_talv_rec.asset_number,
2681: -- x_asset_number => l_talv_rec.asset_number);
2682: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2683: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2684: OKL_API.set_message(p_app_name => G_APP_NAME,
2685: p_msg_name => G_GEN_ASSET_NUMBER);
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2688: OKL_API.set_message(p_app_name => G_APP_NAME,
2682: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2683: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2684: OKL_API.set_message(p_app_name => G_APP_NAME,
2685: p_msg_name => G_GEN_ASSET_NUMBER);
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2688: OKL_API.set_message(p_app_name => G_APP_NAME,
2689: p_msg_name => G_GEN_ASSET_NUMBER);
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2683: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2684: OKL_API.set_message(p_app_name => G_APP_NAME,
2685: p_msg_name => G_GEN_ASSET_NUMBER);
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2688: OKL_API.set_message(p_app_name => G_APP_NAME,
2689: p_msg_name => G_GEN_ASSET_NUMBER);
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2684: OKL_API.set_message(p_app_name => G_APP_NAME,
2685: p_msg_name => G_GEN_ASSET_NUMBER);
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2688: OKL_API.set_message(p_app_name => G_APP_NAME,
2689: p_msg_name => G_GEN_ASSET_NUMBER);
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: END IF;
2686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2688: OKL_API.set_message(p_app_name => G_APP_NAME,
2689: p_msg_name => G_GEN_ASSET_NUMBER);
2690: RAISE OKL_API.G_EXCEPTION_ERROR;
2691: END IF;
2692: END IF;
2693: -- evaluate conditions, build outcomes for true conditions and
2694: -- put them on outcome queue
2699: x_msg_count => x_msg_count,
2700: x_msg_data => x_msg_data,
2701: p_tlpv_rec => l_talv_rec,
2702: x_tlpv_rec => x_talv_rec);
2703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2704: OKL_API.set_message(p_app_name => G_APP_NAME,
2705: p_msg_name => G_KLE_ID);
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2700: x_msg_data => x_msg_data,
2701: p_tlpv_rec => l_talv_rec,
2702: x_tlpv_rec => x_talv_rec);
2703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2704: OKL_API.set_message(p_app_name => G_APP_NAME,
2705: p_msg_name => G_KLE_ID);
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2702: x_tlpv_rec => x_talv_rec);
2703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2704: OKL_API.set_message(p_app_name => G_APP_NAME,
2705: p_msg_name => G_KLE_ID);
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2709: p_msg_name => G_KLE_ID);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2704: OKL_API.set_message(p_app_name => G_APP_NAME,
2705: p_msg_name => G_KLE_ID);
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2709: p_msg_name => G_KLE_ID);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2711: END IF;
2704: OKL_API.set_message(p_app_name => G_APP_NAME,
2705: p_msg_name => G_KLE_ID);
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2709: p_msg_name => G_KLE_ID);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2711: END IF;
2712: OKL_API.END_ACTIVITY (x_msg_count,
2706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2709: p_msg_name => G_KLE_ID);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2711: END IF;
2712: OKL_API.END_ACTIVITY (x_msg_count,
2713: x_msg_data );
2714: EXCEPTION
2708: OKL_API.set_message(p_app_name => G_APP_NAME,
2709: p_msg_name => G_KLE_ID);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2711: END IF;
2712: OKL_API.END_ACTIVITY (x_msg_count,
2713: x_msg_data );
2714: EXCEPTION
2715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2716: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2711: END IF;
2712: OKL_API.END_ACTIVITY (x_msg_count,
2713: x_msg_data );
2714: EXCEPTION
2715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2716: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2717: l_api_name,
2718: G_PKG_NAME,
2719: 'OKL_API.G_RET_STS_ERROR',
2712: OKL_API.END_ACTIVITY (x_msg_count,
2713: x_msg_data );
2714: EXCEPTION
2715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2716: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2717: l_api_name,
2718: G_PKG_NAME,
2719: 'OKL_API.G_RET_STS_ERROR',
2720: x_msg_count,
2715: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2716: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2717: l_api_name,
2718: G_PKG_NAME,
2719: 'OKL_API.G_RET_STS_ERROR',
2720: x_msg_count,
2721: x_msg_data,
2722: '_PVT');
2723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2719: 'OKL_API.G_RET_STS_ERROR',
2720: x_msg_count,
2721: x_msg_data,
2722: '_PVT');
2723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2724: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2725: l_api_name,
2726: G_PKG_NAME,
2727: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2720: x_msg_count,
2721: x_msg_data,
2722: '_PVT');
2723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2724: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2725: l_api_name,
2726: G_PKG_NAME,
2727: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2728: x_msg_count,
2723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2724: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2725: l_api_name,
2726: G_PKG_NAME,
2727: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2728: x_msg_count,
2729: x_msg_data,
2730: '_PVT');
2731: WHEN OTHERS THEN
2728: x_msg_count,
2729: x_msg_data,
2730: '_PVT');
2731: WHEN OTHERS THEN
2732: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2733: l_api_name,
2734: G_PKG_NAME,
2735: 'OTHERS',
2736: x_msg_count,
2739: END Create_asset_lines;
2740: -------------------------------------------------------------------------------------------------------
2741: PROCEDURE Create_Asset_trx_txl_txd(
2742: p_api_version IN NUMBER,
2743: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2744: x_return_status OUT NOCOPY VARCHAR2,
2745: x_msg_count OUT NOCOPY NUMBER,
2746: x_msg_data OUT NOCOPY VARCHAR2,
2747: p_cle_id IN OKC_K_LINES_V.ID%TYPE,
2780: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
2781: l_legal_entity_id NUMBER;
2782:
2783: BEGIN
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2785: -- Call start_activity to create savepoint, check compatibility
2786: -- and initialize message list
2787: x_return_status := OKL_API.START_ACTIVITY (
2788: l_api_name
2783: BEGIN
2784: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2785: -- Call start_activity to create savepoint, check compatibility
2786: -- and initialize message list
2787: x_return_status := OKL_API.START_ACTIVITY (
2788: l_api_name
2789: ,p_init_msg_list
2790: ,'_PVT'
2791: ,x_return_status);
2789: ,p_init_msg_list
2790: ,'_PVT'
2791: ,x_return_status);
2792: -- Check if activity started successfully
2793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2796: RAISE OKL_API.G_EXCEPTION_ERROR;
2797: END IF;
2790: ,'_PVT'
2791: ,x_return_status);
2792: -- Check if activity started successfully
2793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2796: RAISE OKL_API.G_EXCEPTION_ERROR;
2797: END IF;
2798: -- Get the TAL Rec
2791: ,x_return_status);
2792: -- Check if activity started successfully
2793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2796: RAISE OKL_API.G_EXCEPTION_ERROR;
2797: END IF;
2798: -- Get the TAL Rec
2799: x_return_status := get_txlv_rec(p_kle_id => p_cle_id,
2792: -- Check if activity started successfully
2793: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2795: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2796: RAISE OKL_API.G_EXCEPTION_ERROR;
2797: END IF;
2798: -- Get the TAL Rec
2799: x_return_status := get_txlv_rec(p_kle_id => p_cle_id,
2800: x_txlv_rec => l_talv_rec);
2797: END IF;
2798: -- Get the TAL Rec
2799: x_return_status := get_txlv_rec(p_kle_id => p_cle_id,
2800: x_txlv_rec => l_talv_rec);
2801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2802: OKL_API.set_message(p_app_name => G_APP_NAME,
2803: p_msg_name => G_NO_MATCHING_RECORD,
2804: p_token1 => G_COL_NAME_TOKEN,
2805: p_token1_value => 'OKL_TXL_ASSETS_V record');
2798: -- Get the TAL Rec
2799: x_return_status := get_txlv_rec(p_kle_id => p_cle_id,
2800: x_txlv_rec => l_talv_rec);
2801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2802: OKL_API.set_message(p_app_name => G_APP_NAME,
2803: p_msg_name => G_NO_MATCHING_RECORD,
2804: p_token1 => G_COL_NAME_TOKEN,
2805: p_token1_value => 'OKL_TXL_ASSETS_V record');
2806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2802: OKL_API.set_message(p_app_name => G_APP_NAME,
2803: p_msg_name => G_NO_MATCHING_RECORD,
2804: p_token1 => G_COL_NAME_TOKEN,
2805: p_token1_value => 'OKL_TXL_ASSETS_V record');
2806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2808: OKL_API.set_message(p_app_name => G_APP_NAME,
2809: p_msg_name => G_NO_MATCHING_RECORD,
2810: p_token1 => G_COL_NAME_TOKEN,
2803: p_msg_name => G_NO_MATCHING_RECORD,
2804: p_token1 => G_COL_NAME_TOKEN,
2805: p_token1_value => 'OKL_TXL_ASSETS_V record');
2806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2808: OKL_API.set_message(p_app_name => G_APP_NAME,
2809: p_msg_name => G_NO_MATCHING_RECORD,
2810: p_token1 => G_COL_NAME_TOKEN,
2811: p_token1_value => 'OKL_TXL_ASSETS_V record');
2804: p_token1 => G_COL_NAME_TOKEN,
2805: p_token1_value => 'OKL_TXL_ASSETS_V record');
2806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2808: OKL_API.set_message(p_app_name => G_APP_NAME,
2809: p_msg_name => G_NO_MATCHING_RECORD,
2810: p_token1 => G_COL_NAME_TOKEN,
2811: p_token1_value => 'OKL_TXL_ASSETS_V record');
2812: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: OKL_API.set_message(p_app_name => G_APP_NAME,
2809: p_msg_name => G_NO_MATCHING_RECORD,
2810: p_token1 => G_COL_NAME_TOKEN,
2811: p_token1_value => 'OKL_TXL_ASSETS_V record');
2812: RAISE OKL_API.G_EXCEPTION_ERROR;
2813: END IF;
2814: -- Since the above get rec itiv will get the old kle_id
2815: -- w.r.t p_from cle_id(top Line).
2816: -- but We have to replace the same with new fixed asset id
2821: CLOSE c_fa_line_id;
2822: -- Get the TRX Rec
2823: x_return_status := get_tasv_rec(p_tas_id => l_talv_rec.tas_id,
2824: x_trxv_rec => l_trxv_rec);
2825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2826: OKL_API.set_message(p_app_name => G_APP_NAME,
2827: p_msg_name => G_NO_MATCHING_RECORD,
2828: p_token1 => G_COL_NAME_TOKEN,
2829: p_token1_value => 'OKL_TRX_ASSETS record');
2822: -- Get the TRX Rec
2823: x_return_status := get_tasv_rec(p_tas_id => l_talv_rec.tas_id,
2824: x_trxv_rec => l_trxv_rec);
2825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2826: OKL_API.set_message(p_app_name => G_APP_NAME,
2827: p_msg_name => G_NO_MATCHING_RECORD,
2828: p_token1 => G_COL_NAME_TOKEN,
2829: p_token1_value => 'OKL_TRX_ASSETS record');
2830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2826: OKL_API.set_message(p_app_name => G_APP_NAME,
2827: p_msg_name => G_NO_MATCHING_RECORD,
2828: p_token1 => G_COL_NAME_TOKEN,
2829: p_token1_value => 'OKL_TRX_ASSETS record');
2830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2832: OKL_API.set_message(p_app_name => G_APP_NAME,
2833: p_msg_name => G_NO_MATCHING_RECORD,
2834: p_token1 => G_COL_NAME_TOKEN,
2827: p_msg_name => G_NO_MATCHING_RECORD,
2828: p_token1 => G_COL_NAME_TOKEN,
2829: p_token1_value => 'OKL_TRX_ASSETS record');
2830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2832: OKL_API.set_message(p_app_name => G_APP_NAME,
2833: p_msg_name => G_NO_MATCHING_RECORD,
2834: p_token1 => G_COL_NAME_TOKEN,
2835: p_token1_value => 'OKL_TRX_ASSETS record');
2828: p_token1 => G_COL_NAME_TOKEN,
2829: p_token1_value => 'OKL_TRX_ASSETS record');
2830: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2832: OKL_API.set_message(p_app_name => G_APP_NAME,
2833: p_msg_name => G_NO_MATCHING_RECORD,
2834: p_token1 => G_COL_NAME_TOKEN,
2835: p_token1_value => 'OKL_TRX_ASSETS record');
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: OKL_API.set_message(p_app_name => G_APP_NAME,
2833: p_msg_name => G_NO_MATCHING_RECORD,
2834: p_token1 => G_COL_NAME_TOKEN,
2835: p_token1_value => 'OKL_TRX_ASSETS record');
2836: RAISE OKL_API.G_EXCEPTION_ERROR;
2837: END IF;
2838: l_trxv_rec.tas_type := p_trans_type;
2839: l_trxv_rec.tsu_code := 'ENTERED';
2840: l_trxv_rec.date_trans_occurred := sysdate;
2847: -- get the contract number
2848: OPEN contract_num_csr(p_dnz_chr_id);
2849: FETCH contract_num_csr INTO l_cntrct_number;
2850: CLOSE contract_num_csr;
2851: Okl_Api.set_message(p_app_name => g_app_name,
2852: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
2853: p_token1 => 'CONTRACT_NUMBER',
2854: p_token1_value => l_cntrct_number);
2855: RAISE OKL_API.G_EXCEPTION_ERROR;
2851: Okl_Api.set_message(p_app_name => g_app_name,
2852: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
2853: p_token1 => 'CONTRACT_NUMBER',
2854: p_token1_value => l_cntrct_number);
2855: RAISE OKL_API.G_EXCEPTION_ERROR;
2856: END IF;
2857: -- Now creating the new header record
2858: Create_asset_header(p_api_version => p_api_version,
2859: p_init_msg_list => p_init_msg_list,
2861: x_msg_count => x_msg_count,
2862: x_msg_data => x_msg_data,
2863: p_trxv_rec => l_trxv_rec,
2864: x_trxv_rec => x_trxv_rec);
2865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: OKL_API.set_message(p_app_name => G_APP_NAME,
2867: p_msg_name => G_TRX_ID);
2868: l_trxv_rec := x_trxv_rec;
2869: l_trxv_rec.tsu_code := 'ERROR';
2862: x_msg_data => x_msg_data,
2863: p_trxv_rec => l_trxv_rec,
2864: x_trxv_rec => x_trxv_rec);
2865: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2866: OKL_API.set_message(p_app_name => G_APP_NAME,
2867: p_msg_name => G_TRX_ID);
2868: l_trxv_rec := x_trxv_rec;
2869: l_trxv_rec.tsu_code := 'ERROR';
2870: Update_asset_header(p_api_version => p_api_version,
2873: x_msg_count => x_msg_count,
2874: x_msg_data => x_msg_data,
2875: p_trxv_rec => l_trxv_rec,
2876: x_trxv_rec => x_trxv_rec);
2877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2874: x_msg_data => x_msg_data,
2875: p_trxv_rec => l_trxv_rec,
2876: x_trxv_rec => x_trxv_rec);
2877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2875: p_trxv_rec => l_trxv_rec,
2876: x_trxv_rec => x_trxv_rec);
2877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2876: x_trxv_rec => x_trxv_rec);
2877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2884: OKL_API.set_message(p_app_name => G_APP_NAME,
2878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2884: OKL_API.set_message(p_app_name => G_APP_NAME,
2885: p_msg_name => G_TRX_ID);
2886: l_trxv_rec := x_trxv_rec;
2879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2884: OKL_API.set_message(p_app_name => G_APP_NAME,
2885: p_msg_name => G_TRX_ID);
2886: l_trxv_rec := x_trxv_rec;
2887: l_trxv_rec.tsu_code := 'ERROR';
2880: RAISE OKL_API.G_EXCEPTION_ERROR;
2881: END IF;
2882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2883: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2884: OKL_API.set_message(p_app_name => G_APP_NAME,
2885: p_msg_name => G_TRX_ID);
2886: l_trxv_rec := x_trxv_rec;
2887: l_trxv_rec.tsu_code := 'ERROR';
2888: Update_asset_header(p_api_version => p_api_version,
2891: x_msg_count => x_msg_count,
2892: x_msg_data => x_msg_data,
2893: p_trxv_rec => l_trxv_rec,
2894: x_trxv_rec => x_trxv_rec);
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2892: x_msg_data => x_msg_data,
2893: p_trxv_rec => l_trxv_rec,
2894: x_trxv_rec => x_trxv_rec);
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2893: p_trxv_rec => l_trxv_rec,
2894: x_trxv_rec => x_trxv_rec);
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2894: x_trxv_rec => x_trxv_rec);
2895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902: l_talv_rec.tal_type := p_trans_type;
2896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2898: RAISE OKL_API.G_EXCEPTION_ERROR;
2899: END IF;
2900: RAISE OKL_API.G_EXCEPTION_ERROR;
2901: END IF;
2902: l_talv_rec.tal_type := p_trans_type;
2903: -- Now we shoudl generate the Serial number
2904: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
2904: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
2905: -- x_return_status := generate_asset_number(p_old_asset_number => l_talv_rec.asset_number,
2906: -- x_asset_number => l_talv_rec.asset_number);
2907: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2909: OKL_API.set_message(p_app_name => G_APP_NAME,
2910: p_msg_name => G_GEN_ASSET_NUMBER);
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2905: -- x_return_status := generate_asset_number(p_old_asset_number => l_talv_rec.asset_number,
2906: -- x_asset_number => l_talv_rec.asset_number);
2907: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2909: OKL_API.set_message(p_app_name => G_APP_NAME,
2910: p_msg_name => G_GEN_ASSET_NUMBER);
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: OKL_API.set_message(p_app_name => G_APP_NAME,
2907: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
2908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2909: OKL_API.set_message(p_app_name => G_APP_NAME,
2910: p_msg_name => G_GEN_ASSET_NUMBER);
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: OKL_API.set_message(p_app_name => G_APP_NAME,
2914: p_msg_name => G_GEN_ASSET_NUMBER);
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2909: OKL_API.set_message(p_app_name => G_APP_NAME,
2910: p_msg_name => G_GEN_ASSET_NUMBER);
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: OKL_API.set_message(p_app_name => G_APP_NAME,
2914: p_msg_name => G_GEN_ASSET_NUMBER);
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2916: END IF;
2909: OKL_API.set_message(p_app_name => G_APP_NAME,
2910: p_msg_name => G_GEN_ASSET_NUMBER);
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: OKL_API.set_message(p_app_name => G_APP_NAME,
2914: p_msg_name => G_GEN_ASSET_NUMBER);
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2916: END IF;
2917: END IF;
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: OKL_API.set_message(p_app_name => G_APP_NAME,
2914: p_msg_name => G_GEN_ASSET_NUMBER);
2915: RAISE OKL_API.G_EXCEPTION_ERROR;
2916: END IF;
2917: END IF;
2918: l_talv_rec.dnz_khr_id := p_dnz_chr_id;
2919: l_talv_rec.tas_id := x_trxv_rec.id;
2919: l_talv_rec.tas_id := x_trxv_rec.id;
2920: --Bug# 3657624 : Depreciation Rate should not be multiplied by 100
2921: /*
2922: --Bug# 3621663 : Flat rate support
2923: If nvl(l_talv_rec.deprn_rate,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2924: l_talv_rec.deprn_rate := l_talv_rec.deprn_rate * 100;
2925: End If;
2926: --Bug# 3621663 End
2927: */
2933: x_msg_count => x_msg_count,
2934: x_msg_data => x_msg_data,
2935: p_talv_rec => l_talv_rec,
2936: x_talv_rec => x_talv_rec);
2937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: OKL_API.set_message(p_app_name => G_APP_NAME,
2939: p_msg_name => G_KLE_ID);
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2934: x_msg_data => x_msg_data,
2935: p_talv_rec => l_talv_rec,
2936: x_talv_rec => x_talv_rec);
2937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: OKL_API.set_message(p_app_name => G_APP_NAME,
2939: p_msg_name => G_KLE_ID);
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2942: OKL_API.set_message(p_app_name => G_APP_NAME,
2936: x_talv_rec => x_talv_rec);
2937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: OKL_API.set_message(p_app_name => G_APP_NAME,
2939: p_msg_name => G_KLE_ID);
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2942: OKL_API.set_message(p_app_name => G_APP_NAME,
2943: p_msg_name => G_KLE_ID);
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2938: OKL_API.set_message(p_app_name => G_APP_NAME,
2939: p_msg_name => G_KLE_ID);
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2942: OKL_API.set_message(p_app_name => G_APP_NAME,
2943: p_msg_name => G_KLE_ID);
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: END IF;
2938: OKL_API.set_message(p_app_name => G_APP_NAME,
2939: p_msg_name => G_KLE_ID);
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2942: OKL_API.set_message(p_app_name => G_APP_NAME,
2943: p_msg_name => G_KLE_ID);
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: END IF;
2946: -- Check to see if the Asset Details Records are there
2940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2942: OKL_API.set_message(p_app_name => G_APP_NAME,
2943: p_msg_name => G_KLE_ID);
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: END IF;
2946: -- Check to see if the Asset Details Records are there
2947: OPEN c_trans_line_dtl_exist(l_talv_rec.id);
2948: FETCH c_trans_line_dtl_exist INTO ln_dummy;
2949: CLOSE c_trans_line_dtl_exist;
2950: IF ln_dummy = 1 THEN
2951: x_return_status := get_txdv_tbl(p_tal_id => l_talv_rec.id,
2952: x_txdv_tbl => l_txdv_tbl);
2953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2954: OKL_API.set_message(p_app_name => G_APP_NAME,
2955: p_msg_name => G_NO_MATCHING_RECORD,
2956: p_token1 => G_COL_NAME_TOKEN,
2957: p_token1_value => 'OKL_TXD_ASSETS_V record');
2950: IF ln_dummy = 1 THEN
2951: x_return_status := get_txdv_tbl(p_tal_id => l_talv_rec.id,
2952: x_txdv_tbl => l_txdv_tbl);
2953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2954: OKL_API.set_message(p_app_name => G_APP_NAME,
2955: p_msg_name => G_NO_MATCHING_RECORD,
2956: p_token1 => G_COL_NAME_TOKEN,
2957: p_token1_value => 'OKL_TXD_ASSETS_V record');
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: OKL_API.set_message(p_app_name => G_APP_NAME,
2955: p_msg_name => G_NO_MATCHING_RECORD,
2956: p_token1 => G_COL_NAME_TOKEN,
2957: p_token1_value => 'OKL_TXD_ASSETS_V record');
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: OKL_API.set_message(p_app_name => G_APP_NAME,
2961: p_msg_name => G_NO_MATCHING_RECORD,
2962: p_token1 => G_COL_NAME_TOKEN,
2955: p_msg_name => G_NO_MATCHING_RECORD,
2956: p_token1 => G_COL_NAME_TOKEN,
2957: p_token1_value => 'OKL_TXD_ASSETS_V record');
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: OKL_API.set_message(p_app_name => G_APP_NAME,
2961: p_msg_name => G_NO_MATCHING_RECORD,
2962: p_token1 => G_COL_NAME_TOKEN,
2963: p_token1_value => 'OKL_TXD_ASSETS_V record');
2956: p_token1 => G_COL_NAME_TOKEN,
2957: p_token1_value => 'OKL_TXD_ASSETS_V record');
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: OKL_API.set_message(p_app_name => G_APP_NAME,
2961: p_msg_name => G_NO_MATCHING_RECORD,
2962: p_token1 => G_COL_NAME_TOKEN,
2963: p_token1_value => 'OKL_TXD_ASSETS_V record');
2964: RAISE OKL_API.G_EXCEPTION_ERROR;
2960: OKL_API.set_message(p_app_name => G_APP_NAME,
2961: p_msg_name => G_NO_MATCHING_RECORD,
2962: p_token1 => G_COL_NAME_TOKEN,
2963: p_token1_value => 'OKL_TXD_ASSETS_V record');
2964: RAISE OKL_API.G_EXCEPTION_ERROR;
2965: END IF;
2966: IF (l_txdv_tbl.COUNT > 0) THEN
2967: i := l_txdv_tbl.FIRST;
2968: LOOP
2970: l_txdv_tbl(i).tal_id := x_talv_rec.id;
2971: --Bug# 3657624 : Depreciation Rate should not be multiplied by 100
2972: /*
2973: --Bug# 3621663 : Flat rate support
2974: If nvl(l_txdv_tbl(i).deprn_rate_tax,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2975: l_txdv_tbl(i).deprn_rate_tax := l_txdv_tbl(i).deprn_rate_tax * 100;
2976: End If;
2977: --Bug# 3621663
2978: */
2987: x_msg_count => x_msg_count,
2988: x_msg_data => x_msg_data,
2989: p_txdv_tbl => l_txdv_tbl,
2990: x_txdv_tbl => x_txdv_tbl);
2991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2992: OKL_API.set_message(p_app_name => G_APP_NAME,
2993: p_msg_name => G_TXD_ID);
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2988: x_msg_data => x_msg_data,
2989: p_txdv_tbl => l_txdv_tbl,
2990: x_txdv_tbl => x_txdv_tbl);
2991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2992: OKL_API.set_message(p_app_name => G_APP_NAME,
2993: p_msg_name => G_TXD_ID);
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2996: OKL_API.set_message(p_app_name => G_APP_NAME,
2990: x_txdv_tbl => x_txdv_tbl);
2991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2992: OKL_API.set_message(p_app_name => G_APP_NAME,
2993: p_msg_name => G_TXD_ID);
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2996: OKL_API.set_message(p_app_name => G_APP_NAME,
2997: p_msg_name => G_TXD_ID);
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2992: OKL_API.set_message(p_app_name => G_APP_NAME,
2993: p_msg_name => G_TXD_ID);
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2996: OKL_API.set_message(p_app_name => G_APP_NAME,
2997: p_msg_name => G_TXD_ID);
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
2992: OKL_API.set_message(p_app_name => G_APP_NAME,
2993: p_msg_name => G_TXD_ID);
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2996: OKL_API.set_message(p_app_name => G_APP_NAME,
2997: p_msg_name => G_TXD_ID);
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: END IF;
2994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2995: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2996: OKL_API.set_message(p_app_name => G_APP_NAME,
2997: p_msg_name => G_TXD_ID);
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: END IF;
3001: OKL_API.END_ACTIVITY (x_msg_count,
3002: x_msg_data );
2997: p_msg_name => G_TXD_ID);
2998: RAISE OKL_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: END IF;
3001: OKL_API.END_ACTIVITY (x_msg_count,
3002: x_msg_data );
3003: EXCEPTION
3004: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3000: END IF;
3001: OKL_API.END_ACTIVITY (x_msg_count,
3002: x_msg_data );
3003: EXCEPTION
3004: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3006: l_api_name,
3007: G_PKG_NAME,
3008: 'OKL_API.G_RET_STS_ERROR',
3001: OKL_API.END_ACTIVITY (x_msg_count,
3002: x_msg_data );
3003: EXCEPTION
3004: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3006: l_api_name,
3007: G_PKG_NAME,
3008: 'OKL_API.G_RET_STS_ERROR',
3009: x_msg_count,
3004: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3005: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3006: l_api_name,
3007: G_PKG_NAME,
3008: 'OKL_API.G_RET_STS_ERROR',
3009: x_msg_count,
3010: x_msg_data,
3011: '_PVT');
3012: IF c_trans_line_dtl_exist%ISOPEN THEN
3011: '_PVT');
3012: IF c_trans_line_dtl_exist%ISOPEN THEN
3013: CLOSE c_trans_line_dtl_exist;
3014: END IF;
3015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3016: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3017: l_api_name,
3018: G_PKG_NAME,
3019: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3012: IF c_trans_line_dtl_exist%ISOPEN THEN
3013: CLOSE c_trans_line_dtl_exist;
3014: END IF;
3015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3016: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3017: l_api_name,
3018: G_PKG_NAME,
3019: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3020: x_msg_count,
3015: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3016: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3017: l_api_name,
3018: G_PKG_NAME,
3019: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3020: x_msg_count,
3021: x_msg_data,
3022: '_PVT');
3023: WHEN OTHERS THEN
3020: x_msg_count,
3021: x_msg_data,
3022: '_PVT');
3023: WHEN OTHERS THEN
3024: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3025: l_api_name,
3026: G_PKG_NAME,
3027: 'OTHERS',
3028: x_msg_count,
3037: END Create_Asset_trx_txl_txd;
3038: --------------------------------------------------------------------------------------------------------------
3039: PROCEDURE Create_Asset_trx_txl_For_Loan(
3040: p_api_version IN NUMBER,
3041: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3042: x_return_status OUT NOCOPY VARCHAR2,
3043: x_msg_count OUT NOCOPY NUMBER,
3044: x_msg_data OUT NOCOPY VARCHAR2,
3045: p_cle_id IN OKC_K_LINES_V.ID%TYPE,
3119: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
3120: l_legal_entity_id NUMBER;
3121:
3122: BEGIN
3123: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3124: -- Call start_activity to create savepoint, check compatibility
3125: -- and initialize message list
3126: x_return_status := OKL_API.START_ACTIVITY (
3127: l_api_name
3122: BEGIN
3123: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3124: -- Call start_activity to create savepoint, check compatibility
3125: -- and initialize message list
3126: x_return_status := OKL_API.START_ACTIVITY (
3127: l_api_name
3128: ,p_init_msg_list
3129: ,'_PVT'
3130: ,x_return_status);
3128: ,p_init_msg_list
3129: ,'_PVT'
3130: ,x_return_status);
3131: -- Check if activity started successfully
3132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3135: RAISE OKL_API.G_EXCEPTION_ERROR;
3136: END IF;
3129: ,'_PVT'
3130: ,x_return_status);
3131: -- Check if activity started successfully
3132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3135: RAISE OKL_API.G_EXCEPTION_ERROR;
3136: END IF;
3137:
3130: ,x_return_status);
3131: -- Check if activity started successfully
3132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3135: RAISE OKL_API.G_EXCEPTION_ERROR;
3136: END IF;
3137:
3138: Open get_txl_csr(p_fa_cle_id => p_cle_id,
3131: -- Check if activity started successfully
3132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3135: RAISE OKL_API.G_EXCEPTION_ERROR;
3136: END IF;
3137:
3138: Open get_txl_csr(p_fa_cle_id => p_cle_id,
3139: p_chr_id => p_from_dnz_chr_id);
3138: Open get_txl_csr(p_fa_cle_id => p_cle_id,
3139: p_chr_id => p_from_dnz_chr_id);
3140: Fetch get_txl_csr into get_txl_rec;
3141: IF get_txl_csr%NOTFOUND Then
3142: OKL_API.set_message(p_app_name => G_APP_NAME,
3143: p_msg_name => G_NO_MATCHING_RECORD,
3144: p_token1 => G_COL_NAME_TOKEN,
3145: p_token1_value => 'OKL_TXL_ASSETS_V record');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3142: OKL_API.set_message(p_app_name => G_APP_NAME,
3143: p_msg_name => G_NO_MATCHING_RECORD,
3144: p_token1 => G_COL_NAME_TOKEN,
3145: p_token1_value => 'OKL_TXL_ASSETS_V record');
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: Else
3148: --get try id
3149: Open try_id_csr(p_try_name => 'Internal Asset Creation');
3150: Fetch try_id_csr into l_try_id;
3148: --get try id
3149: Open try_id_csr(p_try_name => 'Internal Asset Creation');
3150: Fetch try_id_csr into l_try_id;
3151: If try_id_csr%NOTFOUND then
3152: OKL_API.set_message(p_app_name => G_APP_NAME,
3153: p_msg_name => G_NO_MATCHING_RECORD,
3154: p_token1 => G_COL_NAME_TOKEN,
3155: p_token1_value => 'OKL_TRX_TYPES_V.ID');
3156: RAISE OKL_API.G_EXCEPTION_ERROR;
3152: OKL_API.set_message(p_app_name => G_APP_NAME,
3153: p_msg_name => G_NO_MATCHING_RECORD,
3154: p_token1 => G_COL_NAME_TOKEN,
3155: p_token1_value => 'OKL_TRX_TYPES_V.ID');
3156: RAISE OKL_API.G_EXCEPTION_ERROR;
3157: End If;
3158: Close try_id_csr;
3159:
3160: l_trxv_rec.try_id := l_try_id;
3169: -- get the contract number
3170: OPEN contract_num_csr(p_from_dnz_chr_id);
3171: FETCH contract_num_csr INTO l_cntrct_number;
3172: CLOSE contract_num_csr;
3173: Okl_Api.set_message(p_app_name => g_app_name,
3174: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3175: p_token1 => 'CONTRACT_NUMBER',
3176: p_token1_value => l_cntrct_number);
3177: RAISE OKL_API.G_EXCEPTION_ERROR;
3173: Okl_Api.set_message(p_app_name => g_app_name,
3174: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3175: p_token1 => 'CONTRACT_NUMBER',
3176: p_token1_value => l_cntrct_number);
3177: RAISE OKL_API.G_EXCEPTION_ERROR;
3178: END IF;
3179: -- Now creating the new header record
3180: Create_asset_header(p_api_version => p_api_version,
3181: p_init_msg_list => p_init_msg_list,
3183: x_msg_count => x_msg_count,
3184: x_msg_data => x_msg_data,
3185: p_trxv_rec => l_trxv_rec,
3186: x_trxv_rec => x_trxv_rec);
3187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3190: RAISE OKL_API.G_EXCEPTION_ERROR;
3191: END IF;
3184: x_msg_data => x_msg_data,
3185: p_trxv_rec => l_trxv_rec,
3186: x_trxv_rec => x_trxv_rec);
3187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3190: RAISE OKL_API.G_EXCEPTION_ERROR;
3191: END IF;
3192:
3185: p_trxv_rec => l_trxv_rec,
3186: x_trxv_rec => x_trxv_rec);
3187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3190: RAISE OKL_API.G_EXCEPTION_ERROR;
3191: END IF;
3192:
3193: OPEN c_fa_line_id(p_fin_cle_id,
3186: x_trxv_rec => x_trxv_rec);
3187: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3189: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3190: RAISE OKL_API.G_EXCEPTION_ERROR;
3191: END IF;
3192:
3193: OPEN c_fa_line_id(p_fin_cle_id,
3194: p_to_dnz_chr_id);
3199:
3200: -- Now we should generate the Asset number
3201: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
3202: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
3203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3204: OKL_API.set_message(p_app_name => G_APP_NAME,
3205: p_msg_name => G_GEN_ASSET_NUMBER);
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3200: -- Now we should generate the Asset number
3201: IF p_trans_type NOT IN ('CRB','CRL','CSP','CRV','ALI') THEN
3202: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
3203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3204: OKL_API.set_message(p_app_name => G_APP_NAME,
3205: p_msg_name => G_GEN_ASSET_NUMBER);
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: ELSE
3202: x_return_status := generate_asset_number(x_asset_number => l_talv_rec.asset_number);
3203: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3204: OKL_API.set_message(p_app_name => G_APP_NAME,
3205: p_msg_name => G_GEN_ASSET_NUMBER);
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: ELSE
3209: l_talv_rec.asset_number := get_txl_rec.ASSET_NUMBER;
3210: END IF;
3224: x_msg_count => x_msg_count,
3225: x_msg_data => x_msg_data,
3226: p_talv_rec => l_talv_rec,
3227: x_talv_rec => x_talv_rec);
3228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3225: x_msg_data => x_msg_data,
3226: p_talv_rec => l_talv_rec,
3227: x_talv_rec => x_talv_rec);
3228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: End If;
3226: p_talv_rec => l_talv_rec,
3227: x_talv_rec => x_talv_rec);
3228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: End If;
3234: Close get_txl_csr;
3227: x_talv_rec => x_talv_rec);
3228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: End If;
3234: Close get_txl_csr;
3235: OKL_API.END_ACTIVITY (x_msg_count,
3231: RAISE OKL_API.G_EXCEPTION_ERROR;
3232: END IF;
3233: End If;
3234: Close get_txl_csr;
3235: OKL_API.END_ACTIVITY (x_msg_count,
3236: x_msg_data );
3237: EXCEPTION
3238: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3234: Close get_txl_csr;
3235: OKL_API.END_ACTIVITY (x_msg_count,
3236: x_msg_data );
3237: EXCEPTION
3238: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3240: l_api_name,
3241: G_PKG_NAME,
3242: 'OKL_API.G_RET_STS_ERROR',
3235: OKL_API.END_ACTIVITY (x_msg_count,
3236: x_msg_data );
3237: EXCEPTION
3238: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3240: l_api_name,
3241: G_PKG_NAME,
3242: 'OKL_API.G_RET_STS_ERROR',
3243: x_msg_count,
3238: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3240: l_api_name,
3241: G_PKG_NAME,
3242: 'OKL_API.G_RET_STS_ERROR',
3243: x_msg_count,
3244: x_msg_data,
3245: '_PVT');
3246: IF get_txl_csr%ISOPEN THEN
3251: END IF;
3252: IF c_fa_line_id%ISOPEN THEN
3253: CLOSE c_fa_line_id;
3254: END IF;
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3257: l_api_name,
3258: G_PKG_NAME,
3259: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3252: IF c_fa_line_id%ISOPEN THEN
3253: CLOSE c_fa_line_id;
3254: END IF;
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3257: l_api_name,
3258: G_PKG_NAME,
3259: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3260: x_msg_count,
3255: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3256: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3257: l_api_name,
3258: G_PKG_NAME,
3259: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3260: x_msg_count,
3261: x_msg_data,
3262: '_PVT');
3263: IF get_txl_csr%ISOPEN THEN
3270: CLOSE c_fa_line_id;
3271: END IF;
3272:
3273: WHEN OTHERS THEN
3274: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3275: l_api_name,
3276: G_PKG_NAME,
3277: 'OTHERS',
3278: x_msg_count,
3291: ---19-----------------------------------------------------------------------------------------------------------
3292: -- Local Procedures for creation of Txl Item Instance record
3293: PROCEDURE create_txl_itm_insts(
3294: p_api_version IN NUMBER,
3295: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3296: x_return_status OUT NOCOPY VARCHAR2,
3297: x_msg_count OUT NOCOPY NUMBER,
3298: x_msg_data OUT NOCOPY VARCHAR2,
3299: p_itiv_rec IN itiv_rec_type,
3311: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
3312: l_legal_entity_id NUMBER;
3313:
3314: BEGIN
3315: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3316: -- Call start_activity to create savepoint, check compatibility
3317: -- and initialize message list
3318: x_return_status := OKL_API.START_ACTIVITY (
3319: l_api_name
3314: BEGIN
3315: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3316: -- Call start_activity to create savepoint, check compatibility
3317: -- and initialize message list
3318: x_return_status := OKL_API.START_ACTIVITY (
3319: l_api_name
3320: ,p_init_msg_list
3321: ,'_PVT'
3322: ,x_return_status);
3320: ,p_init_msg_list
3321: ,'_PVT'
3322: ,x_return_status);
3323: -- Check if activity started successfully
3324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3321: ,'_PVT'
3322: ,x_return_status);
3323: -- Check if activity started successfully
3324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Create New Header record and new Line record
3322: ,x_return_status);
3323: -- Check if activity started successfully
3324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Create New Header record and new Line record
3330: -- Before creating Header record
3323: -- Check if activity started successfully
3324: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3327: RAISE OKL_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: -- Create New Header record and new Line record
3330: -- Before creating Header record
3331: -- we should make sure atleast the required record is given
3331: -- we should make sure atleast the required record is given
3332:
3333: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
3334: x_try_id => l_trxv_rec.try_id);
3335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3336: OKL_API.set_message(p_app_name => G_APP_NAME,
3337: p_msg_name => G_NO_MATCHING_RECORD,
3338: p_token1 => G_COL_NAME_TOKEN,
3339: p_token1_value => 'try id');
3332:
3333: x_return_status := get_try_id(p_try_name => G_TRY_NAME,
3334: x_try_id => l_trxv_rec.try_id);
3335: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3336: OKL_API.set_message(p_app_name => G_APP_NAME,
3337: p_msg_name => G_NO_MATCHING_RECORD,
3338: p_token1 => G_COL_NAME_TOKEN,
3339: p_token1_value => 'try id');
3340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: OKL_API.set_message(p_app_name => G_APP_NAME,
3337: p_msg_name => G_NO_MATCHING_RECORD,
3338: p_token1 => G_COL_NAME_TOKEN,
3339: p_token1_value => 'try id');
3340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3342: OKL_API.set_message(p_app_name => G_APP_NAME,
3343: p_msg_name => G_NO_MATCHING_RECORD,
3344: p_token1 => G_COL_NAME_TOKEN,
3337: p_msg_name => G_NO_MATCHING_RECORD,
3338: p_token1 => G_COL_NAME_TOKEN,
3339: p_token1_value => 'try id');
3340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3342: OKL_API.set_message(p_app_name => G_APP_NAME,
3343: p_msg_name => G_NO_MATCHING_RECORD,
3344: p_token1 => G_COL_NAME_TOKEN,
3345: p_token1_value => 'try id');
3338: p_token1 => G_COL_NAME_TOKEN,
3339: p_token1_value => 'try id');
3340: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3341: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3342: OKL_API.set_message(p_app_name => G_APP_NAME,
3343: p_msg_name => G_NO_MATCHING_RECORD,
3344: p_token1 => G_COL_NAME_TOKEN,
3345: p_token1_value => 'try id');
3346: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: OKL_API.set_message(p_app_name => G_APP_NAME,
3343: p_msg_name => G_NO_MATCHING_RECORD,
3344: p_token1 => G_COL_NAME_TOKEN,
3345: p_token1_value => 'try id');
3346: RAISE OKL_API.G_EXCEPTION_ERROR;
3347: END IF;
3348: l_trxv_rec.tsu_code := 'ENTERED';
3349: l_trxv_rec.date_trans_occurred := sysdate;
3350: l_trxv_rec.tas_type := p_trans_type;
3360: -- get the contract number
3361: OPEN contract_num_csr(l_chr_id);
3362: FETCH contract_num_csr INTO l_cntrct_number;
3363: CLOSE contract_num_csr;
3364: Okl_Api.set_message(p_app_name => g_app_name,
3365: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3366: p_token1 => 'CONTRACT_NUMBER',
3367: p_token1_value => l_cntrct_number);
3368: RAISE OKL_API.G_EXCEPTION_ERROR;
3364: Okl_Api.set_message(p_app_name => g_app_name,
3365: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3366: p_token1 => 'CONTRACT_NUMBER',
3367: p_token1_value => l_cntrct_number);
3368: RAISE OKL_API.G_EXCEPTION_ERROR;
3369: END IF;
3370: -- Now creating the new header record
3371: Create_asset_header(p_api_version => p_api_version,
3372: p_init_msg_list => p_init_msg_list,
3374: x_msg_count => x_msg_count,
3375: x_msg_data => x_msg_data,
3376: p_trxv_rec => l_trxv_rec,
3377: x_trxv_rec => x_trxv_rec);
3378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3379: OKL_API.set_message(p_app_name => G_APP_NAME,
3380: p_msg_name => G_TRX_ID);
3381: l_trxv_rec := x_trxv_rec;
3382: l_trxv_rec.tsu_code := 'ERROR';
3375: x_msg_data => x_msg_data,
3376: p_trxv_rec => l_trxv_rec,
3377: x_trxv_rec => x_trxv_rec);
3378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3379: OKL_API.set_message(p_app_name => G_APP_NAME,
3380: p_msg_name => G_TRX_ID);
3381: l_trxv_rec := x_trxv_rec;
3382: l_trxv_rec.tsu_code := 'ERROR';
3383: Update_asset_header(p_api_version => p_api_version,
3386: x_msg_count => x_msg_count,
3387: x_msg_data => x_msg_data,
3388: p_trxv_rec => l_trxv_rec,
3389: x_trxv_rec => x_trxv_rec);
3390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3387: x_msg_data => x_msg_data,
3388: p_trxv_rec => l_trxv_rec,
3389: x_trxv_rec => x_trxv_rec);
3390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3388: p_trxv_rec => l_trxv_rec,
3389: x_trxv_rec => x_trxv_rec);
3390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3389: x_trxv_rec => x_trxv_rec);
3390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3397: OKL_API.set_message(p_app_name => G_APP_NAME,
3391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3397: OKL_API.set_message(p_app_name => G_APP_NAME,
3398: p_msg_name => G_TRX_ID);
3399: l_trxv_rec := x_trxv_rec;
3392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3397: OKL_API.set_message(p_app_name => G_APP_NAME,
3398: p_msg_name => G_TRX_ID);
3399: l_trxv_rec := x_trxv_rec;
3400: l_trxv_rec.tsu_code := 'ERROR';
3393: RAISE OKL_API.G_EXCEPTION_ERROR;
3394: END IF;
3395: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3396: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3397: OKL_API.set_message(p_app_name => G_APP_NAME,
3398: p_msg_name => G_TRX_ID);
3399: l_trxv_rec := x_trxv_rec;
3400: l_trxv_rec.tsu_code := 'ERROR';
3401: Update_asset_header(p_api_version => p_api_version,
3404: x_msg_count => x_msg_count,
3405: x_msg_data => x_msg_data,
3406: p_trxv_rec => l_trxv_rec,
3407: x_trxv_rec => x_trxv_rec);
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3405: x_msg_data => x_msg_data,
3406: p_trxv_rec => l_trxv_rec,
3407: x_trxv_rec => x_trxv_rec);
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3406: p_trxv_rec => l_trxv_rec,
3407: x_trxv_rec => x_trxv_rec);
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3407: x_trxv_rec => x_trxv_rec);
3408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3415: -- Now we are creating the new line record
3409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3415: -- Now we are creating the new line record
3416: l_itiv_rec := p_itiv_rec;
3417: l_itiv_rec.tas_id := x_trxv_rec.id;
3414: END IF;
3415: -- Now we are creating the new line record
3416: l_itiv_rec := p_itiv_rec;
3417: l_itiv_rec.tas_id := x_trxv_rec.id;
3418: IF (l_itiv_rec.tal_type = OKL_API.G_MISS_CHAR OR
3419: l_itiv_rec.tal_type IS NUll) THEN
3420: l_itiv_rec.tal_type := p_trans_type;
3421: END IF;
3422: --Generate the Instance Number IB
3420: l_itiv_rec.tal_type := p_trans_type;
3421: END IF;
3422: --Generate the Instance Number IB
3423: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3425: OKL_API.set_message(p_app_name => G_APP_NAME,
3426: p_msg_name => G_GEN_INST_NUM_IB);
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3421: END IF;
3422: --Generate the Instance Number IB
3423: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3425: OKL_API.set_message(p_app_name => G_APP_NAME,
3426: p_msg_name => G_GEN_INST_NUM_IB);
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3429: OKL_API.set_message(p_app_name => G_APP_NAME,
3423: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3425: OKL_API.set_message(p_app_name => G_APP_NAME,
3426: p_msg_name => G_GEN_INST_NUM_IB);
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3429: OKL_API.set_message(p_app_name => G_APP_NAME,
3430: p_msg_name => G_GEN_INST_NUM_IB);
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3425: OKL_API.set_message(p_app_name => G_APP_NAME,
3426: p_msg_name => G_GEN_INST_NUM_IB);
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3429: OKL_API.set_message(p_app_name => G_APP_NAME,
3430: p_msg_name => G_GEN_INST_NUM_IB);
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3432: END IF;
3425: OKL_API.set_message(p_app_name => G_APP_NAME,
3426: p_msg_name => G_GEN_INST_NUM_IB);
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3429: OKL_API.set_message(p_app_name => G_APP_NAME,
3430: p_msg_name => G_GEN_INST_NUM_IB);
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3432: END IF;
3433: l_itiv_rec.instance_number_ib := nvl(p_asset_number,null)||'-'||l_itiv_rec.instance_number_ib;
3427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3429: OKL_API.set_message(p_app_name => G_APP_NAME,
3430: p_msg_name => G_GEN_INST_NUM_IB);
3431: RAISE OKL_API.G_EXCEPTION_ERROR;
3432: END IF;
3433: l_itiv_rec.instance_number_ib := nvl(p_asset_number,null)||'-'||l_itiv_rec.instance_number_ib;
3434: -- evaluate conditions, build outcomes for true conditions and
3435: -- put them on outcome queue
3439: x_msg_count => x_msg_count,
3440: x_msg_data => x_msg_data,
3441: p_itiv_rec => l_itiv_rec,
3442: x_itiv_rec => x_itiv_rec);
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: OKL_API.set_message(p_app_name => G_APP_NAME,
3445: p_msg_name => G_ITI_ID);
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3440: x_msg_data => x_msg_data,
3441: p_itiv_rec => l_itiv_rec,
3442: x_itiv_rec => x_itiv_rec);
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: OKL_API.set_message(p_app_name => G_APP_NAME,
3445: p_msg_name => G_ITI_ID);
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3442: x_itiv_rec => x_itiv_rec);
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: OKL_API.set_message(p_app_name => G_APP_NAME,
3445: p_msg_name => G_ITI_ID);
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3449: p_msg_name => G_ITI_ID);
3450: RAISE OKL_API.G_EXCEPTION_ERROR;
3443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3444: OKL_API.set_message(p_app_name => G_APP_NAME,
3445: p_msg_name => G_ITI_ID);
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3449: p_msg_name => G_ITI_ID);
3450: RAISE OKL_API.G_EXCEPTION_ERROR;
3451: END IF;
3444: OKL_API.set_message(p_app_name => G_APP_NAME,
3445: p_msg_name => G_ITI_ID);
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3449: p_msg_name => G_ITI_ID);
3450: RAISE OKL_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: OKL_API.END_ACTIVITY (x_msg_count,
3446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3449: p_msg_name => G_ITI_ID);
3450: RAISE OKL_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: OKL_API.END_ACTIVITY (x_msg_count,
3453: x_msg_data );
3454: EXCEPTION
3448: OKL_API.set_message(p_app_name => G_APP_NAME,
3449: p_msg_name => G_ITI_ID);
3450: RAISE OKL_API.G_EXCEPTION_ERROR;
3451: END IF;
3452: OKL_API.END_ACTIVITY (x_msg_count,
3453: x_msg_data );
3454: EXCEPTION
3455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3456: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3451: END IF;
3452: OKL_API.END_ACTIVITY (x_msg_count,
3453: x_msg_data );
3454: EXCEPTION
3455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3456: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3457: l_api_name,
3458: G_PKG_NAME,
3459: 'OKL_API.G_RET_STS_ERROR',
3452: OKL_API.END_ACTIVITY (x_msg_count,
3453: x_msg_data );
3454: EXCEPTION
3455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3456: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3457: l_api_name,
3458: G_PKG_NAME,
3459: 'OKL_API.G_RET_STS_ERROR',
3460: x_msg_count,
3455: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3456: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3457: l_api_name,
3458: G_PKG_NAME,
3459: 'OKL_API.G_RET_STS_ERROR',
3460: x_msg_count,
3461: x_msg_data,
3462: '_PVT');
3463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3459: 'OKL_API.G_RET_STS_ERROR',
3460: x_msg_count,
3461: x_msg_data,
3462: '_PVT');
3463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3464: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3465: l_api_name,
3466: G_PKG_NAME,
3467: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3460: x_msg_count,
3461: x_msg_data,
3462: '_PVT');
3463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3464: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3465: l_api_name,
3466: G_PKG_NAME,
3467: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3468: x_msg_count,
3463: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3464: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3465: l_api_name,
3466: G_PKG_NAME,
3467: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3468: x_msg_count,
3469: x_msg_data,
3470: '_PVT');
3471: WHEN OTHERS THEN
3468: x_msg_count,
3469: x_msg_data,
3470: '_PVT');
3471: WHEN OTHERS THEN
3472: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3473: l_api_name,
3474: G_PKG_NAME,
3475: 'OTHERS',
3476: x_msg_count,
3479: END create_txl_itm_insts;
3480: -------------------------------------------------------------------------------------------------------
3481: PROCEDURE Create_Asset_header_instance(
3482: p_api_version IN NUMBER,
3483: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3484: x_return_status OUT NOCOPY VARCHAR2,
3485: x_msg_count OUT NOCOPY NUMBER,
3486: x_msg_data OUT NOCOPY VARCHAR2,
3487: p_cle_id IN OKC_K_LINES_V.ID%TYPE,
3517: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
3518: l_legal_entity_id NUMBER;
3519:
3520: BEGIN
3521: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3522: -- Call start_activity to create savepoint, check compatibility
3523: -- and initialize message list
3524: x_return_status := OKL_API.START_ACTIVITY (
3525: l_api_name
3520: BEGIN
3521: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3522: -- Call start_activity to create savepoint, check compatibility
3523: -- and initialize message list
3524: x_return_status := OKL_API.START_ACTIVITY (
3525: l_api_name
3526: ,p_init_msg_list
3527: ,'_PVT'
3528: ,x_return_status);
3526: ,p_init_msg_list
3527: ,'_PVT'
3528: ,x_return_status);
3529: -- Check if activity started successfully
3530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3533: RAISE OKL_API.G_EXCEPTION_ERROR;
3534: END IF;
3527: ,'_PVT'
3528: ,x_return_status);
3529: -- Check if activity started successfully
3530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3533: RAISE OKL_API.G_EXCEPTION_ERROR;
3534: END IF;
3535: -- Get the TAL Rec
3528: ,x_return_status);
3529: -- Check if activity started successfully
3530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3533: RAISE OKL_API.G_EXCEPTION_ERROR;
3534: END IF;
3535: -- Get the TAL Rec
3536: x_return_status := get_itiv_rec(p_kle_id => p_cle_id,
3529: -- Check if activity started successfully
3530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3533: RAISE OKL_API.G_EXCEPTION_ERROR;
3534: END IF;
3535: -- Get the TAL Rec
3536: x_return_status := get_itiv_rec(p_kle_id => p_cle_id,
3537: x_itiv_rec => l_itiv_rec);
3534: END IF;
3535: -- Get the TAL Rec
3536: x_return_status := get_itiv_rec(p_kle_id => p_cle_id,
3537: x_itiv_rec => l_itiv_rec);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: OKL_API.set_message(p_app_name => G_APP_NAME,
3540: p_msg_name => G_NO_MATCHING_RECORD,
3541: p_token1 => G_COL_NAME_TOKEN,
3542: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3535: -- Get the TAL Rec
3536: x_return_status := get_itiv_rec(p_kle_id => p_cle_id,
3537: x_itiv_rec => l_itiv_rec);
3538: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3539: OKL_API.set_message(p_app_name => G_APP_NAME,
3540: p_msg_name => G_NO_MATCHING_RECORD,
3541: p_token1 => G_COL_NAME_TOKEN,
3542: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: OKL_API.set_message(p_app_name => G_APP_NAME,
3540: p_msg_name => G_NO_MATCHING_RECORD,
3541: p_token1 => G_COL_NAME_TOKEN,
3542: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3545: OKL_API.set_message(p_app_name => G_APP_NAME,
3546: p_msg_name => G_NO_MATCHING_RECORD,
3547: p_token1 => G_COL_NAME_TOKEN,
3540: p_msg_name => G_NO_MATCHING_RECORD,
3541: p_token1 => G_COL_NAME_TOKEN,
3542: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3545: OKL_API.set_message(p_app_name => G_APP_NAME,
3546: p_msg_name => G_NO_MATCHING_RECORD,
3547: p_token1 => G_COL_NAME_TOKEN,
3548: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3541: p_token1 => G_COL_NAME_TOKEN,
3542: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3544: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3545: OKL_API.set_message(p_app_name => G_APP_NAME,
3546: p_msg_name => G_NO_MATCHING_RECORD,
3547: p_token1 => G_COL_NAME_TOKEN,
3548: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3545: OKL_API.set_message(p_app_name => G_APP_NAME,
3546: p_msg_name => G_NO_MATCHING_RECORD,
3547: p_token1 => G_COL_NAME_TOKEN,
3548: p_token1_value => 'OKL_TXL_ITM_INSTS_V record');
3549: RAISE OKL_API.G_EXCEPTION_ERROR;
3550: END IF;
3551: -- Since the above get rec itiv will get the old kle_id
3552: -- w.r.t p_from cle_id(top Line).
3553: -- but We have to replace the same with new install base id
3558: CLOSE c_ib_line_id;
3559: -- Get the TRX Rec
3560: x_return_status := get_tasv_rec(p_tas_id => l_itiv_rec.tas_id,
3561: x_trxv_rec => l_trxv_rec);
3562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3563: OKL_API.set_message(p_app_name => G_APP_NAME,
3564: p_msg_name => G_NO_MATCHING_RECORD,
3565: p_token1 => G_COL_NAME_TOKEN,
3566: p_token1_value => 'OKL_TRX_ASSETS record');
3559: -- Get the TRX Rec
3560: x_return_status := get_tasv_rec(p_tas_id => l_itiv_rec.tas_id,
3561: x_trxv_rec => l_trxv_rec);
3562: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3563: OKL_API.set_message(p_app_name => G_APP_NAME,
3564: p_msg_name => G_NO_MATCHING_RECORD,
3565: p_token1 => G_COL_NAME_TOKEN,
3566: p_token1_value => 'OKL_TRX_ASSETS record');
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3563: OKL_API.set_message(p_app_name => G_APP_NAME,
3564: p_msg_name => G_NO_MATCHING_RECORD,
3565: p_token1 => G_COL_NAME_TOKEN,
3566: p_token1_value => 'OKL_TRX_ASSETS record');
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_NO_MATCHING_RECORD,
3571: p_token1 => G_COL_NAME_TOKEN,
3564: p_msg_name => G_NO_MATCHING_RECORD,
3565: p_token1 => G_COL_NAME_TOKEN,
3566: p_token1_value => 'OKL_TRX_ASSETS record');
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_NO_MATCHING_RECORD,
3571: p_token1 => G_COL_NAME_TOKEN,
3572: p_token1_value => 'OKL_TRX_ASSETS record');
3565: p_token1 => G_COL_NAME_TOKEN,
3566: p_token1_value => 'OKL_TRX_ASSETS record');
3567: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3568: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_NO_MATCHING_RECORD,
3571: p_token1 => G_COL_NAME_TOKEN,
3572: p_token1_value => 'OKL_TRX_ASSETS record');
3573: RAISE OKL_API.G_EXCEPTION_ERROR;
3569: OKL_API.set_message(p_app_name => G_APP_NAME,
3570: p_msg_name => G_NO_MATCHING_RECORD,
3571: p_token1 => G_COL_NAME_TOKEN,
3572: p_token1_value => 'OKL_TRX_ASSETS record');
3573: RAISE OKL_API.G_EXCEPTION_ERROR;
3574: END IF;
3575: l_trxv_rec.tsu_code := 'ENTERED';
3576: l_trxv_rec.date_trans_occurred := sysdate;
3577: l_trxv_rec.tas_type := p_trans_type;
3584: -- get the contract number
3585: OPEN contract_num_csr(p_dnz_chr_id);
3586: FETCH contract_num_csr INTO l_cntrct_number;
3587: CLOSE contract_num_csr;
3588: Okl_Api.set_message(p_app_name => g_app_name,
3589: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3590: p_token1 => 'CONTRACT_NUMBER',
3591: p_token1_value => l_cntrct_number);
3592: RAISE OKL_API.G_EXCEPTION_ERROR;
3588: Okl_Api.set_message(p_app_name => g_app_name,
3589: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
3590: p_token1 => 'CONTRACT_NUMBER',
3591: p_token1_value => l_cntrct_number);
3592: RAISE OKL_API.G_EXCEPTION_ERROR;
3593: END IF;
3594: -- Now creating the new header record
3595: Create_asset_header(p_api_version => p_api_version,
3596: p_init_msg_list => p_init_msg_list,
3598: x_msg_count => x_msg_count,
3599: x_msg_data => x_msg_data,
3600: p_trxv_rec => l_trxv_rec,
3601: x_trxv_rec => x_trxv_rec);
3602: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3603: OKL_API.set_message(p_app_name => G_APP_NAME,
3604: p_msg_name => G_TRX_ID);
3605: l_trxv_rec := x_trxv_rec;
3606: l_trxv_rec.tsu_code := 'ERROR';
3599: x_msg_data => x_msg_data,
3600: p_trxv_rec => l_trxv_rec,
3601: x_trxv_rec => x_trxv_rec);
3602: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3603: OKL_API.set_message(p_app_name => G_APP_NAME,
3604: p_msg_name => G_TRX_ID);
3605: l_trxv_rec := x_trxv_rec;
3606: l_trxv_rec.tsu_code := 'ERROR';
3607: Update_asset_header(p_api_version => p_api_version,
3610: x_msg_count => x_msg_count,
3611: x_msg_data => x_msg_data,
3612: p_trxv_rec => l_trxv_rec,
3613: x_trxv_rec => x_trxv_rec);
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3611: x_msg_data => x_msg_data,
3612: p_trxv_rec => l_trxv_rec,
3613: x_trxv_rec => x_trxv_rec);
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3612: p_trxv_rec => l_trxv_rec,
3613: x_trxv_rec => x_trxv_rec);
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3613: x_trxv_rec => x_trxv_rec);
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3621: OKL_API.set_message(p_app_name => G_APP_NAME,
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3621: OKL_API.set_message(p_app_name => G_APP_NAME,
3622: p_msg_name => G_TRX_ID);
3623: l_trxv_rec := x_trxv_rec;
3616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3621: OKL_API.set_message(p_app_name => G_APP_NAME,
3622: p_msg_name => G_TRX_ID);
3623: l_trxv_rec := x_trxv_rec;
3624: l_trxv_rec.tsu_code := 'ERROR';
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3621: OKL_API.set_message(p_app_name => G_APP_NAME,
3622: p_msg_name => G_TRX_ID);
3623: l_trxv_rec := x_trxv_rec;
3624: l_trxv_rec.tsu_code := 'ERROR';
3625: Update_asset_header(p_api_version => p_api_version,
3628: x_msg_count => x_msg_count,
3629: x_msg_data => x_msg_data,
3630: p_trxv_rec => l_trxv_rec,
3631: x_trxv_rec => x_trxv_rec);
3632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_ERROR;
3636: END IF;
3629: x_msg_data => x_msg_data,
3630: p_trxv_rec => l_trxv_rec,
3631: x_trxv_rec => x_trxv_rec);
3632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_ERROR;
3636: END IF;
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3630: p_trxv_rec => l_trxv_rec,
3631: x_trxv_rec => x_trxv_rec);
3632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_ERROR;
3636: END IF;
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3631: x_trxv_rec => x_trxv_rec);
3632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_ERROR;
3636: END IF;
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_itiv_rec.tal_type := p_trans_type;
3633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3635: RAISE OKL_API.G_EXCEPTION_ERROR;
3636: END IF;
3637: RAISE OKL_API.G_EXCEPTION_ERROR;
3638: END IF;
3639: l_itiv_rec.tal_type := p_trans_type;
3640: l_itiv_rec.tas_id := x_trxv_rec.id;
3641: --Generate the Instance Number IB
3639: l_itiv_rec.tal_type := p_trans_type;
3640: l_itiv_rec.tas_id := x_trxv_rec.id;
3641: --Generate the Instance Number IB
3642: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_GEN_INST_NUM_IB);
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3640: l_itiv_rec.tas_id := x_trxv_rec.id;
3641: --Generate the Instance Number IB
3642: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_GEN_INST_NUM_IB);
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3648: OKL_API.set_message(p_app_name => G_APP_NAME,
3642: x_return_status := generate_instance_number_ib(x_instance_number_ib => l_itiv_rec.instance_number_ib);
3643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_GEN_INST_NUM_IB);
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3648: OKL_API.set_message(p_app_name => G_APP_NAME,
3649: p_msg_name => G_GEN_INST_NUM_IB);
3650: RAISE OKL_API.G_EXCEPTION_ERROR;
3643: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_GEN_INST_NUM_IB);
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3648: OKL_API.set_message(p_app_name => G_APP_NAME,
3649: p_msg_name => G_GEN_INST_NUM_IB);
3650: RAISE OKL_API.G_EXCEPTION_ERROR;
3651: END IF;
3644: OKL_API.set_message(p_app_name => G_APP_NAME,
3645: p_msg_name => G_GEN_INST_NUM_IB);
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3648: OKL_API.set_message(p_app_name => G_APP_NAME,
3649: p_msg_name => G_GEN_INST_NUM_IB);
3650: RAISE OKL_API.G_EXCEPTION_ERROR;
3651: END IF;
3652: l_itiv_rec.kle_id := p_new_cle_id;
3646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3648: OKL_API.set_message(p_app_name => G_APP_NAME,
3649: p_msg_name => G_GEN_INST_NUM_IB);
3650: RAISE OKL_API.G_EXCEPTION_ERROR;
3651: END IF;
3652: l_itiv_rec.kle_id := p_new_cle_id;
3653: l_itiv_rec.dnz_cle_id := p_fin_cle_id;
3654: l_itiv_rec.instance_number_ib := nvl(p_asset_number,null)||'-'||l_itiv_rec.instance_number_ib;
3659: x_msg_count => x_msg_count,
3660: x_msg_data => x_msg_data,
3661: p_itiv_rec => l_itiv_rec,
3662: x_itiv_rec => x_itiv_rec);
3663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_ITI_ID);
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3660: x_msg_data => x_msg_data,
3661: p_itiv_rec => l_itiv_rec,
3662: x_itiv_rec => x_itiv_rec);
3663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_ITI_ID);
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3662: x_itiv_rec => x_itiv_rec);
3663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_ITI_ID);
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3669: p_msg_name => G_ITI_ID);
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3663: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_ITI_ID);
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3669: p_msg_name => G_ITI_ID);
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3664: OKL_API.set_message(p_app_name => G_APP_NAME,
3665: p_msg_name => G_ITI_ID);
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3669: p_msg_name => G_ITI_ID);
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: OKL_API.END_ACTIVITY (x_msg_count,
3666: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3669: p_msg_name => G_ITI_ID);
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: OKL_API.END_ACTIVITY (x_msg_count,
3673: x_msg_data );
3674: EXCEPTION
3668: OKL_API.set_message(p_app_name => G_APP_NAME,
3669: p_msg_name => G_ITI_ID);
3670: RAISE OKL_API.G_EXCEPTION_ERROR;
3671: END IF;
3672: OKL_API.END_ACTIVITY (x_msg_count,
3673: x_msg_data );
3674: EXCEPTION
3675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3671: END IF;
3672: OKL_API.END_ACTIVITY (x_msg_count,
3673: x_msg_data );
3674: EXCEPTION
3675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3677: l_api_name,
3678: G_PKG_NAME,
3679: 'OKL_API.G_RET_STS_ERROR',
3672: OKL_API.END_ACTIVITY (x_msg_count,
3673: x_msg_data );
3674: EXCEPTION
3675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3677: l_api_name,
3678: G_PKG_NAME,
3679: 'OKL_API.G_RET_STS_ERROR',
3680: x_msg_count,
3675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3676: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3677: l_api_name,
3678: G_PKG_NAME,
3679: 'OKL_API.G_RET_STS_ERROR',
3680: x_msg_count,
3681: x_msg_data,
3682: '_PVT');
3683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3679: 'OKL_API.G_RET_STS_ERROR',
3680: x_msg_count,
3681: x_msg_data,
3682: '_PVT');
3683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3685: l_api_name,
3686: G_PKG_NAME,
3687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3680: x_msg_count,
3681: x_msg_data,
3682: '_PVT');
3683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3685: l_api_name,
3686: G_PKG_NAME,
3687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3688: x_msg_count,
3683: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3685: l_api_name,
3686: G_PKG_NAME,
3687: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3688: x_msg_count,
3689: x_msg_data,
3690: '_PVT');
3691: WHEN OTHERS THEN
3688: x_msg_count,
3689: x_msg_data,
3690: '_PVT');
3691: WHEN OTHERS THEN
3692: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3693: l_api_name,
3694: G_PKG_NAME,
3695: 'OTHERS',
3696: x_msg_count,
3715: x_msg_data OUT NOCOPY VARCHAR2,
3716: p_from_cle_id in number,
3717: p_to_cle_id in number) is
3718:
3719: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
3720: l_api_name CONSTANT varchar2(30) := 'CREATE_PARTY_PYMT_DTLS';
3721: l_api_version CONSTANT NUMBER := 1.0;
3722:
3723:
3773: x_ppydv_rec okl_pyd_pvt.ppydv_rec_type;
3774:
3775: begin
3776:
3777: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3778: -- Call start_activity to create savepoint, check compatibility
3779: -- and initialize message list
3780: x_return_status := OKL_API.START_ACTIVITY (
3781: l_api_name
3776:
3777: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3778: -- Call start_activity to create savepoint, check compatibility
3779: -- and initialize message list
3780: x_return_status := OKL_API.START_ACTIVITY (
3781: l_api_name
3782: ,p_init_msg_list
3783: ,'_PVT'
3784: ,x_return_status);
3782: ,p_init_msg_list
3783: ,'_PVT'
3784: ,x_return_status);
3785: -- Check if activity started successfully
3786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_ERROR;
3790: END IF;
3783: ,'_PVT'
3784: ,x_return_status);
3785: -- Check if activity started successfully
3786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_ERROR;
3790: END IF;
3791:
3784: ,x_return_status);
3785: -- Check if activity started successfully
3786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_ERROR;
3790: END IF;
3791:
3792:
3785: -- Check if activity started successfully
3786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3787: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3789: RAISE OKL_API.G_EXCEPTION_ERROR;
3790: END IF;
3791:
3792:
3793: open l_ppyd_csr(p_from_cle_id => p_from_cle_id);
3834: x_msg_data => x_msg_data,
3835: p_ppydv_rec => l_ppydv_rec,
3836: x_ppydv_rec => x_ppydv_rec);
3837:
3838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3841: RAISE OKL_API.G_EXCEPTION_ERROR;
3842: END IF;
3835: p_ppydv_rec => l_ppydv_rec,
3836: x_ppydv_rec => x_ppydv_rec);
3837:
3838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3841: RAISE OKL_API.G_EXCEPTION_ERROR;
3842: END IF;
3843: End If;
3836: x_ppydv_rec => x_ppydv_rec);
3837:
3838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3841: RAISE OKL_API.G_EXCEPTION_ERROR;
3842: END IF;
3843: End If;
3844: close l_cplb_csr;
3837:
3838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3841: RAISE OKL_API.G_EXCEPTION_ERROR;
3842: END IF;
3843: End If;
3844: close l_cplb_csr;
3845: End Loop;
3843: End If;
3844: close l_cplb_csr;
3845: End Loop;
3846: close l_ppyd_csr;
3847: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
3848: EXCEPTION
3849: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3850: If l_ppyd_csr%ISOPEN then
3851: close l_ppyd_csr;
3845: End Loop;
3846: close l_ppyd_csr;
3847: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
3848: EXCEPTION
3849: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3850: If l_ppyd_csr%ISOPEN then
3851: close l_ppyd_csr;
3852: End If;
3853: If l_cplb_csr%ISOPEN then
3852: End If;
3853: If l_cplb_csr%ISOPEN then
3854: close l_cplb_csr;
3855: End If;
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3857: l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3855: End If;
3856: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3857: l_api_name,
3858: G_PKG_NAME,
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT');
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3859: 'OKL_API.G_RET_STS_ERROR',
3860: x_msg_count,
3861: x_msg_data,
3862: '_PVT');
3863: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3864: If l_ppyd_csr%ISOPEN then
3865: close l_ppyd_csr;
3866: End If;
3867: If l_cplb_csr%ISOPEN then
3866: End If;
3867: If l_cplb_csr%ISOPEN then
3868: close l_cplb_csr;
3869: End If;
3870: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3871: l_api_name,
3872: G_PKG_NAME,
3873: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3874: x_msg_count,
3869: End If;
3870: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3871: l_api_name,
3872: G_PKG_NAME,
3873: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3874: x_msg_count,
3875: x_msg_data,
3876: '_PVT');
3877: WHEN OTHERS THEN
3880: End If;
3881: If l_cplb_csr%ISOPEN then
3882: close l_cplb_csr;
3883: End If;
3884: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3885: l_api_name,
3886: G_PKG_NAME,
3887: 'OTHERS',
3888: x_msg_count,
3892: ---------------
3893: --Bug# 2994971
3894: ---------------
3895: PROCEDURE populate_insurance_category(p_api_version IN NUMBER,
3896: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3897: x_return_status OUT NOCOPY VARCHAR2,
3898: x_msg_count OUT NOCOPY NUMBER,
3899: x_msg_data OUT NOCOPY VARCHAR2,
3900: p_cle_id IN NUMBER
3939:
3940:
3941: BEGIN
3942:
3943: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3944: -- Call start_activity to create savepoint, check compatibility
3945: -- and initialize message list
3946: x_return_status := OKL_API.START_ACTIVITY (l_api_name
3947: ,p_init_msg_list
3942:
3943: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3944: -- Call start_activity to create savepoint, check compatibility
3945: -- and initialize message list
3946: x_return_status := OKL_API.START_ACTIVITY (l_api_name
3947: ,p_init_msg_list
3948: ,'_PVT'
3949: ,x_return_status);
3950: -- Check if activity started successfully
3947: ,p_init_msg_list
3948: ,'_PVT'
3949: ,x_return_status);
3950: -- Check if activity started successfully
3951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_ERROR;
3955: END IF;
3948: ,'_PVT'
3949: ,x_return_status);
3950: -- Check if activity started successfully
3951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_ERROR;
3955: END IF;
3956:
3949: ,x_return_status);
3950: -- Check if activity started successfully
3951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_ERROR;
3955: END IF;
3956:
3957: --fetch inv item details
3950: -- Check if activity started successfully
3951: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3952: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3953: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_ERROR;
3955: END IF;
3956:
3957: --fetch inv item details
3958: open l_cleb_csr(p_cle_id => p_cle_id);
3964:
3965: --------------------------------------------------------------------------
3966: --if inv item id and org id are found and item_insurance_category is null :
3967: ---------------------------------------------------------------------------
3968: if nvl(l_cleb_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3969: nvl(l_cleb_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3970: nvl(l_cleb_rec.item_insurance_category,okl_api.g_miss_num) = OKL_API.G_MISS_NUM then
3971:
3972:
3965: --------------------------------------------------------------------------
3966: --if inv item id and org id are found and item_insurance_category is null :
3967: ---------------------------------------------------------------------------
3968: if nvl(l_cleb_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3969: nvl(l_cleb_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3970: nvl(l_cleb_rec.item_insurance_category,okl_api.g_miss_num) = OKL_API.G_MISS_NUM then
3971:
3972:
3973: l_inv_item_id := to_number(l_cleb_rec.object1_id1);
3966: --if inv item id and org id are found and item_insurance_category is null :
3967: ---------------------------------------------------------------------------
3968: if nvl(l_cleb_rec.object1_id1,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3969: nvl(l_cleb_rec.object1_id2,okl_api.g_miss_char) <> OKL_API.G_MISS_CHAR and
3970: nvl(l_cleb_rec.item_insurance_category,okl_api.g_miss_num) = OKL_API.G_MISS_NUM then
3971:
3972:
3973: l_inv_item_id := to_number(l_cleb_rec.object1_id1);
3974: l_inv_org_id := to_number(l_cleb_rec.object1_id2);
3999: x_clev_rec => lx_clev_rec,
4000: x_klev_rec => lx_klev_rec
4001: );
4002:
4003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_ERROR;
4007: END IF;
4000: x_klev_rec => lx_klev_rec
4001: );
4002:
4003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_ERROR;
4007: END IF;
4008: End If;
4001: );
4002:
4003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_ERROR;
4007: END IF;
4008: End If;
4009:
4002:
4003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4006: RAISE OKL_API.G_EXCEPTION_ERROR;
4007: END IF;
4008: End If;
4009:
4010: OKL_API.END_ACTIVITY (x_msg_count,
4006: RAISE OKL_API.G_EXCEPTION_ERROR;
4007: END IF;
4008: End If;
4009:
4010: OKL_API.END_ACTIVITY (x_msg_count,
4011: x_msg_data );
4012: EXCEPTION
4013: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4014: if l_msi_csr%ISOPEN then
4009:
4010: OKL_API.END_ACTIVITY (x_msg_count,
4011: x_msg_data );
4012: EXCEPTION
4013: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4014: if l_msi_csr%ISOPEN then
4015: close l_msi_csr;
4016: end if;
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4013: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4014: if l_msi_csr%ISOPEN then
4015: close l_msi_csr;
4016: end if;
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4018: l_api_name,
4019: G_PKG_NAME,
4020: 'OKL_API.G_RET_STS_ERROR',
4021: x_msg_count,
4016: end if;
4017: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4018: l_api_name,
4019: G_PKG_NAME,
4020: 'OKL_API.G_RET_STS_ERROR',
4021: x_msg_count,
4022: x_msg_data,
4023: '_PVT');
4024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4020: 'OKL_API.G_RET_STS_ERROR',
4021: x_msg_count,
4022: x_msg_data,
4023: '_PVT');
4024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4025: if l_msi_csr%ISOPEN then
4026: close l_msi_csr;
4027: end if;
4028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4025: if l_msi_csr%ISOPEN then
4026: close l_msi_csr;
4027: end if;
4028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4029: l_api_name,
4030: G_PKG_NAME,
4031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4032: x_msg_count,
4027: end if;
4028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4029: l_api_name,
4030: G_PKG_NAME,
4031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4032: x_msg_count,
4033: x_msg_data,
4034: '_PVT');
4035: WHEN OTHERS THEN
4035: WHEN OTHERS THEN
4036: if l_msi_csr%ISOPEN then
4037: close l_msi_csr;
4038: end if;
4039: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4040: l_api_name,
4041: G_PKG_NAME,
4042: 'OTHERS',
4043: x_msg_count,
4052: --------------------------- Main Process for Copy of Asset Line -------------------------------
4053: -----------------------------------------------------------------------------------------------
4054: Procedure copy_asset_lines(
4055: p_api_version IN NUMBER,
4056: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4057: x_return_status OUT NOCOPY VARCHAR2,
4058: x_msg_count OUT NOCOPY NUMBER,
4059: x_msg_data OUT NOCOPY VARCHAR2,
4060: P_from_cle_id IN NUMBER,
4057: x_return_status OUT NOCOPY VARCHAR2,
4058: x_msg_count OUT NOCOPY NUMBER,
4059: x_msg_data OUT NOCOPY VARCHAR2,
4060: P_from_cle_id IN NUMBER,
4061: p_to_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
4062: p_to_chr_id IN NUMBER,
4063: p_to_template_yn IN VARCHAR2,
4064: p_copy_reference IN VARCHAR2,
4065: p_copy_line_party_yn IN VARCHAR2,
4339: lx_fin_clev_rec okl_okc_migration_pvt.clev_rec_type;
4340: lx_fin_klev_rec okl_contract_pub.klev_rec_type;
4341:
4342: BEGIN
4343: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4344: -- Call start_activity to create savepoint, check compatibility
4345: -- and initialize message list
4346: x_return_status := OKL_API.START_ACTIVITY (
4347: l_api_name
4342: BEGIN
4343: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4344: -- Call start_activity to create savepoint, check compatibility
4345: -- and initialize message list
4346: x_return_status := OKL_API.START_ACTIVITY (
4347: l_api_name
4348: ,p_init_msg_list
4349: ,'_PVT'
4350: ,x_return_status);
4348: ,p_init_msg_list
4349: ,'_PVT'
4350: ,x_return_status);
4351: -- Check if activity started successfully
4352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4355: RAISE OKL_API.G_EXCEPTION_ERROR;
4356: END IF;
4349: ,'_PVT'
4350: ,x_return_status);
4351: -- Check if activity started successfully
4352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4355: RAISE OKL_API.G_EXCEPTION_ERROR;
4356: END IF;
4357: -- Validating the chr_id and cle_id
4350: ,x_return_status);
4351: -- Check if activity started successfully
4352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4355: RAISE OKL_API.G_EXCEPTION_ERROR;
4356: END IF;
4357: -- Validating the chr_id and cle_id
4358: validate_from_cle_id(p_cle_id => p_from_cle_id,
4351: -- Check if activity started successfully
4352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4355: RAISE OKL_API.G_EXCEPTION_ERROR;
4356: END IF;
4357: -- Validating the chr_id and cle_id
4358: validate_from_cle_id(p_cle_id => p_from_cle_id,
4359: x_fa_line_id => l_from_fa_kle_id,
4359: x_fa_line_id => l_from_fa_kle_id,
4360: x_ib_id_tbl => lt_ib_id_tbl,
4361: x_dnz_chr_id => l_from_dnz_chr_id,
4362: x_return_status => x_return_status);
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4360: x_ib_id_tbl => lt_ib_id_tbl,
4361: x_dnz_chr_id => l_from_dnz_chr_id,
4362: x_return_status => x_return_status);
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368: -- since avery validation is passed
4361: x_dnz_chr_id => l_from_dnz_chr_id,
4362: x_return_status => x_return_status);
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368: -- since avery validation is passed
4369: -- First to copy a contract line then get the cle id
4362: x_return_status => x_return_status);
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368: -- since avery validation is passed
4369: -- First to copy a contract line then get the cle id
4370: OKL_COPY_CONTRACT_PUB.COPY_CONTRACT_LINES(
4380: p_copy_reference => p_copy_reference,
4381: p_copy_line_party_yn => p_copy_line_party_yn,
4382: p_renew_ref_yn => p_renew_ref_yn,
4383: x_cle_id => x_cle_id);
4384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4385: OKL_API.set_message(p_app_name => G_APP_NAME,
4386: p_msg_name => G_COPY_LINE);
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4381: p_copy_line_party_yn => p_copy_line_party_yn,
4382: p_renew_ref_yn => p_renew_ref_yn,
4383: x_cle_id => x_cle_id);
4384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4385: OKL_API.set_message(p_app_name => G_APP_NAME,
4386: p_msg_name => G_COPY_LINE);
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4389: OKL_API.set_message(p_app_name => G_APP_NAME,
4383: x_cle_id => x_cle_id);
4384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4385: OKL_API.set_message(p_app_name => G_APP_NAME,
4386: p_msg_name => G_COPY_LINE);
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4389: OKL_API.set_message(p_app_name => G_APP_NAME,
4390: p_msg_name => G_COPY_LINE);
4391: RAISE OKL_API.G_EXCEPTION_ERROR;
4384: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4385: OKL_API.set_message(p_app_name => G_APP_NAME,
4386: p_msg_name => G_COPY_LINE);
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4389: OKL_API.set_message(p_app_name => G_APP_NAME,
4390: p_msg_name => G_COPY_LINE);
4391: RAISE OKL_API.G_EXCEPTION_ERROR;
4392: END IF;
4385: OKL_API.set_message(p_app_name => G_APP_NAME,
4386: p_msg_name => G_COPY_LINE);
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4389: OKL_API.set_message(p_app_name => G_APP_NAME,
4390: p_msg_name => G_COPY_LINE);
4391: RAISE OKL_API.G_EXCEPTION_ERROR;
4392: END IF;
4393:
4387: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4389: OKL_API.set_message(p_app_name => G_APP_NAME,
4390: p_msg_name => G_COPY_LINE);
4391: RAISE OKL_API.G_EXCEPTION_ERROR;
4392: END IF;
4393:
4394: ln_cle_id := x_cle_id;
4395: -- We need to update the asset number
4397: x_return_status := validate_items_ids(p_cle_id => l_from_fa_kle_id,
4398: p_dnz_chr_id => l_from_dnz_chr_id,
4399: x_object1_id1 => l_fa_object1_id1,
4400: x_object1_id2 => l_fa_object1_id2);
4401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4402: OKL_API.set_message(p_app_name => G_APP_NAME,
4403: p_msg_name => G_ITEM_RECORD);
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4398: p_dnz_chr_id => l_from_dnz_chr_id,
4399: x_object1_id1 => l_fa_object1_id1,
4400: x_object1_id2 => l_fa_object1_id2);
4401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4402: OKL_API.set_message(p_app_name => G_APP_NAME,
4403: p_msg_name => G_ITEM_RECORD);
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4406: OKL_API.set_message(p_app_name => G_APP_NAME,
4400: x_object1_id2 => l_fa_object1_id2);
4401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4402: OKL_API.set_message(p_app_name => G_APP_NAME,
4403: p_msg_name => G_ITEM_RECORD);
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4406: OKL_API.set_message(p_app_name => G_APP_NAME,
4407: p_msg_name => G_ITEM_RECORD);
4408: -- TO put error message
4401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4402: OKL_API.set_message(p_app_name => G_APP_NAME,
4403: p_msg_name => G_ITEM_RECORD);
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4406: OKL_API.set_message(p_app_name => G_APP_NAME,
4407: p_msg_name => G_ITEM_RECORD);
4408: -- TO put error message
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4402: OKL_API.set_message(p_app_name => G_APP_NAME,
4403: p_msg_name => G_ITEM_RECORD);
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4406: OKL_API.set_message(p_app_name => G_APP_NAME,
4407: p_msg_name => G_ITEM_RECORD);
4408: -- TO put error message
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4406: OKL_API.set_message(p_app_name => G_APP_NAME,
4407: p_msg_name => G_ITEM_RECORD);
4408: -- TO put error message
4409: RAISE OKL_API.G_EXCEPTION_ERROR;
4410: END IF;
4411: -- Install Base Item info
4412: IF lt_ib_id_tbl.COUNT > 0 THEN
4413: i := lt_ib_id_tbl.FIRST;
4415: x_return_status := validate_items_ids(p_cle_id => lt_ib_id_tbl(i).id,
4416: p_dnz_chr_id => l_from_dnz_chr_id,
4417: x_object1_id1 => lt_ib_item_tbl(i).object1_id1,
4418: x_object1_id2 => lt_ib_item_tbl(i).object1_id2);
4419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4423: END IF;
4416: p_dnz_chr_id => l_from_dnz_chr_id,
4417: x_object1_id1 => lt_ib_item_tbl(i).object1_id1,
4418: x_object1_id2 => lt_ib_item_tbl(i).object1_id2);
4419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4423: END IF;
4424: EXIT WHEN (i = lt_ib_id_tbl.LAST);
4417: x_object1_id1 => lt_ib_item_tbl(i).object1_id1,
4418: x_object1_id2 => lt_ib_item_tbl(i).object1_id2);
4419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4423: END IF;
4424: EXIT WHEN (i = lt_ib_id_tbl.LAST);
4425: i := lt_ib_id_tbl.NEXT(i);
4418: x_object1_id2 => lt_ib_item_tbl(i).object1_id2);
4419: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4421: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4422: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4423: END IF;
4424: EXIT WHEN (i = lt_ib_id_tbl.LAST);
4425: i := lt_ib_id_tbl.NEXT(i);
4426: END LOOP;
4424: EXIT WHEN (i = lt_ib_id_tbl.LAST);
4425: i := lt_ib_id_tbl.NEXT(i);
4426: END LOOP;
4427: ELSE
4428: OKL_API.set_message(p_app_name => G_APP_NAME,
4429: p_msg_name => G_LINE_RECORD);
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4426: END LOOP;
4427: ELSE
4428: OKL_API.set_message(p_app_name => G_APP_NAME,
4429: p_msg_name => G_LINE_RECORD);
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4428: OKL_API.set_message(p_app_name => G_APP_NAME,
4429: p_msg_name => G_LINE_RECORD);
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4429: p_msg_name => G_LINE_RECORD);
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4437: OKL_API.set_message(p_app_name => G_APP_NAME,
4431: END IF;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4437: OKL_API.set_message(p_app_name => G_APP_NAME,
4438: p_msg_name => G_ITEM_RECORD);
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4437: OKL_API.set_message(p_app_name => G_APP_NAME,
4438: p_msg_name => G_ITEM_RECORD);
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: END IF;
4433: OKL_API.set_message(p_app_name => G_APP_NAME,
4434: p_msg_name => G_ITEM_RECORD);
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4437: OKL_API.set_message(p_app_name => G_APP_NAME,
4438: p_msg_name => G_ITEM_RECORD);
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: END IF;
4441: IF (l_fa_object1_id1 IS NULL OR
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4437: OKL_API.set_message(p_app_name => G_APP_NAME,
4438: p_msg_name => G_ITEM_RECORD);
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: END IF;
4441: IF (l_fa_object1_id1 IS NULL OR
4442: l_fa_object1_id1 = OKL_API.G_MISS_CHAR) AND
4443: (l_fa_object1_id2 IS NULL OR
4438: p_msg_name => G_ITEM_RECORD);
4439: RAISE OKL_API.G_EXCEPTION_ERROR;
4440: END IF;
4441: IF (l_fa_object1_id1 IS NULL OR
4442: l_fa_object1_id1 = OKL_API.G_MISS_CHAR) AND
4443: (l_fa_object1_id2 IS NULL OR
4444: l_fa_object1_id2 = OKL_API.G_MISS_CHAR) THEN
4445:
4446: --check if it is a 'LOAN' contract
4440: END IF;
4441: IF (l_fa_object1_id1 IS NULL OR
4442: l_fa_object1_id1 = OKL_API.G_MISS_CHAR) AND
4443: (l_fa_object1_id2 IS NULL OR
4444: l_fa_object1_id2 = OKL_API.G_MISS_CHAR) THEN
4445:
4446: --check if it is a 'LOAN' contract
4447: Open deal_type_stscode_csr(p_chr_id => l_from_dnz_chr_id);
4448: Fetch deal_type_stscode_csr into l_deal_type, lv_sts_code;
4461: p_trans_type => p_trans_type,
4462: x_trxv_rec => lx_asset_trxv_rec,
4463: x_talv_rec => lx_txlv_rec,
4464: x_txdv_tbl => lx_txdv_tbl);
4465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4468: RAISE OKL_API.G_EXCEPTION_ERROR;
4469: END IF;
4462: x_trxv_rec => lx_asset_trxv_rec,
4463: x_talv_rec => lx_txlv_rec,
4464: x_txdv_tbl => lx_txdv_tbl);
4465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4468: RAISE OKL_API.G_EXCEPTION_ERROR;
4469: END IF;
4470: lv_gen_asset_number := lx_txlv_rec.asset_number;
4463: x_talv_rec => lx_txlv_rec,
4464: x_txdv_tbl => lx_txdv_tbl);
4465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4468: RAISE OKL_API.G_EXCEPTION_ERROR;
4469: END IF;
4470: lv_gen_asset_number := lx_txlv_rec.asset_number;
4471: ELSE
4464: x_txdv_tbl => lx_txdv_tbl);
4465: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4467: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4468: RAISE OKL_API.G_EXCEPTION_ERROR;
4469: END IF;
4470: lv_gen_asset_number := lx_txlv_rec.asset_number;
4471: ELSE
4472: -- Check to see if the txl info is there or not
4471: ELSE
4472: -- Check to see if the txl info is there or not
4473: OPEN c_check_txl_rec(l_from_fa_kle_id);
4474: IF c_check_txl_rec%NOTFOUND THEN
4475: OKL_API.set_message(p_app_name => G_APP_NAME,
4476: p_msg_name => G_NO_MATCHING_RECORD,
4477: p_token1 => G_COL_NAME_TOKEN,
4478: p_token1_value => 'OKL_TXL_ASSETS_V.KLE_ID');
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4475: OKL_API.set_message(p_app_name => G_APP_NAME,
4476: p_msg_name => G_NO_MATCHING_RECORD,
4477: p_token1 => G_COL_NAME_TOKEN,
4478: p_token1_value => 'OKL_TXL_ASSETS_V.KLE_ID');
4479: RAISE OKL_API.G_EXCEPTION_ERROR;
4480: END IF;
4481: FETCH c_check_txl_rec INTO ln_txl_rec;
4482: CLOSE c_check_txl_rec;
4483:
4494: p_trans_type => p_trans_type,
4495: x_trxv_rec => lx_asset_trxv_rec,
4496: x_talv_rec => lx_txlv_rec,
4497: x_txdv_tbl => lx_txdv_tbl);
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4495: x_trxv_rec => lx_asset_trxv_rec,
4496: x_talv_rec => lx_txlv_rec,
4497: x_txdv_tbl => lx_txdv_tbl);
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: lv_gen_asset_number := lx_txlv_rec.asset_number;
4496: x_talv_rec => lx_txlv_rec,
4497: x_txdv_tbl => lx_txdv_tbl);
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: lv_gen_asset_number := lx_txlv_rec.asset_number;
4504: ELSE
4497: x_txdv_tbl => lx_txdv_tbl);
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: lv_gen_asset_number := lx_txlv_rec.asset_number;
4504: ELSE
4505: RAISE OKL_API.G_EXCEPTION_ERROR;
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: lv_gen_asset_number := lx_txlv_rec.asset_number;
4504: ELSE
4505: RAISE OKL_API.G_EXCEPTION_ERROR;
4506: END IF;
4507: END IF;
4508: -- Calling the api to copy the Supplier Invoice Details info
4509: create_supp_invoice_dtls(p_api_version => p_api_version,
4512: x_msg_count => x_msg_count,
4513: x_msg_data => x_msg_data,
4514: p_cle_id => p_from_cle_id,
4515: p_fin_cle_id => x_cle_id);
4516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4517: OKL_API.set_message(p_app_name => G_APP_NAME,
4518: p_msg_name => ' Error in copy Supplier Invoice Details');
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4513: x_msg_data => x_msg_data,
4514: p_cle_id => p_from_cle_id,
4515: p_fin_cle_id => x_cle_id);
4516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4517: OKL_API.set_message(p_app_name => G_APP_NAME,
4518: p_msg_name => ' Error in copy Supplier Invoice Details');
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4521: OKL_API.set_message(p_app_name => G_APP_NAME,
4515: p_fin_cle_id => x_cle_id);
4516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4517: OKL_API.set_message(p_app_name => G_APP_NAME,
4518: p_msg_name => ' Error in copy Supplier Invoice Details');
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4521: OKL_API.set_message(p_app_name => G_APP_NAME,
4522: p_msg_name => ' Error in copy Supplier Invoice Details');
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4516: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4517: OKL_API.set_message(p_app_name => G_APP_NAME,
4518: p_msg_name => ' Error in copy Supplier Invoice Details');
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4521: OKL_API.set_message(p_app_name => G_APP_NAME,
4522: p_msg_name => ' Error in copy Supplier Invoice Details');
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4517: OKL_API.set_message(p_app_name => G_APP_NAME,
4518: p_msg_name => ' Error in copy Supplier Invoice Details');
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4521: OKL_API.set_message(p_app_name => G_APP_NAME,
4522: p_msg_name => ' Error in copy Supplier Invoice Details');
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525: ELSIF (l_fa_object1_id1 IS NOT NULL OR
4519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4521: OKL_API.set_message(p_app_name => G_APP_NAME,
4522: p_msg_name => ' Error in copy Supplier Invoice Details');
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525: ELSIF (l_fa_object1_id1 IS NOT NULL OR
4526: l_fa_object1_id1 <> OKL_API.G_MISS_CHAR) AND
4527: (l_fa_object1_id2 IS NOT NULL OR
4522: p_msg_name => ' Error in copy Supplier Invoice Details');
4523: RAISE OKL_API.G_EXCEPTION_ERROR;
4524: END IF;
4525: ELSIF (l_fa_object1_id1 IS NOT NULL OR
4526: l_fa_object1_id1 <> OKL_API.G_MISS_CHAR) AND
4527: (l_fa_object1_id2 IS NOT NULL OR
4528: l_fa_object1_id2 <> OKL_API.G_MISS_CHAR) THEN
4529: -- Now we have to create txl assets info for existing FA asset
4530: OPEN c_asset_info(p_object1_id1 => l_fa_object1_id1,
4524: END IF;
4525: ELSIF (l_fa_object1_id1 IS NOT NULL OR
4526: l_fa_object1_id1 <> OKL_API.G_MISS_CHAR) AND
4527: (l_fa_object1_id2 IS NOT NULL OR
4528: l_fa_object1_id2 <> OKL_API.G_MISS_CHAR) THEN
4529: -- Now we have to create txl assets info for existing FA asset
4530: OPEN c_asset_info(p_object1_id1 => l_fa_object1_id1,
4531: p_object1_id2 => l_fa_object1_id2);
4532: FETCH c_asset_info into r_asset_info;
4537: --we have to populate the txl with the existing asset info
4538: OPEN c_new_fa_line_id(p_cle_id => x_cle_id,
4539: p_dnz_chr_id => p_to_chr_id);
4540: IF c_new_fa_line_id%NOTFOUND THEN
4541: OKL_API.set_message(p_app_name => G_APP_NAME,
4542: p_msg_name => G_NO_MATCHING_RECORD,
4543: p_token1 => G_COL_NAME_TOKEN,
4544: p_token1_value => 'New Fa Line Id');
4545: -- TO put error message
4542: p_msg_name => G_NO_MATCHING_RECORD,
4543: p_token1 => G_COL_NAME_TOKEN,
4544: p_token1_value => 'New Fa Line Id');
4545: -- TO put error message
4546: RAISE OKL_API.G_EXCEPTION_ERROR;
4547: END IF;
4548: FETCH c_new_fa_line_id into l_talv_rec.kle_id;
4549: CLOSE c_new_fa_line_id;
4550:
4549: CLOSE c_new_fa_line_id;
4550:
4551: OPEN c_year_manufactured(p_kle_id =>l_talv_rec.kle_id);
4552: IF c_year_manufactured%NOTFOUND THEN
4553: OKL_API.set_message(p_app_name => G_APP_NAME,
4554: p_msg_name => G_NO_MATCHING_RECORD,
4555: p_token1 => G_COL_NAME_TOKEN,
4556: p_token1_value => 'New kle Fa Line Id');
4557: -- TO put error message
4554: p_msg_name => G_NO_MATCHING_RECORD,
4555: p_token1 => G_COL_NAME_TOKEN,
4556: p_token1_value => 'New kle Fa Line Id');
4557: -- TO put error message
4558: RAISE OKL_API.G_EXCEPTION_ERROR;
4559: END IF;
4560: FETCH c_year_manufactured into l_talv_rec.year_manufactured;
4561: CLOSE c_year_manufactured;
4562: l_talv_rec.dnz_khr_id := p_to_chr_id;
4571:
4572: OPEN c_get_deal_type(p_top_line_id => x_cle_id,
4573: p_dnz_chr_id => p_to_chr_id);
4574: IF c_get_deal_type%NOTFOUND THEN
4575: OKL_API.set_message(p_app_name => G_APP_NAME,
4576: p_msg_name => G_NO_MATCHING_RECORD,
4577: p_token1 => G_COL_NAME_TOKEN,
4578: p_token1_value => 'New Top line Id');
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4575: OKL_API.set_message(p_app_name => G_APP_NAME,
4576: p_msg_name => G_NO_MATCHING_RECORD,
4577: p_token1 => G_COL_NAME_TOKEN,
4578: p_token1_value => 'New Top line Id');
4579: RAISE OKL_API.G_EXCEPTION_ERROR;
4580: END IF;
4581: FETCH c_get_deal_type INTO lv_deal_type,
4582: ln_oec;
4583: CLOSE c_get_deal_type;
4614: p_token3 => G_CONV_TYPE_TOKEN,
4615: p_token3_value => x_currency_conversion_type,
4616: p_token4 => G_CONV_DATE_TOKEN,
4617: p_token4_value => to_char(x_currency_conversion_date,'DD-MON-YYYY'));
4618: RAISE OKL_API.G_EXCEPTION_ERROR;
4619: End If;
4620: l_talv_rec.depreciation_cost := l_talv_rec.original_cost;
4621: Else--currencies are same
4622: l_talv_rec.original_cost := r_asset_info.cost;
4627: l_talv_rec.manufacturer_name := r_asset_info.manufacturer_name;
4628: IF upper(r_asset_info.new_used) = 'NEW' THEN
4629: l_talv_rec.used_asset_yn := null;
4630: ELSIF (r_asset_info.new_used IS NULL OR
4631: r_asset_info.new_used = OKL_API.G_MISS_CHAR) THEN
4632: l_talv_rec.used_asset_yn := null;
4633: ELSE
4634: l_talv_rec.used_asset_yn := 'Y';
4635: END IF;
4710: p_token3 => G_CONV_TYPE_TOKEN,
4711: p_token3_value => x_currency_conversion_type,
4712: p_token4 => G_CONV_DATE_TOKEN,
4713: p_token4_value => to_char(x_currency_conversion_date,'DD-MON-YYYY'));
4714: RAISE OKL_API.G_EXCEPTION_ERROR;
4715: End If;
4716: Else
4717: l_talv_rec.salvage_value := r_asset_info.salvage_value;
4718: End If;
4740: p_talv_rec => l_talv_rec,
4741: p_trans_type => p_trans_type,
4742: x_trxv_rec => lx_asset_trxv_rec,
4743: x_talv_rec => lx_txlv_rec);
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4741: p_trans_type => p_trans_type,
4742: x_trxv_rec => lx_asset_trxv_rec,
4743: x_talv_rec => lx_txlv_rec);
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: lv_gen_asset_number := lx_txlv_rec.asset_number;
4742: x_trxv_rec => lx_asset_trxv_rec,
4743: x_talv_rec => lx_txlv_rec);
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: lv_gen_asset_number := lx_txlv_rec.asset_number;
4750:
4743: x_talv_rec => lx_txlv_rec);
4744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4745: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749: lv_gen_asset_number := lx_txlv_rec.asset_number;
4750:
4751: -- We have to create Txd info if the Asset has tax book info we need to load the txd also
4765: -- which is oec/current_units for the line
4766: -- OPEN c_get_deal_type(p_top_line_id => x_cle_id,
4767: -- p_dnz_chr_id => p_to_chr_id);
4768: -- IF c_get_deal_type%NOTFOUND THEN
4769: -- OKL_API.set_message(p_app_name => G_APP_NAME,
4770: -- p_msg_name => G_NO_MATCHING_RECORD,
4771: -- p_token1 => G_COL_NAME_TOKEN,
4772: -- p_token1_value => 'New Top line Id');
4773: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4769: -- OKL_API.set_message(p_app_name => G_APP_NAME,
4770: -- p_msg_name => G_NO_MATCHING_RECORD,
4771: -- p_token1 => G_COL_NAME_TOKEN,
4772: -- p_token1_value => 'New Top line Id');
4773: -- RAISE OKL_API.G_EXCEPTION_ERROR;
4774: -- END IF;
4775: -- FETCH c_get_deal_type INTO lv_deal_type,
4776: -- ln_oec;
4777: -- CLOSE c_get_deal_type;
4808: p_token3 => G_CONV_TYPE_TOKEN,
4809: p_token3_value => x_currency_conversion_type,
4810: p_token4 => G_CONV_DATE_TOKEN,
4811: p_token4_value => to_char(x_currency_conversion_date,'DD-MON-YYYY'));
4812: RAISE OKL_API.G_EXCEPTION_ERROR;
4813: End If;
4814: Else
4815: l_txdv_rec.cost := r_asset_details_info.cost;
4816: End If;
4858: x_msg_count => x_msg_count,
4859: x_msg_data => x_msg_data,
4860: p_txdv_rec => l_txdv_rec,
4861: x_txdv_rec => lx_txdv_rec);
4862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4863: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4865: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4866: END IF;
4859: x_msg_data => x_msg_data,
4860: p_txdv_rec => l_txdv_rec,
4861: x_txdv_rec => lx_txdv_rec);
4862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4863: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4865: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4866: END IF;
4867: ln_txd_line_number := ln_txd_line_number + 1;
4860: p_txdv_rec => l_txdv_rec,
4861: x_txdv_rec => lx_txdv_rec);
4862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4863: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4865: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4866: END IF;
4867: ln_txd_line_number := ln_txd_line_number + 1;
4868: END LOOP;
4861: x_txdv_rec => lx_txdv_rec);
4862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4863: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4865: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4866: END IF;
4867: ln_txd_line_number := ln_txd_line_number + 1;
4868: END LOOP;
4869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4865: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4866: END IF;
4867: ln_txd_line_number := ln_txd_line_number + 1;
4868: END LOOP;
4869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4872: RAISE OKL_API.G_EXCEPTION_ERROR;
4873: END IF;
4866: END IF;
4867: ln_txd_line_number := ln_txd_line_number + 1;
4868: END LOOP;
4869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4872: RAISE OKL_API.G_EXCEPTION_ERROR;
4873: END IF;
4874: -- we have to null out the object1_id1 and object1_id2 in okc_k_items
4867: ln_txd_line_number := ln_txd_line_number + 1;
4868: END LOOP;
4869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4872: RAISE OKL_API.G_EXCEPTION_ERROR;
4873: END IF;
4874: -- we have to null out the object1_id1 and object1_id2 in okc_k_items
4875: -- since the copy lines are for a new contract
4868: END LOOP;
4869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4872: RAISE OKL_API.G_EXCEPTION_ERROR;
4873: END IF;
4874: -- we have to null out the object1_id1 and object1_id2 in okc_k_items
4875: -- since the copy lines are for a new contract
4876: x_return_status := get_rec_cimv(lx_txlv_rec.kle_id,
4875: -- since the copy lines are for a new contract
4876: x_return_status := get_rec_cimv(lx_txlv_rec.kle_id,
4877: p_to_chr_id,
4878: l_cimv_rec);
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: OKL_API.set_message(p_app_name => G_APP_NAME,
4881: p_msg_name => G_NO_MATCHING_RECORD,
4882: p_token1 => G_COL_NAME_TOKEN,
4883: p_token1_value => 'OKC_K_ITEMS_V record');
4876: x_return_status := get_rec_cimv(lx_txlv_rec.kle_id,
4877: p_to_chr_id,
4878: l_cimv_rec);
4879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4880: OKL_API.set_message(p_app_name => G_APP_NAME,
4881: p_msg_name => G_NO_MATCHING_RECORD,
4882: p_token1 => G_COL_NAME_TOKEN,
4883: p_token1_value => 'OKC_K_ITEMS_V record');
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4880: OKL_API.set_message(p_app_name => G_APP_NAME,
4881: p_msg_name => G_NO_MATCHING_RECORD,
4882: p_token1 => G_COL_NAME_TOKEN,
4883: p_token1_value => 'OKC_K_ITEMS_V record');
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4886: OKL_API.set_message(p_app_name => G_APP_NAME,
4887: p_msg_name => G_NO_MATCHING_RECORD,
4888: p_token1 => G_COL_NAME_TOKEN,
4881: p_msg_name => G_NO_MATCHING_RECORD,
4882: p_token1 => G_COL_NAME_TOKEN,
4883: p_token1_value => 'OKC_K_ITEMS_V record');
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4886: OKL_API.set_message(p_app_name => G_APP_NAME,
4887: p_msg_name => G_NO_MATCHING_RECORD,
4888: p_token1 => G_COL_NAME_TOKEN,
4889: p_token1_value => 'OKC_K_ITEMS_V record');
4882: p_token1 => G_COL_NAME_TOKEN,
4883: p_token1_value => 'OKC_K_ITEMS_V record');
4884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4886: OKL_API.set_message(p_app_name => G_APP_NAME,
4887: p_msg_name => G_NO_MATCHING_RECORD,
4888: p_token1 => G_COL_NAME_TOKEN,
4889: p_token1_value => 'OKC_K_ITEMS_V record');
4890: RAISE OKL_API.G_EXCEPTION_ERROR;
4886: OKL_API.set_message(p_app_name => G_APP_NAME,
4887: p_msg_name => G_NO_MATCHING_RECORD,
4888: p_token1 => G_COL_NAME_TOKEN,
4889: p_token1_value => 'OKC_K_ITEMS_V record');
4890: RAISE OKL_API.G_EXCEPTION_ERROR;
4891: END IF;
4892: IF l_cimv_rec.cle_id <> lx_txlv_rec.kle_id THEN
4893: OKL_API.set_message(p_app_name => G_APP_NAME,
4894: p_msg_name => G_NO_MATCHING_RECORD,
4889: p_token1_value => 'OKC_K_ITEMS_V record');
4890: RAISE OKL_API.G_EXCEPTION_ERROR;
4891: END IF;
4892: IF l_cimv_rec.cle_id <> lx_txlv_rec.kle_id THEN
4893: OKL_API.set_message(p_app_name => G_APP_NAME,
4894: p_msg_name => G_NO_MATCHING_RECORD,
4895: p_token1 => G_COL_NAME_TOKEN,
4896: p_token1_value => 'OKC_K_ITEMS_V.CLE_ID');
4897: RAISE OKL_API.G_EXCEPTION_ERROR;
4893: OKL_API.set_message(p_app_name => G_APP_NAME,
4894: p_msg_name => G_NO_MATCHING_RECORD,
4895: p_token1 => G_COL_NAME_TOKEN,
4896: p_token1_value => 'OKC_K_ITEMS_V.CLE_ID');
4897: RAISE OKL_API.G_EXCEPTION_ERROR;
4898: END IF;
4899: IF l_cimv_rec.dnz_chr_id <> p_to_chr_id THEN
4900: OKL_API.set_message(p_app_name => G_APP_NAME,
4901: p_msg_name => G_NO_MATCHING_RECORD,
4896: p_token1_value => 'OKC_K_ITEMS_V.CLE_ID');
4897: RAISE OKL_API.G_EXCEPTION_ERROR;
4898: END IF;
4899: IF l_cimv_rec.dnz_chr_id <> p_to_chr_id THEN
4900: OKL_API.set_message(p_app_name => G_APP_NAME,
4901: p_msg_name => G_NO_MATCHING_RECORD,
4902: p_token1 => G_COL_NAME_TOKEN,
4903: p_token1_value => 'OKC_K_ITEMS_V.DNZ_CHR_ID');
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4900: OKL_API.set_message(p_app_name => G_APP_NAME,
4901: p_msg_name => G_NO_MATCHING_RECORD,
4902: p_token1 => G_COL_NAME_TOKEN,
4903: p_token1_value => 'OKC_K_ITEMS_V.DNZ_CHR_ID');
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: l_cimv_rec.object1_id1 := null;
4907: l_cimv_rec.object1_id2 := null;
4908: -- Updating of Item Record for the above record information
4912: x_msg_count => x_msg_count,
4913: x_msg_data => x_msg_data,
4914: p_cimv_rec => l_cimv_rec,
4915: x_cimv_rec => lx_cimv_rec);
4916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4919: RAISE OKL_API.G_EXCEPTION_ERROR;
4920: END IF;
4913: x_msg_data => x_msg_data,
4914: p_cimv_rec => l_cimv_rec,
4915: x_cimv_rec => lx_cimv_rec);
4916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4919: RAISE OKL_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: -- Calling the api to copy the Supplier Invoice Details info
4914: p_cimv_rec => l_cimv_rec,
4915: x_cimv_rec => lx_cimv_rec);
4916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4919: RAISE OKL_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: -- Calling the api to copy the Supplier Invoice Details info
4922: create_supp_invoice_dtls(p_api_version => p_api_version,
4915: x_cimv_rec => lx_cimv_rec);
4916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4919: RAISE OKL_API.G_EXCEPTION_ERROR;
4920: END IF;
4921: -- Calling the api to copy the Supplier Invoice Details info
4922: create_supp_invoice_dtls(p_api_version => p_api_version,
4923: p_init_msg_list => p_init_msg_list,
4925: x_msg_count => x_msg_count,
4926: x_msg_data => x_msg_data,
4927: p_cle_id => p_from_cle_id,
4928: p_fin_cle_id => x_cle_id);
4929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4930: OKL_API.set_message(p_app_name => G_APP_NAME,
4931: p_msg_name => ' Error in copy Supplier Invoice Details');
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4926: x_msg_data => x_msg_data,
4927: p_cle_id => p_from_cle_id,
4928: p_fin_cle_id => x_cle_id);
4929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4930: OKL_API.set_message(p_app_name => G_APP_NAME,
4931: p_msg_name => ' Error in copy Supplier Invoice Details');
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: OKL_API.set_message(p_app_name => G_APP_NAME,
4928: p_fin_cle_id => x_cle_id);
4929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4930: OKL_API.set_message(p_app_name => G_APP_NAME,
4931: p_msg_name => ' Error in copy Supplier Invoice Details');
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: OKL_API.set_message(p_app_name => G_APP_NAME,
4935: p_msg_name => ' Error in copy Supplier Invoice Details');
4936: RAISE OKL_API.G_EXCEPTION_ERROR;
4929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4930: OKL_API.set_message(p_app_name => G_APP_NAME,
4931: p_msg_name => ' Error in copy Supplier Invoice Details');
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: OKL_API.set_message(p_app_name => G_APP_NAME,
4935: p_msg_name => ' Error in copy Supplier Invoice Details');
4936: RAISE OKL_API.G_EXCEPTION_ERROR;
4937: END IF;
4930: OKL_API.set_message(p_app_name => G_APP_NAME,
4931: p_msg_name => ' Error in copy Supplier Invoice Details');
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: OKL_API.set_message(p_app_name => G_APP_NAME,
4935: p_msg_name => ' Error in copy Supplier Invoice Details');
4936: RAISE OKL_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: ELSE
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: OKL_API.set_message(p_app_name => G_APP_NAME,
4935: p_msg_name => ' Error in copy Supplier Invoice Details');
4936: RAISE OKL_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: ELSE
4939: OKL_API.set_message(p_app_name => G_APP_NAME,
4940: p_msg_name => G_ITEM_RECORD);
4935: p_msg_name => ' Error in copy Supplier Invoice Details');
4936: RAISE OKL_API.G_EXCEPTION_ERROR;
4937: END IF;
4938: ELSE
4939: OKL_API.set_message(p_app_name => G_APP_NAME,
4940: p_msg_name => G_ITEM_RECORD);
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: x_return_status := get_rec_clev(x_cle_id,
4937: END IF;
4938: ELSE
4939: OKL_API.set_message(p_app_name => G_APP_NAME,
4940: p_msg_name => G_ITEM_RECORD);
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: x_return_status := get_rec_clev(x_cle_id,
4944: l_clev_rec);
4945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4941: RAISE OKL_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: x_return_status := get_rec_clev(x_cle_id,
4944: l_clev_rec);
4945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4946: OKL_API.set_message(p_app_name => G_APP_NAME,
4947: p_msg_name => G_FETCHING_INFO,
4948: p_token1 => G_REC_NAME_TOKEN,
4949: p_token1_value => 'OKC_K_LINES_V Record');
4942: END IF;
4943: x_return_status := get_rec_clev(x_cle_id,
4944: l_clev_rec);
4945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4946: OKL_API.set_message(p_app_name => G_APP_NAME,
4947: p_msg_name => G_FETCHING_INFO,
4948: p_token1 => G_REC_NAME_TOKEN,
4949: p_token1_value => 'OKC_K_LINES_V Record');
4950: RAISE G_EXCEPTION_HALT_VALIDATION;
4947: p_msg_name => G_FETCHING_INFO,
4948: p_token1 => G_REC_NAME_TOKEN,
4949: p_token1_value => 'OKC_K_LINES_V Record');
4950: RAISE G_EXCEPTION_HALT_VALIDATION;
4951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4952: OKL_API.set_message(p_app_name => G_APP_NAME,
4953: p_msg_name => G_FETCHING_INFO,
4954: p_token1 => G_REC_NAME_TOKEN,
4955: p_token1_value => 'OKC_K_LINES_V Record');
4948: p_token1 => G_REC_NAME_TOKEN,
4949: p_token1_value => 'OKC_K_LINES_V Record');
4950: RAISE G_EXCEPTION_HALT_VALIDATION;
4951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4952: OKL_API.set_message(p_app_name => G_APP_NAME,
4953: p_msg_name => G_FETCHING_INFO,
4954: p_token1 => G_REC_NAME_TOKEN,
4955: p_token1_value => 'OKC_K_LINES_V Record');
4956: RAISE G_EXCEPTION_HALT_VALIDATION;
4957: END IF;
4958: -- To Get the kle top Line Record
4959: x_return_status := get_rec_klev(x_cle_id,
4960: l_klev_rec);
4961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4962: OKL_API.set_message(p_app_name => G_APP_NAME,
4963: p_msg_name => G_FETCHING_INFO,
4964: p_token1 => G_REC_NAME_TOKEN,
4965: p_token1_value => 'OKL_K_LINES_V Record');
4958: -- To Get the kle top Line Record
4959: x_return_status := get_rec_klev(x_cle_id,
4960: l_klev_rec);
4961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4962: OKL_API.set_message(p_app_name => G_APP_NAME,
4963: p_msg_name => G_FETCHING_INFO,
4964: p_token1 => G_REC_NAME_TOKEN,
4965: p_token1_value => 'OKL_K_LINES_V Record');
4966: RAISE G_EXCEPTION_HALT_VALIDATION;
4963: p_msg_name => G_FETCHING_INFO,
4964: p_token1 => G_REC_NAME_TOKEN,
4965: p_token1_value => 'OKL_K_LINES_V Record');
4966: RAISE G_EXCEPTION_HALT_VALIDATION;
4967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4968: OKL_API.set_message(p_app_name => G_APP_NAME,
4969: p_msg_name => G_FETCHING_INFO,
4970: p_token1 => G_REC_NAME_TOKEN,
4971: p_token1_value => 'OKL_K_LINES_V Record');
4964: p_token1 => G_REC_NAME_TOKEN,
4965: p_token1_value => 'OKL_K_LINES_V Record');
4966: RAISE G_EXCEPTION_HALT_VALIDATION;
4967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4968: OKL_API.set_message(p_app_name => G_APP_NAME,
4969: p_msg_name => G_FETCHING_INFO,
4970: p_token1 => G_REC_NAME_TOKEN,
4971: p_token1_value => 'OKL_K_LINES_V Record');
4972: RAISE G_EXCEPTION_HALT_VALIDATION;
4971: p_token1_value => 'OKL_K_LINES_V Record');
4972: RAISE G_EXCEPTION_HALT_VALIDATION;
4973: END IF;
4974: IF l_klev_rec.id <> l_clev_rec.id THEN
4975: OKL_API.set_message(p_app_name => G_APP_NAME,
4976: p_msg_name => G_LINE_RECORD);
4977: RAISE G_EXCEPTION_HALT_VALIDATION;
4978: END IF;
4979: l_clev_rec.name := lv_gen_asset_number;
4985: p_clev_rec => l_clev_rec,
4986: p_klev_rec => l_klev_rec,
4987: x_clev_rec => lx_clev_rec,
4988: x_klev_rec => lx_klev_rec);
4989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4990: OKL_API.set_message(p_app_name => G_APP_NAME,
4991: p_msg_name => G_UPDATING_FIN_LINE);
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4986: p_klev_rec => l_klev_rec,
4987: x_clev_rec => lx_clev_rec,
4988: x_klev_rec => lx_klev_rec);
4989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4990: OKL_API.set_message(p_app_name => G_APP_NAME,
4991: p_msg_name => G_UPDATING_FIN_LINE);
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: OKL_API.set_message(p_app_name => G_APP_NAME,
4988: x_klev_rec => lx_klev_rec);
4989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4990: OKL_API.set_message(p_app_name => G_APP_NAME,
4991: p_msg_name => G_UPDATING_FIN_LINE);
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: OKL_API.set_message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UPDATING_FIN_LINE);
4996: RAISE OKL_API.G_EXCEPTION_ERROR;
4989: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4990: OKL_API.set_message(p_app_name => G_APP_NAME,
4991: p_msg_name => G_UPDATING_FIN_LINE);
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: OKL_API.set_message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UPDATING_FIN_LINE);
4996: RAISE OKL_API.G_EXCEPTION_ERROR;
4997: END IF;
4990: OKL_API.set_message(p_app_name => G_APP_NAME,
4991: p_msg_name => G_UPDATING_FIN_LINE);
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: OKL_API.set_message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UPDATING_FIN_LINE);
4996: RAISE OKL_API.G_EXCEPTION_ERROR;
4997: END IF;
4998: -- Ib Line creation/copy
4992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4994: OKL_API.set_message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UPDATING_FIN_LINE);
4996: RAISE OKL_API.G_EXCEPTION_ERROR;
4997: END IF;
4998: -- Ib Line creation/copy
4999: FOR r_new_ib_line_id IN c_new_ib_line_id(p_cle_id => x_cle_id,
5000: p_dnz_chr_id => p_to_chr_id) LOOP
4998: -- Ib Line creation/copy
4999: FOR r_new_ib_line_id IN c_new_ib_line_id(p_cle_id => x_cle_id,
5000: p_dnz_chr_id => p_to_chr_id) LOOP
5001: IF c_new_ib_line_id%NOTFOUND THEN
5002: x_return_status := OKL_API.G_RET_STS_ERROR;
5003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5004: END IF;
5005: lt_new_ib_id_tbl(j).id := r_new_ib_line_id.id;
5006: lt_new_ib_id_tbl(j).dnz_chr_id := r_new_ib_line_id.dnz_chr_id;
4999: FOR r_new_ib_line_id IN c_new_ib_line_id(p_cle_id => x_cle_id,
5000: p_dnz_chr_id => p_to_chr_id) LOOP
5001: IF c_new_ib_line_id%NOTFOUND THEN
5002: x_return_status := OKL_API.G_RET_STS_ERROR;
5003: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5004: END IF;
5005: lt_new_ib_id_tbl(j).id := r_new_ib_line_id.id;
5006: lt_new_ib_id_tbl(j).dnz_chr_id := r_new_ib_line_id.dnz_chr_id;
5007: j := j + 1;
5005: lt_new_ib_id_tbl(j).id := r_new_ib_line_id.id;
5006: lt_new_ib_id_tbl(j).dnz_chr_id := r_new_ib_line_id.dnz_chr_id;
5007: j := j + 1;
5008: END LOOP;
5009: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5010: OKL_API.set_message(p_app_name => G_APP_NAME,
5011: p_msg_name => G_NO_MATCHING_RECORD,
5012: p_token1 => G_COL_NAME_TOKEN,
5013: p_token1_value => 'New ib Line Id');
5006: lt_new_ib_id_tbl(j).dnz_chr_id := r_new_ib_line_id.dnz_chr_id;
5007: j := j + 1;
5008: END LOOP;
5009: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5010: OKL_API.set_message(p_app_name => G_APP_NAME,
5011: p_msg_name => G_NO_MATCHING_RECORD,
5012: p_token1 => G_COL_NAME_TOKEN,
5013: p_token1_value => 'New ib Line Id');
5014: RAISE OKL_API.G_EXCEPTION_ERROR;
5010: OKL_API.set_message(p_app_name => G_APP_NAME,
5011: p_msg_name => G_NO_MATCHING_RECORD,
5012: p_token1 => G_COL_NAME_TOKEN,
5013: p_token1_value => 'New ib Line Id');
5014: RAISE OKL_API.G_EXCEPTION_ERROR;
5015: END IF;
5016: IF lt_new_ib_id_tbl.COUNT <> lt_ib_id_tbl.COUNT THEN
5017: OKL_API.set_message(p_app_name => G_APP_NAME,
5018: p_msg_name => G_LINE_RECORD);
5013: p_token1_value => 'New ib Line Id');
5014: RAISE OKL_API.G_EXCEPTION_ERROR;
5015: END IF;
5016: IF lt_new_ib_id_tbl.COUNT <> lt_ib_id_tbl.COUNT THEN
5017: OKL_API.set_message(p_app_name => G_APP_NAME,
5018: p_msg_name => G_LINE_RECORD);
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5021: -- Install Base Item info
5015: END IF;
5016: IF lt_new_ib_id_tbl.COUNT <> lt_ib_id_tbl.COUNT THEN
5017: OKL_API.set_message(p_app_name => G_APP_NAME,
5018: p_msg_name => G_LINE_RECORD);
5019: RAISE OKL_API.G_EXCEPTION_ERROR;
5020: END IF;
5021: -- Install Base Item info
5022: IF lt_ib_id_tbl.COUNT > 0 THEN
5023: i := lt_ib_id_tbl.FIRST;
5023: i := lt_ib_id_tbl.FIRST;
5024: j := lt_new_ib_id_tbl.FIRST;
5025: LOOP
5026: IF (lt_ib_item_tbl(i).object1_id1 IS NULL OR
5027: lt_ib_item_tbl(i).object1_id1 = OKL_API.G_MISS_CHAR) AND
5028: (lt_ib_item_tbl(i).object1_id2 IS NULL OR
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5025: LOOP
5026: IF (lt_ib_item_tbl(i).object1_id1 IS NULL OR
5027: lt_ib_item_tbl(i).object1_id1 = OKL_API.G_MISS_CHAR) AND
5028: (lt_ib_item_tbl(i).object1_id2 IS NULL OR
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5026: IF (lt_ib_item_tbl(i).object1_id1 IS NULL OR
5027: lt_ib_item_tbl(i).object1_id1 = OKL_API.G_MISS_CHAR) AND
5028: (lt_ib_item_tbl(i).object1_id2 IS NULL OR
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5034: END IF;
5027: lt_ib_item_tbl(i).object1_id1 = OKL_API.G_MISS_CHAR) AND
5028: (lt_ib_item_tbl(i).object1_id2 IS NULL OR
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5034: END IF;
5035: -- Check to see if the iti info is there or not
5028: (lt_ib_item_tbl(i).object1_id2 IS NULL OR
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5034: END IF;
5035: -- Check to see if the iti info is there or not
5036: OPEN c_check_iti_rec(lt_ib_id_tbl(i).id);
5029: lt_ib_item_tbl(i).object1_id2 = OKL_API.G_MISS_CHAR) THEN
5030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5031: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5033: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5034: END IF;
5035: -- Check to see if the iti info is there or not
5036: OPEN c_check_iti_rec(lt_ib_id_tbl(i).id);
5037: IF c_check_iti_rec%NOTFOUND THEN
5034: END IF;
5035: -- Check to see if the iti info is there or not
5036: OPEN c_check_iti_rec(lt_ib_id_tbl(i).id);
5037: IF c_check_iti_rec%NOTFOUND THEN
5038: OKL_API.set_message(p_app_name => G_APP_NAME,
5039: p_msg_name => G_NO_MATCHING_RECORD,
5040: p_token1 => G_COL_NAME_TOKEN,
5041: p_token1_value => 'OKL_TXL_ITM_INSTS_V.KLE_ID');
5042: x_return_status := OKL_API.G_RET_STS_ERROR;
5038: OKL_API.set_message(p_app_name => G_APP_NAME,
5039: p_msg_name => G_NO_MATCHING_RECORD,
5040: p_token1 => G_COL_NAME_TOKEN,
5041: p_token1_value => 'OKL_TXL_ITM_INSTS_V.KLE_ID');
5042: x_return_status := OKL_API.G_RET_STS_ERROR;
5043: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5044: END IF;
5045: FETCH c_check_iti_rec INTO ln_iti_rec;
5046: CLOSE c_check_iti_rec;
5039: p_msg_name => G_NO_MATCHING_RECORD,
5040: p_token1 => G_COL_NAME_TOKEN,
5041: p_token1_value => 'OKL_TXL_ITM_INSTS_V.KLE_ID');
5042: x_return_status := OKL_API.G_RET_STS_ERROR;
5043: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5044: END IF;
5045: FETCH c_check_iti_rec INTO ln_iti_rec;
5046: CLOSE c_check_iti_rec;
5047: IF ln_iti_rec = 1 THEN
5058: p_trans_type => p_trans_type,
5059: p_asset_number => lx_txlv_rec.asset_number,
5060: x_trxv_rec => lx_instance_trxv_rec,
5061: x_itiv_rec => lx_itiv_rec);
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5059: p_asset_number => lx_txlv_rec.asset_number,
5060: x_trxv_rec => lx_instance_trxv_rec,
5061: x_itiv_rec => lx_itiv_rec);
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5067: ELSE
5060: x_trxv_rec => lx_instance_trxv_rec,
5061: x_itiv_rec => lx_itiv_rec);
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5067: ELSE
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5061: x_itiv_rec => lx_itiv_rec);
5062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5063: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5067: ELSE
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5069: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5067: ELSE
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5069: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5070: END IF;
5071: ELSIF (lt_ib_item_tbl(i).object1_id1 IS NOT NULL OR
5072: lt_ib_item_tbl(i).object1_id1 <> OKL_API.G_MISS_CHAR) AND
5065: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5066: END IF;
5067: ELSE
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5069: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5070: END IF;
5071: ELSIF (lt_ib_item_tbl(i).object1_id1 IS NOT NULL OR
5072: lt_ib_item_tbl(i).object1_id1 <> OKL_API.G_MISS_CHAR) AND
5073: (lt_ib_item_tbl(i).object1_id2 IS NOT NULL OR
5068: x_return_status := OKL_API.G_RET_STS_ERROR;
5069: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5070: END IF;
5071: ELSIF (lt_ib_item_tbl(i).object1_id1 IS NOT NULL OR
5072: lt_ib_item_tbl(i).object1_id1 <> OKL_API.G_MISS_CHAR) AND
5073: (lt_ib_item_tbl(i).object1_id2 IS NOT NULL OR
5074: lt_ib_item_tbl(i).object1_id2 <> OKL_API.G_MISS_CHAR) THEN
5075: -- to get the item info to populate the inventory item id and inventory org id
5076: -- into the txl itm insts table
5070: END IF;
5071: ELSIF (lt_ib_item_tbl(i).object1_id1 IS NOT NULL OR
5072: lt_ib_item_tbl(i).object1_id1 <> OKL_API.G_MISS_CHAR) AND
5073: (lt_ib_item_tbl(i).object1_id2 IS NOT NULL OR
5074: lt_ib_item_tbl(i).object1_id2 <> OKL_API.G_MISS_CHAR) THEN
5075: -- to get the item info to populate the inventory item id and inventory org id
5076: -- into the txl itm insts table
5077:
5078: OPEN c_new_model_item_info(p_cle_id => x_cle_id,
5077:
5078: OPEN c_new_model_item_info(p_cle_id => x_cle_id,
5079: p_dnz_chr_id => p_to_chr_id);
5080: IF c_new_model_item_info%NOTFOUND THEN
5081: x_return_status := OKL_API.G_RET_STS_ERROR;
5082: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5083: END IF;
5084: FETCH c_new_model_item_info INTO l_itiv_rec.inventory_item_id,
5085: l_itiv_rec.inventory_org_id;
5078: OPEN c_new_model_item_info(p_cle_id => x_cle_id,
5079: p_dnz_chr_id => p_to_chr_id);
5080: IF c_new_model_item_info%NOTFOUND THEN
5081: x_return_status := OKL_API.G_RET_STS_ERROR;
5082: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5083: END IF;
5084: FETCH c_new_model_item_info INTO l_itiv_rec.inventory_item_id,
5085: l_itiv_rec.inventory_org_id;
5086: CLOSE c_new_model_item_info;
5087:
5088: OPEN c_ib_info(lt_ib_item_tbl(i).object1_id1,
5089: lt_ib_item_tbl(i).object1_id2);
5090: IF c_ib_info%NOTFOUND THEN
5091: OKL_API.set_message(p_app_name => G_APP_NAME,
5092: p_msg_name => G_NO_MATCHING_RECORD,
5093: p_token1 => G_COL_NAME_TOKEN,
5094: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
5095: x_return_status := OKL_API.G_RET_STS_ERROR;
5091: OKL_API.set_message(p_app_name => G_APP_NAME,
5092: p_msg_name => G_NO_MATCHING_RECORD,
5093: p_token1 => G_COL_NAME_TOKEN,
5094: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
5095: x_return_status := OKL_API.G_RET_STS_ERROR;
5096: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5097: END IF;
5098: FETCH c_ib_info INTO r_ib_info;
5099: CLOSE c_ib_info;
5092: p_msg_name => G_NO_MATCHING_RECORD,
5093: p_token1 => G_COL_NAME_TOKEN,
5094: p_token1_value => 'OKX_INSTALL_ITEMS_V.OBJECT1_ID1');
5095: x_return_status := OKL_API.G_RET_STS_ERROR;
5096: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5097: END IF;
5098: FETCH c_ib_info INTO r_ib_info;
5099: CLOSE c_ib_info;
5100: l_itiv_rec.object_id2_new := G_ID2;
5120: Null;
5121: End If;
5122: CLOSE l_loc_type_csr;
5123:
5124: If nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) not in ('HZ_PARTY_SITES','HZ_LOCATIONS') then
5125:
5126: --Raise Error
5127: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5128: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5123:
5124: If nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) not in ('HZ_PARTY_SITES','HZ_LOCATIONS') then
5125:
5126: --Raise Error
5127: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5128: p_msg_name => G_INVALID_INSTALL_LOC_TYPE,
5129: p_token1 => G_LOCATION_TYPE_TOKEN,
5130: p_token1_value => l_loc_type_rec.install_location_type_code,
5131: p_token2 => G_LOC_TYPE1_TOKEN,
5131: p_token2 => G_LOC_TYPE1_TOKEN,
5132: p_token2_value => 'HZ_PARTY_SITES',
5133: p_token3 => G_LOC_TYPE2_TOKEN,
5134: p_token3_value => 'HZ_LOCATIONS');
5135: x_return_status := OKL_API.G_RET_STS_ERROR;
5136: RAISE OKL_API.G_EXCEPTION_ERROR;
5137:
5138: Elsif nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' then
5139:
5132: p_token2_value => 'HZ_PARTY_SITES',
5133: p_token3 => G_LOC_TYPE2_TOKEN,
5134: p_token3_value => 'HZ_LOCATIONS');
5135: x_return_status := OKL_API.G_RET_STS_ERROR;
5136: RAISE OKL_API.G_EXCEPTION_ERROR;
5137:
5138: Elsif nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' then
5139:
5140: OPEN c_get_iti_object_id1(r_ib_info.install_location_id);
5134: p_token3_value => 'HZ_LOCATIONS');
5135: x_return_status := OKL_API.G_RET_STS_ERROR;
5136: RAISE OKL_API.G_EXCEPTION_ERROR;
5137:
5138: Elsif nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_PARTY_SITES' then
5139:
5140: OPEN c_get_iti_object_id1(r_ib_info.install_location_id);
5141: FETCH c_get_iti_object_id1 INTO l_itiv_rec.object_id1_new;
5142: IF c_get_iti_object_id1%NOTFOUND THEN
5143: Open l_address_csr(pty_site_id => r_ib_info.install_location_id);
5144: Fetch l_address_csr into l_address;
5145: Close l_address_csr;
5146: --Raise Error : not defined as install_at
5147: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5148: p_msg_name => G_MISSING_USAGE,
5149: p_token1 => G_USAGE_TYPE_TOKEN,
5150: p_token1_value => 'INSTALL_AT',
5151: p_token2 => G_ADDRESS_TOKEN,
5151: p_token2 => G_ADDRESS_TOKEN,
5152: p_token2_value => l_address,
5153: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5154: p_token3_value => r_ib_info.instance_number);
5155: x_return_status := OKL_API.G_RET_STS_ERROR;
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: CLOSE c_get_iti_object_id1;
5159:
5152: p_token2_value => l_address,
5153: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5154: p_token3_value => r_ib_info.instance_number);
5155: x_return_status := OKL_API.G_RET_STS_ERROR;
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: CLOSE c_get_iti_object_id1;
5159:
5160: Elsif nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' then
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: CLOSE c_get_iti_object_id1;
5159:
5160: Elsif nvl(l_loc_type_rec.install_location_type_code,OKL_API.G_MISS_CHAR) = 'HZ_LOCATIONS' then
5161:
5162: OPEN l_site_use_csr(r_ib_info.install_location_id);
5163: FETCH l_site_use_csr INTO l_site_use_rec;
5164: IF l_site_use_csr%NOTFOUND THEN
5165: open l_address_csr2(loc_id => r_ib_info.install_location_id);
5166: fetch l_address_csr2 into l_address;
5167: close l_address_csr2;
5168: --Raise Error : not defined as install_at
5169: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5170: p_msg_name => G_MISSING_USAGE,
5171: p_token1 => G_USAGE_TYPE_TOKEN,
5172: p_token1_value => 'INSTALL_AT',
5173: p_token2 => G_ADDRESS_TOKEN,
5173: p_token2 => G_ADDRESS_TOKEN,
5174: p_token2_value => l_address,
5175: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5176: p_token3_value => r_ib_info.instance_number);
5177: x_return_status := OKL_API.G_RET_STS_ERROR;
5178: RAISE OKL_API.G_EXCEPTION_ERROR;
5179:
5180: END IF;
5181: l_itiv_rec.object_id1_new := l_site_use_rec.party_site_use_id;
5174: p_token2_value => l_address,
5175: p_token3 => G_INSTANCE_NUMBER_TOKEN,
5176: p_token3_value => r_ib_info.instance_number);
5177: x_return_status := OKL_API.G_RET_STS_ERROR;
5178: RAISE OKL_API.G_EXCEPTION_ERROR;
5179:
5180: END IF;
5181: l_itiv_rec.object_id1_new := l_site_use_rec.party_site_use_id;
5182: CLOSE l_site_use_csr;
5193: p_trans_type => p_trans_type,
5194: p_asset_number => lx_txlv_rec.asset_number,
5195: x_trxv_rec => lx_instance_trxv_rec,
5196: x_itiv_rec => lx_itiv_rec);
5197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5200: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5201: END IF;
5194: p_asset_number => lx_txlv_rec.asset_number,
5195: x_trxv_rec => lx_instance_trxv_rec,
5196: x_itiv_rec => lx_itiv_rec);
5197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5200: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5201: END IF;
5202:
5195: x_trxv_rec => lx_instance_trxv_rec,
5196: x_itiv_rec => lx_itiv_rec);
5197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5200: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5201: END IF;
5202:
5203: -- we have to null out the object1_id1 and object1_id2 in okc_k_items
5196: x_itiv_rec => lx_itiv_rec);
5197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5200: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5201: END IF;
5202:
5203: -- we have to null out the object1_id1 and object1_id2 in okc_k_items
5204: -- since the copy lines are for a new contract
5204: -- since the copy lines are for a new contract
5205: x_return_status := get_rec_cimv(lx_itiv_rec.kle_id,
5206: p_to_chr_id,
5207: l_cimv_rec);
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: OKL_API.set_message(p_app_name => G_APP_NAME,
5210: p_msg_name => G_NO_MATCHING_RECORD,
5211: p_token1 => G_COL_NAME_TOKEN,
5212: p_token1_value => 'OKC_K_ITEMS_V record');
5205: x_return_status := get_rec_cimv(lx_itiv_rec.kle_id,
5206: p_to_chr_id,
5207: l_cimv_rec);
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: OKL_API.set_message(p_app_name => G_APP_NAME,
5210: p_msg_name => G_NO_MATCHING_RECORD,
5211: p_token1 => G_COL_NAME_TOKEN,
5212: p_token1_value => 'OKC_K_ITEMS_V record');
5213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5209: OKL_API.set_message(p_app_name => G_APP_NAME,
5210: p_msg_name => G_NO_MATCHING_RECORD,
5211: p_token1 => G_COL_NAME_TOKEN,
5212: p_token1_value => 'OKC_K_ITEMS_V record');
5213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5215: OKL_API.set_message(p_app_name => G_APP_NAME,
5216: p_msg_name => G_NO_MATCHING_RECORD,
5217: p_token1 => G_COL_NAME_TOKEN,
5210: p_msg_name => G_NO_MATCHING_RECORD,
5211: p_token1 => G_COL_NAME_TOKEN,
5212: p_token1_value => 'OKC_K_ITEMS_V record');
5213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5215: OKL_API.set_message(p_app_name => G_APP_NAME,
5216: p_msg_name => G_NO_MATCHING_RECORD,
5217: p_token1 => G_COL_NAME_TOKEN,
5218: p_token1_value => 'OKC_K_ITEMS_V record');
5211: p_token1 => G_COL_NAME_TOKEN,
5212: p_token1_value => 'OKC_K_ITEMS_V record');
5213: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5214: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5215: OKL_API.set_message(p_app_name => G_APP_NAME,
5216: p_msg_name => G_NO_MATCHING_RECORD,
5217: p_token1 => G_COL_NAME_TOKEN,
5218: p_token1_value => 'OKC_K_ITEMS_V record');
5219: RAISE OKL_API.G_EXCEPTION_ERROR;
5215: OKL_API.set_message(p_app_name => G_APP_NAME,
5216: p_msg_name => G_NO_MATCHING_RECORD,
5217: p_token1 => G_COL_NAME_TOKEN,
5218: p_token1_value => 'OKC_K_ITEMS_V record');
5219: RAISE OKL_API.G_EXCEPTION_ERROR;
5220: END IF;
5221: IF l_cimv_rec.cle_id <> lx_itiv_rec.kle_id THEN
5222: OKL_API.set_message(p_app_name => G_APP_NAME,
5223: p_msg_name => G_NO_MATCHING_RECORD,
5218: p_token1_value => 'OKC_K_ITEMS_V record');
5219: RAISE OKL_API.G_EXCEPTION_ERROR;
5220: END IF;
5221: IF l_cimv_rec.cle_id <> lx_itiv_rec.kle_id THEN
5222: OKL_API.set_message(p_app_name => G_APP_NAME,
5223: p_msg_name => G_NO_MATCHING_RECORD,
5224: p_token1 => G_COL_NAME_TOKEN,
5225: p_token1_value => 'KLE_ID');
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5222: OKL_API.set_message(p_app_name => G_APP_NAME,
5223: p_msg_name => G_NO_MATCHING_RECORD,
5224: p_token1 => G_COL_NAME_TOKEN,
5225: p_token1_value => 'KLE_ID');
5226: RAISE OKL_API.G_EXCEPTION_ERROR;
5227: END IF;
5228: l_cimv_rec.object1_id1 := null;
5229: l_cimv_rec.object1_id2 := null;
5230: -- Updating of Item Record for the above record information
5234: x_msg_count => x_msg_count,
5235: x_msg_data => x_msg_data,
5236: p_cimv_rec => l_cimv_rec,
5237: x_cimv_rec => lx_cimv_rec);
5238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5235: x_msg_data => x_msg_data,
5236: p_cimv_rec => l_cimv_rec,
5237: x_cimv_rec => lx_cimv_rec);
5238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: ELSE
5236: p_cimv_rec => l_cimv_rec,
5237: x_cimv_rec => lx_cimv_rec);
5238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: ELSE
5244: OKL_API.set_message(p_app_name => G_APP_NAME,
5237: x_cimv_rec => lx_cimv_rec);
5238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: ELSE
5244: OKL_API.set_message(p_app_name => G_APP_NAME,
5245: p_msg_name => G_ITEM_RECORD);
5240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5241: RAISE OKL_API.G_EXCEPTION_ERROR;
5242: END IF;
5243: ELSE
5244: OKL_API.set_message(p_app_name => G_APP_NAME,
5245: p_msg_name => G_ITEM_RECORD);
5246: x_return_status := OKL_API.G_RET_STS_ERROR;
5247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5248: END IF;
5242: END IF;
5243: ELSE
5244: OKL_API.set_message(p_app_name => G_APP_NAME,
5245: p_msg_name => G_ITEM_RECORD);
5246: x_return_status := OKL_API.G_RET_STS_ERROR;
5247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5248: END IF;
5249: EXIT WHEN (i = lt_ib_id_tbl.LAST);
5250: i := lt_ib_id_tbl.NEXT(i);
5243: ELSE
5244: OKL_API.set_message(p_app_name => G_APP_NAME,
5245: p_msg_name => G_ITEM_RECORD);
5246: x_return_status := OKL_API.G_RET_STS_ERROR;
5247: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5248: END IF;
5249: EXIT WHEN (i = lt_ib_id_tbl.LAST);
5250: i := lt_ib_id_tbl.NEXT(i);
5251: j := lt_new_ib_id_tbl.NEXT(j);
5249: EXIT WHEN (i = lt_ib_id_tbl.LAST);
5250: i := lt_ib_id_tbl.NEXT(i);
5251: j := lt_new_ib_id_tbl.NEXT(j);
5252: END LOOP;
5253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5256: RAISE OKL_API.G_EXCEPTION_ERROR;
5257: END IF;
5250: i := lt_ib_id_tbl.NEXT(i);
5251: j := lt_new_ib_id_tbl.NEXT(j);
5252: END LOOP;
5253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5256: RAISE OKL_API.G_EXCEPTION_ERROR;
5257: END IF;
5258: ELSE
5251: j := lt_new_ib_id_tbl.NEXT(j);
5252: END LOOP;
5253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5256: RAISE OKL_API.G_EXCEPTION_ERROR;
5257: END IF;
5258: ELSE
5259: OKL_API.set_message(p_app_name => G_APP_NAME,
5252: END LOOP;
5253: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5254: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5256: RAISE OKL_API.G_EXCEPTION_ERROR;
5257: END IF;
5258: ELSE
5259: OKL_API.set_message(p_app_name => G_APP_NAME,
5260: p_msg_name => G_LINE_RECORD);
5255: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5256: RAISE OKL_API.G_EXCEPTION_ERROR;
5257: END IF;
5258: ELSE
5259: OKL_API.set_message(p_app_name => G_APP_NAME,
5260: p_msg_name => G_LINE_RECORD);
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263:
5257: END IF;
5258: ELSE
5259: OKL_API.set_message(p_app_name => G_APP_NAME,
5260: p_msg_name => G_LINE_RECORD);
5261: RAISE OKL_API.G_EXCEPTION_ERROR;
5262: END IF;
5263:
5264:
5265: /*-----------------------------------------------------------
5274: --x_msg_data => x_msg_data,
5275: --p_from_cle_id => p_from_cle_id,
5276: --p_to_cle_id => x_cle_id);
5277:
5278: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5279: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5281: --RAISE OKL_API.G_EXCEPTION_ERROR;
5282: --END IF;
5275: --p_from_cle_id => p_from_cle_id,
5276: --p_to_cle_id => x_cle_id);
5277:
5278: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5279: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5281: --RAISE OKL_API.G_EXCEPTION_ERROR;
5282: --END IF;
5283: --End Bug# : Subsidies enhancement
5276: --p_to_cle_id => x_cle_id);
5277:
5278: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5279: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5281: --RAISE OKL_API.G_EXCEPTION_ERROR;
5282: --END IF;
5283: --End Bug# : Subsidies enhancement
5284: --This code put into copy contract
5277:
5278: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5279: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5280: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5281: --RAISE OKL_API.G_EXCEPTION_ERROR;
5282: --END IF;
5283: --End Bug# : Subsidies enhancement
5284: --This code put into copy contract
5285: -------------------------------------------------------------*/
5294: x_msg_data => x_msg_data,
5295: p_cle_id => x_cle_id
5296: );
5297:
5298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5301: RAISE OKL_API.G_EXCEPTION_ERROR;
5302: END IF;
5295: p_cle_id => x_cle_id
5296: );
5297:
5298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5301: RAISE OKL_API.G_EXCEPTION_ERROR;
5302: END IF;
5303: --------------
5296: );
5297:
5298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5301: RAISE OKL_API.G_EXCEPTION_ERROR;
5302: END IF;
5303: --------------
5304: --bug# 2994971
5297:
5298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5301: RAISE OKL_API.G_EXCEPTION_ERROR;
5302: END IF;
5303: --------------
5304: --bug# 2994971
5305: --------------
5345: ---------------------------
5346:
5347:
5348:
5349: OKL_API.END_ACTIVITY (x_msg_count,
5350: x_msg_data );
5351: EXCEPTION
5352: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5353: IF c_year_manufactured%ISOPEN THEN
5348:
5349: OKL_API.END_ACTIVITY (x_msg_count,
5350: x_msg_data );
5351: EXCEPTION
5352: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5353: IF c_year_manufactured%ISOPEN THEN
5354: CLOSE c_year_manufactured;
5355: END IF;
5356: IF c_get_deal_type%ISOPEN THEN
5389: --Bug# 2981308 :
5390: IF l_fab_csr%ISOPEN then
5391: close l_fab_csr;
5392: END IF;
5393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5394: l_api_name,
5395: G_PKG_NAME,
5396: 'OKL_API.G_RET_STS_ERROR',
5397: x_msg_count,
5392: END IF;
5393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5394: l_api_name,
5395: G_PKG_NAME,
5396: 'OKL_API.G_RET_STS_ERROR',
5397: x_msg_count,
5398: x_msg_data,
5399: '_PVT');
5400: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5396: 'OKL_API.G_RET_STS_ERROR',
5397: x_msg_count,
5398: x_msg_data,
5399: '_PVT');
5400: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5401: IF c_year_manufactured%ISOPEN THEN
5402: CLOSE c_year_manufactured;
5403: END IF;
5404: IF c_get_deal_type%ISOPEN THEN
5437: --Bug# 2981308 :
5438: IF l_fab_csr%ISOPEN then
5439: close l_fab_csr;
5440: END IF;
5441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5442: l_api_name,
5443: G_PKG_NAME,
5444: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5445: x_msg_count,
5440: END IF;
5441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5442: l_api_name,
5443: G_PKG_NAME,
5444: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5445: x_msg_count,
5446: x_msg_data,
5447: '_PVT');
5448: WHEN OTHERS THEN
5485: --Bug# 2981308 :
5486: IF l_fab_csr%ISOPEN then
5487: close l_fab_csr;
5488: END IF;
5489: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5490: l_api_name,
5491: G_PKG_NAME,
5492: 'OTHERS',
5493: x_msg_count,
5498: --------------------------- Main Process for Copy of Asset Line -------------------------------
5499: -----------------------------------------------------------------------------------------------
5500: Procedure copy_asset_lines(
5501: p_api_version IN NUMBER,
5502: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5503: x_return_status OUT NOCOPY VARCHAR2,
5504: x_msg_count OUT NOCOPY NUMBER,
5505: x_msg_data OUT NOCOPY VARCHAR2,
5506: p_from_cle_id_tbl IN klev_tbl_type,
5503: x_return_status OUT NOCOPY VARCHAR2,
5504: x_msg_count OUT NOCOPY NUMBER,
5505: x_msg_data OUT NOCOPY VARCHAR2,
5506: p_from_cle_id_tbl IN klev_tbl_type,
5507: p_to_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
5508: p_to_chr_id IN NUMBER,
5509: p_to_template_yn IN VARCHAR2,
5510: p_copy_reference IN VARCHAR2,
5511: p_copy_line_party_yn IN VARCHAR2,
5516: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_COPY_ASSETS';
5517: l_api_version CONSTANT NUMBER := 1;
5518: i NUMBER := 0;
5519: BEGIN
5520: OKL_API.init_msg_list(p_init_msg_list);
5521: -- Make sure PL/SQL table has records in it before passing
5522: IF (p_from_cle_id_tbl.COUNT > 0) THEN
5523: i := p_from_cle_id_tbl.FIRST;
5524: LOOP
5535: p_copy_line_party_yn => p_copy_line_party_yn,
5536: p_renew_ref_yn => p_renew_ref_yn,
5537: p_trans_type => p_trans_type,
5538: x_cle_id => x_cle_id_tbl(i).id);
5539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5540: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5542: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5543: END IF;
5536: p_renew_ref_yn => p_renew_ref_yn,
5537: p_trans_type => p_trans_type,
5538: x_cle_id => x_cle_id_tbl(i).id);
5539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5540: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5542: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5543: END IF;
5544: EXIT WHEN (i = p_from_cle_id_tbl.LAST);
5537: p_trans_type => p_trans_type,
5538: x_cle_id => x_cle_id_tbl(i).id);
5539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5540: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5542: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5543: END IF;
5544: EXIT WHEN (i = p_from_cle_id_tbl.LAST);
5545: i := p_from_cle_id_tbl.NEXT(i);
5538: x_cle_id => x_cle_id_tbl(i).id);
5539: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5540: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5541: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5542: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5543: END IF;
5544: EXIT WHEN (i = p_from_cle_id_tbl.LAST);
5545: i := p_from_cle_id_tbl.NEXT(i);
5546: END LOOP;
5545: i := p_from_cle_id_tbl.NEXT(i);
5546: END LOOP;
5547: END IF;
5548: EXCEPTION
5549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OKL_API.G_RET_STS_ERROR',
5546: END LOOP;
5547: END IF;
5548: EXCEPTION
5549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5549: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5551: l_api_name,
5552: G_PKG_NAME,
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5553: 'OKL_API.G_RET_STS_ERROR',
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5559: l_api_name,
5560: G_PKG_NAME,
5561: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5559: l_api_name,
5560: G_PKG_NAME,
5561: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5562: x_msg_count,
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5559: l_api_name,
5560: G_PKG_NAME,
5561: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5562: x_msg_count,
5563: x_msg_data,
5564: '_PVT');
5565: WHEN OTHERS THEN
5562: x_msg_count,
5563: x_msg_data,
5564: '_PVT');
5565: WHEN OTHERS THEN
5566: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5567: l_api_name,
5568: G_PKG_NAME,
5569: 'OTHERS',
5570: x_msg_count,
5572: '_PVT');
5573: END copy_asset_lines;
5574: -----------------------------------------------------------------------------------------------------
5575: PROCEDURE link_cov_asst(p_api_version IN NUMBER,
5576: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5577: x_return_status OUT NOCOPY VARCHAR2,
5578: x_msg_count OUT NOCOPY NUMBER,
5579: x_msg_data OUT NOCOPY VARCHAR2,
5580: p_orig_lnk_cle_id IN NUMBER,
5643: lx_fin_clev_rec okl_okc_migration_pvt.clev_rec_type;
5644: lx_fin_klev_rec okl_contract_pub.klev_rec_type;
5645:
5646: BEGIN
5647: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5648: l_new_lnk_cim_id := p_new_lnk_cim_id;
5649: IF p_object_code in ('OKL_USAGE','OKX_LEASE') THEN --for covered usage contract and syndicated contract
5650: l_cimv_rec.id := l_new_lnk_cim_id;
5651: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5647: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5648: l_new_lnk_cim_id := p_new_lnk_cim_id;
5649: IF p_object_code in ('OKL_USAGE','OKX_LEASE') THEN --for covered usage contract and syndicated contract
5650: l_cimv_rec.id := l_new_lnk_cim_id;
5651: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5652: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5653: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5654: Else --for covered asset
5655: OPEN l_orig_ast_csr(p_orig_lnk_cle_id => p_orig_lnk_cle_id,
5648: l_new_lnk_cim_id := p_new_lnk_cim_id;
5649: IF p_object_code in ('OKL_USAGE','OKX_LEASE') THEN --for covered usage contract and syndicated contract
5650: l_cimv_rec.id := l_new_lnk_cim_id;
5651: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5652: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5653: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5654: Else --for covered asset
5655: OPEN l_orig_ast_csr(p_orig_lnk_cle_id => p_orig_lnk_cle_id,
5656: p_new_chr_id => p_new_chr_id);
5649: IF p_object_code in ('OKL_USAGE','OKX_LEASE') THEN --for covered usage contract and syndicated contract
5650: l_cimv_rec.id := l_new_lnk_cim_id;
5651: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5652: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5653: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5654: Else --for covered asset
5655: OPEN l_orig_ast_csr(p_orig_lnk_cle_id => p_orig_lnk_cle_id,
5656: p_new_chr_id => p_new_chr_id);
5657: FETCH l_orig_ast_csr into l_new_cle_id;
5657: FETCH l_orig_ast_csr into l_new_cle_id;
5658: IF l_orig_ast_csr%NOTFOUND THEN
5659: --null out the new link
5660: l_cimv_rec.id := l_new_lnk_cim_id;
5661: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5662: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5663: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5664: ELSE
5665: --update the new link with new asset
5658: IF l_orig_ast_csr%NOTFOUND THEN
5659: --null out the new link
5660: l_cimv_rec.id := l_new_lnk_cim_id;
5661: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5662: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5663: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5664: ELSE
5665: --update the new link with new asset
5666: l_cimv_rec.id := l_new_lnk_cim_id;
5659: --null out the new link
5660: l_cimv_rec.id := l_new_lnk_cim_id;
5661: l_cimv_rec.object1_id1 := OKL_API.G_MISS_CHAR;
5662: l_cimv_rec.object1_id2 := OKL_API.G_MISS_CHAR;
5663: l_cimv_rec.jtot_object1_code := OKL_API.G_MISS_CHAR;
5664: ELSE
5665: --update the new link with new asset
5666: l_cimv_rec.id := l_new_lnk_cim_id;
5667: l_cimv_rec.object1_id1 := to_char(l_new_cle_id);
5675: x_msg_count => x_msg_count,
5676: x_msg_data => x_msg_data,
5677: p_cimv_rec => l_cimv_rec,
5678: x_cimv_rec => lx_cimv_rec);
5679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682: RAISE OKL_API.G_EXCEPTION_ERROR;
5683: END IF;
5676: x_msg_data => x_msg_data,
5677: p_cimv_rec => l_cimv_rec,
5678: x_cimv_rec => lx_cimv_rec);
5679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682: RAISE OKL_API.G_EXCEPTION_ERROR;
5683: END IF;
5684:
5677: p_cimv_rec => l_cimv_rec,
5678: x_cimv_rec => lx_cimv_rec);
5679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682: RAISE OKL_API.G_EXCEPTION_ERROR;
5683: END IF;
5684:
5685: --Bug# 3877032
5678: x_cimv_rec => lx_cimv_rec);
5679: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5681: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682: RAISE OKL_API.G_EXCEPTION_ERROR;
5683: END IF;
5684:
5685: --Bug# 3877032
5686: If nvl(lx_cimv_rec.object1_id1,okl_api.g_miss_char) <> okl_api.g_miss_char then
5682: RAISE OKL_API.G_EXCEPTION_ERROR;
5683: END IF;
5684:
5685: --Bug# 3877032
5686: If nvl(lx_cimv_rec.object1_id1,okl_api.g_miss_char) <> okl_api.g_miss_char then
5687: for l_cap_amnt_rec in l_cap_amnt_csr(lx_cimv_rec.id)
5688: Loop
5689: l_fin_klev_rec.id := to_number(l_cap_amnt_rec.object1_id1);
5690: l_fin_clev_rec.dnz_chr_id := l_cap_amnt_rec.dnz_chr_id;
5722: End Loop;
5723: End If;
5724:
5725: EXCEPTION
5726: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5727: IF l_orig_ast_csr%ISOPEN THEN
5728: CLOSE l_orig_ast_csr;
5729: END IF;
5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5726: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5727: IF l_orig_ast_csr%ISOPEN THEN
5728: CLOSE l_orig_ast_csr;
5729: END IF;
5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5731: l_api_name,
5732: G_PKG_NAME,
5733: 'OKL_API.G_RET_STS_ERROR',
5734: x_msg_count,
5729: END IF;
5730: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5731: l_api_name,
5732: G_PKG_NAME,
5733: 'OKL_API.G_RET_STS_ERROR',
5734: x_msg_count,
5735: x_msg_data,
5736: '_PVT');
5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5733: 'OKL_API.G_RET_STS_ERROR',
5734: x_msg_count,
5735: x_msg_data,
5736: '_PVT');
5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5738: IF l_orig_ast_csr%ISOPEN THEN
5739: CLOSE l_orig_ast_csr;
5740: END IF;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5737: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5738: IF l_orig_ast_csr%ISOPEN THEN
5739: CLOSE l_orig_ast_csr;
5740: END IF;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5742: l_api_name,
5743: G_PKG_NAME,
5744: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5745: x_msg_count,
5740: END IF;
5741: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5742: l_api_name,
5743: G_PKG_NAME,
5744: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5745: x_msg_count,
5746: x_msg_data,
5747: '_PVT');
5748: WHEN OTHERS THEN
5748: WHEN OTHERS THEN
5749: IF l_orig_ast_csr%ISOPEN THEN
5750: CLOSE l_orig_ast_csr;
5751: END IF;
5752: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5753: l_api_name,
5754: G_PKG_NAME,
5755: 'OTHERS',
5756: x_msg_count,
5852: x_crjv_rec OKC_K_REL_OBJS_PUB.crjv_rec_type;
5853:
5854: BEGIN
5855:
5856: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5857:
5858: l_lty_code := '?';
5859: OPEN line_style_csr(p_from_line_id);
5860: IF line_style_csr%NOTFOUND THEN
5857:
5858: l_lty_code := '?';
5859: OPEN line_style_csr(p_from_line_id);
5860: IF line_style_csr%NOTFOUND THEN
5861: OKL_API.set_message(p_app_name => G_APP_NAME,
5862: p_msg_name => G_LINE_RECORD);
5863: -- halt validation
5864: RAISE copy_service_failed;
5865: END IF;
5951: END IF;
5952:
5953: EXCEPTION
5954: WHEN copy_service_failed THEN
5955: x_return_status := OKL_API.G_RET_STS_ERROR;
5956: END copy_service_line_link;
5957:
5958: -----------------------------------------------------------------------------------------------
5959: --------------------------- Main Process for Copy of All Lines --------------------------------
5959: --------------------------- Main Process for Copy of All Lines --------------------------------
5960: -----------------------------------------------------------------------------------------------
5961: Procedure copy_all_lines(
5962: p_api_version IN NUMBER,
5963: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5964: x_return_status OUT NOCOPY VARCHAR2,
5965: x_msg_count OUT NOCOPY NUMBER,
5966: x_msg_data OUT NOCOPY VARCHAR2,
5967: p_from_cle_id_tbl IN klev_tbl_type,
5964: x_return_status OUT NOCOPY VARCHAR2,
5965: x_msg_count OUT NOCOPY NUMBER,
5966: x_msg_data OUT NOCOPY VARCHAR2,
5967: p_from_cle_id_tbl IN klev_tbl_type,
5968: p_to_cle_id IN NUMBER DEFAULT OKL_API.G_MISS_NUM,
5969: p_to_chr_id IN NUMBER,
5970: p_to_template_yn IN VARCHAR2,
5971: p_copy_reference IN VARCHAR2,
5972: p_copy_line_party_yn IN VARCHAR2,
6055: l_auth_org_id OKC_K_HEADERS_V.AUTHORING_ORG_ID%TYPE;
6056: l_inv_org_id OKC_K_HEADERS_V.INV_ORGANIZATION_ID%TYPE;
6057:
6058: BEGIN
6059: OKL_API.init_msg_list(p_init_msg_list);
6060: -- Make sure PL/SQL table has records in it before passing
6061:
6062: --
6063: -- Set the context once again
6074: i := p_from_cle_id_tbl.FIRST;
6075: LOOP
6076: OPEN c_get_lty_code(p_from_cle_id_tbl(i).id);
6077: IF c_get_lty_code%NOTFOUND THEN
6078: OKL_API.set_message(p_app_name => G_APP_NAME,
6079: p_msg_name => G_LINE_RECORD);
6080: -- halt validation
6081: RAISE G_EXCEPTION_HALT_VALIDATION;
6082: END IF;
6097: p_copy_line_party_yn => p_copy_line_party_yn,
6098: p_renew_ref_yn => p_renew_ref_yn,
6099: p_trans_type => p_trans_type,
6100: x_cle_id => x_cle_id_tbl(i).id);
6101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6102: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6105: END IF;
6098: p_renew_ref_yn => p_renew_ref_yn,
6099: p_trans_type => p_trans_type,
6100: x_cle_id => x_cle_id_tbl(i).id);
6101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6102: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6105: END IF;
6106: ELSE
6099: p_trans_type => p_trans_type,
6100: x_cle_id => x_cle_id_tbl(i).id);
6101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6102: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6105: END IF;
6106: ELSE
6107: OKL_COPY_CONTRACT_PUB.COPY_CONTRACT_LINES(
6100: x_cle_id => x_cle_id_tbl(i).id);
6101: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6102: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6103: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6104: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6105: END IF;
6106: ELSE
6107: OKL_COPY_CONTRACT_PUB.COPY_CONTRACT_LINES(
6108: p_api_version => p_api_version,
6117: p_copy_reference => p_copy_reference,
6118: p_copy_line_party_yn => p_copy_line_party_yn,
6119: p_renew_ref_yn => p_renew_ref_yn,
6120: x_cle_id => x_cle_id_tbl(i).id);
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: OKL_API.set_message(p_app_name => G_APP_NAME,
6123: p_msg_name => G_COPY_LINE);
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6118: p_copy_line_party_yn => p_copy_line_party_yn,
6119: p_renew_ref_yn => p_renew_ref_yn,
6120: x_cle_id => x_cle_id_tbl(i).id);
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: OKL_API.set_message(p_app_name => G_APP_NAME,
6123: p_msg_name => G_COPY_LINE);
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6126: OKL_API.set_message(p_app_name => G_APP_NAME,
6120: x_cle_id => x_cle_id_tbl(i).id);
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: OKL_API.set_message(p_app_name => G_APP_NAME,
6123: p_msg_name => G_COPY_LINE);
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6126: OKL_API.set_message(p_app_name => G_APP_NAME,
6127: p_msg_name => G_COPY_LINE);
6128: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6122: OKL_API.set_message(p_app_name => G_APP_NAME,
6123: p_msg_name => G_COPY_LINE);
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6126: OKL_API.set_message(p_app_name => G_APP_NAME,
6127: p_msg_name => G_COPY_LINE);
6128: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6129: END IF;
6122: OKL_API.set_message(p_app_name => G_APP_NAME,
6123: p_msg_name => G_COPY_LINE);
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6126: OKL_API.set_message(p_app_name => G_APP_NAME,
6127: p_msg_name => G_COPY_LINE);
6128: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6129: END IF;
6130:
6124: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6125: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6126: OKL_API.set_message(p_app_name => G_APP_NAME,
6127: p_msg_name => G_COPY_LINE);
6128: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6129: END IF;
6130:
6131: --Bug# 2872267:
6132: /*-----------------------------------------------------------------
6142: --p_to_chr_id => p_to_chr_id,
6143: --p_from_line_id => p_from_cle_id_tbl(i).id
6144: --);
6145:
6146: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: --RAISE OKL_API.G_EXCEPTION_ERROR;
6150: --END IF;
6143: --p_from_line_id => p_from_cle_id_tbl(i).id
6144: --);
6145:
6146: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: --RAISE OKL_API.G_EXCEPTION_ERROR;
6150: --END IF;
6151: ---------------------------------------------------------------------*/
6144: --);
6145:
6146: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: --RAISE OKL_API.G_EXCEPTION_ERROR;
6150: --END IF;
6151: ---------------------------------------------------------------------*/
6152:
6145:
6146: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6147: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6149: --RAISE OKL_API.G_EXCEPTION_ERROR;
6150: --END IF;
6151: ---------------------------------------------------------------------*/
6152:
6153: END IF;
6153: END IF;
6154: EXIT WHEN (i = p_from_cle_id_tbl.LAST);
6155: i := p_from_cle_id_tbl.NEXT(i);
6156: END LOOP;
6157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6154: EXIT WHEN (i = p_from_cle_id_tbl.LAST);
6155: i := p_from_cle_id_tbl.NEXT(i);
6156: END LOOP;
6157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6162: END IF;
6155: i := p_from_cle_id_tbl.NEXT(i);
6156: END LOOP;
6157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6162: END IF;
6163: lx_cle_id_tbl := x_cle_id_tbl;
6156: END LOOP;
6157: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6158: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6159: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6160: RAISE OKL_API.G_EXCEPTION_ERROR;
6161: END IF;
6162: END IF;
6163: lx_cle_id_tbl := x_cle_id_tbl;
6164: -- We need to do this only for split contract cases where in we need the other toplines
6178: p_copy_reference => p_copy_reference,
6179: p_copy_line_party_yn => p_copy_line_party_yn,
6180: p_renew_ref_yn => p_renew_ref_yn,
6181: x_cle_id => lsx_cle_id_tbl(j).id);
6182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6183: OKL_API.set_message(p_app_name => G_APP_NAME,
6184: p_msg_name => G_COPY_LINE);
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6179: p_copy_line_party_yn => p_copy_line_party_yn,
6180: p_renew_ref_yn => p_renew_ref_yn,
6181: x_cle_id => lsx_cle_id_tbl(j).id);
6182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6183: OKL_API.set_message(p_app_name => G_APP_NAME,
6184: p_msg_name => G_COPY_LINE);
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6187: OKL_API.set_message(p_app_name => G_APP_NAME,
6181: x_cle_id => lsx_cle_id_tbl(j).id);
6182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6183: OKL_API.set_message(p_app_name => G_APP_NAME,
6184: p_msg_name => G_COPY_LINE);
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6187: OKL_API.set_message(p_app_name => G_APP_NAME,
6188: p_msg_name => G_COPY_LINE);
6189: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6183: OKL_API.set_message(p_app_name => G_APP_NAME,
6184: p_msg_name => G_COPY_LINE);
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6187: OKL_API.set_message(p_app_name => G_APP_NAME,
6188: p_msg_name => G_COPY_LINE);
6189: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6190: END IF;
6183: OKL_API.set_message(p_app_name => G_APP_NAME,
6184: p_msg_name => G_COPY_LINE);
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6187: OKL_API.set_message(p_app_name => G_APP_NAME,
6188: p_msg_name => G_COPY_LINE);
6189: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6190: END IF;
6191: j := j + 1 ;
6185: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6187: OKL_API.set_message(p_app_name => G_APP_NAME,
6188: p_msg_name => G_COPY_LINE);
6189: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6190: END IF;
6191: j := j + 1 ;
6192: END LOOP;
6193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6189: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6190: END IF;
6191: j := j + 1 ;
6192: END LOOP;
6193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6196: RAISE OKL_API.G_EXCEPTION_ERROR;
6197: END IF;
6190: END IF;
6191: j := j + 1 ;
6192: END LOOP;
6193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6196: RAISE OKL_API.G_EXCEPTION_ERROR;
6197: END IF;
6198: END IF;
6191: j := j + 1 ;
6192: END LOOP;
6193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6196: RAISE OKL_API.G_EXCEPTION_ERROR;
6197: END IF;
6198: END IF;
6199: IF lx_cle_id_tbl.COUNT > 0 AND
6192: END LOOP;
6193: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6195: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6196: RAISE OKL_API.G_EXCEPTION_ERROR;
6197: END IF;
6198: END IF;
6199: IF lx_cle_id_tbl.COUNT > 0 AND
6200: lsx_cle_id_tbl.COUNT > 0 THEN
6241: p_orig_lnk_cle_id => l_orig_lnk_cle_id,
6242: p_new_lnk_cim_id => l_new_lnk_cim_id,
6243: p_object_code => l_jtot_object1_code,
6244: p_new_chr_id => l_dnz_chr_id );
6245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6248: RAISE OKL_API.G_EXCEPTION_ERROR;
6249: END IF;
6242: p_new_lnk_cim_id => l_new_lnk_cim_id,
6243: p_object_code => l_jtot_object1_code,
6244: p_new_chr_id => l_dnz_chr_id );
6245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6248: RAISE OKL_API.G_EXCEPTION_ERROR;
6249: END IF;
6250: END IF;
6243: p_object_code => l_jtot_object1_code,
6244: p_new_chr_id => l_dnz_chr_id );
6245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6248: RAISE OKL_API.G_EXCEPTION_ERROR;
6249: END IF;
6250: END IF;
6251: END LOOP;
6244: p_new_chr_id => l_dnz_chr_id );
6245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6248: RAISE OKL_API.G_EXCEPTION_ERROR;
6249: END IF;
6250: END IF;
6251: END LOOP;
6252: CLOSE l_lnk_csr;
6257: -------------------------------------------------------------------------
6258: --end of special processing for fixing linked lines
6259: -------------------------------------------------------------------------
6260: EXCEPTION
6261: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6262: IF c_get_lty_code%ISOPEN THEN
6263: CLOSE c_get_lty_code;
6264: END IF;
6265: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6261: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6262: IF c_get_lty_code%ISOPEN THEN
6263: CLOSE c_get_lty_code;
6264: END IF;
6265: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6266: l_api_name,
6267: G_PKG_NAME,
6268: 'OKL_API.G_RET_STS_ERROR',
6269: x_msg_count,
6264: END IF;
6265: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6266: l_api_name,
6267: G_PKG_NAME,
6268: 'OKL_API.G_RET_STS_ERROR',
6269: x_msg_count,
6270: x_msg_data,
6271: '_PVT');
6272: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6268: 'OKL_API.G_RET_STS_ERROR',
6269: x_msg_count,
6270: x_msg_data,
6271: '_PVT');
6272: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6273: IF c_get_lty_code%ISOPEN THEN
6274: CLOSE c_get_lty_code;
6275: END IF;
6276: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6272: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6273: IF c_get_lty_code%ISOPEN THEN
6274: CLOSE c_get_lty_code;
6275: END IF;
6276: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6277: l_api_name,
6278: G_PKG_NAME,
6279: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6280: x_msg_count,
6275: END IF;
6276: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6277: l_api_name,
6278: G_PKG_NAME,
6279: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6280: x_msg_count,
6281: x_msg_data,
6282: '_PVT');
6283: WHEN OTHERS THEN
6283: WHEN OTHERS THEN
6284: IF c_get_lty_code%ISOPEN THEN
6285: CLOSE c_get_lty_code;
6286: END IF;
6287: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6288: l_api_name,
6289: G_PKG_NAME,
6290: 'OTHERS',
6291: x_msg_count,