107: EXCEPTION
108: WHEN OTHERS THEN
109:
110: IF (l_debug = 'Y') THEN
111: okc_debug.log('201: Leaving get_uniq_id: Unknown error');
112: END IF;
113:
114: IF (c1%ISOPEN) THEN
115: CLOSE c1;
148:
149: BEGIN
150:
151: IF (l_debug = 'Y') THEN
152: okc_debug.log('100: Entering get_version_details: p_org_id='||p_org_id);
153: END IF;
154:
155: x_return_status := FND_API.G_RET_STS_SUCCESS;
156: IF (p_art_ver_tbl IS NULL ) THEN
273:
274: IF (l_total_count <> p_art_ver_tbl.COUNT) THEN
275:
276: IF (l_debug = 'Y') THEN
277: okc_debug.log('198: l_total_count='||l_total_count||' p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
278: okc_debug.log('199: This indicates that some article versions belonged to an org other than input org='||p_org_id);
279: END IF;
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: FND_MESSAGE.set_name(G_APP_NAME, G_OKC_MSG_INVALID_ARGUMENT);
274: IF (l_total_count <> p_art_ver_tbl.COUNT) THEN
275:
276: IF (l_debug = 'Y') THEN
277: okc_debug.log('198: l_total_count='||l_total_count||' p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
278: okc_debug.log('199: This indicates that some article versions belonged to an org other than input org='||p_org_id);
279: END IF;
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: FND_MESSAGE.set_name(G_APP_NAME, G_OKC_MSG_INVALID_ARGUMENT);
282: FND_MESSAGE.set_token('ARG_NAME', 'p_org_id');
285: RAISE fnd_api.g_exc_error;
286: END IF;
287:
288: IF (l_debug = 'Y') THEN
289: okc_debug.log('200: Leaving get_version_details: Success, x_id='||x_id||' x_adopt_asis_count='|| x_adopt_asis_count||' x_global_count='|| x_global_count|| ' x_localized_count='||x_localized_count);
290: END IF;
291:
292: EXCEPTION
293:
297: CLOSE l_count_csr;
298: END IF;
299:
300: IF (l_debug = 'Y') THEN
301: okc_debug.log('201: Leaving get_version_details: Error');
302: END IF;
303:
304: WHEN OTHERS THEN
305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
307: CLOSE l_count_csr;
308: END IF;
309:
310: IF (l_debug = 'Y') THEN
311: okc_debug.log('202: Leaving get_version_details: Unknown error');
312: END IF;
313:
314: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR)
315: THEN
387:
388: BEGIN
389:
390: IF (l_debug = 'Y') THEN
391: okc_debug.log('100: Entering status_check_blk: p_id='||p_id||' p_to_status='||p_to_status);
392: END IF;
393: x_return_status := FND_API.G_RET_STS_SUCCESS;
394: x_qa_return_status := FND_API.G_RET_STS_SUCCESS;
395:
470: x_qa_return_status := FND_API.G_RET_STS_ERROR;
471: END IF;
472:
473: IF (l_debug = 'Y') THEN
474: okc_debug.log('200: Leaving status_check_blk: Success, x_qa_return_status='||x_qa_return_status);
475: END IF;
476:
477: EXCEPTION
478:
478:
479: WHEN FND_API.G_EXC_ERROR THEN
480: x_return_status := FND_API.G_RET_STS_ERROR ;
481: IF (l_debug = 'Y') THEN
482: okc_debug.log('201: Leaving status_check_blk: Error');
483: END IF;
484: IF (l_pend_app_csr%ISOPEN) THEN
485: CLOSE l_pend_app_csr;
486: END IF;
494: WHEN OTHERS THEN
495:
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: IF (l_debug = 'Y') THEN
498: okc_debug.log('202: Leaving status_check_blk: Unknown Error');
499: END IF;
500: IF (l_pend_app_csr%ISOPEN) THEN
501: CLOSE l_pend_app_csr;
502: END IF;
570:
571: BEGIN
572:
573: IF (l_debug = 'Y') THEN
574: okc_debug.log('100: Entering variable_check_blk: p_id='||p_id);
575: END IF;
576: x_return_status := FND_API.G_RET_STS_SUCCESS;
577: x_qa_return_status := FND_API.G_RET_STS_SUCCESS;
578:
637: x_qa_return_status := FND_API.G_RET_STS_ERROR;
638: END IF;
639:
640: IF (l_debug = 'Y') THEN
641: okc_debug.log('200: Leaving variable_check_blk: Success, x_qa_return_status='||x_qa_return_status);
642: END IF;
643:
644: EXCEPTION
645:
646: WHEN OTHERS THEN
647:
648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
649: IF (l_debug = 'Y') THEN
650: okc_debug.log('202: Leaving variable_check_blk: Unknown Error');
651: END IF;
652: IF (l_disabled_var_csr%ISOPEN) THEN
653: CLOSE l_disabled_var_csr;
654: END IF;
715:
716: BEGIN
717:
718: IF (l_debug = 'Y') THEN
719: okc_debug.log('100: Entering section_type_check_blk: p_id='||p_id);
720: END IF;
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722: x_qa_return_status := FND_API.G_RET_STS_SUCCESS;
723:
778: x_qa_return_status := FND_API.G_RET_STS_ERROR;
779: END IF;
780:
781: IF (l_debug = 'Y') THEN
782: okc_debug.log('200: Leaving section_type_check_blk: Success, x_qa_return_status='||x_qa_return_status);
783: END IF;
784:
785: EXCEPTION
786:
787: WHEN OTHERS THEN
788:
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: IF (l_debug = 'Y') THEN
791: okc_debug.log('201: Leaving section_type_check_blk: Unknown Error');
792: END IF;
793: IF (l_art_typ_csr%ISOPEN) THEN
794: CLOSE l_art_typ_csr;
795: END IF;
816:
817: BEGIN
818:
819: IF (l_debug = 'Y') THEN
820: okc_debug.log('100: Entering update_art_version_status_blk: p_id='||p_id||' p_status='||p_status);
821: END IF;
822:
823: x_return_status := FND_API.G_RET_STS_SUCCESS;
824:
853:
854: END IF;
855:
856: IF (l_debug = 'Y') THEN
857: okc_debug.log('200: Leaving update_art_version_status_blk: Success');
858: END IF;
859:
860: EXCEPTION
861:
861:
862: WHEN OTHERS THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: IF (l_debug = 'Y') THEN
865: okc_debug.log('201: Leaving update_art_version_status_blk: Unknown Error');
866: END IF;
867:
868: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
869: FND_MSG_PUB.add_exc_msg(G_PKG_NAME ,l_api_name );
887:
888: BEGIN
889:
890: IF (l_debug = 'Y') THEN
891: okc_debug.log('100: Entering update_adp_status_type_blk: p_id='||p_id||' p_local_org_id='||p_local_org_id||' p_adoption_status='||p_adoption_status||' p_adoption_type='||p_adoption_type||' p_type='||p_type);
892: END IF;
893:
894: x_return_status := FND_API.G_RET_STS_SUCCESS;
895:
936:
937: END IF;
938:
939: IF (l_debug = 'Y') THEN
940: okc_debug.log('200: Leaving update_adp_status_type_blk: Success');
941: END IF;
942:
943: EXCEPTION
944:
944:
945: WHEN FND_API.G_EXC_ERROR THEN
946: x_return_status := FND_API.G_RET_STS_ERROR;
947: IF (l_debug = 'Y') THEN
948: okc_debug.log('201: Leaving update_adp_status_type_blk: Error');
949: END IF;
950:
951: WHEN OTHERS THEN
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
950:
951: WHEN OTHERS THEN
952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
953: IF (l_debug = 'Y') THEN
954: okc_debug.log('202: Leaving update_adp_status_type_blk: Unknown Error');
955: END IF;
956:
957: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
958: FND_MSG_PUB.add_exc_msg(G_PKG_NAME ,l_api_name );
992:
993: BEGIN
994:
995: IF (l_debug = 'Y') THEN
996: okc_debug.log('100: Entering update_prev_vers_enddate_blk: p_id='||p_id);
997: END IF;
998:
999: x_return_status := FND_API.G_RET_STS_SUCCESS;
1000:
1022: l_prev_ver_id_tbl.DELETE;
1023: l_start_date_tbl.DELETE;
1024:
1025: IF (l_debug = 'Y') THEN
1026: okc_debug.log('200: Leaving update_prev_vers_enddate_blk: Success');
1027: END IF;
1028:
1029: EXCEPTION
1030:
1033: IF (l_prev_ver_csr%ISOPEN) THEN
1034: CLOSE l_prev_ver_csr;
1035: END IF;
1036: IF (l_debug = 'Y') THEN
1037: okc_debug.log('201: Leaving update_prev_vers_enddate_blk: Unknown Error');
1038: END IF;
1039:
1040: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
1041: FND_MSG_PUB.add_exc_msg(G_PKG_NAME ,l_api_name );
1067:
1068: BEGIN
1069:
1070: IF (l_debug = 'Y') THEN
1071: okc_debug.log('100: Entering adopt_relationships_blk: p_id='||p_id);
1072: END IF;
1073: x_return_status := FND_API.G_RET_STS_SUCCESS;
1074:
1075: INSERT INTO OKC_ARTICLE_RELATNS_ALL
1153: ARL1.org_id = TMP.org_id);
1154:
1155:
1156: IF (l_debug = 'Y') THEN
1157: okc_debug.log('200: Leaving adopt_relationships_blk: Success');
1158: END IF;
1159:
1160: EXCEPTION
1161:
1162: WHEN OTHERS THEN
1163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1164:
1165: IF (l_debug = 'Y') THEN
1166: okc_debug.log('201: Leaving adopt_relationships_blk: Unknown Error');
1167: END IF;
1168:
1169: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1170: THEN
1194:
1195: BEGIN
1196:
1197: IF (l_debug = 'Y') THEN
1198: okc_debug.log('100: Entering delete_relationships_blk: p_id='||p_id||' p_org_id='||p_org_id);
1199: END IF;
1200:
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
1202:
1246: l_art_id_tbl.DELETE;
1247: l_art_ver_id_tbl.DELETE;
1248:
1249: IF (l_debug = 'Y') THEN
1250: okc_debug.log('200: Leaving delete_relationships_blk: Success');
1251: END IF;
1252:
1253: EXCEPTION
1254:
1258: CLOSE l_art_id_csr;
1259: END IF;
1260:
1261: IF (l_debug = 'Y') THEN
1262: okc_debug.log('201: Leaving delete_relationships_blk: Unknown error');
1263: END IF;
1264:
1265: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
1266: fnd_msg_pub.add_exc_msg(G_PKG_NAME ,l_api_name );
1322:
1323: BEGIN
1324:
1325: IF (l_debug = 'Y') THEN
1326: okc_debug.log('100: Entering validate_article_versions_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
1327:
1328: okc_debug.log('101: In validate_article_versions_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id||' p_id='||p_id);
1329:
1330: IF (p_art_ver_tbl IS NOT NULL) THEN
1324:
1325: IF (l_debug = 'Y') THEN
1326: okc_debug.log('100: Entering validate_article_versions_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
1327:
1328: okc_debug.log('101: In validate_article_versions_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id||' p_id='||p_id);
1329:
1330: IF (p_art_ver_tbl IS NOT NULL) THEN
1331: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1332: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1327:
1328: okc_debug.log('101: In validate_article_versions_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id||' p_id='||p_id);
1329:
1330: IF (p_art_ver_tbl IS NOT NULL) THEN
1331: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1332: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1333: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
1334: END LOOP;
1335: END IF;
1329:
1330: IF (p_art_ver_tbl IS NOT NULL) THEN
1331: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1332: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1333: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
1334: END LOOP;
1335: END IF;
1336: END IF;
1337:
1428: l_msg_data := 0;
1429: l_earlier_local_version_id := 0;
1430:
1431: IF (l_debug = 'Y') THEN
1432: okc_debug.log('104: Calling OKC_ADOPTIONS_GRP.check_adoption_details p_global_article_version_id='||l_adopt_asis_art_ver_id_tbl(i)|| ' p_adoption_type=ADOPTED p_local_org_id='||p_org_id);
1433: END IF;
1434:
1435: OKC_ADOPTIONS_GRP.check_adoption_details(
1436: p_api_version => 1.0,
1445: p_local_org_id => p_org_id
1446: );
1447:
1448: IF (l_debug = 'Y') THEN
1449: okc_debug.log('105: After OKC_ADOPTIONS_GRP.check_adoption_details x_return_status='||l_local_result_status);
1450: END IF;
1451:
1452: IF (l_local_result_status = FND_API.G_RET_STS_ERROR) THEN -- the check failed
1453: x_qa_return_status := FND_API.G_RET_STS_ERROR;
1503: COMMIT WORK;
1504: END IF;
1505:
1506: IF (l_debug = 'Y') THEN
1507: okc_debug.log('200: Leaving validate_article_versions_blk: Success');
1508: END IF;
1509:
1510:
1511: EXCEPTION
1515: ROLLBACK TO val_article_versions_blk_PVT;
1516: x_return_status := FND_API.G_RET_STS_ERROR ;
1517:
1518: IF (l_debug = 'Y') THEN
1519: okc_debug.log('201: Leaving validate_article_versions_blk: Error');
1520: END IF;
1521:
1522: IF (l_adopt_as_is_csr%ISOPEN) THEN
1523: CLOSE l_adopt_as_is_csr;
1529: ROLLBACK TO val_article_versions_blk_PVT;
1530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1531:
1532: IF (l_debug = 'Y') THEN
1533: okc_debug.log('202: Leaving validate_article_versions_blk: Unexpected Error');
1534: END IF;
1535:
1536: IF (l_adopt_as_is_csr%ISOPEN) THEN
1537: CLOSE l_adopt_as_is_csr;
1543: ROLLBACK TO val_article_versions_blk_PVT;
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1545:
1546: IF (l_debug = 'Y') THEN
1547: okc_debug.log('203: Leaving validate_article_versions_blk: Unknown Error');
1548: END IF;
1549:
1550: IF (l_adopt_as_is_csr%ISOPEN) THEN
1551: CLOSE l_adopt_as_is_csr;
1603:
1604: BEGIN
1605:
1606: IF (l_debug = 'Y') THEN
1607: okc_debug.log('100: Entering auto_adopt_articles_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit||' p_id='||p_id);
1608: END IF;
1609:
1610: -- standard initialization code
1611: SAVEPOINT auto_adopt_articles_blk_PVT;
1723: COMMIT;
1724: END IF;
1725:
1726: IF (l_debug = 'Y') THEN
1727: okc_debug.log('200: Leaving auto_adopt_articles_blk: Success');
1728: END IF;
1729:
1730: EXCEPTION
1731:
1733: ROLLBACK TO auto_adopt_articles_blk_PVT;
1734: x_return_status := FND_API.G_RET_STS_ERROR ;
1735:
1736: IF (l_debug = 'Y') THEN
1737: okc_debug.log('201: Leaving auto_adopt_articles_blk: Error');
1738: END IF;
1739: IF (l_org_info_csr%ISOPEN) THEN
1740: CLOSE l_org_info_csr;
1741: END IF;
1748: ROLLBACK TO auto_adopt_articles_blk_PVT;
1749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1750:
1751: IF (l_debug = 'Y') THEN
1752: okc_debug.log('202: Leaving auto_adopt_articles_blk: Unexpected Error');
1753: END IF;
1754: IF (l_org_info_csr%ISOPEN) THEN
1755: CLOSE l_org_info_csr;
1756: END IF;
1763: ROLLBACK TO auto_adopt_articles_blk_PVT;
1764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1765:
1766: IF (l_debug = 'Y') THEN
1767: okc_debug.log('203: Leaving auto_adopt_articles_blk: Unknown Error');
1768: END IF;
1769: IF (l_org_info_csr%ISOPEN) THEN
1770: CLOSE l_org_info_csr;
1771: END IF;
1813:
1814: BEGIN
1815:
1816: IF (l_debug = 'Y') THEN
1817: okc_debug.log('100: Entering pending_approval_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
1818:
1819: okc_debug.log('101: In pending_approval_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id);
1820:
1821: IF (p_art_ver_tbl IS NOT NULL) THEN
1815:
1816: IF (l_debug = 'Y') THEN
1817: okc_debug.log('100: Entering pending_approval_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
1818:
1819: okc_debug.log('101: In pending_approval_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id);
1820:
1821: IF (p_art_ver_tbl IS NOT NULL) THEN
1822: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1823: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1818:
1819: okc_debug.log('101: In pending_approval_blk: p_validation_level='|| p_validation_level||' p_org_id='||p_org_id);
1820:
1821: IF (p_art_ver_tbl IS NOT NULL) THEN
1822: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1823: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1824: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
1825: END LOOP;
1826: END IF;
1820:
1821: IF (p_art_ver_tbl IS NOT NULL) THEN
1822: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
1823: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
1824: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
1825: END LOOP;
1826: END IF;
1827: END IF;
1828:
2015: COMMIT;
2016: END IF;
2017:
2018: IF (l_debug = 'Y') THEN
2019: okc_debug.log('200: Leaving pending_approval_blk: Success');
2020: END IF;
2021:
2022: EXCEPTION
2023:
2025: ROLLBACK TO pending_approval_blk_PVT;
2026: x_return_status := FND_API.G_RET_STS_ERROR ;
2027:
2028: IF (l_debug = 'Y') THEN
2029: okc_debug.log('201: Leaving pending_approval_blk: Error');
2030: END IF;
2031: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2032:
2033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2034: ROLLBACK TO pending_approval_blk_PVT;
2035: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2036:
2037: IF (l_debug = 'Y') THEN
2038: okc_debug.log('202: Leaving pending_approval_blk: Unexpected Error');
2039: END IF;
2040:
2041: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2042:
2044: ROLLBACK TO pending_approval_blk_PVT;
2045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2046:
2047: IF (l_debug = 'Y') THEN
2048: okc_debug.log('203: Leaving pending_approval_blk: Unknown Error');
2049: END IF;
2050:
2051: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2052: THEN
2083:
2084: BEGIN
2085:
2086: IF (l_debug = 'Y') THEN
2087: okc_debug.log('100: Entering approve_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
2088:
2089: okc_debug.log('101: In approve_blk: p_org_id='||p_org_id);
2090:
2091: IF (p_art_ver_tbl IS NOT NULL) THEN
2085:
2086: IF (l_debug = 'Y') THEN
2087: okc_debug.log('100: Entering approve_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
2088:
2089: okc_debug.log('101: In approve_blk: p_org_id='||p_org_id);
2090:
2091: IF (p_art_ver_tbl IS NOT NULL) THEN
2092: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2093: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2088:
2089: okc_debug.log('101: In approve_blk: p_org_id='||p_org_id);
2090:
2091: IF (p_art_ver_tbl IS NOT NULL) THEN
2092: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2093: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2094: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
2095: END LOOP;
2096: END IF;
2090:
2091: IF (p_art_ver_tbl IS NOT NULL) THEN
2092: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2093: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2094: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
2095: END LOOP;
2096: END IF;
2097: END IF;
2098:
2252: COMMIT;
2253: END IF;
2254:
2255: IF (l_debug = 'Y') THEN
2256: okc_debug.log('200: Leaving approve_blk: Success');
2257: END IF;
2258:
2259:
2260: EXCEPTION
2263: ROLLBACK TO approve_blk_PVT;
2264: x_return_status := FND_API.G_RET_STS_ERROR ;
2265:
2266: IF (l_debug = 'Y') THEN
2267: okc_debug.log('201: Leaving approve_blk: Error');
2268: END IF;
2269: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2270:
2271: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2272: ROLLBACK TO approve_blk_PVT;
2273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2274:
2275: IF (l_debug = 'Y') THEN
2276: okc_debug.log('202: Leaving approve_blk: Unexpected Error');
2277: END IF;
2278: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2279:
2280: WHEN OTHERS THEN
2281: ROLLBACK TO approve_blk_PVT;
2282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2283:
2284: IF (l_debug = 'Y') THEN
2285: okc_debug.log('203: Leaving approve_blk: Unknown Error');
2286: END IF;
2287:
2288: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2289: THEN
2320:
2321: BEGIN
2322:
2323: IF (l_debug = 'Y') THEN
2324: okc_debug.log('100: Entering reject_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
2325:
2326: okc_debug.log('101: In reject_blk: p_org_id='||p_org_id);
2327:
2328: IF (p_art_ver_tbl IS NOT NULL) THEN
2322:
2323: IF (l_debug = 'Y') THEN
2324: okc_debug.log('100: Entering reject_blk: p_api_version='||p_api_version||' p_init_msg_list='||p_init_msg_list||' p_commit='||p_commit);
2325:
2326: okc_debug.log('101: In reject_blk: p_org_id='||p_org_id);
2327:
2328: IF (p_art_ver_tbl IS NOT NULL) THEN
2329: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2330: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2325:
2326: okc_debug.log('101: In reject_blk: p_org_id='||p_org_id);
2327:
2328: IF (p_art_ver_tbl IS NOT NULL) THEN
2329: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2330: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2331: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
2332: END LOOP;
2333: END IF;
2327:
2328: IF (p_art_ver_tbl IS NOT NULL) THEN
2329: okc_debug.log('102: p_art_ver_tbl.COUNT='||p_art_ver_tbl.COUNT);
2330: FOR i in p_art_ver_tbl.FIRST..p_art_ver_tbl.LAST LOOP
2331: okc_debug.log('103: p_art_ver_tbl['||i||']='||p_art_ver_tbl(i));
2332: END LOOP;
2333: END IF;
2334: END IF;
2335:
2467: COMMIT;
2468: END IF;
2469:
2470: IF (l_debug = 'Y') THEN
2471: okc_debug.log('200: Leaving reject_blk: Success');
2472: END IF;
2473:
2474:
2475: EXCEPTION
2478: ROLLBACK TO reject_blk_PVT;
2479: x_return_status := FND_API.G_RET_STS_ERROR ;
2480:
2481: IF (l_debug = 'Y') THEN
2482: okc_debug.log('201: Leaving reject_blk: Error');
2483: END IF;
2484:
2485: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2486:
2488: ROLLBACK TO reject_blk_PVT;
2489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2490:
2491: IF (l_debug = 'Y') THEN
2492: okc_debug.log('202: Leaving reject_blk: Unexpected Error');
2493: END IF;
2494:
2495: fnd_msg_pub.count_and_get( p_count => x_msg_count , p_data => x_msg_data);
2496:
2498: ROLLBACK TO reject_blk_PVT;
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2500:
2501: IF (l_debug = 'Y') THEN
2502: okc_debug.log('203: Leaving reject_blk: Unknown Error');
2503: END IF;
2504:
2505: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2506: THEN