[Home] [Help]
PACKAGE BODY: APPS.CCT_MEDIA_CMD_PKG
Source
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,
10 x_result OUT NOCOPY VARCHAR2,
11
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2
15 )
16 IS
17 l_api_name CONSTANT VARCHAR2(30) := 'EXECUTE_SERVER_CMD_BY_AGENTID';
18 l_api_version CONSTANT NUMBER := 1.0;
19 l_server_id NUMBER;
20
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,
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
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;
47
48 -- call EXECUTE_SERVER_CMD with l_server_id
49 IEO_ICSM_CMD_PUB.EXECUTE_SERVER_CMD(p_api_version,
50 p_init_msg_list,
51 p_commit,
52 p_cmd,
53 l_server_id,
54 x_result,
55 x_return_status,
56 x_msg_count,
57 x_msg_data);
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
67 (
68 p_count => x_msg_count,
69 p_data => x_msg_data
70 );
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 ;
80 FND_MSG_PUB.Count_And_Get
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,
90 p_data => x_msg_data
91 );
92 END EXECUTE_SERVER_CMD_BY_AGENTID;
93
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,
103
104 x_return_status OUT NOCOPY VARCHAR2,
105 x_msg_count OUT NOCOPY NUMBER,
106 x_msg_data OUT NOCOPY VARCHAR2
107 )
108 IS
109 l_api_name CONSTANT VARCHAR2(30) := 'OCCT_DIAL';
110 l_api_version CONSTANT NUMBER := 1.0;
111 -- String that will store all the parameters
112 l_cmd VARCHAR2(256) := 'EXECUTE_ONEWAY mediaCommand occtDial ' || p_agent_id || ' ' || p_destination;
113
114 -- Don't care about the result for now
115 l_result VARCHAR2(256);
116
117 BEGIN
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,
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
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,
144 p_commit,
145 l_cmd,
146 p_agent_id,
147 l_result,
148 x_return_status,
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,
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
166 );
167 END OCCT_DIAL;
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,
177
178 x_return_status OUT NOCOPY VARCHAR2,
179 x_msg_count OUT NOCOPY NUMBER,
180 x_msg_data OUT NOCOPY VARCHAR2
181 )
182 IS
183 l_api_name CONSTANT VARCHAR2(30) := 'OCCT_TRANSFER';
184 l_api_version CONSTANT NUMBER := 1.0;
185 -- String that will store all the parameters
186 l_cmd VARCHAR2(256) := 'EXECUTE_ONEWAY mediaCommand occtInitTransfer ' || p_agent_id || ' ' || p_destination;
187
188 -- Don't care about the result for now
189 l_result VARCHAR2(256);
190
191 BEGIN
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,
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
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,
218 p_commit,
219 l_cmd,
220 p_agent_id,
221 l_result,
222 x_return_status,
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,
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
240 );
241 END OCCT_INIT_TRANSFER;
242
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,
252
253 x_return_status OUT NOCOPY VARCHAR2,
254 x_msg_count OUT NOCOPY NUMBER,
255 x_msg_data OUT NOCOPY VARCHAR2
256 )
257 IS
258 l_api_name CONSTANT VARCHAR2(30) := 'OCCT_CONFERENCE';
259 l_api_version CONSTANT NUMBER := 1.0;
260 -- String that will store all the parameters
261 l_cmd VARCHAR2(256) := 'EXECUTE_ONEWAY mediaCommand occtInitConference ' || p_agent_id || ' ' || p_destination;
262
263 -- Don't care about the result for now
264 l_result VARCHAR2(256);
265
266 BEGIN
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,
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
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,
293 p_commit,
294 l_cmd,
295 p_agent_id,
296 l_result,
297 x_return_status,
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,
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
315 );
316 END OCCT_INIT_CONFERENCE;
317
318 END CCT_MEDIA_CMD_PKG;