21: based on input values passed by calling routines. */
22:
23: PROCEDURE create_resource_group_members
24: (P_API_VERSION IN NUMBER,
25: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
26: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
27: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
28: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
29: P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
22:
23: PROCEDURE create_resource_group_members
24: (P_API_VERSION IN NUMBER,
25: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
26: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
27: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
28: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
29: P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
30: P_RESOURCE_NUMBER IN JTF_RS_RESOURCE_EXTNS.RESOURCE_NUMBER%TYPE,
50:
51:
52: SAVEPOINT create_resource_member_pub;
53:
54: x_return_status := fnd_api.g_ret_sts_success;
55:
56: -- DBMS_OUTPUT.put_line(' Started Create Resource Member Pub ');
57:
58:
55:
56: -- DBMS_OUTPUT.put_line(' Started Create Resource Member Pub ');
57:
58:
59: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
60:
61: RAISE fnd_api.g_exc_unexpected_error;
62:
63: END IF;
57:
58:
59: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
60:
61: RAISE fnd_api.g_exc_unexpected_error;
62:
63: END IF;
64:
65:
62:
63: END IF;
64:
65:
66: IF fnd_api.to_boolean(p_init_msg_list) THEN
67:
68: fnd_msg_pub.initialize;
69:
70: END IF;
82: );
83: -- added for NOCOPY
84: l_group_id := l_group_id_out;
85:
86: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
87:
88: x_return_status := fnd_api.g_ret_sts_unexp_error;
89:
90: RAISE fnd_api.g_exc_unexpected_error;
84: l_group_id := l_group_id_out;
85:
86: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
87:
88: x_return_status := fnd_api.g_ret_sts_unexp_error;
89:
90: RAISE fnd_api.g_exc_unexpected_error;
91:
92: END IF;
86: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
87:
88: x_return_status := fnd_api.g_ret_sts_unexp_error;
89:
90: RAISE fnd_api.g_exc_unexpected_error;
91:
92: END IF;
93:
94: END; /* End of Resource Group Validation */
108:
109: -- added for NOCOPY
110: l_resource_id := l_resource_id_out;
111:
112: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
113:
114: x_return_status := fnd_api.g_ret_sts_unexp_error;
115:
116: RAISE fnd_api.g_exc_unexpected_error;
110: l_resource_id := l_resource_id_out;
111:
112: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
113:
114: x_return_status := fnd_api.g_ret_sts_unexp_error;
115:
116: RAISE fnd_api.g_exc_unexpected_error;
117:
118: END IF;
112: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
113:
114: x_return_status := fnd_api.g_ret_sts_unexp_error;
115:
116: RAISE fnd_api.g_exc_unexpected_error;
117:
118: END IF;
119:
120: END; /* End of Resource Validation */
122:
123:
124: jtf_rs_group_members_pvt.create_resource_group_members
125: (P_API_VERSION => 1,
126: P_INIT_MSG_LIST => fnd_api.g_false,
127: P_COMMIT => fnd_api.g_false,
128: P_GROUP_ID => l_group_id,
129: P_RESOURCE_ID => l_resource_id,
130: X_RETURN_STATUS => x_return_status,
123:
124: jtf_rs_group_members_pvt.create_resource_group_members
125: (P_API_VERSION => 1,
126: P_INIT_MSG_LIST => fnd_api.g_false,
127: P_COMMIT => fnd_api.g_false,
128: P_GROUP_ID => l_group_id,
129: P_RESOURCE_ID => l_resource_id,
130: X_RETURN_STATUS => x_return_status,
131: X_MSG_COUNT => x_msg_count,
133: X_GROUP_MEMBER_ID => x_group_member_id
134: );
135:
136:
137: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
138:
139: -- dbms_output.put_line('Failed status from call to private procedure');
140:
141: RAISE fnd_api.g_exc_unexpected_error;
137: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
138:
139: -- dbms_output.put_line('Failed status from call to private procedure');
140:
141: RAISE fnd_api.g_exc_unexpected_error;
142:
143: END IF;
144:
145:
142:
143: END IF;
144:
145:
146: IF fnd_api.to_boolean(p_commit) THEN
147:
148: COMMIT WORK;
149:
150: END IF;
154:
155: EXCEPTION
156:
157:
158: WHEN fnd_api.g_exc_unexpected_error THEN
159:
160: -- DBMS_OUTPUT.put_line (' ========================================== ');
161:
162: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
162: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
163:
164: ROLLBACK TO create_resource_member_pub;
165:
166: x_return_status := fnd_api.g_ret_sts_unexp_error;
167:
168: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
169:
170:
182: fnd_message.set_token('P_SQLERRM',SQLERRM);
183: fnd_message.set_token('P_API_NAME',l_api_name);
184: FND_MSG_PUB.add;
185:
186: x_return_status := fnd_api.g_ret_sts_unexp_error;
187:
188: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
189:
190:
196: based on input values passed by calling routines. */
197:
198: PROCEDURE update_resource_group_members
199: (P_API_VERSION IN NUMBER,
200: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
201: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
202: P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
203: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
204: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
197:
198: PROCEDURE update_resource_group_members
199: (P_API_VERSION IN NUMBER,
200: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
201: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
202: P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
203: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
204: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
205: P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
226:
227:
228: SAVEPOINT update_resource_member_pub;
229:
230: x_return_status := fnd_api.g_ret_sts_success;
231:
232: -- DBMS_OUTPUT.put_line(' Started Update Resource Member Pub ');
233:
234:
231:
232: -- DBMS_OUTPUT.put_line(' Started Update Resource Member Pub ');
233:
234:
235: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
236:
237: RAISE fnd_api.g_exc_unexpected_error;
238:
239: END IF;
233:
234:
235: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
236:
237: RAISE fnd_api.g_exc_unexpected_error;
238:
239: END IF;
240:
241:
238:
239: END IF;
240:
241:
242: IF fnd_api.to_boolean(p_init_msg_list) THEN
243:
244: fnd_msg_pub.initialize;
245:
246: END IF;
258: );
259: -- added for NOCOPY
260: l_group_id := l_group_id_out;
261:
262: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
263:
264: x_return_status := fnd_api.g_ret_sts_unexp_error;
265:
266: RAISE fnd_api.g_exc_unexpected_error;
260: l_group_id := l_group_id_out;
261:
262: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
263:
264: x_return_status := fnd_api.g_ret_sts_unexp_error;
265:
266: RAISE fnd_api.g_exc_unexpected_error;
267:
268: END IF;
262: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
263:
264: x_return_status := fnd_api.g_ret_sts_unexp_error;
265:
266: RAISE fnd_api.g_exc_unexpected_error;
267:
268: END IF;
269:
270: END; /* End of Resource Group Validation */
283: );
284: -- added for NOCOPY
285: l_resource_id := l_resource_id_out;
286:
287: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
288:
289: x_return_status := fnd_api.g_ret_sts_unexp_error;
290:
291: RAISE fnd_api.g_exc_unexpected_error;
285: l_resource_id := l_resource_id_out;
286:
287: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
288:
289: x_return_status := fnd_api.g_ret_sts_unexp_error;
290:
291: RAISE fnd_api.g_exc_unexpected_error;
292:
293: END IF;
287: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
288:
289: x_return_status := fnd_api.g_ret_sts_unexp_error;
290:
291: RAISE fnd_api.g_exc_unexpected_error;
292:
293: END IF;
294:
295: END; /* End of Resource Validation */
297:
298:
299: jtf_rs_group_members_pvt.update_resource_group_members
300: (P_API_VERSION => 1,
301: P_INIT_MSG_LIST => fnd_api.g_false,
302: P_COMMIT => fnd_api.g_false,
303: P_GROUP_MEMBER_ID => l_group_member_id,
304: P_GROUP_ID => l_group_id,
305: P_RESOURCE_ID => l_resource_id,
298:
299: jtf_rs_group_members_pvt.update_resource_group_members
300: (P_API_VERSION => 1,
301: P_INIT_MSG_LIST => fnd_api.g_false,
302: P_COMMIT => fnd_api.g_false,
303: P_GROUP_MEMBER_ID => l_group_member_id,
304: P_GROUP_ID => l_group_id,
305: P_RESOURCE_ID => l_resource_id,
306: P_OBJECT_VERSION_NUMBER => p_object_version_number,
309: X_MSG_DATA => x_msg_data
310: );
311:
312:
313: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
314:
315: -- dbms_output.put_line('Failed status from call to private procedure');
316:
317: RAISE fnd_api.g_exc_unexpected_error;
313: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
314:
315: -- dbms_output.put_line('Failed status from call to private procedure');
316:
317: RAISE fnd_api.g_exc_unexpected_error;
318:
319: END IF;
320:
321:
318:
319: END IF;
320:
321:
322: IF fnd_api.to_boolean(p_commit) THEN
323:
324: COMMIT WORK;
325:
326: END IF;
330:
331: EXCEPTION
332:
333:
334: WHEN fnd_api.g_exc_unexpected_error THEN
335:
336: -- DBMS_OUTPUT.put_line (' ========================================== ');
337:
338: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
338: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
339:
340: ROLLBACK TO update_resource_member_pub;
341:
342: x_return_status := fnd_api.g_ret_sts_unexp_error;
343:
344: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
345:
346:
358: fnd_message.set_token('P_SQLERRM',SQLERRM);
359: fnd_message.set_token('P_API_NAME',l_api_name);
360: FND_MSG_PUB.add;
361:
362: x_return_status := fnd_api.g_ret_sts_unexp_error;
363:
364: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
365:
366:
372: /* Procedure to delete the resource group members. */
373:
374: PROCEDURE delete_resource_group_members
375: (P_API_VERSION IN NUMBER,
376: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
377: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
378: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
379: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
380: P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
373:
374: PROCEDURE delete_resource_group_members
375: (P_API_VERSION IN NUMBER,
376: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
377: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
378: P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
379: P_GROUP_NUMBER IN JTF_RS_GROUPS_VL.GROUP_NUMBER%TYPE,
380: P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
381: P_RESOURCE_NUMBER IN JTF_RS_RESOURCE_EXTNS.RESOURCE_NUMBER%TYPE,
410:
411:
412: SAVEPOINT delete_resource_member_pub;
413:
414: x_return_status := fnd_api.g_ret_sts_success;
415:
416: -- DBMS_OUTPUT.put_line(' Started Delete Resource Member Pub ');
417:
418:
415:
416: -- DBMS_OUTPUT.put_line(' Started Delete Resource Member Pub ');
417:
418:
419: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
420:
421: RAISE fnd_api.g_exc_unexpected_error;
422:
423: END IF;
417:
418:
419: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
420:
421: RAISE fnd_api.g_exc_unexpected_error;
422:
423: END IF;
424:
425:
422:
423: END IF;
424:
425:
426: IF fnd_api.to_boolean(p_init_msg_list) THEN
427:
428: fnd_msg_pub.initialize;
429:
430: END IF;
442: );
443: -- added for NOCOPY
444: l_group_id := l_group_id_out;
445:
446: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
447:
448: x_return_status := fnd_api.g_ret_sts_unexp_error;
449:
450: RAISE fnd_api.g_exc_unexpected_error;
444: l_group_id := l_group_id_out;
445:
446: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
447:
448: x_return_status := fnd_api.g_ret_sts_unexp_error;
449:
450: RAISE fnd_api.g_exc_unexpected_error;
451:
452: END IF;
446: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
447:
448: x_return_status := fnd_api.g_ret_sts_unexp_error;
449:
450: RAISE fnd_api.g_exc_unexpected_error;
451:
452: END IF;
453:
454: END; /* End of Resource Group Validation */
464:
465: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
466: fnd_msg_pub.add;
467:
468: x_return_status := fnd_api.g_ret_sts_unexp_error;
469: RAISE fnd_api.g_exc_unexpected_error;
470:
471: END IF;
472:
465: fnd_message.set_name('JTF', 'JTF_RS_RESOURCE_NULL');
466: fnd_msg_pub.add;
467:
468: x_return_status := fnd_api.g_ret_sts_unexp_error;
469: RAISE fnd_api.g_exc_unexpected_error;
470:
471: END IF;
472:
473: IF p_resource_id IS NOT NULL THEN
482: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE');
483: fnd_message.set_token('P_RESOURCE_ID', p_resource_id);
484: fnd_msg_pub.add;
485:
486: x_return_status := fnd_api.g_ret_sts_unexp_error;
487: RAISE fnd_api.g_exc_unexpected_error;
488:
489: END IF;
490:
483: fnd_message.set_token('P_RESOURCE_ID', p_resource_id);
484: fnd_msg_pub.add;
485:
486: x_return_status := fnd_api.g_ret_sts_unexp_error;
487: RAISE fnd_api.g_exc_unexpected_error;
488:
489: END IF;
490:
491: CLOSE c_resource_id;
502: fnd_message.set_name('JTF', 'JTF_RS_INVALID_RESOURCE_NUMBER');
503: fnd_message.set_token('P_RESOURCE_NUMBER', p_resource_number);
504: fnd_msg_pub.add;
505:
506: x_return_status := fnd_api.g_ret_sts_unexp_error;
507: RAISE fnd_api.g_exc_unexpected_error;
508:
509: END IF;
510:
503: fnd_message.set_token('P_RESOURCE_NUMBER', p_resource_number);
504: fnd_msg_pub.add;
505:
506: x_return_status := fnd_api.g_ret_sts_unexp_error;
507: RAISE fnd_api.g_exc_unexpected_error;
508:
509: END IF;
510:
511: CLOSE c_resource_number;
517: /* Call the private procedure for delete */
518:
519: jtf_rs_group_members_pvt.delete_resource_group_members
520: (P_API_VERSION => 1,
521: P_INIT_MSG_LIST => fnd_api.g_false,
522: P_COMMIT => fnd_api.g_false,
523: P_GROUP_ID => l_group_id,
524: P_RESOURCE_ID => l_resource_id,
525: P_OBJECT_VERSION_NUM => p_object_version_num,
518:
519: jtf_rs_group_members_pvt.delete_resource_group_members
520: (P_API_VERSION => 1,
521: P_INIT_MSG_LIST => fnd_api.g_false,
522: P_COMMIT => fnd_api.g_false,
523: P_GROUP_ID => l_group_id,
524: P_RESOURCE_ID => l_resource_id,
525: P_OBJECT_VERSION_NUM => p_object_version_num,
526: X_RETURN_STATUS => x_return_status,
528: X_MSG_DATA => x_msg_data
529: );
530:
531:
532: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
533:
534: -- dbms_output.put_line('Failed status from call to private procedure');
535:
536: RAISE fnd_api.g_exc_unexpected_error;
532: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
533:
534: -- dbms_output.put_line('Failed status from call to private procedure');
535:
536: RAISE fnd_api.g_exc_unexpected_error;
537:
538: END IF;
539:
540:
537:
538: END IF;
539:
540:
541: IF fnd_api.to_boolean(p_commit) THEN
542:
543: COMMIT WORK;
544:
545: END IF;
549:
550: EXCEPTION
551:
552:
553: WHEN fnd_api.g_exc_unexpected_error THEN
554:
555: -- DBMS_OUTPUT.put_line (' ========================================== ');
556:
557: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
557: -- DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error ======= ======== ');
558:
559: ROLLBACK TO delete_resource_member_pub;
560:
561: x_return_status := fnd_api.g_ret_sts_unexp_error;
562:
563: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
564:
565:
577: fnd_message.set_token('P_SQLERRM',SQLERRM);
578: fnd_message.set_token('P_API_NAME',l_api_name);
579: FND_MSG_PUB.add;
580:
581: x_return_status := fnd_api.g_ret_sts_unexp_error;
582:
583: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
584:
585: