41: END IF;
42:
43: -- Initialize message list if p_init_msg_list is set to TRUE.
44: IF FND_API.to_Boolean( p_init_msg_list ) THEN
45: FND_MSG_PUB.initialize;
46: END IF;
47:
48: -- Initialize API return status to success
49: x_return_status := FND_API.G_RET_STS_SUCCESS;
56: and comp_group_id = l_newrec.comp_group_id
57: and org_code = l_newrec.org_code;
58: IF l_count > 0 THEN
59: FND_MESSAGE.SET_NAME ('CN' , 'CN_ACCESS_DUP_ERR');
60: FND_MSG_PUB.Add;
61: RAISE FND_API.G_EXC_ERROR;
62: END IF;
63:
64: cn_user_access_pkg.insert_row(l_newrec);
67: IF FND_API.To_Boolean( p_commit ) THEN
68: COMMIT WORK;
69: END IF;
70:
71: FND_MSG_PUB.Count_And_Get
72: (p_count => x_msg_count,
73: p_data => x_msg_data,
74: p_encoded => FND_API.G_FALSE);
75:
76: EXCEPTION
77: WHEN FND_API.G_EXC_ERROR THEN
78: ROLLBACK TO Create_User_Access;
79: x_return_status := FND_API.G_RET_STS_ERROR;
80: FND_MSG_PUB.Count_And_Get
81: (p_count => x_msg_count,
82: p_data => x_msg_data,
83: p_encoded => FND_API.G_FALSE);
84: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83: p_encoded => FND_API.G_FALSE);
84: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
85: ROLLBACK TO Create_User_Access;
86: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
87: FND_MSG_PUB.Count_And_Get
88: (p_count => x_msg_count,
89: p_data => x_msg_data,
90: p_encoded => FND_API.G_FALSE);
91: WHEN OTHERS THEN
90: p_encoded => FND_API.G_FALSE);
91: WHEN OTHERS THEN
92: ROLLBACK TO Create_User_Access;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
95: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
96: END IF;
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count,
91: WHEN OTHERS THEN
92: ROLLBACK TO Create_User_Access;
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
95: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
96: END IF;
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count,
99: p_data => x_msg_data,
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
95: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
96: END IF;
97: FND_MSG_PUB.Count_And_Get
98: (p_count => x_msg_count,
99: p_data => x_msg_data,
100: p_encoded => FND_API.G_FALSE);
101: END Create_User_Access;
135: END IF;
136:
137: -- Initialize message list if p_init_msg_list is set to TRUE.
138: IF FND_API.to_Boolean( p_init_msg_list ) THEN
139: FND_MSG_PUB.initialize;
140: END IF;
141:
142: -- Initialize API return status to success
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
148: where user_access_id = l_newrec.user_access_id;
149:
150: if l_count = 0 then
151: FND_MESSAGE.SET_NAME('CN', 'CN_INVALID_UPDATE_REC');
152: FND_MSG_PUB.ADD;
153: RAISE FND_API.G_EXC_ERROR;
154: end if;
155:
156: -- make sure the access level for the current comp group and org
162: and org_code = l_newrec.org_code
163: and user_access_id <> l_newrec.user_access_id;
164: IF l_count > 0 THEN
165: FND_MESSAGE.SET_NAME ('CN' , 'CN_ACCESS_DUP_ERR');
166: FND_MSG_PUB.Add;
167: RAISE FND_API.G_EXC_ERROR;
168: END IF;
169:
170: -- make sure the object version number hasn't changed in the meantime
177: IF FND_API.To_Boolean( p_commit ) THEN
178: COMMIT WORK;
179: END IF;
180:
181: FND_MSG_PUB.Count_And_Get
182: (p_count => x_msg_count,
183: p_data => x_msg_data,
184: p_encoded => FND_API.G_FALSE);
185: EXCEPTION
185: EXCEPTION
186: WHEN FND_API.G_EXC_ERROR THEN
187: ROLLBACK TO Update_User_Access;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189: FND_MSG_PUB.Count_And_Get
190: (p_count => x_msg_count,
191: p_data => x_msg_data,
192: p_encoded => FND_API.G_FALSE);
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
192: p_encoded => FND_API.G_FALSE);
193: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194: ROLLBACK TO Update_User_Access;
195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
196: FND_MSG_PUB.Count_And_Get
197: (p_count => x_msg_count,
198: p_data => x_msg_data,
199: p_encoded => FND_API.G_FALSE);
200: WHEN OTHERS THEN
199: p_encoded => FND_API.G_FALSE);
200: WHEN OTHERS THEN
201: ROLLBACK TO Update_User_Access;
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
204: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
205: END IF;
206: FND_MSG_PUB.Count_And_Get
207: (p_count => x_msg_count,
200: WHEN OTHERS THEN
201: ROLLBACK TO Update_User_Access;
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
204: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
205: END IF;
206: FND_MSG_PUB.Count_And_Get
207: (p_count => x_msg_count,
208: p_data => x_msg_data,
202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
203: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
204: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
205: END IF;
206: FND_MSG_PUB.Count_And_Get
207: (p_count => x_msg_count,
208: p_data => x_msg_data,
209: p_encoded => FND_API.G_FALSE);
210: END Update_User_Access;
245: END IF;
246:
247: -- Initialize message list if p_init_msg_list is set to TRUE.
248: IF FND_API.to_Boolean( p_init_msg_list ) THEN
249: FND_MSG_PUB.initialize;
250: END IF;
251:
252: -- Initialize API return status to success
253: x_return_status := FND_API.G_RET_STS_SUCCESS;
258: where user_access_id = p_user_access_id;
259:
260: if l_count = 0 then
261: FND_MESSAGE.SET_NAME('CN', 'CN_INVALID_DEL_REC');
262: FND_MSG_PUB.ADD;
263: RAISE FND_API.G_EXC_ERROR;
264: end if;
265:
266: -- make sure the object version number hasn't changed in the meantime
273: IF FND_API.To_Boolean( p_commit ) THEN
274: COMMIT WORK;
275: END IF;
276:
277: FND_MSG_PUB.Count_And_Get
278: (p_count => x_msg_count,
279: p_data => x_msg_data,
280: p_encoded => FND_API.G_FALSE);
281: EXCEPTION
281: EXCEPTION
282: WHEN FND_API.G_EXC_ERROR THEN
283: ROLLBACK TO Delete_User_Access;
284: x_return_status := FND_API.G_RET_STS_ERROR;
285: FND_MSG_PUB.Count_And_Get
286: (p_count => x_msg_count,
287: p_data => x_msg_data,
288: p_encoded => FND_API.G_FALSE);
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
288: p_encoded => FND_API.G_FALSE);
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: ROLLBACK TO Delete_User_Access;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: FND_MSG_PUB.Count_And_Get
293: (p_count => x_msg_count,
294: p_data => x_msg_data,
295: p_encoded => FND_API.G_FALSE);
296: WHEN OTHERS THEN
295: p_encoded => FND_API.G_FALSE);
296: WHEN OTHERS THEN
297: ROLLBACK TO Delete_Job_Role;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
300: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
301: END IF;
302: FND_MSG_PUB.Count_And_Get
303: (p_count => x_msg_count,
296: WHEN OTHERS THEN
297: ROLLBACK TO Delete_Job_Role;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
300: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
301: END IF;
302: FND_MSG_PUB.Count_And_Get
303: (p_count => x_msg_count,
304: p_data => x_msg_data,
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
300: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
301: END IF;
302: FND_MSG_PUB.Count_And_Get
303: (p_count => x_msg_count,
304: p_data => x_msg_data,
305: p_encoded => FND_API.G_FALSE);
306: END Delete_User_Access;
361: END LOOP;
362:
363: /* Add this check
364: IF l_fm_resp_key IS NULL THEN
365: IF FND_MSG_PUB.Check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
366: FND_MESSAGE.SET_NAME('CN', 'CN_QM_NO_FM');
367: FND_MSG_PUB.Add;
368: END IF;
369: RAISE FND_API.G_EXC_error;
363: /* Add this check
364: IF l_fm_resp_key IS NULL THEN
365: IF FND_MSG_PUB.Check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
366: FND_MESSAGE.SET_NAME('CN', 'CN_QM_NO_FM');
367: FND_MSG_PUB.Add;
368: END IF;
369: RAISE FND_API.G_EXC_error;
370: END IF;
371: */