[Home] [Help]
22: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
23:
24: PROCEDURE Create_Claim_Line_Hist(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29:
30: x_return_status OUT NOCOPY VARCHAR2,
23:
24: PROCEDURE Create_Claim_Line_Hist(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29:
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
24: PROCEDURE Create_Claim_Line_Hist(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29:
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2,
57: -- Standard Start of API savepoint
58: SAVEPOINT CREATE_Claim_Line_Hist_PVT;
59:
60: -- Standard call to check for call compatibility.
61: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
62: p_api_version_number,
63: l_api_name,
64: G_PKG_NAME) THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
62: p_api_version_number,
63: l_api_name,
64: G_PKG_NAME) THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean(p_init_msg_list) THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67:
68: -- Initialize message list if p_init_msg_list is set to TRUE.
69: IF FND_API.to_Boolean(p_init_msg_list) THEN
70: FND_MSG_PUB.initialize;
71: END IF;
72:
73: -- Debug Message
75: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
76: END IF;
77:
78: -- Initialize API return status to SUCCESS
79: x_return_status := FND_API.G_RET_STS_SUCCESS;
80:
81: -- Local variable initialization
82:
83: IF p_claim_line_hist_rec.claim_line_history_id IS NULL OR
80:
81: -- Local variable initialization
82:
83: IF p_claim_line_hist_rec.claim_line_history_id IS NULL OR
84: p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num THEN
85: LOOP
86: l_dummy := NULL;
87: OPEN c_id;
88: FETCH c_id INTO l_claim_line_history_id;
113: -- =========================================================================
114:
115: IF FND_GLOBAL.User_Id IS NULL THEN
116: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
121: -- Debug message
116: OZF_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
121: -- Debug message
122: IF g_debug THEN
123: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Line_Hist');
124: END IF;
125:
126: -- Invoke validation procedures
127: Validate_claim_line_hist(
128: p_api_version_number => 1.0,
129: p_init_msg_list => FND_API.G_FALSE,
130: p_validation_level => p_validation_level,
131: --p_claim_line_hist_rec => p_claim_line_hist_rec,
132: p_claim_line_hist_rec => l_claim_line_hist_rec,
133: x_return_status => x_return_status,
135: x_msg_data => x_msg_data
136: );
137: END IF;
138:
139: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
140: RAISE FND_API.G_EXC_ERROR;
141: END IF;
142:
143:
136: );
137: END IF;
138:
139: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
140: RAISE FND_API.G_EXC_ERROR;
141: END IF;
142:
143:
144: -- Debug Message
244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
245: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
246: FND_MSG_PUB.add;
247: END IF;
248: RAISE FND_API.g_exc_error;
249: END;
250:
251: -- Standard check for p_commit
252: IF FND_API.to_Boolean( p_commit )
248: RAISE FND_API.g_exc_error;
249: END;
250:
251: -- Standard check for p_commit
252: IF FND_API.to_Boolean( p_commit )
253: THEN
254: COMMIT WORK;
255: END IF;
256:
266: );
267:
268: EXCEPTION
269: WHEN OZF_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
269: WHEN OZF_Utility_PVT.resource_locked THEN
270: x_return_status := FND_API.g_ret_sts_error;
271: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
271: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
272:
273: WHEN FND_API.G_EXC_ERROR THEN
274: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
278: p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
274: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: -- Standard call to get message count and if count=1, get the message
277: FND_MSG_PUB.Count_And_Get (
278: p_encoded => FND_API.G_FALSE,
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282:
279: p_count => x_msg_count,
280: p_data => x_msg_data
281: );
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
281: );
282:
283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
284: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
288: p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
284: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: -- Standard call to get message count and if count=1, get the message
287: FND_MSG_PUB.Count_And_Get (
288: p_encoded => FND_API.G_FALSE,
289: p_count => x_msg_count,
290: p_data => x_msg_data
291: );
292:
291: );
292:
293: WHEN OTHERS THEN
294: ROLLBACK TO CREATE_Claim_Line_Hist_PVT;
295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
298: END IF;
299: -- Standard call to get message count and if count=1, get the message
297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
298: END IF;
299: -- Standard call to get message count and if count=1, get the message
300: FND_MSG_PUB.Count_And_Get(
301: p_encoded => FND_API.G_FALSE,
302: p_count => x_msg_count,
303: p_data => x_msg_data
304: );
305:
307:
308:
309: PROCEDURE Update_Claim_Line_Hist(
310: p_api_version_number IN NUMBER,
311: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
312: p_commit IN VARCHAR2 := FND_API.G_FALSE,
313: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
314:
315: x_return_status OUT NOCOPY VARCHAR2,
308:
309: PROCEDURE Update_Claim_Line_Hist(
310: p_api_version_number IN NUMBER,
311: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
312: p_commit IN VARCHAR2 := FND_API.G_FALSE,
313: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
314:
315: x_return_status OUT NOCOPY VARCHAR2,
316: x_msg_count OUT NOCOPY NUMBER,
309: PROCEDURE Update_Claim_Line_Hist(
310: p_api_version_number IN NUMBER,
311: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
312: p_commit IN VARCHAR2 := FND_API.G_FALSE,
313: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
314:
315: x_return_status OUT NOCOPY VARCHAR2,
316: x_msg_count OUT NOCOPY NUMBER,
317: x_msg_data OUT NOCOPY VARCHAR2,
345: -- Standard Start of API savepoint
346: SAVEPOINT UPDATE_Claim_Line_Hist_PVT;
347:
348: -- Standard call to check for call compatibility.
349: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
350: p_api_version_number,
351: l_api_name,
352: G_PKG_NAME) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
350: p_api_version_number,
351: l_api_name,
352: G_PKG_NAME) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355:
356: -- Initialize message list if p_init_msg_list is set to TRUE.
357: IF FND_API.to_Boolean( p_init_msg_list ) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355:
356: -- Initialize message list if p_init_msg_list is set to TRUE.
357: IF FND_API.to_Boolean( p_init_msg_list ) THEN
358: FND_MSG_PUB.initialize;
359: END IF;
360:
361: -- Debug Message
363: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
364: END IF;
365:
366: -- Initialize API return status to SUCCESS
367: x_return_status := FND_API.G_RET_STS_SUCCESS;
368:
369: -- Varify object_version_number
370: IF p_claim_line_hist_rec.object_version_number is NULL or
371: p_claim_line_hist_rec.object_version_number = FND_API.G_MISS_NUM THEN
367: x_return_status := FND_API.G_RET_STS_SUCCESS;
368:
369: -- Varify object_version_number
370: IF p_claim_line_hist_rec.object_version_number is NULL or
371: p_claim_line_hist_rec.object_version_number = FND_API.G_MISS_NUM THEN
372: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
373: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
374: FND_MSG_PUB.ADD;
375: END IF;
372: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
373: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
374: FND_MSG_PUB.ADD;
375: END IF;
376: RAISE FND_API.G_EXC_ERROR;
377: END IF;
378:
379: OPEN csr_line_hist_obj_ver(p_claim_line_hist_rec.claim_line_history_id);
380: FETCH csr_line_hist_obj_ver INTO l_object_version_number;
390:
391: l_object_version_number := l_object_version_number + 1;
392:
393:
394: IF (p_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
395: -- Debug message
396: IF g_debug THEN
397: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Line_Hist');
398: END IF;
399:
400: -- Invoke validation procedures
401: Validate_claim_line_hist(
402: p_api_version_number => 1.0,
403: p_init_msg_list => FND_API.G_FALSE,
404: p_validation_level => p_validation_level,
405: p_claim_line_hist_rec => p_claim_line_hist_rec,
406: x_return_status => x_return_status,
407: x_msg_count => x_msg_count,
408: x_msg_data => x_msg_data
409: );
410: END IF;
411:
412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416:
409: );
410: END IF;
411:
412: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413: RAISE FND_API.G_EXC_ERROR;
414: END IF;
415:
416:
417: -- Debug Message
513: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
514: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
515: FND_MSG_PUB.add;
516: END IF;
517: RAISE FND_API.g_exc_error;
518: END;
519:
520: -- Standard check for p_commit
521: IF FND_API.to_Boolean( p_commit ) THEN
517: RAISE FND_API.g_exc_error;
518: END;
519:
520: -- Standard check for p_commit
521: IF FND_API.to_Boolean( p_commit ) THEN
522: COMMIT WORK;
523: END IF;
524:
525: -- Debug Message
534: );
535:
536: EXCEPTION
537: WHEN OZF_Utility_PVT.resource_locked THEN
538: x_return_status := FND_API.g_ret_sts_error;
539: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
537: WHEN OZF_Utility_PVT.resource_locked THEN
538: x_return_status := FND_API.g_ret_sts_error;
539: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
545: FND_MSG_PUB.Count_And_Get (
539: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
545: FND_MSG_PUB.Count_And_Get (
546: p_encoded => FND_API.G_FALSE,
547: p_count => x_msg_count,
542: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: -- Standard call to get message count and if count=1, get the message
545: FND_MSG_PUB.Count_And_Get (
546: p_encoded => FND_API.G_FALSE,
547: p_count => x_msg_count,
548: p_data => x_msg_data
549: );
550:
547: p_count => x_msg_count,
548: p_data => x_msg_data
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get(
549: );
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get(
556: p_encoded => FND_API.G_FALSE,
557: p_count => x_msg_count,
552: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: -- Standard call to get message count and if count=1, get the message
555: FND_MSG_PUB.Count_And_Get(
556: p_encoded => FND_API.G_FALSE,
557: p_count => x_msg_count,
558: p_data => x_msg_data
559: );
560:
559: );
560:
561: WHEN OTHERS THEN
562: ROLLBACK TO UPDATE_Claim_Line_Hist_PVT;
563: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
564: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
565: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
566: END IF;
567: -- Standard call to get message count and if count=1, get the message
565: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
566: END IF;
567: -- Standard call to get message count and if count=1, get the message
568: FND_MSG_PUB.Count_And_Get (
569: p_encoded => FND_API.G_FALSE,
570: p_count => x_msg_count,
571: p_data => x_msg_data
572: );
573:
575:
576:
577: PROCEDURE Delete_Claim_Line_Hist(
578: p_api_version_number IN NUMBER,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: x_return_status OUT NOCOPY VARCHAR2,
583: x_msg_count OUT NOCOPY NUMBER,
576:
577: PROCEDURE Delete_Claim_Line_Hist(
578: p_api_version_number IN NUMBER,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: x_return_status OUT NOCOPY VARCHAR2,
583: x_msg_count OUT NOCOPY NUMBER,
584: x_msg_data OUT NOCOPY VARCHAR2,
577: PROCEDURE Delete_Claim_Line_Hist(
578: p_api_version_number IN NUMBER,
579: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
580: p_commit IN VARCHAR2 := FND_API.G_FALSE,
581: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
582: x_return_status OUT NOCOPY VARCHAR2,
583: x_msg_count OUT NOCOPY NUMBER,
584: x_msg_data OUT NOCOPY VARCHAR2,
585: p_claim_line_history_id IN NUMBER,
599: -- Standard Start of API savepoint
600: SAVEPOINT DELETE_Claim_Line_Hist_PVT;
601:
602: -- Standard call to check for call compatibility.
603: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
604: p_api_version_number,
605: l_api_name,
606: G_PKG_NAME) THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
603: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
604: p_api_version_number,
605: l_api_name,
606: G_PKG_NAME) THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
608: END IF;
609:
610: -- Initialize message list if p_init_msg_list is set to TRUE.
611: IF FND_API.to_Boolean( p_init_msg_list ) THEN
607: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
608: END IF;
609:
610: -- Initialize message list if p_init_msg_list is set to TRUE.
611: IF FND_API.to_Boolean( p_init_msg_list ) THEN
612: FND_MSG_PUB.initialize;
613: END IF;
614:
615: -- Debug Message
618: END IF;
619:
620:
621: -- Initialize API return status to SUCCESS
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
623:
624: -- Validate object_version_number
625: OPEN csr_line_hist_obj_ver(p_claim_line_history_id);
626: FETCH csr_line_hist_obj_ver INTO l_object_version_number;
643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
644: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
645: FND_MSG_PUB.add;
646: END IF;
647: RAISE FND_API.g_exc_error;
648: END;
649: ELSE
650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
651: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
651: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
652: FND_MSG_PUB.add;
653: END IF;
654: RAISE FND_API.g_exc_error;
655: END IF;
656:
657: -- Standard check for p_commit
658: IF FND_API.to_Boolean(p_commit) THEN
654: RAISE FND_API.g_exc_error;
655: END IF;
656:
657: -- Standard check for p_commit
658: IF FND_API.to_Boolean(p_commit) THEN
659: COMMIT WORK;
660: END IF;
661:
662: -- Debug Message
671: );
672:
673: EXCEPTION
674: WHEN OZF_Utility_PVT.resource_locked THEN
675: x_return_status := FND_API.g_ret_sts_error;
676: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
677:
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
674: WHEN OZF_Utility_PVT.resource_locked THEN
675: x_return_status := FND_API.g_ret_sts_error;
676: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
677:
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
676: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
677:
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
679: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
686: );
687:
688: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
689: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
694: p_count => x_msg_count,
689: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
694: p_count => x_msg_count,
695: p_data => x_msg_data
696: );
697:
696: );
697:
698: WHEN OTHERS THEN
699: ROLLBACK TO DELETE_Claim_Line_Hist_PVT;
700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
703: END IF;
704: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
703: END IF;
704: -- Standard call to get message count and if count=1, get the message
705: FND_MSG_PUB.Count_And_Get (
706: p_encoded => FND_API.G_FALSE,
707: p_count => x_msg_count,
708: p_data => x_msg_data
709: );
710:
712:
713:
714: PROCEDURE Lock_Claim_Line_Hist(
715: p_api_version_number IN NUMBER,
716: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
717:
718: x_return_status OUT NOCOPY VARCHAR2,
719: x_msg_count OUT NOCOPY NUMBER,
720: x_msg_data OUT NOCOPY VARCHAR2,
741: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
742: END IF;
743:
744: -- Initialize message list if p_init_msg_list is set to TRUE.
745: IF FND_API.to_Boolean( p_init_msg_list ) THEN
746: FND_MSG_PUB.initialize;
747: END IF;
748:
749: -- Standard call to check for call compatibility.
746: FND_MSG_PUB.initialize;
747: END IF;
748:
749: -- Standard call to check for call compatibility.
750: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
751: p_api_version_number,
752: l_api_name,
753: G_PKG_NAME) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
751: p_api_version_number,
752: l_api_name,
753: G_PKG_NAME) THEN
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: -- Initialize API return status to SUCCESS
758: x_return_status := FND_API.G_RET_STS_SUCCESS;
754: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
755: END IF;
756:
757: -- Initialize API return status to SUCCESS
758: x_return_status := FND_API.G_RET_STS_SUCCESS;
759:
760: ------------------------ lock -------------------------
761: IF g_debug THEN
762: OZF_Utility_PVT.debug_message(l_full_name||': start');
769: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
770: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
771: FND_MSG_PUB.add;
772: END IF;
773: RAISE FND_API.g_exc_error;
774: END IF;
775: CLOSE c_Claim_Line_Hist;
776:
777: -------------------- finish --------------------------
775: CLOSE c_Claim_Line_Hist;
776:
777: -------------------- finish --------------------------
778: FND_MSG_PUB.count_and_get(
779: p_encoded => FND_API.g_false,
780: p_count => x_msg_count,
781: p_data => x_msg_data
782: );
783:
786: END IF;
787:
788: EXCEPTION
789: WHEN OZF_Utility_PVT.resource_locked THEN
790: x_return_status := FND_API.g_ret_sts_error;
791: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
789: WHEN OZF_Utility_PVT.resource_locked THEN
790: x_return_status := FND_API.g_ret_sts_error;
791: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: -- Standard call to get message count and if count=1, get the message
797: FND_MSG_PUB.Count_And_Get (
791: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
792:
793: WHEN FND_API.G_EXC_ERROR THEN
794: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: -- Standard call to get message count and if count=1, get the message
797: FND_MSG_PUB.Count_And_Get (
798: p_encoded => FND_API.G_FALSE,
799: p_count => x_msg_count,
794: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: -- Standard call to get message count and if count=1, get the message
797: FND_MSG_PUB.Count_And_Get (
798: p_encoded => FND_API.G_FALSE,
799: p_count => x_msg_count,
800: p_data => x_msg_data
801: );
802:
799: p_count => x_msg_count,
800: p_data => x_msg_data
801: );
802:
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
801: );
802:
803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
804: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
808: p_encoded => FND_API.G_FALSE,
809: p_count => x_msg_count,
804: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
806: -- Standard call to get message count and if count=1, get the message
807: FND_MSG_PUB.Count_And_Get (
808: p_encoded => FND_API.G_FALSE,
809: p_count => x_msg_count,
810: p_data => x_msg_data
811: );
812:
811: );
812:
813: WHEN OTHERS THEN
814: ROLLBACK TO LOCK_Claim_Line_Hist_PVT;
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
817: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
818: END IF;
819: -- Standard call to get message count and if count=1, get the message
817: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
818: END IF;
819: -- Standard call to get message count and if count=1, get the message
820: FND_MSG_PUB.Count_And_Get (
821: p_encoded => FND_API.G_FALSE,
822: p_count => x_msg_count,
823: p_data => x_msg_data
824: );
825:
834: IS
835: l_valid_flag VARCHAR2(1);
836:
837: BEGIN
838: x_return_status := FND_API.g_ret_sts_success;
839:
840: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
841: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
842: 'OZF_CLAIM_LINES_HIST_ALL',
849: ''' AND CLAIM_LINE_HISTORY_ID <> ' || p_claim_line_hist_rec.CLAIM_LINE_HISTORY_ID
850: );
851: END IF;
852:
853: IF l_valid_flag = FND_API.g_false THEN
854: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_CLAIM_LINE_HIST_ID_DUP');
855: x_return_status := FND_API.g_ret_sts_error;
856: RETURN;
857: END IF;
851: END IF;
852:
853: IF l_valid_flag = FND_API.g_false THEN
854: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_CLAIM_LINE_HIST_ID_DUP');
855: x_return_status := FND_API.g_ret_sts_error;
856: RETURN;
857: END IF;
858:
859: END check_line_hist_uk_items;
865: x_return_status OUT NOCOPY VARCHAR2
866: )
867: IS
868: BEGIN
869: x_return_status := FND_API.g_ret_sts_success;
870:
871: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
872: IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num OR
873: p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
868: BEGIN
869: x_return_status := FND_API.g_ret_sts_success;
870:
871: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
872: IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num OR
873: p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
874: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_HISTORY_ID' );
875: x_return_status := FND_API.g_ret_sts_error;
876: RETURN;
871: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
872: IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num OR
873: p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
874: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_HISTORY_ID' );
875: x_return_status := FND_API.g_ret_sts_error;
876: RETURN;
877: END IF;
878:
879: IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num OR
875: x_return_status := FND_API.g_ret_sts_error;
876: RETURN;
877: END IF;
878:
879: IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num OR
880: p_claim_line_hist_rec.object_version_number IS NULL THEN
881: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
882: x_return_status := FND_API.g_ret_sts_error;
883: RETURN;
878:
879: IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num OR
880: p_claim_line_hist_rec.object_version_number IS NULL THEN
881: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
882: x_return_status := FND_API.g_ret_sts_error;
883: RETURN;
884: END IF;
885:
886: IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date OR
882: x_return_status := FND_API.g_ret_sts_error;
883: RETURN;
884: END IF;
885:
886: IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date OR
887: p_claim_line_hist_rec.last_update_date IS NULL THEN
888: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
885:
886: IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date OR
887: p_claim_line_hist_rec.last_update_date IS NULL THEN
888: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
891: END IF;
892:
893: IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num OR
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
891: END IF;
892:
893: IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num OR
894: p_claim_line_hist_rec.last_updated_by IS NULL THEN
895: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
892:
893: IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num OR
894: p_claim_line_hist_rec.last_updated_by IS NULL THEN
895: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
899:
900: IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date OR p_claim_line_hist_rec.creation_date IS NULL THEN
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
899:
900: IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date OR p_claim_line_hist_rec.creation_date IS NULL THEN
901: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
902: x_return_status := FND_API.g_ret_sts_error;
903: RETURN;
904: END IF;
898: END IF;
899:
900: IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date OR p_claim_line_hist_rec.creation_date IS NULL THEN
901: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
902: x_return_status := FND_API.g_ret_sts_error;
903: RETURN;
904: END IF;
905:
906: IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num OR
902: x_return_status := FND_API.g_ret_sts_error;
903: RETURN;
904: END IF;
905:
906: IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num OR
907: p_claim_line_hist_rec.created_by IS NULL THEN
908: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
905:
906: IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num OR
907: p_claim_line_hist_rec.created_by IS NULL THEN
908: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
911: END IF;
912:
913: IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num OR
909: x_return_status := FND_API.g_ret_sts_error;
910: RETURN;
911: END IF;
912:
913: IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num OR
914: p_claim_line_hist_rec.claim_history_id IS NULL THEN
915: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_HISTORY_ID' );
916: x_return_status := FND_API.g_ret_sts_error;
917: RETURN;
912:
913: IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num OR
914: p_claim_line_hist_rec.claim_history_id IS NULL THEN
915: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_HISTORY_ID' );
916: x_return_status := FND_API.g_ret_sts_error;
917: RETURN;
918: END IF;
919:
920: IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num OR
916: x_return_status := FND_API.g_ret_sts_error;
917: RETURN;
918: END IF;
919:
920: IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num OR
921: p_claim_line_hist_rec.claim_id IS NULL THEN
922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_ID' );
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
919:
920: IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num OR
921: p_claim_line_hist_rec.claim_id IS NULL THEN
922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_ID' );
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
925: END IF;
926:
927: IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num OR
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
925: END IF;
926:
927: IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num OR
928: p_claim_line_hist_rec.claim_line_id IS NULL THEN
929: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_ID' );
930: x_return_status := FND_API.g_ret_sts_error;
931: RETURN;
926:
927: IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num OR
928: p_claim_line_hist_rec.claim_line_id IS NULL THEN
929: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_ID' );
930: x_return_status := FND_API.g_ret_sts_error;
931: RETURN;
932: END IF;
933:
934: IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num OR
930: x_return_status := FND_API.g_ret_sts_error;
931: RETURN;
932: END IF;
933:
934: IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num OR
935: p_claim_line_hist_rec.line_number IS NULL THEN
936: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
937: x_return_status := FND_API.g_ret_sts_error;
938: RETURN;
933:
934: IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num OR
935: p_claim_line_hist_rec.line_number IS NULL THEN
936: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
937: x_return_status := FND_API.g_ret_sts_error;
938: RETURN;
939: END IF;
940:
941: IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num OR
937: x_return_status := FND_API.g_ret_sts_error;
938: RETURN;
939: END IF;
940:
941: IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num OR
942: p_claim_line_hist_rec.set_of_books_id IS NULL THEN
943: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
944: x_return_status := FND_API.g_ret_sts_error;
945: RETURN;
940:
941: IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num OR
942: p_claim_line_hist_rec.set_of_books_id IS NULL THEN
943: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
944: x_return_status := FND_API.g_ret_sts_error;
945: RETURN;
946: END IF;
947:
948: IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char OR
944: x_return_status := FND_API.g_ret_sts_error;
945: RETURN;
946: END IF;
947:
948: IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char OR
949: p_claim_line_hist_rec.valid_flag IS NULL THEN
950: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
951: x_return_status := FND_API.g_ret_sts_error;
952: RETURN;
947:
948: IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char OR
949: p_claim_line_hist_rec.valid_flag IS NULL THEN
950: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
951: x_return_status := FND_API.g_ret_sts_error;
952: RETURN;
953: END IF;
954: ELSE
955: IF p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
953: END IF;
954: ELSE
955: IF p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
956: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_HISTORY_ID' );
957: x_return_status := FND_API.g_ret_sts_error;
958: RETURN;
959: END IF;
960:
961: IF p_claim_line_hist_rec.object_version_number IS NULL THEN
959: END IF;
960:
961: IF p_claim_line_hist_rec.object_version_number IS NULL THEN
962: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
963: x_return_status := FND_API.g_ret_sts_error;
964: RETURN;
965: END IF;
966:
967: IF p_claim_line_hist_rec.last_update_date IS NULL THEN
965: END IF;
966:
967: IF p_claim_line_hist_rec.last_update_date IS NULL THEN
968: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
969: x_return_status := FND_API.g_ret_sts_error;
970: RETURN;
971: END IF;
972:
973: IF p_claim_line_hist_rec.last_updated_by IS NULL THEN
971: END IF;
972:
973: IF p_claim_line_hist_rec.last_updated_by IS NULL THEN
974: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
975: x_return_status := FND_API.g_ret_sts_error;
976: RETURN;
977: END IF;
978:
979: IF p_claim_line_hist_rec.creation_date IS NULL THEN
977: END IF;
978:
979: IF p_claim_line_hist_rec.creation_date IS NULL THEN
980: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
981: x_return_status := FND_API.g_ret_sts_error;
982: RETURN;
983: END IF;
984:
985: IF p_claim_line_hist_rec.created_by IS NULL THEN
983: END IF;
984:
985: IF p_claim_line_hist_rec.created_by IS NULL THEN
986: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
987: x_return_status := FND_API.g_ret_sts_error;
988: RETURN;
989: END IF;
990:
991: IF p_claim_line_hist_rec.claim_history_id IS NULL THEN
989: END IF;
990:
991: IF p_claim_line_hist_rec.claim_history_id IS NULL THEN
992: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_HISTORY_ID' );
993: x_return_status := FND_API.g_ret_sts_error;
994: RETURN;
995: END IF;
996:
997: IF p_claim_line_hist_rec.claim_id IS NULL THEN
995: END IF;
996:
997: IF p_claim_line_hist_rec.claim_id IS NULL THEN
998: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_ID' );
999: x_return_status := FND_API.g_ret_sts_error;
1000: RETURN;
1001: END IF;
1002:
1003: IF p_claim_line_hist_rec.claim_line_id IS NULL THEN
1001: END IF;
1002:
1003: IF p_claim_line_hist_rec.claim_line_id IS NULL THEN
1004: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_LINE_ID' );
1005: x_return_status := FND_API.g_ret_sts_error;
1006: RETURN;
1007: END IF;
1008:
1009: IF p_claim_line_hist_rec.line_number IS NULL THEN
1007: END IF;
1008:
1009: IF p_claim_line_hist_rec.line_number IS NULL THEN
1010: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
1011: x_return_status := FND_API.g_ret_sts_error;
1012: RETURN;
1013: END IF;
1014:
1015: IF p_claim_line_hist_rec.set_of_books_id IS NULL THEN
1013: END IF;
1014:
1015: IF p_claim_line_hist_rec.set_of_books_id IS NULL THEN
1016: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
1017: x_return_status := FND_API.g_ret_sts_error;
1018: RETURN;
1019: END IF;
1020:
1021: IF p_claim_line_hist_rec.valid_flag IS NULL THEN
1019: END IF;
1020:
1021: IF p_claim_line_hist_rec.valid_flag IS NULL THEN
1022: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
1023: x_return_status := FND_API.g_ret_sts_error;
1024: RETURN;
1025: END IF;
1026: END IF;
1027:
1033: x_return_status OUT NOCOPY VARCHAR2
1034: )
1035: IS
1036: BEGIN
1037: x_return_status := FND_API.g_ret_sts_success;
1038:
1039: -- Enter custom code here
1040:
1041: END check_line_hist_FK_items;
1046: x_return_status OUT NOCOPY VARCHAR2
1047: )
1048: IS
1049: BEGIN
1050: x_return_status := FND_API.g_ret_sts_success;
1051:
1052: -- Enter custom code here
1053:
1054: END check_line_hist_Lookup_items;
1067: p_claim_line_hist_rec => p_claim_line_hist_rec,
1068: p_validation_mode => p_validation_mode,
1069: x_return_status => x_return_status
1070: );
1071: IF x_return_status <> FND_API.g_ret_sts_success THEN
1072: RETURN;
1073: END IF;
1074:
1075: -- Check Items Required/NOT NULL API calls
1077: p_claim_line_hist_rec => p_claim_line_hist_rec,
1078: p_validation_mode => p_validation_mode,
1079: x_return_status => x_return_status
1080: );
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
1086: check_line_hist_FK_items(
1087: p_claim_line_hist_rec => p_claim_line_hist_rec,
1088: x_return_status => x_return_status
1089: );
1090: IF x_return_status <> FND_API.g_ret_sts_success THEN
1091: RETURN;
1092: END IF;
1093:
1094: -- Check Items Lookups
1095: check_line_hist_Lookup_items(
1096: p_claim_line_hist_rec => p_claim_line_hist_rec,
1097: x_return_status => x_return_status
1098: );
1099: IF x_return_status <> FND_API.g_ret_sts_success THEN
1100: RETURN;
1101: END IF;
1102:
1103: END Check_claim_line_hist_Items;
1124: FETCH c_complete INTO l_claim_line_hist_rec;
1125: CLOSE c_complete;
1126:
1127: -- claim_line_history_id
1128: IF p_claim_line_hist_rec.claim_line_history_id = FND_API.g_miss_num THEN
1129: x_complete_rec.claim_line_history_id := NULL;
1130: END IF;
1131: IF p_claim_line_hist_rec.claim_line_history_id IS NULL THEN
1132: x_complete_rec.claim_line_history_id := l_claim_line_hist_rec.claim_line_history_id;
1132: x_complete_rec.claim_line_history_id := l_claim_line_hist_rec.claim_line_history_id;
1133: END IF;
1134:
1135: -- object_version_number
1136: IF p_claim_line_hist_rec.object_version_number = FND_API.g_miss_num THEN
1137: x_complete_rec.object_version_number := NULL;
1138: END IF;
1139: IF p_claim_line_hist_rec.object_version_number IS NULL THEN
1140: x_complete_rec.object_version_number := l_claim_line_hist_rec.object_version_number;
1140: x_complete_rec.object_version_number := l_claim_line_hist_rec.object_version_number;
1141: END IF;
1142:
1143: -- last_update_date
1144: IF p_claim_line_hist_rec.last_update_date = FND_API.g_miss_date THEN
1145: x_complete_rec.last_update_date := NULL;
1146: END IF;
1147: IF p_claim_line_hist_rec.last_update_date IS NULL THEN
1148: x_complete_rec.last_update_date := l_claim_line_hist_rec.last_update_date;
1148: x_complete_rec.last_update_date := l_claim_line_hist_rec.last_update_date;
1149: END IF;
1150:
1151: -- last_updated_by
1152: IF p_claim_line_hist_rec.last_updated_by = FND_API.g_miss_num THEN
1153: x_complete_rec.last_updated_by := NULL;
1154: END IF;
1155: IF p_claim_line_hist_rec.last_updated_by IS NULL THEN
1156: x_complete_rec.last_updated_by := l_claim_line_hist_rec.last_updated_by;
1156: x_complete_rec.last_updated_by := l_claim_line_hist_rec.last_updated_by;
1157: END IF;
1158:
1159: -- creation_date
1160: IF p_claim_line_hist_rec.creation_date = FND_API.g_miss_date THEN
1161: x_complete_rec.creation_date := NULL;
1162: END IF;
1163: IF p_claim_line_hist_rec.creation_date IS NULL THEN
1164: x_complete_rec.creation_date := l_claim_line_hist_rec.creation_date;
1164: x_complete_rec.creation_date := l_claim_line_hist_rec.creation_date;
1165: END IF;
1166:
1167: -- created_by
1168: IF p_claim_line_hist_rec.created_by = FND_API.g_miss_num THEN
1169: x_complete_rec.created_by := NULL;
1170: END IF;
1171: IF p_claim_line_hist_rec.created_by IS NULL THEN
1172: x_complete_rec.created_by := l_claim_line_hist_rec.created_by;
1172: x_complete_rec.created_by := l_claim_line_hist_rec.created_by;
1173: END IF;
1174:
1175: -- last_update_login
1176: IF p_claim_line_hist_rec.last_update_login = FND_API.g_miss_num THEN
1177: x_complete_rec.last_update_login := NULL;
1178: END IF;
1179: IF p_claim_line_hist_rec.last_update_login IS NULL THEN
1180: x_complete_rec.last_update_login := l_claim_line_hist_rec.last_update_login;
1180: x_complete_rec.last_update_login := l_claim_line_hist_rec.last_update_login;
1181: END IF;
1182:
1183: -- request_id
1184: IF p_claim_line_hist_rec.request_id = FND_API.g_miss_num THEN
1185: x_complete_rec.request_id := NULL;
1186: END IF;
1187: IF p_claim_line_hist_rec.request_id IS NULL THEN
1188: x_complete_rec.request_id := l_claim_line_hist_rec.request_id;
1188: x_complete_rec.request_id := l_claim_line_hist_rec.request_id;
1189: END IF;
1190:
1191: -- program_application_id
1192: IF p_claim_line_hist_rec.program_application_id = FND_API.g_miss_num THEN
1193: x_complete_rec.program_application_id := NULL;
1194: END IF;
1195: IF p_claim_line_hist_rec.program_application_id IS NULL THEN
1196: x_complete_rec.program_application_id := l_claim_line_hist_rec.program_application_id;
1196: x_complete_rec.program_application_id := l_claim_line_hist_rec.program_application_id;
1197: END IF;
1198:
1199: -- program_update_date
1200: IF p_claim_line_hist_rec.program_update_date = FND_API.g_miss_date THEN
1201: x_complete_rec.program_update_date := NULL;
1202: END IF;
1203: IF p_claim_line_hist_rec.program_update_date IS NULL THEN
1204: x_complete_rec.program_update_date := l_claim_line_hist_rec.program_update_date;
1204: x_complete_rec.program_update_date := l_claim_line_hist_rec.program_update_date;
1205: END IF;
1206:
1207: -- program_id
1208: IF p_claim_line_hist_rec.program_id = FND_API.g_miss_num THEN
1209: x_complete_rec.program_id := NULL;
1210: END IF;
1211: IF p_claim_line_hist_rec.program_id IS NULL THEN
1212: x_complete_rec.program_id := l_claim_line_hist_rec.program_id;
1212: x_complete_rec.program_id := l_claim_line_hist_rec.program_id;
1213: END IF;
1214:
1215: -- created_from
1216: IF p_claim_line_hist_rec.created_from = FND_API.g_miss_char THEN
1217: x_complete_rec.created_from := NULL;
1218: END IF;
1219: IF p_claim_line_hist_rec.created_from IS NULL THEN
1220: x_complete_rec.created_from := l_claim_line_hist_rec.created_from;
1220: x_complete_rec.created_from := l_claim_line_hist_rec.created_from;
1221: END IF;
1222:
1223: -- claim_history_id
1224: IF p_claim_line_hist_rec.claim_history_id = FND_API.g_miss_num THEN
1225: x_complete_rec.claim_history_id := NULL;
1226: END IF;
1227: IF p_claim_line_hist_rec.claim_history_id IS NULL THEN
1228: x_complete_rec.claim_history_id := l_claim_line_hist_rec.claim_history_id;
1228: x_complete_rec.claim_history_id := l_claim_line_hist_rec.claim_history_id;
1229: END IF;
1230:
1231: -- claim_id
1232: IF p_claim_line_hist_rec.claim_id = FND_API.g_miss_num THEN
1233: x_complete_rec.claim_id := NULL;
1234: END IF;
1235: IF p_claim_line_hist_rec.claim_id IS NULL THEN
1236: x_complete_rec.claim_id := l_claim_line_hist_rec.claim_id;
1236: x_complete_rec.claim_id := l_claim_line_hist_rec.claim_id;
1237: END IF;
1238:
1239: -- claim_line_id
1240: IF p_claim_line_hist_rec.claim_line_id = FND_API.g_miss_num THEN
1241: x_complete_rec.claim_line_id := NULL;
1242: END IF;
1243: IF p_claim_line_hist_rec.claim_line_id IS NULL THEN
1244: x_complete_rec.claim_line_id := l_claim_line_hist_rec.claim_line_id;
1244: x_complete_rec.claim_line_id := l_claim_line_hist_rec.claim_line_id;
1245: END IF;
1246:
1247: -- line_number
1248: IF p_claim_line_hist_rec.line_number = FND_API.g_miss_num THEN
1249: x_complete_rec.line_number := NULL;
1250: END IF;
1251: IF p_claim_line_hist_rec.line_number IS NULL THEN
1252: x_complete_rec.line_number := l_claim_line_hist_rec.line_number;
1252: x_complete_rec.line_number := l_claim_line_hist_rec.line_number;
1253: END IF;
1254:
1255: -- split_from_claim_line_id
1256: IF p_claim_line_hist_rec.split_from_claim_line_id = FND_API.g_miss_num THEN
1257: x_complete_rec.split_from_claim_line_id := NULL;
1258: END IF;
1259: IF p_claim_line_hist_rec.split_from_claim_line_id IS NULL THEN
1260: x_complete_rec.split_from_claim_line_id := l_claim_line_hist_rec.split_from_claim_line_id;
1260: x_complete_rec.split_from_claim_line_id := l_claim_line_hist_rec.split_from_claim_line_id;
1261: END IF;
1262:
1263: -- amount
1264: IF p_claim_line_hist_rec.amount = FND_API.g_miss_num THEN
1265: x_complete_rec.amount := NULL;
1266: END IF;
1267: IF p_claim_line_hist_rec.amount IS NULL THEN
1268: x_complete_rec.amount := l_claim_line_hist_rec.amount;
1268: x_complete_rec.amount := l_claim_line_hist_rec.amount;
1269: END IF;
1270:
1271: -- acctd_amount
1272: IF p_claim_line_hist_rec.acctd_amount = FND_API.g_miss_num THEN
1273: x_complete_rec.acctd_amount := NULL;
1274: END IF;
1275: IF p_claim_line_hist_rec.acctd_amount IS NULL THEN
1276: x_complete_rec.acctd_amount := l_claim_line_hist_rec.acctd_amount;
1276: x_complete_rec.acctd_amount := l_claim_line_hist_rec.acctd_amount;
1277: END IF;
1278:
1279: -- currency_code
1280: IF p_claim_line_hist_rec.currency_code = FND_API.g_miss_char THEN
1281: x_complete_rec.currency_code := NULL;
1282: END IF;
1283: IF p_claim_line_hist_rec.currency_code IS NULL THEN
1284: x_complete_rec.currency_code := l_claim_line_hist_rec.currency_code;
1284: x_complete_rec.currency_code := l_claim_line_hist_rec.currency_code;
1285: END IF;
1286:
1287: -- exchange_rate_type
1288: IF p_claim_line_hist_rec.exchange_rate_type = FND_API.g_miss_char THEN
1289: x_complete_rec.exchange_rate_type := NULL;
1290: END IF;
1291: IF p_claim_line_hist_rec.exchange_rate_type IS NULL THEN
1292: x_complete_rec.exchange_rate_type := l_claim_line_hist_rec.exchange_rate_type;
1292: x_complete_rec.exchange_rate_type := l_claim_line_hist_rec.exchange_rate_type;
1293: END IF;
1294:
1295: -- exchange_rate_date
1296: IF p_claim_line_hist_rec.exchange_rate_date = FND_API.g_miss_date THEN
1297: x_complete_rec.exchange_rate_date := NULL;
1298: END IF;
1299: IF p_claim_line_hist_rec.exchange_rate_date IS NULL THEN
1300: x_complete_rec.exchange_rate_date := l_claim_line_hist_rec.exchange_rate_date;
1300: x_complete_rec.exchange_rate_date := l_claim_line_hist_rec.exchange_rate_date;
1301: END IF;
1302:
1303: -- exchange_rate
1304: IF p_claim_line_hist_rec.exchange_rate = FND_API.g_miss_num THEN
1305: x_complete_rec.exchange_rate := NULL;
1306: END IF;
1307: IF p_claim_line_hist_rec.exchange_rate IS NULL THEN
1308: x_complete_rec.exchange_rate := l_claim_line_hist_rec.exchange_rate;
1308: x_complete_rec.exchange_rate := l_claim_line_hist_rec.exchange_rate;
1309: END IF;
1310:
1311: -- set_of_books_id
1312: IF p_claim_line_hist_rec.set_of_books_id = FND_API.g_miss_num THEN
1313: x_complete_rec.set_of_books_id := NULL;
1314: END IF;
1315: IF p_claim_line_hist_rec.set_of_books_id IS NULL THEN
1316: x_complete_rec.set_of_books_id := l_claim_line_hist_rec.set_of_books_id;
1316: x_complete_rec.set_of_books_id := l_claim_line_hist_rec.set_of_books_id;
1317: END IF;
1318:
1319: -- valid_flag
1320: IF p_claim_line_hist_rec.valid_flag = FND_API.g_miss_char THEN
1321: x_complete_rec.valid_flag := NULL;
1322: END IF;
1323: IF p_claim_line_hist_rec.valid_flag IS NULL THEN
1324: x_complete_rec.valid_flag := l_claim_line_hist_rec.valid_flag;
1324: x_complete_rec.valid_flag := l_claim_line_hist_rec.valid_flag;
1325: END IF;
1326:
1327: -- source_object_id
1328: IF p_claim_line_hist_rec.source_object_id = FND_API.g_miss_num THEN
1329: x_complete_rec.source_object_id := NULL;
1330: END IF;
1331: IF p_claim_line_hist_rec.source_object_id IS NULL THEN
1332: x_complete_rec.source_object_id := l_claim_line_hist_rec.source_object_id;
1332: x_complete_rec.source_object_id := l_claim_line_hist_rec.source_object_id;
1333: END IF;
1334:
1335: -- source_object_class
1336: IF p_claim_line_hist_rec.source_object_class = FND_API.g_miss_char THEN
1337: x_complete_rec.source_object_class := NULL;
1338: END IF;
1339: IF p_claim_line_hist_rec.source_object_class IS NULL THEN
1340: x_complete_rec.source_object_class := l_claim_line_hist_rec.source_object_class;
1340: x_complete_rec.source_object_class := l_claim_line_hist_rec.source_object_class;
1341: END IF;
1342:
1343: -- source_object_type_id
1344: IF p_claim_line_hist_rec.source_object_type_id = FND_API.g_miss_num THEN
1345: x_complete_rec.source_object_type_id := NULL;
1346: END IF;
1347: IF p_claim_line_hist_rec.source_object_type_id IS NULL THEN
1348: x_complete_rec.source_object_type_id := l_claim_line_hist_rec.source_object_type_id;
1348: x_complete_rec.source_object_type_id := l_claim_line_hist_rec.source_object_type_id;
1349: END IF;
1350:
1351: -- source_object_line_id
1352: IF p_claim_line_hist_rec.source_object_line_id = FND_API.g_miss_num THEN
1353: x_complete_rec.source_object_line_id := NULL;
1354: END IF;
1355: IF p_claim_line_hist_rec.source_object_line_id IS NULL THEN
1356: x_complete_rec.source_object_line_id := l_claim_line_hist_rec.source_object_line_id;
1356: x_complete_rec.source_object_line_id := l_claim_line_hist_rec.source_object_line_id;
1357: END IF;
1358:
1359: -- plan_id
1360: IF p_claim_line_hist_rec.plan_id = FND_API.g_miss_num THEN
1361: x_complete_rec.plan_id := NULL;
1362: END IF;
1363: IF p_claim_line_hist_rec.plan_id IS NULL THEN
1364: x_complete_rec.plan_id := l_claim_line_hist_rec.plan_id;
1364: x_complete_rec.plan_id := l_claim_line_hist_rec.plan_id;
1365: END IF;
1366:
1367: -- offer_id
1368: IF p_claim_line_hist_rec.offer_id = FND_API.g_miss_num THEN
1369: x_complete_rec.offer_id := NULL;
1370: END IF;
1371: IF p_claim_line_hist_rec.offer_id IS NULL THEN
1372: x_complete_rec.offer_id := l_claim_line_hist_rec.offer_id;
1372: x_complete_rec.offer_id := l_claim_line_hist_rec.offer_id;
1373: END IF;
1374:
1375: -- payment_method
1376: IF p_claim_line_hist_rec.payment_method = FND_API.g_miss_char THEN
1377: x_complete_rec.payment_method := NULL;
1378: END IF;
1379: IF p_claim_line_hist_rec.payment_method IS NULL THEN
1380: x_complete_rec.payment_method := l_claim_line_hist_rec.payment_method;
1380: x_complete_rec.payment_method := l_claim_line_hist_rec.payment_method;
1381: END IF;
1382:
1383: -- payment_reference_id
1384: IF p_claim_line_hist_rec.payment_reference_id = FND_API.g_miss_num THEN
1385: x_complete_rec.payment_reference_id := NULL;
1386: END IF;
1387: IF p_claim_line_hist_rec.payment_reference_id IS NULL THEN
1388: x_complete_rec.payment_reference_id := l_claim_line_hist_rec.payment_reference_id;
1388: x_complete_rec.payment_reference_id := l_claim_line_hist_rec.payment_reference_id;
1389: END IF;
1390:
1391: -- payment_reference_number
1392: IF p_claim_line_hist_rec.payment_reference_number = FND_API.g_miss_char THEN
1393: x_complete_rec.payment_reference_number := NULL;
1394: END IF;
1395: IF p_claim_line_hist_rec.payment_reference_number IS NULL THEN
1396: x_complete_rec.payment_reference_number := l_claim_line_hist_rec.payment_reference_number;
1396: x_complete_rec.payment_reference_number := l_claim_line_hist_rec.payment_reference_number;
1397: END IF;
1398:
1399: -- payment_reference_date
1400: IF p_claim_line_hist_rec.payment_reference_date = FND_API.g_miss_date THEN
1401: x_complete_rec.payment_reference_date := NULL;
1402: END IF;
1403: IF p_claim_line_hist_rec.payment_reference_date IS NULL THEN
1404: x_complete_rec.payment_reference_date := l_claim_line_hist_rec.payment_reference_date;
1404: x_complete_rec.payment_reference_date := l_claim_line_hist_rec.payment_reference_date;
1405: END IF;
1406:
1407: -- voucher_id
1408: IF p_claim_line_hist_rec.voucher_id = FND_API.g_miss_num THEN
1409: x_complete_rec.voucher_id := NULL;
1410: END IF;
1411: IF p_claim_line_hist_rec.voucher_id IS NULL THEN
1412: x_complete_rec.voucher_id := l_claim_line_hist_rec.voucher_id;
1412: x_complete_rec.voucher_id := l_claim_line_hist_rec.voucher_id;
1413: END IF;
1414:
1415: -- voucher_number
1416: IF p_claim_line_hist_rec.voucher_number = FND_API.g_miss_char THEN
1417: x_complete_rec.voucher_number := NULL;
1418: END IF;
1419: IF p_claim_line_hist_rec.voucher_number IS NULL THEN
1420: x_complete_rec.voucher_number := l_claim_line_hist_rec.voucher_number;
1420: x_complete_rec.voucher_number := l_claim_line_hist_rec.voucher_number;
1421: END IF;
1422:
1423: -- payment_status
1424: IF p_claim_line_hist_rec.payment_status = FND_API.g_miss_char THEN
1425: x_complete_rec.payment_status := NULL;
1426: END IF;
1427: IF p_claim_line_hist_rec.payment_status IS NULL THEN
1428: x_complete_rec.payment_status := l_claim_line_hist_rec.payment_status;
1428: x_complete_rec.payment_status := l_claim_line_hist_rec.payment_status;
1429: END IF;
1430:
1431: -- approved_flag
1432: IF p_claim_line_hist_rec.approved_flag = FND_API.g_miss_char THEN
1433: x_complete_rec.approved_flag := NULL;
1434: END IF;
1435: IF p_claim_line_hist_rec.approved_flag IS NULL THEN
1436: x_complete_rec.approved_flag := l_claim_line_hist_rec.approved_flag;
1436: x_complete_rec.approved_flag := l_claim_line_hist_rec.approved_flag;
1437: END IF;
1438:
1439: -- approved_date
1440: IF p_claim_line_hist_rec.approved_date = FND_API.g_miss_date THEN
1441: x_complete_rec.approved_date := NULL;
1442: END IF;
1443: IF p_claim_line_hist_rec.approved_date IS NULL THEN
1444: x_complete_rec.approved_date := l_claim_line_hist_rec.approved_date;
1444: x_complete_rec.approved_date := l_claim_line_hist_rec.approved_date;
1445: END IF;
1446:
1447: -- approved_by
1448: IF p_claim_line_hist_rec.approved_by = FND_API.g_miss_num THEN
1449: x_complete_rec.approved_by := NULL;
1450: END IF;
1451: IF p_claim_line_hist_rec.approved_by IS NULL THEN
1452: x_complete_rec.approved_by := l_claim_line_hist_rec.approved_by;
1452: x_complete_rec.approved_by := l_claim_line_hist_rec.approved_by;
1453: END IF;
1454:
1455: -- settled_date
1456: IF p_claim_line_hist_rec.settled_date = FND_API.g_miss_date THEN
1457: x_complete_rec.settled_date := NULL;
1458: END IF;
1459: IF p_claim_line_hist_rec.settled_date IS NULL THEN
1460: x_complete_rec.settled_date := l_claim_line_hist_rec.settled_date;
1460: x_complete_rec.settled_date := l_claim_line_hist_rec.settled_date;
1461: END IF;
1462:
1463: -- settled_by
1464: IF p_claim_line_hist_rec.settled_by = FND_API.g_miss_num THEN
1465: x_complete_rec.settled_by := NULL;
1466: END IF;
1467: IF p_claim_line_hist_rec.settled_by IS NULL THEN
1468: x_complete_rec.settled_by := l_claim_line_hist_rec.settled_by;
1468: x_complete_rec.settled_by := l_claim_line_hist_rec.settled_by;
1469: END IF;
1470:
1471: -- performance_complete_flag
1472: IF p_claim_line_hist_rec.performance_complete_flag = FND_API.g_miss_char THEN
1473: x_complete_rec.performance_complete_flag := NULL;
1474: END IF;
1475: IF p_claim_line_hist_rec.performance_complete_flag IS NULL THEN
1476: x_complete_rec.performance_complete_flag := l_claim_line_hist_rec.performance_complete_flag;
1476: x_complete_rec.performance_complete_flag := l_claim_line_hist_rec.performance_complete_flag;
1477: END IF;
1478:
1479: -- performance_attached_flag
1480: IF p_claim_line_hist_rec.performance_attached_flag = FND_API.g_miss_char THEN
1481: x_complete_rec.performance_attached_flag := NULL;
1482: END IF;
1483: IF p_claim_line_hist_rec.performance_attached_flag IS NULL THEN
1484: x_complete_rec.performance_attached_flag := l_claim_line_hist_rec.performance_attached_flag;
1484: x_complete_rec.performance_attached_flag := l_claim_line_hist_rec.performance_attached_flag;
1485: END IF;
1486:
1487: -- attribute_category
1488: IF p_claim_line_hist_rec.attribute_category = FND_API.g_miss_char THEN
1489: x_complete_rec.attribute_category := NULL;
1490: END IF;
1491: IF p_claim_line_hist_rec.attribute_category IS NULL THEN
1492: x_complete_rec.attribute_category := l_claim_line_hist_rec.attribute_category;
1492: x_complete_rec.attribute_category := l_claim_line_hist_rec.attribute_category;
1493: END IF;
1494:
1495: -- attribute1
1496: IF p_claim_line_hist_rec.attribute1 = FND_API.g_miss_char THEN
1497: x_complete_rec.attribute1 := NULL;
1498: END IF;
1499: IF p_claim_line_hist_rec.attribute1 IS NULL THEN
1500: x_complete_rec.attribute1 := l_claim_line_hist_rec.attribute1;
1500: x_complete_rec.attribute1 := l_claim_line_hist_rec.attribute1;
1501: END IF;
1502:
1503: -- attribute2
1504: IF p_claim_line_hist_rec.attribute2 = FND_API.g_miss_char THEN
1505: x_complete_rec.attribute2 := NULL;
1506: END IF;
1507: IF p_claim_line_hist_rec.attribute2 IS NULL THEN
1508: x_complete_rec.attribute2 := l_claim_line_hist_rec.attribute2;
1508: x_complete_rec.attribute2 := l_claim_line_hist_rec.attribute2;
1509: END IF;
1510:
1511: -- attribute3
1512: IF p_claim_line_hist_rec.attribute3 = FND_API.g_miss_char THEN
1513: x_complete_rec.attribute3 := NULL;
1514: END IF;
1515: IF p_claim_line_hist_rec.attribute3 IS NULL THEN
1516: x_complete_rec.attribute3 := l_claim_line_hist_rec.attribute3;
1516: x_complete_rec.attribute3 := l_claim_line_hist_rec.attribute3;
1517: END IF;
1518:
1519: -- attribute4
1520: IF p_claim_line_hist_rec.attribute4 = FND_API.g_miss_char THEN
1521: x_complete_rec.attribute4 := NULL;
1522: END IF;
1523: IF p_claim_line_hist_rec.attribute4 IS NULL THEN
1524: x_complete_rec.attribute4 := l_claim_line_hist_rec.attribute4;
1524: x_complete_rec.attribute4 := l_claim_line_hist_rec.attribute4;
1525: END IF;
1526:
1527: -- attribute5
1528: IF p_claim_line_hist_rec.attribute5 = FND_API.g_miss_char THEN
1529: x_complete_rec.attribute5 := NULL;
1530: END IF;
1531: IF p_claim_line_hist_rec.attribute5 IS NULL THEN
1532: x_complete_rec.attribute5 := l_claim_line_hist_rec.attribute5;
1532: x_complete_rec.attribute5 := l_claim_line_hist_rec.attribute5;
1533: END IF;
1534:
1535: -- attribute6
1536: IF p_claim_line_hist_rec.attribute6 = FND_API.g_miss_char THEN
1537: x_complete_rec.attribute6 := NULL;
1538: END IF;
1539: IF p_claim_line_hist_rec.attribute6 IS NULL THEN
1540: x_complete_rec.attribute6 := l_claim_line_hist_rec.attribute6;
1540: x_complete_rec.attribute6 := l_claim_line_hist_rec.attribute6;
1541: END IF;
1542:
1543: -- attribute7
1544: IF p_claim_line_hist_rec.attribute7 = FND_API.g_miss_char THEN
1545: x_complete_rec.attribute7 := NULL;
1546: END IF;
1547: IF p_claim_line_hist_rec.attribute7 IS NULL THEN
1548: x_complete_rec.attribute7 := l_claim_line_hist_rec.attribute7;
1548: x_complete_rec.attribute7 := l_claim_line_hist_rec.attribute7;
1549: END IF;
1550:
1551: -- attribute8
1552: IF p_claim_line_hist_rec.attribute8 = FND_API.g_miss_char THEN
1553: x_complete_rec.attribute8 := NULL;
1554: END IF;
1555: IF p_claim_line_hist_rec.attribute8 IS NULL THEN
1556: x_complete_rec.attribute8 := l_claim_line_hist_rec.attribute8;
1556: x_complete_rec.attribute8 := l_claim_line_hist_rec.attribute8;
1557: END IF;
1558:
1559: -- attribute9
1560: IF p_claim_line_hist_rec.attribute9 = FND_API.g_miss_char THEN
1561: x_complete_rec.attribute9 := NULL;
1562: END IF;
1563: IF p_claim_line_hist_rec.attribute9 IS NULL THEN
1564: x_complete_rec.attribute9 := l_claim_line_hist_rec.attribute9;
1564: x_complete_rec.attribute9 := l_claim_line_hist_rec.attribute9;
1565: END IF;
1566:
1567: -- attribute10
1568: IF p_claim_line_hist_rec.attribute10 = FND_API.g_miss_char THEN
1569: x_complete_rec.attribute10 := NULL;
1570: END IF;
1571: IF p_claim_line_hist_rec.attribute10 IS NULL THEN
1572: x_complete_rec.attribute10 := l_claim_line_hist_rec.attribute10;
1572: x_complete_rec.attribute10 := l_claim_line_hist_rec.attribute10;
1573: END IF;
1574:
1575: -- attribute11
1576: IF p_claim_line_hist_rec.attribute11 = FND_API.g_miss_char THEN
1577: x_complete_rec.attribute11 := NULL;
1578: END IF;
1579: IF p_claim_line_hist_rec.attribute11 IS NULL THEN
1580: x_complete_rec.attribute11 := l_claim_line_hist_rec.attribute11;
1580: x_complete_rec.attribute11 := l_claim_line_hist_rec.attribute11;
1581: END IF;
1582:
1583: -- attribute12
1584: IF p_claim_line_hist_rec.attribute12 = FND_API.g_miss_char THEN
1585: x_complete_rec.attribute12 := NULL;
1586: END IF;
1587: IF p_claim_line_hist_rec.attribute12 IS NULL THEN
1588: x_complete_rec.attribute12 := l_claim_line_hist_rec.attribute12;
1588: x_complete_rec.attribute12 := l_claim_line_hist_rec.attribute12;
1589: END IF;
1590:
1591: -- attribute13
1592: IF p_claim_line_hist_rec.attribute13 = FND_API.g_miss_char THEN
1593: x_complete_rec.attribute13 := NULL;
1594: END IF;
1595: IF p_claim_line_hist_rec.attribute13 IS NULL THEN
1596: x_complete_rec.attribute13 := l_claim_line_hist_rec.attribute13;
1596: x_complete_rec.attribute13 := l_claim_line_hist_rec.attribute13;
1597: END IF;
1598:
1599: -- attribute14
1600: IF p_claim_line_hist_rec.attribute14 = FND_API.g_miss_char THEN
1601: x_complete_rec.attribute14 := NULL;
1602: END IF;
1603: IF p_claim_line_hist_rec.attribute14 IS NULL THEN
1604: x_complete_rec.attribute14 := l_claim_line_hist_rec.attribute14;
1604: x_complete_rec.attribute14 := l_claim_line_hist_rec.attribute14;
1605: END IF;
1606:
1607: -- attribute15
1608: IF p_claim_line_hist_rec.attribute15 = FND_API.g_miss_char THEN
1609: x_complete_rec.attribute15 := NULL;
1610: END IF;
1611: IF p_claim_line_hist_rec.attribute15 IS NULL THEN
1612: x_complete_rec.attribute15 := l_claim_line_hist_rec.attribute15;
1612: x_complete_rec.attribute15 := l_claim_line_hist_rec.attribute15;
1613: END IF;
1614:
1615: -- org_id
1616: IF p_claim_line_hist_rec.org_id = FND_API.g_miss_num THEN
1617: x_complete_rec.org_id := NULL;
1618: END IF;
1619: IF p_claim_line_hist_rec.org_id IS NULL THEN
1620: x_complete_rec.org_id := l_claim_line_hist_rec.org_id;
1620: x_complete_rec.org_id := l_claim_line_hist_rec.org_id;
1621: END IF;
1622:
1623: -- utilization_id
1624: IF p_claim_line_hist_rec.utilization_id = FND_API.g_miss_num THEN
1625: x_complete_rec.utilization_id := NULL;
1626: END IF;
1627: IF p_claim_line_hist_rec.utilization_id IS NULL THEN
1628: x_complete_rec.utilization_id := l_claim_line_hist_rec.utilization_id;
1628: x_complete_rec.utilization_id := l_claim_line_hist_rec.utilization_id;
1629: END IF;
1630:
1631: -- claim_currency_amount
1632: IF p_claim_line_hist_rec.claim_currency_amount = FND_API.g_miss_num THEN
1633: x_complete_rec.claim_currency_amount := NULL;
1634: END IF;
1635: IF p_claim_line_hist_rec.claim_currency_amount IS NULL THEN
1636: x_complete_rec.claim_currency_amount := l_claim_line_hist_rec.claim_currency_amount;
1636: x_complete_rec.claim_currency_amount := l_claim_line_hist_rec.claim_currency_amount;
1637: END IF;
1638:
1639: -- item_id
1640: IF p_claim_line_hist_rec.item_id = FND_API.g_miss_num THEN
1641: x_complete_rec.item_id := NULL;
1642: END IF;
1643: IF p_claim_line_hist_rec.item_id IS NULL THEN
1644: x_complete_rec.item_id := l_claim_line_hist_rec.item_id;
1644: x_complete_rec.item_id := l_claim_line_hist_rec.item_id;
1645: END IF;
1646:
1647: -- item_description
1648: IF p_claim_line_hist_rec.item_description = FND_API.g_miss_char THEN
1649: x_complete_rec.item_description := NULL;
1650: END IF;
1651: IF p_claim_line_hist_rec.item_description IS NULL THEN
1652: x_complete_rec.item_description := l_claim_line_hist_rec.item_description;
1652: x_complete_rec.item_description := l_claim_line_hist_rec.item_description;
1653: END IF;
1654:
1655: -- quantity
1656: IF p_claim_line_hist_rec.quantity = FND_API.g_miss_num THEN
1657: x_complete_rec.quantity := NULL;
1658: END IF;
1659: IF p_claim_line_hist_rec.quantity IS NULL THEN
1660: x_complete_rec.quantity := l_claim_line_hist_rec.quantity;
1660: x_complete_rec.quantity := l_claim_line_hist_rec.quantity;
1661: END IF;
1662:
1663: -- quantity_uom
1664: IF p_claim_line_hist_rec.quantity_uom = FND_API.g_miss_char THEN
1665: x_complete_rec.quantity_uom := NULL;
1666: END IF;
1667: IF p_claim_line_hist_rec.quantity_uom IS NULL THEN
1668: x_complete_rec.quantity_uom := l_claim_line_hist_rec.quantity_uom;
1668: x_complete_rec.quantity_uom := l_claim_line_hist_rec.quantity_uom;
1669: END IF;
1670:
1671: -- rate
1672: IF p_claim_line_hist_rec.rate = FND_API.g_miss_num THEN
1673: x_complete_rec.rate := NULL;
1674: END IF;
1675: IF p_claim_line_hist_rec.rate IS NULL THEN
1676: x_complete_rec.rate := l_claim_line_hist_rec.rate;
1676: x_complete_rec.rate := l_claim_line_hist_rec.rate;
1677: END IF;
1678:
1679: -- activity_type
1680: IF p_claim_line_hist_rec.activity_type = FND_API.g_miss_char THEN
1681: x_complete_rec.activity_type := NULL;
1682: END IF;
1683: IF p_claim_line_hist_rec.activity_type IS NULL THEN
1684: x_complete_rec.activity_type := l_claim_line_hist_rec.activity_type;
1684: x_complete_rec.activity_type := l_claim_line_hist_rec.activity_type;
1685: END IF;
1686:
1687: -- activity_id
1688: IF p_claim_line_hist_rec.activity_id = FND_API.g_miss_num THEN
1689: x_complete_rec.activity_id := NULL;
1690: END IF;
1691: IF p_claim_line_hist_rec.activity_id IS NULL THEN
1692: x_complete_rec.activity_id := l_claim_line_hist_rec.activity_id;
1692: x_complete_rec.activity_id := l_claim_line_hist_rec.activity_id;
1693: END IF;
1694:
1695: -- earnings_associated_flag
1696: IF p_claim_line_hist_rec.earnings_associated_flag = FND_API.g_miss_char THEN
1697: x_complete_rec.earnings_associated_flag := NULL;
1698: END IF;
1699: IF p_claim_line_hist_rec.earnings_associated_flag IS NULL THEN
1700: x_complete_rec.earnings_associated_flag := l_claim_line_hist_rec.earnings_associated_flag;
1700: x_complete_rec.earnings_associated_flag := l_claim_line_hist_rec.earnings_associated_flag;
1701: END IF;
1702:
1703: -- comments
1704: IF p_claim_line_hist_rec.comments = FND_API.g_miss_char THEN
1705: x_complete_rec.comments := NULL;
1706: END IF;
1707: IF p_claim_line_hist_rec.comments IS NULL THEN
1708: x_complete_rec.comments := l_claim_line_hist_rec.comments;
1708: x_complete_rec.comments := l_claim_line_hist_rec.comments;
1709: END IF;
1710:
1711: -- related_cust_account_id
1712: IF p_claim_line_hist_rec.related_cust_account_id = FND_API.g_miss_num THEN
1713: x_complete_rec.related_cust_account_id := NULL;
1714: END IF;
1715: IF p_claim_line_hist_rec.related_cust_account_id IS NULL THEN
1716: x_complete_rec.related_cust_account_id := l_claim_line_hist_rec.related_cust_account_id;
1716: x_complete_rec.related_cust_account_id := l_claim_line_hist_rec.related_cust_account_id;
1717: END IF;
1718:
1719: -- relationship_type
1720: IF p_claim_line_hist_rec.relationship_type = FND_API.g_miss_char THEN
1721: x_complete_rec.relationship_type := NULL;
1722: END IF;
1723: IF p_claim_line_hist_rec.relationship_type IS NULL THEN
1724: x_complete_rec.relationship_type := l_claim_line_hist_rec.relationship_type;
1724: x_complete_rec.relationship_type := l_claim_line_hist_rec.relationship_type;
1725: END IF;
1726:
1727: -- tax_code
1728: IF p_claim_line_hist_rec.tax_code = FND_API.g_miss_char THEN
1729: x_complete_rec.tax_code := NULL;
1730: END IF;
1731: IF p_claim_line_hist_rec.tax_code IS NULL THEN
1732: x_complete_rec.tax_code := l_claim_line_hist_rec.tax_code;
1732: x_complete_rec.tax_code := l_claim_line_hist_rec.tax_code;
1733: END IF;
1734:
1735: -- select_cust_children_flag
1736: IF p_claim_line_hist_rec.select_cust_children_flag = FND_API.g_miss_char THEN
1737: x_complete_rec.select_cust_children_flag := NULL;
1738: END IF;
1739: IF p_claim_line_hist_rec.select_cust_children_flag IS NULL THEN
1740: x_complete_rec.select_cust_children_flag := l_claim_line_hist_rec.select_cust_children_flag;
1740: x_complete_rec.select_cust_children_flag := l_claim_line_hist_rec.select_cust_children_flag;
1741: END IF;
1742:
1743: -- buy_group_cust_account_id
1744: IF p_claim_line_hist_rec.buy_group_cust_account_id = FND_API.g_miss_num THEN
1745: x_complete_rec.buy_group_cust_account_id := NULL;
1746: END IF;
1747: IF p_claim_line_hist_rec.buy_group_cust_account_id IS NULL THEN
1748: x_complete_rec.buy_group_cust_account_id := l_claim_line_hist_rec.buy_group_cust_account_id;
1748: x_complete_rec.buy_group_cust_account_id := l_claim_line_hist_rec.buy_group_cust_account_id;
1749: END IF;
1750:
1751: -- credit_to
1752: IF p_claim_line_hist_rec.credit_to = FND_API.g_miss_char THEN
1753: x_complete_rec.credit_to := NULL;
1754: END IF;
1755: IF p_claim_line_hist_rec.credit_to IS NULL THEN
1756: x_complete_rec.credit_to := l_claim_line_hist_rec.credit_to;
1756: x_complete_rec.credit_to := l_claim_line_hist_rec.credit_to;
1757: END IF;
1758:
1759: -- sale_date
1760: IF p_claim_line_hist_rec.sale_date = FND_API.g_miss_date THEN
1761: x_complete_rec.sale_date := NULL;
1762: END IF;
1763: IF p_claim_line_hist_rec.sale_date IS NULL THEN
1764: x_complete_rec.sale_date := l_claim_line_hist_rec.sale_date;
1764: x_complete_rec.sale_date := l_claim_line_hist_rec.sale_date;
1765: END IF;
1766:
1767: -- item_type
1768: IF p_claim_line_hist_rec.item_type = FND_API.g_miss_char THEN
1769: x_complete_rec.item_type := NULL;
1770: END IF;
1771: IF p_claim_line_hist_rec.item_type IS NULL THEN
1772: x_complete_rec.item_type := l_claim_line_hist_rec.item_type;
1772: x_complete_rec.item_type := l_claim_line_hist_rec.item_type;
1773: END IF;
1774:
1775: -- tax_amount
1776: IF p_claim_line_hist_rec.tax_amount = FND_API.g_miss_num THEN
1777: x_complete_rec.tax_amount := NULL;
1778: END IF;
1779: IF p_claim_line_hist_rec.tax_amount IS NULL THEN
1780: x_complete_rec.tax_amount := l_claim_line_hist_rec.tax_amount;
1780: x_complete_rec.tax_amount := l_claim_line_hist_rec.tax_amount;
1781: END IF;
1782:
1783: -- claim_curr_tax_amount
1784: IF p_claim_line_hist_rec.claim_curr_tax_amount = FND_API.g_miss_num THEN
1785: x_complete_rec.claim_curr_tax_amount := NULL;
1786: END IF;
1787: IF p_claim_line_hist_rec.claim_curr_tax_amount IS NULL THEN
1788: x_complete_rec.claim_curr_tax_amount := l_claim_line_hist_rec.claim_curr_tax_amount;
1788: x_complete_rec.claim_curr_tax_amount := l_claim_line_hist_rec.claim_curr_tax_amount;
1789: END IF;
1790:
1791: -- activity_line_id
1792: IF p_claim_line_hist_rec.activity_line_id = FND_API.g_miss_num THEN
1793: x_complete_rec.activity_line_id := NULL;
1794: END IF;
1795: IF p_claim_line_hist_rec.activity_line_id IS NULL THEN
1796: x_complete_rec.activity_line_id := l_claim_line_hist_rec.activity_line_id;
1795: IF p_claim_line_hist_rec.activity_line_id IS NULL THEN
1796: x_complete_rec.activity_line_id := l_claim_line_hist_rec.activity_line_id;
1797: END IF;
1798:
1799: IF p_claim_line_hist_rec.offer_type = FND_API.g_miss_char THEN
1800: x_complete_rec.offer_type := NULL;
1801: END IF;
1802: IF p_claim_line_hist_rec.offer_type IS NULL THEN
1803: x_complete_rec.offer_type := l_claim_line_hist_rec.offer_type;
1802: IF p_claim_line_hist_rec.offer_type IS NULL THEN
1803: x_complete_rec.offer_type := l_claim_line_hist_rec.offer_type;
1804: END IF;
1805:
1806: IF p_claim_line_hist_rec.prorate_earnings_flag = FND_API.g_miss_char THEN
1807: x_complete_rec.prorate_earnings_flag := NULL;
1808: END IF;
1809: IF p_claim_line_hist_rec.prorate_earnings_flag IS NULL THEN
1810: x_complete_rec.prorate_earnings_flag := l_claim_line_hist_rec.prorate_earnings_flag;
1809: IF p_claim_line_hist_rec.prorate_earnings_flag IS NULL THEN
1810: x_complete_rec.prorate_earnings_flag := l_claim_line_hist_rec.prorate_earnings_flag;
1811: END IF;
1812:
1813: IF p_claim_line_hist_rec.earnings_end_date = FND_API.g_miss_date THEN
1814: x_complete_rec.earnings_end_date := NULL;
1815: END IF;
1816: IF p_claim_line_hist_rec.earnings_end_date IS NULL THEN
1817: x_complete_rec.earnings_end_date := l_claim_line_hist_rec.earnings_end_date;
1823:
1824:
1825: PROCEDURE Validate_claim_line_hist(
1826: p_api_version_number IN NUMBER,
1827: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1828: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1829: p_claim_line_hist_rec IN claim_line_hist_rec_type,
1830: x_return_status OUT NOCOPY VARCHAR2,
1831: x_msg_count OUT NOCOPY NUMBER,
1824:
1825: PROCEDURE Validate_claim_line_hist(
1826: p_api_version_number IN NUMBER,
1827: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1828: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1829: p_claim_line_hist_rec IN claim_line_hist_rec_type,
1830: x_return_status OUT NOCOPY VARCHAR2,
1831: x_msg_count OUT NOCOPY NUMBER,
1832: x_msg_data OUT NOCOPY VARCHAR2
1841: -- Standard Start of API savepoint
1842: SAVEPOINT VALIDATE_Claim_Line_Hist_;
1843:
1844: -- Standard call to check for call compatibility.
1845: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
1846: p_api_version_number,
1847: l_api_name,
1848: G_PKG_NAME) THEN
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1845: IF NOT FND_API.Compatible_API_Call(l_api_version_number,
1846: p_api_version_number,
1847: l_api_name,
1848: G_PKG_NAME) THEN
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END IF;
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END IF;
1851:
1852: -- Initialize message list if p_init_msg_list is set to TRUE.
1853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1854: FND_MSG_PUB.initialize;
1855: END IF;
1856:
1857: -- Debug Message
1859: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1860: END IF;
1861:
1862: -- Initialize API return status to SUCCESS
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
1864:
1865: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1866: Check_claim_line_hist_Items(
1867: p_claim_line_hist_rec => p_claim_line_hist_rec,
1868: p_validation_mode => JTF_PLSQL_API.g_update,
1869: x_return_status => x_return_status
1870: );
1871:
1872: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1869: x_return_status => x_return_status
1870: );
1871:
1872: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: END IF;
1870: );
1871:
1872: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: END IF;
1878:
1871:
1872: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1873: RAISE FND_API.G_EXC_ERROR;
1874: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1876: END IF;
1877: END IF;
1878:
1879: Complete_claim_line_hist_Rec(
1883:
1884: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1885: Validate_claim_line_hist_Rec(
1886: p_api_version_number => 1.0,
1887: p_init_msg_list => FND_API.G_FALSE,
1888: x_return_status => x_return_status,
1889: x_msg_count => x_msg_count,
1890: x_msg_data => x_msg_data,
1891: p_claim_line_hist_rec => l_claim_line_hist_rec
1890: x_msg_data => x_msg_data,
1891: p_claim_line_hist_rec => l_claim_line_hist_rec
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1898: END IF;
1891: p_claim_line_hist_rec => l_claim_line_hist_rec
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1898: END IF;
1899: END IF;
1892: );
1893:
1894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1898: END IF;
1899: END IF;
1900:
1893:
1894: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1895: RAISE FND_API.G_EXC_ERROR;
1896: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1898: END IF;
1899: END IF;
1900:
1901: -- Debug Message
1910: );
1911:
1912: EXCEPTION
1913: WHEN OZF_Utility_PVT.resource_locked THEN
1914: x_return_status := FND_API.g_ret_sts_error;
1915: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1916:
1917: WHEN FND_API.G_EXC_ERROR THEN
1918: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1913: WHEN OZF_Utility_PVT.resource_locked THEN
1914: x_return_status := FND_API.g_ret_sts_error;
1915: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1916:
1917: WHEN FND_API.G_EXC_ERROR THEN
1918: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1919: x_return_status := FND_API.G_RET_STS_ERROR;
1920: -- Standard call to get message count and if count=1, get the message
1921: FND_MSG_PUB.Count_And_Get (
1915: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1916:
1917: WHEN FND_API.G_EXC_ERROR THEN
1918: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1919: x_return_status := FND_API.G_RET_STS_ERROR;
1920: -- Standard call to get message count and if count=1, get the message
1921: FND_MSG_PUB.Count_And_Get (
1922: p_encoded => FND_API.G_FALSE,
1923: p_count => x_msg_count,
1918: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1919: x_return_status := FND_API.G_RET_STS_ERROR;
1920: -- Standard call to get message count and if count=1, get the message
1921: FND_MSG_PUB.Count_And_Get (
1922: p_encoded => FND_API.G_FALSE,
1923: p_count => x_msg_count,
1924: p_data => x_msg_data
1925: );
1926:
1923: p_count => x_msg_count,
1924: p_data => x_msg_data
1925: );
1926:
1927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: -- Standard call to get message count and if count=1, get the message
1931: FND_MSG_PUB.Count_And_Get (
1925: );
1926:
1927: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1928: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: -- Standard call to get message count and if count=1, get the message
1931: FND_MSG_PUB.Count_And_Get (
1932: p_encoded => FND_API.G_FALSE,
1933: p_count => x_msg_count,
1928: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1930: -- Standard call to get message count and if count=1, get the message
1931: FND_MSG_PUB.Count_And_Get (
1932: p_encoded => FND_API.G_FALSE,
1933: p_count => x_msg_count,
1934: p_data => x_msg_data
1935: );
1936:
1935: );
1936:
1937: WHEN OTHERS THEN
1938: ROLLBACK TO VALIDATE_Claim_Line_Hist_;
1939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1940: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1941: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1942: END IF;
1943: -- Standard call to get message count and if count=1, get the message
1941: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1942: END IF;
1943: -- Standard call to get message count and if count=1, get the message
1944: FND_MSG_PUB.Count_And_Get (
1945: p_encoded => FND_API.G_FALSE,
1946: p_count => x_msg_count,
1947: p_data => x_msg_data
1948: );
1949:
1951:
1952:
1953: PROCEDURE Validate_claim_line_hist_rec(
1954: p_api_version_number IN NUMBER,
1955: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1956: x_return_status OUT NOCOPY VARCHAR2,
1957: x_msg_count OUT NOCOPY NUMBER,
1958: x_msg_data OUT NOCOPY VARCHAR2,
1959: p_claim_line_hist_rec IN claim_line_hist_rec_type
1960: )
1961: IS
1962: BEGIN
1963: -- Initialize message list if p_init_msg_list is set to TRUE.
1964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1965: FND_MSG_PUB.initialize;
1966: END IF;
1967:
1968: -- Initialize API return status to SUCCESS
1965: FND_MSG_PUB.initialize;
1966: END IF;
1967:
1968: -- Initialize API return status to SUCCESS
1969: x_return_status := FND_API.G_RET_STS_SUCCESS;
1970:
1971: -- Hint: Validate data
1972: -- If data not valid
1973: -- THEN
1970:
1971: -- Hint: Validate data
1972: -- If data not valid
1973: -- THEN
1974: -- x_return_status := FND_API.G_RET_STS_ERROR;
1975:
1976: -- Debug Message
1977: IF g_debug THEN
1978: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');