32: /* ----------------------------------------------------------------------- */
33:
34: PROCEDURE Data_Extract_Summary
35: ( p_api_version IN NUMBER,
36: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
37: p_commit IN VARCHAR2 := FND_API.G_FALSE,
38: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39: p_return_status OUT NOCOPY VARCHAR2,
40: p_msg_count OUT NOCOPY NUMBER,
33:
34: PROCEDURE Data_Extract_Summary
35: ( p_api_version IN NUMBER,
36: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
37: p_commit IN VARCHAR2 := FND_API.G_FALSE,
38: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39: p_return_status OUT NOCOPY VARCHAR2,
40: p_msg_count OUT NOCOPY NUMBER,
41: p_msg_data OUT NOCOPY VARCHAR2,
34: PROCEDURE Data_Extract_Summary
35: ( p_api_version IN NUMBER,
36: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
37: p_commit IN VARCHAR2 := FND_API.G_FALSE,
38: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
39: p_return_status OUT NOCOPY VARCHAR2,
40: p_msg_count OUT NOCOPY NUMBER,
41: p_msg_data OUT NOCOPY VARCHAR2,
42: p_extract_method IN VARCHAR2,
67: -- Standard Start of API savepoint
68: SAVEPOINT Data_Extract_Summary;
69:
70: -- Standard call to check for call compatibility.
71: if not FND_API.Compatible_API_Call (l_api_version,
72: p_api_version,
73: l_api_name,
74: G_PKG_NAME)
75: then
72: p_api_version,
73: l_api_name,
74: G_PKG_NAME)
75: then
76: raise FND_API.G_EXC_UNEXPECTED_ERROR;
77: end if;
78:
79: -- Initialize message list if p_init_msg_list is set to TRUE.
80:
77: end if;
78:
79: -- Initialize message list if p_init_msg_list is set to TRUE.
80:
81: if FND_API.to_Boolean (p_init_msg_list) then
82: FND_MSG_PUB.initialize;
83: end if;
84:
85: -- Initialize API return status to success
83: end if;
84:
85: -- Initialize API return status to success
86:
87: p_return_status := FND_API.G_RET_STS_SUCCESS;
88:
89: Select count(*)
90: into l_positions
91: from psb_positions_i
156: IF l_msg_count > 0 THEN
157:
158: l_msg_data := FND_MSG_PUB.Get
159: (p_msg_index => FND_MSG_PUB.G_NEXT,
160: p_encoded => FND_API.G_FALSE);
161:
162: PSB_MESSAGE_S.INSERT_ERROR
163: (p_source_process => 'DATA_EXTRACT_VALIDATION',
164: p_process_id => p_data_extract_id,
176: p_extract_method => p_extract_method,
177: p_process => 'Data Extract Summary'
178: );
179:
180: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: raise FND_API.G_EXC_ERROR;
182: end if;
183:
184: -- End of API body.
177: p_process => 'Data Extract Summary'
178: );
179:
180: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
181: raise FND_API.G_EXC_ERROR;
182: end if;
183:
184: -- End of API body.
185:
184: -- End of API body.
185:
186: -- Standard check of p_commit.
187:
188: if FND_API.to_Boolean (p_commit) then
189: commit work;
190: end if;
191:
192: -- Standard call to get message count and if count is 1, get message info.
195: p_data => p_msg_data);
196:
197: EXCEPTION
198:
199: when FND_API.G_EXC_ERROR then
200:
201: rollback to Data_Extract_Summary;
202:
203: p_return_status := FND_API.G_RET_STS_ERROR;
199: when FND_API.G_EXC_ERROR then
200:
201: rollback to Data_Extract_Summary;
202:
203: p_return_status := FND_API.G_RET_STS_ERROR;
204:
205: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
206: p_data => p_msg_data);
207:
205: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
206: p_data => p_msg_data);
207:
208:
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210:
211: rollback to Data_Extract_Summary;
212:
213: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209: when FND_API.G_EXC_UNEXPECTED_ERROR then
210:
211: rollback to Data_Extract_Summary;
212:
213: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214:
215: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
216: p_data => p_msg_data);
217:
219: when OTHERS then
220:
221: rollback to Data_Extract_Summary;
222:
223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224:
225: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
226:
227: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
240: | PROCEDURE Validate_Data_Extract |
241: +===========================================================================*/
242: PROCEDURE Validate_Data_Extract
243: ( p_api_version IN NUMBER,
244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
247: p_return_status OUT NOCOPY VARCHAR2,
248: p_msg_count OUT NOCOPY NUMBER,
241: +===========================================================================*/
242: PROCEDURE Validate_Data_Extract
243: ( p_api_version IN NUMBER,
244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
247: p_return_status OUT NOCOPY VARCHAR2,
248: p_msg_count OUT NOCOPY NUMBER,
249: p_msg_data OUT NOCOPY VARCHAR2,
242: PROCEDURE Validate_Data_Extract
243: ( p_api_version IN NUMBER,
244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
247: p_return_status OUT NOCOPY VARCHAR2,
248: p_msg_count OUT NOCOPY NUMBER,
249: p_msg_data OUT NOCOPY VARCHAR2,
250: p_extract_method IN VARCHAR2,
286: -- Standard Start of API savepoint
287: SAVEPOINT Validate_Data_Extract;
288:
289: -- Standard call to check for call compatibility.
290: if not FND_API.Compatible_API_Call (l_api_version,
291: p_api_version,
292: l_api_name,
293: G_PKG_NAME)
294: then
291: p_api_version,
292: l_api_name,
293: G_PKG_NAME)
294: then
295: raise FND_API.G_EXC_UNEXPECTED_ERROR;
296: end if;
297:
298: -- Initialize message list if p_init_msg_list is set to TRUE.
299: if FND_API.to_Boolean (p_init_msg_list) then
295: raise FND_API.G_EXC_UNEXPECTED_ERROR;
296: end if;
297:
298: -- Initialize message list if p_init_msg_list is set to TRUE.
299: if FND_API.to_Boolean (p_init_msg_list) then
300: FND_MSG_PUB.initialize;
301: end if;
302:
303: -- Initialize API return status to success
300: FND_MSG_PUB.initialize;
301: end if;
302:
303: -- Initialize API return status to success
304: p_return_status := FND_API.G_RET_STS_SUCCESS;
305:
306: add_message('PSB','PSB_DE_VALIDATION_HEADER');
307:
308: For C_grade_val_rec in
395: p_extract_method => p_extract_method,
396: p_process => 'Validate Data Extract'
397: ) ;
398: --
399: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
400: raise FND_API.G_EXC_ERROR;
401: end if;
402:
403: -- Standard check of p_commit.
396: p_process => 'Validate Data Extract'
397: ) ;
398: --
399: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
400: raise FND_API.G_EXC_ERROR;
401: end if;
402:
403: -- Standard check of p_commit.
404: if FND_API.to_Boolean (p_commit) then
400: raise FND_API.G_EXC_ERROR;
401: end if;
402:
403: -- Standard check of p_commit.
404: if FND_API.to_Boolean (p_commit) then
405: commit work;
406: end if;
407:
408: -- Standard call to get message count and if count is 1, get message info.
409: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
410: p_data => p_msg_data);
411: EXCEPTION
412: --
413: when FND_API.G_EXC_ERROR then
414: rollback to Validate_Data_Extract;
415: p_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
417: p_data => p_msg_data);
411: EXCEPTION
412: --
413: when FND_API.G_EXC_ERROR then
414: rollback to Validate_Data_Extract;
415: p_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
417: p_data => p_msg_data);
418: --
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
415: p_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
417: p_data => p_msg_data);
418: --
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
420: rollback to Validate_Data_Extract;
421: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
423: p_data => p_msg_data);
417: p_data => p_msg_data);
418: --
419: when FND_API.G_EXC_UNEXPECTED_ERROR then
420: rollback to Validate_Data_Extract;
421: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
423: p_data => p_msg_data);
424: --
425: when OTHERS then
423: p_data => p_msg_data);
424: --
425: when OTHERS then
426: rollback to Validate_Data_Extract;
427: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
429: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
430: l_api_name);
431: end if;