[Home] [Help]
28: -- Search String : "BUG:1706709"
29: ---------------------------------------------------------------------
30: PROCEDURE Admin_Access(
31: p_api_version IN NUMBER
32: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
33: ,p_commit IN VARCHAR2 := FND_API.g_false
34: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
35:
36: ,x_return_status OUT NOCOPY VARCHAR2
29: ---------------------------------------------------------------------
30: PROCEDURE Admin_Access(
31: p_api_version IN NUMBER
32: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
33: ,p_commit IN VARCHAR2 := FND_API.g_false
34: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
35:
36: ,x_return_status OUT NOCOPY VARCHAR2
37: ,x_msg_count OUT NOCOPY NUMBER
30: PROCEDURE Admin_Access(
31: p_api_version IN NUMBER
32: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
33: ,p_commit IN VARCHAR2 := FND_API.g_false
34: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
35:
36: ,x_return_status OUT NOCOPY VARCHAR2
37: ,x_msg_count OUT NOCOPY NUMBER
38: ,x_msg_data OUT NOCOPY VARCHAR2
55:
56: l_object_version_number NUMBER := 1;
57:
58: -- For reference
59: -- FND_API. return value constants
60: -- G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := 'S';
61: -- G_RET_STS_ERROR CONSTANT VARCHAR2(1) := 'E';
62: -- G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := 'U';
63:
123: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
124: PVX_Utility_PVT.debug_message(l_full_name||': start');
125: END IF;
126:
127: IF FND_API.to_boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.initialize;
129: END IF;
130:
131: IF NOT FND_API.compatible_api_call(
127: IF FND_API.to_boolean(p_init_msg_list) THEN
128: FND_MSG_PUB.initialize;
129: END IF;
130:
131: IF NOT FND_API.compatible_api_call(
132: l_api_version,
133: p_api_version,
134: l_api_name,
135: g_pkg_name
133: p_api_version,
134: l_api_name,
135: g_pkg_name
136: ) THEN
137: RAISE FND_API.g_exc_unexpected_error;
138: END IF;
139:
140: x_return_status := FND_API.g_ret_sts_success;
141:
136: ) THEN
137: RAISE FND_API.g_exc_unexpected_error;
138: END IF;
139:
140: x_return_status := FND_API.g_ret_sts_success;
141:
142:
143: -------------------------- create --------------------------
144: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
151: IF l_admin_rec.partner_profile_id IS NULL THEN
152: FND_MESSAGE.set_name('PV', 'PV_MISC_NO_PROFILE_ID');
153: --FND_MESSAGE.set_token('ID',to_char(p_prtnr_prfls_rec.partner_id) );
154: FND_MSG_PUB.add;
155: x_return_status := FND_API.g_ret_sts_error;
156: RAISE FND_API.g_exc_error;
157: END IF;
158:
159:
152: FND_MESSAGE.set_name('PV', 'PV_MISC_NO_PROFILE_ID');
153: --FND_MESSAGE.set_token('ID',to_char(p_prtnr_prfls_rec.partner_id) );
154: FND_MSG_PUB.add;
155: x_return_status := FND_API.g_ret_sts_error;
156: RAISE FND_API.g_exc_error;
157: END IF;
158:
159:
160: -- Get the Partner Details
205:
206:
207: AS_ACCESS_PUB.Create_SalesTeam (
208: p_api_version_number => 2.0
209: ,p_init_msg_list => FND_API.g_true
210: -- ,p_commit => FND_API.g_true
211: ,p_validation_level => FND_API.g_valid_level_full
212:
213: ,p_access_profile_rec => NULL
206:
207: AS_ACCESS_PUB.Create_SalesTeam (
208: p_api_version_number => 2.0
209: ,p_init_msg_list => FND_API.g_true
210: -- ,p_commit => FND_API.g_true
211: ,p_validation_level => FND_API.g_valid_level_full
212:
213: ,p_access_profile_rec => NULL
214: ,p_check_access_flag => 'N'
207: AS_ACCESS_PUB.Create_SalesTeam (
208: p_api_version_number => 2.0
209: ,p_init_msg_list => FND_API.g_true
210: -- ,p_commit => FND_API.g_true
211: ,p_validation_level => FND_API.g_valid_level_full
212:
213: ,p_access_profile_rec => NULL
214: ,p_check_access_flag => 'N'
215: ,p_admin_flag => 'N'
222: ,x_msg_data => x_msg_data
223: ,x_access_id => x_access_id
224: );
225:
226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_LOGD_RES_ID');
228: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.logged_resource_id) );
229: FND_MSG_PUB.add;
230: END IF;
229: FND_MSG_PUB.add;
230: END IF;
231:
232:
233: IF x_return_status = FND_API.g_ret_sts_error THEN
234: RAISE FND_API.g_exc_error;
235: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
236: RAISE FND_API.g_exc_unexpected_error;
237: END IF;
230: END IF;
231:
232:
233: IF x_return_status = FND_API.g_ret_sts_error THEN
234: RAISE FND_API.g_exc_error;
235: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
236: RAISE FND_API.g_exc_unexpected_error;
237: END IF;
238:
231:
232:
233: IF x_return_status = FND_API.g_ret_sts_error THEN
234: RAISE FND_API.g_exc_error;
235: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
236: RAISE FND_API.g_exc_unexpected_error;
237: END IF;
238:
239: END IF; -- IF logged_resource_id IS NOT NULL
232:
233: IF x_return_status = FND_API.g_ret_sts_error THEN
234: RAISE FND_API.g_exc_error;
235: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
236: RAISE FND_API.g_exc_unexpected_error;
237: END IF;
238:
239: END IF; -- IF logged_resource_id IS NOT NULL
240:
254: IF l_user_id IS NULL THEN
255: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
256: FND_MESSAGE.set_token('ENTITY',l_source_name );
257: FND_MSG_PUB.add;
258: x_return_status := FND_API.g_ret_sts_error;
259: RAISE FND_API.g_exc_error;
260: END IF;
261:
262:
255: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
256: FND_MESSAGE.set_token('ENTITY',l_source_name );
257: FND_MSG_PUB.add;
258: x_return_status := FND_API.g_ret_sts_error;
259: RAISE FND_API.g_exc_error;
260: END IF;
261:
262:
263: -- end bug.
294:
295:
296: AS_ACCESS_PUB.Create_SalesTeam (
297: p_api_version_number => 2.0
298: ,p_init_msg_list => FND_API.g_true
299: -- ,p_commit => FND_API.g_true
300: ,p_validation_level => FND_API.g_valid_level_full
301:
302: ,p_access_profile_rec => NULL
295:
296: AS_ACCESS_PUB.Create_SalesTeam (
297: p_api_version_number => 2.0
298: ,p_init_msg_list => FND_API.g_true
299: -- ,p_commit => FND_API.g_true
300: ,p_validation_level => FND_API.g_valid_level_full
301:
302: ,p_access_profile_rec => NULL
303: ,p_check_access_flag => 'N'
296: AS_ACCESS_PUB.Create_SalesTeam (
297: p_api_version_number => 2.0
298: ,p_init_msg_list => FND_API.g_true
299: -- ,p_commit => FND_API.g_true
300: ,p_validation_level => FND_API.g_valid_level_full
301:
302: ,p_access_profile_rec => NULL
303: ,p_check_access_flag => 'N'
304: ,p_admin_flag => 'N'
311: ,x_msg_data => x_msg_data
312: ,x_access_id => x_access_id
313: );
314:
315: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
316: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_CM_ID');
317: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.cm_id) );
318: FND_MSG_PUB.add;
319: END IF;
318: FND_MSG_PUB.add;
319: END IF;
320:
321:
322: IF x_return_status = FND_API.g_ret_sts_error THEN
323: RAISE FND_API.g_exc_error;
324: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
325: RAISE FND_API.g_exc_unexpected_error;
326: END IF;
319: END IF;
320:
321:
322: IF x_return_status = FND_API.g_ret_sts_error THEN
323: RAISE FND_API.g_exc_error;
324: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
325: RAISE FND_API.g_exc_unexpected_error;
326: END IF;
327:
320:
321:
322: IF x_return_status = FND_API.g_ret_sts_error THEN
323: RAISE FND_API.g_exc_error;
324: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
325: RAISE FND_API.g_exc_unexpected_error;
326: END IF;
327:
328: END IF; -- IF cm_id IS NOT NULL
321:
322: IF x_return_status = FND_API.g_ret_sts_error THEN
323: RAISE FND_API.g_exc_error;
324: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
325: RAISE FND_API.g_exc_unexpected_error;
326: END IF;
327:
328: END IF; -- IF cm_id IS NOT NULL
329:
341: IF l_user_id IS NULL THEN
342: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
343: FND_MESSAGE.set_token('ENTITY',l_source_name );
344: FND_MSG_PUB.add;
345: x_return_status := FND_API.g_ret_sts_error;
346: RAISE FND_API.g_exc_error;
347: END IF;
348:
349:
342: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
343: FND_MESSAGE.set_token('ENTITY',l_source_name );
344: FND_MSG_PUB.add;
345: x_return_status := FND_API.g_ret_sts_error;
346: RAISE FND_API.g_exc_error;
347: END IF;
348:
349:
350: -- end bug.
379:
380:
381: AS_ACCESS_PUB.Create_SalesTeam (
382: p_api_version_number => 2.0
383: ,p_init_msg_list => FND_API.g_true
384: -- ,p_commit => FND_API.g_true
385: ,p_validation_level => FND_API.g_valid_level_full
386:
387: ,p_access_profile_rec => NULL
380:
381: AS_ACCESS_PUB.Create_SalesTeam (
382: p_api_version_number => 2.0
383: ,p_init_msg_list => FND_API.g_true
384: -- ,p_commit => FND_API.g_true
385: ,p_validation_level => FND_API.g_valid_level_full
386:
387: ,p_access_profile_rec => NULL
388: ,p_check_access_flag => 'N'
381: AS_ACCESS_PUB.Create_SalesTeam (
382: p_api_version_number => 2.0
383: ,p_init_msg_list => FND_API.g_true
384: -- ,p_commit => FND_API.g_true
385: ,p_validation_level => FND_API.g_valid_level_full
386:
387: ,p_access_profile_rec => NULL
388: ,p_check_access_flag => 'N'
389: ,p_admin_flag => 'N'
396: ,x_msg_data => x_msg_data
397: ,x_access_id => x_access_id
398: );
399:
400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
401: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_REP_ID');
402: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.ph_support_rep) );
403: FND_MSG_PUB.add;
404: END IF;
402: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.ph_support_rep) );
403: FND_MSG_PUB.add;
404: END IF;
405:
406: IF x_return_status = FND_API.g_ret_sts_error THEN
407: RAISE FND_API.g_exc_error;
408: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
409: RAISE FND_API.g_exc_unexpected_error;
410: END IF;
403: FND_MSG_PUB.add;
404: END IF;
405:
406: IF x_return_status = FND_API.g_ret_sts_error THEN
407: RAISE FND_API.g_exc_error;
408: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
409: RAISE FND_API.g_exc_unexpected_error;
410: END IF;
411:
404: END IF;
405:
406: IF x_return_status = FND_API.g_ret_sts_error THEN
407: RAISE FND_API.g_exc_error;
408: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
409: RAISE FND_API.g_exc_unexpected_error;
410: END IF;
411:
412: END IF; -- IF l_admin_rec.ph_support_rep IS NOT NULL
405:
406: IF x_return_status = FND_API.g_ret_sts_error THEN
407: RAISE FND_API.g_exc_error;
408: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
409: RAISE FND_API.g_exc_unexpected_error;
410: END IF;
411:
412: END IF; -- IF l_admin_rec.ph_support_rep IS NOT NULL
413:
425: IF l_user_id IS NULL THEN
426: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
427: FND_MESSAGE.set_token('ENTITY',l_source_name );
428: FND_MSG_PUB.add;
429: x_return_status := FND_API.g_ret_sts_error;
430: RAISE FND_API.g_exc_error;
431: END IF;
432:
433: -- Populate the record
426: FND_MESSAGE.set_name('PV', 'PV_NOT_VALID_USER');
427: FND_MESSAGE.set_token('ENTITY',l_source_name );
428: FND_MSG_PUB.add;
429: x_return_status := FND_API.g_ret_sts_error;
430: RAISE FND_API.g_exc_error;
431: END IF;
432:
433: -- Populate the record
434: l_sales_team_rec.salesforce_id := l_admin_rec.cmm_id;
445: l_sales_team_rec.sales_group_id := l_group_id;
446:
447: AS_ACCESS_PUB.Create_SalesTeam (
448: p_api_version_number => 2.0
449: ,p_init_msg_list => FND_API.g_true
450: -- ,p_commit => FND_API.g_true
451: ,p_validation_level => FND_API.g_valid_level_full
452:
453: ,p_access_profile_rec => NULL
446:
447: AS_ACCESS_PUB.Create_SalesTeam (
448: p_api_version_number => 2.0
449: ,p_init_msg_list => FND_API.g_true
450: -- ,p_commit => FND_API.g_true
451: ,p_validation_level => FND_API.g_valid_level_full
452:
453: ,p_access_profile_rec => NULL
454: ,p_check_access_flag => 'N'
447: AS_ACCESS_PUB.Create_SalesTeam (
448: p_api_version_number => 2.0
449: ,p_init_msg_list => FND_API.g_true
450: -- ,p_commit => FND_API.g_true
451: ,p_validation_level => FND_API.g_valid_level_full
452:
453: ,p_access_profile_rec => NULL
454: ,p_check_access_flag => 'N'
455: ,p_admin_flag => 'N'
462: ,x_msg_data => x_msg_data
463: ,x_access_id => x_access_id
464: );
465:
466: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
467: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_CMM_ID');
468: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.cmm_id) );
469: FND_MSG_PUB.add;
470: END IF;
469: FND_MSG_PUB.add;
470: END IF;
471:
472:
473: IF x_return_status = FND_API.g_ret_sts_error THEN
474: RAISE FND_API.g_exc_error;
475: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
476: RAISE FND_API.g_exc_unexpected_error;
477: END IF;
470: END IF;
471:
472:
473: IF x_return_status = FND_API.g_ret_sts_error THEN
474: RAISE FND_API.g_exc_error;
475: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
476: RAISE FND_API.g_exc_unexpected_error;
477: END IF;
478:
471:
472:
473: IF x_return_status = FND_API.g_ret_sts_error THEN
474: RAISE FND_API.g_exc_error;
475: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
476: RAISE FND_API.g_exc_unexpected_error;
477: END IF;
478:
479: END IF; -- IF cmm_id IS NOT NULL
472:
473: IF x_return_status = FND_API.g_ret_sts_error THEN
474: RAISE FND_API.g_exc_error;
475: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
476: RAISE FND_API.g_exc_unexpected_error;
477: END IF;
478:
479: END IF; -- IF cmm_id IS NOT NULL
480:
482: ------------------------- finish -------------------------------
483:
484:
485: -- Check for commit
486: IF FND_API.to_boolean(p_commit) THEN
487: COMMIT;
488: END IF;
489:
490: FND_MSG_PUB.count_and_get(
487: COMMIT;
488: END IF;
489:
490: FND_MSG_PUB.count_and_get(
491: p_encoded => FND_API.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data
494: );
495:
499:
500:
501: EXCEPTION
502:
503: WHEN FND_API.g_exc_error THEN
504: ROLLBACK TO Admin_Access;
505: x_return_status := FND_API.g_ret_sts_error;
506: FND_MSG_PUB.count_and_get (
507: p_encoded => FND_API.g_false
501: EXCEPTION
502:
503: WHEN FND_API.g_exc_error THEN
504: ROLLBACK TO Admin_Access;
505: x_return_status := FND_API.g_ret_sts_error;
506: FND_MSG_PUB.count_and_get (
507: p_encoded => FND_API.g_false
508: ,p_count => x_msg_count
509: ,p_data => x_msg_data
503: WHEN FND_API.g_exc_error THEN
504: ROLLBACK TO Admin_Access;
505: x_return_status := FND_API.g_ret_sts_error;
506: FND_MSG_PUB.count_and_get (
507: p_encoded => FND_API.g_false
508: ,p_count => x_msg_count
509: ,p_data => x_msg_data
510: );
511:
508: ,p_count => x_msg_count
509: ,p_data => x_msg_data
510: );
511:
512: WHEN FND_API.g_exc_unexpected_error THEN
513: ROLLBACK TO Admin_Access;
514: x_return_status := FND_API.g_ret_sts_unexp_error ;
515: FND_MSG_PUB.count_and_get (
516: p_encoded => FND_API.g_false
510: );
511:
512: WHEN FND_API.g_exc_unexpected_error THEN
513: ROLLBACK TO Admin_Access;
514: x_return_status := FND_API.g_ret_sts_unexp_error ;
515: FND_MSG_PUB.count_and_get (
516: p_encoded => FND_API.g_false
517: ,p_count => x_msg_count
518: ,p_data => x_msg_data
512: WHEN FND_API.g_exc_unexpected_error THEN
513: ROLLBACK TO Admin_Access;
514: x_return_status := FND_API.g_ret_sts_unexp_error ;
515: FND_MSG_PUB.count_and_get (
516: p_encoded => FND_API.g_false
517: ,p_count => x_msg_count
518: ,p_data => x_msg_data
519: );
520:
520:
521:
522: WHEN OTHERS THEN
523: ROLLBACK TO Admin_Access;
524: x_return_status := FND_API.g_ret_sts_unexp_error ;
525:
526: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
527: THEN
528: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
528: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
529: END IF;
530:
531: FND_MSG_PUB.count_and_get(
532: p_encoded => FND_API.g_false
533: ,p_count => x_msg_count
534: ,p_data => x_msg_data
535: );
536:
569: FETCH c_complete INTO l_admin_rec;
570: CLOSE c_complete;
571:
572: -- resource number
573: IF p_admin_rec.resource_number = FND_API.g_miss_num THEN
574: x_complete_rec.resource_number := l_admin_rec.resource_number;
575: END IF;
576:
577: -- resource name
574: x_complete_rec.resource_number := l_admin_rec.resource_number;
575: END IF;
576:
577: -- resource name
578: IF p_admin_rec.resource_name = FND_API.g_miss_char THEN
579: x_complete_rec.resource_name := l_admin_rec.source_name;
580: END IF;
581:
582: -- source name
579: x_complete_rec.resource_name := l_admin_rec.source_name;
580: END IF;
581:
582: -- source name
583: IF p_admin_rec.source_name = FND_API.g_miss_char THEN
584: x_complete_rec.source_name := l_admin_rec.source_name;
585: END IF;
586:
587: -- source org id
584: x_complete_rec.source_name := l_admin_rec.source_name;
585: END IF;
586:
587: -- source org id
588: IF p_admin_rec.source_org_id = FND_API.g_miss_num THEN
589: x_complete_rec.source_org_id := l_admin_rec.source_org_id;
590: END IF;
591:
592: -- first name
589: x_complete_rec.source_org_id := l_admin_rec.source_org_id;
590: END IF;
591:
592: -- first name
593: IF p_admin_rec.source_first_name = FND_API.g_miss_char THEN
594: x_complete_rec.source_first_name := l_admin_rec.source_first_name;
595: END IF;
596:
597: -- last name
594: x_complete_rec.source_first_name := l_admin_rec.source_first_name;
595: END IF;
596:
597: -- last name
598: IF p_admin_rec.source_last_name = FND_API.g_miss_char THEN
599: x_complete_rec.source_last_name := l_admin_rec.source_last_name;
600: END IF;
601:
602:
600: END IF;
601:
602:
603: -- middle name
604: IF p_admin_rec.source_middle_name = FND_API.g_miss_char THEN
605: x_complete_rec.source_middle_name := l_admin_rec.source_middle_name;
606: END IF;
607:
608: -- Note: Developers need to modify the procedure
641: -- address fields.
642: ---------------------------------------------------------------------
643: PROCEDURE Admin_Resource(
644: p_api_version IN NUMBER
645: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
646: ,p_commit IN VARCHAR2 := FND_API.g_false
647:
648: ,x_return_status OUT NOCOPY VARCHAR2
649: ,x_msg_count OUT NOCOPY NUMBER
642: ---------------------------------------------------------------------
643: PROCEDURE Admin_Resource(
644: p_api_version IN NUMBER
645: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
646: ,p_commit IN VARCHAR2 := FND_API.g_false
647:
648: ,x_return_status OUT NOCOPY VARCHAR2
649: ,x_msg_count OUT NOCOPY NUMBER
650: ,x_msg_data OUT NOCOPY VARCHAR2
699: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
700: PVX_Utility_PVT.debug_message(l_full_name||': start');
701: END IF;
702:
703: IF FND_API.to_boolean(p_init_msg_list) THEN
704: FND_MSG_PUB.initialize;
705: END IF;
706:
707: IF NOT FND_API.compatible_api_call(
703: IF FND_API.to_boolean(p_init_msg_list) THEN
704: FND_MSG_PUB.initialize;
705: END IF;
706:
707: IF NOT FND_API.compatible_api_call(
708: l_api_version,
709: p_api_version,
710: l_api_name,
711: g_pkg_name
709: p_api_version,
710: l_api_name,
711: g_pkg_name
712: ) THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
715:
716: x_return_status := FND_API.g_ret_sts_success;
717:
712: ) THEN
713: RAISE FND_API.g_exc_unexpected_error;
714: END IF;
715:
716: x_return_status := FND_API.g_ret_sts_success;
717:
718:
719: -------------------------- create --------------------------
720: /*
722: IF l_admin_rec.source_name IS NULL THEN
723: FND_MESSAGE.set_name('PV', 'PV_MISC_NO_SOURCE_NAME');
724: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.partner_id) );
725: FND_MSG_PUB.add;
726: RAISE FND_API.g_exc_error;
727: END IF;
728: */
729:
730: -- Get the address for the resource
747: END IF;
748:
749: JTF_RS_RESOURCE_PUB.Create_Resource(
750: p_api_version => 1.0
751: ,p_init_msg_list => FND_API.g_false
752: -- ,p_commit => FND_API.g_true
753: ,x_return_status => x_return_status
754: ,x_msg_count => x_msg_count
755: ,x_msg_data => x_msg_data
748:
749: JTF_RS_RESOURCE_PUB.Create_Resource(
750: p_api_version => 1.0
751: ,p_init_msg_list => FND_API.g_false
752: -- ,p_commit => FND_API.g_true
753: ,x_return_status => x_return_status
754: ,x_msg_count => x_msg_count
755: ,x_msg_data => x_msg_data
756:
793: );
794:
795: JTF_RS_RESOURCE_PUB.Update_Resource(
796: p_api_version => 1.0
797: ,p_init_msg_list => FND_API.g_false
798: ,p_resource_id => l_admin_complete_rec.role_resource_id
799: ,p_resource_number => l_admin_complete_rec.resource_number
800: -- ,p_start_date_active => SYSDATE
801: -- ,p_end_date_active => FND_API.g_miss_date
797: ,p_init_msg_list => FND_API.g_false
798: ,p_resource_id => l_admin_complete_rec.role_resource_id
799: ,p_resource_number => l_admin_complete_rec.resource_number
800: -- ,p_start_date_active => SYSDATE
801: -- ,p_end_date_active => FND_API.g_miss_date
802: ,p_resource_name => l_admin_complete_rec.resource_name -- resource_name
803: ,p_source_name => l_admin_complete_rec.source_name -- source_name
804:
805: ,p_source_org_id => l_admin_complete_rec.source_org_id -- source_org_id
843: PVX_Utility_PVT.debug_message(l_full_name ||': x_msg_data : ' || x_msg_data);
844: END IF;
845:
846:
847: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
848: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_RES_CREATION');
849: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.partner_id) );
850: FND_MSG_PUB.add;
851: END IF;
849: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.partner_id) );
850: FND_MSG_PUB.add;
851: END IF;
852:
853: IF x_return_status = FND_API.g_ret_sts_error THEN
854: RAISE FND_API.g_exc_error;
855: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
856: RAISE FND_API.g_exc_unexpected_error;
857: END IF;
850: FND_MSG_PUB.add;
851: END IF;
852:
853: IF x_return_status = FND_API.g_ret_sts_error THEN
854: RAISE FND_API.g_exc_error;
855: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
856: RAISE FND_API.g_exc_unexpected_error;
857: END IF;
858:
851: END IF;
852:
853: IF x_return_status = FND_API.g_ret_sts_error THEN
854: RAISE FND_API.g_exc_error;
855: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
856: RAISE FND_API.g_exc_unexpected_error;
857: END IF;
858:
859: ------------------------- finish -------------------------------
852:
853: IF x_return_status = FND_API.g_ret_sts_error THEN
854: RAISE FND_API.g_exc_error;
855: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
856: RAISE FND_API.g_exc_unexpected_error;
857: END IF;
858:
859: ------------------------- finish -------------------------------
860:
859: ------------------------- finish -------------------------------
860:
861:
862: -- Check for commit
863: IF FND_API.to_boolean(p_commit) THEN
864: COMMIT;
865: END IF;
866:
867: FND_MSG_PUB.count_and_get(
864: COMMIT;
865: END IF;
866:
867: FND_MSG_PUB.count_and_get(
868: p_encoded => FND_API.g_false,
869: p_count => x_msg_count,
870: p_data => x_msg_data
871: );
872:
875: END IF;
876:
877: EXCEPTION
878:
879: WHEN FND_API.g_exc_error THEN
880: ROLLBACK TO Admin_Resource;
881: x_return_status := FND_API.g_ret_sts_error;
882: FND_MSG_PUB.count_and_get (
883: p_encoded => FND_API.g_false
877: EXCEPTION
878:
879: WHEN FND_API.g_exc_error THEN
880: ROLLBACK TO Admin_Resource;
881: x_return_status := FND_API.g_ret_sts_error;
882: FND_MSG_PUB.count_and_get (
883: p_encoded => FND_API.g_false
884: ,p_count => x_msg_count
885: ,p_data => x_msg_data
879: WHEN FND_API.g_exc_error THEN
880: ROLLBACK TO Admin_Resource;
881: x_return_status := FND_API.g_ret_sts_error;
882: FND_MSG_PUB.count_and_get (
883: p_encoded => FND_API.g_false
884: ,p_count => x_msg_count
885: ,p_data => x_msg_data
886: );
887:
884: ,p_count => x_msg_count
885: ,p_data => x_msg_data
886: );
887:
888: WHEN FND_API.g_exc_unexpected_error THEN
889: ROLLBACK TO Admin_Resource;
890: x_return_status := FND_API.g_ret_sts_unexp_error ;
891: FND_MSG_PUB.count_and_get (
892: p_encoded => FND_API.g_false
886: );
887:
888: WHEN FND_API.g_exc_unexpected_error THEN
889: ROLLBACK TO Admin_Resource;
890: x_return_status := FND_API.g_ret_sts_unexp_error ;
891: FND_MSG_PUB.count_and_get (
892: p_encoded => FND_API.g_false
893: ,p_count => x_msg_count
894: ,p_data => x_msg_data
888: WHEN FND_API.g_exc_unexpected_error THEN
889: ROLLBACK TO Admin_Resource;
890: x_return_status := FND_API.g_ret_sts_unexp_error ;
891: FND_MSG_PUB.count_and_get (
892: p_encoded => FND_API.g_false
893: ,p_count => x_msg_count
894: ,p_data => x_msg_data
895: );
896:
896:
897:
898: WHEN OTHERS THEN
899: ROLLBACK TO Admin_Resource;
900: x_return_status := FND_API.g_ret_sts_unexp_error ;
901:
902: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
903: THEN
904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
905: END IF;
906:
907: FND_MSG_PUB.count_and_get(
908: p_encoded => FND_API.g_false
909: ,p_count => x_msg_count
910: ,p_data => x_msg_data
911: );
912:
920: -- 09/07/2000 Shitij Vatsa Create.
921: ---------------------------------------------------------------------
922: PROCEDURE Admin_Role(
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:
927: ,x_return_status OUT NOCOPY VARCHAR2
928: ,x_msg_count OUT NOCOPY NUMBER
921: ---------------------------------------------------------------------
922: PROCEDURE Admin_Role(
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:
927: ,x_return_status OUT NOCOPY VARCHAR2
928: ,x_msg_count OUT NOCOPY NUMBER
929: ,x_msg_data OUT NOCOPY VARCHAR2
958: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
959: PVX_Utility_PVT.debug_message(l_full_name||': start');
960: END IF;
961:
962: IF FND_API.to_boolean(p_init_msg_list) THEN
963: FND_MSG_PUB.initialize;
964: END IF;
965:
966: IF NOT FND_API.compatible_api_call(
962: IF FND_API.to_boolean(p_init_msg_list) THEN
963: FND_MSG_PUB.initialize;
964: END IF;
965:
966: IF NOT FND_API.compatible_api_call(
967: l_api_version,
968: p_api_version,
969: l_api_name,
970: g_pkg_name
968: p_api_version,
969: l_api_name,
970: g_pkg_name
971: ) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
974:
975: x_return_status := FND_API.g_ret_sts_success;
976:
971: ) THEN
972: RAISE FND_API.g_exc_unexpected_error;
973: END IF;
974:
975: x_return_status := FND_API.g_ret_sts_success;
976:
977:
978: -------------------------- create resource role relate --------------------------
979: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
988:
989: -- Call the resource API to create the resource
990: JTF_RS_ROLE_RELATE_PUB.Create_Resource_Role_Relate(
991: p_api_version => 1.0
992: ,p_init_msg_list => FND_API.g_false
993: -- ,p_commit => FND_API.g_true
994: ,x_return_status => x_return_status
995: ,x_msg_count => x_msg_count
996: ,x_msg_data => x_msg_data
989: -- Call the resource API to create the resource
990: JTF_RS_ROLE_RELATE_PUB.Create_Resource_Role_Relate(
991: p_api_version => 1.0
992: ,p_init_msg_list => FND_API.g_false
993: -- ,p_commit => FND_API.g_true
994: ,x_return_status => x_return_status
995: ,x_msg_count => x_msg_count
996: ,x_msg_data => x_msg_data
997:
1004: ,x_role_relate_id => x_role_relate_id
1005:
1006: );
1007:
1008: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1009: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_ROLE_RELATE');
1010: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.role_resource_id));
1011: FND_MSG_PUB.add;
1012: END IF;
1010: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.role_resource_id));
1011: FND_MSG_PUB.add;
1012: END IF;
1013:
1014: IF x_return_status = FND_API.g_ret_sts_error THEN
1015: RAISE FND_API.g_exc_error;
1016: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1017: RAISE FND_API.g_exc_unexpected_error;
1018: END IF;
1011: FND_MSG_PUB.add;
1012: END IF;
1013:
1014: IF x_return_status = FND_API.g_ret_sts_error THEN
1015: RAISE FND_API.g_exc_error;
1016: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1017: RAISE FND_API.g_exc_unexpected_error;
1018: END IF;
1019:
1012: END IF;
1013:
1014: IF x_return_status = FND_API.g_ret_sts_error THEN
1015: RAISE FND_API.g_exc_error;
1016: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1017: RAISE FND_API.g_exc_unexpected_error;
1018: END IF;
1019:
1020: ------------------------- finish -------------------------------
1013:
1014: IF x_return_status = FND_API.g_ret_sts_error THEN
1015: RAISE FND_API.g_exc_error;
1016: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1017: RAISE FND_API.g_exc_unexpected_error;
1018: END IF;
1019:
1020: ------------------------- finish -------------------------------
1021:
1020: ------------------------- finish -------------------------------
1021:
1022:
1023: -- Check for commit
1024: IF FND_API.to_boolean(p_commit) THEN
1025: COMMIT;
1026: END IF;
1027:
1028: FND_MSG_PUB.count_and_get(
1025: COMMIT;
1026: END IF;
1027:
1028: FND_MSG_PUB.count_and_get(
1029: p_encoded => FND_API.g_false,
1030: p_count => x_msg_count,
1031: p_data => x_msg_data
1032: );
1033:
1036: END IF;
1037:
1038: EXCEPTION
1039:
1040: WHEN FND_API.g_exc_error THEN
1041: ROLLBACK TO Admin_Role;
1042: x_return_status := FND_API.g_ret_sts_error;
1043: FND_MSG_PUB.count_and_get (
1044: p_encoded => FND_API.g_false
1038: EXCEPTION
1039:
1040: WHEN FND_API.g_exc_error THEN
1041: ROLLBACK TO Admin_Role;
1042: x_return_status := FND_API.g_ret_sts_error;
1043: FND_MSG_PUB.count_and_get (
1044: p_encoded => FND_API.g_false
1045: ,p_count => x_msg_count
1046: ,p_data => x_msg_data
1040: WHEN FND_API.g_exc_error THEN
1041: ROLLBACK TO Admin_Role;
1042: x_return_status := FND_API.g_ret_sts_error;
1043: FND_MSG_PUB.count_and_get (
1044: p_encoded => FND_API.g_false
1045: ,p_count => x_msg_count
1046: ,p_data => x_msg_data
1047: );
1048:
1045: ,p_count => x_msg_count
1046: ,p_data => x_msg_data
1047: );
1048:
1049: WHEN FND_API.g_exc_unexpected_error THEN
1050: ROLLBACK TO Admin_Role;
1051: x_return_status := FND_API.g_ret_sts_unexp_error ;
1052: FND_MSG_PUB.count_and_get (
1053: p_encoded => FND_API.g_false
1047: );
1048:
1049: WHEN FND_API.g_exc_unexpected_error THEN
1050: ROLLBACK TO Admin_Role;
1051: x_return_status := FND_API.g_ret_sts_unexp_error ;
1052: FND_MSG_PUB.count_and_get (
1053: p_encoded => FND_API.g_false
1054: ,p_count => x_msg_count
1055: ,p_data => x_msg_data
1049: WHEN FND_API.g_exc_unexpected_error THEN
1050: ROLLBACK TO Admin_Role;
1051: x_return_status := FND_API.g_ret_sts_unexp_error ;
1052: FND_MSG_PUB.count_and_get (
1053: p_encoded => FND_API.g_false
1054: ,p_count => x_msg_count
1055: ,p_data => x_msg_data
1056: );
1057:
1057:
1058:
1059: WHEN OTHERS THEN
1060: ROLLBACK TO Admin_Role;
1061: x_return_status := FND_API.g_ret_sts_unexp_error ;
1062:
1063: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1064: THEN
1065: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1065: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1066: END IF;
1067:
1068: FND_MSG_PUB.count_and_get(
1069: p_encoded => FND_API.g_false
1070: ,p_count => x_msg_count
1071: ,p_data => x_msg_data
1072: );
1073:
1081: -- 10/10/2000 Shitij Vatsa Create.
1082: ---------------------------------------------------------------------
1083: PROCEDURE Admin_Group(
1084: p_api_version IN NUMBER
1085: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1086: ,p_commit IN VARCHAR2 := FND_API.g_false
1087:
1088: ,x_return_status OUT NOCOPY VARCHAR2
1089: ,x_msg_count OUT NOCOPY NUMBER
1082: ---------------------------------------------------------------------
1083: PROCEDURE Admin_Group(
1084: p_api_version IN NUMBER
1085: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1086: ,p_commit IN VARCHAR2 := FND_API.g_false
1087:
1088: ,x_return_status OUT NOCOPY VARCHAR2
1089: ,x_msg_count OUT NOCOPY NUMBER
1090: ,x_msg_data OUT NOCOPY VARCHAR2
1139: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1140: PVX_Utility_PVT.debug_message(l_full_name||': start');
1141: END IF;
1142:
1143: IF FND_API.to_boolean(p_init_msg_list) THEN
1144: FND_MSG_PUB.initialize;
1145: END IF;
1146:
1147: IF NOT FND_API.compatible_api_call(
1143: IF FND_API.to_boolean(p_init_msg_list) THEN
1144: FND_MSG_PUB.initialize;
1145: END IF;
1146:
1147: IF NOT FND_API.compatible_api_call(
1148: l_api_version,
1149: p_api_version,
1150: l_api_name,
1151: g_pkg_name
1149: p_api_version,
1150: l_api_name,
1151: g_pkg_name
1152: ) THEN
1153: RAISE FND_API.g_exc_unexpected_error;
1154: END IF;
1155:
1156: x_return_status := FND_API.g_ret_sts_success;
1157:
1152: ) THEN
1153: RAISE FND_API.g_exc_unexpected_error;
1154: END IF;
1155:
1156: x_return_status := FND_API.g_ret_sts_success;
1157:
1158:
1159: -------------------------- create resource group --------------------------
1160: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1176: IF c_party_name%NOTFOUND THEN
1177: CLOSE c_party_name;
1178: FND_MESSAGE.set_name('PV', 'PV_DENY_INTERNAL_ORG_PROFILE');
1179: FND_MSG_PUB.add;
1180: RAISE FND_API.g_exc_error;
1181: ELSE
1182: CLOSE c_party_name;
1183: END IF;
1184:
1187: -- Call the Create_Resource_Group API to create the Group
1188:
1189: JTF_RS_GROUPS_PUB.Create_Resource_Group(
1190: p_api_version => 1.0
1191: ,p_init_msg_list => FND_API.g_false
1192: -- ,p_commit => FND_API.g_true
1193: ,x_return_status => x_return_status
1194: ,x_msg_count => x_msg_count
1195: ,x_msg_data => x_msg_data
1188:
1189: JTF_RS_GROUPS_PUB.Create_Resource_Group(
1190: p_api_version => 1.0
1191: ,p_init_msg_list => FND_API.g_false
1192: -- ,p_commit => FND_API.g_true
1193: ,x_return_status => x_return_status
1194: ,x_msg_count => x_msg_count
1195: ,x_msg_data => x_msg_data
1196:
1201: ,x_group_number => x_group_number
1202: );
1203: --DBMS_OUTPUT.PUT_LINE('x_group_id : '||TO_CHAR(x_group_id));
1204:
1205: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1206: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_GROUP_CREATE');
1207: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.partner_id));
1208: FND_MSG_PUB.add;
1209: END IF;
1207: FND_MESSAGE.set_token('ID',to_char(l_admin_rec.partner_id));
1208: FND_MSG_PUB.add;
1209: END IF;
1210:
1211: IF x_return_status = FND_API.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1208: FND_MSG_PUB.add;
1209: END IF;
1210:
1211: IF x_return_status = FND_API.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1209: END IF;
1210:
1211: IF x_return_status = FND_API.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1217: -------------------------- create group usage --------------------------
1210:
1211: IF x_return_status = FND_API.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1217: -------------------------- create group usage --------------------------
1218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1221:
1222: -- Call the Create_Group_Usage API to create the Group Usage
1223: JTF_RS_GROUP_USAGES_PUB.Create_Group_Usage(
1224: p_api_version => 1.0
1225: ,p_init_msg_list => FND_API.g_false
1226: -- ,p_commit => FND_API.g_true
1227: ,x_return_status => x_return_status
1228: ,x_msg_count => x_msg_count
1229: ,x_msg_data => x_msg_data
1222: -- Call the Create_Group_Usage API to create the Group Usage
1223: JTF_RS_GROUP_USAGES_PUB.Create_Group_Usage(
1224: p_api_version => 1.0
1225: ,p_init_msg_list => FND_API.g_false
1226: -- ,p_commit => FND_API.g_true
1227: ,x_return_status => x_return_status
1228: ,x_msg_count => x_msg_count
1229: ,x_msg_data => x_msg_data
1230:
1235: );
1236:
1237: --DBMS_OUTPUT.PUT_LINE('x_group_usage_id : '||TO_CHAR(x_group_usage_id));
1238:
1239: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1240: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_GROUP_USAGE');
1241: FND_MESSAGE.set_token('ID',to_char(x_group_id));
1242: FND_MSG_PUB.add;
1243: END IF;
1241: FND_MESSAGE.set_token('ID',to_char(x_group_id));
1242: FND_MSG_PUB.add;
1243: END IF;
1244:
1245: IF x_return_status = FND_API.g_ret_sts_error THEN
1246: RAISE FND_API.g_exc_error;
1247: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1248: RAISE FND_API.g_exc_unexpected_error;
1249: END IF;
1242: FND_MSG_PUB.add;
1243: END IF;
1244:
1245: IF x_return_status = FND_API.g_ret_sts_error THEN
1246: RAISE FND_API.g_exc_error;
1247: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1248: RAISE FND_API.g_exc_unexpected_error;
1249: END IF;
1250:
1243: END IF;
1244:
1245: IF x_return_status = FND_API.g_ret_sts_error THEN
1246: RAISE FND_API.g_exc_error;
1247: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1248: RAISE FND_API.g_exc_unexpected_error;
1249: END IF;
1250:
1251: -------------------------- create resource group member --------------------------
1244:
1245: IF x_return_status = FND_API.g_ret_sts_error THEN
1246: RAISE FND_API.g_exc_error;
1247: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1248: RAISE FND_API.g_exc_unexpected_error;
1249: END IF;
1250:
1251: -------------------------- create resource group member --------------------------
1252: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1255:
1256: -- Call the Create_Group_Usage API to create the Group Usage
1257: JTF_RS_GROUP_MEMBERS_PUB.Create_Resource_Group_Members(
1258: p_api_version => 1.0
1259: ,p_init_msg_list => FND_API.g_false
1260: -- ,p_commit => FND_API.g_true
1261: ,x_return_status => x_return_status
1262: ,x_msg_count => x_msg_count
1263: ,x_msg_data => x_msg_data
1256: -- Call the Create_Group_Usage API to create the Group Usage
1257: JTF_RS_GROUP_MEMBERS_PUB.Create_Resource_Group_Members(
1258: p_api_version => 1.0
1259: ,p_init_msg_list => FND_API.g_false
1260: -- ,p_commit => FND_API.g_true
1261: ,x_return_status => x_return_status
1262: ,x_msg_count => x_msg_count
1263: ,x_msg_data => x_msg_data
1264:
1270: );
1271:
1272: --DBMS_OUTPUT.PUT_LINE('x_group_member_id : '||TO_CHAR(x_group_member_id));
1273:
1274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1275: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_GROUP_MEMBER');
1276: FND_MESSAGE.set_token('ID1',to_char(l_admin_rec.role_resource_id));
1277: FND_MESSAGE.set_token('ID2',to_char(x_group_id));
1278: FND_MSG_PUB.add;
1277: FND_MESSAGE.set_token('ID2',to_char(x_group_id));
1278: FND_MSG_PUB.add;
1279: END IF;
1280:
1281: IF x_return_status = FND_API.g_ret_sts_error THEN
1282: RAISE FND_API.g_exc_error;
1283: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1284: RAISE FND_API.g_exc_unexpected_error;
1285: END IF;
1278: FND_MSG_PUB.add;
1279: END IF;
1280:
1281: IF x_return_status = FND_API.g_ret_sts_error THEN
1282: RAISE FND_API.g_exc_error;
1283: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1284: RAISE FND_API.g_exc_unexpected_error;
1285: END IF;
1286:
1279: END IF;
1280:
1281: IF x_return_status = FND_API.g_ret_sts_error THEN
1282: RAISE FND_API.g_exc_error;
1283: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1284: RAISE FND_API.g_exc_unexpected_error;
1285: END IF;
1286:
1287:
1280:
1281: IF x_return_status = FND_API.g_ret_sts_error THEN
1282: RAISE FND_API.g_exc_error;
1283: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1284: RAISE FND_API.g_exc_unexpected_error;
1285: END IF;
1286:
1287:
1288:
1289: ------------------------- finish -------------------------------
1290:
1291:
1292: -- Check for commit
1293: IF FND_API.to_boolean(p_commit) THEN
1294: COMMIT;
1295: END IF;
1296:
1297: FND_MSG_PUB.count_and_get(
1294: COMMIT;
1295: END IF;
1296:
1297: FND_MSG_PUB.count_and_get(
1298: p_encoded => FND_API.g_false,
1299: p_count => x_msg_count,
1300: p_data => x_msg_data
1301: );
1302:
1305: END IF;
1306:
1307: EXCEPTION
1308:
1309: WHEN FND_API.g_exc_error THEN
1310: ROLLBACK TO Admin_Group;
1311: x_return_status := FND_API.g_ret_sts_error;
1312: FND_MSG_PUB.count_and_get (
1313: p_encoded => FND_API.g_false
1307: EXCEPTION
1308:
1309: WHEN FND_API.g_exc_error THEN
1310: ROLLBACK TO Admin_Group;
1311: x_return_status := FND_API.g_ret_sts_error;
1312: FND_MSG_PUB.count_and_get (
1313: p_encoded => FND_API.g_false
1314: ,p_count => x_msg_count
1315: ,p_data => x_msg_data
1309: WHEN FND_API.g_exc_error THEN
1310: ROLLBACK TO Admin_Group;
1311: x_return_status := FND_API.g_ret_sts_error;
1312: FND_MSG_PUB.count_and_get (
1313: p_encoded => FND_API.g_false
1314: ,p_count => x_msg_count
1315: ,p_data => x_msg_data
1316: );
1317:
1314: ,p_count => x_msg_count
1315: ,p_data => x_msg_data
1316: );
1317:
1318: WHEN FND_API.g_exc_unexpected_error THEN
1319: ROLLBACK TO Admin_Group;
1320: x_return_status := FND_API.g_ret_sts_unexp_error ;
1321: FND_MSG_PUB.count_and_get (
1322: p_encoded => FND_API.g_false
1316: );
1317:
1318: WHEN FND_API.g_exc_unexpected_error THEN
1319: ROLLBACK TO Admin_Group;
1320: x_return_status := FND_API.g_ret_sts_unexp_error ;
1321: FND_MSG_PUB.count_and_get (
1322: p_encoded => FND_API.g_false
1323: ,p_count => x_msg_count
1324: ,p_data => x_msg_data
1318: WHEN FND_API.g_exc_unexpected_error THEN
1319: ROLLBACK TO Admin_Group;
1320: x_return_status := FND_API.g_ret_sts_unexp_error ;
1321: FND_MSG_PUB.count_and_get (
1322: p_encoded => FND_API.g_false
1323: ,p_count => x_msg_count
1324: ,p_data => x_msg_data
1325: );
1326:
1326:
1327:
1328: WHEN OTHERS THEN
1329: ROLLBACK TO Admin_Group;
1330: x_return_status := FND_API.g_ret_sts_unexp_error ;
1331:
1332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1333: THEN
1334: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1334: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1335: END IF;
1336:
1337: FND_MSG_PUB.count_and_get(
1338: p_encoded => FND_API.g_false
1339: ,p_count => x_msg_count
1340: ,p_data => x_msg_data
1341: );
1342: END Admin_Group;
1349: -- 10/11/2000 Shitij Vatsa Create.
1350: ---------------------------------------------------------------------
1351: PROCEDURE Admin_Group_Member(
1352: p_api_version IN NUMBER
1353: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1354: ,p_commit IN VARCHAR2 := FND_API.g_false
1355:
1356: ,x_return_status OUT NOCOPY VARCHAR2
1357: ,x_msg_count OUT NOCOPY NUMBER
1350: ---------------------------------------------------------------------
1351: PROCEDURE Admin_Group_Member(
1352: p_api_version IN NUMBER
1353: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1354: ,p_commit IN VARCHAR2 := FND_API.g_false
1355:
1356: ,x_return_status OUT NOCOPY VARCHAR2
1357: ,x_msg_count OUT NOCOPY NUMBER
1358: ,x_msg_data OUT NOCOPY VARCHAR2
1387: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1388: PVX_Utility_PVT.debug_message(l_full_name||': start');
1389: END IF;
1390:
1391: IF FND_API.to_boolean(p_init_msg_list) THEN
1392: FND_MSG_PUB.initialize;
1393: END IF;
1394:
1395: IF NOT FND_API.compatible_api_call(
1391: IF FND_API.to_boolean(p_init_msg_list) THEN
1392: FND_MSG_PUB.initialize;
1393: END IF;
1394:
1395: IF NOT FND_API.compatible_api_call(
1396: l_api_version,
1397: p_api_version,
1398: l_api_name,
1399: g_pkg_name
1397: p_api_version,
1398: l_api_name,
1399: g_pkg_name
1400: ) THEN
1401: RAISE FND_API.g_exc_unexpected_error;
1402: END IF;
1403:
1404: x_return_status := FND_API.g_ret_sts_success;
1405:
1400: ) THEN
1401: RAISE FND_API.g_exc_unexpected_error;
1402: END IF;
1403:
1404: x_return_status := FND_API.g_ret_sts_success;
1405:
1406:
1407: -------------------------- create resource group member --------------------------
1408: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1411:
1412: -- Call the Create_Group_Usage API to create the Group Usage
1413: JTF_RS_GROUP_MEMBERS_PUB.Create_Resource_Group_Members(
1414: p_api_version => 1.0
1415: ,p_init_msg_list => FND_API.g_false
1416: -- ,p_commit => FND_API.g_true
1417: ,x_return_status => x_return_status
1418: ,x_msg_count => x_msg_count
1419: ,x_msg_data => x_msg_data
1412: -- Call the Create_Group_Usage API to create the Group Usage
1413: JTF_RS_GROUP_MEMBERS_PUB.Create_Resource_Group_Members(
1414: p_api_version => 1.0
1415: ,p_init_msg_list => FND_API.g_false
1416: -- ,p_commit => FND_API.g_true
1417: ,x_return_status => x_return_status
1418: ,x_msg_count => x_msg_count
1419: ,x_msg_data => x_msg_data
1420:
1425: ,x_group_member_id => x_group_member_id
1426: );
1427:
1428:
1429: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1430: FND_MESSAGE.set_name('PV', 'PV_MISC_ERROR_GROUP_MEMBER');
1431: FND_MESSAGE.set_token('ID1',to_char(l_admin_rec.role_resource_id));
1432: FND_MESSAGE.set_token('ID2',to_char(l_admin_rec.group_id));
1433: FND_MSG_PUB.add;
1432: FND_MESSAGE.set_token('ID2',to_char(l_admin_rec.group_id));
1433: FND_MSG_PUB.add;
1434: END IF;
1435:
1436: IF x_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1433: FND_MSG_PUB.add;
1434: END IF;
1435:
1436: IF x_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1434: END IF;
1435:
1436: IF x_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1442: ------------------------- finish -------------------------------
1435:
1436: IF x_return_status = FND_API.g_ret_sts_error THEN
1437: RAISE FND_API.g_exc_error;
1438: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1439: RAISE FND_API.g_exc_unexpected_error;
1440: END IF;
1441:
1442: ------------------------- finish -------------------------------
1443:
1442: ------------------------- finish -------------------------------
1443:
1444:
1445: -- Check for commit
1446: IF FND_API.to_boolean(p_commit) THEN
1447: COMMIT;
1448: END IF;
1449:
1450: FND_MSG_PUB.count_and_get(
1447: COMMIT;
1448: END IF;
1449:
1450: FND_MSG_PUB.count_and_get(
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1454: );
1455:
1458: END IF;
1459:
1460: EXCEPTION
1461:
1462: WHEN FND_API.g_exc_error THEN
1463: ROLLBACK TO Admin_Group_Member;
1464: x_return_status := FND_API.g_ret_sts_error;
1465: FND_MSG_PUB.count_and_get (
1466: p_encoded => FND_API.g_false
1460: EXCEPTION
1461:
1462: WHEN FND_API.g_exc_error THEN
1463: ROLLBACK TO Admin_Group_Member;
1464: x_return_status := FND_API.g_ret_sts_error;
1465: FND_MSG_PUB.count_and_get (
1466: p_encoded => FND_API.g_false
1467: ,p_count => x_msg_count
1468: ,p_data => x_msg_data
1462: WHEN FND_API.g_exc_error THEN
1463: ROLLBACK TO Admin_Group_Member;
1464: x_return_status := FND_API.g_ret_sts_error;
1465: FND_MSG_PUB.count_and_get (
1466: p_encoded => FND_API.g_false
1467: ,p_count => x_msg_count
1468: ,p_data => x_msg_data
1469: );
1470:
1467: ,p_count => x_msg_count
1468: ,p_data => x_msg_data
1469: );
1470:
1471: WHEN FND_API.g_exc_unexpected_error THEN
1472: ROLLBACK TO Admin_Group_Member;
1473: x_return_status := FND_API.g_ret_sts_unexp_error ;
1474: FND_MSG_PUB.count_and_get (
1475: p_encoded => FND_API.g_false
1469: );
1470:
1471: WHEN FND_API.g_exc_unexpected_error THEN
1472: ROLLBACK TO Admin_Group_Member;
1473: x_return_status := FND_API.g_ret_sts_unexp_error ;
1474: FND_MSG_PUB.count_and_get (
1475: p_encoded => FND_API.g_false
1476: ,p_count => x_msg_count
1477: ,p_data => x_msg_data
1471: WHEN FND_API.g_exc_unexpected_error THEN
1472: ROLLBACK TO Admin_Group_Member;
1473: x_return_status := FND_API.g_ret_sts_unexp_error ;
1474: FND_MSG_PUB.count_and_get (
1475: p_encoded => FND_API.g_false
1476: ,p_count => x_msg_count
1477: ,p_data => x_msg_data
1478: );
1479:
1479:
1480:
1481: WHEN OTHERS THEN
1482: ROLLBACK TO Admin_Group_Member;
1483: x_return_status := FND_API.g_ret_sts_unexp_error ;
1484:
1485: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1486: THEN
1487: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1487: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1488: END IF;
1489:
1490: FND_MSG_PUB.count_and_get(
1491: p_encoded => FND_API.g_false
1492: ,p_count => x_msg_count
1493: ,p_data => x_msg_data
1494: );
1495: END Admin_Group_Member;
1502: -- HISTORY
1503: ---------------------------------------------------------------------
1504: PROCEDURE Update_User(
1505: p_api_version IN NUMBER
1506: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1507: ,p_commit IN VARCHAR2 := FND_API.g_false
1508: ,x_return_status OUT NOCOPY VARCHAR2
1509: ,x_msg_count OUT NOCOPY NUMBER
1510: ,x_msg_data OUT NOCOPY VARCHAR2
1503: ---------------------------------------------------------------------
1504: PROCEDURE Update_User(
1505: p_api_version IN NUMBER
1506: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1507: ,p_commit IN VARCHAR2 := FND_API.g_false
1508: ,x_return_status OUT NOCOPY VARCHAR2
1509: ,x_msg_count OUT NOCOPY NUMBER
1510: ,x_msg_data OUT NOCOPY VARCHAR2
1511: ,p_fnd_rec IN fnd_rec_type
1524: l_object_version_number NUMBER := 1;
1525: l_owner VARCHAR2(10) := 'PRM';
1526:
1527: -- For reference
1528: -- FND_API. return value constants
1529: -- G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := 'S';
1530: -- G_RET_STS_ERROR CONSTANT VARCHAR2(1) := 'E';
1531: -- G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := 'U';
1532:
1540: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1541: PVX_Utility_PVT.debug_message(l_full_name||': start');
1542: END IF;
1543:
1544: IF FND_API.to_boolean(p_init_msg_list) THEN
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547:
1548: IF NOT FND_API.compatible_api_call(
1544: IF FND_API.to_boolean(p_init_msg_list) THEN
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547:
1548: IF NOT FND_API.compatible_api_call(
1549: l_api_version,
1550: p_api_version,
1551: l_api_name,
1552: g_pkg_name
1550: p_api_version,
1551: l_api_name,
1552: g_pkg_name
1553: ) THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1556:
1557: x_return_status := FND_API.g_ret_sts_success;
1558:
1553: ) THEN
1554: RAISE FND_API.g_exc_unexpected_error;
1555: END IF;
1556:
1557: x_return_status := FND_API.g_ret_sts_success;
1558:
1559:
1560: -------------------------- create --------------------------
1561: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1566: -- If user_name IS NULL, raise an error
1567: IF l_fnd_rec.user_name IS NULL THEN
1568: FND_MESSAGE.set_name('PV', 'PV_FND_NO_USER_NAME');
1569: FND_MSG_PUB.add;
1570: x_return_status := FND_API.g_ret_sts_error;
1571: RAISE FND_API.g_exc_error;
1572: END IF;
1573:
1574:
1567: IF l_fnd_rec.user_name IS NULL THEN
1568: FND_MESSAGE.set_name('PV', 'PV_FND_NO_USER_NAME');
1569: FND_MSG_PUB.add;
1570: x_return_status := FND_API.g_ret_sts_error;
1571: RAISE FND_API.g_exc_error;
1572: END IF;
1573:
1574:
1575:
1580: ,X_END_DATE => l_fnd_rec.end_date
1581: ,X_EMAIL_ADDRESS => l_fnd_rec.email_address
1582: );
1583:
1584: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1585: FND_MESSAGE.set_name('PV', 'PV_ERROR_UPDATE_USER');
1586: FND_MSG_PUB.add;
1587: END IF;
1588:
1586: FND_MSG_PUB.add;
1587: END IF;
1588:
1589:
1590: IF x_return_status = FND_API.g_ret_sts_error THEN
1591: RAISE FND_API.g_exc_error;
1592: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1593: RAISE FND_API.g_exc_unexpected_error;
1594: END IF;
1587: END IF;
1588:
1589:
1590: IF x_return_status = FND_API.g_ret_sts_error THEN
1591: RAISE FND_API.g_exc_error;
1592: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1593: RAISE FND_API.g_exc_unexpected_error;
1594: END IF;
1595:
1588:
1589:
1590: IF x_return_status = FND_API.g_ret_sts_error THEN
1591: RAISE FND_API.g_exc_error;
1592: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1593: RAISE FND_API.g_exc_unexpected_error;
1594: END IF;
1595:
1596: -- Check for commit
1589:
1590: IF x_return_status = FND_API.g_ret_sts_error THEN
1591: RAISE FND_API.g_exc_error;
1592: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1593: RAISE FND_API.g_exc_unexpected_error;
1594: END IF;
1595:
1596: -- Check for commit
1597: IF FND_API.to_boolean(p_commit) THEN
1593: RAISE FND_API.g_exc_unexpected_error;
1594: END IF;
1595:
1596: -- Check for commit
1597: IF FND_API.to_boolean(p_commit) THEN
1598: COMMIT;
1599: END IF;
1600:
1601: FND_MSG_PUB.count_and_get(
1598: COMMIT;
1599: END IF;
1600:
1601: FND_MSG_PUB.count_and_get(
1602: p_encoded => FND_API.g_false,
1603: p_count => x_msg_count,
1604: p_data => x_msg_data
1605: );
1606:
1609: END IF;
1610:
1611: EXCEPTION
1612:
1613: WHEN FND_API.g_exc_error THEN
1614: ROLLBACK TO Update_User;
1615: x_return_status := FND_API.g_ret_sts_error;
1616: FND_MSG_PUB.count_and_get (
1617: p_encoded => FND_API.g_false
1611: EXCEPTION
1612:
1613: WHEN FND_API.g_exc_error THEN
1614: ROLLBACK TO Update_User;
1615: x_return_status := FND_API.g_ret_sts_error;
1616: FND_MSG_PUB.count_and_get (
1617: p_encoded => FND_API.g_false
1618: ,p_count => x_msg_count
1619: ,p_data => x_msg_data
1613: WHEN FND_API.g_exc_error THEN
1614: ROLLBACK TO Update_User;
1615: x_return_status := FND_API.g_ret_sts_error;
1616: FND_MSG_PUB.count_and_get (
1617: p_encoded => FND_API.g_false
1618: ,p_count => x_msg_count
1619: ,p_data => x_msg_data
1620: );
1621:
1618: ,p_count => x_msg_count
1619: ,p_data => x_msg_data
1620: );
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: ROLLBACK TO Update_User;
1624: x_return_status := FND_API.g_ret_sts_unexp_error ;
1625: FND_MSG_PUB.count_and_get (
1626: p_encoded => FND_API.g_false
1620: );
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: ROLLBACK TO Update_User;
1624: x_return_status := FND_API.g_ret_sts_unexp_error ;
1625: FND_MSG_PUB.count_and_get (
1626: p_encoded => FND_API.g_false
1627: ,p_count => x_msg_count
1628: ,p_data => x_msg_data
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: ROLLBACK TO Update_User;
1624: x_return_status := FND_API.g_ret_sts_unexp_error ;
1625: FND_MSG_PUB.count_and_get (
1626: p_encoded => FND_API.g_false
1627: ,p_count => x_msg_count
1628: ,p_data => x_msg_data
1629: );
1630:
1630:
1631:
1632: WHEN OTHERS THEN
1633: ROLLBACK TO Update_User;
1634: x_return_status := FND_API.g_ret_sts_unexp_error ;
1635:
1636: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1637: THEN
1638: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1638: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1639: END IF;
1640:
1641: FND_MSG_PUB.count_and_get(
1642: p_encoded => FND_API.g_false
1643: ,p_count => x_msg_count
1644: ,p_data => x_msg_data
1645: );
1646:
1654: -- 18/05/2001 Shitij Vatsa Create.
1655: ---------------------------------------------------------------------
1656: PROCEDURE Disable_Responsibility(
1657: p_api_version IN NUMBER
1658: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1659: ,p_commit IN VARCHAR2 := FND_API.g_false
1660:
1661: ,x_return_status OUT NOCOPY VARCHAR2
1662: ,x_msg_count OUT NOCOPY NUMBER
1655: ---------------------------------------------------------------------
1656: PROCEDURE Disable_Responsibility(
1657: p_api_version IN NUMBER
1658: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1659: ,p_commit IN VARCHAR2 := FND_API.g_false
1660:
1661: ,x_return_status OUT NOCOPY VARCHAR2
1662: ,x_msg_count OUT NOCOPY NUMBER
1663: ,x_msg_data OUT NOCOPY VARCHAR2
1705: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1706: PVX_Utility_PVT.debug_message(l_full_name||': start');
1707: END IF;
1708:
1709: IF FND_API.to_boolean(p_init_msg_list) THEN
1710: FND_MSG_PUB.initialize;
1711: END IF;
1712:
1713: IF NOT FND_API.compatible_api_call(
1709: IF FND_API.to_boolean(p_init_msg_list) THEN
1710: FND_MSG_PUB.initialize;
1711: END IF;
1712:
1713: IF NOT FND_API.compatible_api_call(
1714: l_api_version,
1715: p_api_version,
1716: l_api_name,
1717: g_pkg_name
1715: p_api_version,
1716: l_api_name,
1717: g_pkg_name
1718: ) THEN
1719: RAISE FND_API.g_exc_unexpected_error;
1720: END IF;
1721:
1722: x_return_status := FND_API.g_ret_sts_success;
1723:
1718: ) THEN
1719: RAISE FND_API.g_exc_unexpected_error;
1720: END IF;
1721:
1722: x_return_status := FND_API.g_ret_sts_success;
1723:
1724:
1725: -------------------------- create --------------------------
1726: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1734: ,l_fnd_rec.resp_app_id);
1735: FETCH cur_user_resp_detail INTO l_crec_user_resp_detail;
1736: CLOSE cur_user_resp_detail;
1737:
1738: -- Call the FND API to disable the user responsibility mapping.
1739: -- You need to pass the following mandatory parameters
1740: -- username: User Name
1741: -- resp_app: Application Short Name
1742: -- resp_key: Responsibility Key
1754: ------------------------- finish -------------------------------
1755:
1756:
1757: -- Check for commit
1758: IF FND_API.to_boolean(p_commit) THEN
1759: COMMIT;
1760: END IF;
1761:
1762: FND_MSG_PUB.count_and_get(
1759: COMMIT;
1760: END IF;
1761:
1762: FND_MSG_PUB.count_and_get(
1763: p_encoded => FND_API.g_false,
1764: p_count => x_msg_count,
1765: p_data => x_msg_data
1766: );
1767:
1770: END IF;
1771:
1772: EXCEPTION
1773:
1774: WHEN FND_API.g_exc_error THEN
1775: ROLLBACK TO Disable_Responsibility;
1776: x_return_status := FND_API.g_ret_sts_error;
1777: FND_MSG_PUB.count_and_get (
1778: p_encoded => FND_API.g_false
1772: EXCEPTION
1773:
1774: WHEN FND_API.g_exc_error THEN
1775: ROLLBACK TO Disable_Responsibility;
1776: x_return_status := FND_API.g_ret_sts_error;
1777: FND_MSG_PUB.count_and_get (
1778: p_encoded => FND_API.g_false
1779: ,p_count => x_msg_count
1780: ,p_data => x_msg_data
1774: WHEN FND_API.g_exc_error THEN
1775: ROLLBACK TO Disable_Responsibility;
1776: x_return_status := FND_API.g_ret_sts_error;
1777: FND_MSG_PUB.count_and_get (
1778: p_encoded => FND_API.g_false
1779: ,p_count => x_msg_count
1780: ,p_data => x_msg_data
1781: );
1782:
1779: ,p_count => x_msg_count
1780: ,p_data => x_msg_data
1781: );
1782:
1783: WHEN FND_API.g_exc_unexpected_error THEN
1784: ROLLBACK TO Disable_Responsibility;
1785: x_return_status := FND_API.g_ret_sts_unexp_error ;
1786: FND_MSG_PUB.count_and_get (
1787: p_encoded => FND_API.g_false
1781: );
1782:
1783: WHEN FND_API.g_exc_unexpected_error THEN
1784: ROLLBACK TO Disable_Responsibility;
1785: x_return_status := FND_API.g_ret_sts_unexp_error ;
1786: FND_MSG_PUB.count_and_get (
1787: p_encoded => FND_API.g_false
1788: ,p_count => x_msg_count
1789: ,p_data => x_msg_data
1783: WHEN FND_API.g_exc_unexpected_error THEN
1784: ROLLBACK TO Disable_Responsibility;
1785: x_return_status := FND_API.g_ret_sts_unexp_error ;
1786: FND_MSG_PUB.count_and_get (
1787: p_encoded => FND_API.g_false
1788: ,p_count => x_msg_count
1789: ,p_data => x_msg_data
1790: );
1791:
1791:
1792:
1793: WHEN OTHERS THEN
1794: ROLLBACK TO Disable_Responsibility;
1795: x_return_status := FND_API.g_ret_sts_unexp_error ;
1796:
1797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1798: THEN
1799: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1799: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1800: END IF;
1801:
1802: FND_MSG_PUB.count_and_get(
1803: p_encoded => FND_API.g_false
1804: ,p_count => x_msg_count
1805: ,p_data => x_msg_data
1806: );
1807:
1877: FND_FILE.PUT_LINE( FND_FILE.LOG, fnd_message.get );
1878: FND_FILE.NEW_LINE( FND_FILE.LOG, 1 );
1879:
1880:
1881: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1882:
1883: FOR l_partners_rec in c_partners LOOP
1884:
1885: l_total_partners := l_total_partners + 1;
1969: SAVEPOINT update_partner_status;
1970:
1971: PVX_PRTNR_PRFLS_PVT.Update_Prtnr_Prfls(
1972: p_api_version => l_api_version
1973: ,p_init_msg_list => FND_API.g_true
1974: ,p_commit => FND_API.g_false
1975: ,p_validation_level => FND_API.g_valid_level_full
1976: ,x_return_status => l_return_status
1977: ,x_msg_count => l_msg_count
1970:
1971: PVX_PRTNR_PRFLS_PVT.Update_Prtnr_Prfls(
1972: p_api_version => l_api_version
1973: ,p_init_msg_list => FND_API.g_true
1974: ,p_commit => FND_API.g_false
1975: ,p_validation_level => FND_API.g_valid_level_full
1976: ,x_return_status => l_return_status
1977: ,x_msg_count => l_msg_count
1978: ,x_msg_data => l_msg_data
1971: PVX_PRTNR_PRFLS_PVT.Update_Prtnr_Prfls(
1972: p_api_version => l_api_version
1973: ,p_init_msg_list => FND_API.g_true
1974: ,p_commit => FND_API.g_false
1975: ,p_validation_level => FND_API.g_valid_level_full
1976: ,x_return_status => l_return_status
1977: ,x_msg_count => l_msg_count
1978: ,x_msg_data => l_msg_data
1979: ,p_prtnr_prfls_rec => l_prtnr_prfls_rec
1978: ,x_msg_data => l_msg_data
1979: ,p_prtnr_prfls_rec => l_prtnr_prfls_rec
1980: );
1981:
1982: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
1983:
1984: ROLLBACK TO update_partner_status;
1985:
1986: l_error_partners := l_error_partners + 1;
1998: FND_FILE.PUT_LINE( FND_FILE.LOG, l_message );
1999: FND_FILE.NEW_LINE( FND_FILE.LOG, 1 );
2000:
2001: IF l_msg_count > 0 THEN
2002: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2003: while (l_message is not null)
2004: LOOP
2005: fnd_file.put_line(FND_FILE.LOG,substr(l_message,1,200));
2006: l_message := fnd_msg_pub.get(p_encoded => FND_API.g_false);
2002: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2003: while (l_message is not null)
2004: LOOP
2005: fnd_file.put_line(FND_FILE.LOG,substr(l_message,1,200));
2006: l_message := fnd_msg_pub.get(p_encoded => FND_API.g_false);
2007: END LOOP;
2008: END IF;
2009:
2010: END IF;
2204:
2205: BEGIN
2206:
2207: -- Set the l_return_status to SUCCESS before starting the processing of each Parnter.
2208: l_return_status := FND_API.g_ret_sts_success;
2209: SAVEPOINT create_cust_account;
2210: l_partner_info := l_ptnr_party_name_array(k) || ' (' || l_ptnr_party_id_array(k) || ')';
2211:
2212: IF (l_gen_cust_num is null or l_gen_cust_num = 'N') THEN
2217: account_rec.account_name := 'System Generated Account';
2218:
2219: HZ_CUST_ACCOUNT_V2PUB.create_cust_account
2220: (
2221: p_init_msg_list => FND_API.G_FALSE,
2222: p_cust_account_rec => account_rec,
2223: p_organization_rec => organization_rec,
2224: p_customer_profile_rec => cust_profile_rec,
2225: x_cust_account_id => l_cust_account_id,
2231: x_msg_count => l_msg_count,
2232: x_msg_data => l_msg_data
2233: );
2234:
2235: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238:
2239: EXCEPTION
2232: x_msg_data => l_msg_data
2233: );
2234:
2235: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238:
2239: EXCEPTION
2240:
2237: END IF;
2238:
2239: EXCEPTION
2240:
2241: WHEN Fnd_Api.G_EXC_ERROR THEN
2242:
2243: ROLLBACK TO create_cust_account;
2244: l_message := null;
2245: l_error_partners := l_error_partners + 1;
2245: l_error_partners := l_error_partners + 1;
2246: l_partner_info := l_ptnr_party_name_array(k) || ' (' || l_ptnr_party_id_array(k) || ')';
2247:
2248: IF l_msg_count > 0 THEN
2249: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2250: while (l_message is not null)
2251: LOOP
2252: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2253: END LOOP;
2248: IF l_msg_count > 0 THEN
2249: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2250: while (l_message is not null)
2251: LOOP
2252: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2253: END LOOP;
2254: END IF;
2255:
2256: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,50)||substr(l_message,1,500) );
2263: l_error_partners := l_error_partners + 1;
2264:
2265:
2266: IF l_msg_count > 0 THEN
2267: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2268: while (l_message is not null)
2269: LOOP
2270: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2271: END LOOP;
2266: IF l_msg_count > 0 THEN
2267: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2268: while (l_message is not null)
2269: LOOP
2270: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2271: END LOOP;
2272: END IF;
2273:
2274: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,50)||substr(l_message,1,500) );
2308: for k in 1 .. l_ptnr_cntct_id_array.count
2309: LOOP
2310:
2311: BEGIN
2312: l_return_status := FND_API.g_ret_sts_success;
2313: SAVEPOINT create_cust_account_role;
2314: l_partner_info := substr(l_ptnr_cntct_id_array(k),1,30) ||' '|| substr(l_account_id_array(k),1,30);
2315:
2316: cust_acct_roles_rec.party_id := l_ptnr_cntct_id_array(k);
2318: cust_acct_roles_rec.role_type := 'CONTACT';
2319: cust_acct_roles_rec.Created_by_Module := 'TCA_V2_API';
2320:
2321: HZ_CUST_ACCOUNT_ROLE_V2PUB.create_cust_account_role(
2322: p_init_msg_list => FND_API.G_FALSE,
2323: p_cust_account_role_rec => cust_acct_roles_rec,
2324: x_return_status => l_return_status,
2325: x_msg_count => l_msg_count,
2326: x_msg_data => l_msg_data ,
2326: x_msg_data => l_msg_data ,
2327: x_cust_account_role_id => l_cust_account_role_id
2328: );
2329:
2330: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
2331: RAISE FND_API.G_EXC_ERROR;
2332: END IF;
2333:
2334: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||fnd_api.G_RET_STS_SUCCESS );
2327: x_cust_account_role_id => l_cust_account_role_id
2328: );
2329:
2330: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
2331: RAISE FND_API.G_EXC_ERROR;
2332: END IF;
2333:
2334: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||fnd_api.G_RET_STS_SUCCESS );
2335: COMMIT;
2330: IF (l_return_status <> fnd_api.G_RET_STS_SUCCESS) THEN
2331: RAISE FND_API.G_EXC_ERROR;
2332: END IF;
2333:
2334: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||fnd_api.G_RET_STS_SUCCESS );
2335: COMMIT;
2336: EXCEPTION
2337:
2338: WHEN Fnd_Api.G_EXC_ERROR THEN
2334: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||fnd_api.G_RET_STS_SUCCESS );
2335: COMMIT;
2336: EXCEPTION
2337:
2338: WHEN Fnd_Api.G_EXC_ERROR THEN
2339:
2340: ROLLBACK TO create_cust_account_role;
2341: l_message := null;
2342:
2340: ROLLBACK TO create_cust_account_role;
2341: l_message := null;
2342:
2343: IF l_msg_count > 0 THEN
2344: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2345: while (l_message is not null)
2346: LOOP
2347: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2348: END LOOP;
2343: IF l_msg_count > 0 THEN
2344: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2345: while (l_message is not null)
2346: LOOP
2347: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2348: END LOOP;
2349: END IF;
2350:
2351: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||substr(l_message,1,500) );
2357: l_error_partners := l_error_partners + 1;
2358: l_partner_info := substr(l_ptnr_cntct_id_array(k),1,30) ||' '|| substr(l_account_id_array(k),1,30);
2359:
2360: IF l_msg_count > 0 THEN
2361: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2362: while (l_message is not null)
2363: LOOP
2364: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2365: END LOOP;
2360: IF l_msg_count > 0 THEN
2361: l_message := fnd_msg_pub.get(p_msg_index => fnd_msg_pub.g_first, p_encoded => FND_API.g_false);
2362: while (l_message is not null)
2363: LOOP
2364: l_message := l_message||fnd_msg_pub.get(p_encoded => FND_API.g_false);
2365: END LOOP;
2366: END IF;
2367:
2368: FND_FILE.PUT_LINE( FND_FILE.LOG, substr(l_partner_info,1,60)||substr(l_message,1,500) );