108: gmf_cost_failure EXCEPTION;
109:
110: BEGIN
111: /* Set the return staus to success inititally*/
112: x_return_status := fnd_api.g_ret_sts_success;
113:
114: /* Initialize output batch header */
115: x_batch_header_rec := p_batch_header_rec ;
116: /* x_batch_header_rec gets the batch_id */
172:
173: l_batch_cost :=
174: gmf_cmcommon.is_batch_cost_frozen
175: (p_api_version => 2
176: ,p_init_msg_list => fnd_api.g_false
177: ,p_commit => fnd_api.g_false
178: ,x_return_status => l_return_status
179: ,x_msg_count => l_msg_count
180: ,x_msg_data => l_msg_data
173: l_batch_cost :=
174: gmf_cmcommon.is_batch_cost_frozen
175: (p_api_version => 2
176: ,p_init_msg_list => fnd_api.g_false
177: ,p_commit => fnd_api.g_false
178: ,x_return_status => l_return_status
179: ,x_msg_count => l_msg_count
180: ,x_msg_data => l_msg_data
181: ,p_batch_id => p_batch_header_rec.batch_id);
191: (p_batch_row => x_batch_header_rec
192: ,x_rsc_row_count => l_rsrc_cnt
193: ,x_return_status => l_status);
194:
195: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
198:
199: /* Now we have to reopen any existing phantoms which are not
192: ,x_rsc_row_count => l_rsrc_cnt
193: ,x_return_status => l_status);
194:
195: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
198:
199: /* Now we have to reopen any existing phantoms which are not
200: associated step and release type of "Automatic by step" */
221: ,p_reopen_steps => p_reopen_steps
222: ,x_batch_header_rec => l_batch_header
223: ,x_return_status => x_return_status);
224:
225: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
226: RAISE phantom_batch_reopen_err;
227: END IF;
228: END IF; /* if batch_status = 4 */
229: END LOOP;
236: gme_reopen_step_pvt.reopen_all_steps
237: (p_batch_header_rec => x_batch_header_rec
238: ,x_return_status => x_return_status);
239:
240: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
241: RAISE batch_step_reopen_err;
242: END IF;
243: END IF; --delete only if we have steps in batch
244: END IF; -- reopen steps only if the parameter indicates so
295: -- Bug 5903208 - Make call to GMF to revert finalization layers for this batch
296: --
297: GMF_VIB.Revert_Finalization
298: ( p_api_version => 1.0,
299: p_init_msg_list => FND_API.G_FALSE,
300: p_batch_id => x_batch_header_rec.batch_id,
301: x_return_status => x_return_status,
302: x_msg_count => l_message_count,
303: x_msg_data => l_message_list);
301: x_return_status => x_return_status,
302: x_msg_count => l_message_count,
303: x_msg_data => l_message_list);
304:
305: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
306: THEN
307: RAISE gmf_cost_failure;
308: END IF;
309: -- End Bug 5903208
318: END IF;
319: EXCEPTION
320: WHEN gmf_cost_failure THEN
321: -- Bug 5043868
322: x_return_status := FND_API.G_RET_STS_ERROR;
323:
324: WHEN batch_cost_err THEN
325: x_return_status := fnd_api.g_ret_sts_error;
326: /* WHEN batch_header_locked_err THEN
321: -- Bug 5043868
322: x_return_status := FND_API.G_RET_STS_ERROR;
323:
324: WHEN batch_cost_err THEN
325: x_return_status := fnd_api.g_ret_sts_error;
326: /* WHEN batch_header_locked_err THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: gme_common_pvt.log_message ('GME_BATCH_IN_USE');*/
329: WHEN batch_header_fetch_err OR fnd_api.g_exc_error THEN
323:
324: WHEN batch_cost_err THEN
325: x_return_status := fnd_api.g_ret_sts_error;
326: /* WHEN batch_header_locked_err THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: gme_common_pvt.log_message ('GME_BATCH_IN_USE');*/
329: WHEN batch_header_fetch_err OR fnd_api.g_exc_error THEN
330: x_return_status := fnd_api.g_ret_sts_error;
331: WHEN cant_reopen_migrated_batch THEN
325: x_return_status := fnd_api.g_ret_sts_error;
326: /* WHEN batch_header_locked_err THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: gme_common_pvt.log_message ('GME_BATCH_IN_USE');*/
329: WHEN batch_header_fetch_err OR fnd_api.g_exc_error THEN
330: x_return_status := fnd_api.g_ret_sts_error;
331: WHEN cant_reopen_migrated_batch THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: gme_common_pvt.log_message ('GME_API_MIG_BATCH_FOR_REOPEN');
326: /* WHEN batch_header_locked_err THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: gme_common_pvt.log_message ('GME_BATCH_IN_USE');*/
329: WHEN batch_header_fetch_err OR fnd_api.g_exc_error THEN
330: x_return_status := fnd_api.g_ret_sts_error;
331: WHEN cant_reopen_migrated_batch THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: gme_common_pvt.log_message ('GME_API_MIG_BATCH_FOR_REOPEN');
334: WHEN invalid_batch_type THEN
328: gme_common_pvt.log_message ('GME_BATCH_IN_USE');*/
329: WHEN batch_header_fetch_err OR fnd_api.g_exc_error THEN
330: x_return_status := fnd_api.g_ret_sts_error;
331: WHEN cant_reopen_migrated_batch THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: gme_common_pvt.log_message ('GME_API_MIG_BATCH_FOR_REOPEN');
334: WHEN invalid_batch_type THEN
335: x_return_status := fnd_api.g_ret_sts_error;
336: gme_common_pvt.log_message ('GME_API_INV_BATCH_TYPE');
331: WHEN cant_reopen_migrated_batch THEN
332: x_return_status := fnd_api.g_ret_sts_error;
333: gme_common_pvt.log_message ('GME_API_MIG_BATCH_FOR_REOPEN');
334: WHEN invalid_batch_type THEN
335: x_return_status := fnd_api.g_ret_sts_error;
336: gme_common_pvt.log_message ('GME_API_INV_BATCH_TYPE');
337: WHEN invalid_batch_status THEN
338: x_return_status := fnd_api.g_ret_sts_error;
339: gme_common_pvt.log_message ('GME_INVALID_BATCH_STATUS'
334: WHEN invalid_batch_type THEN
335: x_return_status := fnd_api.g_ret_sts_error;
336: gme_common_pvt.log_message ('GME_API_INV_BATCH_TYPE');
337: WHEN invalid_batch_status THEN
338: x_return_status := fnd_api.g_ret_sts_error;
339: gme_common_pvt.log_message ('GME_INVALID_BATCH_STATUS'
340: ,'PROCESS'
341: ,'Reopen');
342: /* WHEN batch_already_purged THEN
339: gme_common_pvt.log_message ('GME_INVALID_BATCH_STATUS'
340: ,'PROCESS'
341: ,'Reopen');
342: /* WHEN batch_already_purged THEN
343: x_return_status := fnd_api.g_ret_sts_error;
344: gme_common_pvt.log_message ('GME_API_TRANSACTIONS_PURGED');*/
345: WHEN batch_already_posted THEN
346: x_return_status := fnd_api.g_ret_sts_error;
347: gme_common_pvt.log_message ('GME_API_GL_POSTED');
342: /* WHEN batch_already_purged THEN
343: x_return_status := fnd_api.g_ret_sts_error;
344: gme_common_pvt.log_message ('GME_API_TRANSACTIONS_PURGED');*/
345: WHEN batch_already_posted THEN
346: x_return_status := fnd_api.g_ret_sts_error;
347: gme_common_pvt.log_message ('GME_API_GL_POSTED');
348: WHEN batch_costed_and_period_closed THEN
349: x_return_status := fnd_api.g_ret_sts_error;
350: gme_common_pvt.log_message ('GME_API_COST_PERIOD_CLOSED');
345: WHEN batch_already_posted THEN
346: x_return_status := fnd_api.g_ret_sts_error;
347: gme_common_pvt.log_message ('GME_API_GL_POSTED');
348: WHEN batch_costed_and_period_closed THEN
349: x_return_status := fnd_api.g_ret_sts_error;
350: gme_common_pvt.log_message ('GME_API_COST_PERIOD_CLOSED');
351: /* WHEN marked_for_deletion THEN
352: x_return_status := fnd_api.g_ret_sts_error;
353: gme_common_pvt.log_message ('GME_API_MARKED_FOR_DELETION');*/
348: WHEN batch_costed_and_period_closed THEN
349: x_return_status := fnd_api.g_ret_sts_error;
350: gme_common_pvt.log_message ('GME_API_COST_PERIOD_CLOSED');
351: /* WHEN marked_for_deletion THEN
352: x_return_status := fnd_api.g_ret_sts_error;
353: gme_common_pvt.log_message ('GME_API_MARKED_FOR_DELETION');*/
354: WHEN batch_step_reopen_err THEN
355: x_return_status := fnd_api.g_ret_sts_error;
356: gme_common_pvt.log_message ('GME_API_BATCH_STEP_REOPEN_ERR');
351: /* WHEN marked_for_deletion THEN
352: x_return_status := fnd_api.g_ret_sts_error;
353: gme_common_pvt.log_message ('GME_API_MARKED_FOR_DELETION');*/
354: WHEN batch_step_reopen_err THEN
355: x_return_status := fnd_api.g_ret_sts_error;
356: gme_common_pvt.log_message ('GME_API_BATCH_STEP_REOPEN_ERR');
357: WHEN batch_header_upd_err THEN
358: x_return_status := fnd_api.g_ret_sts_error;
359: WHEN batch_hist_insert_err THEN
354: WHEN batch_step_reopen_err THEN
355: x_return_status := fnd_api.g_ret_sts_error;
356: gme_common_pvt.log_message ('GME_API_BATCH_STEP_REOPEN_ERR');
357: WHEN batch_header_upd_err THEN
358: x_return_status := fnd_api.g_ret_sts_error;
359: WHEN batch_hist_insert_err THEN
360: x_return_status := fnd_api.g_ret_sts_error;
361: WHEN phantom_batch_reopen_err THEN
362: NULL;
356: gme_common_pvt.log_message ('GME_API_BATCH_STEP_REOPEN_ERR');
357: WHEN batch_header_upd_err THEN
358: x_return_status := fnd_api.g_ret_sts_error;
359: WHEN batch_hist_insert_err THEN
360: x_return_status := fnd_api.g_ret_sts_error;
361: WHEN phantom_batch_reopen_err THEN
362: NULL;
363: WHEN OTHERS THEN
364: x_return_status := fnd_api.g_ret_sts_unexp_error;
360: x_return_status := fnd_api.g_ret_sts_error;
361: WHEN phantom_batch_reopen_err THEN
362: NULL;
363: WHEN OTHERS THEN
364: x_return_status := fnd_api.g_ret_sts_unexp_error;
365: fnd_msg_pub.add_exc_msg (g_package_name, l_api_name);
366: END reopen_batch;
367:
368: /*===============================================================================