15: PV_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
16:
17: PROCEDURE ASSIGN_DEF_ROLES(
18: p_api_version_number IN NUMBER
19: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
20: ,p_commit IN VARCHAR2 := FND_API.g_false
21: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
22: ,P_USERNAME in VARCHAR2
23: ,P_USERTYPE in VARCHAR
16:
17: PROCEDURE ASSIGN_DEF_ROLES(
18: p_api_version_number IN NUMBER
19: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
20: ,p_commit IN VARCHAR2 := FND_API.g_false
21: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
22: ,P_USERNAME in VARCHAR2
23: ,P_USERTYPE in VARCHAR
24: ,x_return_status OUT NOCOPY VARCHAR2
17: PROCEDURE ASSIGN_DEF_ROLES(
18: p_api_version_number IN NUMBER
19: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
20: ,p_commit IN VARCHAR2 := FND_API.g_false
21: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
22: ,P_USERNAME in VARCHAR2
23: ,P_USERTYPE in VARCHAR
24: ,x_return_status OUT NOCOPY VARCHAR2
25: ,x_msg_count OUT NOCOPY NUMBER
74: PVX_Utility_PVT.debug_message(l_full_name||': start');
75:
76: END IF;
77:
78: IF FND_API.to_boolean(p_init_msg_list) THEN
79: FND_MSG_PUB.initialize;
80: END IF;
81:
82:
79: FND_MSG_PUB.initialize;
80: END IF;
81:
82:
83: IF NOT FND_API.compatible_api_call(
84: l_api_version,
85: p_api_version_number,
86: l_api_name,
87: g_pkg_name
85: p_api_version_number,
86: l_api_name,
87: g_pkg_name
88: ) THEN
89: RAISE FND_API.g_exc_unexpected_error;
90: END IF;
91:
92: x_return_status := FND_API.g_ret_sts_success;
93:
88: ) THEN
89: RAISE FND_API.g_exc_unexpected_error;
90: END IF;
91:
92: x_return_status := FND_API.g_ret_sts_success;
93:
94: IF(UPPER(P_USERTYPE) = 'PRIMARY') THEN
95: L_ENRLTYPE_KEY:=G_PRIMARY_USER;
96: ELSIF(UPPER(P_USERTYPE) = 'BUSINESS') THEN
102: END IF;
103: --raise exception by adding apppropriate FND message as not valid user type passed in.
104: FND_MESSAGE.set_name('PV', 'PV_USER_ROLE_NO_TYPE');
105: FND_MSG_PUB.add;
106: x_return_status := FND_API.g_ret_sts_error;
107: RAISE FND_API.g_exc_error;
108: END IF;
109:
110:
103: --raise exception by adding apppropriate FND message as not valid user type passed in.
104: FND_MESSAGE.set_name('PV', 'PV_USER_ROLE_NO_TYPE');
105: FND_MSG_PUB.add;
106: x_return_status := FND_API.g_ret_sts_error;
107: RAISE FND_API.g_exc_error;
108: END IF;
109:
110:
111: open find_enrltype;
113: /* Validation of enrollment Key. */
114: IF find_enrltype%NOTFOUND THEN
115: FND_MESSAGE.set_name('PV', 'PV_USER_ROLE_NO_ENRL');
116: FND_MSG_PUB.add;
117: x_return_status := FND_API.g_ret_sts_error;
118: close find_enrltype;
119: RAISE FND_API.g_exc_error;
120: END IF;
121: close find_enrltype;
115: FND_MESSAGE.set_name('PV', 'PV_USER_ROLE_NO_ENRL');
116: FND_MSG_PUB.add;
117: x_return_status := FND_API.g_ret_sts_error;
118: close find_enrltype;
119: RAISE FND_API.g_exc_error;
120: END IF;
121: close find_enrltype;
122:
123:
180: END IF;
181:
182:
183: -- Check for commit
184: IF FND_API.to_boolean(p_commit) THEN
185: COMMIT;
186: END IF;
187:
188: FND_MSG_PUB.count_and_get(
185: COMMIT;
186: END IF;
187:
188: FND_MSG_PUB.count_and_get(
189: p_encoded => FND_API.g_false,
190: p_count => x_msg_count,
191: p_data => x_msg_data
192:
193: );
200:
201: END IF;
202:
203: EXCEPTION
204: WHEN FND_API.g_exc_error THEN
205: ROLLBACK TO ASSIGN_DEF_ROLES;
206: x_return_status := FND_API.g_ret_sts_error;
207: FND_MSG_PUB.count_and_get (
208: p_encoded => FND_API.g_false
202:
203: EXCEPTION
204: WHEN FND_API.g_exc_error THEN
205: ROLLBACK TO ASSIGN_DEF_ROLES;
206: x_return_status := FND_API.g_ret_sts_error;
207: FND_MSG_PUB.count_and_get (
208: p_encoded => FND_API.g_false
209: ,p_count => x_msg_count
210: ,p_data => x_msg_data
204: WHEN FND_API.g_exc_error THEN
205: ROLLBACK TO ASSIGN_DEF_ROLES;
206: x_return_status := FND_API.g_ret_sts_error;
207: FND_MSG_PUB.count_and_get (
208: p_encoded => FND_API.g_false
209: ,p_count => x_msg_count
210: ,p_data => x_msg_data
211: );
212:
210: ,p_data => x_msg_data
211: );
212:
213:
214: WHEN FND_API.g_exc_unexpected_error THEN
215: ROLLBACK TO ASSIGN_DEF_ROLES;
216: x_return_status := FND_API.g_ret_sts_unexp_error ;
217: FND_MSG_PUB.count_and_get (
218: p_encoded => FND_API.g_false
212:
213:
214: WHEN FND_API.g_exc_unexpected_error THEN
215: ROLLBACK TO ASSIGN_DEF_ROLES;
216: x_return_status := FND_API.g_ret_sts_unexp_error ;
217: FND_MSG_PUB.count_and_get (
218: p_encoded => FND_API.g_false
219: ,p_count => x_msg_count
220: ,p_data => x_msg_data
214: WHEN FND_API.g_exc_unexpected_error THEN
215: ROLLBACK TO ASSIGN_DEF_ROLES;
216: x_return_status := FND_API.g_ret_sts_unexp_error ;
217: FND_MSG_PUB.count_and_get (
218: p_encoded => FND_API.g_false
219: ,p_count => x_msg_count
220: ,p_data => x_msg_data
221: );
222:
223:
224: WHEN OTHERS THEN
225: ROLLBACK TO ASSIGN_DEF_ROLES;
226:
227: x_return_status := FND_API.g_ret_sts_unexp_error ;
228:
229: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
230: THEN
231: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
231: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
232: END IF;
233:
234: FND_MSG_PUB.count_and_get(
235: p_encoded => FND_API.g_false
236: ,p_count => x_msg_count
237: ,p_data => x_msg_data
238: );
239: