177: -- If the calling program has passed the parameter for initializing
178: -- the message list
179: -- -----------------------------------------------------------------
180: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
181: FND_MSG_PUB.INITIALIZE;
182: END IF;
183:
184: -- -----------------------------------------------------------------
185: -- Set the return status to success
190: -- Ensure that the grant name is not null.
191: -- -----------------------------------------------------------------
192: IF (p_grant_name IS NULL) THEN
193: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NO_GRANT_NAME');
194: FND_MSG_PUB.Add;
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: -- -----------------------------------------------------------------
225: l_obj_group_id := Validate_Obj_Grp_ID (p_group_id => p_obj_group_id);
226:
227: IF (l_obj_group_id <= 0) THEN
228: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_GROUP');
229: FND_MSG_PUB.Add;
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232:
233: -- -----------------------------------------------------------------
236: l_user_group_id := Validate_User_Grp_ID (p_user_group_id => p_user_group_id);
237:
238: IF (l_user_group_id <= 0) THEN
239: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USER_GROUP');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR;
242: END IF;
243:
244: -- -----------------------------------------------------------------
294: -- -----------------------------------------------------------------
295: EXCEPTION
296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
297: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
298: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
299: p_count => l_message_count,
300: p_data => x_return_message);
301: ROLLBACK TO Insert_Grant_SP;
302: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
307:
308: WHEN FND_API.G_EXC_ERROR THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
310:
311: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
312: p_count => l_message_count,
313: p_data => x_return_message);
314: ROLLBACK TO Insert_Grant_SP;
315: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
319: END IF;
320:
321: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
324: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
325: END IF;
326: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
327: p_count => l_message_count,
320:
321: WHEN OTHERS THEN
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
324: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
325: END IF;
326: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
327: p_count => l_message_count,
328: p_data => x_return_message);
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
324: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
325: END IF;
326: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
327: p_count => l_message_count,
328: p_data => x_return_message);
329: ROLLBACK TO Insert_Grant_SP;
330:
408: -- If the calling program has passed the parameter for initializing
409: -- the message list
410: -- -----------------------------------------------------------------
411: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
412: FND_MSG_PUB.INITIALIZE;
413: END IF;
414:
415: -- -----------------------------------------------------------------
416: -- Set the return status to success
422: -- -----------------------------------------------------------------
423: l_grant_id := Validate_Grant_ID (p_grant_id => p_grant_id);
424: IF (l_grant_id <= 0) THEN
425: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_GRANT');
426: FND_MSG_PUB.Add;
427: RAISE FND_API.G_EXC_ERROR;
428: END IF;
429:
430: -- -----------------------------------------------------------------
433: IF (p_obj_attrib_id IS NOT NULL) THEN
434: l_obj_attr_id := Validate_Obj_Attr_ID (p_obj_attr_id => p_obj_attrib_id);
435: IF (l_obj_attr_id <= 0) THEN
436: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR');
437: FND_MSG_PUB.Add;
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: END IF;
441:
445: IF (p_user_attrib_id IS NOT NULL) THEN
446: l_user_attr_id := Validate_User_Attr_ID (p_user_attr_id => p_user_attrib_id);
447: IF (l_user_attr_id <= 0) THEN
448: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USR_ATTR');
449: FND_MSG_PUB.Add;
450: RAISE FND_API.G_EXC_ERROR;
451: END IF;
452: END IF;
453:
455: -- Check to make sure that the Grant Condition Number given is legal
456: -- -----------------------------------------------------------------
457: IF (p_grant_cond_num <= 0) THEN
458: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_COND_NUM');
459: FND_MSG_PUB.Add;
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463: -- -----------------------------------------------------------------
502: -- -----------------------------------------------------------------
503: EXCEPTION
504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
507: p_count => l_message_count,
508: p_data => x_return_message);
509: ROLLBACK TO Insert_Grant_Cond_SP;
510:
516:
517: WHEN FND_API.G_EXC_ERROR THEN
518: x_return_status := FND_API.G_RET_STS_ERROR;
519:
520: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
521: p_count => l_message_count,
522: p_data => x_return_message);
523: ROLLBACK TO Insert_Grant_Cond_SP;
524:
529: END IF;
530:
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
534: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
535: END IF;
536: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
537: p_count => l_message_count,
530:
531: WHEN OTHERS THEN
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
534: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
535: END IF;
536: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
537: p_count => l_message_count,
538: p_data => x_return_message);
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
534: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
535: END IF;
536: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
537: p_count => l_message_count,
538: p_data => x_return_message);
539: ROLLBACK TO Insert_Grant_Cond_SP;
540:
606: -- If the calling program has passed the parameter for initializing
607: -- the message list
608: -- -----------------------------------------------------------------
609: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
610: FND_MSG_PUB.INITIALIZE;
611: END IF;
612:
613: -- -----------------------------------------------------------------
614: -- Set the return status to success
620: -- -----------------------------------------------------------------
621: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
622:
623: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
624: FND_MSG_PUB.Add;
625: RAISE FND_API.G_EXC_ERROR;
626:
627: END IF;
628:
630: -- Ensure that the object group name is NOT NULL
631: -- -----------------------------------------------------------------
632: IF (p_obj_group_name IS NULL) THEN
633: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NULL_OBJ_GRP_NAME');
634: FND_MSG_PUB.Add;
635: RAISE FND_API.G_EXC_ERROR;
636: END IF;
637:
638: -- -----------------------------------------------------------------
642: l_default_policy_type := p_default_policy_type;
643: ELSE
644: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_DEF_POLICY_TYPE');
645: FND_MESSAGE.SET_TOKEN('DEFAULT_POLICY', p_default_policy_type);
646: FND_MSG_PUB.Add;
647: RAISE FND_API.G_EXC_ERROR;
648: END IF;
649:
650: -- -----------------------------------------------------------------
684: -- -----------------------------------------------------------------
685: EXCEPTION
686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
689: p_count => l_message_count,
690: p_data => x_return_message);
691: ROLLBACK TO Insert_Object_Group_SP;
692:
692:
693: WHEN FND_API.G_EXC_ERROR THEN
694: x_return_status := FND_API.G_RET_STS_ERROR;
695:
696: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
697: p_count => l_message_count,
698: p_data => x_return_message);
699: ROLLBACK TO Insert_Object_Group_SP;
700:
699: ROLLBACK TO Insert_Object_Group_SP;
700:
701: WHEN OTHERS THEN
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
704: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
705: END IF;
706: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
707: p_count => l_message_count,
700:
701: WHEN OTHERS THEN
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
704: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
705: END IF;
706: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
707: p_count => l_message_count,
708: p_data => x_return_message);
702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
703: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
704: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
705: END IF;
706: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
707: p_count => l_message_count,
708: p_data => x_return_message);
709: ROLLBACK TO Insert_Object_Group_SP;
710: IF g_upgrade_mode = 'Y' THEN
769: -- If the calling program has passed the parameter for initializing
770: -- the message list
771: -- -----------------------------------------------------------------
772: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
773: FND_MSG_PUB.INITIALIZE;
774: END IF;
775:
776: -- -----------------------------------------------------------------
777: -- Set the return status to success
783: -- -----------------------------------------------------------------
784: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
785:
786: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
787: FND_MSG_PUB.Add;
788: RAISE FND_API.G_EXC_ERROR;
789:
790: END IF;
791:
795: l_obj_group_id := Validate_Obj_Grp_ID (p_group_id => p_obj_group_id);
796:
797: IF (l_obj_group_id <= 0) THEN
798: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_GROUP');
799: FND_MSG_PUB.Add;
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802:
803: -- -----------------------------------------------------------------
804: -- Ensure that the object attribute name is valid
805: -- -----------------------------------------------------------------
806: IF (p_obj_attrib_name IS NULL) THEN
807: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR_NAME');
808: FND_MSG_PUB.Add;
809: RAISE FND_API.G_EXC_ERROR;
810: END IF;
811:
812: -- -----------------------------------------------------------------
848: -- -----------------------------------------------------------------
849: EXCEPTION
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
853: p_count => l_message_count,
854: p_data => x_return_message);
855: ROLLBACK TO Insert_Object_Attr_SP;
856:
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858: x_return_status := FND_API.G_RET_STS_ERROR;
859:
860: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
861: p_count => l_message_count,
862: p_data => x_return_message);
863: ROLLBACK TO Insert_Object_Attr_SP;
864:
863: ROLLBACK TO Insert_Object_Attr_SP;
864:
865: WHEN OTHERS THEN
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
867: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
868: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
869: END IF;
870: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
871: p_count => l_message_count,
864:
865: WHEN OTHERS THEN
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
867: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
868: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
869: END IF;
870: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
871: p_count => l_message_count,
872: p_data => x_return_message);
866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
867: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
868: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
869: END IF;
870: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
871: p_count => l_message_count,
872: p_data => x_return_message);
873: ROLLBACK TO Insert_Object_Attr_SP;
874:
943: -- If the calling program has passed the parameter for initializing
944: -- the message list
945: -- -----------------------------------------------------------------
946: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
947: FND_MSG_PUB.INITIALIZE;
948: END IF;
949:
950: -- -----------------------------------------------------------------
951: -- Set the return status to success
957: -- -----------------------------------------------------------------
958: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
959:
960: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
961: FND_MSG_PUB.Add;
962: RAISE FND_API.G_EXC_ERROR;
963:
964: END IF;
965:
969: l_object_id := Validate_Object_ID (p_object_id => p_object_id);
970:
971: IF (l_object_id <= 0) THEN
972: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJECT');
973: FND_MSG_PUB.Add;
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976:
977: -- -----------------------------------------------------------------
981: l_obj_attrib_id := Validate_Obj_Attr_ID (p_obj_attr_id => p_obj_attrib_id);
982:
983: IF (l_obj_attrib_id <= 0) THEN
984: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR');
985: FND_MSG_PUB.Add;
986: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988:
989: -- -----------------------------------------------------------------
993: l_obj_attrib_type := Validate_Obj_Attr_type (p_obj_att_type => p_obj_attrib_type);
994:
995: IF (l_obj_attrib_type IS NULL) THEN
996: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR_TYPE');
997: FND_MSG_PUB.Add;
998: RAISE FND_API.G_EXC_ERROR;
999: END IF;
1000:
1001: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
1001: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
1002:
1003: IF (l_static_type IS NULL) THEN
1004: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_STATIC_TYPE');
1005: FND_MSG_PUB.Add;
1006: RAISE FND_API.G_EXC_ERROR;
1007: END IF;
1008:
1009: IF P_CALL_FROM_LCT <> 'Y' THEN
1013: IF NOT check_attrib_text ( l_object_name, p_select_text,l_obj_attrib_type) THEN
1014: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRNT_TXT_ERR');
1015: FND_MESSAGE.SET_TOKEN('OBJ_NAME',l_object_name);
1016: FND_MESSAGE.SET_TOKEN('GRNT_TEXT', p_select_text);
1017: FND_MSG_PUB.Add;
1018: RAISE FND_API.G_EXC_ERROR;
1019:
1020: END IF;
1021: END IF;
1061: -- -----------------------------------------------------------------
1062: EXCEPTION
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1065: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1066: p_count => l_message_count,
1067: p_data => x_return_message);
1068: ROLLBACK TO Insert_Object_Attr_Method_SP;
1069:
1069:
1070: WHEN FND_API.G_EXC_ERROR THEN
1071: x_return_status := FND_API.G_RET_STS_ERROR;
1072:
1073: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1074: p_count => l_message_count,
1075: p_data => x_return_message);
1076: ROLLBACK TO Insert_Object_Attr_Method_SP;
1077:
1076: ROLLBACK TO Insert_Object_Attr_Method_SP;
1077:
1078: WHEN OTHERS THEN
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1081: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1084: p_count => l_message_count,
1077:
1078: WHEN OTHERS THEN
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1081: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1084: p_count => l_message_count,
1085: p_data => x_return_message);
1079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1080: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1081: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1082: END IF;
1083: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1084: p_count => l_message_count,
1085: p_data => x_return_message);
1086: ROLLBACK TO Insert_Object_Attr_Method_SP;
1087:
1147: -- If the calling program has passed the parameter for initializing
1148: -- the message list
1149: -- -----------------------------------------------------------------
1150: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
1151: FND_MSG_PUB.INITIALIZE;
1152: END IF;
1153:
1154: -- -----------------------------------------------------------------
1155: -- Set the return status to success
1161: -- -----------------------------------------------------------------
1162: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
1163:
1164: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
1165: FND_MSG_PUB.Add;
1166: RAISE FND_API.G_EXC_ERROR;
1167:
1168: END IF;
1169:
1173: l_obj_group_id := Validate_Obj_Grp_ID (p_group_id => p_obj_group_id);
1174:
1175: IF (l_obj_group_id <= 0) THEN
1176: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_GROUP');
1177: FND_MSG_PUB.Add;
1178: RAISE FND_API.G_EXC_ERROR;
1179: END IF;
1180:
1181: -- -----------------------------------------------------------------
1182: -- Ensure that the function name is not null.
1183: -- -----------------------------------------------------------------
1184: IF (p_function_name IS NULL) THEN
1185: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_FUNC_NAME');
1186: FND_MSG_PUB.Add;
1187: RAISE FND_API.G_EXC_ERROR;
1188: END IF;
1189:
1190: -- -----------------------------------------------------------------
1224: -- -----------------------------------------------------------------
1225: EXCEPTION
1226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1229: p_count => l_message_count,
1230: p_data => x_return_message);
1231: ROLLBACK TO Insert_Object_Func_SP;
1232:
1232:
1233: WHEN FND_API.G_EXC_ERROR THEN
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235:
1236: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1237: p_count => l_message_count,
1238: p_data => x_return_message);
1239: ROLLBACK TO Insert_Object_Func_SP;
1240:
1239: ROLLBACK TO Insert_Object_Func_SP;
1240:
1241: WHEN OTHERS THEN
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1244: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1245: END IF;
1246: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1247: p_count => l_message_count,
1240:
1241: WHEN OTHERS THEN
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1244: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1245: END IF;
1246: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1247: p_count => l_message_count,
1248: p_data => x_return_message);
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1244: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1245: END IF;
1246: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1247: p_count => l_message_count,
1248: p_data => x_return_message);
1249: ROLLBACK TO Insert_Object_Func_SP;
1250:
1341: -- If the calling program has passed the parameter for initializing
1342: -- the message list
1343: -- -----------------------------------------------------------------
1344: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
1345: FND_MSG_PUB.INITIALIZE;
1346: END IF;
1347:
1348: -- -----------------------------------------------------------------
1349: -- Set the return status to success
1355: -- -----------------------------------------------------------------
1356: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
1357:
1358: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
1359: FND_MSG_PUB.Add;
1360: RAISE FND_API.G_EXC_ERROR;
1361:
1362: END IF;
1363:
1367: l_obj_group_id := Validate_Obj_Grp_ID (p_group_id => p_obj_group_id);
1368:
1369: IF (l_obj_group_id <= 0) THEN
1370: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_GROUP');
1371: FND_MSG_PUB.Add;
1372: RAISE FND_API.G_EXC_ERROR;
1373: END IF;
1374:
1375: -- -----------------------------------------------------------------
1473: -- -----------------------------------------------------------------
1474: EXCEPTION
1475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1477: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1478: p_count => l_message_count,
1479: p_data => x_return_message);
1480: ROLLBACK TO Insert_Object_SP;
1481:
1481:
1482: WHEN FND_API.G_EXC_ERROR THEN
1483: x_return_status := FND_API.G_RET_STS_ERROR;
1484:
1485: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1486: p_count => l_message_count,
1487: p_data => x_return_message);
1488: ROLLBACK TO Insert_Object_SP;
1489:
1488: ROLLBACK TO Insert_Object_SP;
1489:
1490: WHEN OTHERS THEN
1491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1493: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1494: END IF;
1495: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1496: p_count => l_message_count,
1489:
1490: WHEN OTHERS THEN
1491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1493: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1494: END IF;
1495: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1496: p_count => l_message_count,
1497: p_data => x_return_message);
1491: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1493: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1494: END IF;
1495: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1496: p_count => l_message_count,
1497: p_data => x_return_message);
1498: ROLLBACK TO Insert_Object_SP;
1499:
1562: -- If the calling program has passed the parameter for initializing
1563: -- the message list
1564: -- -----------------------------------------------------------------
1565: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
1566: FND_MSG_PUB.INITIALIZE;
1567: END IF;
1568:
1569: -- -----------------------------------------------------------------
1570: -- Set the return status to success
1577: -- -----------------------------------------------------------------
1578: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
1579:
1580: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
1581: FND_MSG_PUB.Add;
1582: RAISE FND_API.G_EXC_ERROR;
1583:
1584: END IF;
1585:
1587: -- Validate that the attribute name is valid.
1588: -- -----------------------------------------------------------------
1589: IF (p_user_attrib_name IS NULL) THEN
1590: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USR_ATTR_NAME');
1591: FND_MSG_PUB.Add;
1592: RAISE FND_API.G_EXC_ERROR;
1593: END IF;
1594:
1595: -- -----------------------------------------------------------------
1596: -- Ensure that there is SELECT text provided.
1597: -- -----------------------------------------------------------------
1598: IF (p_select_text IS NULL) THEN
1599: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_SELECT_TEXT');
1600: FND_MSG_PUB.Add;
1601: RAISE FND_API.G_EXC_ERROR;
1602: END IF;
1603:
1604: -- -----------------------------------------------------------------
1607: l_user_attrib_type := Validate_User_Attr_Type (p_usr_att_type => p_user_attrib_type);
1608:
1609: IF (l_user_attrib_type IS NULL) THEN
1610: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USR_ATT_TYPE');
1611: FND_MSG_PUB.Add;
1612: RAISE FND_API.G_EXC_ERROR;
1613: END IF;
1614:
1615: -- -----------------------------------------------------------------
1618: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
1619:
1620: IF (l_static_type IS NULL) THEN
1621: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_STATIC_TYPE');
1622: FND_MSG_PUB.Add;
1623: RAISE FND_API.G_EXC_ERROR;
1624: END IF;
1625:
1626: IF NOT check_attrib_text ( 'DUAL', p_select_text,l_user_attrib_type) THEN
1627:
1628: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRNT_TXT_ERR');
1629: FND_MESSAGE.SET_TOKEN('OBJ_NAME','USER_ATTRIB');
1630: FND_MESSAGE.SET_TOKEN('GRNT_TEXT', p_select_text);
1631: FND_MSG_PUB.Add;
1632: RAISE FND_API.G_EXC_ERROR;
1633:
1634: END IF;
1635:
1698: -- -----------------------------------------------------------------
1699: EXCEPTION
1700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1703: p_count => l_message_count,
1704: p_data => x_return_message);
1705: ROLLBACK TO Insert_User_Attr_SP;
1706:
1706:
1707: WHEN FND_API.G_EXC_ERROR THEN
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1709:
1710: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1711: p_count => l_message_count,
1712: p_data => x_return_message);
1713: ROLLBACK TO Insert_User_Attr_SP;
1714:
1713: ROLLBACK TO Insert_User_Attr_SP;
1714:
1715: WHEN OTHERS THEN
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1718: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1719: END IF;
1720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1721: p_count => l_message_count,
1714:
1715: WHEN OTHERS THEN
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1718: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1719: END IF;
1720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1721: p_count => l_message_count,
1722: p_data => x_return_message);
1716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1717: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1718: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1719: END IF;
1720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1721: p_count => l_message_count,
1722: p_data => x_return_message);
1723:
1724: ROLLBACK TO Insert_User_Attr_SP;
1801: -- If the calling program has passed the parameter for initializing
1802: -- the message list
1803: -- -----------------------------------------------------------------
1804: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
1805: FND_MSG_PUB.INITIALIZE;
1806: END IF;
1807:
1808: -- -----------------------------------------------------------------
1809: -- Set the return status to success
1840: -- -----------------------------------------------------------------
1841: EXCEPTION
1842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1844: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1845: p_count => l_message_count,
1846: p_data => x_return_message);
1847: ROLLBACK TO Insert_Local_Role_SP;
1848: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
1852: END IF;
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_ERROR;
1855:
1856: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1857: p_count => l_message_count,
1858: p_data => x_return_message);
1859: ROLLBACK TO Insert_Local_Role_SP;
1860:
1865: END IF;
1866:
1867: WHEN OTHERS THEN
1868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1869: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1870: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1871: END IF;
1872: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1873: p_count => l_message_count,
1866:
1867: WHEN OTHERS THEN
1868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1869: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1870: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1871: END IF;
1872: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1873: p_count => l_message_count,
1874: p_data => x_return_message);
1868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1869: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1870: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1871: END IF;
1872: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
1873: p_count => l_message_count,
1874: p_data => x_return_message);
1875: ROLLBACK TO Insert_Local_Role_SP;
1876:
1964: -- If the calling program has passed the parameter for initializing
1965: -- the message list
1966: -- -----------------------------------------------------------------
1967: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
1968: FND_MSG_PUB.INITIALIZE;
1969: END IF;
1970:
1971: -- -----------------------------------------------------------------
1972: -- Set the return status to success
1980:
1981: IF c_fnd_user_name%NOTFOUND THEN
1982:
1983: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_USR_NOT_FOUND');
1984: FND_MSG_PUB.Add;
1985: RAISE FND_API.G_EXC_ERROR;
1986:
1987: END IF;
1988:
2025: -- -----------------------------------------------------------------
2026: EXCEPTION
2027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2029: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2030: p_count => l_message_count,
2031: p_data => x_return_message);
2032: ROLLBACK TO Insert_Local_User_Role_SP;
2033:
2039:
2040: WHEN FND_API.G_EXC_ERROR THEN
2041: x_return_status := FND_API.G_RET_STS_ERROR;
2042:
2043: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2044: p_count => l_message_count,
2045: p_data => x_return_message);
2046: ROLLBACK TO Insert_Local_User_Role_SP;
2047:
2052: END IF;
2053:
2054: WHEN OTHERS THEN
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2057: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2058: END IF;
2059: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2060: p_count => l_message_count,
2053:
2054: WHEN OTHERS THEN
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2057: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2058: END IF;
2059: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2060: p_count => l_message_count,
2061: p_data => x_return_message);
2055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2056: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2057: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2058: END IF;
2059: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2060: p_count => l_message_count,
2061: p_data => x_return_message);
2062: ROLLBACK TO Insert_Local_User_Role_SP;
2063:
2156: -- If the calling program has passed the parameter for initializing
2157: -- the message list
2158: -- -----------------------------------------------------------------
2159: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
2160: FND_MSG_PUB.INITIALIZE;
2161: END IF;
2162:
2163: -- -----------------------------------------------------------------
2164: -- Set the return status to success
2170: -- -----------------------------------------------------------------
2171: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
2172:
2173: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
2174: FND_MSG_PUB.Add;
2175: RAISE FND_API.G_EXC_ERROR;
2176:
2177: END IF;
2178:
2182: l_obj_group_id := Validate_Obj_Grp_ID (p_group_id => p_obj_group_id);
2183:
2184: IF (l_obj_group_id <= 0) THEN
2185: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_GROUP');
2186: FND_MSG_PUB.Add;
2187: RAISE FND_API.G_EXC_ERROR;
2188: END IF;
2189:
2190: -- -----------------------------------------------------------------
2197:
2198: IF l_object_name IS NULL THEN
2199:
2200: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJECT');
2201: FND_MSG_PUB.Add;
2202: RAISE FND_API.G_EXC_ERROR;
2203:
2204: END IF;
2205:
2254: -- -----------------------------------------------------------------
2255: EXCEPTION
2256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2258: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2259: p_count => l_message_count,
2260: p_data => x_return_message);
2261: ROLLBACK TO Update_Object_SP;
2262:
2262:
2263: WHEN FND_API.G_EXC_ERROR THEN
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2265:
2266: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2267: p_count => l_message_count,
2268: p_data => x_return_message);
2269: ROLLBACK TO Update_Object_SP;
2270:
2269: ROLLBACK TO Update_Object_SP;
2270:
2271: WHEN OTHERS THEN
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2273: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2274: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2275: END IF;
2276: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2277: p_count => l_message_count,
2270:
2271: WHEN OTHERS THEN
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2273: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2274: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2275: END IF;
2276: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2277: p_count => l_message_count,
2278: p_data => x_return_message);
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2273: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2274: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2275: END IF;
2276: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2277: p_count => l_message_count,
2278: p_data => x_return_message);
2279: ROLLBACK TO Update_Object_SP;
2280: IF g_upgrade_mode = 'Y' THEN
2353: -- If the calling program has passed the parameter for initializing
2354: -- the message list
2355: -- -----------------------------------------------------------------
2356: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
2357: FND_MSG_PUB.INITIALIZE;
2358: END IF;
2359:
2360: -- -----------------------------------------------------------------
2361: -- Set the return status to success
2392: -- -----------------------------------------------------------------
2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2396: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2397: p_count => l_message_count,
2398: p_data => x_return_message);
2399: ROLLBACK TO Update_Local_Roles_SP;
2400:
2406:
2407: WHEN FND_API.G_EXC_ERROR THEN
2408: x_return_status := FND_API.G_RET_STS_ERROR;
2409:
2410: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2411: p_count => l_message_count,
2412: p_data => x_return_message);
2413: ROLLBACK TO Update_Local_Roles_SP;
2414:
2419: END IF;
2420:
2421: WHEN OTHERS THEN
2422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2423: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2424: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2425: END IF;
2426: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2427: p_count => l_message_count,
2420:
2421: WHEN OTHERS THEN
2422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2423: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2424: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2425: END IF;
2426: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2427: p_count => l_message_count,
2428: p_data => x_return_message);
2422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2423: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2424: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2425: END IF;
2426: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2427: p_count => l_message_count,
2428: p_data => x_return_message);
2429: ROLLBACK TO Update_Local_Roles_SP;
2430:
2508: -- If the calling program has passed the parameter for initializing
2509: -- the message list
2510: -- -----------------------------------------------------------------
2511: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
2512: FND_MSG_PUB.INITIALIZE;
2513: END IF;
2514:
2515: -- -----------------------------------------------------------------
2516: -- Set the return status to success
2539: -- -----------------------------------------------------------------
2540: EXCEPTION
2541: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2543: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2544: p_count => l_message_count,
2545: p_data => x_return_message);
2546: ROLLBACK TO Update_Local_User_Roles_SP;
2547:
2553:
2554: WHEN FND_API.G_EXC_ERROR THEN
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2556:
2557: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2558: p_count => l_message_count,
2559: p_data => x_return_message);
2560: ROLLBACK TO Update_Local_User_Roles_SP;
2561:
2566: END IF;
2567:
2568: WHEN OTHERS THEN
2569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2570: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2571: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2572: END IF;
2573: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2574: p_count => l_message_count,
2567:
2568: WHEN OTHERS THEN
2569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2570: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2571: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2572: END IF;
2573: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2574: p_count => l_message_count,
2575: p_data => x_return_message);
2569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2570: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2571: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2572: END IF;
2573: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2574: p_count => l_message_count,
2575: p_data => x_return_message);
2576: ROLLBACK TO Update_Local_User_Roles_SP;
2577:
2678: -- If the calling program has passed the parameter for initializing
2679: -- the message list
2680: -- -----------------------------------------------------------------
2681: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
2682: FND_MSG_PUB.INITIALIZE;
2683: END IF;
2684:
2685: -- -----------------------------------------------------------------
2686: -- Set the return status to success
2705:
2706: IF (c_get_grants_values%NOTFOUND) THEN
2707: CLOSE c_get_grants_values; --mmkumar
2708: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_NOT_FOUND');
2709: FND_MSG_PUB.Add;
2710: RAISE FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2713: IF (c_get_grants_values%ISOPEN) THEN
2721: l_function_id := Validate_Function_ID (p_function_id => p_function_id);
2722: IF (l_function_id <= 0) THEN
2723: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_FUNC_FOR_GRNT');
2724: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
2725: FND_MSG_PUB.Add;
2726: RAISE FND_API.G_EXC_ERROR;
2727: END IF;
2728: END IF;
2729:
2746: IF (l_locked_flag = 'Y') THEN
2747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
2748: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
2749: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
2750: FND_MSG_PUB.Add;
2751: RAISE FND_API.G_EXC_ERROR;
2752: END IF;
2753:
2754:
2785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2786: IF (c_get_grants_values%ISOPEN) THEN
2787: CLOSE c_get_grants_values;
2788: END IF;
2789: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2790: p_count => l_message_count,
2791: p_data => x_return_message);
2792: ROLLBACK TO Update_Grant_SP;
2793:
2802:
2803: IF (c_get_grants_values%ISOPEN) THEN
2804: CLOSE c_get_grants_values;
2805: END IF;
2806: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2807: p_count => l_message_count,
2808: p_data => x_return_message);
2809: ROLLBACK TO Update_Grant_SP;
2810:
2818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2819: IF (c_get_grants_values%ISOPEN) THEN
2820: CLOSE c_get_grants_values;
2821: END IF;
2822: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2823: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2824: END IF;
2825: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2826: p_count => l_message_count,
2819: IF (c_get_grants_values%ISOPEN) THEN
2820: CLOSE c_get_grants_values;
2821: END IF;
2822: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2823: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2824: END IF;
2825: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2826: p_count => l_message_count,
2827: p_data => x_return_message);
2821: END IF;
2822: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
2823: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2824: END IF;
2825: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
2826: p_count => l_message_count,
2827: p_data => x_return_message);
2828: ROLLBACK TO Update_Grant_SP;
2829:
2929: -- If the calling program has passed the parameter for initializing
2930: -- the message list
2931: -- -----------------------------------------------------------------
2932: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
2933: FND_MSG_PUB.INITIALIZE;
2934: END IF;
2935:
2936: -- -----------------------------------------------------------------
2937: -- Set the return status to success
2950: CLOSE c_get_grant_name; --mmkumar
2951: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
2952: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
2953: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
2954: FND_MSG_PUB.Add;
2955: RAISE FND_API.G_EXC_ERROR;
2956: END IF;
2957:
2958:
2969: IF ((p_obj_attrib_id IS NOT NULL)) THEN
2970: l_obj_attrib_id := Validate_Obj_Attr_ID (p_obj_attr_id => p_obj_attrib_id);
2971: IF (l_obj_attrib_id <= 0) THEN
2972: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR');
2973: FND_MSG_PUB.Add;
2974: RAISE FND_API.G_EXC_ERROR;
2975: END IF;
2976: END IF;
2977:
2978: IF ((p_user_attrib_id IS NOT NULL) ) THEN
2979: l_user_attrib_id := Validate_User_Attr_ID (p_user_attr_id => p_user_attrib_id);
2980: IF (l_user_attrib_id <= 0) THEN
2981: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USR_ATTR');
2982: FND_MSG_PUB.Add;
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985: END IF;
2986:
3016:
3017: IF (c_get_grant_name%ISOPEN) THEN
3018: CLOSE c_get_grant_name;
3019: END IF;
3020: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3021: p_count => l_message_count,
3022: p_data => x_return_message);
3023: ROLLBACK TO Update_Grant_Cond_SP;
3024:
3033:
3034: IF (c_get_grant_name%ISOPEN) THEN
3035: CLOSE c_get_grant_name;
3036: END IF;
3037: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3038: p_count => l_message_count,
3039: p_data => x_return_message);
3040: ROLLBACK TO Update_Grant_Cond_SP;
3041:
3049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3050: IF (c_get_grant_name%ISOPEN) THEN
3051: CLOSE c_get_grant_name;
3052: END IF;
3053: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3054: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3055: END IF;
3056: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3057: p_count => l_message_count,
3050: IF (c_get_grant_name%ISOPEN) THEN
3051: CLOSE c_get_grant_name;
3052: END IF;
3053: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3054: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3055: END IF;
3056: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3057: p_count => l_message_count,
3058: p_data => x_return_message);
3052: END IF;
3053: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3054: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3055: END IF;
3056: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3057: p_count => l_message_count,
3058: p_data => x_return_message);
3059: ROLLBACK TO Update_Grant_Cond_SP;
3060:
3148: -- If the calling program has passed the parameter for initializing
3149: -- the message list
3150: -- -----------------------------------------------------------------
3151: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
3152: FND_MSG_PUB.INITIALIZE;
3153: END IF;
3154:
3155: -- -----------------------------------------------------------------
3156: -- Set the return status to success
3170:
3171: IF (c_get_obj_group%NOTFOUND) THEN
3172: CLOSE c_get_obj_group; --mmkumar
3173: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_OBJ_GRP_NOT_FOUND');
3174: FND_MSG_PUB.Add;
3175: RAISE FND_API.G_EXC_ERROR;
3176: END IF;
3177:
3178: -- -----------------------------------------------------------------
3197: -- -----------------------------------------------------------------
3198: IF (l_default_policy_type NOT IN ('G', 'R')) THEN
3199: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_DEF_POLICY_TYPE');
3200: FND_MESSAGE.SET_TOKEN('DEFAULT_POLICY', l_default_policy_type);
3201: FND_MSG_PUB.Add;
3202: RAISE FND_API.G_EXC_ERROR;
3203: END IF;
3204:
3205: -- -----------------------------------------------------------------
3241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3242: IF (c_get_obj_group%ISOPEN) THEN
3243: CLOSE c_get_obj_group;
3244: END IF;
3245: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3246: p_count => l_message_count,
3247: p_data => x_return_message);
3248: ROLLBACK TO Update_Object_Group_SP;
3249:
3252:
3253: IF (c_get_obj_group%ISOPEN) THEN
3254: CLOSE c_get_obj_group;
3255: END IF;
3256: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3257: p_count => l_message_count,
3258: p_data => x_return_message);
3259: ROLLBACK TO Update_Object_Group_SP;
3260:
3262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3263: IF (c_get_obj_group%ISOPEN) THEN
3264: CLOSE c_get_obj_group;
3265: END IF;
3266: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3267: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3268: END IF;
3269: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3270: p_count => l_message_count,
3263: IF (c_get_obj_group%ISOPEN) THEN
3264: CLOSE c_get_obj_group;
3265: END IF;
3266: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3267: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3268: END IF;
3269: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3270: p_count => l_message_count,
3271: p_data => x_return_message);
3265: END IF;
3266: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3267: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3268: END IF;
3269: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3270: p_count => l_message_count,
3271: p_data => x_return_message);
3272: ROLLBACK TO Update_Object_Group_SP;
3273: IF g_upgrade_mode = 'Y' THEN
3360: -- If the calling program has passed the parameter for initializing
3361: -- the message list
3362: -- -----------------------------------------------------------------
3363: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
3364: FND_MSG_PUB.INITIALIZE;
3365: END IF;
3366:
3367: -- -----------------------------------------------------------------
3368: -- Set the return status to success
3375: -- -----------------------------------------------------------------
3376: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
3377:
3378: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
3379: FND_MSG_PUB.Add;
3380: RAISE FND_API.G_EXC_ERROR;
3381:
3382: END IF;
3383: -- -----------------------------------------------------------------
3398: IF (Is_Grant_Locked(l_grant_id) = 'Y') THEN
3399: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
3400: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
3401: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
3402: FND_MSG_PUB.Add;
3403: RAISE FND_API.G_EXC_ERROR;
3404: END IF;
3405:
3406: FETCH c_get_grant_info
3437: return;
3438:
3439:
3440: /* FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_OBJ_MTHD_NOT_FOUND');
3441: FND_MSG_PUB.Add;
3442: RAISE FND_API.G_EXC_ERROR;
3443: */
3444: END IF;
3445:
3449: IF ((p_obj_attrib_type IS NOT NULL) ) THEN
3450: l_obj_attrib_type := Validate_Obj_Attr_type (p_obj_att_type => p_obj_attrib_type);
3451: IF (l_obj_attrib_type IS NULL) THEN
3452: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_OBJ_ATTR_TYPE');
3453: FND_MSG_PUB.Add;
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3456: END IF;
3457:
3458: IF ((p_static_type IS NOT NULL) ) THEN
3459: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
3460: IF (l_static_type IS NULL) THEN
3461: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_STATIC_TYPE');
3462: FND_MSG_PUB.Add;
3463: RAISE FND_API.G_EXC_ERROR;
3464: END IF;
3465: END IF;
3466:
3480: IF NOT check_attrib_text ( l_object_name, l_select_text,l_obj_attrib_type) THEN
3481: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRNT_TXT_ERR');
3482: FND_MESSAGE.SET_TOKEN('OBJ_NAME',l_object_name);
3483: FND_MESSAGE.SET_TOKEN('GRNT_TEXT', p_select_text);
3484: FND_MSG_PUB.Add;
3485: RAISE FND_API.G_EXC_ERROR;
3486: END IF;
3487: END IF;
3488:
3516: END IF;
3517: IF (c_get_grant_info%ISOPEN) THEN
3518: CLOSE c_get_grant_info;
3519: END IF;
3520: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3521: p_count => l_message_count,
3522: p_data => x_return_message);
3523: ROLLBACK TO Update_Object_Attr_Method_SP;
3524:
3530: END IF;
3531: IF (c_get_grant_info%ISOPEN) THEN
3532: CLOSE c_get_grant_info;
3533: END IF;
3534: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3535: p_count => l_message_count,
3536: p_data => x_return_message);
3537: ROLLBACK TO Update_Object_Attr_Method_SP;
3538:
3543: END IF;
3544: IF (c_get_grant_info%ISOPEN) THEN
3545: CLOSE c_get_grant_info;
3546: END IF;
3547: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3548: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3549: END IF;
3550: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3551: p_count => l_message_count,
3544: IF (c_get_grant_info%ISOPEN) THEN
3545: CLOSE c_get_grant_info;
3546: END IF;
3547: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3548: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3549: END IF;
3550: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3551: p_count => l_message_count,
3552: p_data => x_return_message);
3546: END IF;
3547: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3548: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3549: END IF;
3550: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3551: p_count => l_message_count,
3552: p_data => x_return_message);
3553: ROLLBACK TO Update_Object_Attr_Method_SP;
3554: IF g_upgrade_mode = 'Y' THEN
3631: -- If the calling program has passed the parameter for initializing
3632: -- the message list
3633: -- -----------------------------------------------------------------
3634: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
3635: FND_MSG_PUB.INITIALIZE;
3636: END IF;
3637:
3638: -- -----------------------------------------------------------------
3639: -- Set the return status to success
3645: -- -----------------------------------------------------------------
3646: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
3647:
3648: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
3649: FND_MSG_PUB.Add;
3650: RAISE FND_API.G_EXC_ERROR;
3651:
3652: END IF;
3653: -- -----------------------------------------------------------------
3664: IF (Is_Grant_Locked(l_grant_id) = 'Y') THEN
3665: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
3666: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
3667: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
3668: FND_MSG_PUB.Add;
3669: RAISE FND_API.G_EXC_ERROR;
3670: END IF;
3671:
3672: FETCH c_get_grants
3684: l_function_name;
3685:
3686: IF (c_get_func_values%NOTFOUND) THEN
3687: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_OBJ_FUNC_NOT_FOUND');
3688: FND_MSG_PUB.Add;
3689: RAISE FND_API.G_EXC_ERROR;
3690: END IF;
3691:
3692: CLOSE c_get_func_values;
3716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3717: IF (c_get_func_values%ISOPEN) THEN
3718: CLOSE c_get_func_values;
3719: END IF;
3720: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3721: p_count => l_message_count,
3722: p_data => x_return_message);
3723: ROLLBACK TO Update_Object_Func_SP;
3724:
3727:
3728: IF (c_get_func_values%ISOPEN) THEN
3729: CLOSE c_get_func_values;
3730: END IF;
3731: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3732: p_count => l_message_count,
3733: p_data => x_return_message);
3734: ROLLBACK TO Update_Object_Func_SP;
3735:
3737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3738: IF (c_get_func_values%ISOPEN) THEN
3739: CLOSE c_get_func_values;
3740: END IF;
3741: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3742: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3743: END IF;
3744: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3745: p_count => l_message_count,
3738: IF (c_get_func_values%ISOPEN) THEN
3739: CLOSE c_get_func_values;
3740: END IF;
3741: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3742: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3743: END IF;
3744: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3745: p_count => l_message_count,
3746: p_data => x_return_message);
3740: END IF;
3741: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3742: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3743: END IF;
3744: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3745: p_count => l_message_count,
3746: p_data => x_return_message);
3747: ROLLBACK TO Update_Object_Func_SP;
3748: IF g_upgrade_mode = 'Y' THEN
3827: -- If the calling program has passed the parameter for initializing
3828: -- the message list
3829: -- -----------------------------------------------------------------
3830: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
3831: FND_MSG_PUB.INITIALIZE;
3832: END IF;
3833:
3834: -- -----------------------------------------------------------------
3835: -- Set the return status to success
3841: -- -----------------------------------------------------------------
3842: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
3843:
3844: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
3845: FND_MSG_PUB.Add;
3846: RAISE FND_API.G_EXC_ERROR;
3847:
3848: END IF;
3849:
3865: IF (Is_Grant_Locked(l_grant_id) = 'Y') THEN
3866: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
3867: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
3868: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
3869: FND_MSG_PUB.Add;
3870: RAISE FND_API.G_EXC_ERROR;
3871: END IF;
3872:
3873: FETCH c_get_grant_info
3888:
3889: IF (c_get_obj_attrib%NOTFOUND) THEN
3890: CLOSE c_get_obj_attrib; --mmkumar
3891: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_OBJ_ATTR_NOT_FOUND');
3892: FND_MSG_PUB.Add;
3893: RAISE FND_API.G_EXC_ERROR;
3894: END IF;
3895:
3896: IF (c_get_obj_attrib%ISOPEN) THEN
3925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3926: IF (c_get_obj_attrib%ISOPEN) THEN
3927: CLOSE c_get_obj_attrib;
3928: END IF;
3929: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3930: p_count => l_message_count,
3931: p_data => x_return_message);
3932: ROLLBACK TO Update_Object_Attr_SP;
3933:
3936:
3937: IF (c_get_obj_attrib%ISOPEN) THEN
3938: CLOSE c_get_obj_attrib;
3939: END IF;
3940: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3941: p_count => l_message_count,
3942: p_data => x_return_message);
3943: ROLLBACK TO Update_Object_Attr_SP;
3944:
3946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3947: IF (c_get_obj_attrib%ISOPEN) THEN
3948: CLOSE c_get_obj_attrib;
3949: END IF;
3950: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3951: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3952: END IF;
3953: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3954: p_count => l_message_count,
3947: IF (c_get_obj_attrib%ISOPEN) THEN
3948: CLOSE c_get_obj_attrib;
3949: END IF;
3950: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3951: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3952: END IF;
3953: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3954: p_count => l_message_count,
3955: p_data => x_return_message);
3949: END IF;
3950: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
3951: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3952: END IF;
3953: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
3954: p_count => l_message_count,
3955: p_data => x_return_message);
3956: ROLLBACK TO Update_Object_Attr_SP;
3957: IF g_upgrade_mode = 'Y' THEN
4042: -- If the calling program has passed the parameter for initializing
4043: -- the message list
4044: -- -----------------------------------------------------------------
4045: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
4046: FND_MSG_PUB.INITIALIZE;
4047: END IF;
4048:
4049: -- -----------------------------------------------------------------
4050: -- Set the return status to success
4057: -- -----------------------------------------------------------------
4058: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
4059:
4060: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
4061: FND_MSG_PUB.Add;
4062: RAISE FND_API.G_EXC_ERROR;
4063:
4064: END IF;
4065:
4083: IF (Is_Grant_Locked(l_grant_id) = 'Y') THEN
4084: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
4085: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_update_oper);
4086: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
4087: FND_MSG_PUB.Add;
4088: RAISE FND_API.G_EXC_ERROR;
4089: END IF;
4090:
4091: FETCH c_get_grant_info
4108:
4109: IF (c_get_usr_attrib%NOTFOUND) THEN
4110: CLOSE c_get_usr_attrib; --mmkumar
4111: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_USR_ATTR_NOT_FOUND');
4112: FND_MSG_PUB.Add;
4113: RAISE FND_API.G_EXC_ERROR;
4114: END IF;
4115:
4116: IF (c_get_usr_attrib%ISOPEN) THEN
4124: IF ((p_user_attrib_type IS NOT NULL) ) THEN
4125: l_user_attrib_type := Validate_User_Attr_Type (p_usr_att_type => p_user_attrib_type);
4126: IF (l_user_attrib_type IS NULL) THEN
4127: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_USR_ATT_TYPE');
4128: FND_MSG_PUB.Add;
4129: RAISE FND_API.G_EXC_ERROR;
4130: END IF;
4131: END IF;
4132:
4132:
4133: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
4134: IF (l_static_type IS NULL) THEN
4135: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_STATIC_TYPE');
4136: FND_MSG_PUB.Add;
4137: RAISE FND_API.G_EXC_ERROR;
4138: END IF;
4139:
4140: IF ((p_select_text IS NOT NULL) ) THEN
4151:
4152: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRNT_TXT_ERR');
4153: FND_MESSAGE.SET_TOKEN('OBJ_NAME','USER_ATTRIB');
4154: FND_MESSAGE.SET_TOKEN('GRNT_TEXT', l_select_text);
4155: FND_MSG_PUB.Add;
4156: RAISE FND_API.G_EXC_ERROR;
4157:
4158: END IF;
4159:
4219:
4220: IF (c_get_grant_info%ISOPEN) THEN
4221: CLOSE c_get_grant_info;
4222: END IF;
4223: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4224: p_count => l_message_count,
4225: p_data => x_return_message);
4226: ROLLBACK TO Update_User_Attr_SP;
4227:
4233: END IF;
4234: IF (c_get_grant_info%ISOPEN) THEN
4235: CLOSE c_get_grant_info;
4236: END IF;
4237: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4238: p_count => l_message_count,
4239: p_data => x_return_message);
4240: ROLLBACK TO Update_User_Attr_SP;
4241:
4246: END IF;
4247: IF (c_get_grant_info%ISOPEN) THEN
4248: CLOSE c_get_grant_info;
4249: END IF;
4250: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4251: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4252: END IF;
4253: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4254: p_count => l_message_count,
4247: IF (c_get_grant_info%ISOPEN) THEN
4248: CLOSE c_get_grant_info;
4249: END IF;
4250: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4251: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4252: END IF;
4253: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4254: p_count => l_message_count,
4255: p_data => x_return_message);
4249: END IF;
4250: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4251: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4252: END IF;
4253: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4254: p_count => l_message_count,
4255: p_data => x_return_message);
4256: ROLLBACK TO Update_User_Attr_SP;
4257: IF g_upgrade_mode = 'Y' THEN
4338: -- If the calling program has passed the parameter for initializing
4339: -- the message list
4340: -- -----------------------------------------------------------------
4341: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
4342: FND_MSG_PUB.INITIALIZE;
4343: END IF;
4344:
4345: -- -----------------------------------------------------------------
4346: -- Set the return status to success
4352: -- -----------------------------------------------------------------
4353: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
4354:
4355: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
4356: FND_MSG_PUB.Add;
4357: RAISE FND_API.G_EXC_ERROR;
4358:
4359: END IF;
4360: -- -----------------------------------------------------------------
4502: END IF;
4503: IF (c_get_function_id%ISOPEN) THEN
4504: CLOSE c_get_function_id;
4505: END IF;
4506: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4507: p_count => l_message_count,
4508: p_data => x_return_message);
4509: ROLLBACK TO Delete_Object_Group_SP;
4510:
4522: END IF;
4523: IF (c_get_function_id%ISOPEN) THEN
4524: CLOSE c_get_function_id;
4525: END IF;
4526: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4527: p_count => l_message_count,
4528: p_data => x_return_message);
4529: ROLLBACK TO Delete_Object_Group_SP;
4530:
4541: END IF;
4542: IF (c_get_function_id%ISOPEN) THEN
4543: CLOSE c_get_function_id;
4544: END IF;
4545: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4546: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4547: END IF;
4548: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4549: p_count => l_message_count,
4542: IF (c_get_function_id%ISOPEN) THEN
4543: CLOSE c_get_function_id;
4544: END IF;
4545: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4546: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4547: END IF;
4548: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4549: p_count => l_message_count,
4550: p_data => x_return_message);
4544: END IF;
4545: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4546: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4547: END IF;
4548: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4549: p_count => l_message_count,
4550: p_data => x_return_message);
4551: ROLLBACK TO Delete_Object_Group_SP;
4552: IF g_upgrade_mode = 'Y' THEN
4623: -- If the calling program has passed the parameter for initializing
4624: -- the message list
4625: -- -----------------------------------------------------------------
4626: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
4627: FND_MSG_PUB.INITIALIZE;
4628: END IF;
4629:
4630: -- -----------------------------------------------------------------
4631: -- Set the return status to success
4637: -- -----------------------------------------------------------------
4638: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
4639:
4640: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
4641: FND_MSG_PUB.Add;
4642: RAISE FND_API.G_EXC_ERROR;
4643:
4644: END IF;
4645:
4729: END IF;
4730: IF (c_get_object_id_val%ISOPEN) THEN
4731: CLOSE c_get_object_id_val;
4732: END IF;
4733: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4734: p_count => l_message_count,
4735: p_data => x_return_message);
4736: ROLLBACK TO Delete_Object_Attr_SP;
4737:
4743: END IF;
4744: IF (c_get_object_id_val%ISOPEN) THEN
4745: CLOSE c_get_object_id_val;
4746: END IF;
4747: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4748: p_count => l_message_count,
4749: p_data => x_return_message);
4750: ROLLBACK TO Delete_Object_Attr_SP;
4751:
4756: END IF;
4757: IF (c_get_object_id_val%ISOPEN) THEN
4758: CLOSE c_get_object_id_val;
4759: END IF;
4760: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4761: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4762: END IF;
4763: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4764: p_count => l_message_count,
4757: IF (c_get_object_id_val%ISOPEN) THEN
4758: CLOSE c_get_object_id_val;
4759: END IF;
4760: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4761: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4762: END IF;
4763: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4764: p_count => l_message_count,
4765: p_data => x_return_message);
4759: END IF;
4760: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4761: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4762: END IF;
4763: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4764: p_count => l_message_count,
4765: p_data => x_return_message);
4766: ROLLBACK TO Delete_Object_Attr_SP;
4767: IF g_upgrade_mode = 'Y' THEN
4821: -- If the calling program has passed the parameter for initializing
4822: -- the message list
4823: -- -----------------------------------------------------------------
4824: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
4825: FND_MSG_PUB.INITIALIZE;
4826: END IF;
4827:
4828: -- -----------------------------------------------------------------
4829: -- Set the return status to success
4834: -- -----------------------------------------------------------------
4835: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
4836:
4837: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
4838: FND_MSG_PUB.Add;
4839: RAISE FND_API.G_EXC_ERROR;
4840:
4841: END IF;
4842:
4862: -- -----------------------------------------------------------------
4863: EXCEPTION
4864: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4866: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4867: p_count => l_message_count,
4868: p_data => x_return_message);
4869: ROLLBACK TO Delete_Object_Attr_Method_SP;
4870:
4870:
4871: WHEN FND_API.G_EXC_ERROR THEN
4872: x_return_status := FND_API.G_RET_STS_ERROR;
4873:
4874: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4875: p_count => l_message_count,
4876: p_data => x_return_message);
4877: ROLLBACK TO Delete_Object_Attr_Method_SP;
4878:
4877: ROLLBACK TO Delete_Object_Attr_Method_SP;
4878:
4879: WHEN OTHERS THEN
4880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4881: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4882: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4883: END IF;
4884: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4885: p_count => l_message_count,
4878:
4879: WHEN OTHERS THEN
4880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4881: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4882: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4883: END IF;
4884: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4885: p_count => l_message_count,
4886: p_data => x_return_message);
4880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4881: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
4882: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4883: END IF;
4884: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
4885: p_count => l_message_count,
4886: p_data => x_return_message);
4887: ROLLBACK TO Delete_Object_Attr_Method_SP;
4888: IF g_upgrade_mode = 'Y' THEN
4954: -- If the calling program has passed the parameter for initializing
4955: -- the message list
4956: -- -----------------------------------------------------------------
4957: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
4958: FND_MSG_PUB.INITIALIZE;
4959: END IF;
4960:
4961: -- -----------------------------------------------------------------
4962: -- Set the return status to success
4968: -- -----------------------------------------------------------------
4969: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
4970:
4971: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
4972: FND_MSG_PUB.Add;
4973: RAISE FND_API.G_EXC_ERROR;
4974:
4975: END IF;
4976:
5025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5026: IF (c_get_grant_id%ISOPEN) THEN
5027: CLOSE c_get_grant_id;
5028: END IF;
5029: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5030: p_count => l_message_count,
5031: p_data => x_return_message);
5032: ROLLBACK TO Delete_Object_Func_SP;
5033:
5036:
5037: IF (c_get_grant_id%ISOPEN) THEN
5038: CLOSE c_get_grant_id;
5039: END IF;
5040: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5041: p_count => l_message_count,
5042: p_data => x_return_message);
5043: ROLLBACK TO Delete_Object_Func_SP;
5044:
5046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5047: IF (c_get_grant_id%ISOPEN) THEN
5048: CLOSE c_get_grant_id;
5049: END IF;
5050: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5051: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5052: END IF;
5053: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5054: p_count => l_message_count,
5047: IF (c_get_grant_id%ISOPEN) THEN
5048: CLOSE c_get_grant_id;
5049: END IF;
5050: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5051: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5052: END IF;
5053: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5054: p_count => l_message_count,
5055: p_data => x_return_message);
5049: END IF;
5050: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5051: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5052: END IF;
5053: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5054: p_count => l_message_count,
5055: p_data => x_return_message);
5056: ROLLBACK TO Delete_Object_Func_SP;
5057: IF g_upgrade_mode = 'Y' THEN
5110: -- If the calling program has passed the parameter for initializing
5111: -- the message list
5112: -- -----------------------------------------------------------------
5113: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5114: FND_MSG_PUB.INITIALIZE;
5115: END IF;
5116:
5117: -- -----------------------------------------------------------------
5118: -- Set the return status to success
5124: -- -----------------------------------------------------------------
5125: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
5126:
5127: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
5128: FND_MSG_PUB.Add;
5129: RAISE FND_API.G_EXC_ERROR;
5130:
5131: END IF;
5132:
5151: -- -----------------------------------------------------------------
5152: EXCEPTION
5153: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5155: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5156: p_count => l_message_count,
5157: p_data => x_return_message);
5158: ROLLBACK TO Delete_Object_Attr_Val_SP;
5159:
5159:
5160: WHEN FND_API.G_EXC_ERROR THEN
5161: x_return_status := FND_API.G_RET_STS_ERROR;
5162:
5163: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5164: p_count => l_message_count,
5165: p_data => x_return_message);
5166: ROLLBACK TO Delete_Object_Attr_Val_SP;
5167:
5166: ROLLBACK TO Delete_Object_Attr_Val_SP;
5167:
5168: WHEN OTHERS THEN
5169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5170: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5171: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5172: END IF;
5173: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5174: p_count => l_message_count,
5167:
5168: WHEN OTHERS THEN
5169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5170: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5171: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5172: END IF;
5173: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5174: p_count => l_message_count,
5175: p_data => x_return_message);
5169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5170: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5171: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5172: END IF;
5173: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5174: p_count => l_message_count,
5175: p_data => x_return_message);
5176: ROLLBACK TO Delete_Object_Attr_Val_SP;
5177: IF g_upgrade_mode = 'Y' THEN
5235: -- If the calling program has passed the parameter for initializing
5236: -- the message list
5237: -- -----------------------------------------------------------------
5238: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5239: FND_MSG_PUB.INITIALIZE;
5240: END IF;
5241:
5242: -- -----------------------------------------------------------------
5243: -- Set the return status to success
5249: -- -----------------------------------------------------------------
5250: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
5251:
5252: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
5253: FND_MSG_PUB.Add;
5254: RAISE FND_API.G_EXC_ERROR;
5255:
5256: END IF;
5257: -- -----------------------------------------------------------------
5285: -- -----------------------------------------------------------------
5286: EXCEPTION
5287: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5289: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5290: p_count => l_message_count,
5291: p_data => x_return_message);
5292: ROLLBACK TO Delete_Object_SP;
5293:
5293:
5294: WHEN FND_API.G_EXC_ERROR THEN
5295: x_return_status := FND_API.G_RET_STS_ERROR;
5296:
5297: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5298: p_count => l_message_count,
5299: p_data => x_return_message);
5300: ROLLBACK TO Delete_Object_SP;
5301:
5300: ROLLBACK TO Delete_Object_SP;
5301:
5302: WHEN OTHERS THEN
5303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5304: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5305: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5306: END IF;
5307: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5308: p_count => l_message_count,
5301:
5302: WHEN OTHERS THEN
5303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5304: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5305: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5306: END IF;
5307: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5308: p_count => l_message_count,
5309: p_data => x_return_message);
5303: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5304: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5305: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5306: END IF;
5307: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5308: p_count => l_message_count,
5309: p_data => x_return_message);
5310: ROLLBACK TO Delete_Object_SP;
5311: IF g_upgrade_mode = 'Y' THEN
5386: -- If the calling program has passed the parameter for initializing
5387: -- the message list
5388: -- -----------------------------------------------------------------
5389: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5390: FND_MSG_PUB.INITIALIZE;
5391: END IF;
5392:
5393: -- -----------------------------------------------------------------
5394: -- Set the return status to success
5400: -- -----------------------------------------------------------------
5401: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
5402:
5403: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
5404: FND_MSG_PUB.Add;
5405: RAISE FND_API.G_EXC_ERROR;
5406:
5407: END IF;
5408:
5419: IF (c_get_grant_conds%FOUND) THEN
5420: CLOSE c_get_grant_conds; --mmkumar
5421: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_PRSNT');
5422: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
5423: FND_MSG_PUB.Add;
5424: RAISE FND_API.G_EXC_ERROR;
5425: END IF;
5426:
5427: IF (c_get_grant_conds%ISOPEN) THEN
5472: END IF;
5473: IF (c_get_user_id%ISOPEN) THEN
5474: CLOSE c_get_user_id;
5475: END IF;
5476: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5477: p_count => l_message_count,
5478: p_data => x_return_message);
5479: ROLLBACK TO Delete_User_Attr_SP;
5480:
5486: END IF;
5487: IF (c_get_user_id%ISOPEN) THEN
5488: CLOSE c_get_user_id;
5489: END IF;
5490: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5491: p_count => l_message_count,
5492: p_data => x_return_message);
5493: ROLLBACK TO Delete_User_Attr_SP;
5494:
5499: END IF;
5500: IF (c_get_user_id%ISOPEN) THEN
5501: CLOSE c_get_user_id;
5502: END IF;
5503: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5504: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5505: END IF;
5506: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5507: p_count => l_message_count,
5500: IF (c_get_user_id%ISOPEN) THEN
5501: CLOSE c_get_user_id;
5502: END IF;
5503: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5504: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5505: END IF;
5506: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5507: p_count => l_message_count,
5508: p_data => x_return_message);
5502: END IF;
5503: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5504: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5505: END IF;
5506: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5507: p_count => l_message_count,
5508: p_data => x_return_message);
5509: ROLLBACK TO Delete_User_Attr_SP;
5510: IF g_upgrade_mode = 'Y' THEN
5565: -- If the calling program has passed the parameter for initializing
5566: -- the message list
5567: -- -----------------------------------------------------------------
5568: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5569: FND_MSG_PUB.INITIALIZE;
5570: END IF;
5571:
5572: -- -----------------------------------------------------------------
5573: -- Set the return status to success
5595: -- -----------------------------------------------------------------
5596: EXCEPTION
5597: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5599: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5600: p_count => l_message_count,
5601: p_data => x_return_message);
5602: ROLLBACK TO Delete_User_Attr_Val_SP;
5603:
5603:
5604: WHEN FND_API.G_EXC_ERROR THEN
5605: x_return_status := FND_API.G_RET_STS_ERROR;
5606:
5607: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5608: p_count => l_message_count,
5609: p_data => x_return_message);
5610: ROLLBACK TO Delete_User_Attr_Val_SP;
5611:
5610: ROLLBACK TO Delete_User_Attr_Val_SP;
5611:
5612: WHEN OTHERS THEN
5613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5614: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5615: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5616: END IF;
5617: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5618: p_count => l_message_count,
5611:
5612: WHEN OTHERS THEN
5613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5614: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5615: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5616: END IF;
5617: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5618: p_count => l_message_count,
5619: p_data => x_return_message);
5613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5614: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5615: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5616: END IF;
5617: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5618: p_count => l_message_count,
5619: p_data => x_return_message);
5620: ROLLBACK TO Delete_User_Attr_Val_SP;
5621: IF g_upgrade_mode = 'Y' THEN
5698: -- If the calling program has passed the parameter for initializing
5699: -- the message list
5700: -- -----------------------------------------------------------------
5701: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5702: FND_MSG_PUB.INITIALIZE;
5703: END IF;
5704:
5705: -- -----------------------------------------------------------------
5706: -- Set the return status to success
5758:
5759: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
5760: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_delete_oper);
5761: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
5762: FND_MSG_PUB.Add;
5763: RAISE FND_API.G_EXC_ERROR;
5764:
5765: END IF;
5766:
5783: END IF;
5784: IF (c_get_grant_cond%ISOPEN) THEN
5785: CLOSE c_get_grant_cond;
5786: END IF;
5787: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5788: p_count => l_message_count,
5789: p_data => x_return_message);
5790: ROLLBACK TO Delete_Grant_SP;
5791:
5803: END IF;
5804: IF (c_get_grant_cond%ISOPEN) THEN
5805: CLOSE c_get_grant_cond;
5806: END IF;
5807: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5808: p_count => l_message_count,
5809: p_data => x_return_message);
5810: ROLLBACK TO Delete_Grant_SP;
5811:
5822: END IF;
5823: IF (c_get_grant_cond%ISOPEN) THEN
5824: CLOSE c_get_grant_cond;
5825: END IF;
5826: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5827: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5828: END IF;
5829: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5830: p_count => l_message_count,
5823: IF (c_get_grant_cond%ISOPEN) THEN
5824: CLOSE c_get_grant_cond;
5825: END IF;
5826: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5827: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5828: END IF;
5829: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5830: p_count => l_message_count,
5831: p_data => x_return_message);
5825: END IF;
5826: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
5827: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5828: END IF;
5829: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5830: p_count => l_message_count,
5831: p_data => x_return_message);
5832: ROLLBACK TO Delete_Grant_SP;
5833:
5913: -- If the calling program has passed the parameter for initializing
5914: -- the message list
5915: -- -----------------------------------------------------------------
5916: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
5917: FND_MSG_PUB.INITIALIZE;
5918: END IF;
5919:
5920: -- -----------------------------------------------------------------
5921: -- Set the return status to success
5945:
5946: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRANT_LOCKED_NO_OPS');
5947: FND_MESSAGE.SET_TOKEN('OPS_TYPE', l_delete_oper);
5948: FND_MESSAGE.SET_TOKEN('GRANT_NAME', l_grant_name);
5949: FND_MSG_PUB.Add;
5950: RAISE FND_API.G_EXC_ERROR;
5951:
5952: END IF;
5953:
5967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5968: IF (c_get_grant_name%ISOPEN) THEN
5969: CLOSE c_get_grant_name;
5970: END IF;
5971: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5972: p_count => l_message_count,
5973: p_data => x_return_message);
5974: ROLLBACK TO Delete_Grant_Cond_SP;
5975:
5985:
5986: IF (c_get_grant_name%ISOPEN) THEN
5987: CLOSE c_get_grant_name;
5988: END IF;
5989: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
5990: p_count => l_message_count,
5991: p_data => x_return_message);
5992: ROLLBACK TO Delete_Grant_Cond_SP;
5993:
6001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6002: IF (c_get_grant_name%ISOPEN) THEN
6003: CLOSE c_get_grant_name;
6004: END IF;
6005: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6006: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6007: END IF;
6008: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6009: p_count => l_message_count,
6002: IF (c_get_grant_name%ISOPEN) THEN
6003: CLOSE c_get_grant_name;
6004: END IF;
6005: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6006: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6007: END IF;
6008: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6009: p_count => l_message_count,
6010: p_data => x_return_message);
6004: END IF;
6005: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6006: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6007: END IF;
6008: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6009: p_count => l_message_count,
6010: p_data => x_return_message);
6011: ROLLBACK TO Delete_Grant_Cond_SP;
6012:
6069: -- If the calling program has passed the parameter for initializing
6070: -- the message list
6071: -- -----------------------------------------------------------------
6072: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
6073: FND_MSG_PUB.INITIALIZE;
6074: END IF;
6075:
6076: -- -----------------------------------------------------------------
6077: -- Set the return status to success
6091: -- -----------------------------------------------------------------
6092: EXCEPTION
6093: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6095: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6096: p_count => l_message_count,
6097: p_data => x_return_message);
6098: ROLLBACK TO Delete_Local_Role_SP;
6099:
6099:
6100: WHEN FND_API.G_EXC_ERROR THEN
6101: x_return_status := FND_API.G_RET_STS_ERROR;
6102:
6103: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6104: p_count => l_message_count,
6105: p_data => x_return_message);
6106: ROLLBACK TO Delete_Local_Role_SP;
6107:
6106: ROLLBACK TO Delete_Local_Role_SP;
6107:
6108: WHEN OTHERS THEN
6109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6110: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6111: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6112: END IF;
6113: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6114: p_count => l_message_count,
6107:
6108: WHEN OTHERS THEN
6109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6110: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6111: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6112: END IF;
6113: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6114: p_count => l_message_count,
6115: p_data => x_return_message);
6109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6110: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6111: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6112: END IF;
6113: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6114: p_count => l_message_count,
6115: p_data => x_return_message);
6116: ROLLBACK TO Delete_Local_Role_SP;
6117: IF g_upgrade_mode = 'Y' THEN
6167: -- If the calling program has passed the parameter for initializing
6168: -- the message list
6169: -- -----------------------------------------------------------------
6170: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
6171: FND_MSG_PUB.INITIALIZE;
6172: END IF;
6173:
6174: -- -----------------------------------------------------------------
6175: -- Set the return status to success
6189: -- -----------------------------------------------------------------
6190: EXCEPTION
6191: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6194: p_count => l_message_count,
6195: p_data => x_return_message);
6196: ROLLBACK TO Delete_Local_User_Role_SP;
6197:
6197:
6198: WHEN FND_API.G_EXC_ERROR THEN
6199: x_return_status := FND_API.G_RET_STS_ERROR;
6200:
6201: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6202: p_count => l_message_count,
6203: p_data => x_return_message);
6204: ROLLBACK TO Delete_Local_User_Role_SP;
6205:
6204: ROLLBACK TO Delete_Local_User_Role_SP;
6205:
6206: WHEN OTHERS THEN
6207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6208: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6209: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6210: END IF;
6211: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6212: p_count => l_message_count,
6205:
6206: WHEN OTHERS THEN
6207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6208: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6209: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6210: END IF;
6211: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6212: p_count => l_message_count,
6213: p_data => x_return_message);
6207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6208: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6209: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6210: END IF;
6211: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6212: p_count => l_message_count,
6213: p_data => x_return_message);
6214: ROLLBACK TO Delete_Local_User_Role_SP;
6215: IF g_upgrade_mode = 'Y' THEN
6279: WHEN OTHERS THEN
6280: IF (c_get_lock_flag%ISOPEN) THEN
6281: CLOSE c_get_lock_flag;
6282: END IF;
6283: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6284: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6285: END IF;
6286: RAISE FND_API.G_EXC_ERROR;
6287: IF g_upgrade_mode = 'Y' THEN
6280: IF (c_get_lock_flag%ISOPEN) THEN
6281: CLOSE c_get_lock_flag;
6282: END IF;
6283: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6284: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6285: END IF;
6286: RAISE FND_API.G_EXC_ERROR;
6287: IF g_upgrade_mode = 'Y' THEN
6288: RAISE;
6355: -- If the calling program has passed the parameter for initializing
6356: -- the message list
6357: -- -----------------------------------------------------------------
6358: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
6359: FND_MSG_PUB.INITIALIZE;
6360: END IF;
6361:
6362: -- -----------------------------------------------------------------
6363: -- Set the return status to success
6374: IF (c_check_grant%NOTFOUND) THEN
6375:
6376: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NO_GRANT_AVAIL');
6377: FND_MESSAGE.SET_TOKEN('GRANT_NAME', p_grant_id);
6378: FND_MSG_PUB.Add;
6379: RAISE FND_API.G_EXC_ERROR;
6380:
6381: ELSE
6382:
6420: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6421: IF (c_check_grant%ISOPEN) THEN
6422: CLOSE c_check_grant;
6423: END IF;
6424: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6425: p_count => l_message_count,
6426: p_data => x_return_message);
6427: ROLLBACK TO Lock_Grant_SP;
6428:
6437:
6438: IF (c_check_grant%ISOPEN) THEN
6439: CLOSE c_check_grant;
6440: END IF;
6441: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6442: p_count => l_message_count,
6443: p_data => x_return_message);
6444: ROLLBACK TO Lock_Grant_SP;
6445:
6453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6454: IF (c_check_grant%ISOPEN) THEN
6455: CLOSE c_check_grant;
6456: END IF;
6457: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6458: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6459: END IF;
6460: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6461: p_count => l_message_count,
6454: IF (c_check_grant%ISOPEN) THEN
6455: CLOSE c_check_grant;
6456: END IF;
6457: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6458: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6459: END IF;
6460: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6461: p_count => l_message_count,
6462: p_data => x_return_message);
6456: END IF;
6457: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6458: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6459: END IF;
6460: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6461: p_count => l_message_count,
6462: p_data => x_return_message);
6463: ROLLBACK TO Lock_Grant_SP;
6464:
6535: -- If the calling program has passed the parameter for initializing
6536: -- the message list
6537: -- -----------------------------------------------------------------
6538: IF FND_API.TO_BOOLEAN (p_init_msg_list) THEN
6539: FND_MSG_PUB.INITIALIZE;
6540: END IF;
6541:
6542: -- -----------------------------------------------------------------
6543: -- Set the return status to success
6554: IF (c_check_grant%NOTFOUND) THEN
6555:
6556: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NO_GRANT_AVAIL');
6557: FND_MESSAGE.SET_TOKEN('GRANT_NAME', p_grant_id);
6558: FND_MSG_PUB.Add;
6559: RAISE FND_API.G_EXC_ERROR;
6560:
6561: ELSE
6562:
6589: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6590: IF (c_check_grant%ISOPEN) THEN
6591: CLOSE c_check_grant;
6592: END IF;
6593: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6594: p_count => l_message_count,
6595: p_data => x_return_message);
6596: ROLLBACK TO Unlock_Grant_SP;
6597:
6606:
6607: IF (c_check_grant%ISOPEN) THEN
6608: CLOSE c_check_grant;
6609: END IF;
6610: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6611: p_count => l_message_count,
6612: p_data => x_return_message);
6613: ROLLBACK TO Unlock_Grant_SP;
6614:
6621: WHEN OTHERS THEN
6622: IF (c_check_grant%ISOPEN) THEN
6623: CLOSE c_check_grant;
6624: END IF;
6625: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6626: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6627: END IF;
6628: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6629: p_count => l_message_count,
6622: IF (c_check_grant%ISOPEN) THEN
6623: CLOSE c_check_grant;
6624: END IF;
6625: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6626: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6627: END IF;
6628: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6629: p_count => l_message_count,
6630: p_data => x_return_message);
6624: END IF;
6625: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6626: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6627: END IF;
6628: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
6629: p_count => l_message_count,
6630: p_data => x_return_message);
6631: ROLLBACK TO Unlock_Grant_SP;
6632:
6698: -- Exception Block definition
6699: -- -----------------------------------------------------------------
6700: EXCEPTION
6701: WHEN OTHERS THEN
6702: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6703: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6704: END IF;
6705: RAISE FND_API.G_EXC_ERROR;
6706:
6699: -- -----------------------------------------------------------------
6700: EXCEPTION
6701: WHEN OTHERS THEN
6702: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6703: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6704: END IF;
6705: RAISE FND_API.G_EXC_ERROR;
6706:
6707: END Get_Valid_Grant_Vals;
6763: WHEN OTHERS THEN
6764: IF (c_check_func_id%ISOPEN) THEN
6765: CLOSE c_check_func_id;
6766: END IF;
6767: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6768: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6769: END IF;
6770: RAISE FND_API.G_EXC_ERROR;
6771:
6764: IF (c_check_func_id%ISOPEN) THEN
6765: CLOSE c_check_func_id;
6766: END IF;
6767: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6768: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6769: END IF;
6770: RAISE FND_API.G_EXC_ERROR;
6771:
6772: END Validate_Function_ID;
6828: WHEN OTHERS THEN
6829: IF (c_check_obj_group%ISOPEN) THEN
6830: CLOSE c_check_obj_group;
6831: END IF;
6832: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6833: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6834: END IF;
6835: RAISE FND_API.G_EXC_ERROR;
6836:
6829: IF (c_check_obj_group%ISOPEN) THEN
6830: CLOSE c_check_obj_group;
6831: END IF;
6832: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6833: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6834: END IF;
6835: RAISE FND_API.G_EXC_ERROR;
6836:
6837: END Validate_Obj_Grp_ID;
6893: WHEN OTHERS THEN
6894: IF (c_check_obj_attrib%ISOPEN) THEN
6895: CLOSE c_check_obj_attrib;
6896: END IF;
6897: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6898: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6899: END IF;
6900: RAISE FND_API.G_EXC_ERROR;
6901:
6894: IF (c_check_obj_attrib%ISOPEN) THEN
6895: CLOSE c_check_obj_attrib;
6896: END IF;
6897: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6898: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6899: END IF;
6900: RAISE FND_API.G_EXC_ERROR;
6901:
6902: END Validate_Obj_Attr_ID;
6960: WHEN OTHERS THEN
6961: IF (c_check_user_group_id%ISOPEN) THEN
6962: CLOSE c_check_user_group_id;
6963: END IF;
6964: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6965: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6966: END IF;
6967: RAISE FND_API.G_EXC_ERROR;
6968:
6961: IF (c_check_user_group_id%ISOPEN) THEN
6962: CLOSE c_check_user_group_id;
6963: END IF;
6964: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
6965: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6966: END IF;
6967: RAISE FND_API.G_EXC_ERROR;
6968:
6969: END Validate_User_Grp_ID;
7025: WHEN OTHERS THEN
7026: IF (c_check_grant_id%ISOPEN) THEN
7027: CLOSE c_check_grant_id;
7028: END IF;
7029: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7030: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7031: END IF;
7032: RAISE FND_API.G_EXC_ERROR;
7033:
7026: IF (c_check_grant_id%ISOPEN) THEN
7027: CLOSE c_check_grant_id;
7028: END IF;
7029: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7030: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7031: END IF;
7032: RAISE FND_API.G_EXC_ERROR;
7033:
7034: END Validate_Grant_ID;
7090: WHEN OTHERS THEN
7091: IF (c_check_object_id%ISOPEN) THEN
7092: CLOSE c_check_object_id;
7093: END IF;
7094: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7095: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7096: END IF;
7097: RAISE FND_API.G_EXC_ERROR;
7098:
7091: IF (c_check_object_id%ISOPEN) THEN
7092: CLOSE c_check_object_id;
7093: END IF;
7094: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7095: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7096: END IF;
7097: RAISE FND_API.G_EXC_ERROR;
7098:
7099: END Validate_Object_ID;
7155: WHEN OTHERS THEN
7156: IF (c_check_user_attr_id%ISOPEN) THEN
7157: CLOSE c_check_user_attr_id;
7158: END IF;
7159: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7160: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7161: END IF;
7162: RAISE FND_API.G_EXC_ERROR;
7163:
7156: IF (c_check_user_attr_id%ISOPEN) THEN
7157: CLOSE c_check_user_attr_id;
7158: END IF;
7159: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7160: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7161: END IF;
7162: RAISE FND_API.G_EXC_ERROR;
7163:
7164: END Validate_User_Attr_ID;
7204: -- Exception Block definition
7205: -- -----------------------------------------------------------------
7206: EXCEPTION
7207: WHEN OTHERS THEN
7208: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7209: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7210: END IF;
7211: RAISE FND_API.G_EXC_ERROR;
7212:
7205: -- -----------------------------------------------------------------
7206: EXCEPTION
7207: WHEN OTHERS THEN
7208: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7209: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7210: END IF;
7211: RAISE FND_API.G_EXC_ERROR;
7212:
7213: END Validate_Static_Type;
7251: -- Exception Block definition
7252: -- -----------------------------------------------------------------
7253: EXCEPTION
7254: WHEN OTHERS THEN
7255: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7256: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7257: END IF;
7258: RAISE FND_API.G_EXC_ERROR;
7259:
7252: -- -----------------------------------------------------------------
7253: EXCEPTION
7254: WHEN OTHERS THEN
7255: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7256: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7257: END IF;
7258: RAISE FND_API.G_EXC_ERROR;
7259:
7260: END Validate_Obj_Attr_Type;
7298: -- Exception Block definition
7299: -- -----------------------------------------------------------------
7300: EXCEPTION
7301: WHEN OTHERS THEN
7302: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7303: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7304: END IF;
7305: RAISE FND_API.G_EXC_ERROR;
7306:
7299: -- -----------------------------------------------------------------
7300: EXCEPTION
7301: WHEN OTHERS THEN
7302: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7303: FND_MSg_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7304: END IF;
7305: RAISE FND_API.G_EXC_ERROR;
7306:
7307: END Validate_User_Attr_Type;
7313: l_msg_data VARCHAR2(2000);
7314:
7315: BEGIN
7316:
7317: FND_MSg_PUB.Count_And_Get ( p_count => l_msg_count,
7318: p_data => l_msg_data );
7319:
7320: IF (l_msg_count > 0) THEN
7321:
7322: l_msg_data := '';
7323:
7324: FOR l_cur IN 1..l_msg_count LOOP
7325:
7326: l_msg_data := FND_MSg_PUB.GET(l_cur, FND_API.g_FALSE);
7327: fnd_file.put_line (FND_FILE.LOG,l_msg_data);
7328: END LOOP;
7329:
7330: ELSE
7385: ROLLBACK TO Unlock_All_Grants;
7386:
7387: retcode := 2;
7388:
7389: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7390: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7391: END IF;
7392:
7393: Generate_Message;
7386:
7387: retcode := 2;
7388:
7389: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7390: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7391: END IF;
7392:
7393: Generate_Message;
7394:
7444: ROLLBACK TO Lock_All_Grants;
7445:
7446: retcode := 2;
7447:
7448: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7449: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7450: END IF;
7451:
7452: Generate_Message;
7445:
7446: retcode := 2;
7447:
7448: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7449: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7450: END IF;
7451:
7452: Generate_Message;
7453:
7498: ROLLBACK TO Lock_All_Grants;
7499:
7500: retcode := 2;
7501:
7502: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7503: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7504: END IF;
7505:
7506: Generate_Message;
7499:
7500: retcode := 2;
7501:
7502: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7503: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, l_api_name);
7504: END IF;
7505:
7506: Generate_Message;
7507:
7770: CLOSE C_DEFAULT_SECURITY;
7771: END IF;
7772: ROLLBACK;
7773:
7774: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7775: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, 'MODIFY_POLICY');
7776: END IF;
7777: RAISE;
7778: -- RAISE FND_API.G_EXC_ERROR;
7771: END IF;
7772: ROLLBACK;
7773:
7774: IF (FND_MSg_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
7775: FND_MSg_PUB.Add_Exc_Msg (g_PKg_NAME, 'MODIFY_POLICY');
7776: END IF;
7777: RAISE;
7778: -- RAISE FND_API.G_EXC_ERROR;
7779:
7846: -- -----------------------------------------------------------------
7847: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
7848:
7849: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_ADMIN_MODE_OFF');
7850: FND_MSG_PUB.Add;
7851: RAISE FND_API.G_EXC_ERROR;
7852:
7853: END IF;
7854:
8008:
8009: x_return_status := FND_API.G_RET_STS_SUCCESS;
8010:
8011: IF FND_API.to_Boolean (p_init_msg_list) THEN
8012: FND_MSG_PUB.initialize;
8013: END IF;
8014:
8015: -- API body
8016: -- Unlock all grants.
8056: COMMIT WORK;
8057: END IF;
8058:
8059: -- Standard call to get message count and if count is 1, get message info.
8060: FND_MSG_PUB.Count_And_Get
8061: ( p_count => l_msg_count ,
8062: p_data => x_msg_data
8063: );
8064:
8066: WHEN FND_API.G_EXC_ERROR THEN
8067:
8068: ROLLBACK TO enable_upgrade_mode;
8069: x_return_status := FND_API.G_RET_STS_ERROR;
8070: FND_MSG_PUB.Count_And_Get (p_count => l_msg_count,
8071: p_data => x_msg_data );
8072:
8073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8074:
8073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8074:
8075: ROLLBACK TO enable_upgrade_mode;
8076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8077: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
8078: p_data => x_msg_data );
8079:
8080: WHEN OTHERS THEN
8081:
8081:
8082: ROLLBACK TO enable_upgrade_mode;
8083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8084:
8085: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8086: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
8087: END IF;
8088: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
8089: p_data => x_msg_data );
8082: ROLLBACK TO enable_upgrade_mode;
8083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8084:
8085: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8086: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
8087: END IF;
8088: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
8089: p_data => x_msg_data );
8090:
8084:
8085: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8086: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
8087: END IF;
8088: FND_MSG_PUB.Count_And_Get ( p_count => l_msg_count,
8089: p_data => x_msg_data );
8090:
8091: END enable_upgrade_mode;
8092:
8499:
8500: x_return_status := FND_API.G_RET_STS_SUCCESS;
8501:
8502: IF FND_API.to_Boolean (p_init_msg_list) THEN
8503: FND_MSG_PUB.initialize;
8504: END IF;
8505:
8506: l_in_file_ptr := UTL_FILE.FOPEN ( p_dirpath, p_in_file_name, 'r',2000 );
8507: l_out_file_ptr := UTL_FILE.FOPEN ( p_dirpath, p_out_file_name, 'a',2000 );
8561: WHEN UTL_FILE.INVALID_PATH THEN
8562: ROLLBACK TO Generate_SQL_file;
8563: x_return_status := FND_API.G_RET_STS_ERROR;
8564: FND_MESSAGE.set_name('IGS', 'IGS_DS_INVALID_PATH');
8565: FND_MSG_PUB.Add;
8566:
8567: WHEN UTL_FILE.WRITE_ERROR THEN
8568: ROLLBACK TO Generate_SQL_file;
8569: x_return_status := FND_API.G_RET_STS_ERROR;
8567: WHEN UTL_FILE.WRITE_ERROR THEN
8568: ROLLBACK TO Generate_SQL_file;
8569: x_return_status := FND_API.G_RET_STS_ERROR;
8570: FND_MESSAGE.set_name('IGS', 'IGS_DS_WRITE_ERROR');
8571: FND_MSG_PUB.Add;
8572:
8573: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
8574: ROLLBACK TO Generate_SQL_file;
8575: x_return_status := FND_API.G_RET_STS_ERROR;
8573: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
8574: ROLLBACK TO Generate_SQL_file;
8575: x_return_status := FND_API.G_RET_STS_ERROR;
8576: FND_MESSAGE.set_name('IGS', 'IGS_DS_INVALID_FILEHANDLE');
8577: FND_MSG_PUB.Add;
8578:
8579: WHEN FND_API.G_EXC_ERROR THEN
8580:
8581: ROLLBACK TO Generate_SQL_file;
8582: x_return_status := FND_API.G_RET_STS_ERROR;
8583: IF (UTL_FILE.IS_OPEN ( l_out_file_ptr )) THEN
8584: UTL_FILE.FCLOSE ( l_out_file_ptr );
8585: END IF;
8586: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
8587: p_data => x_msg_data );
8588:
8589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8590:
8593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8594: IF (UTL_FILE.IS_OPEN ( l_out_file_ptr )) THEN
8595: UTL_FILE.FCLOSE ( l_out_file_ptr );
8596: END IF;
8597: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
8598: p_data => x_msg_data );
8599:
8600: WHEN OTHERS THEN
8601:
8601:
8602: ROLLBACK TO Generate_SQL_file;
8603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8604:
8605: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8606: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
8607: END IF;
8608:
8609: IF (UTL_FILE.IS_OPEN ( l_out_file_ptr )) THEN
8602: ROLLBACK TO Generate_SQL_file;
8603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8604:
8605: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
8606: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
8607: END IF;
8608:
8609: IF (UTL_FILE.IS_OPEN ( l_out_file_ptr )) THEN
8610: UTL_FILE.FCLOSE ( l_out_file_ptr );