13:
14: PROCEDURE POPULATE
15: (
16: p_api_version_number IN NUMBER
17: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
19: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
20: ,x_msg_count OUT NOCOPY NUMBER
21: ,x_msg_data OUT NOCOPY VARCHAR2
14: PROCEDURE POPULATE
15: (
16: p_api_version_number IN NUMBER
17: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
19: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
20: ,x_msg_count OUT NOCOPY NUMBER
21: ,x_msg_data OUT NOCOPY VARCHAR2
22: ,x_return_status OUT NOCOPY VARCHAR2
15: (
16: p_api_version_number IN NUMBER
17: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
18: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
19: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
20: ,x_msg_count OUT NOCOPY NUMBER
21: ,x_msg_data OUT NOCOPY VARCHAR2
22: ,x_return_status OUT NOCOPY VARCHAR2
23: ,p_object IN VARCHAR2
58: fnd_file.put_line(fnd_file.log,fnd_message.get);
59:
60:
61: -- Standard call to check for call compatibility.
62: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
63: p_api_version_number,
64: l_api_name,
65: g_pkg_name)
66: THEN
63: p_api_version_number,
64: l_api_name,
65: g_pkg_name)
66: THEN
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
70: -- Initialize message list if p_init_msg_list is set to TRUE.
71: IF FND_API.to_Boolean( p_init_msg_list )
67: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68: END IF;
69:
70: -- Initialize message list if p_init_msg_list is set to TRUE.
71: IF FND_API.to_Boolean( p_init_msg_list )
72: THEN
73: FND_MSG_PUB.initialize;
74: END IF;
75:
73: FND_MSG_PUB.initialize;
74: END IF;
75:
76: -- Initialize API return status to SUCCESS
77: x_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: -- Debug Message
80: -- AMS_UTILITY_PVT.debug_message('Private API: ' || 'Running the populate procedure');
81:
91: CLOSE chk_history_data;
92: EXCEPTION
93: WHEN OTHERS THEN
94: FND_MSG_PUB.Count_And_Get (
95: -- p_encoded => FND_API.G_FALSE,
96: p_count => x_msg_count,
97: p_data => x_msg_data
98: );
99: END;
110: fnd_message.set_name('BIM','BIM_R_FIRST_LOAD');
111: fnd_message.set_token('END_DATE',to_char(l_end_date,'DD-MON-RR'),FALSE);
112: fnd_file.put_line(fnd_file.log,fnd_message.get);
113:
114: RAISE FND_API.G_EXC_ERROR;
115:
116: ELSIF (l_end_date IS NULL AND p_start_date IS NULL) THEN
117: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
118: fnd_file.put_line(fnd_file.log,fnd_message.get);
115:
116: ELSIF (l_end_date IS NULL AND p_start_date IS NULL) THEN
117: fnd_message.set_name('BIM','BIM_R_FIRST_SUBSEQUENT');
118: fnd_file.put_line(fnd_file.log,fnd_message.get);
119: RAISE FND_API.G_EXC_ERROR;
120: END IF;
121:
122:
123: IF p_start_date IS NOT NULL THEN
124:
125: IF (p_start_date >= l_temp_p_end_date) THEN
126: fnd_message.set_name('BIM','BIM_R_DATE_VALIDATION');
127: fnd_file.put_line(fnd_file.log,fnd_message.get);
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: l_temp_start_date := trunc(p_start_date);
132: l_temp_end_date := trunc(l_temp_p_end_date);
133: l_load_type := 'FIRST_LOAD';
134: LOAD_DATA(p_start_date => l_temp_start_date
135: ,p_end_date => l_temp_end_date
136: ,p_api_version_number => l_api_version_number
137: ,p_init_msg_list => FND_API.G_FALSE
138: ,x_msg_count => x_msg_count
139: ,x_msg_data => x_msg_data
140: ,x_return_status => x_return_status
141: );
146: IF (l_temp_p_end_date <= l_end_date) THEN
147: fnd_message.set_name('BIM','BIM_R_SUBSEQUENT_LOAD');
148: fnd_message.set_token('END_DATE',to_char(l_end_date,'DD-MON-RR'),FALSE);
149: fnd_file.put_line(fnd_file.log,fnd_message.get);
150: RAISE FND_API.g_exc_error;
151: END IF;
152:
153: l_temp_start_date := trunc(l_end_date) + 1;
154: l_temp_end_date := trunc(l_temp_p_end_date);
156:
157: LOAD_DATA(p_start_date => l_temp_start_date
158: ,p_end_date => l_temp_end_date
159: ,p_api_version_number => l_api_version_number
160: ,p_init_msg_list => FND_API.G_FALSE
161: ,x_msg_count => x_msg_count
162: ,x_msg_data => x_msg_data
163: ,x_return_status => x_return_status
164: );
168:
169: END IF;
170:
171:
172: IF x_return_status = FND_API.g_ret_sts_error
173: THEN
174: RAISE FND_API.g_exc_error;
175: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
176: RAISE FND_API.g_exc_unexpected_error;
170:
171:
172: IF x_return_status = FND_API.g_ret_sts_error
173: THEN
174: RAISE FND_API.g_exc_error;
175: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
176: RAISE FND_API.g_exc_unexpected_error;
177: END IF;
178:
171:
172: IF x_return_status = FND_API.g_ret_sts_error
173: THEN
174: RAISE FND_API.g_exc_error;
175: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
176: RAISE FND_API.g_exc_unexpected_error;
177: END IF;
178:
179: --Standard check of commit
172: IF x_return_status = FND_API.g_ret_sts_error
173: THEN
174: RAISE FND_API.g_exc_error;
175: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
176: RAISE FND_API.g_exc_unexpected_error;
177: END IF;
178:
179: --Standard check of commit
180:
177: END IF;
178:
179: --Standard check of commit
180:
181: IF FND_API.To_Boolean ( p_commit ) THEN
182: COMMIT WORK;
183: END IF;
184:
185: COMMIT;
195: );
196:
197: EXCEPTION
198:
199: WHEN FND_API.G_EXC_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_msg_PUB.Count_And_Get (
203: -- p_encoded => FND_API.G_FALSE,
196:
197: EXCEPTION
198:
199: WHEN FND_API.G_EXC_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_msg_PUB.Count_And_Get (
203: -- p_encoded => FND_API.G_FALSE,
204: p_count => x_msg_count,
199: WHEN FND_API.G_EXC_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: -- Standard call to get message count and if count=1, get the message
202: FND_msg_PUB.Count_And_Get (
203: -- p_encoded => FND_API.G_FALSE,
204: p_count => x_msg_count,
205: p_data => x_msg_data
206: );
207:
205: p_data => x_msg_data
206: );
207:
208:
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210:
211: /* FOR l_counter IN 1 .. x_msg_count
212: LOOP
213: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
210:
211: /* FOR l_counter IN 1 .. x_msg_count
212: LOOP
213: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
214: fnd_msg_pub.dump_msg(l_counter);
215: end loop; */
216:
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
214: fnd_msg_pub.dump_msg(l_counter);
215: end loop; */
216:
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: -- Standard call to get message count and if count=1, get the message
219: FND_msg_PUB.Count_And_Get (
220: --p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
216:
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
218: -- Standard call to get message count and if count=1, get the message
219: FND_msg_PUB.Count_And_Get (
220: --p_encoded => FND_API.G_FALSE,
221: p_count => x_msg_count,
222: p_data => x_msg_data
223: );
224:
222: p_data => x_msg_data
223: );
224:
225: WHEN OTHERS THEN
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: IF FND_msg_PUB.Check_msg_Level ( FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
228: THEN
229: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
230: END IF;
229: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
230: END IF;
231: -- Standard call to get message count and if count=1, get the message
232: FND_msg_PUB.Count_And_Get (
233: -- p_encoded => FND_API.G_FALSE,
234: p_count => x_msg_count,
235: p_data => x_msg_data
236: );
237:
242: --------------------------------------------------------------------------------------------------
243:
244: PROCEDURE LOG_HISTORY
245: (--p_api_version_number IN NUMBER
246: --,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
247: --,x_msg_count OUT NOCOPY NUMBER
248: --,x_msg_data OUT NOCOPY VARCHAR2
249: --,x_return_status OUT NOCOPY VARCHAR2
250: p_object IN VARCHAR2,
263: -- Debug Message
264: --AMS_UTILITY_PVT.debug_message('Private API: ' || 'Running the LOG_HISTORY procedure ');
265:
266: /* -- Standard call to check for call compatibility.
267: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
268: p_api_version_number,
269: l_api_name,
270: g_pkg_name)
271: THEN
268: p_api_version_number,
269: l_api_name,
270: g_pkg_name)
271: THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276: IF FND_API.to_Boolean( p_init_msg_list )
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: END IF;
274:
275: -- Initialize message list if p_init_msg_list is set to TRUE.
276: IF FND_API.to_Boolean( p_init_msg_list )
277: THEN
278: FND_msg_PUB.initialize;
279: END IF;
280:
278: FND_msg_PUB.initialize;
279: END IF;
280:
281: -- Initialize API return status to SUCCESS
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283: */
284:
285: INSERT INTO bim_rep_history
286: (CREATION_DATE,
307: p_data => x_msg_data
308: );
309: EXCEPTION
310:
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_msg_PUB.Count_And_Get (
315: -- p_encoded => FND_API.G_FALSE,
308: );
309: EXCEPTION
310:
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_msg_PUB.Count_And_Get (
315: -- p_encoded => FND_API.G_FALSE,
316: p_count => x_msg_count,
311: WHEN FND_API.G_EXC_ERROR THEN
312: x_return_status := FND_API.G_RET_STS_ERROR;
313: -- Standard call to get message count and if count=1, get the message
314: FND_msg_PUB.Count_And_Get (
315: -- p_encoded => FND_API.G_FALSE,
316: p_count => x_msg_count,
317: p_data => x_msg_data
318: );
319:
316: p_count => x_msg_count,
317: p_data => x_msg_data
318: );
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
322: -- Standard call to get message count and if count=1, get the message
323: FND_msg_PUB.Count_And_Get (
324: --p_encoded => FND_API.G_FALSE,
317: p_data => x_msg_data
318: );
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
322: -- Standard call to get message count and if count=1, get the message
323: FND_msg_PUB.Count_And_Get (
324: --p_encoded => FND_API.G_FALSE,
325: p_count => x_msg_count,
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
322: -- Standard call to get message count and if count=1, get the message
323: FND_msg_PUB.Count_And_Get (
324: --p_encoded => FND_API.G_FALSE,
325: p_count => x_msg_count,
326: p_data => x_msg_data
327: );
328:
326: p_data => x_msg_data
327: );
328:
329: WHEN OTHERS THEN
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: IF FND_msg_PUB.Check_msg_Level ( FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
332: THEN
333: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
334: END IF;
333: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
334: END IF;
335: -- Standard call to get message count and if count=1, get the message
336: FND_msg_PUB.Count_And_Get (
337: -- p_encoded => FND_API.G_FALSE,
338: p_count => x_msg_count,
339: p_data => x_msg_data
340: );
341: */
352: PROCEDURE LOAD_DATA
353: ( p_start_date IN DATE
354: ,p_end_date IN DATE
355: ,p_api_version_number IN NUMBER
356: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
357: ,x_msg_count OUT NOCOPY NUMBER
358: ,x_msg_data OUT NOCOPY VARCHAR2
359: ,x_return_status OUT NOCOPY VARCHAR2
360: )
411: BEGIN
412: l_return := fnd_installation.get_app_info('BIM', l_status, l_industry, l_schema);
413:
414: -- Standard call to check for call compatibility.
415: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
416: p_api_version_number,
417: l_api_name,
418: g_pkg_name)
419: THEN
416: p_api_version_number,
417: l_api_name,
418: g_pkg_name)
419: THEN
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: END IF;
422:
423: -- Initialize message list if p_init_msg_list is set to TRUE.
424: IF FND_API.to_Boolean( p_init_msg_list )
420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
421: END IF;
422:
423: -- Initialize message list if p_init_msg_list is set to TRUE.
424: IF FND_API.to_Boolean( p_init_msg_list )
425: THEN
426: FND_msg_PUB.initialize;
427: END IF;
428:
426: FND_msg_PUB.initialize;
427: END IF;
428:
429: -- Initialize API return status to SUCCESS
430: x_return_status := FND_API.G_RET_STS_SUCCESS;
431:
432: --ams_utility_pvt.write_conc_log('BIM_LEAD_FACTS_PKG: Running the Load_data ');
433:
434: -- The below four commands are necessary for the purpose of the parallel insertion */
1010:
1011:
1012: EXCEPTION
1013:
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: -- Standard call to get message count and if count=1, get the message
1017: FND_msg_PUB.Count_And_Get (
1018: -- p_encoded => FND_API.G_FALSE,
1011:
1012: EXCEPTION
1013:
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: -- Standard call to get message count and if count=1, get the message
1017: FND_msg_PUB.Count_And_Get (
1018: -- p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1014: WHEN FND_API.G_EXC_ERROR THEN
1015: x_return_status := FND_API.G_RET_STS_ERROR;
1016: -- Standard call to get message count and if count=1, get the message
1017: FND_msg_PUB.Count_And_Get (
1018: -- p_encoded => FND_API.G_FALSE,
1019: p_count => x_msg_count,
1020: p_data => x_msg_data
1021: );
1022:
1021: );
1022:
1023: ams_utility_pvt.write_conc_log('BIM_LEAD_FACTS_PKG:LOAD_DATA:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
1024:
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026:
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: -- Standard call to get message count and if count=1, get the message
1023: ams_utility_pvt.write_conc_log('BIM_LEAD_FACTS_PKG:LOAD_DATA:IN EXPECTED EXCEPTION '||sqlerrm(sqlcode));
1024:
1025: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1026:
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: -- Standard call to get message count and if count=1, get the message
1030: FND_msg_PUB.Count_And_Get (
1031: --p_encoded => FND_API.G_FALSE,
1027: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1028:
1029: -- Standard call to get message count and if count=1, get the message
1030: FND_msg_PUB.Count_And_Get (
1031: --p_encoded => FND_API.G_FALSE,
1032: p_count => x_msg_count,
1033: p_data => x_msg_data
1034: );
1035:
1036: ams_utility_pvt.write_conc_log('BIM_LEAD_FACTS_PKG:LOAD_DATA:IN UNEXPECTED EXCEPTION '||sqlerrm(sqlcode));
1037:
1038: WHEN OTHERS THEN
1039:
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041:
1042: IF FND_msg_PUB.Check_msg_Level (FND_msg_PUB.G_msg_LVL_UNEXP_ERROR)
1043: THEN
1044: FND_msg_PUB.Add_Exc_msg( g_pkg_name,l_api_name);
1045: END IF;
1046:
1047: -- Standard call to get message count and if count=1, get the message
1048: FND_msg_PUB.Count_And_Get (
1049: -- p_encoded => FND_API.G_FALSE,
1050: p_count => x_msg_count,
1051: p_data => x_msg_data
1052: );
1053: