107:
108: -- Initialize message list if p_init_msg_list is set to TRUE.
109: IF FND_API.to_Boolean( p_init_msg_list )
110: THEN
111: FND_MSG_PUB.initialize;
112: END IF;
113:
114: -- Initialize API return status to success
115: x_return_status := FND_API.G_RET_STS_SUCCESS;
143: END IF;
144:
145: -- Debug Message
146: -- Standard call to get message count and if count is 1, get message info.
147: FND_MSG_PUB.Count_And_Get
148: (
149: p_count => x_msg_count,
150: p_data => x_msg_data
151: );
155: WHEN FND_API.G_EXC_ERROR THEN
156:
157: ROLLBACK TO CREATE_JTF_PERZ_PROFILE_PUB;
158: x_return_status := FND_API.G_RET_STS_ERROR ;
159: FND_MSG_PUB.Count_And_Get
160: ( p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163:
160: ( p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163:
164: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
165: THEN
166: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
167: END IF;
168:
162: );
163:
164: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
165: THEN
166: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
167: END IF;
168:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170:
171: ROLLBACK TO CREATE_JTF_PERZ_PROFILE_PUB;
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
173: FND_MSG_PUB.Count_And_Get
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177:
174: ( p_count => x_msg_count,
175: p_data => x_msg_data
176: );
177:
178: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
179: THEN
180: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
181: END IF;
182:
176: );
177:
178: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
179: THEN
180: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
181: END IF;
182:
183: WHEN OTHERS THEN
184:
183: WHEN OTHERS THEN
184:
185: ROLLBACK TO CREATE_JTF_PERZ_PROFILE_PUB;
186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
187: FND_MSG_PUB.Count_And_Get
188: ( p_count => x_msg_count,
189: p_data => x_msg_data
190: );
191:
188: ( p_count => x_msg_count,
189: p_data => x_msg_data
190: );
191:
192: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
193: THEN
194: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
195: END IF;
196:
190: );
191:
192: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
193: THEN
194: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
195: END IF;
196:
197: END Create_Profile;
198:
276:
277: -- Initialize message list if p_init_msg_list is set to TRUE.
278: IF FND_API.to_Boolean( p_init_msg_list )
279: THEN
280: FND_MSG_PUB.initialize;
281: END IF;
282: -- -- Initialize API return status to success
283: if x_return_status is null then
284: x_return_status := FND_API.G_RET_STS_SUCCESS;
315: END IF;
316:
317: -- Debug Message
318: -- Standard call to get message count and if count is 1, get message info.
319: FND_MSG_PUB.Count_And_Get
320: (
321: p_count => x_msg_count,
322: p_data => x_msg_data
323: );
328: WHEN FND_API.G_EXC_ERROR THEN
329:
330: ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
331: x_return_status := FND_API.G_RET_STS_ERROR ;
332: FND_MSG_PUB.Count_And_Get
333: ( p_count => x_msg_count,
334: p_data => x_msg_data
335: );
336:
333: ( p_count => x_msg_count,
334: p_data => x_msg_data
335: );
336:
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
340: END IF;
341:
335: );
336:
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
340: END IF;
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343:
343:
344: ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346:
347: FND_MSG_PUB.Count_And_Get
348: ( p_count => x_msg_count,
349: p_data => x_msg_data
350: );
351:
348: ( p_count => x_msg_count,
349: p_data => x_msg_data
350: );
351:
352: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
353: THEN
354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
355: END IF;
356:
350: );
351:
352: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
353: THEN
354: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
355: END IF;
356:
357: WHEN OTHERS THEN
358:
358:
359: ROLLBACK TO UPDATE_JTF_PERZ_PROFILE_PUB;
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
361:
362: FND_MSG_PUB.Count_And_Get
363: ( p_count => x_msg_count,
364: p_data => x_msg_data
365: );
366:
363: ( p_count => x_msg_count,
364: p_data => x_msg_data
365: );
366:
367: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
368: THEN
369: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
370: END IF;
371:
365: );
366:
367: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
368: THEN
369: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
370: END IF;
371:
372: END Update_Profile;
373: --******************************************************************************
437:
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list )
440: THEN
441: FND_MSG_PUB.initialize;
442: END IF;
443:
444: -- Initialize API return status to success
445: l_return_status := FND_API.G_RET_STS_SUCCESS;