128: RAISE fnd_api.g_exc_unexpected_error;
129: END IF;
130:
131: IF fnd_api.to_boolean(p_init_msg_list) THEN
132: fnd_msg_pub.initialize;
133: END IF;
134:
135: --Make the pre processing call to the user hooks
136:
158: );
159: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
160: x_return_status := fnd_api.g_ret_sts_unexp_error;
161: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
162: fnd_msg_pub.add;
163: RAISE fnd_api.g_exc_unexpected_error;
164: END IF;
165: END IF;
166:
188: );
189: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
190: x_return_status := fnd_api.g_ret_sts_unexp_error;
191: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
192: fnd_msg_pub.add;
193: RAISE fnd_api.g_exc_unexpected_error;
194: END IF;
195: END IF;
196:
218: );
219: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
220: x_return_status := fnd_api.g_ret_sts_unexp_error;
221: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
222: fnd_msg_pub.add;
223: RAISE fnd_api.g_exc_unexpected_error;
224: END IF;
225: END IF;
226:
230:
231: IF l_role_code is NULL THEN
232: --dbms_output.put_line ('Role Code Is Null');
233: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
234: fnd_msg_pub.add;
235: x_return_status := fnd_api.g_ret_sts_unexp_error;
236: RAISE fnd_api.g_exc_unexpected_error;
237: ELSIF l_role_code is not NULL THEN
238: OPEN c_role_code (l_role_code);
239: FETCH c_role_code INTO l_role_code;
240: IF c_role_code%FOUND THEN
241: --dbms_output.put_line ('Duplicate Role Code');
242: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
243: fnd_msg_pub.add;
244: x_return_status := fnd_api.g_ret_sts_unexp_error;
245: RAISE fnd_api.g_exc_unexpected_error;
246: END IF;
247: END IF;
250:
251: IF l_role_type_code is NULL THEN
252: --dbms_output.put_line ('Role Type Code Is Null');
253: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
254: fnd_msg_pub.add;
255: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: RAISE fnd_api.g_exc_unexpected_error;
257: ELSIF l_role_type_code is not NULL THEN
258: OPEN c_role_type_code (l_role_type_code);
261: --dbms_output.put_line('Role type code is invalid');
262: CLOSE c_role_type_code;
263: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
264: fnd_message.set_token('P_ROLE_TYPE_CODE', p_role_type_code);
265: fnd_msg_pub.add;
266: x_return_status := fnd_api.g_ret_sts_unexp_error;
267: RAISE fnd_api.g_exc_unexpected_error;
268: END IF;
269: END IF;
272:
273: IF l_role_name IS NULL THEN
274: --dbms_output.put_line ('Role Name is Null');
275: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
276: fnd_msg_pub.add;
277: x_return_status := fnd_api.g_ret_sts_unexp_error;
278: RAISE fnd_api.g_exc_unexpected_error;
279: ELSE
280: OPEN c_role_name_check(upper(l_role_name),l_role_type_code);
281: FETCH c_role_name_check INTO Dummy_char;
282: IF (c_role_name_check%FOUND) THEN
283: -- fnd_message.set_name('JTF', 'This Role name is already exists for the same Role type. Please choose a role name unique within this role type');
284: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
285: fnd_msg_pub.add;
286: CLOSE c_role_name_check;
287: x_return_status := fnd_api.g_ret_sts_error;
288: RAISE fnd_api.g_exc_error;
289: END IF;
413: IF c_jtf_rs_roles%NOTFOUND THEN
414: --dbms_output.put_line('Error in Table Handler');
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
417: fnd_msg_pub.add;
418: CLOSE c_jtf_rs_roles;
419: RAISE fnd_api.g_exc_unexpected_error;
420: ELSE
421: --dbms_output.put_line('Resource Role Successfully Created');
448: );
449: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
450: x_return_status := fnd_api.g_ret_sts_unexp_error;
451: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
452: fnd_msg_pub.add;
453: RAISE fnd_api.g_exc_unexpected_error;
454: END IF;
455: END IF;
456:
479: );
480: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
483: fnd_msg_pub.add;
484: RAISE fnd_api.g_exc_unexpected_error;
485: END IF;
486: END IF;
487:
510: );
511: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
512: x_return_status := fnd_api.g_ret_sts_unexp_error;
513: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
514: fnd_msg_pub.add;
515: RAISE fnd_api.g_exc_unexpected_error;
516: END IF;
517: END IF;
518:
546: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
547: --dbms_output.put_line('Returned Error status from the Message Generation API');
548: x_return_status := fnd_api.g_ret_sts_unexp_error;
549: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
550: fnd_msg_pub.add;
551: RAISE fnd_api.g_exc_unexpected_error;
552: END IF;
553: END IF;
554: END IF;
556: IF fnd_api.to_boolean(p_commit) THEN
557: COMMIT WORK;
558: END IF;
559:
560: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
561:
562: /* Calling publish API to raise create resource role event. */
563: /* added by baianand on 04/02/2003 */
564:
593: --DBMS_OUTPUT.put_line (' ========================================== ');
594: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
595: ROLLBACK TO create_rs_resource_roles_pvt;
596: x_return_status := fnd_api.g_ret_sts_unexp_error;
597: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
598: WHEN OTHERS THEN
599: --DBMS_OUTPUT.put_line (' ========================================== ');
600: --DBMS_OUTPUT.put_line (' =========== Raised Others in Create Resource Role Pvt =============');
601: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
600: --DBMS_OUTPUT.put_line (' =========== Raised Others in Create Resource Role Pvt =============');
601: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
602: ROLLBACK TO create_rs_resource_roles_pvt;
603: x_return_status := fnd_api.g_ret_sts_unexp_error;
604: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
605:
606: END create_rs_resource_roles;
607:
608: --Procedure to update the resource roles based on input values passed by calling routines
746: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: END IF;
749: IF fnd_api.to_boolean(p_init_msg_list) THEN
750: fnd_msg_pub.initialize;
751: END IF;
752:
753: --Pre Call to the Customer User Hook
754: IF jtf_usr_hks.ok_to_execute(
775: );
776: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
777: x_return_status := fnd_api.g_ret_sts_unexp_error;
778: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
779: fnd_msg_pub.add;
780: RAISE fnd_api.g_exc_unexpected_error;
781: END IF;
782: END IF;
783:
806: );
807: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
808: x_return_status := fnd_api.g_ret_sts_unexp_error;
809: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
810: fnd_msg_pub.add;
811: RAISE fnd_api.g_exc_unexpected_error;
812: END IF;
813: END IF;
814:
837: );
838: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
839: x_return_status := fnd_api.g_ret_sts_unexp_error;
840: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
841: fnd_msg_pub.add;
842: RAISE fnd_api.g_exc_unexpected_error;
843: END IF;
844: END IF;
845:
851: IF c_rs_role_update%NOTFOUND THEN
852: CLOSE c_rs_role_update;
853: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_ID');
854: fnd_message.set_token('P_ROLE_ID', p_role_id);
855: fnd_msg_pub.add;
856: x_return_status := fnd_api.g_ret_sts_unexp_error;
857: RAISE fnd_api.g_exc_unexpected_error;
858: END IF;
859:
884:
885: -- IF l_seeded_flag = 'Y' THEN
886: -- --dbms_output.put_line ('Seeded Data Cannot be Updated');
887: -- fnd_message.set_name ('JTF', 'JTF_RS_SEEDED_FLAG_CHECKED');
888: -- fnd_msg_pub.add;
889: -- x_return_status := fnd_api.g_ret_sts_unexp_error;
890: -- RAISE fnd_api.g_exc_unexpected_error;
891: -- END IF;
892:
895: IF l_role_code <> FND_API.G_MISS_CHAR THEN
896: IF l_role_code is NULL THEN
897: --dbms_output.put_line ('Role Code Is Null');
898: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_NULL');
899: fnd_msg_pub.add;
900: x_return_status := fnd_api.g_ret_sts_unexp_error;
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF (l_role_code is not NULL AND l_role_code <> rs_role_rec.role_code) THEN
903: OPEN c_role_code (l_role_code);
904: FETCH c_role_code INTO l_role_code;
905: IF c_role_code%FOUND THEN
906: --dbms_output.put_line ('Duplicate Role Code');
907: fnd_message.set_name('JTF', 'JTF_RS_ROLE_CODE_EXISTS');
908: fnd_msg_pub.add;
909: x_return_status := fnd_api.g_ret_sts_unexp_error;
910: RAISE fnd_api.g_exc_unexpected_error;
911: END IF;
912: END IF;
917: IF l_role_type_code <> FND_API.G_MISS_CHAR THEN
918: IF l_role_type_code is NULL THEN
919: --dbms_output.put_line ('Role Type Code Is Null');
920: fnd_message.set_name('JTF', 'JTF_RS_ROLE_TYPE_CODE_NULL');
921: fnd_msg_pub.add;
922: x_return_status := fnd_api.g_ret_sts_unexp_error;
923: RAISE fnd_api.g_exc_unexpected_error;
924: ELSIF l_role_type_code is not NULL THEN
925: OPEN c_role_type_code (l_role_type_code);
928: --dbms_output.put_line('Role type code is invalid');
929: CLOSE c_role_type_code;
930: fnd_message.set_name('JTF', 'JTF_RS_INVALID_ROLE_TYPE_CODE');
931: fnd_message.set_token('P_ROLE_TYPE_CODE', l_role_type_code);
932: fnd_msg_pub.add;
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
934: RAISE fnd_api.g_exc_unexpected_error;
935: END IF;
936: END IF;
941: IF l_role_name <> FND_API.G_MISS_CHAR THEN
942: IF l_role_name IS NULL THEN
943: --dbms_output.put_line ('Role Name is Null');
944: fnd_message.set_name ('JTF','JTF_RS_ROLE_NAME_NULL');
945: fnd_msg_pub.add;
946: x_return_status := fnd_api.g_ret_sts_unexp_error;
947: RAISE fnd_api.g_exc_unexpected_error;
948: ELSE
949: OPEN c_role_name_check(upper(l_role_name),rs_role_rec.l_role_type_code);
949: OPEN c_role_name_check(upper(l_role_name),rs_role_rec.l_role_type_code);
950: FETCH c_role_name_check INTO Dummy_char;
951: IF (c_role_name_check%FOUND) THEN
952: fnd_message.set_name('JTF', 'JTF_RS_ROLE_NAME_EXISTS');
953: fnd_msg_pub.add;
954: CLOSE c_role_name_check;
955: x_return_status := fnd_api.g_ret_sts_error;
956: RAISE fnd_api.g_exc_error;
957: END IF;
1130: WHEN NO_DATA_FOUND THEN
1131: CLOSE c_rs_role_update;
1132: x_return_status := fnd_api.g_ret_sts_unexp_error;
1133: fnd_message.set_name('JTF', 'JTF_RS_TABLE_HANDLER_ERROR');
1134: fnd_msg_pub.add;
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END;
1137: --dbms_output.put_line('Role Successfully Updated');
1138:
1161: );
1162: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1163: x_return_status := fnd_api.g_ret_sts_unexp_error;
1164: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1165: fnd_msg_pub.add;
1166: RAISE fnd_api.g_exc_unexpected_error;
1167: END IF;
1168: END IF;
1169:
1192: );
1193: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1194: x_return_status := fnd_api.g_ret_sts_unexp_error;
1195: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1196: fnd_msg_pub.add;
1197: RAISE fnd_api.g_exc_unexpected_error;
1198: END IF;
1199: END IF;
1200:
1223: );
1224: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1225: x_return_status := fnd_api.g_ret_sts_unexp_error;
1226: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1227: fnd_msg_pub.add;
1228: RAISE fnd_api.g_exc_unexpected_error;
1229: END IF;
1230: END IF;
1231:
1259: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1260: --dbms_output.put_line('Returned Error status from the Message Generation API');
1261: x_return_status := fnd_api.g_ret_sts_unexp_error;
1262: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1263: fnd_msg_pub.add;
1264: RAISE fnd_api.g_exc_unexpected_error;
1265: END IF;
1266: END IF;
1267: END IF;
1269: IF fnd_api.to_boolean(p_commit) THEN
1270: COMMIT WORK;
1271: END IF;
1272:
1273: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1274:
1275: EXCEPTION
1276: WHEN fnd_api.g_exc_unexpected_error THEN
1277: --DBMS_OUTPUT.put_line (' ========================================== ');
1277: --DBMS_OUTPUT.put_line (' ========================================== ');
1278: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1279: ROLLBACK TO update_rs_resource_roles_pvt;
1280: x_return_status := fnd_api.g_ret_sts_unexp_error;
1281: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1282: WHEN OTHERS THEN
1283: --DBMS_OUTPUT.put_line (' ========================================== ');
1284: --DBMS_OUTPUT.put_line (' =========== Raised Others in Update Resource Role Pub =============');
1285: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1284: --DBMS_OUTPUT.put_line (' =========== Raised Others in Update Resource Role Pub =============');
1285: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1286: ROLLBACK TO update_rs_resource_roles_pvt;
1287: x_return_status := fnd_api.g_ret_sts_unexp_error;
1288: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1289:
1290: END update_rs_resource_roles;
1291:
1292:
1352: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
1353: RAISE fnd_api.g_exc_unexpected_error;
1354: END IF;
1355: IF fnd_api.to_boolean(p_init_msg_list) THEN
1356: fnd_msg_pub.initialize;
1357: END IF;
1358:
1359: IF role_used(p_role_id) THEN
1360: x_return_status := fnd_api.g_ret_sts_unexp_error;
1359: IF role_used(p_role_id) THEN
1360: x_return_status := fnd_api.g_ret_sts_unexp_error;
1361: fnd_message.set_name('JTF', 'JTF_RS_ROLE_USED');
1362: fnd_message.set_token('ROLE_NAME', get_role_name(p_role_id));
1363: fnd_msg_pub.add;
1364: RAISE fnd_api.g_exc_unexpected_error;
1365: END IF;
1366: --Pre Call to Customer User Hook
1367: IF jtf_usr_hks.ok_to_execute(
1379: );
1380: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1381: x_return_status := fnd_api.g_ret_sts_unexp_error;
1382: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_CUST_USR_HOOK');
1383: fnd_msg_pub.add;
1384: RAISE fnd_api.g_exc_unexpected_error;
1385: END IF;
1386: END IF;
1387:
1402:
1403: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1404: x_return_status := fnd_api.g_ret_sts_unexp_error;
1405: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_VERT_USR_HOOK');
1406: fnd_msg_pub.add;
1407: RAISE fnd_api.g_exc_unexpected_error;
1408: END IF;
1409: END IF;
1410:
1424: );
1425: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1426: x_return_status := fnd_api.g_ret_sts_unexp_error;
1427: fnd_message.set_name('JTF', 'JTF_RS_ERR_PRE_INT_USR_HOOK');
1428: fnd_msg_pub.add;
1429: RAISE fnd_api.g_exc_unexpected_error;
1430: END IF;
1431: END IF;
1432:
1486: );
1487: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1488: x_return_status := fnd_api.g_ret_sts_unexp_error;
1489: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_CUST_USR_HOOK');
1490: fnd_msg_pub.add;
1491: RAISE fnd_api.g_exc_unexpected_error;
1492: END IF;
1493: END IF;
1494:
1508: );
1509: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1510: x_return_status := fnd_api.g_ret_sts_unexp_error;
1511: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_VERT_USR_HOOK');
1512: fnd_msg_pub.add;
1513: RAISE fnd_api.g_exc_unexpected_error;
1514: END IF;
1515: END IF;
1516:
1530: );
1531: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1532: x_return_status := fnd_api.g_ret_sts_unexp_error;
1533: fnd_message.set_name('JTF', 'JTF_RS_ERR_POST_INT_USR_HOOK');
1534: fnd_msg_pub.add;
1535: RAISE fnd_api.g_exc_unexpected_error;
1536: END IF;
1537: END IF;
1538:
1566: IF NOT (x_return_status = fnd_api.g_ret_sts_success) THEN
1567: --dbms_output.put_line('Returned Error status from the Message Generation API');
1568: x_return_status := fnd_api.g_ret_sts_unexp_error;
1569: fnd_message.set_name('JTF', 'JTF_RS_ERR_MESG_GENERATE_API');
1570: fnd_msg_pub.add;
1571: RAISE fnd_api.g_exc_unexpected_error;
1572: END IF;
1573: END IF;
1574: END IF;
1576: IF fnd_api.to_boolean(p_commit) THEN
1577: COMMIT WORK;
1578: END IF;
1579:
1580: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1581:
1582: /* Calling publish API to raise delete resource role event. */
1583: /* added by baianand on 04/02/2003 */
1584:
1603: --DBMS_OUTPUT.put_line (' ========================================== ');
1604: --DBMS_OUTPUT.put_line ('=========== Raised Unexpected Error =============== ');
1605: ROLLBACK TO delete_rs_resource_roles_pvt;
1606: x_return_status := fnd_api.g_ret_sts_unexp_error;
1607: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1608: WHEN OTHERS THEN
1609: --DBMS_OUTPUT.put_line (' ========================================== ');
1610: --DBMS_OUTPUT.put_line (' =========== Raised Others in Delete Resource Role Pub =============');
1611: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1610: --DBMS_OUTPUT.put_line (' =========== Raised Others in Delete Resource Role Pub =============');
1611: --DBMS_OUTPUT.put_line (SQLCODE || SQLERRM);
1612: ROLLBACK TO delete_rs_resource_roles_pvt;
1613: x_return_status := fnd_api.g_ret_sts_unexp_error;
1614: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1615:
1616: END delete_rs_resource_roles;
1617:
1618: END jtf_rs_roles_pvt;