10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
22: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
15: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
16:
17: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
19: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20:
21: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
22: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
23: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
51: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
52: END IF;
53:
54: -- Standard call to check for call compatibility.
55: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize API return status to success
52: END IF;
53:
54: -- Standard call to check for call compatibility.
55: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize API return status to success
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59: -- Initialize API return status to success
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61:
62: -- debug log
63: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
64: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
129: fnd_file.put_line(FND_FILE.LOG,' ');
130:
131:
132: IF l_cz_return_status = G_CZ_STATUS_SUCCESS THEN
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134: ELSIF l_cz_return_status = G_CZ_STATUS_ERROR OR
135: l_cz_return_status = G_CZ_STATUS_WARNING THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: ELSE
132: IF l_cz_return_status = G_CZ_STATUS_SUCCESS THEN
133: x_return_status := FND_API.G_RET_STS_SUCCESS;
134: ELSIF l_cz_return_status = G_CZ_STATUS_ERROR OR
135: l_cz_return_status = G_CZ_STATUS_WARNING THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: ELSE
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: END IF;
140:
134: ELSIF l_cz_return_status = G_CZ_STATUS_ERROR OR
135: l_cz_return_status = G_CZ_STATUS_WARNING THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: ELSE
138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
139: END IF;
140:
141: -- Add Error Handling routine to check if all the records were successfully imported
142: -- check if for the x_run_id all the records in the import tables have status = 'OK'
201: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
202: END IF;
203:
204: -- Standard call to check for call compatibility.
205: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: END IF;
208:
209: -- Initialize API return status to success
202: END IF;
203:
204: -- Standard call to check for call compatibility.
205: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: END IF;
208:
209: -- Initialize API return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: END IF;
208:
209: -- Initialize API return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211:
212: -- debug log
213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
343: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
344: END IF;
345:
346: -- Standard call to check for call compatibility.
347: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize API return status to success
344: END IF;
345:
346: -- Standard call to check for call compatibility.
347: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize API return status to success
352: x_return_status := FND_API.G_RET_STS_SUCCESS;
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize API return status to success
352: x_return_status := FND_API.G_RET_STS_SUCCESS;
353:
354: -- debug log
355: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
356: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
471: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
472: END IF;
473:
474: -- Standard call to check for call compatibility.
475: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: END IF;
478:
479: -- Initialize API return status to success
472: END IF;
473:
474: -- Standard call to check for call compatibility.
475: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: END IF;
478:
479: -- Initialize API return status to success
480: x_return_status := FND_API.G_RET_STS_SUCCESS;
476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
477: END IF;
478:
479: -- Initialize API return status to success
480: x_return_status := FND_API.G_RET_STS_SUCCESS;
481:
482: -- debug log
483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
484: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
625: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
626: END IF;
627:
628: -- Standard call to check for call compatibility.
629: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
632:
633: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
626: END IF;
627:
628: -- Standard call to check for call compatibility.
629: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
632:
633: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
634: FND_MSG_PUB.initialize;
629: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
631: END IF;
632:
633: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
634: FND_MSG_PUB.initialize;
635: END IF;
636:
637: -- Initialize API return status to success
634: FND_MSG_PUB.initialize;
635: END IF;
636:
637: -- Initialize API return status to success
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639:
640: -- debug log
641: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
777: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
778: END IF;
779:
780: -- Standard call to check for call compatibility.
781: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784:
785: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
778: END IF;
779:
780: -- Standard call to check for call compatibility.
781: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784:
785: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
786: FND_MSG_PUB.initialize;
781: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
783: END IF;
784:
785: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
786: FND_MSG_PUB.initialize;
787: END IF;
788:
789: -- Initialize API return status to success
786: FND_MSG_PUB.initialize;
787: END IF;
788:
789: -- Initialize API return status to success
790: x_return_status := FND_API.G_RET_STS_SUCCESS;
791:
792: -- debug log
793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
933: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
934: END IF;
935:
936: -- Standard call to check for call compatibility.
937: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
934: END IF;
935:
936: -- Standard call to check for call compatibility.
937: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
942: FND_MSG_PUB.initialize;
937: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
938: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: END IF;
940:
941: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
942: FND_MSG_PUB.initialize;
943: END IF;
944:
945: -- Initialize API return status to success
942: FND_MSG_PUB.initialize;
943: END IF;
944:
945: -- Initialize API return status to success
946: x_return_status := FND_API.G_RET_STS_SUCCESS;
947:
948: -- Initialize Input parameters for the CZ api
949: l_server_id := '0'; -- Check with CZ
950: l_appl_id_tbl(1) := 510; -- OKC App Id
980: );
981:
982: --- If any errors happen abort API
983: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
986: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988:
982: --- If any errors happen abort API
983: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
985: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
986: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988:
989: END LOOP;
990: CLOSE csr_get_publication_dtl;
1197: --
1198: IF (p_config_header_id is NULL OR p_config_rev_nbr is NULL)
1199: THEN
1200: x_msg_data := 'OKC_EXPRT_NULL_PARAM';
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: END IF;
1203:
1204: -- Fix for P1 bug 4090615. Changed from copy_configuration to copy_configuration_auto
1205: CZ_CF_API.copy_configuration_auto(
1223: ELSE
1224: x_msg_data := 'OKC_EXPRT_COPY_CONFIG_FAILED';
1225: END IF;
1226:
1227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1228: END IF;
1229:
1230: x_new_config_header_id := l_x_config_header_id;
1231: x_new_config_rev_nbr := l_x_config_rev_nbr;
1246: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1247: END IF;
1248:
1249: EXCEPTION
1250: WHEN FND_API.G_EXC_ERROR THEN
1251:
1252: x_return_status := FND_API.G_RET_STS_ERROR ;
1253: FND_MSG_PUB.Count_And_Get(
1254: p_count => x_msg_count,
1248:
1249: EXCEPTION
1250: WHEN FND_API.G_EXC_ERROR THEN
1251:
1252: x_return_status := FND_API.G_RET_STS_ERROR ;
1253: FND_MSG_PUB.Count_And_Get(
1254: p_count => x_msg_count,
1255: p_data => x_msg_data
1256: );
1254: p_count => x_msg_count,
1255: p_data => x_msg_data
1256: );
1257:
1258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1259: x_return_status := FND_API.G_RET_STS_ERROR ;
1260: FND_MSG_PUB.Count_And_Get(
1261: p_count => x_msg_count,
1262: p_data => x_msg_data
1255: p_data => x_msg_data
1256: );
1257:
1258: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1259: x_return_status := FND_API.G_RET_STS_ERROR ;
1260: FND_MSG_PUB.Count_And_Get(
1261: p_count => x_msg_count,
1262: p_data => x_msg_data
1263: );
1262: p_data => x_msg_data
1263: );
1264:
1265: WHEN OTHERS THEN
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1267:
1268: IF FND_MSG_PUB.Check_Msg_Level
1269: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1270: THEN
1351: x_msg_data := l_x_error_message;
1352: ELSE
1353: x_msg_data := 'OKC_EXPRT_DEL_CONFIG_FAILED';
1354: END IF;
1355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1356:
1357: END IF;
1358:
1359:
1368: END IF;
1369:
1370:
1371: EXCEPTION
1372: WHEN FND_API.G_EXC_ERROR THEN
1373:
1374: x_return_status := FND_API.G_RET_STS_ERROR ;
1375: FND_MSG_PUB.Count_And_Get(
1376: p_count => x_msg_count,
1370:
1371: EXCEPTION
1372: WHEN FND_API.G_EXC_ERROR THEN
1373:
1374: x_return_status := FND_API.G_RET_STS_ERROR ;
1375: FND_MSG_PUB.Count_And_Get(
1376: p_count => x_msg_count,
1377: p_data => x_msg_data
1378: );
1376: p_count => x_msg_count,
1377: p_data => x_msg_data
1378: );
1379:
1380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1381: x_return_status := FND_API.G_RET_STS_ERROR ;
1382: FND_MSG_PUB.Count_And_Get(
1383: p_count => x_msg_count,
1384: p_data => x_msg_data
1377: p_data => x_msg_data
1378: );
1379:
1380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1381: x_return_status := FND_API.G_RET_STS_ERROR ;
1382: FND_MSG_PUB.Count_And_Get(
1383: p_count => x_msg_count,
1384: p_data => x_msg_data
1385: );
1384: p_data => x_msg_data
1385: );
1386:
1387: WHEN OTHERS THEN
1388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1389:
1390: IF FND_MSG_PUB.Check_Msg_Level
1391: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1392: THEN
1472:
1473: IF (p_cz_xml_init_msg is NULL)
1474: THEN
1475: x_msg_data := 'OKC_EXPRT_BV_NULL_INIT_MSG';
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1479:
1480: CZ_CF_API.VALIDATE(
1531: THEN
1532:
1533: x_msg_data := 'OKC_EXPRT_BV_VALIDATE_ERROR';
1534:
1535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1536:
1537: END IF;
1538:
1539:
1541: -- 0 to 8 in which 0 is success
1542:
1543: IF (l_x_validation_status = 1) THEN
1544: x_msg_data := 'CONFIG_PROCESSED_NO_TERMINATE';
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: ELSIF (l_x_validation_status = 2) THEN
1547: x_msg_data := 'INIT_TOO_LONG';
1548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1549: ELSIF (l_x_validation_status = 3) THEN
1544: x_msg_data := 'CONFIG_PROCESSED_NO_TERMINATE';
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546: ELSIF (l_x_validation_status = 2) THEN
1547: x_msg_data := 'INIT_TOO_LONG';
1548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1549: ELSIF (l_x_validation_status = 3) THEN
1550: x_msg_data := 'INVALID_OPTION_REQUEST';
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: ELSIF (l_x_validation_status = 4) THEN
1547: x_msg_data := 'INIT_TOO_LONG';
1548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1549: ELSIF (l_x_validation_status = 3) THEN
1550: x_msg_data := 'INVALID_OPTION_REQUEST';
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: ELSIF (l_x_validation_status = 4) THEN
1553: x_msg_data := 'CONFIG_EXCEPTION';
1554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: ELSIF (l_x_validation_status = 5) THEN
1550: x_msg_data := 'INVALID_OPTION_REQUEST';
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: ELSIF (l_x_validation_status = 4) THEN
1553: x_msg_data := 'CONFIG_EXCEPTION';
1554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: ELSIF (l_x_validation_status = 5) THEN
1556: x_msg_data := 'DATABASE_ERROR';
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: ELSIF (l_x_validation_status = 6) THEN
1553: x_msg_data := 'CONFIG_EXCEPTION';
1554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1555: ELSIF (l_x_validation_status = 5) THEN
1556: x_msg_data := 'DATABASE_ERROR';
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: ELSIF (l_x_validation_status = 6) THEN
1559: x_msg_data := 'UTL_HTTP_INIT_FAILED';
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: ELSIF (l_x_validation_status = 7) THEN
1556: x_msg_data := 'DATABASE_ERROR';
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: ELSIF (l_x_validation_status = 6) THEN
1559: x_msg_data := 'UTL_HTTP_INIT_FAILED';
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: ELSIF (l_x_validation_status = 7) THEN
1562: x_msg_data := 'UTL_HTTP_REQUEST_FAILED';
1563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1564: ELSIF (l_x_validation_status = 8) THEN
1559: x_msg_data := 'UTL_HTTP_INIT_FAILED';
1560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1561: ELSIF (l_x_validation_status = 7) THEN
1562: x_msg_data := 'UTL_HTTP_REQUEST_FAILED';
1563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1564: ELSIF (l_x_validation_status = 8) THEN
1565: x_msg_data := 'INVALID_VALIDATION_TYPE';
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: END IF; -- l_x_validation_status <> 0
1562: x_msg_data := 'UTL_HTTP_REQUEST_FAILED';
1563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1564: ELSIF (l_x_validation_status = 8) THEN
1565: x_msg_data := 'INVALID_VALIDATION_TYPE';
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: END IF; -- l_x_validation_status <> 0
1568:
1569: --
1570: -- Convert HTML_PIECES to LONG for parsing
1593: END IF;
1594:
1595:
1596: EXCEPTION
1597: WHEN FND_API.G_EXC_ERROR THEN
1598:
1599: x_return_status := FND_API.G_RET_STS_ERROR ;
1600: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1601: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1595:
1596: EXCEPTION
1597: WHEN FND_API.G_EXC_ERROR THEN
1598:
1599: x_return_status := FND_API.G_RET_STS_ERROR ;
1600: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1601: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1602: END IF;
1603:
1605: p_count => x_msg_count,
1606: p_data => x_msg_data
1607: );
1608:
1609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1610: x_return_status := FND_API.G_RET_STS_ERROR ;
1611: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1612: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1613: END IF;
1606: p_data => x_msg_data
1607: );
1608:
1609: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1610: x_return_status := FND_API.G_RET_STS_ERROR ;
1611: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1612: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1613: END IF;
1614: FND_MSG_PUB.Count_And_Get(
1616: p_data => x_msg_data
1617: );
1618:
1619: WHEN OTHERS THEN
1620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1621:
1622: IF FND_MSG_PUB.Check_Msg_Level
1623: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1624: THEN
1676: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1677: END IF;
1678:
1679: -- Standard call to check for call compatibility.
1680: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1684: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1677: END IF;
1678:
1679: -- Standard call to check for call compatibility.
1680: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1684: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1685: FND_MSG_PUB.initialize;
1680: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1682: END IF;
1683:
1684: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1685: FND_MSG_PUB.initialize;
1686: END IF;
1687:
1688: -- Initialize API return status to success
1685: FND_MSG_PUB.initialize;
1686: END IF;
1687:
1688: -- Initialize API return status to success
1689: x_return_status := FND_API.G_RET_STS_SUCCESS;
1690:
1691: -- Initialize Input parameters for the CZ api
1692: l_applicationId(1) := '510'; -- OKC App Id
1693: l_usageId(1) := '-1'; -- Any usage
1861: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1862: END IF;
1863:
1864: -- Standard call to check for call compatibility.
1865: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1867: END IF;
1868:
1869: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1862: END IF;
1863:
1864: -- Standard call to check for call compatibility.
1865: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1867: END IF;
1868:
1869: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1870: FND_MSG_PUB.initialize;
1865: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1867: END IF;
1868:
1869: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
1870: FND_MSG_PUB.initialize;
1871: END IF;
1872:
1873: -- Initialize API return status to success
1870: FND_MSG_PUB.initialize;
1871: END IF;
1872:
1873: -- Initialize API return status to success
1874: x_return_status := FND_API.G_RET_STS_SUCCESS;
1875:
1876: -- debug log
1877: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
2016: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
2017: END IF;
2018:
2019: -- Standard call to check for call compatibility.
2020: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023:
2024: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
2017: END IF;
2018:
2019: -- Standard call to check for call compatibility.
2020: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023:
2024: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
2025: FND_MSG_PUB.initialize;
2020: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2022: END IF;
2023:
2024: IF FND_API.to_Boolean( p_init_msg_lst ) THEN
2025: FND_MSG_PUB.initialize;
2026: END IF;
2027:
2028: -- Initialize API return status to success
2025: FND_MSG_PUB.initialize;
2026: END IF;
2027:
2028: -- Initialize API return status to success
2029: x_return_status := FND_API.G_RET_STS_SUCCESS;
2030:
2031: -- debug log
2032: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2033: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,