[Home] [Help]
PACKAGE BODY: APPS.JTS_RESPONSIBILITY_PUB
Source
1 PACKAGE BODY JTS_RESPONSIBILITY_PUB as
2 /* $Header: jtsprspb.pls 115.4 2002/01/24 19:15:57 pkm ship $ */
3
4
5 -- Start of Comments
6 -- Package name : JTS_RESPONSIBILITY_PUB
7 -- Purpose :
8 -- History :
9 -- NOTE :
10 -- End of Comments
11
12
13 G_PKG_NAME CONSTANT VARCHAR2(30) := 'JTS_RESPONSIBILITY_PUB';
14 G_FILE_NAME CONSTANT VARCHAR2(12) := 'jtsprspb.pls';
15
16
17 PROCEDURE Create_Responsibility
18 ( p_api_version_number IN NUMBER,
19 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
20 p_commit IN VARCHAR2 := FND_API.G_FALSE,
21 p_appl_id IN NUMBER,
22 p_menu_id IN NUMBER,
23 p_start_date IN DATE,
24 p_end_date IN DATE,
25 p_resp_key IN VARCHAR2,
26 p_resp_name IN VARCHAR2,
27 p_description IN VARCHAR2,
28 x_return_status OUT VARCHAR2,
29 x_msg_count OUT NUMBER,
30 x_msg_data OUT VARCHAR2,
31 x_resp_id OUT NUMBER
32 )
33 IS
34 l_api_name CONSTANT VARCHAR2(30) := 'Create_Responsibility';
35 l_api_version_number CONSTANT NUMBER := 1.0;
36 l_rowid VARCHAR2(50);
37 l_resp_id NUMBER;
38
39 CURSOR c_dup_key IS
40 SELECT 'Y' FROM FND_RESPONSIBILITY
41 WHERE application_id = p_appl_id
42 AND responsibility_key = p_resp_key;
43 l_found_dup VARCHAR2(1) := 'N';
44
45 BEGIN
46 -- Standard Start of API savepoint
47 SAVEPOINT CREATE_RESPONSIBILITY_PUB;
48
49 -- Standard call to check for call compatibility.
50 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
51 p_api_version_number,
52 l_api_name,
53 G_PKG_NAME)
54 THEN
55 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56 END IF;
57
58
59 -- Initialize message list if p_init_msg_list is set to TRUE.
60 IF FND_API.to_Boolean( p_init_msg_list )
61 THEN
62 FND_MSG_PUB.initialize;
63 END IF;
64
65 x_return_status := FND_API.G_RET_STS_SUCCESS;
66
67 --
68 -- API body
69 --
70
71 If (p_menu_id is NULL or
72 p_menu_id = FND_API.G_MISS_NUM ) Then
73 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
74 FND_MESSAGE.Set_Token('COLUMN', 'Menu_Id');
75 FND_MSG_PUB.Add;
76 raise FND_API.G_EXC_ERROR;
77 End if;
78
79 If (p_appl_id is NULL or
80 p_appl_id = FND_API.G_MISS_NUM ) Then
81 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
82 FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
83 FND_MSG_PUB.Add;
84 raise FND_API.G_EXC_ERROR;
85 End if;
86
87 If (p_resp_key is NULL or
88 p_resp_key = FND_API.G_MISS_CHAR ) Then
89 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
90 FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Key');
91 FND_MSG_PUB.Add;
92 raise FND_API.G_EXC_ERROR;
93 End if;
94
95 OPEN C_Dup_Key;
96 FETCH C_Dup_Key INTO l_found_dup;
97 CLOSE C_Dup_Key;
98 IF (l_found_dup = 'Y') THEN
99 FND_MESSAGE.Set_Name('JTS', 'JTS_DUPLICATE_RESP_KEY');
100 FND_MSG_PUB.Add;
101 raise FND_API.G_EXC_ERROR;
102 END IF;
103
104 If (p_resp_name is NULL or
105 p_resp_name = FND_API.G_MISS_CHAR ) Then
106 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
107 FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Name');
108 FND_MSG_PUB.Add;
109 raise FND_API.G_EXC_ERROR;
110 End if;
111
112 If (p_start_date is NULL or
113 p_start_date = FND_API.G_MISS_Date ) Then
114 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
115 FND_MESSAGE.Set_Token('COLUMN', 'Start_Date');
116 FND_MSG_PUB.Add;
117 raise FND_API.G_EXC_ERROR;
118 End if;
119
120
121 SELECT fnd_responsibility_s.nextval
122 INTO l_resp_id
123 FROM dual;
124 x_resp_id := l_resp_id;
125
126 FND_RESPONSIBILITY_PKG.INSERT_ROW(
127 X_ROWID => l_rowid,
128 X_RESPONSIBILITY_ID => l_resp_id,
129 X_APPLICATION_ID => p_appl_id,
130 X_WEB_HOST_NAME => NULL,
131 X_WEB_AGENT_NAME => NULL,
132 X_DATA_GROUP_APPLICATION_ID => p_appl_id,
133 X_DATA_GROUP_ID => 0,
134 X_MENU_ID => p_menu_id,
135 X_START_DATE => p_start_date,
136 X_END_DATE => p_end_date,
137 X_GROUP_APPLICATION_ID => NULL,
138 X_REQUEST_GROUP_ID => NULL,
139 X_VERSION => 'W',
140 X_RESPONSIBILITY_KEY => p_resp_key,
141 X_RESPONSIBILITY_NAME => p_resp_name,
142 X_DESCRIPTION => p_description,
143 X_CREATION_DATE => sysdate,
144 X_CREATED_BY => FND_GLOBAL.USER_ID,
145 X_LAST_UPDATE_DATE => sysdate,
146 X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
147 X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
148
149 --
150 -- End of API body.
151 --
152
153 -- Standard check for p_commit
154 IF FND_API.to_Boolean( p_commit )
155 THEN
156 COMMIT WORK;
157 END IF;
158
159 FND_MSG_PUB.Count_And_Get
160 ( p_count => x_msg_count,
161 p_data => x_msg_data
162 );
163
164 EXCEPTION
165 WHEN FND_API.G_EXC_ERROR THEN
166 FND_MSG_PUB.Count_And_Get(
167 p_count => x_msg_count,
168 p_data => x_msg_data
169 );
170 x_return_status := FND_API.G_RET_STS_ERROR;
171 WHEN OTHERS THEN
172 FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
173 FND_MSG_PUB.Add;
174 FND_MSG_PUB.Count_And_Get(
175 p_count => x_msg_count,
176 p_data => x_msg_data
177 );
178 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179 END Create_Responsibility;
180
181
182 PROCEDURE Update_Responsibility
183 ( p_api_version_number IN NUMBER,
184 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
185 p_commit IN VARCHAR2 := FND_API.G_FALSE,
186 p_resp_id IN NUMBER,
187 p_appl_id IN NUMBER,
188 p_last_update_date IN DATE,
189 p_menu_id IN NUMBER,
190 p_start_date IN DATE,
191 p_end_date IN DATE,
192 p_resp_name IN VARCHAR2,
193 p_description IN VARCHAR2,
194 x_return_status OUT VARCHAR2,
195 x_msg_count OUT NUMBER,
196 x_msg_data OUT VARCHAR2
197 )
198 IS
199 l_api_name CONSTANT VARCHAR2(30) := 'Update_Responsibility';
200 l_api_version_number CONSTANT NUMBER := 1.0;
201
202 CURSOR C_RESP IS
203 SELECT *
204 FROM FND_RESPONSIBILITY
205 WHERE responsibility_id = p_resp_id
206 AND application_id = p_appl_id
207 For Update NOWAIT;
208
209 l_resp C_RESP%ROWTYPE;
210
211 BEGIN
212 -- Standard Start of API savepoint
213 SAVEPOINT UPDATE_RESPONSIBILITY_PUB;
214
215 -- Standard call to check for call compatibility.
216 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
217 p_api_version_number,
218 l_api_name,
219 G_PKG_NAME)
220 THEN
221 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
222 END IF;
223
224
225 -- Initialize message list if p_init_msg_list is set to TRUE.
226 IF FND_API.to_Boolean( p_init_msg_list )
227 THEN
228 FND_MSG_PUB.initialize;
229 END IF;
230
231 x_return_status := FND_API.G_RET_STS_SUCCESS;
232
233 --
234 -- API body
235 --
236
237 OPEN c_resp;
238 FETCH c_resp INTO l_resp;
239 IF c_resp%NOTFOUND THEN
240 CLOSE c_resp;
241 FND_MESSAGE.Set_Name('JTS', 'JTS_NO_RESP_FOUND');
242 FND_MSG_PUB.Add;
243 raise FND_API.G_EXC_ERROR;
244 END IF;
245 CLOSE c_resp;
246
247
248 If (p_last_update_date is NULL or
249 p_last_update_date = FND_API.G_MISS_Date ) Then
250 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
251 FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date');
252 FND_MSG_PUB.Add;
253 raise FND_API.G_EXC_ERROR;
254 End if;
255
256 -- Check Whether record has been changed by someone else
257 If (p_last_update_date <> l_resp.last_update_date) Then
258 FND_MESSAGE.Set_Name('JTS', 'JTS_RECORD_CHANGED');
259 FND_MSG_PUB.ADD;
260 raise FND_API.G_EXC_ERROR;
261 End if;
262
263
264 If (p_menu_id is NULL or
265 p_menu_id = FND_API.G_MISS_NUM ) Then
266 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
267 FND_MESSAGE.Set_Token('COLUMN', 'Menu_Id');
268 FND_MSG_PUB.Add;
269 raise FND_API.G_EXC_ERROR;
270 End if;
271
272 If (p_resp_name is NULL or
273 p_resp_name = FND_API.G_MISS_CHAR ) Then
274 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
275 FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Name');
276 FND_MSG_PUB.Add;
277 raise FND_API.G_EXC_ERROR;
278 End if;
279
280 If (p_start_date is NULL or
281 p_start_date = FND_API.G_MISS_Date ) Then
282 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
283 FND_MESSAGE.Set_Token('COLUMN', 'Start_Date');
284 FND_MSG_PUB.Add;
285 raise FND_API.G_EXC_ERROR;
286 End if;
287
288
289 FND_RESPONSIBILITY_PKG.UPDATE_ROW(
290 X_RESPONSIBILITY_ID => p_resp_id,
291 X_APPLICATION_ID => p_appl_id,
292 X_WEB_HOST_NAME => l_resp.WEB_HOST_NAME,
293 X_WEB_AGENT_NAME => l_resp.WEB_AGENT_NAME,
294 X_DATA_GROUP_APPLICATION_ID => l_resp.DATA_GROUP_APPLICATION_ID,
295 X_DATA_GROUP_ID => l_resp.DATA_GROUP_ID,
296 X_MENU_ID => p_menu_id,
297 X_START_DATE => p_start_date,
298 X_END_DATE => p_end_date,
299 X_GROUP_APPLICATION_ID => l_resp.GROUP_APPLICATION_ID,
300 X_REQUEST_GROUP_ID => l_resp.REQUEST_GROUP_ID,
301 X_VERSION => l_resp.VERSION,
302 X_RESPONSIBILITY_KEY => l_resp.RESPONSIBILITY_KEY,
303 X_RESPONSIBILITY_NAME => p_resp_name,
304 X_DESCRIPTION => p_description,
305 X_LAST_UPDATE_DATE => sysdate,
306 X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
307 X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
308 --
309 -- End of API body.
310 --
311
312 -- Standard check for p_commit
313 IF FND_API.to_Boolean( p_commit )
314 THEN
315 COMMIT WORK;
316 END IF;
317
318 FND_MSG_PUB.Count_And_Get
319 ( p_count => x_msg_count,
320 p_data => x_msg_data
321 );
322
323
324 EXCEPTION
325 WHEN FND_API.G_EXC_ERROR THEN
326 FND_MSG_PUB.Count_And_Get(
327 p_count => x_msg_count,
328 p_data => x_msg_data
329 );
330 x_return_status := FND_API.G_RET_STS_ERROR;
331 WHEN OTHERS THEN
332 FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
333 FND_MSG_PUB.Add;
334 FND_MSG_PUB.Count_And_Get(
335 p_count => x_msg_count,
336 p_data => x_msg_data
337 );
338 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339 END Update_Responsibility;
340
341 PROCEDURE Create_Resp_Functions
342 ( p_api_version_number IN NUMBER,
343 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
344 p_commit IN VARCHAR2 := FND_API.G_FALSE,
345 p_app_id IN NUMBER,
346 p_resp_id IN NUMBER,
347 p_action_id IN NUMBER,
348 p_rule_type IN VARCHAR2,
349 x_return_status OUT VARCHAR2,
350 x_msg_count OUT NUMBER,
351 x_msg_data OUT VARCHAR2,
352 x_rowid OUT VARCHAR2
353 )
354 IS
355 l_api_name CONSTANT VARCHAR2(30) := 'Create_Resp_Functions';
356 l_api_version_number CONSTANT NUMBER := 1.0;
357 --l_rowid VARCHAR2(50);
358
359 CURSOR c_dup_key IS
360 SELECT 'Y' FROM FND_RESP_FUNCTIONS
361 WHERE application_id = p_app_id
362 AND responsibility_id = p_resp_id
363 AND action_id = p_action_id
364 AND rule_type = p_rule_type;
365 l_found_dup VARCHAR2(1) := 'N';
366
367 BEGIN
368 -- Standard Start of API savepoint
369 SAVEPOINT CREATE_RESP_FUNCTIONS_PUB;
370
371 -- Standard call to check for call compatibility.
372 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
373 p_api_version_number,
374 l_api_name,
375 G_PKG_NAME)
376 THEN
377 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
378 END IF;
379
380
381 -- Initialize message list if p_init_msg_list is set to TRUE.
382 IF FND_API.to_Boolean( p_init_msg_list )
383 THEN
384 FND_MSG_PUB.initialize;
385 END IF;
386
387 x_return_status := FND_API.G_RET_STS_SUCCESS;
388
389 --
390 -- API body
391 --
392
393 If (p_action_id is NULL or
394 p_action_id = FND_API.G_MISS_NUM ) Then
395 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
396 FND_MESSAGE.Set_Token('COLUMN', 'Action_Id');
397 FND_MSG_PUB.Add;
398 raise FND_API.G_EXC_ERROR;
399 End if;
400
401 If (p_app_id is NULL or
402 p_app_id = FND_API.G_MISS_NUM ) Then
403 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
404 FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
405 FND_MSG_PUB.Add;
406 raise FND_API.G_EXC_ERROR;
407 End if;
408
409 If (p_resp_id is NULL or
410 p_resp_id = FND_API.G_MISS_NUM ) Then
411 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
412 FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Id');
413 FND_MSG_PUB.Add;
414 raise FND_API.G_EXC_ERROR;
415 End if;
416
417 If (p_rule_type is NULL or
418 p_rule_type = FND_API.G_MISS_CHAR ) Then
419 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
420 FND_MESSAGE.Set_Token('COLUMN', 'Rule_Type');
421 FND_MSG_PUB.Add;
422 raise FND_API.G_EXC_ERROR;
423 End if;
424
425 OPEN C_Dup_Key;
426 FETCH C_Dup_Key INTO l_found_dup;
427 CLOSE C_Dup_Key;
428 IF (l_found_dup = 'Y') THEN
429 FND_MESSAGE.Set_Name('JTS', 'JTS_DUPLICATE_APP_RESP_ACTUION_RULETYPE');
430 FND_MSG_PUB.Add;
431 raise FND_API.G_EXC_ERROR;
432 END IF;
433
434 FND_RESP_FUNCTIONS_PKG.INSERT_ROW(
435 X_ROWID => x_rowid,
436 X_APPLICATION_ID => p_app_id,
437 X_RESPONSIBILITY_ID => p_resp_id,
438 X_ACTION_ID => p_action_id,
439 X_RULE_TYPE => p_rule_type,
440 X_CREATED_BY => FND_GLOBAL.USER_ID,
441 X_CREATION_DATE => sysdate,
442 X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
443 X_LAST_UPDATE_DATE => sysdate,
444 X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
445
446 --
447 -- End of API body.
448 --
449
450 -- Standard check for p_commit
451 IF FND_API.to_Boolean( p_commit )
452 THEN
453 COMMIT WORK;
454 END IF;
455
456 FND_MSG_PUB.Count_And_Get
457 ( p_count => x_msg_count,
458 p_data => x_msg_data
459 );
460
461 EXCEPTION
462 WHEN FND_API.G_EXC_ERROR THEN
463 FND_MSG_PUB.Count_And_Get(
464 p_count => x_msg_count,
465 p_data => x_msg_data
466 );
467 x_return_status := FND_API.G_RET_STS_ERROR;
468 WHEN OTHERS THEN
469 FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
470 FND_MSG_PUB.Add;
471 FND_MSG_PUB.Count_And_Get(
472 p_count => x_msg_count,
473 p_data => x_msg_data
474 );
475 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476 END Create_Resp_functions;
477
478 PROCEDURE Delete_Resp_Functions
479 ( p_api_version_number IN NUMBER,
480 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
481 p_commit IN VARCHAR2 := FND_API.G_FALSE,
482 p_app_id IN NUMBER,
483 p_resp_id IN NUMBER,
484 p_rule_type IN VARCHAR2,
485 p_action_id IN NUMBER,
486 x_return_status OUT VARCHAR2,
487 x_msg_count OUT NUMBER,
488 x_msg_data OUT VARCHAR2
489 )
490 IS
491 l_api_name CONSTANT VARCHAR2(30) := 'Delete_Resp_Functions';
492 l_api_version_number CONSTANT NUMBER := 1.0;
493
494 CURSOR c_found IS
495 SELECT 'Y' FROM FND_RESP_FUNCTIONS
496 WHERE application_id = p_app_id
497 AND responsibility_id = p_resp_id
498 AND action_id = p_action_id
499 AND rule_type = p_rule_type;
500 l_found VARCHAR2(1) := 'N';
501
502 BEGIN
503 -- Standard Start of API savepoint
504 SAVEPOINT DELETE_RESP_FUNCTIONS_PUB;
505
506 -- Standard call to check for call compatibility.
507 IF NOT FND_API.Compatible_API_Call(l_api_version_number,
508 p_api_version_number,
509 l_api_name,
510 G_PKG_NAME)
511 THEN
512 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
513 END IF;
514
515
516 -- Initialize message list if p_init_msg_list is set to TRUE.
517 IF FND_API.to_Boolean( p_init_msg_list )
518 THEN
519 FND_MSG_PUB.initialize;
520 END IF;
521
522 x_return_status := FND_API.G_RET_STS_SUCCESS;
523
524 --
525 -- API body
526 --
527
528 If (p_action_id is NULL or
529 p_action_id = FND_API.G_MISS_NUM ) Then
530 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
531 FND_MESSAGE.Set_Token('COLUMN', 'Action_Id');
532 FND_MSG_PUB.Add;
533 raise FND_API.G_EXC_ERROR;
534 End if;
535
536 If (p_app_id is NULL or
537 p_app_id = FND_API.G_MISS_NUM ) Then
538 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
539 FND_MESSAGE.Set_Token('COLUMN', 'Application_Id');
540 FND_MSG_PUB.Add;
541 raise FND_API.G_EXC_ERROR;
542 End if;
543
544 If (p_resp_id is NULL or
545 p_resp_id = FND_API.G_MISS_NUM ) Then
546 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
547 FND_MESSAGE.Set_Token('COLUMN', 'Responsibility_Id');
548 FND_MSG_PUB.Add;
549 raise FND_API.G_EXC_ERROR;
550 End if;
551
552 If (p_rule_type is NULL or
553 p_rule_type = FND_API.G_MISS_CHAR ) Then
554 FND_MESSAGE.Set_Name('JTS', 'JTS_MISSING_DATA');
555 FND_MESSAGE.Set_Token('COLUMN', 'Rule_Type');
556 FND_MSG_PUB.Add;
557 raise FND_API.G_EXC_ERROR;
558 End if;
559
560 OPEN C_Found;
561 FETCH C_Found INTO l_found;
562 CLOSE C_Found;
563 IF (l_found <> 'Y') THEN
564 FND_MESSAGE.Set_Name('JTS', 'JTS_NOTFOUND');
565 FND_MSG_PUB.Add;
566 raise FND_API.G_EXC_ERROR;
567 END IF;
568
569 FND_RESP_FUNCTIONS_PKG.DELETE_ROW(
570 X_APPLICATION_ID => p_app_id,
571 X_RESPONSIBILITY_ID => p_resp_id,
572 X_RULE_TYPE => p_rule_type,
573 X_ACTION_ID => p_action_id);
574
575 --
576 -- End of API body.
577 --
578
579 -- Standard check for p_commit
580 IF FND_API.to_Boolean( p_commit )
581 THEN
582 COMMIT WORK;
583 END IF;
584
585 FND_MSG_PUB.Count_And_Get
586 ( p_count => x_msg_count,
587 p_data => x_msg_data
588 );
589
590 EXCEPTION
591 WHEN FND_API.G_EXC_ERROR THEN
592 FND_MSG_PUB.Count_And_Get(
593 p_count => x_msg_count,
594 p_data => x_msg_data
595 );
596 x_return_status := FND_API.G_RET_STS_ERROR;
597 WHEN OTHERS THEN
598 FND_MESSAGE.Set_Name('JTS', 'Error number ' || to_char(SQLCODE));
599 FND_MSG_PUB.Add;
600 FND_MSG_PUB.Count_And_Get(
601 p_count => x_msg_count,
602 p_data => x_msg_data
603 );
604 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605 END Delete_Resp_functions;
606
607 END JTS_RESPONSIBILITY_PUB;