[Home] [Help]
34: --PL/SQL Table to check the party has already copied.
35: --If Yes give the new cpl_id ----Begins
36: ----------------------------------------------------------------------------
37: TYPE party_rec_type IS RECORD (
38: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
39: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
40: TYPE party_tbl_type IS TABLE OF party_rec_type
41: INDEX BY BINARY_INTEGER;
42: g_party party_tbl_type;
35: --If Yes give the new cpl_id ----Begins
36: ----------------------------------------------------------------------------
37: TYPE party_rec_type IS RECORD (
38: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
39: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
40: TYPE party_tbl_type IS TABLE OF party_rec_type
41: INDEX BY BINARY_INTEGER;
42: g_party party_tbl_type;
43:
47: --Logic to check the event has already copied.
48: --If Yes give the new cnh_id ----Begins
49: ----------------------------------------------------------------------------
50: TYPE events_rec_type IS RECORD (
51: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
52: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
53: TYPE events_tbl_type IS TABLE OF events_rec_type
54: INDEX BY BINARY_INTEGER;
55: g_events events_tbl_type;
48: --If Yes give the new cnh_id ----Begins
49: ----------------------------------------------------------------------------
50: TYPE events_rec_type IS RECORD (
51: old_cnh_id NUMBER := OKC_API.G_MISS_NUM,
52: new_cnh_id NUMBER := OKC_API.G_MISS_NUM);
53: TYPE events_tbl_type IS TABLE OF events_rec_type
54: INDEX BY BINARY_INTEGER;
55: g_events events_tbl_type;
56: *********************************/
64: -- To get PARENT_OLE_ID for top line, search for ID = header_id
65: -- for sub line, search for ID = Parent Line Id
66: ----------------------------------------------------------------------------
67: TYPE line_op_rec_type IS RECORD (
68: id NUMBER := OKC_API.G_MISS_NUM,
69: ole_id NUMBER := OKC_API.G_MISS_NUM);
70:
71: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
72: INDEX BY BINARY_INTEGER;
65: -- for sub line, search for ID = Parent Line Id
66: ----------------------------------------------------------------------------
67: TYPE line_op_rec_type IS RECORD (
68: id NUMBER := OKC_API.G_MISS_NUM,
69: ole_id NUMBER := OKC_API.G_MISS_NUM);
70:
71: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type
72: INDEX BY BINARY_INTEGER;
73:
74: g_op_lines line_op_tbl_type;
75:
76: -------------------------------------------------------
77: TYPE price_adjustments_rec_type IS RECORD (
78: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
79: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
80: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
81: INDEX BY BINARY_INTEGER;
82: g_price_adjustments price_adjustments_tbl_type;
75:
76: -------------------------------------------------------
77: TYPE price_adjustments_rec_type IS RECORD (
78: old_pat_id NUMBER := OKC_API.G_MISS_NUM,
79: new_pat_id NUMBER := OKC_API.G_MISS_NUM);
80: TYPE price_adjustments_tbl_type IS TABLE OF price_adjustments_rec_type
81: INDEX BY BINARY_INTEGER;
82: g_price_adjustments price_adjustments_tbl_type;
83: ----------------------------------------------------------------------------
117: l_source_line_duration NUMBER := 0;
118: l_source_line_time VARCHAR2(450) ;
119: l_target_line_duration NUMBER := 0;
120: l_target_line_time VARCHAR2(450) ;
121: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
122:
123: BEGIN
124: x_flag := 'T';
125: OPEN l_target_line_csr (p_new_cle_id);
170: END IF;
171: x_return_status := l_return_status;
172: Exception
173: WHEN Others THEN
174: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
175: OKC_API.set_message(
176: G_APP_NAME,
177: G_UNEXPECTED_ERROR,
178: G_SQLCODE_TOKEN,
171: x_return_status := l_return_status;
172: Exception
173: WHEN Others THEN
174: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
175: OKC_API.set_message(
176: G_APP_NAME,
177: G_UNEXPECTED_ERROR,
178: G_SQLCODE_TOKEN,
179: SQLCODE,
394: OKC_DEBUG.ReSet_Indentation;
395: END IF;
396: RETURN(TRUE);
397: Else
398: OKC_API.SET_MESSAGE('OKC', 'OKC_INVALID_TEMPLATE');
399: IF (l_debug = 'Y') THEN
400: OKC_DEBUG.ReSet_Indentation;
401: END IF;
402: RETURN(FALSE);
464: WHEN G_EXCEPTION_HALT_VALIDATION THEN
465: NULL;
466: WHEN OTHERS THEN
467: -- store SQL error message on message stack for caller
468: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
469: -- notify caller of an UNEXPECTED error
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: END copy_accesses;
523: WHEN G_EXCEPTION_HALT_VALIDATION THEN
524: NULL;
525: WHEN OTHERS THEN
526: -- store SQL error message on message stack for caller
527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
528: -- notify caller of an UNEXPECTED error
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530:
531: END copy_processes;
584: WHEN G_EXCEPTION_HALT_VALIDATION THEN
585: NULL;
586: WHEN OTHERS THEN
587: -- store SQL error message on message stack for caller
588: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
589: -- notify caller of an UNEXPECTED error
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591:
592: END copy_grpings;
609: l_pavv_rec pavv_rec_type;
610: x_pavv_rec pavv_rec_type;
611:
612: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
613: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
614:
615: BEGIN
616: x_return_status := l_return_status;
617: l_return_status := get_pavv_rec( p_pav_id => p_pav_id,
644: WHEN G_EXCEPTION_HALT_VALIDATION THEN
645: NULL;
646: WHEN OTHERS THEN
647: -- store SQL error message on message stack for caller
648: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
649: -- notify caller of an UNEXPECTED error
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
651:
652: END copy_price_att_values;
671: l_patv_rec patv_rec_type;
672: x_patv_rec patv_rec_type;
673:
674: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
675: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
676:
677: l_new_pat_id NUMBER;
678: BEGIN
679: x_return_status := l_return_status;
713: WHEN G_EXCEPTION_HALT_VALIDATION THEN
714: NULL;
715: WHEN OTHERS THEN
716: -- store SQL error message on message stack for caller
717: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
718: -- notify caller of an UNEXPECTED error
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720:
721: END copy_price_adjustments;
763: END IF;
764: EXCEPTION
765: WHEN OTHERS THEN
766: -- store SQL error message on message stack for caller
767: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
768: -- notify caller of an UNEXPECTED error
769: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: return(l_return_status);
771:
797:
798: l_return_status := get_gvev_rec(p_gve_id => p_gvev_id,
799: x_gvev_rec => l_gvev_rec);
800:
801: IF p_cle_id IS NOT NULL AND p_cle_id <> OKC_API.G_MISS_NUM THEN
802: --we are copying at line level so chr_id should be null
803: l_gvev_rec.chr_id := NULL;
804: ELSE
805: --we are copying at header level
834: WHEN G_EXCEPTION_HALT_VALIDATION THEN
835: NULL;
836: WHEN OTHERS THEN
837: -- store SQL error message on message stack for caller
838: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
839: -- notify caller of an UNEXPECTED error
840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841:
842: END copy_governances;
863:
864: l_party_name VARCHAR2(200);
865: l_party_desc VARCHAR2(2000);
866: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
867: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
868:
869: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
870: SELECT dnz_chr_id
871: FROM okc_k_lines_b
880: x_return_status := l_return_status;
881: l_return_status := get_cplv_rec( p_cpl_id => p_cpl_id,
882: x_cplv_rec => l_cplv_rec);
883:
884: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
885: OPEN c_dnz_chr_id(p_cle_id);
886: FETCH c_dnz_chr_id INTO l_cplv_rec.dnz_chr_id;
887: CLOSE c_dnz_chr_id;
888: ELSE
935: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
936: x_return_status := l_return_status;
937: RAISE G_EXCEPTION_HALT_VALIDATION;
938: ELSE
939: x_return_status := OKC_API.G_RET_STS_WARNING;
940: okc_util.get_name_desc_from_jtfv( p_object_code => x_cplv_rec.jtot_object1_code,
941: p_id1 => x_cplv_rec.object1_id1,
942: p_id2 => x_cplv_rec.object1_id2,
943: x_name => l_party_name,
942: p_id2 => x_cplv_rec.object1_id2,
943: x_name => l_party_name,
944: x_description => l_party_desc);
945:
946: OKC_API.set_message(G_APP_NAME,'OKC_CONTACT_NOT_COPIED','PARTY_NAME',l_party_name);
947: END IF;
948: END IF;
949: END LOOP;
950:
952: WHEN G_EXCEPTION_HALT_VALIDATION THEN
953: NULL;
954: WHEN OTHERS THEN
955: -- store SQL error message on message stack for caller
956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
957: -- notify caller of an UNEXPECTED error
958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959:
960: END copy_party_roles;
983: l_oatv_rec oatv_rec_type;
984: x_oatv_rec oatv_rec_type;
985:
986: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
987: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
988: l_new_cnh_id NUMBER;
989:
990: CURSOR c_cnlv IS
991: SELECT id
1044: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1045: x_return_status := l_return_status;
1046: RAISE G_EXCEPTION_HALT_VALIDATION;
1047: ELSE
1048: x_return_status := OKC_API.G_RET_STS_WARNING;
1049: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1050: FND_LOG.string(FND_LOG.level_statement
1051: ,'OKS.plsql.OKS_COPY_CONTRACT_PVT.copy_events'
1052: ,'After call to OKC_CONDITIONS_PUB.create_cond_hdrs'
1056: END IF;
1057:
1058:
1059:
1060: OKC_API.set_message(G_APP_NAME,'OKC_CONDITION_NOT_COPIED','CONDITION',l_cnhv_rec.name);
1061: RAISE G_EXCEPTION_HALT_VALIDATION;
1062: END IF;
1063: END IF;
1064:
1149: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1150: NULL;
1151: WHEN OTHERS THEN
1152: -- store SQL error message on message stack for caller
1153: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1154: -- notify caller of an UNEXPECTED error
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156:
1157: END copy_events;
1213:
1214: return x_from_version;
1215: EXCEPTION
1216: WHEN OTHERS THEN
1217: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1218: return FND_API.G_RET_STS_UNEXP_ERROR;
1219:
1220: END Get_Major_Version;
1221:
1403: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1404: NULL;
1405: WHEN OTHERS THEN
1406: -- store SQL error message on message stack for caller
1407: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1408: -- notify caller of an UNEXPECTED error
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1410: END instantiate_counters_events;
1411:
1429: FROM okc_k_headers_b
1430: WHERE id = p_to_chr_id;
1431:
1432: BEGIN
1433: IF (p_to_chr_id IS NULL OR p_to_chr_id = OKC_API.G_MISS_NUM) THEN
1434: OPEN c_cle;
1435: FETCH c_cle INTO l_parent_start_date,l_parent_end_date;
1436: CLOSE c_cle;
1437: IF (NVL(p_from_start_date,sysdate)
1540: EXCEPTION
1541: when NO_DATA_FOUND then
1542: -- store SQL error message on message stack
1543: x_return_status := FND_API.G_RET_STS_ERROR;
1544: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1545: p_msg_name => 'OKC_NOT_FOUND',
1546: p_token1 => 'VALUE1',
1547: p_token1_value => 'Status Code',
1548: p_token2 => 'VALUE2',
1548: p_token2 => 'VALUE2',
1549: p_token2_value => 'OKC_CLASS_OPERATIONS_V');
1550: when OTHERS then
1551: -- store SQL error message on message stack
1552: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1553: p_msg_name => g_unexpected_error,
1554: p_token1 => g_sqlcode_token,
1555: p_token1_value => sqlcode,
1556: p_token2 => g_sqlerrm_token,
1651: --END IF;
1652:
1653: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
1654: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
1655: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
1656: x_return_status := OKC_API.G_RET_STS_ERROR;
1657: RAISE G_EXCEPTION_HALT_VALIDATION;
1658: END IF;
1659:
1652:
1653: IF l_chrv_rec.authoring_org_id <> okc_context.get_okc_org_id OR
1654: l_chrv_rec.inv_organization_id <> okc_context.get_okc_organization_id THEN
1655: OKC_API.SET_MESSAGE('OKC','OKC_INCOMPATIBLE_ORG');
1656: x_return_status := OKC_API.G_RET_STS_ERROR;
1657: RAISE G_EXCEPTION_HALT_VALIDATION;
1658: END IF;
1659:
1660: --moving the initialization of g_application_id up for Bug 3693912
1916: ||' '||SQLERRM
1917: );
1918: END IF;
1919: END IF;
1920: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1921: End;
1922: End if;
1923: End 27-Apr-2006 hkamdar Commented code for copy attachment for bug #5173429.*/
1924: copy_accesses(
2089: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2090: NULL;
2091: WHEN OTHERS THEN
2092: -- store SQL error message on message stack for caller
2093: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2094: -- notify caller of an UNEXPECTED error
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096:
2097: END copy_contract_header;
2147: END IF;
2148: EXCEPTION
2149: WHEN OTHERS THEN
2150: -- store SQL error message on message stack for caller
2151: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2152: -- notify caller of an UNEXPECTED error
2153: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2154: return(l_return_status);
2155:
2190: END IF;
2191: EXCEPTION
2192: WHEN OTHERS THEN
2193: -- store SQL error message on message stack for caller
2194: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2195: -- notify caller of an UNEXPECTED error
2196: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: return(l_return_status);
2198:
2332:
2333: l_no_data_found := c_cplv_rec%NOTFOUND;
2334: CLOSE c_cplv_rec;
2335: IF l_no_data_found THEN
2336: l_return_status := OKC_API.G_RET_STS_ERROR;
2337: return(l_return_status);
2338: ELSE
2339: return(l_return_status);
2340: END IF;
2340: END IF;
2341: EXCEPTION
2342: WHEN OTHERS THEN
2343: -- store SQL error message on message stack for caller
2344: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2345: -- notify caller of an UNEXPECTED error
2346: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2347: return(l_return_status);
2348:
2420: END IF;
2421: EXCEPTION
2422: WHEN OTHERS THEN
2423: -- store SQL error message on message stack for caller
2424: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2425: -- notify caller of an UNEXPECTED error
2426: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2427: return(l_return_status);
2428:
2460: END IF;
2461: EXCEPTION
2462: WHEN OTHERS THEN
2463: -- store SQL error message on message stack for caller
2464: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2465: -- notify caller of an UNEXPECTED error
2466: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2467: return(l_return_status);
2468:
2567: END IF;
2568: EXCEPTION
2569: WHEN OTHERS THEN
2570: -- store SQL error message on message stack for caller
2571: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2572: -- notify caller of an UNEXPECTED error
2573: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: return(l_return_status);
2575:
2671: END IF;
2672: EXCEPTION
2673: WHEN OTHERS THEN
2674: -- store SQL error message on message stack for caller
2675: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2676: -- notify caller of an UNEXPECTED error
2677: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: return(l_return_status);
2679:
2764: END IF;
2765: EXCEPTION
2766: WHEN OTHERS THEN
2767: -- store SQL error message on message stack for caller
2768: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2769: -- notify caller of an UNEXPECTED error
2770: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2771: return(l_return_status);
2772:
2991: END IF;
2992: EXCEPTION
2993: WHEN OTHERS THEN
2994: -- store SQL error message on message stack for caller
2995: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2996: -- notify caller of an UNEXPECTED error
2997: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2998: return(l_return_status);
2999: END get_chrv_rec;
3071: END IF;
3072: EXCEPTION
3073: WHEN OTHERS THEN
3074: -- store SQL error message on message stack for caller
3075: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3076: -- notify caller of an UNEXPECTED error
3077: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3078: return(l_return_status);
3079: END get_ocev_rec;
3117: END IF;
3118: EXCEPTION
3119: WHEN OTHERS THEN
3120: -- store SQL error message on message stack for caller
3121: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3122: -- notify caller of an UNEXPECTED error
3123: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3124: return(l_return_status);
3125:
3554:
3555: l_no_data_found := c_pavv_rec%NOTFOUND;
3556: CLOSE c_pavv_rec;
3557: IF l_no_data_found THEN
3558: l_return_status := OKC_API.G_RET_STS_ERROR;
3559: return(l_return_status);
3560: ELSE
3561: return(l_return_status);
3562: END IF;
3562: END IF;
3563: EXCEPTION
3564: WHEN OTHERS THEN
3565: -- store SQL error message on message stack for caller
3566: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3567: -- notify caller of an UNEXPECTED error
3568: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3569: return(l_return_status);
3570:
3724:
3725: l_no_data_found := c_patv_rec%NOTFOUND;
3726: CLOSE c_patv_rec;
3727: IF l_no_data_found THEN
3728: l_return_status := OKC_API.G_RET_STS_ERROR;
3729: return(l_return_status);
3730: ELSE
3731: return(l_return_status);
3732: END IF;
3732: END IF;
3733: EXCEPTION
3734: WHEN OTHERS THEN
3735: -- store SQL error message on message stack for caller
3736: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3737: -- notify caller of an UNEXPECTED error
3738: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3739: return(l_return_status);
3740:
3915: End If;
3916:
3917: EXCEPTION
3918: WHEN OTHERS THEN
3919: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3920: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3921: IF (FND_LOG.test(FND_LOG.level_unexpected, l_module_name)) THEN
3922: FND_LOG.string(FND_LOG.level_unexpected
3923: ,l_module_name||'.GenerateNewLineNumber'
3930: CLOSE allLines;
3931: Elsif partialLines%ISOPEN THEN
3932: CLOSE partialLines;
3933: End If;
3934: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3936:
3937: End GenerateNewLineNumber;
3938:
10899: --be changed.
10900: --==============================================================
10901: Procedure copy_pm_for_SkippedLines(p_api_version IN NUMBER
10902: ,P_To_Chr_ID IN NUMBER
10903: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
10904: ,x_return_status OUT NOCOPY VARCHAR2
10905: ,x_msg_count OUT NOCOPY NUMBER
10906: ,x_msg_data OUT NOCOPY VARCHAR2) IS
10907:
13504: --==============================================================
13505: Procedure copy_bsch_for_SkippedLines(P_To_Chr_ID IN NUMBER
13506: ,P_From_Chr_ID IN NUMBER
13507: ,P_Partial_Copy_YN IN VARCHAR2
13508: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
13509: ,x_return_status OUT NOCOPY VARCHAR2
13510: ,x_msg_count OUT NOCOPY NUMBER
13511: ,x_msg_data OUT NOCOPY VARCHAR2) IS
13512:
14184: Procedure create_bsch_using_PPSetup(P_To_Chr_ID IN NUMBER
14185: ,P_From_Chr_ID IN NUMBER
14186: ,P_Partial_Copy_YN IN VARCHAR2
14187: ,P_Target_Contract_New_YN IN VARCHAR2 DEFAULT 'Y'
14188: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
14189: ,x_return_status OUT NOCOPY VARCHAR2
14190: ,x_msg_count OUT NOCOPY NUMBER
14191: ,x_msg_data OUT NOCOPY VARCHAR2) IS
14192:
14846: --errorout_hk('Condition -II : Check for line effectivity');
14847: chk_line_effectivity(TargetLinesRecTab.LINE_ID(i),l_duration_match, x_return_status);
14848:
14849: IF x_return_status <> 'S' Then
14850: OKC_API.set_message
14851: (G_APP_NAME,
14852: G_UNEXPECTED_ERROR,
14853: G_SQLCODE_TOKEN,
14854: SQLCODE,
15468: End If;
15469:
15470: EXCEPTION
15471: WHEN OTHERS THEN
15472: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15473: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15474: FND_LOG.string(FND_LOG.level_unexpected
15475: ,l_module_name
15476: ,SQLERRM
15515: End If;
15516:
15517: EXCEPTION
15518: WHEN OTHERS THEN
15519: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
15520: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
15521: FND_LOG.string(FND_LOG.level_unexpected
15522: ,l_module_name
15523: ,SQLERRM
15561: p_include_terminated_lines is used to check whether to copy terminated lines or not
15562: =======================================================================================*/
15563: PROCEDURE copy_lines(
15564: p_api_version IN NUMBER
15565: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
15566: ,x_return_status OUT NOCOPY VARCHAR2
15567: ,x_msg_count OUT NOCOPY NUMBER
15568: ,x_msg_data OUT NOCOPY VARCHAR2
15569: ,P_From_Chr_ID IN NUMBER
18350: END IF;
18351:
18352: EXCEPTION
18353: WHEN OTHERS THEN
18354: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18355: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18356: FND_LOG.string(FND_LOG.level_unexpected
18357: ,l_module_name
18358: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18581: END IF;
18582:
18583: EXCEPTION
18584: WHEN OTHERS THEN
18585: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18586: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18587: FND_LOG.string(FND_LOG.level_unexpected
18588: ,l_module_name
18589: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18663: END IF;
18664:
18665: EXCEPTION
18666: WHEN OTHERS THEN
18667: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
18668: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) then
18669: FND_LOG.string(FND_LOG.level_unexpected
18670: ,l_module_name
18671: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
19949: ,',x_return_status='||x_return_status
19950: ||'Error Msg='||SQLERRM
19951: );
19952: END IF;
19953: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
19954: RETURN;
19955: WHEN OTHERS THEN
19956:
19957: IF GetOKCOKSLinesB_Copy%ISOPEN THEN
19994: else they would be copied for both Header and Lines.
19995: ===============================================================================*/
19996: PROCEDURE copy_line_components(
19997: p_api_version IN NUMBER
19998: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
19999: ,x_return_status OUT NOCOPY VARCHAR2
20000: ,x_msg_count OUT NOCOPY NUMBER
20001: ,x_msg_data OUT NOCOPY VARCHAR2
20002: ,P_From_Chr_ID IN NUMBER
21375: ,l_Hdr_End_Date
21376: ,l_Target_Hdr_Price_UOM;
21377: CLOSE get_new_contract_num_and_Dates;
21378: If l_new_contract_number IS NULL then
21379: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21380: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21381: RAISE G_EXCEPTION_HALT_VALIDATION;
21382: End If;
21383:
21397: OPEN get_default_status;
21398: FETCH get_default_status into l_Default_Sts_Code;
21399: CLOSE get_default_status;
21400: If l_Default_Sts_Code IS NULL then
21401: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21402: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21403: RAISE G_EXCEPTION_HALT_VALIDATION;
21404: End If;
21405: End;
21693: ,l_module_name
21694: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21695: End If;
21696:
21697: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21698: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21699: RAISE G_EXCEPTION_HALT_VALIDATION;
21700:
21701: End;
22073: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : b) :'||SQLERRM);
22074: End If;
22075:
22076:
22077: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22078: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22079: RAISE G_EXCEPTION_HALT_VALIDATION;
22080:
22081: End;
22325: END IF; */
22326:
22327:
22328:
22329: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22330: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22331: RAISE G_EXCEPTION_HALT_VALIDATION;
22332:
22333: End;
22616: End If;
22617: */
22618:
22619:
22620: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22621: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22622: RAISE G_EXCEPTION_HALT_VALIDATION;
22623: End;
22624:
22653: ,'During update of cle_id in OKC_K_LINES_B_TEMP :'
22654: ||SQLERRM
22655: );
22656: End If;
22657: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22658: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22659: RAISE G_EXCEPTION_HALT_VALIDATION;
22660:
22661:
25431: ELSIF GetOKCOKSLinesB_Temp_exclude%ISOPEN THEN
25432: CLOSE GetOKCOKSLinesB_Temp_exclude;
25433: END IF;
25434:
25435: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
25436: RETURN;
25437:
25438: End copy_line_components;
25439:
25924:
25925: WHEN OTHERS THEN
25926: ROLLBACK to copy_contract;
25927: -- store SQL error message on message stack for caller
25928: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
25929: -- notify caller of an UNEXPECTED error
25930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
25932:
26449: --IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26450: x_return_status := l_return_status;
26451: RAISE G_EXCEPTION_HALT_VALIDATION;
26452: -- ELSE
26453: -- IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26454: -- x_return_status := l_return_status;
26455: -- END IF;
26456: -- END IF;
26457: END IF;