21: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
22:
23: PROCEDURE Create_Claims_Int(
24: p_api_version_number IN NUMBER,
25: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
26: p_commit IN VARCHAR2 := FND_API.G_FALSE,
27:
28: x_return_status OUT NOCOPY VARCHAR2,
29: x_msg_count OUT NOCOPY NUMBER,
22:
23: PROCEDURE Create_Claims_Int(
24: p_api_version_number IN NUMBER,
25: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
26: p_commit IN VARCHAR2 := FND_API.G_FALSE,
27:
28: x_return_status OUT NOCOPY VARCHAR2,
29: x_msg_count OUT NOCOPY NUMBER,
30: x_msg_data OUT NOCOPY VARCHAR2,
45: -- Standard Start of API savepoint
46: SAVEPOINT CREATE_Claims_Int_PUB;
47:
48: -- Standard call to check for call compatibility.
49: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
50: p_api_version_number,
51: l_api_name,
52: G_PKG_NAME)
53: THEN
50: p_api_version_number,
51: l_api_name,
52: G_PKG_NAME)
53: THEN
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56:
57: -- Initialize message list if p_init_msg_list is set to TRUE.
58: IF FND_API.to_Boolean( p_init_msg_list )
54: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55: END IF;
56:
57: -- Initialize message list if p_init_msg_list is set to TRUE.
58: IF FND_API.to_Boolean( p_init_msg_list )
59: THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
66: END IF;
67:
68:
69: -- Initialize API return status to SUCCESS
70: x_return_status := FND_API.G_RET_STS_SUCCESS;
71:
72: --Added For 7290916
73: l_pvt_claims_int_rec.interface_claim_id := l_claims_int_rec.interface_claim_id;
74: l_pvt_claims_int_rec.object_version_number := l_claims_int_rec.object_version_number;
200: -- Calling Private package: Create_Claims_Int
201: -- Hint: Primary key needs to be returned
202: OZF_Claims_Int_PVT.Create_Claims_Int(
203: p_api_version_number => 1.0,
204: p_init_msg_list => FND_API.G_FALSE,
205: p_commit => FND_API.G_FALSE,
206: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207: x_return_status => x_return_status,
208: x_msg_count => x_msg_count,
201: -- Hint: Primary key needs to be returned
202: OZF_Claims_Int_PVT.Create_Claims_Int(
203: p_api_version_number => 1.0,
204: p_init_msg_list => FND_API.G_FALSE,
205: p_commit => FND_API.G_FALSE,
206: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207: x_return_status => x_return_status,
208: x_msg_count => x_msg_count,
209: x_msg_data => x_msg_data,
202: OZF_Claims_Int_PVT.Create_Claims_Int(
203: p_api_version_number => 1.0,
204: p_init_msg_list => FND_API.G_FALSE,
205: p_commit => FND_API.G_FALSE,
206: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207: x_return_status => x_return_status,
208: x_msg_count => x_msg_count,
209: x_msg_data => x_msg_data,
210: p_claims_int_rec => l_pvt_claims_int_rec,
211: x_interface_claim_id => x_interface_claim_id);
212:
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
212:
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
221: -- End of API body.
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
221: -- End of API body.
222: --
221: -- End of API body.
222: --
223:
224: -- Standard check for p_commit
225: IF FND_API.to_Boolean( p_commit )
226: THEN
227: COMMIT WORK;
228: END IF;
229:
240: );
241: EXCEPTION
242:
243: WHEN OZF_Utility_PVT.resource_locked THEN
244: x_return_status := FND_API.g_ret_sts_error;
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO CREATE_Claims_Int_PUB;
243: WHEN OZF_Utility_PVT.resource_locked THEN
244: x_return_status := FND_API.g_ret_sts_error;
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO CREATE_Claims_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO CREATE_Claims_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
252: p_encoded => FND_API.G_FALSE,
253: p_count => x_msg_count,
248: ROLLBACK TO CREATE_Claims_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
252: p_encoded => FND_API.G_FALSE,
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
256:
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
256:
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: ROLLBACK TO CREATE_Claims_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
255: );
256:
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: ROLLBACK TO CREATE_Claims_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
262: p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
258: ROLLBACK TO CREATE_Claims_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
262: p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
264: p_data => x_msg_data
265: );
266:
265: );
266:
267: WHEN OTHERS THEN
268: ROLLBACK TO CREATE_Claims_Int_PUB;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
271: THEN
272: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273: END IF;
272: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273: END IF;
274: -- Standard call to get message count and if count=1, get the message
275: FND_MSG_PUB.Count_And_Get (
276: p_encoded => FND_API.G_FALSE,
277: p_count => x_msg_count,
278: p_data => x_msg_data
279: );
280: End Create_Claims_Int;
281:
282:
283: PROCEDURE Update_Claims_Int(
284: p_api_version_number IN NUMBER,
285: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286: p_commit IN VARCHAR2 := FND_API.G_FALSE,
287:
288: x_return_status OUT NOCOPY VARCHAR2,
289: x_msg_count OUT NOCOPY NUMBER,
282:
283: PROCEDURE Update_Claims_Int(
284: p_api_version_number IN NUMBER,
285: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286: p_commit IN VARCHAR2 := FND_API.G_FALSE,
287:
288: x_return_status OUT NOCOPY VARCHAR2,
289: x_msg_count OUT NOCOPY NUMBER,
290: x_msg_data OUT NOCOPY VARCHAR2,
302: -- Standard Start of API savepoint
303: SAVEPOINT UPDATE_Claims_Int_PUB;
304:
305: -- Standard call to check for call compatibility.
306: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
307: p_api_version_number,
308: l_api_name,
309: G_PKG_NAME)
310: THEN
307: p_api_version_number,
308: l_api_name,
309: G_PKG_NAME)
310: THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: -- Initialize message list if p_init_msg_list is set to TRUE.
315: IF FND_API.to_Boolean( p_init_msg_list )
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: END IF;
313:
314: -- Initialize message list if p_init_msg_list is set to TRUE.
315: IF FND_API.to_Boolean( p_init_msg_list )
316: THEN
317: FND_MSG_PUB.initialize;
318: END IF;
319:
323: END IF;
324:
325:
326: -- Initialize API return status to SUCCESS
327: x_return_status := FND_API.G_RET_STS_SUCCESS;
328:
329: --
330: -- API body
331: --
330: -- API body
331: --
332: OZF_Claims_Int_PVT.Update_Claims_Int(
333: p_api_version_number => 1.0,
334: p_init_msg_list => FND_API.G_FALSE,
335: p_commit => p_commit,
336: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
337: x_return_status => x_return_status,
338: x_msg_count => x_msg_count,
332: OZF_Claims_Int_PVT.Update_Claims_Int(
333: p_api_version_number => 1.0,
334: p_init_msg_list => FND_API.G_FALSE,
335: p_commit => p_commit,
336: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
337: x_return_status => x_return_status,
338: x_msg_count => x_msg_count,
339: x_msg_data => x_msg_data,
340: p_claims_int_rec => l_pvt_claims_int_rec,
341: x_object_version_number => l_object_version_number );
342:
343:
344: -- Check return status from the above procedure call
345: IF x_return_status = FND_API.G_RET_STS_ERROR then
346: RAISE FND_API.G_EXC_ERROR;
347: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
342:
343:
344: -- Check return status from the above procedure call
345: IF x_return_status = FND_API.G_RET_STS_ERROR then
346: RAISE FND_API.G_EXC_ERROR;
347: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350: --
343:
344: -- Check return status from the above procedure call
345: IF x_return_status = FND_API.G_RET_STS_ERROR then
346: RAISE FND_API.G_EXC_ERROR;
347: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350: --
351: -- End of API body
344: -- Check return status from the above procedure call
345: IF x_return_status = FND_API.G_RET_STS_ERROR then
346: RAISE FND_API.G_EXC_ERROR;
347: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350: --
351: -- End of API body
352: --
351: -- End of API body
352: --
353:
354: -- Standard check for p_commit
355: IF FND_API.to_Boolean( p_commit )
356: THEN
357: COMMIT WORK;
358: END IF;
359:
370: );
371: EXCEPTION
372:
373: WHEN OZF_Utility_PVT.resource_locked THEN
374: x_return_status := FND_API.g_ret_sts_error;
375: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
376:
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO UPDATE_Claims_Int_PUB;
373: WHEN OZF_Utility_PVT.resource_locked THEN
374: x_return_status := FND_API.g_ret_sts_error;
375: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
376:
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO UPDATE_Claims_Int_PUB;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: -- Standard call to get message count and if count=1, get the message
381: FND_MSG_PUB.Count_And_Get (
375: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
376:
377: WHEN FND_API.G_EXC_ERROR THEN
378: ROLLBACK TO UPDATE_Claims_Int_PUB;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: -- Standard call to get message count and if count=1, get the message
381: FND_MSG_PUB.Count_And_Get (
382: p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
378: ROLLBACK TO UPDATE_Claims_Int_PUB;
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: -- Standard call to get message count and if count=1, get the message
381: FND_MSG_PUB.Count_And_Get (
382: p_encoded => FND_API.G_FALSE,
383: p_count => x_msg_count,
384: p_data => x_msg_data
385: );
386:
383: p_count => x_msg_count,
384: p_data => x_msg_data
385: );
386:
387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
388: ROLLBACK TO UPDATE_Claims_Int_PUB;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
385: );
386:
387: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
388: ROLLBACK TO UPDATE_Claims_Int_PUB;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
392: p_encoded => FND_API.G_FALSE,
393: p_count => x_msg_count,
388: ROLLBACK TO UPDATE_Claims_Int_PUB;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
392: p_encoded => FND_API.G_FALSE,
393: p_count => x_msg_count,
394: p_data => x_msg_data
395: );
396:
395: );
396:
397: WHEN OTHERS THEN
398: ROLLBACK TO UPDATE_Claims_Int_PUB;
399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
400: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
401: THEN
402: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
403: END IF;
402: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
403: END IF;
404: -- Standard call to get message count and if count=1, get the message
405: FND_MSG_PUB.Count_And_Get (
406: p_encoded => FND_API.G_FALSE,
407: p_count => x_msg_count,
408: p_data => x_msg_data
409: );
410: End Update_Claims_Int;
411:
412:
413: PROCEDURE Delete_Claims_Int(
414: p_api_version_number IN NUMBER,
415: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
416: p_commit IN VARCHAR2 := FND_API.G_FALSE,
417: x_return_status OUT NOCOPY VARCHAR2,
418: x_msg_count OUT NOCOPY NUMBER,
419: x_msg_data OUT NOCOPY VARCHAR2,
412:
413: PROCEDURE Delete_Claims_Int(
414: p_api_version_number IN NUMBER,
415: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
416: p_commit IN VARCHAR2 := FND_API.G_FALSE,
417: x_return_status OUT NOCOPY VARCHAR2,
418: x_msg_count OUT NOCOPY NUMBER,
419: x_msg_data OUT NOCOPY VARCHAR2,
420: p_interface_claim_id IN NUMBER,
431: -- Standard Start of API savepoint
432: SAVEPOINT DELETE_Claims_Int_PUB;
433:
434: -- Standard call to check for call compatibility.
435: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
436: p_api_version_number,
437: l_api_name,
438: G_PKG_NAME)
439: THEN
436: p_api_version_number,
437: l_api_name,
438: G_PKG_NAME)
439: THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list )
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: END IF;
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list )
445: THEN
446: FND_MSG_PUB.initialize;
447: END IF;
448:
452: END IF;
453:
454:
455: -- Initialize API return status to SUCCESS
456: x_return_status := FND_API.G_RET_STS_SUCCESS;
457:
458: --
459: -- API body
460: --
459: -- API body
460: --
461: OZF_Claims_Int_PVT.Delete_Claims_Int(
462: p_api_version_number => 1.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => p_commit,
465: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
466: x_return_status => x_return_status,
467: x_msg_count => x_msg_count,
461: OZF_Claims_Int_PVT.Delete_Claims_Int(
462: p_api_version_number => 1.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => p_commit,
465: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
466: x_return_status => x_return_status,
467: x_msg_count => x_msg_count,
468: x_msg_data => x_msg_data,
469: p_interface_claim_id => l_interface_claim_id,
470: p_object_version_number => l_object_version_number );
471:
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: RAISE FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
471:
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: RAISE FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479: --
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: RAISE FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479: --
480: -- End of API body
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: RAISE FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479: --
480: -- End of API body
481: --
480: -- End of API body
481: --
482:
483: -- Standard check for p_commit
484: IF FND_API.to_Boolean( p_commit )
485: THEN
486: COMMIT WORK;
487: END IF;
488:
499: );
500: EXCEPTION
501:
502: WHEN OZF_Utility_PVT.resource_locked THEN
503: x_return_status := FND_API.g_ret_sts_error;
504: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_Claims_Int_PUB;
502: WHEN OZF_Utility_PVT.resource_locked THEN
503: x_return_status := FND_API.g_ret_sts_error;
504: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_Claims_Int_PUB;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
504: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
505:
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO DELETE_Claims_Int_PUB;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
507: ROLLBACK TO DELETE_Claims_Int_PUB;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: -- Standard call to get message count and if count=1, get the message
510: FND_MSG_PUB.Count_And_Get (
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
512: p_count => x_msg_count,
513: p_data => x_msg_data
514: );
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO DELETE_Claims_Int_PUB;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
514: );
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO DELETE_Claims_Int_PUB;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
517: ROLLBACK TO DELETE_Claims_Int_PUB;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519: -- Standard call to get message count and if count=1, get the message
520: FND_MSG_PUB.Count_And_Get (
521: p_encoded => FND_API.G_FALSE,
522: p_count => x_msg_count,
523: p_data => x_msg_data
524: );
525:
524: );
525:
526: WHEN OTHERS THEN
527: ROLLBACK TO DELETE_Claims_Int_PUB;
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
532: END IF;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539: End Delete_Claims_Int;
540:
541:
542: PROCEDURE Lock_Claims_Int(
543: p_api_version_number IN NUMBER,
544: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
545: x_return_status OUT NOCOPY VARCHAR2,
546: x_msg_count OUT NOCOPY NUMBER,
547: x_msg_data OUT NOCOPY VARCHAR2,
548:
556: l_pvt_claims_int_rec OZF_Claims_Int_PVT.claims_int_rec_type;
557: BEGIN
558:
559: -- Standard call to check for call compatibility.
560: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
561: p_api_version_number,
562: l_api_name,
563: G_PKG_NAME)
564: THEN
561: p_api_version_number,
562: l_api_name,
563: G_PKG_NAME)
564: THEN
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: -- Initialize message list if p_init_msg_list is set to TRUE.
569: IF FND_API.to_Boolean( p_init_msg_list )
565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
566: END IF;
567:
568: -- Initialize message list if p_init_msg_list is set to TRUE.
569: IF FND_API.to_Boolean( p_init_msg_list )
570: THEN
571: FND_MSG_PUB.initialize;
572: END IF;
573:
577: END IF;
578:
579:
580: -- Initialize API return status to SUCCESS
581: x_return_status := FND_API.G_RET_STS_SUCCESS;
582:
583: --
584: -- API body
585: --
586: -- Calling Private package: Create_Claims_Int
587: -- Hint: Primary key needs to be returned
588: OZF_Claims_Int_PVT.Lock_Claims_Int(
589: p_api_version_number => 1.0,
590: p_init_msg_list => FND_API.G_FALSE,
591: x_return_status => x_return_status,
592: x_msg_count => x_msg_count,
593: x_msg_data => x_msg_data,
594: p_interface_claim_id => p_interface_claim_id,
595: p_object_version => p_object_version);
596:
597:
598: -- Check return status from the above procedure call
599: IF x_return_status = FND_API.G_RET_STS_ERROR then
600: RAISE FND_API.G_EXC_ERROR;
601: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
596:
597:
598: -- Check return status from the above procedure call
599: IF x_return_status = FND_API.G_RET_STS_ERROR then
600: RAISE FND_API.G_EXC_ERROR;
601: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604: --
597:
598: -- Check return status from the above procedure call
599: IF x_return_status = FND_API.G_RET_STS_ERROR then
600: RAISE FND_API.G_EXC_ERROR;
601: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604: --
605: -- End of API body.
598: -- Check return status from the above procedure call
599: IF x_return_status = FND_API.G_RET_STS_ERROR then
600: RAISE FND_API.G_EXC_ERROR;
601: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: END IF;
604: --
605: -- End of API body.
606: --
612:
613: EXCEPTION
614:
615: WHEN OZF_Utility_PVT.resource_locked THEN
616: x_return_status := FND_API.g_ret_sts_error;
617: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO LOCK_Claims_Int_PUB;
615: WHEN OZF_Utility_PVT.resource_locked THEN
616: x_return_status := FND_API.g_ret_sts_error;
617: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO LOCK_Claims_Int_PUB;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
617: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
618:
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO LOCK_Claims_Int_PUB;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
620: ROLLBACK TO LOCK_Claims_Int_PUB;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628:
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628:
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: ROLLBACK TO LOCK_Claims_Int_PUB;
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: -- Standard call to get message count and if count=1, get the message
633: FND_MSG_PUB.Count_And_Get (
627: );
628:
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: ROLLBACK TO LOCK_Claims_Int_PUB;
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: -- Standard call to get message count and if count=1, get the message
633: FND_MSG_PUB.Count_And_Get (
634: p_encoded => FND_API.G_FALSE,
635: p_count => x_msg_count,
630: ROLLBACK TO LOCK_Claims_Int_PUB;
631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
632: -- Standard call to get message count and if count=1, get the message
633: FND_MSG_PUB.Count_And_Get (
634: p_encoded => FND_API.G_FALSE,
635: p_count => x_msg_count,
636: p_data => x_msg_data
637: );
638:
637: );
638:
639: WHEN OTHERS THEN
640: ROLLBACK TO LOCK_Claims_Int_PUB;
641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
642: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
643: THEN
644: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
645: END IF;
644: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
645: END IF;
646: -- Standard call to get message count and if count=1, get the message
647: FND_MSG_PUB.Count_And_Get (
648: p_encoded => FND_API.G_FALSE,
649: p_count => x_msg_count,
650: p_data => x_msg_data
651: );
652: End Lock_Claims_Int;