204: -- The sequence used for the online report error messages, which gets
205: -- incremented.
206: --OUT:
207: --x_return_status
208: -- FND_API.g_ret_sts_success - if account generation is successful
209: -- FND_API.g_ret_sts_error - if account generation error occurs
210: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
211: --End of Comments
212: ---------------------------------------------------------------------------
205: -- incremented.
206: --OUT:
207: --x_return_status
208: -- FND_API.g_ret_sts_success - if account generation is successful
209: -- FND_API.g_ret_sts_error - if account generation error occurs
210: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
211: --End of Comments
212: ---------------------------------------------------------------------------
213: PROCEDURE generate_accounts
206: --OUT:
207: --x_return_status
208: -- FND_API.g_ret_sts_success - if account generation is successful
209: -- FND_API.g_ret_sts_error - if account generation error occurs
210: -- FND_API.g_ret_sts_unexp_error - if unexpected error occurs
211: --End of Comments
212: ---------------------------------------------------------------------------
213: PROCEDURE generate_accounts
214: (
273: ' ship ID: '||p_po_shipment_rec.line_location_id||
274: ' dist ID: '||x_po_distribution_rec.po_distribution_id);
275: END IF;
276:
277: x_return_status := FND_API.g_ret_sts_success;
278:
279: l_progress := '010';
280:
281: --SQL What: Get the chart of accounts ID for the current set of books and
595: p_message => 'Account generation failure.');
596: END IF;
597:
598: -- Raise exception to exit without modifying the distribution record
599: RAISE FND_API.g_exc_error;
600: END IF; --< if not gen account success>
601:
602: IF g_debug_stmt THEN
603: PO_DEBUG.debug_stmt
614: x_po_distribution_rec.dest_variance_account_id :=l_dest_variance_account_id;
615: x_po_distribution_rec.variance_account_id := l_variance_account_id;
616:
617: EXCEPTION
618: WHEN FND_API.g_exc_error THEN
619: -- If caught, then copydoc errors are already inserted, so just set
620: -- the return status.
621: x_return_status := FND_API.g_ret_sts_error;
622: WHEN OTHERS THEN
617: EXCEPTION
618: WHEN FND_API.g_exc_error THEN
619: -- If caught, then copydoc errors are already inserted, so just set
620: -- the return status.
621: x_return_status := FND_API.g_ret_sts_error;
622: WHEN OTHERS THEN
623: x_return_status := FND_API.g_ret_sts_unexp_error;
624: PO_COPYDOC_S1.copydoc_sql_error
625: (x_routine => 'PO_COPYDOC_S5.generate_accounts',
619: -- If caught, then copydoc errors are already inserted, so just set
620: -- the return status.
621: x_return_status := FND_API.g_ret_sts_error;
622: WHEN OTHERS THEN
623: x_return_status := FND_API.g_ret_sts_unexp_error;
624: PO_COPYDOC_S1.copydoc_sql_error
625: (x_routine => 'PO_COPYDOC_S5.generate_accounts',
626: x_progress => l_progress,
627: x_sqlcode => SQLCODE,