[Home] [Help]
428: p_to_chr_id IN NUMBER) IS
429:
430: l_cacv_rec cacv_rec_type;
431: x_cacv_rec cacv_rec_type;
432: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
433:
434: CURSOR c_access IS
435: SELECT id
436: FROM okc_k_accesses_v
451: x_msg_data => x_msg_data,
452: p_cacv_rec => l_cacv_rec,
453: x_cacv_rec => x_cacv_rec);
454:
455: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
456: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
457: x_return_status := l_return_status;
458: RAISE G_EXCEPTION_HALT_VALIDATION;
459: ELSE
452: p_cacv_rec => l_cacv_rec,
453: x_cacv_rec => x_cacv_rec);
454:
455: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
456: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
457: x_return_status := l_return_status;
458: RAISE G_EXCEPTION_HALT_VALIDATION;
459: ELSE
460: x_return_status := l_return_status;
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;
475:
476: ----------------------------------------------------------------------------
486: p_to_chr_id IN NUMBER) IS
487:
488: l_cpsv_rec cpsv_rec_type;
489: x_cpsv_rec cpsv_rec_type;
490: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
491:
492: CURSOR c_process IS
493: SELECT id
494: FROM okc_k_processes_v
510: x_msg_data => x_msg_data,
511: p_cpsv_rec => l_cpsv_rec,
512: x_cpsv_rec => x_cpsv_rec);
513:
514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
515: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
516: x_return_status := l_return_status;
517: RAISE G_EXCEPTION_HALT_VALIDATION;
518: ELSE
511: p_cpsv_rec => l_cpsv_rec,
512: x_cpsv_rec => x_cpsv_rec);
513:
514: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
515: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
516: x_return_status := l_return_status;
517: RAISE G_EXCEPTION_HALT_VALIDATION;
518: ELSE
519: x_return_status := l_return_status;
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;
534:
535: ----------------------------------------------------------------------------
545: p_to_chr_id IN NUMBER) IS
546:
547: l_cgcv_rec cgcv_rec_type;
548: x_cgcv_rec cgcv_rec_type;
549: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
550:
551: CURSOR c_grpings IS
552: SELECT cgcv.id
553: FROM okc_k_grpings_v cgcv,
571: x_msg_data => x_msg_data,
572: p_cgcv_rec => l_cgcv_rec,
573: x_cgcv_rec => x_cgcv_rec);
574:
575: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
576: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
577: x_return_status := l_return_status;
578: RAISE G_EXCEPTION_HALT_VALIDATION;
579: ELSE
572: p_cgcv_rec => l_cgcv_rec,
573: x_cgcv_rec => x_cgcv_rec);
574:
575: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
576: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
577: x_return_status := l_return_status;
578: RAISE G_EXCEPTION_HALT_VALIDATION;
579: ELSE
580: x_return_status := l_return_status;
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;
595:
596: /******
610:
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;
630: x_msg_data => x_msg_data,
631: p_pavv_rec => l_pavv_rec,
632: x_pavv_rec => x_pavv_rec);
633:
634: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
635: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
636: x_return_status := l_return_status;
637: RAISE G_EXCEPTION_HALT_VALIDATION;
638: ELSE
631: p_pavv_rec => l_pavv_rec,
632: x_pavv_rec => x_pavv_rec);
633:
634: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
635: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
636: x_return_status := l_return_status;
637: RAISE G_EXCEPTION_HALT_VALIDATION;
638: ELSE
639: x_return_status := l_return_status;
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;
655:
656: *****************************/
672:
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
698: p_patv_rec => l_patv_rec,
699: x_patv_rec => x_patv_rec);
700:
701:
702: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
703: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
704: x_return_status := l_return_status;
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: ELSE
699: x_patv_rec => x_patv_rec);
700:
701:
702: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
703: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
704: x_return_status := l_return_status;
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: ELSE
707: x_return_status := l_return_status;
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;
724: ************************************/
725: ---------------------------------------------------------------------------------------------------
729: ----------------------------------------------------------------------------
730: FUNCTION get_gvev_rec(p_gve_id IN NUMBER,
731: x_gvev_rec OUT NOCOPY gvev_rec_type)
732: RETURN VARCHAR2 IS
733: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
734: l_no_data_found BOOLEAN := TRUE;
735:
736: CURSOR c_gvev_rec IS
737: SELECT
757:
758: l_no_data_found := c_gvev_rec%NOTFOUND;
759: CLOSE c_gvev_rec;
760: IF l_no_data_found THEN
761: l_return_status := FND_API.G_RET_STS_ERROR;
762: return(l_return_status);
763: ELSE
764: return(l_return_status);
765: END IF;
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:
774: END get_gvev_rec;
775:
790:
791: l_gvev_rec gvev_rec_type;
792: x_gvev_rec gvev_rec_type;
793:
794: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
795:
796: BEGIN
797:
798: x_return_status := l_return_status;
820: x_msg_data => x_msg_data,
821: p_gvev_rec => l_gvev_rec,
822: x_gvev_rec => x_gvev_rec);
823:
824: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := l_return_status;
827: RAISE G_EXCEPTION_HALT_VALIDATION;
828: ELSE
821: p_gvev_rec => l_gvev_rec,
822: x_gvev_rec => x_gvev_rec);
823:
824: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := l_return_status;
827: RAISE G_EXCEPTION_HALT_VALIDATION;
828: ELSE
829: x_return_status := l_return_status;
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;
845:
846: ----------------------------------------------------------------------------
864: x_ctcv_rec ctcv_rec_type;
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
905: x_msg_data => x_msg_data,
906: p_cplv_rec => l_cplv_rec,
907: x_cplv_rec => x_cplv_rec);
908:
909: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
910: x_return_status := l_return_status;
911: RAISE G_EXCEPTION_HALT_VALIDATION;
912: END IF;
913:
932: x_msg_data => x_msg_data,
933: p_ctcv_rec => l_ctcv_rec,
934: x_ctcv_rec => x_ctcv_rec);
935:
936: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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
933: p_ctcv_rec => l_ctcv_rec,
934: x_ctcv_rec => x_ctcv_rec);
935:
936: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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;
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;
963:
964: /****************************
984: x_ocev_rec ocev_rec_type;
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
1041: p_cnhv_rec => l_cnhv_rec,
1042: x_cnhv_rec => x_cnhv_rec);
1043:
1044:
1045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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
1042: x_cnhv_rec => x_cnhv_rec);
1043:
1044:
1045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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;
1081: x_msg_data => x_msg_data,
1082: p_cnlv_rec => l_cnlv_rec,
1083: x_cnlv_rec => x_cnlv_rec);
1084:
1085: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: x_return_status := l_return_status;
1088: RAISE G_EXCEPTION_HALT_VALIDATION;
1089: ELSE
1082: p_cnlv_rec => l_cnlv_rec,
1083: x_cnlv_rec => x_cnlv_rec);
1084:
1085: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1086: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1087: x_return_status := l_return_status;
1088: RAISE G_EXCEPTION_HALT_VALIDATION;
1089: ELSE
1090: x_return_status := l_return_status;
1107: x_msg_data => x_msg_data,
1108: p_ocev_rec => l_ocev_rec,
1109: x_ocev_rec => x_ocev_rec);
1110:
1111: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1112: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1113: x_return_status := l_return_status;
1114: RAISE G_EXCEPTION_HALT_VALIDATION;
1115: ELSE
1108: p_ocev_rec => l_ocev_rec,
1109: x_ocev_rec => x_ocev_rec);
1110:
1111: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1112: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1113: x_return_status := l_return_status;
1114: RAISE G_EXCEPTION_HALT_VALIDATION;
1115: ELSE
1116: x_return_status := l_return_status;
1132: x_msg_data => x_msg_data,
1133: p_oatv_rec => l_oatv_rec,
1134: x_oatv_rec => x_oatv_rec);
1135:
1136: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1137: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1138: x_return_status := l_return_status;
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: ELSE
1133: p_oatv_rec => l_oatv_rec,
1134: x_oatv_rec => x_oatv_rec);
1135:
1136: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1137: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1138: x_return_status := l_return_status;
1139: RAISE G_EXCEPTION_HALT_VALIDATION;
1140: ELSE
1141: x_return_status := l_return_status;
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;
1160: ***************************/
1161: ----------------------------------------------------------------------------
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:
1224: PROCEDURE get_priced_line_rec(p_api_version IN NUMBER
1232: l_lty_code VARCHAR2(90);
1233: l_clev_rec clev_rec_type := p_clev_rec;
1234: l_cimv_rec cimv_rec_type;
1235:
1236: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1237:
1238: CURSOR c_lse(p_id IN NUMBER) IS
1239: SELECT lty_code,
1240: priced_yn
1283: x_msg_count => x_msg_count,
1284: x_msg_data => x_msg_data,
1285: p_cimv_rec => l_cimv_rec);
1286:
1287: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1288: l_clev_rec.price_negotiated := NULL;
1289: l_clev_rec.PRICE_UNIT := NULL;
1290: l_clev_rec.name := NULL;
1291: END IF;
1315:
1316: l_item_id VARCHAR2(40);
1317: l_counter_grp_id NUMBER;
1318: l_found BOOLEAN;
1319: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1320: l_ctr_grp_id_template NUMBER;
1321: l_ctr_grp_id_instance NUMBER;
1322: l_instcnd_inp_rec OKC_INST_CND_PUB.instcnd_inp_rec;
1323: l_ac_rec OKS_COVERAGES_PUB.ac_rec_type;
1371: );
1372: END IF;
1373:
1374:
1375: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1376: x_return_status := l_return_status;
1377: RAISE G_EXCEPTION_HALT_VALIDATION;
1378: END IF;
1379:
1393: x_msg_count => x_msg_count,
1394: x_msg_data => x_msg_data,
1395: p_instcnd_inp_rec => l_instcnd_inp_rec);
1396:
1397: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1398: x_return_status := l_return_status;
1399: RAISE G_EXCEPTION_HALT_VALIDATION;
1400: END IF;
1401: End If;
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:
1414: FUNCTION get_parent_date(p_from_start_date IN DATE,
1415: p_from_end_date IN DATE,
1514: x_msg_data => x_msg_data,
1515: p_oiev_rec => l_oiev_rec,
1516: x_oiev_rec => lx_oiev_rec);
1517:
1518: If (x_return_status = FND_API.G_RET_STS_SUCCESS) Then
1519: l_olev_rec.SELECT_YN := NULL;
1520: l_olev_rec.ACTIVE_YN := 'Y';
1521: l_olev_rec.PROCESS_FLAG := 'P';
1522: l_olev_rec.OIE_ID := lx_oiev_rec.id;
1530: x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data,
1532: p_olev_rec => l_olev_rec,
1533: x_olev_rec => lx_olev_rec);
1534: If (x_return_status = FND_API.G_RET_STS_SUCCESS) Then
1535: -- set g_op_lines table
1536: l_count := g_op_lines.COUNT + 1;
1537: g_op_lines(l_count).id := p_chrv_rec.ID;
1538: g_op_lines(l_count).ole_id := lx_olev_rec.ID;
1541:
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',
1557: p_token1_value => sqlcode,
1558: p_token2 => g_sqlerrm_token,
1559: p_token2_value => sqlerrm);
1560: -- notify caller of an error as UNEXPECTED error
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1562: END Create_Renewal_Header_Link;
1563:
1564: ----------------------------------------------------------------------------
1565: --Proceudre copy_contract_header
1590: l_paa_id NUMBER;
1591: l_sts_code VARCHAR2(30);
1592: l_status_type VARCHAR2(30) := 'ENTERED';
1593: l_orig_system_source_code VARCHAR2(30) := 'OKC_HDR';
1594: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1595: l_from_version FND_ATTACHED_DOCUMENTS.PK2_VALUE%TYPE;
1596:
1597: l_euro_currency varchar2(15) := NULL; /* For Euro Conversion - Bug 2155930 */
1598: l_converted_amount number := NULL; /* For Euro Conversion - Bug 2155930 */
1694: if (g_pricelist is NULL) then
1695: fnd_message.set_name('OKC','OKC_PROFILE_CHECK');
1696: fnd_message.set_token('PROFILE','OKC_EURO_DEFAULT_PRICELIST');
1697: FND_MSG_PUB.add;
1698: x_return_status := FND_API.G_RET_STS_ERROR;
1699: RAISE G_EXCEPTION_HALT_VALIDATION;
1700: end if;
1701:
1702: --/Rule Migration/
1812: X_CONVERSION_RATE => l_conversion_rate,
1813: X_EURO_RATE => l_euro_rate ,
1814: X_return_status => l_return_status);
1815:
1816: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1817: l_chrv_rec.conversion_rate := l_conversion_rate;
1818: ELSE
1819: l_chrv_rec.conversion_rate := NULL;
1820: END IF;
1846: );
1847: END IF;
1848: END IF;
1849:
1850: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1851: x_return_status := l_return_status;
1852: RAISE G_EXCEPTION_HALT_VALIDATION;
1853: END IF;
1854:
1864: x_msg_count => x_msg_count,
1865: x_msg_data => x_msg_data,
1866: p_chrv_rec => l_chrv_rec,
1867: p_to_chr_id => x_to_chr_id);
1868: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1869: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1870: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1871: FND_LOG.string(FND_LOG.level_statement
1872: ,l_module_name||'.create_renewal_header_link'
1883: /* 27-Apr-2006 hkamdar Commented code for copy attachment for bug #5173429.
1884: -- copy associated attachments
1885: l_from_version := Get_Major_Version(p_from_chr_id);
1886:
1887: IF (l_from_version = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1889: RAISE G_EXCEPTION_HALT_VALIDATION;
1890: END IF;
1891:
1884: -- copy associated attachments
1885: l_from_version := Get_Major_Version(p_from_chr_id);
1886:
1887: IF (l_from_version = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1889: RAISE G_EXCEPTION_HALT_VALIDATION;
1890: END IF;
1891:
1892: -- set attachement session variables
1966: x_msg_data => x_msg_data,
1967: p_from_chr_id => p_from_chr_id,
1968: p_to_chr_id => x_chrv_rec.id);
1969:
1970: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1971: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1972: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1973: FND_LOG.string(FND_LOG.level_statement
1974: ,l_module_name||'.copy_accesses'
1976: ||' '||SQLERRM
1977: );
1978: END IF;
1979: END IF;
1980: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1981: x_return_status := l_return_status;
1982: RAISE G_EXCEPTION_HALT_VALIDATION;
1983: ELSE
1984: x_return_status := l_return_status;
1993: x_msg_data => x_msg_data,
1994: p_from_chr_id => p_from_chr_id,
1995: p_to_chr_id => x_chrv_rec.id);
1996:
1997: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1998: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1999: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2000: FND_LOG.string(FND_LOG.level_statement
2001: ,l_module_name||'.copy_processes'
2003: ||' '||SQLERRM
2004: );
2005: END IF;
2006: END IF;
2007: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2008: x_return_status := l_return_status;
2009: RAISE G_EXCEPTION_HALT_VALIDATION;
2010: ELSE
2011: x_return_status := l_return_status;
2020: x_msg_data => x_msg_data,
2021: p_from_chr_id => p_from_chr_id,
2022: p_to_chr_id => x_chrv_rec.id);
2023:
2024: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2025: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2026: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
2027: FND_LOG.string(FND_LOG.level_statement
2028: ,l_module_name||'.copy_grpings'
2030: ||' '||SQLERRM
2031: );
2032: END IF;
2033: END IF;
2034: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2035: x_return_status := l_return_status;
2036: RAISE G_EXCEPTION_HALT_VALIDATION;
2037: ELSE
2038: x_return_status := l_return_status;
2060: p_chr_id => x_chrv_rec.id,
2061: x_gvev_id => l_gvev_id);
2062:
2063:
2064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2066: x_return_status := l_return_status;
2067: RAISE G_EXCEPTION_HALT_VALIDATION;
2068: ELSE
2061: x_gvev_id => l_gvev_id);
2062:
2063:
2064: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2065: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2066: x_return_status := l_return_status;
2067: RAISE G_EXCEPTION_HALT_VALIDATION;
2068: ELSE
2069: x_return_status := l_return_status;
2085: p_cle_id => NULL,
2086: p_chr_id => x_chrv_rec.id,
2087: x_pav_id => l_pav_id);
2088:
2089: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2090: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: x_return_status := l_return_status;
2092: RAISE G_EXCEPTION_HALT_VALIDATION;
2093: ELSE
2086: p_chr_id => x_chrv_rec.id,
2087: x_pav_id => l_pav_id);
2088:
2089: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2090: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2091: x_return_status := l_return_status;
2092: RAISE G_EXCEPTION_HALT_VALIDATION;
2093: ELSE
2094: x_return_status := l_return_status;
2107: p_cle_id => NULL,
2108: p_chr_id => x_chrv_rec.id,
2109: x_pat_id => l_pat_id);
2110:
2111: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2112: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2113: x_return_status := l_return_status;
2114: RAISE G_EXCEPTION_HALT_VALIDATION;
2115: ELSE
2108: p_chr_id => x_chrv_rec.id,
2109: x_pat_id => l_pat_id);
2110:
2111: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2112: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2113: x_return_status := l_return_status;
2114: RAISE G_EXCEPTION_HALT_VALIDATION;
2115: ELSE
2116: x_return_status := l_return_status;
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;
2135:
2136:
2138: --Function to populate the contract items record to be copied.
2139: ----------------------------------------------------------------------------
2140: FUNCTION get_cimv_rec(p_cim_id IN NUMBER,
2141: x_cimv_rec OUT NOCOPY cimv_rec_type) RETURN VARCHAR2 IS
2142: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2143: l_no_data_found BOOLEAN := TRUE;
2144:
2145: CURSOR c_cimv_rec IS
2146: SELECT ID,
2176:
2177: l_no_data_found := c_cimv_rec%NOTFOUND;
2178: CLOSE c_cimv_rec;
2179: IF l_no_data_found THEN
2180: l_return_status := FND_API.G_RET_STS_ERROR;
2181: return(l_return_status);
2182: ELSE
2183: return(l_return_status);
2184: END IF;
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:
2193: END get_cimv_rec;
2194: ----------------------------------------------------------------------------
2195: --Function to populate the contract access record to be copied.
2196: ----------------------------------------------------------------------------
2197: FUNCTION get_cacv_rec(p_cac_id IN NUMBER,
2198: x_cacv_rec OUT NOCOPY cacv_rec_type) RETURN VARCHAR2 IS
2199: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2200: l_no_data_found BOOLEAN := TRUE;
2201:
2202: CURSOR c_cacv_rec IS
2203: SELECT ID,
2219:
2220: l_no_data_found := c_cacv_rec%NOTFOUND;
2221: CLOSE c_cacv_rec;
2222: IF l_no_data_found THEN
2223: l_return_status := FND_API.G_RET_STS_ERROR;
2224: return(l_return_status);
2225: ELSE
2226: return(l_return_status);
2227: END IF;
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:
2236: END get_cacv_rec;
2237:
2239: --Function to populate the contract party roles record to be copied.
2240: ----------------------------------------------------------------------------
2241: FUNCTION get_cplv_rec(p_cpl_id IN NUMBER,
2242: x_cplv_rec OUT NOCOPY cplv_rec_type) RETURN VARCHAR2 IS
2243: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2244: l_no_data_found BOOLEAN := TRUE;
2245:
2246: CURSOR c_cplv_rec IS
2247: SELECT ID,
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:
2386: END get_cplv_rec;
2387:
2390: --Function to populate the contract process record to be copied.
2391: ----------------------------------------------------------------------------
2392: FUNCTION get_cpsv_rec(p_cps_id IN NUMBER,
2393: x_cpsv_rec OUT NOCOPY cpsv_rec_type) RETURN VARCHAR2 IS
2394: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2395: l_no_data_found BOOLEAN := TRUE;
2396:
2397: CURSOR c_cpsv_rec IS
2398: SELECT ID,
2449:
2450: l_no_data_found := c_cpsv_rec%NOTFOUND;
2451: CLOSE c_cpsv_rec;
2452: IF l_no_data_found THEN
2453: l_return_status := FND_API.G_RET_STS_ERROR;
2454: return(l_return_status);
2455: ELSE
2456: return(l_return_status);
2457: END IF;
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:
2466: END get_cpsv_rec;
2467: ----------------------------------------------------------------------------
2468: --Function to populate the contract group record to be copied.
2469: ----------------------------------------------------------------------------
2470: FUNCTION get_cgcv_rec(p_cgc_id IN NUMBER,
2471: x_cgcv_rec OUT NOCOPY cgcv_rec_type) RETURN VARCHAR2 IS
2472: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2473: l_no_data_found BOOLEAN := TRUE;
2474:
2475: CURSOR c_cgcv_rec IS
2476: SELECT ID,
2489: x_cgcv_rec.INCLUDED_CGP_ID;
2490: l_no_data_found := c_cgcv_rec%NOTFOUND;
2491: CLOSE c_cgcv_rec;
2492: IF l_no_data_found THEN
2493: l_return_status := FND_API.G_RET_STS_ERROR;
2494: return(l_return_status);
2495: ELSE
2496: return(l_return_status);
2497: END IF;
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:
2506: END get_cgcv_rec;
2507: ----------------------------------------------------------------------------
2508: --Function to populate the condition headers record to be copied.
2509: ----------------------------------------------------------------------------
2510: FUNCTION get_cnhv_rec(p_cnh_id IN NUMBER,
2511: x_cnhv_rec OUT NOCOPY cnhv_rec_type) RETURN VARCHAR2 IS
2512: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2513: l_no_data_found BOOLEAN := TRUE;
2514:
2515: CURSOR c_cnhv_rec IS
2516: SELECT ID,
2596:
2597: l_no_data_found := c_cnhv_rec%NOTFOUND;
2598: CLOSE c_cnhv_rec;
2599: IF l_no_data_found THEN
2600: l_return_status := FND_API.G_RET_STS_ERROR;
2601: return(l_return_status);
2602: ELSE
2603: return(l_return_status);
2604: END IF;
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:
2613: END get_cnhv_rec;
2614: ----------------------------------------------------------------------------
2615: --Function to populate the condition lines record to be copied.
2616: ----------------------------------------------------------------------------
2617: FUNCTION get_cnlv_rec(p_cnl_id IN NUMBER,
2618: x_cnlv_rec OUT NOCOPY cnlv_rec_type) RETURN VARCHAR2 IS
2619: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2620: l_no_data_found BOOLEAN := TRUE;
2621:
2622: CURSOR c_cnlv_rec IS
2623: SELECT ID,
2700:
2701: l_no_data_found := c_cnlv_rec%NOTFOUND;
2702: CLOSE c_cnlv_rec;
2703: IF l_no_data_found THEN
2704: l_return_status := FND_API.G_RET_STS_ERROR;
2705: return(l_return_status);
2706: ELSE
2707: return(l_return_status);
2708: END IF;
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:
2717: END get_cnlv_rec;
2718: ----------------------------------------------------------------------------
2721:
2722: FUNCTION get_ctcv_rec(p_ctc_id IN NUMBER,
2723: x_ctcv_rec OUT NOCOPY ctcv_rec_type) RETURN VARCHAR2 IS
2724:
2725: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2726: l_no_data_found BOOLEAN := TRUE;
2727:
2728: CURSOR c_ctcv_rec IS
2729: SELECT ID,
2793: x_ctcv_rec.PRIMARY_YN;
2794: l_no_data_found := c_ctcv_rec%NOTFOUND;
2795: CLOSE c_ctcv_rec;
2796: IF l_no_data_found THEN
2797: l_return_status := FND_API.G_RET_STS_ERROR;
2798: return(l_return_status);
2799: ELSE
2800: return(l_return_status);
2801: END IF;
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:
2810: END get_ctcv_rec;
2811:
2814: ----------------------------------------------------------------------------
2815: FUNCTION get_chrv_rec(p_chr_id IN NUMBER,
2816: x_chrv_rec OUT NOCOPY chrv_rec_type)
2817: RETURN VARCHAR2 IS
2818: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2819: l_no_data_found BOOLEAN := TRUE;
2820:
2821: -- Bug 1922121: Compilation errors on ktst115. Problem occurred
2822: -- because application_id is defined as varchar2(240) in
3020:
3021: l_no_data_found := c_chrv_rec%NOTFOUND;
3022: CLOSE c_chrv_rec;
3023: IF l_no_data_found THEN
3024: l_return_status := FND_API.G_RET_STS_ERROR;
3025: return(l_return_status);
3026: ELSE
3027: return(l_return_status);
3028: END IF;
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;
3037:
3038: ----------------------------------------------------------------------------
3041:
3042: FUNCTION get_ocev_rec(p_oce_id IN NUMBER,
3043: x_ocev_rec OUT NOCOPY ocev_rec_type) RETURN VARCHAR2 IS
3044:
3045: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3046: l_no_data_found BOOLEAN := TRUE;
3047:
3048: CURSOR c_ocev_rec IS
3049: SELECT ID,
3100:
3101: l_no_data_found := c_ocev_rec%NOTFOUND;
3102: CLOSE c_ocev_rec;
3103: IF l_no_data_found THEN
3104: l_return_status := FND_API.G_RET_STS_ERROR;
3105: return(l_return_status);
3106: ELSE
3107: return(l_return_status);
3108: END IF;
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;
3117:
3118: ----------------------------------------------------------------------------
3120: ----------------------------------------------------------------------------
3121: FUNCTION get_oatv_rec(p_oat_id IN NUMBER,
3122: x_oatv_rec OUT NOCOPY oatv_rec_type) RETURN VARCHAR2 IS
3123:
3124: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3125: l_no_data_found BOOLEAN := TRUE;
3126:
3127: CURSOR c_oatv_rec IS
3128: SELECT ID,
3146:
3147: l_no_data_found := c_oatv_rec%NOTFOUND;
3148: CLOSE c_oatv_rec;
3149: IF l_no_data_found THEN
3150: l_return_status := FND_API.G_RET_STS_ERROR;
3151: return(l_return_status);
3152: ELSE
3153: return(l_return_status);
3154: END IF;
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:
3163: END get_oatv_rec;
3164:
3166: -----------------------------------------------------------------------------------------------
3167: FUNCTION get_pavv_rec(p_pav_id IN NUMBER,
3168: x_pavv_rec OUT NOCOPY pavv_rec_type) RETURN VARCHAR2 IS
3169:
3170: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3171: l_no_data_found BOOLEAN := TRUE;
3172:
3173: CURSOR c_pavv_rec IS
3174: SELECT ID,
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:
3608: END get_pavv_rec;
3609:
3612: ----------------------------------------------------------------------------
3613: FUNCTION get_patv_rec(p_pat_id IN NUMBER,
3614: x_patv_rec OUT NOCOPY patv_rec_type) RETURN VARCHAR2 IS
3615:
3616: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3617: l_no_data_found BOOLEAN := TRUE;
3618:
3619: CURSOR c_patv_rec IS
3620: SELECT
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:
3778: END get_patv_rec;
3779: --------------------------------------------------------------------------------------------------
3833: l_topline_num_initialized VARCHAR2(1) := 'N';
3834: l_topline_no NUMBER := -99;
3835:
3836: BEGIN
3837: x_return_status := FND_API.G_RET_STS_SUCCESS;
3838:
3839: If (P_Partial_Copy_YN = 'N') then
3840: OPEN allLines;
3841: Elsif (P_Partial_Copy_YN = 'Y') then
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:
3976: --===================================================
3988:
3989: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_K_LINES_TL';
3990: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
3991:
3992: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3993:
3994: CURSOR GetOkcLinesTLFull(P_To_Chr_ID IN NUMBER) IS
3995: SELECT
3996: OkcTL.ID AS OkcTL_OldID
4156: CLOSE GetOkcLinesTLFull;
4157: ELSIF GetOkcLinesTLPartial%ISOPEN THEN
4158: CLOSE GetOkcLinesTLPartial;
4159: END IF;
4160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4161: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
4162: RAISE;
4163:
4164: End copy_okc_k_lines_tl;
4197:
4198: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PRICE_ATT_VALUES';
4199: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
4200:
4201: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4202: CURSOR GetOkcPAVFull IS
4203: SELECT
4204: okcPAV.ID AS okcPAV_OldID
4205: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS okcPAV_NewID
6964: CLOSE GetOkcPAVPartial_H;
6965: ELSIF GetOkcPAVPartial_L%ISOPEN THEN
6966: CLOSE GetOkcPAVPartial_L;
6967: END IF;
6968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
6970: RAISE;
6971:
6972: End copy_okc_price_att_values;
7005:
7006: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PRICE_ADJUSTMENTS';
7007: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
7008:
7009: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7010:
7011: CURSOR GetOkcPAFull IS
7012: SELECT
7013: okcPA.ID AS okcPA_OldID
7986: CLOSE GetOkcPAPartial_HNL;
7987: ELSIF GetOkcPAPartial_L%ISOPEN THEN
7988: CLOSE GetOkcPAPartial_L;
7989: END IF;
7990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7991: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
7992: RAISE;
7993:
7994: End copy_okc_price_adjustments;
8010:
8011: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PARTY_ROLES_B';
8012: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8013:
8014: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8015: CURSOR GetOkcPRBFull IS
8016: SELECT
8017: okcPRB.ID AS okcPRB_OldID
8018: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS okcPRB_NewID
8397: CLOSE GetOkcPRBFull;
8398: ELSIF GetOkcPRBPartial%ISOPEN THEN
8399: CLOSE GetOkcPRBPartial;
8400: END IF;
8401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8402: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8403: RAISE;
8404:
8405: End copy_okc_k_party_roles_b;
8424: l_cplv_rec cplv_rec_type;
8425: x_cplv_rec cplv_rec_type;
8426: l_vendor_role_id NUMBER;
8427: l_create_vendor_yn VARCHAR2(1) := 'N';
8428: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8429:
8430: CURSOR getSourceHdrVendorPartyRoleID IS
8431: SELECT id
8432: FROM okc_k_party_roles_b
8488: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8489: ||'Cpl ID:'||x_cplv_rec.id
8490: );
8491: END IF;
8492: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
8493: FND_MSG_PUB.add_exc_msg(G_PKG_NAME
8494: , l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role'
8495: , substr(x_msg_data,1,240));
8496: RETURN;
8535:
8536: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PARTY_ROLES_TL';
8537: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8538:
8539: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8540: CURSOR GetOkcPRTLFull IS
8541: SELECT
8542: okcPRTL.ID AS okcPRTL_OldID
8543: ,okcPRB.ID AS okcPRTL_NewID
8667: CLOSE GetOkcPRTLFull;
8668: Elsif GetOkcPRTLPartial%ISOPEN then
8669: CLOSE GetOkcPRTLPartial;
8670: End If;
8671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8672: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8673: RAISE;
8674:
8675:
8691:
8692: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_CONTACTS';
8693: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8694:
8695: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8696: CURSOR GetOkcCFull IS
8697: SELECT
8698: okcC.ID AS okcC_OldID
8699: , To_number(rawtohex(sys_guid()), HexFormatStr) AS okcC_NewID
8964: CLOSE GetOkcCFull;
8965: Elsif (GetOkcCPartial%ISOPEN) then
8966: CLOSE GetOkcCPartial;
8967: End If;
8968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8970: RAISE;
8971:
8972:
8984:
8985: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_OPERATION_LINES';
8986: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8987:
8988: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8989:
8990: CURSOR GetOIEID IS
8991: SELECT ID
8992: from OKC_OPERATION_INSTANCES
9140: End If;
9141: If GetOIEID%ISOPEN then
9142: CLOSE GetOIEID;
9143: End If;
9144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9145: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9146: RAISE;
9147:
9148: End copy_okc_operation_lines;
9163:
9164: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_K_LINES_TL';
9165: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9166:
9167: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9168: CURSOR GetOksTLFull IS
9169: SELECT
9170: oksTL.ID AS oksTL_OldID
9171: , oksB.ID AS oksTL_NewID
9295: Elsif (GetOksTLPartial%ISOPEN) then
9296: CLOSE GetOksTLPartial;
9297: End If;
9298:
9299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9300: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9301: RAISE;
9302:
9303:
9317: ,x_return_status OUT NOCOPY VARCHAR2) IS
9318:
9319: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_REV_DISTRIBUTIONS';
9320: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9321: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9322:
9323: CURSOR GetOksRDFull IS
9324: SELECT
9325: oksRD.ID AS OksRD_OldID
9442: CLOSE GetOksRDFull;
9443: Elsif (GetOksRDPartial%ISOPEN) then
9444: CLOSE GetOksRDPartial;
9445: End If;
9446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9447: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9448: RAISE;
9449:
9450: End copy_oks_rev_distributions;
9464:
9465: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_QUALIFIERS';
9466: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9467:
9468: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9469:
9470: CURSOR GetOksQFull IS
9471: SELECT
9472: oksQ.QUALIFIER_ID AS oksQ_OldQualifierID
9787: CLOSE GetOksQFull;
9788: Elsif (GetOksQPartial%ISOPEN) then
9789: CLOSE GetOksQPartial;
9790: End IF;
9791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9792: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9793: RAISE;
9794:
9795:
9811: ,x_return_status OUT NOCOPY VARCHAR2) IS
9812:
9813: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_COVERAGE_TIMEZONES';
9814: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9815: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9816:
9817: CURSOR GetOksCTZFull IS
9818: SELECT
9819: oksCTZ.ID AS oksCTZ_OldID --*
9975: CLOSE GetOksCTZFull;
9976: Elsif (GetOksCTZPartial%ISOPEN) then
9977: CLOSE GetOksCTZPartial;
9978: End IF;
9979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9980: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9981: RAISE;
9982:
9983: End copy_oks_coverage_timezones;
9999: ,x_return_status OUT NOCOPY VARCHAR2) IS
10000:
10001: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_COVERAGE_TIMES';
10002: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10003: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10004:
10005: CURSOR GetOksCTFull IS
10006: SELECT
10007: oksCT.ID AS oksCT_OldID --*
10204: Elsif (GetOksCTPartial%ISOPEN) then
10205: CLOSE GetOksCTPartial;
10206: End IF;
10207:
10208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10209: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10210: RAISE;
10211:
10212: End copy_oks_coverage_times;
10227: ,x_return_status OUT NOCOPY VARCHAR2) IS
10228:
10229: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_ACTIVITIES';
10230: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10231: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10232:
10233: CURSOR GetOksPMAFull IS
10234: SELECT
10235: oksPMA.ID AS oksPMA_OldID --*
10405: Elsif (GetOksPMAPartial%ISOPEN) then
10406: CLOSE GetOksPMAPartial;
10407: End IF;
10408:
10409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10410: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10411: RAISE;
10412:
10413: End copy_oks_pm_activities;
10428: ,x_return_status OUT NOCOPY VARCHAR2) IS
10429:
10430: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_STREAM_LEVELS';
10431: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10432: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10433: CURSOR GetOksPMSLFull IS
10434: SELECT
10435: oksPMSL.ID AS oksPMSL_OldID --*
10436: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS oksPMSL_NewID --*
10714: Elsif (GetOksPMSLPartial%ISOPEN) then
10715: CLOSE GetOksPMSLPartial;
10716: End IF;
10717:
10718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10719: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10720: RAISE;
10721:
10722:
10738: ,x_return_status OUT NOCOPY VARCHAR2) IS
10739:
10740: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_SCHEDULES';
10741: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10742: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10743: CURSOR GetOksPMSCHFull IS
10744: SELECT
10745: oksPMSCH.ID AS oksPMSCH_OldID --*
10746: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS oksPMSCH_NewID --*
10930: CLOSE GetOksPMSCHFull;
10931: Elsif (GetOksPMSCHPartial%ISOPEN) then
10932: CLOSE GetOksPMSCHPartial;
10933: End IF;
10934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10935: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10936: RAISE;
10937:
10938: End copy_oks_pm_schedules;
10994: ,x_msg_count => x_msg_count
10995: ,x_msg_data => x_msg_data
10996: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10997:
10998: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10999: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
11000: FND_LOG.string(FND_LOG.level_statement
11001: ,l_module_name
11002: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
11013: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
11014: ||'SQLERRM ='||SQLERRM
11015: );
11016: END IF;
11017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11018: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
11019: RAISE;
11020: End;
11021: END LOOP; --End LOOP for looping through l_lines_tbl rows
11028: End If;
11029:
11030: EXCEPTION
11031: WHEN OTHERS THEN
11032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11033: If GetLinesWithDatesChanged%ISOPEN then
11034: CLOSE GetLinesWithDatesChanged;
11035: End If;
11036: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11051: ,x_return_status OUT NOCOPY VARCHAR2) IS
11052:
11053: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_ACTION_TIME_TYPES';
11054: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11055: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11056:
11057: CURSOR GetOksATTFull IS
11058: SELECT
11059: oksATT.ID AS oksATT_OldID --*
11207: Elsif (GetOksATTPartial%ISOPEN) then
11208: CLOSE GetOksATTPartial;
11209: End IF;
11210:
11211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11213: RAISE;
11214:
11215: End copy_oks_action_time_types;
11230: ,x_return_status OUT NOCOPY VARCHAR2) IS
11231:
11232: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_ACTION_TIMES';
11233: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11234: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11235:
11236: CURSOR GetOksATFull IS
11237: SELECT
11238: oksAT.ID AS oksAT_OldID
11422: Elsif (GetOksATPartial%ISOPEN) then
11423: CLOSE GetOksATPartial;
11424: End IF;
11425:
11426: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11427: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11428: RAISE;
11429:
11430:
11460: ,x_return_status OUT NOCOPY VARCHAR2) IS
11461:
11462: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_SALES_CREDITS';
11463: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11464: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11465:
11466: CURSOR GetOksSCFull IS
11467: SELECT
11468: oksSC.ID AS oksSC_OldID
11734: Elsif GetOksSCPartial_L%ISOPEN then
11735: CLOSE GetOksSCPartial_L;
11736: End If;
11737:
11738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11739: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11740: RAISE;
11741:
11742: End copy_oks_k_sales_credits;
11757: ,x_return_status OUT NOCOPY VARCHAR2) IS
11758:
11759: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_BILLRATE_SCHEDULES';
11760: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11761: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11762:
11763: CURSOR GetOksBSCHFull IS
11764: SELECT
11765: oksBSCH.ID AS oksBSCH_OldID
12012: Elsif (GetOksBSCHPartial%ISOPEN) then
12013: CLOSE GetOksBSCHPartial;
12014: End IF;
12015:
12016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12017: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12018: RAISE;
12019:
12020:
12054: ,x_return_status OUT NOCOPY VARCHAR2) IS
12055:
12056: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_STREAM_LEVELS_B';
12057: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
12058: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12059:
12060: CURSOR GetOksSLFull IS
12061: SELECT
12062: oksSL.ID AS oksSL_OldID
12699: Elsif (GetOksSLPartial_L%ISOPEN) then
12700: CLOSE GetOksSLPartial_L;
12701: End If;
12702:
12703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12705: RAISE;
12706:
12707: End copy_oks_stream_levels_b;
12737: ,x_return_status OUT NOCOPY VARCHAR2) IS
12738:
12739: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_LEVEL_ELEMENTS';
12740: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
12741: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12742:
12743: /******
12744: CURSOR GetOksLEFull IS
12745: SELECT
13377: Elsif (GetOksLEPartial_L%ISOPEN) then
13378: CLOSE GetOksLEPartial_L;
13379: End If;
13380:
13381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13382: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13383: RAISE;
13384:
13385:
13497: END IF;
13498:
13499: EXCEPTION
13500: WHEN OTHERS THEN
13501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13502: IF GetTrgHdrPPAttributes%ISOPEN then
13503: CLOSE GetTrgHdrPPAttributes;
13504: End If;
13505: IF GetTargetLines_F%ISOPEN then
13800: BEGIN --Begin of looping through l_SourceStreams_tbl
13801: FOR j IN l_SourceStreams_tbl.FIRST..l_SourceStreams_tbl.LAST LOOP --4)
13802: l_TargetTopLineStreams_tbl_Ctr := l_TargetTopLineStreams_tbl_Ctr + 1;
13803:
13804: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).id := FND_API.g_miss_num;
13805: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
13806: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
13807: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
13808: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).sequence_no := l_SourceStreams_tbl(j).sequence_no;
13801: FOR j IN l_SourceStreams_tbl.FIRST..l_SourceStreams_tbl.LAST LOOP --4)
13802: l_TargetTopLineStreams_tbl_Ctr := l_TargetTopLineStreams_tbl_Ctr + 1;
13803:
13804: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).id := FND_API.g_miss_num;
13805: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
13806: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
13807: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
13808: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).sequence_no := l_SourceStreams_tbl(j).sequence_no;
13809: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).uom_code := l_SourceStreams_tbl(j).uom_code;
13821: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).lines_detailed_yn := l_SourceStreams_tbl(j).lines_detailed_yn;
13822: END LOOP; --End LOOP for looping through Source Streams PLSQL table --4)
13823: EXCEPTION
13824: WHEN OTHERS THEN
13825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13826: l_stage := 'Looping through l_SourceStreams_tbl';
13827: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13828: END; --End of looping through l_SourceStreams_tbl
13829: END IF; -- End of if check for l_SourceStreams_tbl.COUNT > 0
13835: End If;
13836: EXCEPTION
13837: WHEN OTHERS THEN
13838: l_stage := 'Fetching from cursor GetStreamsForSourceTopLine';
13839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13840: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13841:
13842: END; --End of Fetch from GetStreamsForSourceTopLine
13843:
13857: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
13858: ||',x_return_status='||x_return_status
13859: );
13860: END IF;
13861: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13862: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13863: RETURN;
13864: END IF;
13865:
13872: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13873: ||'SQLERRM ='||SQLERRM
13874: );
13875: END IF;
13876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13877: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13878: RAISE;
13879: END;
13880: --------End of BSCH Creation for Top Line
13902: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
13903: ||',x_return_status='||x_return_status
13904: );
13905: END IF;
13906: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13907: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
13908: RETURN;
13909: END IF;
13910:
13919: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13920: ||'SQLERRM ='||SQLERRM
13921: );
13922: END IF;
13923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13924: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
13925: RAISE;
13926: END;
13927: --------End of BSCH Creation for Subline---------------
13929: END IF; --End If for GEN_SUBLINE_BSCH_YN = 'Y'
13930:
13931: END IF; --End If for CLE_ID is NULL check
13932:
13933: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13935: FND_LOG.string(FND_LOG.level_statement
13936: ,l_module_name
13937: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13942:
13943: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
13944: EXCEPTION WHEN OTHERS THEN
13945: l_stage := 'Looping through TargetLinesRecTab';
13946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13947: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13948: END; --End of Begin for looping through TargetLinesRecTab
13949: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
13950:
13969:
13970:
13971: EXCEPTION
13972: WHEN OTHERS THEN
13973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13974: IF GetStreamsForSourceTopLine%ISOPEN THEN
13975: CLOSE GetStreamsForSourceTopLine;
13976: END IF;
13977: IF GetTargetLinesForBSCHRegen_P%ISOPEN THEN
14081: ,x_quantity => l_uom_quantity
14082: ,x_timeunit => l_tce_code
14083: ,x_return_status => x_return_status);
14084:
14085: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14086: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_UTIL_PUB.get_seeded_timeunit', substr(SQLERRM,1,240));
14087: RETURN;
14088: END IF;
14089:
14109: --end npalepu
14110:
14111: BEGIN --Begin of populating Stream Table for Target Header
14112: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).level_periods := l_level_periods;
14113: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).id := FND_API.g_miss_num;
14114: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).chr_id := P_To_Chr_ID;
14115: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).cle_id := FND_API.g_miss_num;
14116: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14117: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).sequence_no := 1;
14111: BEGIN --Begin of populating Stream Table for Target Header
14112: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).level_periods := l_level_periods;
14113: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).id := FND_API.g_miss_num;
14114: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).chr_id := P_To_Chr_ID;
14115: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).cle_id := FND_API.g_miss_num;
14116: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14117: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).sequence_no := 1;
14118: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).uom_code := l_resultant_PriceUOM;
14119: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).start_date := StartDate;
14135: ,'After call to OKS_BILL_SCH.create_hdr_bill_sch'
14136: ||',x_return_status='||x_return_status
14137: );
14138: END IF;
14139: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14140: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_hdr_bill_sch', substr(SQLERRM,1,240));
14141: RETURN;
14142: END IF;
14143:
14151: --end npalepu
14152:
14153: BEGIN --Begin of populating Stream Table for Target Top Line
14154: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).level_periods := l_level_periods;
14155: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14156: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14157: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := P_To_Line_ID;
14158: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14159: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := 1;
14152:
14153: BEGIN --Begin of populating Stream Table for Target Top Line
14154: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).level_periods := l_level_periods;
14155: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14156: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14157: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := P_To_Line_ID;
14158: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14159: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := 1;
14160: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_resultant_PriceUOM;
14180: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14181: ||',x_return_status='||x_return_status
14182: );
14183: END IF;
14184: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14185: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14186: RETURN;
14187: END IF;
14188: END IF; --End of P_To_Line_ID check
14195: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14196: ||'SQLERRM ='||SQLERRM
14197: );
14198: END IF;
14199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14200: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14201: RAISE;
14202:
14203: END;
14602: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
14603: -- End NECHATUR Bug#5349539
14604: ,x_return_status => x_return_status);
14605:
14606: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14607: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14608: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14609: FND_LOG.string(FND_LOG.level_statement
14610: ,l_module_name
14753: BEGIN --Begin of looping through l_TrgHdrStreams_Tbl
14754: FOR j IN l_TrgHdrStreams_Tbl.FIRST..l_TrgHdrStreams_Tbl.LAST LOOP --4)
14755: l_LineStreams_tbl_Ctr := l_LineStreams_tbl_Ctr + 1;
14756:
14757: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14758: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14759: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14760: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14761: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_TrgHdrStreams_Tbl(j).sequence_no;
14754: FOR j IN l_TrgHdrStreams_Tbl.FIRST..l_TrgHdrStreams_Tbl.LAST LOOP --4)
14755: l_LineStreams_tbl_Ctr := l_LineStreams_tbl_Ctr + 1;
14756:
14757: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14758: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14759: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14760: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14761: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_TrgHdrStreams_Tbl(j).sequence_no;
14762: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_TrgHdrStreams_Tbl(j).uom_code;
14774: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).lines_detailed_yn := l_TrgHdrStreams_Tbl(j).lines_detailed_yn;
14775: END LOOP; --End LOOP for looping through Target header Streams PLSQL table
14776: EXCEPTION
14777: WHEN OTHERS THEN
14778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14779: l_stage := 'Looping through l_TrgHdrStreams_Tbl';
14780: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14781: RAISE;
14782: END; --End of looping through l_TrgHdrStreams_Tbl
14795: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14796: ||',x_return_status='||x_return_status
14797: );
14798: END IF;
14799: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14800: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14801: RETURN;
14802: END IF;
14803: EXCEPTION
14801: RETURN;
14802: END IF;
14803: EXCEPTION
14804: WHEN OTHERS THEN
14805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14806: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14807: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14808: RAISE;
14809: END;
14855: ,P_INVOICE_OFFSET_DAYS =>L_INVOICE_OFFSET_DAYS
14856: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
14857: -- End NECHATUR Bug#5349539
14858: ,x_return_status => x_return_status);
14859: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14860: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14861: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14862: FND_LOG.string(FND_LOG.level_statement
14863: ,l_module_name
14868: END IF;
14869:
14870: EXCEPTION
14871: WHEN OTHERS THEN
14872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14873: l_stage := 'instantiate_bsch_using_PPSetup';
14874: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14875: RAISE;
14876: End;
14952: --errorout_hk('due_arr_yn-'|| l_SrcLnStreams_Tbl(j).due_arr_yn);
14953: --errorout_hk('amount-'|| l_SrcLnStreams_Tbl(j).amount);
14954: --errorout_hk('lines_detailed_yn-'|| l_SrcLnStreams_Tbl(j).lines_detailed_yn);
14955:
14956: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14957: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14958: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14959: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14960: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_SrcLnStreams_Tbl(j).sequence_no;
14953: --errorout_hk('amount-'|| l_SrcLnStreams_Tbl(j).amount);
14954: --errorout_hk('lines_detailed_yn-'|| l_SrcLnStreams_Tbl(j).lines_detailed_yn);
14955:
14956: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14957: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14958: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14959: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14960: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_SrcLnStreams_Tbl(j).sequence_no;
14961: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_SrcLnStreams_Tbl(j).uom_code;
14973: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).lines_detailed_yn := l_SrcLnStreams_Tbl(j).lines_detailed_yn;
14974: END LOOP; --End LOOP for looping through Target header Streams PLSQL table
14975: EXCEPTION
14976: WHEN OTHERS THEN
14977: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14978: l_stage := 'Looping through l_SrcLnStreams_Tbl';
14979: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14980: RAISE;
14981: END; --End of looping through l_TrgHdrStreams_Tbl
14995: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14996: ||',x_return_status='||x_return_status
14997: );
14998: END IF;
14999: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15000: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
15001: RETURN;
15002: END IF;
15003: EXCEPTION
15001: RETURN;
15002: END IF;
15003: EXCEPTION
15004: WHEN OTHERS THEN
15005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15006: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
15007: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
15008: RAISE;
15009: END;
15034: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
15035: ||',x_return_status='||x_return_status
15036: );
15037: END IF;
15038: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15039: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
15040: RETURN;
15041: END IF;
15042:
15048: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15049: ||'SQLERRM ='||SQLERRM
15050: );
15051: END IF;
15052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15053: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
15054: RAISE;
15055: END;
15056: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15056: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15057: --------End of BSCH Creation for Subline---------------
15058: END IF; --End If for CLE_ID is NULL check
15059:
15060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15061: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15062: FND_LOG.string(FND_LOG.level_statement
15063: ,l_module_name
15064: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15080: -- End hkamdar for Bug# 5458842.
15081: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
15082: EXCEPTION WHEN OTHERS THEN
15083: l_stage := 'Looping through TargetLinesRecTab';
15084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15085: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
15086: END; --End of Begin for looping through TargetLinesRecTab
15087: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
15088:
15096: END IF; -- (P_Partial_Copy_YN = 'Y' AND P_Target_Contract_New_YN = 'N') then
15097:
15098: EXCEPTION
15099: WHEN OTHERS THEN
15100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15101: IF GetTrgLines_K_EXISTS_P%ISOPEN THEN
15102: CLOSE GetTrgLines_K_EXISTS_P;
15103: END IF;
15104: IF GetStreamsForTargetHeader%ISOPEN THEN
15206: IF ( to_number(to_char(l_CC_Expiry_Date,'YYYYMM')) <
15207: to_number(to_char(SYSDATE,'YYYYMM'))
15208: ) then
15209: x_entity_id := NULL;
15210: x_return_status := FND_API.G_RET_STS_SUCCESS;
15211: ELSE
15212:
15213: l_Authoring_Org_ID := okc_context.get_okc_org_id;
15214: l_Cust_Account_Site_ID := P_Bill_To_Site_Use_ID;
15269: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
15270: (
15271: p_api_version => P_api_version
15272: ,p_init_msg_list => p_init_msg_list
15273: ,p_commit => FND_API.G_FALSE
15274: ,x_return_status => x_return_status
15275: ,x_msg_count => x_msg_count
15276: ,x_msg_data => x_msg_data
15277: ,p_payer => l_PayerContext_Rec
15287: -- IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
15288: -- (
15289: -- p_api_version => p_api_version
15290: -- ,p_init_msg_list => p_init_msg_list
15291: -- ,p_commit => FND_API.G_FALSE
15292: -- ,x_return_status => x_return_status
15293: -- ,x_msg_count => x_msg_count
15294: -- ,x_msg_data => x_msg_data
15295: -- ,p_payer => l_PayerContext_Rec
15301: -- );
15302:
15303:
15304:
15305: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
15306: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15307: fnd_message.set_token
15308: ('IBY_API_NAME',
15309: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15308: ('IBY_API_NAME',
15309: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15310: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15311: fnd_msg_pub.ADD;
15312: RAISE fnd_api.g_exc_unexpected_error;
15313: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15314: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15315: fnd_message.set_token
15316: ('IBY_API_NAME',
15309: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15310: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15311: fnd_msg_pub.ADD;
15312: RAISE fnd_api.g_exc_unexpected_error;
15313: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15314: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15315: fnd_message.set_token
15316: ('IBY_API_NAME',
15317: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15316: ('IBY_API_NAME',
15317: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15318: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15319: fnd_msg_pub.ADD;
15320: RAISE fnd_api.g_exc_error;
15321: END IF;
15322:
15323:
15324:
15343: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15344: ||'SQLERRM ='||SQLERRM
15345: );
15346: END IF;
15347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15348: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension', substr(SQLERRM,1,240));
15349: RAISE;
15350:
15351: End;
15369: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15370: ||'SQLERRM ='||SQLERRM
15371: );
15372: END IF;
15373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15374: IF GetInstrAssgnID%ISOPEN then
15375: CLOSE GetInstrAssgnID;
15376: END IF;
15377: IF GetAcctInfo%ISOPEN then
15439:
15440: l_BP_Child_ID NUMBER;
15441:
15442: Begin
15443: x_return_status := FND_API.G_RET_STS_SUCCESS;
15444: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15445: FND_LOG.string(FND_LOG.level_statement
15446: ,l_module_name
15447: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15520: ,l_module_name
15521: ,SQLERRM
15522: );
15523: END IF;
15524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15525: If (getBPLineandChildren%ISOPEN) then
15526: CLOSE getBPLineandChildren;
15527: End If;
15528: If (getBPOffsetInformation%ISOPEN) then
17002:
17003: l_new_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE := NULL;
17004: ----------------------------------------------------------------------------
17005:
17006: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
17007: l_euro_currency VARCHAR2(15) := NULL;
17008:
17009: --OKC Line Attributes to be updated--
17010: l_converted_price_negotiated NUMBER := NULL;
17088: ,l_module_name||':'||'Cursor get_new_contract_number'
17089: ,'Contract number of Target Contract is NULL'
17090: );
17091: END IF;
17092: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17093: RAISE G_EXCEPTION_HALT_VALIDATION;
17094: End If;
17095: End;
17096: -------------------------------------------
17105: ,l_module_name||':'||'Cursor get_default_status'
17106: ,'Default Status not found'
17107: );
17108: END IF;
17109: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17110: RAISE G_EXCEPTION_HALT_VALIDATION;
17111: End If;
17112: End;
17113: ------------------------------------------
18447: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18448: );
18449: END IF;
18450:
18451: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18452: RAISE G_EXCEPTION_HALT_VALIDATION;
18453:
18454: End;
18455:
18680: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18681: );
18682: END IF;
18683:
18684: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18685: RAISE G_EXCEPTION_HALT_VALIDATION;
18686:
18687: End;
18688:
18762: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18763: );
18764: END IF;
18765:
18766: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18767: RAISE; --RAISE G_EXCEPTION_HALT_VALIDATION;
18768:
18769: End;
18770:
18843: WHERE ID = OKCOKSLinesRecTab.OkcB_NewOkcLineID(i)
18844: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OkcB_OldOkcLineID(i);
18845:
18846: If SQL%NOTFOUND then
18847: l_return_status := FND_API.G_RET_STS_ERROR;
18848: RAISE G_EXCEPTION_HALT_VALIDATION;
18849: End If;
18850:
18851: END IF;
18892: ,p_new_chr_id => P_To_Chr_ID
18893: --end npalepu
18894: );
18895:
18896: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18897: RAISE G_EXCEPTION_HALT_VALIDATION;
18898: END IF;
18899:
18900:
18934: );
18935: END IF;
18936: END IF;
18937:
18938: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18939: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18940: x_return_status := l_return_status;
18941: RAISE G_EXCEPTION_HALT_VALIDATION;
18942: END IF;
18935: END IF;
18936: END IF;
18937:
18938: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18939: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18940: x_return_status := l_return_status;
18941: RAISE G_EXCEPTION_HALT_VALIDATION;
18942: END IF;
18943: END IF;
19017: END IF;
19018: END IF;
19019:
19020:
19021: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19022: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19023: x_return_status := l_return_status;
19024: RAISE G_EXCEPTION_HALT_VALIDATION;
19025: END IF;
19018: END IF;
19019:
19020:
19021: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19022: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19023: x_return_status := l_return_status;
19024: RAISE G_EXCEPTION_HALT_VALIDATION;
19025: END IF;
19026: END IF;
19033: */ /*Commented for bug 14478599 */
19034:
19035:
19036: /*Added for bug 14478599 */
19037: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19038:
19039:
19040: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19041: UPDATE OKS_K_LINES_B
19036: /*Added for bug 14478599 */
19037: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19038:
19039:
19040: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19041: UPDATE OKS_K_LINES_B
19042: SET TAX_INCLUSIVE_YN = 'N'
19043: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
19044: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
19059:
19060: END IF;
19061: /*Added for bug 14478599 */
19062: If SQL%NOTFOUND then
19063: l_return_status := FND_API.G_RET_STS_ERROR;
19064: RAISE G_EXCEPTION_HALT_VALIDATION;
19065: End If;
19066:
19067: End If;
19100: );
19101: END IF;
19102: END IF;
19103:
19104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19105: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19106: x_return_status := l_return_status;
19107: RAISE G_EXCEPTION_HALT_VALIDATION;
19108: END IF;
19101: END IF;
19102: END IF;
19103:
19104: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19105: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19106: x_return_status := l_return_status;
19107: RAISE G_EXCEPTION_HALT_VALIDATION;
19108: END IF;
19109: END IF;
19122: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
19123: );
19124: END IF;
19125:
19126: l_return_status := FND_API.G_RET_STS_ERROR;
19127: RAISE G_EXCEPTION_HALT_VALIDATION;
19128: End If;
19129: End If;
19130: End;
19169: );
19170: END IF;
19171: END IF;
19172:
19173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19174: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19175: x_return_status := l_return_status;
19176: RAISE G_EXCEPTION_HALT_VALIDATION;
19177: END IF;
19170: END IF;
19171: END IF;
19172:
19173: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19174: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19175: x_return_status := l_return_status;
19176: RAISE G_EXCEPTION_HALT_VALIDATION;
19177: END IF;
19178: END IF;
19190: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19191: );
19192: END IF;
19193:
19194: l_return_status := FND_API.G_RET_STS_ERROR;
19195: RAISE G_EXCEPTION_HALT_VALIDATION;
19196: End If;
19197:
19198: End If;
19402: END IF;
19403: END IF;
19404: END IF;
19405:
19406: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19407: RAISE G_EXCEPTION_HALT_VALIDATION;
19408: End If;
19409: End;
19410: ------------------------------------------------------------------------------------
19439: );
19440: END IF;
19441: END IF;
19442:
19443: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19444: RAISE G_EXCEPTION_HALT_VALIDATION;
19445: End If;
19446: End If;
19447: End;
19471: );
19472: END IF;
19473: END IF;
19474:
19475: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19476: RAISE G_EXCEPTION_HALT_VALIDATION;
19477: End If;
19478: End;
19479: ------------------------------------------------------------------------------------
19502: );
19503: END IF;
19504: END IF;
19505:
19506: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19507: RAISE G_EXCEPTION_HALT_VALIDATION;
19508: End If;
19509: End;
19510: ---------------------------------------------------------------------
19532: );
19533: END IF;
19534: END IF;
19535:
19536: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19537: RAISE G_EXCEPTION_HALT_VALIDATION;
19538: End If;
19539: End;
19540: ----------------------------------------------------------------------
19561: ||' '||SQLERRM
19562: );
19563: END IF;
19564: END IF;
19565: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19566: RAISE G_EXCEPTION_HALT_VALIDATION;
19567: End If;
19568: End;
19569: -------------------------------------------------------------------------
19591: );
19592: END IF;
19593: END IF;
19594:
19595: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19596: RAISE G_EXCEPTION_HALT_VALIDATION;
19597: End If;
19598: End;
19599: ---------------------------------------------------------------------
19622: );
19623: END IF;
19624: END IF;
19625:
19626: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19627: RAISE G_EXCEPTION_HALT_VALIDATION;
19628: End If;
19629: End;
19630: --------------------------------------------------------------------
19652: );
19653: END IF;
19654: END IF;
19655:
19656: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19657: RAISE G_EXCEPTION_HALT_VALIDATION;
19658: End If;
19659: End;
19660: ---------------------------------------------------------------------
19683: );
19684: END IF;
19685: END IF;
19686:
19687: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19688: RAISE G_EXCEPTION_HALT_VALIDATION;
19689: End If;
19690: End;
19691: ---------------------------------------------------------------------
19714: );
19715: END IF;
19716: END IF;
19717:
19718: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19719: RAISE G_EXCEPTION_HALT_VALIDATION;
19720: End If;
19721: End;
19722: ----------------------------------------------------------------------
19727: ,P_To_Chr_ID => P_To_Chr_ID
19728: ,P_Partial_Copy_YN => 'N'
19729: ,x_return_status => l_return_status);
19730:
19731: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19732: RAISE G_EXCEPTION_HALT_VALIDATION;
19733: End If;
19734: End;
19735: ---------------------------------------------------------------------
19760: );
19761: END IF;
19762: END IF;
19763:
19764: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19765: RAISE G_EXCEPTION_HALT_VALIDATION;
19766: End If;
19767:
19768: End;
19831: );
19832: END IF;
19833: END IF;
19834:
19835: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19836: RAISE G_EXCEPTION_HALT_VALIDATION;
19837: End If;
19838: End;
19839: -------------------------------------------------------------------
19862: );
19863: END IF;
19864: END IF;
19865:
19866: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19867: RAISE G_EXCEPTION_HALT_VALIDATION;
19868: End If;
19869: End;
19870: --------------------------------------------------------------------
19901: END IF;
19902:
19903:
19904:
19905: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19906: RAISE G_EXCEPTION_HALT_VALIDATION;
19907: End If;
19908:
19909: End;
19936: ||' '||SQLERRM
19937: );
19938: END IF;
19939: END IF;
19940: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19941: RAISE G_EXCEPTION_HALT_VALIDATION;
19942: End If;
19943:
19944:
19954: copy_oks_coverage_timezones(P_From_Chr_ID => P_From_Chr_ID
19955: ,P_To_Chr_ID => P_To_Chr_ID
19956: ,P_Partial_Copy_YN => 'N'
19957: ,x_return_status => l_return_status);
19958: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19959: RAISE G_EXCEPTION_HALT_VALIDATION;
19960: End If;
19961: End;
19962: ---------------------------------------------------------------------
19966: copy_oks_coverage_times(P_From_Chr_ID => P_From_Chr_ID
19967: ,P_To_Chr_ID => P_To_Chr_ID
19968: ,P_Partial_Copy_YN => 'N'
19969: ,x_return_status => l_return_status);
19970: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19971: RAISE G_EXCEPTION_HALT_VALIDATION;
19972: End If;
19973: End;
19974: ---------------------------------------------------------------------
19983: ,P_To_Chr_ID => P_To_Chr_ID
19984: ,P_Partial_Copy_YN => 'N'
19985: ,x_return_status => l_return_status);
19986:
19987: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19988: RAISE G_EXCEPTION_HALT_VALIDATION;
19989: End If;
19990: End;
19991: ---------------------------------------------------------------------
19995: ,P_To_Chr_ID => P_To_Chr_ID
19996: ,P_Partial_Copy_YN => 'N'
19997: ,x_return_status => l_return_status);
19998:
19999: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
20000: RAISE G_EXCEPTION_HALT_VALIDATION;
20001: End If;
20002: End;
20003: ---------------------------------------------------------------------
20007: ,P_To_Chr_ID => P_To_Chr_ID
20008: ,P_Partial_Copy_YN => 'N'
20009: ,x_return_status => l_return_status);
20010:
20011: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
20012: RAISE G_EXCEPTION_HALT_VALIDATION;
20013: End If;
20014: End;
20015: ---------------------------------------------------------------------
20025: ,P_To_Chr_ID => P_To_Chr_ID
20026: ,P_Partial_Copy_YN => 'N'
20027: ,x_return_status => l_return_status);
20028:
20029: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
20030: RAISE G_EXCEPTION_HALT_VALIDATION;
20031: End If;
20032: End;
20033: ---------------------------------------------------------------------
20037: ,P_To_Chr_ID => P_To_Chr_ID
20038: ,P_Partial_Copy_YN => 'N'
20039: ,x_return_status => l_return_status);
20040:
20041: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
20042: RAISE G_EXCEPTION_HALT_VALIDATION;
20043: End If;
20044: End;
20045: ---------------------------------------------------------------------
20054: ,P_To_Chr_ID => P_To_Chr_ID
20055: ,P_Partial_Copy_YN => 'N'
20056: ,x_return_status => l_return_status);
20057:
20058: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
20059: RAISE G_EXCEPTION_HALT_VALIDATION;
20060: End If;
20061: End;
20062: ---------------------------------------------------------------------
20111: CLOSE GetOKCOKSLinesB_Copy_EXCLUDE;
20112: ELSIF GetOKCOKSLinesB_Renew%ISOPEN THEN
20113: CLOSE GetOKCOKSLinesB_Renew;
20114: END IF;
20115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
20116: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
20117: RAISE;
20118:
20119: END copy_lines;
20161: ,p_include_terminated_lines IN VARCHAR2 DEFAULT 'Y') IS
20162:
20163: l_api_name CONSTANT VARCHAR2(30) := 'COPY_LINE_COMPONENTS';
20164: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
20165: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
20166: l_euro_currency VARCHAR2(15) := NULL;
20167: l_converted_price_negotiated NUMBER := NULL;
20168: l_converted_price_unit NUMBER := NULL;
20169:
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:
21535: -- Bug# 5531198 hkamdar 21-Sep-2006
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;
21557: ------------------------------------------
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;
21853:
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;
22233:
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;
22485:
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:
22776: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
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:
22813: End;
22819: Update_BP_StartDates(P_From_Chr_ID => P_From_Chr_ID
22820: ,P_To_Chr_ID => P_To_Chr_ID
22821: ,x_return_status => l_return_status);
22822:
22823: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
22824: RAISE G_EXCEPTION_HALT_VALIDATION;
22825: End If;
22826:
22827: End;
24263: ,x_msg_data => x_msg_data
24264: ,x_return_status => l_return_status
24265: );
24266:
24267: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24268: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24269: x_return_status := l_return_status;
24270: RAISE G_EXCEPTION_HALT_VALIDATION;
24271: END IF;
24264: ,x_return_status => l_return_status
24265: );
24266:
24267: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24268: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24269: x_return_status := l_return_status;
24270: RAISE G_EXCEPTION_HALT_VALIDATION;
24271: END IF;
24272: END IF;
24279: /*Commented for bug 14478599 */
24280:
24281:
24282: /*Added for bug 14478599 */
24283: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24284:
24285: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
24286: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
24287: FND_LOG.string(FND_LOG.level_statement
24289: ,'Error occured in Get Tax API for line: x_return_status :'||l_return_status
24290: );
24291: END IF;
24292: END IF;
24293: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24294: UPDATE OKS_K_LINES_B
24295: SET TAX_INCLUSIVE_YN = 'N'
24296: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24297: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24315:
24316:
24317:
24318: If SQL%NOTFOUND then
24319: l_return_status := FND_API.G_RET_STS_ERROR;
24320: RAISE G_EXCEPTION_HALT_VALIDATION;
24321: End If;
24322:
24323: End If;
24358: ,p_new_chr_id => P_To_Chr_ID
24359: --end npalepu
24360: );
24361:
24362: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24363: RAISE G_EXCEPTION_HALT_VALIDATION;
24364: END IF;
24365:
24366: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24388: );
24389: END IF;
24390: END IF;
24391:
24392: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24393: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24394: x_return_status := l_return_status;
24395: RAISE G_EXCEPTION_HALT_VALIDATION;
24396: END IF;
24389: END IF;
24390: END IF;
24391:
24392: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24393: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24394: x_return_status := l_return_status;
24395: RAISE G_EXCEPTION_HALT_VALIDATION;
24396: END IF;
24397: END IF;
24423: );
24424: END IF;
24425: END IF;
24426:
24427: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24428: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24429: x_return_status := l_return_status;
24430: RAISE G_EXCEPTION_HALT_VALIDATION;
24431: END IF;
24424: END IF;
24425: END IF;
24426:
24427: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24428: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24429: x_return_status := l_return_status;
24430: RAISE G_EXCEPTION_HALT_VALIDATION;
24431: END IF;
24432: END IF;
24438: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24439: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24440:
24441: If SQL%NOTFOUND then
24442: l_return_status := FND_API.G_RET_STS_ERROR;
24443: RAISE G_EXCEPTION_HALT_VALIDATION;
24444: End If;
24445: End If;
24446: End;
24484: );
24485: END IF;
24486: END IF;
24487:
24488: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24489: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24490: x_return_status := l_return_status;
24491: RAISE G_EXCEPTION_HALT_VALIDATION;
24492: END IF;
24485: END IF;
24486: END IF;
24487:
24488: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24489: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24490: x_return_status := l_return_status;
24491: RAISE G_EXCEPTION_HALT_VALIDATION;
24492: END IF;
24493: END IF;
24505: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24506: );
24507: END IF;
24508:
24509: l_return_status := FND_API.G_RET_STS_ERROR;
24510: RAISE G_EXCEPTION_HALT_VALIDATION;
24511: End If;
24512:
24513: End If;
24543: );
24544: END IF;
24545: END IF;
24546:
24547: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24548: RAISE G_EXCEPTION_HALT_VALIDATION;
24549: End If;
24550:
24551: End;
24799: );
24800: END IF;
24801: END IF;
24802:
24803: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24804: RAISE G_EXCEPTION_HALT_VALIDATION;
24805: End If;
24806: End;
24807: END IF;
24833: );
24834: END IF;
24835: END IF;
24836:
24837: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24838: RAISE G_EXCEPTION_HALT_VALIDATION;
24839: End If;
24840: End;
24841: END IF;
24868: );
24869: END IF;
24870: END IF;
24871:
24872: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24873: RAISE G_EXCEPTION_HALT_VALIDATION;
24874: End If;
24875: End;
24876: END IF;
24901: );
24902: END IF;
24903: END IF;
24904:
24905: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24906: RAISE G_EXCEPTION_HALT_VALIDATION;
24907: End If;
24908: End;
24909: END IF;
24933: ||' '||SQLERRM
24934: );
24935: END IF;
24936: END IF;
24937: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24938: RAISE G_EXCEPTION_HALT_VALIDATION;
24939: End If;
24940: End;
24941: END IF;
24966: );
24967: END IF;
24968: END IF;
24969:
24970: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24971: RAISE G_EXCEPTION_HALT_VALIDATION;
24972: End If;
24973: End;
24974: ---------------------------------------------------------------------
24999: );
25000: END IF;
25001: END IF;
25002:
25003: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25004: RAISE G_EXCEPTION_HALT_VALIDATION;
25005: End If;
25006: End;
25007: --------------------------------------------------------------------
25031: );
25032: END IF;
25033: END IF;
25034:
25035: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25036: RAISE G_EXCEPTION_HALT_VALIDATION;
25037: End If;
25038: End;
25039: END IF;
25065: );
25066: END IF;
25067: END IF;
25068:
25069: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25070: RAISE G_EXCEPTION_HALT_VALIDATION;
25071: End If;
25072: End;
25073: END IF;
25099: );
25100: END IF;
25101: END IF;
25102:
25103: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25104: RAISE G_EXCEPTION_HALT_VALIDATION;
25105: End If;
25106: End;
25107: END IF;
25151: );
25152: END IF;
25153: END IF;
25154:
25155: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25156: RAISE G_EXCEPTION_HALT_VALIDATION;
25157: End If;
25158: End;
25159: -------------------------------------------------------------------
25185: );
25186: END IF;
25187: END IF;
25188:
25189: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25190: RAISE G_EXCEPTION_HALT_VALIDATION;
25191: End If;
25192: End;
25193: --------------------------------------------------------------------
25220: END IF;
25221:
25222:
25223:
25224: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25225: RAISE G_EXCEPTION_HALT_VALIDATION;
25226: End If;
25227:
25228: End;
25237: ,x_return_status => l_return_status
25238: ,x_msg_count => x_msg_count
25239: ,x_msg_data => x_msg_data);
25240:
25241: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25242: RAISE G_EXCEPTION_HALT_VALIDATION;
25243: End If;
25244:
25245:
25257: ,x_return_status => l_return_status
25258: ,x_msg_count => x_msg_count
25259: ,x_msg_data => x_msg_data);
25260:
25261: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25262: RAISE G_EXCEPTION_HALT_VALIDATION;
25263: End If;
25264: END IF;
25265:
25295: );
25296: END IF;
25297: END IF;
25298:
25299: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25300: RAISE G_EXCEPTION_HALT_VALIDATION;
25301: End If;
25302: End;
25303: ---------------------------------------------------------------------
25327: );
25328: END IF;
25329: END IF;
25330:
25331: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25332: RAISE G_EXCEPTION_HALT_VALIDATION;
25333: End If;
25334: End;
25335: ---------------------------------------------------------------------
25365: );
25366: END IF;
25367: END IF;
25368:
25369: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25370: RAISE G_EXCEPTION_HALT_VALIDATION;
25371: End If;
25372: End;
25373: ---------------------------------------------------------------------
25397: );
25398: END IF;
25399: END IF;
25400:
25401: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25402: RAISE G_EXCEPTION_HALT_VALIDATION;
25403: End If;
25404: End;
25405:
25430: );
25431: END IF;
25432: END IF;
25433:
25434: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25435: RAISE G_EXCEPTION_HALT_VALIDATION;
25436: End If;
25437: End;
25438: ---------------------------------------------------------------------
25444: ,x_return_status => l_return_status
25445: ,x_msg_count => x_msg_count
25446: ,x_msg_data => x_msg_data);
25447:
25448: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25449: RAISE G_EXCEPTION_HALT_VALIDATION;
25450: End If;
25451: End;
25452: ----------------------------------------------------------------------
25484: );
25485: END IF;
25486: END IF;
25487:
25488: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25489: RAISE G_EXCEPTION_HALT_VALIDATION;
25490: End If;
25491: End;
25492: ---------------------------------------------------------------------
25516: );
25517: END IF;
25518: END IF;
25519:
25520: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25521: RAISE G_EXCEPTION_HALT_VALIDATION;
25522: End If;
25523: End;
25524: ---------------------------------------------------------------------
25555: );
25556: END IF;
25557: END IF;
25558:
25559: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25560: RAISE G_EXCEPTION_HALT_VALIDATION;
25561: End If;
25562: End;
25563:
25594: );
25595: END IF;
25596: END IF;
25597:
25598: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25599: RAISE G_EXCEPTION_HALT_VALIDATION;
25600: End If;
25601: End;
25602: ---------------------------------------------------------------------
25656:
25657: l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONTRACT';
25658: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
25659:
25660: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25661: --l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25662: l_to_chr_id NUMBER;
25663: l_cle_id_out NUMBER;
25664: l_rgp_id NUMBER;
25657: l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONTRACT';
25658: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
25659:
25660: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25661: --l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25662: l_to_chr_id NUMBER;
25663: l_cle_id_out NUMBER;
25664: l_rgp_id NUMBER;
25665: l_cat_id NUMBER;
25739: End If;
25740:
25741: IF NOT l_result Then
25742: -- notify caller of an UNEXPECTED error
25743: x_return_status := FND_API.G_RET_STS_ERROR;
25744: RAISE G_EXCEPTION_HALT_VALIDATION;
25745: END IF;
25746:
25747: -- Intitialize globals.
25789: );
25790: END IF;
25791: END IF;
25792:
25793: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25794: x_return_status := l_return_status;
25795: RAISE G_EXCEPTION_HALT_VALIDATION;
25796: END IF;
25797:
25812: x_doc_id => l_source_doc_id,
25813: x_doc_type => l_source_doc_type
25814: );
25815:
25816: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25817: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25818: x_return_status := l_return_status;
25819: RAISE G_EXCEPTION_HALT_VALIDATION;
25820: -- ELSE
25813: x_doc_type => l_source_doc_type
25814: );
25815:
25816: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25817: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25818: x_return_status := l_return_status;
25819: RAISE G_EXCEPTION_HALT_VALIDATION;
25820: -- ELSE
25821: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25817: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25818: x_return_status := l_return_status;
25819: RAISE G_EXCEPTION_HALT_VALIDATION;
25820: -- ELSE
25821: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25822: -- x_return_status := l_return_status;
25823: -- END IF;
25824: -- END IF;
25825: END IF;
25832: p_chr_id => l_to_chr_id,
25833: x_doc_id => l_target_doc_id,
25834: x_doc_type => l_target_doc_type);
25835:
25836: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25837: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25838: x_return_status := l_return_status;
25839: RAISE G_EXCEPTION_HALT_VALIDATION;
25840: -- ELSE
25833: x_doc_id => l_target_doc_id,
25834: x_doc_type => l_target_doc_type);
25835:
25836: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25837: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25838: x_return_status := l_return_status;
25839: RAISE G_EXCEPTION_HALT_VALIDATION;
25840: -- ELSE
25841: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25837: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25838: x_return_status := l_return_status;
25839: RAISE G_EXCEPTION_HALT_VALIDATION;
25840: -- ELSE
25841: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25842: -- x_return_status := l_return_status;
25843: -- END IF;
25844: -- END IF;
25845: END IF;
25879: );
25880: END IF;
25881: END IF;
25882:
25883: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25884: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25885: x_return_status := l_return_status;
25886: RAISE G_EXCEPTION_HALT_VALIDATION;
25887: -- ELSE
25880: END IF;
25881: END IF;
25882:
25883: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25884: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25885: x_return_status := l_return_status;
25886: RAISE G_EXCEPTION_HALT_VALIDATION;
25887: -- ELSE
25888: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25884: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25885: x_return_status := l_return_status;
25886: RAISE G_EXCEPTION_HALT_VALIDATION;
25887: -- ELSE
25888: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25889: -- x_return_status := l_return_status;
25890: -- END IF;
25891: -- END IF;
25892: END IF;
25920: );
25921: END IF;
25922: END IF;
25923:
25924: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25925: x_return_status := l_return_status;
25926: RAISE G_EXCEPTION_HALT_VALIDATION;
25927: END IF;
25928: --===================End of Copy OKS Header attributes===========================================
25971: );
25972: END IF;
25973: END IF;
25974:
25975: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25976: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
25977: x_return_status := l_return_status;
25978: RAISE G_EXCEPTION_HALT_VALIDATION;
25979: END IF;
25972: END IF;
25973: END IF;
25974:
25975: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25976: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
25977: x_return_status := l_return_status;
25978: RAISE G_EXCEPTION_HALT_VALIDATION;
25979: END IF;
25980: END IF;
25989: ,l_module_name||'.Create_Transaction_Extension'
25990: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25991: );
25992: END IF;
25993: l_return_status := FND_API.G_RET_STS_ERROR;
25994: RAISE G_EXCEPTION_HALT_VALIDATION;
25995: End If;
25996:
25997:
26031: END IF;
26032: END IF;
26033: END IF; --l_profile_value
26034:
26035: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26036: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26037: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26038: x_return_status := l_return_status;
26039: RAISE G_EXCEPTION_HALT_VALIDATION;
26032: END IF;
26033: END IF; --l_profile_value
26034:
26035: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26036: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26037: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26038: x_return_status := l_return_status;
26039: RAISE G_EXCEPTION_HALT_VALIDATION;
26040: ELSE
26033: END IF; --l_profile_value
26034:
26035: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26036: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26037: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26038: x_return_status := l_return_status;
26039: RAISE G_EXCEPTION_HALT_VALIDATION;
26040: ELSE
26041: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
26078: );
26079: END IF;
26080: END IF;
26081:
26082: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26083: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26084: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26085: x_return_status := l_return_status;
26086: RAISE G_EXCEPTION_HALT_VALIDATION;
26079: END IF;
26080: END IF;
26081:
26082: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26083: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26084: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26085: x_return_status := l_return_status;
26086: RAISE G_EXCEPTION_HALT_VALIDATION;
26087: ELSE
26080: END IF;
26081:
26082: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26083: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26084: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26085: x_return_status := l_return_status;
26086: RAISE G_EXCEPTION_HALT_VALIDATION;
26087: ELSE
26088: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
26096: OKC_DEBUG.ReSet_Indentation;
26097: END IF;
26098:
26099: /*
26100: IF FND_API.to_boolean(p_commit) THEN
26101: COMMIT;
26102: END IF;
26103: */
26104:
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:
26132: END COPY_CONTRACT;
26133: --=========================================End COPY_CONTRACT=============================================
26204: l_module_name VARCHAR2(256) := G_APP_NAME ||'.plsql.' || G_PKG_NAME || '.' || l_api_name;
26205: l_party_count NUMBER;
26206:
26207: Begin
26208: x_return_status := FND_API.G_RET_STS_SUCCESS;
26209:
26210: OPEN l_party_csr(P_To_Chr_ID);
26211: FETCH l_party_csr into l_party_count;
26212: CLOSE l_party_csr;
26369: If (l_party_comp_csr%ISOPEN) then
26370: CLOSE l_party_comp_csr;
26371: End If;
26372: --end npalepu
26373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26374: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||l_stage, substr(SQLERRM,1,240));
26375:
26376: END Party_Cleanup;
26377:
26425: p_include_terminated_lines IN VARCHAR2 DEFAULT 'Y') IS
26426:
26427: l_components_tbl api_components_tbl := p_components_tbl;
26428: l_lines_tbl api_lines_tbl := p_lines_tbl;
26429: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26430: l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26431: l_cle_id_out NUMBER;
26432: l_to_chr_id NUMBER;
26433: l_cnh_id NUMBER;
26426:
26427: l_components_tbl api_components_tbl := p_components_tbl;
26428: l_lines_tbl api_lines_tbl := p_lines_tbl;
26429: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26430: l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26431: l_cle_id_out NUMBER;
26432: l_to_chr_id NUMBER;
26433: l_cnh_id NUMBER;
26434: l_rgp_id NUMBER;
26539:
26540:
26541: If NOT l_result Then
26542: -- notify caller of an UNEXPECTED error
26543: x_return_status := FND_API.G_RET_STS_ERROR;
26544: raise G_EXCEPTION_HALT_VALIDATION;
26545: End If;
26546:
26547: -- Intitialize globals.
26599: );
26600: END IF;
26601: END IF;
26602:
26603: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26604: x_return_status := l_return_status;
26605: RAISE G_EXCEPTION_HALT_VALIDATION;
26606: END IF;
26607:
26643: p_chr_id => l_to_chr_id,
26644: p_rle_code => l_components_tbl(i).attribute1,
26645: x_cpl_id => l_cpl_id);
26646:
26647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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
26644: p_rle_code => l_components_tbl(i).attribute1,
26645: x_cpl_id => l_cpl_id);
26646:
26647: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
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.
26681: x_doc_type => l_source_doc_type,
26682: x_doc_id => l_source_doc_id
26683: );
26684:
26685: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26686: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26687: x_return_status := l_return_status;
26688: RAISE G_EXCEPTION_HALT_VALIDATION;
26689: -- ELSE
26682: x_doc_id => l_source_doc_id
26683: );
26684:
26685: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26686: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26687: x_return_status := l_return_status;
26688: RAISE G_EXCEPTION_HALT_VALIDATION;
26689: -- ELSE
26690: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26686: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26687: x_return_status := l_return_status;
26688: RAISE G_EXCEPTION_HALT_VALIDATION;
26689: -- ELSE
26690: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26691: -- x_return_status := l_return_status;
26692: -- END IF;
26693: -- END IF;
26694: END IF;
26701: x_doc_type => l_target_doc_type,
26702: x_doc_id => l_target_doc_id
26703: );
26704:
26705: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26706: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26707: x_return_status := l_return_status;
26708: RAISE G_EXCEPTION_HALT_VALIDATION;
26709: -- ELSE
26702: x_doc_id => l_target_doc_id
26703: );
26704:
26705: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26706: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26707: x_return_status := l_return_status;
26708: RAISE G_EXCEPTION_HALT_VALIDATION;
26709: -- ELSE
26710: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26706: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26707: x_return_status := l_return_status;
26708: RAISE G_EXCEPTION_HALT_VALIDATION;
26709: -- ELSE
26710: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26711: -- x_return_status := l_return_status;
26712: -- END IF;
26713: -- END IF;
26714: END IF;
26731: p_document_number => p_contract_number,
26732: p_allow_duplicate_terms=>'Y'
26733: );
26734:
26735: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26736: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26737: x_return_status := l_return_status;
26738: RAISE G_EXCEPTION_HALT_VALIDATION;
26739: -- ELSE
26732: p_allow_duplicate_terms=>'Y'
26733: );
26734:
26735: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26736: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26737: x_return_status := l_return_status;
26738: RAISE G_EXCEPTION_HALT_VALIDATION;
26739: -- ELSE
26740: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26736: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26737: x_return_status := l_return_status;
26738: RAISE G_EXCEPTION_HALT_VALIDATION;
26739: -- ELSE
26740: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26741: -- x_return_status := l_return_status;
26742: -- END IF;
26743: -- END IF;
26744: END IF;
26764: ,x_msg_count => x_msg_count
26765: ,x_msg_data => x_msg_data
26766: ,x_return_status => l_return_status);
26767:
26768: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26769: x_return_status := l_return_status;
26770: RAISE G_EXCEPTION_HALT_VALIDATION;
26771: END IF;
26772: End;
26806: );
26807: END IF;
26808: END IF;
26809:
26810: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26811: x_return_status := l_return_status;
26812: RAISE G_EXCEPTION_HALT_VALIDATION;
26813: END IF;
26814: End;
26859: );
26860: END IF;
26861: END IF;
26862:
26863: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26864: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
26865: x_return_status := l_return_status;
26866: RAISE G_EXCEPTION_HALT_VALIDATION;
26867: END IF;
26860: END IF;
26861: END IF;
26862:
26863: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26864: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
26865: x_return_status := l_return_status;
26866: RAISE G_EXCEPTION_HALT_VALIDATION;
26867: END IF;
26868: END IF;
26877: ,l_module_name||'.Create_Transaction_Extension'
26878: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26879: );
26880: END IF;
26881: l_return_status := FND_API.G_RET_STS_ERROR;
26882: RAISE G_EXCEPTION_HALT_VALIDATION;
26883: End If;
26884:
26885:
26918: );
26919: END IF;
26920: END IF;
26921:
26922: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26923: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26924: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26925: x_return_status := l_return_status;
26926: RAISE G_EXCEPTION_HALT_VALIDATION;
26919: END IF;
26920: END IF;
26921:
26922: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26923: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26924: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26925: x_return_status := l_return_status;
26926: RAISE G_EXCEPTION_HALT_VALIDATION;
26927: ELSE
26920: END IF;
26921:
26922: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26923: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26924: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26925: x_return_status := l_return_status;
26926: RAISE G_EXCEPTION_HALT_VALIDATION;
26927: ELSE
26928: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
26964: x_msg_data => l_msg_data,
26965: p_commit => 'F'
26966: );
26967:
26968: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26969: x_return_status := l_return_status;
26970: RAISE G_EXCEPTION_HALT_VALIDATION;
26971: End If;
26972:
26977: x_msg_count => l_msg_count,
26978: x_msg_data => l_msg_data,
26979: p_chr_id => P_To_Chr_ID);
26980:
26981: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26982: x_return_status := l_return_status;
26983: RAISE G_EXCEPTION_HALT_VALIDATION;
26984: End If;
26985: END;
26994: /*cgopinee Bug fix for 6882512*/
26995: OKC_CTC_PVT.update_contact_stecode(p_chr_id => l_to_chr_id,
26996: x_return_status=>l_return_status);
26997:
26998: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
26999: RAISE G_EXCEPTION_HALT_VALIDATION;
27000: END IF;
27001:
27002: End If;
27024: --published
27025: ,p_include_cancelled_lines => p_include_cancelled_lines
27026: ,p_include_terminated_lines => p_include_terminated_lines);
27027:
27028: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
27029: x_return_status := l_return_status;
27030: RAISE G_EXCEPTION_HALT_VALIDATION;
27031: End If;
27032:
27041: --end npalepu
27042: ,P_Target_Contract_New_YN => l_Target_Contract_New_YN
27043: ,x_return_status => l_return_status);
27044:
27045: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
27046: x_return_status := l_return_status;
27047: RAISE G_EXCEPTION_HALT_VALIDATION;
27048: End If;
27049:
27103: ROLLBACK to copy_components;
27104:
27105: WHEN OTHERS THEN
27106: -- store SQL error message on message stack for caller
27107: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
27108: ROLLBACK to copy_components;
27109: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
27110:
27111: END copy_components;