116:
117: -- Initialize message list if p_init_msg_list is set to TRUE.
118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
119:
120: FND_MSG_PUB.initialize;
121:
122: END IF;
123:
124: -- Initialize API return status to success
147: ,p_level => C_LEVEL_PROCEDURE
148: ,p_module => l_log_module);
149: END IF;
150:
151: FND_MSG_PUB.Count_And_Get
152: (p_count => x_msg_count
153: ,p_data => x_msg_data);
154:
155: EXCEPTION
158: ROLLBACK TO Upload_Balances;
159:
160: x_return_status := FND_API.G_RET_STS_ERROR ;
161:
162: FND_MSG_PUB.Count_And_Get
163: (p_count => x_msg_count
164: ,p_data => x_msg_data);
165:
166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
168: ROLLBACK TO Upload_Balances;
169:
170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
171:
172: FND_MSG_PUB.Count_And_Get
173: (p_count => x_msg_count
174: ,p_data => x_msg_data);
175:
176: WHEN OTHERS THEN
178: ROLLBACK TO Upload_Balances;
179:
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181:
182: IF FND_MSG_PUB.Check_Msg_Level
183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184: THEN
185: FND_MSG_PUB.Add_Exc_Msg
186: (p_pkg_name => G_PKG_NAME
179:
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
181:
182: IF FND_MSG_PUB.Check_Msg_Level
183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184: THEN
185: FND_MSG_PUB.Add_Exc_Msg
186: (p_pkg_name => G_PKG_NAME
187: ,p_procedure_name => l_api_name);
181:
182: IF FND_MSG_PUB.Check_Msg_Level
183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184: THEN
185: FND_MSG_PUB.Add_Exc_Msg
186: (p_pkg_name => G_PKG_NAME
187: ,p_procedure_name => l_api_name);
188: END IF;
189:
186: (p_pkg_name => G_PKG_NAME
187: ,p_procedure_name => l_api_name);
188: END IF;
189:
190: FND_MSG_PUB.Count_And_Get
191: (p_count => x_msg_count
192: ,p_data => x_msg_data);
193:
194: END upload_balances;
239:
240: -- Initialize message list if p_init_msg_list is set to TRUE.
241: IF FND_API.to_Boolean( p_init_msg_list ) THEN
242:
243: FND_MSG_PUB.initialize;
244:
245: END IF;
246:
247: -- Initialize API return status to success
263: ,p_level => C_LEVEL_PROCEDURE
264: ,p_module => l_log_module);
265: END IF;
266:
267: FND_MSG_PUB.Count_And_Get
268: (p_count => x_msg_count
269: ,p_data => x_msg_data);
270:
271: EXCEPTION
277: -- ROLLBACK TO Upgrade_AP_Balances;
278:
279: x_return_status := FND_API.G_RET_STS_ERROR ;
280:
281: FND_MSG_PUB.Count_And_Get
282: (p_count => x_msg_count
283: ,p_data => x_msg_data);
284:
285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287: -- ROLLBACK TO Upgrade_AP_Balances;
288:
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
290:
291: FND_MSG_PUB.Count_And_Get
292: (p_count => x_msg_count
293: ,p_data => x_msg_data);
294:
295: WHEN OTHERS THEN
297: -- ROLLBACK TO Upgrade_AP_Balances;
298:
299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
300:
301: IF FND_MSG_PUB.Check_Msg_Level
302: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: FND_MSG_PUB.Add_Exc_Msg
305: (p_pkg_name => G_PKG_NAME
298:
299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
300:
301: IF FND_MSG_PUB.Check_Msg_Level
302: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: FND_MSG_PUB.Add_Exc_Msg
305: (p_pkg_name => G_PKG_NAME
306: ,p_procedure_name => l_api_name);
300:
301: IF FND_MSG_PUB.Check_Msg_Level
302: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: FND_MSG_PUB.Add_Exc_Msg
305: (p_pkg_name => G_PKG_NAME
306: ,p_procedure_name => l_api_name);
307: END IF;
308:
305: (p_pkg_name => G_PKG_NAME
306: ,p_procedure_name => l_api_name);
307: END IF;
308:
309: FND_MSG_PUB.Count_And_Get
310: (p_count => x_msg_count
311: ,p_data => x_msg_data);
312: */
313: