DBA Data[Home] [Help]

APPS.OZF_CLAIMS_INT_PVT dependencies on OZF_UTILITY_PVT

Line 92: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

88: END IF;
89:
90: -- Debug Message
91: IF OZF_DEBUG_HIGH_ON THEN
92: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
93: END IF;
94:
95: -- Initialize API return status to SUCCESS
96: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 120: OZF_UTILITY_PVT.debug_message('l_INTERFACE_CLAIM_ID :' || l_INTERFACE_CLAIM_ID);

116:
117: -- Added for 7290916
118: l_INTERFACE_CLAIM_ID := l_claim_int_rec.INTERFACE_CLAIM_ID;
119:
120: OZF_UTILITY_PVT.debug_message('l_INTERFACE_CLAIM_ID :' || l_INTERFACE_CLAIM_ID);
121:
122: -- =========================================================================
123: -- Validate Environment
124: -- =========================================================================

Line 127: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');

123: -- Validate Environment
124: -- =========================================================================
125: IF FND_GLOBAL.User_Id IS NULL
126: THEN
127: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)

Line 135: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');

131: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
132: THEN
133: -- Debug message
134: IF OZF_DEBUG_HIGH_ON THEN
135: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');
136: END IF;
137:
138: --Added for 7290916
139: -- Invoke validation procedures

Line 156: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');

152: END IF;
153:
154: -- Debug Message
155: IF OZF_DEBUG_HIGH_ON THEN
156: OZF_UTILITY_PVT.debug_message( 'Private API: Calling create table handler');
157: END IF;
158:
159: -- Invoke table handler(OZF_CLAIMS_INT_PKG.Insert_Row)
160: OZF_CLAIMS_INT_PKG.Insert_Row(

Line 304: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');

300: END IF;
301:
302: -- Debug Message
303: IF OZF_DEBUG_HIGH_ON THEN
304: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
305: END IF;
306:
307: -- Standard call to get message count and if count is 1, get message info.
308: FND_MSG_PUB.Count_And_Get

Line 313: WHEN OZF_Utility_PVT.resource_locked THEN

309: (p_count => x_msg_count,
310: p_data => x_msg_data
311: );
312: EXCEPTION
313: WHEN OZF_Utility_PVT.resource_locked THEN
314: x_return_status := FND_API.g_ret_sts_error;
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;

Line 315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');

311: );
312: EXCEPTION
313: WHEN OZF_Utility_PVT.resource_locked THEN
314: x_return_status := FND_API.g_ret_sts_error;
315: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO CREATE_Claims_Int_PVT;
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: -- Standard call to get message count and if count=1, get the message

Line 399: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

395: END IF;
396:
397: -- Debug Message
398: IF OZF_DEBUG_HIGH_ON THEN
399: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
400: END IF;
401:
402: -- Initialize API return status to SUCCESS
403: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 407: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');

403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404:
405: -- Debug Message
406: IF OZF_DEBUG_HIGH_ON THEN
407: OZF_UTILITY_PVT.debug_message('Private API: - Open Cursor to Select');
408: END IF;
409:
410: /*
411: OPEN c_get_Claims_Int( l_tar_claims_int_rec.interface_claim_id);

Line 416: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RECORD_NOT_FOUND');

412:
413: FETCH c_get_Claims_Int INTO l_ref_claims_int_rec ;
414:
415: If ( c_get_Claims_Int%NOTFOUND) THEN
416: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RECORD_NOT_FOUND');
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419: -- Debug Message
420: IF OZF_DEBUG_HIGH_ON THEN

Line 421: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');

417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419: -- Debug Message
420: IF OZF_DEBUG_HIGH_ON THEN
421: OZF_UTILITY_PVT.debug_message('Private API: - Close Cursor');
422: END IF;
423: CLOSE c_get_Claims_Int;
424: */
425:

Line 429: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');

425:
426: IF (l_tar_claims_int_rec.object_version_number IS NULL OR
427: l_tar_claims_int_rec.object_version_number = FND_API.G_MISS_NUM )
428: THEN
429: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_NO_OBJ_VER_NUM');
430: raise FND_API.G_EXC_ERROR;
431: END IF;
432:
433: -- Check Whether record has been changed by someone else

Line 436: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');

432:
433: -- Check Whether record has been changed by someone else
434: IF (l_tar_claims_int_rec.object_version_number <> l_ref_claims_int_rec.object_version_number)
435: THEN
436: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
437: raise FND_API.G_EXC_ERROR;
438: END IF;
439:
440: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)

