1: PACKAGE BODY CCT_MEDIA_CMD_PKG AS
2: PROCEDURE EXECUTE_SERVER_CMD_BY_AGENTID
3: (
4: p_api_version IN NUMBER,
5: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
6: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
7:
8: p_cmd IN VARCHAR2,
9: p_agent_id IN NUMBER,
2: PROCEDURE EXECUTE_SERVER_CMD_BY_AGENTID
3: (
4: p_api_version IN NUMBER,
5: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
6: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
7:
8: p_cmd IN VARCHAR2,
9: p_agent_id IN NUMBER,
10: x_result OUT NOCOPY VARCHAR2,
21: BEGIN
22: -- Standard Start of API savepoint
23:
24: -- Standard call to check for call compatibility.
25: IF NOT FND_API.Compatible_API_Call
26: (
27: l_api_version,
28: p_api_version,
29: l_api_name,
29: l_api_name,
30: G_PKG_NAME
31: )
32: THEN
33: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35:
36: -- Initialize message list if p_init_msg_list is set to TRUE.
37: IF FND_API.To_Boolean( p_init_msg_list ) THEN
33: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34: END IF;
35:
36: -- Initialize message list if p_init_msg_list is set to TRUE.
37: IF FND_API.To_Boolean( p_init_msg_list ) THEN
38: FND_MSG_PUB.initialize;
39: END IF;
40:
41: -- Initialize API return status to success
38: FND_MSG_PUB.initialize;
39: END IF;
40:
41: -- Initialize API return status to success
42: x_return_status := FND_API.G_RET_STS_SUCCESS;
43:
44: -- API body
45: -- Query server id from agent id
46: select mcm_id into l_server_id from CCT_AGENT_RT_STATS where agent_id = p_agent_id;
58:
59: -- End of API body.
60:
61: -- Standard check of p_commit.
62: IF FND_API.To_Boolean( p_commit ) THEN
63: COMMIT WORK;
64: END IF;
65: -- Standard call to get message count and if count is 1, get message info.
66: FND_MSG_PUB.Count_And_Get
71:
72: EXCEPTION
73: WHEN no_data_found THEN
74: x_msg_data := G_AGENT_NOT_LOGGED_IN;
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: x_msg_count := 1;
77:
78: WHEN FND_API.G_EXC_ERROR THEN
79: x_return_status := FND_API.G_RET_STS_ERROR ;
74: x_msg_data := G_AGENT_NOT_LOGGED_IN;
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: x_msg_count := 1;
77:
78: WHEN FND_API.G_EXC_ERROR THEN
79: x_return_status := FND_API.G_RET_STS_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: (
82: p_count => x_msg_count,
75: x_return_status := FND_API.G_RET_STS_ERROR;
76: x_msg_count := 1;
77:
78: WHEN FND_API.G_EXC_ERROR THEN
79: x_return_status := FND_API.G_RET_STS_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: (
82: p_count => x_msg_count,
83: p_data => x_msg_data
81: (
82: p_count => x_msg_count,
83: p_data => x_msg_data
84: );
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
88: (
89: p_count => x_msg_count,
82: p_count => x_msg_count,
83: p_data => x_msg_data
84: );
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
87: FND_MSG_PUB.Count_And_Get
88: (
89: p_count => x_msg_count,
90: p_data => x_msg_data
94:
95: PROCEDURE OCCT_DIAL
96: (
97: p_api_version IN NUMBER,
98: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
99: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
100:
101: p_agent_id IN NUMBER,
102: p_destination IN VARCHAR2,
95: PROCEDURE OCCT_DIAL
96: (
97: p_api_version IN NUMBER,
98: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
99: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
100:
101: p_agent_id IN NUMBER,
102: p_destination IN VARCHAR2,
103:
118:
119: -- Standard Start of API savepoint
120:
121: -- Standard call to check for call compatibility.
122: IF NOT FND_API.Compatible_API_Call
123: (
124: l_api_version,
125: p_api_version,
126: l_api_name,
126: l_api_name,
127: G_PKG_NAME
128: )
129: THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: END IF;
132:
133: -- Initialize message list if p_init_msg_list is set to TRUE.
134: IF FND_API.To_Boolean( p_init_msg_list ) THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: END IF;
132:
133: -- Initialize message list if p_init_msg_list is set to TRUE.
134: IF FND_API.To_Boolean( p_init_msg_list ) THEN
135: FND_MSG_PUB.initialize;
136: END IF;
137:
138: -- Initialize API return status to success
135: FND_MSG_PUB.initialize;
136: END IF;
137:
138: -- Initialize API return status to success
139: x_return_status := FND_API.G_RET_STS_SUCCESS;
140:
141: EXECUTE_SERVER_CMD_BY_AGENTID(
142: p_api_version,
143: p_init_msg_list,
149: x_msg_count,
150: x_msg_data);
151:
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_ERROR ;
155: FND_MSG_PUB.Count_And_Get
156: (
157: p_count => x_msg_count,
150: x_msg_data);
151:
152: EXCEPTION
153: WHEN FND_API.G_EXC_ERROR THEN
154: x_return_status := FND_API.G_RET_STS_ERROR ;
155: FND_MSG_PUB.Count_And_Get
156: (
157: p_count => x_msg_count,
158: p_data => x_msg_data
156: (
157: p_count => x_msg_count,
158: p_data => x_msg_data
159: );
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: FND_MSG_PUB.Count_And_Get
163: (
164: p_count => x_msg_count,
157: p_count => x_msg_count,
158: p_data => x_msg_data
159: );
160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: FND_MSG_PUB.Count_And_Get
163: (
164: p_count => x_msg_count,
165: p_data => x_msg_data
168:
169: PROCEDURE OCCT_INIT_TRANSFER
170: (
171: p_api_version IN NUMBER,
172: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
173: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
174:
175: p_agent_id IN NUMBER,
176: p_destination IN VARCHAR2,
169: PROCEDURE OCCT_INIT_TRANSFER
170: (
171: p_api_version IN NUMBER,
172: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
173: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
174:
175: p_agent_id IN NUMBER,
176: p_destination IN VARCHAR2,
177:
192:
193: -- Standard Start of API savepoint
194:
195: -- Standard call to check for call compatibility.
196: IF NOT FND_API.Compatible_API_Call
197: (
198: l_api_version,
199: p_api_version,
200: l_api_name,
200: l_api_name,
201: G_PKG_NAME
202: )
203: THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: END IF;
206:
207: -- Initialize message list if p_init_msg_list is set to TRUE.
208: IF FND_API.To_Boolean( p_init_msg_list ) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: END IF;
206:
207: -- Initialize message list if p_init_msg_list is set to TRUE.
208: IF FND_API.To_Boolean( p_init_msg_list ) THEN
209: FND_MSG_PUB.initialize;
210: END IF;
211:
212: -- Initialize API return status to success
209: FND_MSG_PUB.initialize;
210: END IF;
211:
212: -- Initialize API return status to success
213: x_return_status := FND_API.G_RET_STS_SUCCESS;
214:
215: EXECUTE_SERVER_CMD_BY_AGENTID(
216: p_api_version,
217: p_init_msg_list,
223: x_msg_count,
224: x_msg_data);
225:
226: EXCEPTION
227: WHEN FND_API.G_EXC_ERROR THEN
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: FND_MSG_PUB.Count_And_Get
230: (
231: p_count => x_msg_count,
224: x_msg_data);
225:
226: EXCEPTION
227: WHEN FND_API.G_EXC_ERROR THEN
228: x_return_status := FND_API.G_RET_STS_ERROR ;
229: FND_MSG_PUB.Count_And_Get
230: (
231: p_count => x_msg_count,
232: p_data => x_msg_data
230: (
231: p_count => x_msg_count,
232: p_data => x_msg_data
233: );
234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
236: FND_MSG_PUB.Count_And_Get
237: (
238: p_count => x_msg_count,
231: p_count => x_msg_count,
232: p_data => x_msg_data
233: );
234: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
236: FND_MSG_PUB.Count_And_Get
237: (
238: p_count => x_msg_count,
239: p_data => x_msg_data
243:
244: PROCEDURE OCCT_INIT_CONFERENCE
245: (
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
248: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
249:
250: p_agent_id IN NUMBER,
251: p_destination IN VARCHAR2,
244: PROCEDURE OCCT_INIT_CONFERENCE
245: (
246: p_api_version IN NUMBER,
247: p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE,
248: p_commit IN VARCHAR2 Default FND_API.G_FALSE,
249:
250: p_agent_id IN NUMBER,
251: p_destination IN VARCHAR2,
252:
267:
268: -- Standard Start of API savepoint
269:
270: -- Standard call to check for call compatibility.
271: IF NOT FND_API.Compatible_API_Call
272: (
273: l_api_version,
274: p_api_version,
275: l_api_name,
275: l_api_name,
276: G_PKG_NAME
277: )
278: THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281:
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF FND_API.To_Boolean( p_init_msg_list ) THEN
279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281:
282: -- Initialize message list if p_init_msg_list is set to TRUE.
283: IF FND_API.To_Boolean( p_init_msg_list ) THEN
284: FND_MSG_PUB.initialize;
285: END IF;
286:
287: -- Initialize API return status to success
284: FND_MSG_PUB.initialize;
285: END IF;
286:
287: -- Initialize API return status to success
288: x_return_status := FND_API.G_RET_STS_SUCCESS;
289:
290: EXECUTE_SERVER_CMD_BY_AGENTID(
291: p_api_version,
292: p_init_msg_list,
298: x_msg_count,
299: x_msg_data);
300:
301: EXCEPTION
302: WHEN FND_API.G_EXC_ERROR THEN
303: x_return_status := FND_API.G_RET_STS_ERROR ;
304: FND_MSG_PUB.Count_And_Get
305: (
306: p_count => x_msg_count,
299: x_msg_data);
300:
301: EXCEPTION
302: WHEN FND_API.G_EXC_ERROR THEN
303: x_return_status := FND_API.G_RET_STS_ERROR ;
304: FND_MSG_PUB.Count_And_Get
305: (
306: p_count => x_msg_count,
307: p_data => x_msg_data
305: (
306: p_count => x_msg_count,
307: p_data => x_msg_data
308: );
309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: FND_MSG_PUB.Count_And_Get
312: (
313: p_count => x_msg_count,
306: p_count => x_msg_count,
307: p_data => x_msg_data
308: );
309: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
311: FND_MSG_PUB.Count_And_Get
312: (
313: p_count => x_msg_count,
314: p_data => x_msg_data