[Home] [Help]
36: --PL/SQL Table to check the party has already copied.
37: --If Yes give the new cpl_id ----Begins
38: ----------------------------------------------------------------------------
39: TYPE party_rec_type IS RECORD (
40: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
41: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
42: TYPE party_tbl_type IS TABLE OF party_rec_type
43: INDEX BY BINARY_INTEGER;
44: g_party party_tbl_type; */
37: --If Yes give the new cpl_id ----Begins
38: ----------------------------------------------------------------------------
39: TYPE party_rec_type IS RECORD (
40: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
41: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
42: TYPE party_tbl_type IS TABLE OF party_rec_type
43: INDEX BY BINARY_INTEGER;
44: g_party party_tbl_type; */
45:
49: --Logic to check the event has already copied.
50: --If Yes give the new cnh_id ----Begins
51: ----------------------------------------------------------------------------
52: TYPE events_rec_type IS RECORD (
53: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
54: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
55: TYPE events_tbl_type IS TABLE OF events_rec_type
56: INDEX BY BINARY_INTEGER;
57: g_events events_tbl_type;
50: --If Yes give the new cnh_id ----Begins
51: ----------------------------------------------------------------------------
52: TYPE events_rec_type IS RECORD (
53: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
54: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
55: TYPE events_tbl_type IS TABLE OF events_rec_type
56: INDEX BY BINARY_INTEGER;
57: g_events events_tbl_type;
58: *********************************/
66: -- To get PARENT_OLE_ID for top line, search for ID = header_id
67: -- for sub line, search for ID = Parent Line Id
68: ----------------------------------------------------------------------------
69: TYPE line_op_rec_type IS RECORD (
70: id NUMBER := OKC_API.G_MISS_NUM,
71: ole_id NUMBER := OKC_API.G_MISS_NUM);
72:
73: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
74: INDEX BY BINARY_INTEGER;
67: -- for sub line, search for ID = Parent Line Id
68: ----------------------------------------------------------------------------
69: TYPE line_op_rec_type IS RECORD (
70: id NUMBER := OKC_API.G_MISS_NUM,
71: ole_id NUMBER := OKC_API.G_MISS_NUM);
72:
73: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
74: INDEX BY BINARY_INTEGER;
75:
76: g_op_lines line_op_tbl_type;
77:
78: -------------------------------------------------------
79: TYPE price_adjustments_rec_type IS RECORD (
80: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
81: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
82: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
83: INDEX BY BINARY_INTEGER;
84: g_price_adjustments price_adjustments_tbl_type;
77:
78: -------------------------------------------------------
79: TYPE price_adjustments_rec_type IS RECORD (
80: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
81: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
82: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
83: INDEX BY BINARY_INTEGER;
84: g_price_adjustments price_adjustments_tbl_type;
85: ----------------------------------------------------------------------------
119: l_source_line_duration NUMBER := 0;
120: l_source_line_time VARCHAR2(450) ;
121: l_target_line_duration NUMBER := 0;
122: l_target_line_time VARCHAR2(450) ;
123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
124:
125: BEGIN
126: x_flag := 'T';
127: OPEN l_target_line_csr (p_new_cle_id);
172: END IF;
173: x_return_status := l_return_status;
174: Exception
175: WHEN Others THEN
176: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
177: OKC_API.set_message(
178: G_APP_NAME,
179: G_UNEXPECTED_ERROR,
180: G_SQLCODE_TOKEN,
173: x_return_status := l_return_status;
174: Exception
175: WHEN Others THEN
176: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
177: OKC_API.set_message(
178: G_APP_NAME,
179: G_UNEXPECTED_ERROR,
180: G_SQLCODE_TOKEN,
181: SQLCODE,
396: OKC_DEBUG.ReSet_Indentation;
397: END IF;
398: RETURN(TRUE);
399: Else
400: OKC_API.SET_MESSAGE('OKC', 'OKC_INVALID_TEMPLATE');
401: IF (l_debug = 'Y') THEN
402: OKC_DEBUG.ReSet_Indentation;
403: END IF;
404: RETURN(FALSE);
466: WHEN G_EXCEPTION_HALT_VALIDATION THEN
467: NULL;
468: WHEN OTHERS THEN
469: -- store SQL error message on message stack for caller
470: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
471: -- notify caller of an UNEXPECTED error
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473:
474: END copy_accesses;
525: WHEN G_EXCEPTION_HALT_VALIDATION THEN
526: NULL;
527: WHEN OTHERS THEN
528: -- store SQL error message on message stack for caller
529: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
530: -- notify caller of an UNEXPECTED error
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
532:
533: END copy_processes;
586: WHEN G_EXCEPTION_HALT_VALIDATION THEN
587: NULL;
588: WHEN OTHERS THEN
589: -- store SQL error message on message stack for caller
590: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
591: -- notify caller of an UNEXPECTED error
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593:
594: END copy_grpings;
611: l_pavv_rec pavv_rec_type;
612: x_pavv_rec pavv_rec_type;
613:
614: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
615: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
616:
617: BEGIN
618: x_return_status := l_return_status;
619: l_return_status := get_pavv_rec( p_pav_id => p_pav_id,
646: WHEN G_EXCEPTION_HALT_VALIDATION THEN
647: NULL;
648: WHEN OTHERS THEN
649: -- store SQL error message on message stack for caller
650: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
651: -- notify caller of an UNEXPECTED error
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653:
654: END copy_price_att_values;
673: l_patv_rec patv_rec_type;
674: x_patv_rec patv_rec_type;
675:
676: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
677: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
678:
679: l_new_pat_id NUMBER;
680: BEGIN
681: x_return_status := l_return_status;
715: WHEN G_EXCEPTION_HALT_VALIDATION THEN
716: NULL;
717: WHEN OTHERS THEN
718: -- store SQL error message on message stack for caller
719: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
720: -- notify caller of an UNEXPECTED error
721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722:
723: END copy_price_adjustments;
765: END IF;
766: EXCEPTION
767: WHEN OTHERS THEN
768: -- store SQL error message on message stack for caller
769: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
770: -- notify caller of an UNEXPECTED error
771: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: return(l_return_status);
773:
799:
800: l_return_status := get_gvev_rec(p_gve_id => p_gvev_id,
801: x_gvev_rec => l_gvev_rec);
802:
803: IF p_cle_id IS NOT NULL AND p_cle_id <> OKC_API.G_MISS_NUM THEN
804: --we are copying at line level so chr_id should be null
805: l_gvev_rec.chr_id := NULL;
806: ELSE
807: --we are copying at header level
836: WHEN G_EXCEPTION_HALT_VALIDATION THEN
837: NULL;
838: WHEN OTHERS THEN
839: -- store SQL error message on message stack for caller
840: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
841: -- notify caller of an UNEXPECTED error
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843:
844: END copy_governances;
865:
866: l_party_name VARCHAR2(200);
867: l_party_desc VARCHAR2(2000);
868: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
869: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
870:
871: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
872: SELECT dnz_chr_id
873: FROM okc_k_lines_b
882: x_return_status := l_return_status;
883: l_return_status := get_cplv_rec( p_cpl_id => p_cpl_id,
884: x_cplv_rec => l_cplv_rec);
885:
886: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
887: OPEN c_dnz_chr_id(p_cle_id);
888: FETCH c_dnz_chr_id INTO l_cplv_rec.dnz_chr_id;
889: CLOSE c_dnz_chr_id;
890: ELSE
937: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
938: x_return_status := l_return_status;
939: RAISE G_EXCEPTION_HALT_VALIDATION;
940: ELSE
941: x_return_status := OKC_API.G_RET_STS_WARNING;
942: okc_util.get_name_desc_from_jtfv( p_object_code => x_cplv_rec.jtot_object1_code,
943: p_id1 => x_cplv_rec.object1_id1,
944: p_id2 => x_cplv_rec.object1_id2,
945: x_name => l_party_name,
944: p_id2 => x_cplv_rec.object1_id2,
945: x_name => l_party_name,
946: x_description => l_party_desc);
947:
948: OKC_API.set_message(G_APP_NAME,'OKC_CONTACT_NOT_COPIED','PARTY_NAME',l_party_name);
949: END IF;
950: END IF;
951: END LOOP;
952:
954: WHEN G_EXCEPTION_HALT_VALIDATION THEN
955: NULL;
956: WHEN OTHERS THEN
957: -- store SQL error message on message stack for caller
958: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
959: -- notify caller of an UNEXPECTED error
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961:
962: END copy_party_roles;
985: l_oatv_rec oatv_rec_type;
986: x_oatv_rec oatv_rec_type;
987:
988: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
989: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
990: l_new_cnh_id NUMBER;
991:
992: CURSOR c_cnlv IS
993: SELECT id
1046: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1047: x_return_status := l_return_status;
1048: RAISE G_EXCEPTION_HALT_VALIDATION;
1049: ELSE
1050: x_return_status := OKC_API.G_RET_STS_WARNING;
1051: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1052: FND_LOG.string(FND_LOG.level_statement
1053: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1054: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1058: END IF;
1059:
1060:
1061:
1062: OKC_API.set_message(G_APP_NAME,'OKC_CONDITION_NOT_COPIED','CONDITION',l_cnhv_rec.name);
1063: RAISE G_EXCEPTION_HALT_VALIDATION;
1064: END IF;
1065: END IF;
1066:
1151: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1152: NULL;
1153: WHEN OTHERS THEN
1154: -- store SQL error message on message stack for caller
1155: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1156: -- notify caller of an UNEXPECTED error
1157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1158:
1159: END copy_events;
1215:
1216: return x_from_version;
1217: EXCEPTION
1218: WHEN OTHERS THEN
1219: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1220: return FND_API.G_RET_STS_UNEXP_ERROR;
1221:
1222: END Get_Major_Version;
1223:
1405: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1406: NULL;
1407: WHEN OTHERS THEN
1408: -- store SQL error message on message stack for caller
1409: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1410: -- notify caller of an UNEXPECTED error
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1412: END instantiate_counters_events;
1413:
1431: FROM okc_k_headers_b
1432: WHERE id = p_to_chr_id;
1433:
1434: BEGIN
1435: IF (p_to_chr_id IS NULL OR p_to_chr_id = OKC_API.G_MISS_NUM) THEN
1436: OPEN c_cle;
1437: FETCH c_cle INTO l_parent_start_date,l_parent_end_date;
1438: CLOSE c_cle;
1439: IF (NVL(p_from_start_date,sysdate)
1542: EXCEPTION
1543: when NO_DATA_FOUND then
1544: -- store SQL error message on message stack
1545: x_return_status := FND_API.G_RET_STS_ERROR;
1546: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1547: p_msg_name => 'OKC_NOT_FOUND',
1548: p_token1 => 'VALUE1',
1549: p_token1_value => 'Status Code',
1550: p_token2 => 'VALUE2',
1550: p_token2 => 'VALUE2',
1551: p_token2_value => 'OKC_CLASS_OPERATIONS_V');
1552: when OTHERS then
1553: -- store SQL error message on message stack
1554: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1555: p_msg_name => g_unexpected_error,
1556: p_token1 => g_sqlcode_token,
1557: p_token1_value => sqlcode,
1558: p_token2 => g_sqlerrm_token,
1658: --END IF;
1659:
1660: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
1661: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
1662: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
1663: x_return_status := OKC_API.G_RET_STS_ERROR;
1664: RAISE G_EXCEPTION_HALT_VALIDATION;
1665: END IF;
1666:
1659:
1660: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
1661: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
1662: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
1663: x_return_status := OKC_API.G_RET_STS_ERROR;
1664: RAISE G_EXCEPTION_HALT_VALIDATION;
1665: END IF;
1666:
1667: --moving the initialization of g_application_id up for Bug 3693912
1953: ||' '||SQLERRM
1954: );
1955: END IF;
1956: END IF;
1957: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1958: End;
1959: End if;
1960: End 27-Apr-2006 hkamdar Commented code for copy attachment for bug #5173429.*/
1961: copy_accesses(
2126: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2127: NULL;
2128: WHEN OTHERS THEN
2129: -- store SQL error message on message stack for caller
2130: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2131: -- notify caller of an UNEXPECTED error
2132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2133:
2134: END copy_contract_header;
2184: END IF;
2185: EXCEPTION
2186: WHEN OTHERS THEN
2187: -- store SQL error message on message stack for caller
2188: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2189: -- notify caller of an UNEXPECTED error
2190: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2191: return(l_return_status);
2192:
2227: END IF;
2228: EXCEPTION
2229: WHEN OTHERS THEN
2230: -- store SQL error message on message stack for caller
2231: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2232: -- notify caller of an UNEXPECTED error
2233: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2234: return(l_return_status);
2235:
2369:
2370: l_no_data_found := c_cplv_rec%NOTFOUND;
2371: CLOSE c_cplv_rec;
2372: IF l_no_data_found THEN
2373: l_return_status := OKC_API.G_RET_STS_ERROR;
2374: return(l_return_status);
2375: ELSE
2376: return(l_return_status);
2377: END IF;
2377: END IF;
2378: EXCEPTION
2379: WHEN OTHERS THEN
2380: -- store SQL error message on message stack for caller
2381: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2382: -- notify caller of an UNEXPECTED error
2383: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2384: return(l_return_status);
2385:
2457: END IF;
2458: EXCEPTION
2459: WHEN OTHERS THEN
2460: -- store SQL error message on message stack for caller
2461: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2462: -- notify caller of an UNEXPECTED error
2463: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2464: return(l_return_status);
2465:
2497: END IF;
2498: EXCEPTION
2499: WHEN OTHERS THEN
2500: -- store SQL error message on message stack for caller
2501: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2502: -- notify caller of an UNEXPECTED error
2503: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2504: return(l_return_status);
2505:
2604: END IF;
2605: EXCEPTION
2606: WHEN OTHERS THEN
2607: -- store SQL error message on message stack for caller
2608: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2609: -- notify caller of an UNEXPECTED error
2610: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2611: return(l_return_status);
2612:
2708: END IF;
2709: EXCEPTION
2710: WHEN OTHERS THEN
2711: -- store SQL error message on message stack for caller
2712: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2713: -- notify caller of an UNEXPECTED error
2714: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2715: return(l_return_status);
2716:
2801: END IF;
2802: EXCEPTION
2803: WHEN OTHERS THEN
2804: -- store SQL error message on message stack for caller
2805: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2806: -- notify caller of an UNEXPECTED error
2807: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2808: return(l_return_status);
2809:
3028: END IF;
3029: EXCEPTION
3030: WHEN OTHERS THEN
3031: -- store SQL error message on message stack for caller
3032: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3033: -- notify caller of an UNEXPECTED error
3034: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3035: return(l_return_status);
3036: END get_chrv_rec;
3108: END IF;
3109: EXCEPTION
3110: WHEN OTHERS THEN
3111: -- store SQL error message on message stack for caller
3112: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3113: -- notify caller of an UNEXPECTED error
3114: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3115: return(l_return_status);
3116: END get_ocev_rec;
3154: END IF;
3155: EXCEPTION
3156: WHEN OTHERS THEN
3157: -- store SQL error message on message stack for caller
3158: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3159: -- notify caller of an UNEXPECTED error
3160: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3161: return(l_return_status);
3162:
3591:
3592: l_no_data_found := c_pavv_rec%NOTFOUND;
3593: CLOSE c_pavv_rec;
3594: IF l_no_data_found THEN
3595: l_return_status := OKC_API.G_RET_STS_ERROR;
3596: return(l_return_status);
3597: ELSE
3598: return(l_return_status);
3599: END IF;
3599: END IF;
3600: EXCEPTION
3601: WHEN OTHERS THEN
3602: -- store SQL error message on message stack for caller
3603: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3604: -- notify caller of an UNEXPECTED error
3605: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3606: return(l_return_status);
3607:
3761:
3762: l_no_data_found := c_patv_rec%NOTFOUND;
3763: CLOSE c_patv_rec;
3764: IF l_no_data_found THEN
3765: l_return_status := OKC_API.G_RET_STS_ERROR;
3766: return(l_return_status);
3767: ELSE
3768: return(l_return_status);
3769: END IF;
3769: END IF;
3770: EXCEPTION
3771: WHEN OTHERS THEN
3772: -- store SQL error message on message stack for caller
3773: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3774: -- notify caller of an UNEXPECTED error
3775: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3776: return(l_return_status);
3777:
3952: End If;
3953:
3954: EXCEPTION
3955: WHEN OTHERS THEN
3956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3957: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3958: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3959: FND_LOG.string(FND_LOG.level_unexpected
3960: ,l_module_name||'.GenerateNewLineNumber'
3967: CLOSE allLines;
3968: Elsif partialLines%ISOPEN THEN
3969: CLOSE partialLines;
3970: End If;
3971: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3973:
3974: End GenerateNewLineNumber;
3975:
8940: /*cgopinee Bug fix for 6882512*/
8941: OKC_CTC_PVT.update_contact_stecode(p_chr_id => P_To_Chr_ID,
8942: x_return_status=>l_return_status);
8943:
8944: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8945: RAISE OKC_API.G_EXCEPTION_ERROR;
8946: END IF;
8947:
8948: IF (P_Partial_Copy_YN = 'N') then
8941: OKC_CTC_PVT.update_contact_stecode(p_chr_id => P_To_Chr_ID,
8942: x_return_status=>l_return_status);
8943:
8944: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
8945: RAISE OKC_API.G_EXCEPTION_ERROR;
8946: END IF;
8947:
8948: IF (P_Partial_Copy_YN = 'N') then
8949: EXIT WHEN GetOkcCFull%NOTFOUND;
10944: --be changed.
10945: --==============================================================
10946: Procedure copy_pm_for_SkippedLines(p_api_version IN NUMBER
10947: ,P_To_Chr_ID IN NUMBER
10948: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
10949: ,x_return_status OUT NOCOPY VARCHAR2
10950: ,x_msg_count OUT NOCOPY NUMBER
10951: ,x_msg_data OUT NOCOPY VARCHAR2) IS
10952:
13549: --==============================================================
13550: Procedure copy_bsch_for_SkippedLines(P_To_Chr_ID IN NUMBER
13551: ,P_From_Chr_ID IN NUMBER
13552: ,P_Partial_Copy_YN IN VARCHAR2
13553: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
13554: ,x_return_status OUT NOCOPY VARCHAR2
13555: ,x_msg_count OUT NOCOPY NUMBER
13556: ,x_msg_data OUT NOCOPY VARCHAR2) IS
13557:
14229: Procedure create_bsch_using_PPSetup(P_To_Chr_ID IN NUMBER
14230: ,P_From_Chr_ID IN NUMBER
14231: ,P_Partial_Copy_YN IN VARCHAR2
14232: ,P_Target_Contract_New_YN IN VARCHAR2 DEFAULT 'Y'
14233: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
14234: ,x_return_status OUT NOCOPY VARCHAR2
14235: ,x_msg_count OUT NOCOPY NUMBER
14236: ,x_msg_data OUT NOCOPY VARCHAR2) IS
14237:
14891: --errorout_hk('Condition -II : Check for line effectivity');
14892: chk_line_effectivity(TargetLinesRecTab.LINE_ID(i),l_duration_match, x_return_status);
14893:
14894: IF x_return_status <> 'S' Then
14895: OKC_API.set_message
14896: (G_APP_NAME,
14897: G_UNEXPECTED_ERROR,
14898: G_SQLCODE_TOKEN,
14899: SQLCODE,
15513: End If;
15514:
15515: EXCEPTION
15516: WHEN OTHERS THEN
15517: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15518: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15519: FND_LOG.string(FND_LOG.level_unexpected
15520: ,l_module_name
15521: ,SQLERRM
15560: End If;
15561:
15562: EXCEPTION
15563: WHEN OTHERS THEN
15564: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15565: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15566: FND_LOG.string(FND_LOG.level_unexpected
15567: ,l_module_name
15568: ,SQLERRM
15606: p_include_terminated_lines is used to check whether to copy terminated lines or not
15607: =======================================================================================*/
15608: PROCEDURE copy_lines(
15609: p_api_version IN NUMBER
15610: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
15611: ,x_return_status OUT NOCOPY VARCHAR2
15612: ,x_msg_count OUT NOCOPY NUMBER
15613: ,x_msg_data OUT NOCOPY VARCHAR2
15614: ,P_From_Chr_ID IN NUMBER
18439: END IF;
18440:
18441: EXCEPTION
18442: WHEN OTHERS THEN
18443: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18444: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18445: FND_LOG.string(FND_LOG.level_unexpected
18446: ,l_module_name
18447: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18672: END IF;
18673:
18674: EXCEPTION
18675: WHEN OTHERS THEN
18676: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18677: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18678: FND_LOG.string(FND_LOG.level_unexpected
18679: ,l_module_name
18680: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18754: END IF;
18755:
18756: EXCEPTION
18757: WHEN OTHERS THEN
18758: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18759: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18760: FND_LOG.string(FND_LOG.level_unexpected
18761: ,l_module_name
18762: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
20096: ,',x_return_status='||x_return_status
20097: ||'Error Msg='||SQLERRM
20098: );
20099: END IF;
20100: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
20101: RETURN;
20102: WHEN OTHERS THEN
20103:
20104: IF GetOKCOKSLinesB_Copy%ISOPEN THEN
20141: else they would be copied for both Header and Lines.
20142: ===============================================================================*/
20143: PROCEDURE copy_line_components(
20144: p_api_version IN NUMBER
20145: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
20146: ,x_return_status OUT NOCOPY VARCHAR2
20147: ,x_msg_count OUT NOCOPY NUMBER
20148: ,x_msg_data OUT NOCOPY VARCHAR2
20149: ,P_From_Chr_ID IN NUMBER
21526: ,l_Hdr_End_Date
21527: ,l_Target_Hdr_Price_UOM;
21528: CLOSE get_new_contract_num_and_Dates;
21529: If l_new_contract_number IS NULL then
21530: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21531: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21532: RAISE G_EXCEPTION_HALT_VALIDATION;
21533: End If;
21534:
21548: OPEN get_default_status;
21549: FETCH get_default_status into l_Default_Sts_Code;
21550: CLOSE get_default_status;
21551: If l_Default_Sts_Code IS NULL then
21552: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21553: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21554: RAISE G_EXCEPTION_HALT_VALIDATION;
21555: End If;
21556: End;
21844: ,l_module_name
21845: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21846: End If;
21847:
21848: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21849: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21850: RAISE G_EXCEPTION_HALT_VALIDATION;
21851:
21852: End;
22224: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22225: End If;
22226:
22227:
22228: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22229: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22230: RAISE G_EXCEPTION_HALT_VALIDATION;
22231:
22232: End;
22476: END IF; */
22477:
22478:
22479:
22480: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22481: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22482: RAISE G_EXCEPTION_HALT_VALIDATION;
22483:
22484: End;
22767: End If;
22768: */
22769:
22770:
22771: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22772: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22773: RAISE G_EXCEPTION_HALT_VALIDATION;
22774: End;
22775:
22804: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22805: ||SQLERRM
22806: );
22807: End If;
22808: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22809: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22810: RAISE G_EXCEPTION_HALT_VALIDATION;
22811:
22812:
25626: ELSIF GetOKCOKSLinesB_Temp_exclude%ISOPEN THEN
25627: CLOSE GetOKCOKSLinesB_Temp_exclude;
25628: END IF;
25629:
25630: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
25631: RETURN;
25632:
25633: End copy_line_components;
25634:
26123:
26124: WHEN OTHERS THEN
26125: ROLLBACK to copy_contract;
26126: -- store SQL error message on message stack for caller
26127: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
26128: -- notify caller of an UNEXPECTED error
26129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26131:
26648: --IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26649: x_return_status := l_return_status;
26650: RAISE G_EXCEPTION_HALT_VALIDATION;
26651: -- ELSE
26652: -- IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26653: -- x_return_status := l_return_status;
26654: -- END IF;
26655: -- END IF;
26656: END IF;