1: PACKAGE BODY OKE_API AS
2: /* $Header: OKEPAPIB.pls 115.7 2002/11/19 21:00:27 jxtang ship $ */
3:
4: -- MESSAGE CONSTANTS
5:
1: PACKAGE BODY OKE_API AS
2: /* $Header: OKEPAPIB.pls 115.7 2002/11/19 21:00:27 jxtang ship $ */
3:
4: -- MESSAGE CONSTANTS
5:
6: G_MSG_LEVEL_THRESHOLD CONSTANT NUMBER := OKE_API.G_MISS_NUM;
2: /* $Header: OKEPAPIB.pls 115.7 2002/11/19 21:00:27 jxtang ship $ */
3:
4: -- MESSAGE CONSTANTS
5:
6: G_MSG_LEVEL_THRESHOLD CONSTANT NUMBER := OKE_API.G_MISS_NUM;
7:
8: PROCEDURE init_msg_list (
9: p_init_msg_list IN VARCHAR2
10: ) IS
13: FND_MSG_PUB.initialize;
14: END IF;
15: EXCEPTION
16: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17: RAISE OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
18: END init_msg_list;
19:
20: FUNCTION start_activity
21: ( p_api_name IN VARCHAR2
38: , p_api_version
39: , p_api_name
40: , p_pkg_name) THEN
41:
42: RETURN(OKE_API.G_RET_STS_UNEXP_ERROR);
43:
44: END IF;
45:
46: OKE_API.init_msg_list(p_init_msg_list);
42: RETURN(OKE_API.G_RET_STS_UNEXP_ERROR);
43:
44: END IF;
45:
46: OKE_API.init_msg_list(p_init_msg_list);
47:
48: x_return_status := OKE_API.G_RET_STS_SUCCESS;
49:
50: RETURN(OKE_API.G_RET_STS_SUCCESS);
44: END IF;
45:
46: OKE_API.init_msg_list(p_init_msg_list);
47:
48: x_return_status := OKE_API.G_RET_STS_SUCCESS;
49:
50: RETURN(OKE_API.G_RET_STS_SUCCESS);
51:
52: END start_activity;
46: OKE_API.init_msg_list(p_init_msg_list);
47:
48: x_return_status := OKE_API.G_RET_STS_SUCCESS;
49:
50: RETURN(OKE_API.G_RET_STS_SUCCESS);
51:
52: END start_activity;
53:
54:
64: -- Standard START OF API SAVEPOINT
65: --
66: DBMS_TRANSACTION.SAVEPOINT(p_api_name || p_api_type);
67:
68: OKE_API.init_msg_list(p_init_msg_list);
69:
70: x_return_status := OKE_API.G_RET_STS_SUCCESS;
71:
72: RETURN(OKE_API.G_RET_STS_SUCCESS);
66: DBMS_TRANSACTION.SAVEPOINT(p_api_name || p_api_type);
67:
68: OKE_API.init_msg_list(p_init_msg_list);
69:
70: x_return_status := OKE_API.G_RET_STS_SUCCESS;
71:
72: RETURN(OKE_API.G_RET_STS_SUCCESS);
73:
74: END start_activity;
68: OKE_API.init_msg_list(p_init_msg_list);
69:
70: x_return_status := OKE_API.G_RET_STS_SUCCESS;
71:
72: RETURN(OKE_API.G_RET_STS_SUCCESS);
73:
74: END start_activity;
75:
76:
82: , x_msg_data OUT NOCOPY VARCHAR2
83: , p_api_type IN VARCHAR2
84: ) RETURN VARCHAR2 IS
85:
86: l_return_value VARCHAR2(200) := OKE_API.G_RET_STS_UNEXP_ERROR;
87:
88: BEGIN
89:
90: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(p_api_name || p_api_type);
88: BEGIN
89:
90: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT(p_api_name || p_api_type);
91:
92: IF p_exc_name = 'OKE_API.G_RET_STS_ERROR' THEN
93:
94: FND_MSG_PUB.Count_And_Get
95: ( p_count => x_msg_count
96: , p_data => x_msg_data
95: ( p_count => x_msg_count
96: , p_data => x_msg_data
97: );
98:
99: l_return_value := OKE_API.G_RET_STS_ERROR;
100:
101: ELSIF p_exc_name = 'OKE_API.G_RET_STS_UNEXP_ERROR' THEN
102:
103: FND_MSG_PUB.Count_And_Get
97: );
98:
99: l_return_value := OKE_API.G_RET_STS_ERROR;
100:
101: ELSIF p_exc_name = 'OKE_API.G_RET_STS_UNEXP_ERROR' THEN
102:
103: FND_MSG_PUB.Count_And_Get
104: ( p_count => x_msg_count
105: , p_data => x_msg_data
210: FND_MSG_PUB.add;
211:
212: END Set_Message;
213:
214: END OKE_API;