72: END IF;
73:
74: -- Debug Message
75: IF g_debug THEN
76: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
77: END IF;
78:
79:
80: -- Initialize API return status to SUCCESS
101: -- =========================================================================
102:
103: IF FND_GLOBAL.User_Id IS NULL
104: THEN
105: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
108:
109: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
109: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
110: THEN
111: -- Debug message
112: IF g_debug THEN
113: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Lines_Int');
114: END IF;
115:
116: -- Invoke validation procedures
117: Validate_claim_lines_int(
130:
131:
132: -- Debug Message
133: IF g_debug THEN
134: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
135: END IF;
136:
137: -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Insert_Row)
138: OZF_CLAIM_LINES_INT_PKG.Insert_Row(
213:
214:
215: -- Debug Message
216: IF g_debug THEN
217: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
218: END IF;
219:
220: -- Standard call to get message count and if count is 1, get message info.
221: FND_MSG_PUB.Count_And_Get
223: p_data => x_msg_data
224: );
225: EXCEPTION
226:
227: WHEN OZF_Utility_PVT.resource_locked THEN
228: x_return_status := FND_API.g_ret_sts_error;
229: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
230:
231: WHEN FND_API.G_EXC_ERROR THEN
225: EXCEPTION
226:
227: WHEN OZF_Utility_PVT.resource_locked THEN
228: x_return_status := FND_API.g_ret_sts_error;
229: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
230:
231: WHEN FND_API.G_EXC_ERROR THEN
232: ROLLBACK TO CREATE_Claim_Lines_Int_PVT;
233: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
315:
316: -- Debug Message
317: IF g_debug THEN
318: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
319: END IF;
320:
321:
322: -- Initialize API return status to SUCCESS
323: x_return_status := FND_API.G_RET_STS_SUCCESS;
324:
325: -- Debug Message
326: IF g_debug THEN
327: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
328: END IF;
329:
330: /*
331: OPEN c_get_Claim_Lines_Int( l_tar_claim_lines_int_rec.interface_claim_line_id);
332:
333: FETCH c_get_Claim_Lines_Int INTO l_ref_claim_lines_int_rec ;
334:
335: If ( c_get_Claim_Lines_Int%NOTFOUND) THEN
336: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RECORD_NOT_FOUND',
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339: -- Debug Message
340: IF g_debug THEN
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
339: -- Debug Message
340: IF g_debug THEN
341: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
342: END IF;
343: CLOSE c_get_Claim_Lines_Int;
344: */
345:
345:
346:
347: If (l_tar_claim_lines_int_rec.object_version_number is NULL or
348: l_tar_claim_lines_int_rec.object_version_number = FND_API.G_MISS_NUM ) Then
349: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');
350: raise FND_API.G_EXC_ERROR;
351: End if;
352: -- Check Whether record has been changed by someone else
353: If (l_tar_claim_lines_int_rec.object_version_number <> l_ref_claim_lines_int_rec.object_version_number) Then
350: raise FND_API.G_EXC_ERROR;
351: End if;
352: -- Check Whether record has been changed by someone else
353: If (l_tar_claim_lines_int_rec.object_version_number <> l_ref_claim_lines_int_rec.object_version_number) Then
354: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
355: raise FND_API.G_EXC_ERROR;
356: End if;
357: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
358: THEN
357: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
358: THEN
359: -- Debug message
360: IF g_debug THEN
361: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claim_Lines_Int');
362: END IF;
363:
364: -- Invoke validation procedures
365: Validate_claim_lines_int(
378:
379:
380: -- Debug Message
381: IF g_debug THEN
382: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: Calling update table handler');
383: END IF;
384:
385: -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Update_Row)
386: OZF_CLAIM_LINES_INT_PKG.Update_Row(
456:
457:
458: -- Debug Message
459: IF g_debug THEN
460: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
461: END IF;
462:
463: -- Standard call to get message count and if count is 1, get message info.
464: FND_MSG_PUB.Count_And_Get
466: p_data => x_msg_data
467: );
468: EXCEPTION
469:
470: WHEN OZF_Utility_PVT.resource_locked THEN
471: x_return_status := FND_API.g_ret_sts_error;
472: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
473:
474: WHEN FND_API.G_EXC_ERROR THEN
468: EXCEPTION
469:
470: WHEN OZF_Utility_PVT.resource_locked THEN
471: x_return_status := FND_API.g_ret_sts_error;
472: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
473:
474: WHEN FND_API.G_EXC_ERROR THEN
475: ROLLBACK TO UPDATE_Claim_Lines_Int_PVT;
476: x_return_status := FND_API.G_RET_STS_ERROR;
544: END IF;
545:
546: -- Debug Message
547: IF g_debug THEN
548: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
549: END IF;
550:
551:
552: -- Initialize API return status to SUCCESS
556: -- Api body
557: --
558: -- Debug Message
559: IF g_debug THEN
560: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
561: END IF;
562:
563: -- Invoke table handler(OZF_CLAIM_LINES_INT_PKG.Delete_Row)
564: OZF_CLAIM_LINES_INT_PKG.Delete_Row(
575:
576:
577: -- Debug Message
578: IF g_debug THEN
579: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
580: END IF;
581:
582: -- Standard call to get message count and if count is 1, get message info.
583: FND_MSG_PUB.Count_And_Get
585: p_data => x_msg_data
586: );
587: EXCEPTION
588:
589: WHEN OZF_Utility_PVT.resource_locked THEN
590: x_return_status := FND_API.g_ret_sts_error;
591: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
592:
593: WHEN FND_API.G_EXC_ERROR THEN
587: EXCEPTION
588:
589: WHEN OZF_Utility_PVT.resource_locked THEN
590: x_return_status := FND_API.g_ret_sts_error;
591: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
592:
593: WHEN FND_API.G_EXC_ERROR THEN
594: ROLLBACK TO DELETE_Claim_Lines_Int_PVT;
595: x_return_status := FND_API.G_RET_STS_ERROR;
656: BEGIN
657:
658: -- Debug Message
659: IF g_debug THEN
660: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
661: END IF;
662:
663: -- Initialize message list if p_init_msg_list is set to TRUE.
664: IF FND_API.to_Boolean( p_init_msg_list )
682:
683: ------------------------ lock -------------------------
684:
685: IF g_debug THEN
686: OZF_Utility_PVT.debug_message(l_full_name||': start');
687: END IF;
688: OPEN c_Claim_Lines_Int;
689:
690: FETCH c_Claim_Lines_Int INTO l_INTERFACE_CLAIM_LINE_ID;
705: p_encoded => FND_API.g_false,
706: p_count => x_msg_count,
707: p_data => x_msg_data);
708: IF g_debug THEN
709: OZF_Utility_PVT.debug_message(l_full_name ||': end');
710: END IF;
711: EXCEPTION
712:
713: WHEN OZF_Utility_PVT.resource_locked THEN
709: OZF_Utility_PVT.debug_message(l_full_name ||': end');
710: END IF;
711: EXCEPTION
712:
713: WHEN OZF_Utility_PVT.resource_locked THEN
714: x_return_status := FND_API.g_ret_sts_error;
715: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
716:
717: WHEN FND_API.G_EXC_ERROR THEN
711: EXCEPTION
712:
713: WHEN OZF_Utility_PVT.resource_locked THEN
714: x_return_status := FND_API.g_ret_sts_error;
715: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
716:
717: WHEN FND_API.G_EXC_ERROR THEN
718: ROLLBACK TO LOCK_Claim_Lines_Int_PVT;
719: x_return_status := FND_API.G_RET_STS_ERROR;
759:
760: BEGIN
761: x_return_status := FND_API.g_ret_sts_success;
762: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
763: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
764: 'OZF_CLAIM_LINES_INT_ALL',
765: 'INTERFACE_CLAIM_LINE_ID = ''' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID ||''''
766: );
767: ELSE
764: 'OZF_CLAIM_LINES_INT_ALL',
765: 'INTERFACE_CLAIM_LINE_ID = ''' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID ||''''
766: );
767: ELSE
768: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
769: 'OZF_CLAIM_LINES_INT_ALL',
770: 'INTERFACE_CLAIM_LINE_ID = ''' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID ||
771: ''' AND INTERFACE_CLAIM_LINE_ID <> ' || p_claim_lines_int_rec.INTERFACE_CLAIM_LINE_ID
772: );
772: );
773: END IF;
774:
775: IF l_valid_flag = FND_API.g_false THEN
776: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTER_CLAIM_LINE_ID_DUP');
777: x_return_status := FND_API.g_ret_sts_error;
778: RETURN;
779: END IF;
780:
792: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
793:
794:
795: IF p_claim_lines_int_rec.interface_claim_line_id = FND_API.g_miss_num OR p_claim_lines_int_rec.interface_claim_line_id IS NULL THEN
796: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_LINE_ID' );
797: x_return_status := FND_API.g_ret_sts_error;
798: RETURN;
799: END IF;
800:
799: END IF;
800:
801:
802: IF p_claim_lines_int_rec.object_version_number = FND_API.g_miss_num OR p_claim_lines_int_rec.object_version_number IS NULL THEN
803: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
804: x_return_status := FND_API.g_ret_sts_error;
805: RETURN;
806: END IF;
807:
806: END IF;
807:
808:
809: IF p_claim_lines_int_rec.last_update_date = FND_API.g_miss_date OR p_claim_lines_int_rec.last_update_date IS NULL THEN
810: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
811: x_return_status := FND_API.g_ret_sts_error;
812: RETURN;
813: END IF;
814:
813: END IF;
814:
815:
816: IF p_claim_lines_int_rec.last_updated_by = FND_API.g_miss_num OR p_claim_lines_int_rec.last_updated_by IS NULL THEN
817: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
818: x_return_status := FND_API.g_ret_sts_error;
819: RETURN;
820: END IF;
821:
820: END IF;
821:
822:
823: IF p_claim_lines_int_rec.creation_date = FND_API.g_miss_date OR p_claim_lines_int_rec.creation_date IS NULL THEN
824: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
825: x_return_status := FND_API.g_ret_sts_error;
826: RETURN;
827: END IF;
828:
827: END IF;
828:
829:
830: IF p_claim_lines_int_rec.created_by = FND_API.g_miss_num OR p_claim_lines_int_rec.created_by IS NULL THEN
831: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
832: x_return_status := FND_API.g_ret_sts_error;
833: RETURN;
834: END IF;
835:
834: END IF;
835:
836:
837: IF p_claim_lines_int_rec.interface_claim_id = FND_API.g_miss_num OR p_claim_lines_int_rec.interface_claim_id IS NULL THEN
838: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
839: x_return_status := FND_API.g_ret_sts_error;
840: RETURN;
841: END IF;
842:
841: END IF;
842:
843:
844: IF p_claim_lines_int_rec.line_number = FND_API.g_miss_num OR p_claim_lines_int_rec.line_number IS NULL THEN
845: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
846: x_return_status := FND_API.g_ret_sts_error;
847: RETURN;
848: END IF;
849:
848: END IF;
849:
850:
851: IF p_claim_lines_int_rec.set_of_books_id = FND_API.g_miss_num OR p_claim_lines_int_rec.set_of_books_id IS NULL THEN
852: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
853: x_return_status := FND_API.g_ret_sts_error;
854: RETURN;
855: END IF;
856:
855: END IF;
856:
857:
858: IF p_claim_lines_int_rec.valid_flag = FND_API.g_miss_char OR p_claim_lines_int_rec.valid_flag IS NULL THEN
859: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
860: x_return_status := FND_API.g_ret_sts_error;
861: RETURN;
862: END IF;
863: ELSE
863: ELSE
864:
865:
866: IF p_claim_lines_int_rec.interface_claim_line_id IS NULL THEN
867: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_LINE_ID' );
868: x_return_status := FND_API.g_ret_sts_error;
869: RETURN;
870: END IF;
871:
870: END IF;
871:
872:
873: IF p_claim_lines_int_rec.object_version_number IS NULL THEN
874: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
875: x_return_status := FND_API.g_ret_sts_error;
876: RETURN;
877: END IF;
878:
877: END IF;
878:
879:
880: IF p_claim_lines_int_rec.last_update_date IS NULL THEN
881: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
882: x_return_status := FND_API.g_ret_sts_error;
883: RETURN;
884: END IF;
885:
884: END IF;
885:
886:
887: IF p_claim_lines_int_rec.last_updated_by IS NULL THEN
888: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
889: x_return_status := FND_API.g_ret_sts_error;
890: RETURN;
891: END IF;
892:
891: END IF;
892:
893:
894: IF p_claim_lines_int_rec.creation_date IS NULL THEN
895: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
899:
898: END IF;
899:
900:
901: IF p_claim_lines_int_rec.created_by IS NULL THEN
902: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
903: x_return_status := FND_API.g_ret_sts_error;
904: RETURN;
905: END IF;
906:
905: END IF;
906:
907:
908: IF p_claim_lines_int_rec.interface_claim_id IS NULL THEN
909: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
910: x_return_status := FND_API.g_ret_sts_error;
911: RETURN;
912: END IF;
913:
912: END IF;
913:
914:
915: IF p_claim_lines_int_rec.line_number IS NULL THEN
916: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LINE_NUMBER' );
917: x_return_status := FND_API.g_ret_sts_error;
918: RETURN;
919: END IF;
920:
919: END IF;
920:
921:
922: IF p_claim_lines_int_rec.set_of_books_id IS NULL THEN
923: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'SET_OF_BOOKS_ID' );
924: x_return_status := FND_API.g_ret_sts_error;
925: RETURN;
926: END IF;
927:
926: END IF;
927:
928:
929: IF p_claim_lines_int_rec.valid_flag IS NULL THEN
930: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'VALID_FLAG' );
931: x_return_status := FND_API.g_ret_sts_error;
932: RETURN;
933: END IF;
934: END IF;
1593:
1594:
1595: -- Debug Message
1596: IF g_debug THEN
1597: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1598: END IF;
1599:
1600:
1601: -- Initialize API return status to SUCCESS
1603:
1604:
1605: -- Debug Message
1606: IF g_debug THEN
1607: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1608: END IF;
1609:
1610: -- Standard call to get message count and if count is 1, get message info.
1611: FND_MSG_PUB.Count_And_Get
1613: p_data => x_msg_data
1614: );
1615: EXCEPTION
1616:
1617: WHEN OZF_Utility_PVT.resource_locked THEN
1618: x_return_status := FND_API.g_ret_sts_error;
1619: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1620:
1621: WHEN FND_API.G_EXC_ERROR THEN
1615: EXCEPTION
1616:
1617: WHEN OZF_Utility_PVT.resource_locked THEN
1618: x_return_status := FND_API.g_ret_sts_error;
1619: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1620:
1621: WHEN FND_API.G_EXC_ERROR THEN
1622: ROLLBACK TO VALIDATE_Claim_Lines_Int_;
1623: x_return_status := FND_API.G_RET_STS_ERROR;
1679: -- x_return_status := FND_API.G_RET_STS_ERROR;
1680:
1681: -- Debug Message
1682: IF g_debug THEN
1683: OZF_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
1684: END IF;
1685: -- Standard call to get message count and if count is 1, get message info.
1686: FND_MSG_PUB.Count_And_Get
1687: (p_count => x_msg_count,