1: PACKAGE BODY BIM_I_UPDATE_FACTS_PKG AS
2: /*$Header: bimiulmb.pls 120.6 2005/10/11 05:38:30 sbassi noship $*/
3:
4: g_init_msg_list CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
5: g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
6: g_commit CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
7:
8: ---------------------------------------------------------------------------------+
1: PACKAGE BODY BIM_I_UPDATE_FACTS_PKG AS
2: /*$Header: bimiulmb.pls 120.6 2005/10/11 05:38:30 sbassi noship $*/
3:
4: g_init_msg_list CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
5: g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
6: g_commit CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
7:
8: ---------------------------------------------------------------------------------+
9:
2: /*$Header: bimiulmb.pls 120.6 2005/10/11 05:38:30 sbassi noship $*/
3:
4: g_init_msg_list CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
5: g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
6: g_commit CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
7:
8: ---------------------------------------------------------------------------------+
9:
10: PROCEDURE INVOKE_SOURCE_CODES
38: ,p_truncate_flg => p_truncate_flg
39: );
40:
41:
42: IF x_return_status = FND_API.g_ret_sts_error THEN
43: RAISE FND_API.g_exc_error;
44: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
45: RAISE FND_API.g_exc_unexpected_error;
46: END IF;
39: );
40:
41:
42: IF x_return_status = FND_API.g_ret_sts_error THEN
43: RAISE FND_API.g_exc_error;
44: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
45: RAISE FND_API.g_exc_unexpected_error;
46: END IF;
47:
40:
41:
42: IF x_return_status = FND_API.g_ret_sts_error THEN
43: RAISE FND_API.g_exc_error;
44: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
45: RAISE FND_API.g_exc_unexpected_error;
46: END IF;
47:
48: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
41:
42: IF x_return_status = FND_API.g_ret_sts_error THEN
43: RAISE FND_API.g_exc_error;
44: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
45: RAISE FND_API.g_exc_unexpected_error;
46: END IF;
47:
48: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
49:
48: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
49:
50: EXCEPTION
51:
52: WHEN FND_API.G_EXC_ERROR THEN
53: x_return_status := FND_API.g_ret_sts_error ;
54: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
55: p_count => x_msg_count,
56: p_data => x_msg_data);
49:
50: EXCEPTION
51:
52: WHEN FND_API.G_EXC_ERROR THEN
53: x_return_status := FND_API.g_ret_sts_error ;
54: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
55: p_count => x_msg_count,
56: p_data => x_msg_data);
57: ERRBUF := x_msg_data;
50: EXCEPTION
51:
52: WHEN FND_API.G_EXC_ERROR THEN
53: x_return_status := FND_API.g_ret_sts_error ;
54: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
55: p_count => x_msg_count,
56: p_data => x_msg_data);
57: ERRBUF := x_msg_data;
58: RETCODE := 2;
56: p_data => x_msg_data);
57: ERRBUF := x_msg_data;
58: RETCODE := 2;
59:
60: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61: x_return_status := FND_API.g_ret_sts_unexp_error ;
62: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
63: p_count => x_msg_count,
64: p_data => x_msg_data);
57: ERRBUF := x_msg_data;
58: RETCODE := 2;
59:
60: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61: x_return_status := FND_API.g_ret_sts_unexp_error ;
62: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
63: p_count => x_msg_count,
64: p_data => x_msg_data);
65: ERRBUF := x_msg_data;
58: RETCODE := 2;
59:
60: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61: x_return_status := FND_API.g_ret_sts_unexp_error ;
62: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
63: p_count => x_msg_count,
64: p_data => x_msg_data);
65: ERRBUF := x_msg_data;
66: RETCODE := 2;
65: ERRBUF := x_msg_data;
66: RETCODE := 2;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
71: p_count => x_msg_count,
72: p_data => x_msg_data);
73: ERRBUF := sqlerrm(sqlcode);
66: RETCODE := 2;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
71: p_count => x_msg_count,
72: p_data => x_msg_data);
73: ERRBUF := sqlerrm(sqlcode);
74: RETCODE := sqlcode;
96: l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_MARKETING';
97: x_msg_count NUMBER;
98: x_msg_data VARCHAR2(240);
99: x_return_status VARCHAR2(1) ;
100: l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
101: l_max_date DATE;
102:
103: BEGIN
104: -- Standard call to check for call compatibility.
101: l_max_date DATE;
102:
103: BEGIN
104: -- Standard call to check for call compatibility.
105: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
106: p_api_version_number,
107: l_api_name,
108: g_pkg_name)
109: THEN
106: p_api_version_number,
107: l_api_name,
108: g_pkg_name)
109: THEN
110: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111: END IF;
112: -- Initialize message list if p_init_msg_list is set to TRUE.
113: -- Debug Message
114: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
113: -- Debug Message
114: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
115:
116: -- Initialize API return status to SUCCESS
117: x_return_status := FND_API.G_RET_STS_SUCCESS;
118:
119: BIM_MARKET_FACTS_PKG.POPULATE
120: (p_api_version_number => p_api_version_number
121: ,x_msg_count => x_msg_count
125: ,p_end_date => p_end_date
126: ,p_para_num => p_proc_num
127: ,p_truncate_flg => p_truncate_flg
128: );
129: IF x_return_status = FND_API.g_ret_sts_error
130: THEN
131: RAISE FND_API.g_exc_error;
132: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
133: RAISE FND_API.g_exc_unexpected_error;
127: ,p_truncate_flg => p_truncate_flg
128: );
129: IF x_return_status = FND_API.g_ret_sts_error
130: THEN
131: RAISE FND_API.g_exc_error;
132: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
133: RAISE FND_API.g_exc_unexpected_error;
134: END IF;
135:
128: );
129: IF x_return_status = FND_API.g_ret_sts_error
130: THEN
131: RAISE FND_API.g_exc_error;
132: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
133: RAISE FND_API.g_exc_unexpected_error;
134: END IF;
135:
136: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
129: IF x_return_status = FND_API.g_ret_sts_error
130: THEN
131: RAISE FND_API.g_exc_error;
132: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
133: RAISE FND_API.g_exc_unexpected_error;
134: END IF;
135:
136: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
137:
136: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
137:
138: EXCEPTION
139:
140: WHEN FND_API.G_EXC_ERROR THEN
141: x_return_status := FND_API.g_ret_sts_error ;
142: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
143: p_count => x_msg_count,
144: p_data => x_msg_data);
137:
138: EXCEPTION
139:
140: WHEN FND_API.G_EXC_ERROR THEN
141: x_return_status := FND_API.g_ret_sts_error ;
142: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
143: p_count => x_msg_count,
144: p_data => x_msg_data);
145: ERRBUF := x_msg_data;
138: EXCEPTION
139:
140: WHEN FND_API.G_EXC_ERROR THEN
141: x_return_status := FND_API.g_ret_sts_error ;
142: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
143: p_count => x_msg_count,
144: p_data => x_msg_data);
145: ERRBUF := x_msg_data;
146: RETCODE := 2;
144: p_data => x_msg_data);
145: ERRBUF := x_msg_data;
146: RETCODE := 2;
147:
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: x_return_status := FND_API.g_ret_sts_unexp_error ;
150: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
151: p_count => x_msg_count,
152: p_data => x_msg_data);
145: ERRBUF := x_msg_data;
146: RETCODE := 2;
147:
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: x_return_status := FND_API.g_ret_sts_unexp_error ;
150: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
151: p_count => x_msg_count,
152: p_data => x_msg_data);
153: ERRBUF := x_msg_data;
146: RETCODE := 2;
147:
148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149: x_return_status := FND_API.g_ret_sts_unexp_error ;
150: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
151: p_count => x_msg_count,
152: p_data => x_msg_data);
153: ERRBUF := x_msg_data;
154: RETCODE := 2;
153: ERRBUF := x_msg_data;
154: RETCODE := 2;
155:
156: WHEN OTHERS THEN
157: x_return_status := FND_API.g_ret_sts_unexp_error ;
158: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
159: p_count => x_msg_count,
160: p_data => x_msg_data);
161: ERRBUF := sqlerrm(sqlcode);
154: RETCODE := 2;
155:
156: WHEN OTHERS THEN
157: x_return_status := FND_API.g_ret_sts_unexp_error ;
158: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
159: p_count => x_msg_count,
160: p_data => x_msg_data);
161: ERRBUF := sqlerrm(sqlcode);
162: RETCODE := sqlcode;
181: l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_MARKETING';
182: x_msg_count NUMBER;
183: x_msg_data VARCHAR2(240);
184: x_return_status VARCHAR2(1) ;
185: l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
186: l_max_date DATE;
187:
188: BEGIN
189: -- Standard call to check for call compatibility.
186: l_max_date DATE;
187:
188: BEGIN
189: -- Standard call to check for call compatibility.
190: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
191: p_api_version_number,
192: l_api_name,
193: g_pkg_name)
194: THEN
191: p_api_version_number,
192: l_api_name,
193: g_pkg_name)
194: THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- Initialize message list if p_init_msg_list is set to TRUE.
198: -- Debug Message
199: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
198: -- Debug Message
199: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
200:
201: -- Initialize API return status to SUCCESS
202: x_return_status := FND_API.G_RET_STS_SUCCESS;
203:
204: BIM_I_BGT_FACTS_PKG.POPULATE
205: (p_api_version_number => p_api_version_number
206: ,x_msg_count => x_msg_count
210: ,p_end_date => p_end_date
211: ,p_para_num => p_proc_num
212: ,p_truncate_flg => p_truncate_flg
213: );
214: IF x_return_status = FND_API.g_ret_sts_error THEN
215: RAISE FND_API.g_exc_error;
216: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
217: RAISE FND_API.g_exc_unexpected_error;
218: END IF;
211: ,p_para_num => p_proc_num
212: ,p_truncate_flg => p_truncate_flg
213: );
214: IF x_return_status = FND_API.g_ret_sts_error THEN
215: RAISE FND_API.g_exc_error;
216: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
217: RAISE FND_API.g_exc_unexpected_error;
218: END IF;
219:
212: ,p_truncate_flg => p_truncate_flg
213: );
214: IF x_return_status = FND_API.g_ret_sts_error THEN
215: RAISE FND_API.g_exc_error;
216: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
217: RAISE FND_API.g_exc_unexpected_error;
218: END IF;
219:
220: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
213: );
214: IF x_return_status = FND_API.g_ret_sts_error THEN
215: RAISE FND_API.g_exc_error;
216: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
217: RAISE FND_API.g_exc_unexpected_error;
218: END IF;
219:
220: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
221:
220: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
221:
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.g_ret_sts_error ;
226: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
227: p_count => x_msg_count,
228: p_data => x_msg_data);
221:
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.g_ret_sts_error ;
226: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
227: p_count => x_msg_count,
228: p_data => x_msg_data);
229: ERRBUF := x_msg_data;
222: EXCEPTION
223:
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.g_ret_sts_error ;
226: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
227: p_count => x_msg_count,
228: p_data => x_msg_data);
229: ERRBUF := x_msg_data;
230: RETCODE := 2;
228: p_data => x_msg_data);
229: ERRBUF := x_msg_data;
230: RETCODE := 2;
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.g_ret_sts_unexp_error ;
234: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
235: p_count => x_msg_count,
236: p_data => x_msg_data);
229: ERRBUF := x_msg_data;
230: RETCODE := 2;
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.g_ret_sts_unexp_error ;
234: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
235: p_count => x_msg_count,
236: p_data => x_msg_data);
237: ERRBUF := x_msg_data;
230: RETCODE := 2;
231:
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.g_ret_sts_unexp_error ;
234: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
235: p_count => x_msg_count,
236: p_data => x_msg_data);
237: ERRBUF := x_msg_data;
238: RETCODE := 2;
237: ERRBUF := x_msg_data;
238: RETCODE := 2;
239:
240: WHEN OTHERS THEN
241: x_return_status := FND_API.g_ret_sts_unexp_error ;
242: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
243: p_count => x_msg_count,
244: p_data => x_msg_data);
245: ERRBUF := sqlerrm(sqlcode);
238: RETCODE := 2;
239:
240: WHEN OTHERS THEN
241: x_return_status := FND_API.g_ret_sts_unexp_error ;
242: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
243: p_count => x_msg_count,
244: p_data => x_msg_data);
245: ERRBUF := sqlerrm(sqlcode);
246: RETCODE := sqlcode;
268: l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_LEADS';
269: x_msg_count NUMBER;
270: x_msg_data VARCHAR2(240);
271: x_return_status VARCHAR2(1) ;
272: l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
273: l_max_date DATE;
274:
275: BEGIN
276: -- Standard call to check for call compatibility.
273: l_max_date DATE;
274:
275: BEGIN
276: -- Standard call to check for call compatibility.
277: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
278: p_api_version_number,
279: l_api_name,
280: g_pkg_name)
281: THEN
278: p_api_version_number,
279: l_api_name,
280: g_pkg_name)
281: THEN
282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283: END IF;
284: -- Initialize message list if p_init_msg_list is set to TRUE.
285: -- Debug Message
286: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
285: -- Debug Message
286: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
287:
288: -- Initialize API return status to SUCCESS
289: x_return_status := FND_API.G_RET_STS_SUCCESS;
290:
291: BIM_I_LEAD_FACTS_PKG.POPULATE
292: (p_api_version_number => p_api_version_number
293: ,x_msg_count => x_msg_count
300: ,p_validation_level => g_validation_level
301: ,p_commit => g_commit
302: ,p_truncate_flg => p_truncate_flg
303: );
304: IF x_return_status = FND_API.g_ret_sts_error
305: THEN
306: RAISE FND_API.g_exc_error;
307: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
308: RAISE FND_API.g_exc_unexpected_error;
302: ,p_truncate_flg => p_truncate_flg
303: );
304: IF x_return_status = FND_API.g_ret_sts_error
305: THEN
306: RAISE FND_API.g_exc_error;
307: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
308: RAISE FND_API.g_exc_unexpected_error;
309: END IF;
310:
303: );
304: IF x_return_status = FND_API.g_ret_sts_error
305: THEN
306: RAISE FND_API.g_exc_error;
307: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
308: RAISE FND_API.g_exc_unexpected_error;
309: END IF;
310:
311: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
304: IF x_return_status = FND_API.g_ret_sts_error
305: THEN
306: RAISE FND_API.g_exc_error;
307: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
308: RAISE FND_API.g_exc_unexpected_error;
309: END IF;
310:
311: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
312:
311: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
312:
313: EXCEPTION
314:
315: WHEN FND_API.G_EXC_ERROR THEN
316: x_return_status := FND_API.g_ret_sts_error ;
317: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
312:
313: EXCEPTION
314:
315: WHEN FND_API.G_EXC_ERROR THEN
316: x_return_status := FND_API.g_ret_sts_error ;
317: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
320: ERRBUF := x_msg_data;
313: EXCEPTION
314:
315: WHEN FND_API.G_EXC_ERROR THEN
316: x_return_status := FND_API.g_ret_sts_error ;
317: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
318: p_count => x_msg_count,
319: p_data => x_msg_data);
320: ERRBUF := x_msg_data;
321: RETCODE := 2;
319: p_data => x_msg_data);
320: ERRBUF := x_msg_data;
321: RETCODE := 2;
322:
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: x_return_status := FND_API.g_ret_sts_unexp_error ;
325: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
320: ERRBUF := x_msg_data;
321: RETCODE := 2;
322:
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: x_return_status := FND_API.g_ret_sts_unexp_error ;
325: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
328: ERRBUF := x_msg_data;
321: RETCODE := 2;
322:
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: x_return_status := FND_API.g_ret_sts_unexp_error ;
325: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
326: p_count => x_msg_count,
327: p_data => x_msg_data);
328: ERRBUF := x_msg_data;
329: RETCODE := 2;
328: ERRBUF := x_msg_data;
329: RETCODE := 2;
330:
331: WHEN OTHERS THEN
332: x_return_status := FND_API.g_ret_sts_unexp_error ;
333: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
334: p_count => x_msg_count,
335: p_data => x_msg_data);
336: ERRBUF := sqlerrm(sqlcode);
329: RETCODE := 2;
330:
331: WHEN OTHERS THEN
332: x_return_status := FND_API.g_ret_sts_unexp_error ;
333: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
334: p_count => x_msg_count,
335: p_data => x_msg_data);
336: ERRBUF := sqlerrm(sqlcode);
337: RETCODE := sqlcode;
526: x_return_status VARCHAR2(1) ;
527:
528: BEGIN
529: -- Standard call to check for call compatibility.
530: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
531: p_api_version_number,
532: l_api_name,
533: g_pkg_name)
534: THEN
531: p_api_version_number,
532: l_api_name,
533: g_pkg_name)
534: THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536: END IF;
537: -- Initialize message list if p_init_msg_list is set to TRUE.
538: -- Debug Message
539: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
538: -- Debug Message
539: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
540:
541: -- Initialize API return status to SUCCESS
542: x_return_status := FND_API.G_RET_STS_SUCCESS;
543:
544:
545: BIM_I_SGMT_FACTS_PKG.POPULATE
546: (p_api_version_number => p_api_version_number
554: ,p_validation_level => g_validation_level
555: ,p_commit => g_commit
556: ,p_truncate_flg => p_truncate_flg
557: );
558: IF x_return_status = FND_API.g_ret_sts_error THEN
559:
560: RAISE FND_API.g_exc_error;
561:
562: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
556: ,p_truncate_flg => p_truncate_flg
557: );
558: IF x_return_status = FND_API.g_ret_sts_error THEN
559:
560: RAISE FND_API.g_exc_error;
561:
562: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
563:
564: RAISE FND_API.g_exc_unexpected_error;
558: IF x_return_status = FND_API.g_ret_sts_error THEN
559:
560: RAISE FND_API.g_exc_error;
561:
562: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
563:
564: RAISE FND_API.g_exc_unexpected_error;
565:
566: END IF;
560: RAISE FND_API.g_exc_error;
561:
562: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
563:
564: RAISE FND_API.g_exc_unexpected_error;
565:
566: END IF;
567:
568: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
568: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
569:
570: EXCEPTION
571:
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.g_ret_sts_error ;
574: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
575: p_count => x_msg_count,
576: p_data => x_msg_data);
569:
570: EXCEPTION
571:
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.g_ret_sts_error ;
574: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
575: p_count => x_msg_count,
576: p_data => x_msg_data);
577: ERRBUF := x_msg_data;
570: EXCEPTION
571:
572: WHEN FND_API.G_EXC_ERROR THEN
573: x_return_status := FND_API.g_ret_sts_error ;
574: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
575: p_count => x_msg_count,
576: p_data => x_msg_data);
577: ERRBUF := x_msg_data;
578: RETCODE := 2;
576: p_data => x_msg_data);
577: ERRBUF := x_msg_data;
578: RETCODE := 2;
579:
580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581: x_return_status := FND_API.g_ret_sts_unexp_error ;
582: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
577: ERRBUF := x_msg_data;
578: RETCODE := 2;
579:
580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581: x_return_status := FND_API.g_ret_sts_unexp_error ;
582: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585: ERRBUF := x_msg_data;
578: RETCODE := 2;
579:
580: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581: x_return_status := FND_API.g_ret_sts_unexp_error ;
582: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
583: p_count => x_msg_count,
584: p_data => x_msg_data);
585: ERRBUF := x_msg_data;
586: RETCODE := 2;
585: ERRBUF := x_msg_data;
586: RETCODE := 2;
587:
588: WHEN OTHERS THEN
589: x_return_status := FND_API.g_ret_sts_unexp_error ;
590: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
591: p_count => x_msg_count,
592: p_data => x_msg_data);
593: ERRBUF := sqlerrm(sqlcode);
586: RETCODE := 2;
587:
588: WHEN OTHERS THEN
589: x_return_status := FND_API.g_ret_sts_unexp_error ;
590: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
591: p_count => x_msg_count,
592: p_data => x_msg_data);
593: ERRBUF := sqlerrm(sqlcode);
594: RETCODE := sqlcode;
614:
615: BEGIN
616:
617: -- Standard call to check for call compatibility.
618: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
619: p_api_version_number,
620: l_api_name,
621: g_pkg_name)
622: THEN
619: p_api_version_number,
620: l_api_name,
621: g_pkg_name)
622: THEN
623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624: END IF;
625: -- Initialize message list if p_init_msg_list is set to TRUE.
626: -- Debug Message
627: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
626: -- Debug Message
627: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
628:
629: -- Initialize API return status to SUCCESS
630: x_return_status := FND_API.G_RET_STS_SUCCESS;
631:
632: BIM_I_SGMT_ACT_FACTS_PKG.POPULATE
633: (p_api_version_number => p_api_version_number
634: ,x_msg_count => x_msg_count
642: ,p_commit => g_commit
643: ,p_truncate_flg =>p_truncate_flg
644: );
645:
646: IF x_return_status = FND_API.g_ret_sts_error THEN
647:
648: RAISE FND_API.g_exc_error;
649:
650: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
644: );
645:
646: IF x_return_status = FND_API.g_ret_sts_error THEN
647:
648: RAISE FND_API.g_exc_error;
649:
650: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
651:
652: RAISE FND_API.g_exc_unexpected_error;
646: IF x_return_status = FND_API.g_ret_sts_error THEN
647:
648: RAISE FND_API.g_exc_error;
649:
650: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
651:
652: RAISE FND_API.g_exc_unexpected_error;
653:
654: END IF;
648: RAISE FND_API.g_exc_error;
649:
650: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
651:
652: RAISE FND_API.g_exc_unexpected_error;
653:
654: END IF;
655:
656: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
656: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
657:
658: EXCEPTION
659:
660: WHEN FND_API.G_EXC_ERROR THEN
661:
662: x_return_status := FND_API.g_ret_sts_error ;
663: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
664: p_count => x_msg_count,
658: EXCEPTION
659:
660: WHEN FND_API.G_EXC_ERROR THEN
661:
662: x_return_status := FND_API.g_ret_sts_error ;
663: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
664: p_count => x_msg_count,
665: p_data => x_msg_data);
666: ERRBUF := x_msg_data;
659:
660: WHEN FND_API.G_EXC_ERROR THEN
661:
662: x_return_status := FND_API.g_ret_sts_error ;
663: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
664: p_count => x_msg_count,
665: p_data => x_msg_data);
666: ERRBUF := x_msg_data;
667: RETCODE := 2;
665: p_data => x_msg_data);
666: ERRBUF := x_msg_data;
667: RETCODE := 2;
668:
669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670:
671: x_return_status := FND_API.g_ret_sts_unexp_error ;
672: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
667: RETCODE := 2;
668:
669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670:
671: x_return_status := FND_API.g_ret_sts_unexp_error ;
672: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data);
675: ERRBUF := x_msg_data;
668:
669: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670:
671: x_return_status := FND_API.g_ret_sts_unexp_error ;
672: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data);
675: ERRBUF := x_msg_data;
676: RETCODE := 2;
677:
678: WHEN OTHERS THEN
679:
680:
681: x_return_status := FND_API.g_ret_sts_unexp_error ;
682:
683: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data);
679:
680:
681: x_return_status := FND_API.g_ret_sts_unexp_error ;
682:
683: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data);
686:
687: ERRBUF := sqlerrm(sqlcode);
710: x_return_status VARCHAR2(1) ;
711:
712: BEGIN
713: -- Standard call to check for call compatibility.
714: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
715: p_api_version_number,
716: l_api_name,
717: g_pkg_name)
718: THEN
715: p_api_version_number,
716: l_api_name,
717: g_pkg_name)
718: THEN
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721: -- Initialize message list if p_init_msg_list is set to TRUE.
722: -- Debug Message
723: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
722: -- Debug Message
723: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
724:
725: -- Initialize API return status to SUCCESS
726: x_return_status := FND_API.G_RET_STS_SUCCESS;
727:
728:
729: BIM_I_SGMT_CUST_FACTS_PKG.POPULATE
730: (p_api_version_number => p_api_version_number
738: ,p_validation_level => g_validation_level
739: ,p_commit => g_commit
740: ,p_truncate_flg =>p_truncate_flg
741: );
742: IF x_return_status = FND_API.g_ret_sts_error THEN
743:
744: RAISE FND_API.g_exc_error;
745:
746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
740: ,p_truncate_flg =>p_truncate_flg
741: );
742: IF x_return_status = FND_API.g_ret_sts_error THEN
743:
744: RAISE FND_API.g_exc_error;
745:
746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
747:
748: RAISE FND_API.g_exc_unexpected_error;
742: IF x_return_status = FND_API.g_ret_sts_error THEN
743:
744: RAISE FND_API.g_exc_error;
745:
746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
747:
748: RAISE FND_API.g_exc_unexpected_error;
749:
750: END IF;
744: RAISE FND_API.g_exc_error;
745:
746: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
747:
748: RAISE FND_API.g_exc_unexpected_error;
749:
750: END IF;
751:
752: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
752: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
753:
754: EXCEPTION
755:
756: WHEN FND_API.G_EXC_ERROR THEN
757: x_return_status := FND_API.g_ret_sts_error ;
758: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
759: p_count => x_msg_count,
760: p_data => x_msg_data);
753:
754: EXCEPTION
755:
756: WHEN FND_API.G_EXC_ERROR THEN
757: x_return_status := FND_API.g_ret_sts_error ;
758: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
759: p_count => x_msg_count,
760: p_data => x_msg_data);
761: ERRBUF := x_msg_data;
754: EXCEPTION
755:
756: WHEN FND_API.G_EXC_ERROR THEN
757: x_return_status := FND_API.g_ret_sts_error ;
758: FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
759: p_count => x_msg_count,
760: p_data => x_msg_data);
761: ERRBUF := x_msg_data;
762: RETCODE := 2;
760: p_data => x_msg_data);
761: ERRBUF := x_msg_data;
762: RETCODE := 2;
763:
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: x_return_status := FND_API.g_ret_sts_unexp_error ;
766: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
767: p_count => x_msg_count,
768: p_data => x_msg_data);
761: ERRBUF := x_msg_data;
762: RETCODE := 2;
763:
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: x_return_status := FND_API.g_ret_sts_unexp_error ;
766: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
767: p_count => x_msg_count,
768: p_data => x_msg_data);
769: ERRBUF := x_msg_data;
762: RETCODE := 2;
763:
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: x_return_status := FND_API.g_ret_sts_unexp_error ;
766: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
767: p_count => x_msg_count,
768: p_data => x_msg_data);
769: ERRBUF := x_msg_data;
770: RETCODE := 2;
769: ERRBUF := x_msg_data;
770: RETCODE := 2;
771:
772: WHEN OTHERS THEN
773: x_return_status := FND_API.g_ret_sts_unexp_error ;
774: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => x_msg_data);
777: ERRBUF := sqlerrm(sqlcode);
770: RETCODE := 2;
771:
772: WHEN OTHERS THEN
773: x_return_status := FND_API.g_ret_sts_unexp_error ;
774: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => x_msg_data);
777: ERRBUF := sqlerrm(sqlcode);
778: RETCODE := sqlcode;