[Home] [Help]
426: p_to_chr_id IN NUMBER) IS
427:
428: l_cacv_rec cacv_rec_type;
429: x_cacv_rec cacv_rec_type;
430: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
431:
432: CURSOR c_access IS
433: SELECT id
434: FROM okc_k_accesses_v
449: x_msg_data => x_msg_data,
450: p_cacv_rec => l_cacv_rec,
451: x_cacv_rec => x_cacv_rec);
452:
453: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
454: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
455: x_return_status := l_return_status;
456: RAISE G_EXCEPTION_HALT_VALIDATION;
457: ELSE
450: p_cacv_rec => l_cacv_rec,
451: x_cacv_rec => x_cacv_rec);
452:
453: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
454: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
455: x_return_status := l_return_status;
456: RAISE G_EXCEPTION_HALT_VALIDATION;
457: ELSE
458: x_return_status := l_return_status;
466: WHEN OTHERS THEN
467: -- store SQL error message on message stack for caller
468: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
469: -- notify caller of an UNEXPECTED error
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: END copy_accesses;
473:
474: ----------------------------------------------------------------------------
484: p_to_chr_id IN NUMBER) IS
485:
486: l_cpsv_rec cpsv_rec_type;
487: x_cpsv_rec cpsv_rec_type;
488: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
489:
490: CURSOR c_process IS
491: SELECT id
492: FROM okc_k_processes_v
508: x_msg_data => x_msg_data,
509: p_cpsv_rec => l_cpsv_rec,
510: x_cpsv_rec => x_cpsv_rec);
511:
512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
514: x_return_status := l_return_status;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: ELSE
509: p_cpsv_rec => l_cpsv_rec,
510: x_cpsv_rec => x_cpsv_rec);
511:
512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
513: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
514: x_return_status := l_return_status;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: ELSE
517: x_return_status := l_return_status;
525: WHEN OTHERS THEN
526: -- store SQL error message on message stack for caller
527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
528: -- notify caller of an UNEXPECTED error
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
530:
531: END copy_processes;
532:
533: ----------------------------------------------------------------------------
543: p_to_chr_id IN NUMBER) IS
544:
545: l_cgcv_rec cgcv_rec_type;
546: x_cgcv_rec cgcv_rec_type;
547: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
548:
549: CURSOR c_grpings IS
550: SELECT cgcv.id
551: FROM okc_k_grpings_v cgcv,
569: x_msg_data => x_msg_data,
570: p_cgcv_rec => l_cgcv_rec,
571: x_cgcv_rec => x_cgcv_rec);
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
575: x_return_status := l_return_status;
576: RAISE G_EXCEPTION_HALT_VALIDATION;
577: ELSE
570: p_cgcv_rec => l_cgcv_rec,
571: x_cgcv_rec => x_cgcv_rec);
572:
573: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
574: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
575: x_return_status := l_return_status;
576: RAISE G_EXCEPTION_HALT_VALIDATION;
577: ELSE
578: x_return_status := l_return_status;
586: WHEN OTHERS THEN
587: -- store SQL error message on message stack for caller
588: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
589: -- notify caller of an UNEXPECTED error
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591:
592: END copy_grpings;
593:
594: /******
608:
609: l_pavv_rec pavv_rec_type;
610: x_pavv_rec pavv_rec_type;
611:
612: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
613: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
614:
615: BEGIN
616: x_return_status := l_return_status;
628: x_msg_data => x_msg_data,
629: p_pavv_rec => l_pavv_rec,
630: x_pavv_rec => x_pavv_rec);
631:
632: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
633: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
634: x_return_status := l_return_status;
635: RAISE G_EXCEPTION_HALT_VALIDATION;
636: ELSE
629: p_pavv_rec => l_pavv_rec,
630: x_pavv_rec => x_pavv_rec);
631:
632: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
633: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
634: x_return_status := l_return_status;
635: RAISE G_EXCEPTION_HALT_VALIDATION;
636: ELSE
637: x_return_status := l_return_status;
646: WHEN OTHERS THEN
647: -- store SQL error message on message stack for caller
648: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
649: -- notify caller of an UNEXPECTED error
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
651:
652: END copy_price_att_values;
653:
654: *****************************/
670:
671: l_patv_rec patv_rec_type;
672: x_patv_rec patv_rec_type;
673:
674: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
675: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
676:
677: l_new_pat_id NUMBER;
678: BEGIN
696: p_patv_rec => l_patv_rec,
697: x_patv_rec => x_patv_rec);
698:
699:
700: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
701: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
702: x_return_status := l_return_status;
703: RAISE G_EXCEPTION_HALT_VALIDATION;
704: ELSE
697: x_patv_rec => x_patv_rec);
698:
699:
700: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
701: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
702: x_return_status := l_return_status;
703: RAISE G_EXCEPTION_HALT_VALIDATION;
704: ELSE
705: x_return_status := l_return_status;
715: WHEN OTHERS THEN
716: -- store SQL error message on message stack for caller
717: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
718: -- notify caller of an UNEXPECTED error
719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
720:
721: END copy_price_adjustments;
722: ************************************/
723: ---------------------------------------------------------------------------------------------------
727: ----------------------------------------------------------------------------
728: FUNCTION get_gvev_rec(p_gve_id IN NUMBER,
729: x_gvev_rec OUT NOCOPY gvev_rec_type)
730: RETURN VARCHAR2 IS
731: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
732: l_no_data_found BOOLEAN := TRUE;
733:
734: CURSOR c_gvev_rec IS
735: SELECT
755:
756: l_no_data_found := c_gvev_rec%NOTFOUND;
757: CLOSE c_gvev_rec;
758: IF l_no_data_found THEN
759: l_return_status := FND_API.G_RET_STS_ERROR;
760: return(l_return_status);
761: ELSE
762: return(l_return_status);
763: END IF;
765: WHEN OTHERS THEN
766: -- store SQL error message on message stack for caller
767: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
768: -- notify caller of an UNEXPECTED error
769: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
770: return(l_return_status);
771:
772: END get_gvev_rec;
773:
788:
789: l_gvev_rec gvev_rec_type;
790: x_gvev_rec gvev_rec_type;
791:
792: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
793:
794: BEGIN
795:
796: x_return_status := l_return_status;
818: x_msg_data => x_msg_data,
819: p_gvev_rec => l_gvev_rec,
820: x_gvev_rec => x_gvev_rec);
821:
822: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
823: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
824: x_return_status := l_return_status;
825: RAISE G_EXCEPTION_HALT_VALIDATION;
826: ELSE
819: p_gvev_rec => l_gvev_rec,
820: x_gvev_rec => x_gvev_rec);
821:
822: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
823: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
824: x_return_status := l_return_status;
825: RAISE G_EXCEPTION_HALT_VALIDATION;
826: ELSE
827: x_return_status := l_return_status;
836: WHEN OTHERS THEN
837: -- store SQL error message on message stack for caller
838: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
839: -- notify caller of an UNEXPECTED error
840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841:
842: END copy_governances;
843:
844: ----------------------------------------------------------------------------
862: x_ctcv_rec ctcv_rec_type;
863:
864: l_party_name VARCHAR2(200);
865: l_party_desc VARCHAR2(2000);
866: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
867: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
868:
869: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
870: SELECT dnz_chr_id
903: x_msg_data => x_msg_data,
904: p_cplv_rec => l_cplv_rec,
905: x_cplv_rec => x_cplv_rec);
906:
907: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
908: x_return_status := l_return_status;
909: RAISE G_EXCEPTION_HALT_VALIDATION;
910: END IF;
911:
930: x_msg_data => x_msg_data,
931: p_ctcv_rec => l_ctcv_rec,
932: x_ctcv_rec => x_ctcv_rec);
933:
934: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
935: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
936: x_return_status := l_return_status;
937: RAISE G_EXCEPTION_HALT_VALIDATION;
938: ELSE
931: p_ctcv_rec => l_ctcv_rec,
932: x_ctcv_rec => x_ctcv_rec);
933:
934: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
935: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
936: x_return_status := l_return_status;
937: RAISE G_EXCEPTION_HALT_VALIDATION;
938: ELSE
939: x_return_status := OKC_API.G_RET_STS_WARNING;
954: WHEN OTHERS THEN
955: -- store SQL error message on message stack for caller
956: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
957: -- notify caller of an UNEXPECTED error
958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959:
960: END copy_party_roles;
961:
962: /****************************
982: x_ocev_rec ocev_rec_type;
983: l_oatv_rec oatv_rec_type;
984: x_oatv_rec oatv_rec_type;
985:
986: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
987: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
988: l_new_cnh_id NUMBER;
989:
990: CURSOR c_cnlv IS
1039: p_cnhv_rec => l_cnhv_rec,
1040: x_cnhv_rec => x_cnhv_rec);
1041:
1042:
1043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1044: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1045: x_return_status := l_return_status;
1046: RAISE G_EXCEPTION_HALT_VALIDATION;
1047: ELSE
1040: x_cnhv_rec => x_cnhv_rec);
1041:
1042:
1043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1044: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1045: x_return_status := l_return_status;
1046: RAISE G_EXCEPTION_HALT_VALIDATION;
1047: ELSE
1048: x_return_status := OKC_API.G_RET_STS_WARNING;
1079: x_msg_data => x_msg_data,
1080: p_cnlv_rec => l_cnlv_rec,
1081: x_cnlv_rec => x_cnlv_rec);
1082:
1083: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1084: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1085: x_return_status := l_return_status;
1086: RAISE G_EXCEPTION_HALT_VALIDATION;
1087: ELSE
1080: p_cnlv_rec => l_cnlv_rec,
1081: x_cnlv_rec => x_cnlv_rec);
1082:
1083: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1084: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1085: x_return_status := l_return_status;
1086: RAISE G_EXCEPTION_HALT_VALIDATION;
1087: ELSE
1088: x_return_status := l_return_status;
1105: x_msg_data => x_msg_data,
1106: p_ocev_rec => l_ocev_rec,
1107: x_ocev_rec => x_ocev_rec);
1108:
1109: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: x_return_status := l_return_status;
1112: RAISE G_EXCEPTION_HALT_VALIDATION;
1113: ELSE
1106: p_ocev_rec => l_ocev_rec,
1107: x_ocev_rec => x_ocev_rec);
1108:
1109: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1110: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: x_return_status := l_return_status;
1112: RAISE G_EXCEPTION_HALT_VALIDATION;
1113: ELSE
1114: x_return_status := l_return_status;
1130: x_msg_data => x_msg_data,
1131: p_oatv_rec => l_oatv_rec,
1132: x_oatv_rec => x_oatv_rec);
1133:
1134: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1135: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1136: x_return_status := l_return_status;
1137: RAISE G_EXCEPTION_HALT_VALIDATION;
1138: ELSE
1131: p_oatv_rec => l_oatv_rec,
1132: x_oatv_rec => x_oatv_rec);
1133:
1134: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1135: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1136: x_return_status := l_return_status;
1137: RAISE G_EXCEPTION_HALT_VALIDATION;
1138: ELSE
1139: x_return_status := l_return_status;
1151: WHEN OTHERS THEN
1152: -- store SQL error message on message stack for caller
1153: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1154: -- notify caller of an UNEXPECTED error
1155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1156:
1157: END copy_events;
1158: ***************************/
1159: ----------------------------------------------------------------------------
1214: return x_from_version;
1215: EXCEPTION
1216: WHEN OTHERS THEN
1217: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1218: return FND_API.G_RET_STS_UNEXP_ERROR;
1219:
1220: END Get_Major_Version;
1221:
1222: PROCEDURE get_priced_line_rec(p_api_version IN NUMBER
1230: l_lty_code VARCHAR2(90);
1231: l_clev_rec clev_rec_type := p_clev_rec;
1232: l_cimv_rec cimv_rec_type;
1233:
1234: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1235:
1236: CURSOR c_lse(p_id IN NUMBER) IS
1237: SELECT lty_code,
1238: priced_yn
1281: x_msg_count => x_msg_count,
1282: x_msg_data => x_msg_data,
1283: p_cimv_rec => l_cimv_rec);
1284:
1285: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1286: l_clev_rec.price_negotiated := NULL;
1287: l_clev_rec.PRICE_UNIT := NULL;
1288: l_clev_rec.name := NULL;
1289: END IF;
1313:
1314: l_item_id VARCHAR2(40);
1315: l_counter_grp_id NUMBER;
1316: l_found BOOLEAN;
1317: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1318: l_ctr_grp_id_template NUMBER;
1319: l_ctr_grp_id_instance NUMBER;
1320: l_instcnd_inp_rec OKC_INST_CND_PUB.instcnd_inp_rec;
1321: l_ac_rec OKS_COVERAGES_PUB.ac_rec_type;
1369: );
1370: END IF;
1371:
1372:
1373: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1374: x_return_status := l_return_status;
1375: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: END IF;
1377:
1391: x_msg_count => x_msg_count,
1392: x_msg_data => x_msg_data,
1393: p_instcnd_inp_rec => l_instcnd_inp_rec);
1394:
1395: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1396: x_return_status := l_return_status;
1397: RAISE G_EXCEPTION_HALT_VALIDATION;
1398: END IF;
1399: End If;
1405: WHEN OTHERS THEN
1406: -- store SQL error message on message stack for caller
1407: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1408: -- notify caller of an UNEXPECTED error
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1410: END instantiate_counters_events;
1411:
1412: FUNCTION get_parent_date(p_from_start_date IN DATE,
1413: p_from_end_date IN DATE,
1512: x_msg_data => x_msg_data,
1513: p_oiev_rec => l_oiev_rec,
1514: x_oiev_rec => lx_oiev_rec);
1515:
1516: If (x_return_status = FND_API.G_RET_STS_SUCCESS) Then
1517: l_olev_rec.SELECT_YN := NULL;
1518: l_olev_rec.ACTIVE_YN := 'Y';
1519: l_olev_rec.PROCESS_FLAG := 'P';
1520: l_olev_rec.OIE_ID := lx_oiev_rec.id;
1528: x_msg_count => x_msg_count,
1529: x_msg_data => x_msg_data,
1530: p_olev_rec => l_olev_rec,
1531: x_olev_rec => lx_olev_rec);
1532: If (x_return_status = FND_API.G_RET_STS_SUCCESS) Then
1533: -- set g_op_lines table
1534: l_count := g_op_lines.COUNT + 1;
1535: g_op_lines(l_count).id := p_chrv_rec.ID;
1536: g_op_lines(l_count).ole_id := lx_olev_rec.ID;
1539:
1540: EXCEPTION
1541: when NO_DATA_FOUND then
1542: -- store SQL error message on message stack
1543: x_return_status := FND_API.G_RET_STS_ERROR;
1544: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1545: p_msg_name => 'OKC_NOT_FOUND',
1546: p_token1 => 'VALUE1',
1547: p_token1_value => 'Status Code',
1555: p_token1_value => sqlcode,
1556: p_token2 => g_sqlerrm_token,
1557: p_token2_value => sqlerrm);
1558: -- notify caller of an error as UNEXPECTED error
1559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1560: END Create_Renewal_Header_Link;
1561:
1562: ----------------------------------------------------------------------------
1563: --Proceudre copy_contract_header
1588: l_paa_id NUMBER;
1589: l_sts_code VARCHAR2(30);
1590: l_status_type VARCHAR2(30) := 'ENTERED';
1591: l_orig_system_source_code VARCHAR2(30) := 'OKC_HDR';
1592: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1593: l_from_version FND_ATTACHED_DOCUMENTS.PK2_VALUE%TYPE;
1594:
1595: l_euro_currency varchar2(15) := NULL; /* For Euro Conversion - Bug 2155930 */
1596: l_converted_amount number := NULL; /* For Euro Conversion - Bug 2155930 */
1687: if (g_pricelist is NULL) then
1688: fnd_message.set_name('OKC','OKC_PROFILE_CHECK');
1689: fnd_message.set_token('PROFILE','OKC_EURO_DEFAULT_PRICELIST');
1690: FND_MSG_PUB.add;
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: RAISE G_EXCEPTION_HALT_VALIDATION;
1693: end if;
1694:
1695: --/Rule Migration/
1809: );
1810: END IF;
1811: END IF;
1812:
1813: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1814: x_return_status := l_return_status;
1815: RAISE G_EXCEPTION_HALT_VALIDATION;
1816: END IF;
1817:
1827: x_msg_count => x_msg_count,
1828: x_msg_data => x_msg_data,
1829: p_chrv_rec => l_chrv_rec,
1830: p_to_chr_id => x_to_chr_id);
1831: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1832: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1833: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1834: FND_LOG.string(FND_LOG.level_statement
1835: ,l_module_name||'.create_renewal_header_link'
1846: /* 27-Apr-2006 hkamdar Commented code for copy attachment for bug #5173429.
1847: -- copy associated attachments
1848: l_from_version := Get_Major_Version(p_from_chr_id);
1849:
1850: IF (l_from_version = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1852: RAISE G_EXCEPTION_HALT_VALIDATION;
1853: END IF;
1854:
1847: -- copy associated attachments
1848: l_from_version := Get_Major_Version(p_from_chr_id);
1849:
1850: IF (l_from_version = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1852: RAISE G_EXCEPTION_HALT_VALIDATION;
1853: END IF;
1854:
1855: -- set attachement session variables
1929: x_msg_data => x_msg_data,
1930: p_from_chr_id => p_from_chr_id,
1931: p_to_chr_id => x_chrv_rec.id);
1932:
1933: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1934: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1935: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1936: FND_LOG.string(FND_LOG.level_statement
1937: ,l_module_name||'.copy_accesses'
1939: ||' '||SQLERRM
1940: );
1941: END IF;
1942: END IF;
1943: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1944: x_return_status := l_return_status;
1945: RAISE G_EXCEPTION_HALT_VALIDATION;
1946: ELSE
1947: x_return_status := l_return_status;
1956: x_msg_data => x_msg_data,
1957: p_from_chr_id => p_from_chr_id,
1958: p_to_chr_id => x_chrv_rec.id);
1959:
1960: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1961: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1962: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1963: FND_LOG.string(FND_LOG.level_statement
1964: ,l_module_name||'.copy_processes'
1966: ||' '||SQLERRM
1967: );
1968: END IF;
1969: END IF;
1970: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1971: x_return_status := l_return_status;
1972: RAISE G_EXCEPTION_HALT_VALIDATION;
1973: ELSE
1974: x_return_status := l_return_status;
1983: x_msg_data => x_msg_data,
1984: p_from_chr_id => p_from_chr_id,
1985: p_to_chr_id => x_chrv_rec.id);
1986:
1987: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1988: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1989: IF (FND_LOG.test(FND_LOG.level_statement, l_module_name)) THEN
1990: FND_LOG.string(FND_LOG.level_statement
1991: ,l_module_name||'.copy_grpings'
1993: ||' '||SQLERRM
1994: );
1995: END IF;
1996: END IF;
1997: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1998: x_return_status := l_return_status;
1999: RAISE G_EXCEPTION_HALT_VALIDATION;
2000: ELSE
2001: x_return_status := l_return_status;
2023: p_chr_id => x_chrv_rec.id,
2024: x_gvev_id => l_gvev_id);
2025:
2026:
2027: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2028: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: x_return_status := l_return_status;
2030: RAISE G_EXCEPTION_HALT_VALIDATION;
2031: ELSE
2024: x_gvev_id => l_gvev_id);
2025:
2026:
2027: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2028: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2029: x_return_status := l_return_status;
2030: RAISE G_EXCEPTION_HALT_VALIDATION;
2031: ELSE
2032: x_return_status := l_return_status;
2048: p_cle_id => NULL,
2049: p_chr_id => x_chrv_rec.id,
2050: x_pav_id => l_pav_id);
2051:
2052: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2053: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2054: x_return_status := l_return_status;
2055: RAISE G_EXCEPTION_HALT_VALIDATION;
2056: ELSE
2049: p_chr_id => x_chrv_rec.id,
2050: x_pav_id => l_pav_id);
2051:
2052: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2053: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2054: x_return_status := l_return_status;
2055: RAISE G_EXCEPTION_HALT_VALIDATION;
2056: ELSE
2057: x_return_status := l_return_status;
2070: p_cle_id => NULL,
2071: p_chr_id => x_chrv_rec.id,
2072: x_pat_id => l_pat_id);
2073:
2074: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2075: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2076: x_return_status := l_return_status;
2077: RAISE G_EXCEPTION_HALT_VALIDATION;
2078: ELSE
2071: p_chr_id => x_chrv_rec.id,
2072: x_pat_id => l_pat_id);
2073:
2074: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2075: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2076: x_return_status := l_return_status;
2077: RAISE G_EXCEPTION_HALT_VALIDATION;
2078: ELSE
2079: x_return_status := l_return_status;
2091: WHEN OTHERS THEN
2092: -- store SQL error message on message stack for caller
2093: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2094: -- notify caller of an UNEXPECTED error
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096:
2097: END copy_contract_header;
2098:
2099:
2101: --Function to populate the contract items record to be copied.
2102: ----------------------------------------------------------------------------
2103: FUNCTION get_cimv_rec(p_cim_id IN NUMBER,
2104: x_cimv_rec OUT NOCOPY cimv_rec_type) RETURN VARCHAR2 IS
2105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2106: l_no_data_found BOOLEAN := TRUE;
2107:
2108: CURSOR c_cimv_rec IS
2109: SELECT ID,
2139:
2140: l_no_data_found := c_cimv_rec%NOTFOUND;
2141: CLOSE c_cimv_rec;
2142: IF l_no_data_found THEN
2143: l_return_status := FND_API.G_RET_STS_ERROR;
2144: return(l_return_status);
2145: ELSE
2146: return(l_return_status);
2147: END IF;
2149: WHEN OTHERS THEN
2150: -- store SQL error message on message stack for caller
2151: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2152: -- notify caller of an UNEXPECTED error
2153: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2154: return(l_return_status);
2155:
2156: END get_cimv_rec;
2157: ----------------------------------------------------------------------------
2158: --Function to populate the contract access record to be copied.
2159: ----------------------------------------------------------------------------
2160: FUNCTION get_cacv_rec(p_cac_id IN NUMBER,
2161: x_cacv_rec OUT NOCOPY cacv_rec_type) RETURN VARCHAR2 IS
2162: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2163: l_no_data_found BOOLEAN := TRUE;
2164:
2165: CURSOR c_cacv_rec IS
2166: SELECT ID,
2182:
2183: l_no_data_found := c_cacv_rec%NOTFOUND;
2184: CLOSE c_cacv_rec;
2185: IF l_no_data_found THEN
2186: l_return_status := FND_API.G_RET_STS_ERROR;
2187: return(l_return_status);
2188: ELSE
2189: return(l_return_status);
2190: END IF;
2192: WHEN OTHERS THEN
2193: -- store SQL error message on message stack for caller
2194: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2195: -- notify caller of an UNEXPECTED error
2196: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2197: return(l_return_status);
2198:
2199: END get_cacv_rec;
2200:
2202: --Function to populate the contract party roles record to be copied.
2203: ----------------------------------------------------------------------------
2204: FUNCTION get_cplv_rec(p_cpl_id IN NUMBER,
2205: x_cplv_rec OUT NOCOPY cplv_rec_type) RETURN VARCHAR2 IS
2206: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2207: l_no_data_found BOOLEAN := TRUE;
2208:
2209: CURSOR c_cplv_rec IS
2210: SELECT ID,
2342: WHEN OTHERS THEN
2343: -- store SQL error message on message stack for caller
2344: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2345: -- notify caller of an UNEXPECTED error
2346: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2347: return(l_return_status);
2348:
2349: END get_cplv_rec;
2350:
2353: --Function to populate the contract process record to be copied.
2354: ----------------------------------------------------------------------------
2355: FUNCTION get_cpsv_rec(p_cps_id IN NUMBER,
2356: x_cpsv_rec OUT NOCOPY cpsv_rec_type) RETURN VARCHAR2 IS
2357: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2358: l_no_data_found BOOLEAN := TRUE;
2359:
2360: CURSOR c_cpsv_rec IS
2361: SELECT ID,
2412:
2413: l_no_data_found := c_cpsv_rec%NOTFOUND;
2414: CLOSE c_cpsv_rec;
2415: IF l_no_data_found THEN
2416: l_return_status := FND_API.G_RET_STS_ERROR;
2417: return(l_return_status);
2418: ELSE
2419: return(l_return_status);
2420: END IF;
2422: WHEN OTHERS THEN
2423: -- store SQL error message on message stack for caller
2424: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2425: -- notify caller of an UNEXPECTED error
2426: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2427: return(l_return_status);
2428:
2429: END get_cpsv_rec;
2430: ----------------------------------------------------------------------------
2431: --Function to populate the contract group record to be copied.
2432: ----------------------------------------------------------------------------
2433: FUNCTION get_cgcv_rec(p_cgc_id IN NUMBER,
2434: x_cgcv_rec OUT NOCOPY cgcv_rec_type) RETURN VARCHAR2 IS
2435: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2436: l_no_data_found BOOLEAN := TRUE;
2437:
2438: CURSOR c_cgcv_rec IS
2439: SELECT ID,
2452: x_cgcv_rec.INCLUDED_CGP_ID;
2453: l_no_data_found := c_cgcv_rec%NOTFOUND;
2454: CLOSE c_cgcv_rec;
2455: IF l_no_data_found THEN
2456: l_return_status := FND_API.G_RET_STS_ERROR;
2457: return(l_return_status);
2458: ELSE
2459: return(l_return_status);
2460: END IF;
2462: WHEN OTHERS THEN
2463: -- store SQL error message on message stack for caller
2464: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2465: -- notify caller of an UNEXPECTED error
2466: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2467: return(l_return_status);
2468:
2469: END get_cgcv_rec;
2470: ----------------------------------------------------------------------------
2471: --Function to populate the condition headers record to be copied.
2472: ----------------------------------------------------------------------------
2473: FUNCTION get_cnhv_rec(p_cnh_id IN NUMBER,
2474: x_cnhv_rec OUT NOCOPY cnhv_rec_type) RETURN VARCHAR2 IS
2475: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2476: l_no_data_found BOOLEAN := TRUE;
2477:
2478: CURSOR c_cnhv_rec IS
2479: SELECT ID,
2559:
2560: l_no_data_found := c_cnhv_rec%NOTFOUND;
2561: CLOSE c_cnhv_rec;
2562: IF l_no_data_found THEN
2563: l_return_status := FND_API.G_RET_STS_ERROR;
2564: return(l_return_status);
2565: ELSE
2566: return(l_return_status);
2567: END IF;
2569: WHEN OTHERS THEN
2570: -- store SQL error message on message stack for caller
2571: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2572: -- notify caller of an UNEXPECTED error
2573: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574: return(l_return_status);
2575:
2576: END get_cnhv_rec;
2577: ----------------------------------------------------------------------------
2578: --Function to populate the condition lines record to be copied.
2579: ----------------------------------------------------------------------------
2580: FUNCTION get_cnlv_rec(p_cnl_id IN NUMBER,
2581: x_cnlv_rec OUT NOCOPY cnlv_rec_type) RETURN VARCHAR2 IS
2582: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2583: l_no_data_found BOOLEAN := TRUE;
2584:
2585: CURSOR c_cnlv_rec IS
2586: SELECT ID,
2663:
2664: l_no_data_found := c_cnlv_rec%NOTFOUND;
2665: CLOSE c_cnlv_rec;
2666: IF l_no_data_found THEN
2667: l_return_status := FND_API.G_RET_STS_ERROR;
2668: return(l_return_status);
2669: ELSE
2670: return(l_return_status);
2671: END IF;
2673: WHEN OTHERS THEN
2674: -- store SQL error message on message stack for caller
2675: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2676: -- notify caller of an UNEXPECTED error
2677: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2678: return(l_return_status);
2679:
2680: END get_cnlv_rec;
2681: ----------------------------------------------------------------------------
2684:
2685: FUNCTION get_ctcv_rec(p_ctc_id IN NUMBER,
2686: x_ctcv_rec OUT NOCOPY ctcv_rec_type) RETURN VARCHAR2 IS
2687:
2688: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2689: l_no_data_found BOOLEAN := TRUE;
2690:
2691: CURSOR c_ctcv_rec IS
2692: SELECT ID,
2756: x_ctcv_rec.PRIMARY_YN;
2757: l_no_data_found := c_ctcv_rec%NOTFOUND;
2758: CLOSE c_ctcv_rec;
2759: IF l_no_data_found THEN
2760: l_return_status := FND_API.G_RET_STS_ERROR;
2761: return(l_return_status);
2762: ELSE
2763: return(l_return_status);
2764: END IF;
2766: WHEN OTHERS THEN
2767: -- store SQL error message on message stack for caller
2768: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2769: -- notify caller of an UNEXPECTED error
2770: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2771: return(l_return_status);
2772:
2773: END get_ctcv_rec;
2774:
2777: ----------------------------------------------------------------------------
2778: FUNCTION get_chrv_rec(p_chr_id IN NUMBER,
2779: x_chrv_rec OUT NOCOPY chrv_rec_type)
2780: RETURN VARCHAR2 IS
2781: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2782: l_no_data_found BOOLEAN := TRUE;
2783:
2784: -- Bug 1922121: Compilation errors on ktst115. Problem occurred
2785: -- because application_id is defined as varchar2(240) in
2983:
2984: l_no_data_found := c_chrv_rec%NOTFOUND;
2985: CLOSE c_chrv_rec;
2986: IF l_no_data_found THEN
2987: l_return_status := FND_API.G_RET_STS_ERROR;
2988: return(l_return_status);
2989: ELSE
2990: return(l_return_status);
2991: END IF;
2993: WHEN OTHERS THEN
2994: -- store SQL error message on message stack for caller
2995: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2996: -- notify caller of an UNEXPECTED error
2997: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2998: return(l_return_status);
2999: END get_chrv_rec;
3000:
3001: ----------------------------------------------------------------------------
3004:
3005: FUNCTION get_ocev_rec(p_oce_id IN NUMBER,
3006: x_ocev_rec OUT NOCOPY ocev_rec_type) RETURN VARCHAR2 IS
3007:
3008: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3009: l_no_data_found BOOLEAN := TRUE;
3010:
3011: CURSOR c_ocev_rec IS
3012: SELECT ID,
3063:
3064: l_no_data_found := c_ocev_rec%NOTFOUND;
3065: CLOSE c_ocev_rec;
3066: IF l_no_data_found THEN
3067: l_return_status := FND_API.G_RET_STS_ERROR;
3068: return(l_return_status);
3069: ELSE
3070: return(l_return_status);
3071: END IF;
3073: WHEN OTHERS THEN
3074: -- store SQL error message on message stack for caller
3075: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3076: -- notify caller of an UNEXPECTED error
3077: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3078: return(l_return_status);
3079: END get_ocev_rec;
3080:
3081: ----------------------------------------------------------------------------
3083: ----------------------------------------------------------------------------
3084: FUNCTION get_oatv_rec(p_oat_id IN NUMBER,
3085: x_oatv_rec OUT NOCOPY oatv_rec_type) RETURN VARCHAR2 IS
3086:
3087: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3088: l_no_data_found BOOLEAN := TRUE;
3089:
3090: CURSOR c_oatv_rec IS
3091: SELECT ID,
3109:
3110: l_no_data_found := c_oatv_rec%NOTFOUND;
3111: CLOSE c_oatv_rec;
3112: IF l_no_data_found THEN
3113: l_return_status := FND_API.G_RET_STS_ERROR;
3114: return(l_return_status);
3115: ELSE
3116: return(l_return_status);
3117: END IF;
3119: WHEN OTHERS THEN
3120: -- store SQL error message on message stack for caller
3121: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3122: -- notify caller of an UNEXPECTED error
3123: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3124: return(l_return_status);
3125:
3126: END get_oatv_rec;
3127:
3129: -----------------------------------------------------------------------------------------------
3130: FUNCTION get_pavv_rec(p_pav_id IN NUMBER,
3131: x_pavv_rec OUT NOCOPY pavv_rec_type) RETURN VARCHAR2 IS
3132:
3133: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3134: l_no_data_found BOOLEAN := TRUE;
3135:
3136: CURSOR c_pavv_rec IS
3137: SELECT ID,
3564: WHEN OTHERS THEN
3565: -- store SQL error message on message stack for caller
3566: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3567: -- notify caller of an UNEXPECTED error
3568: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3569: return(l_return_status);
3570:
3571: END get_pavv_rec;
3572:
3575: ----------------------------------------------------------------------------
3576: FUNCTION get_patv_rec(p_pat_id IN NUMBER,
3577: x_patv_rec OUT NOCOPY patv_rec_type) RETURN VARCHAR2 IS
3578:
3579: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3580: l_no_data_found BOOLEAN := TRUE;
3581:
3582: CURSOR c_patv_rec IS
3583: SELECT
3734: WHEN OTHERS THEN
3735: -- store SQL error message on message stack for caller
3736: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3737: -- notify caller of an UNEXPECTED error
3738: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3739: return(l_return_status);
3740:
3741: END get_patv_rec;
3742: --------------------------------------------------------------------------------------------------
3796: l_topline_num_initialized VARCHAR2(1) := 'N';
3797: l_topline_no NUMBER := -99;
3798:
3799: BEGIN
3800: x_return_status := FND_API.G_RET_STS_SUCCESS;
3801:
3802: If (P_Partial_Copy_YN = 'N') then
3803: OPEN allLines;
3804: Elsif (P_Partial_Copy_YN = 'Y') then
3931: Elsif partialLines%ISOPEN THEN
3932: CLOSE partialLines;
3933: End If;
3934: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3936:
3937: End GenerateNewLineNumber;
3938:
3939: --===================================================
3951:
3952: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_K_LINES_TL';
3953: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
3954:
3955: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3956:
3957: CURSOR GetOkcLinesTLFull(P_To_Chr_ID IN NUMBER) IS
3958: SELECT
3959: OkcTL.ID AS OkcTL_OldID
4119: CLOSE GetOkcLinesTLFull;
4120: ELSIF GetOkcLinesTLPartial%ISOPEN THEN
4121: CLOSE GetOkcLinesTLPartial;
4122: END IF;
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4124: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
4125: RAISE;
4126:
4127: End copy_okc_k_lines_tl;
4160:
4161: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PRICE_ATT_VALUES';
4162: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
4163:
4164: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4165: CURSOR GetOkcPAVFull IS
4166: SELECT
4167: okcPAV.ID AS okcPAV_OldID
4168: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS okcPAV_NewID
6927: CLOSE GetOkcPAVPartial_H;
6928: ELSIF GetOkcPAVPartial_L%ISOPEN THEN
6929: CLOSE GetOkcPAVPartial_L;
6930: END IF;
6931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6932: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
6933: RAISE;
6934:
6935: End copy_okc_price_att_values;
6968:
6969: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PRICE_ADJUSTMENTS';
6970: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
6971:
6972: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6973:
6974: CURSOR GetOkcPAFull IS
6975: SELECT
6976: okcPA.ID AS okcPA_OldID
7949: CLOSE GetOkcPAPartial_HNL;
7950: ELSIF GetOkcPAPartial_L%ISOPEN THEN
7951: CLOSE GetOkcPAPartial_L;
7952: END IF;
7953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7954: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
7955: RAISE;
7956:
7957: End copy_okc_price_adjustments;
7973:
7974: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PARTY_ROLES_B';
7975: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
7976:
7977: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
7978: CURSOR GetOkcPRBFull IS
7979: SELECT
7980: okcPRB.ID AS okcPRB_OldID
7981: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS okcPRB_NewID
8360: CLOSE GetOkcPRBFull;
8361: ELSIF GetOkcPRBPartial%ISOPEN THEN
8362: CLOSE GetOkcPRBPartial;
8363: END IF;
8364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8365: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8366: RAISE;
8367:
8368: End copy_okc_k_party_roles_b;
8387: l_cplv_rec cplv_rec_type;
8388: x_cplv_rec cplv_rec_type;
8389: l_vendor_role_id NUMBER;
8390: l_create_vendor_yn VARCHAR2(1) := 'N';
8391: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8392:
8393: CURSOR getSourceHdrVendorPartyRoleID IS
8394: SELECT id
8395: FROM okc_k_party_roles_b
8451: ||'K-ID:'||x_cplv_rec.dnz_chr_id
8452: ||'Cpl ID:'||x_cplv_rec.id
8453: );
8454: END IF;
8455: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
8456: FND_MSG_PUB.add_exc_msg(G_PKG_NAME
8457: , l_api_name||':OKC_CONTRACT_PARTY_PUB.create_k_party_role'
8458: , substr(x_msg_data,1,240));
8459: RETURN;
8498:
8499: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_PARTY_ROLES_TL';
8500: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8501:
8502: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8503: CURSOR GetOkcPRTLFull IS
8504: SELECT
8505: okcPRTL.ID AS okcPRTL_OldID
8506: ,okcPRB.ID AS okcPRTL_NewID
8630: CLOSE GetOkcPRTLFull;
8631: Elsif GetOkcPRTLPartial%ISOPEN then
8632: CLOSE GetOkcPRTLPartial;
8633: End If;
8634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8635: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8636: RAISE;
8637:
8638:
8654:
8655: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_CONTACTS';
8656: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8657:
8658: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8659: CURSOR GetOkcCFull IS
8660: SELECT
8661: okcC.ID AS okcC_OldID
8662: , To_number(rawtohex(sys_guid()), HexFormatStr) AS okcC_NewID
8919: CLOSE GetOkcCFull;
8920: Elsif (GetOkcCPartial%ISOPEN) then
8921: CLOSE GetOkcCPartial;
8922: End If;
8923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
8925: RAISE;
8926:
8927:
8939:
8940: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKC_OPERATION_LINES';
8941: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
8942:
8943: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8944:
8945: CURSOR GetOIEID IS
8946: SELECT ID
8947: from OKC_OPERATION_INSTANCES
9095: End If;
9096: If GetOIEID%ISOPEN then
9097: CLOSE GetOIEID;
9098: End If;
9099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9100: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9101: RAISE;
9102:
9103: End copy_okc_operation_lines;
9118:
9119: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_K_LINES_TL';
9120: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9121:
9122: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9123: CURSOR GetOksTLFull IS
9124: SELECT
9125: oksTL.ID AS oksTL_OldID
9126: , oksB.ID AS oksTL_NewID
9250: Elsif (GetOksTLPartial%ISOPEN) then
9251: CLOSE GetOksTLPartial;
9252: End If;
9253:
9254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9255: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9256: RAISE;
9257:
9258:
9272: ,x_return_status OUT NOCOPY VARCHAR2) IS
9273:
9274: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_REV_DISTRIBUTIONS';
9275: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9276: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9277:
9278: CURSOR GetOksRDFull IS
9279: SELECT
9280: oksRD.ID AS OksRD_OldID
9397: CLOSE GetOksRDFull;
9398: Elsif (GetOksRDPartial%ISOPEN) then
9399: CLOSE GetOksRDPartial;
9400: End If;
9401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9402: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9403: RAISE;
9404:
9405: End copy_oks_rev_distributions;
9419:
9420: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_QUALIFIERS';
9421: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9422:
9423: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9424:
9425: CURSOR GetOksQFull IS
9426: SELECT
9427: oksQ.QUALIFIER_ID AS oksQ_OldQualifierID
9742: CLOSE GetOksQFull;
9743: Elsif (GetOksQPartial%ISOPEN) then
9744: CLOSE GetOksQPartial;
9745: End IF;
9746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9747: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9748: RAISE;
9749:
9750:
9766: ,x_return_status OUT NOCOPY VARCHAR2) IS
9767:
9768: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_COVERAGE_TIMEZONES';
9769: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9770: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9771:
9772: CURSOR GetOksCTZFull IS
9773: SELECT
9774: oksCTZ.ID AS oksCTZ_OldID --*
9930: CLOSE GetOksCTZFull;
9931: Elsif (GetOksCTZPartial%ISOPEN) then
9932: CLOSE GetOksCTZPartial;
9933: End IF;
9934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9935: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
9936: RAISE;
9937:
9938: End copy_oks_coverage_timezones;
9954: ,x_return_status OUT NOCOPY VARCHAR2) IS
9955:
9956: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_COVERAGE_TIMES';
9957: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
9958: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9959:
9960: CURSOR GetOksCTFull IS
9961: SELECT
9962: oksCT.ID AS oksCT_OldID --*
10159: Elsif (GetOksCTPartial%ISOPEN) then
10160: CLOSE GetOksCTPartial;
10161: End IF;
10162:
10163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10165: RAISE;
10166:
10167: End copy_oks_coverage_times;
10182: ,x_return_status OUT NOCOPY VARCHAR2) IS
10183:
10184: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_ACTIVITIES';
10185: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10186: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10187:
10188: CURSOR GetOksPMAFull IS
10189: SELECT
10190: oksPMA.ID AS oksPMA_OldID --*
10360: Elsif (GetOksPMAPartial%ISOPEN) then
10361: CLOSE GetOksPMAPartial;
10362: End IF;
10363:
10364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10365: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10366: RAISE;
10367:
10368: End copy_oks_pm_activities;
10383: ,x_return_status OUT NOCOPY VARCHAR2) IS
10384:
10385: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_STREAM_LEVELS';
10386: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10387: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10388: CURSOR GetOksPMSLFull IS
10389: SELECT
10390: oksPMSL.ID AS oksPMSL_OldID --*
10391: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS oksPMSL_NewID --*
10669: Elsif (GetOksPMSLPartial%ISOPEN) then
10670: CLOSE GetOksPMSLPartial;
10671: End IF;
10672:
10673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10674: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10675: RAISE;
10676:
10677:
10693: ,x_return_status OUT NOCOPY VARCHAR2) IS
10694:
10695: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_PM_SCHEDULES';
10696: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
10697: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
10698: CURSOR GetOksPMSCHFull IS
10699: SELECT
10700: oksPMSCH.ID AS oksPMSCH_OldID --*
10701: ,To_number(rawtohex(sys_guid()), HexFormatStr) AS oksPMSCH_NewID --*
10885: CLOSE GetOksPMSCHFull;
10886: Elsif (GetOksPMSCHPartial%ISOPEN) then
10887: CLOSE GetOksPMSCHPartial;
10888: End IF;
10889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10890: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
10891: RAISE;
10892:
10893: End copy_oks_pm_schedules;
10949: ,x_msg_count => x_msg_count
10950: ,x_msg_data => x_msg_data
10951: ,p_contract_line_id => l_lines_tbl(i).LINE_ID);
10952:
10953: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
10954: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
10955: FND_LOG.string(FND_LOG.level_statement
10956: ,l_module_name
10957: ,'Return status from OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE : x_return_status ='||x_return_status
10968: ,'Exception in call to OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE, x_return_status ='||x_return_status
10969: ||'SQLERRM ='||SQLERRM
10970: );
10971: END IF;
10972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10973: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
10974: RAISE;
10975: End;
10976: END LOOP; --End LOOP for looping through l_lines_tbl rows
10983: End If;
10984:
10985: EXCEPTION
10986: WHEN OTHERS THEN
10987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10988: If GetLinesWithDatesChanged%ISOPEN then
10989: CLOSE GetLinesWithDatesChanged;
10990: End If;
10991: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11006: ,x_return_status OUT NOCOPY VARCHAR2) IS
11007:
11008: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_ACTION_TIME_TYPES';
11009: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11010: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11011:
11012: CURSOR GetOksATTFull IS
11013: SELECT
11014: oksATT.ID AS oksATT_OldID --*
11162: Elsif (GetOksATTPartial%ISOPEN) then
11163: CLOSE GetOksATTPartial;
11164: End IF;
11165:
11166: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11167: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11168: RAISE;
11169:
11170: End copy_oks_action_time_types;
11185: ,x_return_status OUT NOCOPY VARCHAR2) IS
11186:
11187: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_ACTION_TIMES';
11188: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11189: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11190:
11191: CURSOR GetOksATFull IS
11192: SELECT
11193: oksAT.ID AS oksAT_OldID
11377: Elsif (GetOksATPartial%ISOPEN) then
11378: CLOSE GetOksATPartial;
11379: End IF;
11380:
11381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11382: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11383: RAISE;
11384:
11385:
11415: ,x_return_status OUT NOCOPY VARCHAR2) IS
11416:
11417: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_SALES_CREDITS';
11418: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11419: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11420:
11421: CURSOR GetOksSCFull IS
11422: SELECT
11423: oksSC.ID AS oksSC_OldID
11689: Elsif GetOksSCPartial_L%ISOPEN then
11690: CLOSE GetOksSCPartial_L;
11691: End If;
11692:
11693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11694: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11695: RAISE;
11696:
11697: End copy_oks_k_sales_credits;
11712: ,x_return_status OUT NOCOPY VARCHAR2) IS
11713:
11714: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_BILLRATE_SCHEDULES';
11715: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
11716: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
11717:
11718: CURSOR GetOksBSCHFull IS
11719: SELECT
11720: oksBSCH.ID AS oksBSCH_OldID
11967: Elsif (GetOksBSCHPartial%ISOPEN) then
11968: CLOSE GetOksBSCHPartial;
11969: End IF;
11970:
11971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11972: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
11973: RAISE;
11974:
11975:
12009: ,x_return_status OUT NOCOPY VARCHAR2) IS
12010:
12011: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_STREAM_LEVELS_B';
12012: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
12013: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12014:
12015: CURSOR GetOksSLFull IS
12016: SELECT
12017: oksSL.ID AS oksSL_OldID
12654: Elsif (GetOksSLPartial_L%ISOPEN) then
12655: CLOSE GetOksSLPartial_L;
12656: End If;
12657:
12658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12659: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
12660: RAISE;
12661:
12662: End copy_oks_stream_levels_b;
12692: ,x_return_status OUT NOCOPY VARCHAR2) IS
12693:
12694: l_api_name CONSTANT VARCHAR2(30) := 'COPY_OKS_LEVEL_ELEMENTS';
12695: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
12696: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12697:
12698: /******
12699: CURSOR GetOksLEFull IS
12700: SELECT
13332: Elsif (GetOksLEPartial_L%ISOPEN) then
13333: CLOSE GetOksLEPartial_L;
13334: End If;
13335:
13336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13337: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
13338: RAISE;
13339:
13340:
13452: END IF;
13453:
13454: EXCEPTION
13455: WHEN OTHERS THEN
13456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13457: IF GetTrgHdrPPAttributes%ISOPEN then
13458: CLOSE GetTrgHdrPPAttributes;
13459: End If;
13460: IF GetTargetLines_F%ISOPEN then
13755: BEGIN --Begin of looping through l_SourceStreams_tbl
13756: FOR j IN l_SourceStreams_tbl.FIRST..l_SourceStreams_tbl.LAST LOOP --4)
13757: l_TargetTopLineStreams_tbl_Ctr := l_TargetTopLineStreams_tbl_Ctr + 1;
13758:
13759: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).id := FND_API.g_miss_num;
13760: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
13761: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
13762: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
13763: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).sequence_no := l_SourceStreams_tbl(j).sequence_no;
13756: FOR j IN l_SourceStreams_tbl.FIRST..l_SourceStreams_tbl.LAST LOOP --4)
13757: l_TargetTopLineStreams_tbl_Ctr := l_TargetTopLineStreams_tbl_Ctr + 1;
13758:
13759: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).id := FND_API.g_miss_num;
13760: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
13761: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
13762: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
13763: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).sequence_no := l_SourceStreams_tbl(j).sequence_no;
13764: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).uom_code := l_SourceStreams_tbl(j).uom_code;
13776: l_TargetTopLineStreams_tbl(l_TargetTopLineStreams_tbl_Ctr).lines_detailed_yn := l_SourceStreams_tbl(j).lines_detailed_yn;
13777: END LOOP; --End LOOP for looping through Source Streams PLSQL table --4)
13778: EXCEPTION
13779: WHEN OTHERS THEN
13780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13781: l_stage := 'Looping through l_SourceStreams_tbl';
13782: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13783: END; --End of looping through l_SourceStreams_tbl
13784: END IF; -- End of if check for l_SourceStreams_tbl.COUNT > 0
13790: End If;
13791: EXCEPTION
13792: WHEN OTHERS THEN
13793: l_stage := 'Fetching from cursor GetStreamsForSourceTopLine';
13794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13795: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13796:
13797: END; --End of Fetch from GetStreamsForSourceTopLine
13798:
13812: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
13813: ||',x_return_status='||x_return_status
13814: );
13815: END IF;
13816: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13817: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13818: RETURN;
13819: END IF;
13820:
13827: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status ='||x_return_status
13828: ||'SQLERRM ='||SQLERRM
13829: );
13830: END IF;
13831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13832: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
13833: RAISE;
13834: END;
13835: --------End of BSCH Creation for Top Line
13857: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
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_cp', substr(SQLERRM,1,240));
13863: RETURN;
13864: END IF;
13865:
13874: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
13875: ||'SQLERRM ='||SQLERRM
13876: );
13877: END IF;
13878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13879: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
13880: RAISE;
13881: END;
13882: --------End of BSCH Creation for Subline---------------
13884: END IF; --End If for GEN_SUBLINE_BSCH_YN = 'Y'
13885:
13886: END IF; --End If for CLE_ID is NULL check
13887:
13888: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
13889: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
13890: FND_LOG.string(FND_LOG.level_statement
13891: ,l_module_name
13892: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
13897:
13898: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
13899: EXCEPTION WHEN OTHERS THEN
13900: l_stage := 'Looping through TargetLinesRecTab';
13901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13902: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
13903: END; --End of Begin for looping through TargetLinesRecTab
13904: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
13905:
13924:
13925:
13926: EXCEPTION
13927: WHEN OTHERS THEN
13928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13929: IF GetStreamsForSourceTopLine%ISOPEN THEN
13930: CLOSE GetStreamsForSourceTopLine;
13931: END IF;
13932: IF GetTargetLinesForBSCHRegen_P%ISOPEN THEN
14036: ,x_quantity => l_uom_quantity
14037: ,x_timeunit => l_tce_code
14038: ,x_return_status => x_return_status);
14039:
14040: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14041: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_UTIL_PUB.get_seeded_timeunit', substr(SQLERRM,1,240));
14042: RETURN;
14043: END IF;
14044:
14064: --end npalepu
14065:
14066: BEGIN --Begin of populating Stream Table for Target Header
14067: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).level_periods := l_level_periods;
14068: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).id := FND_API.g_miss_num;
14069: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).chr_id := P_To_Chr_ID;
14070: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).cle_id := FND_API.g_miss_num;
14071: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14072: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).sequence_no := 1;
14066: BEGIN --Begin of populating Stream Table for Target Header
14067: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).level_periods := l_level_periods;
14068: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).id := FND_API.g_miss_num;
14069: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).chr_id := P_To_Chr_ID;
14070: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).cle_id := FND_API.g_miss_num;
14071: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14072: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).sequence_no := 1;
14073: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).uom_code := l_resultant_PriceUOM;
14074: l_HdrStreams_tbl(l_HdrStreams_tbl_Ctr).start_date := StartDate;
14090: ,'After call to OKS_BILL_SCH.create_hdr_bill_sch'
14091: ||',x_return_status='||x_return_status
14092: );
14093: END IF;
14094: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14095: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_hdr_bill_sch', substr(SQLERRM,1,240));
14096: RETURN;
14097: END IF;
14098:
14106: --end npalepu
14107:
14108: BEGIN --Begin of populating Stream Table for Target Top Line
14109: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).level_periods := l_level_periods;
14110: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14111: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14112: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := P_To_Line_ID;
14113: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14114: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := 1;
14107:
14108: BEGIN --Begin of populating Stream Table for Target Top Line
14109: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).level_periods := l_level_periods;
14110: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14111: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14112: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := P_To_Line_ID;
14113: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14114: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := 1;
14115: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_resultant_PriceUOM;
14135: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
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_bill_sch_rules', substr(SQLERRM,1,240));
14141: RETURN;
14142: END IF;
14143: END IF; --End of P_To_Line_ID check
14150: ,'Exception in instantiate_bsch_using_PPSetup, x_return_status ='||x_return_status
14151: ||'SQLERRM ='||SQLERRM
14152: );
14153: END IF;
14154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14155: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14156: RAISE;
14157:
14158: END;
14557: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
14558: -- End NECHATUR Bug#5349539
14559: ,x_return_status => x_return_status);
14560:
14561: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14562: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14563: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14564: FND_LOG.string(FND_LOG.level_statement
14565: ,l_module_name
14708: BEGIN --Begin of looping through l_TrgHdrStreams_Tbl
14709: FOR j IN l_TrgHdrStreams_Tbl.FIRST..l_TrgHdrStreams_Tbl.LAST LOOP --4)
14710: l_LineStreams_tbl_Ctr := l_LineStreams_tbl_Ctr + 1;
14711:
14712: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14713: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14714: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14715: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14716: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_TrgHdrStreams_Tbl(j).sequence_no;
14709: FOR j IN l_TrgHdrStreams_Tbl.FIRST..l_TrgHdrStreams_Tbl.LAST LOOP --4)
14710: l_LineStreams_tbl_Ctr := l_LineStreams_tbl_Ctr + 1;
14711:
14712: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14713: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14714: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14715: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14716: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_TrgHdrStreams_Tbl(j).sequence_no;
14717: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_TrgHdrStreams_Tbl(j).uom_code;
14729: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).lines_detailed_yn := l_TrgHdrStreams_Tbl(j).lines_detailed_yn;
14730: END LOOP; --End LOOP for looping through Target header Streams PLSQL table
14731: EXCEPTION
14732: WHEN OTHERS THEN
14733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14734: l_stage := 'Looping through l_TrgHdrStreams_Tbl';
14735: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14736: RAISE;
14737: END; --End of looping through l_TrgHdrStreams_Tbl
14750: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14751: ||',x_return_status='||x_return_status
14752: );
14753: END IF;
14754: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14755: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14756: RETURN;
14757: END IF;
14758: EXCEPTION
14756: RETURN;
14757: END IF;
14758: EXCEPTION
14759: WHEN OTHERS THEN
14760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14761: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14762: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14763: RAISE;
14764: END;
14810: ,P_INVOICE_OFFSET_DAYS =>L_INVOICE_OFFSET_DAYS
14811: ,P_INTERFACE_OFFSET_DAYS =>L_INTERFACE_OFFSET_DAYS
14812: -- End NECHATUR Bug#5349539
14813: ,x_return_status => x_return_status);
14814: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14815: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to instantiate_bsch_using_PPSetup', substr(SQLERRM,1,240));
14816: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
14817: FND_LOG.string(FND_LOG.level_statement
14818: ,l_module_name
14823: END IF;
14824:
14825: EXCEPTION
14826: WHEN OTHERS THEN
14827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14828: l_stage := 'instantiate_bsch_using_PPSetup';
14829: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14830: RAISE;
14831: End;
14907: --errorout_hk('due_arr_yn-'|| l_SrcLnStreams_Tbl(j).due_arr_yn);
14908: --errorout_hk('amount-'|| l_SrcLnStreams_Tbl(j).amount);
14909: --errorout_hk('lines_detailed_yn-'|| l_SrcLnStreams_Tbl(j).lines_detailed_yn);
14910:
14911: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14912: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14913: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14914: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14915: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_SrcLnStreams_Tbl(j).sequence_no;
14908: --errorout_hk('amount-'|| l_SrcLnStreams_Tbl(j).amount);
14909: --errorout_hk('lines_detailed_yn-'|| l_SrcLnStreams_Tbl(j).lines_detailed_yn);
14910:
14911: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).id := FND_API.g_miss_num;
14912: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).chr_id := FND_API.g_miss_num;
14913: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).cle_id := TargetLinesRecTab.LINE_ID(i);
14914: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).dnz_chr_id := P_To_Chr_ID;
14915: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).sequence_no := l_SrcLnStreams_Tbl(j).sequence_no;
14916: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).uom_code := l_SrcLnStreams_Tbl(j).uom_code;
14928: l_LineStreams_tbl(l_LineStreams_tbl_Ctr).lines_detailed_yn := l_SrcLnStreams_Tbl(j).lines_detailed_yn;
14929: END LOOP; --End LOOP for looping through Target header Streams PLSQL table
14930: EXCEPTION
14931: WHEN OTHERS THEN
14932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14933: l_stage := 'Looping through l_SrcLnStreams_Tbl';
14934: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
14935: RAISE;
14936: END; --End of looping through l_TrgHdrStreams_Tbl
14950: ,'After call to OKS_BILL_SCH.create_bill_sch_rules'
14951: ||',x_return_status='||x_return_status
14952: );
14953: END IF;
14954: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14955: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_rules', substr(SQLERRM,1,240));
14956: RETURN;
14957: END IF;
14958: EXCEPTION
14956: RETURN;
14957: END IF;
14958: EXCEPTION
14959: WHEN OTHERS THEN
14960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14961: l_stage := 'OKS_BILL_SCH.create_bill_sch_rules';
14962: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage,substr(SQLERRM,1,240));
14963: RAISE;
14964: END;
14989: ,'After call to OKS_BILL_SCH.Create_Bill_Sch_CP'
14990: ||',x_return_status='||x_return_status
14991: );
14992: END IF;
14993: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
14994: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'Exception in call to OKS_BILL_SCH.create_bill_sch_cp', substr(SQLERRM,1,240));
14995: RETURN;
14996: END IF;
14997:
15003: ,'Exception in call to OKS_BILL_SCH.create_bill_sch_cp, x_return_status ='||x_return_status
15004: ||'SQLERRM ='||SQLERRM
15005: );
15006: END IF;
15007: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15008: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'OKS_PM_PROGRAMS_PVT.RENEW_PM_PROGRAM_SCHEDULE', substr(SQLERRM,1,240));
15009: RAISE;
15010: END;
15011: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15011: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
15012: --------End of BSCH Creation for Subline---------------
15013: END IF; --End If for CLE_ID is NULL check
15014:
15015: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
15016: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15017: FND_LOG.string(FND_LOG.level_statement
15018: ,l_module_name
15019: ,'Return status from OKS_BILL_SCH : x_return_status ='||x_return_status
15035: -- End hkamdar for Bug# 5458842.
15036: END LOOP; --End LOOP for looping through TargetLinesRecTab PLSQL table --2)
15037: EXCEPTION WHEN OTHERS THEN
15038: l_stage := 'Looping through TargetLinesRecTab';
15039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15040: FND_MSG_PUB.add_exc_msg(g_pkg_name,'OKS_COPY_CONTRACT_PVT: '||l_stage , substr(SQLERRM,1,240));
15041: END; --End of Begin for looping through TargetLinesRecTab
15042: END IF; --End of If check for TargetLinesRecTab.LINE_ID.COUNT > 0
15043:
15051: END IF; -- (P_Partial_Copy_YN = 'Y' AND P_Target_Contract_New_YN = 'N') then
15052:
15053: EXCEPTION
15054: WHEN OTHERS THEN
15055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15056: IF GetTrgLines_K_EXISTS_P%ISOPEN THEN
15057: CLOSE GetTrgLines_K_EXISTS_P;
15058: END IF;
15059: IF GetStreamsForTargetHeader%ISOPEN THEN
15161: IF ( to_number(to_char(l_CC_Expiry_Date,'YYYYMM')) <
15162: to_number(to_char(SYSDATE,'YYYYMM'))
15163: ) then
15164: x_entity_id := NULL;
15165: x_return_status := FND_API.G_RET_STS_SUCCESS;
15166: ELSE
15167:
15168: l_Authoring_Org_ID := okc_context.get_okc_org_id;
15169: l_Cust_Account_Site_ID := P_Bill_To_Site_Use_ID;
15224: IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension
15225: (
15226: p_api_version => P_api_version
15227: ,p_init_msg_list => p_init_msg_list
15228: ,p_commit => FND_API.G_FALSE
15229: ,x_return_status => x_return_status
15230: ,x_msg_count => x_msg_count
15231: ,x_msg_data => x_msg_data
15232: ,p_payer => l_PayerContext_Rec
15242: -- IBY_FNDCPT_TRXN_PUB.Copy_Transaction_Extension
15243: -- (
15244: -- p_api_version => p_api_version
15245: -- ,p_init_msg_list => p_init_msg_list
15246: -- ,p_commit => FND_API.G_FALSE
15247: -- ,x_return_status => x_return_status
15248: -- ,x_msg_count => x_msg_count
15249: -- ,x_msg_data => x_msg_data
15250: -- ,p_payer => l_PayerContext_Rec
15256: -- );
15257:
15258:
15259:
15260: IF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
15261: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15262: fnd_message.set_token
15263: ('IBY_API_NAME',
15264: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15263: ('IBY_API_NAME',
15264: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15265: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15266: fnd_msg_pub.ADD;
15267: RAISE fnd_api.g_exc_unexpected_error;
15268: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15269: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15270: fnd_message.set_token
15271: ('IBY_API_NAME',
15264: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension : '||l_response.result_code);
15265: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15266: fnd_msg_pub.ADD;
15267: RAISE fnd_api.g_exc_unexpected_error;
15268: ELSIF (x_return_status = FND_API.g_ret_sts_error) THEN
15269: fnd_message.set_name (g_app_name, 'OKS_IBY_API_ERROR');
15270: fnd_message.set_token
15271: ('IBY_API_NAME',
15272: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15271: ('IBY_API_NAME',
15272: 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension :'||l_response.result_code);
15273: fnd_message.set_token ('ERROR_DTLS', l_response.result_message);
15274: fnd_msg_pub.ADD;
15275: RAISE fnd_api.g_exc_error;
15276: END IF;
15277:
15278:
15279:
15298: ,'Exception in call to IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension, x_return_status ='||x_return_status
15299: ||'SQLERRM ='||SQLERRM
15300: );
15301: END IF;
15302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15303: FND_MSG_PUB.add_exc_msg(g_pkg_name, 'IBY_FNDCPT_TRXN_PUB.Create_Transaction_Extension', substr(SQLERRM,1,240));
15304: RAISE;
15305:
15306: End;
15324: ,'General Exception in Create_Transaction_Exception, x_return_status ='||x_return_status
15325: ||'SQLERRM ='||SQLERRM
15326: );
15327: END IF;
15328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15329: IF GetInstrAssgnID%ISOPEN then
15330: CLOSE GetInstrAssgnID;
15331: END IF;
15332: IF GetAcctInfo%ISOPEN then
15394:
15395: l_BP_Child_ID NUMBER;
15396:
15397: Begin
15398: x_return_status := FND_API.G_RET_STS_SUCCESS;
15399: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
15400: FND_LOG.string(FND_LOG.level_statement
15401: ,l_module_name
15402: ,'In Update_BP: P_To_Chr_ID :'||P_To_Chr_ID
15475: ,l_module_name
15476: ,SQLERRM
15477: );
15478: END IF;
15479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15480: If (getBPLineandChildren%ISOPEN) then
15481: CLOSE getBPLineandChildren;
15482: End If;
15483: If (getBPOffsetInformation%ISOPEN) then
16935:
16936: l_new_contract_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE := NULL;
16937: ----------------------------------------------------------------------------
16938:
16939: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
16940: l_euro_currency VARCHAR2(15) := NULL;
16941:
16942: --OKC Line Attributes to be updated--
16943: l_converted_price_negotiated NUMBER := NULL;
17004: ,l_module_name||':'||'Cursor get_new_contract_number'
17005: ,'Contract number of Target Contract is NULL'
17006: );
17007: END IF;
17008: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17009: RAISE G_EXCEPTION_HALT_VALIDATION;
17010: End If;
17011: End;
17012: -------------------------------------------
17021: ,l_module_name||':'||'Cursor get_default_status'
17022: ,'Default Status not found'
17023: );
17024: END IF;
17025: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17026: RAISE G_EXCEPTION_HALT_VALIDATION;
17027: End If;
17028: End;
17029: ------------------------------------------
18358: ,'EXCEPTION during insert into OKC_K_LINES_B '||SQLERRM
18359: );
18360: END IF;
18361:
18362: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18363: RAISE G_EXCEPTION_HALT_VALIDATION;
18364:
18365: End;
18366:
18589: ,'EXCEPTION during insert into OKS_K_LINES_B '||SQLERRM
18590: );
18591: END IF;
18592:
18593: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18594: RAISE G_EXCEPTION_HALT_VALIDATION;
18595:
18596: End;
18597:
18671: ,'EXCEPTION during insert into OKC_K_ITEMS '||SQLERRM
18672: );
18673: END IF;
18674:
18675: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18676: RAISE; --RAISE G_EXCEPTION_HALT_VALIDATION;
18677:
18678: End;
18679:
18751: WHERE ID = OKCOKSLinesRecTab.OkcB_NewOkcLineID(i)
18752: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OkcB_OldOkcLineID(i);
18753:
18754: If SQL%NOTFOUND then
18755: l_return_status := FND_API.G_RET_STS_ERROR;
18756: RAISE G_EXCEPTION_HALT_VALIDATION;
18757: End If;
18758:
18759: END IF;
18800: ,p_new_chr_id => P_To_Chr_ID
18801: --end npalepu
18802: );
18803:
18804: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18805: RAISE G_EXCEPTION_HALT_VALIDATION;
18806: END IF;
18807:
18808:
18841: );
18842: END IF;
18843: END IF;
18844:
18845: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18846: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18847: x_return_status := l_return_status;
18848: RAISE G_EXCEPTION_HALT_VALIDATION;
18849: END IF;
18842: END IF;
18843: END IF;
18844:
18845: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18846: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18847: x_return_status := l_return_status;
18848: RAISE G_EXCEPTION_HALT_VALIDATION;
18849: END IF;
18850: END IF;
18910: END IF;
18911: END IF;
18912:
18913:
18914: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18915: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18916: x_return_status := l_return_status;
18917: RAISE G_EXCEPTION_HALT_VALIDATION;
18918: END IF;
18911: END IF;
18912:
18913:
18914: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18915: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18916: x_return_status := l_return_status;
18917: RAISE G_EXCEPTION_HALT_VALIDATION;
18918: END IF;
18919: END IF;
18924: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
18925: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
18926:
18927: If SQL%NOTFOUND then
18928: l_return_status := FND_API.G_RET_STS_ERROR;
18929: RAISE G_EXCEPTION_HALT_VALIDATION;
18930: End If;
18931:
18932: End If;
18965: );
18966: END IF;
18967: END IF;
18968:
18969: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18970: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18971: x_return_status := l_return_status;
18972: RAISE G_EXCEPTION_HALT_VALIDATION;
18973: END IF;
18966: END IF;
18967: END IF;
18968:
18969: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
18970: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
18971: x_return_status := l_return_status;
18972: RAISE G_EXCEPTION_HALT_VALIDATION;
18973: END IF;
18974: END IF;
18987: ,'After call to QP_LOCK_PRICELIST_GRP.Lock_Price, Error in Update OKS_K_LINES_B, row not found for update'
18988: );
18989: END IF;
18990:
18991: l_return_status := FND_API.G_RET_STS_ERROR;
18992: RAISE G_EXCEPTION_HALT_VALIDATION;
18993: End If;
18994: End If;
18995: End;
19034: );
19035: END IF;
19036: END IF;
19037:
19038: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19039: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19040: x_return_status := l_return_status;
19041: RAISE G_EXCEPTION_HALT_VALIDATION;
19042: END IF;
19035: END IF;
19036: END IF;
19037:
19038: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
19039: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
19040: x_return_status := l_return_status;
19041: RAISE G_EXCEPTION_HALT_VALIDATION;
19042: END IF;
19043: END IF;
19055: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
19056: );
19057: END IF;
19058:
19059: l_return_status := FND_API.G_RET_STS_ERROR;
19060: RAISE G_EXCEPTION_HALT_VALIDATION;
19061: End If;
19062:
19063: End If;
19255: );
19256: END IF;
19257: END IF;
19258:
19259: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19260: RAISE G_EXCEPTION_HALT_VALIDATION;
19261: End If;
19262: End;
19263: ------------------------------------------------------------------------------------
19292: );
19293: END IF;
19294: END IF;
19295:
19296: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19297: RAISE G_EXCEPTION_HALT_VALIDATION;
19298: End If;
19299: End If;
19300: End;
19324: );
19325: END IF;
19326: END IF;
19327:
19328: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19329: RAISE G_EXCEPTION_HALT_VALIDATION;
19330: End If;
19331: End;
19332: ------------------------------------------------------------------------------------
19355: );
19356: END IF;
19357: END IF;
19358:
19359: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19360: RAISE G_EXCEPTION_HALT_VALIDATION;
19361: End If;
19362: End;
19363: ---------------------------------------------------------------------
19385: );
19386: END IF;
19387: END IF;
19388:
19389: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19390: RAISE G_EXCEPTION_HALT_VALIDATION;
19391: End If;
19392: End;
19393: ----------------------------------------------------------------------
19414: ||' '||SQLERRM
19415: );
19416: END IF;
19417: END IF;
19418: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19419: RAISE G_EXCEPTION_HALT_VALIDATION;
19420: End If;
19421: End;
19422: -------------------------------------------------------------------------
19444: );
19445: END IF;
19446: END IF;
19447:
19448: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19449: RAISE G_EXCEPTION_HALT_VALIDATION;
19450: End If;
19451: End;
19452: ---------------------------------------------------------------------
19475: );
19476: END IF;
19477: END IF;
19478:
19479: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19480: RAISE G_EXCEPTION_HALT_VALIDATION;
19481: End If;
19482: End;
19483: --------------------------------------------------------------------
19505: );
19506: END IF;
19507: END IF;
19508:
19509: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19510: RAISE G_EXCEPTION_HALT_VALIDATION;
19511: End If;
19512: End;
19513: ---------------------------------------------------------------------
19536: );
19537: END IF;
19538: END IF;
19539:
19540: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19541: RAISE G_EXCEPTION_HALT_VALIDATION;
19542: End If;
19543: End;
19544: ---------------------------------------------------------------------
19567: );
19568: END IF;
19569: END IF;
19570:
19571: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19572: RAISE G_EXCEPTION_HALT_VALIDATION;
19573: End If;
19574: End;
19575: ----------------------------------------------------------------------
19580: ,P_To_Chr_ID => P_To_Chr_ID
19581: ,P_Partial_Copy_YN => 'N'
19582: ,x_return_status => l_return_status);
19583:
19584: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19585: RAISE G_EXCEPTION_HALT_VALIDATION;
19586: End If;
19587: End;
19588: ---------------------------------------------------------------------
19613: );
19614: END IF;
19615: END IF;
19616:
19617: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19618: RAISE G_EXCEPTION_HALT_VALIDATION;
19619: End If;
19620:
19621: End;
19684: );
19685: END IF;
19686: END IF;
19687:
19688: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19689: RAISE G_EXCEPTION_HALT_VALIDATION;
19690: End If;
19691: End;
19692: -------------------------------------------------------------------
19715: );
19716: END IF;
19717: END IF;
19718:
19719: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19720: RAISE G_EXCEPTION_HALT_VALIDATION;
19721: End If;
19722: End;
19723: --------------------------------------------------------------------
19754: END IF;
19755:
19756:
19757:
19758: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19759: RAISE G_EXCEPTION_HALT_VALIDATION;
19760: End If;
19761:
19762: End;
19789: ||' '||SQLERRM
19790: );
19791: END IF;
19792: END IF;
19793: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19794: RAISE G_EXCEPTION_HALT_VALIDATION;
19795: End If;
19796:
19797:
19807: copy_oks_coverage_timezones(P_From_Chr_ID => P_From_Chr_ID
19808: ,P_To_Chr_ID => P_To_Chr_ID
19809: ,P_Partial_Copy_YN => 'N'
19810: ,x_return_status => l_return_status);
19811: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19812: RAISE G_EXCEPTION_HALT_VALIDATION;
19813: End If;
19814: End;
19815: ---------------------------------------------------------------------
19819: copy_oks_coverage_times(P_From_Chr_ID => P_From_Chr_ID
19820: ,P_To_Chr_ID => P_To_Chr_ID
19821: ,P_Partial_Copy_YN => 'N'
19822: ,x_return_status => l_return_status);
19823: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19824: RAISE G_EXCEPTION_HALT_VALIDATION;
19825: End If;
19826: End;
19827: ---------------------------------------------------------------------
19836: ,P_To_Chr_ID => P_To_Chr_ID
19837: ,P_Partial_Copy_YN => 'N'
19838: ,x_return_status => l_return_status);
19839:
19840: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19841: RAISE G_EXCEPTION_HALT_VALIDATION;
19842: End If;
19843: End;
19844: ---------------------------------------------------------------------
19848: ,P_To_Chr_ID => P_To_Chr_ID
19849: ,P_Partial_Copy_YN => 'N'
19850: ,x_return_status => l_return_status);
19851:
19852: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19853: RAISE G_EXCEPTION_HALT_VALIDATION;
19854: End If;
19855: End;
19856: ---------------------------------------------------------------------
19860: ,P_To_Chr_ID => P_To_Chr_ID
19861: ,P_Partial_Copy_YN => 'N'
19862: ,x_return_status => l_return_status);
19863:
19864: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19865: RAISE G_EXCEPTION_HALT_VALIDATION;
19866: End If;
19867: End;
19868: ---------------------------------------------------------------------
19878: ,P_To_Chr_ID => P_To_Chr_ID
19879: ,P_Partial_Copy_YN => 'N'
19880: ,x_return_status => l_return_status);
19881:
19882: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19883: RAISE G_EXCEPTION_HALT_VALIDATION;
19884: End If;
19885: End;
19886: ---------------------------------------------------------------------
19890: ,P_To_Chr_ID => P_To_Chr_ID
19891: ,P_Partial_Copy_YN => 'N'
19892: ,x_return_status => l_return_status);
19893:
19894: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19895: RAISE G_EXCEPTION_HALT_VALIDATION;
19896: End If;
19897: End;
19898: ---------------------------------------------------------------------
19907: ,P_To_Chr_ID => P_To_Chr_ID
19908: ,P_Partial_Copy_YN => 'N'
19909: ,x_return_status => l_return_status);
19910:
19911: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
19912: RAISE G_EXCEPTION_HALT_VALIDATION;
19913: End If;
19914: End;
19915: ---------------------------------------------------------------------
19964: CLOSE GetOKCOKSLinesB_Copy_EXCLUDE;
19965: ELSIF GetOKCOKSLinesB_Renew%ISOPEN THEN
19966: CLOSE GetOKCOKSLinesB_Renew;
19967: END IF;
19968: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
19969: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
19970: RAISE;
19971:
19972: END copy_lines;
20014: ,p_include_terminated_lines IN VARCHAR2 DEFAULT 'Y') IS
20015:
20016: l_api_name CONSTANT VARCHAR2(30) := 'COPY_LINE_COMPONENTS';
20017: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
20018: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
20019: l_euro_currency VARCHAR2(15) := NULL;
20020: l_converted_price_negotiated NUMBER := NULL;
20021: l_converted_price_unit NUMBER := NULL;
20022:
21376: ,l_Target_Hdr_Price_UOM;
21377: CLOSE get_new_contract_num_and_Dates;
21378: If l_new_contract_number IS NULL then
21379: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21380: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21381: RAISE G_EXCEPTION_HALT_VALIDATION;
21382: End If;
21383:
21384: -- Bug# 5531198 hkamdar 21-Sep-2006
21398: FETCH get_default_status into l_Default_Sts_Code;
21399: CLOSE get_default_status;
21400: If l_Default_Sts_Code IS NULL then
21401: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21402: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21403: RAISE G_EXCEPTION_HALT_VALIDATION;
21404: End If;
21405: End;
21406: ------------------------------------------
21694: ,'During Bulk Insert into OKC_K_LINES_B_TEMP : a) :'||SQLERRM);
21695: End If;
21696:
21697: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
21698: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
21699: RAISE G_EXCEPTION_HALT_VALIDATION;
21700:
21701: End;
21702:
22074: End If;
22075:
22076:
22077: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22078: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22079: RAISE G_EXCEPTION_HALT_VALIDATION;
22080:
22081: End;
22082:
22326:
22327:
22328:
22329: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22330: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22331: RAISE G_EXCEPTION_HALT_VALIDATION;
22332:
22333: End;
22334:
22617: */
22618:
22619:
22620: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22621: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22622: RAISE G_EXCEPTION_HALT_VALIDATION;
22623: End;
22624:
22625: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
22654: ||SQLERRM
22655: );
22656: End If;
22657: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
22658: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
22659: RAISE G_EXCEPTION_HALT_VALIDATION;
22660:
22661:
22662: End;
22668: Update_BP_StartDates(P_From_Chr_ID => P_From_Chr_ID
22669: ,P_To_Chr_ID => P_To_Chr_ID
22670: ,x_return_status => l_return_status);
22671:
22672: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
22673: RAISE G_EXCEPTION_HALT_VALIDATION;
22674: End If;
22675:
22676: End;
24106: ,x_msg_data => x_msg_data
24107: ,x_return_status => l_return_status
24108: );
24109:
24110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24111: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24112: x_return_status := l_return_status;
24113: RAISE G_EXCEPTION_HALT_VALIDATION;
24114: END IF;
24107: ,x_return_status => l_return_status
24108: );
24109:
24110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24111: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24112: x_return_status := l_return_status;
24113: RAISE G_EXCEPTION_HALT_VALIDATION;
24114: END IF;
24115: END IF;
24120: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24121: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24122:
24123: If SQL%NOTFOUND then
24124: l_return_status := FND_API.G_RET_STS_ERROR;
24125: RAISE G_EXCEPTION_HALT_VALIDATION;
24126: End If;
24127:
24128: End If;
24163: ,p_new_chr_id => P_To_Chr_ID
24164: --end npalepu
24165: );
24166:
24167: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24168: RAISE G_EXCEPTION_HALT_VALIDATION;
24169: END IF;
24170:
24171: If (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) then
24193: );
24194: END IF;
24195: END IF;
24196:
24197: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24198: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24199: x_return_status := l_return_status;
24200: RAISE G_EXCEPTION_HALT_VALIDATION;
24201: END IF;
24194: END IF;
24195: END IF;
24196:
24197: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24198: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24199: x_return_status := l_return_status;
24200: RAISE G_EXCEPTION_HALT_VALIDATION;
24201: END IF;
24202: END IF;
24228: );
24229: END IF;
24230: END IF;
24231:
24232: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24233: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24234: x_return_status := l_return_status;
24235: RAISE G_EXCEPTION_HALT_VALIDATION;
24236: END IF;
24229: END IF;
24230: END IF;
24231:
24232: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24233: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24234: x_return_status := l_return_status;
24235: RAISE G_EXCEPTION_HALT_VALIDATION;
24236: END IF;
24237: END IF;
24243: WHERE ID = OKCOKSLinesRecTab.OksB_NewOksLineID(i)
24244: AND ORIG_SYSTEM_ID1 = OKCOKSLinesRecTab.OksB_OldOksLineID(i);
24245:
24246: If SQL%NOTFOUND then
24247: l_return_status := FND_API.G_RET_STS_ERROR;
24248: RAISE G_EXCEPTION_HALT_VALIDATION;
24249: End If;
24250: End If;
24251: End;
24289: );
24290: END IF;
24291: END IF;
24292:
24293: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24294: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24295: x_return_status := l_return_status;
24296: RAISE G_EXCEPTION_HALT_VALIDATION;
24297: END IF;
24290: END IF;
24291: END IF;
24292:
24293: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
24294: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
24295: x_return_status := l_return_status;
24296: RAISE G_EXCEPTION_HALT_VALIDATION;
24297: END IF;
24298: END IF;
24310: ,'After call to Create_Transaction_Extension, Error in Update OKS_K_LINES_B, row not found for update'
24311: );
24312: END IF;
24313:
24314: l_return_status := FND_API.G_RET_STS_ERROR;
24315: RAISE G_EXCEPTION_HALT_VALIDATION;
24316: End If;
24317:
24318: End If;
24348: );
24349: END IF;
24350: END IF;
24351:
24352: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24353: RAISE G_EXCEPTION_HALT_VALIDATION;
24354: End If;
24355:
24356: End;
24604: );
24605: END IF;
24606: END IF;
24607:
24608: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24609: RAISE G_EXCEPTION_HALT_VALIDATION;
24610: End If;
24611: End;
24612: END IF;
24638: );
24639: END IF;
24640: END IF;
24641:
24642: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24643: RAISE G_EXCEPTION_HALT_VALIDATION;
24644: End If;
24645: End;
24646: END IF;
24673: );
24674: END IF;
24675: END IF;
24676:
24677: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24678: RAISE G_EXCEPTION_HALT_VALIDATION;
24679: End If;
24680: End;
24681: END IF;
24706: );
24707: END IF;
24708: END IF;
24709:
24710: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24711: RAISE G_EXCEPTION_HALT_VALIDATION;
24712: End If;
24713: End;
24714: END IF;
24738: ||' '||SQLERRM
24739: );
24740: END IF;
24741: END IF;
24742: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24743: RAISE G_EXCEPTION_HALT_VALIDATION;
24744: End If;
24745: End;
24746: END IF;
24771: );
24772: END IF;
24773: END IF;
24774:
24775: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24776: RAISE G_EXCEPTION_HALT_VALIDATION;
24777: End If;
24778: End;
24779: ---------------------------------------------------------------------
24804: );
24805: END IF;
24806: END IF;
24807:
24808: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24809: RAISE G_EXCEPTION_HALT_VALIDATION;
24810: End If;
24811: End;
24812: --------------------------------------------------------------------
24836: );
24837: END IF;
24838: END IF;
24839:
24840: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24841: RAISE G_EXCEPTION_HALT_VALIDATION;
24842: End If;
24843: End;
24844: END IF;
24870: );
24871: END IF;
24872: END IF;
24873:
24874: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24875: RAISE G_EXCEPTION_HALT_VALIDATION;
24876: End If;
24877: End;
24878: END IF;
24904: );
24905: END IF;
24906: END IF;
24907:
24908: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24909: RAISE G_EXCEPTION_HALT_VALIDATION;
24910: End If;
24911: End;
24912: END IF;
24956: );
24957: END IF;
24958: END IF;
24959:
24960: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24961: RAISE G_EXCEPTION_HALT_VALIDATION;
24962: End If;
24963: End;
24964: -------------------------------------------------------------------
24990: );
24991: END IF;
24992: END IF;
24993:
24994: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
24995: RAISE G_EXCEPTION_HALT_VALIDATION;
24996: End If;
24997: End;
24998: --------------------------------------------------------------------
25025: END IF;
25026:
25027:
25028:
25029: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25030: RAISE G_EXCEPTION_HALT_VALIDATION;
25031: End If;
25032:
25033: End;
25042: ,x_return_status => l_return_status
25043: ,x_msg_count => x_msg_count
25044: ,x_msg_data => x_msg_data);
25045:
25046: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25047: RAISE G_EXCEPTION_HALT_VALIDATION;
25048: End If;
25049:
25050:
25062: ,x_return_status => l_return_status
25063: ,x_msg_count => x_msg_count
25064: ,x_msg_data => x_msg_data);
25065:
25066: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25067: RAISE G_EXCEPTION_HALT_VALIDATION;
25068: End If;
25069: END IF;
25070:
25100: );
25101: END IF;
25102: END IF;
25103:
25104: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25105: RAISE G_EXCEPTION_HALT_VALIDATION;
25106: End If;
25107: End;
25108: ---------------------------------------------------------------------
25132: );
25133: END IF;
25134: END IF;
25135:
25136: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25137: RAISE G_EXCEPTION_HALT_VALIDATION;
25138: End If;
25139: End;
25140: ---------------------------------------------------------------------
25170: );
25171: END IF;
25172: END IF;
25173:
25174: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25175: RAISE G_EXCEPTION_HALT_VALIDATION;
25176: End If;
25177: End;
25178: ---------------------------------------------------------------------
25202: );
25203: END IF;
25204: END IF;
25205:
25206: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25207: RAISE G_EXCEPTION_HALT_VALIDATION;
25208: End If;
25209: End;
25210:
25235: );
25236: END IF;
25237: END IF;
25238:
25239: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25240: RAISE G_EXCEPTION_HALT_VALIDATION;
25241: End If;
25242: End;
25243: ---------------------------------------------------------------------
25249: ,x_return_status => l_return_status
25250: ,x_msg_count => x_msg_count
25251: ,x_msg_data => x_msg_data);
25252:
25253: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25254: RAISE G_EXCEPTION_HALT_VALIDATION;
25255: End If;
25256: End;
25257: ----------------------------------------------------------------------
25289: );
25290: END IF;
25291: END IF;
25292:
25293: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25294: RAISE G_EXCEPTION_HALT_VALIDATION;
25295: End If;
25296: End;
25297: ---------------------------------------------------------------------
25321: );
25322: END IF;
25323: END IF;
25324:
25325: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25326: RAISE G_EXCEPTION_HALT_VALIDATION;
25327: End If;
25328: End;
25329: ---------------------------------------------------------------------
25360: );
25361: END IF;
25362: END IF;
25363:
25364: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25365: RAISE G_EXCEPTION_HALT_VALIDATION;
25366: End If;
25367: End;
25368:
25399: );
25400: END IF;
25401: END IF;
25402:
25403: If (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
25404: RAISE G_EXCEPTION_HALT_VALIDATION;
25405: End If;
25406: End;
25407: ---------------------------------------------------------------------
25461:
25462: l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONTRACT';
25463: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
25464:
25465: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25466: --l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25467: l_to_chr_id NUMBER;
25468: l_cle_id_out NUMBER;
25469: l_rgp_id NUMBER;
25462: l_api_name CONSTANT VARCHAR2(30) := 'COPY_CONTRACT';
25463: l_module_name VARCHAR2(256) := G_APP_NAME || '.plsql.' || G_PKG_NAME || '.' || l_api_name;
25464:
25465: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25466: --l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
25467: l_to_chr_id NUMBER;
25468: l_cle_id_out NUMBER;
25469: l_rgp_id NUMBER;
25470: l_cat_id NUMBER;
25543: End If;
25544:
25545: IF NOT l_result Then
25546: -- notify caller of an UNEXPECTED error
25547: x_return_status := FND_API.G_RET_STS_ERROR;
25548: RAISE G_EXCEPTION_HALT_VALIDATION;
25549: END IF;
25550:
25551: -- Intitialize globals.
25593: );
25594: END IF;
25595: END IF;
25596:
25597: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25598: x_return_status := l_return_status;
25599: RAISE G_EXCEPTION_HALT_VALIDATION;
25600: END IF;
25601:
25616: x_doc_id => l_source_doc_id,
25617: x_doc_type => l_source_doc_type
25618: );
25619:
25620: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25621: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25622: x_return_status := l_return_status;
25623: RAISE G_EXCEPTION_HALT_VALIDATION;
25624: -- ELSE
25617: x_doc_type => l_source_doc_type
25618: );
25619:
25620: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25621: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25622: x_return_status := l_return_status;
25623: RAISE G_EXCEPTION_HALT_VALIDATION;
25624: -- ELSE
25625: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25621: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25622: x_return_status := l_return_status;
25623: RAISE G_EXCEPTION_HALT_VALIDATION;
25624: -- ELSE
25625: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25626: -- x_return_status := l_return_status;
25627: -- END IF;
25628: -- END IF;
25629: END IF;
25636: p_chr_id => l_to_chr_id,
25637: x_doc_id => l_target_doc_id,
25638: x_doc_type => l_target_doc_type);
25639:
25640: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25641: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25642: x_return_status := l_return_status;
25643: RAISE G_EXCEPTION_HALT_VALIDATION;
25644: -- ELSE
25637: x_doc_id => l_target_doc_id,
25638: x_doc_type => l_target_doc_type);
25639:
25640: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25641: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25642: x_return_status := l_return_status;
25643: RAISE G_EXCEPTION_HALT_VALIDATION;
25644: -- ELSE
25645: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25641: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25642: x_return_status := l_return_status;
25643: RAISE G_EXCEPTION_HALT_VALIDATION;
25644: -- ELSE
25645: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25646: -- x_return_status := l_return_status;
25647: -- END IF;
25648: -- END IF;
25649: END IF;
25683: );
25684: END IF;
25685: END IF;
25686:
25687: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25688: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25689: x_return_status := l_return_status;
25690: RAISE G_EXCEPTION_HALT_VALIDATION;
25691: -- ELSE
25684: END IF;
25685: END IF;
25686:
25687: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25688: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25689: x_return_status := l_return_status;
25690: RAISE G_EXCEPTION_HALT_VALIDATION;
25691: -- ELSE
25692: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25688: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
25689: x_return_status := l_return_status;
25690: RAISE G_EXCEPTION_HALT_VALIDATION;
25691: -- ELSE
25692: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
25693: -- x_return_status := l_return_status;
25694: -- END IF;
25695: -- END IF;
25696: END IF;
25724: );
25725: END IF;
25726: END IF;
25727:
25728: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25729: x_return_status := l_return_status;
25730: RAISE G_EXCEPTION_HALT_VALIDATION;
25731: END IF;
25732: --===================End of Copy OKS Header attributes===========================================
25775: );
25776: END IF;
25777: END IF;
25778:
25779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25780: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
25781: x_return_status := l_return_status;
25782: RAISE G_EXCEPTION_HALT_VALIDATION;
25783: END IF;
25776: END IF;
25777: END IF;
25778:
25779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
25780: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
25781: x_return_status := l_return_status;
25782: RAISE G_EXCEPTION_HALT_VALIDATION;
25783: END IF;
25784: END IF;
25793: ,l_module_name||'.Create_Transaction_Extension'
25794: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
25795: );
25796: END IF;
25797: l_return_status := FND_API.G_RET_STS_ERROR;
25798: RAISE G_EXCEPTION_HALT_VALIDATION;
25799: End If;
25800:
25801:
25832: );
25833: END IF;
25834: END IF;
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 OR
25838: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25839: x_return_status := l_return_status;
25840: RAISE G_EXCEPTION_HALT_VALIDATION;
25833: END IF;
25834: END IF;
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 OR
25838: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25839: x_return_status := l_return_status;
25840: RAISE G_EXCEPTION_HALT_VALIDATION;
25841: ELSE
25834: END IF;
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 OR
25838: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25839: x_return_status := l_return_status;
25840: RAISE G_EXCEPTION_HALT_VALIDATION;
25841: ELSE
25842: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
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 OR
25885: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25886: x_return_status := l_return_status;
25887: RAISE G_EXCEPTION_HALT_VALIDATION;
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 OR
25885: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25886: x_return_status := l_return_status;
25887: RAISE G_EXCEPTION_HALT_VALIDATION;
25888: ELSE
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 OR
25885: l_return_status = FND_API.G_RET_STS_ERROR) THEN
25886: x_return_status := l_return_status;
25887: RAISE G_EXCEPTION_HALT_VALIDATION;
25888: ELSE
25889: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
25897: OKC_DEBUG.ReSet_Indentation;
25898: END IF;
25899:
25900: /*
25901: IF FND_API.to_boolean(p_commit) THEN
25902: COMMIT;
25903: END IF;
25904: */
25905:
25926: ROLLBACK to copy_contract;
25927: -- store SQL error message on message stack for caller
25928: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
25929: -- notify caller of an UNEXPECTED error
25930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
25931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
25932:
25933: END COPY_CONTRACT;
25934: --=========================================End COPY_CONTRACT=============================================
26005: l_module_name VARCHAR2(256) := G_APP_NAME ||'.plsql.' || G_PKG_NAME || '.' || l_api_name;
26006: l_party_count NUMBER;
26007:
26008: Begin
26009: x_return_status := FND_API.G_RET_STS_SUCCESS;
26010:
26011: OPEN l_party_csr(P_To_Chr_ID);
26012: FETCH l_party_csr into l_party_count;
26013: CLOSE l_party_csr;
26170: If (l_party_comp_csr%ISOPEN) then
26171: CLOSE l_party_comp_csr;
26172: End If;
26173: --end npalepu
26174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26175: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||l_stage, substr(SQLERRM,1,240));
26176:
26177: END Party_Cleanup;
26178:
26226: p_include_terminated_lines IN VARCHAR2 DEFAULT 'Y') IS
26227:
26228: l_components_tbl api_components_tbl := p_components_tbl;
26229: l_lines_tbl api_lines_tbl := p_lines_tbl;
26230: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26231: l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26232: l_cle_id_out NUMBER;
26233: l_to_chr_id NUMBER;
26234: l_cnh_id NUMBER;
26227:
26228: l_components_tbl api_components_tbl := p_components_tbl;
26229: l_lines_tbl api_lines_tbl := p_lines_tbl;
26230: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26231: l_old_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
26232: l_cle_id_out NUMBER;
26233: l_to_chr_id NUMBER;
26234: l_cnh_id NUMBER;
26235: l_rgp_id NUMBER;
26340:
26341:
26342: If NOT l_result Then
26343: -- notify caller of an UNEXPECTED error
26344: x_return_status := FND_API.G_RET_STS_ERROR;
26345: raise G_EXCEPTION_HALT_VALIDATION;
26346: End If;
26347:
26348: -- Intitialize globals.
26400: );
26401: END IF;
26402: END IF;
26403:
26404: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26405: x_return_status := l_return_status;
26406: RAISE G_EXCEPTION_HALT_VALIDATION;
26407: END IF;
26408:
26444: p_chr_id => l_to_chr_id,
26445: p_rle_code => l_components_tbl(i).attribute1,
26446: x_cpl_id => l_cpl_id);
26447:
26448: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26449: --IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26450: x_return_status := l_return_status;
26451: RAISE G_EXCEPTION_HALT_VALIDATION;
26452: -- ELSE
26445: p_rle_code => l_components_tbl(i).attribute1,
26446: x_cpl_id => l_cpl_id);
26447:
26448: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26449: --IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26450: x_return_status := l_return_status;
26451: RAISE G_EXCEPTION_HALT_VALIDATION;
26452: -- ELSE
26453: -- IF l_old_return_status <> OKC_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26482: x_doc_type => l_source_doc_type,
26483: x_doc_id => l_source_doc_id
26484: );
26485:
26486: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26487: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26488: x_return_status := l_return_status;
26489: RAISE G_EXCEPTION_HALT_VALIDATION;
26490: -- ELSE
26483: x_doc_id => l_source_doc_id
26484: );
26485:
26486: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26487: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26488: x_return_status := l_return_status;
26489: RAISE G_EXCEPTION_HALT_VALIDATION;
26490: -- ELSE
26491: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26487: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26488: x_return_status := l_return_status;
26489: RAISE G_EXCEPTION_HALT_VALIDATION;
26490: -- ELSE
26491: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26492: -- x_return_status := l_return_status;
26493: -- END IF;
26494: -- END IF;
26495: END IF;
26502: x_doc_type => l_target_doc_type,
26503: x_doc_id => l_target_doc_id
26504: );
26505:
26506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26507: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26508: x_return_status := l_return_status;
26509: RAISE G_EXCEPTION_HALT_VALIDATION;
26510: -- ELSE
26503: x_doc_id => l_target_doc_id
26504: );
26505:
26506: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26507: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26508: x_return_status := l_return_status;
26509: RAISE G_EXCEPTION_HALT_VALIDATION;
26510: -- ELSE
26511: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26507: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26508: x_return_status := l_return_status;
26509: RAISE G_EXCEPTION_HALT_VALIDATION;
26510: -- ELSE
26511: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26512: -- x_return_status := l_return_status;
26513: -- END IF;
26514: -- END IF;
26515: END IF;
26532: p_document_number => p_contract_number,
26533: p_allow_duplicate_terms=>'Y'
26534: );
26535:
26536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26537: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26538: x_return_status := l_return_status;
26539: RAISE G_EXCEPTION_HALT_VALIDATION;
26540: -- ELSE
26533: p_allow_duplicate_terms=>'Y'
26534: );
26535:
26536: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26537: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26538: x_return_status := l_return_status;
26539: RAISE G_EXCEPTION_HALT_VALIDATION;
26540: -- ELSE
26541: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26537: -- IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
26538: x_return_status := l_return_status;
26539: RAISE G_EXCEPTION_HALT_VALIDATION;
26540: -- ELSE
26541: -- IF l_old_return_status <> FND_API.G_RET_STS_ERROR THEN -- do not overwrite error with warning.
26542: -- x_return_status := l_return_status;
26543: -- END IF;
26544: -- END IF;
26545: END IF;
26565: ,x_msg_count => x_msg_count
26566: ,x_msg_data => x_msg_data
26567: ,x_return_status => l_return_status);
26568:
26569: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26570: x_return_status := l_return_status;
26571: RAISE G_EXCEPTION_HALT_VALIDATION;
26572: END IF;
26573: End;
26607: );
26608: END IF;
26609: END IF;
26610:
26611: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26612: x_return_status := l_return_status;
26613: RAISE G_EXCEPTION_HALT_VALIDATION;
26614: END IF;
26615: End;
26660: );
26661: END IF;
26662: END IF;
26663:
26664: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26665: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
26666: x_return_status := l_return_status;
26667: RAISE G_EXCEPTION_HALT_VALIDATION;
26668: END IF;
26661: END IF;
26662: END IF;
26663:
26664: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26665: IF (l_return_status = FND_API.G_RET_STS_ERROR OR l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
26666: x_return_status := l_return_status;
26667: RAISE G_EXCEPTION_HALT_VALIDATION;
26668: END IF;
26669: END IF;
26678: ,l_module_name||'.Create_Transaction_Extension'
26679: ,'Error in Update OKS_K_HEADERS_B, row not found for update'
26680: );
26681: END IF;
26682: l_return_status := FND_API.G_RET_STS_ERROR;
26683: RAISE G_EXCEPTION_HALT_VALIDATION;
26684: End If;
26685:
26686:
26719: );
26720: END IF;
26721: END IF;
26722:
26723: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26724: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26725: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26726: x_return_status := l_return_status;
26727: RAISE G_EXCEPTION_HALT_VALIDATION;
26720: END IF;
26721: END IF;
26722:
26723: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26724: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26725: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26726: x_return_status := l_return_status;
26727: RAISE G_EXCEPTION_HALT_VALIDATION;
26728: ELSE
26721: END IF;
26722:
26723: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26724: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR OR
26725: l_return_status = FND_API.G_RET_STS_ERROR) THEN
26726: x_return_status := l_return_status;
26727: RAISE G_EXCEPTION_HALT_VALIDATION;
26728: ELSE
26729: x_return_status := l_return_status; -- donot raise exception if l_return_status = 'W'
26765: x_msg_data => l_msg_data,
26766: p_commit => 'F'
26767: );
26768:
26769: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26770: x_return_status := l_return_status;
26771: RAISE G_EXCEPTION_HALT_VALIDATION;
26772: End If;
26773:
26778: x_msg_count => l_msg_count,
26779: x_msg_data => l_msg_data,
26780: p_chr_id => P_To_Chr_ID);
26781:
26782: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26783: x_return_status := l_return_status;
26784: RAISE G_EXCEPTION_HALT_VALIDATION;
26785: End If;
26786: END;
26815: --published
26816: ,p_include_cancelled_lines => p_include_cancelled_lines
26817: ,p_include_terminated_lines => p_include_terminated_lines);
26818:
26819: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26820: x_return_status := l_return_status;
26821: RAISE G_EXCEPTION_HALT_VALIDATION;
26822: End If;
26823:
26832: --end npalepu
26833: ,P_Target_Contract_New_YN => l_Target_Contract_New_YN
26834: ,x_return_status => l_return_status);
26835:
26836: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
26837: x_return_status := l_return_status;
26838: RAISE G_EXCEPTION_HALT_VALIDATION;
26839: End If;
26840:
26894: ROLLBACK to copy_components;
26895:
26896: WHEN OTHERS THEN
26897: -- store SQL error message on message stack for caller
26898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
26899: ROLLBACK to copy_components;
26900: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, substr(SQLERRM,1,240));
26901:
26902: END copy_components;