36: SAVEPOINT POST_REPL_ALLOCATION_CUST_SP;
37: l_progress := '10';
38:
39: -- Initialize message list to clear any existing messages
40: fnd_msg_pub.initialize;
41: l_progress := '20';
42:
43: -- Initialize API return status to success
44: x_return_status := fnd_api.g_ret_sts_success;
78: EXCEPTION
79: WHEN FND_API.G_EXC_ERROR THEN
80: ROLLBACK TO POST_REPL_ALLOCATION_CUST_SP;
81: x_return_status := fnd_api.g_ret_sts_error;
82: fnd_msg_pub.count_and_get(p_count => x_msg_count,
83: p_data => x_msg_data);
84: IF (l_debug = 1) THEN
85: print_debug('Exiting POST_REPL_ALLOCATION_CUST - Execution error: ' ||
86: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
88:
89: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90: ROLLBACK TO POST_REPL_ALLOCATION_CUST_SP;
91: x_return_status := fnd_api.g_ret_sts_unexp_error;
92: fnd_msg_pub.count_and_get(p_count => x_msg_count,
93: p_data => x_msg_data);
94: IF (l_debug = 1) THEN
95: print_debug('Exiting POST_REPL_ALLOCATION_CUST - Unexpected error: ' ||
96: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
99:
100: WHEN OTHERS THEN
101: ROLLBACK TO POST_REPL_ALLOCATION_CUST_SP;
102: x_return_status := fnd_api.g_ret_sts_unexp_error;
103: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
104: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
105: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','POST_REPL_ALLOCATION_CUST');
106:
107: END IF;
100: WHEN OTHERS THEN
101: ROLLBACK TO POST_REPL_ALLOCATION_CUST_SP;
102: x_return_status := fnd_api.g_ret_sts_unexp_error;
103: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
104: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
105: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','POST_REPL_ALLOCATION_CUST');
106:
107: END IF;
108: fnd_msg_pub.count_and_get(p_count => x_msg_count,
101: ROLLBACK TO POST_REPL_ALLOCATION_CUST_SP;
102: x_return_status := fnd_api.g_ret_sts_unexp_error;
103: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
104: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
105: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','POST_REPL_ALLOCATION_CUST');
106:
107: END IF;
108: fnd_msg_pub.count_and_get(p_count => x_msg_count,
109: p_data => x_msg_data);
104: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
105: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','POST_REPL_ALLOCATION_CUST');
106:
107: END IF;
108: fnd_msg_pub.count_and_get(p_count => x_msg_count,
109: p_data => x_msg_data);
110: IF (l_debug = 1) THEN
111: print_debug('Exiting POST_REPL_ALLOCATION_CUST - Others exception: ' ||
112: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
137: SAVEPOINT GET_CONSOL_REPL_DEMAND_CUST_SP;
138: l_progress := '10';
139:
140: -- Initialize message list to clear any existing messages
141: fnd_msg_pub.initialize;
142: l_progress := '20';
143:
144: -- Initialize API return status to success
145: x_return_status := fnd_api.g_ret_sts_success;
229: EXCEPTION
230: WHEN FND_API.G_EXC_ERROR THEN
231: ROLLBACK TO GET_CONSOL_REPL_DEMAND_CUST_SP;
232: x_return_status := fnd_api.g_ret_sts_error;
233: fnd_msg_pub.count_and_get(p_count => x_msg_count,
234: p_data => x_msg_data);
235: IF (l_debug = 1) THEN
236: print_debug('Exiting GET_CONSOL_REPL_DEMAND_CUST - Execution error: ' ||
237: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
239:
240: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
241: ROLLBACK TO GET_CONSOL_REPL_DEMAND_CUST_SP;
242: x_return_status := fnd_api.g_ret_sts_unexp_error;
243: fnd_msg_pub.count_and_get(p_count => x_msg_count,
244: p_data => x_msg_data);
245: IF (l_debug = 1) THEN
246: print_debug('Exiting GET_CONSOL_REPL_DEMAND_CUST - Unexpected error: ' ||
247: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
249:
250: WHEN OTHERS THEN
251: ROLLBACK TO GET_CONSOL_REPL_DEMAND_CUST_SP;
252: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
254: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
255: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','GET_CONSOL_REPL_DEMAND_CUST');
256:
257: END IF;
250: WHEN OTHERS THEN
251: ROLLBACK TO GET_CONSOL_REPL_DEMAND_CUST_SP;
252: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
254: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
255: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','GET_CONSOL_REPL_DEMAND_CUST');
256:
257: END IF;
258: fnd_msg_pub.count_and_get(p_count => x_msg_count,
251: ROLLBACK TO GET_CONSOL_REPL_DEMAND_CUST_SP;
252: x_return_status := fnd_api.g_ret_sts_unexp_error;
253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
254: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
255: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','GET_CONSOL_REPL_DEMAND_CUST');
256:
257: END IF;
258: fnd_msg_pub.count_and_get(p_count => x_msg_count,
259: p_data => x_msg_data);
254: -- fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
255: fnd_msg_pub.add_exc_msg('WMS_REPL_CUSTOM_APIS_PUB','GET_CONSOL_REPL_DEMAND_CUST');
256:
257: END IF;
258: fnd_msg_pub.count_and_get(p_count => x_msg_count,
259: p_data => x_msg_data);
260: IF (l_debug = 1) THEN
261: print_debug('Exiting GET_CONSOL_REPL_DEMAND_CUST - Others exception: ' ||
262: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));