[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
488: -- Standard Start of API savepoint
489: SAVEPOINT Register_Partner_And_User;
490:
491: -- Initialize message list if p_init_msg_list is set to TRUE.
492: IF FND_API.to_Boolean( p_init_msg_list )
493: THEN
494: FND_MSG_PUB.initialize;
495: END IF;
496:
494: FND_MSG_PUB.initialize;
495: END IF;
496:
497: -- Standard call to check for call compatibility.
498: IF NOT FND_API.Compatible_API_Call (
499: l_api_version_number
500: ,p_api_version_number
501: ,l_api_name
502: ,G_PKG_NAME
501: ,l_api_name
502: ,G_PKG_NAME
503: )
504: THEN
505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: END IF;
507:
508: -- Debug Message
509: IF (PV_DEBUG_HIGH_ON) THEN
511: END IF;
512:
513:
514: -- Initialize API return status to SUCCESS
515: x_return_status := FND_API.G_RET_STS_SUCCESS;
516: -------------End Of Initialize -------------------------------
517:
518: IF FND_GLOBAL.User_Id IS NULL THEN
519: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
517:
518: IF FND_GLOBAL.User_Id IS NULL THEN
519: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
520: FND_MSG_PUB.add;
521: RAISE FND_API.G_EXC_ERROR;
522: END IF;
523:
524:
525: IF P_partner_type IS NULL THEN
524:
525: IF P_partner_type IS NULL THEN
526: fnd_message.SET_NAME ('PV', 'PV_MISSING_PRTNR_TYPE');
527: fnd_msg_pub.ADD;
528: raise FND_API.G_EXC_ERROR;
529: END IF;
530:
531: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
532: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
527: fnd_msg_pub.ADD;
528: raise FND_API.G_EXC_ERROR;
529: END IF;
530:
531: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
532: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
533: fnd_msg_pub.ADD;
534: raise FND_API.G_EXC_ERROR;
535: END IF;
530:
531: IF (p_partner_rec.partner_party_id IS NULL or p_partner_rec.partner_party_id = FND_API.G_MISS_NUM) THEN
532: fnd_message.SET_NAME ('PV', 'PV_MISSING_ORGZN_ID');
533: fnd_msg_pub.ADD;
534: raise FND_API.G_EXC_ERROR;
535: END IF;
536:
537: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
538: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
533: fnd_msg_pub.ADD;
534: raise FND_API.G_EXC_ERROR;
535: END IF;
536:
537: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
538: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
539: fnd_msg_pub.ADD;
540: raise FND_API.G_EXC_ERROR;
541: END IF;
536:
537: IF (p_partner_rec.member_type IS NULL or p_partner_rec.member_type = FND_API.G_MISS_CHAR) THEN
538: fnd_message.SET_NAME ('PV', 'PV_MISSING_MEMBER_TYPE');
539: fnd_msg_pub.ADD;
540: raise FND_API.G_EXC_ERROR;
541: END IF;
542:
543: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
544: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
539: fnd_msg_pub.ADD;
540: raise FND_API.G_EXC_ERROR;
541: END IF;
542:
543: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
544: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
545: fnd_msg_pub.ADD;
546: raise FND_API.G_EXC_ERROR;
547: END IF;
542:
543: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
544: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
545: fnd_msg_pub.ADD;
546: raise FND_API.G_EXC_ERROR;
547: END IF;
548:
549:
550: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
547: END IF;
548:
549:
550: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
551: IF(p_partner_rec.global_prtnr_org_number IS NULL OR p_partner_rec.global_prtnr_org_number = FND_API.G_MISS_CHAR) THEN
552: fnd_message.SET_NAME ('PV', 'PV_MISSING_GLOBAL_ID');
553: fnd_msg_pub.ADD;
554: raise FND_API.G_EXC_ERROR;
555: ELSE
550: if(p_partner_rec.member_type = 'SUBSIDIARY') THEN
551: IF(p_partner_rec.global_prtnr_org_number IS NULL OR p_partner_rec.global_prtnr_org_number = FND_API.G_MISS_CHAR) THEN
552: fnd_message.SET_NAME ('PV', 'PV_MISSING_GLOBAL_ID');
553: fnd_msg_pub.ADD;
554: raise FND_API.G_EXC_ERROR;
555: ELSE
556: 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);
557: END IF;
558: END IF;
556: 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);
557: END IF;
558: END IF;
559:
560: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
561: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
562: fnd_msg_pub.ADD;
563: raise FND_API.G_EXC_ERROR;
564: END IF;
559:
560: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
561: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
562: fnd_msg_pub.ADD;
563: raise FND_API.G_EXC_ERROR;
564: END IF;
565:
566:
567: FOR X in get_user_role(p_partner_user_rec.user_type_id) LOOP
574:
575: IF((not is_partner_user) or (not is_primary_user)) THEN
576: fnd_message.SET_NAME ('PV', 'PV_NOT_PRTNR_PRIMARY_USER');
577: fnd_msg_pub.ADD;
578: raise FND_API.G_EXC_ERROR;
579: END IF;
580:
581: l_partner_types_tbl(1).attr_value := P_partner_type;
582: l_partner_types_tbl(1).attr_value_extn := 'Y' ;
583:
584: pv_partner_util_pvt.Create_Relationship
585: (
586: p_api_version_number => p_api_version_number
587: ,p_init_msg_list => FND_API.g_false
588: ,p_commit => FND_API.G_FALSE
589: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
590: ,x_return_status => x_return_status
591: ,x_msg_data => x_msg_data
584: pv_partner_util_pvt.Create_Relationship
585: (
586: p_api_version_number => p_api_version_number
587: ,p_init_msg_list => FND_API.g_false
588: ,p_commit => FND_API.G_FALSE
589: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
590: ,x_return_status => x_return_status
591: ,x_msg_data => x_msg_data
592: ,x_msg_count => x_msg_count
585: (
586: p_api_version_number => p_api_version_number
587: ,p_init_msg_list => FND_API.g_false
588: ,p_commit => FND_API.G_FALSE
589: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
590: ,x_return_status => x_return_status
591: ,x_msg_data => x_msg_data
592: ,x_msg_count => x_msg_count
593: ,p_party_id => p_partner_rec.partner_party_id
600: ,x_resp_map_rule_id => l_resp_map_rule_id
601: ,x_group_id => l_partner_group_id
602: );
603:
604: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
601: ,x_group_id => l_partner_group_id
602: );
603:
604: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
602: );
603:
604: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610:
603:
604: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610:
611:
609:
610:
611:
612: FND_MSG_PUB.Count_And_Get
613: ( p_encoded => FND_API.G_FALSE,
614: p_count => x_msg_count,
615: p_data => x_msg_data
616: );
617:
614: p_count => x_msg_count,
615: p_data => x_msg_data
616: );
617:
618: IF FND_API.to_Boolean( p_commit ) THEN
619: COMMIT WORK;
620: END IF;
621:
622: EXCEPTION
619: COMMIT WORK;
620: END IF;
621:
622: EXCEPTION
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO Register_Partner_And_User;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.Count_And_Get (
627: p_encoded => FND_API.G_FALSE
621:
622: EXCEPTION
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO Register_Partner_And_User;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.Count_And_Get (
627: p_encoded => FND_API.G_FALSE
628: ,p_count => x_msg_count
629: ,p_data => x_msg_data
623: WHEN FND_API.G_EXC_ERROR THEN
624: ROLLBACK TO Register_Partner_And_User;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: FND_MSG_PUB.Count_And_Get (
627: p_encoded => FND_API.G_FALSE
628: ,p_count => x_msg_count
629: ,p_data => x_msg_data
630: );
631:
629: ,p_data => x_msg_data
630: );
631:
632:
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: ROLLBACK TO Register_Partner_And_User;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: -- Standard call to get message count and if count=1, get the message
637: FND_MSG_PUB.Count_And_Get (
631:
632:
633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
634: ROLLBACK TO Register_Partner_And_User;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: -- Standard call to get message count and if count=1, get the message
637: FND_MSG_PUB.Count_And_Get (
638: p_encoded => FND_API.G_FALSE
639: ,p_count => x_msg_count
634: ROLLBACK TO Register_Partner_And_User;
635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
636: -- Standard call to get message count and if count=1, get the message
637: FND_MSG_PUB.Count_And_Get (
638: p_encoded => FND_API.G_FALSE
639: ,p_count => x_msg_count
640: ,p_data => x_msg_data
641: );
642:
641: );
642:
643: WHEN OTHERS THEN
644: ROLLBACK TO Register_Partner_And_User;
645: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
646: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
647: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
648: END IF;
649: FND_MSG_PUB.Count_And_Get (
646: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
647: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
648: END IF;
649: FND_MSG_PUB.Count_And_Get (
650: p_encoded => FND_API.G_FALSE
651: ,p_count => x_msg_count
652: ,p_data => x_msg_data
653: );
654:
657:
658: PROCEDURE register_partner_user
659: (
660: p_api_version_number IN NUMBER
661: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
662: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
663: ,p_partner_user_rec IN partner_User_rec_type
664: ,x_return_status OUT NOCOPY VARCHAR2
665: ,x_msg_count OUT NOCOPY NUMBER
658: PROCEDURE register_partner_user
659: (
660: p_api_version_number IN NUMBER
661: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
662: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
663: ,p_partner_user_rec IN partner_User_rec_type
664: ,x_return_status OUT NOCOPY VARCHAR2
665: ,x_msg_count OUT NOCOPY NUMBER
666: ,x_msg_data OUT NOCOPY VARCHAR2
708: -- Standard Start of API savepoint
709: SAVEPOINT register_partner_user;
710:
711: -- Initialize message list if p_init_msg_list is set to TRUE.
712: IF FND_API.to_Boolean( p_init_msg_list )
713: THEN
714: FND_MSG_PUB.initialize;
715: END IF;
716:
714: FND_MSG_PUB.initialize;
715: END IF;
716:
717: -- Standard call to check for call compatibility.
718: IF NOT FND_API.Compatible_API_Call (
719: l_api_version_number
720: ,p_api_version_number
721: ,l_api_name
722: ,G_PKG_NAME
721: ,l_api_name
722: ,G_PKG_NAME
723: )
724: THEN
725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
726: END IF;
727:
728: -- Debug Message
729: IF (PV_DEBUG_HIGH_ON) THEN
732: END IF;
733:
734:
735: -- Initialize API return status to SUCCESS
736: x_return_status := FND_API.G_RET_STS_SUCCESS;
737: -------------End Of Initialize -------------------------------
738:
739:
740: IF FND_GLOBAL.User_Id IS NULL THEN
739:
740: IF FND_GLOBAL.User_Id IS NULL THEN
741: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
742: FND_MSG_PUB.add;
743: RAISE FND_API.G_EXC_ERROR;
744: END IF;
745:
746: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
747: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
742: FND_MSG_PUB.add;
743: RAISE FND_API.G_EXC_ERROR;
744: END IF;
745:
746: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
747: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
748: fnd_msg_pub.ADD;
749: raise FND_API.G_EXC_ERROR;
750: END IF;
745:
746: IF (p_partner_user_rec.user_id IS NULL or p_partner_user_rec.user_id = FND_API.G_MISS_NUM) THEN
747: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_ID');
748: fnd_msg_pub.ADD;
749: raise FND_API.G_EXC_ERROR;
750: END IF;
751:
752: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
753: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
748: fnd_msg_pub.ADD;
749: raise FND_API.G_EXC_ERROR;
750: END IF;
751:
752: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
753: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
754: fnd_msg_pub.ADD;
755: raise FND_API.G_EXC_ERROR;
756: END IF;
751:
752: IF (p_partner_user_rec.user_type_id IS NULL or p_partner_user_rec.user_type_id = FND_API.G_MISS_NUM) THEN
753: fnd_message.SET_NAME ('PV', 'PV_MISSING_USERTYPE_ID');
754: fnd_msg_pub.ADD;
755: raise FND_API.G_EXC_ERROR;
756: END IF;
757:
758:
759: FOR X in get_user_role(p_partner_user_rec.user_type_id) LOOP
766:
767: IF(not is_partner_user) THEN
768: fnd_message.SET_NAME ('PV', 'PV_NOT_PRTNR_USER');
769: fnd_msg_pub.ADD;
770: raise FND_API.G_EXC_ERROR;
771: END IF;
772:
773: create_user_resource(
774: p_api_version_number => p_api_version_number
771: END IF;
772:
773: create_user_resource(
774: p_api_version_number => p_api_version_number
775: ,p_init_msg_list => FND_API.g_false
776: ,p_commit => FND_API.G_FALSE
777: ,p_partner_user_rec => p_partner_user_rec
778: ,x_return_status => x_return_status
779: ,x_msg_count => x_msg_count
772:
773: create_user_resource(
774: p_api_version_number => p_api_version_number
775: ,p_init_msg_list => FND_API.g_false
776: ,p_commit => FND_API.G_FALSE
777: ,p_partner_user_rec => p_partner_user_rec
778: ,x_return_status => x_return_status
779: ,x_msg_count => x_msg_count
780: ,x_msg_data => x_msg_data
780: ,x_msg_data => x_msg_data
781: );
782:
783:
784: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
781: );
782:
783:
784: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
782:
783:
784: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790: IF (is_primary_user) THEN
783:
784: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
787: RAISE FND_API.G_EXC_ERROR;
788: END IF;
789:
790: IF (is_primary_user) THEN
791: l_role := pv_user_Resp_pvt.G_PRIMARY;
794: END IF;
795:
796: pv_user_Resp_pvt.assign_user_resps(
797: p_api_version_number => p_api_version_number
798: ,p_init_msg_list => FND_API.g_false
799: ,p_commit => FND_API.G_FALSE
800: ,x_return_status => x_return_status
801: ,x_msg_count => x_msg_count
802: ,x_msg_data => x_msg_data
795:
796: pv_user_Resp_pvt.assign_user_resps(
797: p_api_version_number => p_api_version_number
798: ,p_init_msg_list => FND_API.g_false
799: ,p_commit => FND_API.G_FALSE
800: ,x_return_status => x_return_status
801: ,x_msg_count => x_msg_count
802: ,x_msg_data => x_msg_data
803: ,p_user_id => p_partner_user_rec.user_id
803: ,p_user_id => p_partner_user_rec.user_id
804: ,p_user_role_code => l_role
805: );
806:
807: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
804: ,p_user_role_code => l_role
805: );
806:
807: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
805: );
806:
807: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
813:
806:
807: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
809: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
813:
814: FND_MSG_PUB.Count_And_Get
811: END IF;
812:
813:
814: FND_MSG_PUB.Count_And_Get
815: ( p_encoded => FND_API.G_FALSE,
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819:
816: p_count => x_msg_count,
817: p_data => x_msg_data
818: );
819:
820: IF FND_API.to_Boolean( p_commit ) THEN
821: COMMIT WORK;
822: END IF;
823:
824: EXCEPTION
821: COMMIT WORK;
822: END IF;
823:
824: EXCEPTION
825: WHEN FND_API.G_EXC_ERROR THEN
826: ROLLBACK TO register_partner_user;
827: x_return_status := FND_API.G_RET_STS_ERROR;
828: FND_MSG_PUB.Count_And_Get (
829: p_encoded => FND_API.G_FALSE
823:
824: EXCEPTION
825: WHEN FND_API.G_EXC_ERROR THEN
826: ROLLBACK TO register_partner_user;
827: x_return_status := FND_API.G_RET_STS_ERROR;
828: FND_MSG_PUB.Count_And_Get (
829: p_encoded => FND_API.G_FALSE
830: ,p_count => x_msg_count
831: ,p_data => x_msg_data
825: WHEN FND_API.G_EXC_ERROR THEN
826: ROLLBACK TO register_partner_user;
827: x_return_status := FND_API.G_RET_STS_ERROR;
828: FND_MSG_PUB.Count_And_Get (
829: p_encoded => FND_API.G_FALSE
830: ,p_count => x_msg_count
831: ,p_data => x_msg_data
832: );
833:
831: ,p_data => x_msg_data
832: );
833:
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO register_partner_user;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
833:
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO register_partner_user;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
840: p_encoded => FND_API.G_FALSE
841: ,p_count => x_msg_count
836: ROLLBACK TO register_partner_user;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: -- Standard call to get message count and if count=1, get the message
839: FND_MSG_PUB.Count_And_Get (
840: p_encoded => FND_API.G_FALSE
841: ,p_count => x_msg_count
842: ,p_data => x_msg_data
843: );
844:
843: );
844:
845: WHEN OTHERS THEN
846: ROLLBACK TO register_partner_user;
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
849: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
850: END IF;
851: FND_MSG_PUB.Count_And_Get (
848: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
849: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
850: END IF;
851: FND_MSG_PUB.Count_And_Get (
852: p_encoded => FND_API.G_FALSE
853: ,p_count => x_msg_count
854: ,p_data => x_msg_data
855: );
856:
859:
860: PROCEDURE revoke_role
861: (
862: p_api_version_number IN NUMBER
863: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
864: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
865: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
866: ,p_user_name IN VARCHAR2
867: ,x_return_status OUT NOCOPY VARCHAR2
860: PROCEDURE revoke_role
861: (
862: p_api_version_number IN NUMBER
863: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
864: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
865: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
866: ,p_user_name IN VARCHAR2
867: ,x_return_status OUT NOCOPY VARCHAR2
868: ,x_msg_count OUT NOCOPY NUMBER
924: -- Standard Start of API savepoint
925: SAVEPOINT revoke_role;
926:
927: -- Initialize message list if p_init_msg_list is set to TRUE.
928: IF FND_API.to_Boolean( p_init_msg_list )
929: THEN
930: FND_MSG_PUB.initialize;
931: END IF;
932:
930: FND_MSG_PUB.initialize;
931: END IF;
932:
933: -- Standard call to check for call compatibility.
934: IF NOT FND_API.Compatible_API_Call (
935: l_api_version_number
936: ,p_api_version_number
937: ,l_api_name
938: ,G_PKG_NAME
937: ,l_api_name
938: ,G_PKG_NAME
939: )
940: THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: END IF;
943:
944: -- Debug Message
945: IF (PV_DEBUG_HIGH_ON) THEN
948: END IF;
949:
950:
951: -- Initialize API return status to SUCCESS
952: x_return_status := FND_API.G_RET_STS_SUCCESS;
953: -------------End Of Initialize -------------------------------
954:
955:
956: IF FND_GLOBAL.User_Id IS NULL THEN
955:
956: IF FND_GLOBAL.User_Id IS NULL THEN
957: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
958: FND_MSG_PUB.add;
959: RAISE FND_API.G_EXC_ERROR;
960: END IF;
961:
962: IF (p_role_name.count < 1) THEN
963: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
961:
962: IF (p_role_name.count < 1) THEN
963: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
964: fnd_msg_pub.ADD;
965: raise FND_API.G_EXC_ERROR;
966: END IF;
967:
968: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
969: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
964: fnd_msg_pub.ADD;
965: raise FND_API.G_EXC_ERROR;
966: END IF;
967:
968: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
969: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
970: fnd_msg_pub.ADD;
971: raise FND_API.G_EXC_ERROR;
972: END IF;
967:
968: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
969: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
970: fnd_msg_pub.ADD;
971: raise FND_API.G_EXC_ERROR;
972: END IF;
973:
974: /** Check if partner or primary permissions are part of the current role. IF NOT, we do not need to do any thing **/
975: FOR X in check_curr_role_perms(p_role_name) LOOP
1011: END IF;
1012:
1013: PV_USER_RESP_PVT.revoke_user_resps(
1014: p_api_version_number => p_api_version_number
1015: ,p_init_msg_list => FND_API.g_false
1016: ,p_commit => FND_API.G_FALSE
1017: ,x_return_status => x_return_status
1018: ,x_msg_count => x_msg_count
1019: ,x_msg_data => x_msg_data
1012:
1013: PV_USER_RESP_PVT.revoke_user_resps(
1014: p_api_version_number => p_api_version_number
1015: ,p_init_msg_list => FND_API.g_false
1016: ,p_commit => FND_API.G_FALSE
1017: ,x_return_status => x_return_status
1018: ,x_msg_count => x_msg_count
1019: ,x_msg_data => x_msg_data
1020: ,p_user_id => l_user_id
1020: ,p_user_id => l_user_id
1021: ,p_user_role_code => l_role
1022: );
1023:
1024: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1021: ,p_user_role_code => l_role
1022: );
1023:
1024: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1022: );
1023:
1024: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1030: /** If partner user and primary user permission is revoked and user will become business user after this **/
1023:
1024: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1026: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1027: RAISE FND_API.G_EXC_ERROR;
1028: END IF;
1029:
1030: /** If partner user and primary user permission is revoked and user will become business user after this **/
1031: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1030: /** If partner user and primary user permission is revoked and user will become business user after this **/
1031: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1032: PV_USER_RESP_PVT.switch_user_resp(
1033: p_api_version_number => p_api_version_number
1034: ,p_init_msg_list => FND_API.g_false
1035: ,p_commit => FND_API.G_FALSE
1036: ,x_return_status => x_return_status
1037: ,x_msg_count => x_msg_count
1038: ,x_msg_data => x_msg_data
1031: elsif (is_partner_user and (NOT is_primary_user) and is_primary_perm_revoked) THEN
1032: PV_USER_RESP_PVT.switch_user_resp(
1033: p_api_version_number => p_api_version_number
1034: ,p_init_msg_list => FND_API.g_false
1035: ,p_commit => FND_API.G_FALSE
1036: ,x_return_status => x_return_status
1037: ,x_msg_count => x_msg_count
1038: ,x_msg_data => x_msg_data
1039: ,p_user_id => l_user_id
1040: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1041: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1042: );
1043:
1044: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1041: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1042: );
1043:
1044: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049:
1042: );
1043:
1044: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049:
1050: END IF;
1043:
1044: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1046: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1047: RAISE FND_API.G_EXC_ERROR;
1048: END IF;
1049:
1050: END IF;
1051: end if;
1050: END IF;
1051: end if;
1052:
1053: FND_MSG_PUB.Count_And_Get
1054: ( p_encoded => FND_API.G_FALSE,
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058:
1055: p_count => x_msg_count,
1056: p_data => x_msg_data
1057: );
1058:
1059: IF FND_API.to_Boolean( p_commit ) THEN
1060: COMMIT WORK;
1061: END IF;
1062:
1063: EXCEPTION
1060: COMMIT WORK;
1061: END IF;
1062:
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: ROLLBACK TO revoke_role;
1066: x_return_status := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.Count_And_Get (
1068: p_encoded => FND_API.G_FALSE
1062:
1063: EXCEPTION
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: ROLLBACK TO revoke_role;
1066: x_return_status := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.Count_And_Get (
1068: p_encoded => FND_API.G_FALSE
1069: ,p_count => x_msg_count
1070: ,p_data => x_msg_data
1064: WHEN FND_API.G_EXC_ERROR THEN
1065: ROLLBACK TO revoke_role;
1066: x_return_status := FND_API.G_RET_STS_ERROR;
1067: FND_MSG_PUB.Count_And_Get (
1068: p_encoded => FND_API.G_FALSE
1069: ,p_count => x_msg_count
1070: ,p_data => x_msg_data
1071: );
1072:
1070: ,p_data => x_msg_data
1071: );
1072:
1073:
1074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: ROLLBACK TO revoke_role;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: -- Standard call to get message count and if count=1, get the message
1078: FND_MSG_PUB.Count_And_Get (
1072:
1073:
1074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: ROLLBACK TO revoke_role;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: -- Standard call to get message count and if count=1, get the message
1078: FND_MSG_PUB.Count_And_Get (
1079: p_encoded => FND_API.G_FALSE
1080: ,p_count => x_msg_count
1075: ROLLBACK TO revoke_role;
1076: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1077: -- Standard call to get message count and if count=1, get the message
1078: FND_MSG_PUB.Count_And_Get (
1079: p_encoded => FND_API.G_FALSE
1080: ,p_count => x_msg_count
1081: ,p_data => x_msg_data
1082: );
1083:
1082: );
1083:
1084: WHEN OTHERS THEN
1085: ROLLBACK TO revoke_role;
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1088: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1089: END IF;
1090: FND_MSG_PUB.Count_And_Get (
1087: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1088: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1089: END IF;
1090: FND_MSG_PUB.Count_And_Get (
1091: p_encoded => FND_API.G_FALSE
1092: ,p_count => x_msg_count
1093: ,p_data => x_msg_data
1094: );
1095:
1098:
1099: PROCEDURE delete_role
1100: (
1101: p_api_version_number IN NUMBER
1102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1104: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1105: ,x_return_status OUT NOCOPY VARCHAR2
1106: ,x_msg_count OUT NOCOPY NUMBER
1099: PROCEDURE delete_role
1100: (
1101: p_api_version_number IN NUMBER
1102: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1103: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1104: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1105: ,x_return_status OUT NOCOPY VARCHAR2
1106: ,x_msg_count OUT NOCOPY NUMBER
1107: ,x_msg_data OUT NOCOPY VARCHAR2
1175: -- Standard Start of API savepoint
1176: SAVEPOINT delete_role;
1177:
1178: -- Initialize message list if p_init_msg_list is set to TRUE.
1179: IF FND_API.to_Boolean( p_init_msg_list )
1180: THEN
1181: FND_MSG_PUB.initialize;
1182: END IF;
1183:
1181: FND_MSG_PUB.initialize;
1182: END IF;
1183:
1184: -- Standard call to check for call compatibility.
1185: IF NOT FND_API.Compatible_API_Call (
1186: l_api_version_number
1187: ,p_api_version_number
1188: ,l_api_name
1189: ,G_PKG_NAME
1188: ,l_api_name
1189: ,G_PKG_NAME
1190: )
1191: THEN
1192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1193: END IF;
1194:
1195: -- Debug Message
1196: IF (PV_DEBUG_HIGH_ON) THEN
1199: END IF;
1200:
1201:
1202: -- Initialize API return status to SUCCESS
1203: x_return_status := FND_API.G_RET_STS_SUCCESS;
1204: -------------End Of Initialize -------------------------------
1205:
1206:
1207: IF FND_GLOBAL.User_Id IS NULL THEN
1206:
1207: IF FND_GLOBAL.User_Id IS NULL THEN
1208: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1209: FND_MSG_PUB.add;
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212:
1213: IF (p_role_name.count < 1) THEN
1214: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1212:
1213: IF (p_role_name.count < 1) THEN
1214: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1215: fnd_msg_pub.ADD;
1216: raise FND_API.G_EXC_ERROR;
1217: END IF;
1218:
1219: /** Check if partner or primary permissions are part of the current role. IF NOT, we do not need to do any thing **/
1220: FOR X in check_curr_role_perms(p_role_name) LOOP
1288: END IF;
1289:
1290: PV_USER_RESP_PVT.revoke_user_resps(
1291: p_api_version_number => p_api_version_number
1292: ,p_init_msg_list => FND_API.g_false
1293: ,p_commit => FND_API.G_FALSE
1294: ,x_return_status => x_return_status
1295: ,x_msg_count => x_msg_count
1296: ,x_msg_data => x_msg_data
1289:
1290: PV_USER_RESP_PVT.revoke_user_resps(
1291: p_api_version_number => p_api_version_number
1292: ,p_init_msg_list => FND_API.g_false
1293: ,p_commit => FND_API.G_FALSE
1294: ,x_return_status => x_return_status
1295: ,x_msg_count => x_msg_count
1296: ,x_msg_data => x_msg_data
1297: ,p_user_id => l_user_ids(X)
1297: ,p_user_id => l_user_ids(X)
1298: ,p_user_role_code => l_role
1299: );
1300:
1301: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1298: ,p_user_role_code => l_role
1299: );
1300:
1301: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1299: );
1300:
1301: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1307: PV_USER_RESP_PVT.switch_user_resp(
1300:
1301: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1303: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1304: RAISE FND_API.G_EXC_ERROR;
1305: END IF;
1306: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1307: PV_USER_RESP_PVT.switch_user_resp(
1308: p_api_version_number => p_api_version_number
1305: END IF;
1306: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1307: PV_USER_RESP_PVT.switch_user_resp(
1308: p_api_version_number => p_api_version_number
1309: ,p_init_msg_list => FND_API.g_false
1310: ,p_commit => FND_API.G_FALSE
1311: ,x_return_status => x_return_status
1312: ,x_msg_count => x_msg_count
1313: ,x_msg_data => x_msg_data
1306: ELSIF (is_primary_perm_revoked and l_user_perm_changed(X) = 'PT') THEN
1307: PV_USER_RESP_PVT.switch_user_resp(
1308: p_api_version_number => p_api_version_number
1309: ,p_init_msg_list => FND_API.g_false
1310: ,p_commit => FND_API.G_FALSE
1311: ,x_return_status => x_return_status
1312: ,x_msg_count => x_msg_count
1313: ,x_msg_data => x_msg_data
1314: ,p_user_id => l_user_ids(X)
1315: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1316: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1317: );
1318:
1319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1316: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1317: );
1318:
1319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324:
1317: );
1318:
1319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324:
1325: END IF;
1318:
1319: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1321: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324:
1325: END IF;
1326: END LOOP;
1328: END IF;
1329: END IF;
1330:
1331: FND_MSG_PUB.Count_And_Get
1332: ( p_encoded => FND_API.G_FALSE,
1333: p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336:
1333: p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336:
1337: IF FND_API.to_Boolean( p_commit ) THEN
1338: COMMIT WORK;
1339: END IF;
1340:
1341: EXCEPTION
1338: COMMIT WORK;
1339: END IF;
1340:
1341: EXCEPTION
1342: WHEN FND_API.G_EXC_ERROR THEN
1343: ROLLBACK TO delete_role;
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: FND_MSG_PUB.Count_And_Get (
1346: p_encoded => FND_API.G_FALSE
1340:
1341: EXCEPTION
1342: WHEN FND_API.G_EXC_ERROR THEN
1343: ROLLBACK TO delete_role;
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: FND_MSG_PUB.Count_And_Get (
1346: p_encoded => FND_API.G_FALSE
1347: ,p_count => x_msg_count
1348: ,p_data => x_msg_data
1342: WHEN FND_API.G_EXC_ERROR THEN
1343: ROLLBACK TO delete_role;
1344: x_return_status := FND_API.G_RET_STS_ERROR;
1345: FND_MSG_PUB.Count_And_Get (
1346: p_encoded => FND_API.G_FALSE
1347: ,p_count => x_msg_count
1348: ,p_data => x_msg_data
1349: );
1350:
1348: ,p_data => x_msg_data
1349: );
1350:
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: ROLLBACK TO delete_role;
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: -- Standard call to get message count and if count=1, get the message
1356: FND_MSG_PUB.Count_And_Get (
1350:
1351:
1352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1353: ROLLBACK TO delete_role;
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: -- Standard call to get message count and if count=1, get the message
1356: FND_MSG_PUB.Count_And_Get (
1357: p_encoded => FND_API.G_FALSE
1358: ,p_count => x_msg_count
1353: ROLLBACK TO delete_role;
1354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: -- Standard call to get message count and if count=1, get the message
1356: FND_MSG_PUB.Count_And_Get (
1357: p_encoded => FND_API.G_FALSE
1358: ,p_count => x_msg_count
1359: ,p_data => x_msg_data
1360: );
1361:
1360: );
1361:
1362: WHEN OTHERS THEN
1363: ROLLBACK TO delete_role;
1364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1365: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1366: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1367: END IF;
1368: FND_MSG_PUB.Count_And_Get (
1365: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1366: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1367: END IF;
1368: FND_MSG_PUB.Count_And_Get (
1369: p_encoded => FND_API.G_FALSE
1370: ,p_count => x_msg_count
1371: ,p_data => x_msg_data
1372: );
1373:
1376:
1377: PROCEDURE assign_role
1378: (
1379: p_api_version_number IN NUMBER
1380: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1381: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1382: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1383: ,p_user_name IN VARCHAR2
1384: ,x_return_status OUT NOCOPY VARCHAR2
1377: PROCEDURE assign_role
1378: (
1379: p_api_version_number IN NUMBER
1380: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1381: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1382: ,p_role_name IN JTF_VARCHAR2_TABLE_1000
1383: ,p_user_name IN VARCHAR2
1384: ,x_return_status OUT NOCOPY VARCHAR2
1385: ,x_msg_count OUT NOCOPY NUMBER
1442: -- Standard Start of API savepoint
1443: SAVEPOINT assign_role;
1444:
1445: -- Initialize message list if p_init_msg_list is set to TRUE.
1446: IF FND_API.to_Boolean( p_init_msg_list )
1447: THEN
1448: FND_MSG_PUB.initialize;
1449: END IF;
1450:
1448: FND_MSG_PUB.initialize;
1449: END IF;
1450:
1451: -- Standard call to check for call compatibility.
1452: IF NOT FND_API.Compatible_API_Call (
1453: l_api_version_number
1454: ,p_api_version_number
1455: ,l_api_name
1456: ,G_PKG_NAME
1455: ,l_api_name
1456: ,G_PKG_NAME
1457: )
1458: THEN
1459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1460: END IF;
1461:
1462: -- Debug Message
1463: IF (PV_DEBUG_HIGH_ON) THEN
1466: END IF;
1467:
1468:
1469: -- Initialize API return status to SUCCESS
1470: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471: -------------End Of Initialize -------------------------------
1472:
1473:
1474: IF FND_GLOBAL.User_Id IS NULL THEN
1473:
1474: IF FND_GLOBAL.User_Id IS NULL THEN
1475: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1476: FND_MSG_PUB.add;
1477: RAISE FND_API.G_EXC_ERROR;
1478: END IF;
1479:
1480: IF (p_role_name.count < 1) THEN
1481: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1479:
1480: IF (p_role_name.count < 1) THEN
1481: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1482: fnd_msg_pub.ADD;
1483: raise FND_API.G_EXC_ERROR;
1484: END IF;
1485:
1486: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1487: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1482: fnd_msg_pub.ADD;
1483: raise FND_API.G_EXC_ERROR;
1484: END IF;
1485:
1486: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1487: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1488: fnd_msg_pub.ADD;
1489: raise FND_API.G_EXC_ERROR;
1490: END IF;
1485:
1486: IF (p_user_name IS NULL or p_user_name = FND_API.G_MISS_CHAR) THEN
1487: fnd_message.SET_NAME ('PV', 'PV_MISSING_USER_NAME');
1488: fnd_msg_pub.ADD;
1489: raise FND_API.G_EXC_ERROR;
1490: END IF;
1491:
1492: /** check if current roles that are being assigned has G_PARTNER_PERMISSION OR G_PRIMARY_PERMISSION permissions **/
1493: FOR X in check_curr_role_perms(p_role_name) LOOP
1521:
1522: IF (NOT isValidPrtnrUser) THEN
1523: fnd_message.SET_NAME ('PV', 'PV_INVALID_PTNR_USER');
1524: fnd_msg_pub.ADD;
1525: raise FND_API.G_EXC_ERROR;
1526: END IF;
1527:
1528: IF(is_primary_perm_assigned OR is_primary_user) THEN
1529: l_role := PV_USER_RESP_PVT.G_PRIMARY;
1532: end if;
1533:
1534: PV_USER_RESP_PVT.assign_user_resps(
1535: p_api_version_number => p_api_version_number
1536: ,p_init_msg_list => FND_API.g_false
1537: ,p_commit => FND_API.G_FALSE
1538: ,x_return_status => x_return_status
1539: ,x_msg_count => x_msg_count
1540: ,x_msg_data => x_msg_data
1533:
1534: PV_USER_RESP_PVT.assign_user_resps(
1535: p_api_version_number => p_api_version_number
1536: ,p_init_msg_list => FND_API.g_false
1537: ,p_commit => FND_API.G_FALSE
1538: ,x_return_status => x_return_status
1539: ,x_msg_count => x_msg_count
1540: ,x_msg_data => x_msg_data
1541: ,p_user_id => l_user_id
1541: ,p_user_id => l_user_id
1542: ,p_user_role_code => l_role
1543: );
1544:
1545: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1542: ,p_user_role_code => l_role
1543: );
1544:
1545: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550:
1543: );
1544:
1545: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550:
1551: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1544:
1545: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1546: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1547: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1548: RAISE FND_API.G_EXC_ERROR;
1549: END IF;
1550:
1551: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1552:
1551: ELSIF (is_partner_user and (NOT is_primary_user) and is_primary_perm_assigned) THEN
1552:
1553: PV_USER_RESP_PVT.switch_user_resp(
1554: p_api_version_number => p_api_version_number
1555: ,p_init_msg_list => FND_API.g_false
1556: ,p_commit => FND_API.G_FALSE
1557: ,x_return_status => x_return_status
1558: ,x_msg_count => x_msg_count
1559: ,x_msg_data => x_msg_data
1552:
1553: PV_USER_RESP_PVT.switch_user_resp(
1554: p_api_version_number => p_api_version_number
1555: ,p_init_msg_list => FND_API.g_false
1556: ,p_commit => FND_API.G_FALSE
1557: ,x_return_status => x_return_status
1558: ,x_msg_count => x_msg_count
1559: ,x_msg_data => x_msg_data
1560: ,p_user_id => l_user_id
1561: ,p_from_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1562: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1563: );
1564:
1565: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1568: RAISE FND_API.G_EXC_ERROR;
1569: END IF;
1562: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1563: );
1564:
1565: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1568: RAISE FND_API.G_EXC_ERROR;
1569: END IF;
1570:
1563: );
1564:
1565: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1568: RAISE FND_API.G_EXC_ERROR;
1569: END IF;
1570:
1571: END IF;
1564:
1565: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1568: RAISE FND_API.G_EXC_ERROR;
1569: END IF;
1570:
1571: END IF;
1572: END IF;
1571: END IF;
1572: END IF;
1573:
1574: FND_MSG_PUB.Count_And_Get
1575: ( p_encoded => FND_API.G_FALSE,
1576: p_count => x_msg_count,
1577: p_data => x_msg_data
1578: );
1579:
1576: p_count => x_msg_count,
1577: p_data => x_msg_data
1578: );
1579:
1580: IF FND_API.to_Boolean( p_commit ) THEN
1581: COMMIT WORK;
1582: END IF;
1583:
1584: EXCEPTION
1581: COMMIT WORK;
1582: END IF;
1583:
1584: EXCEPTION
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO assign_role;
1587: x_return_status := FND_API.G_RET_STS_ERROR;
1588: FND_MSG_PUB.Count_And_Get (
1589: p_encoded => FND_API.G_FALSE
1583:
1584: EXCEPTION
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO assign_role;
1587: x_return_status := FND_API.G_RET_STS_ERROR;
1588: FND_MSG_PUB.Count_And_Get (
1589: p_encoded => FND_API.G_FALSE
1590: ,p_count => x_msg_count
1591: ,p_data => x_msg_data
1585: WHEN FND_API.G_EXC_ERROR THEN
1586: ROLLBACK TO assign_role;
1587: x_return_status := FND_API.G_RET_STS_ERROR;
1588: FND_MSG_PUB.Count_And_Get (
1589: p_encoded => FND_API.G_FALSE
1590: ,p_count => x_msg_count
1591: ,p_data => x_msg_data
1592: );
1593:
1591: ,p_data => x_msg_data
1592: );
1593:
1594:
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO assign_role;
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: -- Standard call to get message count and if count=1, get the message
1599: FND_MSG_PUB.Count_And_Get (
1593:
1594:
1595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1596: ROLLBACK TO assign_role;
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: -- Standard call to get message count and if count=1, get the message
1599: FND_MSG_PUB.Count_And_Get (
1600: p_encoded => FND_API.G_FALSE
1601: ,p_count => x_msg_count
1596: ROLLBACK TO assign_role;
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: -- Standard call to get message count and if count=1, get the message
1599: FND_MSG_PUB.Count_And_Get (
1600: p_encoded => FND_API.G_FALSE
1601: ,p_count => x_msg_count
1602: ,p_data => x_msg_data
1603: );
1604:
1603: );
1604:
1605: WHEN OTHERS THEN
1606: ROLLBACK TO assign_role;
1607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1608: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1609: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1610: END IF;
1611: FND_MSG_PUB.Count_And_Get (
1608: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1609: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1610: END IF;
1611: FND_MSG_PUB.Count_And_Get (
1612: p_encoded => FND_API.G_FALSE
1613: ,p_count => x_msg_count
1614: ,p_data => x_msg_data
1615: );
1616:
1619:
1620: PROCEDURE update_role
1621: (
1622: p_api_version_number IN NUMBER
1623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1624: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1625: ,p_assigned_perms IN JTF_VARCHAR2_TABLE_1000
1626: ,p_unassigned_perms IN JTF_VARCHAR2_TABLE_1000
1627: ,p_role_name IN VARCHAR2
1620: PROCEDURE update_role
1621: (
1622: p_api_version_number IN NUMBER
1623: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1624: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1625: ,p_assigned_perms IN JTF_VARCHAR2_TABLE_1000
1626: ,p_unassigned_perms IN JTF_VARCHAR2_TABLE_1000
1627: ,p_role_name IN VARCHAR2
1628: ,x_return_status OUT NOCOPY VARCHAR2
1699: -- Standard Start of API savepoint
1700: SAVEPOINT update_role;
1701:
1702: -- Initialize message list if p_init_msg_list is set to TRUE.
1703: IF FND_API.to_Boolean( p_init_msg_list )
1704: THEN
1705: FND_MSG_PUB.initialize;
1706: END IF;
1707:
1705: FND_MSG_PUB.initialize;
1706: END IF;
1707:
1708: -- Standard call to check for call compatibility.
1709: IF NOT FND_API.Compatible_API_Call (
1710: l_api_version_number
1711: ,p_api_version_number
1712: ,l_api_name
1713: ,G_PKG_NAME
1712: ,l_api_name
1713: ,G_PKG_NAME
1714: )
1715: THEN
1716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1717: END IF;
1718:
1719: -- Debug Message
1720: IF (PV_DEBUG_HIGH_ON) THEN
1723: END IF;
1724:
1725:
1726: -- Initialize API return status to SUCCESS
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728: -------------End Of Initialize -------------------------------
1729:
1730:
1731: IF FND_GLOBAL.User_Id IS NULL THEN
1730:
1731: IF FND_GLOBAL.User_Id IS NULL THEN
1732: FND_MESSAGE.set_name('PV', 'PV_API_USER_PROFILE_MISSING');
1733: FND_MSG_PUB.add;
1734: RAISE FND_API.G_EXC_ERROR;
1735: END IF;
1736:
1737: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1738: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1733: FND_MSG_PUB.add;
1734: RAISE FND_API.G_EXC_ERROR;
1735: END IF;
1736:
1737: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1738: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1739: fnd_msg_pub.ADD;
1740: raise FND_API.G_EXC_ERROR;
1741: END IF;
1736:
1737: IF (p_role_name IS NULL or p_role_name = FND_API.G_MISS_CHAR) THEN
1738: fnd_message.SET_NAME ('PV', 'PV_MISSING_ROLE_NAME');
1739: fnd_msg_pub.ADD;
1740: raise FND_API.G_EXC_ERROR;
1741: END IF;
1742:
1743: IF (p_assigned_perms IS NOT NULL and p_assigned_perms.count > 0) THEN
1744: FOR i in p_assigned_perms.FIRST .. p_assigned_perms.LAST LOOP
1832: end if;
1833:
1834: PV_USER_RESP_PVT.assign_user_resps(
1835: p_api_version_number => p_api_version_number
1836: ,p_init_msg_list => FND_API.g_false
1837: ,p_commit => FND_API.G_FALSE
1838: ,x_return_status => x_return_status
1839: ,x_msg_count => x_msg_count
1840: ,x_msg_data => x_msg_data
1833:
1834: PV_USER_RESP_PVT.assign_user_resps(
1835: p_api_version_number => p_api_version_number
1836: ,p_init_msg_list => FND_API.g_false
1837: ,p_commit => FND_API.G_FALSE
1838: ,x_return_status => x_return_status
1839: ,x_msg_count => x_msg_count
1840: ,x_msg_data => x_msg_data
1841: ,p_user_id => l_user_ids(X)
1841: ,p_user_id => l_user_ids(X)
1842: ,p_user_role_code => l_role
1843: );
1844:
1845: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1842: ,p_user_role_code => l_role
1843: );
1844:
1845: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850: ELSIF ((l_user_perm_changed(X) = 'PT'
1843: );
1844:
1845: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850: ELSIF ((l_user_perm_changed(X) = 'PT'
1851: or (l_prtnr_perm_exists and NOT is_prtnr_perm_revoked))
1844:
1845: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850: ELSIF ((l_user_perm_changed(X) = 'PT'
1851: or (l_prtnr_perm_exists and NOT is_prtnr_perm_revoked))
1852: and is_primary_perm_assigned) THEN
1852: and is_primary_perm_assigned) THEN
1853:
1854: PV_USER_RESP_PVT.switch_user_resp(
1855: p_api_version_number => p_api_version_number
1856: ,p_init_msg_list => FND_API.g_false
1857: ,p_commit => FND_API.G_FALSE
1858: ,x_return_status => x_return_status
1859: ,x_msg_count => x_msg_count
1860: ,x_msg_data => x_msg_data
1853:
1854: PV_USER_RESP_PVT.switch_user_resp(
1855: p_api_version_number => p_api_version_number
1856: ,p_init_msg_list => FND_API.g_false
1857: ,p_commit => FND_API.G_FALSE
1858: ,x_return_status => x_return_status
1859: ,x_msg_count => x_msg_count
1860: ,x_msg_data => x_msg_data
1861: ,p_user_id => l_user_ids(X)
1862: ,p_from_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1863: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1864: );
1865:
1866: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1869: RAISE FND_API.G_EXC_ERROR;
1870: END IF;
1863: ,p_to_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1864: );
1865:
1866: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1869: RAISE FND_API.G_EXC_ERROR;
1870: END IF;
1871: END IF;
1864: );
1865:
1866: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1869: RAISE FND_API.G_EXC_ERROR;
1870: END IF;
1871: END IF;
1872: END IF;
1865:
1866: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1868: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1869: RAISE FND_API.G_EXC_ERROR;
1870: END IF;
1871: END IF;
1872: END IF;
1873:
1881: end if;
1882:
1883: PV_USER_RESP_PVT.revoke_user_resps(
1884: p_api_version_number => p_api_version_number
1885: ,p_init_msg_list => FND_API.g_false
1886: ,p_commit => FND_API.G_FALSE
1887: ,x_return_status => x_return_status
1888: ,x_msg_count => x_msg_count
1889: ,x_msg_data => x_msg_data
1882:
1883: PV_USER_RESP_PVT.revoke_user_resps(
1884: p_api_version_number => p_api_version_number
1885: ,p_init_msg_list => FND_API.g_false
1886: ,p_commit => FND_API.G_FALSE
1887: ,x_return_status => x_return_status
1888: ,x_msg_count => x_msg_count
1889: ,x_msg_data => x_msg_data
1890: ,p_user_id => l_user_ids(X)
1890: ,p_user_id => l_user_ids(X)
1891: ,p_user_role_code => l_role
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1891: ,p_user_role_code => l_role
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899:
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899:
1900: /** If partner user and primary user permission is revoked and user will become business user after this **/
1893:
1894: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899:
1900: /** If partner user and primary user permission is revoked and user will become business user after this **/
1901: 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
1902:
1903:
1904: PV_USER_RESP_PVT.switch_user_resp(
1905: p_api_version_number => p_api_version_number
1906: ,p_init_msg_list => FND_API.g_false
1907: ,p_commit => FND_API.G_FALSE
1908: ,x_return_status => x_return_status
1909: ,x_msg_count => x_msg_count
1910: ,x_msg_data => x_msg_data
1903:
1904: PV_USER_RESP_PVT.switch_user_resp(
1905: p_api_version_number => p_api_version_number
1906: ,p_init_msg_list => FND_API.g_false
1907: ,p_commit => FND_API.G_FALSE
1908: ,x_return_status => x_return_status
1909: ,x_msg_count => x_msg_count
1910: ,x_msg_data => x_msg_data
1911: ,p_user_id => l_user_ids(X)
1912: ,p_from_user_role_code => PV_USER_RESP_PVT.G_PRIMARY
1913: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1914: );
1915:
1916: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1913: ,p_to_user_role_code => PV_USER_RESP_PVT.G_BUSINESS
1914: );
1915:
1916: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1914: );
1915:
1916: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1922: END IF;
1915:
1916: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1918: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1922: END IF;
1923: END LOOP;
1929:
1930:
1931:
1932: FND_MSG_PUB.Count_And_Get
1933: ( p_encoded => FND_API.G_FALSE,
1934: p_count => x_msg_count,
1935: p_data => x_msg_data
1936: );
1937:
1934: p_count => x_msg_count,
1935: p_data => x_msg_data
1936: );
1937:
1938: IF FND_API.to_Boolean( p_commit ) THEN
1939: COMMIT WORK;
1940: END IF;
1941:
1942: EXCEPTION
1939: COMMIT WORK;
1940: END IF;
1941:
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: ROLLBACK TO update_role;
1945: x_return_status := FND_API.G_RET_STS_ERROR;
1946: FND_MSG_PUB.Count_And_Get (
1947: p_encoded => FND_API.G_FALSE
1941:
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: ROLLBACK TO update_role;
1945: x_return_status := FND_API.G_RET_STS_ERROR;
1946: FND_MSG_PUB.Count_And_Get (
1947: p_encoded => FND_API.G_FALSE
1948: ,p_count => x_msg_count
1949: ,p_data => x_msg_data
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: ROLLBACK TO update_role;
1945: x_return_status := FND_API.G_RET_STS_ERROR;
1946: FND_MSG_PUB.Count_And_Get (
1947: p_encoded => FND_API.G_FALSE
1948: ,p_count => x_msg_count
1949: ,p_data => x_msg_data
1950: );
1951:
1949: ,p_data => x_msg_data
1950: );
1951:
1952:
1953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1954: ROLLBACK TO update_role;
1955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1956: -- Standard call to get message count and if count=1, get the message
1957: FND_MSG_PUB.Count_And_Get (
1951:
1952:
1953: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1954: ROLLBACK TO update_role;
1955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1956: -- Standard call to get message count and if count=1, get the message
1957: FND_MSG_PUB.Count_And_Get (
1958: p_encoded => FND_API.G_FALSE
1959: ,p_count => x_msg_count
1954: ROLLBACK TO update_role;
1955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1956: -- Standard call to get message count and if count=1, get the message
1957: FND_MSG_PUB.Count_And_Get (
1958: p_encoded => FND_API.G_FALSE
1959: ,p_count => x_msg_count
1960: ,p_data => x_msg_data
1961: );
1962:
1961: );
1962:
1963: WHEN OTHERS THEN
1964: ROLLBACK TO update_role;
1965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1966: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1967: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1968: END IF;
1969: FND_MSG_PUB.Count_And_Get (
1966: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1967: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1968: END IF;
1969: FND_MSG_PUB.Count_And_Get (
1970: p_encoded => FND_API.G_FALSE
1971: ,p_count => x_msg_count
1972: ,p_data => x_msg_data
1973: );
1974:
2157: -- jkylee: call register partner user procedure
2158: pv_user_mgmt_pvt.register_partner_user
2159: (
2160: p_api_version_number => l_api_version_number
2161: ,p_init_msg_list => FND_API.g_false
2162: ,p_commit => FND_API.G_FALSE
2163: ,p_partner_user_rec => partner_user_rec
2164: ,x_return_status => x_return_status
2165: ,x_msg_count => x_msg_count
2158: pv_user_mgmt_pvt.register_partner_user
2159: (
2160: p_api_version_number => l_api_version_number
2161: ,p_init_msg_list => FND_API.g_false
2162: ,p_commit => FND_API.G_FALSE
2163: ,p_partner_user_rec => partner_user_rec
2164: ,x_return_status => x_return_status
2165: ,x_msg_count => x_msg_count
2166: ,x_msg_data => x_msg_data
2172: ,'after call pv_user_mgmt_pvt.register_partner_user: x_return_status='|| x_return_status || ',x_msg_count=' || to_char(x_msg_count));
2173: END IF;
2174:
2175: FND_MSG_PUB.Count_And_Get
2176: ( p_encoded => FND_API.G_FALSE,
2177: p_count => x_msg_count,
2178: p_data => x_msg_data
2179: );
2180:
2194: END IF;
2195: FOR k IN 1 .. x_msg_count LOOP
2196: fnd_msg_pub.get (
2197: p_msg_index => k
2198: ,p_encoded => FND_API.G_FALSE
2199: ,p_data => x_msg_data
2200: ,p_msg_index_out => x_msg_index);
2201:
2202:
2217: RETURN 'SUCCESS';
2218:
2219:
2220: EXCEPTION
2221: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2222: WF_CORE.CONTEXT('PV', 'post_approval',
2223: p_event.getEventName(), p_subscription_guid);
2224: WF_EVENT.setErrorInfo(p_event, 'UNEXPECTED ERROR');
2225: RETURN 'ERROR';
2246: --| |
2247: --==============================================================================
2248: PROCEDURE update_elig_prgm_4_new_ptnr(
2249: p_api_version_number IN NUMBER
2250: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2251: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2252: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2253: ,x_return_status OUT NOCOPY VARCHAR2
2254: ,x_msg_count OUT NOCOPY NUMBER
2247: --==============================================================================
2248: PROCEDURE update_elig_prgm_4_new_ptnr(
2249: p_api_version_number IN NUMBER
2250: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2251: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2252: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2253: ,x_return_status OUT NOCOPY VARCHAR2
2254: ,x_msg_count OUT NOCOPY NUMBER
2255: ,x_msg_data OUT NOCOPY VARCHAR2
2248: PROCEDURE update_elig_prgm_4_new_ptnr(
2249: p_api_version_number IN NUMBER
2250: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2251: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2252: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2253: ,x_return_status OUT NOCOPY VARCHAR2
2254: ,x_msg_count OUT NOCOPY NUMBER
2255: ,x_msg_data OUT NOCOPY VARCHAR2
2256: ,p_partner_id IN NUMBER
2314: IF (PV_DEBUG_HIGH_ON) THEN
2315: PVX_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' - start');
2316: END IF;
2317:
2318: x_return_status := FND_API.G_RET_STS_SUCCESS;
2319:
2320: FOR x IN c_get_program_info LOOP
2321: l_prereq_exist := false;
2322: l_no_membership := false;
2391: END IF;
2392:
2393: PV_RULE_EVALUATION_PUB.quick_partner_eval_outcome(
2394: p_api_version => p_api_version_number
2395: ,p_init_msg_list => FND_API.G_FALSE
2396: ,p_commit => FND_API.G_FALSE
2397: ,p_validation_level => p_validation_level
2398: ,p_partner_id => p_partner_id
2399: ,p_rule_id_tbl => l_rule_id_tbl
2392:
2393: PV_RULE_EVALUATION_PUB.quick_partner_eval_outcome(
2394: p_api_version => p_api_version_number
2395: ,p_init_msg_list => FND_API.G_FALSE
2396: ,p_commit => FND_API.G_FALSE
2397: ,p_validation_level => p_validation_level
2398: ,p_partner_id => p_partner_id
2399: ,p_rule_id_tbl => l_rule_id_tbl
2400: ,x_rule_pass_flag => l_rule_pass_flag
2402: ,x_msg_count => x_msg_count
2403: ,x_msg_data => x_msg_data
2404: );
2405:
2406: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2407: IF (PV_DEBUG_HIGH_ON) THEN
2408: PVX_UTILITY_PVT.debug_message('x_return_status = ' || x_return_status);
2409: END IF;
2410: RAISE FND_API.G_EXC_ERROR;
2406: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2407: IF (PV_DEBUG_HIGH_ON) THEN
2408: PVX_UTILITY_PVT.debug_message('x_return_status = ' || x_return_status);
2409: END IF;
2410: RAISE FND_API.G_EXC_ERROR;
2411: END IF;
2412:
2413: IF (PV_DEBUG_HIGH_ON) THEN
2414: PVX_UTILITY_PVT.debug_message('l_rule_pass_flag = '||l_rule_pass_flag);
2473: END IF;
2474: END IF;
2475:
2476: FND_MSG_PUB.Count_And_Get (
2477: p_encoded => FND_API.G_FALSE,
2478: p_count => x_msg_count,
2479: p_data => x_msg_data
2480: );
2481:
2479: p_data => x_msg_data
2480: );
2481:
2482: -- Standard check for p_commit
2483: IF FND_API.to_Boolean( p_commit ) THEN
2484: COMMIT WORK;
2485: END IF;
2486:
2487: EXCEPTION
2485: END IF;
2486:
2487: EXCEPTION
2488: WHEN PVX_Utility_PVT.resource_locked THEN
2489: x_return_status := FND_API.g_ret_sts_error;
2490: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2491:
2492: WHEN FND_API.G_EXC_ERROR THEN
2493: x_return_status := FND_API.G_RET_STS_ERROR;
2488: WHEN PVX_Utility_PVT.resource_locked THEN
2489: x_return_status := FND_API.g_ret_sts_error;
2490: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2491:
2492: WHEN FND_API.G_EXC_ERROR THEN
2493: x_return_status := FND_API.G_RET_STS_ERROR;
2494: -- Standard call to get message count and if count=1, get the message
2495: FND_MSG_PUB.Count_And_Get (
2496: p_encoded => FND_API.G_FALSE,
2489: x_return_status := FND_API.g_ret_sts_error;
2490: PVX_Utility_PVT.Error_Message(p_message_name => 'PV_API_RESOURCE_LOCKED');
2491:
2492: WHEN FND_API.G_EXC_ERROR THEN
2493: x_return_status := FND_API.G_RET_STS_ERROR;
2494: -- Standard call to get message count and if count=1, get the message
2495: FND_MSG_PUB.Count_And_Get (
2496: p_encoded => FND_API.G_FALSE,
2497: p_count => x_msg_count,
2492: WHEN FND_API.G_EXC_ERROR THEN
2493: x_return_status := FND_API.G_RET_STS_ERROR;
2494: -- Standard call to get message count and if count=1, get the message
2495: FND_MSG_PUB.Count_And_Get (
2496: p_encoded => FND_API.G_FALSE,
2497: p_count => x_msg_count,
2498: p_data => x_msg_data
2499: );
2500:
2497: p_count => x_msg_count,
2498: p_data => x_msg_data
2499: );
2500:
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: -- Standard call to get message count and if count=1, get the message
2504: FND_MSG_PUB.Count_And_Get (
2505: p_encoded => FND_API.G_FALSE,
2498: p_data => x_msg_data
2499: );
2500:
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: -- Standard call to get message count and if count=1, get the message
2504: FND_MSG_PUB.Count_And_Get (
2505: p_encoded => FND_API.G_FALSE,
2506: p_count => x_msg_count,
2501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: -- Standard call to get message count and if count=1, get the message
2504: FND_MSG_PUB.Count_And_Get (
2505: p_encoded => FND_API.G_FALSE,
2506: p_count => x_msg_count,
2507: p_data => x_msg_data
2508: );
2509:
2507: p_data => x_msg_data
2508: );
2509:
2510: WHEN OTHERS THEN
2511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2512: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2513: THEN
2514: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2515: END IF;
2514: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2515: END IF;
2516: -- Standard call to get message count and if count=1, get the message
2517: FND_MSG_PUB.Count_And_Get (
2518: p_encoded => FND_API.G_FALSE,
2519: p_count => x_msg_count,
2520: p_data => x_msg_data
2521: );
2522: END update_elig_prgm_4_new_ptnr;