Line 444: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');

440: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
441: THEN
442: -- Debug message
443: IF OZF_DEBUG_HIGH_ON THEN
444: OZF_UTILITY_PVT.debug_message('Private API: Validate_Claims_Int');
445: END IF;
446: -- Invoke validation procedures
447: Validate_claims_int(
448: p_api_version_number => 1.0,

Line 463: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,

459: END IF;
460:
461: -- Debug Message
462: IF OZF_DEBUG_HIGH_ON THEN
463: OZF_UTILITY_PVT.debug_message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
464: 'Private API: Calling update table handler');
465: END IF;
466:
467: -- Invoke table handler(OZF_CLAIMS_INT_PKG.Update_Row)

Line 607: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');

603: END IF;
604:
605: -- Debug Message
606: IF OZF_DEBUG_HIGH_ON THEN
607: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
608: END IF;
609:
610: -- Standard call to get message count and if count is 1, get message info.
611: FND_MSG_PUB.Count_And_Get

Line 616: WHEN OZF_Utility_PVT.resource_locked THEN

612: (p_count => x_msg_count,
613: p_data => x_msg_data
614: );
615: EXCEPTION
616: WHEN OZF_Utility_PVT.resource_locked THEN
617: x_return_status := FND_API.g_ret_sts_error;
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;

Line 618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');

614: );
615: EXCEPTION
616: WHEN OZF_Utility_PVT.resource_locked THEN
617: x_return_status := FND_API.g_ret_sts_error;
618: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
619: WHEN FND_API.G_EXC_ERROR THEN
620: ROLLBACK TO UPDATE_Claims_Int_PVT;
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: -- Standard call to get message count and if count=1, get the message

Line 688: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

684: END IF;
685:
686: -- Debug Message
687: IF OZF_DEBUG_HIGH_ON THEN
688: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
689: END IF;
690:
691: -- Initialize API return status to SUCCESS
692: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 699: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');

695: -- Api body
696: --
697: -- Debug Message
698: IF OZF_DEBUG_HIGH_ON THEN
699: OZF_UTILITY_PVT.debug_message( 'Private API: Calling delete table handler');
700: END IF;
701:
702: -- Invoke table handler(OZF_CLAIMS_INT_PKG.Delete_Row)
703: OZF_CLAIMS_INT_PKG.Delete_Row(

Line 717: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');

713: END IF;
714:
715: -- Debug Message
716: IF OZF_DEBUG_HIGH_ON THEN
717: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
718: END IF;
719:
720: -- Standard call to get message count and if count is 1, get message info.
721: FND_MSG_PUB.Count_And_Get

Line 726: WHEN OZF_Utility_PVT.resource_locked THEN

722: (p_count => x_msg_count,
723: p_data => x_msg_data
724: );
725: EXCEPTION
726: WHEN OZF_Utility_PVT.resource_locked THEN
727: x_return_status := FND_API.g_ret_sts_error;
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;

Line 728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');

724: );
725: EXCEPTION
726: WHEN OZF_Utility_PVT.resource_locked THEN
727: x_return_status := FND_API.g_ret_sts_error;
728: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
729: WHEN FND_API.G_EXC_ERROR THEN
730: ROLLBACK TO DELETE_Claims_Int_PVT;
731: x_return_status := FND_API.G_RET_STS_ERROR;
732: -- Standard call to get message count and if count=1, get the message

Line 788: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

784: FOR UPDATE NOWAIT;
785: BEGIN
786: -- Debug Message
787: IF OZF_DEBUG_HIGH_ON THEN
788: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
789: END IF;
790:
791: -- Initialize message list if p_init_msg_list is set to TRUE.
792: IF FND_API.to_Boolean( p_init_msg_list )

Line 811: OZF_Utility_PVT.debug_message(l_full_name||': start');

807: x_return_status := FND_API.G_RET_STS_SUCCESS;
808:
809: ------------------------ lock -------------------------
810: IF OZF_DEBUG_HIGH_ON THEN
811: OZF_Utility_PVT.debug_message(l_full_name||': start');
812: END IF;
813: OPEN c_Claims_Int;
814: FETCH c_Claims_Int INTO l_INTERFACE_CLAIM_ID;
815: IF (c_Claims_Int%NOTFOUND) THEN

Line 832: OZF_Utility_PVT.debug_message(l_full_name ||': end');

