[Home] [Help]
49: -- NOTES
50: ---------------------------------------------------------------------
51: PROCEDURE Create_Claim(
52: p_api_version_number IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
50: ---------------------------------------------------------------------
51: PROCEDURE Create_Claim(
52: p_api_version_number IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
51: PROCEDURE Create_Claim(
52: p_api_version_number IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
54: p_commit IN VARCHAR2 := FND_API.G_FALSE,
55: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
56: x_return_status OUT NOCOPY VARCHAR2,
57: x_msg_count OUT NOCOPY NUMBER,
58: x_msg_data OUT NOCOPY VARCHAR2,
59: p_claim_rec IN claim_rec_type,
89: BEGIN
90: -- Standard Start of API savepoint
91: SAVEPOINT CREATE_Claim_PUB;
92: -- Standard call to check for call compatibility.
93: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
94: p_api_version_number,
95: l_api_name,
96: G_PKG_NAME)
97: THEN
94: p_api_version_number,
95: l_api_name,
96: G_PKG_NAME)
97: THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101: IF FND_API.to_Boolean( p_init_msg_list )
102: THEN
97: THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101: IF FND_API.to_Boolean( p_init_msg_list )
102: THEN
103: FND_MSG_PUB.initialize;
104: END IF;
105: -- Debug Message
106: IF g_debug THEN
107: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' pub start');
108: END IF;
109: -- Initialize API return status to SUCCESS
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111: --
112: -- API body
113: --
114: -- Construct the claim rec to pass to private api
267: p_claim => l_pvt_claim_rec,
268: x_claim => l_x_pvt_claim_rec
269: );
270: -- Check return status from the above procedure call
271: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: END IF;
268: x_claim => l_x_pvt_claim_rec
269: );
270: -- Check return status from the above procedure call
271: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: END IF;
276: l_pvt_claim_rec := l_x_pvt_claim_rec;
269: );
270: -- Check return status from the above procedure call
271: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: END IF;
276: l_pvt_claim_rec := l_x_pvt_claim_rec;
277:
270: -- Check return status from the above procedure call
271: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
275: END IF;
276: l_pvt_claim_rec := l_x_pvt_claim_rec;
277:
278: -- OZF_UTILITY_PVT.debug_message('Call Private APICreate Claim Procdure 1');
277:
278: -- OZF_UTILITY_PVT.debug_message('Call Private APICreate Claim Procdure 1');
279: OZF_claim_PVT.Create_Claim(
280: p_api_version => p_api_version_number,
281: p_init_msg_list => FND_API.G_FALSE,
282: p_commit => FND_API.G_FALSE,
283: P_Validation_Level => p_Validation_Level,
284: X_Return_Status => x_return_status,
285: X_Msg_Count => x_msg_count,
278: -- OZF_UTILITY_PVT.debug_message('Call Private APICreate Claim Procdure 1');
279: OZF_claim_PVT.Create_Claim(
280: p_api_version => p_api_version_number,
281: p_init_msg_list => FND_API.G_FALSE,
282: p_commit => FND_API.G_FALSE,
283: P_Validation_Level => p_Validation_Level,
284: X_Return_Status => x_return_status,
285: X_Msg_Count => x_msg_count,
286: X_Msg_Data => x_msg_data,
287: P_claim => l_pvt_claim_rec,
288: X_CLAIM_ID => x_claim_id
289: );
290: -- Check return status from the above procedure call
291: IF x_return_status = FND_API.G_RET_STS_ERROR then
292: RAISE FND_API.G_EXC_ERROR;
293: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
288: X_CLAIM_ID => x_claim_id
289: );
290: -- Check return status from the above procedure call
291: IF x_return_status = FND_API.G_RET_STS_ERROR then
292: RAISE FND_API.G_EXC_ERROR;
293: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
296:
289: );
290: -- Check return status from the above procedure call
291: IF x_return_status = FND_API.G_RET_STS_ERROR then
292: RAISE FND_API.G_EXC_ERROR;
293: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
296:
297: IF p_claim_line_tbl.count > 0 THEN
290: -- Check return status from the above procedure call
291: IF x_return_status = FND_API.G_RET_STS_ERROR then
292: RAISE FND_API.G_EXC_ERROR;
293: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
296:
297: IF p_claim_line_tbl.count > 0 THEN
298: l_claim_line_tbl := p_claim_line_tbl;
298: l_claim_line_tbl := p_claim_line_tbl;
299: FOR i IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
300: l_claim_line_tbl(i).claim_id := x_claim_id;
301: --// BKUNJAN Added validation
302: IF (l_claim_line_tbl(i).item_id <> FND_API.g_miss_num AND l_claim_line_tbl(i).item_id IS NOT NULL) AND (l_claim_line_tbl(i).QUANTITY_UOM <> FND_API.g_miss_char AND l_claim_line_tbl(i).QUANTITY_UOM IS NOT NULL) THEN
303: -- Fix for Bug 11932210
304: OPEN c_item_uom(l_claim_line_tbl(i).QUANTITY_UOM
305: ,l_claim_line_tbl(i).item_id
306: ,l_inv_org_id);
314: FND_MESSAGE.set_name('OZF', 'OZF_METR_INVALID_UOM');
315: --//Unit of Measurement is Invalid
316: FND_MSG_PUB.add;
317: END IF;
318: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: RETURN;
321: END IF;
322: END IF;
315: --//Unit of Measurement is Invalid
316: FND_MSG_PUB.add;
317: END IF;
318: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: RETURN;
321: END IF;
322: END IF;
323: --End for Fix of Bug 11932210
325: END IF;
326: -- Call create claim line procedure
327: Create_Claim_Line_Tbl(
328: p_api_version => p_api_version_number
329: ,p_init_msg_list => FND_API.G_FALSE
330: ,P_commit => FND_API.G_FALSE
331: ,p_validation_level => p_validation_level
332: ,x_return_status => x_return_status
333: ,x_msg_data => x_msg_data
326: -- Call create claim line procedure
327: Create_Claim_Line_Tbl(
328: p_api_version => p_api_version_number
329: ,p_init_msg_list => FND_API.G_FALSE
330: ,P_commit => FND_API.G_FALSE
331: ,p_validation_level => p_validation_level
332: ,x_return_status => x_return_status
333: ,x_msg_data => x_msg_data
334: ,x_msg_count => x_msg_count
336: ,x_error_index => l_error_index);
337: IF g_debug THEN
338: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
339: END IF;
340: IF x_return_status = FND_API.G_RET_STS_ERROR then
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
337: IF g_debug THEN
338: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
339: END IF;
340: IF x_return_status = FND_API.G_RET_STS_ERROR then
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345: -- Debug Message
338: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
339: END IF;
340: IF x_return_status = FND_API.G_RET_STS_ERROR then
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345: -- Debug Message
346: IF g_debug THEN
339: END IF;
340: IF x_return_status = FND_API.G_RET_STS_ERROR then
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345: -- Debug Message
346: IF g_debug THEN
347: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
345: -- Debug Message
346: IF g_debug THEN
347: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
348: END IF;
349: IF FND_API.to_Boolean( p_commit )
350: THEN
351: COMMIT WORK;
352: END IF;
353: --OZF_UTILITY_PVT.DEBUG_MESSAGE('CLAIM_ID=>'||l_claim_line_rec.claim_id);
352: END IF;
353: --OZF_UTILITY_PVT.DEBUG_MESSAGE('CLAIM_ID=>'||l_claim_line_rec.claim_id);
354: -- Standard call to get message count and if count is 1, get message info.
355: FND_MSG_PUB.Count_And_Get (
356: p_encoded => FND_API.G_FALSE,
357: p_count => x_msg_count,
358: p_data => x_msg_data
359: );
360: EXCEPTION
359: );
360: EXCEPTION
361: WHEN OZF_Utility_PVT.resource_locked THEN
362: ROLLBACK TO CREATE_Claim_PUB;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
365: FND_MSG_PUB.Count_And_Get (
366: p_encoded => FND_API.G_FALSE,
367: p_count => x_msg_count,
362: ROLLBACK TO CREATE_Claim_PUB;
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
365: FND_MSG_PUB.Count_And_Get (
366: p_encoded => FND_API.G_FALSE,
367: p_count => x_msg_count,
368: p_data => x_msg_data
369: );
370: WHEN FND_API.G_EXC_ERROR THEN
366: p_encoded => FND_API.G_FALSE,
367: p_count => x_msg_count,
368: p_data => x_msg_data
369: );
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO CREATE_Claim_PUB;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: -- Standard call to get message count and if count=1, get the message
374: FND_MSG_PUB.Count_And_Get (
368: p_data => x_msg_data
369: );
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO CREATE_Claim_PUB;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: -- Standard call to get message count and if count=1, get the message
374: FND_MSG_PUB.Count_And_Get (
375: p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
371: ROLLBACK TO CREATE_Claim_PUB;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: -- Standard call to get message count and if count=1, get the message
374: FND_MSG_PUB.Count_And_Get (
375: p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => x_msg_data
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375: p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => x_msg_data
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO CREATE_Claim_PUB;
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: -- Standard call to get message count and if count=1, get the message
383: FND_MSG_PUB.Count_And_Get (
377: p_data => x_msg_data
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO CREATE_Claim_PUB;
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: -- Standard call to get message count and if count=1, get the message
383: FND_MSG_PUB.Count_And_Get (
384: p_encoded => FND_API.G_FALSE,
385: p_count => x_msg_count,
380: ROLLBACK TO CREATE_Claim_PUB;
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: -- Standard call to get message count and if count=1, get the message
383: FND_MSG_PUB.Count_And_Get (
384: p_encoded => FND_API.G_FALSE,
385: p_count => x_msg_count,
386: p_data => x_msg_data
387: );
388: WHEN OTHERS THEN
386: p_data => x_msg_data
387: );
388: WHEN OTHERS THEN
389: ROLLBACK TO CREATE_Claim_PUB;
390: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
391: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
392: THEN
393: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
394: END IF;
393: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
394: END IF;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
401: End Create_Claim;
416: -- NOTES
417: ---------------------------------------------------------------------
418: PROCEDURE Create_Claim_Line_Tbl(
419: p_api_version IN NUMBER
420: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
421: ,p_commit IN VARCHAR2 := FND_API.g_false
422: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
423: ,x_return_status OUT NOCOPY VARCHAR2
424: ,x_msg_data OUT NOCOPY VARCHAR2
417: ---------------------------------------------------------------------
418: PROCEDURE Create_Claim_Line_Tbl(
419: p_api_version IN NUMBER
420: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
421: ,p_commit IN VARCHAR2 := FND_API.g_false
422: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
423: ,x_return_status OUT NOCOPY VARCHAR2
424: ,x_msg_data OUT NOCOPY VARCHAR2
425: ,x_msg_count OUT NOCOPY NUMBER
418: PROCEDURE Create_Claim_Line_Tbl(
419: p_api_version IN NUMBER
420: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
421: ,p_commit IN VARCHAR2 := FND_API.g_false
422: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
423: ,x_return_status OUT NOCOPY VARCHAR2
424: ,x_msg_data OUT NOCOPY VARCHAR2
425: ,x_msg_count OUT NOCOPY NUMBER
426: ,p_claim_line_tbl IN claim_line_tbl_type
437: l_claim_line_tbl OZF_CLAIM_PUB.claim_line_tbl_type := p_claim_line_tbl;
438: BEGIN
439: SAVEPOINT Create_Claim_Line_Tbl;
440: -- Standard call to check for call compatibility.
441: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
442: p_api_version,
443: l_api_name,
444: G_PKG_NAME)
445: THEN
442: p_api_version,
443: l_api_name,
444: G_PKG_NAME)
445: THEN
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: -- Initialize message list if p_init_msg_list is set to TRUE.
449: IF FND_API.to_Boolean( p_init_msg_list )
450: THEN
445: THEN
446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
447: END IF;
448: -- Initialize message list if p_init_msg_list is set to TRUE.
449: IF FND_API.to_Boolean( p_init_msg_list )
450: THEN
451: FND_MSG_PUB.initialize;
452: END IF;
453: -- Debug Message
454: IF g_debug THEN
455: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' pub start');
456: END IF;
457: -- Initialize API return status to SUCCESS
458: x_return_status := FND_API.G_RET_STS_SUCCESS;
459: IF p_claim_line_tbl.count > 0 THEN
460: --
461: l_claim_line_tbl := p_claim_line_tbl;
462: FOR i IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
553:
554: -- call to create_claim_line_tbl
555: Ozf_Claim_Line_Pvt.Create_Claim_Line_Tbl(
556: p_api_version => p_api_version
557: ,p_init_msg_list => FND_API.G_FALSE
558: ,P_commit => FND_API.G_FALSE
559: ,p_validation_level => p_validation_level
560: ,x_return_status => x_return_status
561: ,x_msg_data => x_msg_data
554: -- call to create_claim_line_tbl
555: Ozf_Claim_Line_Pvt.Create_Claim_Line_Tbl(
556: p_api_version => p_api_version
557: ,p_init_msg_list => FND_API.G_FALSE
558: ,P_commit => FND_API.G_FALSE
559: ,p_validation_level => p_validation_level
560: ,x_return_status => x_return_status
561: ,x_msg_data => x_msg_data
562: ,x_msg_count => x_msg_count
564: ,x_error_index => l_error_index);
565: IF g_debug THEN
566: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
567: END IF;
568: IF x_return_status = FND_API.G_RET_STS_ERROR then
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
565: IF g_debug THEN
566: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
567: END IF;
568: IF x_return_status = FND_API.G_RET_STS_ERROR then
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: -- Standard check for p_commit
566: ozf_utility_pvt.debug_message('return status for create_claim_line_tbl =>'||x_return_status);
567: END IF;
568: IF x_return_status = FND_API.G_RET_STS_ERROR then
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: -- Standard check for p_commit
574: IF FND_API.to_Boolean( p_commit )
567: END IF;
568: IF x_return_status = FND_API.G_RET_STS_ERROR then
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: -- Standard check for p_commit
574: IF FND_API.to_Boolean( p_commit )
575: THEN
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: -- Standard check for p_commit
574: IF FND_API.to_Boolean( p_commit )
575: THEN
576: COMMIT WORK;
577: END IF;
578: -- Debug Message
586: );
587: EXCEPTION
588: WHEN OZF_Utility_PVT.resource_locked THEN
589: ROLLBACK TO Create_Claim_Line_Tbl;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
592: FND_MSG_PUB.Count_And_Get (
593: p_encoded => FND_API.G_FALSE,
594: p_count => x_msg_count,
589: ROLLBACK TO Create_Claim_Line_Tbl;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
592: FND_MSG_PUB.Count_And_Get (
593: p_encoded => FND_API.G_FALSE,
594: p_count => x_msg_count,
595: p_data => x_msg_data
596: );
597: WHEN FND_API.G_EXC_ERROR THEN
593: p_encoded => FND_API.G_FALSE,
594: p_count => x_msg_count,
595: p_data => x_msg_data
596: );
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Create_Claim_Line_Tbl;
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: -- Standard call to get message count and if count=1, get the message
601: FND_MSG_PUB.Count_And_Get (
595: p_data => x_msg_data
596: );
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Create_Claim_Line_Tbl;
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: -- Standard call to get message count and if count=1, get the message
601: FND_MSG_PUB.Count_And_Get (
602: p_encoded => FND_API.G_FALSE,
603: p_count => x_msg_count,
598: ROLLBACK TO Create_Claim_Line_Tbl;
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: -- Standard call to get message count and if count=1, get the message
601: FND_MSG_PUB.Count_And_Get (
602: p_encoded => FND_API.G_FALSE,
603: p_count => x_msg_count,
604: p_data => x_msg_data
605: );
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
602: p_encoded => FND_API.G_FALSE,
603: p_count => x_msg_count,
604: p_data => x_msg_data
605: );
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: ROLLBACK TO Create_Claim_Line_Tbl;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
604: p_data => x_msg_data
605: );
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: ROLLBACK TO Create_Claim_Line_Tbl;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
611: p_encoded => FND_API.G_FALSE,
612: p_count => x_msg_count,
607: ROLLBACK TO Create_Claim_Line_Tbl;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
611: p_encoded => FND_API.G_FALSE,
612: p_count => x_msg_count,
613: p_data => x_msg_data
614: );
615: WHEN OTHERS THEN
613: p_data => x_msg_data
614: );
615: WHEN OTHERS THEN
616: ROLLBACK TO Create_Claim_Line_Tbl;
617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
618: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
619: THEN
620: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
621: END IF;
620: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
621: END IF;
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: End Create_Claim_Line_Tbl;
644: -- NOTES
645: ---------------------------------------------------------------------
646: PROCEDURE Update_Claim(
647: p_api_version_number IN NUMBER,
648: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
649: p_commit IN VARCHAR2 := FND_API.G_FALSE,
650: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
651: x_return_status OUT NOCOPY VARCHAR2,
652: x_msg_count OUT NOCOPY NUMBER,
645: ---------------------------------------------------------------------
646: PROCEDURE Update_Claim(
647: p_api_version_number IN NUMBER,
648: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
649: p_commit IN VARCHAR2 := FND_API.G_FALSE,
650: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
651: x_return_status OUT NOCOPY VARCHAR2,
652: x_msg_count OUT NOCOPY NUMBER,
653: x_msg_data OUT NOCOPY VARCHAR2,
646: PROCEDURE Update_Claim(
647: p_api_version_number IN NUMBER,
648: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
649: p_commit IN VARCHAR2 := FND_API.G_FALSE,
650: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
651: x_return_status OUT NOCOPY VARCHAR2,
652: x_msg_count OUT NOCOPY NUMBER,
653: x_msg_data OUT NOCOPY VARCHAR2,
654: p_claim_rec IN claim_rec_type,
692: BEGIN
693: -- Standard Start of API savepoint
694: SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
695: -- Standard call to check for call compatibility.
696: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
697: p_api_version_number,
698: l_api_name,
699: G_PKG_NAME)
700: THEN
697: p_api_version_number,
698: l_api_name,
699: G_PKG_NAME)
700: THEN
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END IF;
703: -- Initialize message list if p_init_msg_list is set to TRUE.
704: IF FND_API.to_Boolean( p_init_msg_list )
705: THEN
700: THEN
701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
702: END IF;
703: -- Initialize message list if p_init_msg_list is set to TRUE.
704: IF FND_API.to_Boolean( p_init_msg_list )
705: THEN
706: FND_MSG_PUB.initialize;
707: END IF;
708:
711: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
712: END IF;
713:
714: -- Initialize API return status to SUCCESS
715: x_return_status := FND_API.G_RET_STS_SUCCESS;
716: --
717: -- API body
718: --
719: -- Pass Public API values to Private API
858: --
859: --l_pvt_claim_line_rec.update_from_tbl_flag:= l_claim_line_rec.update_from_tbl_flag;
860: OZF_Claim_PVT.Update_Claim(
861: p_api_version => p_api_version_number,
862: p_init_msg_list => FND_API.G_FALSE,
863: p_commit => FND_API.G_FALSE,
864: P_Validation_Level => p_Validation_Level,
865: x_return_status => x_return_status,
866: x_msg_count => x_msg_count,
859: --l_pvt_claim_line_rec.update_from_tbl_flag:= l_claim_line_rec.update_from_tbl_flag;
860: OZF_Claim_PVT.Update_Claim(
861: p_api_version => p_api_version_number,
862: p_init_msg_list => FND_API.G_FALSE,
863: p_commit => FND_API.G_FALSE,
864: P_Validation_Level => p_Validation_Level,
865: x_return_status => x_return_status,
866: x_msg_count => x_msg_count,
867: x_msg_data => x_msg_data,
873: OZF_UTILITY_PVT.DEBUG_MESSAGE('OBJ VERSION NUMBER =>'||NVL(x_object_version_number,-99));
874: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR UPDATE CLAIM =>'||X_RETURN_STATUS);
875: END IF;
876: -- Check return status from the above procedure call
877: IF x_return_status = FND_API.G_RET_STS_ERROR then
878: RAISE FND_API.G_EXC_ERROR;
879: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: END IF;
874: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR UPDATE CLAIM =>'||X_RETURN_STATUS);
875: END IF;
876: -- Check return status from the above procedure call
877: IF x_return_status = FND_API.G_RET_STS_ERROR then
878: RAISE FND_API.G_EXC_ERROR;
879: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882: --
875: END IF;
876: -- Check return status from the above procedure call
877: IF x_return_status = FND_API.G_RET_STS_ERROR then
878: RAISE FND_API.G_EXC_ERROR;
879: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882: --
883: --
876: -- Check return status from the above procedure call
877: IF x_return_status = FND_API.G_RET_STS_ERROR then
878: RAISE FND_API.G_EXC_ERROR;
879: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
881: END IF;
882: --
883: --
884: -- In case claim id is not popluated.
885: IF l_claim_line_tbl.count > 0 THEN
886: FOR i IN l_claim_line_tbl.FIRST..l_claim_line_tbl.LAST LOOP
887: l_claim_line_tbl(i).claim_id := l_claim_rec.claim_id;
888: --//BKUNJAN -- Added Validation
889: IF (l_claim_line_tbl(i).item_id <> FND_API.g_miss_num AND l_claim_line_tbl(i).item_id IS NOT NULL) AND (l_claim_line_tbl(i).QUANTITY_UOM <> FND_API.g_miss_char AND l_claim_line_tbl(i).QUANTITY_UOM IS NOT NULL) THEN
890: -- Fix for Bug 11932210
891: OPEN c_item_uom(l_claim_line_tbl(i).QUANTITY_UOM
892: ,l_claim_line_tbl(i).item_id
893: ,l_inv_org_id);
901: FND_MESSAGE.set_name('OZF', 'OZF_METR_INVALID_UOM');
902: --//Unit of Measurement is Invalid
903: FND_MSG_PUB.add;
904: END IF;
905: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
907: RETURN;
908: END IF;
909: END IF;
902: --//Unit of Measurement is Invalid
903: FND_MSG_PUB.add;
904: END IF;
905: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
907: RETURN;
908: END IF;
909: END IF;
910: --End for Fix of Bug 11932210
929: THEN
930: OZF_UTILITY_PVT.DEBUG_MESSAGE('Before Calling Update_Claim_Line_Tbl ');
931: Update_Claim_Line_Tbl(
932: p_api_version => p_api_version_number
933: ,p_init_msg_list => FND_API.G_FALSE
934: ,p_commit => FND_API.G_FALSE
935: ,P_Validation_Level => p_Validation_Level
936: ,x_return_status => x_return_status
937: ,x_msg_data => x_msg_data
930: OZF_UTILITY_PVT.DEBUG_MESSAGE('Before Calling Update_Claim_Line_Tbl ');
931: Update_Claim_Line_Tbl(
932: p_api_version => p_api_version_number
933: ,p_init_msg_list => FND_API.G_FALSE
934: ,p_commit => FND_API.G_FALSE
935: ,P_Validation_Level => p_Validation_Level
936: ,x_return_status => x_return_status
937: ,x_msg_data => x_msg_data
938: ,x_msg_count => x_msg_count
936: ,x_return_status => x_return_status
937: ,x_msg_data => x_msg_data
938: ,x_msg_count => x_msg_count
939: ,p_claim_line_tbl => l_claim_line_tbl
940: ,p_change_object_version => FND_API.g_false -- Added For Fix
941: ,x_error_index => x_error_index);
942:
943: OZF_UTILITY_PVT.DEBUG_MESSAGE('After Call Update_Claim_Line_Tbl ');
944: END IF;
945: --OZF_UTILITY_PVT.DEBUG_MESSAGE('OBJ VERSION =>'||NVL(x_object_version,-99));
946: IF g_debug THEN
947: OZF_UTILITY_PVT.DEBUG_MESSAGE('Return Status for Update claim line =>'||x_return_status);
948: END IF;
949: IF x_return_status = FND_API.G_RET_STS_ERROR then
950: RAISE FND_API.G_EXC_ERROR;
951: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
946: IF g_debug THEN
947: OZF_UTILITY_PVT.DEBUG_MESSAGE('Return Status for Update claim line =>'||x_return_status);
948: END IF;
949: IF x_return_status = FND_API.G_RET_STS_ERROR then
950: RAISE FND_API.G_EXC_ERROR;
951: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
954:
947: OZF_UTILITY_PVT.DEBUG_MESSAGE('Return Status for Update claim line =>'||x_return_status);
948: END IF;
949: IF x_return_status = FND_API.G_RET_STS_ERROR then
950: RAISE FND_API.G_EXC_ERROR;
951: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
954:
955: -- Standard check for p_commit
948: END IF;
949: IF x_return_status = FND_API.G_RET_STS_ERROR then
950: RAISE FND_API.G_EXC_ERROR;
951: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
954:
955: -- Standard check for p_commit
956: IF FND_API.to_Boolean( p_commit )
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
954:
955: -- Standard check for p_commit
956: IF FND_API.to_Boolean( p_commit )
957: THEN
958: COMMIT WORK;
959: END IF;
960: -- Debug Message
968: );
969: EXCEPTION
970: WHEN OZF_Utility_PVT.resource_locked THEN
971: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
972: x_return_status := FND_API.g_ret_sts_error;
973: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
974: FND_MSG_PUB.Count_And_Get (
975: p_encoded => FND_API.G_FALSE,
976: p_count => x_msg_count,
971: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
972: x_return_status := FND_API.g_ret_sts_error;
973: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
974: FND_MSG_PUB.Count_And_Get (
975: p_encoded => FND_API.G_FALSE,
976: p_count => x_msg_count,
977: p_data => x_msg_data
978: );
979: WHEN FND_API.G_EXC_ERROR THEN
975: p_encoded => FND_API.G_FALSE,
976: p_count => x_msg_count,
977: p_data => x_msg_data
978: );
979: WHEN FND_API.G_EXC_ERROR THEN
980: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
981: x_return_status := FND_API.G_RET_STS_ERROR;
982: -- Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
977: p_data => x_msg_data
978: );
979: WHEN FND_API.G_EXC_ERROR THEN
980: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
981: x_return_status := FND_API.G_RET_STS_ERROR;
982: -- Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
980: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
981: x_return_status := FND_API.G_RET_STS_ERROR;
982: -- Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
986: p_data => x_msg_data
987: );
988: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
986: p_data => x_msg_data
987: );
988: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
989: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: -- Standard call to get message count and if count=1, get the message
992: FND_MSG_PUB.Count_And_Get (
986: p_data => x_msg_data
987: );
988: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
989: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: -- Standard call to get message count and if count=1, get the message
992: FND_MSG_PUB.Count_And_Get (
993: p_encoded => FND_API.G_FALSE,
994: p_count => x_msg_count,
989: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: -- Standard call to get message count and if count=1, get the message
992: FND_MSG_PUB.Count_And_Get (
993: p_encoded => FND_API.G_FALSE,
994: p_count => x_msg_count,
995: p_data => x_msg_data
996: );
997: WHEN OTHERS THEN
995: p_data => x_msg_data
996: );
997: WHEN OTHERS THEN
998: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
999: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1000: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1002: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1003: END IF;
1002: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1003: END IF;
1004: -- Standard call to get message count and if count=1, get the message
1005: FND_MSG_PUB.Count_And_Get (
1006: p_encoded => FND_API.G_FALSE,
1007: p_count => x_msg_count,
1008: p_data => x_msg_data
1009: );
1010: End Update_Claim;
1017: -- This procedure updates claim lines
1018: --
1019: -- PARAMETERS
1020: -- p_claim_line_tbl
1021: -- p_change_object_version IN VARCHAR2 := FND_API.g_false
1022: -- x_error_index
1023: --
1024: --
1025: -- NOTES
1027: -- Introduced validations for Item type and item.
1028: ---------------------------------------------------------------------
1029: PROCEDURE Update_Claim_Line_Tbl(
1030: p_api_version IN NUMBER
1031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1032: ,p_commit IN VARCHAR2 := FND_API.g_false
1033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1034: ,x_return_status OUT NOCOPY VARCHAR2
1035: ,x_msg_data OUT NOCOPY VARCHAR2
1028: ---------------------------------------------------------------------
1029: PROCEDURE Update_Claim_Line_Tbl(
1030: p_api_version IN NUMBER
1031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1032: ,p_commit IN VARCHAR2 := FND_API.g_false
1033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1034: ,x_return_status OUT NOCOPY VARCHAR2
1035: ,x_msg_data OUT NOCOPY VARCHAR2
1036: ,x_msg_count OUT NOCOPY NUMBER
1029: PROCEDURE Update_Claim_Line_Tbl(
1030: p_api_version IN NUMBER
1031: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1032: ,p_commit IN VARCHAR2 := FND_API.g_false
1033: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1034: ,x_return_status OUT NOCOPY VARCHAR2
1035: ,x_msg_data OUT NOCOPY VARCHAR2
1036: ,x_msg_count OUT NOCOPY NUMBER
1037: ,p_claim_line_tbl IN claim_line_tbl_type
1034: ,x_return_status OUT NOCOPY VARCHAR2
1035: ,x_msg_data OUT NOCOPY VARCHAR2
1036: ,x_msg_count OUT NOCOPY NUMBER
1037: ,p_claim_line_tbl IN claim_line_tbl_type
1038: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
1039: ,x_error_index OUT NOCOPY NUMBER
1040: )
1041: IS
1042: L_API_NAME CONSTANT VARCHAR2(30) := 'Update_Claim_Line';
1154: l_item_id NUMBER;
1155: BEGIN
1156: SAVEPOINT Update_Claim_Line_Tbl;
1157: -- Standard call to check for call compatibility.
1158: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1159: p_api_version,
1160: l_api_name,
1161: G_PKG_NAME)
1162: THEN
1159: p_api_version,
1160: l_api_name,
1161: G_PKG_NAME)
1162: THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165: -- Initialize message list if p_init_msg_list is set to TRUE.
1166: IF FND_API.to_Boolean( p_init_msg_list )
1167: THEN
1162: THEN
1163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165: -- Initialize message list if p_init_msg_list is set to TRUE.
1166: IF FND_API.to_Boolean( p_init_msg_list )
1167: THEN
1168: FND_MSG_PUB.initialize;
1169: END IF;
1170: -- Debug Message
1172: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
1173: END IF;
1174:
1175: -- Initialize API return status to SUCCESS
1176: x_return_status := FND_API.G_RET_STS_SUCCESS;
1177: l_claim_line_tbl := p_claim_line_tbl;
1178:
1179: IF p_claim_line_tbl.COUNT > 0 THEN
1180: FOR i IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
1261: CLOSE c_get_claim_line;
1262:
1263:
1264: IF l_claim_line_tbl(i).object_version_number is null then
1265: l_pvt_claim_line_tbl(i).object_version_number := FND_API.G_MISS_NUM;
1266: ELSE
1267: l_pvt_claim_line_tbl(i).object_version_number :=l_claim_line_tbl(i).object_version_number;
1268: END IF;
1269:
1267: l_pvt_claim_line_tbl(i).object_version_number :=l_claim_line_tbl(i).object_version_number;
1268: END IF;
1269:
1270: IF l_claim_line_tbl(i).last_update_date is null then
1271: l_pvt_claim_line_tbl(i).last_update_date := FND_API.G_MISS_DATE;
1272: ELSE
1273: l_pvt_claim_line_tbl(i).last_update_date :=l_claim_line_tbl(i).last_update_date;
1274: END IF;
1275:
1273: l_pvt_claim_line_tbl(i).last_update_date :=l_claim_line_tbl(i).last_update_date;
1274: END IF;
1275:
1276: IF l_claim_line_tbl(i).last_updated_by is null then
1277: l_pvt_claim_line_tbl(i).last_updated_by := FND_API.G_MISS_NUM;
1278: ELSE
1279: l_pvt_claim_line_tbl(i).last_updated_by :=l_claim_line_tbl(i).last_updated_by;
1280: END IF;
1281:
1279: l_pvt_claim_line_tbl(i).last_updated_by :=l_claim_line_tbl(i).last_updated_by;
1280: END IF;
1281:
1282: IF l_claim_line_tbl(i).creation_date is null then
1283: l_pvt_claim_line_tbl(i).creation_date := FND_API.G_MISS_DATE;
1284: ELSE
1285: l_pvt_claim_line_tbl(i).creation_date :=l_claim_line_tbl(i).creation_date;
1286: END IF;
1287:
1285: l_pvt_claim_line_tbl(i).creation_date :=l_claim_line_tbl(i).creation_date;
1286: END IF;
1287:
1288: IF l_claim_line_tbl(i).created_by is null then
1289: l_pvt_claim_line_tbl(i).created_by := FND_API.G_MISS_NUM;
1290: ELSE
1291: l_pvt_claim_line_tbl(i).created_by :=l_claim_line_tbl(i).created_by;
1292: END IF;
1293:
1291: l_pvt_claim_line_tbl(i).created_by :=l_claim_line_tbl(i).created_by;
1292: END IF;
1293:
1294: IF l_claim_line_tbl(i).last_update_login is null then
1295: l_pvt_claim_line_tbl(i).last_update_login := FND_API.G_MISS_NUM;
1296: ELSE
1297: l_pvt_claim_line_tbl(i).last_update_login :=l_claim_line_tbl(i).last_update_login;
1298: END IF;
1299:
1297: l_pvt_claim_line_tbl(i).last_update_login :=l_claim_line_tbl(i).last_update_login;
1298: END IF;
1299:
1300: IF l_claim_line_tbl(i).request_id is null then
1301: l_pvt_claim_line_tbl(i).request_id := FND_API.G_MISS_NUM;
1302: ELSE
1303: l_pvt_claim_line_tbl(i).request_id :=l_claim_line_tbl(i).request_id;
1304: END IF;
1305:
1303: l_pvt_claim_line_tbl(i).request_id :=l_claim_line_tbl(i).request_id;
1304: END IF;
1305:
1306: IF l_claim_line_tbl(i).program_application_id is null then
1307: l_pvt_claim_line_tbl(i).program_application_id := FND_API.G_MISS_NUM;
1308: ELSE
1309: l_pvt_claim_line_tbl(i).program_application_id :=l_claim_line_tbl(i).program_application_id;
1310: END IF;
1311:
1309: l_pvt_claim_line_tbl(i).program_application_id :=l_claim_line_tbl(i).program_application_id;
1310: END IF;
1311:
1312: IF l_claim_line_tbl(i).program_update_date is null then
1313: l_pvt_claim_line_tbl(i).program_update_date := FND_API.G_MISS_DATE;
1314: ELSE
1315: l_pvt_claim_line_tbl(i).program_update_date :=l_claim_line_tbl(i).program_update_date;
1316: END IF;
1317:
1315: l_pvt_claim_line_tbl(i).program_update_date :=l_claim_line_tbl(i).program_update_date;
1316: END IF;
1317:
1318: IF l_claim_line_tbl(i).program_id is null then
1319: l_pvt_claim_line_tbl(i).program_id := FND_API.G_MISS_NUM;
1320: ELSE
1321: l_pvt_claim_line_tbl(i).program_id :=l_claim_line_tbl(i).program_id;
1322: END IF;
1323:
1321: l_pvt_claim_line_tbl(i).program_id :=l_claim_line_tbl(i).program_id;
1322: END IF;
1323:
1324: IF l_claim_line_tbl(i).created_from is null then
1325: l_pvt_claim_line_tbl(i).created_from := FND_API.G_MISS_CHAR;
1326: ELSE
1327: l_pvt_claim_line_tbl(i).created_from :=l_claim_line_tbl(i).created_from;
1328: END IF;
1329:
1465: p_lookup_table_name =>'OZF_LOOKUPS'
1466: ,p_lookup_type =>'OZF_CLAIM_LINE_ITEM_TYPE'
1467: ,p_lookup_code => l_claim_line_tbl(i).item_type);
1468:
1469: IF l_lookup_stat = FND_API.g_false THEN
1470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1471: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_ITEM_TYPE');
1472: --//Item type provided is invalid, Please provide a valid item type.
1473: FND_MSG_PUB.add;
1471: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_ITEM_TYPE');
1472: --//Item type provided is invalid, Please provide a valid item type.
1473: FND_MSG_PUB.add;
1474: END IF;
1475: x_return_status := fnd_api.g_ret_sts_error;
1476: RETURN;
1477: END IF;
1478: l_pvt_claim_line_tbl(i).item_type :=l_claim_line_tbl(i).item_type;
1479: END IF;
1491: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_INVENTORY_ITEM_ID');
1492: --//Inventory item identifier provided is Invalid.
1493: FND_MSG_PUB.add;
1494: END IF;
1495: x_return_status := fnd_api.g_ret_sts_error;
1496: RETURN;
1497: END IF;
1498: l_pvt_claim_line_tbl(i).item_id := l_item_id;
1499:
1510: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CATEGORY_ID');
1511: --//Item Category identifier provided is Invalid.
1512: FND_MSG_PUB.add;
1513: END IF;
1514: x_return_status := fnd_api.g_ret_sts_error;
1515: RETURN;
1516: END IF;
1517: l_pvt_claim_line_tbl(i).item_id := l_item_id;
1518:
1527: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_MEDIA_CHANNEL_ID');
1528: --//Media channel identifier provided is Invalid.
1529: FND_MSG_PUB.add;
1530: END IF;
1531: x_return_status := fnd_api.g_ret_sts_error;
1532: RETURN;
1533: END IF;
1534: l_pvt_claim_line_tbl(i).item_id := l_item_id;
1535:
1544: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_MEMO_LINE_ID');
1545: --//Memo line identifier provided is Invalid.
1546: FND_MSG_PUB.add;
1547: END IF;
1548: x_return_status := fnd_api.g_ret_sts_error;
1549: RETURN;
1550: END IF;
1551: l_pvt_claim_line_tbl(i).item_id := l_item_id;
1552: END IF;
1705:
1706: -- Call to Update claim line tbl.
1707: Ozf_Claim_Line_Pvt.Update_Claim_line_Tbl(
1708: p_api_version => p_api_version
1709: ,p_init_msg_list => FND_API.G_FALSE
1710: ,p_commit => FND_API.G_FALSE
1711: ,P_Validation_Level => p_Validation_Level
1712: ,x_return_status => x_return_status
1713: ,x_msg_data => x_msg_data
1706: -- Call to Update claim line tbl.
1707: Ozf_Claim_Line_Pvt.Update_Claim_line_Tbl(
1708: p_api_version => p_api_version
1709: ,p_init_msg_list => FND_API.G_FALSE
1710: ,p_commit => FND_API.G_FALSE
1711: ,P_Validation_Level => p_Validation_Level
1712: ,x_return_status => x_return_status
1713: ,x_msg_data => x_msg_data
1714: ,x_msg_count => x_msg_count
1712: ,x_return_status => x_return_status
1713: ,x_msg_data => x_msg_data
1714: ,x_msg_count => x_msg_count
1715: ,p_claim_line_tbl => l_pvt_claim_line_tbl
1716: ,p_change_object_version => FND_API.g_false
1717: ,x_error_index => l_error_index );
1718: IF g_debug THEN
1719: OZF_UTILITY_PVT.DEBUG_MESSAGE('sTATUS FOR Update claim line =>'||x_return_status);
1720: END IF;
1717: ,x_error_index => l_error_index );
1718: IF g_debug THEN
1719: OZF_UTILITY_PVT.DEBUG_MESSAGE('sTATUS FOR Update claim line =>'||x_return_status);
1720: END IF;
1721: IF x_return_status = FND_API.G_RET_STS_ERROR then
1722: RAISE FND_API.G_EXC_ERROR;
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1718: IF g_debug THEN
1719: OZF_UTILITY_PVT.DEBUG_MESSAGE('sTATUS FOR Update claim line =>'||x_return_status);
1720: END IF;
1721: IF x_return_status = FND_API.G_RET_STS_ERROR then
1722: RAISE FND_API.G_EXC_ERROR;
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1726: --Standard check for p_commit
1719: OZF_UTILITY_PVT.DEBUG_MESSAGE('sTATUS FOR Update claim line =>'||x_return_status);
1720: END IF;
1721: IF x_return_status = FND_API.G_RET_STS_ERROR then
1722: RAISE FND_API.G_EXC_ERROR;
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1726: --Standard check for p_commit
1727: IF FND_API.to_Boolean( p_commit )
1720: END IF;
1721: IF x_return_status = FND_API.G_RET_STS_ERROR then
1722: RAISE FND_API.G_EXC_ERROR;
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1726: --Standard check for p_commit
1727: IF FND_API.to_Boolean( p_commit )
1728: THEN
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1726: --Standard check for p_commit
1727: IF FND_API.to_Boolean( p_commit )
1728: THEN
1729: COMMIT WORK;
1730: END IF;
1731: -- Debug Message
1739: );
1740: EXCEPTION
1741: WHEN OZF_Utility_PVT.resource_locked THEN
1742: ROLLBACK TO Update_Claim_Line_Tbl;
1743: x_return_status := FND_API.g_ret_sts_error;
1744: FND_MSG_PUB.Count_And_Get (
1745: p_encoded => FND_API.G_FALSE,
1746: p_count => x_msg_count,
1747: p_data => x_msg_data
1741: WHEN OZF_Utility_PVT.resource_locked THEN
1742: ROLLBACK TO Update_Claim_Line_Tbl;
1743: x_return_status := FND_API.g_ret_sts_error;
1744: FND_MSG_PUB.Count_And_Get (
1745: p_encoded => FND_API.G_FALSE,
1746: p_count => x_msg_count,
1747: p_data => x_msg_data
1748: );
1749: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1746: p_count => x_msg_count,
1747: p_data => x_msg_data
1748: );
1749: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1750: WHEN FND_API.G_EXC_ERROR THEN
1751: ROLLBACK TO Update_Claim_Line_Tbl;
1752: x_return_status := FND_API.G_RET_STS_ERROR;
1753: -- Standard call to get message count and if count=1, get the message
1754: FND_MSG_PUB.Count_And_Get (
1748: );
1749: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1750: WHEN FND_API.G_EXC_ERROR THEN
1751: ROLLBACK TO Update_Claim_Line_Tbl;
1752: x_return_status := FND_API.G_RET_STS_ERROR;
1753: -- Standard call to get message count and if count=1, get the message
1754: FND_MSG_PUB.Count_And_Get (
1755: p_encoded => FND_API.G_FALSE,
1756: p_count => x_msg_count,
1751: ROLLBACK TO Update_Claim_Line_Tbl;
1752: x_return_status := FND_API.G_RET_STS_ERROR;
1753: -- Standard call to get message count and if count=1, get the message
1754: FND_MSG_PUB.Count_And_Get (
1755: p_encoded => FND_API.G_FALSE,
1756: p_count => x_msg_count,
1757: p_data => x_msg_data
1758: );
1759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1755: p_encoded => FND_API.G_FALSE,
1756: p_count => x_msg_count,
1757: p_data => x_msg_data
1758: );
1759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1760: ROLLBACK TO Update_Claim_Line_Tbl;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762: -- Standard call to get message count and if count=1, get the message
1763: FND_MSG_PUB.Count_And_Get (
1757: p_data => x_msg_data
1758: );
1759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1760: ROLLBACK TO Update_Claim_Line_Tbl;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762: -- Standard call to get message count and if count=1, get the message
1763: FND_MSG_PUB.Count_And_Get (
1764: p_encoded => FND_API.G_FALSE,
1765: p_count => x_msg_count,
1760: ROLLBACK TO Update_Claim_Line_Tbl;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762: -- Standard call to get message count and if count=1, get the message
1763: FND_MSG_PUB.Count_And_Get (
1764: p_encoded => FND_API.G_FALSE,
1765: p_count => x_msg_count,
1766: p_data => x_msg_data
1767: );
1768: WHEN OTHERS THEN
1766: p_data => x_msg_data
1767: );
1768: WHEN OTHERS THEN
1769: ROLLBACK TO Update_Claim_Line_Tbl;
1770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1771: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1772: THEN
1773: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1774: END IF;
1773: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1774: END IF;
1775: -- Standard call to get message count and if count=1, get the message
1776: FND_MSG_PUB.Count_And_Get (
1777: p_encoded => FND_API.G_FALSE,
1778: p_count => x_msg_count,
1779: p_data => x_msg_data
1780: );
1781: End Update_Claim_Line_tbl;
1797: -- NOTES
1798: ---------------------------------------------------------------------
1799: PROCEDURE Delete_Claim(
1800: p_api_version_number IN NUMBER,
1801: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1803: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1804: x_return_status OUT NOCOPY VARCHAR2,
1805: x_msg_count OUT NOCOPY NUMBER,
1798: ---------------------------------------------------------------------
1799: PROCEDURE Delete_Claim(
1800: p_api_version_number IN NUMBER,
1801: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1803: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1804: x_return_status OUT NOCOPY VARCHAR2,
1805: x_msg_count OUT NOCOPY NUMBER,
1806: x_msg_data OUT NOCOPY VARCHAR2,
1799: PROCEDURE Delete_Claim(
1800: p_api_version_number IN NUMBER,
1801: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1802: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1803: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1804: x_return_status OUT NOCOPY VARCHAR2,
1805: x_msg_count OUT NOCOPY NUMBER,
1806: x_msg_data OUT NOCOPY VARCHAR2,
1807: p_claim_id IN NUMBER,
1815: BEGIN
1816: -- Standard Start of API savepoint
1817: SAVEPOINT DELETE_Claim_PUB;
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1823: THEN
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826: -- Initialize message list if p_init_msg_list is set to TRUE.
1827: IF FND_API.to_Boolean( p_init_msg_list )
1828: THEN
1823: THEN
1824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826: -- Initialize message list if p_init_msg_list is set to TRUE.
1827: IF FND_API.to_Boolean( p_init_msg_list )
1828: THEN
1829: FND_MSG_PUB.initialize;
1830: END IF;
1831: -- Debug Message
1832: IF g_debug THEN
1833: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
1834: END IF;
1835: -- Initialize API return status to SUCCESS
1836: x_return_status := FND_API.G_RET_STS_SUCCESS;
1837: --
1838: -- Calling private API
1839: --
1840: OZF_Claim_PVT.Delete_Claim(
1838: -- Calling private API
1839: --
1840: OZF_Claim_PVT.Delete_Claim(
1841: p_api_version_number => p_api_version_number,
1842: p_init_msg_list => FND_API.G_FALSE,
1843: p_commit => FND_API.G_FALSE,
1844: p_object_id => l_claim_id,
1845: p_object_version_number => l_object_version_number,
1846: x_return_status => x_return_status,
1839: --
1840: OZF_Claim_PVT.Delete_Claim(
1841: p_api_version_number => p_api_version_number,
1842: p_init_msg_list => FND_API.G_FALSE,
1843: p_commit => FND_API.G_FALSE,
1844: p_object_id => l_claim_id,
1845: p_object_version_number => l_object_version_number,
1846: x_return_status => x_return_status,
1847: x_msg_count => x_msg_count,
1853: END IF;
1854: -- Check return status from the above procedure call
1855: --
1856: -- Standard check for p_commit
1857: IF FND_API.to_Boolean( p_commit )
1858: THEN
1859: COMMIT WORK;
1860: END IF;
1861: -- Debug Message
1869: );
1870: EXCEPTION
1871: WHEN OZF_Utility_PVT.resource_locked THEN
1872: ROLLBACK TO DELETE_Claim_PUB;
1873: x_return_status := FND_API.g_ret_sts_error;
1874: FND_MSG_PUB.Count_And_Get (
1875: p_encoded => FND_API.G_FALSE,
1876: p_count => x_msg_count,
1877: p_data => x_msg_data
1871: WHEN OZF_Utility_PVT.resource_locked THEN
1872: ROLLBACK TO DELETE_Claim_PUB;
1873: x_return_status := FND_API.g_ret_sts_error;
1874: FND_MSG_PUB.Count_And_Get (
1875: p_encoded => FND_API.G_FALSE,
1876: p_count => x_msg_count,
1877: p_data => x_msg_data
1878: );
1879: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1876: p_count => x_msg_count,
1877: p_data => x_msg_data
1878: );
1879: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1880: WHEN FND_API.G_EXC_ERROR THEN
1881: ROLLBACK TO DELETE_Claim_PUB;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- Standard call to get message count and if count=1, get the message
1884: FND_MSG_PUB.Count_And_Get (
1878: );
1879: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1880: WHEN FND_API.G_EXC_ERROR THEN
1881: ROLLBACK TO DELETE_Claim_PUB;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- Standard call to get message count and if count=1, get the message
1884: FND_MSG_PUB.Count_And_Get (
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1881: ROLLBACK TO DELETE_Claim_PUB;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- Standard call to get message count and if count=1, get the message
1884: FND_MSG_PUB.Count_And_Get (
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1887: p_data => x_msg_data
1888: );
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1887: p_data => x_msg_data
1888: );
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890: ROLLBACK TO DELETE_Claim_PUB;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892: -- Standard call to get message count and if count=1, get the message
1893: FND_MSG_PUB.Count_And_Get (
1887: p_data => x_msg_data
1888: );
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890: ROLLBACK TO DELETE_Claim_PUB;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892: -- Standard call to get message count and if count=1, get the message
1893: FND_MSG_PUB.Count_And_Get (
1894: p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1890: ROLLBACK TO DELETE_Claim_PUB;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892: -- Standard call to get message count and if count=1, get the message
1893: FND_MSG_PUB.Count_And_Get (
1894: p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1896: p_data => x_msg_data
1897: );
1898: WHEN OTHERS THEN
1896: p_data => x_msg_data
1897: );
1898: WHEN OTHERS THEN
1899: ROLLBACK TO DELETE_Claim_PUB;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1902: THEN
1903: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1904: END IF;
1903: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1904: END IF;
1905: -- Standard call to get message count and if count=1, get the message
1906: FND_MSG_PUB.Count_And_Get (
1907: p_encoded => FND_API.G_FALSE,
1908: p_count => x_msg_count,
1909: p_data => x_msg_data
1910: );
1911: End Delete_Claim;
1927: -- NOTES
1928: ---------------------------------------------------------------------
1929: PROCEDURE Delete_Claim_Line_Tbl(
1930: p_api_version IN NUMBER
1931: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1932: ,p_commit IN VARCHAR2 := FND_API.g_false
1933: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1934: ,x_return_status OUT NOCOPY VARCHAR2
1935: ,x_msg_data OUT NOCOPY VARCHAR2
1928: ---------------------------------------------------------------------
1929: PROCEDURE Delete_Claim_Line_Tbl(
1930: p_api_version IN NUMBER
1931: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1932: ,p_commit IN VARCHAR2 := FND_API.g_false
1933: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1934: ,x_return_status OUT NOCOPY VARCHAR2
1935: ,x_msg_data OUT NOCOPY VARCHAR2
1936: ,x_msg_count OUT NOCOPY NUMBER
1929: PROCEDURE Delete_Claim_Line_Tbl(
1930: p_api_version IN NUMBER
1931: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1932: ,p_commit IN VARCHAR2 := FND_API.g_false
1933: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1934: ,x_return_status OUT NOCOPY VARCHAR2
1935: ,x_msg_data OUT NOCOPY VARCHAR2
1936: ,x_msg_count OUT NOCOPY NUMBER
1937: ,p_claim_line_tbl IN claim_line_tbl_type
1934: ,x_return_status OUT NOCOPY VARCHAR2
1935: ,x_msg_data OUT NOCOPY VARCHAR2
1936: ,x_msg_count OUT NOCOPY NUMBER
1937: ,p_claim_line_tbl IN claim_line_tbl_type
1938: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
1939: ,x_error_index OUT NOCOPY NUMBER)
1940: IS
1941: L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Claim_Line';
1942: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1946: BEGIN
1947: -- Standard Start of API savepoint
1948: SAVEPOINT DELETE_Claim_Line_PUB;
1949: -- Standard call to check for call compatibility.
1950: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1951: p_api_version,
1952: l_api_name,
1953: G_PKG_NAME)
1954: THEN
1951: p_api_version,
1952: l_api_name,
1953: G_PKG_NAME)
1954: THEN
1955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1956: END IF;
1957: -- Initialize message list if p_init_msg_list is set to TRUE.
1958: IF FND_API.to_Boolean( p_init_msg_list )
1959: THEN
1954: THEN
1955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1956: END IF;
1957: -- Initialize message list if p_init_msg_list is set to TRUE.
1958: IF FND_API.to_Boolean( p_init_msg_list )
1959: THEN
1960: FND_MSG_PUB.initialize;
1961: END IF;
1962: -- Debug Message
1963: IF g_debug THEN
1964: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
1965: END IF;
1966: -- Initialize API return status to SUCCESS
1967: x_return_status := FND_API.G_RET_STS_SUCCESS;
1968: --
1969: -- API body
1970: --
1971: l_claim_line_tbl := p_claim_line_tbl;
1978: END LOOP;
1979: END IF;
1980: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
1981: p_api_version => p_api_version
1982: ,p_init_msg_list => FND_API.G_FALSE
1983: ,p_commit => FND_API.G_FALSE
1984: ,P_Validation_Level => p_Validation_Level
1985: ,x_return_status => x_return_status
1986: ,x_msg_data => x_msg_data
1979: END IF;
1980: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
1981: p_api_version => p_api_version
1982: ,p_init_msg_list => FND_API.G_FALSE
1983: ,p_commit => FND_API.G_FALSE
1984: ,P_Validation_Level => p_Validation_Level
1985: ,x_return_status => x_return_status
1986: ,x_msg_data => x_msg_data
1987: ,x_msg_count => x_msg_count
1985: ,x_return_status => x_return_status
1986: ,x_msg_data => x_msg_data
1987: ,x_msg_count => x_msg_count
1988: ,p_claim_line_tbl => l_pvt_claim_line_tbl
1989: ,p_change_object_version => FND_API.g_false
1990: ,x_error_index => l_error_index);
1991: IF g_debug THEN
1992: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM_Line_Tbl =>'||X_RETURN_STATUS);
1993: END IF;
1991: IF g_debug THEN
1992: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM_Line_Tbl =>'||X_RETURN_STATUS);
1993: END IF;
1994: -- Check return status from the above procedure call
1995: IF x_return_status = FND_API.G_RET_STS_ERROR then
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
1992: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM_Line_Tbl =>'||X_RETURN_STATUS);
1993: END IF;
1994: -- Check return status from the above procedure call
1995: IF x_return_status = FND_API.G_RET_STS_ERROR then
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: --
1993: END IF;
1994: -- Check return status from the above procedure call
1995: IF x_return_status = FND_API.G_RET_STS_ERROR then
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: --
2001: -- End of API body
1994: -- Check return status from the above procedure call
1995: IF x_return_status = FND_API.G_RET_STS_ERROR then
1996: RAISE FND_API.G_EXC_ERROR;
1997: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1999: END IF;
2000: --
2001: -- End of API body
2002: --
2000: --
2001: -- End of API body
2002: --
2003: -- Standard check for p_commit
2004: IF FND_API.to_Boolean( p_commit )
2005: THEN
2006: COMMIT WORK;
2007: END IF;
2008: -- Debug Message
2016: );
2017: EXCEPTION
2018: WHEN OZF_Utility_PVT.resource_locked THEN
2019: ROLLBACK TO DELETE_Claim_Line_PUB;
2020: x_return_status := FND_API.G_RET_STS_ERROR;
2021: -- Standard call to get message count and if count=1, get the message
2022: FND_MSG_PUB.Count_And_Get (
2023: p_encoded => FND_API.G_FALSE,
2024: p_count => x_msg_count,
2019: ROLLBACK TO DELETE_Claim_Line_PUB;
2020: x_return_status := FND_API.G_RET_STS_ERROR;
2021: -- Standard call to get message count and if count=1, get the message
2022: FND_MSG_PUB.Count_And_Get (
2023: p_encoded => FND_API.G_FALSE,
2024: p_count => x_msg_count,
2025: p_data => x_msg_data
2026: );
2027: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2024: p_count => x_msg_count,
2025: p_data => x_msg_data
2026: );
2027: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2028: WHEN FND_API.G_EXC_ERROR THEN
2029: ROLLBACK TO DELETE_Claim_Line_PUB;
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031: -- Standard call to get message count and if count=1, get the message
2032: FND_MSG_PUB.Count_And_Get (
2026: );
2027: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2028: WHEN FND_API.G_EXC_ERROR THEN
2029: ROLLBACK TO DELETE_Claim_Line_PUB;
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031: -- Standard call to get message count and if count=1, get the message
2032: FND_MSG_PUB.Count_And_Get (
2033: p_encoded => FND_API.G_FALSE,
2034: p_count => x_msg_count,
2029: ROLLBACK TO DELETE_Claim_Line_PUB;
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031: -- Standard call to get message count and if count=1, get the message
2032: FND_MSG_PUB.Count_And_Get (
2033: p_encoded => FND_API.G_FALSE,
2034: p_count => x_msg_count,
2035: p_data => x_msg_data
2036: );
2037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2033: p_encoded => FND_API.G_FALSE,
2034: p_count => x_msg_count,
2035: p_data => x_msg_data
2036: );
2037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2038: ROLLBACK TO DELETE_Claim_Line_PUB;
2039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2035: p_data => x_msg_data
2036: );
2037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2038: ROLLBACK TO DELETE_Claim_Line_PUB;
2039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2038: ROLLBACK TO DELETE_Claim_Line_PUB;
2039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2045: );
2046: WHEN OTHERS THEN
2044: p_data => x_msg_data
2045: );
2046: WHEN OTHERS THEN
2047: ROLLBACK TO DELETE_Claim_PUB;
2048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2049: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2050: THEN
2051: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2052: END IF;
2051: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2052: END IF;
2053: -- Standard call to get message count and if count=1, get the message
2054: FND_MSG_PUB.Count_And_Get (
2055: p_encoded => FND_API.G_FALSE,
2056: p_count => x_msg_count,
2057: p_data => x_msg_data
2058: );
2059: End Delete_Claim_Line_Tbl;
2080: -- NOTES
2081: ---------------------------------------------------------------------
2082: PROCEDURE Asso_Accruals_To_Claim(
2083: p_api_version IN NUMBER
2084: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2085: ,p_commit IN VARCHAR2 := FND_API.g_false
2086: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2087: ,x_return_status OUT NOCOPY VARCHAR2
2088: ,x_msg_data OUT NOCOPY VARCHAR2
2081: ---------------------------------------------------------------------
2082: PROCEDURE Asso_Accruals_To_Claim(
2083: p_api_version IN NUMBER
2084: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2085: ,p_commit IN VARCHAR2 := FND_API.g_false
2086: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2087: ,x_return_status OUT NOCOPY VARCHAR2
2088: ,x_msg_data OUT NOCOPY VARCHAR2
2089: ,x_msg_count OUT NOCOPY NUMBER
2082: PROCEDURE Asso_Accruals_To_Claim(
2083: p_api_version IN NUMBER
2084: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2085: ,p_commit IN VARCHAR2 := FND_API.g_false
2086: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2087: ,x_return_status OUT NOCOPY VARCHAR2
2088: ,x_msg_data OUT NOCOPY VARCHAR2
2089: ,x_msg_count OUT NOCOPY NUMBER
2090: ,p_claim_id IN NUMBER
2106: OZF_Utility_PVT.debug_message(l_full_name||': start');
2107: END IF;
2108:
2109: -- Standard call to check for call compatibility.
2110: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2111: p_api_version,
2112: l_api_name,
2113: G_PKG_NAME ) THEN
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2110: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2111: p_api_version,
2112: l_api_name,
2113: G_PKG_NAME ) THEN
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2115: END IF;
2116:
2117: -- Initialize message list if p_init_msg_list is set to TRUE.
2118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2115: END IF;
2116:
2117: -- Initialize message list if p_init_msg_list is set to TRUE.
2118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2119: FND_MSG_PUB.initialize;
2120: END IF;
2121:
2122: -- Initialize API return status to SUCCESS
2119: FND_MSG_PUB.initialize;
2120: END IF;
2121:
2122: -- Initialize API return status to SUCCESS
2123: x_return_status := FND_API.G_RET_STS_SUCCESS;
2124:
2125: ------------------------------------------
2126: -- 1. Default and derive column valude --
2127: ------------------------------------------
2158: -- 2. Call OZF_CLAIM_ACCRUAL_PVT
2159: ------------------------------------------
2160: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim(
2161: p_api_version => l_api_version
2162: ,p_init_msg_list => FND_API.g_false
2163: ,p_commit => FND_API.g_false
2164: ,p_validation_level => FND_API.g_valid_level_full
2165:
2166: ,x_return_status => l_return_status
2159: ------------------------------------------
2160: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim(
2161: p_api_version => l_api_version
2162: ,p_init_msg_list => FND_API.g_false
2163: ,p_commit => FND_API.g_false
2164: ,p_validation_level => FND_API.g_valid_level_full
2165:
2166: ,x_return_status => l_return_status
2167: ,x_msg_count => x_msg_count
2160: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim(
2161: p_api_version => l_api_version
2162: ,p_init_msg_list => FND_API.g_false
2163: ,p_commit => FND_API.g_false
2164: ,p_validation_level => FND_API.g_valid_level_full
2165:
2166: ,x_return_status => l_return_status
2167: ,x_msg_count => x_msg_count
2168: ,x_msg_data => x_msg_data
2169:
2170: ,p_claim_id => p_claim_id
2171: ,p_funds_util_flt => l_funds_util_flt
2172: );
2173: IF l_return_status = FND_API.g_ret_sts_error THEN
2174: RAISE FND_API.g_exc_error;
2175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2170: ,p_claim_id => p_claim_id
2171: ,p_funds_util_flt => l_funds_util_flt
2172: );
2173: IF l_return_status = FND_API.g_ret_sts_error THEN
2174: RAISE FND_API.g_exc_error;
2175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2178:
2171: ,p_funds_util_flt => l_funds_util_flt
2172: );
2173: IF l_return_status = FND_API.g_ret_sts_error THEN
2174: RAISE FND_API.g_exc_error;
2175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2178:
2179: -- Standard check for p_commit
2172: );
2173: IF l_return_status = FND_API.g_ret_sts_error THEN
2174: RAISE FND_API.g_exc_error;
2175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2178:
2179: -- Standard check for p_commit
2180: IF FND_API.to_Boolean(p_commit) THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2178:
2179: -- Standard check for p_commit
2180: IF FND_API.to_Boolean(p_commit) THEN
2181: COMMIT WORK;
2182: END IF;
2183:
2184: IF G_DEBUG THEN
2191: p_data => x_msg_data
2192: );
2193:
2194: EXCEPTION
2195: WHEN FND_API.G_EXC_ERROR THEN
2196: ROLLBACK TO Asso_Accruals_To_Claim;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: FND_MSG_PUB.Count_And_Get (
2199: p_encoded => FND_API.G_FALSE,
2193:
2194: EXCEPTION
2195: WHEN FND_API.G_EXC_ERROR THEN
2196: ROLLBACK TO Asso_Accruals_To_Claim;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: FND_MSG_PUB.Count_And_Get (
2199: p_encoded => FND_API.G_FALSE,
2200: p_count => x_msg_count,
2201: p_data => x_msg_data
2195: WHEN FND_API.G_EXC_ERROR THEN
2196: ROLLBACK TO Asso_Accruals_To_Claim;
2197: x_return_status := FND_API.G_RET_STS_ERROR;
2198: FND_MSG_PUB.Count_And_Get (
2199: p_encoded => FND_API.G_FALSE,
2200: p_count => x_msg_count,
2201: p_data => x_msg_data
2202: );
2203:
2200: p_count => x_msg_count,
2201: p_data => x_msg_data
2202: );
2203:
2204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2205: ROLLBACK TO Asso_Accruals_To_Claim;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2202: );
2203:
2204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2205: ROLLBACK TO Asso_Accruals_To_Claim;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2209: FND_MSG_PUB.add;
2210: END IF;
2208: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2209: FND_MSG_PUB.add;
2210: END IF;
2211: FND_MSG_PUB.Count_And_Get (
2212: p_encoded => FND_API.G_FALSE,
2213: p_count => x_msg_count,
2214: p_data => x_msg_data
2215: );
2216:
2215: );
2216:
2217: WHEN OTHERS THEN
2218: ROLLBACK TO Asso_Accruals_To_Claim;
2219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2222: FND_MSG_PUB.add;
2223: END IF;
2221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2222: FND_MSG_PUB.add;
2223: END IF;
2224: FND_MSG_PUB.Count_And_Get (
2225: p_encoded => FND_API.G_FALSE,
2226: p_count => x_msg_count,
2227: p_data => x_msg_data
2228: );
2229: END Asso_Accruals_To_Claim;
2247: -- NOTES
2248: ---------------------------------------------------------------------
2249: PROCEDURE Asso_Accruals_To_Claim_Line(
2250: p_api_version IN NUMBER
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2252: ,p_commit IN VARCHAR2 := FND_API.g_false
2253: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2254: ,x_return_status OUT NOCOPY VARCHAR2
2255: ,x_msg_data OUT NOCOPY VARCHAR2
2248: ---------------------------------------------------------------------
2249: PROCEDURE Asso_Accruals_To_Claim_Line(
2250: p_api_version IN NUMBER
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2252: ,p_commit IN VARCHAR2 := FND_API.g_false
2253: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2254: ,x_return_status OUT NOCOPY VARCHAR2
2255: ,x_msg_data OUT NOCOPY VARCHAR2
2256: ,x_msg_count OUT NOCOPY NUMBER
2249: PROCEDURE Asso_Accruals_To_Claim_Line(
2250: p_api_version IN NUMBER
2251: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2252: ,p_commit IN VARCHAR2 := FND_API.g_false
2253: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2254: ,x_return_status OUT NOCOPY VARCHAR2
2255: ,x_msg_data OUT NOCOPY VARCHAR2
2256: ,x_msg_count OUT NOCOPY NUMBER
2257: ,p_claim_line_id IN NUMBER
2270: OZF_Utility_PVT.debug_message(l_full_name||': start');
2271: END IF;
2272:
2273: -- Standard call to check for call compatibility.
2274: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2275: p_api_version,
2276: l_api_name,
2277: G_PKG_NAME ) THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2274: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2275: p_api_version,
2276: l_api_name,
2277: G_PKG_NAME ) THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;
2280:
2281: -- Initialize message list if p_init_msg_list is set to TRUE.
2282: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;
2280:
2281: -- Initialize message list if p_init_msg_list is set to TRUE.
2282: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2283: FND_MSG_PUB.initialize;
2284: END IF;
2285:
2286: -- Initialize API return status to SUCCESS
2283: FND_MSG_PUB.initialize;
2284: END IF;
2285:
2286: -- Initialize API return status to SUCCESS
2287: x_return_status := FND_API.G_RET_STS_SUCCESS;
2288:
2289: ------------------------------------------
2290: -- 1. Call OZF_CLAIM_ACCRUAL_PVT
2291: ------------------------------------------
2290: -- 1. Call OZF_CLAIM_ACCRUAL_PVT
2291: ------------------------------------------
2292: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
2293: p_api_version => l_api_version
2294: ,p_init_msg_list => FND_API.g_false
2295: ,p_commit => FND_API.g_false
2296: ,p_validation_level => FND_API.g_valid_level_full
2297:
2298: ,x_return_status => l_return_status
2291: ------------------------------------------
2292: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
2293: p_api_version => l_api_version
2294: ,p_init_msg_list => FND_API.g_false
2295: ,p_commit => FND_API.g_false
2296: ,p_validation_level => FND_API.g_valid_level_full
2297:
2298: ,x_return_status => l_return_status
2299: ,x_msg_count => x_msg_count
2292: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
2293: p_api_version => l_api_version
2294: ,p_init_msg_list => FND_API.g_false
2295: ,p_commit => FND_API.g_false
2296: ,p_validation_level => FND_API.g_valid_level_full
2297:
2298: ,x_return_status => l_return_status
2299: ,x_msg_count => x_msg_count
2300: ,x_msg_data => x_msg_data
2301:
2302: ,p_claim_line_id => p_claim_line_id
2303: ,p_run_mode =>'API' --added run mode to fix Bug 13418731 , while system is finding accruals for customer, it is checking for run_mode as not null, so it is passed
2304: );
2305: IF l_return_status = FND_API.g_ret_sts_error THEN
2306: RAISE FND_API.g_exc_error;
2307: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2302: ,p_claim_line_id => p_claim_line_id
2303: ,p_run_mode =>'API' --added run mode to fix Bug 13418731 , while system is finding accruals for customer, it is checking for run_mode as not null, so it is passed
2304: );
2305: IF l_return_status = FND_API.g_ret_sts_error THEN
2306: RAISE FND_API.g_exc_error;
2307: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2310:
2303: ,p_run_mode =>'API' --added run mode to fix Bug 13418731 , while system is finding accruals for customer, it is checking for run_mode as not null, so it is passed
2304: );
2305: IF l_return_status = FND_API.g_ret_sts_error THEN
2306: RAISE FND_API.g_exc_error;
2307: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2310:
2311: -- Standard check for p_commit
2304: );
2305: IF l_return_status = FND_API.g_ret_sts_error THEN
2306: RAISE FND_API.g_exc_error;
2307: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2310:
2311: -- Standard check for p_commit
2312: IF FND_API.to_Boolean(p_commit) THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2310:
2311: -- Standard check for p_commit
2312: IF FND_API.to_Boolean(p_commit) THEN
2313: COMMIT WORK;
2314: END IF;
2315:
2316: IF G_DEBUG THEN
2323: p_data => x_msg_data
2324: );
2325:
2326: EXCEPTION
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: FND_MSG_PUB.Count_And_Get (
2331: p_encoded => FND_API.G_FALSE,
2325:
2326: EXCEPTION
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: FND_MSG_PUB.Count_And_Get (
2331: p_encoded => FND_API.G_FALSE,
2332: p_count => x_msg_count,
2333: p_data => x_msg_data
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: FND_MSG_PUB.Count_And_Get (
2331: p_encoded => FND_API.G_FALSE,
2332: p_count => x_msg_count,
2333: p_data => x_msg_data
2334: );
2335:
2332: p_count => x_msg_count,
2333: p_data => x_msg_data
2334: );
2335:
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2334: );
2335:
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2341: FND_MSG_PUB.add;
2342: END IF;
2340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2341: FND_MSG_PUB.add;
2342: END IF;
2343: FND_MSG_PUB.Count_And_Get (
2344: p_encoded => FND_API.G_FALSE,
2345: p_count => x_msg_count,
2346: p_data => x_msg_data
2347: );
2348:
2347: );
2348:
2349: WHEN OTHERS THEN
2350: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2352: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2353: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2354: FND_MSG_PUB.add;
2355: END IF;
2353: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2354: FND_MSG_PUB.add;
2355: END IF;
2356: FND_MSG_PUB.Count_And_Get (
2357: p_encoded => FND_API.G_FALSE,
2358: p_count => x_msg_count,
2359: p_data => x_msg_data
2360: );
2361: END Asso_Accruals_To_Claim_Line;
2381: -- NOTES
2382: ---------------------------------------------------------------------
2383: PROCEDURE Create_Claim_For_Accruals(
2384: p_api_version IN NUMBER
2385: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2386: ,p_commit IN VARCHAR2 := FND_API.g_false
2387: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2388: ,x_return_status OUT NOCOPY VARCHAR2
2389: ,x_msg_data OUT NOCOPY VARCHAR2
2382: ---------------------------------------------------------------------
2383: PROCEDURE Create_Claim_For_Accruals(
2384: p_api_version IN NUMBER
2385: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2386: ,p_commit IN VARCHAR2 := FND_API.g_false
2387: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2388: ,x_return_status OUT NOCOPY VARCHAR2
2389: ,x_msg_data OUT NOCOPY VARCHAR2
2390: ,x_msg_count OUT NOCOPY NUMBER
2383: PROCEDURE Create_Claim_For_Accruals(
2384: p_api_version IN NUMBER
2385: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2386: ,p_commit IN VARCHAR2 := FND_API.g_false
2387: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2388: ,x_return_status OUT NOCOPY VARCHAR2
2389: ,x_msg_data OUT NOCOPY VARCHAR2
2390: ,x_msg_count OUT NOCOPY NUMBER
2391: ,p_claim_rec IN claim_rec_type
2409: OZF_Utility_PVT.debug_message(l_full_name||': start');
2410: END IF;
2411:
2412: -- Standard call to check for call compatibility.
2413: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2414: p_api_version,
2415: l_api_name,
2416: G_PKG_NAME ) THEN
2417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2413: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2414: p_api_version,
2415: l_api_name,
2416: G_PKG_NAME ) THEN
2417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2418: END IF;
2419:
2420: -- Initialize message list if p_init_msg_list is set to TRUE.
2421: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2417: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2418: END IF;
2419:
2420: -- Initialize message list if p_init_msg_list is set to TRUE.
2421: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2422: FND_MSG_PUB.initialize;
2423: END IF;
2424:
2425: -- Initialize API return status to SUCCESS
2422: FND_MSG_PUB.initialize;
2423: END IF;
2424:
2425: -- Initialize API return status to SUCCESS
2426: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427:
2428: ------------------------------------------
2429: -- 1. Default and derive column valude --
2430: ------------------------------------------
2530: END IF;
2531:
2532: OZF_Claim_Accrual_PVT.Create_Claim_For_Accruals(
2533: p_api_version => l_api_version
2534: ,p_init_msg_list => FND_API.g_false
2535: ,p_commit => FND_API.g_false
2536: ,p_validation_level => FND_API.g_valid_level_full
2537:
2538: ,x_return_status => l_return_status
2531:
2532: OZF_Claim_Accrual_PVT.Create_Claim_For_Accruals(
2533: p_api_version => l_api_version
2534: ,p_init_msg_list => FND_API.g_false
2535: ,p_commit => FND_API.g_false
2536: ,p_validation_level => FND_API.g_valid_level_full
2537:
2538: ,x_return_status => l_return_status
2539: ,x_msg_count => x_msg_count
2532: OZF_Claim_Accrual_PVT.Create_Claim_For_Accruals(
2533: p_api_version => l_api_version
2534: ,p_init_msg_list => FND_API.g_false
2535: ,p_commit => FND_API.g_false
2536: ,p_validation_level => FND_API.g_valid_level_full
2537:
2538: ,x_return_status => l_return_status
2539: ,x_msg_count => x_msg_count
2540: ,x_msg_data => x_msg_data
2543: ,p_funds_util_flt => l_funds_util_flt
2544:
2545: ,x_claim_id => x_claim_id
2546: );
2547: IF l_return_status = FND_API.g_ret_sts_error THEN
2548: RAISE FND_API.g_exc_error;
2549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2544:
2545: ,x_claim_id => x_claim_id
2546: );
2547: IF l_return_status = FND_API.g_ret_sts_error THEN
2548: RAISE FND_API.g_exc_error;
2549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2552:
2545: ,x_claim_id => x_claim_id
2546: );
2547: IF l_return_status = FND_API.g_ret_sts_error THEN
2548: RAISE FND_API.g_exc_error;
2549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2552:
2553: -- Standard check for p_commit
2546: );
2547: IF l_return_status = FND_API.g_ret_sts_error THEN
2548: RAISE FND_API.g_exc_error;
2549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2552:
2553: -- Standard check for p_commit
2554: IF FND_API.to_Boolean(p_commit) THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2552:
2553: -- Standard check for p_commit
2554: IF FND_API.to_Boolean(p_commit) THEN
2555: COMMIT WORK;
2556: END IF;
2557:
2558: IF G_DEBUG THEN
2565: p_data => x_msg_data
2566: );
2567:
2568: EXCEPTION
2569: WHEN FND_API.G_EXC_ERROR THEN
2570: ROLLBACK TO Create_Claim_For_Accruals;
2571: x_return_status := FND_API.G_RET_STS_ERROR;
2572: FND_MSG_PUB.Count_And_Get (
2573: p_encoded => FND_API.G_FALSE,
2567:
2568: EXCEPTION
2569: WHEN FND_API.G_EXC_ERROR THEN
2570: ROLLBACK TO Create_Claim_For_Accruals;
2571: x_return_status := FND_API.G_RET_STS_ERROR;
2572: FND_MSG_PUB.Count_And_Get (
2573: p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => x_msg_data
2569: WHEN FND_API.G_EXC_ERROR THEN
2570: ROLLBACK TO Create_Claim_For_Accruals;
2571: x_return_status := FND_API.G_RET_STS_ERROR;
2572: FND_MSG_PUB.Count_And_Get (
2573: p_encoded => FND_API.G_FALSE,
2574: p_count => x_msg_count,
2575: p_data => x_msg_data
2576: );
2577:
2574: p_count => x_msg_count,
2575: p_data => x_msg_data
2576: );
2577:
2578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579: ROLLBACK TO Create_Claim_For_Accruals;
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2582: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2576: );
2577:
2578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579: ROLLBACK TO Create_Claim_For_Accruals;
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2582: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2583: FND_MSG_PUB.add;
2584: END IF;
2582: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2583: FND_MSG_PUB.add;
2584: END IF;
2585: FND_MSG_PUB.Count_And_Get (
2586: p_encoded => FND_API.G_FALSE,
2587: p_count => x_msg_count,
2588: p_data => x_msg_data
2589: );
2590:
2589: );
2590:
2591: WHEN OTHERS THEN
2592: ROLLBACK TO Create_Claim_For_Accruals;
2593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2594: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2595: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2596: FND_MSG_PUB.add;
2597: END IF;
2595: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2596: FND_MSG_PUB.add;
2597: END IF;
2598: FND_MSG_PUB.Count_And_Get (
2599: p_encoded => FND_API.G_FALSE,
2600: p_count => x_msg_count,
2601: p_data => x_msg_data
2602: );
2603: END Create_Claim_For_Accruals;
2623: -- NOTES
2624: ---------------------------------------------------------------------
2625: PROCEDURE Pay_Claim_For_Accruals(
2626: p_api_version IN NUMBER
2627: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2628: ,p_commit IN VARCHAR2 := FND_API.g_false
2629: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2630: ,x_return_status OUT NOCOPY VARCHAR2
2631: ,x_msg_data OUT NOCOPY VARCHAR2
2624: ---------------------------------------------------------------------
2625: PROCEDURE Pay_Claim_For_Accruals(
2626: p_api_version IN NUMBER
2627: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2628: ,p_commit IN VARCHAR2 := FND_API.g_false
2629: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2630: ,x_return_status OUT NOCOPY VARCHAR2
2631: ,x_msg_data OUT NOCOPY VARCHAR2
2632: ,x_msg_count OUT NOCOPY NUMBER
2625: PROCEDURE Pay_Claim_For_Accruals(
2626: p_api_version IN NUMBER
2627: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
2628: ,p_commit IN VARCHAR2 := FND_API.g_false
2629: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
2630: ,x_return_status OUT NOCOPY VARCHAR2
2631: ,x_msg_data OUT NOCOPY VARCHAR2
2632: ,x_msg_count OUT NOCOPY NUMBER
2633: ,p_claim_rec IN claim_rec_type
2651: OZF_Utility_PVT.debug_message(l_full_name||': start');
2652: END IF;
2653:
2654: -- Standard call to check for call compatibility.
2655: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2656: p_api_version,
2657: l_api_name,
2658: G_PKG_NAME ) THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2655: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2656: p_api_version,
2657: l_api_name,
2658: G_PKG_NAME ) THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: END IF;
2661:
2662: -- Initialize message list if p_init_msg_list is set to TRUE.
2663: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: END IF;
2661:
2662: -- Initialize message list if p_init_msg_list is set to TRUE.
2663: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2664: FND_MSG_PUB.initialize;
2665: END IF;
2666:
2667: -- Initialize API return status to SUCCESS
2664: FND_MSG_PUB.initialize;
2665: END IF;
2666:
2667: -- Initialize API return status to SUCCESS
2668: x_return_status := FND_API.G_RET_STS_SUCCESS;
2669:
2670: ------------------------------------------
2671: -- 1. Default and derive column valude --
2672: ------------------------------------------
2767: -- 2. Call OZF_CLAIM_ACCRUAL_PVT
2768: ------------------------------------------
2769: OZF_Claim_Accrual_PVT.Pay_Claim_For_Accruals(
2770: p_api_version => l_api_version
2771: ,p_init_msg_list => FND_API.g_false
2772: ,p_commit => FND_API.g_false
2773: ,p_validation_level => FND_API.g_valid_level_full
2774:
2775: ,x_return_status => l_return_status
2768: ------------------------------------------
2769: OZF_Claim_Accrual_PVT.Pay_Claim_For_Accruals(
2770: p_api_version => l_api_version
2771: ,p_init_msg_list => FND_API.g_false
2772: ,p_commit => FND_API.g_false
2773: ,p_validation_level => FND_API.g_valid_level_full
2774:
2775: ,x_return_status => l_return_status
2776: ,x_msg_count => x_msg_count
2769: OZF_Claim_Accrual_PVT.Pay_Claim_For_Accruals(
2770: p_api_version => l_api_version
2771: ,p_init_msg_list => FND_API.g_false
2772: ,p_commit => FND_API.g_false
2773: ,p_validation_level => FND_API.g_valid_level_full
2774:
2775: ,x_return_status => l_return_status
2776: ,x_msg_count => x_msg_count
2777: ,x_msg_data => x_msg_data
2780: ,p_funds_util_flt => l_funds_util_flt
2781:
2782: ,x_claim_id => x_claim_id
2783: );
2784: IF l_return_status = FND_API.g_ret_sts_error THEN
2785: RAISE FND_API.g_exc_error;
2786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2781:
2782: ,x_claim_id => x_claim_id
2783: );
2784: IF l_return_status = FND_API.g_ret_sts_error THEN
2785: RAISE FND_API.g_exc_error;
2786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2789:
2782: ,x_claim_id => x_claim_id
2783: );
2784: IF l_return_status = FND_API.g_ret_sts_error THEN
2785: RAISE FND_API.g_exc_error;
2786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2789:
2790: -- Standard check for p_commit
2783: );
2784: IF l_return_status = FND_API.g_ret_sts_error THEN
2785: RAISE FND_API.g_exc_error;
2786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2789:
2790: -- Standard check for p_commit
2791: IF FND_API.to_Boolean(p_commit) THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2789:
2790: -- Standard check for p_commit
2791: IF FND_API.to_Boolean(p_commit) THEN
2792: COMMIT WORK;
2793: END IF;
2794:
2795: IF G_DEBUG THEN
2802: p_data => x_msg_data
2803: );
2804:
2805: EXCEPTION
2806: WHEN FND_API.G_EXC_ERROR THEN
2807: ROLLBACK TO Pay_Claim_For_Accruals;
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MSG_PUB.Count_And_Get (
2810: p_encoded => FND_API.G_FALSE,
2804:
2805: EXCEPTION
2806: WHEN FND_API.G_EXC_ERROR THEN
2807: ROLLBACK TO Pay_Claim_For_Accruals;
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MSG_PUB.Count_And_Get (
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data
2806: WHEN FND_API.G_EXC_ERROR THEN
2807: ROLLBACK TO Pay_Claim_For_Accruals;
2808: x_return_status := FND_API.G_RET_STS_ERROR;
2809: FND_MSG_PUB.Count_And_Get (
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data
2813: );
2814:
2811: p_count => x_msg_count,
2812: p_data => x_msg_data
2813: );
2814:
2815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2816: ROLLBACK TO Pay_Claim_For_Accruals;
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2819: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2813: );
2814:
2815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2816: ROLLBACK TO Pay_Claim_For_Accruals;
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2819: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2820: FND_MSG_PUB.add;
2821: END IF;
2819: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2820: FND_MSG_PUB.add;
2821: END IF;
2822: FND_MSG_PUB.Count_And_Get (
2823: p_encoded => FND_API.G_FALSE,
2824: p_count => x_msg_count,
2825: p_data => x_msg_data
2826: );
2827:
2826: );
2827:
2828: WHEN OTHERS THEN
2829: ROLLBACK TO Pay_Claim_For_Accruals;
2830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2832: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2833: FND_MSG_PUB.add;
2834: END IF;
2832: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2833: FND_MSG_PUB.add;
2834: END IF;
2835: FND_MSG_PUB.Count_And_Get (
2836: p_encoded => FND_API.G_FALSE,
2837: p_count => x_msg_count,
2838: p_data => x_msg_data
2839: );
2840: END Pay_Claim_For_Accruals;
2859: ---------------------------------------------------------------------
2860:
2861: PROCEDURE Create_split_claims(
2862: p_api_version IN NUMBER
2863: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2864: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2865: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2866: , x_return_status OUT NOCOPY VARCHAR2
2867: , x_msg_data OUT NOCOPY VARCHAR2
2860:
2861: PROCEDURE Create_split_claims(
2862: p_api_version IN NUMBER
2863: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2864: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2865: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2866: , x_return_status OUT NOCOPY VARCHAR2
2867: , x_msg_data OUT NOCOPY VARCHAR2
2868: , x_msg_count OUT NOCOPY NUMBER
2861: PROCEDURE Create_split_claims(
2862: p_api_version IN NUMBER
2863: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2864: , p_commit IN VARCHAR2 := FND_API.G_FALSE
2865: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2866: , x_return_status OUT NOCOPY VARCHAR2
2867: , x_msg_data OUT NOCOPY VARCHAR2
2868: , x_msg_count OUT NOCOPY NUMBER
2869: , p_parent_claim_id IN NUMBER
2918: -- Standard Start of API savepoint
2919: SAVEPOINT Create_split_claims;
2920:
2921: -- Standard call to check for call compatibility.
2922: IF NOT FND_API.Compatible_API_Call ( l_api_version
2923: , p_api_version
2924: , l_api_name
2925: , G_PKG_NAME
2926: )
2924: , l_api_name
2925: , G_PKG_NAME
2926: )
2927: THEN
2928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2929: END IF;
2930:
2931: IF G_DEBUG THEN
2932: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' start');
2933: END IF;
2934:
2935: -- Initialize message list if p_init_msg_list is set to TRUE.
2936:
2937: IF FND_API.to_Boolean( p_init_msg_list )
2938: THEN
2939: FND_MSG_PUB.initialize;
2940: END IF;
2941:
2939: FND_MSG_PUB.initialize;
2940: END IF;
2941:
2942: -- Initialize API return status to SUCCESS
2943: x_return_status := FND_API.G_RET_STS_SUCCESS;
2944:
2945: --//API Body
2946: --========================================================================
2947:
2946: --========================================================================
2947:
2948: --//Validations
2949: --//Parent claim Id validation
2950: IF p_parent_claim_id = FND_API.g_miss_num OR p_parent_claim_id IS NULL THEN
2951: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2952: FND_MESSAGE.Set_Name('OZF','OZF_NO_CLAIM_ID');
2953: FND_MSG_PUB.Add;
2954: END IF;
2951: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2952: FND_MESSAGE.Set_Name('OZF','OZF_NO_CLAIM_ID');
2953: FND_MSG_PUB.Add;
2954: END IF;
2955: RAISE FND_API.G_EXC_ERROR;
2956: ELSE
2957: OPEN parent_claim_id_csr(p_parent_claim_id);
2958: FETCH parent_claim_id_csr INTO l_claim_id,l_parent_objver_no,l_status_code,l_amount_remaining;
2959: CLOSE parent_claim_id_csr;
2962: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2963: FND_MESSAGE.Set_Name('OZF','OZF_INVALID_CLAIM_ID');
2964: FND_MSG_PUB.Add;
2965: END IF;
2966: RAISE FND_API.G_EXC_ERROR;
2967: END IF;
2968: END IF;
2969:
2970: IF l_status_code <> 'OPEN' THEN
2971: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2972: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_WRONG_SPLIT_STATUS');
2973: FND_MSG_PUB.Add;
2974: END IF;
2975: RAISE FND_API.G_EXC_ERROR;
2976: END IF;
2977:
2978: --//Parent amount and child amount validations
2979: IF px_child_claim_tbl.COUNT > 0 THEN
2986: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLT_NG_NOPM');
2987: --//Failed to split the claim: The amount of deduction or claim should be positive after the split.
2988: FND_MSG_PUB.Add;
2989: END IF;
2990: RAISE FND_API.G_EXC_ERROR;
2991: END IF;
2992: END IF;
2993:
2994: --//Child claim table validations.
2994: --//Child claim table validations.
2995: IF px_child_claim_tbl.COUNT > 0 THEN
2996: FOR i IN px_child_claim_tbl.FIRST..px_child_claim_tbl.LAST
2997: LOOP
2998: IF px_child_claim_tbl(i).amount = FND_API.g_miss_num OR px_child_claim_tbl(i).amount IS NULL THEN
2999: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3000: FND_MESSAGE.Set_Name('OZF','OZF_NO_SPLIT_CLAIM_AMT');
3001: --//Split amount is mandatory to create a split claim.
3002: FND_MSG_PUB.Add;
3000: FND_MESSAGE.Set_Name('OZF','OZF_NO_SPLIT_CLAIM_AMT');
3001: --//Split amount is mandatory to create a split claim.
3002: FND_MSG_PUB.Add;
3003: END IF;
3004: RAISE FND_API.G_EXC_ERROR;
3005: END IF;
3006:
3007:
3008: --//Claim type Validation
3005: END IF;
3006:
3007:
3008: --//Claim type Validation
3009: IF px_child_claim_tbl(i).claim_type_id <> FND_API.g_miss_num AND px_child_claim_tbl(i).claim_type_id IS NOT NULL THEN
3010: OPEN claim_type_id_csr(px_child_claim_tbl(i).claim_type_id);
3011: FETCH claim_type_id_csr INTO l_claim_type;
3012: CLOSE claim_type_id_csr;
3013:
3015: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3016: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
3017: FND_MSG_PUB.Add;
3018: END IF;
3019: RAISE FND_API.G_EXC_ERROR;
3020: END IF;
3021: END IF;
3022:
3023: --//Claim Reason Validation
3020: END IF;
3021: END IF;
3022:
3023: --//Claim Reason Validation
3024: IF px_child_claim_tbl(i).reason_code_id <> FND_API.g_miss_num AND px_child_claim_tbl(i).reason_code_id IS NOT NULL THEN
3025: OPEN reason_code_id_csr(px_child_claim_tbl(i).reason_code_id);
3026: FETCH reason_code_id_csr INTO l_claim_reason;
3027: CLOSE reason_code_id_csr;
3028:
3030: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3031: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_NOT_IN_DB');
3032: FND_MSG_PUB.Add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3036: END IF;
3037:
3038: --//Claim Lines validation
3060: FND_MESSAGE.set_token('CLAIMLINEID', px_child_claim_tbl(i).claim_line_id_tbl(j).claim_line_id, false);
3061: --//Claim line id (l_claim_line_tbl(j).claim_line_id ) provided is invalid. Please enter a valid claim line id.
3062: FND_MSG_PUB.Add;
3063: END IF;
3064: RAISE FND_API.G_EXC_ERROR;
3065: ELSE
3066: l_line_table := l_line_table ||','|| l_claim_line_id;
3067: l_line_sum_amount := NVL(l_line_sum_amount,0) + l_amount;
3068: END IF;
3076: FND_MESSAGE.set_token('AMOUNT', px_child_claim_tbl(i).amount, false);
3077: FND_MESSAGE.set_token('LINEAMOUNT', l_line_sum_amount, false);
3078: FND_MSG_PUB.Add;
3079: END IF;
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF;
3082:
3083: l_line_table := TRIM(BOTH ',' FROM l_line_table);
3084:
3102: , p_mode => 'AUTO'
3103: );
3104:
3105: -- Check return status from the above procedure call
3106: IF x_return_status = FND_API.G_RET_STS_ERROR then
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3103: );
3104:
3105: -- Check return status from the above procedure call
3106: IF x_return_status = FND_API.G_RET_STS_ERROR then
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3104:
3105: -- Check return status from the above procedure call
3106: IF x_return_status = FND_API.G_RET_STS_ERROR then
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3112: FOR k IN px_child_claim_tbl.FIRST..px_child_claim_tbl.LAST LOOP
3105: -- Check return status from the above procedure call
3106: IF x_return_status = FND_API.G_RET_STS_ERROR then
3107: RAISE FND_API.G_EXC_ERROR;
3108: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: END IF;
3111:
3112: FOR k IN px_child_claim_tbl.FIRST..px_child_claim_tbl.LAST LOOP
3113: px_child_claim_tbl(k).split_claim_id := l_child_claim_tbl(k).child_claim_id;
3117: FND_MESSAGE.Set_Name('OZF','OZF_NO_SPLIT_CLAIM_AMT');
3118: --//Split amount is mandatory to create a split claim.
3119: FND_MSG_PUB.Add;
3120: END IF;
3121: RAISE FND_API.G_EXC_ERROR;
3122: END IF;
3123:
3124: --========================================================================
3125: --// Commit the process
3126: IF G_DEBUG THEN
3127: OZF_UTILITY_PVT.debug_message('Public API: '|| l_api_name||' End');
3128: END IF;
3129:
3130: IF FND_API.to_Boolean( p_commit ) THEN
3131: COMMIT WORK;
3132: END IF;
3133:
3134: -- Standard call to get message count and if count is 1, get message info.
3131: COMMIT WORK;
3132: END IF;
3133:
3134: -- Standard call to get message count and if count is 1, get message info.
3135: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3136: , p_count => x_msg_count
3137: , p_data => x_msg_data
3138: );
3139:
3137: , p_data => x_msg_data
3138: );
3139:
3140: EXCEPTION
3141: WHEN FND_API.G_EXC_ERROR THEN
3142: ROLLBACK TO Create_split_claims;
3143: x_return_status := FND_API.G_RET_STS_ERROR;
3144: -- Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3139:
3140: EXCEPTION
3141: WHEN FND_API.G_EXC_ERROR THEN
3142: ROLLBACK TO Create_split_claims;
3143: x_return_status := FND_API.G_RET_STS_ERROR;
3144: -- Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3146: , p_count => x_msg_count
3147: , p_data => x_msg_data
3141: WHEN FND_API.G_EXC_ERROR THEN
3142: ROLLBACK TO Create_split_claims;
3143: x_return_status := FND_API.G_RET_STS_ERROR;
3144: -- Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3146: , p_count => x_msg_count
3147: , p_data => x_msg_data
3148: );
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3146: , p_count => x_msg_count
3147: , p_data => x_msg_data
3148: );
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: ROLLBACK TO Create_split_claims;
3151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3152: -- Standard call to get message count and if count=1, get the message
3153: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3147: , p_data => x_msg_data
3148: );
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: ROLLBACK TO Create_split_claims;
3151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3152: -- Standard call to get message count and if count=1, get the message
3153: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3154: , p_count => x_msg_count
3155: , p_data => x_msg_data
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: ROLLBACK TO Create_split_claims;
3151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3152: -- Standard call to get message count and if count=1, get the message
3153: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3154: , p_count => x_msg_count
3155: , p_data => x_msg_data
3156: );
3157: WHEN OTHERS THEN
3155: , p_data => x_msg_data
3156: );
3157: WHEN OTHERS THEN
3158: ROLLBACK TO Create_split_claims;
3159: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3160: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3161: THEN
3162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3163: END IF;
3161: THEN
3162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3163: END IF;
3164: -- Standard call to get message count and if count=1, get the message
3165: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3166: , p_count => x_msg_count
3167: , p_data => x_msg_data
3168: );
3169: End Create_split_claims;
3187: -- 09/19/2011 BKUNJAN Created for ER 12985686
3188: ---------------------------------------------------------------------
3189: PROCEDURE Create_event(
3190: p_api_version_number IN NUMBER,
3191: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3192: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3193: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3194: x_return_status OUT NOCOPY VARCHAR2,
3195: x_msg_count OUT NOCOPY NUMBER,
3188: ---------------------------------------------------------------------
3189: PROCEDURE Create_event(
3190: p_api_version_number IN NUMBER,
3191: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3192: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3193: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3194: x_return_status OUT NOCOPY VARCHAR2,
3195: x_msg_count OUT NOCOPY NUMBER,
3196: x_msg_data OUT NOCOPY VARCHAR2,
3189: PROCEDURE Create_event(
3190: p_api_version_number IN NUMBER,
3191: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3192: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3193: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
3194: x_return_status OUT NOCOPY VARCHAR2,
3195: x_msg_count OUT NOCOPY NUMBER,
3196: x_msg_data OUT NOCOPY VARCHAR2,
3197: p_claim_id IN NUMBER,
3285: BEGIN
3286: -- Standard Start of API savepoint
3287: SAVEPOINT Create_event;
3288: -- Standard call to check for call compatibility.
3289: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3290: p_api_version_number,
3291: l_api_name,
3292: G_PKG_NAME)
3293: THEN
3290: p_api_version_number,
3291: l_api_name,
3292: G_PKG_NAME)
3293: THEN
3294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE.
3298: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE.
3298: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3299: FND_MSG_PUB.initialize;
3300: END IF;
3301:
3302: -- Debug Message
3304: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || ' start');
3305: END IF;
3306:
3307: -- Initialize API return status to SUCCESS
3308: x_return_status := FND_API.G_RET_STS_SUCCESS;
3309:
3310: --//API Body
3311: --========================================================================
3312: IF G_DEBUG THEN
3333: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CLAIM_ID');
3334: --//Invalid Claim Id. Please provide a valid Claim ID
3335: FND_MSG_PUB.add;
3336: END IF;
3337: x_return_status := fnd_api.g_ret_sts_error;
3338: RETURN;
3339: END IF;
3340:
3341: IF l_status_code NOT IN ('PENDING_CLOSE','CLOSED') THEN
3343: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_STATUS_CODE');
3344: --//Claim status should be Pending Close or Closed to create SLA event
3345: FND_MSG_PUB.add;
3346: END IF;
3347: x_return_status := fnd_api.g_ret_sts_error;
3348: RETURN;
3349: END IF;
3350:
3351: --//Validate event type code with claim payment method.
3368: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_EVENT_TYPE');
3369: --// Please use correct event type code for this settlement method.
3370: FND_MSG_PUB.add;
3371: END IF;
3372: x_return_status := fnd_api.g_ret_sts_error;
3373: RETURN;
3374: IF G_DEBUG THEN
3375: OZF_UTILITY_PVT.debug_message('l_settle_method_match FALSE');
3376: END IF;
3399: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_EVENT_TYPE');
3400: --// Please use correct event type code for this settlement method.
3401: FND_MSG_PUB.add;
3402: END IF;
3403: x_return_status := fnd_api.g_ret_sts_error;
3404: RETURN;
3405: END IF;
3406:
3407: --//Event type code validations
3414: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_EVENT_TYPE_CODE');
3415: --//Event type code provided is invalid.Please provide a valid event type code.
3416: FND_MSG_PUB.add;
3417: END IF;
3418: x_return_status := fnd_api.g_ret_sts_error;
3419: RETURN;
3420: END IF;
3421:
3422: OPEN claim_gl_posting_csr(p_claim_id);
3432: FND_MESSAGE.set_name('OZF', 'OZF_BAD_POST_TO_GL');
3433: --//Invalid Post to GL flag.
3434: FND_MSG_PUB.add;
3435: END IF;
3436: x_return_status := fnd_api.g_ret_sts_error;
3437: RETURN;
3438: END IF;
3439:
3440:
3448: FND_MESSAGE.set_name('OZF', 'OZF_PROMO_CLAIM_REQD');
3449: --//Only promotional claims are eligible to create SLA event.
3450: FND_MSG_PUB.add;
3451: END IF;
3452: x_return_status := fnd_api.g_ret_sts_error;
3453: RETURN;
3454: END IF;
3455:
3456: IF NVL(p_reversal_flag,'N') NOT IN ('Y','N') THEN
3458: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_REVERSAL_FLAG');
3459: --//Value of Reversal flag provided is invalid.Please provide a valid value.
3460: FND_MSG_PUB.add;
3461: END IF;
3462: x_return_status := fnd_api.g_ret_sts_error;
3463: RETURN;
3464: END IF;
3465:
3466: IF p_event_type_code = 'CLAIM_SETTLEMENT_REVERSAL' AND NVL(p_reversal_flag,'N') <> 'Y' THEN
3468: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_RV_FLAG_FOR_EVT');
3469: --// Reversal flag should be Y for event type code CLAIM_SETTLEMENT_REVERSAL.
3470: FND_MSG_PUB.add;
3471: END IF;
3472: x_return_status := fnd_api.g_ret_sts_error;
3473: RETURN;
3474: END IF;
3475:
3476:
3487: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_REV_EVENT_TYPE');
3488: --// Please use correct event type code for reversal event.
3489: FND_MSG_PUB.add;
3490: END IF;
3491: x_return_status := fnd_api.g_ret_sts_error;
3492: RETURN;
3493: END IF;
3494:
3495: --//If reversal_flag is Y, check if the Reversal Event Class is same as Event Class for parent claim event.
3508: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_EVENT_MISMATCH');
3509: --// Reversal Event should be passed for the same Event Class as parent event.
3510: FND_MSG_PUB.add;
3511: END IF;
3512: x_return_status := fnd_api.g_ret_sts_error;
3513: RETURN;
3514: END IF;
3515: END IF;
3516:
3536: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3537: --//SLA event is already created for this Claim.
3538: FND_MSG_PUB.add;
3539: END IF;
3540: x_return_status := fnd_api.g_ret_sts_error;
3541: RETURN;
3542: END IF;
3543:
3544: IF l_claim_event_tbl.COUNT = 2 THEN
3547: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3548: --//SLA event is already created for this Claim.
3549: FND_MSG_PUB.add;
3550: END IF;
3551: x_return_status := fnd_api.g_ret_sts_error;
3552: RETURN;
3553:
3554: ELSIF l_claim_event_tbl(2).event_count <> l_claim_event_tbl(1).event_count AND NVL(p_reversal_flag,'N') <> 'Y' THEN
3555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3556: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3557: --//SLA event is already created for this Claim.
3558: FND_MSG_PUB.add;
3559: END IF;
3560: x_return_status := fnd_api.g_ret_sts_error;
3561: RETURN;
3562: END IF;
3563: END IF;
3564: ELSE
3567: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_REVERSAL_EVENT');
3568: --//You cannot create first event of a claim as Reversal event.
3569: FND_MSG_PUB.add;
3570: END IF;
3571: x_return_status := fnd_api.g_ret_sts_error;
3572: RETURN;
3573: END IF;
3574: END IF;
3575:
3575:
3576: --//Invoke API to create Claim SLA Event
3577: OZF_GL_INTERFACE_PVT.Create_SLA_Claim_Extract(
3578: p_api_version => 1.0
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_data => x_msg_data
3576: --//Invoke API to create Claim SLA Event
3577: OZF_GL_INTERFACE_PVT.Create_SLA_Claim_Extract(
3578: p_api_version => 1.0
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_data => x_msg_data
3584: ,x_msg_count => x_msg_count
3577: OZF_GL_INTERFACE_PVT.Create_SLA_Claim_Extract(
3578: p_api_version => 1.0
3579: ,p_init_msg_list => FND_API.G_FALSE
3580: ,p_commit => FND_API.G_FALSE
3581: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3582: ,x_return_status => x_return_status
3583: ,x_msg_data => x_msg_data
3584: ,x_msg_count => x_msg_count
3585: ,p_claim_id => p_claim_id
3587: ,p_gl_rec => l_gl_rec --ER 14297905
3588: ,x_xla_event_id => x_event_id
3589: );
3590:
3591: IF x_return_status = FND_API.g_ret_sts_error THEN
3592: RAISE FND_API.g_exc_error;
3593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3594: RAISE FND_API.g_exc_unexpected_error;
3595: END IF;
3588: ,x_xla_event_id => x_event_id
3589: );
3590:
3591: IF x_return_status = FND_API.g_ret_sts_error THEN
3592: RAISE FND_API.g_exc_error;
3593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3594: RAISE FND_API.g_exc_unexpected_error;
3595: END IF;
3596:
3589: );
3590:
3591: IF x_return_status = FND_API.g_ret_sts_error THEN
3592: RAISE FND_API.g_exc_error;
3593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3594: RAISE FND_API.g_exc_unexpected_error;
3595: END IF;
3596:
3597:
3590:
3591: IF x_return_status = FND_API.g_ret_sts_error THEN
3592: RAISE FND_API.g_exc_error;
3593: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3594: RAISE FND_API.g_exc_unexpected_error;
3595: END IF;
3596:
3597:
3598: --========================================================================
3600: IF G_DEBUG THEN
3601:
3602: OZF_UTILITY_PVT.debug_message('Public API: '|| l_api_name||' End');
3603: END IF;
3604: IF FND_API.to_Boolean( p_commit )
3605: THEN
3606: COMMIT WORK;
3607: END IF;
3608:
3606: COMMIT WORK;
3607: END IF;
3608:
3609: FND_MSG_PUB.Count_And_Get (
3610: p_encoded => FND_API.G_FALSE,
3611: p_count => x_msg_count,
3612: p_data => x_msg_data
3613: );
3614:
3612: p_data => x_msg_data
3613: );
3614:
3615: EXCEPTION
3616: WHEN FND_API.G_EXC_ERROR THEN
3617: ROLLBACK TO Create_event;
3618: x_return_status := FND_API.G_RET_STS_ERROR;
3619: -- Standard call to get message count and if count=1, get the message
3620: FND_MSG_PUB.Count_And_Get (
3614:
3615: EXCEPTION
3616: WHEN FND_API.G_EXC_ERROR THEN
3617: ROLLBACK TO Create_event;
3618: x_return_status := FND_API.G_RET_STS_ERROR;
3619: -- Standard call to get message count and if count=1, get the message
3620: FND_MSG_PUB.Count_And_Get (
3621: p_encoded => FND_API.G_FALSE,
3622: p_count => x_msg_count,
3617: ROLLBACK TO Create_event;
3618: x_return_status := FND_API.G_RET_STS_ERROR;
3619: -- Standard call to get message count and if count=1, get the message
3620: FND_MSG_PUB.Count_And_Get (
3621: p_encoded => FND_API.G_FALSE,
3622: p_count => x_msg_count,
3623: p_data => x_msg_data
3624: );
3625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3621: p_encoded => FND_API.G_FALSE,
3622: p_count => x_msg_count,
3623: p_data => x_msg_data
3624: );
3625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3626: ROLLBACK TO Create_event;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: -- Standard call to get message count and if count=1, get the message
3629: FND_MSG_PUB.Count_And_Get (
3623: p_data => x_msg_data
3624: );
3625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3626: ROLLBACK TO Create_event;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: -- Standard call to get message count and if count=1, get the message
3629: FND_MSG_PUB.Count_And_Get (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3626: ROLLBACK TO Create_event;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: -- Standard call to get message count and if count=1, get the message
3629: FND_MSG_PUB.Count_And_Get (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3632: p_data => x_msg_data
3633: );
3634: WHEN OTHERS THEN
3632: p_data => x_msg_data
3633: );
3634: WHEN OTHERS THEN
3635: ROLLBACK TO Create_event;
3636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3637: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3639: END IF;
3640: -- Standard call to get message count and if count=1, get the message
3638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3639: END IF;
3640: -- Standard call to get message count and if count=1, get the message
3641: FND_MSG_PUB.Count_And_Get (
3642: p_encoded => FND_API.G_FALSE,
3643: p_count => x_msg_count,
3644: p_data => x_msg_data
3645: );
3646: End Create_event;