25: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
26:
27: PROCEDURE create_access(
28: p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
30: p_commit IN VARCHAR2 := FND_API.g_false,
31: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
32: x_return_status OUT NOCOPY VARCHAR2,
33: x_msg_count OUT NOCOPY NUMBER,
26:
27: PROCEDURE create_access(
28: p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
30: p_commit IN VARCHAR2 := FND_API.g_false,
31: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
32: x_return_status OUT NOCOPY VARCHAR2,
33: x_msg_count OUT NOCOPY NUMBER,
34: x_msg_data OUT NOCOPY VARCHAR2,
27: PROCEDURE create_access(
28: p_api_version IN NUMBER,
29: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
30: p_commit IN VARCHAR2 := FND_API.g_false,
31: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
32: x_return_status OUT NOCOPY VARCHAR2,
33: x_msg_count OUT NOCOPY NUMBER,
34: x_msg_data OUT NOCOPY VARCHAR2,
35: p_access_rec IN access_rec_type,
90: AMS_Utility_PVT.debug_message(l_full_name||': start');
91:
92: END IF;
93:
94: IF FND_API.to_boolean(p_init_msg_list) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: IF NOT FND_API.compatible_api_call(
94: IF FND_API.to_boolean(p_init_msg_list) THEN
95: FND_MSG_PUB.initialize;
96: END IF;
97:
98: IF NOT FND_API.compatible_api_call(
99: l_api_version,
100: p_api_version,
101: l_api_name,
102: g_pkg_name
100: p_api_version,
101: l_api_name,
102: g_pkg_name
103: ) THEN
104: RAISE FND_API.g_exc_unexpected_error;
105: END IF;
106:
107: x_return_status := FND_API.g_ret_sts_success;
108:
103: ) THEN
104: RAISE FND_API.g_exc_unexpected_error;
105: END IF;
106:
107: x_return_status := FND_API.g_ret_sts_success;
108:
109: ----------------------- validate -----------------------
110: IF (AMS_DEBUG_HIGH_ON) THEN
111:
121: x_msg_data => x_msg_data,
122: p_access_rec => l_access_rec
123: );
124:
125: IF l_return_status = FND_API.g_ret_sts_error THEN
126: RAISE FND_API.g_exc_error;
127: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
128: RAISE FND_API.g_exc_unexpected_error;
129: END IF;
122: p_access_rec => l_access_rec
123: );
124:
125: IF l_return_status = FND_API.g_ret_sts_error THEN
126: RAISE FND_API.g_exc_error;
127: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
128: RAISE FND_API.g_exc_unexpected_error;
129: END IF;
130:
123: );
124:
125: IF l_return_status = FND_API.g_ret_sts_error THEN
126: RAISE FND_API.g_exc_error;
127: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
128: RAISE FND_API.g_exc_unexpected_error;
129: END IF;
130:
131:
124:
125: IF l_return_status = FND_API.g_ret_sts_error THEN
126: RAISE FND_API.g_exc_error;
127: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
128: RAISE FND_API.g_exc_unexpected_error;
129: END IF;
130:
131:
132: -------------------------- insert --------------------------
144: FETCH c_group_exists INTO l_group_exists;
145: IF p_access_rec.arc_user_or_role_type = 'GROUP' AND c_group_exists%NOTFOUND THEN
146: FND_MESSAGE.set_name('AMS', 'AMS_RUN_ACCESS_REFRESH_PROGRAM');
147: FND_MSG_PUB.add;
148: RAISE FND_API.g_exc_error;
149: END IF;
150: CLOSE c_group_exists;
151: IF l_access_rec.activity_access_id IS NULL THEN
152: LOOP
215: x_msg_count => x_msg_count,
216: x_msg_data => x_msg_data
217: );
218:
219: IF l_return_status = FND_API.g_ret_sts_error THEN
220: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
221: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
222: FND_MSG_PUB.add;
223: RAISE FND_API.g_exc_error;
219: IF l_return_status = FND_API.g_ret_sts_error THEN
220: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
221: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
222: FND_MSG_PUB.add;
223: RAISE FND_API.g_exc_error;
224: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
225: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
226: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
227: FND_MSG_PUB.add;
220: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
221: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
222: FND_MSG_PUB.add;
223: RAISE FND_API.g_exc_error;
224: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
225: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
226: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
227: FND_MSG_PUB.add;
228: RAISE FND_API.g_exc_unexpected_error;
224: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
225: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
226: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
227: FND_MSG_PUB.add;
228: RAISE FND_API.g_exc_unexpected_error;
229: END IF;
230:
231: END IF;
232: -- if (l_access_rec.arc_act_access_to_object <> 'FUND' ) then
234: /************* Modify Attribute ******************************/
235: /***
236: AMS_ObjectAttribute_PVT.modify_object_attribute(
237: p_api_version => l_api_version,
238: p_init_msg_list => FND_API.g_false,
239: p_commit => FND_API.g_false,
240: p_validation_level => FND_API.g_valid_level_full,
241:
242: x_return_status => l_return_status,
235: /***
236: AMS_ObjectAttribute_PVT.modify_object_attribute(
237: p_api_version => l_api_version,
238: p_init_msg_list => FND_API.g_false,
239: p_commit => FND_API.g_false,
240: p_validation_level => FND_API.g_valid_level_full,
241:
242: x_return_status => l_return_status,
243: x_msg_count => x_msg_count,
236: AMS_ObjectAttribute_PVT.modify_object_attribute(
237: p_api_version => l_api_version,
238: p_init_msg_list => FND_API.g_false,
239: p_commit => FND_API.g_false,
240: p_validation_level => FND_API.g_valid_level_full,
241:
242: x_return_status => l_return_status,
243: x_msg_count => x_msg_count,
244: x_msg_data => x_msg_data,
323: x_msg_count => x_msg_count,
324: x_msg_data => x_msg_data
325: );
326:
327: IF l_return_status = FND_API.g_ret_sts_error THEN
328: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
329: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
330: FND_MSG_PUB.add;
331: RAISE FND_API.g_exc_error;
327: IF l_return_status = FND_API.g_ret_sts_error THEN
328: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
329: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
330: FND_MSG_PUB.add;
331: RAISE FND_API.g_exc_error;
332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
334: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
335: FND_MSG_PUB.add;
328: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
329: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
330: FND_MSG_PUB.add;
331: RAISE FND_API.g_exc_error;
332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
334: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
335: FND_MSG_PUB.add;
336: RAISE FND_API.g_exc_unexpected_error;
332: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
334: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
335: FND_MSG_PUB.add;
336: RAISE FND_API.g_exc_unexpected_error;
337: END IF;
338:
339: END IF;
340:
344: END IF ;-- obj_type
345: -- end change for schedule level access
346:
347: /*****************************************************************/
348: IF l_return_status = FND_API.g_ret_sts_error THEN
349: RAISE FND_API.g_exc_error;
350: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
351: RAISE FND_API.g_exc_unexpected_error;
352: END IF;
345: -- end change for schedule level access
346:
347: /*****************************************************************/
348: IF l_return_status = FND_API.g_ret_sts_error THEN
349: RAISE FND_API.g_exc_error;
350: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
351: RAISE FND_API.g_exc_unexpected_error;
352: END IF;
353: -----------------------------------------------------------------
346:
347: /*****************************************************************/
348: IF l_return_status = FND_API.g_ret_sts_error THEN
349: RAISE FND_API.g_exc_error;
350: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
351: RAISE FND_API.g_exc_unexpected_error;
352: END IF;
353: -----------------------------------------------------------------
354:
347: /*****************************************************************/
348: IF l_return_status = FND_API.g_ret_sts_error THEN
349: RAISE FND_API.g_exc_error;
350: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
351: RAISE FND_API.g_exc_unexpected_error;
352: END IF;
353: -----------------------------------------------------------------
354:
355: IF FND_API.to_boolean(p_commit) THEN
351: RAISE FND_API.g_exc_unexpected_error;
352: END IF;
353: -----------------------------------------------------------------
354:
355: IF FND_API.to_boolean(p_commit) THEN
356: COMMIT;
357: END IF;
358:
359: FND_MSG_PUB.count_and_get(
356: COMMIT;
357: END IF;
358:
359: FND_MSG_PUB.count_and_get(
360: p_encoded => FND_API.g_false,
361: p_count => x_msg_count,
362: p_data => x_msg_data
363: );
364:
371: END IF;
372:
373: EXCEPTION
374:
375: WHEN FND_API.g_exc_error THEN
376: ROLLBACK TO create_access;
377: x_return_status := FND_API.g_ret_sts_error;
378: FND_MSG_PUB.count_and_get(
379: p_encoded => FND_API.g_false,
373: EXCEPTION
374:
375: WHEN FND_API.g_exc_error THEN
376: ROLLBACK TO create_access;
377: x_return_status := FND_API.g_ret_sts_error;
378: FND_MSG_PUB.count_and_get(
379: p_encoded => FND_API.g_false,
380: p_count => x_msg_count,
381: p_data => x_msg_data
375: WHEN FND_API.g_exc_error THEN
376: ROLLBACK TO create_access;
377: x_return_status := FND_API.g_ret_sts_error;
378: FND_MSG_PUB.count_and_get(
379: p_encoded => FND_API.g_false,
380: p_count => x_msg_count,
381: p_data => x_msg_data
382: );
383:
380: p_count => x_msg_count,
381: p_data => x_msg_data
382: );
383:
384: WHEN FND_API.g_exc_unexpected_error THEN
385: ROLLBACK TO create_access;
386: x_return_status := FND_API.g_ret_sts_unexp_error ;
387: FND_MSG_PUB.count_and_get(
388: p_encoded => FND_API.g_false,
382: );
383:
384: WHEN FND_API.g_exc_unexpected_error THEN
385: ROLLBACK TO create_access;
386: x_return_status := FND_API.g_ret_sts_unexp_error ;
387: FND_MSG_PUB.count_and_get(
388: p_encoded => FND_API.g_false,
389: p_count => x_msg_count,
390: p_data => x_msg_data
384: WHEN FND_API.g_exc_unexpected_error THEN
385: ROLLBACK TO create_access;
386: x_return_status := FND_API.g_ret_sts_unexp_error ;
387: FND_MSG_PUB.count_and_get(
388: p_encoded => FND_API.g_false,
389: p_count => x_msg_count,
390: p_data => x_msg_data
391: );
392:
392:
393:
394: WHEN OTHERS THEN
395: ROLLBACK TO create_access;
396: x_return_status := FND_API.g_ret_sts_unexp_error ;
397:
398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
399: THEN
400: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
400: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
401: END IF;
402:
403: FND_MSG_PUB.count_and_get(
404: p_encoded => FND_API.g_false,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
408:
415: -- 10/12/99 abhola Create.
416: ---------------------------------------------------------------
417: PROCEDURE delete_access(
418: p_api_version IN NUMBER,
419: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
420: p_commit IN VARCHAR2 := FND_API.g_false,
421: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
422: x_return_status OUT NOCOPY VARCHAR2,
423: x_msg_count OUT NOCOPY NUMBER,
416: ---------------------------------------------------------------
417: PROCEDURE delete_access(
418: p_api_version IN NUMBER,
419: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
420: p_commit IN VARCHAR2 := FND_API.g_false,
421: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
422: x_return_status OUT NOCOPY VARCHAR2,
423: x_msg_count OUT NOCOPY NUMBER,
424: x_msg_data OUT NOCOPY VARCHAR2,
417: PROCEDURE delete_access(
418: p_api_version IN NUMBER,
419: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
420: p_commit IN VARCHAR2 := FND_API.g_false,
421: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
422: x_return_status OUT NOCOPY VARCHAR2,
423: x_msg_count OUT NOCOPY NUMBER,
424: x_msg_data OUT NOCOPY VARCHAR2,
425: p_access_id IN NUMBER,
492: AMS_Utility_PVT.debug_message(l_full_name||': start');
493:
494: END IF;
495:
496: IF FND_API.to_boolean(p_init_msg_list) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: IF NOT FND_API.compatible_api_call(
496: IF FND_API.to_boolean(p_init_msg_list) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: IF NOT FND_API.compatible_api_call(
501: l_api_version,
502: p_api_version,
503: l_api_name,
504: g_pkg_name
502: p_api_version,
503: l_api_name,
504: g_pkg_name
505: ) THEN
506: RAISE FND_API.g_exc_unexpected_error;
507: END IF;
508:
509:
510: ----- Get the object type and obj id for this access id ----
514: CLOSE c_getobj_type_id;
515:
516: --------------------------------------------------------------
517:
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
519:
520: ------------------------ delete ------------------------
521: IF (AMS_DEBUG_HIGH_ON) THEN
522:
534: THEN
535: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
536: FND_MSG_PUB.add;
537: END IF;
538: RAISE FND_API.g_exc_error;
539: END IF;
540:
541:
542: -- Added by rrajesh on 09/12/01 - for campaign schedules
569: THEN
570: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
571: FND_MSG_PUB.add;
572: END IF;
573: RAISE FND_API.g_exc_error;
574: END IF;
575:
576: ams_access_denorm_pvt.delete_resource (
577: p_resource_id => l_role_id,
582: x_msg_count => x_msg_count,
583: x_msg_data => x_msg_data
584: );
585:
586: IF l_return_status = FND_API.g_ret_sts_error THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
588: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
589: FND_MSG_PUB.add;
590: RAISE FND_API.g_exc_error;
586: IF l_return_status = FND_API.g_ret_sts_error THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
588: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
589: FND_MSG_PUB.add;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
593: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
594: FND_MSG_PUB.add;
587: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
588: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
589: FND_MSG_PUB.add;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
593: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
594: FND_MSG_PUB.add;
595: RAISE FND_API.g_exc_unexpected_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
593: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
594: FND_MSG_PUB.add;
595: RAISE FND_API.g_exc_unexpected_error;
596: END IF;
597: END LOOP;
598: CLOSE c_access_camp_schedules;
599: END IF;
608: x_msg_count => x_msg_count,
609: x_msg_data => x_msg_data
610: );
611:
612: IF l_return_status = FND_API.g_ret_sts_error THEN
613: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
614: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
615: FND_MSG_PUB.add;
616: RAISE FND_API.g_exc_error;
612: IF l_return_status = FND_API.g_ret_sts_error THEN
613: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
614: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
615: FND_MSG_PUB.add;
616: RAISE FND_API.g_exc_error;
617: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
618: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
619: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
620: FND_MSG_PUB.add;
613: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
614: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
615: FND_MSG_PUB.add;
616: RAISE FND_API.g_exc_error;
617: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
618: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
619: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
620: FND_MSG_PUB.add;
621: RAISE FND_API.g_exc_unexpected_error;
617: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
618: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
619: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
620: FND_MSG_PUB.add;
621: RAISE FND_API.g_exc_unexpected_error;
622: END IF;
623:
624: ELSIF l_role_type = 'GROUP' THEN
625:
636: THEN
637: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
638: FND_MSG_PUB.add;
639: END IF;
640: RAISE FND_API.g_exc_error;
641: END IF;
642:
643: -- Added by rrajesh on 09/12/01 - for campaign schedules
644:
674: THEN
675: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
676: FND_MSG_PUB.add;
677: END IF;
678: RAISE FND_API.g_exc_error;
679: END IF;
680: END LOOP;
681: CLOSE c_access_camp_schedules;
682: END IF;
694: if (c_getobj_attr%NOTFOUND) then
695:
696: AMS_ObjectAttribute_PVT.modify_object_attribute(
697: p_api_version => l_api_version,
698: p_init_msg_list => FND_API.g_false,
699: p_commit => FND_API.g_false,
700: p_validation_level => FND_API.g_valid_level_full,
701: x_return_status => l_return_status,
702: x_msg_count => x_msg_count,
695:
696: AMS_ObjectAttribute_PVT.modify_object_attribute(
697: p_api_version => l_api_version,
698: p_init_msg_list => FND_API.g_false,
699: p_commit => FND_API.g_false,
700: p_validation_level => FND_API.g_valid_level_full,
701: x_return_status => l_return_status,
702: x_msg_count => x_msg_count,
703: x_msg_data => x_msg_data,
696: AMS_ObjectAttribute_PVT.modify_object_attribute(
697: p_api_version => l_api_version,
698: p_init_msg_list => FND_API.g_false,
699: p_commit => FND_API.g_false,
700: p_validation_level => FND_API.g_valid_level_full,
701: x_return_status => l_return_status,
702: x_msg_count => x_msg_count,
703: x_msg_data => x_msg_data,
704:
706: p_object_id => l_object_id ,
707: p_attr => 'TEAM',
708: p_attr_defined_flag => 'N'
709: );
710: IF l_return_status = FND_API.g_ret_sts_error THEN
711: RAISE FND_API.g_exc_error;
712: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
707: p_attr => 'TEAM',
708: p_attr_defined_flag => 'N'
709: );
710: IF l_return_status = FND_API.g_ret_sts_error THEN
711: RAISE FND_API.g_exc_error;
712: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
715:
708: p_attr_defined_flag => 'N'
709: );
710: IF l_return_status = FND_API.g_ret_sts_error THEN
711: RAISE FND_API.g_exc_error;
712: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
715:
716: end if;
709: );
710: IF l_return_status = FND_API.g_ret_sts_error THEN
711: RAISE FND_API.g_exc_error;
712: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
715:
716: end if;
717: -- end if;
719: ------------------------------------------------------
720:
721:
722: -------------------- finish --------------------------
723: IF FND_API.to_boolean(p_commit) THEN
724: COMMIT;
725: END IF;
726:
727: FND_MSG_PUB.count_and_get(
724: COMMIT;
725: END IF;
726:
727: FND_MSG_PUB.count_and_get(
728: p_encoded => FND_API.g_false,
729: p_count => x_msg_count,
730: p_data => x_msg_data
731: );
732:
739: END IF;
740:
741: EXCEPTION
742:
743: WHEN FND_API.g_exc_error THEN
744: ROLLBACK TO delete_access;
745: x_return_status := FND_API.g_ret_sts_error;
746: FND_MSG_PUB.count_and_get(
747: p_encoded => FND_API.g_false,
741: EXCEPTION
742:
743: WHEN FND_API.g_exc_error THEN
744: ROLLBACK TO delete_access;
745: x_return_status := FND_API.g_ret_sts_error;
746: FND_MSG_PUB.count_and_get(
747: p_encoded => FND_API.g_false,
748: p_count => x_msg_count,
749: p_data => x_msg_data
743: WHEN FND_API.g_exc_error THEN
744: ROLLBACK TO delete_access;
745: x_return_status := FND_API.g_ret_sts_error;
746: FND_MSG_PUB.count_and_get(
747: p_encoded => FND_API.g_false,
748: p_count => x_msg_count,
749: p_data => x_msg_data
750: );
751:
748: p_count => x_msg_count,
749: p_data => x_msg_data
750: );
751:
752: WHEN FND_API.g_exc_unexpected_error THEN
753: ROLLBACK TO delete_access;
754: x_return_status := FND_API.g_ret_sts_unexp_error ;
755: FND_MSG_PUB.count_and_get(
756: p_encoded => FND_API.g_false,
750: );
751:
752: WHEN FND_API.g_exc_unexpected_error THEN
753: ROLLBACK TO delete_access;
754: x_return_status := FND_API.g_ret_sts_unexp_error ;
755: FND_MSG_PUB.count_and_get(
756: p_encoded => FND_API.g_false,
757: p_count => x_msg_count,
758: p_data => x_msg_data
752: WHEN FND_API.g_exc_unexpected_error THEN
753: ROLLBACK TO delete_access;
754: x_return_status := FND_API.g_ret_sts_unexp_error ;
755: FND_MSG_PUB.count_and_get(
756: p_encoded => FND_API.g_false,
757: p_count => x_msg_count,
758: p_data => x_msg_data
759: );
760:
759: );
760:
761: WHEN OTHERS THEN
762: ROLLBACK TO delete_access;
763: x_return_status := FND_API.g_ret_sts_unexp_error ;
764:
765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
766: THEN
767: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
767: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
768: END IF;
769:
770: FND_MSG_PUB.count_and_get(
771: p_encoded => FND_API.g_false,
772: p_count => x_msg_count,
773: p_data => x_msg_data
774: );
775:
783: -- 10/12/99 abhola Create.
784: --------------------------------------------------------------------
785: PROCEDURE lock_access(
786: p_api_version IN NUMBER,
787: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
788: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
789:
790: x_return_status OUT NOCOPY VARCHAR2,
791: x_msg_count OUT NOCOPY NUMBER,
784: --------------------------------------------------------------------
785: PROCEDURE lock_access(
786: p_api_version IN NUMBER,
787: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
788: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
789:
790: x_return_status OUT NOCOPY VARCHAR2,
791: x_msg_count OUT NOCOPY NUMBER,
792: x_msg_data OUT NOCOPY VARCHAR2,
817:
818: AMS_Utility_PVT.debug_message(l_full_name||': start');
819: END IF;
820:
821: IF FND_API.to_boolean(p_init_msg_list) THEN
822: FND_MSG_PUB.initialize;
823: END IF;
824:
825: IF NOT FND_API.compatible_api_call(
821: IF FND_API.to_boolean(p_init_msg_list) THEN
822: FND_MSG_PUB.initialize;
823: END IF;
824:
825: IF NOT FND_API.compatible_api_call(
826: l_api_version,
827: p_api_version,
828: l_api_name,
829: g_pkg_name
827: p_api_version,
828: l_api_name,
829: g_pkg_name
830: ) THEN
831: RAISE FND_API.g_exc_unexpected_error;
832: END IF;
833:
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
830: ) THEN
831: RAISE FND_API.g_exc_unexpected_error;
832: END IF;
833:
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
836: ------------------------ lock -------------------------
837: IF (AMS_DEBUG_HIGH_ON) THEN
838:
846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
847: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
848: FND_MSG_PUB.add;
849: END IF;
850: RAISE FND_API.g_exc_error;
851: END IF;
852: CLOSE c_access_b;
853: -------------------- finish --------------------------
854: FND_MSG_PUB.count_and_get(
851: END IF;
852: CLOSE c_access_b;
853: -------------------- finish --------------------------
854: FND_MSG_PUB.count_and_get(
855: p_encoded => FND_API.g_false,
856: p_count => x_msg_count,
857: p_data => x_msg_data
858: );
859:
867:
868: EXCEPTION
869:
870: WHEN AMS_Utility_PVT.resource_locked THEN
871: x_return_status := FND_API.g_ret_sts_error;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
873: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
874: FND_MSG_PUB.add;
875: END IF;
874: FND_MSG_PUB.add;
875: END IF;
876:
877: FND_MSG_PUB.count_and_get(
878: p_encoded => FND_API.g_false,
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882:
879: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882:
883: WHEN FND_API.g_exc_error THEN
884: x_return_status := FND_API.g_ret_sts_error;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
880: p_data => x_msg_data
881: );
882:
883: WHEN FND_API.g_exc_error THEN
884: x_return_status := FND_API.g_ret_sts_error;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
882:
883: WHEN FND_API.g_exc_error THEN
884: x_return_status := FND_API.g_ret_sts_error;
885: FND_MSG_PUB.count_and_get(
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890:
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890:
891: WHEN FND_API.g_exc_unexpected_error THEN
892: x_return_status := FND_API.g_ret_sts_unexp_error ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
890:
891: WHEN FND_API.g_exc_unexpected_error THEN
892: x_return_status := FND_API.g_ret_sts_unexp_error ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
890:
891: WHEN FND_API.g_exc_unexpected_error THEN
892: x_return_status := FND_API.g_ret_sts_unexp_error ;
893: FND_MSG_PUB.count_and_get(
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );
898:
896: p_data => x_msg_data
897: );
898:
899: WHEN OTHERS THEN
900: x_return_status := FND_API.g_ret_sts_unexp_error ;
901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
902: THEN
903: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: END IF;
903: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: END IF;
905:
906: FND_MSG_PUB.count_and_get(
907: p_encoded => FND_API.g_false,
908: p_count => x_msg_count,
909: p_data => x_msg_data
910: );
911:
920: -- 10/12/99 abhola Create.
921: ----------------------------------------------------------------------
922: PROCEDURE update_access(
923: p_api_version IN NUMBER,
924: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
925: p_commit IN VARCHAR2 := FND_API.g_false,
926: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
927: x_return_status OUT NOCOPY VARCHAR2,
928: x_msg_count OUT NOCOPY NUMBER,
921: ----------------------------------------------------------------------
922: PROCEDURE update_access(
923: p_api_version IN NUMBER,
924: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
925: p_commit IN VARCHAR2 := FND_API.g_false,
926: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
927: x_return_status OUT NOCOPY VARCHAR2,
928: x_msg_count OUT NOCOPY NUMBER,
929: x_msg_data OUT NOCOPY VARCHAR2,
922: PROCEDURE update_access(
923: p_api_version IN NUMBER,
924: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
925: p_commit IN VARCHAR2 := FND_API.g_false,
926: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
927: x_return_status OUT NOCOPY VARCHAR2,
928: x_msg_count OUT NOCOPY NUMBER,
929: x_msg_data OUT NOCOPY VARCHAR2,
930: p_access_rec IN access_rec_type
983: AMS_Utility_PVT.debug_message(l_full_name||': start');
984:
985: END IF;
986:
987: IF FND_API.to_boolean(p_init_msg_list) THEN
988: FND_MSG_PUB.initialize;
989: END IF;
990:
991: IF NOT FND_API.compatible_api_call(
987: IF FND_API.to_boolean(p_init_msg_list) THEN
988: FND_MSG_PUB.initialize;
989: END IF;
990:
991: IF NOT FND_API.compatible_api_call(
992: l_api_version,
993: p_api_version,
994: l_api_name,
995: g_pkg_name
993: p_api_version,
994: l_api_name,
995: g_pkg_name
996: ) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
996: ) THEN
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: ----------------------- validate ----------------------
1003: IF (AMS_DEBUG_HIGH_ON) THEN
1004:
1011: p_validation_mode => JTF_PLSQL_API.g_update,
1012: x_return_status => l_return_status
1013: );
1014:
1015: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1016: RAISE FND_API.g_exc_unexpected_error;
1017: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1018: RAISE FND_API.g_exc_error;
1019: END IF;
1012: x_return_status => l_return_status
1013: );
1014:
1015: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1016: RAISE FND_API.g_exc_unexpected_error;
1017: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1018: RAISE FND_API.g_exc_error;
1019: END IF;
1020: END IF;
1013: );
1014:
1015: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1016: RAISE FND_API.g_exc_unexpected_error;
1017: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1018: RAISE FND_API.g_exc_error;
1019: END IF;
1020: END IF;
1021:
1014:
1015: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1016: RAISE FND_API.g_exc_unexpected_error;
1017: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1018: RAISE FND_API.g_exc_error;
1019: END IF;
1020: END IF;
1021:
1022: -- replace g_miss_char/num/date with current column values
1048: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1049: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1050: FND_MSG_PUB.add;
1051: END IF;
1052: RAISE FND_API.g_exc_error;
1053: END IF;
1054:
1055: /* Added by rrajesh on 09/12/01. to add access to schedules. */
1056: IF l_access_rec.arc_act_access_to_object = 'CAMP' THEN
1083: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1084: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1085: FND_MSG_PUB.add;
1086: END IF;
1087: RAISE FND_API.g_exc_error;
1088: END IF;
1089:
1090: ams_access_denorm_pvt.update_resource (
1091: p_resource_id => l_access_rec.user_or_role_id,
1096: x_msg_count => x_msg_count,
1097: x_msg_data => x_msg_data
1098: );
1099:
1100: IF l_return_status = FND_API.g_ret_sts_error THEN
1101: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1102: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1103: FND_MSG_PUB.add;
1104: RAISE FND_API.g_exc_error;
1100: IF l_return_status = FND_API.g_ret_sts_error THEN
1101: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1102: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1103: FND_MSG_PUB.add;
1104: RAISE FND_API.g_exc_error;
1105: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1106: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1107: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1108: FND_MSG_PUB.add;
1101: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1102: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1103: FND_MSG_PUB.add;
1104: RAISE FND_API.g_exc_error;
1105: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1106: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1107: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1108: FND_MSG_PUB.add;
1109: RAISE FND_API.g_exc_unexpected_error;
1105: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1106: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1107: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1108: FND_MSG_PUB.add;
1109: RAISE FND_API.g_exc_unexpected_error;
1110: END IF;
1111:
1112: END LOOP;
1113: CLOSE c_access_camp_schedules;
1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data
1128: );
1129:
1130: IF l_return_status = FND_API.g_ret_sts_error THEN
1131: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1132: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1133: FND_MSG_PUB.add;
1134: RAISE FND_API.g_exc_error;
1130: IF l_return_status = FND_API.g_ret_sts_error THEN
1131: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1132: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1133: FND_MSG_PUB.add;
1134: RAISE FND_API.g_exc_error;
1135: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1137: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1138: FND_MSG_PUB.add;
1131: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1132: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1133: FND_MSG_PUB.add;
1134: RAISE FND_API.g_exc_error;
1135: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1137: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1138: FND_MSG_PUB.add;
1139: RAISE FND_API.g_exc_unexpected_error;
1135: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1136: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1137: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1138: FND_MSG_PUB.add;
1139: RAISE FND_API.g_exc_unexpected_error;
1140: END IF;
1141:
1142: ELSIF l_access_rec.owner_flag = 'Y' THEN
1143:
1150: x_msg_count => x_msg_count,
1151: x_msg_data => x_msg_data
1152: );
1153:
1154: IF l_return_status = FND_API.g_ret_sts_error THEN
1155: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1156: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1157: FND_MSG_PUB.add;
1158: RAISE FND_API.g_exc_error;
1154: IF l_return_status = FND_API.g_ret_sts_error THEN
1155: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1156: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1157: FND_MSG_PUB.add;
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1161: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1162: FND_MSG_PUB.add;
1155: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1156: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1157: FND_MSG_PUB.add;
1158: RAISE FND_API.g_exc_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1161: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1162: FND_MSG_PUB.add;
1163: RAISE FND_API.g_exc_unexpected_error;
1159: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1160: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1161: -- FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1162: FND_MSG_PUB.add;
1163: RAISE FND_API.g_exc_unexpected_error;
1164: END IF;
1165:
1166: ams_access_denorm_pvt.insert_resource (
1167: p_resource_id => l_access_rec.user_or_role_id,
1172: x_msg_count => x_msg_count,
1173: x_msg_data => x_msg_data
1174: );
1175:
1176: IF l_return_status = FND_API.g_ret_sts_error THEN
1177: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1178: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1179: FND_MSG_PUB.add;
1180: RAISE FND_API.g_exc_error;
1176: IF l_return_status = FND_API.g_ret_sts_error THEN
1177: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1178: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1179: FND_MSG_PUB.add;
1180: RAISE FND_API.g_exc_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1183: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1184: FND_MSG_PUB.add;
1177: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1178: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1179: FND_MSG_PUB.add;
1180: RAISE FND_API.g_exc_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1183: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1184: FND_MSG_PUB.add;
1185: RAISE FND_API.g_exc_unexpected_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1183: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1184: FND_MSG_PUB.add;
1185: RAISE FND_API.g_exc_unexpected_error;
1186: END IF;
1187: END IF;
1188: END IF;
1189: -------------------- finish --------------------------
1186: END IF;
1187: END IF;
1188: END IF;
1189: -------------------- finish --------------------------
1190: IF FND_API.to_boolean(p_commit) THEN
1191: COMMIT;
1192: END IF;
1193:
1194: FND_MSG_PUB.count_and_get(
1191: COMMIT;
1192: END IF;
1193:
1194: FND_MSG_PUB.count_and_get(
1195: p_encoded => FND_API.g_false,
1196: p_count => x_msg_count,
1197: p_data => x_msg_data
1198: );
1199:
1206: END IF;
1207:
1208: EXCEPTION
1209:
1210: WHEN FND_API.g_exc_error THEN
1211: ROLLBACK TO update_access;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: FND_MSG_PUB.count_and_get(
1214: p_encoded => FND_API.g_false,
1208: EXCEPTION
1209:
1210: WHEN FND_API.g_exc_error THEN
1211: ROLLBACK TO update_access;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: FND_MSG_PUB.count_and_get(
1214: p_encoded => FND_API.g_false,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1210: WHEN FND_API.g_exc_error THEN
1211: ROLLBACK TO update_access;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: FND_MSG_PUB.count_and_get(
1214: p_encoded => FND_API.g_false,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1217: );
1218:
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1217: );
1218:
1219: WHEN FND_API.g_exc_unexpected_error THEN
1220: ROLLBACK TO update_access;
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222: FND_MSG_PUB.count_and_get(
1223: p_encoded => FND_API.g_false,
1217: );
1218:
1219: WHEN FND_API.g_exc_unexpected_error THEN
1220: ROLLBACK TO update_access;
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222: FND_MSG_PUB.count_and_get(
1223: p_encoded => FND_API.g_false,
1224: p_count => x_msg_count,
1225: p_data => x_msg_data
1219: WHEN FND_API.g_exc_unexpected_error THEN
1220: ROLLBACK TO update_access;
1221: x_return_status := FND_API.g_ret_sts_unexp_error ;
1222: FND_MSG_PUB.count_and_get(
1223: p_encoded => FND_API.g_false,
1224: p_count => x_msg_count,
1225: p_data => x_msg_data
1226: );
1227:
1226: );
1227:
1228: WHEN OTHERS THEN
1229: ROLLBACK TO update_access;
1230: x_return_status := FND_API.g_ret_sts_unexp_error ;
1231:
1232: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1233: THEN
1234: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1234: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1235: END IF;
1236:
1237: FND_MSG_PUB.count_and_get(
1238: p_encoded => FND_API.g_false,
1239: p_count => x_msg_count,
1240: p_data => x_msg_data
1241: );
1242:
1249: -- 02/12/2001 skarumur Create.
1250: ----------------------------------------------------------------------
1251: PROCEDURE update_object_owner(
1252: p_api_version IN NUMBER,
1253: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1254: p_commit IN VARCHAR2 := FND_API.g_false,
1255: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1256: x_return_status OUT NOCOPY VARCHAR2,
1257: x_msg_count OUT NOCOPY NUMBER,
1250: ----------------------------------------------------------------------
1251: PROCEDURE update_object_owner(
1252: p_api_version IN NUMBER,
1253: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1254: p_commit IN VARCHAR2 := FND_API.g_false,
1255: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1256: x_return_status OUT NOCOPY VARCHAR2,
1257: x_msg_count OUT NOCOPY NUMBER,
1258: x_msg_data OUT NOCOPY VARCHAR2,
1251: PROCEDURE update_object_owner(
1252: p_api_version IN NUMBER,
1253: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1254: p_commit IN VARCHAR2 := FND_API.g_false,
1255: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1256: x_return_status OUT NOCOPY VARCHAR2,
1257: x_msg_count OUT NOCOPY NUMBER,
1258: x_msg_data OUT NOCOPY VARCHAR2,
1259: p_object_type IN VARCHAR2,
1290: AMS_Utility_PVT.debug_message(l_full_name||': start');
1291:
1292: END IF;
1293:
1294: IF FND_API.to_boolean(p_init_msg_list) THEN
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1298: IF NOT FND_API.compatible_api_call(
1294: IF FND_API.to_boolean(p_init_msg_list) THEN
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1298: IF NOT FND_API.compatible_api_call(
1299: l_api_version,
1300: p_api_version,
1301: l_api_name,
1302: g_pkg_name
1300: p_api_version,
1301: l_api_name,
1302: g_pkg_name
1303: ) THEN
1304: RAISE FND_API.g_exc_unexpected_error;
1305: END IF;
1306:
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308:
1303: ) THEN
1304: RAISE FND_API.g_exc_unexpected_error;
1305: END IF;
1306:
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308:
1309: ----------------------- validate ----------------------
1310: IF (AMS_DEBUG_HIGH_ON) THEN
1311:
1352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1353: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1354: FND_MSG_PUB.add;
1355: END IF;
1356: RAISE FND_API.g_exc_error;
1357: END IF;
1358: -- END IF;
1359:
1360: ams_access_denorm_pvt.delete_resource (
1366: x_msg_count => x_msg_count,
1367: x_msg_data => x_msg_data
1368: );
1369:
1370: IF l_return_status = FND_API.g_ret_sts_error THEN
1371: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1372: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.g_exc_error;
1370: IF l_return_status = FND_API.g_ret_sts_error THEN
1371: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1372: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.g_exc_error;
1375: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1377: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1378: FND_MSG_PUB.add;
1371: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1372: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.g_exc_error;
1375: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1377: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1378: FND_MSG_PUB.add;
1379: RAISE FND_API.g_exc_unexpected_error;
1375: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1376: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_PROCESS_FAILED');
1377: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1378: FND_MSG_PUB.add;
1379: RAISE FND_API.g_exc_unexpected_error;
1380: END IF;
1381:
1382: ams_access_denorm_pvt.insert_resource (
1383: p_resource_id => p_resource_id,
1388: x_msg_count => x_msg_count,
1389: x_msg_data => x_msg_data
1390: );
1391:
1392: IF l_return_status = FND_API.g_ret_sts_error THEN
1393: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1394: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1395: FND_MSG_PUB.add;
1396: RAISE FND_API.g_exc_error;
1392: IF l_return_status = FND_API.g_ret_sts_error THEN
1393: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1394: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1395: FND_MSG_PUB.add;
1396: RAISE FND_API.g_exc_error;
1397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1399: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1400: FND_MSG_PUB.add;
1393: FND_MESSAGE.set_name('AMS', 'AMS_DENORM_PROCESS_FAILED');
1394: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1395: FND_MSG_PUB.add;
1396: RAISE FND_API.g_exc_error;
1397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1399: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1400: FND_MSG_PUB.add;
1401: RAISE FND_API.g_exc_unexpected_error;
1397: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_INSERT_DENORM_FAILED');
1399: --FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
1400: FND_MSG_PUB.add;
1401: RAISE FND_API.g_exc_unexpected_error;
1402: END IF;
1403:
1404: -------------------- finish --------------------------
1405: IF FND_API.to_boolean(p_commit) THEN
1401: RAISE FND_API.g_exc_unexpected_error;
1402: END IF;
1403:
1404: -------------------- finish --------------------------
1405: IF FND_API.to_boolean(p_commit) THEN
1406: COMMIT;
1407: END IF;
1408:
1409: FND_MSG_PUB.count_and_get(
1406: COMMIT;
1407: END IF;
1408:
1409: FND_MSG_PUB.count_and_get(
1410: p_encoded => FND_API.g_false,
1411: p_count => x_msg_count,
1412: p_data => x_msg_data
1413: );
1414:
1421: END IF;
1422:
1423: EXCEPTION
1424:
1425: WHEN FND_API.g_exc_error THEN
1426: ROLLBACK TO update_owner;
1427: x_return_status := FND_API.g_ret_sts_error;
1428: FND_MSG_PUB.count_and_get(
1429: p_encoded => FND_API.g_false,
1423: EXCEPTION
1424:
1425: WHEN FND_API.g_exc_error THEN
1426: ROLLBACK TO update_owner;
1427: x_return_status := FND_API.g_ret_sts_error;
1428: FND_MSG_PUB.count_and_get(
1429: p_encoded => FND_API.g_false,
1430: p_count => x_msg_count,
1431: p_data => x_msg_data
1425: WHEN FND_API.g_exc_error THEN
1426: ROLLBACK TO update_owner;
1427: x_return_status := FND_API.g_ret_sts_error;
1428: FND_MSG_PUB.count_and_get(
1429: p_encoded => FND_API.g_false,
1430: p_count => x_msg_count,
1431: p_data => x_msg_data
1432: );
1433:
1430: p_count => x_msg_count,
1431: p_data => x_msg_data
1432: );
1433:
1434: WHEN FND_API.g_exc_unexpected_error THEN
1435: ROLLBACK TO update_owner;
1436: x_return_status := FND_API.g_ret_sts_unexp_error ;
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.g_false,
1432: );
1433:
1434: WHEN FND_API.g_exc_unexpected_error THEN
1435: ROLLBACK TO update_owner;
1436: x_return_status := FND_API.g_ret_sts_unexp_error ;
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.g_false,
1439: p_count => x_msg_count,
1440: p_data => x_msg_data
1434: WHEN FND_API.g_exc_unexpected_error THEN
1435: ROLLBACK TO update_owner;
1436: x_return_status := FND_API.g_ret_sts_unexp_error ;
1437: FND_MSG_PUB.count_and_get(
1438: p_encoded => FND_API.g_false,
1439: p_count => x_msg_count,
1440: p_data => x_msg_data
1441: );
1442:
1441: );
1442:
1443: WHEN OTHERS THEN
1444: ROLLBACK TO update_owner;
1445: x_return_status := FND_API.g_ret_sts_unexp_error ;
1446:
1447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1448: THEN
1449: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1449: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1450: END IF;
1451:
1452: FND_MSG_PUB.count_and_get(
1453: p_encoded => FND_API.g_false,
1454: p_count => x_msg_count,
1455: p_data => x_msg_data
1456: );
1457:
1464: -- 10/12/99 abhola Create.
1465: --------------------------------------------------------------------
1466: PROCEDURE validate_access(
1467: p_api_version IN NUMBER,
1468: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1469: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1470:
1471: x_return_status OUT NOCOPY VARCHAR2,
1472: x_msg_count OUT NOCOPY NUMBER,
1465: --------------------------------------------------------------------
1466: PROCEDURE validate_access(
1467: p_api_version IN NUMBER,
1468: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1469: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1470:
1471: x_return_status OUT NOCOPY VARCHAR2,
1472: x_msg_count OUT NOCOPY NUMBER,
1473: x_msg_data OUT NOCOPY VARCHAR2,
1503:
1504: AMS_Utility_PVT.debug_message(l_full_name||': start validate');
1505: END IF;
1506:
1507: IF FND_API.to_boolean(p_init_msg_list) THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510:
1511: IF NOT FND_API.compatible_api_call(
1507: IF FND_API.to_boolean(p_init_msg_list) THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510:
1511: IF NOT FND_API.compatible_api_call(
1512: l_api_version,
1513: p_api_version,
1514: l_api_name,
1515: g_pkg_name
1513: p_api_version,
1514: l_api_name,
1515: g_pkg_name
1516: ) THEN
1517: RAISE FND_API.g_exc_unexpected_error;
1518: END IF;
1519:
1520: x_return_status := FND_API.g_ret_sts_success;
1521:
1516: ) THEN
1517: RAISE FND_API.g_exc_unexpected_error;
1518: END IF;
1519:
1520: x_return_status := FND_API.g_ret_sts_success;
1521:
1522: ---------------------- validate ------------------------
1523: IF (AMS_DEBUG_HIGH_ON) THEN
1524:
1531: p_validation_mode => JTF_PLSQL_API.g_create,
1532: x_return_status => l_return_status
1533: );
1534:
1535: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1536: RAISE FND_API.g_exc_unexpected_error;
1537: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: END IF;
1532: x_return_status => l_return_status
1533: );
1534:
1535: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1536: RAISE FND_API.g_exc_unexpected_error;
1537: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: END IF;
1540: END IF;
1533: );
1534:
1535: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1536: RAISE FND_API.g_exc_unexpected_error;
1537: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: END IF;
1540: END IF;
1541:
1534:
1535: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1536: RAISE FND_API.g_exc_unexpected_error;
1537: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1538: RAISE FND_API.g_exc_error;
1539: END IF;
1540: END IF;
1541:
1542: IF (AMS_DEBUG_HIGH_ON) THEN
1567: END IF;
1568: FND_MSG_PUB.add;
1569: END IF;
1570: CLOSE c_check_dup;
1571: RAISE FND_API.g_exc_error;
1572: END IF;
1573: CLOSE c_check_dup;
1574: -------------------- finish --------------------------
1575: IF (AMS_DEBUG_HIGH_ON) THEN
1578: END IF;
1579:
1580: EXCEPTION
1581:
1582: WHEN FND_API.g_exc_error THEN
1583: x_return_status := FND_API.g_ret_sts_error;
1584: FND_MSG_PUB.count_and_get(
1585: p_encoded => FND_API.g_false,
1586: p_count => x_msg_count,
1579:
1580: EXCEPTION
1581:
1582: WHEN FND_API.g_exc_error THEN
1583: x_return_status := FND_API.g_ret_sts_error;
1584: FND_MSG_PUB.count_and_get(
1585: p_encoded => FND_API.g_false,
1586: p_count => x_msg_count,
1587: p_data => x_msg_data
1581:
1582: WHEN FND_API.g_exc_error THEN
1583: x_return_status := FND_API.g_ret_sts_error;
1584: FND_MSG_PUB.count_and_get(
1585: p_encoded => FND_API.g_false,
1586: p_count => x_msg_count,
1587: p_data => x_msg_data
1588: );
1589:
1586: p_count => x_msg_count,
1587: p_data => x_msg_data
1588: );
1589:
1590: WHEN FND_API.g_exc_unexpected_error THEN
1591: x_return_status := FND_API.g_ret_sts_unexp_error ;
1592: FND_MSG_PUB.count_and_get(
1593: p_encoded => FND_API.g_false,
1594: p_count => x_msg_count,
1587: p_data => x_msg_data
1588: );
1589:
1590: WHEN FND_API.g_exc_unexpected_error THEN
1591: x_return_status := FND_API.g_ret_sts_unexp_error ;
1592: FND_MSG_PUB.count_and_get(
1593: p_encoded => FND_API.g_false,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data
1589:
1590: WHEN FND_API.g_exc_unexpected_error THEN
1591: x_return_status := FND_API.g_ret_sts_unexp_error ;
1592: FND_MSG_PUB.count_and_get(
1593: p_encoded => FND_API.g_false,
1594: p_count => x_msg_count,
1595: p_data => x_msg_data
1596: );
1597:
1595: p_data => x_msg_data
1596: );
1597:
1598: WHEN OTHERS THEN
1599: x_return_status := FND_API.g_ret_sts_unexp_error;
1600: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1601: THEN
1602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1603: END IF;
1602: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1603: END IF;
1604:
1605: FND_MSG_PUB.count_and_get(
1606: p_encoded => FND_API.g_false,
1607: p_count => x_msg_count,
1608: p_data => x_msg_data
1609: );
1610:
2065: AMS_Utility_PVT.debug_message(' start req item');
2066:
2067: END IF;
2068:
2069: x_return_status := FND_API.g_ret_sts_success;
2070:
2071: ------------------------ user_status_id --------------------------
2072: IF p_Access_rec.act_access_to_object_id IS NULL THEN
2073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2075: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT_ID');
2076: FND_MSG_PUB.add;
2077: END IF;
2078:
2079: x_return_status := FND_API.g_ret_sts_error;
2080: RETURN;
2081: END IF;
2082:
2083: IF p_Access_rec.arc_act_access_to_object IS NULL THEN
2086: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_OBJECT');
2087: FND_MSG_PUB.add;
2088: END IF;
2089:
2090: x_return_status := FND_API.g_ret_sts_error;
2091: RETURN;
2092: END IF;
2093:
2094: IF p_Access_rec.user_or_role_id IS NULL THEN
2097: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_ID');
2098: FND_MSG_PUB.add;
2099: END IF;
2100:
2101: x_return_status := FND_API.g_ret_sts_error;
2102: RETURN;
2103: END IF;
2104:
2105: IF p_Access_rec.arc_user_or_role_type IS NULL THEN
2108: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_NO_UR_TYPE');
2109: FND_MSG_PUB.add;
2110: END IF;
2111:
2112: x_return_status := FND_API.g_ret_sts_error;
2113: RETURN;
2114: END IF;
2115:
2116: IF (AMS_DEBUG_HIGH_ON) THEN
2135: THEN
2136: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUP_USER');
2137: FND_MSG_PUB.add;
2138: END IF;
2139: x_return_status := FND_API.g_ret_sts_error;
2140: RETURN;
2141: end if;
2142:
2143: END IF;
2164: IS
2165: l_valid_flag VARCHAR2(1);
2166: BEGIN
2167:
2168: x_return_status := FND_API.g_ret_sts_success;
2169:
2170: -- For create_Access, when Access_id is passed in, we need to
2171: -- check if this Access_id is unique.
2172: --
2175: THEN
2176: IF AMS_Utility_PVT.check_uniqueness(
2177: 'ams_act_access',
2178: 'activity_access_id = ' || p_Access_rec.activity_access_id
2179: ) = FND_API.g_false
2180: THEN
2181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2182: THEN
2183: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2182: THEN
2183: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_DUPLICATE_ID');
2184: FND_MSG_PUB.add;
2185: END IF;
2186: x_return_status := FND_API.g_ret_sts_error;
2187: RETURN;
2188: END IF;
2189: END IF;
2190:
2204: )
2205: IS
2206: BEGIN
2207:
2208: x_return_status := FND_API.g_ret_sts_success;
2209:
2210: ------------------user or role id ---------------------------------------
2211: IF p_Access_rec.user_or_role_id <> FND_API.g_miss_num THEN
2212:
2207:
2208: x_return_status := FND_API.g_ret_sts_success;
2209:
2210: ------------------user or role id ---------------------------------------
2211: IF p_Access_rec.user_or_role_id <> FND_API.g_miss_num THEN
2212:
2213: if UPPER(p_Access_rec.arc_user_or_role_type) = 'USER' THEN
2214:
2215: IF AMS_Utility_PVT.check_fk_exists(
2215: IF AMS_Utility_PVT.check_fk_exists(
2216: 'ams_jtf_rs_emp_v',
2217: 'RESOURCE_ID',
2218: p_Access_rec.user_or_role_id
2219: ) = FND_API.g_false
2220: THEN
2221: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2222: THEN
2223: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2223: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_ID');
2224: FND_MSG_PUB.add;
2225: END IF;
2226:
2227: x_return_status := FND_API.g_ret_sts_error;
2228: RETURN;
2229: END IF;
2230: END IF;
2231:
2237: --'JTF_RS_GROUPS_VL',
2238: 'JTF_RS_GROUPS_B',
2239: 'GROUP_ID',
2240: p_Access_rec.user_or_role_id
2241: ) = FND_API.g_false
2242: THEN
2243: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2244: THEN
2245: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2245: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_GROUP_ID');
2246: FND_MSG_PUB.add;
2247: END IF;
2248:
2249: x_return_status := FND_API.g_ret_sts_error;
2250: RETURN;
2251: END IF;
2252: END IF;
2253:
2273: )
2274: IS
2275: BEGIN
2276:
2277: x_return_status := FND_API.g_ret_sts_success;
2278:
2279: ----------------------- access to object ------------------------
2280: IF p_Access_rec.arc_act_access_to_object <> FND_API.g_miss_char THEN
2281:
2276:
2277: x_return_status := FND_API.g_ret_sts_success;
2278:
2279: ----------------------- access to object ------------------------
2280: IF p_Access_rec.arc_act_access_to_object <> FND_API.g_miss_char THEN
2281:
2282: /*
2283: IF AMS_Utility_PVT.check_lookup_exists(
2284: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2282: /*
2283: IF AMS_Utility_PVT.check_lookup_exists(
2284: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2285: p_lookup_code => p_Access_rec.arc_act_access_to_object
2286: ) = FND_API.g_false
2287: THEN
2288: */
2289: /*
2290: IF AMS_Utility_PVT.check_lookup_exists(
2290: IF AMS_Utility_PVT.check_lookup_exists(
2291: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2292: p_lookup_code => p_Access_rec.arc_user_or_role_type,
2293: p_view_application_id => fnd_global.resp_appl_id
2294: ) = FND_API.g_false
2295: THEN
2296: */
2297: -- Correcting the p_lookup_code value getting passed for bug# 2419540
2298: -- Team concept is being used by mulitple applications. In some cases
2304: IF AMS_Utility_PVT.check_lookup_exists(
2305: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2306: p_lookup_code => p_Access_rec.arc_act_access_to_object,
2307: p_view_application_id => fnd_global.resp_appl_id
2308: ) = FND_API.g_false
2309: THEN
2310: IF AMS_Utility_PVT.check_lookup_exists(
2311: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2312: p_lookup_code => p_Access_rec.arc_act_access_to_object,
2310: IF AMS_Utility_PVT.check_lookup_exists(
2311: p_lookup_type => 'AMS_SYS_ARC_QUALIFIER',
2312: p_lookup_code => p_Access_rec.arc_act_access_to_object,
2313: p_view_application_id => 530
2314: ) = FND_API.g_false
2315: THEN
2316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2317: THEN
2318: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2317: THEN
2318: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_SYS_ARC');
2319: FND_MSG_PUB.add;
2320: END IF;
2321: x_return_status := FND_API.g_ret_sts_error;
2322: RETURN;
2323: END IF;
2324: END IF;
2325: END IF;
2324: END IF;
2325: END IF;
2326:
2327: ------------------user or role type ---------------------------------------
2328: IF p_Access_rec.arc_user_or_role_type <> FND_API.g_miss_char THEN
2329: /*
2330: IF AMS_Utility_PVT.check_lookup_exists(
2331: p_lookup_type => 'AMS_ACCESS_TYPE',
2332: p_lookup_code => p_Access_rec.arc_user_or_role_type
2329: /*
2330: IF AMS_Utility_PVT.check_lookup_exists(
2331: p_lookup_type => 'AMS_ACCESS_TYPE',
2332: p_lookup_code => p_Access_rec.arc_user_or_role_type
2333: ) = FND_API.g_false
2334: THEN
2335: */
2336: -- User and Group lookups should exist only in AMS, and hence using 530
2337: IF AMS_Utility_PVT.check_lookup_exists(
2337: IF AMS_Utility_PVT.check_lookup_exists(
2338: p_lookup_type => 'AMS_ACCESS_TYPE',
2339: p_lookup_code => p_Access_rec.arc_user_or_role_type,
2340: p_view_application_id => 530
2341: ) = FND_API.g_false
2342: THEN
2343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2344: THEN
2345: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2345: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_USER_TYPE');
2346: FND_MSG_PUB.add;
2347: END IF;
2348:
2349: x_return_status := FND_API.g_ret_sts_error;
2350: RETURN;
2351: END IF;
2352: END IF;
2353:
2367: )
2368: IS
2369: BEGIN
2370:
2371: x_return_status := FND_API.g_ret_sts_success;
2372:
2373: ----------------------- admin_flag ------------------------
2374: IF p_Access_rec.admin_flag <> FND_API.g_miss_char
2375: AND p_Access_rec.admin_flag IS NOT NULL
2370:
2371: x_return_status := FND_API.g_ret_sts_success;
2372:
2373: ----------------------- admin_flag ------------------------
2374: IF p_Access_rec.admin_flag <> FND_API.g_miss_char
2375: AND p_Access_rec.admin_flag IS NOT NULL
2376: THEN
2377: IF AMS_Utility_PVT.is_Y_or_N(p_access_rec.admin_flag) = FND_API.g_false
2378: THEN
2373: ----------------------- admin_flag ------------------------
2374: IF p_Access_rec.admin_flag <> FND_API.g_miss_char
2375: AND p_Access_rec.admin_flag IS NOT NULL
2376: THEN
2377: IF AMS_Utility_PVT.is_Y_or_N(p_access_rec.admin_flag) = FND_API.g_false
2378: THEN
2379: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2380: THEN
2381: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2381: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_BAD_ADMIN_FLAG');
2382: FND_MSG_PUB.add;
2383: END IF;
2384:
2385: x_return_status := FND_API.g_ret_sts_error;
2386: RETURN;
2387: END IF;
2388: END IF;
2389:
2418:
2419: l_user_exist NUMBER;
2420: */
2421: BEGIN
2422: x_return_status := FND_API.g_ret_sts_success;
2423:
2424: IF (AMS_DEBUG_HIGH_ON) THEN
2425:
2426:
2432: p_Access_rec => p_Access_rec,
2433: x_return_status => x_return_status
2434: );
2435:
2436: IF x_return_status <> FND_API.g_ret_sts_success THEN
2437: RETURN;
2438: END IF;
2439:
2440: IF (AMS_DEBUG_HIGH_ON) THEN
2468:
2469:
2470: END IF;
2471:
2472: IF x_return_status <> FND_API.g_ret_sts_success THEN
2473: RETURN;
2474: END IF;
2475: END;
2476: END IF;
2486: AMS_Utility_PVT.debug_message('FK check items success ');
2487:
2488: END IF;
2489:
2490: IF x_return_status <> FND_API.g_ret_sts_success THEN
2491: RETURN;
2492: END IF;
2493:
2494: check_Access_lookup_items(
2495: p_Access_rec => p_Access_rec,
2496: x_return_status => x_return_status
2497: );
2498:
2499: IF x_return_status <> FND_API.g_ret_sts_success THEN
2500: RETURN;
2501: END IF;
2502:
2503: check_Access_flag_items(
2512: AMS_Utility_PVT.debug_message(' Flag check items success ');
2513:
2514: END IF;
2515:
2516: IF x_return_status <> FND_API.g_ret_sts_success THEN
2517: RETURN;
2518: END IF;
2519: -- addee by julou 29-nov-2001 ref. bug 2117645
2520: /*
2527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2528: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_USER_EXIST');
2529: FND_MSG_PUB.add;
2530: END IF;
2531: x_return_status := FND_API.g_ret_sts_error;
2532: END IF;
2533: END IF;
2534: */
2535: END check_Access_items;
2551: l_end_date DATE;
2552:
2553: BEGIN
2554:
2555: x_return_status := FND_API.g_ret_sts_success;
2556:
2557: IF p_Access_rec.active_from_date <> FND_API.g_miss_date
2558: OR p_Access_rec.active_to_date <> FND_API.g_miss_date
2559: THEN
2553: BEGIN
2554:
2555: x_return_status := FND_API.g_ret_sts_success;
2556:
2557: IF p_Access_rec.active_from_date <> FND_API.g_miss_date
2558: OR p_Access_rec.active_to_date <> FND_API.g_miss_date
2559: THEN
2560: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2561: l_start_date := p_complete_rec.active_from_date;
2554:
2555: x_return_status := FND_API.g_ret_sts_success;
2556:
2557: IF p_Access_rec.active_from_date <> FND_API.g_miss_date
2558: OR p_Access_rec.active_to_date <> FND_API.g_miss_date
2559: THEN
2560: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2561: l_start_date := p_complete_rec.active_from_date;
2562: ELSE
2556:
2557: IF p_Access_rec.active_from_date <> FND_API.g_miss_date
2558: OR p_Access_rec.active_to_date <> FND_API.g_miss_date
2559: THEN
2560: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2561: l_start_date := p_complete_rec.active_from_date;
2562: ELSE
2563: l_start_date := p_Access_rec.active_from_date;
2564: END IF;
2562: ELSE
2563: l_start_date := p_Access_rec.active_from_date;
2564: END IF;
2565:
2566: IF p_Access_rec.active_to_date = FND_API.g_miss_date THEN
2567: l_end_date := p_complete_rec.active_to_date;
2568: ELSE
2569: l_end_date := p_Access_rec.active_to_date;
2570: END IF;
2574: THEN
2575: FND_MESSAGE.set_name('AMS', 'AMS_ACCESS_INV_DATES');
2576: FND_MSG_PUB.add;
2577: END IF;
2578: x_return_status := FND_API.g_ret_sts_error;
2579: END IF;
2580: END IF;
2581:
2582: -- do other record level checkings
2596: )
2597: IS
2598: BEGIN
2599:
2600: x_Access_rec.activity_access_id := FND_API.g_miss_num;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2597: IS
2598: BEGIN
2599:
2600: x_Access_rec.activity_access_id := FND_API.g_miss_num;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2598: BEGIN
2599:
2600: x_Access_rec.activity_access_id := FND_API.g_miss_num;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2599:
2600: x_Access_rec.activity_access_id := FND_API.g_miss_num;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2600: x_Access_rec.activity_access_id := FND_API.g_miss_num;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2601: x_Access_rec.last_update_date := FND_API.g_miss_date;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2602: x_Access_rec.last_updated_by := FND_API.g_miss_num;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2603: x_Access_rec.creation_date := FND_API.g_miss_date;
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2604: x_Access_rec.created_by := FND_API.g_miss_num;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2605: x_Access_rec.last_update_login := FND_API.g_miss_num;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2606: x_Access_rec.object_version_number := FND_API.g_miss_num;
2607: x_Access_rec.act_access_to_object_id := FND_API.g_miss_num;
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2608: x_Access_rec.arc_act_access_to_object := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2615: x_Access_rec.admin_flag := FND_API.g_miss_char;
2616: x_Access_rec.owner_flag := FND_API.g_miss_char;
2609: x_Access_rec.user_or_role_id := FND_API.g_miss_num;
2610: x_Access_rec.arc_user_or_role_type := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2615: x_Access_rec.admin_flag := FND_API.g_miss_char;
2616: x_Access_rec.owner_flag := FND_API.g_miss_char;
2617: x_Access_rec.delete_flag := FND_API.g_miss_char;
2611:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2615: x_Access_rec.admin_flag := FND_API.g_miss_char;
2616: x_Access_rec.owner_flag := FND_API.g_miss_char;
2617: x_Access_rec.delete_flag := FND_API.g_miss_char;
2618:
2619:
2612: x_Access_rec.active_from_date := FND_API.g_miss_date;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2615: x_Access_rec.admin_flag := FND_API.g_miss_char;
2616: x_Access_rec.owner_flag := FND_API.g_miss_char;
2617: x_Access_rec.delete_flag := FND_API.g_miss_char;
2618:
2619:
2620: END init_Access_rec;
2613: x_Access_rec.active_to_date := FND_API.g_miss_date;
2614:
2615: x_Access_rec.admin_flag := FND_API.g_miss_char;
2616: x_Access_rec.owner_flag := FND_API.g_miss_char;
2617: x_Access_rec.delete_flag := FND_API.g_miss_char;
2618:
2619:
2620: END init_Access_rec;
2621:
2651: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2652: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2653: FND_MSG_PUB.add;
2654: END IF;
2655: RAISE FND_API.g_exc_error;
2656: END IF;
2657: CLOSE c_access;
2658:
2659:
2656: END IF;
2657: CLOSE c_access;
2658:
2659:
2660: IF p_Access_rec.act_access_to_object_id = FND_API.g_miss_num THEN
2661: x_complete_rec.act_access_to_object_id := l_Access_rec.act_access_to_object_id;
2662: END IF;
2663:
2664: IF p_Access_rec.arc_act_access_to_object = FND_API.g_miss_char THEN
2660: IF p_Access_rec.act_access_to_object_id = FND_API.g_miss_num THEN
2661: x_complete_rec.act_access_to_object_id := l_Access_rec.act_access_to_object_id;
2662: END IF;
2663:
2664: IF p_Access_rec.arc_act_access_to_object = FND_API.g_miss_char THEN
2665: x_complete_rec.arc_act_access_to_object := l_Access_rec.arc_act_access_to_object;
2666: END IF;
2667:
2668: IF p_Access_rec.user_or_role_id = FND_API.g_miss_num THEN
2664: IF p_Access_rec.arc_act_access_to_object = FND_API.g_miss_char THEN
2665: x_complete_rec.arc_act_access_to_object := l_Access_rec.arc_act_access_to_object;
2666: END IF;
2667:
2668: IF p_Access_rec.user_or_role_id = FND_API.g_miss_num THEN
2669: x_complete_rec.user_or_role_id := l_Access_rec.user_or_role_id;
2670: END IF;
2671:
2672: IF p_Access_rec.arc_user_or_role_type = FND_API.g_miss_char THEN
2668: IF p_Access_rec.user_or_role_id = FND_API.g_miss_num THEN
2669: x_complete_rec.user_or_role_id := l_Access_rec.user_or_role_id;
2670: END IF;
2671:
2672: IF p_Access_rec.arc_user_or_role_type = FND_API.g_miss_char THEN
2673: x_complete_rec.arc_user_or_role_type := l_Access_rec.arc_user_or_role_type;
2674: END IF;
2675:
2676: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2672: IF p_Access_rec.arc_user_or_role_type = FND_API.g_miss_char THEN
2673: x_complete_rec.arc_user_or_role_type := l_Access_rec.arc_user_or_role_type;
2674: END IF;
2675:
2676: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2677: x_complete_rec.active_from_date := l_Access_rec.active_from_date;
2678: END IF;
2679:
2680: IF p_Access_rec.active_to_date = FND_API.g_miss_date THEN
2676: IF p_Access_rec.active_from_date = FND_API.g_miss_date THEN
2677: x_complete_rec.active_from_date := l_Access_rec.active_from_date;
2678: END IF;
2679:
2680: IF p_Access_rec.active_to_date = FND_API.g_miss_date THEN
2681: x_complete_rec.active_to_date := l_Access_rec.active_to_date;
2682: END IF;
2683:
2684: IF p_Access_rec.admin_flag = FND_API.g_miss_char THEN
2680: IF p_Access_rec.active_to_date = FND_API.g_miss_date THEN
2681: x_complete_rec.active_to_date := l_Access_rec.active_to_date;
2682: END IF;
2683:
2684: IF p_Access_rec.admin_flag = FND_API.g_miss_char THEN
2685: x_complete_rec.admin_flag := l_Access_rec.admin_flag ;
2686: END IF;
2687:
2688: IF p_Access_rec.owner_flag = FND_API.g_miss_char THEN
2684: IF p_Access_rec.admin_flag = FND_API.g_miss_char THEN
2685: x_complete_rec.admin_flag := l_Access_rec.admin_flag ;
2686: END IF;
2687:
2688: IF p_Access_rec.owner_flag = FND_API.g_miss_char THEN
2689: x_complete_rec.owner_flag := l_Access_rec.owner_flag ;
2690: END IF;
2691:
2692: IF p_Access_rec.delete_flag = FND_API.g_miss_char THEN
2688: IF p_Access_rec.owner_flag = FND_API.g_miss_char THEN
2689: x_complete_rec.owner_flag := l_Access_rec.owner_flag ;
2690: END IF;
2691:
2692: IF p_Access_rec.delete_flag = FND_API.g_miss_char THEN
2693: x_complete_rec.delete_flag := l_Access_rec.delete_flag ;
2694: END IF;
2695:
2696: END complete_Access_rec;