828: p_encoded => FND_API.g_false,
829: p_count => x_msg_count,
830: p_data => x_msg_data);
831: IF OZF_DEBUG_HIGH_ON THEN
832: OZF_Utility_PVT.debug_message(l_full_name ||': end');
833: END IF;
834:
835: EXCEPTION
836: WHEN OZF_Utility_PVT.resource_locked THEN

Line 836: WHEN OZF_Utility_PVT.resource_locked THEN

832: OZF_Utility_PVT.debug_message(l_full_name ||': end');
833: END IF;
834:
835: EXCEPTION
836: WHEN OZF_Utility_PVT.resource_locked THEN
837: x_return_status := FND_API.g_ret_sts_error;
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;

Line 838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');

834:
835: EXCEPTION
836: WHEN OZF_Utility_PVT.resource_locked THEN
837: x_return_status := FND_API.g_ret_sts_error;
838: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
839: WHEN FND_API.G_EXC_ERROR THEN
840: ROLLBACK TO LOCK_Claims_Int_PVT;
841: x_return_status := FND_API.G_RET_STS_ERROR;
842: -- Standard call to get message count and if count=1, get the message

Line 882: l_valid_flag := OZF_Utility_PVT.check_uniqueness(

878:
879: BEGIN
880: x_return_status := FND_API.g_ret_sts_success;
881: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
882: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
883: 'OZF_CLAIMS_INT_ALL',
884: 'INTERFACE_CLAIM_ID = ''' || p_claims_int_rec.INTERFACE_CLAIM_ID ||''''
885: );
886: ELSE

Line 887: l_valid_flag := OZF_Utility_PVT.check_uniqueness(

883: 'OZF_CLAIMS_INT_ALL',
884: 'INTERFACE_CLAIM_ID = ''' || p_claims_int_rec.INTERFACE_CLAIM_ID ||''''
885: );
886: ELSE
887: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
888: 'OZF_CLAIMS_INT_ALL',
889: 'INTERFACE_CLAIM_ID = ''' || p_claims_int_rec.INTERFACE_CLAIM_ID ||
890: ''' AND INTERFACE_CLAIM_ID <> ' || p_claims_int_rec.INTERFACE_CLAIM_ID
891: );

Line 895: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTERFACE_CLAIM_ID_DUP');

891: );
892: END IF;
893:
894: IF l_valid_flag = FND_API.g_false THEN
895: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_INTERFACE_CLAIM_ID_DUP');
896: x_return_status := FND_API.g_ret_sts_error;
897: RETURN;
898: END IF;
899: END check_claims_int_uk_items;

Line 914: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );

910: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
911: IF p_claims_int_rec.interface_claim_id = FND_API.g_miss_num OR
912: p_claims_int_rec.interface_claim_id IS NULL
913: THEN
914: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
915: x_return_status := FND_API.g_ret_sts_error;
916: RETURN;
917: END IF;
918:

Line 922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );

918:
919: IF p_claims_int_rec.object_version_number = FND_API.g_miss_num OR
920: p_claims_int_rec.object_version_number IS NULL
921: THEN
922: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
923: x_return_status := FND_API.g_ret_sts_error;
924: RETURN;
925: END IF;
926:

Line 930: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );

926:
927: IF p_claims_int_rec.last_update_date = FND_API.g_miss_date OR
928: p_claims_int_rec.last_update_date IS NULL
929: THEN
930: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
931: x_return_status := FND_API.g_ret_sts_error;
932: RETURN;
933: END IF;
934:

Line 937: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );

933: END IF;
934:
935: IF p_claims_int_rec.last_updated_by = FND_API.g_miss_num OR
936: p_claims_int_rec.last_updated_by IS NULL THEN
937: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
938: x_return_status := FND_API.g_ret_sts_error;
939: RETURN;
940: END IF;
941:

Line 944: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );

940: END IF;
941:
942: IF p_claims_int_rec.creation_date = FND_API.g_miss_date OR
943: p_claims_int_rec.creation_date IS NULL THEN
944: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
945: x_return_status := FND_API.g_ret_sts_error;
946: RETURN;
947: END IF;
948:

Line 951: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );

947: END IF;
948:
949: IF p_claims_int_rec.created_by = FND_API.g_miss_num OR
950: p_claims_int_rec.created_by IS NULL THEN
951: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
952: x_return_status := FND_API.g_ret_sts_error;
953: RETURN;
954: END IF;
955:

Line 958: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );

954: END IF;
955:
956: IF p_claims_int_rec.claim_type_id = FND_API.g_miss_num OR
957: p_claims_int_rec.claim_type_id IS NULL THEN
958: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );
959: x_return_status := FND_API.g_ret_sts_error;
960: RETURN;
961: END IF;
962:

Line 965: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );

961: END IF;
962:
963: IF p_claims_int_rec.claim_date = FND_API.g_miss_date OR
964: p_claims_int_rec.claim_date IS NULL THEN
965: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );
966: x_return_status := FND_API.g_ret_sts_error;
967: RETURN;
968: END IF;
969:

Line 972: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );

968: END IF;
969:
970: IF p_claims_int_rec.cust_account_id = FND_API.g_miss_num OR
971: p_claims_int_rec.cust_account_id IS NULL THEN
972: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
975: END IF;
976: ELSE

Line 978: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );

974: RETURN;
975: END IF;
976: ELSE
977: IF p_claims_int_rec.interface_claim_id IS NULL THEN
978: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'INTERFACE_CLAIM_ID' );
979: x_return_status := FND_API.g_ret_sts_error;
980: RETURN;
981: END IF;
982:

Line 984: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );

980: RETURN;
981: END IF;
982:
983: IF p_claims_int_rec.object_version_number IS NULL THEN
984: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'OBJECT_VERSION_NUMBER' );
985: x_return_status := FND_API.g_ret_sts_error;
986: RETURN;
987: END IF;
988:

Line 990: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );

986: RETURN;
987: END IF;
988:
989: IF p_claims_int_rec.last_update_date IS NULL THEN
990: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATE_DATE' );
991: x_return_status := FND_API.g_ret_sts_error;
992: RETURN;
993: END IF;
994:

Line 996: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );

992: RETURN;
993: END IF;
994:
995: IF p_claims_int_rec.last_updated_by IS NULL THEN
996: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'LAST_UPDATED_BY' );
997: x_return_status := FND_API.g_ret_sts_error;
998: RETURN;
999: END IF;
1000:

Line 1002: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );

998: RETURN;
999: END IF;
1000:
1001: IF p_claims_int_rec.creation_date IS NULL THEN
1002: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATION_DATE' );
1003: x_return_status := FND_API.g_ret_sts_error;
1004: RETURN;
1005: END IF;
1006:

Line 1008: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );

1004: RETURN;
1005: END IF;
1006:
1007: IF p_claims_int_rec.created_by IS NULL THEN
1008: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CREATED_BY' );
1009: x_return_status := FND_API.g_ret_sts_error;
1010: RETURN;
1011: END IF;
1012:

Line 1015: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );

1011: END IF;
1012:
1013:
1014: IF p_claims_int_rec.claim_type_id IS NULL THEN
1015: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_TYPE_ID' );
1016: x_return_status := FND_API.g_ret_sts_error;
1017: RETURN;
1018: END IF;
1019:

Line 1021: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );

1017: RETURN;
1018: END IF;
1019:
1020: IF p_claims_int_rec.claim_date IS NULL THEN
1021: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CLAIM_DATE' );
1022: x_return_status := FND_API.g_ret_sts_error;
1023: RETURN;
1024: END IF;
1025:

Line 1027: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );

1023: RETURN;
1024: END IF;
1025:
1026: IF p_claims_int_rec.cust_account_id IS NULL THEN
1027: OZF_Utility_PVT.Error_Message('OZF_API_MISSING_FIELD', 'MISS_FIELD', 'CUST_ACCOUNT_ID' );
1028: x_return_status := FND_API.g_ret_sts_error;
1029: RETURN;
1030: END IF;
1031: END IF;

Line 2209: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

2205: END IF;
2206:
2207: -- Debug Message
2208: IF OZF_DEBUG_HIGH_ON THEN
2209: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
2210: END IF;
2211:
2212: -- Initialize API return status to SUCCESS
2213: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2217: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');

2213: x_return_status := FND_API.G_RET_STS_SUCCESS;
2214:
2215: -- Debug Message
2216: IF OZF_DEBUG_HIGH_ON THEN
2217: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2218: END IF;
2219:
2220: -- Standard call to get message count and if count is 1, get message info.
2221: FND_MSG_PUB.Count_And_Get

Line 2226: WHEN OZF_Utility_PVT.resource_locked THEN

2222: (p_count => x_msg_count,
2223: p_data => x_msg_data
2224: );
2225: EXCEPTION
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;

Line 2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');

2224: );
2225: EXCEPTION
2226: WHEN OZF_Utility_PVT.resource_locked THEN
2227: x_return_status := FND_API.g_ret_sts_error;
2228: OZF_Utility_PVT.Error_Message(p_message_name =>'OZF_API_RESOURCE_LOCKED');
2229: WHEN FND_API.G_EXC_ERROR THEN
2230: ROLLBACK TO VALIDATE_Claims_Int_;
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2232: -- Standard call to get message count and if count=1, get the message

Line 2288: OZF_UTILITY_PVT.debug_message('Private API: Validate_claims_int_rec');

2284: -- x_return_status := FND_API.G_RET_STS_ERROR;
2285:
2286: -- Debug Message
2287: IF OZF_DEBUG_HIGH_ON THEN
2288: OZF_UTILITY_PVT.debug_message('Private API: Validate_claims_int_rec');
2289: END IF;
2290: -- Standard call to get message count and if count is 1, get message info.
2291: FND_MSG_PUB.Count_And_Get
2292: (p_count => x_msg_count,

Line 2321: OZF_UTILITY_PVT.debug_message('Private API: Clean up Claims');

2317: IS
2318: BEGIN
2319: -- Debug Message
2320: IF OZF_DEBUG_HIGH_ON THEN
2321: OZF_UTILITY_PVT.debug_message('Private API: Clean up Claims');
2322: END IF;
2323: x_return_status := FND_API.G_RET_STS_SUCCESS;
2324:
2325: delete from ozf_claims_all where claim_id = p_claim_id;

Line 2400: l_org_id OZF_UTILITY_PVT.operating_units_tbl;

2396: FROM hr_operating_units ou
2397: WHERE mo_global.check_access(ou.organization_id) = 'Y';
2398:
2399: m NUMBER := 0;
2400: l_org_id OZF_UTILITY_PVT.operating_units_tbl;
2401:
2402: BEGIN
2403: -- Debug Message
2404: IF OZF_DEBUG_LOW_ON THEN

Line 2577: l_claim_int_rec.user_status_id := to_number( ozf_utility_pvt.GET_DEFAULT_USER_STATUS(

2573: END IF; --end if for line 2451
2574:
2575:
2576: -- Set user_status_id as 'OPEN'
2577: l_claim_int_rec.user_status_id := to_number( ozf_utility_pvt.GET_DEFAULT_USER_STATUS(
2578: P_STATUS_TYPE=> G_CLAIM_STATUS,
2579: P_STATUS_CODE=> G_OPEN_STATUS
2580: )
2581: );

Line 2670: OZF_UTILITY_PVT.debug_message('Call check_claim_common_element');

2666:
2667:
2668: -- Debug Message
2669: IF OZF_DEBUG_HIGH_ON THEN
2670: OZF_UTILITY_PVT.debug_message('Call check_claim_common_element');
2671: END IF;
2672:
2673: OZF_claim_PVT.Check_Claim_Common_Element (
2674: p_api_version => 1.0,

Line 2697: OZF_UTILITY_PVT.debug_message('Call create_claim');

2693: l_claim_rec := l_x_claim_rec;
2694:
2695: -- Debug Message
2696: IF OZF_DEBUG_HIGH_ON THEN
2697: OZF_UTILITY_PVT.debug_message('Call create_claim');
2698: END IF;
2699:
2700: --------------------
2701: -- Create Claim --

Line 2715: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' failed');

2711:
2712: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2713: -- Debug Message
2714: IF OZF_DEBUG_HIGH_ON THEN
2715: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' failed');
2716: END IF;
2717:
2718: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2719: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_IMPORT_ERR');

Line 2844: OZF_UTILITY_PVT.debug_message('Claim line creation failed. ');

2840: );
2841:
2842: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2843: IF OZF_DEBUG_HIGH_ON THEN
2844: OZF_UTILITY_PVT.debug_message('Claim line creation failed. ');
2845: END IF;
2846:
2847: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2848: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_IMPORT_ERR');

Line 2867: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' succeed');

2863:
2864: -- Now, I have created every lines for this claim without problem.
2865: -- I will update the claim interface table with the new claim id.
2866: IF OZF_DEBUG_HIGH_ON THEN
2867: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' succeed');
2868:
2869: OZF_UTILITY_PVT.debug_message('claim_id: ' || l_claim_id);
2870: END IF;
2871:

Line 2869: OZF_UTILITY_PVT.debug_message('claim_id: ' || l_claim_id);

2865: -- I will update the claim interface table with the new claim id.
2866: IF OZF_DEBUG_HIGH_ON THEN
2867: OZF_UTILITY_PVT.debug_message('Create Claims for '|| l_claim_int_rec.interface_claim_id ||' succeed');
2868:
2869: OZF_UTILITY_PVT.debug_message('claim_id: ' || l_claim_id);
2870: END IF;
2871:
2872: UPDATE OZF_CLAIMS_INT_ALL
2873: SET CLAIM_ID = l_claim_id

Line 2895: OZF_UTILITY_PVT.Write_Conc_Log;

2891: FND_MSG_PUB.Add;
2892: END IF;
2893:
2894: -- Write all messages to a log
2895: OZF_UTILITY_PVT.Write_Conc_Log;
2896:
2897: END LOOP;
2898: END IF;
2899:

Line 2911: OZF_UTILITY_PVT.Write_Conc_Log;

2907: );
2908: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2909: RETCODE := 2;
2910: -- Write all errors messages to a log
2911: OZF_UTILITY_PVT.Write_Conc_Log;
2912:
2913: WHEN FND_API.g_exc_unexpected_error THEN
2914: ROLLBACK TO Start_Replicate_IMP;
2915: FND_MSG_PUB.count_and_get (

Line 2923: OZF_UTILITY_PVT.Write_Conc_Log;

2919: );
2920: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2921: RETCODE := 2;
2922: -- Write all errors messages to a log
2923: OZF_UTILITY_PVT.Write_Conc_Log;
2924: WHEN OTHERS THEN
2925: ROLLBACK TO Start_Replicate_IMP;
2926: FND_MSG_PUB.count_and_get (
2927: p_encoded => FND_API.g_false

Line 2934: OZF_UTILITY_PVT.Write_Conc_Log;

2930: );
2931: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
2932: RETCODE := 2;
2933: -- Write all errors messages to a log
2934: OZF_UTILITY_PVT.Write_Conc_Log;
2935:
2936: END Start_Replicate;
2937:
2938: ---------------------------------------------------------------------

Line 2967: OZF_UTILITY_PVT.debug_message('Private API: Purge Claims');

2963: BEGIN
2964:
2965: -- Debug Message
2966: IF OZF_DEBUG_HIGH_ON THEN
2967: OZF_UTILITY_PVT.debug_message('Private API: Purge Claims');
2968: END IF;
2969: IF OZF_DEBUG_LOW_ON THEN
2970: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2971: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');

Line 3004: OZF_UTILITY_PVT.Write_Conc_Log;

3000: FND_MSG_PUB.Add;
3001: END IF;
3002:
3003: -- Write all messages to a log
3004: OZF_UTILITY_PVT.Write_Conc_Log;
3005: EXCEPTION
3006: WHEN FND_API.g_exc_error THEN
3007: ROLLBACK TO PURGE_CLAIM_IMP;
3008: FND_MSG_PUB.count_and_get (

Line 3016: OZF_UTILITY_PVT.Write_Conc_Log;

3012: );
3013: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3014: RETCODE := 2;
3015: -- Write all errors messages to a log
3016: OZF_UTILITY_PVT.Write_Conc_Log;
3017:
3018: WHEN FND_API.g_exc_unexpected_error THEN
3019: ROLLBACK TO PURGE_CLAIM_IMP;
3020: FND_MSG_PUB.count_and_get (

Line 3028: OZF_UTILITY_PVT.Write_Conc_Log;

3024: );
3025: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3026: RETCODE := 2;
3027: -- Write all errors messages to a log
3028: OZF_UTILITY_PVT.Write_Conc_Log;
3029: WHEN OTHERS THEN
3030: ROLLBACK TO PURGE_CLAIM_IMP;
3031: FND_MSG_PUB.count_and_get (
3032: p_encoded => FND_API.g_false

Line 3039: OZF_UTILITY_PVT.Write_Conc_Log;

3035: );
3036: ERRBUF := fnd_msg_pub.get(p_msg_index => 1, p_encoded => 'F');
3037: RETCODE := 2;
3038: -- Write all errors messages to a log
3039: OZF_UTILITY_PVT.Write_Conc_Log;
3040: END Purge_Claims;
3041:
3042: END OZF_Claims_Int_PVT;