367: P_DELIVERABLE_ID IN NUMBER,
368: X_OUT_ID OUT NOCOPY NUMBER,
369: X_RETURN_STATUS OUT NOCOPY VARCHAR2)
370: IS
371: l_return_status VARCHAR2(1) := oke_api.g_ret_sts_success;
372: l_api_version CONSTANT NUMBER :=1;
373: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_MDS_ENTRY';
374: x_msg_count NUMBER;
375: x_msg_data VARCHAR2(2000);
429: L_Inv_Org_ID_Old NUMBER;
430: L_Designator_Old VARCHAR2(80);
431:
432: BEGIN
433: l_return_status := OKE_API.START_ACTIVITY(
434: l_api_name,
435: OKE_API.G_FALSE,
436: '_PVT',
437: x_return_status);
431:
432: BEGIN
433: l_return_status := OKE_API.START_ACTIVITY(
434: l_api_name,
435: OKE_API.G_FALSE,
436: '_PVT',
437: x_return_status);
438:
439: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
435: OKE_API.G_FALSE,
436: '_PVT',
437: x_return_status);
438:
439: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
442: RAISE OKE_API.G_EXCEPTION_ERROR;
443: END IF;
436: '_PVT',
437: x_return_status);
438:
439: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
442: RAISE OKE_API.G_EXCEPTION_ERROR;
443: END IF;
444:
437: x_return_status);
438:
439: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
442: RAISE OKE_API.G_EXCEPTION_ERROR;
443: END IF;
444:
445: Open Mds_C;
438:
439: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
440: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
441: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
442: RAISE OKE_API.G_EXCEPTION_ERROR;
443: END IF;
444:
445: Open Mds_C;
446: Fetch Mds_C Into L_DRow_ID, L_Item_ID, L_Inv_Org_ID, L_Designator,
536: Create_Mrp_Item( l_Item_Id, l_Inv_Org_Id, l_Designator );
537: END IF;
538:
539: x_return_status := l_return_status;
540: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
541:
542: EXCEPTION
543: WHEN OKE_API.G_EXCEPTION_ERROR THEN
544:
539: x_return_status := l_return_status;
540: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
541:
542: EXCEPTION
543: WHEN OKE_API.G_EXCEPTION_ERROR THEN
544:
545: x_return_status := OKE_API.HANDLE_EXCEPTIONS
546: (
547: l_api_name,
541:
542: EXCEPTION
543: WHEN OKE_API.G_EXCEPTION_ERROR THEN
544:
545: x_return_status := OKE_API.HANDLE_EXCEPTIONS
546: (
547: l_api_name,
548: G_PKG_NAME,
549: 'OKE_API.G_RET_STS_ERROR',
545: x_return_status := OKE_API.HANDLE_EXCEPTIONS
546: (
547: l_api_name,
548: G_PKG_NAME,
549: 'OKE_API.G_RET_STS_ERROR',
550: x_msg_count,
551: x_msg_data,
552: '_PVT');
553: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
549: 'OKE_API.G_RET_STS_ERROR',
550: x_msg_count,
551: x_msg_data,
552: '_PVT');
553: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
554: x_return_status := OKE_API.HANDLE_EXCEPTIONS
555: (
556: l_api_name,
557: G_PKG_NAME,
550: x_msg_count,
551: x_msg_data,
552: '_PVT');
553: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
554: x_return_status := OKE_API.HANDLE_EXCEPTIONS
555: (
556: l_api_name,
557: G_PKG_NAME,
558: 'OKE_API.G_RET_STS_UNEXP_ERROR',
554: x_return_status := OKE_API.HANDLE_EXCEPTIONS
555: (
556: l_api_name,
557: G_PKG_NAME,
558: 'OKE_API.G_RET_STS_UNEXP_ERROR',
559: x_msg_count,
560: x_msg_data,
561: '_PVT');
562:
560: x_msg_data,
561: '_PVT');
562:
563: WHEN OTHERS THEN
564: x_return_status := OKE_API.HANDLE_EXCEPTIONS
565: (
566: l_api_name,
567: G_PKG_NAME,
568: 'OTHERS',
689: -- linfo l_line_csr%rowtype;
690: L_Flag VARCHAR2(1);
691:
692: BEGIN
693: l_return_status := OKE_API.START_ACTIVITY(
694: l_api_name,
695: OKE_API.G_FALSE,
696: '_PVT',
697: x_return_status);
691:
692: BEGIN
693: l_return_status := OKE_API.START_ACTIVITY(
694: l_api_name,
695: OKE_API.G_FALSE,
696: '_PVT',
697: x_return_status);
698:
699: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
695: OKE_API.G_FALSE,
696: '_PVT',
697: x_return_status);
698:
699: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
700:
701: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
702:
703: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
697: x_return_status);
698:
699: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
700:
701: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
702:
703: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
704:
705: RAISE OKE_API.G_EXCEPTION_ERROR;
699: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
700:
701: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
702:
703: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
704:
705: RAISE OKE_API.G_EXCEPTION_ERROR;
706:
707: END IF;
701: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
702:
703: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
704:
705: RAISE OKE_API.G_EXCEPTION_ERROR;
706:
707: END IF;
708:
709: OPEN l_line_csr(P_DELIVERABLE_ID);
918: IF rec_dts_ship.shipping_request_id IS NOT NULL THEN
919: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_SHIP_EXISTS');
920: FND_MESSAGE.set_token('SHIPPING_DETAIL',rec_dts_ship.shipping_request_id);
921: FND_MSG_PUB.Add;
922: RAISE OKE_API.G_EXCEPTION_ERROR;
923: END IF;
924: /* Bug 6011322 end */
925:
926: -- call api
925:
926: -- call api
927: WSH_interface_pub.create_shipment_lines(l_ship_rec, l_id, l_return_status);
928:
929: if l_return_status = oke_api.g_ret_sts_success then
930: -- update deliverable table
931: update oke_k_deliverables_b
932: set shipping_request_id = l_id,
933: in_process_flag = 'Y',
937: x_return_status := l_return_status;
938:
939: else
940:
941: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
942:
943: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
944:
945: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
939: else
940:
941: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
942:
943: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
944:
945: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
946:
947: RAISE OKE_API.G_EXCEPTION_ERROR;
941: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
942:
943: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
944:
945: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
946:
947: RAISE OKE_API.G_EXCEPTION_ERROR;
948:
949: END IF;
943: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
944:
945: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
946:
947: RAISE OKE_API.G_EXCEPTION_ERROR;
948:
949: END IF;
950:
951: end if;
950:
951: end if;
952:
953: END LOOP;
954: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
955: COMMIT;
956:
957:
958:
956:
957:
958:
959: EXCEPTION
960: WHEN OKE_API.G_EXCEPTION_ERROR THEN
961:
962: x_return_status := OKE_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
958:
959: EXCEPTION
960: WHEN OKE_API.G_EXCEPTION_ERROR THEN
961:
962: x_return_status := OKE_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKE_API.G_RET_STS_ERROR',
962: x_return_status := OKE_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKE_API.G_RET_STS_ERROR',
967: x_msg_count,
968: x_msg_data,
969: '_PVT');
970: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
966: 'OKE_API.G_RET_STS_ERROR',
967: x_msg_count,
968: x_msg_data,
969: '_PVT');
970: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
971: x_return_status := OKE_API.HANDLE_EXCEPTIONS
972: (
973: l_api_name,
974: G_PKG_NAME,
967: x_msg_count,
968: x_msg_data,
969: '_PVT');
970: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
971: x_return_status := OKE_API.HANDLE_EXCEPTIONS
972: (
973: l_api_name,
974: G_PKG_NAME,
975: 'OKE_API.G_RET_STS_UNEXP_ERROR',
971: x_return_status := OKE_API.HANDLE_EXCEPTIONS
972: (
973: l_api_name,
974: G_PKG_NAME,
975: 'OKE_API.G_RET_STS_UNEXP_ERROR',
976: x_msg_count,
977: x_msg_data,
978: '_PVT');
979:
977: x_msg_data,
978: '_PVT');
979:
980: WHEN OTHERS THEN
981: x_return_status := OKE_API.HANDLE_EXCEPTIONS
982: (
983: l_api_name,
984: G_PKG_NAME,
985: 'OTHERS',
1183: FROM okc_k_headers_b
1184: WHERE ID = (SELECT K_Header_ID FROM oke_k_deliverables_b WHERE Deliverable_ID = P_Deliverable_ID);
1185:
1186: BEGIN
1187: l_return_status := OKE_API.START_ACTIVITY(
1188: l_api_name,
1189: OKE_API.G_FALSE,
1190: '_PVT',
1191: x_return_status);
1185:
1186: BEGIN
1187: l_return_status := OKE_API.START_ACTIVITY(
1188: l_api_name,
1189: OKE_API.G_FALSE,
1190: '_PVT',
1191: x_return_status);
1192:
1193: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1189: OKE_API.G_FALSE,
1190: '_PVT',
1191: x_return_status);
1192:
1193: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1194:
1195: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196:
1197: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1191: x_return_status);
1192:
1193: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1194:
1195: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196:
1197: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1198:
1199: RAISE OKE_API.G_EXCEPTION_ERROR;
1193: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1194:
1195: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196:
1197: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1198:
1199: RAISE OKE_API.G_EXCEPTION_ERROR;
1200:
1201: END IF;
1195: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1196:
1197: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1198:
1199: RAISE OKE_API.G_EXCEPTION_ERROR;
1200:
1201: END IF;
1202:
1203:
1257: FND_MSG_PUB.Add;
1258: end loop;
1259: close pi;
1260: if ( l_error_code is not null ) then
1261: RAISE OKE_API.G_EXCEPTION_ERROR;
1262: end if;
1263:
1264: l_exp_type := NULL;
1265: l_exp_org_id := NULL;
1279: FND_MSG_PUB.Add;
1280: end loop;
1281: close pe;
1282: if ( l_error_code is not null ) then
1283: RAISE OKE_API.G_EXCEPTION_ERROR;
1284: end if;
1285:
1286: end if;
1287:
1349: FOR rec_dts_req IN csr_dts_req(p_deliverable_id) LOOP
1350: /*Bug Bumber: 6011322 */
1351: if rec_dts_req.po_ref_1 > 0 then
1352:
1353: l_return_status := OKE_API.G_RET_STS_ERROR;
1354: open req_c(p_deliverable_id, rec_dts_req.po_ref_1);
1355: fetch req_c into l_return_status;
1356: close req_c;
1357: IF l_return_status = OKE_API.G_RET_STS_ERROR THEN
1353: l_return_status := OKE_API.G_RET_STS_ERROR;
1354: open req_c(p_deliverable_id, rec_dts_req.po_ref_1);
1355: fetch req_c into l_return_status;
1356: close req_c;
1357: IF l_return_status = OKE_API.G_RET_STS_ERROR THEN
1358: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_REQ_EXISTS');
1359: FND_MSG_PUB.Add;
1360: RAISE OKE_API.G_EXCEPTION_ERROR;
1361: END IF;
1356: close req_c;
1357: IF l_return_status = OKE_API.G_RET_STS_ERROR THEN
1358: FND_MESSAGE.Set_Name('OKE', 'OKE_DTS_REQ_EXISTS');
1359: FND_MSG_PUB.Add;
1360: RAISE OKE_API.G_EXCEPTION_ERROR;
1361: END IF;
1362:
1363: end if;
1364:
1469: and mp.organization_id = d.inventory_org_id;
1470:
1471:
1472:
1473: if l_return_status = oke_api.g_ret_sts_success then
1474: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1475: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Req created successfully, update deliverable table');
1476: END IF;
1477:
1498: P_DELIVERABLE_ID => P_DELIVERABLE_ID,
1499: X_OUT_ID => L_MPS_ID,
1500: X_RETURN_STATUS => L_RETURN_STATUS);
1501:
1502: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1503:
1504: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505:
1506: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1500: X_RETURN_STATUS => L_RETURN_STATUS);
1501:
1502: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1503:
1504: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505:
1506: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1507:
1508: RAISE OKE_API.G_EXCEPTION_ERROR;
1502: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1503:
1504: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505:
1506: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1507:
1508: RAISE OKE_API.G_EXCEPTION_ERROR;
1509:
1510: END IF;
1504: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505:
1506: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1507:
1508: RAISE OKE_API.G_EXCEPTION_ERROR;
1509:
1510: END IF;
1511:
1512: END IF;
1521:
1522:
1523: else
1524:
1525: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1526:
1527: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528:
1529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1523: else
1524:
1525: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1526:
1527: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528:
1529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1530:
1531: RAISE OKE_API.G_EXCEPTION_ERROR;
1525: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1526:
1527: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528:
1529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1530:
1531: RAISE OKE_API.G_EXCEPTION_ERROR;
1532:
1533: END IF;
1527: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528:
1529: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1530:
1531: RAISE OKE_API.G_EXCEPTION_ERROR;
1532:
1533: END IF;
1534:
1535: end if;
1540:
1541:
1542: end if;
1543:
1544: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
1545:
1546:
1547: EXCEPTION
1548: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1544: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
1545:
1546:
1547: EXCEPTION
1548: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1549:
1550: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1546:
1547: EXCEPTION
1548: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1549:
1550: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OKE_API.G_RET_STS_ERROR',
1550: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1551: (
1552: l_api_name,
1553: G_PKG_NAME,
1554: 'OKE_API.G_RET_STS_ERROR',
1555: x_msg_count,
1556: x_msg_data,
1557: '_PVT');
1558: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: 'OKE_API.G_RET_STS_ERROR',
1555: x_msg_count,
1556: x_msg_data,
1557: '_PVT');
1558: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1555: x_msg_count,
1556: x_msg_data,
1557: '_PVT');
1558: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1559: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1559: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1560: (
1561: l_api_name,
1562: G_PKG_NAME,
1563: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1564: x_msg_count,
1565: x_msg_data,
1566: '_PVT');
1567:
1565: x_msg_data,
1566: '_PVT');
1567:
1568: WHEN OTHERS THEN
1569: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1570: (
1571: l_api_name,
1572: G_PKG_NAME,
1573: 'OTHERS',
1595:
1596: BEGIN
1597:
1598: l_api_name := 'CREATE_ACTIONS';
1599: l_return_status := OKE_API.G_RET_STS_SUCCESS;
1600:
1601: l_return_status := OKE_API.START_ACTIVITY(
1602: l_api_name,
1603: OKE_API.G_FALSE,
1597:
1598: l_api_name := 'CREATE_ACTIONS';
1599: l_return_status := OKE_API.G_RET_STS_SUCCESS;
1600:
1601: l_return_status := OKE_API.START_ACTIVITY(
1602: l_api_name,
1603: OKE_API.G_FALSE,
1604: '_PVT',
1605: x_return_status);
1599: l_return_status := OKE_API.G_RET_STS_SUCCESS;
1600:
1601: l_return_status := OKE_API.START_ACTIVITY(
1602: l_api_name,
1603: OKE_API.G_FALSE,
1604: '_PVT',
1605: x_return_status);
1606:
1607: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1603: OKE_API.G_FALSE,
1604: '_PVT',
1605: x_return_status);
1606:
1607: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1608:
1609: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610:
1611: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1605: x_return_status);
1606:
1607: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1608:
1609: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610:
1611: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1612:
1613: RAISE OKE_API.G_EXCEPTION_ERROR;
1607: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1608:
1609: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610:
1611: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1612:
1613: RAISE OKE_API.G_EXCEPTION_ERROR;
1614:
1615: END IF;
1609: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1610:
1611: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1612:
1613: RAISE OKE_API.G_EXCEPTION_ERROR;
1614:
1615: END IF;
1616:
1617:
1641:
1642: END IF;
1643:
1644:
1645: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1646:
1647: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648:
1649: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1643:
1644:
1645: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1646:
1647: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648:
1649: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1650:
1651: RAISE OKE_API.G_EXCEPTION_ERROR;
1645: IF (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) THEN
1646:
1647: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648:
1649: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1650:
1651: RAISE OKE_API.G_EXCEPTION_ERROR;
1652:
1653: END IF;
1647: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1648:
1649: ELSIF (l_return_status = OKE_API.G_RET_STS_ERROR) THEN
1650:
1651: RAISE OKE_API.G_EXCEPTION_ERROR;
1652:
1653: END IF;
1654:
1655: x_return_status := l_return_status;
1653: END IF;
1654:
1655: x_return_status := l_return_status;
1656:
1657: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
1658:
1659: EXCEPTION
1660: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1661:
1656:
1657: OKE_API.END_ACTIVITY(x_msg_count, x_msg_data);
1658:
1659: EXCEPTION
1660: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1661:
1662: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1658:
1659: EXCEPTION
1660: WHEN OKE_API.G_EXCEPTION_ERROR THEN
1661:
1662: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1665: G_PKG_NAME,
1666: 'OKE_API.G_RET_STS_ERROR',
1662: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1663: (
1664: l_api_name,
1665: G_PKG_NAME,
1666: 'OKE_API.G_RET_STS_ERROR',
1667: x_msg_count,
1668: x_msg_data,
1669: '_PVT');
1670: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1666: 'OKE_API.G_RET_STS_ERROR',
1667: x_msg_count,
1668: x_msg_data,
1669: '_PVT');
1670: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1671: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1667: x_msg_count,
1668: x_msg_data,
1669: '_PVT');
1670: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1671: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1675: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1671: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1672: (
1673: l_api_name,
1674: G_PKG_NAME,
1675: 'OKE_API.G_RET_STS_UNEXP_ERROR',
1676: x_msg_count,
1677: x_msg_data,
1678: '_PVT');
1679:
1677: x_msg_data,
1678: '_PVT');
1679:
1680: WHEN OTHERS THEN
1681: x_return_status := OKE_API.HANDLE_EXCEPTIONS
1682: (
1683: l_api_name,
1684: G_PKG_NAME,
1685: 'OTHERS',
2024: , ItemKey => ItemKey
2025: , AName => 'RETURN_STATUS'
2026: , AValue => l_return_status );
2027:
2028: IF ( l_return_status <> OKE_API.G_RET_STS_SUCCESS ) THEN
2029:
2030: if ( l_msg_count = 1 ) then
2031: l_error_text := FND_MSG_PUB.Get( p_msg_index => 1 , p_encoded => 'F' );
2032: elsif ( l_msg_count > 1 ) then