[Home] [Help]
11:
12: PROCEDURE create_user_resource
13: (
14: p_api_version_number IN NUMBER
15: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17: ,p_partner_user_rec IN partner_user_rec_type
18: ,x_return_status OUT NOCOPY VARCHAR2
19: ,x_msg_count OUT NOCOPY NUMBER
12: PROCEDURE create_user_resource
13: (
14: p_api_version_number IN NUMBER
15: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
16: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
17: ,p_partner_user_rec IN partner_user_rec_type
18: ,x_return_status OUT NOCOPY VARCHAR2
19: ,x_msg_count OUT NOCOPY NUMBER
20: ,x_msg_data OUT NOCOPY VARCHAR2
116: -- Standard Start of API savepoint
117: SAVEPOINT create_user_resource;
118:
119: -- Initialize message list if p_init_msg_list is set to TRUE.
120: IF FND_API.to_Boolean( p_init_msg_list )
121: THEN
122: FND_MSG_PUB.initialize;
123: END IF;
124:
122: FND_MSG_PUB.initialize;
123: END IF;
124:
125: -- Standard call to check for call compatibility.
126: IF NOT FND_API.Compatible_API_Call (
127: l_api_version_number
128: ,p_api_version_number
129: ,l_api_name
130: ,G_PKG_NAME
129: ,l_api_name
130: ,G_PKG_NAME
131: )
132: THEN
133: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
134: END IF;
135:
136: -- Debug Message
137: IF (PV_DEBUG_HIGH_ON) THEN
139: END IF;
140:
141:
142: -- Initialize API return status to SUCCESS
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: -------------End Of Initialize -------------------------------
145:
146:
147: IF (p_partner_user_rec.person_rel_party_id IS NULL or p_partner_user_rec.person_rel_party_id = FND_API.G_MISS_NUM) THEN
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: -------------End Of Initialize -------------------------------
145:
146:
147: IF (p_partner_user_rec.person_rel_party_id IS NULL or p_partner_user_rec.person_rel_party_id = FND_API.G_MISS_NUM) THEN
148: fnd_message.SET_NAME ('PV', 'PV_MISSING_PERSON_REL_ID');
149: fnd_msg_pub.ADD;
150: raise FND_API.G_EXC_ERROR;
151: END IF;
146:
147: IF (p_partner_user_rec.person_rel_party_id IS NULL or p_partner_user_rec.person_rel_party_id = FND_API.G_MISS_NUM) THEN
148: fnd_message.SET_NAME ('PV', 'PV_MISSING_PERSON_REL_ID');
149: fnd_msg_pub.ADD;
150: raise FND_API.G_EXC_ERROR;
151: END IF;
152:
153: open c_get_user_details(p_partner_user_rec.person_rel_party_id);
154: fetch c_get_user_details into l_partner_id, l_partner_group_id, l_person_first_name, l_person_last_name,l_org_contact_id, l_org_party_name;
154: fetch c_get_user_details into l_partner_id, l_partner_group_id, l_person_first_name, l_person_last_name,l_org_contact_id, l_org_party_name;
155: if (c_get_user_details%NOTFOUND) THEN
156: fnd_message.SET_NAME ('PV', 'PV_INVALID_PARTNER');
157: fnd_msg_pub.ADD;
158: raise FND_API.G_EXC_ERROR;
159: END IF;
160: close c_get_user_details;
161:
162: l_person_rel_party_id := p_partner_user_rec.person_rel_party_id;
180:
181: if (l_resource_exists = true) then
182: jtf_rs_resource_pub.update_resource (
183: P_API_VERSION => p_api_version_number,
184: P_INIT_MSG_LIST => fnd_api.g_false,
185: P_COMMIT => fnd_api.g_false,
186: P_RESOURCE_ID => l_resource_id,
187: P_RESOURCE_NUMBER => l_resource_number,
188: P_USER_ID => p_partner_user_rec.user_ID,
181: if (l_resource_exists = true) then
182: jtf_rs_resource_pub.update_resource (
183: P_API_VERSION => p_api_version_number,
184: P_INIT_MSG_LIST => fnd_api.g_false,
185: P_COMMIT => fnd_api.g_false,
186: P_RESOURCE_ID => l_resource_id,
187: P_RESOURCE_NUMBER => l_resource_number,
188: P_USER_ID => p_partner_user_rec.user_ID,
189: P_SOURCE_NAME => FND_API.G_MISS_CHAR,
185: P_COMMIT => fnd_api.g_false,
186: P_RESOURCE_ID => l_resource_id,
187: P_RESOURCE_NUMBER => l_resource_number,
188: P_USER_ID => p_partner_user_rec.user_ID,
189: P_SOURCE_NAME => FND_API.G_MISS_CHAR,
190: P_OBJECT_VERSION_NUM => l_object_version_number,
191: P_USER_NAME => p_partner_user_rec.user_name,
192: X_RETURN_STATUS => x_return_status,
193: X_MSG_COUNT => x_msg_count,
215: --PVX_UTILITY_PVT.debug_message('admin resource');
216: PVX_Misc_PVT.Admin_Resource
217: (
218: p_api_version => p_api_version_number
219: ,p_init_msg_list => FND_API.g_false
220: ,p_commit => FND_API.g_false
221: ,x_return_status => x_return_status
222: ,x_msg_count => x_msg_count
223: ,x_msg_data => x_msg_data
216: PVX_Misc_PVT.Admin_Resource
217: (
218: p_api_version => p_api_version_number
219: ,p_init_msg_list => FND_API.g_false
220: ,p_commit => FND_API.g_false
221: ,x_return_status => x_return_status
222: ,x_msg_count => x_msg_count
223: ,x_msg_data => x_msg_data
224: ,p_admin_rec => resourceRec
226: ,x_resource_id => l_resource_id
227: ,x_resource_number => l_resource_number
228: );
229:
230: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
227: ,x_resource_number => l_resource_number
228: );
229:
230: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: end if;
228: );
229:
230: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: end if;
236:
229:
230: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
233: RAISE FND_API.G_EXC_ERROR;
234: END IF;
235: end if;
236:
237: if (l_resource_exists = true) then
259: --PVX_UTILITY_PVT.debug_message('admin role for individual');
260: PVX_Misc_PVT.Admin_Role
261: (
262: p_api_version => p_api_version_number
263: ,p_init_msg_list => FND_API.g_false
264: ,p_commit => FND_API.g_false
265: ,x_return_status => x_return_status
266: ,x_msg_count => x_msg_count
267: ,x_msg_data => x_msg_data
260: PVX_Misc_PVT.Admin_Role
261: (
262: p_api_version => p_api_version_number
263: ,p_init_msg_list => FND_API.g_false
264: ,p_commit => FND_API.g_false
265: ,x_return_status => x_return_status
266: ,x_msg_count => x_msg_count
267: ,x_msg_data => x_msg_data
268: ,p_admin_rec => resourceRec
269: ,p_mode => 'CREATE'
270: ,x_role_relate_id => l_role_relate_id
271: );
272:
273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
270: ,x_role_relate_id => l_role_relate_id
271: );
272:
273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278: end if;
271: );
272:
273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278: end if;
279:
272:
273: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
276: RAISE FND_API.G_EXC_ERROR;
277: END IF;
278: end if;
279:
280:
304: --PVX_UTILITY_PVT.debug_message('admin group member');
305: PVX_Misc_PVT.Admin_Group_Member
306: (
307: p_api_version => p_api_version_number
308: ,p_init_msg_list => FND_API.g_false
309: ,p_commit => FND_API.g_false
310: ,x_return_status => x_return_status
311: ,x_msg_count => x_msg_count
312: ,x_msg_data => x_msg_data
305: PVX_Misc_PVT.Admin_Group_Member
306: (
307: p_api_version => p_api_version_number
308: ,p_init_msg_list => FND_API.g_false
309: ,p_commit => FND_API.g_false
310: ,x_return_status => x_return_status
311: ,x_msg_count => x_msg_count
312: ,x_msg_data => x_msg_data
313: ,p_admin_rec => resourceRec
314: ,p_mode => 'CREATE'
315: ,x_group_member_id => l_group_member_id
316: );
317:
318: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
315: ,x_group_member_id => l_group_member_id
316: );
317:
318: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
323: end if;
316: );
317:
318: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
323: end if;
324:
317:
318: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
323: end if;
324:
325: --PVX_UTILITY_PVT.debug_message('l_group_member_id =' || to_char(l_group_member_id));
350: --PVX_UTILITY_PVT.debug_message('admin role for group');
351: PVX_Misc_PVT.Admin_Role
352: (
353: p_api_version => p_api_version_number
354: ,p_init_msg_list => FND_API.g_false
355: ,p_commit => FND_API.g_false
356: ,x_return_status => x_return_status
357: ,x_msg_count => x_msg_count
358: ,x_msg_data => x_msg_data
351: PVX_Misc_PVT.Admin_Role
352: (
353: p_api_version => p_api_version_number
354: ,p_init_msg_list => FND_API.g_false
355: ,p_commit => FND_API.g_false
356: ,x_return_status => x_return_status
357: ,x_msg_count => x_msg_count
358: ,x_msg_data => x_msg_data
359: ,p_admin_rec => resourceRec
360: ,p_mode => 'CREATE'
361: ,x_role_relate_id => l_role_relate_id
362: );
363:
364: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
361: ,x_role_relate_id => l_role_relate_id
362: );
363:
364: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369: end if;
362: );
363:
364: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369: end if;
370: l_profile_saved := fnd_profile.save
363:
364: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
366: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369: end if;
370: l_profile_saved := fnd_profile.save
371: (X_NAME => 'ASF_DEFAULT_GROUP_ROLE',
375:
376: If (not l_profile_saved) THEN
377: fnd_message.SET_NAME ('PV', 'PV_PROFILE_NOT_EXISTS');
378: fnd_msg_pub.ADD;
379: raise FND_API.G_EXC_ERROR;
380: END IF;
381:
382:
383:
381:
382:
383:
384: FND_MSG_PUB.Count_And_Get
385: ( p_encoded => FND_API.G_FALSE,
386: p_count => x_msg_count,
387: p_data => x_msg_data
388: );
389:
386: p_count => x_msg_count,
387: p_data => x_msg_data
388: );
389:
390: IF FND_API.to_Boolean( p_commit ) THEN
391: COMMIT WORK;
392: END IF;
393:
394: EXCEPTION
391: COMMIT WORK;
392: END IF;
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_ERROR THEN
396: ROLLBACK TO create_user_resource;
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: FND_MSG_PUB.Count_And_Get (
399: p_encoded => FND_API.G_FALSE
393:
394: EXCEPTION
395: WHEN FND_API.G_EXC_ERROR THEN
396: ROLLBACK TO create_user_resource;
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: FND_MSG_PUB.Count_And_Get (
399: p_encoded => FND_API.G_FALSE
400: ,p_count => x_msg_count
401: ,p_data => x_msg_data
395: WHEN FND_API.G_EXC_ERROR THEN
396: ROLLBACK TO create_user_resource;
397: x_return_status := FND_API.G_RET_STS_ERROR;
398: FND_MSG_PUB.Count_And_Get (
399: p_encoded => FND_API.G_FALSE
400: ,p_count => x_msg_count
401: ,p_data => x_msg_data
402: );
403:
401: ,p_data => x_msg_data
402: );
403:
404:
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: ROLLBACK TO create_user_resource;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: -- Standard call to get message count and if count=1, get the message
409: FND_MSG_PUB.Count_And_Get (
403:
404:
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: ROLLBACK TO create_user_resource;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: -- Standard call to get message count and if count=1, get the message
409: FND_MSG_PUB.Count_And_Get (
410: p_encoded => FND_API.G_FALSE
411: ,p_count => x_msg_count
406: ROLLBACK TO create_user_resource;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: -- Standard call to get message count and if count=1, get the message
409: FND_MSG_PUB.Count_And_Get (
410: p_encoded => FND_API.G_FALSE
411: ,p_count => x_msg_count
412: ,p_data => x_msg_data
413: );
414:
413: );
414:
415: WHEN OTHERS THEN
416: ROLLBACK TO create_user_resource;
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
419: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
420: END IF;
421: FND_MSG_PUB.Count_And_Get (
418: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
419: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
420: END IF;
421: FND_MSG_PUB.Count_And_Get (
422: p_encoded => FND_API.G_FALSE
423: ,p_count => x_msg_count
424: ,p_data => x_msg_data
425: );
426:
428:
429: PROCEDURE register_partner_and_user
430: (
431: p_api_version_number IN NUMBER
432: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
433: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
434: ,p_partner_rec IN Partner_Rec_type
435: ,P_partner_type IN VARCHAR2
436: ,p_partner_user_rec IN partner_user_rec_type
429: PROCEDURE register_partner_and_user
430: (
431: p_api_version_number IN NUMBER
432: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
433: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
434: ,p_partner_rec IN Partner_Rec_type
435: ,P_partner_type IN VARCHAR2
436: ,p_partner_user_rec IN partner_user_rec_type
437: ,x_return_status OUT NOCOPY VARCHAR2
487: -- Standard Start of API savepoint
488: SAVEPOINT Register_Partner_And_User;
489:
490: -- Initialize message list if p_init_msg_list is set to TRUE.
491: IF FND_API.to_Boolean( p_init_msg_list )
492: THEN
493: FND_MSG_PUB.initialize;
494: END IF;
495:
493: FND_MSG_PUB.initialize;
494: END IF;
495:
496: -- Standard call to check for call compatibility.
497: IF NOT FND_API.Compatible_API_Call (
498: l_api_version_number
499: ,p_api_version_number
500: ,l_api_name
501: ,G_PKG_NAME
500: ,l_api_name
501: ,G_PKG_NAME
502: )
503: THEN
504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
505: END IF;
506:
507: -- Debug Message
508: IF (PV_DEBUG_HIGH_ON) THEN
510: END IF;
511:
512:
513: -- Initialize API return status to SUCCESS
514: x_return_status := FND_API.G_RET_STS_SUCCESS;
515: -------------End Of Initialize -------------------------------
516:
517: IF FND_GLOBAL.User_Id IS NULL THEN
518: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
516:
517: IF FND_GLOBAL.User_Id IS NULL THEN
518: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
519: FND_MSG_PUB.add;
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523:
524: IF P_partner_type IS NULL THEN
523:
524: IF P_partner_type IS NULL THEN
525: fnd_message.SET_NAME ('PV', 'PV_MISSING_PRTNR_TYPE');
526: fnd_msg_pub.ADD;
527: raise FND_API.G_EXC_ERROR;
528: END IF;
529:
530: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
531: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
526: fnd_msg_pub.ADD;
527: raise FND_API.G_EXC_ERROR;
528: END IF;
529:
530: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
531: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
532: fnd_msg_pub.ADD;
533: raise FND_API.G_EXC_ERROR;
534: END IF;
529:
530: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
531: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
532: fnd_msg_pub.ADD;
533: raise FND_API.G_EXC_ERROR;
534: END IF;
535:
536: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
537: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
532: fnd_msg_pub.ADD;
533: raise FND_API.G_EXC_ERROR;
534: END IF;
535:
536: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
537: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
538: fnd_msg_pub.ADD;
539: raise FND_API.G_EXC_ERROR;
540: END IF;
535:
536: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
537: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
538: fnd_msg_pub.ADD;
539: raise FND_API.G_EXC_ERROR;
540: END IF;
541:
542: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
543: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
538: fnd_msg_pub.ADD;
539: raise FND_API.G_EXC_ERROR;
540: END IF;
541:
542: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
543: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
544: fnd_msg_pub.ADD;
545: raise FND_API.G_EXC_ERROR;
546: END IF;
541:
542: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
543: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
544: fnd_msg_pub.ADD;
545: raise FND_API.G_EXC_ERROR;
546: END IF;
547:
548:
549: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
546: END IF;
547:
548:
549: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
550: IF(p_partner_rec.global_prtnr_org_number IS NULL OR p_partner_rec.global_prtnr_org_number = FND_API.G_MISS_CHAR) THEN
551: fnd_message.SET_NAME ('PV', 'PV_MISSING_GLOBAL_ID');
552: fnd_msg_pub.ADD;
553: raise FND_API.G_EXC_ERROR;
554: ELSE
549: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
550: IF(p_partner_rec.global_prtnr_org_number IS NULL OR p_partner_rec.global_prtnr_org_number = FND_API.G_MISS_CHAR) THEN
551: fnd_message.SET_NAME ('PV', 'PV_MISSING_GLOBAL_ID');
552: fnd_msg_pub.ADD;
553: raise FND_API.G_EXC_ERROR;
554: ELSE
555: l_global_partner_id := Pv_ptr_member_type_pvt.get_global_partner_id(p_global_prtnr_org_number => p_partner_rec.global_prtnr_org_number);
556: END IF;
557: END IF;
555: l_global_partner_id := Pv_ptr_member_type_pvt.get_global_partner_id(p_global_prtnr_org_number => p_partner_rec.global_prtnr_org_number);
556: END IF;
557: END IF;
558:
559: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
560: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
561: fnd_msg_pub.ADD;
562: raise FND_API.G_EXC_ERROR;
563: END IF;
558:
559: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
560: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
561: fnd_msg_pub.ADD;
562: raise FND_API.G_EXC_ERROR;
563: END IF;
564:
565:
566: FOR X in get_user_role(p_partner_user_rec.user_type_id) LOOP
573:
574: IF((not is_partner_user) or (not is_primary_user)) THEN
575: fnd_message.SET_NAME ('PV', 'PV_NOT_PRTNR_PRIMARY_USER');
576: fnd_msg_pub.ADD;
577: raise FND_API.G_EXC_ERROR;
578: END IF;
579:
580: l_partner_types_tbl(1).attr_value := P_partner_type;
581: l_partner_types_tbl(1).attr_value_extn := 'Y' ;
582:
583: pv_partner_util_pvt.Create_Relationship
584: (
585: p_api_version_number => p_api_version_number
586: ,p_init_msg_list => FND_API.g_false
587: ,p_commit => FND_API.G_FALSE
588: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
589: ,x_return_status => x_return_status
590: ,x_msg_data => x_msg_data
583: pv_partner_util_pvt.Create_Relationship
584: (
585: p_api_version_number => p_api_version_number
586: ,p_init_msg_list => FND_API.g_false
587: ,p_commit => FND_API.G_FALSE
588: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
589: ,x_return_status => x_return_status
590: ,x_msg_data => x_msg_data
591: ,x_msg_count => x_msg_count
584: (
585: p_api_version_number => p_api_version_number
586: ,p_init_msg_list => FND_API.g_false
587: ,p_commit => FND_API.G_FALSE
588: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
589: ,x_return_status => x_return_status
590: ,x_msg_data => x_msg_data
591: ,x_msg_count => x_msg_count
592: ,p_party_id => p_partner_rec.partner_party_id
599: ,x_resp_map_rule_id => l_resp_map_rule_id
600: ,x_group_id => l_partner_group_id
601: );
602:
603: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
606: RAISE FND_API.G_EXC_ERROR;
607: END IF;
600: ,x_group_id => l_partner_group_id
601: );
602:
603: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
606: RAISE FND_API.G_EXC_ERROR;
607: END IF;
608:
601: );
602:
603: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
606: RAISE FND_API.G_EXC_ERROR;
607: END IF;
608:
609:
602:
603: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
606: RAISE FND_API.G_EXC_ERROR;
607: END IF;
608:
609:
610:
608:
609:
610:
611: FND_MSG_PUB.Count_And_Get
612: ( p_encoded => FND_API.G_FALSE,
613: p_count => x_msg_count,
614: p_data => x_msg_data
615: );
616:
613: p_count => x_msg_count,
614: p_data => x_msg_data
615: );
616:
617: IF FND_API.to_Boolean( p_commit ) THEN
618: COMMIT WORK;
619: END IF;
620:
621: EXCEPTION
618: COMMIT WORK;
619: END IF;
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: ROLLBACK TO Register_Partner_And_User;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.Count_And_Get (
626: p_encoded => FND_API.G_FALSE
620:
621: EXCEPTION
622: WHEN FND_API.G_EXC_ERROR THEN
623: ROLLBACK TO Register_Partner_And_User;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.Count_And_Get (
626: p_encoded => FND_API.G_FALSE
627: ,p_count => x_msg_count
628: ,p_data => x_msg_data
622: WHEN FND_API.G_EXC_ERROR THEN
623: ROLLBACK TO Register_Partner_And_User;
624: x_return_status := FND_API.G_RET_STS_ERROR;
625: FND_MSG_PUB.Count_And_Get (
626: p_encoded => FND_API.G_FALSE
627: ,p_count => x_msg_count
628: ,p_data => x_msg_data
629: );
630:
628: ,p_data => x_msg_data
629: );
630:
631:
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO Register_Partner_And_User;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: -- Standard call to get message count and if count=1, get the message
636: FND_MSG_PUB.Count_And_Get (
630:
631:
632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
633: ROLLBACK TO Register_Partner_And_User;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: -- Standard call to get message count and if count=1, get the message
636: FND_MSG_PUB.Count_And_Get (
637: p_encoded => FND_API.G_FALSE
638: ,p_count => x_msg_count
633: ROLLBACK TO Register_Partner_And_User;
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: -- Standard call to get message count and if count=1, get the message
636: FND_MSG_PUB.Count_And_Get (
637: p_encoded => FND_API.G_FALSE
638: ,p_count => x_msg_count
639: ,p_data => x_msg_data
640: );
641:
640: );
641:
642: WHEN OTHERS THEN
643: ROLLBACK TO Register_Partner_And_User;
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
646: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
647: END IF;
648: FND_MSG_PUB.Count_And_Get (
645: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
646: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
647: END IF;
648: FND_MSG_PUB.Count_And_Get (
649: p_encoded => FND_API.G_FALSE
650: ,p_count => x_msg_count
651: ,p_data => x_msg_data
652: );
653:
656:
657: PROCEDURE register_partner_user
658: (
659: p_api_version_number IN NUMBER
660: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
661: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
662: ,p_partner_user_rec IN partner_User_rec_type
663: ,x_return_status OUT NOCOPY VARCHAR2
664: ,x_msg_count OUT NOCOPY NUMBER
657: PROCEDURE register_partner_user
658: (
659: p_api_version_number IN NUMBER
660: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
661: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
662: ,p_partner_user_rec IN partner_User_rec_type
663: ,x_return_status OUT NOCOPY VARCHAR2
664: ,x_msg_count OUT NOCOPY NUMBER
665: ,x_msg_data OUT NOCOPY VARCHAR2
706: -- Standard Start of API savepoint
707: SAVEPOINT register_partner_user;
708:
709: -- Initialize message list if p_init_msg_list is set to TRUE.
710: IF FND_API.to_Boolean( p_init_msg_list )
711: THEN
712: FND_MSG_PUB.initialize;
713: END IF;
714:
712: FND_MSG_PUB.initialize;
713: END IF;
714:
715: -- Standard call to check for call compatibility.
716: IF NOT FND_API.Compatible_API_Call (
717: l_api_version_number
718: ,p_api_version_number
719: ,l_api_name
720: ,G_PKG_NAME
719: ,l_api_name
720: ,G_PKG_NAME
721: )
722: THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725:
726: -- Debug Message
727: IF (PV_DEBUG_HIGH_ON) THEN
730: END IF;
731:
732:
733: -- Initialize API return status to SUCCESS
734: x_return_status := FND_API.G_RET_STS_SUCCESS;
735: -------------End Of Initialize -------------------------------
736:
737:
738: IF FND_GLOBAL.User_Id IS NULL THEN
737:
738: IF FND_GLOBAL.User_Id IS NULL THEN
739: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
740: FND_MSG_PUB.add;
741: RAISE FND_API.G_EXC_ERROR;
742: END IF;
743:
744: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
745: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
740: FND_MSG_PUB.add;
741: RAISE FND_API.G_EXC_ERROR;
742: END IF;
743:
744: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
745: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
746: fnd_msg_pub.ADD;
747: raise FND_API.G_EXC_ERROR;
748: END IF;
743:
744: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
745: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
746: fnd_msg_pub.ADD;
747: raise FND_API.G_EXC_ERROR;
748: END IF;
749:
750: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
751: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
746: fnd_msg_pub.ADD;
747: raise FND_API.G_EXC_ERROR;
748: END IF;
749:
750: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
751: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
752: fnd_msg_pub.ADD;
753: raise FND_API.G_EXC_ERROR;
754: END IF;
749:
750: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
751: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
752: fnd_msg_pub.ADD;
753: raise FND_API.G_EXC_ERROR;
754: END IF;
755:
756:
757: FOR X in get_user_role(p_partner_user_rec.user_type_id) LOOP
764:
765: IF(not is_partner_user) THEN
766: fnd_message.SET_NAME ('PV', 'PV_NOT_PRTNR_USER');
767: fnd_msg_pub.ADD;
768: raise FND_API.G_EXC_ERROR;
769: END IF;
770:
771: create_user_resource(
772: p_api_version_number => p_api_version_number
769: END IF;
770:
771: create_user_resource(
772: p_api_version_number => p_api_version_number
773: ,p_init_msg_list => FND_API.g_false
774: ,p_commit => FND_API.G_FALSE
775: ,p_partner_user_rec => p_partner_user_rec
776: ,x_return_status => x_return_status
777: ,x_msg_count => x_msg_count
770:
771: create_user_resource(
772: p_api_version_number => p_api_version_number
773: ,p_init_msg_list => FND_API.g_false
774: ,p_commit => FND_API.G_FALSE
775: ,p_partner_user_rec => p_partner_user_rec
776: ,x_return_status => x_return_status
777: ,x_msg_count => x_msg_count
778: ,x_msg_data => x_msg_data
778: ,x_msg_data => x_msg_data
779: );
780:
781:
782: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
779: );
780:
781:
782: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
780:
781:
782: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
788: IF (is_primary_user) THEN
781:
782: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
783: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
784: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
788: IF (is_primary_user) THEN
789: l_role := pv_user_Resp_pvt.G_PRIMARY;
792: END IF;
793:
794: pv_user_Resp_pvt.assign_user_resps(
795: p_api_version_number => p_api_version_number
796: ,p_init_msg_list => FND_API.g_false
797: ,p_commit => FND_API.G_FALSE
798: ,x_return_status => x_return_status
799: ,x_msg_count => x_msg_count
800: ,x_msg_data => x_msg_data
793:
794: pv_user_Resp_pvt.assign_user_resps(
795: p_api_version_number => p_api_version_number
796: ,p_init_msg_list => FND_API.g_false
797: ,p_commit => FND_API.G_FALSE
798: ,x_return_status => x_return_status
799: ,x_msg_count => x_msg_count
800: ,x_msg_data => x_msg_data
801: ,p_user_id => p_partner_user_rec.user_id
801: ,p_user_id => p_partner_user_rec.user_id
802: ,p_user_role_code => l_role
803: );
804:
805: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
802: ,p_user_role_code => l_role
803: );
804:
805: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
810:
803: );
804:
805: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
810:
811:
804:
805: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
807: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
808: RAISE FND_API.G_EXC_ERROR;
809: END IF;
810:
811:
812: FND_MSG_PUB.Count_And_Get
809: END IF;
810:
811:
812: FND_MSG_PUB.Count_And_Get
813: ( p_encoded => FND_API.G_FALSE,
814: p_count => x_msg_count,
815: p_data => x_msg_data
816: );
817:
814: p_count => x_msg_count,
815: p_data => x_msg_data
816: );
817:
818: IF FND_API.to_Boolean( p_commit ) THEN
819: COMMIT WORK;
820: END IF;
821:
822: EXCEPTION
819: COMMIT WORK;
820: END IF;
821:
822: EXCEPTION
823: WHEN FND_API.G_EXC_ERROR THEN
824: ROLLBACK TO register_partner_user;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: FND_MSG_PUB.Count_And_Get (
827: p_encoded => FND_API.G_FALSE
821:
822: EXCEPTION
823: WHEN FND_API.G_EXC_ERROR THEN
824: ROLLBACK TO register_partner_user;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: FND_MSG_PUB.Count_And_Get (
827: p_encoded => FND_API.G_FALSE
828: ,p_count => x_msg_count
829: ,p_data => x_msg_data
823: WHEN FND_API.G_EXC_ERROR THEN
824: ROLLBACK TO register_partner_user;
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: FND_MSG_PUB.Count_And_Get (
827: p_encoded => FND_API.G_FALSE
828: ,p_count => x_msg_count
829: ,p_data => x_msg_data
830: );
831:
829: ,p_data => x_msg_data
830: );
831:
832:
833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
834: ROLLBACK TO register_partner_user;
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: -- Standard call to get message count and if count=1, get the message
837: FND_MSG_PUB.Count_And_Get (
831:
832:
833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
834: ROLLBACK TO register_partner_user;
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: -- Standard call to get message count and if count=1, get the message
837: FND_MSG_PUB.Count_And_Get (
838: p_encoded => FND_API.G_FALSE
839: ,p_count => x_msg_count
834: ROLLBACK TO register_partner_user;
835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
836: -- Standard call to get message count and if count=1, get the message
837: FND_MSG_PUB.Count_And_Get (
838: p_encoded => FND_API.G_FALSE
839: ,p_count => x_msg_count
840: ,p_data => x_msg_data
841: );
842:
841: );
842:
843: WHEN OTHERS THEN
844: ROLLBACK TO register_partner_user;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
848: END IF;
849: FND_MSG_PUB.Count_And_Get (
846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
847: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
848: END IF;
849: FND_MSG_PUB.Count_And_Get (
850: p_encoded => FND_API.G_FALSE
851: ,p_count => x_msg_count
852: ,p_data => x_msg_data
853: );
854:
857:
858: PROCEDURE revoke_role
859: (
860: p_api_version_number IN NUMBER
861: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
862: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
863: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
864: ,p_user_name IN VARCHAR2
865: ,x_return_status OUT NOCOPY VARCHAR2
858: PROCEDURE revoke_role
859: (
860: p_api_version_number IN NUMBER
861: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
862: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
863: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
864: ,p_user_name IN VARCHAR2
865: ,x_return_status OUT NOCOPY VARCHAR2
866: ,x_msg_count OUT NOCOPY NUMBER
922: -- Standard Start of API savepoint
923: SAVEPOINT revoke_role;
924:
925: -- Initialize message list if p_init_msg_list is set to TRUE.
926: IF FND_API.to_Boolean( p_init_msg_list )
927: THEN
928: FND_MSG_PUB.initialize;
929: END IF;
930:
928: FND_MSG_PUB.initialize;
929: END IF;
930:
931: -- Standard call to check for call compatibility.
932: IF NOT FND_API.Compatible_API_Call (
933: l_api_version_number
934: ,p_api_version_number
935: ,l_api_name
936: ,G_PKG_NAME
935: ,l_api_name
936: ,G_PKG_NAME
937: )
938: THEN
939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
940: END IF;
941:
942: -- Debug Message
943: IF (PV_DEBUG_HIGH_ON) THEN
946: END IF;
947:
948:
949: -- Initialize API return status to SUCCESS
950: x_return_status := FND_API.G_RET_STS_SUCCESS;
951: -------------End Of Initialize -------------------------------
952:
953:
954: IF FND_GLOBAL.User_Id IS NULL THEN
953:
954: IF FND_GLOBAL.User_Id IS NULL THEN
955: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
956: FND_MSG_PUB.add;
957: RAISE FND_API.G_EXC_ERROR;
958: END IF;
959:
960: IF (p_role_name.count < 1) THEN
961: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
959:
960: IF (p_role_name.count < 1) THEN
961: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
962: fnd_msg_pub.ADD;
963: raise FND_API.G_EXC_ERROR;
964: END IF;
965:
966: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
967: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
962: fnd_msg_pub.ADD;
963: raise FND_API.G_EXC_ERROR;
964: END IF;
965:
966: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
967: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
968: fnd_msg_pub.ADD;
969: raise FND_API.G_EXC_ERROR;
970: END IF;
965:
966: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
967: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
968: fnd_msg_pub.ADD;
969: raise FND_API.G_EXC_ERROR;
970: END IF;
971:
972: /** Check if partner or primary permissions are part of the current role. IF NOT, we do not need to do any thing **/
973: FOR X in check_curr_role_perms(p_role_name) LOOP
1009: END IF;
1010:
1011: PV_USER_RESP_PVT.revoke_user_resps(
1012: p_api_version_number => p_api_version_number
1013: ,p_init_msg_list => FND_API.g_false
1014: ,p_commit => FND_API.G_FALSE
1015: ,x_return_status => x_return_status
1016: ,x_msg_count => x_msg_count
1017: ,x_msg_data => x_msg_data
1010:
1011: PV_USER_RESP_PVT.revoke_user_resps(
1012: p_api_version_number => p_api_version_number
1013: ,p_init_msg_list => FND_API.g_false
1014: ,p_commit => FND_API.G_FALSE
1015: ,x_return_status => x_return_status
1016: ,x_msg_count => x_msg_count
1017: ,x_msg_data => x_msg_data
1018: ,p_user_id => l_user_id
1018: ,p_user_id => l_user_id
1019: ,p_user_role_code => l_role
1020: );
1021:
1022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1019: ,p_user_role_code => l_role
1020: );
1021:
1022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1020: );
1021:
1022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: /** If partner user and primary user permission is revoked and user will become business user after this **/
1021:
1022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: /** If partner user and primary user permission is revoked and user will become business user after this **/
1029: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1028: /** If partner user and primary user permission is revoked and user will become business user after this **/
1029: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1030: PV_USER_RESP_PVT.switch_user_resp(
1031: p_api_version_number => p_api_version_number
1032: ,p_init_msg_list => FND_API.g_false
1033: ,p_commit => FND_API.G_FALSE
1034: ,x_return_status => x_return_status
1035: ,x_msg_count => x_msg_count
1036: ,x_msg_data => x_msg_data
1029: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1030: PV_USER_RESP_PVT.switch_user_resp(
1031: p_api_version_number => p_api_version_number
1032: ,p_init_msg_list => FND_API.g_false
1033: ,p_commit => FND_API.G_FALSE
1034: ,x_return_status => x_return_status
1035: ,x_msg_count => x_msg_count
1036: ,x_msg_data => x_msg_data
1037: ,p_user_id => l_user_id
1038: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1039: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1040: );
1041:
1042: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1039: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1040: );
1041:
1042: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047:
1040: );
1041:
1042: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047:
1048: END IF;
1041:
1042: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047:
1048: END IF;
1049: end if;
1048: END IF;
1049: end if;
1050:
1051: FND_MSG_PUB.Count_And_Get
1052: ( p_encoded => FND_API.G_FALSE,
1053: p_count => x_msg_count,
1054: p_data => x_msg_data
1055: );
1056:
1053: p_count => x_msg_count,
1054: p_data => x_msg_data
1055: );
1056:
1057: IF FND_API.to_Boolean( p_commit ) THEN
1058: COMMIT WORK;
1059: END IF;
1060:
1061: EXCEPTION
1058: COMMIT WORK;
1059: END IF;
1060:
1061: EXCEPTION
1062: WHEN FND_API.G_EXC_ERROR THEN
1063: ROLLBACK TO revoke_role;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: FND_MSG_PUB.Count_And_Get (
1066: p_encoded => FND_API.G_FALSE
1060:
1061: EXCEPTION
1062: WHEN FND_API.G_EXC_ERROR THEN
1063: ROLLBACK TO revoke_role;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: FND_MSG_PUB.Count_And_Get (
1066: p_encoded => FND_API.G_FALSE
1067: ,p_count => x_msg_count
1068: ,p_data => x_msg_data
1062: WHEN FND_API.G_EXC_ERROR THEN
1063: ROLLBACK TO revoke_role;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065: FND_MSG_PUB.Count_And_Get (
1066: p_encoded => FND_API.G_FALSE
1067: ,p_count => x_msg_count
1068: ,p_data => x_msg_data
1069: );
1070:
1068: ,p_data => x_msg_data
1069: );
1070:
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: ROLLBACK TO revoke_role;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: -- Standard call to get message count and if count=1, get the message
1076: FND_MSG_PUB.Count_And_Get (
1070:
1071:
1072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: ROLLBACK TO revoke_role;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: -- Standard call to get message count and if count=1, get the message
1076: FND_MSG_PUB.Count_And_Get (
1077: p_encoded => FND_API.G_FALSE
1078: ,p_count => x_msg_count
1073: ROLLBACK TO revoke_role;
1074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: -- Standard call to get message count and if count=1, get the message
1076: FND_MSG_PUB.Count_And_Get (
1077: p_encoded => FND_API.G_FALSE
1078: ,p_count => x_msg_count
1079: ,p_data => x_msg_data
1080: );
1081:
1080: );
1081:
1082: WHEN OTHERS THEN
1083: ROLLBACK TO revoke_role;
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1085: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1086: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1087: END IF;
1088: FND_MSG_PUB.Count_And_Get (
1085: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1086: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1087: END IF;
1088: FND_MSG_PUB.Count_And_Get (
1089: p_encoded => FND_API.G_FALSE
1090: ,p_count => x_msg_count
1091: ,p_data => x_msg_data
1092: );
1093:
1096:
1097: PROCEDURE delete_role
1098: (
1099: p_api_version_number IN NUMBER
1100: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1101: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1102: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1103: ,x_return_status OUT NOCOPY VARCHAR2
1104: ,x_msg_count OUT NOCOPY NUMBER
1097: PROCEDURE delete_role
1098: (
1099: p_api_version_number IN NUMBER
1100: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1101: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1102: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1103: ,x_return_status OUT NOCOPY VARCHAR2
1104: ,x_msg_count OUT NOCOPY NUMBER
1105: ,x_msg_data OUT NOCOPY VARCHAR2
1173: -- Standard Start of API savepoint
1174: SAVEPOINT delete_role;
1175:
1176: -- Initialize message list if p_init_msg_list is set to TRUE.
1177: IF FND_API.to_Boolean( p_init_msg_list )
1178: THEN
1179: FND_MSG_PUB.initialize;
1180: END IF;
1181:
1179: FND_MSG_PUB.initialize;
1180: END IF;
1181:
1182: -- Standard call to check for call compatibility.
1183: IF NOT FND_API.Compatible_API_Call (
1184: l_api_version_number
1185: ,p_api_version_number
1186: ,l_api_name
1187: ,G_PKG_NAME
1186: ,l_api_name
1187: ,G_PKG_NAME
1188: )
1189: THEN
1190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1191: END IF;
1192:
1193: -- Debug Message
1194: IF (PV_DEBUG_HIGH_ON) THEN
1197: END IF;
1198:
1199:
1200: -- Initialize API return status to SUCCESS
1201: x_return_status := FND_API.G_RET_STS_SUCCESS;
1202: -------------End Of Initialize -------------------------------
1203:
1204:
1205: IF FND_GLOBAL.User_Id IS NULL THEN
1204:
1205: IF FND_GLOBAL.User_Id IS NULL THEN
1206: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1207: FND_MSG_PUB.add;
1208: RAISE FND_API.G_EXC_ERROR;
1209: END IF;
1210:
1211: IF (p_role_name.count < 1) THEN
1212: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1210:
1211: IF (p_role_name.count < 1) THEN
1212: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1213: fnd_msg_pub.ADD;
1214: raise FND_API.G_EXC_ERROR;
1215: END IF;
1216:
1217: /** Check if partner or primary permissions are part of the current role. IF NOT, we do not need to do any thing **/
1218: FOR X in check_curr_role_perms(p_role_name) LOOP
1286: END IF;
1287:
1288: PV_USER_RESP_PVT.revoke_user_resps(
1289: p_api_version_number => p_api_version_number
1290: ,p_init_msg_list => FND_API.g_false
1291: ,p_commit => FND_API.G_FALSE
1292: ,x_return_status => x_return_status
1293: ,x_msg_count => x_msg_count
1294: ,x_msg_data => x_msg_data
1287:
1288: PV_USER_RESP_PVT.revoke_user_resps(
1289: p_api_version_number => p_api_version_number
1290: ,p_init_msg_list => FND_API.g_false
1291: ,p_commit => FND_API.G_FALSE
1292: ,x_return_status => x_return_status
1293: ,x_msg_count => x_msg_count
1294: ,x_msg_data => x_msg_data
1295: ,p_user_id => l_user_ids(X)
1295: ,p_user_id => l_user_ids(X)
1296: ,p_user_role_code => l_role
1297: );
1298:
1299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1296: ,p_user_role_code => l_role
1297: );
1298:
1299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1297: );
1298:
1299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1305: PV_USER_RESP_PVT.switch_user_resp(
1298:
1299: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1305: PV_USER_RESP_PVT.switch_user_resp(
1306: p_api_version_number => p_api_version_number
1303: END IF;
1304: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1305: PV_USER_RESP_PVT.switch_user_resp(
1306: p_api_version_number => p_api_version_number
1307: ,p_init_msg_list => FND_API.g_false
1308: ,p_commit => FND_API.G_FALSE
1309: ,x_return_status => x_return_status
1310: ,x_msg_count => x_msg_count
1311: ,x_msg_data => x_msg_data
1304: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1305: PV_USER_RESP_PVT.switch_user_resp(
1306: p_api_version_number => p_api_version_number
1307: ,p_init_msg_list => FND_API.g_false
1308: ,p_commit => FND_API.G_FALSE
1309: ,x_return_status => x_return_status
1310: ,x_msg_count => x_msg_count
1311: ,x_msg_data => x_msg_data
1312: ,p_user_id => l_user_ids(X)
1313: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1314: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1315: );
1316:
1317: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1314: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1315: );
1316:
1317: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1315: );
1316:
1317: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1323: END IF;
1316:
1317: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1319: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1320: RAISE FND_API.G_EXC_ERROR;
1321: END IF;
1322:
1323: END IF;
1324: END LOOP;
1326: END IF;
1327: END IF;
1328:
1329: FND_MSG_PUB.Count_And_Get
1330: ( p_encoded => FND_API.G_FALSE,
1331: p_count => x_msg_count,
1332: p_data => x_msg_data
1333: );
1334:
1331: p_count => x_msg_count,
1332: p_data => x_msg_data
1333: );
1334:
1335: IF FND_API.to_Boolean( p_commit ) THEN
1336: COMMIT WORK;
1337: END IF;
1338:
1339: EXCEPTION
1336: COMMIT WORK;
1337: END IF;
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: ROLLBACK TO delete_role;
1342: x_return_status := FND_API.G_RET_STS_ERROR;
1343: FND_MSG_PUB.Count_And_Get (
1344: p_encoded => FND_API.G_FALSE
1338:
1339: EXCEPTION
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: ROLLBACK TO delete_role;
1342: x_return_status := FND_API.G_RET_STS_ERROR;
1343: FND_MSG_PUB.Count_And_Get (
1344: p_encoded => FND_API.G_FALSE
1345: ,p_count => x_msg_count
1346: ,p_data => x_msg_data
1340: WHEN FND_API.G_EXC_ERROR THEN
1341: ROLLBACK TO delete_role;
1342: x_return_status := FND_API.G_RET_STS_ERROR;
1343: FND_MSG_PUB.Count_And_Get (
1344: p_encoded => FND_API.G_FALSE
1345: ,p_count => x_msg_count
1346: ,p_data => x_msg_data
1347: );
1348:
1346: ,p_data => x_msg_data
1347: );
1348:
1349:
1350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1351: ROLLBACK TO delete_role;
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1353: -- Standard call to get message count and if count=1, get the message
1354: FND_MSG_PUB.Count_And_Get (
1348:
1349:
1350: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1351: ROLLBACK TO delete_role;
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1353: -- Standard call to get message count and if count=1, get the message
1354: FND_MSG_PUB.Count_And_Get (
1355: p_encoded => FND_API.G_FALSE
1356: ,p_count => x_msg_count
1351: ROLLBACK TO delete_role;
1352: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1353: -- Standard call to get message count and if count=1, get the message
1354: FND_MSG_PUB.Count_And_Get (
1355: p_encoded => FND_API.G_FALSE
1356: ,p_count => x_msg_count
1357: ,p_data => x_msg_data
1358: );
1359:
1358: );
1359:
1360: WHEN OTHERS THEN
1361: ROLLBACK TO delete_role;
1362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1364: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1365: END IF;
1366: FND_MSG_PUB.Count_And_Get (
1363: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1364: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1365: END IF;
1366: FND_MSG_PUB.Count_And_Get (
1367: p_encoded => FND_API.G_FALSE
1368: ,p_count => x_msg_count
1369: ,p_data => x_msg_data
1370: );
1371:
1374:
1375: PROCEDURE assign_role
1376: (
1377: p_api_version_number IN NUMBER
1378: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1379: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1380: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1381: ,p_user_name IN VARCHAR2
1382: ,x_return_status OUT NOCOPY VARCHAR2
1375: PROCEDURE assign_role
1376: (
1377: p_api_version_number IN NUMBER
1378: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1379: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1380: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1381: ,p_user_name IN VARCHAR2
1382: ,x_return_status OUT NOCOPY VARCHAR2
1383: ,x_msg_count OUT NOCOPY NUMBER
1440: -- Standard Start of API savepoint
1441: SAVEPOINT assign_role;
1442:
1443: -- Initialize message list if p_init_msg_list is set to TRUE.
1444: IF FND_API.to_Boolean( p_init_msg_list )
1445: THEN
1446: FND_MSG_PUB.initialize;
1447: END IF;
1448:
1446: FND_MSG_PUB.initialize;
1447: END IF;
1448:
1449: -- Standard call to check for call compatibility.
1450: IF NOT FND_API.Compatible_API_Call (
1451: l_api_version_number
1452: ,p_api_version_number
1453: ,l_api_name
1454: ,G_PKG_NAME
1453: ,l_api_name
1454: ,G_PKG_NAME
1455: )
1456: THEN
1457: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1458: END IF;
1459:
1460: -- Debug Message
1461: IF (PV_DEBUG_HIGH_ON) THEN
1464: END IF;
1465:
1466:
1467: -- Initialize API return status to SUCCESS
1468: x_return_status := FND_API.G_RET_STS_SUCCESS;
1469: -------------End Of Initialize -------------------------------
1470:
1471:
1472: IF FND_GLOBAL.User_Id IS NULL THEN
1471:
1472: IF FND_GLOBAL.User_Id IS NULL THEN
1473: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1474: FND_MSG_PUB.add;
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1478: IF (p_role_name.count < 1) THEN
1479: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1477:
1478: IF (p_role_name.count < 1) THEN
1479: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1480: fnd_msg_pub.ADD;
1481: raise FND_API.G_EXC_ERROR;
1482: END IF;
1483:
1484: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1485: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1480: fnd_msg_pub.ADD;
1481: raise FND_API.G_EXC_ERROR;
1482: END IF;
1483:
1484: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1485: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1486: fnd_msg_pub.ADD;
1487: raise FND_API.G_EXC_ERROR;
1488: END IF;
1483:
1484: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1485: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1486: fnd_msg_pub.ADD;
1487: raise FND_API.G_EXC_ERROR;
1488: END IF;
1489:
1490: /** check if current roles that are being assigned has G_PARTNER_PERMISSION OR G_PRIMARY_PERMISSION permissions **/
1491: FOR X in check_curr_role_perms(p_role_name) LOOP
1519:
1520: IF (NOT isValidPrtnrUser) THEN
1521: fnd_message.SET_NAME ('PV', 'PV_INVALID_PTNR_USER');
1522: fnd_msg_pub.ADD;
1523: raise FND_API.G_EXC_ERROR;
1524: END IF;
1525:
1526: IF(is_primary_perm_assigned OR is_primary_user) THEN
1527: l_role := PV_USER_RESP_PVT.G_PRIMARY;
1530: end if;
1531:
1532: PV_USER_RESP_PVT.assign_user_resps(
1533: p_api_version_number => p_api_version_number
1534: ,p_init_msg_list => FND_API.g_false
1535: ,p_commit => FND_API.G_FALSE
1536: ,x_return_status => x_return_status
1537: ,x_msg_count => x_msg_count
1538: ,x_msg_data => x_msg_data
1531:
1532: PV_USER_RESP_PVT.assign_user_resps(
1533: p_api_version_number => p_api_version_number
1534: ,p_init_msg_list => FND_API.g_false
1535: ,p_commit => FND_API.G_FALSE
1536: ,x_return_status => x_return_status
1537: ,x_msg_count => x_msg_count
1538: ,x_msg_data => x_msg_data
1539: ,p_user_id => l_user_id
1539: ,p_user_id => l_user_id
1540: ,p_user_role_code => l_role
1541: );
1542:
1543: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1540: ,p_user_role_code => l_role
1541: );
1542:
1543: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548:
1541: );
1542:
1543: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548:
1549: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1542:
1543: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1545: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1546: RAISE FND_API.G_EXC_ERROR;
1547: END IF;
1548:
1549: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1550:
1549: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1550:
1551: PV_USER_RESP_PVT.switch_user_resp(
1552: p_api_version_number => p_api_version_number
1553: ,p_init_msg_list => FND_API.g_false
1554: ,p_commit => FND_API.G_FALSE
1555: ,x_return_status => x_return_status
1556: ,x_msg_count => x_msg_count
1557: ,x_msg_data => x_msg_data
1550:
1551: PV_USER_RESP_PVT.switch_user_resp(
1552: p_api_version_number => p_api_version_number
1553: ,p_init_msg_list => FND_API.g_false
1554: ,p_commit => FND_API.G_FALSE
1555: ,x_return_status => x_return_status
1556: ,x_msg_count => x_msg_count
1557: ,x_msg_data => x_msg_data
1558: ,p_user_id => l_user_id
1559: ,p_from_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1560: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1561: );
1562:
1563: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: END IF;
1560: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1561: );
1562:
1563: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: END IF;
1568:
1561: );
1562:
1563: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: END IF;
1568:
1569: END IF;
1562:
1563: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1565: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: END IF;
1568:
1569: END IF;
1570: END IF;
1569: END IF;
1570: END IF;
1571:
1572: FND_MSG_PUB.Count_And_Get
1573: ( p_encoded => FND_API.G_FALSE,
1574: p_count => x_msg_count,
1575: p_data => x_msg_data
1576: );
1577:
1574: p_count => x_msg_count,
1575: p_data => x_msg_data
1576: );
1577:
1578: IF FND_API.to_Boolean( p_commit ) THEN
1579: COMMIT WORK;
1580: END IF;
1581:
1582: EXCEPTION
1579: COMMIT WORK;
1580: END IF;
1581:
1582: EXCEPTION
1583: WHEN FND_API.G_EXC_ERROR THEN
1584: ROLLBACK TO assign_role;
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: FND_MSG_PUB.Count_And_Get (
1587: p_encoded => FND_API.G_FALSE
1581:
1582: EXCEPTION
1583: WHEN FND_API.G_EXC_ERROR THEN
1584: ROLLBACK TO assign_role;
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: FND_MSG_PUB.Count_And_Get (
1587: p_encoded => FND_API.G_FALSE
1588: ,p_count => x_msg_count
1589: ,p_data => x_msg_data
1583: WHEN FND_API.G_EXC_ERROR THEN
1584: ROLLBACK TO assign_role;
1585: x_return_status := FND_API.G_RET_STS_ERROR;
1586: FND_MSG_PUB.Count_And_Get (
1587: p_encoded => FND_API.G_FALSE
1588: ,p_count => x_msg_count
1589: ,p_data => x_msg_data
1590: );
1591:
1589: ,p_data => x_msg_data
1590: );
1591:
1592:
1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1594: ROLLBACK TO assign_role;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: -- Standard call to get message count and if count=1, get the message
1597: FND_MSG_PUB.Count_And_Get (
1591:
1592:
1593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1594: ROLLBACK TO assign_role;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: -- Standard call to get message count and if count=1, get the message
1597: FND_MSG_PUB.Count_And_Get (
1598: p_encoded => FND_API.G_FALSE
1599: ,p_count => x_msg_count
1594: ROLLBACK TO assign_role;
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: -- Standard call to get message count and if count=1, get the message
1597: FND_MSG_PUB.Count_And_Get (
1598: p_encoded => FND_API.G_FALSE
1599: ,p_count => x_msg_count
1600: ,p_data => x_msg_data
1601: );
1602:
1601: );
1602:
1603: WHEN OTHERS THEN
1604: ROLLBACK TO assign_role;
1605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1606: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1607: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1608: END IF;
1609: FND_MSG_PUB.Count_And_Get (
1606: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1607: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1608: END IF;
1609: FND_MSG_PUB.Count_And_Get (
1610: p_encoded => FND_API.G_FALSE
1611: ,p_count => x_msg_count
1612: ,p_data => x_msg_data
1613: );
1614:
1617:
1618: PROCEDURE update_role
1619: (
1620: p_api_version_number IN NUMBER
1621: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1623: ,p_assigned_perms IN JTF_VARCHAR2_TABLE_1000
1624: ,p_unassigned_perms IN JTF_VARCHAR2_TABLE_1000
1625: ,p_role_name IN VARCHAR2
1618: PROCEDURE update_role
1619: (
1620: p_api_version_number IN NUMBER
1621: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1622: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1623: ,p_assigned_perms IN JTF_VARCHAR2_TABLE_1000
1624: ,p_unassigned_perms IN JTF_VARCHAR2_TABLE_1000
1625: ,p_role_name IN VARCHAR2
1626: ,x_return_status OUT NOCOPY VARCHAR2
1697: -- Standard Start of API savepoint
1698: SAVEPOINT update_role;
1699:
1700: -- Initialize message list if p_init_msg_list is set to TRUE.
1701: IF FND_API.to_Boolean( p_init_msg_list )
1702: THEN
1703: FND_MSG_PUB.initialize;
1704: END IF;
1705:
1703: FND_MSG_PUB.initialize;
1704: END IF;
1705:
1706: -- Standard call to check for call compatibility.
1707: IF NOT FND_API.Compatible_API_Call (
1708: l_api_version_number
1709: ,p_api_version_number
1710: ,l_api_name
1711: ,G_PKG_NAME
1710: ,l_api_name
1711: ,G_PKG_NAME
1712: )
1713: THEN
1714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1715: END IF;
1716:
1717: -- Debug Message
1718: IF (PV_DEBUG_HIGH_ON) THEN
1721: END IF;
1722:
1723:
1724: -- Initialize API return status to SUCCESS
1725: x_return_status := FND_API.G_RET_STS_SUCCESS;
1726: -------------End Of Initialize -------------------------------
1727:
1728:
1729: IF FND_GLOBAL.User_Id IS NULL THEN
1728:
1729: IF FND_GLOBAL.User_Id IS NULL THEN
1730: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1731: FND_MSG_PUB.add;
1732: RAISE FND_API.G_EXC_ERROR;
1733: END IF;
1734:
1735: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1736: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1731: FND_MSG_PUB.add;
1732: RAISE FND_API.G_EXC_ERROR;
1733: END IF;
1734:
1735: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1736: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1737: fnd_msg_pub.ADD;
1738: raise FND_API.G_EXC_ERROR;
1739: END IF;
1734:
1735: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1736: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1737: fnd_msg_pub.ADD;
1738: raise FND_API.G_EXC_ERROR;
1739: END IF;
1740:
1741: IF (p_assigned_perms IS NOT NULL and p_assigned_perms.count > 0) THEN
1742: FOR i in p_assigned_perms.FIRST .. p_assigned_perms.LAST LOOP
1830: end if;
1831:
1832: PV_USER_RESP_PVT.assign_user_resps(
1833: p_api_version_number => p_api_version_number
1834: ,p_init_msg_list => FND_API.g_false
1835: ,p_commit => FND_API.G_FALSE
1836: ,x_return_status => x_return_status
1837: ,x_msg_count => x_msg_count
1838: ,x_msg_data => x_msg_data
1831:
1832: PV_USER_RESP_PVT.assign_user_resps(
1833: p_api_version_number => p_api_version_number
1834: ,p_init_msg_list => FND_API.g_false
1835: ,p_commit => FND_API.G_FALSE
1836: ,x_return_status => x_return_status
1837: ,x_msg_count => x_msg_count
1838: ,x_msg_data => x_msg_data
1839: ,p_user_id => l_user_ids(X)
1839: ,p_user_id => l_user_ids(X)
1840: ,p_user_role_code => l_role
1841: );
1842:
1843: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1846: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1840: ,p_user_role_code => l_role
1841: );
1842:
1843: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1846: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1848: ELSIF ((l_user_perm_changed(X) = 'PT'
1841: );
1842:
1843: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1846: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1848: ELSIF ((l_user_perm_changed(X) = 'PT'
1849: or (l_prtnr_perm_exists and NOT is_prtnr_perm_revoked))
1842:
1843: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1846: RAISE FND_API.G_EXC_ERROR;
1847: END IF;
1848: ELSIF ((l_user_perm_changed(X) = 'PT'
1849: or (l_prtnr_perm_exists and NOT is_prtnr_perm_revoked))
1850: and is_primary_perm_assigned) THEN
1850: and is_primary_perm_assigned) THEN
1851:
1852: PV_USER_RESP_PVT.switch_user_resp(
1853: p_api_version_number => p_api_version_number
1854: ,p_init_msg_list => FND_API.g_false
1855: ,p_commit => FND_API.G_FALSE
1856: ,x_return_status => x_return_status
1857: ,x_msg_count => x_msg_count
1858: ,x_msg_data => x_msg_data
1851:
1852: PV_USER_RESP_PVT.switch_user_resp(
1853: p_api_version_number => p_api_version_number
1854: ,p_init_msg_list => FND_API.g_false
1855: ,p_commit => FND_API.G_FALSE
1856: ,x_return_status => x_return_status
1857: ,x_msg_count => x_msg_count
1858: ,x_msg_data => x_msg_data
1859: ,p_user_id => l_user_ids(X)
1860: ,p_from_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1861: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1862: );
1863:
1864: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1867: RAISE FND_API.G_EXC_ERROR;
1868: END IF;
1861: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1862: );
1863:
1864: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1867: RAISE FND_API.G_EXC_ERROR;
1868: END IF;
1869: END IF;
1862: );
1863:
1864: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1867: RAISE FND_API.G_EXC_ERROR;
1868: END IF;
1869: END IF;
1870: END IF;
1863:
1864: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1866: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1867: RAISE FND_API.G_EXC_ERROR;
1868: END IF;
1869: END IF;
1870: END IF;
1871:
1879: end if;
1880:
1881: PV_USER_RESP_PVT.revoke_user_resps(
1882: p_api_version_number => p_api_version_number
1883: ,p_init_msg_list => FND_API.g_false
1884: ,p_commit => FND_API.G_FALSE
1885: ,x_return_status => x_return_status
1886: ,x_msg_count => x_msg_count
1887: ,x_msg_data => x_msg_data
1880:
1881: PV_USER_RESP_PVT.revoke_user_resps(
1882: p_api_version_number => p_api_version_number
1883: ,p_init_msg_list => FND_API.g_false
1884: ,p_commit => FND_API.G_FALSE
1885: ,x_return_status => x_return_status
1886: ,x_msg_count => x_msg_count
1887: ,x_msg_data => x_msg_data
1888: ,p_user_id => l_user_ids(X)
1888: ,p_user_id => l_user_ids(X)
1889: ,p_user_role_code => l_role
1890: );
1891:
1892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1889: ,p_user_role_code => l_role
1890: );
1891:
1892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1890: );
1891:
1892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1898: /** If partner user and primary user permission is revoked and user will become business user after this **/
1891:
1892: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: END IF;
1897:
1898: /** If partner user and primary user permission is revoked and user will become business user after this **/
1899: elsif ((l_user_perm_changed(X) = 'PT' or (l_user_perm_changed(X) is null and l_prtnr_perm_exists)) and is_primary_perm_revoked) THEN
1900:
1901:
1902: PV_USER_RESP_PVT.switch_user_resp(
1903: p_api_version_number => p_api_version_number
1904: ,p_init_msg_list => FND_API.g_false
1905: ,p_commit => FND_API.G_FALSE
1906: ,x_return_status => x_return_status
1907: ,x_msg_count => x_msg_count
1908: ,x_msg_data => x_msg_data
1901:
1902: PV_USER_RESP_PVT.switch_user_resp(
1903: p_api_version_number => p_api_version_number
1904: ,p_init_msg_list => FND_API.g_false
1905: ,p_commit => FND_API.G_FALSE
1906: ,x_return_status => x_return_status
1907: ,x_msg_count => x_msg_count
1908: ,x_msg_data => x_msg_data
1909: ,p_user_id => l_user_ids(X)
1910: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1911: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1912: );
1913:
1914: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1911: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1912: );
1913:
1914: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919: END IF;
1912: );
1913:
1914: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919: END IF;
1920: END IF;
1913:
1914: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1916: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1917: RAISE FND_API.G_EXC_ERROR;
1918: END IF;
1919: END IF;
1920: END IF;
1921: END LOOP;
1927:
1928:
1929:
1930: FND_MSG_PUB.Count_And_Get
1931: ( p_encoded => FND_API.G_FALSE,
1932: p_count => x_msg_count,
1933: p_data => x_msg_data
1934: );
1935:
1932: p_count => x_msg_count,
1933: p_data => x_msg_data
1934: );
1935:
1936: IF FND_API.to_Boolean( p_commit ) THEN
1937: COMMIT WORK;
1938: END IF;
1939:
1940: EXCEPTION
1937: COMMIT WORK;
1938: END IF;
1939:
1940: EXCEPTION
1941: WHEN FND_API.G_EXC_ERROR THEN
1942: ROLLBACK TO update_role;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get (
1945: p_encoded => FND_API.G_FALSE
1939:
1940: EXCEPTION
1941: WHEN FND_API.G_EXC_ERROR THEN
1942: ROLLBACK TO update_role;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get (
1945: p_encoded => FND_API.G_FALSE
1946: ,p_count => x_msg_count
1947: ,p_data => x_msg_data
1941: WHEN FND_API.G_EXC_ERROR THEN
1942: ROLLBACK TO update_role;
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: FND_MSG_PUB.Count_And_Get (
1945: p_encoded => FND_API.G_FALSE
1946: ,p_count => x_msg_count
1947: ,p_data => x_msg_data
1948: );
1949:
1947: ,p_data => x_msg_data
1948: );
1949:
1950:
1951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1952: ROLLBACK TO update_role;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1954: -- Standard call to get message count and if count=1, get the message
1955: FND_MSG_PUB.Count_And_Get (
1949:
1950:
1951: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1952: ROLLBACK TO update_role;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1954: -- Standard call to get message count and if count=1, get the message
1955: FND_MSG_PUB.Count_And_Get (
1956: p_encoded => FND_API.G_FALSE
1957: ,p_count => x_msg_count
1952: ROLLBACK TO update_role;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1954: -- Standard call to get message count and if count=1, get the message
1955: FND_MSG_PUB.Count_And_Get (
1956: p_encoded => FND_API.G_FALSE
1957: ,p_count => x_msg_count
1958: ,p_data => x_msg_data
1959: );
1960:
1959: );
1960:
1961: WHEN OTHERS THEN
1962: ROLLBACK TO update_role;
1963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1964: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1965: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1966: END IF;
1967: FND_MSG_PUB.Count_And_Get (
1964: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1965: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1966: END IF;
1967: FND_MSG_PUB.Count_And_Get (
1968: p_encoded => FND_API.G_FALSE
1969: ,p_count => x_msg_count
1970: ,p_data => x_msg_data
1971: );
1972:
2154: -- jkylee: call register partner user procedure
2155: pv_user_mgmt_pvt.register_partner_user
2156: (
2157: p_api_version_number => l_api_version_number
2158: ,p_init_msg_list => FND_API.g_false
2159: ,p_commit => FND_API.G_FALSE
2160: ,p_partner_user_rec => partner_user_rec
2161: ,x_return_status => x_return_status
2162: ,x_msg_count => x_msg_count
2155: pv_user_mgmt_pvt.register_partner_user
2156: (
2157: p_api_version_number => l_api_version_number
2158: ,p_init_msg_list => FND_API.g_false
2159: ,p_commit => FND_API.G_FALSE
2160: ,p_partner_user_rec => partner_user_rec
2161: ,x_return_status => x_return_status
2162: ,x_msg_count => x_msg_count
2163: ,x_msg_data => x_msg_data
2169: ,'after call pv_user_mgmt_pvt.register_partner_user: x_return_status='|| x_return_status || ',x_msg_count=' || to_char(x_msg_count));
2170: END IF;
2171:
2172: FND_MSG_PUB.Count_And_Get
2173: ( p_encoded => FND_API.G_FALSE,
2174: p_count => x_msg_count,
2175: p_data => x_msg_data
2176: );
2177:
2191: END IF;
2192: FOR k IN 1 .. x_msg_count LOOP
2193: fnd_msg_pub.get (
2194: p_msg_index => k
2195: ,p_encoded => FND_API.G_FALSE
2196: ,p_data => x_msg_data
2197: ,p_msg_index_out => x_msg_index);
2198:
2199:
2214: RETURN 'SUCCESS';
2215:
2216:
2217: EXCEPTION
2218: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2219: WF_CORE.CONTEXT('PV', 'post_approval',
2220: p_event.getEventName(), p_subscription_guid);
2221: WF_EVENT.setErrorInfo(p_event, 'UNEXPECTED ERROR');
2222: RETURN 'ERROR';
2243: --| |
2244: --==============================================================================
2245: PROCEDURE update_elig_prgm_4_new_ptnr(
2246: p_api_version_number IN NUMBER
2247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2249: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2250: ,x_return_status OUT NOCOPY VARCHAR2
2251: ,x_msg_count OUT NOCOPY NUMBER
2244: --==============================================================================
2245: PROCEDURE update_elig_prgm_4_new_ptnr(
2246: p_api_version_number IN NUMBER
2247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2249: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2250: ,x_return_status OUT NOCOPY VARCHAR2
2251: ,x_msg_count OUT NOCOPY NUMBER
2252: ,x_msg_data OUT NOCOPY VARCHAR2
2245: PROCEDURE update_elig_prgm_4_new_ptnr(
2246: p_api_version_number IN NUMBER
2247: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2248: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2249: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2250: ,x_return_status OUT NOCOPY VARCHAR2
2251: ,x_msg_count OUT NOCOPY NUMBER
2252: ,x_msg_data OUT NOCOPY VARCHAR2
2253: ,p_partner_id IN NUMBER
2311: IF (PV_DEBUG_HIGH_ON) THEN
2312: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
2313: END IF;
2314:
2315: x_return_status := FND_API.G_RET_STS_SUCCESS;
2316:
2317: FOR x IN c_get_program_info LOOP
2318: l_prereq_exist := false;
2319: l_no_membership := false;
2388: END IF;
2389:
2390: PV_RULE_EVALUATION_PUB.quick_partner_eval_outcome(
2391: p_api_version => p_api_version_number
2392: ,p_init_msg_list => FND_API.G_FALSE
2393: ,p_commit => FND_API.G_FALSE
2394: ,p_validation_level => p_validation_level
2395: ,p_partner_id => p_partner_id
2396: ,p_rule_id_tbl => l_rule_id_tbl
2389:
2390: PV_RULE_EVALUATION_PUB.quick_partner_eval_outcome(
2391: p_api_version => p_api_version_number
2392: ,p_init_msg_list => FND_API.G_FALSE
2393: ,p_commit => FND_API.G_FALSE
2394: ,p_validation_level => p_validation_level
2395: ,p_partner_id => p_partner_id
2396: ,p_rule_id_tbl => l_rule_id_tbl
2397: ,x_rule_pass_flag => l_rule_pass_flag
2399: ,x_msg_count => x_msg_count
2400: ,x_msg_data => x_msg_data
2401: );
2402:
2403: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2404: IF (PV_DEBUG_HIGH_ON) THEN
2405: PVX_UTILITY_PVT.debug_message('x_return_status = ' || x_return_status);
2406: END IF;
2407: RAISE FND_API.G_EXC_ERROR;
2403: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2404: IF (PV_DEBUG_HIGH_ON) THEN
2405: PVX_UTILITY_PVT.debug_message('x_return_status = ' || x_return_status);
2406: END IF;
2407: RAISE FND_API.G_EXC_ERROR;
2408: END IF;
2409:
2410: IF (PV_DEBUG_HIGH_ON) THEN
2411: PVX_UTILITY_PVT.debug_message('l_rule_pass_flag = '||l_rule_pass_flag);
2470: END IF;
2471: END IF;
2472:
2473: FND_MSG_PUB.Count_And_Get (
2474: p_encoded => FND_API.G_FALSE,
2475: p_count => x_msg_count,
2476: p_data => x_msg_data
2477: );
2478:
2476: p_data => x_msg_data
2477: );
2478:
2479: -- Standard check for p_commit
2480: IF FND_API.to_Boolean( p_commit ) THEN
2481: COMMIT WORK;
2482: END IF;
2483:
2484: EXCEPTION
2482: END IF;
2483:
2484: EXCEPTION
2485: WHEN PVX_Utility_PVT.resource_locked THEN
2486: x_return_status := FND_API.g_ret_sts_error;
2487: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2488:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: x_return_status := FND_API.G_RET_STS_ERROR;
2485: WHEN PVX_Utility_PVT.resource_locked THEN
2486: x_return_status := FND_API.g_ret_sts_error;
2487: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2488:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: x_return_status := FND_API.G_RET_STS_ERROR;
2491: -- Standard call to get message count and if count=1, get the message
2492: FND_MSG_PUB.Count_And_Get (
2493: p_encoded => FND_API.G_FALSE,
2486: x_return_status := FND_API.g_ret_sts_error;
2487: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2488:
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: x_return_status := FND_API.G_RET_STS_ERROR;
2491: -- Standard call to get message count and if count=1, get the message
2492: FND_MSG_PUB.Count_And_Get (
2493: p_encoded => FND_API.G_FALSE,
2494: p_count => x_msg_count,
2489: WHEN FND_API.G_EXC_ERROR THEN
2490: x_return_status := FND_API.G_RET_STS_ERROR;
2491: -- Standard call to get message count and if count=1, get the message
2492: FND_MSG_PUB.Count_And_Get (
2493: p_encoded => FND_API.G_FALSE,
2494: p_count => x_msg_count,
2495: p_data => x_msg_data
2496: );
2497:
2494: p_count => x_msg_count,
2495: p_data => x_msg_data
2496: );
2497:
2498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2500: -- Standard call to get message count and if count=1, get the message
2501: FND_MSG_PUB.Count_And_Get (
2502: p_encoded => FND_API.G_FALSE,
2495: p_data => x_msg_data
2496: );
2497:
2498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2500: -- Standard call to get message count and if count=1, get the message
2501: FND_MSG_PUB.Count_And_Get (
2502: p_encoded => FND_API.G_FALSE,
2503: p_count => x_msg_count,
2498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2500: -- Standard call to get message count and if count=1, get the message
2501: FND_MSG_PUB.Count_And_Get (
2502: p_encoded => FND_API.G_FALSE,
2503: p_count => x_msg_count,
2504: p_data => x_msg_data
2505: );
2506:
2504: p_data => x_msg_data
2505: );
2506:
2507: WHEN OTHERS THEN
2508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2509: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2510: THEN
2511: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2512: END IF;
2511: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2512: END IF;
2513: -- Standard call to get message count and if count=1, get the message
2514: FND_MSG_PUB.Count_And_Get (
2515: p_encoded => FND_API.G_FALSE,
2516: p_count => x_msg_count,
2517: p_data => x_msg_data
2518: );
2519: END update_elig_prgm_4_new_ptnr;