[Home] [Help]
117: Don Shellito April 23, 2003 New Procedure Created.
118:
119: ******************************************************************/
120: PROCEDURE Insert_Grant (p_api_version IN NUMBER,
121: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
122: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
123: p_grant_id IN OUT NOCOPY igs_sc_grants.grant_id%TYPE,
124: p_function_id IN igs_sc_grants.function_id%TYPE,
125: p_user_group_id IN igs_sc_grants.user_group_id%TYPE,
118:
119: ******************************************************************/
120: PROCEDURE Insert_Grant (p_api_version IN NUMBER,
121: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
122: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
123: p_grant_id IN OUT NOCOPY igs_sc_grants.grant_id%TYPE,
124: p_function_id IN igs_sc_grants.function_id%TYPE,
125: p_user_group_id IN igs_sc_grants.user_group_id%TYPE,
126: p_obj_group_id IN igs_sc_grants.obj_group_id%TYPE,
165:
166: -- -----------------------------------------------------------------
167: -- Check for the Compatible API call
168: -- -----------------------------------------------------------------
169: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
170: p_api_version,
171: l_api_name,
172: g_pkg_name) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
170: p_api_version,
171: l_api_name,
172: g_pkg_name) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174: END IF;
175:
176: -- -----------------------------------------------------------------
177: -- If the calling program has passed the parameter for initializing
176: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
183:
184: -- -----------------------------------------------------------------
185: -- Set the return status to success
186: -- -----------------------------------------------------------------
187: x_return_status := FND_API.G_RET_STS_SUCCESS;
188:
189: -- -----------------------------------------------------------------
190: -- Ensure that the grant name is not null.
191: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
199: -- Ensure that the grant values are correct.
214: l_function_id := Validate_Function_ID (p_function_id => p_function_id);
215: IF (l_function_id <= 0) THEN
216: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_INV_FUNC_FOR_GRNT');
217: FND_MESSAGE.SET_TOKEN('GRANT_NAME', p_grant_name);
218: RAISE FND_API.G_EXC_ERROR;
219: END IF;
220: END IF;
221:
222: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
234: -- Validate User Group ID provided.
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: -- -----------------------------------------------------------------
245: -- Insert the values requested into the Grants table.
284:
285: -- -----------------------------------------------------------------
286: -- Commit the transaction if requested to via parameter value.
287: -- -----------------------------------------------------------------
288: IF (FND_API.to_Boolean(p_commit)) THEN
289: COMMIT;
290: END IF;
291:
292: -- -----------------------------------------------------------------
292: -- -----------------------------------------------------------------
293: -- Exception Block definition
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);
293: -- Exception Block definition
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;
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
304: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||','||' Grant Name: '||p_grant_name||','||'Error Message: '||x_return_message;
305: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
306: END IF;
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,
305: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
306: END IF;
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);
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
318: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
358: Don Shellito April 23, 2003 New Procedure Created.
359:
360: ******************************************************************/
361: PROCEDURE Insert_Grant_Cond (p_api_version IN NUMBER,
362: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
363: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
364: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
365: p_obj_attrib_id IN igs_sc_grant_conds.obj_attrib_id%TYPE,
366: p_user_attrib_id IN igs_sc_grant_conds.user_attrib_id%TYPE,
359:
360: ******************************************************************/
361: PROCEDURE Insert_Grant_Cond (p_api_version IN NUMBER,
362: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
363: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
364: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
365: p_obj_attrib_id IN igs_sc_grant_conds.obj_attrib_id%TYPE,
366: p_user_attrib_id IN igs_sc_grant_conds.user_attrib_id%TYPE,
367: p_condition IN igs_sc_grant_conds.condition%TYPE,
396:
397: -- -----------------------------------------------------------------
398: -- Check for the Compatible API call
399: -- -----------------------------------------------------------------
400: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
401: p_api_version,
402: l_api_name,
403: g_pkg_name) THEN
404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
400: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
401: p_api_version,
402: l_api_name,
403: g_pkg_name) THEN
404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
405: END IF;
406:
407: -- -----------------------------------------------------------------
408: -- If the calling program has passed the parameter for initializing
407: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
414:
415: -- -----------------------------------------------------------------
416: -- Set the return status to success
417: -- -----------------------------------------------------------------
418: x_return_status := FND_API.G_RET_STS_SUCCESS;
419:
420: -- -----------------------------------------------------------------
421: -- Validate that the grant exists.
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: -- -----------------------------------------------------------------
431: -- Validate that the object attribute ID exists.
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:
442: -- -----------------------------------------------------------------
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:
454: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
464: -- Insert the values requested into the Grant Conditions table.
492:
493: -- -----------------------------------------------------------------
494: -- Commit the transaction if requested to via parameter value.
495: -- -----------------------------------------------------------------
496: IF (FND_API.to_Boolean(p_commit)) THEN
497: COMMIT;
498: END IF;
499:
500: -- -----------------------------------------------------------------
500: -- -----------------------------------------------------------------
501: -- Exception Block definition
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);
501: -- Exception Block definition
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;
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:
513: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||','||' Condtion Number: '||p_grant_cond_num||','||'Error Message: '||x_return_message;
514: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
515: END IF;
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,
514: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
515: END IF;
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);
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:
528: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
568: Don Shellito April 23, 2003 New Procedure Created.
569:
570: ******************************************************************/
571: PROCEDURE Insert_Object_Group (p_api_version IN NUMBER,
572: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
573: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
574: p_obj_group_id IN OUT NOCOPY igs_sc_obj_groups.obj_group_id%TYPE,
575: p_obj_group_name IN igs_sc_obj_groups.obj_group_name%TYPE ,
576: p_default_policy_type IN igs_sc_obj_groups.default_policy_type%TYPE,
569:
570: ******************************************************************/
571: PROCEDURE Insert_Object_Group (p_api_version IN NUMBER,
572: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
573: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
574: p_obj_group_id IN OUT NOCOPY igs_sc_obj_groups.obj_group_id%TYPE,
575: p_obj_group_name IN igs_sc_obj_groups.obj_group_name%TYPE ,
576: p_default_policy_type IN igs_sc_obj_groups.default_policy_type%TYPE,
577: x_return_status OUT NOCOPY VARCHAR2,
594:
595: -- -----------------------------------------------------------------
596: -- Check for the Compatible API call
597: -- -----------------------------------------------------------------
598: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
599: p_api_version,
600: l_api_name,
601: g_pkg_name) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
598: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
599: p_api_version,
600: l_api_name,
601: g_pkg_name) THEN
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604:
605: -- -----------------------------------------------------------------
606: -- If the calling program has passed the parameter for initializing
605: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
612:
613: -- -----------------------------------------------------------------
614: -- Set the return status to success
615: -- -----------------------------------------------------------------
616: x_return_status := FND_API.G_RET_STS_SUCCESS;
617:
618: -- -----------------------------------------------------------------
619: -- Check if admin mode is enabled
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:
629: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
639: -- Ensure that the default policy has correct value of Y or N
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: -- -----------------------------------------------------------------
651: -- Insert the values requested into the Grants table.
674:
675: -- -----------------------------------------------------------------
676: -- Commit the transaction if requested to via parameter value.
677: -- -----------------------------------------------------------------
678: IF (FND_API.to_Boolean(p_commit)) THEN
679: COMMIT;
680: END IF;
681:
682: -- -----------------------------------------------------------------
682: -- -----------------------------------------------------------------
683: -- Exception Block definition
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);
683: -- Exception Block definition
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;
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:
689: p_count => l_message_count,
690: p_data => x_return_message);
691: ROLLBACK TO Insert_Object_Group_SP;
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,
690: p_data => x_return_message);
691: ROLLBACK TO Insert_Object_Group_SP;
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);
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:
698: p_data => x_return_message);
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,
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
730: Don Shellito April 23, 2003 New Procedure Created.
731:
732: ******************************************************************/
733: PROCEDURE Insert_Object_Attr (p_api_version IN NUMBER,
734: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
735: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: p_obj_attrib_id IN OUT NOCOPY igs_sc_obj_attribs.obj_attrib_id%TYPE,
737: p_obj_group_id IN igs_sc_obj_attribs.obj_group_id%TYPE,
738: p_obj_attrib_name IN igs_sc_obj_attribs.obj_attrib_name%TYPE,
731:
732: ******************************************************************/
733: PROCEDURE Insert_Object_Attr (p_api_version IN NUMBER,
734: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
735: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
736: p_obj_attrib_id IN OUT NOCOPY igs_sc_obj_attribs.obj_attrib_id%TYPE,
737: p_obj_group_id IN igs_sc_obj_attribs.obj_group_id%TYPE,
738: p_obj_attrib_name IN igs_sc_obj_attribs.obj_attrib_name%TYPE,
739: p_active_flag IN VARCHAR2 DEFAULT 'Y',
757:
758: -- -----------------------------------------------------------------
759: -- Check for the Compatible API call
760: -- -----------------------------------------------------------------
761: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
762: p_api_version,
763: l_api_name,
764: g_pkg_name) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
761: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
762: p_api_version,
763: l_api_name,
764: g_pkg_name) THEN
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767:
768: -- -----------------------------------------------------------------
769: -- If the calling program has passed the parameter for initializing
768: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
775:
776: -- -----------------------------------------------------------------
777: -- Set the return status to success
778: -- -----------------------------------------------------------------
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: -- -----------------------------------------------------------------
782: -- Check if admin mode is enabled
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:
792: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
813: -- Insert the values requested into the Grants table.
838:
839: -- -----------------------------------------------------------------
840: -- Commit the transaction if requested to via parameter value.
841: -- -----------------------------------------------------------------
842: IF (FND_API.to_Boolean(p_commit)) THEN
843: COMMIT;
844: END IF;
845:
846: -- -----------------------------------------------------------------
846: -- -----------------------------------------------------------------
847: -- Exception Block definition
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);
847: -- Exception Block definition
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;
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:
853: p_count => l_message_count,
854: p_data => x_return_message);
855: ROLLBACK TO Insert_Object_Attr_SP;
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,
854: p_data => x_return_message);
855: ROLLBACK TO Insert_Object_Attr_SP;
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);
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:
862: p_data => x_return_message);
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,
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:
897: Don Shellito April 23, 2003 New Procedure Created.
898:
899: ******************************************************************/
900: PROCEDURE Insert_Object_Attr_Method (p_api_version IN NUMBER,
901: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
902: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
903: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
904: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
905: p_obj_attrib_type IN igs_sc_obj_att_mths.obj_attrib_type%TYPE,
898:
899: ******************************************************************/
900: PROCEDURE Insert_Object_Attr_Method (p_api_version IN NUMBER,
901: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
902: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
903: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
904: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
905: p_obj_attrib_type IN igs_sc_obj_att_mths.obj_attrib_type%TYPE,
906: p_static_type IN igs_sc_obj_att_mths.static_type%TYPE,
931:
932: -- -----------------------------------------------------------------
933: -- Check for the Compatible API call
934: -- -----------------------------------------------------------------
935: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
936: p_api_version,
937: l_api_name,
938: g_pkg_name) THEN
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
935: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
936: p_api_version,
937: l_api_name,
938: g_pkg_name) THEN
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940: END IF;
941:
942: -- -----------------------------------------------------------------
943: -- If the calling program has passed the parameter for initializing
942: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
949:
950: -- -----------------------------------------------------------------
951: -- Set the return status to success
952: -- -----------------------------------------------------------------
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954:
955: -- -----------------------------------------------------------------
956: -- Check if admin mode is enabled
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:
966: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
978: -- Validate that the object attribute ID exists.
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: -- -----------------------------------------------------------------
990: -- Validate the information that is to be updated.
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);
1002:
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
1010: OPEN c_table_name(p_object_id);
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;
1022:
1051: );
1052: -- -----------------------------------------------------------------
1053: -- Commit the transaction if requested to via parameter value.
1054: -- -----------------------------------------------------------------
1055: IF (FND_API.to_Boolean(p_commit)) THEN
1056: COMMIT;
1057: END IF;
1058:
1059: -- -----------------------------------------------------------------
1059: -- -----------------------------------------------------------------
1060: -- Exception Block definition
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);
1060: -- Exception Block definition
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;
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:
1066: p_count => l_message_count,
1067: p_data => x_return_message);
1068: ROLLBACK TO Insert_Object_Attr_Method_SP;
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,
1067: p_data => x_return_message);
1068: ROLLBACK TO Insert_Object_Attr_Method_SP;
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);
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:
1075: p_data => x_return_message);
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,
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:
1109: Don Shellito April 23, 2003 New Procedure Created.
1110:
1111: ******************************************************************/
1112: PROCEDURE Insert_Object_Func (p_api_version IN NUMBER,
1113: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1114: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1115: p_function_id IN OUT NOCOPY igs_sc_obj_functns.function_id%TYPE,
1116: p_obj_group_id IN igs_sc_obj_functns.obj_group_id%TYPE,
1117: p_function_name IN igs_sc_obj_functns.function_name%TYPE,
1110:
1111: ******************************************************************/
1112: PROCEDURE Insert_Object_Func (p_api_version IN NUMBER,
1113: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1114: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1115: p_function_id IN OUT NOCOPY igs_sc_obj_functns.function_id%TYPE,
1116: p_obj_group_id IN igs_sc_obj_functns.obj_group_id%TYPE,
1117: p_function_name IN igs_sc_obj_functns.function_name%TYPE,
1118: x_return_status OUT NOCOPY VARCHAR2,
1135:
1136: -- -----------------------------------------------------------------
1137: -- Check for the Compatible API call
1138: -- -----------------------------------------------------------------
1139: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1140: p_api_version,
1141: l_api_name,
1142: g_pkg_name) THEN
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1139: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1140: p_api_version,
1141: l_api_name,
1142: g_pkg_name) THEN
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144: END IF;
1145:
1146: -- -----------------------------------------------------------------
1147: -- If the calling program has passed the parameter for initializing
1146: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1153:
1154: -- -----------------------------------------------------------------
1155: -- Set the return status to success
1156: -- -----------------------------------------------------------------
1157: x_return_status := FND_API.G_RET_STS_SUCCESS;
1158:
1159: -- -----------------------------------------------------------------
1160: -- Check if admin mode is enabled
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:
1170: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1191: -- Insert the values requested into the Grants table.
1214:
1215: -- -----------------------------------------------------------------
1216: -- Commit the transaction if requested to via parameter value.
1217: -- -----------------------------------------------------------------
1218: IF (FND_API.to_Boolean(p_commit)) THEN
1219: COMMIT;
1220: END IF;
1221:
1222: -- -----------------------------------------------------------------
1222: -- -----------------------------------------------------------------
1223: -- Exception Block definition
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);
1223: -- Exception Block definition
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;
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:
1229: p_count => l_message_count,
1230: p_data => x_return_message);
1231: ROLLBACK TO Insert_Object_Func_SP;
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,
1230: p_data => x_return_message);
1231: ROLLBACK TO Insert_Object_Func_SP;
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);
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:
1238: p_data => x_return_message);
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,
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:
1273: Don Shellito April 23, 2003 New Procedure Created.
1274:
1275: ******************************************************************/
1276: PROCEDURE Insert_Object (p_api_version IN NUMBER,
1277: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1278: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1279: p_object_id IN OUT NOCOPY igs_sc_objects.object_id%TYPE,
1280: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
1281: p_obj_name IN fnd_objects.obj_name%TYPE ,
1274:
1275: ******************************************************************/
1276: PROCEDURE Insert_Object (p_api_version IN NUMBER,
1277: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1278: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1279: p_object_id IN OUT NOCOPY igs_sc_objects.object_id%TYPE,
1280: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
1281: p_obj_name IN fnd_objects.obj_name%TYPE ,
1282: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
1329:
1330: -- -----------------------------------------------------------------
1331: -- Check for the Compatible API call
1332: -- -----------------------------------------------------------------
1333: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1334: p_api_version,
1335: l_api_name,
1336: g_pkg_name) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1334: p_api_version,
1335: l_api_name,
1336: g_pkg_name) THEN
1337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1338: END IF;
1339:
1340: -- -----------------------------------------------------------------
1341: -- If the calling program has passed the parameter for initializing
1340: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1347:
1348: -- -----------------------------------------------------------------
1349: -- Set the return status to success
1350: -- -----------------------------------------------------------------
1351: x_return_status := FND_API.G_RET_STS_SUCCESS;
1352:
1353: -- -----------------------------------------------------------------
1354: -- Check if admin mode is enabled
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:
1364: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1376: -- Check if object exists
1463:
1464: -- -----------------------------------------------------------------
1465: -- Commit the transaction if requested to via parameter value.
1466: -- -----------------------------------------------------------------
1467: IF (FND_API.to_Boolean(p_commit)) THEN
1468: COMMIT;
1469: END IF;
1470:
1471: -- -----------------------------------------------------------------
1471: -- -----------------------------------------------------------------
1472: -- Exception Block definition
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);
1472: -- Exception Block definition
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;
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:
1478: p_count => l_message_count,
1479: p_data => x_return_message);
1480: ROLLBACK TO Insert_Object_SP;
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,
1479: p_data => x_return_message);
1480: ROLLBACK TO Insert_Object_SP;
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);
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:
1487: p_data => x_return_message);
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,
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:
1520: Don Shellito April 23, 2003 New Procedure Created.
1521:
1522: *****************************************************************/
1523: PROCEDURE Insert_User_Attr (p_api_version IN NUMBER,
1524: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1525: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1526: p_user_attrib_id IN OUT NOCOPY igs_sc_usr_attribs.user_attrib_id%TYPE,
1527: p_user_attrib_name IN igs_sc_usr_attribs.user_attrib_name%TYPE,
1528: p_user_attrib_type IN igs_sc_usr_attribs.user_attrib_type%TYPE,
1521:
1522: *****************************************************************/
1523: PROCEDURE Insert_User_Attr (p_api_version IN NUMBER,
1524: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1525: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1526: p_user_attrib_id IN OUT NOCOPY igs_sc_usr_attribs.user_attrib_id%TYPE,
1527: p_user_attrib_name IN igs_sc_usr_attribs.user_attrib_name%TYPE,
1528: p_user_attrib_type IN igs_sc_usr_attribs.user_attrib_type%TYPE,
1529: p_static_type IN igs_sc_usr_attribs.static_type%TYPE,
1550:
1551: -- -----------------------------------------------------------------
1552: -- Check for the Compatible API call
1553: -- -----------------------------------------------------------------
1554: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1555: p_api_version,
1556: l_api_name,
1557: g_pkg_name) THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1554: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1555: p_api_version,
1556: l_api_name,
1557: g_pkg_name) THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1559: END IF;
1560:
1561: -- -----------------------------------------------------------------
1562: -- If the calling program has passed the parameter for initializing
1561: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1568:
1569: -- -----------------------------------------------------------------
1570: -- Set the return status to success
1571: -- -----------------------------------------------------------------
1572: x_return_status := FND_API.G_RET_STS_SUCCESS;
1573:
1574:
1575: -- -----------------------------------------------------------------
1576: -- Check if admin mode is enabled
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:
1586: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1605: -- Validate that the attribute type is valid.
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: -- -----------------------------------------------------------------
1616: -- Validatate that the static type is valid.
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:
1636:
1679: X_MSG_DATA => l_return_message
1680: );
1681:
1682:
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: END IF;
1686:
1687: END IF;
1680: );
1681:
1682:
1683: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1684: RAISE FND_API.G_EXC_ERROR;
1685: END IF;
1686:
1687: END IF;
1688:
1688:
1689: -- -----------------------------------------------------------------
1690: -- Commit the transaction if requested to via parameter value.
1691: -- -----------------------------------------------------------------
1692: IF (FND_API.to_Boolean(p_commit)) THEN
1693: COMMIT;
1694: END IF;
1695:
1696: -- -----------------------------------------------------------------
1696: -- -----------------------------------------------------------------
1697: -- Exception Block definition
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);
1697: -- Exception Block definition
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;
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:
1703: p_count => l_message_count,
1704: p_data => x_return_message);
1705: ROLLBACK TO Insert_User_Attr_SP;
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,
1704: p_data => x_return_message);
1705: ROLLBACK TO Insert_User_Attr_SP;
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);
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:
1712: p_data => x_return_message);
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,
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;
1744: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of private API wf_directory)
1745: ******************************************************************/
1746: PROCEDURE Insert_Local_Role (
1747: p_api_version IN NUMBER,
1748: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1749: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1750: p_role_name IN VARCHAR2,
1751: p_role_display_name IN VARCHAR2,
1752: p_orig_system IN VARCHAR2,
1745: ******************************************************************/
1746: PROCEDURE Insert_Local_Role (
1747: p_api_version IN NUMBER,
1748: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1749: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1750: p_role_name IN VARCHAR2,
1751: p_role_display_name IN VARCHAR2,
1752: p_orig_system IN VARCHAR2,
1753: p_orig_system_id IN NUMBER,
1789:
1790: -- -----------------------------------------------------------------
1791: -- Check for the Compatible API call
1792: -- -----------------------------------------------------------------
1793: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1794: p_api_version,
1795: l_api_name,
1796: g_pkg_name) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1793: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1794: p_api_version,
1795: l_api_name,
1796: g_pkg_name) THEN
1797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1798: END IF;
1799:
1800: -- -----------------------------------------------------------------
1801: -- If the calling program has passed the parameter for initializing
1800: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1807:
1808: -- -----------------------------------------------------------------
1809: -- Set the return status to success
1810: -- -----------------------------------------------------------------
1811: x_return_status := FND_API.G_RET_STS_SUCCESS;
1812:
1813: wf_event.addparametertolist('USER_NAME',p_role_name,l_parameters);
1814: wf_event.addparametertolist('DISPLAYNAME',p_role_display_name,l_parameters);
1815: wf_event.addparametertolist('DESCRIPTION',p_role_description,l_parameters);
1830:
1831: -- -----------------------------------------------------------------
1832: -- Commit the transaction if requested to via parameter value.
1833: -- -----------------------------------------------------------------
1834: IF (FND_API.to_Boolean(p_commit)) THEN
1835: COMMIT;
1836: END IF;
1837:
1838: -- -----------------------------------------------------------------
1838: -- -----------------------------------------------------------------
1839: -- Exception Block definition
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);
1839: -- Exception Block definition
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;
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
1849: l_label := 'igs.plsql.igs_sc_data_sec_apis_pkg.Insert_Local_Role.Ex_UN';
1850: l_debug_str := 'Unhandled Exception: Role Name: '||p_role_name||','||' Error Message: '||x_return_message;
1851: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
1850: l_debug_str := 'Unhandled Exception: Role Name: '||p_role_name||','||' Error Message: '||x_return_message;
1851: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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);
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:
1864: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
1901: gmaheswa Jul 28, 2005 Modified c_fnd_user_name cursor to validate user from fnd_user instead of wf_user.
1902: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of private API wf_directory)
1903: ******************************************************************/
1904: PROCEDURE Insert_Local_User_Role (p_api_version IN NUMBER,
1905: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1906: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1907: p_user_name IN wf_local_user_roles.user_name%TYPE,
1908: p_role_name IN wf_local_user_roles.role_name%TYPE,
1909: p_user_orig_system IN wf_local_user_roles.user_orig_system%TYPE,
1902: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of private API wf_directory)
1903: ******************************************************************/
1904: PROCEDURE Insert_Local_User_Role (p_api_version IN NUMBER,
1905: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1906: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1907: p_user_name IN wf_local_user_roles.user_name%TYPE,
1908: p_role_name IN wf_local_user_roles.role_name%TYPE,
1909: p_user_orig_system IN wf_local_user_roles.user_orig_system%TYPE,
1910: p_user_orig_system_id IN wf_local_user_roles.user_orig_system_id%TYPE,
1952:
1953: -- -----------------------------------------------------------------
1954: -- Check for the Compatible API call
1955: -- -----------------------------------------------------------------
1956: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1957: p_api_version,
1958: l_api_name,
1959: g_pkg_name) THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1956: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
1957: p_api_version,
1958: l_api_name,
1959: g_pkg_name) THEN
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END IF;
1962:
1963: -- -----------------------------------------------------------------
1964: -- If the calling program has passed the parameter for initializing
1963: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
1970:
1971: -- -----------------------------------------------------------------
1972: -- Set the return status to success
1973: -- -----------------------------------------------------------------
1974: x_return_status := FND_API.G_RET_STS_SUCCESS;
1975:
1976: -- Check if fnd userid is used.
1977:
1978: OPEN c_fnd_user_name;
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:
1989: CLOSE c_fnd_user_name;
2008: X_MSG_COUNT => l_message_count,
2009: X_MSG_DATA => l_return_message
2010: );
2011:
2012: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF;
2015:
2016: -- -----------------------------------------------------------------
2009: X_MSG_DATA => l_return_message
2010: );
2011:
2012: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF;
2015:
2016: -- -----------------------------------------------------------------
2017: -- Commit the transaction if requested to via parameter value.
2015:
2016: -- -----------------------------------------------------------------
2017: -- Commit the transaction if requested to via parameter value.
2018: -- -----------------------------------------------------------------
2019: IF (FND_API.to_Boolean(p_commit)) THEN
2020: COMMIT;
2021: END IF;
2022:
2023: -- -----------------------------------------------------------------
2023: -- -----------------------------------------------------------------
2024: -- Exception Block definition
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);
2024: -- Exception Block definition
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;
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:
2036: l_debug_str := 'Other Exception: Role Name: '||p_role_name||','||' User Name: '||p_user_name||','||' Error Message: '||x_return_message;
2037: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2038: END IF;
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,
2037: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2038: END IF;
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);
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:
2051: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
2093: Don Shellito April 23, 2003 New Procedure Created.
2094:
2095: ******************************************************************/
2096: PROCEDURE Update_Object (p_api_version IN NUMBER,
2097: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2098: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2099: p_object_id IN igs_sc_objects.object_id%TYPE,
2100: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
2101: p_obj_name IN fnd_objects.obj_name%TYPE ,
2094:
2095: ******************************************************************/
2096: PROCEDURE Update_Object (p_api_version IN NUMBER,
2097: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2098: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2099: p_object_id IN igs_sc_objects.object_id%TYPE,
2100: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
2101: p_obj_name IN fnd_objects.obj_name%TYPE ,
2102: p_database_object_name IN fnd_objects.database_object_name%TYPE ,
2144:
2145: -- -----------------------------------------------------------------
2146: -- Check for the Compatible API call
2147: -- -----------------------------------------------------------------
2148: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2149: p_api_version,
2150: l_api_name,
2151: g_pkg_name) THEN
2152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2148: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2149: p_api_version,
2150: l_api_name,
2151: g_pkg_name) THEN
2152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2153: END IF;
2154:
2155: -- -----------------------------------------------------------------
2156: -- If the calling program has passed the parameter for initializing
2155: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2162:
2163: -- -----------------------------------------------------------------
2164: -- Set the return status to success
2165: -- -----------------------------------------------------------------
2166: x_return_status := FND_API.G_RET_STS_SUCCESS;
2167:
2168: -- -----------------------------------------------------------------
2169: -- Check if admin mode is enabled
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:
2179: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2191: -- Check if object exists
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:
2206: FND_OBJECTS_PKG.UPDATE_ROW (
2244:
2245: -- -----------------------------------------------------------------
2246: -- Commit the transaction if requested to via parameter value.
2247: -- -----------------------------------------------------------------
2248: IF (FND_API.to_Boolean(p_commit)) THEN
2249: COMMIT;
2250: END IF;
2251:
2252: -- -----------------------------------------------------------------
2252: -- -----------------------------------------------------------------
2253: -- Exception Block definition
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);
2253: -- Exception Block definition
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;
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:
2259: p_count => l_message_count,
2260: p_data => x_return_message);
2261: ROLLBACK TO Update_Object_SP;
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,
2260: p_data => x_return_message);
2261: ROLLBACK TO Update_Object_SP;
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);
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:
2268: p_data => x_return_message);
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,
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
2296: Don Shellito April 23, 2003 New Procedure Created.
2297: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of directly updating table wf_local_role)
2298: ******************************************************************/
2299: PROCEDURE Update_Local_Role (p_api_version IN NUMBER,
2300: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2301: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2302: p_role_name IN VARCHAR2,
2303: p_role_display_name IN VARCHAR2,
2304: p_orig_system IN VARCHAR2,
2297: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of directly updating table wf_local_role)
2298: ******************************************************************/
2299: PROCEDURE Update_Local_Role (p_api_version IN NUMBER,
2300: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2301: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2302: p_role_name IN VARCHAR2,
2303: p_role_display_name IN VARCHAR2,
2304: p_orig_system IN VARCHAR2,
2305: p_orig_system_id IN NUMBER,
2341:
2342: -- -----------------------------------------------------------------
2343: -- Check for the Compatible API call
2344: -- -----------------------------------------------------------------
2345: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2346: p_api_version,
2347: l_api_name,
2348: g_pkg_name) THEN
2349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2345: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2346: p_api_version,
2347: l_api_name,
2348: g_pkg_name) THEN
2349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2350: END IF;
2351:
2352: -- -----------------------------------------------------------------
2353: -- If the calling program has passed the parameter for initializing
2352: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2359:
2360: -- -----------------------------------------------------------------
2361: -- Set the return status to success
2362: -- -----------------------------------------------------------------
2363: x_return_status := FND_API.G_RET_STS_SUCCESS;
2364:
2365: wf_event.addparametertolist('USER_NAME',p_role_name,l_parameters);
2366: wf_event.addparametertolist('DISPLAYNAME',p_role_display_name,l_parameters);
2367: wf_event.addparametertolist('DESCRIPTION',p_role_description,l_parameters);
2382:
2383: -- -----------------------------------------------------------------
2384: -- Commit the transaction if requested to via parameter value.
2385: -- -----------------------------------------------------------------
2386: IF (FND_API.to_Boolean(p_commit)) THEN
2387: COMMIT;
2388: END IF;
2389:
2390: -- -----------------------------------------------------------------
2390: -- -----------------------------------------------------------------
2391: -- Exception Block definition
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);
2391: -- Exception Block definition
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;
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:
2403: l_debug_str := 'Unhandled Exception: Role Name: '||p_role_name||','||' Error Message: '||x_return_message;
2404: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2405: END IF;
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,
2404: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2405: END IF;
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);
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:
2418: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
2454: Don Shellito April 23, 2003 New Procedure Created.
2455: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of private API wf_directory)
2456: ******************************************************************/
2457: PROCEDURE Update_Local_User_Role (p_api_version IN NUMBER,
2458: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2459: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2460: p_user_name IN wf_local_user_roles.user_name%TYPE,
2461: p_role_name IN wf_local_user_roles.role_name%TYPE,
2462: p_user_orig_system IN wf_local_user_roles.user_orig_system%TYPE,
2455: pkpatel 10-Mar-2006 Bug 5081932 (Used wf_local_synch instead of private API wf_directory)
2456: ******************************************************************/
2457: PROCEDURE Update_Local_User_Role (p_api_version IN NUMBER,
2458: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2459: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2460: p_user_name IN wf_local_user_roles.user_name%TYPE,
2461: p_role_name IN wf_local_user_roles.role_name%TYPE,
2462: p_user_orig_system IN wf_local_user_roles.user_orig_system%TYPE,
2463: p_user_orig_system_id IN wf_local_user_roles.user_orig_system_id%TYPE,
2496:
2497: -- -----------------------------------------------------------------
2498: -- Check for the Compatible API call
2499: -- -----------------------------------------------------------------
2500: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2501: p_api_version,
2502: l_api_name,
2503: g_pkg_name) THEN
2504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2501: p_api_version,
2502: l_api_name,
2503: g_pkg_name) THEN
2504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2505: END IF;
2506:
2507: -- -----------------------------------------------------------------
2508: -- If the calling program has passed the parameter for initializing
2507: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2514:
2515: -- -----------------------------------------------------------------
2516: -- Set the return status to success
2517: -- -----------------------------------------------------------------
2518: x_return_status := FND_API.G_RET_STS_SUCCESS;
2519:
2520: wf_local_synch.propagateUserRole(p_user_name => p_user_name,
2521: p_role_name => p_role_name,
2522: p_user_orig_system => p_user_orig_system,
2529:
2530: -- -----------------------------------------------------------------
2531: -- Commit the transaction if requested to via parameter value.
2532: -- -----------------------------------------------------------------
2533: IF (FND_API.to_Boolean(p_commit)) THEN
2534: COMMIT;
2535: END IF;
2536:
2537: -- -----------------------------------------------------------------
2537: -- -----------------------------------------------------------------
2538: -- Exception Block definition
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);
2538: -- Exception Block definition
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;
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:
2550: l_debug_str := 'Unhandled Exception: Role Name: '||p_role_name||','||' User Name: '||p_user_name||','||' Error Message: '||x_return_message;
2551: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2552: END IF;
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,
2551: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2552: END IF;
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);
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:
2565: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
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,
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:
2603: Don Shellito April 23, 2003 New Procedure Created.
2604:
2605: ******************************************************************/
2606: PROCEDURE Update_Grant (p_api_version IN NUMBER,
2607: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2608: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2609: p_grant_id IN igs_sc_grants.grant_id%TYPE,
2610: p_function_id IN igs_sc_grants.function_id%TYPE,
2611: p_user_group_id IN igs_sc_grants.user_group_id%TYPE,
2604:
2605: ******************************************************************/
2606: PROCEDURE Update_Grant (p_api_version IN NUMBER,
2607: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2608: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2609: p_grant_id IN igs_sc_grants.grant_id%TYPE,
2610: p_function_id IN igs_sc_grants.function_id%TYPE,
2611: p_user_group_id IN igs_sc_grants.user_group_id%TYPE,
2612: p_grant_name IN igs_sc_grants.grant_name%TYPE,
2666:
2667: -- -----------------------------------------------------------------
2668: -- Check for the Compatible API call
2669: -- -----------------------------------------------------------------
2670: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2671: p_api_version,
2672: l_api_name,
2673: g_pkg_name) THEN
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2670: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2671: p_api_version,
2672: l_api_name,
2673: g_pkg_name) THEN
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: END IF;
2676:
2677: -- -----------------------------------------------------------------
2678: -- If the calling program has passed the parameter for initializing
2677: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2684:
2685: -- -----------------------------------------------------------------
2686: -- Set the return status to success
2687: -- -----------------------------------------------------------------
2688: x_return_status := FND_API.G_RET_STS_SUCCESS;
2689:
2690: -- -----------------------------------------------------------------
2691: -- Obtain the previous values of the grants record.
2692: -- -----------------------------------------------------------------
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
2714: CLOSE c_get_grants_values;
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:
2730: -- -----------------------------------------------------------------
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:
2755:
2772:
2773: -- -----------------------------------------------------------------
2774: -- Commit the transaction if requested to via parameter value.
2775: -- -----------------------------------------------------------------
2776: IF (FND_API.to_Boolean(p_commit)) THEN
2777: COMMIT;
2778: END IF;
2779:
2780: -- -----------------------------------------------------------------
2780: -- -----------------------------------------------------------------
2781: -- Exception Block definition
2782: -- -----------------------------------------------------------------
2783: EXCEPTION
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
2781: -- Exception Block definition
2782: -- -----------------------------------------------------------------
2783: EXCEPTION
2784: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
2796: l_debug_str := 'Handled Exception: Grant ID: '||p_grant_id||','||' Grant Name: '||p_grant_name||','||'Error Message: '||x_return_message;
2797: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2798: END IF;
2799:
2800: WHEN FND_API.G_EXC_ERROR THEN
2801: x_return_status := FND_API.G_RET_STS_ERROR;
2802:
2803: IF (c_get_grants_values%ISOPEN) THEN
2804: CLOSE c_get_grants_values;
2797: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2798: END IF;
2799:
2800: WHEN FND_API.G_EXC_ERROR THEN
2801: x_return_status := FND_API.G_RET_STS_ERROR;
2802:
2803: IF (c_get_grants_values%ISOPEN) THEN
2804: CLOSE c_get_grants_values;
2805: END IF;
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:
2814: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
2815: END IF;
2816:
2817: WHEN OTHERS THEN
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
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:
2856: mmkumar Jun 28, 2005 Removed code for opening cursor c_get_grant_cond
2857: prbhardw Jul 18, 2005 Modified code to update condition number
2858: ******************************************************************/
2859: PROCEDURE Update_Grant_Cond (p_api_version IN NUMBER,
2860: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2861: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2862: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
2863: p_obj_attrib_id IN igs_sc_grant_conds.obj_attrib_id%TYPE,
2864: p_user_attrib_id IN igs_sc_grant_conds.user_attrib_id%TYPE,
2857: prbhardw Jul 18, 2005 Modified code to update condition number
2858: ******************************************************************/
2859: PROCEDURE Update_Grant_Cond (p_api_version IN NUMBER,
2860: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2861: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2862: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
2863: p_obj_attrib_id IN igs_sc_grant_conds.obj_attrib_id%TYPE,
2864: p_user_attrib_id IN igs_sc_grant_conds.user_attrib_id%TYPE,
2865: p_condition IN igs_sc_grant_conds.condition%TYPE,
2917:
2918: -- -----------------------------------------------------------------
2919: -- Check for the Compatible API call
2920: -- -----------------------------------------------------------------
2921: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2922: p_api_version,
2923: l_api_name,
2924: g_pkg_name) THEN
2925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2921: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
2922: p_api_version,
2923: l_api_name,
2924: g_pkg_name) THEN
2925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2926: END IF;
2927:
2928: -- -----------------------------------------------------------------
2929: -- If the calling program has passed the parameter for initializing
2928: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
2935:
2936: -- -----------------------------------------------------------------
2937: -- Set the return status to success
2938: -- -----------------------------------------------------------------
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940:
2941: -- -----------------------------------------------------------------
2942: -- Check to determine if the grant is locked or not. If not locked
2943: -- then the update to the condition can happen.
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:
2959:
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:
2987:
3002:
3003: -- -----------------------------------------------------------------
3004: -- Commit the transaction if requested to via parameter value.
3005: -- -----------------------------------------------------------------
3006: IF (FND_API.to_Boolean(p_commit)) THEN
3007: COMMIT;
3008: END IF;
3009:
3010: -- -----------------------------------------------------------------
3010: -- -----------------------------------------------------------------
3011: -- Exception Block definition
3012: -- -----------------------------------------------------------------
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3016:
3017: IF (c_get_grant_name%ISOPEN) THEN
3018: CLOSE c_get_grant_name;
3011: -- Exception Block definition
3012: -- -----------------------------------------------------------------
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3016:
3017: IF (c_get_grant_name%ISOPEN) THEN
3018: CLOSE c_get_grant_name;
3019: END IF;
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:
3027: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||','||' Condtion Number: '||p_grant_cond_num||','||'Error Message: '||x_return_message;
3028: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3029: END IF;
3030:
3031: WHEN FND_API.G_EXC_ERROR THEN
3032: x_return_status := FND_API.G_RET_STS_ERROR;
3033:
3034: IF (c_get_grant_name%ISOPEN) THEN
3035: CLOSE c_get_grant_name;
3028: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3029: END IF;
3030:
3031: WHEN FND_API.G_EXC_ERROR THEN
3032: x_return_status := FND_API.G_RET_STS_ERROR;
3033:
3034: IF (c_get_grant_name%ISOPEN) THEN
3035: CLOSE c_get_grant_name;
3036: END IF;
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:
3045: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
3046: END IF;
3047:
3048: WHEN OTHERS THEN
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
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:
3086: Don Shellito April 23, 2003 New Procedure Created.
3087:
3088: ******************************************************************/
3089: PROCEDURE Update_Object_Group (p_api_version IN NUMBER,
3090: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3091: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3092: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
3093: p_obj_group_name IN igs_sc_obj_groups.obj_group_name%TYPE ,
3094: p_default_policy_type IN igs_sc_obj_groups.default_policy_type%TYPE,
3087:
3088: ******************************************************************/
3089: PROCEDURE Update_Object_Group (p_api_version IN NUMBER,
3090: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3091: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3092: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
3093: p_obj_group_name IN igs_sc_obj_groups.obj_group_name%TYPE ,
3094: p_default_policy_type IN igs_sc_obj_groups.default_policy_type%TYPE,
3095: x_return_status OUT NOCOPY VARCHAR2,
3136:
3137: -- -----------------------------------------------------------------
3138: -- Check for the Compatible API call
3139: -- -----------------------------------------------------------------
3140: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3141: p_api_version,
3142: l_api_name,
3143: g_pkg_name) THEN
3144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3140: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3141: p_api_version,
3142: l_api_name,
3143: g_pkg_name) THEN
3144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3145: END IF;
3146:
3147: -- -----------------------------------------------------------------
3148: -- If the calling program has passed the parameter for initializing
3147: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
3154:
3155: -- -----------------------------------------------------------------
3156: -- Set the return status to success
3157: -- -----------------------------------------------------------------
3158: x_return_status := FND_API.G_RET_STS_SUCCESS;
3159:
3160: -- -----------------------------------------------------------------
3161: -- Check if admin mode is enabled
3162: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
3179: -- Check values being updated.
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: -- -----------------------------------------------------------------
3206: -- Update the object groups information for the group ID given.
3228:
3229: -- -----------------------------------------------------------------
3230: -- Commit the transaction if requested to via parameter value.
3231: -- -----------------------------------------------------------------
3232: IF (FND_API.to_Boolean(p_commit)) THEN
3233: COMMIT;
3234: END IF;
3235:
3236: -- -----------------------------------------------------------------
3236: -- -----------------------------------------------------------------
3237: -- Exception Block definition
3238: -- -----------------------------------------------------------------
3239: EXCEPTION
3240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
3237: -- Exception Block definition
3238: -- -----------------------------------------------------------------
3239: EXCEPTION
3240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
3246: p_count => l_message_count,
3247: p_data => x_return_message);
3248: ROLLBACK TO Update_Object_Group_SP;
3249:
3250: WHEN FND_API.G_EXC_ERROR THEN
3251: x_return_status := FND_API.G_RET_STS_ERROR;
3252:
3253: IF (c_get_obj_group%ISOPEN) THEN
3254: CLOSE c_get_obj_group;
3247: p_data => x_return_message);
3248: ROLLBACK TO Update_Object_Group_SP;
3249:
3250: WHEN FND_API.G_EXC_ERROR THEN
3251: x_return_status := FND_API.G_RET_STS_ERROR;
3252:
3253: IF (c_get_obj_group%ISOPEN) THEN
3254: CLOSE c_get_obj_group;
3255: END IF;
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:
3258: p_data => x_return_message);
3259: ROLLBACK TO Update_Object_Group_SP;
3260:
3261: WHEN OTHERS THEN
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
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
3292: Don Shellito April 23, 2003 New Procedure Created.
3293:
3294: ******************************************************************/
3295: PROCEDURE Update_Object_Attr_Method (p_api_version IN NUMBER,
3296: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3297: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3298: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
3299: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
3300: p_obj_attrib_type IN igs_sc_obj_att_mths.obj_attrib_type%TYPE,
3293:
3294: ******************************************************************/
3295: PROCEDURE Update_Object_Attr_Method (p_api_version IN NUMBER,
3296: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3297: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3298: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
3299: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
3300: p_obj_attrib_type IN igs_sc_obj_att_mths.obj_attrib_type%TYPE,
3301: p_static_type IN igs_sc_obj_att_mths.static_type%TYPE,
3348:
3349: -- -----------------------------------------------------------------
3350: -- Check for the Compatible API call
3351: -- -----------------------------------------------------------------
3352: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3353: p_api_version,
3354: l_api_name,
3355: g_pkg_name) THEN
3356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3352: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3353: p_api_version,
3354: l_api_name,
3355: g_pkg_name) THEN
3356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3357: END IF;
3358:
3359: -- -----------------------------------------------------------------
3360: -- If the calling program has passed the parameter for initializing
3359: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
3366:
3367: -- -----------------------------------------------------------------
3368: -- Set the return status to success
3369: -- -----------------------------------------------------------------
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3372:
3373: -- -----------------------------------------------------------------
3374: -- Check if admin mode is enabled
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: -- -----------------------------------------------------------------
3384: -- Determine if there is a grant associated to the user attribute so
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
3407: INTO l_grant_id,
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:
3446: -- -----------------------------------------------------------------
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:
3467: IF ((p_select_text is NOT NULL) ) 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:
3489:
3500:
3501: -- -----------------------------------------------------------------
3502: -- Commit the transaction if requested to via parameter value.
3503: -- -----------------------------------------------------------------
3504: IF (FND_API.to_Boolean(p_commit)) THEN
3505: COMMIT;
3506: END IF;
3507:
3508: -- -----------------------------------------------------------------
3508: -- -----------------------------------------------------------------
3509: -- Exception Block definition
3510: -- -----------------------------------------------------------------
3511: EXCEPTION
3512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3514: IF (c_get_obj_mthd%ISOPEN) THEN
3515: CLOSE c_get_obj_mthd;
3516: END IF;
3509: -- Exception Block definition
3510: -- -----------------------------------------------------------------
3511: EXCEPTION
3512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3514: IF (c_get_obj_mthd%ISOPEN) THEN
3515: CLOSE c_get_obj_mthd;
3516: END IF;
3517: IF (c_get_grant_info%ISOPEN) THEN
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:
3521: p_count => l_message_count,
3522: p_data => x_return_message);
3523: ROLLBACK TO Update_Object_Attr_Method_SP;
3524:
3525: WHEN FND_API.G_EXC_ERROR THEN
3526: x_return_status := FND_API.G_RET_STS_ERROR;
3527:
3528: IF (c_get_obj_mthd%ISOPEN) THEN
3529: CLOSE c_get_obj_mthd;
3522: p_data => x_return_message);
3523: ROLLBACK TO Update_Object_Attr_Method_SP;
3524:
3525: WHEN FND_API.G_EXC_ERROR THEN
3526: x_return_status := FND_API.G_RET_STS_ERROR;
3527:
3528: IF (c_get_obj_mthd%ISOPEN) THEN
3529: CLOSE c_get_obj_mthd;
3530: END IF;
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:
3536: p_data => x_return_message);
3537: ROLLBACK TO Update_Object_Attr_Method_SP;
3538:
3539: WHEN OTHERS THEN
3540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3541: IF (c_get_obj_mthd%ISOPEN) THEN
3542: CLOSE c_get_obj_mthd;
3543: END IF;
3544: IF (c_get_grant_info%ISOPEN) THEN
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
3574: Don Shellito April 23, 2003 New Procedure Created.
3575:
3576: ******************************************************************/
3577: PROCEDURE Update_Object_Func (p_api_version IN NUMBER,
3578: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3579: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3580: p_function_id IN igs_sc_obj_functns.function_id%TYPE,
3581: p_obj_group_id IN igs_sc_obj_functns.obj_group_id%TYPE,
3582: p_function_name IN igs_sc_obj_functns.function_name%TYPE,
3575:
3576: ******************************************************************/
3577: PROCEDURE Update_Object_Func (p_api_version IN NUMBER,
3578: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3579: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3580: p_function_id IN igs_sc_obj_functns.function_id%TYPE,
3581: p_obj_group_id IN igs_sc_obj_functns.obj_group_id%TYPE,
3582: p_function_name IN igs_sc_obj_functns.function_name%TYPE,
3583: x_return_status OUT NOCOPY VARCHAR2,
3619:
3620: -- -----------------------------------------------------------------
3621: -- Check for the Compatible API call
3622: -- -----------------------------------------------------------------
3623: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3624: p_api_version,
3625: l_api_name,
3626: g_pkg_name) THEN
3627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3623: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3624: p_api_version,
3625: l_api_name,
3626: g_pkg_name) THEN
3627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3628: END IF;
3629:
3630: -- -----------------------------------------------------------------
3631: -- If the calling program has passed the parameter for initializing
3630: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
3637:
3638: -- -----------------------------------------------------------------
3639: -- Set the return status to success
3640: -- -----------------------------------------------------------------
3641: x_return_status := FND_API.G_RET_STS_SUCCESS;
3642:
3643: -- -----------------------------------------------------------------
3644: -- Check if admin mode is enabled
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: -- -----------------------------------------------------------------
3654: -- Ensure that there are no locked grants against the function that
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
3673: INTO l_grant_id,
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;
3693:
3703:
3704: -- -----------------------------------------------------------------
3705: -- Commit the transaction if requested to via parameter value.
3706: -- -----------------------------------------------------------------
3707: IF (FND_API.to_Boolean(p_commit)) THEN
3708: COMMIT;
3709: END IF;
3710:
3711: -- -----------------------------------------------------------------
3711: -- -----------------------------------------------------------------
3712: -- Exception Block definition
3713: -- -----------------------------------------------------------------
3714: EXCEPTION
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
3712: -- Exception Block definition
3713: -- -----------------------------------------------------------------
3714: EXCEPTION
3715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
3721: p_count => l_message_count,
3722: p_data => x_return_message);
3723: ROLLBACK TO Update_Object_Func_SP;
3724:
3725: WHEN FND_API.G_EXC_ERROR THEN
3726: x_return_status := FND_API.G_RET_STS_ERROR;
3727:
3728: IF (c_get_func_values%ISOPEN) THEN
3729: CLOSE c_get_func_values;
3722: p_data => x_return_message);
3723: ROLLBACK TO Update_Object_Func_SP;
3724:
3725: WHEN FND_API.G_EXC_ERROR THEN
3726: x_return_status := FND_API.G_RET_STS_ERROR;
3727:
3728: IF (c_get_func_values%ISOPEN) THEN
3729: CLOSE c_get_func_values;
3730: END IF;
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:
3733: p_data => x_return_message);
3734: ROLLBACK TO Update_Object_Func_SP;
3735:
3736: WHEN OTHERS THEN
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
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
3767: Don Shellito April 23, 2003 New Procedure Created.
3768:
3769: ******************************************************************/
3770: PROCEDURE Update_Object_Attr (p_api_version IN NUMBER,
3771: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3772: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3773: p_obj_attrib_id IN igs_sc_obj_attribs.obj_attrib_id%TYPE,
3774: p_obj_group_id IN igs_sc_obj_attribs.obj_group_id%TYPE,
3775: p_obj_attrib_name IN igs_sc_obj_attribs.obj_attrib_name%TYPE,
3768:
3769: ******************************************************************/
3770: PROCEDURE Update_Object_Attr (p_api_version IN NUMBER,
3771: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3772: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3773: p_obj_attrib_id IN igs_sc_obj_attribs.obj_attrib_id%TYPE,
3774: p_obj_group_id IN igs_sc_obj_attribs.obj_group_id%TYPE,
3775: p_obj_attrib_name IN igs_sc_obj_attribs.obj_attrib_name%TYPE,
3776: p_active_flag IN VARCHAR2 DEFAULT 'Y',
3815:
3816: -- -----------------------------------------------------------------
3817: -- Check for the Compatible API call
3818: -- -----------------------------------------------------------------
3819: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3820: p_api_version,
3821: l_api_name,
3822: g_pkg_name) THEN
3823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3819: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
3820: p_api_version,
3821: l_api_name,
3822: g_pkg_name) THEN
3823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3824: END IF;
3825:
3826: -- -----------------------------------------------------------------
3827: -- If the calling program has passed the parameter for initializing
3826: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
3833:
3834: -- -----------------------------------------------------------------
3835: -- Set the return status to success
3836: -- -----------------------------------------------------------------
3837: x_return_status := FND_API.G_RET_STS_SUCCESS;
3838:
3839: -- -----------------------------------------------------------------
3840: -- Check if admin mode is enabled
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:
3850: -- -----------------------------------------------------------------
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
3874: INTO l_grant_id,
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
3897: CLOSE c_get_obj_attrib;
3912:
3913: -- -----------------------------------------------------------------
3914: -- Commit the transaction if requested to via parameter value.
3915: -- -----------------------------------------------------------------
3916: IF (FND_API.to_Boolean(p_commit)) THEN
3917: COMMIT;
3918: END IF;
3919:
3920: -- -----------------------------------------------------------------
3920: -- -----------------------------------------------------------------
3921: -- Exception Block definition
3922: -- -----------------------------------------------------------------
3923: EXCEPTION
3924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR 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;
3921: -- Exception Block definition
3922: -- -----------------------------------------------------------------
3923: EXCEPTION
3924: WHEN FND_API.G_EXC_UNEXPECTED_ERROR 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,
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:
3930: p_count => l_message_count,
3931: p_data => x_return_message);
3932: ROLLBACK TO Update_Object_Attr_SP;
3933:
3934: WHEN FND_API.G_EXC_ERROR THEN
3935: x_return_status := FND_API.G_RET_STS_ERROR;
3936:
3937: IF (c_get_obj_attrib%ISOPEN) THEN
3938: CLOSE c_get_obj_attrib;
3931: p_data => x_return_message);
3932: ROLLBACK TO Update_Object_Attr_SP;
3933:
3934: WHEN FND_API.G_EXC_ERROR THEN
3935: x_return_status := FND_API.G_RET_STS_ERROR;
3936:
3937: IF (c_get_obj_attrib%ISOPEN) THEN
3938: CLOSE c_get_obj_attrib;
3939: END IF;
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:
3942: p_data => x_return_message);
3943: ROLLBACK TO Update_Object_Attr_SP;
3944:
3945: WHEN OTHERS THEN
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
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
3976: Don Shellito April 23, 2003 New Procedure Created.
3977:
3978: ******************************************************************/
3979: PROCEDURE Update_User_Attr (p_api_version IN NUMBER,
3980: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3981: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3982: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
3983: p_user_attrib_name IN igs_sc_usr_attribs.user_attrib_name%TYPE,
3984: p_user_attrib_type IN igs_sc_usr_attribs.user_attrib_type%TYPE,
3977:
3978: ******************************************************************/
3979: PROCEDURE Update_User_Attr (p_api_version IN NUMBER,
3980: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3981: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3982: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
3983: p_user_attrib_name IN igs_sc_usr_attribs.user_attrib_name%TYPE,
3984: p_user_attrib_type IN igs_sc_usr_attribs.user_attrib_type%TYPE,
3985: p_static_type IN igs_sc_usr_attribs.static_type%TYPE,
4030:
4031: -- -----------------------------------------------------------------
4032: -- Check for the Compatible API call
4033: -- -----------------------------------------------------------------
4034: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4035: p_api_version,
4036: l_api_name,
4037: g_pkg_name) THEN
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4034: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4035: p_api_version,
4036: l_api_name,
4037: g_pkg_name) THEN
4038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4039: END IF;
4040:
4041: -- -----------------------------------------------------------------
4042: -- If the calling program has passed the parameter for initializing
4041: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
4048:
4049: -- -----------------------------------------------------------------
4050: -- Set the return status to success
4051: -- -----------------------------------------------------------------
4052: x_return_status := FND_API.G_RET_STS_SUCCESS;
4053:
4054:
4055: -- -----------------------------------------------------------------
4056: -- Check if admin mode is enabled
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:
4066:
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
4092: INTO l_grant_id,
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
4117: CLOSE c_get_usr_attrib;
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:
4133: l_static_type := Validate_Static_Type (p_static_type => p_static_type);
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
4141: l_select_text := p_select_text;
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:
4160: -- -----------------------------------------------------------------
4183: X_MSG_DATA => l_return_message
4184: );
4185:
4186:
4187: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4188: RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4190: ELSE
4191: -- delete all curent values
4184: );
4185:
4186:
4187: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4188: RAISE FND_API.G_EXC_ERROR;
4189: END IF;
4190: ELSE
4191: -- delete all curent values
4192: Delete_User_Attr_Val (p_api_version => l_api_version,
4195: x_return_status => l_return_status,
4196: x_return_message => l_return_message
4197: );
4198:
4199: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4200: RAISE FND_API.G_EXC_ERROR;
4201: END IF;
4202:
4203: END IF;
4196: x_return_message => l_return_message
4197: );
4198:
4199: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4200: RAISE FND_API.G_EXC_ERROR;
4201: END IF;
4202:
4203: END IF;
4204:
4205:
4206: -- -----------------------------------------------------------------
4207: -- Commit the transaction if requested to via parameter value.
4208: -- -----------------------------------------------------------------
4209: IF (FND_API.to_Boolean(p_commit)) THEN
4210: COMMIT;
4211: END IF;
4212:
4213: -- -----------------------------------------------------------------
4213: -- -----------------------------------------------------------------
4214: -- Exception Block definition
4215: -- -----------------------------------------------------------------
4216: EXCEPTION
4217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4219:
4220: IF (c_get_grant_info%ISOPEN) THEN
4221: CLOSE c_get_grant_info;
4214: -- Exception Block definition
4215: -- -----------------------------------------------------------------
4216: EXCEPTION
4217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4219:
4220: IF (c_get_grant_info%ISOPEN) THEN
4221: CLOSE c_get_grant_info;
4222: END IF;
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:
4224: p_count => l_message_count,
4225: p_data => x_return_message);
4226: ROLLBACK TO Update_User_Attr_SP;
4227:
4228: WHEN FND_API.G_EXC_ERROR THEN
4229: x_return_status := FND_API.G_RET_STS_ERROR;
4230:
4231: IF (c_get_usr_attrib%ISOPEN) THEN
4232: CLOSE c_get_usr_attrib;
4225: p_data => x_return_message);
4226: ROLLBACK TO Update_User_Attr_SP;
4227:
4228: WHEN FND_API.G_EXC_ERROR THEN
4229: x_return_status := FND_API.G_RET_STS_ERROR;
4230:
4231: IF (c_get_usr_attrib%ISOPEN) THEN
4232: CLOSE c_get_usr_attrib;
4233: END IF;
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:
4239: p_data => x_return_message);
4240: ROLLBACK TO Update_User_Attr_SP;
4241:
4242: WHEN OTHERS THEN
4243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4244: IF (c_get_usr_attrib%ISOPEN) THEN
4245: CLOSE c_get_usr_attrib;
4246: END IF;
4247: IF (c_get_grant_info%ISOPEN) THEN
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
4276: Don Shellito April 23, 2003 New Procedure Created.
4277:
4278: ******************************************************************/
4279: PROCEDURE Delete_Object_Group (p_api_version IN NUMBER,
4280: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4281: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4282: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
4283: x_return_status OUT NOCOPY VARCHAR2,
4284: x_return_message OUT NOCOPY VARCHAR2
4277:
4278: ******************************************************************/
4279: PROCEDURE Delete_Object_Group (p_api_version IN NUMBER,
4280: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4281: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4282: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
4283: x_return_status OUT NOCOPY VARCHAR2,
4284: x_return_message OUT NOCOPY VARCHAR2
4285: ) IS
4326:
4327: -- -----------------------------------------------------------------
4328: -- Check for the Compatible API call
4329: -- -----------------------------------------------------------------
4330: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4331: p_api_version,
4332: l_api_name,
4333: g_pkg_name) THEN
4334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4330: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4331: p_api_version,
4332: l_api_name,
4333: g_pkg_name) THEN
4334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4335: END IF;
4336:
4337: -- -----------------------------------------------------------------
4338: -- If the calling program has passed the parameter for initializing
4337: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
4344:
4345: -- -----------------------------------------------------------------
4346: -- Set the return status to success
4347: -- -----------------------------------------------------------------
4348: x_return_status := FND_API.G_RET_STS_SUCCESS;
4349:
4350: -- -----------------------------------------------------------------
4351: -- Check if admin mode is enabled
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: -- -----------------------------------------------------------------
4361: -- Delete all the grants associated to the group provided
4371: x_return_status => l_return_status,
4372: x_return_message => l_return_message
4373: );
4374:
4375: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4376: RAISE FND_API.G_EXC_ERROR;
4377: END IF;
4378:
4379: FETCH c_get_grant_id
4372: x_return_message => l_return_message
4373: );
4374:
4375: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4376: RAISE FND_API.G_EXC_ERROR;
4377: END IF;
4378:
4379: FETCH c_get_grant_id
4380: INTO l_grant_id;
4399: x_return_status => l_return_status,
4400: x_return_message => l_return_message
4401: );
4402:
4403: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4404: RAISE FND_API.G_EXC_ERROR;
4405: END IF;
4406:
4407: FETCH c_get_obj_attr_id
4400: x_return_message => l_return_message
4401: );
4402:
4403: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4404: RAISE FND_API.G_EXC_ERROR;
4405: END IF;
4406:
4407: FETCH c_get_obj_attr_id
4408: INTO l_obj_attrib_id;
4427: x_return_status => l_return_status,
4428: x_return_message => l_return_message
4429: );
4430:
4431: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4432: RAISE FND_API.G_EXC_ERROR;
4433: END IF;
4434:
4435: FETCH c_get_function_id
4428: x_return_message => l_return_message
4429: );
4430:
4431: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4432: RAISE FND_API.G_EXC_ERROR;
4433: END IF;
4434:
4435: FETCH c_get_function_id
4436: INTO l_function_id;
4456: x_return_status => l_return_status,
4457: x_return_message => l_return_message
4458: );
4459:
4460: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4461: RAISE FND_API.G_EXC_ERROR;
4462: END IF;
4463:
4464: FETCH c_get_object_id
4457: x_return_message => l_return_message
4458: );
4459:
4460: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4461: RAISE FND_API.G_EXC_ERROR;
4462: END IF;
4463:
4464: FETCH c_get_object_id
4465: INTO l_object_id;
4479:
4480: -- -----------------------------------------------------------------
4481: -- Commit the transaction if requested to via parameter value.
4482: -- -----------------------------------------------------------------
4483: IF (FND_API.to_Boolean(p_commit)) THEN
4484: COMMIT;
4485: END IF;
4486:
4487: -- -----------------------------------------------------------------
4488: -- Exception Block definition
4489: -- -----------------------------------------------------------------
4490: EXCEPTION
4491:
4492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4494: IF (c_get_grant_id%ISOPEN) THEN
4495: CLOSE c_get_grant_id;
4496: END IF;
4489: -- -----------------------------------------------------------------
4490: EXCEPTION
4491:
4492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4494: IF (c_get_grant_id%ISOPEN) THEN
4495: CLOSE c_get_grant_id;
4496: END IF;
4497: IF (c_get_object_id%ISOPEN) THEN
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:
4507: p_count => l_message_count,
4508: p_data => x_return_message);
4509: ROLLBACK TO Delete_Object_Group_SP;
4510:
4511: WHEN FND_API.G_EXC_ERROR THEN
4512: x_return_status := FND_API.G_RET_STS_ERROR;
4513:
4514: IF (c_get_grant_id%ISOPEN) THEN
4515: CLOSE c_get_grant_id;
4508: p_data => x_return_message);
4509: ROLLBACK TO Delete_Object_Group_SP;
4510:
4511: WHEN FND_API.G_EXC_ERROR THEN
4512: x_return_status := FND_API.G_RET_STS_ERROR;
4513:
4514: IF (c_get_grant_id%ISOPEN) THEN
4515: CLOSE c_get_grant_id;
4516: END IF;
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:
4528: p_data => x_return_message);
4529: ROLLBACK TO Delete_Object_Group_SP;
4530:
4531: WHEN OTHERS THEN
4532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4533: IF (c_get_grant_id%ISOPEN) THEN
4534: CLOSE c_get_grant_id;
4535: END IF;
4536: IF (c_get_object_id%ISOPEN) THEN
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
4571: Don Shellito April 23, 2003 New Procedure Created.
4572:
4573: ******************************************************************/
4574: PROCEDURE Delete_Object_Attr (p_api_version IN NUMBER,
4575: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4576: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4577: p_obj_attrib_id IN igs_sc_obj_attribs.obj_attrib_id%TYPE,
4578: x_return_status OUT NOCOPY VARCHAR2,
4579: x_return_message OUT NOCOPY VARCHAR2
4572:
4573: ******************************************************************/
4574: PROCEDURE Delete_Object_Attr (p_api_version IN NUMBER,
4575: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4576: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4577: p_obj_attrib_id IN igs_sc_obj_attribs.obj_attrib_id%TYPE,
4578: x_return_status OUT NOCOPY VARCHAR2,
4579: x_return_message OUT NOCOPY VARCHAR2
4580: ) IS
4611:
4612: -- -----------------------------------------------------------------
4613: -- Check for the Compatible API call
4614: -- -----------------------------------------------------------------
4615: IF (NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4616: p_api_version,
4617: l_api_name,
4618: g_pkg_name)) THEN
4619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4615: IF (NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4616: p_api_version,
4617: l_api_name,
4618: g_pkg_name)) THEN
4619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4620: END IF;
4621:
4622: -- -----------------------------------------------------------------
4623: -- If the calling program has passed the parameter for initializing
4622: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
4629:
4630: -- -----------------------------------------------------------------
4631: -- Set the return status to success
4632: -- -----------------------------------------------------------------
4633: x_return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: -- -----------------------------------------------------------------
4636: -- Check if admin mode is enabled
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:
4646: OPEN c_get_object_id_val;
4659: x_return_status => l_return_status,
4660: x_return_message => l_return_message
4661: );
4662:
4663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4664: RAISE FND_API.G_EXC_ERROR;
4665: END IF;
4666:
4667: FETCH c_get_object_id_val
4660: x_return_message => l_return_message
4661: );
4662:
4663: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4664: RAISE FND_API.G_EXC_ERROR;
4665: END IF;
4666:
4667: FETCH c_get_object_id_val
4668: INTO l_object_id_val;
4689: x_return_status => l_return_status,
4690: x_return_message => l_return_message
4691: );
4692:
4693: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4694: RAISE FND_API.G_EXC_ERROR;
4695: END IF;
4696:
4697: FETCH c_get_object_id_mthd
4690: x_return_message => l_return_message
4691: );
4692:
4693: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4694: RAISE FND_API.G_EXC_ERROR;
4695: END IF;
4696:
4697: FETCH c_get_object_id_mthd
4698: INTO l_object_id_mthd;
4712:
4713: -- -----------------------------------------------------------------
4714: -- Commit the transaction if requested to via parameter value.
4715: -- -----------------------------------------------------------------
4716: IF (FND_API.to_Boolean(p_commit)) THEN
4717: COMMIT;
4718: END IF;
4719:
4720: -- -----------------------------------------------------------------
4721: -- Exception Block definition
4722: -- -----------------------------------------------------------------
4723: EXCEPTION
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727: IF (c_get_object_id_mthd%ISOPEN) THEN
4728: CLOSE c_get_object_id_mthd;
4729: END IF;
4722: -- -----------------------------------------------------------------
4723: EXCEPTION
4724:
4725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4727: IF (c_get_object_id_mthd%ISOPEN) THEN
4728: CLOSE c_get_object_id_mthd;
4729: END IF;
4730: IF (c_get_object_id_val%ISOPEN) THEN
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:
4734: p_count => l_message_count,
4735: p_data => x_return_message);
4736: ROLLBACK TO Delete_Object_Attr_SP;
4737:
4738: WHEN FND_API.G_EXC_ERROR THEN
4739: x_return_status := FND_API.G_RET_STS_ERROR;
4740:
4741: IF (c_get_object_id_mthd%ISOPEN) THEN
4742: CLOSE c_get_object_id_mthd;
4735: p_data => x_return_message);
4736: ROLLBACK TO Delete_Object_Attr_SP;
4737:
4738: WHEN FND_API.G_EXC_ERROR THEN
4739: x_return_status := FND_API.G_RET_STS_ERROR;
4740:
4741: IF (c_get_object_id_mthd%ISOPEN) THEN
4742: CLOSE c_get_object_id_mthd;
4743: END IF;
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:
4749: p_data => x_return_message);
4750: ROLLBACK TO Delete_Object_Attr_SP;
4751:
4752: WHEN OTHERS THEN
4753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4754: IF (c_get_object_id_mthd%ISOPEN) THEN
4755: CLOSE c_get_object_id_mthd;
4756: END IF;
4757: IF (c_get_object_id_val%ISOPEN) THEN
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
4787: Don Shellito April 23, 2003 New Procedure Created.
4788:
4789: ******************************************************************/
4790: PROCEDURE Delete_Object_Attr_Method (p_api_version IN NUMBER,
4791: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4792: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4793: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
4794: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
4795: x_return_status OUT NOCOPY VARCHAR2,
4788:
4789: ******************************************************************/
4790: PROCEDURE Delete_Object_Attr_Method (p_api_version IN NUMBER,
4791: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4792: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4793: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
4794: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
4795: x_return_status OUT NOCOPY VARCHAR2,
4796: x_return_message OUT NOCOPY VARCHAR2
4809:
4810: -- -----------------------------------------------------------------
4811: -- Check for the Compatible API call
4812: -- -----------------------------------------------------------------
4813: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4814: p_api_version,
4815: l_api_name,
4816: g_pkg_name) THEN
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4813: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4814: p_api_version,
4815: l_api_name,
4816: g_pkg_name) THEN
4817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4818: END IF;
4819:
4820: -- -----------------------------------------------------------------
4821: -- If the calling program has passed the parameter for initializing
4820: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
4827:
4828: -- -----------------------------------------------------------------
4829: -- Set the return status to success
4830: -- -----------------------------------------------------------------
4831: x_return_status := FND_API.G_RET_STS_SUCCESS;
4832: -- -----------------------------------------------------------------
4833: -- Check if admin mode is enabled
4834: -- -----------------------------------------------------------------
4835: IF IGS_SC_GRANTS_PVT.admin_mode <> 'Y' AND g_upgrade_mode <> 'Y' THEN
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:
4843:
4852:
4853: -- -----------------------------------------------------------------
4854: -- Commit the transaction if requested to via parameter value.
4855: -- -----------------------------------------------------------------
4856: IF (FND_API.to_Boolean(p_commit)) THEN
4857: COMMIT;
4858: END IF;
4859:
4860: -- -----------------------------------------------------------------
4860: -- -----------------------------------------------------------------
4861: -- Exception Block definition
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);
4861: -- Exception Block definition
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;
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:
4867: p_count => l_message_count,
4868: p_data => x_return_message);
4869: ROLLBACK TO Delete_Object_Attr_Method_SP;
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,
4868: p_data => x_return_message);
4869: ROLLBACK TO Delete_Object_Attr_Method_SP;
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);
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:
4876: p_data => x_return_message);
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,
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
4907: Don Shellito April 23, 2003 New Procedure Created.
4908:
4909: ******************************************************************/
4910: PROCEDURE Delete_Object_Func (p_api_version IN NUMBER,
4911: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4912: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4913: p_function_id IN igs_sc_obj_functns.function_id%TYPE,
4914: x_return_status OUT NOCOPY VARCHAR2,
4915: x_return_message OUT NOCOPY VARCHAR2
4908:
4909: ******************************************************************/
4910: PROCEDURE Delete_Object_Func (p_api_version IN NUMBER,
4911: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4912: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4913: p_function_id IN igs_sc_obj_functns.function_id%TYPE,
4914: x_return_status OUT NOCOPY VARCHAR2,
4915: x_return_message OUT NOCOPY VARCHAR2
4916: ) IS
4942:
4943: -- -----------------------------------------------------------------
4944: -- Check for the Compatible API call
4945: -- -----------------------------------------------------------------
4946: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4947: p_api_version,
4948: l_api_name,
4949: g_pkg_name) THEN
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4946: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
4947: p_api_version,
4948: l_api_name,
4949: g_pkg_name) THEN
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4951: END IF;
4952:
4953: -- -----------------------------------------------------------------
4954: -- If the calling program has passed the parameter for initializing
4953: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
4960:
4961: -- -----------------------------------------------------------------
4962: -- Set the return status to success
4963: -- -----------------------------------------------------------------
4964: x_return_status := FND_API.G_RET_STS_SUCCESS;
4965:
4966: -- -----------------------------------------------------------------
4967: -- Check if admin mode is enabled
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:
4977: -- -----------------------------------------------------------------
4989: x_return_status => l_return_status,
4990: x_return_message => l_return_message
4991: );
4992:
4993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4994: RAISE FND_API.G_EXC_ERROR;
4995: END IF;
4996:
4997: FETCH c_get_grant_id
4990: x_return_message => l_return_message
4991: );
4992:
4993: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4994: RAISE FND_API.G_EXC_ERROR;
4995: END IF;
4996:
4997: FETCH c_get_grant_id
4998: INTO l_grant_id;
5012:
5013: -- -----------------------------------------------------------------
5014: -- Commit the transaction if requested to via parameter value.
5015: -- -----------------------------------------------------------------
5016: IF (FND_API.to_Boolean(p_commit)) THEN
5017: COMMIT;
5018: END IF;
5019:
5020: -- -----------------------------------------------------------------
5020: -- -----------------------------------------------------------------
5021: -- Exception Block definition
5022: -- -----------------------------------------------------------------
5023: EXCEPTION
5024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
5021: -- Exception Block definition
5022: -- -----------------------------------------------------------------
5023: EXCEPTION
5024: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
5030: p_count => l_message_count,
5031: p_data => x_return_message);
5032: ROLLBACK TO Delete_Object_Func_SP;
5033:
5034: WHEN FND_API.G_EXC_ERROR THEN
5035: x_return_status := FND_API.G_RET_STS_ERROR;
5036:
5037: IF (c_get_grant_id%ISOPEN) THEN
5038: CLOSE c_get_grant_id;
5031: p_data => x_return_message);
5032: ROLLBACK TO Delete_Object_Func_SP;
5033:
5034: WHEN FND_API.G_EXC_ERROR THEN
5035: x_return_status := FND_API.G_RET_STS_ERROR;
5036:
5037: IF (c_get_grant_id%ISOPEN) THEN
5038: CLOSE c_get_grant_id;
5039: END IF;
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:
5042: p_data => x_return_message);
5043: ROLLBACK TO Delete_Object_Func_SP;
5044:
5045: WHEN OTHERS THEN
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
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
5076: Don Shellito April 23, 2003 New Procedure Created.
5077:
5078: ******************************************************************/
5079: PROCEDURE Delete_Object_Attr_Val (p_api_version IN NUMBER,
5080: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5081: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5082: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
5083: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
5084: x_return_status OUT NOCOPY VARCHAR2,
5077:
5078: ******************************************************************/
5079: PROCEDURE Delete_Object_Attr_Val (p_api_version IN NUMBER,
5080: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5081: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5082: p_object_id IN igs_sc_obj_att_mths.object_id%TYPE,
5083: p_obj_attrib_id IN igs_sc_obj_att_mths.obj_attrib_id%TYPE,
5084: x_return_status OUT NOCOPY VARCHAR2,
5085: x_return_message OUT NOCOPY VARCHAR2
5098:
5099: -- -----------------------------------------------------------------
5100: -- Check for the Compatible API call
5101: -- -----------------------------------------------------------------
5102: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5103: p_api_version,
5104: l_api_name,
5105: g_pkg_name) THEN
5106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5102: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5103: p_api_version,
5104: l_api_name,
5105: g_pkg_name) THEN
5106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5107: END IF;
5108:
5109: -- -----------------------------------------------------------------
5110: -- If the calling program has passed the parameter for initializing
5109: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5116:
5117: -- -----------------------------------------------------------------
5118: -- Set the return status to success
5119: -- -----------------------------------------------------------------
5120: x_return_status := FND_API.G_RET_STS_SUCCESS;
5121:
5122: -- -----------------------------------------------------------------
5123: -- Check if admin mode is enabled
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:
5133: -- -----------------------------------------------------------------
5141:
5142: -- -----------------------------------------------------------------
5143: -- Commit the transaction if requested to via parameter value.
5144: -- -----------------------------------------------------------------
5145: IF (FND_API.to_Boolean(p_commit)) THEN
5146: COMMIT;
5147: END IF;
5148:
5149: -- -----------------------------------------------------------------
5149: -- -----------------------------------------------------------------
5150: -- Exception Block definition
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);
5150: -- Exception Block definition
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;
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:
5156: p_count => l_message_count,
5157: p_data => x_return_message);
5158: ROLLBACK TO Delete_Object_Attr_Val_SP;
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,
5157: p_data => x_return_message);
5158: ROLLBACK TO Delete_Object_Attr_Val_SP;
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);
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:
5165: p_data => x_return_message);
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,
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
5196: Don Shellito April 23, 2003 New Procedure Created.
5197:
5198: ******************************************************************/
5199: PROCEDURE Delete_Object (p_api_version IN NUMBER,
5200: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5201: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5202: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
5203: p_object_id IN igs_sc_objects.object_id%TYPE,
5204: x_return_status OUT NOCOPY VARCHAR2,
5197:
5198: ******************************************************************/
5199: PROCEDURE Delete_Object (p_api_version IN NUMBER,
5200: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5201: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5202: p_obj_group_id IN igs_sc_objects.obj_group_id%TYPE,
5203: p_object_id IN igs_sc_objects.object_id%TYPE,
5204: x_return_status OUT NOCOPY VARCHAR2,
5205: x_return_message OUT NOCOPY VARCHAR2
5223:
5224: -- -----------------------------------------------------------------
5225: -- Check for the Compatible API call
5226: -- -----------------------------------------------------------------
5227: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5228: p_api_version,
5229: l_api_name,
5230: g_pkg_name) THEN
5231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5227: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5228: p_api_version,
5229: l_api_name,
5230: g_pkg_name) THEN
5231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5232: END IF;
5233:
5234: -- -----------------------------------------------------------------
5235: -- If the calling program has passed the parameter for initializing
5234: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5241:
5242: -- -----------------------------------------------------------------
5243: -- Set the return status to success
5244: -- -----------------------------------------------------------------
5245: x_return_status := FND_API.G_RET_STS_SUCCESS;
5246:
5247: -- -----------------------------------------------------------------
5248: -- Check if admin mode is enabled
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: -- -----------------------------------------------------------------
5258: -- Delete the objects that are associated to the object group id and
5275:
5276: -- -----------------------------------------------------------------
5277: -- Commit the transaction if requested to via parameter value.
5278: -- -----------------------------------------------------------------
5279: IF (FND_API.to_Boolean(p_commit)) THEN
5280: COMMIT;
5281: END IF;
5282:
5283: -- -----------------------------------------------------------------
5283: -- -----------------------------------------------------------------
5284: -- Exception Block definition
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);
5284: -- Exception Block definition
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;
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:
5290: p_count => l_message_count,
5291: p_data => x_return_message);
5292: ROLLBACK TO Delete_Object_SP;
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,
5291: p_data => x_return_message);
5292: ROLLBACK TO Delete_Object_SP;
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);
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:
5299: p_data => x_return_message);
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,
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
5330: Don Shellito April 23, 2003 New Procedure Created.
5331:
5332: ******************************************************************/
5333: PROCEDURE Delete_User_Attr (p_api_version IN NUMBER,
5334: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5335: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5336: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
5337: x_return_status OUT NOCOPY VARCHAR2,
5338: x_return_message OUT NOCOPY VARCHAR2
5331:
5332: ******************************************************************/
5333: PROCEDURE Delete_User_Attr (p_api_version IN NUMBER,
5334: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5335: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5336: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
5337: x_return_status OUT NOCOPY VARCHAR2,
5338: x_return_message OUT NOCOPY VARCHAR2
5339: ) IS
5374:
5375: -- -----------------------------------------------------------------
5376: -- Check for the Compatible API call
5377: -- -----------------------------------------------------------------
5378: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5379: p_api_version,
5380: l_api_name,
5381: g_pkg_name) THEN
5382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5378: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5379: p_api_version,
5380: l_api_name,
5381: g_pkg_name) THEN
5382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5383: END IF;
5384:
5385: -- -----------------------------------------------------------------
5386: -- If the calling program has passed the parameter for initializing
5385: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5392:
5393: -- -----------------------------------------------------------------
5394: -- Set the return status to success
5395: -- -----------------------------------------------------------------
5396: x_return_status := FND_API.G_RET_STS_SUCCESS;
5397:
5398: -- -----------------------------------------------------------------
5399: -- Check if admin mode is enabled
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:
5409: -- -----------------------------------------------------------------
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
5428: CLOSE c_get_grant_conds;
5438: x_return_status => l_return_status,
5439: x_return_message => l_return_message
5440: );
5441:
5442: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445:
5446: IF (c_get_user_id%ISOPEN) THEN
5439: x_return_message => l_return_message
5440: );
5441:
5442: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5443: RAISE FND_API.G_EXC_ERROR;
5444: END IF;
5445:
5446: IF (c_get_user_id%ISOPEN) THEN
5447: CLOSE c_get_user_id;
5456:
5457: -- -----------------------------------------------------------------
5458: -- Commit the transaction if requested to via parameter value.
5459: -- -----------------------------------------------------------------
5460: IF (FND_API.to_Boolean(p_commit)) THEN
5461: COMMIT;
5462: END IF;
5463:
5464: -- -----------------------------------------------------------------
5464: -- -----------------------------------------------------------------
5465: -- Exception Block definition
5466: -- -----------------------------------------------------------------
5467: EXCEPTION
5468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: IF (c_get_grant_conds%ISOPEN) THEN
5471: CLOSE c_get_grant_conds;
5472: END IF;
5465: -- Exception Block definition
5466: -- -----------------------------------------------------------------
5467: EXCEPTION
5468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5470: IF (c_get_grant_conds%ISOPEN) THEN
5471: CLOSE c_get_grant_conds;
5472: END IF;
5473: IF (c_get_user_id%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:
5477: p_count => l_message_count,
5478: p_data => x_return_message);
5479: ROLLBACK TO Delete_User_Attr_SP;
5480:
5481: WHEN FND_API.G_EXC_ERROR THEN
5482: x_return_status := FND_API.G_RET_STS_ERROR;
5483:
5484: IF (c_get_grant_conds%ISOPEN) THEN
5485: CLOSE c_get_grant_conds;
5478: p_data => x_return_message);
5479: ROLLBACK TO Delete_User_Attr_SP;
5480:
5481: WHEN FND_API.G_EXC_ERROR THEN
5482: x_return_status := FND_API.G_RET_STS_ERROR;
5483:
5484: IF (c_get_grant_conds%ISOPEN) THEN
5485: CLOSE c_get_grant_conds;
5486: END IF;
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:
5492: p_data => x_return_message);
5493: ROLLBACK TO Delete_User_Attr_SP;
5494:
5495: WHEN OTHERS THEN
5496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5497: IF (c_get_grant_conds%ISOPEN) THEN
5498: CLOSE c_get_grant_conds;
5499: END IF;
5500: IF (c_get_user_id%ISOPEN) THEN
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
5529: Don Shellito April 23, 2003 New Procedure Created.
5530:
5531: ******************************************************************/
5532: PROCEDURE Delete_User_Attr_Val (p_api_version IN NUMBER,
5533: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5534: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5535: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
5536: p_user_id IN NUMBER,
5537: x_return_status OUT NOCOPY VARCHAR2,
5530:
5531: ******************************************************************/
5532: PROCEDURE Delete_User_Attr_Val (p_api_version IN NUMBER,
5533: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5534: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5535: p_user_attrib_id IN igs_sc_usr_attribs.user_attrib_id%TYPE,
5536: p_user_id IN NUMBER,
5537: x_return_status OUT NOCOPY VARCHAR2,
5538: x_return_message OUT NOCOPY VARCHAR2
5553:
5554: -- -----------------------------------------------------------------
5555: -- Check for the Compatible API call
5556: -- -----------------------------------------------------------------
5557: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5558: p_api_version,
5559: l_api_name,
5560: g_pkg_name) THEN
5561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5557: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5558: p_api_version,
5559: l_api_name,
5560: g_pkg_name) THEN
5561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5562: END IF;
5563:
5564: -- -----------------------------------------------------------------
5565: -- If the calling program has passed the parameter for initializing
5564: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5571:
5572: -- -----------------------------------------------------------------
5573: -- Set the return status to success
5574: -- -----------------------------------------------------------------
5575: x_return_status := FND_API.G_RET_STS_SUCCESS;
5576:
5577: -- -----------------------------------------------------------------
5578: -- Delete the user attribute values based on the attribute ID and
5579: -- User ID provided.
5585:
5586: -- -----------------------------------------------------------------
5587: -- Commit the transaction if requested to via parameter value.
5588: -- -----------------------------------------------------------------
5589: IF (FND_API.to_Boolean(p_commit)) THEN
5590: COMMIT;
5591: END IF;
5592:
5593: -- -----------------------------------------------------------------
5593: -- -----------------------------------------------------------------
5594: -- Exception Block definition
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);
5594: -- Exception Block definition
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;
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:
5600: p_count => l_message_count,
5601: p_data => x_return_message);
5602: ROLLBACK TO Delete_User_Attr_Val_SP;
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,
5601: p_data => x_return_message);
5602: ROLLBACK TO Delete_User_Attr_Val_SP;
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);
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:
5609: p_data => x_return_message);
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,
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
5641: Don Shellito April 23, 2003 New Procedure Created.
5642:
5643: ******************************************************************/
5644: PROCEDURE Delete_Grant (p_api_version IN NUMBER,
5645: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5646: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5647: p_grant_id IN igs_sc_grants.grant_id%TYPE,
5648: x_return_status OUT NOCOPY VARCHAR2,
5649: x_return_message OUT NOCOPY VARCHAR2
5642:
5643: ******************************************************************/
5644: PROCEDURE Delete_Grant (p_api_version IN NUMBER,
5645: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5646: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5647: p_grant_id IN igs_sc_grants.grant_id%TYPE,
5648: x_return_status OUT NOCOPY VARCHAR2,
5649: x_return_message OUT NOCOPY VARCHAR2
5650: ) IS
5686:
5687: -- -----------------------------------------------------------------
5688: -- Check for the Compatible API call
5689: -- -----------------------------------------------------------------
5690: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5691: p_api_version,
5692: l_api_name,
5693: g_pkg_name) THEN
5694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5690: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5691: p_api_version,
5692: l_api_name,
5693: g_pkg_name) THEN
5694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5695: END IF;
5696:
5697: -- -----------------------------------------------------------------
5698: -- If the calling program has passed the parameter for initializing
5697: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5704:
5705: -- -----------------------------------------------------------------
5706: -- Set the return status to success
5707: -- -----------------------------------------------------------------
5708: x_return_status := FND_API.G_RET_STS_SUCCESS;
5709:
5710: -- -----------------------------------------------------------------
5711: -- Determine if the grant is locked or not.
5712: -- -----------------------------------------------------------------
5727: x_return_status => l_return_status,
5728: x_return_message => l_return_message
5729: );
5730:
5731: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5732: RAISE FND_API.G_EXC_ERROR;
5733: END IF;
5734:
5735: FETCH c_get_grant_cond
5728: x_return_message => l_return_message
5729: );
5730:
5731: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5732: RAISE FND_API.G_EXC_ERROR;
5733: END IF;
5734:
5735: FETCH c_get_grant_cond
5736: INTO l_grant_cond_num;
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:
5767: -- -----------------------------------------------------------------
5766:
5767: -- -----------------------------------------------------------------
5768: -- Commit the transaction if requested to via parameter value.
5769: -- -----------------------------------------------------------------
5770: IF (FND_API.to_Boolean(p_commit)) THEN
5771: COMMIT;
5772: END IF;
5773:
5774: -- -----------------------------------------------------------------
5775: -- Exception Block definition
5776: -- -----------------------------------------------------------------
5777: EXCEPTION
5778:
5779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5781: IF (c_get_grant_name%ISOPEN) THEN
5782: CLOSE c_get_grant_name;
5783: END IF;
5776: -- -----------------------------------------------------------------
5777: EXCEPTION
5778:
5779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5781: IF (c_get_grant_name%ISOPEN) THEN
5782: CLOSE c_get_grant_name;
5783: END IF;
5784: IF (c_get_grant_cond%ISOPEN) THEN
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:
5794: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||','||' Error Message: '||x_return_message;
5795: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5796: END IF;
5797:
5798: WHEN FND_API.G_EXC_ERROR THEN
5799: x_return_status := FND_API.G_RET_STS_ERROR;
5800:
5801: IF (c_get_grant_name%ISOPEN) THEN
5802: CLOSE c_get_grant_name;
5795: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5796: END IF;
5797:
5798: WHEN FND_API.G_EXC_ERROR THEN
5799: x_return_status := FND_API.G_RET_STS_ERROR;
5800:
5801: IF (c_get_grant_name%ISOPEN) THEN
5802: CLOSE c_get_grant_name;
5803: END IF;
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:
5815: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5816: END IF;
5817:
5818: WHEN OTHERS THEN
5819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5820: IF (c_get_grant_name%ISOPEN) THEN
5821: CLOSE c_get_grant_name;
5822: END IF;
5823: IF (c_get_grant_cond%ISOPEN) THEN
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:
5861: Don Shellito April 23, 2003 New Procedure Created.
5862:
5863: ******************************************************************/
5864: PROCEDURE Delete_Grant_Cond (p_api_version IN NUMBER,
5865: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5866: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5867: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
5868: p_grant_cond_num IN igs_sc_grant_conds.grant_cond_num%TYPE,
5869: x_return_status OUT NOCOPY VARCHAR2,
5862:
5863: ******************************************************************/
5864: PROCEDURE Delete_Grant_Cond (p_api_version IN NUMBER,
5865: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5866: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5867: p_grant_id IN igs_sc_grant_conds.grant_id%TYPE,
5868: p_grant_cond_num IN igs_sc_grant_conds.grant_cond_num%TYPE,
5869: x_return_status OUT NOCOPY VARCHAR2,
5870: x_return_message OUT NOCOPY VARCHAR2
5901:
5902: -- -----------------------------------------------------------------
5903: -- Check for the Compatible API call
5904: -- -----------------------------------------------------------------
5905: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5906: p_api_version,
5907: l_api_name,
5908: g_pkg_name) THEN
5909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5905: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
5906: p_api_version,
5907: l_api_name,
5908: g_pkg_name) THEN
5909: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5910: END IF;
5911:
5912: -- -----------------------------------------------------------------
5913: -- If the calling program has passed the parameter for initializing
5912: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
5919:
5920: -- -----------------------------------------------------------------
5921: -- Set the return status to success
5922: -- -----------------------------------------------------------------
5923: x_return_status := FND_API.G_RET_STS_SUCCESS;
5924:
5925: -- -----------------------------------------------------------------
5926: -- Check to make sure that the grant is unlocked.
5927: -- -----------------------------------------------------------------
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:
5954: -- -----------------------------------------------------------------
5953:
5954: -- -----------------------------------------------------------------
5955: -- Commit the transaction if requested to via parameter value.
5956: -- -----------------------------------------------------------------
5957: IF (FND_API.to_Boolean(p_commit)) THEN
5958: COMMIT;
5959: END IF;
5960:
5961: -- -----------------------------------------------------------------
5962: -- Exception Block definition
5963: -- -----------------------------------------------------------------
5964: EXCEPTION
5965:
5966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
5963: -- -----------------------------------------------------------------
5964: EXCEPTION
5965:
5966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
5979: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5980: END IF;
5981:
5982:
5983: WHEN FND_API.G_EXC_ERROR THEN
5984: x_return_status := FND_API.G_RET_STS_ERROR;
5985:
5986: IF (c_get_grant_name%ISOPEN) THEN
5987: CLOSE c_get_grant_name;
5980: END IF;
5981:
5982:
5983: WHEN FND_API.G_EXC_ERROR THEN
5984: x_return_status := FND_API.G_RET_STS_ERROR;
5985:
5986: IF (c_get_grant_name%ISOPEN) THEN
5987: CLOSE c_get_grant_name;
5988: END IF;
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:
5997: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
5998: END IF;
5999:
6000: WHEN OTHERS THEN
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
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:
6035: Don Shellito April 23, 2003 New Procedure Created.
6036:
6037: ******************************************************************/
6038: PROCEDURE Delete_Local_Role (p_api_version IN NUMBER,
6039: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6040: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6041: x_return_status OUT NOCOPY VARCHAR2,
6042: x_return_message OUT NOCOPY VARCHAR2
6043: ) IS
6036:
6037: ******************************************************************/
6038: PROCEDURE Delete_Local_Role (p_api_version IN NUMBER,
6039: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6040: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6041: x_return_status OUT NOCOPY VARCHAR2,
6042: x_return_message OUT NOCOPY VARCHAR2
6043: ) IS
6044:
6057:
6058: -- -----------------------------------------------------------------
6059: -- Check for the Compatible API call
6060: -- -----------------------------------------------------------------
6061: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6062: p_api_version,
6063: l_api_name,
6064: g_pkg_name) THEN
6065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6061: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6062: p_api_version,
6063: l_api_name,
6064: g_pkg_name) THEN
6065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6066: END IF;
6067:
6068: -- -----------------------------------------------------------------
6069: -- If the calling program has passed the parameter for initializing
6068: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
6075:
6076: -- -----------------------------------------------------------------
6077: -- Set the return status to success
6078: -- -----------------------------------------------------------------
6079: x_return_status := FND_API.G_RET_STS_SUCCESS;
6080:
6081:
6082: -- -----------------------------------------------------------------
6083: -- Commit the transaction if requested to via parameter value.
6081:
6082: -- -----------------------------------------------------------------
6083: -- Commit the transaction if requested to via parameter value.
6084: -- -----------------------------------------------------------------
6085: IF (FND_API.to_Boolean(p_commit)) THEN
6086: COMMIT;
6087: END IF;
6088:
6089: -- -----------------------------------------------------------------
6089: -- -----------------------------------------------------------------
6090: -- Exception Block definition
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);
6090: -- Exception Block definition
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;
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:
6096: p_count => l_message_count,
6097: p_data => x_return_message);
6098: ROLLBACK TO Delete_Local_Role_SP;
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,
6097: p_data => x_return_message);
6098: ROLLBACK TO Delete_Local_Role_SP;
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);
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:
6105: p_data => x_return_message);
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,
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
6133: Don Shellito April 23, 2003 New Procedure Created.
6134:
6135: ******************************************************************/
6136: PROCEDURE Delete_Local_User_Role (p_api_version IN NUMBER,
6137: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6138: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6139: x_return_status OUT NOCOPY VARCHAR2,
6140: x_return_message OUT NOCOPY VARCHAR2
6141: ) IS
6134:
6135: ******************************************************************/
6136: PROCEDURE Delete_Local_User_Role (p_api_version IN NUMBER,
6137: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6138: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6139: x_return_status OUT NOCOPY VARCHAR2,
6140: x_return_message OUT NOCOPY VARCHAR2
6141: ) IS
6142:
6155:
6156: -- -----------------------------------------------------------------
6157: -- Check for the Compatible API call
6158: -- -----------------------------------------------------------------
6159: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6160: p_api_version,
6161: l_api_name,
6162: g_pkg_name) THEN
6163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6160: p_api_version,
6161: l_api_name,
6162: g_pkg_name) THEN
6163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6164: END IF;
6165:
6166: -- -----------------------------------------------------------------
6167: -- If the calling program has passed the parameter for initializing
6166: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
6173:
6174: -- -----------------------------------------------------------------
6175: -- Set the return status to success
6176: -- -----------------------------------------------------------------
6177: x_return_status := FND_API.G_RET_STS_SUCCESS;
6178:
6179:
6180: -- -----------------------------------------------------------------
6181: -- Commit the transaction if requested to via parameter value.
6179:
6180: -- -----------------------------------------------------------------
6181: -- Commit the transaction if requested to via parameter value.
6182: -- -----------------------------------------------------------------
6183: IF (FND_API.to_Boolean(p_commit)) THEN
6184: COMMIT;
6185: END IF;
6186:
6187: -- -----------------------------------------------------------------
6187: -- -----------------------------------------------------------------
6188: -- Exception Block definition
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);
6188: -- Exception Block definition
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;
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:
6194: p_count => l_message_count,
6195: p_data => x_return_message);
6196: ROLLBACK TO Delete_Local_User_Role_SP;
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,
6195: p_data => x_return_message);
6196: ROLLBACK TO Delete_Local_User_Role_SP;
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);
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:
6203: p_data => x_return_message);
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,
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
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;
6289: END IF;
6290:
6305: Don Shellito April 23, 2003 New Procedure Created.
6306:
6307: ******************************************************************/
6308: PROCEDURE Lock_Grant (p_api_version IN NUMBER,
6309: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6310: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6311: p_grant_id IN igs_sc_grants.grant_id%TYPE,
6312: x_return_status OUT NOCOPY VARCHAR2,
6313: x_return_message OUT NOCOPY VARCHAR2
6306:
6307: ******************************************************************/
6308: PROCEDURE Lock_Grant (p_api_version IN NUMBER,
6309: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6310: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6311: p_grant_id IN igs_sc_grants.grant_id%TYPE,
6312: x_return_status OUT NOCOPY VARCHAR2,
6313: x_return_message OUT NOCOPY VARCHAR2
6314: ) IS
6343:
6344: -- -----------------------------------------------------------------
6345: -- Check for the Compatible API call
6346: -- -----------------------------------------------------------------
6347: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6348: p_api_version,
6349: l_api_name,
6350: g_pkg_name) THEN
6351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6347: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6348: p_api_version,
6349: l_api_name,
6350: g_pkg_name) THEN
6351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6352: END IF;
6353:
6354: -- -----------------------------------------------------------------
6355: -- If the calling program has passed the parameter for initializing
6354: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
6361:
6362: -- -----------------------------------------------------------------
6363: -- Set the return status to success
6364: -- -----------------------------------------------------------------
6365: x_return_status := FND_API.G_RET_STS_SUCCESS;
6366:
6367: -- -----------------------------------------------------------------
6368: -- Check to ensure that the grant is in existence.
6369: -- -----------------------------------------------------------------
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:
6383: -- Generate grant for objects
6382:
6383: -- Generate grant for objects
6384: IGS_SC_GRANTS_PVT.construct_grant(
6385: p_api_version => 1.0,
6386: p_init_msg_list => FND_API.G_FALSE,
6387: p_commit => FND_API.G_FALSE,
6388: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6389: p_grant_id => p_grant_id,
6390: x_return_status => l_return_status ,
6383: -- Generate grant for objects
6384: IGS_SC_GRANTS_PVT.construct_grant(
6385: p_api_version => 1.0,
6386: p_init_msg_list => FND_API.G_FALSE,
6387: p_commit => FND_API.G_FALSE,
6388: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6389: p_grant_id => p_grant_id,
6390: x_return_status => l_return_status ,
6391: x_msg_count => l_message_count,
6384: IGS_SC_GRANTS_PVT.construct_grant(
6385: p_api_version => 1.0,
6386: p_init_msg_list => FND_API.G_FALSE,
6387: p_commit => FND_API.G_FALSE,
6388: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6389: p_grant_id => p_grant_id,
6390: x_return_status => l_return_status ,
6391: x_msg_count => l_message_count,
6392: x_msg_data => l_return_message );
6390: x_return_status => l_return_status ,
6391: x_msg_count => l_message_count,
6392: x_msg_data => l_return_message );
6393:
6394: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6395: raise FND_API.G_EXC_ERROR;
6396: END IF;
6397:
6398: UPDATE igs_sc_grants grts
6391: x_msg_count => l_message_count,
6392: x_msg_data => l_return_message );
6393:
6394: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6395: raise FND_API.G_EXC_ERROR;
6396: END IF;
6397:
6398: UPDATE igs_sc_grants grts
6399: SET grts.locked_flag = 'Y'
6407:
6408: -- -----------------------------------------------------------------
6409: -- Commit the transaction if requested to via parameter value.
6410: -- -----------------------------------------------------------------
6411: IF (FND_API.to_Boolean(p_commit)) THEN
6412: COMMIT;
6413: END IF;
6414:
6415: -- -----------------------------------------------------------------
6415: -- -----------------------------------------------------------------
6416: -- Exception Block definition
6417: -- -----------------------------------------------------------------
6418: EXCEPTION
6419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
6416: -- Exception Block definition
6417: -- -----------------------------------------------------------------
6418: EXCEPTION
6419: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
6431: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||'Error Message: '||x_return_message;
6432: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6433: END IF;
6434:
6435: WHEN FND_API.G_EXC_ERROR THEN
6436: x_return_status := FND_API.G_RET_STS_ERROR;
6437:
6438: IF (c_check_grant%ISOPEN) THEN
6439: CLOSE c_check_grant;
6432: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6433: END IF;
6434:
6435: WHEN FND_API.G_EXC_ERROR THEN
6436: x_return_status := FND_API.G_RET_STS_ERROR;
6437:
6438: IF (c_check_grant%ISOPEN) THEN
6439: CLOSE c_check_grant;
6440: END IF;
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:
6449: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6450: END IF;
6451:
6452: WHEN OTHERS THEN
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
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:
6484: Don Shellito April 23, 2003 New Procedure Created.
6485:
6486: ******************************************************************/
6487: PROCEDURE Unlock_Grant (p_api_version IN NUMBER,
6488: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6489: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6490: p_grant_id IN igs_sc_grants.grant_id%TYPE,
6491: x_return_status OUT NOCOPY VARCHAR2,
6492: x_return_message OUT NOCOPY VARCHAR2
6485:
6486: ******************************************************************/
6487: PROCEDURE Unlock_Grant (p_api_version IN NUMBER,
6488: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6489: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6490: p_grant_id IN igs_sc_grants.grant_id%TYPE,
6491: x_return_status OUT NOCOPY VARCHAR2,
6492: x_return_message OUT NOCOPY VARCHAR2
6493: ) IS
6523:
6524: -- -----------------------------------------------------------------
6525: -- Check for the Compatible API call
6526: -- -----------------------------------------------------------------
6527: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6528: p_api_version,
6529: l_api_name,
6530: g_pkg_name) THEN
6531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6527: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version,
6528: p_api_version,
6529: l_api_name,
6530: g_pkg_name) THEN
6531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6532: END IF;
6533:
6534: -- -----------------------------------------------------------------
6535: -- If the calling program has passed the parameter for initializing
6534: -- -----------------------------------------------------------------
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: -- -----------------------------------------------------------------
6541:
6542: -- -----------------------------------------------------------------
6543: -- Set the return status to success
6544: -- -----------------------------------------------------------------
6545: x_return_status := FND_API.G_RET_STS_SUCCESS;
6546:
6547: -- -----------------------------------------------------------------
6548: -- Check to ensure that the grant is in existence.
6549: -- -----------------------------------------------------------------
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:
6563: DELETE
6576:
6577: -- -----------------------------------------------------------------
6578: -- Commit the transaction if requested to via parameter value.
6579: -- -----------------------------------------------------------------
6580: IF (FND_API.to_Boolean(p_commit)) THEN
6581: COMMIT;
6582: END IF;
6583:
6584: -- -----------------------------------------------------------------
6584: -- -----------------------------------------------------------------
6585: -- Exception Block definition
6586: -- -----------------------------------------------------------------
6587: EXCEPTION
6588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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;
6585: -- Exception Block definition
6586: -- -----------------------------------------------------------------
6587: EXCEPTION
6588: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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,
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:
6600: l_debug_str := 'Unhandled Exception: Grant ID: '||p_grant_id||'Error Message: '||x_return_message;
6601: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6602: END IF;
6603:
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: x_return_status := FND_API.G_RET_STS_ERROR;
6606:
6607: IF (c_check_grant%ISOPEN) THEN
6608: CLOSE c_check_grant;
6601: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
6602: END IF;
6603:
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: x_return_status := FND_API.G_RET_STS_ERROR;
6606:
6607: IF (c_check_grant%ISOPEN) THEN
6608: CLOSE c_check_grant;
6609: END IF;
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:
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:
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;
6708:
6709:
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;
6773:
6774:
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;
6838:
6839:
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;
6903:
6904:
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;
6970:
6971:
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;
7035:
7036:
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;
7100:
7101:
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;
7165:
7166:
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;
7214:
7215:
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;
7261:
7262:
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;
7308:
7309: PROCEDURE Generate_Message
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
7366: );
7367:
7368: -- Checking the status
7369:
7370: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS) THEN
7371: --Successfull completion
7372: retcode := 0;
7373: ELSE
7374: -- Error: generating message and returning the error code
7425: );
7426:
7427: -- Checking the status
7428:
7429: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS) THEN
7430: --Successfull completion
7431: retcode := 0;
7432: ELSE
7433: -- Error: generating message and returning the error code
7479: );
7480:
7481: -- Checking the status
7482:
7483: IF (l_Return_Status = FND_API.G_RET_STS_SUCCESS) THEN
7484: --Successfull completion
7485: retcode := 0;
7486: ELSE
7487: -- Error: generating message and returning the error code
7570:
7571: l_app_info := fnd_installation.get_app_info(
7572: 'FND', l_status, l_industry, l_aol_schema);
7573: IF NOT l_app_info THEN
7574: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7575: END IF;
7576:
7577: system.ad_apps_private.get_apps_schema_name(
7578: 1, l_aol_schema, l_apps_schema, l_apps_mls_schema);
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:
7780: END modify_policy;
7781:
7782: /* This procedure shifts sequences in all tables to remove empty spaces in numbering
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:
7855: -- UPDATE GRANTS
7977:
7978:
7979: PROCEDURE enable_upgrade_mode (
7980: p_api_version IN NUMBER,
7981: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7982: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7983: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
7984: x_return_status OUT NOCOPY VARCHAR2,
7985: x_msg_data OUT NOCOPY VARCHAR2
7978:
7979: PROCEDURE enable_upgrade_mode (
7980: p_api_version IN NUMBER,
7981: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7982: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
7983: p_obj_group_id IN igs_sc_obj_groups.obj_group_id%TYPE,
7984: x_return_status OUT NOCOPY VARCHAR2,
7985: x_msg_data OUT NOCOPY VARCHAR2
7986: ) IS
7995: -- Standard Start of API savepoint
7996: SAVEPOINT enable_upgrade_mode;
7997:
7998: -- Standard call to check for call compatibility.
7999: IF NOT FND_API.Compatible_API_Call (l_api_version,
8000: p_api_version,
8001: l_api_name,
8002: G_PKG_NAME)
8003: THEN
8000: p_api_version,
8001: l_api_name,
8002: G_PKG_NAME)
8003: THEN
8004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8005: END IF;
8006:
8007: -- Initialize message list if p_init_msg_list is set to TRUE.
8008:
8005: END IF;
8006:
8007: -- Initialize message list if p_init_msg_list is set to TRUE.
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;
8007: -- Initialize message list if p_init_msg_list is set to TRUE.
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
8023: x_msg_data => l_msg_data,
8024: p_obj_group_id => p_obj_group_id);
8025:
8026:
8027: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8028: raise FND_API.G_EXC_ERROR;
8029: END IF;
8030: ELSE
8031: -- Unlock all grants i.e disable security
8024: p_obj_group_id => p_obj_group_id);
8025:
8026:
8027: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8028: raise FND_API.G_EXC_ERROR;
8029: END IF;
8030: ELSE
8031: -- Unlock all grants i.e disable security
8032: IGS_SC_GRANTS_PVT.unlock_all_grants(
8035: x_msg_count => l_msg_count,
8036: x_msg_data => l_msg_data,
8037: p_obj_group_id => null);
8038:
8039: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8040: raise FND_API.G_EXC_ERROR;
8041: END IF;
8042: END IF;
8043:
8036: x_msg_data => l_msg_data,
8037: p_obj_group_id => null);
8038:
8039: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8040: raise FND_API.G_EXC_ERROR;
8041: END IF;
8042: END IF;
8043:
8044:
8051:
8052: -- End of API body.
8053: -- Standard check of p_commit.
8054:
8055: IF FND_API.To_Boolean( p_commit ) THEN
8056: COMMIT WORK;
8057: END IF;
8058:
8059: -- Standard call to get message count and if count is 1, get message info.
8062: p_data => x_msg_data
8063: );
8064:
8065: EXCEPTION
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,
8065: EXCEPTION
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
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:
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,
8072:
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
8079:
8080: WHEN OTHERS THEN
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;
8460:
8461:
8462: PROCEDURE Generate_SQL_file(
8463: p_api_version IN NUMBER,
8464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8467: x_return_status OUT NOCOPY VARCHAR2,
8468: x_msg_count OUT NOCOPY NUMBER,
8461:
8462: PROCEDURE Generate_SQL_file(
8463: p_api_version IN NUMBER,
8464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8467: x_return_status OUT NOCOPY VARCHAR2,
8468: x_msg_count OUT NOCOPY NUMBER,
8469: x_msg_data OUT NOCOPY VARCHAR2,
8462: PROCEDURE Generate_SQL_file(
8463: p_api_version IN NUMBER,
8464: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8465: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8466: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
8467: x_return_status OUT NOCOPY VARCHAR2,
8468: x_msg_count OUT NOCOPY NUMBER,
8469: x_msg_data OUT NOCOPY VARCHAR2,
8470: p_dirpath IN VARCHAR2,
8486: -- Standard Start of API savepoint
8487: SAVEPOINT Generate_SQL_file;
8488:
8489: -- Standard call to check for call compatibility.
8490: IF NOT FND_API.Compatible_API_Call (l_api_version,
8491: p_api_version,
8492: l_api_name,
8493: G_PKG_NAME)
8494: THEN
8491: p_api_version,
8492: l_api_name,
8493: G_PKG_NAME)
8494: THEN
8495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8496: END IF;
8497:
8498: -- Initialize message list if p_init_msg_list is set to TRUE.
8499:
8496: END IF;
8497:
8498: -- Initialize message list if p_init_msg_list is set to TRUE.
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;
8498: -- Initialize message list if p_init_msg_list is set to TRUE.
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 );
8559:
8560: EXCEPTION
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
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;
8570: FND_MESSAGE.set_name('IGS', 'IGS_DS_WRITE_ERROR');
8571: FND_MSG_PUB.Add;
8572:
8573: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
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;
8576: FND_MESSAGE.set_name('IGS', 'IGS_DS_INVALID_FILEHANDLE');
8577: FND_MSG_PUB.Add;
8578:
8579: WHEN FND_API.G_EXC_ERROR THEN
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
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,
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:
8591: ROLLBACK TO Generate_SQL_file;
8592:
8593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8590:
8591: ROLLBACK TO Generate_SQL_file;
8592:
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,
8599:
8600: WHEN OTHERS THEN
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;