57: END IF;
58: -- Initialize API message list if necessary.
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean(p_init_msg_list) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: ------------------------------
65:
115: -- Standard call to get message count and if count is 1,
116: -- get message info.
117: -- The client will directly display the x_msg_data (which is already
118: -- translated) if the x_msg_count = 1;
119: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
120: -- Server-side procedure to access the messages, and consolidate them
121: -- and display (or) to display one message after another.
122:
123: FND_MSG_PUB.Count_And_Get
119: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
120: -- Server-side procedure to access the messages, and consolidate them
121: -- and display (or) to display one message after another.
122:
123: FND_MSG_PUB.Count_And_Get
124: ( p_count => x_msg_count,
125: p_data => x_msg_data
126: );
127:
130: EXCEPTION
131: WHEN FND_API.G_EXC_ERROR THEN
132: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
136: p_data => x_msg_data
137: );
138:
140:
141: WHEN G_DUPLICATE_EXCEPTION THEN
142: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: FND_MSG_PUB.Count_And_Get
145: ( p_count => x_msg_count,
146: p_data => x_msg_data
147: );
148:
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
154: FND_MSG_PUB.Count_And_Get
155: ( p_count => x_msg_count,
156: p_data => x_msg_data
157: );
158: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
158: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
159: WHEN OTHERS THEN
160: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: IF FND_MSG_PUB.Check_Msg_Level
163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
164: THEN
165: FND_MSG_PUB.Add_Exc_Msg
166: ( G_PKG_NAME,
159: WHEN OTHERS THEN
160: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: IF FND_MSG_PUB.Check_Msg_Level
163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
164: THEN
165: FND_MSG_PUB.Add_Exc_Msg
166: ( G_PKG_NAME,
167: l_api_name
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: IF FND_MSG_PUB.Check_Msg_Level
163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
164: THEN
165: FND_MSG_PUB.Add_Exc_Msg
166: ( G_PKG_NAME,
167: l_api_name
168: );
169: END IF;
166: ( G_PKG_NAME,
167: l_api_name
168: );
169: END IF;
170: FND_MSG_PUB.Count_And_Get
171: ( p_count => x_msg_count,
172: p_data => x_msg_data
173: );
174: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
216: END IF;
217: -- Initialize API message list if necessary.
218: -- Initialize message list if p_init_msg_list is set to TRUE.
219: IF FND_API.To_Boolean(p_init_msg_list) THEN
220: FND_MSG_PUB.Initialize;
221: END IF;
222:
223: -----------------------------------
224:
240: -- Make a standard call to get message count and if count is 1,
241: -- get message info.
242: -- The client will directly display the x_msg_data (which is already
243: -- translated) if the x_msg_count = 1;
244: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
245: -- Server-side procedure to access the messages, and consolidate them
246: -- and display them all at once or display one message after another.
247:
248: FND_MSG_PUB.Count_And_Get
244: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get
245: -- Server-side procedure to access the messages, and consolidate them
246: -- and display them all at once or display one message after another.
247:
248: FND_MSG_PUB.Count_And_Get
249: ( p_count => x_msg_count,
250: p_data => x_msg_data
251: );
252:
253: EXCEPTION
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Obj_Type_Lifecycle_PUB;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257: IF FND_MSG_PUB.Check_Msg_Level
258: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
259: THEN
260: FND_MSG_PUB.Add_Exc_Msg
261: ( G_PKG_NAME,
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Obj_Type_Lifecycle_PUB;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257: IF FND_MSG_PUB.Check_Msg_Level
258: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
259: THEN
260: FND_MSG_PUB.Add_Exc_Msg
261: ( G_PKG_NAME,
262: l_api_name
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257: IF FND_MSG_PUB.Check_Msg_Level
258: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
259: THEN
260: FND_MSG_PUB.Add_Exc_Msg
261: ( G_PKG_NAME,
262: l_api_name
263: );
264: END IF;
261: ( G_PKG_NAME,
262: l_api_name
263: );
264: END IF;
265: FND_MSG_PUB.Count_And_Get
266: ( p_count => x_msg_count,
267: p_data => x_msg_data
268: );
269: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;