[Home] [Help]
34: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
35:
36: PROCEDURE Create_Claims_Int(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41:
42: x_return_status OUT NOCOPY VARCHAR2,
35:
36: PROCEDURE Create_Claims_Int(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41:
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
36: PROCEDURE Create_Claims_Int(
37: p_api_version_number IN NUMBER,
38: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
39: p_commit IN VARCHAR2 := FND_API.G_FALSE,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41:
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
44: x_msg_data OUT NOCOPY VARCHAR2,
51: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Claims_Int';
52: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
53: l_return_status_full VARCHAR2(1);
54: l_object_version_number NUMBER := 1;
55: l_org_id NUMBER := FND_API.G_MISS_NUM;
56: l_INTERFACE_CLAIM_ID NUMBER;
57: l_dummy NUMBER;
58:
59: --Added for 7290916
72: -- Standard Start of API savepoint
73: SAVEPOINT CREATE_Claims_Int_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
77: p_api_version_number,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
86: THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89:
92: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
93: END IF;
94:
95: -- Initialize API return status to SUCCESS
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Local variable initialization
99: IF p_claims_int_rec.INTERFACE_CLAIM_ID IS NULL OR
100: p_claims_int_rec.INTERFACE_CLAIM_ID = FND_API.g_miss_num
96: x_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Local variable initialization
99: IF p_claims_int_rec.INTERFACE_CLAIM_ID IS NULL OR
100: p_claims_int_rec.INTERFACE_CLAIM_ID = FND_API.g_miss_num
101: THEN
102: LOOP
103: l_dummy := NULL;
104: OPEN c_id;
124: -- =========================================================================
125: IF FND_GLOBAL.User_Id IS NULL
126: THEN
127: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
132: THEN
127: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
132: THEN
133: -- Debug message
134: IF OZF_DEBUG_HIGH_ON THEN
135: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');
138: --Added for 7290916
139: -- Invoke validation procedures
140: Validate_claims_int(
141: p_api_version_number => 1.0,
142: p_init_msg_list => FND_API.G_FALSE,
143: p_validation_level => p_validation_level,
144: p_claims_int_rec => l_claim_int_rec,
145: x_return_status => x_return_status,
146: x_msg_count => x_msg_count,
146: x_msg_count => x_msg_count,
147: x_msg_data => x_msg_data);
148: END IF;
149:
150: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
151: RAISE FND_API.G_EXC_ERROR;
152: END IF;
153:
154: -- Debug Message
147: x_msg_data => x_msg_data);
148: END IF;
149:
150: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
151: RAISE FND_API.G_EXC_ERROR;
152: END IF;
153:
154: -- Debug Message
155: IF OZF_DEBUG_HIGH_ON THEN
285: px_org_id => l_org_id,
286: p_customer_reason => p_claims_int_rec.customer_reason,
287: p_ship_to_cust_account_id => p_claims_int_rec.ship_to_cust_account_id
288: );
289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
292: --
293: -- End of API body
286: p_customer_reason => p_claims_int_rec.customer_reason,
287: p_ship_to_cust_account_id => p_claims_int_rec.ship_to_cust_account_id
288: );
289: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
292: --
293: -- End of API body
294: --
293: -- End of API body
294: --
295:
296: -- Standard check for p_commit
297: IF FND_API.to_Boolean( p_commit )
298: THEN
299: COMMIT WORK;
300: END IF;
301:
310: p_data => x_msg_data
311: );
312: EXCEPTION
313: WHEN OZF_Utility_PVT.resource_locked THEN
314: x_return_status := FND_API.g_ret_sts_error;
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
312: EXCEPTION
313: WHEN OZF_Utility_PVT.resource_locked THEN
314: x_return_status := FND_API.g_ret_sts_error;
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
314: x_return_status := FND_API.g_ret_sts_error;
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message
320: FND_MSG_PUB.Count_And_Get (
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
323: p_data => x_msg_data
324: );
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321: p_encoded => FND_API.G_FALSE,
322: p_count => x_msg_count,
323: p_data => x_msg_data
324: );
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: ROLLBACK TO CREATE_Claims_Int_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: -- Standard call to get message count and if count=1, get the message
329: FND_MSG_PUB.Count_And_Get (
323: p_data => x_msg_data
324: );
325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
326: ROLLBACK TO CREATE_Claims_Int_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: -- Standard call to get message count and if count=1, get the message
329: FND_MSG_PUB.Count_And_Get (
330: p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
326: ROLLBACK TO CREATE_Claims_Int_PVT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328: -- Standard call to get message count and if count=1, get the message
329: FND_MSG_PUB.Count_And_Get (
330: p_encoded => FND_API.G_FALSE,
331: p_count => x_msg_count,
332: p_data => x_msg_data
333: );
334: WHEN OTHERS THEN
332: p_data => x_msg_data
333: );
334: WHEN OTHERS THEN
335: ROLLBACK TO CREATE_Claims_Int_PVT;
336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
340: END IF;
339: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
340: END IF;
341: -- Standard call to get message count and if count=1, get the message
342: FND_MSG_PUB.Count_And_Get (
343: p_encoded => FND_API.G_FALSE,
344: p_count => x_msg_count,
345: p_data => x_msg_data
346: );
347: End Create_Claims_Int;
347: End Create_Claims_Int;
348:
349: PROCEDURE Update_Claims_Int(
350: p_api_version_number IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
348:
349: PROCEDURE Update_Claims_Int(
350: p_api_version_number IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
356: x_msg_count OUT NOCOPY NUMBER,
349: PROCEDURE Update_Claims_Int(
350: p_api_version_number IN NUMBER,
351: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
352: p_commit IN VARCHAR2 := FND_API.G_FALSE,
353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
354:
355: x_return_status OUT NOCOPY VARCHAR2,
356: x_msg_count OUT NOCOPY NUMBER,
357: x_msg_data OUT NOCOPY VARCHAR2,
379: -- Standard Start of API savepoint
380: SAVEPOINT UPDATE_Claims_Int_PVT;
381:
382: -- Standard call to check for call compatibility.
383: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
384: p_api_version_number,
385: l_api_name,
386: G_PKG_NAME)
387: THEN
384: p_api_version_number,
385: l_api_name,
386: G_PKG_NAME)
387: THEN
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: END IF;
390:
391: -- Initialize message list if p_init_msg_list is set to TRUE.
392: IF FND_API.to_Boolean( p_init_msg_list )
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: END IF;
390:
391: -- Initialize message list if p_init_msg_list is set to TRUE.
392: IF FND_API.to_Boolean( p_init_msg_list )
393: THEN
394: FND_MSG_PUB.initialize;
395: END IF;
396:
399: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
400: END IF;
401:
402: -- Initialize API return status to SUCCESS
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404:
405: -- Debug Message
406: IF OZF_DEBUG_HIGH_ON THEN
407: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
413: FETCH c_get_Claims_Int INTO l_ref_claims_int_rec ;
414:
415: If ( c_get_Claims_Int%NOTFOUND) THEN
416: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RECORD_NOT_FOUND');
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419: -- Debug Message
420: IF OZF_DEBUG_HIGH_ON THEN
421: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
423: CLOSE c_get_Claims_Int;
424: */
425:
426: IF (l_tar_claims_int_rec.object_version_number IS NULL OR
427: l_tar_claims_int_rec.object_version_number = FND_API.G_MISS_NUM )
428: THEN
429: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');
430: raise FND_API.G_EXC_ERROR;
431: END IF;
426: IF (l_tar_claims_int_rec.object_version_number IS NULL OR
427: l_tar_claims_int_rec.object_version_number = FND_API.G_MISS_NUM )
428: THEN
429: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');
430: raise FND_API.G_EXC_ERROR;
431: END IF;
432:
433: -- Check Whether record has been changed by someone else
434: IF (l_tar_claims_int_rec.object_version_number <> l_ref_claims_int_rec.object_version_number)
433: -- Check Whether record has been changed by someone else
434: IF (l_tar_claims_int_rec.object_version_number <> l_ref_claims_int_rec.object_version_number)
435: THEN
436: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
437: raise FND_API.G_EXC_ERROR;
438: END IF;
439:
440: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
441: THEN
436: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
437: raise FND_API.G_EXC_ERROR;
438: END IF;
439:
440: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
441: THEN
442: -- Debug message
443: IF OZF_DEBUG_HIGH_ON THEN
444: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');
445: END IF;
446: -- Invoke validation procedures
447: Validate_claims_int(
448: p_api_version_number => 1.0,
449: p_init_msg_list => FND_API.G_FALSE,
450: p_validation_level => p_validation_level,
451: p_claims_int_rec => p_claims_int_rec,
452: x_return_status => x_return_status,
453: x_msg_count => x_msg_count,
453: x_msg_count => x_msg_count,
454: x_msg_data => x_msg_data);
455: END IF;
456:
457: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
458: RAISE FND_API.G_EXC_ERROR;
459: END IF;
460:
461: -- Debug Message
454: x_msg_data => x_msg_data);
455: END IF;
456:
457: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
458: RAISE FND_API.G_EXC_ERROR;
459: END IF;
460:
461: -- Debug Message
462: IF OZF_DEBUG_HIGH_ON THEN
596: -- End of API body.
597: --
598:
599: -- Standard check for p_commit
600: IF FND_API.to_Boolean( p_commit )
601: THEN
602: COMMIT WORK;
603: END IF;
604:
613: p_data => x_msg_data
614: );
615: EXCEPTION
616: WHEN OZF_Utility_PVT.resource_locked THEN
617: x_return_status := FND_API.g_ret_sts_error;
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
615: EXCEPTION
616: WHEN OZF_Utility_PVT.resource_locked THEN
617: x_return_status := FND_API.g_ret_sts_error;
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
617: x_return_status := FND_API.g_ret_sts_error;
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_Claims_Int_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: -- Standard call to get message count and if count=1, get the message
632: FND_MSG_PUB.Count_And_Get (
626: p_data => x_msg_data
627: );
628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
629: ROLLBACK TO UPDATE_Claims_Int_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: -- Standard call to get message count and if count=1, get the message
632: FND_MSG_PUB.Count_And_Get (
633: p_encoded => FND_API.G_FALSE,
634: p_count => x_msg_count,
629: ROLLBACK TO UPDATE_Claims_Int_PVT;
630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
631: -- Standard call to get message count and if count=1, get the message
632: FND_MSG_PUB.Count_And_Get (
633: p_encoded => FND_API.G_FALSE,
634: p_count => x_msg_count,
635: p_data => x_msg_data
636: );
637: WHEN OTHERS THEN
635: p_data => x_msg_data
636: );
637: WHEN OTHERS THEN
638: ROLLBACK TO UPDATE_Claims_Int_PVT;
639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
640: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
641: THEN
642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
643: END IF;
642: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
643: END IF;
644: -- Standard call to get message count and if count=1, get the message
645: FND_MSG_PUB.Count_And_Get (
646: p_encoded => FND_API.G_FALSE,
647: p_count => x_msg_count,
648: p_data => x_msg_data
649: );
650: End Update_Claims_Int;
650: End Update_Claims_Int;
651:
652: PROCEDURE Delete_Claims_Int(
653: p_api_version_number IN NUMBER,
654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
657: x_return_status OUT NOCOPY VARCHAR2,
658: x_msg_count OUT NOCOPY NUMBER,
651:
652: PROCEDURE Delete_Claims_Int(
653: p_api_version_number IN NUMBER,
654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
657: x_return_status OUT NOCOPY VARCHAR2,
658: x_msg_count OUT NOCOPY NUMBER,
659: x_msg_data OUT NOCOPY VARCHAR2,
652: PROCEDURE Delete_Claims_Int(
653: p_api_version_number IN NUMBER,
654: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
655: p_commit IN VARCHAR2 := FND_API.G_FALSE,
656: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
657: x_return_status OUT NOCOPY VARCHAR2,
658: x_msg_count OUT NOCOPY NUMBER,
659: x_msg_data OUT NOCOPY VARCHAR2,
660: p_interface_claim_id IN NUMBER,
668: -- Standard Start of API savepoint
669: SAVEPOINT DELETE_Claims_Int_PVT;
670:
671: -- Standard call to check for call compatibility.
672: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
673: p_api_version_number,
674: l_api_name,
675: G_PKG_NAME)
676: THEN
673: p_api_version_number,
674: l_api_name,
675: G_PKG_NAME)
676: THEN
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678: END IF;
679:
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF FND_API.to_Boolean( p_init_msg_list )
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678: END IF;
679:
680: -- Initialize message list if p_init_msg_list is set to TRUE.
681: IF FND_API.to_Boolean( p_init_msg_list )
682: THEN
683: FND_MSG_PUB.initialize;
684: END IF;
685:
688: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
689: END IF;
690:
691: -- Initialize API return status to SUCCESS
692: x_return_status := FND_API.G_RET_STS_SUCCESS;
693:
694: --
695: -- Api body
696: --
706: -- End of API body
707: --
708:
709: -- Standard check for p_commit
710: IF FND_API.to_Boolean( p_commit )
711: THEN
712: COMMIT WORK;
713: END IF;
714:
723: p_data => x_msg_data
724: );
725: EXCEPTION
726: WHEN OZF_Utility_PVT.resource_locked THEN
727: x_return_status := FND_API.g_ret_sts_error;
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
725: EXCEPTION
726: WHEN OZF_Utility_PVT.resource_locked THEN
727: x_return_status := FND_API.g_ret_sts_error;
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: -- Standard call to get message count and if count=1, get the message
733: FND_MSG_PUB.Count_And_Get (
727: x_return_status := FND_API.g_ret_sts_error;
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: -- Standard call to get message count and if count=1, get the message
733: FND_MSG_PUB.Count_And_Get (
734: p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: -- Standard call to get message count and if count=1, get the message
733: FND_MSG_PUB.Count_And_Get (
734: p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => x_msg_data
737: );
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
734: p_encoded => FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => x_msg_data
737: );
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO DELETE_Claims_Int_PVT;
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
736: p_data => x_msg_data
737: );
738: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: ROLLBACK TO DELETE_Claims_Int_PVT;
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
739: ROLLBACK TO DELETE_Claims_Int_PVT;
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: -- Standard call to get message count and if count=1, get the message
742: FND_MSG_PUB.Count_And_Get (
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data
746: );
747: WHEN OTHERS THEN
745: p_data => x_msg_data
746: );
747: WHEN OTHERS THEN
748: ROLLBACK TO DELETE_Claims_Int_PVT;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
750: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
753: END IF;
752: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
753: END IF;
754: -- Standard call to get message count and if count=1, get the message
755: FND_MSG_PUB.Count_And_Get (
756: p_encoded => FND_API.G_FALSE,
757: p_count => x_msg_count,
758: p_data => x_msg_data
759: );
760: End Delete_Claims_Int;
760: End Delete_Claims_Int;
761:
762: PROCEDURE Lock_Claims_Int(
763: p_api_version_number IN NUMBER,
764: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
765:
766: x_return_status OUT NOCOPY VARCHAR2,
767: x_msg_count OUT NOCOPY NUMBER,
768: x_msg_data OUT NOCOPY VARCHAR2,
788: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
789: END IF;
790:
791: -- Initialize message list if p_init_msg_list is set to TRUE.
792: IF FND_API.to_Boolean( p_init_msg_list )
793: THEN
794: FND_MSG_PUB.initialize;
795: END IF;
796:
794: FND_MSG_PUB.initialize;
795: END IF;
796:
797: -- Standard call to check for call compatibility.
798: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
799: p_api_version_number,
800: l_api_name,
801: G_PKG_NAME)
802: THEN
799: p_api_version_number,
800: l_api_name,
801: G_PKG_NAME)
802: THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: -- Initialize API return status to SUCCESS
807: x_return_status := FND_API.G_RET_STS_SUCCESS;
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: -- Initialize API return status to SUCCESS
807: x_return_status := FND_API.G_RET_STS_SUCCESS;
808:
809: ------------------------ lock -------------------------
810: IF OZF_DEBUG_HIGH_ON THEN
811: OZF_Utility_PVT.debug_message(l_full_name||': start');
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
819: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
820: FND_MSG_PUB.add;
821: END IF;
822: RAISE FND_API.g_exc_error;
823: END IF;
824: CLOSE c_Claims_Int;
825: -------------------- finish --------------------------
826:
824: CLOSE c_Claims_Int;
825: -------------------- finish --------------------------
826:
827: FND_MSG_PUB.count_and_get(
828: p_encoded => FND_API.g_false,
829: p_count => x_msg_count,
830: p_data => x_msg_data);
831: IF OZF_DEBUG_HIGH_ON THEN
832: OZF_Utility_PVT.debug_message(l_full_name ||': end');
833: END IF;
834:
835: EXCEPTION
836: WHEN OZF_Utility_PVT.resource_locked THEN
837: x_return_status := FND_API.g_ret_sts_error;
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
835: EXCEPTION
836: WHEN OZF_Utility_PVT.resource_locked THEN
837: x_return_status := FND_API.g_ret_sts_error;
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: -- Standard call to get message count and if count=1, get the message
843: FND_MSG_PUB.Count_And_Get (
837: x_return_status := FND_API.g_ret_sts_error;
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: -- Standard call to get message count and if count=1, get the message
843: FND_MSG_PUB.Count_And_Get (
844: p_encoded => FND_API.G_FALSE,
845: p_count => x_msg_count,
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: -- Standard call to get message count and if count=1, get the message
843: FND_MSG_PUB.Count_And_Get (
844: p_encoded => FND_API.G_FALSE,
845: p_count => x_msg_count,
846: p_data => x_msg_data
847: );
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
844: p_encoded => FND_API.G_FALSE,
845: p_count => x_msg_count,
846: p_data => x_msg_data
847: );
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: ROLLBACK TO LOCK_Claims_Int_PVT;
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: -- Standard call to get message count and if count=1, get the message
852: FND_MSG_PUB.Count_And_Get (
846: p_data => x_msg_data
847: );
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: ROLLBACK TO LOCK_Claims_Int_PVT;
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: -- Standard call to get message count and if count=1, get the message
852: FND_MSG_PUB.Count_And_Get (
853: p_encoded => FND_API.G_FALSE,
854: p_count => x_msg_count,
849: ROLLBACK TO LOCK_Claims_Int_PVT;
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: -- Standard call to get message count and if count=1, get the message
852: FND_MSG_PUB.Count_And_Get (
853: p_encoded => FND_API.G_FALSE,
854: p_count => x_msg_count,
855: p_data => x_msg_data
856: );
857: WHEN OTHERS THEN
855: p_data => x_msg_data
856: );
857: WHEN OTHERS THEN
858: ROLLBACK TO LOCK_Claims_Int_PVT;
859: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
860: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
861: THEN
862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
863: END IF;
862: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
863: END IF;
864: -- Standard call to get message count and if count=1, get the message
865: FND_MSG_PUB.Count_And_Get (
866: p_encoded => FND_API.G_FALSE,
867: p_count => x_msg_count,
868: p_data => x_msg_data
869: );
870: End Lock_Claims_Int;
876: IS
877: l_valid_flag VARCHAR2(1);
878:
879: BEGIN
880: x_return_status := FND_API.g_ret_sts_success;
881: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
882: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
883: 'OZF_CLAIMS_INT_ALL',
884: 'INTERFACE_CLAIM_ID = ''' || p_claims_int_rec.INTERFACE_CLAIM_ID ||''''
890: ''' AND INTERFACE_CLAIM_ID <> ' || p_claims_int_rec.INTERFACE_CLAIM_ID
891: );
892: END IF;
893:
894: IF l_valid_flag = FND_API.g_false THEN
895: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTERFACE_CLAIM_ID_DUP');
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
892: END IF;
893:
894: IF l_valid_flag = FND_API.g_false THEN
895: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTERFACE_CLAIM_ID_DUP');
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
899: END check_claims_int_uk_items;
900:
904: x_return_status OUT NOCOPY VARCHAR2
905: )
906: IS
907: BEGIN
908: x_return_status := FND_API.g_ret_sts_success;
909:
910: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
911: IF p_claims_int_rec.interface_claim_id = FND_API.g_miss_num OR
912: p_claims_int_rec.interface_claim_id IS NULL
907: BEGIN
908: x_return_status := FND_API.g_ret_sts_success;
909:
910: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
911: IF p_claims_int_rec.interface_claim_id = FND_API.g_miss_num OR
912: p_claims_int_rec.interface_claim_id IS NULL
913: THEN
914: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
915: x_return_status := FND_API.g_ret_sts_error;
911: IF p_claims_int_rec.interface_claim_id = FND_API.g_miss_num OR
912: p_claims_int_rec.interface_claim_id IS NULL
913: THEN
914: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
915: x_return_status := FND_API.g_ret_sts_error;
916: RETURN;
917: END IF;
918:
919: IF p_claims_int_rec.object_version_number = FND_API.g_miss_num OR
915: x_return_status := FND_API.g_ret_sts_error;
916: RETURN;
917: END IF;
918:
919: IF p_claims_int_rec.object_version_number = FND_API.g_miss_num OR
920: p_claims_int_rec.object_version_number IS NULL
921: THEN
922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
923: x_return_status := FND_API.g_ret_sts_error;
919: IF p_claims_int_rec.object_version_number = FND_API.g_miss_num OR
920: p_claims_int_rec.object_version_number IS NULL
921: THEN
922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
925: END IF;
926:
927: IF p_claims_int_rec.last_update_date = FND_API.g_miss_date OR
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
925: END IF;
926:
927: IF p_claims_int_rec.last_update_date = FND_API.g_miss_date OR
928: p_claims_int_rec.last_update_date IS NULL
929: THEN
930: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
931: x_return_status := FND_API.g_ret_sts_error;
927: IF p_claims_int_rec.last_update_date = FND_API.g_miss_date OR
928: p_claims_int_rec.last_update_date IS NULL
929: THEN
930: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
931: x_return_status := FND_API.g_ret_sts_error;
932: RETURN;
933: END IF;
934:
935: IF p_claims_int_rec.last_updated_by = FND_API.g_miss_num OR
931: x_return_status := FND_API.g_ret_sts_error;
932: RETURN;
933: END IF;
934:
935: IF p_claims_int_rec.last_updated_by = FND_API.g_miss_num OR
936: p_claims_int_rec.last_updated_by IS NULL THEN
937: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
938: x_return_status := FND_API.g_ret_sts_error;
939: RETURN;
934:
935: IF p_claims_int_rec.last_updated_by = FND_API.g_miss_num OR
936: p_claims_int_rec.last_updated_by IS NULL THEN
937: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
938: x_return_status := FND_API.g_ret_sts_error;
939: RETURN;
940: END IF;
941:
942: IF p_claims_int_rec.creation_date = FND_API.g_miss_date OR
938: x_return_status := FND_API.g_ret_sts_error;
939: RETURN;
940: END IF;
941:
942: IF p_claims_int_rec.creation_date = FND_API.g_miss_date OR
943: p_claims_int_rec.creation_date IS NULL THEN
944: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
945: x_return_status := FND_API.g_ret_sts_error;
946: RETURN;
941:
942: IF p_claims_int_rec.creation_date = FND_API.g_miss_date OR
943: p_claims_int_rec.creation_date IS NULL THEN
944: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
945: x_return_status := FND_API.g_ret_sts_error;
946: RETURN;
947: END IF;
948:
949: IF p_claims_int_rec.created_by = FND_API.g_miss_num OR
945: x_return_status := FND_API.g_ret_sts_error;
946: RETURN;
947: END IF;
948:
949: IF p_claims_int_rec.created_by = FND_API.g_miss_num OR
950: p_claims_int_rec.created_by IS NULL THEN
951: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
952: x_return_status := FND_API.g_ret_sts_error;
953: RETURN;
948:
949: IF p_claims_int_rec.created_by = FND_API.g_miss_num OR
950: p_claims_int_rec.created_by IS NULL THEN
951: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
952: x_return_status := FND_API.g_ret_sts_error;
953: RETURN;
954: END IF;
955:
956: IF p_claims_int_rec.claim_type_id = FND_API.g_miss_num OR
952: x_return_status := FND_API.g_ret_sts_error;
953: RETURN;
954: END IF;
955:
956: IF p_claims_int_rec.claim_type_id = FND_API.g_miss_num OR
957: p_claims_int_rec.claim_type_id IS NULL THEN
958: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );
959: x_return_status := FND_API.g_ret_sts_error;
960: RETURN;
955:
956: IF p_claims_int_rec.claim_type_id = FND_API.g_miss_num OR
957: p_claims_int_rec.claim_type_id IS NULL THEN
958: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );
959: x_return_status := FND_API.g_ret_sts_error;
960: RETURN;
961: END IF;
962:
963: IF p_claims_int_rec.claim_date = FND_API.g_miss_date OR
959: x_return_status := FND_API.g_ret_sts_error;
960: RETURN;
961: END IF;
962:
963: IF p_claims_int_rec.claim_date = FND_API.g_miss_date OR
964: p_claims_int_rec.claim_date IS NULL THEN
965: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );
966: x_return_status := FND_API.g_ret_sts_error;
967: RETURN;
962:
963: IF p_claims_int_rec.claim_date = FND_API.g_miss_date OR
964: p_claims_int_rec.claim_date IS NULL THEN
965: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );
966: x_return_status := FND_API.g_ret_sts_error;
967: RETURN;
968: END IF;
969:
970: IF p_claims_int_rec.cust_account_id = FND_API.g_miss_num OR
966: x_return_status := FND_API.g_ret_sts_error;
967: RETURN;
968: END IF;
969:
970: IF p_claims_int_rec.cust_account_id = FND_API.g_miss_num OR
971: p_claims_int_rec.cust_account_id IS NULL THEN
972: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
969:
970: IF p_claims_int_rec.cust_account_id = FND_API.g_miss_num OR
971: p_claims_int_rec.cust_account_id IS NULL THEN
972: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
975: END IF;
976: ELSE
977: IF p_claims_int_rec.interface_claim_id IS NULL THEN
975: END IF;
976: ELSE
977: IF p_claims_int_rec.interface_claim_id IS NULL THEN
978: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
979: x_return_status := FND_API.g_ret_sts_error;
980: RETURN;
981: END IF;
982:
983: IF p_claims_int_rec.object_version_number IS NULL THEN
981: END IF;
982:
983: IF p_claims_int_rec.object_version_number IS NULL THEN
984: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
985: x_return_status := FND_API.g_ret_sts_error;
986: RETURN;
987: END IF;
988:
989: IF p_claims_int_rec.last_update_date IS NULL THEN
987: END IF;
988:
989: IF p_claims_int_rec.last_update_date IS NULL THEN
990: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
991: x_return_status := FND_API.g_ret_sts_error;
992: RETURN;
993: END IF;
994:
995: IF p_claims_int_rec.last_updated_by IS NULL THEN
993: END IF;
994:
995: IF p_claims_int_rec.last_updated_by IS NULL THEN
996: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
997: x_return_status := FND_API.g_ret_sts_error;
998: RETURN;
999: END IF;
1000:
1001: IF p_claims_int_rec.creation_date IS NULL THEN
999: END IF;
1000:
1001: IF p_claims_int_rec.creation_date IS NULL THEN
1002: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1003: x_return_status := FND_API.g_ret_sts_error;
1004: RETURN;
1005: END IF;
1006:
1007: IF p_claims_int_rec.created_by IS NULL THEN
1005: END IF;
1006:
1007: IF p_claims_int_rec.created_by IS NULL THEN
1008: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1009: x_return_status := FND_API.g_ret_sts_error;
1010: RETURN;
1011: END IF;
1012:
1013:
1012:
1013:
1014: IF p_claims_int_rec.claim_type_id IS NULL THEN
1015: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );
1016: x_return_status := FND_API.g_ret_sts_error;
1017: RETURN;
1018: END IF;
1019:
1020: IF p_claims_int_rec.claim_date IS NULL THEN
1018: END IF;
1019:
1020: IF p_claims_int_rec.claim_date IS NULL THEN
1021: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );
1022: x_return_status := FND_API.g_ret_sts_error;
1023: RETURN;
1024: END IF;
1025:
1026: IF p_claims_int_rec.cust_account_id IS NULL THEN
1024: END IF;
1025:
1026: IF p_claims_int_rec.cust_account_id IS NULL THEN
1027: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );
1028: x_return_status := FND_API.g_ret_sts_error;
1029: RETURN;
1030: END IF;
1031: END IF;
1032:
1037: x_return_status OUT NOCOPY VARCHAR2
1038: )
1039: IS
1040: BEGIN
1041: x_return_status := FND_API.g_ret_sts_success;
1042:
1043: -- Enter custom code here
1044:
1045: END check_claims_int_FK_items;
1049: x_return_status OUT NOCOPY VARCHAR2
1050: )
1051: IS
1052: BEGIN
1053: x_return_status := FND_API.g_ret_sts_success;
1054:
1055: -- Enter custom code here
1056:
1057: END check_claims_int_Lk_items;
1068: check_claims_int_uk_items(
1069: p_claims_int_rec => p_claims_int_rec,
1070: p_validation_mode => p_validation_mode,
1071: x_return_status => x_return_status);
1072: IF x_return_status <> FND_API.g_ret_sts_success THEN
1073: RETURN;
1074: END IF;
1075:
1076: -- Check Items Required/NOT NULL API calls
1077: check_claims_int_req_items(
1078: p_claims_int_rec => p_claims_int_rec,
1079: p_validation_mode => p_validation_mode,
1080: x_return_status => x_return_status);
1081: IF x_return_status <> FND_API.g_ret_sts_success THEN
1082: RETURN;
1083: END IF;
1084:
1085: -- Check Items Foreign Keys API calls
1085: -- Check Items Foreign Keys API calls
1086: check_claims_int_FK_items(
1087: p_claims_int_rec => p_claims_int_rec,
1088: x_return_status => x_return_status);
1089: IF x_return_status <> FND_API.g_ret_sts_success THEN
1090: RETURN;
1091: END IF;
1092:
1093: -- Check Items Lookups
1093: -- Check Items Lookups
1094: check_claims_int_Lk_items(
1095: p_claims_int_rec => p_claims_int_rec,
1096: x_return_status => x_return_status);
1097: IF x_return_status <> FND_API.g_ret_sts_success THEN
1098: RETURN;
1099: END IF;
1100:
1101: END Check_claims_int_Items;
1119: FETCH c_complete INTO l_claims_int_rec;
1120: CLOSE c_complete;
1121:
1122: -- interface_claim_id
1123: IF p_claims_int_rec.interface_claim_id = FND_API.g_miss_num THEN
1124: x_complete_rec.interface_claim_id := NULL;
1125: END IF;
1126: IF p_claims_int_rec.interface_claim_id IS NULL THEN
1127: x_complete_rec.interface_claim_id := l_claims_int_rec.interface_claim_id;
1127: x_complete_rec.interface_claim_id := l_claims_int_rec.interface_claim_id;
1128: END IF;
1129:
1130: -- object_version_number
1131: IF p_claims_int_rec.object_version_number = FND_API.g_miss_num THEN
1132: x_complete_rec.object_version_number := NULL;
1133: END IF;
1134: IF p_claims_int_rec.object_version_number IS NULL THEN
1135: x_complete_rec.object_version_number := l_claims_int_rec.object_version_number;
1135: x_complete_rec.object_version_number := l_claims_int_rec.object_version_number;
1136: END IF;
1137:
1138: -- last_update_date
1139: IF p_claims_int_rec.last_update_date = FND_API.g_miss_date THEN
1140: x_complete_rec.last_update_date := NULL;
1141: END IF;
1142: IF p_claims_int_rec.last_update_date IS NULL THEN
1143: x_complete_rec.last_update_date := l_claims_int_rec.last_update_date;
1143: x_complete_rec.last_update_date := l_claims_int_rec.last_update_date;
1144: END IF;
1145:
1146: -- last_updated_by
1147: IF p_claims_int_rec.last_updated_by = FND_API.g_miss_num THEN
1148: x_complete_rec.last_updated_by := NULL;
1149: END IF;
1150: IF p_claims_int_rec.last_updated_by IS NULL THEN
1151: x_complete_rec.last_updated_by := l_claims_int_rec.last_updated_by;
1151: x_complete_rec.last_updated_by := l_claims_int_rec.last_updated_by;
1152: END IF;
1153:
1154: -- creation_date
1155: IF p_claims_int_rec.creation_date = FND_API.g_miss_date THEN
1156: x_complete_rec.creation_date := NULL;
1157: END IF;
1158: IF p_claims_int_rec.creation_date IS NULL THEN
1159: x_complete_rec.creation_date := l_claims_int_rec.creation_date;
1159: x_complete_rec.creation_date := l_claims_int_rec.creation_date;
1160: END IF;
1161:
1162: -- created_by
1163: IF p_claims_int_rec.created_by = FND_API.g_miss_num THEN
1164: x_complete_rec.created_by := NULL;
1165: END IF;
1166: IF p_claims_int_rec.created_by IS NULL THEN
1167: x_complete_rec.created_by := l_claims_int_rec.created_by;
1167: x_complete_rec.created_by := l_claims_int_rec.created_by;
1168: END IF;
1169:
1170: -- last_update_login
1171: IF p_claims_int_rec.last_update_login = FND_API.g_miss_num THEN
1172: x_complete_rec.last_update_login := NULL;
1173: END IF;
1174: IF p_claims_int_rec.last_update_login IS NULL THEN
1175: x_complete_rec.last_update_login := l_claims_int_rec.last_update_login;
1175: x_complete_rec.last_update_login := l_claims_int_rec.last_update_login;
1176: END IF;
1177:
1178: -- request_id
1179: IF p_claims_int_rec.request_id = FND_API.g_miss_num THEN
1180: x_complete_rec.request_id := NULL;
1181: END IF;
1182: IF p_claims_int_rec.request_id IS NULL THEN
1183: x_complete_rec.request_id := l_claims_int_rec.request_id;
1183: x_complete_rec.request_id := l_claims_int_rec.request_id;
1184: END IF;
1185:
1186: -- program_application_id
1187: IF p_claims_int_rec.program_application_id = FND_API.g_miss_num THEN
1188: x_complete_rec.program_application_id := NULL;
1189: END IF;
1190: IF p_claims_int_rec.program_application_id IS NULL THEN
1191: x_complete_rec.program_application_id := l_claims_int_rec.program_application_id;
1191: x_complete_rec.program_application_id := l_claims_int_rec.program_application_id;
1192: END IF;
1193:
1194: -- program_update_date
1195: IF p_claims_int_rec.program_update_date = FND_API.g_miss_date THEN
1196: x_complete_rec.program_update_date := NULL;
1197: END IF;
1198: IF p_claims_int_rec.program_update_date IS NULL THEN
1199: x_complete_rec.program_update_date := l_claims_int_rec.program_update_date;
1199: x_complete_rec.program_update_date := l_claims_int_rec.program_update_date;
1200: END IF;
1201:
1202: -- program_id
1203: IF p_claims_int_rec.program_id = FND_API.g_miss_num THEN
1204: x_complete_rec.program_id := NULL;
1205: END IF;
1206: IF p_claims_int_rec.program_id IS NULL THEN
1207: x_complete_rec.program_id := l_claims_int_rec.program_id;
1207: x_complete_rec.program_id := l_claims_int_rec.program_id;
1208: END IF;
1209:
1210: -- created_from
1211: IF p_claims_int_rec.created_from = FND_API.g_miss_char THEN
1212: x_complete_rec.created_from := NULL;
1213: END IF;
1214: IF p_claims_int_rec.created_from IS NULL THEN
1215: x_complete_rec.created_from := l_claims_int_rec.created_from;
1215: x_complete_rec.created_from := l_claims_int_rec.created_from;
1216: END IF;
1217:
1218: -- batch_id
1219: IF p_claims_int_rec.batch_id = FND_API.g_miss_num THEN
1220: x_complete_rec.batch_id := NULL;
1221: END IF;
1222: IF p_claims_int_rec.batch_id IS NULL THEN
1223: x_complete_rec.batch_id := l_claims_int_rec.batch_id;
1223: x_complete_rec.batch_id := l_claims_int_rec.batch_id;
1224: END IF;
1225:
1226: -- claim_id
1227: IF p_claims_int_rec.claim_id = FND_API.g_miss_num THEN
1228: x_complete_rec.claim_id := NULL;
1229: END IF;
1230: IF p_claims_int_rec.claim_id IS NULL THEN
1231: x_complete_rec.claim_id := l_claims_int_rec.claim_id;
1231: x_complete_rec.claim_id := l_claims_int_rec.claim_id;
1232: END IF;
1233:
1234: -- claim_number
1235: IF p_claims_int_rec.claim_number = FND_API.g_miss_char THEN
1236: x_complete_rec.claim_number := NULL;
1237: END IF;
1238: IF p_claims_int_rec.claim_number IS NULL THEN
1239: x_complete_rec.claim_number := l_claims_int_rec.claim_number;
1239: x_complete_rec.claim_number := l_claims_int_rec.claim_number;
1240: END IF;
1241:
1242: -- claim_type_id
1243: IF p_claims_int_rec.claim_type_id = FND_API.g_miss_num THEN
1244: x_complete_rec.claim_type_id := NULL;
1245: END IF;
1246: IF p_claims_int_rec.claim_type_id IS NULL THEN
1247: x_complete_rec.claim_type_id := l_claims_int_rec.claim_type_id;
1247: x_complete_rec.claim_type_id := l_claims_int_rec.claim_type_id;
1248: END IF;
1249:
1250: -- claim_class
1251: IF p_claims_int_rec.claim_class = FND_API.g_miss_char THEN
1252: x_complete_rec.claim_class := NULL;
1253: END IF;
1254: IF p_claims_int_rec.claim_class IS NULL THEN
1255: x_complete_rec.claim_class := l_claims_int_rec.claim_class;
1255: x_complete_rec.claim_class := l_claims_int_rec.claim_class;
1256: END IF;
1257:
1258: -- claim_date
1259: IF p_claims_int_rec.claim_date = FND_API.g_miss_date THEN
1260: x_complete_rec.claim_date := NULL;
1261: END IF;
1262: IF p_claims_int_rec.claim_date IS NULL THEN
1263: x_complete_rec.claim_date := l_claims_int_rec.claim_date;
1263: x_complete_rec.claim_date := l_claims_int_rec.claim_date;
1264: END IF;
1265:
1266: -- due_date
1267: IF p_claims_int_rec.due_date = FND_API.g_miss_date THEN
1268: x_complete_rec.due_date := NULL;
1269: END IF;
1270: IF p_claims_int_rec.due_date IS NULL THEN
1271: x_complete_rec.due_date := l_claims_int_rec.due_date;
1271: x_complete_rec.due_date := l_claims_int_rec.due_date;
1272: END IF;
1273:
1274: -- owner_id
1275: IF p_claims_int_rec.owner_id = FND_API.g_miss_num THEN
1276: x_complete_rec.owner_id := NULL;
1277: END IF;
1278: IF p_claims_int_rec.owner_id IS NULL THEN
1279: x_complete_rec.owner_id := l_claims_int_rec.owner_id;
1279: x_complete_rec.owner_id := l_claims_int_rec.owner_id;
1280: END IF;
1281:
1282: -- history_event
1283: IF p_claims_int_rec.history_event = FND_API.g_miss_char THEN
1284: x_complete_rec.history_event := NULL;
1285: END IF;
1286: IF p_claims_int_rec.history_event IS NULL THEN
1287: x_complete_rec.history_event := l_claims_int_rec.history_event;
1287: x_complete_rec.history_event := l_claims_int_rec.history_event;
1288: END IF;
1289:
1290: -- history_event_date
1291: IF p_claims_int_rec.history_event_date = FND_API.g_miss_date THEN
1292: x_complete_rec.history_event_date := NULL;
1293: END IF;
1294: IF p_claims_int_rec.history_event_date IS NULL THEN
1295: x_complete_rec.history_event_date := l_claims_int_rec.history_event_date;
1295: x_complete_rec.history_event_date := l_claims_int_rec.history_event_date;
1296: END IF;
1297:
1298: -- history_event_description
1299: IF p_claims_int_rec.history_event_description = FND_API.g_miss_char THEN
1300: x_complete_rec.history_event_description := NULL;
1301: END IF;
1302: IF p_claims_int_rec.history_event_description IS NULL THEN
1303: x_complete_rec.history_event_description := l_claims_int_rec.history_event_description;
1303: x_complete_rec.history_event_description := l_claims_int_rec.history_event_description;
1304: END IF;
1305:
1306: -- split_from_claim_id
1307: IF p_claims_int_rec.split_from_claim_id = FND_API.g_miss_num THEN
1308: x_complete_rec.split_from_claim_id := NULL;
1309: END IF;
1310: IF p_claims_int_rec.split_from_claim_id IS NULL THEN
1311: x_complete_rec.split_from_claim_id := l_claims_int_rec.split_from_claim_id;
1311: x_complete_rec.split_from_claim_id := l_claims_int_rec.split_from_claim_id;
1312: END IF;
1313:
1314: -- duplicate_claim_id
1315: IF p_claims_int_rec.duplicate_claim_id = FND_API.g_miss_num THEN
1316: x_complete_rec.duplicate_claim_id := NULL;
1317: END IF;
1318: IF p_claims_int_rec.duplicate_claim_id IS NULL THEN
1319: x_complete_rec.duplicate_claim_id := l_claims_int_rec.duplicate_claim_id;
1319: x_complete_rec.duplicate_claim_id := l_claims_int_rec.duplicate_claim_id;
1320: END IF;
1321:
1322: -- split_date
1323: IF p_claims_int_rec.split_date = FND_API.g_miss_date THEN
1324: x_complete_rec.split_date := NULL;
1325: END IF;
1326: IF p_claims_int_rec.split_date IS NULL THEN
1327: x_complete_rec.split_date := l_claims_int_rec.split_date;
1327: x_complete_rec.split_date := l_claims_int_rec.split_date;
1328: END IF;
1329:
1330: -- root_claim_id
1331: IF p_claims_int_rec.root_claim_id = FND_API.g_miss_num THEN
1332: x_complete_rec.root_claim_id := NULL;
1333: END IF;
1334: IF p_claims_int_rec.root_claim_id IS NULL THEN
1335: x_complete_rec.root_claim_id := l_claims_int_rec.root_claim_id;
1335: x_complete_rec.root_claim_id := l_claims_int_rec.root_claim_id;
1336: END IF;
1337:
1338: -- amount
1339: IF p_claims_int_rec.amount = FND_API.g_miss_num THEN
1340: x_complete_rec.amount := NULL;
1341: END IF;
1342: IF p_claims_int_rec.amount IS NULL THEN
1343: x_complete_rec.amount := l_claims_int_rec.amount;
1343: x_complete_rec.amount := l_claims_int_rec.amount;
1344: END IF;
1345:
1346: -- amount_adjusted
1347: IF p_claims_int_rec.amount_adjusted = FND_API.g_miss_num THEN
1348: x_complete_rec.amount_adjusted := NULL;
1349: END IF;
1350: IF p_claims_int_rec.amount_adjusted IS NULL THEN
1351: x_complete_rec.amount_adjusted := l_claims_int_rec.amount_adjusted;
1351: x_complete_rec.amount_adjusted := l_claims_int_rec.amount_adjusted;
1352: END IF;
1353:
1354: -- amount_remaining
1355: IF p_claims_int_rec.amount_remaining = FND_API.g_miss_num THEN
1356: x_complete_rec.amount_remaining := NULL;
1357: END IF;
1358: IF p_claims_int_rec.amount_remaining IS NULL THEN
1359: x_complete_rec.amount_remaining := l_claims_int_rec.amount_remaining;
1359: x_complete_rec.amount_remaining := l_claims_int_rec.amount_remaining;
1360: END IF;
1361:
1362: -- amount_settled
1363: IF p_claims_int_rec.amount_settled = FND_API.g_miss_num THEN
1364: x_complete_rec.amount_settled := NULL;
1365: END IF;
1366: IF p_claims_int_rec.amount_settled IS NULL THEN
1367: x_complete_rec.amount_settled := l_claims_int_rec.amount_settled;
1367: x_complete_rec.amount_settled := l_claims_int_rec.amount_settled;
1368: END IF;
1369:
1370: -- acctd_amount
1371: IF p_claims_int_rec.acctd_amount = FND_API.g_miss_num THEN
1372: x_complete_rec.acctd_amount := NULL;
1373: END IF;
1374: IF p_claims_int_rec.acctd_amount IS NULL THEN
1375: x_complete_rec.acctd_amount := l_claims_int_rec.acctd_amount;
1375: x_complete_rec.acctd_amount := l_claims_int_rec.acctd_amount;
1376: END IF;
1377:
1378: -- acctd_amount_remaining
1379: IF p_claims_int_rec.acctd_amount_remaining = FND_API.g_miss_num THEN
1380: x_complete_rec.acctd_amount_remaining := NULL;
1381: END IF;
1382: IF p_claims_int_rec.acctd_amount_remaining IS NULL THEN
1383: x_complete_rec.acctd_amount_remaining := l_claims_int_rec.acctd_amount_remaining;
1383: x_complete_rec.acctd_amount_remaining := l_claims_int_rec.acctd_amount_remaining;
1384: END IF;
1385:
1386: -- tax_amount
1387: IF p_claims_int_rec.tax_amount = FND_API.g_miss_num THEN
1388: x_complete_rec.tax_amount := NULL;
1389: END IF;
1390: IF p_claims_int_rec.tax_amount IS NULL THEN
1391: x_complete_rec.tax_amount := l_claims_int_rec.tax_amount;
1391: x_complete_rec.tax_amount := l_claims_int_rec.tax_amount;
1392: END IF;
1393:
1394: -- tax_code
1395: IF p_claims_int_rec.tax_code = FND_API.g_miss_char THEN
1396: x_complete_rec.tax_code := NULL;
1397: END IF;
1398: IF p_claims_int_rec.tax_code IS NULL THEN
1399: x_complete_rec.tax_code := l_claims_int_rec.tax_code;
1399: x_complete_rec.tax_code := l_claims_int_rec.tax_code;
1400: END IF;
1401:
1402: -- tax_calculation_flag
1403: IF p_claims_int_rec.tax_calculation_flag = FND_API.g_miss_char THEN
1404: x_complete_rec.tax_calculation_flag := NULL;
1405: END IF;
1406: IF p_claims_int_rec.tax_calculation_flag IS NULL THEN
1407: x_complete_rec.tax_calculation_flag := l_claims_int_rec.tax_calculation_flag;
1407: x_complete_rec.tax_calculation_flag := l_claims_int_rec.tax_calculation_flag;
1408: END IF;
1409:
1410: -- currency_code
1411: IF p_claims_int_rec.currency_code = FND_API.g_miss_char THEN
1412: x_complete_rec.currency_code := NULL;
1413: END IF;
1414: IF p_claims_int_rec.currency_code IS NULL THEN
1415: x_complete_rec.currency_code := l_claims_int_rec.currency_code;
1415: x_complete_rec.currency_code := l_claims_int_rec.currency_code;
1416: END IF;
1417:
1418: -- exchange_rate_type
1419: IF p_claims_int_rec.exchange_rate_type = FND_API.g_miss_char THEN
1420: x_complete_rec.exchange_rate_type := NULL;
1421: END IF;
1422: IF p_claims_int_rec.exchange_rate_type IS NULL THEN
1423: x_complete_rec.exchange_rate_type := l_claims_int_rec.exchange_rate_type;
1423: x_complete_rec.exchange_rate_type := l_claims_int_rec.exchange_rate_type;
1424: END IF;
1425:
1426: -- exchange_rate_date
1427: IF p_claims_int_rec.exchange_rate_date = FND_API.g_miss_date THEN
1428: x_complete_rec.exchange_rate_date := NULL;
1429: END IF;
1430: IF p_claims_int_rec.exchange_rate_date IS NULL THEN
1431: x_complete_rec.exchange_rate_date := l_claims_int_rec.exchange_rate_date;
1431: x_complete_rec.exchange_rate_date := l_claims_int_rec.exchange_rate_date;
1432: END IF;
1433:
1434: -- exchange_rate
1435: IF p_claims_int_rec.exchange_rate = FND_API.g_miss_num THEN
1436: x_complete_rec.exchange_rate := NULL;
1437: END IF;
1438: IF p_claims_int_rec.exchange_rate IS NULL THEN
1439: x_complete_rec.exchange_rate := l_claims_int_rec.exchange_rate;
1439: x_complete_rec.exchange_rate := l_claims_int_rec.exchange_rate;
1440: END IF;
1441:
1442: -- set_of_books_id
1443: IF p_claims_int_rec.set_of_books_id = FND_API.g_miss_num THEN
1444: x_complete_rec.set_of_books_id := NULL;
1445: END IF;
1446: IF p_claims_int_rec.set_of_books_id IS NULL THEN
1447: x_complete_rec.set_of_books_id := l_claims_int_rec.set_of_books_id;
1447: x_complete_rec.set_of_books_id := l_claims_int_rec.set_of_books_id;
1448: END IF;
1449:
1450: -- original_claim_date
1451: IF p_claims_int_rec.original_claim_date = FND_API.g_miss_date THEN
1452: x_complete_rec.original_claim_date := NULL;
1453: END IF;
1454: IF p_claims_int_rec.original_claim_date IS NULL THEN
1455: x_complete_rec.original_claim_date := l_claims_int_rec.original_claim_date;
1455: x_complete_rec.original_claim_date := l_claims_int_rec.original_claim_date;
1456: END IF;
1457:
1458: -- source_object_id
1459: IF p_claims_int_rec.source_object_id = FND_API.g_miss_num THEN
1460: x_complete_rec.source_object_id := NULL;
1461: END IF;
1462: IF p_claims_int_rec.source_object_id IS NULL THEN
1463: x_complete_rec.source_object_id := l_claims_int_rec.source_object_id;
1463: x_complete_rec.source_object_id := l_claims_int_rec.source_object_id;
1464: END IF;
1465:
1466: -- source_object_class
1467: IF p_claims_int_rec.source_object_class = FND_API.g_miss_char THEN
1468: x_complete_rec.source_object_class := NULL;
1469: END IF;
1470: IF p_claims_int_rec.source_object_class IS NULL THEN
1471: x_complete_rec.source_object_class := l_claims_int_rec.source_object_class;
1471: x_complete_rec.source_object_class := l_claims_int_rec.source_object_class;
1472: END IF;
1473:
1474: -- source_object_type_id
1475: IF p_claims_int_rec.source_object_type_id = FND_API.g_miss_num THEN
1476: x_complete_rec.source_object_type_id := NULL;
1477: END IF;
1478: IF p_claims_int_rec.source_object_type_id IS NULL THEN
1479: x_complete_rec.source_object_type_id := l_claims_int_rec.source_object_type_id;
1479: x_complete_rec.source_object_type_id := l_claims_int_rec.source_object_type_id;
1480: END IF;
1481:
1482: -- source_object_number
1483: IF p_claims_int_rec.source_object_number = FND_API.g_miss_char THEN
1484: x_complete_rec.source_object_number := NULL;
1485: END IF;
1486: IF p_claims_int_rec.source_object_number IS NULL THEN
1487: x_complete_rec.source_object_number := l_claims_int_rec.source_object_number;
1487: x_complete_rec.source_object_number := l_claims_int_rec.source_object_number;
1488: END IF;
1489:
1490: -- cust_account_id
1491: IF p_claims_int_rec.cust_account_id = FND_API.g_miss_num THEN
1492: x_complete_rec.cust_account_id := NULL;
1493: END IF;
1494: IF p_claims_int_rec.cust_account_id IS NULL THEN
1495: x_complete_rec.cust_account_id := l_claims_int_rec.cust_account_id;
1495: x_complete_rec.cust_account_id := l_claims_int_rec.cust_account_id;
1496: END IF;
1497:
1498: -- cust_billto_acct_site_id
1499: IF p_claims_int_rec.cust_billto_acct_site_id = FND_API.g_miss_num THEN
1500: x_complete_rec.cust_billto_acct_site_id := NULL;
1501: END IF;
1502: IF p_claims_int_rec.cust_billto_acct_site_id IS NULL THEN
1503: x_complete_rec.cust_billto_acct_site_id := l_claims_int_rec.cust_billto_acct_site_id;
1503: x_complete_rec.cust_billto_acct_site_id := l_claims_int_rec.cust_billto_acct_site_id;
1504: END IF;
1505:
1506: -- cust_shipto_acct_site_id
1507: IF p_claims_int_rec.cust_shipto_acct_site_id = FND_API.g_miss_num THEN
1508: x_complete_rec.cust_shipto_acct_site_id := NULL;
1509: END IF;
1510: IF p_claims_int_rec.cust_shipto_acct_site_id IS NULL THEN
1511: x_complete_rec.cust_shipto_acct_site_id := l_claims_int_rec.cust_shipto_acct_site_id;
1511: x_complete_rec.cust_shipto_acct_site_id := l_claims_int_rec.cust_shipto_acct_site_id;
1512: END IF;
1513:
1514: -- location_id
1515: IF p_claims_int_rec.location_id = FND_API.g_miss_num THEN
1516: x_complete_rec.location_id := NULL;
1517: END IF;
1518: IF p_claims_int_rec.location_id IS NULL THEN
1519: x_complete_rec.location_id := l_claims_int_rec.location_id;
1519: x_complete_rec.location_id := l_claims_int_rec.location_id;
1520: END IF;
1521:
1522: -- pay_related_account_flag
1523: IF p_claims_int_rec.pay_related_account_flag = FND_API.g_miss_char THEN
1524: x_complete_rec.pay_related_account_flag := NULL;
1525: END IF;
1526: IF p_claims_int_rec.pay_related_account_flag IS NULL THEN
1527: x_complete_rec.pay_related_account_flag := l_claims_int_rec.pay_related_account_flag;
1527: x_complete_rec.pay_related_account_flag := l_claims_int_rec.pay_related_account_flag;
1528: END IF;
1529:
1530: -- related_cust_account_id
1531: IF p_claims_int_rec.related_cust_account_id = FND_API.g_miss_num THEN
1532: x_complete_rec.related_cust_account_id := NULL;
1533: END IF;
1534: IF p_claims_int_rec.related_cust_account_id IS NULL THEN
1535: x_complete_rec.related_cust_account_id := l_claims_int_rec.related_cust_account_id;
1535: x_complete_rec.related_cust_account_id := l_claims_int_rec.related_cust_account_id;
1536: END IF;
1537:
1538: -- related_site_use_id
1539: IF p_claims_int_rec.related_site_use_id = FND_API.g_miss_num THEN
1540: x_complete_rec.related_site_use_id := NULL;
1541: END IF;
1542: IF p_claims_int_rec.related_site_use_id IS NULL THEN
1543: x_complete_rec.related_site_use_id := l_claims_int_rec.related_site_use_id;
1543: x_complete_rec.related_site_use_id := l_claims_int_rec.related_site_use_id;
1544: END IF;
1545:
1546: -- relationship_type
1547: IF p_claims_int_rec.relationship_type = FND_API.g_miss_char THEN
1548: x_complete_rec.relationship_type := NULL;
1549: END IF;
1550: IF p_claims_int_rec.relationship_type IS NULL THEN
1551: x_complete_rec.relationship_type := l_claims_int_rec.relationship_type;
1551: x_complete_rec.relationship_type := l_claims_int_rec.relationship_type;
1552: END IF;
1553:
1554: -- vendor_id
1555: IF p_claims_int_rec.vendor_id = FND_API.g_miss_num THEN
1556: x_complete_rec.vendor_id := NULL;
1557: END IF;
1558: IF p_claims_int_rec.vendor_id IS NULL THEN
1559: x_complete_rec.vendor_id := l_claims_int_rec.vendor_id;
1559: x_complete_rec.vendor_id := l_claims_int_rec.vendor_id;
1560: END IF;
1561:
1562: -- vendor_site_id
1563: IF p_claims_int_rec.vendor_site_id = FND_API.g_miss_num THEN
1564: x_complete_rec.vendor_site_id := NULL;
1565: END IF;
1566: IF p_claims_int_rec.vendor_site_id IS NULL THEN
1567: x_complete_rec.vendor_site_id := l_claims_int_rec.vendor_site_id;
1567: x_complete_rec.vendor_site_id := l_claims_int_rec.vendor_site_id;
1568: END IF;
1569:
1570: -- reason_type
1571: IF p_claims_int_rec.reason_type = FND_API.g_miss_char THEN
1572: x_complete_rec.reason_type := NULL;
1573: END IF;
1574: IF p_claims_int_rec.reason_type IS NULL THEN
1575: x_complete_rec.reason_type := l_claims_int_rec.reason_type;
1575: x_complete_rec.reason_type := l_claims_int_rec.reason_type;
1576: END IF;
1577:
1578: -- reason_code_id
1579: IF p_claims_int_rec.reason_code_id = FND_API.g_miss_num THEN
1580: x_complete_rec.reason_code_id := NULL;
1581: END IF;
1582: IF p_claims_int_rec.reason_code_id IS NULL THEN
1583: x_complete_rec.reason_code_id := l_claims_int_rec.reason_code_id;
1583: x_complete_rec.reason_code_id := l_claims_int_rec.reason_code_id;
1584: END IF;
1585:
1586: -- task_template_group_id
1587: IF p_claims_int_rec.task_template_group_id = FND_API.g_miss_num THEN
1588: x_complete_rec.task_template_group_id := NULL;
1589: END IF;
1590: IF p_claims_int_rec.task_template_group_id IS NULL THEN
1591: x_complete_rec.task_template_group_id := l_claims_int_rec.task_template_group_id;
1591: x_complete_rec.task_template_group_id := l_claims_int_rec.task_template_group_id;
1592: END IF;
1593:
1594: -- status_code
1595: IF p_claims_int_rec.status_code = FND_API.g_miss_char THEN
1596: x_complete_rec.status_code := NULL;
1597: END IF;
1598: IF p_claims_int_rec.status_code IS NULL THEN
1599: x_complete_rec.status_code := l_claims_int_rec.status_code;
1599: x_complete_rec.status_code := l_claims_int_rec.status_code;
1600: END IF;
1601:
1602: -- user_status_id
1603: IF p_claims_int_rec.user_status_id = FND_API.g_miss_num THEN
1604: x_complete_rec.user_status_id := NULL;
1605: END IF;
1606: IF p_claims_int_rec.user_status_id IS NULL THEN
1607: x_complete_rec.user_status_id := l_claims_int_rec.user_status_id;
1607: x_complete_rec.user_status_id := l_claims_int_rec.user_status_id;
1608: END IF;
1609:
1610: -- sales_rep_id
1611: IF p_claims_int_rec.sales_rep_id = FND_API.g_miss_num THEN
1612: x_complete_rec.sales_rep_id := NULL;
1613: END IF;
1614: IF p_claims_int_rec.sales_rep_id IS NULL THEN
1615: x_complete_rec.sales_rep_id := l_claims_int_rec.sales_rep_id;
1615: x_complete_rec.sales_rep_id := l_claims_int_rec.sales_rep_id;
1616: END IF;
1617:
1618: -- collector_id
1619: IF p_claims_int_rec.collector_id = FND_API.g_miss_num THEN
1620: x_complete_rec.collector_id := NULL;
1621: END IF;
1622: IF p_claims_int_rec.collector_id IS NULL THEN
1623: x_complete_rec.collector_id := l_claims_int_rec.collector_id;
1623: x_complete_rec.collector_id := l_claims_int_rec.collector_id;
1624: END IF;
1625:
1626: -- contact_id
1627: IF p_claims_int_rec.contact_id = FND_API.g_miss_num THEN
1628: x_complete_rec.contact_id := NULL;
1629: END IF;
1630: IF p_claims_int_rec.contact_id IS NULL THEN
1631: x_complete_rec.contact_id := l_claims_int_rec.contact_id;
1631: x_complete_rec.contact_id := l_claims_int_rec.contact_id;
1632: END IF;
1633:
1634: -- broker_id
1635: IF p_claims_int_rec.broker_id = FND_API.g_miss_num THEN
1636: x_complete_rec.broker_id := NULL;
1637: END IF;
1638: IF p_claims_int_rec.broker_id IS NULL THEN
1639: x_complete_rec.broker_id := l_claims_int_rec.broker_id;
1639: x_complete_rec.broker_id := l_claims_int_rec.broker_id;
1640: END IF;
1641:
1642: -- territory_id
1643: IF p_claims_int_rec.territory_id = FND_API.g_miss_num THEN
1644: x_complete_rec.territory_id := NULL;
1645: END IF;
1646: IF p_claims_int_rec.territory_id IS NULL THEN
1647: x_complete_rec.territory_id := l_claims_int_rec.territory_id;
1647: x_complete_rec.territory_id := l_claims_int_rec.territory_id;
1648: END IF;
1649:
1650: -- customer_ref_date
1651: IF p_claims_int_rec.customer_ref_date = FND_API.g_miss_date THEN
1652: x_complete_rec.customer_ref_date := NULL;
1653: END IF;
1654: IF p_claims_int_rec.customer_ref_date IS NULL THEN
1655: x_complete_rec.customer_ref_date := l_claims_int_rec.customer_ref_date;
1655: x_complete_rec.customer_ref_date := l_claims_int_rec.customer_ref_date;
1656: END IF;
1657:
1658: -- customer_ref_number
1659: IF p_claims_int_rec.customer_ref_number = FND_API.g_miss_char THEN
1660: x_complete_rec.customer_ref_number := NULL;
1661: END IF;
1662: IF p_claims_int_rec.customer_ref_number IS NULL THEN
1663: x_complete_rec.customer_ref_number := l_claims_int_rec.customer_ref_number;
1663: x_complete_rec.customer_ref_number := l_claims_int_rec.customer_ref_number;
1664: END IF;
1665:
1666: -- assigned_to
1667: IF p_claims_int_rec.assigned_to = FND_API.g_miss_num THEN
1668: x_complete_rec.assigned_to := NULL;
1669: END IF;
1670: IF p_claims_int_rec.assigned_to IS NULL THEN
1671: x_complete_rec.assigned_to := l_claims_int_rec.assigned_to;
1671: x_complete_rec.assigned_to := l_claims_int_rec.assigned_to;
1672: END IF;
1673:
1674: -- receipt_id
1675: IF p_claims_int_rec.receipt_id = FND_API.g_miss_num THEN
1676: x_complete_rec.receipt_id := NULL;
1677: END IF;
1678: IF p_claims_int_rec.receipt_id IS NULL THEN
1679: x_complete_rec.receipt_id := l_claims_int_rec.receipt_id;
1679: x_complete_rec.receipt_id := l_claims_int_rec.receipt_id;
1680: END IF;
1681:
1682: -- receipt_number
1683: IF p_claims_int_rec.receipt_number = FND_API.g_miss_char THEN
1684: x_complete_rec.receipt_number := NULL;
1685: END IF;
1686: IF p_claims_int_rec.receipt_number IS NULL THEN
1687: x_complete_rec.receipt_number := l_claims_int_rec.receipt_number;
1687: x_complete_rec.receipt_number := l_claims_int_rec.receipt_number;
1688: END IF;
1689:
1690: -- doc_sequence_id
1691: IF p_claims_int_rec.doc_sequence_id = FND_API.g_miss_num THEN
1692: x_complete_rec.doc_sequence_id := NULL;
1693: END IF;
1694: IF p_claims_int_rec.doc_sequence_id IS NULL THEN
1695: x_complete_rec.doc_sequence_id := l_claims_int_rec.doc_sequence_id;
1695: x_complete_rec.doc_sequence_id := l_claims_int_rec.doc_sequence_id;
1696: END IF;
1697:
1698: -- doc_sequence_value
1699: IF p_claims_int_rec.doc_sequence_value = FND_API.g_miss_num THEN
1700: x_complete_rec.doc_sequence_value := NULL;
1701: END IF;
1702: IF p_claims_int_rec.doc_sequence_value IS NULL THEN
1703: x_complete_rec.doc_sequence_value := l_claims_int_rec.doc_sequence_value;
1703: x_complete_rec.doc_sequence_value := l_claims_int_rec.doc_sequence_value;
1704: END IF;
1705:
1706: -- gl_date
1707: IF p_claims_int_rec.gl_date = FND_API.g_miss_date THEN
1708: x_complete_rec.gl_date := NULL;
1709: END IF;
1710: IF p_claims_int_rec.gl_date IS NULL THEN
1711: x_complete_rec.gl_date := l_claims_int_rec.gl_date;
1711: x_complete_rec.gl_date := l_claims_int_rec.gl_date;
1712: END IF;
1713:
1714: -- payment_method
1715: IF p_claims_int_rec.payment_method = FND_API.g_miss_char THEN
1716: x_complete_rec.payment_method := NULL;
1717: END IF;
1718: IF p_claims_int_rec.payment_method IS NULL THEN
1719: x_complete_rec.payment_method := l_claims_int_rec.payment_method;
1719: x_complete_rec.payment_method := l_claims_int_rec.payment_method;
1720: END IF;
1721:
1722: -- voucher_id
1723: IF p_claims_int_rec.voucher_id = FND_API.g_miss_num THEN
1724: x_complete_rec.voucher_id := NULL;
1725: END IF;
1726: IF p_claims_int_rec.voucher_id IS NULL THEN
1727: x_complete_rec.voucher_id := l_claims_int_rec.voucher_id;
1727: x_complete_rec.voucher_id := l_claims_int_rec.voucher_id;
1728: END IF;
1729:
1730: -- voucher_number
1731: IF p_claims_int_rec.voucher_number = FND_API.g_miss_char THEN
1732: x_complete_rec.voucher_number := NULL;
1733: END IF;
1734: IF p_claims_int_rec.voucher_number IS NULL THEN
1735: x_complete_rec.voucher_number := l_claims_int_rec.voucher_number;
1735: x_complete_rec.voucher_number := l_claims_int_rec.voucher_number;
1736: END IF;
1737:
1738: -- payment_reference_id
1739: IF p_claims_int_rec.payment_reference_id = FND_API.g_miss_num THEN
1740: x_complete_rec.payment_reference_id := NULL;
1741: END IF;
1742: IF p_claims_int_rec.payment_reference_id IS NULL THEN
1743: x_complete_rec.payment_reference_id := l_claims_int_rec.payment_reference_id;
1743: x_complete_rec.payment_reference_id := l_claims_int_rec.payment_reference_id;
1744: END IF;
1745:
1746: -- payment_reference_number
1747: IF p_claims_int_rec.payment_reference_number = FND_API.g_miss_char THEN
1748: x_complete_rec.payment_reference_number := NULL;
1749: END IF;
1750: IF p_claims_int_rec.payment_reference_number IS NULL THEN
1751: x_complete_rec.payment_reference_number := l_claims_int_rec.payment_reference_number;
1751: x_complete_rec.payment_reference_number := l_claims_int_rec.payment_reference_number;
1752: END IF;
1753:
1754: -- payment_reference_date
1755: IF p_claims_int_rec.payment_reference_date = FND_API.g_miss_date THEN
1756: x_complete_rec.payment_reference_date := NULL;
1757: END IF;
1758: IF p_claims_int_rec.payment_reference_date IS NULL THEN
1759: x_complete_rec.payment_reference_date := l_claims_int_rec.payment_reference_date;
1759: x_complete_rec.payment_reference_date := l_claims_int_rec.payment_reference_date;
1760: END IF;
1761:
1762: -- payment_status
1763: IF p_claims_int_rec.payment_status = FND_API.g_miss_char THEN
1764: x_complete_rec.payment_status := NULL;
1765: END IF;
1766: IF p_claims_int_rec.payment_status IS NULL THEN
1767: x_complete_rec.payment_status := l_claims_int_rec.payment_status;
1767: x_complete_rec.payment_status := l_claims_int_rec.payment_status;
1768: END IF;
1769:
1770: -- approved_flag
1771: IF p_claims_int_rec.approved_flag = FND_API.g_miss_char THEN
1772: x_complete_rec.approved_flag := NULL;
1773: END IF;
1774: IF p_claims_int_rec.approved_flag IS NULL THEN
1775: x_complete_rec.approved_flag := l_claims_int_rec.approved_flag;
1775: x_complete_rec.approved_flag := l_claims_int_rec.approved_flag;
1776: END IF;
1777:
1778: -- approved_date
1779: IF p_claims_int_rec.approved_date = FND_API.g_miss_date THEN
1780: x_complete_rec.approved_date := NULL;
1781: END IF;
1782: IF p_claims_int_rec.approved_date IS NULL THEN
1783: x_complete_rec.approved_date := l_claims_int_rec.approved_date;
1783: x_complete_rec.approved_date := l_claims_int_rec.approved_date;
1784: END IF;
1785:
1786: -- approved_by
1787: IF p_claims_int_rec.approved_by = FND_API.g_miss_num THEN
1788: x_complete_rec.approved_by := NULL;
1789: END IF;
1790: IF p_claims_int_rec.approved_by IS NULL THEN
1791: x_complete_rec.approved_by := l_claims_int_rec.approved_by;
1791: x_complete_rec.approved_by := l_claims_int_rec.approved_by;
1792: END IF;
1793:
1794: -- settled_date
1795: IF p_claims_int_rec.settled_date = FND_API.g_miss_date THEN
1796: x_complete_rec.settled_date := NULL;
1797: END IF;
1798: IF p_claims_int_rec.settled_date IS NULL THEN
1799: x_complete_rec.settled_date := l_claims_int_rec.settled_date;
1799: x_complete_rec.settled_date := l_claims_int_rec.settled_date;
1800: END IF;
1801:
1802: -- settled_by
1803: IF p_claims_int_rec.settled_by = FND_API.g_miss_num THEN
1804: x_complete_rec.settled_by := NULL;
1805: END IF;
1806: IF p_claims_int_rec.settled_by IS NULL THEN
1807: x_complete_rec.settled_by := l_claims_int_rec.settled_by;
1807: x_complete_rec.settled_by := l_claims_int_rec.settled_by;
1808: END IF;
1809:
1810: -- effective_date
1811: IF p_claims_int_rec.effective_date = FND_API.g_miss_date THEN
1812: x_complete_rec.effective_date := NULL;
1813: END IF;
1814: IF p_claims_int_rec.effective_date IS NULL THEN
1815: x_complete_rec.effective_date := l_claims_int_rec.effective_date;
1815: x_complete_rec.effective_date := l_claims_int_rec.effective_date;
1816: END IF;
1817:
1818: -- custom_setup_id
1819: IF p_claims_int_rec.custom_setup_id = FND_API.g_miss_num THEN
1820: x_complete_rec.custom_setup_id := NULL;
1821: END IF;
1822: IF p_claims_int_rec.custom_setup_id IS NULL THEN
1823: x_complete_rec.custom_setup_id := l_claims_int_rec.custom_setup_id;
1823: x_complete_rec.custom_setup_id := l_claims_int_rec.custom_setup_id;
1824: END IF;
1825:
1826: -- task_id
1827: IF p_claims_int_rec.task_id = FND_API.g_miss_num THEN
1828: x_complete_rec.task_id := NULL;
1829: END IF;
1830: IF p_claims_int_rec.task_id IS NULL THEN
1831: x_complete_rec.task_id := l_claims_int_rec.task_id;
1831: x_complete_rec.task_id := l_claims_int_rec.task_id;
1832: END IF;
1833:
1834: -- country_id
1835: IF p_claims_int_rec.country_id = FND_API.g_miss_num THEN
1836: x_complete_rec.country_id := NULL;
1837: END IF;
1838: IF p_claims_int_rec.country_id IS NULL THEN
1839: x_complete_rec.country_id := l_claims_int_rec.country_id;
1839: x_complete_rec.country_id := l_claims_int_rec.country_id;
1840: END IF;
1841:
1842: -- order_type_id
1843: IF p_claims_int_rec.order_type_id = FND_API.g_miss_num THEN
1844: x_complete_rec.order_type_id := NULL;
1845: END IF;
1846: IF p_claims_int_rec.order_type_id IS NULL THEN
1847: x_complete_rec.order_type_id := l_claims_int_rec.order_type_id;
1847: x_complete_rec.order_type_id := l_claims_int_rec.order_type_id;
1848: END IF;
1849:
1850: -- comments
1851: IF p_claims_int_rec.comments = FND_API.g_miss_char THEN
1852: x_complete_rec.comments := NULL;
1853: END IF;
1854: IF p_claims_int_rec.comments IS NULL THEN
1855: x_complete_rec.comments := l_claims_int_rec.comments;
1855: x_complete_rec.comments := l_claims_int_rec.comments;
1856: END IF;
1857:
1858: -- attribute_category
1859: IF p_claims_int_rec.attribute_category = FND_API.g_miss_char THEN
1860: x_complete_rec.attribute_category := NULL;
1861: END IF;
1862: IF p_claims_int_rec.attribute_category IS NULL THEN
1863: x_complete_rec.attribute_category := l_claims_int_rec.attribute_category;
1863: x_complete_rec.attribute_category := l_claims_int_rec.attribute_category;
1864: END IF;
1865:
1866: -- attribute1
1867: IF p_claims_int_rec.attribute1 = FND_API.g_miss_char THEN
1868: x_complete_rec.attribute1 := NULL;
1869: END IF;
1870: IF p_claims_int_rec.attribute1 IS NULL THEN
1871: x_complete_rec.attribute1 := l_claims_int_rec.attribute1;
1871: x_complete_rec.attribute1 := l_claims_int_rec.attribute1;
1872: END IF;
1873:
1874: -- attribute2
1875: IF p_claims_int_rec.attribute2 = FND_API.g_miss_char THEN
1876: x_complete_rec.attribute2 := NULL;
1877: END IF;
1878: IF p_claims_int_rec.attribute2 IS NULL THEN
1879: x_complete_rec.attribute2 := l_claims_int_rec.attribute2;
1879: x_complete_rec.attribute2 := l_claims_int_rec.attribute2;
1880: END IF;
1881:
1882: -- attribute3
1883: IF p_claims_int_rec.attribute3 = FND_API.g_miss_char THEN
1884: x_complete_rec.attribute3 := NULL;
1885: END IF;
1886: IF p_claims_int_rec.attribute3 IS NULL THEN
1887: x_complete_rec.attribute3 := l_claims_int_rec.attribute3;
1887: x_complete_rec.attribute3 := l_claims_int_rec.attribute3;
1888: END IF;
1889:
1890: -- attribute4
1891: IF p_claims_int_rec.attribute4 = FND_API.g_miss_char THEN
1892: x_complete_rec.attribute4 := NULL;
1893: END IF;
1894: IF p_claims_int_rec.attribute4 IS NULL THEN
1895: x_complete_rec.attribute4 := l_claims_int_rec.attribute4;
1895: x_complete_rec.attribute4 := l_claims_int_rec.attribute4;
1896: END IF;
1897:
1898: -- attribute5
1899: IF p_claims_int_rec.attribute5 = FND_API.g_miss_char THEN
1900: x_complete_rec.attribute5 := NULL;
1901: END IF;
1902: IF p_claims_int_rec.attribute5 IS NULL THEN
1903: x_complete_rec.attribute5 := l_claims_int_rec.attribute5;
1903: x_complete_rec.attribute5 := l_claims_int_rec.attribute5;
1904: END IF;
1905:
1906: -- attribute6
1907: IF p_claims_int_rec.attribute6 = FND_API.g_miss_char THEN
1908: x_complete_rec.attribute6 := NULL;
1909: END IF;
1910: IF p_claims_int_rec.attribute6 IS NULL THEN
1911: x_complete_rec.attribute6 := l_claims_int_rec.attribute6;
1911: x_complete_rec.attribute6 := l_claims_int_rec.attribute6;
1912: END IF;
1913:
1914: -- attribute7
1915: IF p_claims_int_rec.attribute7 = FND_API.g_miss_char THEN
1916: x_complete_rec.attribute7 := NULL;
1917: END IF;
1918: IF p_claims_int_rec.attribute7 IS NULL THEN
1919: x_complete_rec.attribute7 := l_claims_int_rec.attribute7;
1919: x_complete_rec.attribute7 := l_claims_int_rec.attribute7;
1920: END IF;
1921:
1922: -- attribute8
1923: IF p_claims_int_rec.attribute8 = FND_API.g_miss_char THEN
1924: x_complete_rec.attribute8 := NULL;
1925: END IF;
1926: IF p_claims_int_rec.attribute8 IS NULL THEN
1927: x_complete_rec.attribute8 := l_claims_int_rec.attribute8;
1927: x_complete_rec.attribute8 := l_claims_int_rec.attribute8;
1928: END IF;
1929:
1930: -- attribute9
1931: IF p_claims_int_rec.attribute9 = FND_API.g_miss_char THEN
1932: x_complete_rec.attribute9 := NULL;
1933: END IF;
1934: IF p_claims_int_rec.attribute9 IS NULL THEN
1935: x_complete_rec.attribute9 := l_claims_int_rec.attribute9;
1935: x_complete_rec.attribute9 := l_claims_int_rec.attribute9;
1936: END IF;
1937:
1938: -- attribute10
1939: IF p_claims_int_rec.attribute10 = FND_API.g_miss_char THEN
1940: x_complete_rec.attribute10 := NULL;
1941: END IF;
1942: IF p_claims_int_rec.attribute10 IS NULL THEN
1943: x_complete_rec.attribute10 := l_claims_int_rec.attribute10;
1943: x_complete_rec.attribute10 := l_claims_int_rec.attribute10;
1944: END IF;
1945:
1946: -- attribute11
1947: IF p_claims_int_rec.attribute11 = FND_API.g_miss_char THEN
1948: x_complete_rec.attribute11 := NULL;
1949: END IF;
1950: IF p_claims_int_rec.attribute11 IS NULL THEN
1951: x_complete_rec.attribute11 := l_claims_int_rec.attribute11;
1951: x_complete_rec.attribute11 := l_claims_int_rec.attribute11;
1952: END IF;
1953:
1954: -- attribute12
1955: IF p_claims_int_rec.attribute12 = FND_API.g_miss_char THEN
1956: x_complete_rec.attribute12 := NULL;
1957: END IF;
1958: IF p_claims_int_rec.attribute12 IS NULL THEN
1959: x_complete_rec.attribute12 := l_claims_int_rec.attribute12;
1959: x_complete_rec.attribute12 := l_claims_int_rec.attribute12;
1960: END IF;
1961:
1962: -- attribute13
1963: IF p_claims_int_rec.attribute13 = FND_API.g_miss_char THEN
1964: x_complete_rec.attribute13 := NULL;
1965: END IF;
1966: IF p_claims_int_rec.attribute13 IS NULL THEN
1967: x_complete_rec.attribute13 := l_claims_int_rec.attribute13;
1967: x_complete_rec.attribute13 := l_claims_int_rec.attribute13;
1968: END IF;
1969:
1970: -- attribute14
1971: IF p_claims_int_rec.attribute14 = FND_API.g_miss_char THEN
1972: x_complete_rec.attribute14 := NULL;
1973: END IF;
1974: IF p_claims_int_rec.attribute14 IS NULL THEN
1975: x_complete_rec.attribute14 := l_claims_int_rec.attribute14;
1975: x_complete_rec.attribute14 := l_claims_int_rec.attribute14;
1976: END IF;
1977:
1978: -- attribute15
1979: IF p_claims_int_rec.attribute15 = FND_API.g_miss_char THEN
1980: x_complete_rec.attribute15 := NULL;
1981: END IF;
1982: IF p_claims_int_rec.attribute15 IS NULL THEN
1983: x_complete_rec.attribute15 := l_claims_int_rec.attribute15;
1983: x_complete_rec.attribute15 := l_claims_int_rec.attribute15;
1984: END IF;
1985:
1986: -- deduction_attribute_category
1987: IF p_claims_int_rec.deduction_attribute_category = FND_API.g_miss_char THEN
1988: x_complete_rec.deduction_attribute_category := NULL;
1989: END IF;
1990: IF p_claims_int_rec.deduction_attribute_category IS NULL THEN
1991: x_complete_rec.deduction_attribute_category := l_claims_int_rec.deduction_attribute_category;
1991: x_complete_rec.deduction_attribute_category := l_claims_int_rec.deduction_attribute_category;
1992: END IF;
1993:
1994: -- deduction_attribute1
1995: IF p_claims_int_rec.deduction_attribute1 = FND_API.g_miss_char THEN
1996: x_complete_rec.deduction_attribute1 := NULL;
1997: END IF;
1998: IF p_claims_int_rec.deduction_attribute1 IS NULL THEN
1999: x_complete_rec.deduction_attribute1 := l_claims_int_rec.deduction_attribute1;
1999: x_complete_rec.deduction_attribute1 := l_claims_int_rec.deduction_attribute1;
2000: END IF;
2001:
2002: -- deduction_attribute2
2003: IF p_claims_int_rec.deduction_attribute2 = FND_API.g_miss_char THEN
2004: x_complete_rec.deduction_attribute2 := NULL;
2005: END IF;
2006: IF p_claims_int_rec.deduction_attribute2 IS NULL THEN
2007: x_complete_rec.deduction_attribute2 := l_claims_int_rec.deduction_attribute2;
2007: x_complete_rec.deduction_attribute2 := l_claims_int_rec.deduction_attribute2;
2008: END IF;
2009:
2010: -- deduction_attribute3
2011: IF p_claims_int_rec.deduction_attribute3 = FND_API.g_miss_char THEN
2012: x_complete_rec.deduction_attribute3 := NULL;
2013: END IF;
2014: IF p_claims_int_rec.deduction_attribute3 IS NULL THEN
2015: x_complete_rec.deduction_attribute3 := l_claims_int_rec.deduction_attribute3;
2015: x_complete_rec.deduction_attribute3 := l_claims_int_rec.deduction_attribute3;
2016: END IF;
2017:
2018: -- deduction_attribute4
2019: IF p_claims_int_rec.deduction_attribute4 = FND_API.g_miss_char THEN
2020: x_complete_rec.deduction_attribute4 := NULL;
2021: END IF;
2022: IF p_claims_int_rec.deduction_attribute4 IS NULL THEN
2023: x_complete_rec.deduction_attribute4 := l_claims_int_rec.deduction_attribute4;
2023: x_complete_rec.deduction_attribute4 := l_claims_int_rec.deduction_attribute4;
2024: END IF;
2025:
2026: -- deduction_attribute5
2027: IF p_claims_int_rec.deduction_attribute5 = FND_API.g_miss_char THEN
2028: x_complete_rec.deduction_attribute5 := NULL;
2029: END IF;
2030: IF p_claims_int_rec.deduction_attribute5 IS NULL THEN
2031: x_complete_rec.deduction_attribute5 := l_claims_int_rec.deduction_attribute5;
2031: x_complete_rec.deduction_attribute5 := l_claims_int_rec.deduction_attribute5;
2032: END IF;
2033:
2034: -- deduction_attribute6
2035: IF p_claims_int_rec.deduction_attribute6 = FND_API.g_miss_char THEN
2036: x_complete_rec.deduction_attribute6 := NULL;
2037: END IF;
2038: IF p_claims_int_rec.deduction_attribute6 IS NULL THEN
2039: x_complete_rec.deduction_attribute6 := l_claims_int_rec.deduction_attribute6;
2039: x_complete_rec.deduction_attribute6 := l_claims_int_rec.deduction_attribute6;
2040: END IF;
2041:
2042: -- deduction_attribute7
2043: IF p_claims_int_rec.deduction_attribute7 = FND_API.g_miss_char THEN
2044: x_complete_rec.deduction_attribute7 := NULL;
2045: END IF;
2046: IF p_claims_int_rec.deduction_attribute7 IS NULL THEN
2047: x_complete_rec.deduction_attribute7 := l_claims_int_rec.deduction_attribute7;
2047: x_complete_rec.deduction_attribute7 := l_claims_int_rec.deduction_attribute7;
2048: END IF;
2049:
2050: -- deduction_attribute8
2051: IF p_claims_int_rec.deduction_attribute8 = FND_API.g_miss_char THEN
2052: x_complete_rec.deduction_attribute8 := NULL;
2053: END IF;
2054: IF p_claims_int_rec.deduction_attribute8 IS NULL THEN
2055: x_complete_rec.deduction_attribute8 := l_claims_int_rec.deduction_attribute8;
2055: x_complete_rec.deduction_attribute8 := l_claims_int_rec.deduction_attribute8;
2056: END IF;
2057:
2058: -- deduction_attribute9
2059: IF p_claims_int_rec.deduction_attribute9 = FND_API.g_miss_char THEN
2060: x_complete_rec.deduction_attribute9 := NULL;
2061: END IF;
2062: IF p_claims_int_rec.deduction_attribute9 IS NULL THEN
2063: x_complete_rec.deduction_attribute9 := l_claims_int_rec.deduction_attribute9;
2063: x_complete_rec.deduction_attribute9 := l_claims_int_rec.deduction_attribute9;
2064: END IF;
2065:
2066: -- deduction_attribute10
2067: IF p_claims_int_rec.deduction_attribute10 = FND_API.g_miss_char THEN
2068: x_complete_rec.deduction_attribute10 := NULL;
2069: END IF;
2070: IF p_claims_int_rec.deduction_attribute10 IS NULL THEN
2071: x_complete_rec.deduction_attribute10 := l_claims_int_rec.deduction_attribute10;
2071: x_complete_rec.deduction_attribute10 := l_claims_int_rec.deduction_attribute10;
2072: END IF;
2073:
2074: -- deduction_attribute11
2075: IF p_claims_int_rec.deduction_attribute11 = FND_API.g_miss_char THEN
2076: x_complete_rec.deduction_attribute11 := NULL;
2077: END IF;
2078: IF p_claims_int_rec.deduction_attribute11 IS NULL THEN
2079: x_complete_rec.deduction_attribute11 := l_claims_int_rec.deduction_attribute11;
2079: x_complete_rec.deduction_attribute11 := l_claims_int_rec.deduction_attribute11;
2080: END IF;
2081:
2082: -- deduction_attribute12
2083: IF p_claims_int_rec.deduction_attribute12 = FND_API.g_miss_char THEN
2084: x_complete_rec.deduction_attribute12 := NULL;
2085: END IF;
2086: IF p_claims_int_rec.deduction_attribute12 IS NULL THEN
2087: x_complete_rec.deduction_attribute12 := l_claims_int_rec.deduction_attribute12;
2087: x_complete_rec.deduction_attribute12 := l_claims_int_rec.deduction_attribute12;
2088: END IF;
2089:
2090: -- deduction_attribute13
2091: IF p_claims_int_rec.deduction_attribute13 = FND_API.g_miss_char THEN
2092: x_complete_rec.deduction_attribute13 := NULL;
2093: END IF;
2094: IF p_claims_int_rec.deduction_attribute13 IS NULL THEN
2095: x_complete_rec.deduction_attribute13 := l_claims_int_rec.deduction_attribute13;
2095: x_complete_rec.deduction_attribute13 := l_claims_int_rec.deduction_attribute13;
2096: END IF;
2097:
2098: -- deduction_attribute14
2099: IF p_claims_int_rec.deduction_attribute14 = FND_API.g_miss_char THEN
2100: x_complete_rec.deduction_attribute14 := NULL;
2101: END IF;
2102: IF p_claims_int_rec.deduction_attribute14 IS NULL THEN
2103: x_complete_rec.deduction_attribute14 := l_claims_int_rec.deduction_attribute14;
2103: x_complete_rec.deduction_attribute14 := l_claims_int_rec.deduction_attribute14;
2104: END IF;
2105:
2106: -- deduction_attribute15
2107: IF p_claims_int_rec.deduction_attribute15 = FND_API.g_miss_char THEN
2108: x_complete_rec.deduction_attribute15 := NULL;
2109: END IF;
2110: IF p_claims_int_rec.deduction_attribute15 IS NULL THEN
2111: x_complete_rec.deduction_attribute15 := l_claims_int_rec.deduction_attribute15;
2111: x_complete_rec.deduction_attribute15 := l_claims_int_rec.deduction_attribute15;
2112: END IF;
2113:
2114: -- org_id
2115: IF p_claims_int_rec.org_id = FND_API.g_miss_num THEN
2116: x_complete_rec.org_id := NULL;
2117: END IF;
2118: IF p_claims_int_rec.org_id IS NULL THEN
2119: x_complete_rec.org_id := l_claims_int_rec.org_id;
2118: IF p_claims_int_rec.org_id IS NULL THEN
2119: x_complete_rec.org_id := l_claims_int_rec.org_id;
2120: END IF;
2121:
2122: IF p_claims_int_rec.customer_reason = FND_API.g_miss_char THEN
2123: x_complete_rec.customer_reason := NULL;
2124: END IF;
2125: IF p_claims_int_rec.customer_reason IS NULL THEN
2126: x_complete_rec.customer_reason := l_claims_int_rec.customer_reason;
2125: IF p_claims_int_rec.customer_reason IS NULL THEN
2126: x_complete_rec.customer_reason := l_claims_int_rec.customer_reason;
2127: END IF;
2128:
2129: IF p_claims_int_rec.ship_to_cust_account_id = FND_API.g_miss_num THEN
2130: x_complete_rec.ship_to_cust_account_id := NULL;
2131: END IF;
2132: IF p_claims_int_rec.ship_to_cust_account_id IS NULL THEN
2133: x_complete_rec.ship_to_cust_account_id := l_claims_int_rec.ship_to_cust_account_id;
2137: END Complete_claims_int_Rec;
2138:
2139: PROCEDURE Validate_claims_int(
2140: p_api_version_number IN NUMBER,
2141: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2142: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2143: p_claims_int_rec IN claims_int_rec_type,
2144: x_return_status OUT NOCOPY VARCHAR2,
2145: x_msg_count OUT NOCOPY NUMBER,
2138:
2139: PROCEDURE Validate_claims_int(
2140: p_api_version_number IN NUMBER,
2141: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2142: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2143: p_claims_int_rec IN claims_int_rec_type,
2144: x_return_status OUT NOCOPY VARCHAR2,
2145: x_msg_count OUT NOCOPY NUMBER,
2146: x_msg_data OUT NOCOPY VARCHAR2
2155: -- Standard Start of API savepoint
2156: SAVEPOINT VALIDATE_Claims_Int_;
2157:
2158: -- Standard call to check for call compatibility.
2159: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2160: p_api_version_number,
2161: l_api_name,
2162: G_PKG_NAME)
2163: THEN
2160: p_api_version_number,
2161: l_api_name,
2162: G_PKG_NAME)
2163: THEN
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: -- Initialize message list if p_init_msg_list is set to TRUE.
2168: IF FND_API.to_Boolean( p_init_msg_list )
2164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2165: END IF;
2166:
2167: -- Initialize message list if p_init_msg_list is set to TRUE.
2168: IF FND_API.to_Boolean( p_init_msg_list )
2169: THEN
2170: FND_MSG_PUB.initialize;
2171: END IF;
2172: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2175: p_validation_mode => JTF_PLSQL_API.g_update,
2176: x_return_status => x_return_status
2177: );
2178:
2179: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2180: RAISE FND_API.G_EXC_ERROR;
2181: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183: END IF;
2176: x_return_status => x_return_status
2177: );
2178:
2179: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2180: RAISE FND_API.G_EXC_ERROR;
2181: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183: END IF;
2184: END IF;
2177: );
2178:
2179: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2180: RAISE FND_API.G_EXC_ERROR;
2181: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183: END IF;
2184: END IF;
2185:
2178:
2179: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2180: RAISE FND_API.G_EXC_ERROR;
2181: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183: END IF;
2184: END IF;
2185:
2186: Complete_claims_int_Rec(
2190:
2191: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2192: Validate_claims_int_Rec(
2193: p_api_version_number => 1.0,
2194: p_init_msg_list => FND_API.G_FALSE,
2195: x_return_status => x_return_status,
2196: x_msg_count => x_msg_count,
2197: x_msg_data => x_msg_data,
2198: p_claims_int_rec => l_claims_int_rec);
2196: x_msg_count => x_msg_count,
2197: x_msg_data => x_msg_data,
2198: p_claims_int_rec => l_claims_int_rec);
2199:
2200: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2201: RAISE FND_API.G_EXC_ERROR;
2202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2204: END IF;
2197: x_msg_data => x_msg_data,
2198: p_claims_int_rec => l_claims_int_rec);
2199:
2200: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2201: RAISE FND_API.G_EXC_ERROR;
2202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2204: END IF;
2205: END IF;
2198: p_claims_int_rec => l_claims_int_rec);
2199:
2200: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2201: RAISE FND_API.G_EXC_ERROR;
2202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2204: END IF;
2205: END IF;
2206:
2199:
2200: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2201: RAISE FND_API.G_EXC_ERROR;
2202: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2204: END IF;
2205: END IF;
2206:
2207: -- Debug Message
2209: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2210: END IF;
2211:
2212: -- Initialize API return status to SUCCESS
2213: x_return_status := FND_API.G_RET_STS_SUCCESS;
2214:
2215: -- Debug Message
2216: IF OZF_DEBUG_HIGH_ON THEN
2217: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2223: p_data => x_msg_data
2224: );
2225: EXCEPTION
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2225: EXCEPTION
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: -- Standard call to get message count and if count=1, get the message
2233: FND_MSG_PUB.Count_And_Get (
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: -- Standard call to get message count and if count=1, get the message
2233: FND_MSG_PUB.Count_And_Get (
2234: p_encoded => FND_API.G_FALSE,
2235: p_count => x_msg_count,
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: -- Standard call to get message count and if count=1, get the message
2233: FND_MSG_PUB.Count_And_Get (
2234: p_encoded => FND_API.G_FALSE,
2235: p_count => x_msg_count,
2236: p_data => x_msg_data
2237: );
2238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2234: p_encoded => FND_API.G_FALSE,
2235: p_count => x_msg_count,
2236: p_data => x_msg_data
2237: );
2238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2239: ROLLBACK TO VALIDATE_Claims_Int_;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: -- Standard call to get message count and if count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2236: p_data => x_msg_data
2237: );
2238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2239: ROLLBACK TO VALIDATE_Claims_Int_;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: -- Standard call to get message count and if count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2239: ROLLBACK TO VALIDATE_Claims_Int_;
2240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2241: -- Standard call to get message count and if count=1, get the message
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: WHEN OTHERS THEN
2245: p_data => x_msg_data
2246: );
2247: WHEN OTHERS THEN
2248: ROLLBACK TO VALIDATE_Claims_Int_;
2249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2250: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2251: THEN
2252: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2253: END IF;
2252: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2253: END IF;
2254: -- Standard call to get message count and if count=1, get the message
2255: FND_MSG_PUB.Count_And_Get (
2256: p_encoded => FND_API.G_FALSE,
2257: p_count => x_msg_count,
2258: p_data => x_msg_data
2259: );
2260: End Validate_Claims_Int;
2260: End Validate_Claims_Int;
2261:
2262: PROCEDURE Validate_claims_int_rec(
2263: p_api_version_number IN NUMBER,
2264: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2265: x_return_status OUT NOCOPY VARCHAR2,
2266: x_msg_count OUT NOCOPY NUMBER,
2267: x_msg_data OUT NOCOPY VARCHAR2,
2268: p_claims_int_rec IN claims_int_rec_type
2269: )
2270: IS
2271: BEGIN
2272: -- Initialize message list if p_init_msg_list is set to TRUE.
2273: IF FND_API.to_Boolean( p_init_msg_list )
2274: THEN
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2275: FND_MSG_PUB.initialize;
2276: END IF;
2277:
2278: -- Initialize API return status to SUCCESS
2279: x_return_status := FND_API.G_RET_STS_SUCCESS;
2280:
2281: -- Hint: Validate data
2282: -- If data not valid
2283: -- THEN
2280:
2281: -- Hint: Validate data
2282: -- If data not valid
2283: -- THEN
2284: -- x_return_status := FND_API.G_RET_STS_ERROR;
2285:
2286: -- Debug Message
2287: IF OZF_DEBUG_HIGH_ON THEN
2288: OZF_UTILITY_PVT.debug_message('Private API: Validate_claims_int_rec');
2319: -- Debug Message
2320: IF OZF_DEBUG_HIGH_ON THEN
2321: OZF_UTILITY_PVT.debug_message('Private API: Clean up Claims');
2322: END IF;
2323: x_return_status := FND_API.G_RET_STS_SUCCESS;
2324:
2325: delete from ozf_claims_all where claim_id = p_claim_id;
2326: delete from ozf_claim_lines_all where claim_id = p_claim_id;
2327:
2326: delete from ozf_claim_lines_all where claim_id = p_claim_id;
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DELETE_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2473:
2474: -- Check deduction items if it's a deduction.
2475: IF (l_claim_int_rec.claim_class = G_DEDUCTION_CLASS AND
2476: ((l_claim_int_rec.cust_account_id is NULL OR
2477: l_claim_int_rec.cust_account_id = FND_API.G_MISS_NUM) OR
2478: (l_claim_int_rec.receipt_id is NULL OR
2479: l_claim_int_rec.receipt_id = FND_API.G_MISS_NUM) OR
2480: (l_claim_int_rec.receipt_number is NULL OR
2481: l_claim_int_rec.receipt_number = FND_API.G_MISS_CHAR) OR
2475: IF (l_claim_int_rec.claim_class = G_DEDUCTION_CLASS AND
2476: ((l_claim_int_rec.cust_account_id is NULL OR
2477: l_claim_int_rec.cust_account_id = FND_API.G_MISS_NUM) OR
2478: (l_claim_int_rec.receipt_id is NULL OR
2479: l_claim_int_rec.receipt_id = FND_API.G_MISS_NUM) OR
2480: (l_claim_int_rec.receipt_number is NULL OR
2481: l_claim_int_rec.receipt_number = FND_API.G_MISS_CHAR) OR
2482: (l_claim_int_rec.currency_code is NULL OR
2483: l_claim_int_rec.currency_code = FND_API.G_MISS_CHAR) OR
2477: l_claim_int_rec.cust_account_id = FND_API.G_MISS_NUM) OR
2478: (l_claim_int_rec.receipt_id is NULL OR
2479: l_claim_int_rec.receipt_id = FND_API.G_MISS_NUM) OR
2480: (l_claim_int_rec.receipt_number is NULL OR
2481: l_claim_int_rec.receipt_number = FND_API.G_MISS_CHAR) OR
2482: (l_claim_int_rec.currency_code is NULL OR
2483: l_claim_int_rec.currency_code = FND_API.G_MISS_CHAR) OR
2484: (l_claim_int_rec.amount is NULL OR
2485: l_claim_int_rec.amount = FND_API.G_MISS_NUM))) THEN
2479: l_claim_int_rec.receipt_id = FND_API.G_MISS_NUM) OR
2480: (l_claim_int_rec.receipt_number is NULL OR
2481: l_claim_int_rec.receipt_number = FND_API.G_MISS_CHAR) OR
2482: (l_claim_int_rec.currency_code is NULL OR
2483: l_claim_int_rec.currency_code = FND_API.G_MISS_CHAR) OR
2484: (l_claim_int_rec.amount is NULL OR
2485: l_claim_int_rec.amount = FND_API.G_MISS_NUM))) THEN
2486:
2487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2481: l_claim_int_rec.receipt_number = FND_API.G_MISS_CHAR) OR
2482: (l_claim_int_rec.currency_code is NULL OR
2483: l_claim_int_rec.currency_code = FND_API.G_MISS_CHAR) OR
2484: (l_claim_int_rec.amount is NULL OR
2485: l_claim_int_rec.amount = FND_API.G_MISS_NUM))) THEN
2486:
2487: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2488: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
2489: FND_MSG_PUB.Add;
2497: -- Verify claim_class based on input
2498: IF l_claim_int_rec.claim_class <> G_CLAIM_CLASS
2499: AND l_claim_int_rec.claim_class <> G_CHARGE_CLASS
2500: THEN
2501: IF (l_claim_int_rec.SOURCE_OBJECT_ID <> FND_API.G_MISS_NUM OR
2502: l_claim_int_rec.SOURCE_OBJECT_ID is not NULL ) THEN
2503:
2504: IF (l_claim_int_rec.source_object_type_id is null) THEN
2505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2671: END IF;
2672:
2673: OZF_claim_PVT.Check_Claim_Common_Element (
2674: p_api_version => 1.0,
2675: p_init_msg_list => FND_API.G_FALSE,
2676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2677: x_Return_Status => l_return_status,
2678: x_Msg_Count => l_msg_count,
2679: x_Msg_Data => l_msg_data,
2672:
2673: OZF_claim_PVT.Check_Claim_Common_Element (
2674: p_api_version => 1.0,
2675: p_init_msg_list => FND_API.G_FALSE,
2676: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2677: x_Return_Status => l_return_status,
2678: x_Msg_Count => l_msg_count,
2679: x_Msg_Data => l_msg_data,
2680: p_claim => l_claim_rec,
2680: p_claim => l_claim_rec,
2681: x_claim => l_x_claim_rec
2682: );
2683: -- Check return status from the above procedure call
2684: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2685: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2687: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2688: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2681: x_claim => l_x_claim_rec
2682: );
2683: -- Check return status from the above procedure call
2684: IF l_return_status = FND_API.G_RET_STS_ERROR OR
2685: l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2687: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');
2688: FND_MESSAGE.Set_Token('ID', l_claim_int_rec.interface_claim_id);
2689: FND_MSG_PUB.Add;
2708: ,p_claim => l_claim_rec
2709: ,x_claim_id => l_claim_id
2710: );
2711:
2712: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2713: -- Debug Message
2714: IF OZF_DEBUG_HIGH_ON THEN
2715: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' failed');
2716: END IF;
2722: END IF;
2723: GOTO next_claim;
2724: END IF;
2725:
2726: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2727: -----------------------------------------------
2728: -- Update claim_id in Claim Interface Table --
2729: -----------------------------------------------
2730:
2748: FND_MSG_PUB.Add;
2749: END IF;
2750: cleanup_claims (p_claim_id => l_claim_id,
2751: x_return_status => l_return_status);
2752: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2754: END IF;
2755: GOTO next_claim;
2756: END IF;
2749: END IF;
2750: cleanup_claims (p_claim_id => l_claim_id,
2751: x_return_status => l_return_status);
2752: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2754: END IF;
2755: GOTO next_claim;
2756: END IF;
2757:
2828: -- Create Claim_Line --
2829: -------------------------
2830: OZF_Claim_Line_PVT.Create_Claim_Line(
2831: P_Api_Version => 1.0,
2832: P_Init_Msg_List => FND_API.G_FALSE,
2833: P_Commit => FND_API.G_FALSE,
2834: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2835: X_Return_Status => l_return_status,
2836: X_Msg_Count => l_msg_count,
2829: -------------------------
2830: OZF_Claim_Line_PVT.Create_Claim_Line(
2831: P_Api_Version => 1.0,
2832: P_Init_Msg_List => FND_API.G_FALSE,
2833: P_Commit => FND_API.G_FALSE,
2834: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2835: X_Return_Status => l_return_status,
2836: X_Msg_Count => l_msg_count,
2837: X_Msg_Data => l_msg_data,
2830: OZF_Claim_Line_PVT.Create_Claim_Line(
2831: P_Api_Version => 1.0,
2832: P_Init_Msg_List => FND_API.G_FALSE,
2833: P_Commit => FND_API.G_FALSE,
2834: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
2835: X_Return_Status => l_return_status,
2836: X_Msg_Count => l_msg_count,
2837: X_Msg_Data => l_msg_data,
2838: p_claim_line_rec => l_line_rec,
2838: p_claim_line_rec => l_line_rec,
2839: x_claim_line_id => l_line_id
2840: );
2841:
2842: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2843: IF OZF_DEBUG_HIGH_ON THEN
2844: OZF_UTILITY_PVT.debug_message('Claim line creation failed. ');
2845: END IF;
2846:
2851: FND_MSG_PUB.Add;
2852: END IF;
2853: cleanup_claims (p_claim_id => l_claim_id,
2854: x_return_status => l_return_status);
2855: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2858: GOTO next_claim;
2859: END IF;
2852: END IF;
2853: cleanup_claims (p_claim_id => l_claim_id,
2854: x_return_status => l_return_status);
2855: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2857: END IF;
2858: GOTO next_claim;
2859: END IF;
2860:
2897: END LOOP;
2898: END IF;
2899:
2900: EXCEPTION
2901: WHEN FND_API.g_exc_error THEN
2902: ROLLBACK TO Start_Replicate_IMP;
2903: FND_MSG_PUB.count_and_get (
2904: p_encoded => FND_API.g_false
2905: ,p_count => l_msg_count
2900: EXCEPTION
2901: WHEN FND_API.g_exc_error THEN
2902: ROLLBACK TO Start_Replicate_IMP;
2903: FND_MSG_PUB.count_and_get (
2904: p_encoded => FND_API.g_false
2905: ,p_count => l_msg_count
2906: ,p_data => l_msg_data
2907: );
2908: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2909: RETCODE := 2;
2910: -- Write all errors messages to a log
2911: OZF_UTILITY_PVT.Write_Conc_Log;
2912:
2913: WHEN FND_API.g_exc_unexpected_error THEN
2914: ROLLBACK TO Start_Replicate_IMP;
2915: FND_MSG_PUB.count_and_get (
2916: p_encoded => FND_API.g_false
2917: ,p_count => l_msg_count
2912:
2913: WHEN FND_API.g_exc_unexpected_error THEN
2914: ROLLBACK TO Start_Replicate_IMP;
2915: FND_MSG_PUB.count_and_get (
2916: p_encoded => FND_API.g_false
2917: ,p_count => l_msg_count
2918: ,p_data => l_msg_data
2919: );
2920: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2923: OZF_UTILITY_PVT.Write_Conc_Log;
2924: WHEN OTHERS THEN
2925: ROLLBACK TO Start_Replicate_IMP;
2926: FND_MSG_PUB.count_and_get (
2927: p_encoded => FND_API.g_false
2928: ,p_count => l_msg_count
2929: ,p_data => l_msg_data
2930: );
2931: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3002:
3003: -- Write all messages to a log
3004: OZF_UTILITY_PVT.Write_Conc_Log;
3005: EXCEPTION
3006: WHEN FND_API.g_exc_error THEN
3007: ROLLBACK TO PURGE_CLAIM_IMP;
3008: FND_MSG_PUB.count_and_get (
3009: p_encoded => FND_API.g_false
3010: ,p_count => l_msg_count
3005: EXCEPTION
3006: WHEN FND_API.g_exc_error THEN
3007: ROLLBACK TO PURGE_CLAIM_IMP;
3008: FND_MSG_PUB.count_and_get (
3009: p_encoded => FND_API.g_false
3010: ,p_count => l_msg_count
3011: ,p_data => l_msg_data
3012: );
3013: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3014: RETCODE := 2;
3015: -- Write all errors messages to a log
3016: OZF_UTILITY_PVT.Write_Conc_Log;
3017:
3018: WHEN FND_API.g_exc_unexpected_error THEN
3019: ROLLBACK TO PURGE_CLAIM_IMP;
3020: FND_MSG_PUB.count_and_get (
3021: p_encoded => FND_API.g_false
3022: ,p_count => l_msg_count
3017:
3018: WHEN FND_API.g_exc_unexpected_error THEN
3019: ROLLBACK TO PURGE_CLAIM_IMP;
3020: FND_MSG_PUB.count_and_get (
3021: p_encoded => FND_API.g_false
3022: ,p_count => l_msg_count
3023: ,p_data => l_msg_data
3024: );
3025: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3028: OZF_UTILITY_PVT.Write_Conc_Log;
3029: WHEN OTHERS THEN
3030: ROLLBACK TO PURGE_CLAIM_IMP;
3031: FND_MSG_PUB.count_and_get (
3032: p_encoded => FND_API.g_false
3033: ,p_count => l_msg_count
3034: ,p_data => l_msg_data
3035: );
3036: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');