27: -- Pre-Req :
28: -- Parameters:
29: -- IN
30: -- p_api_version_number IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
32: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
34: -- P_object_id IN NUMBER
35: -- P_object_type IN VARCHAR2
28: -- Parameters:
29: -- IN
30: -- p_api_version_number IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
32: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
34: -- P_object_id IN NUMBER
35: -- P_object_type IN VARCHAR2
36: -- P_user_id IN NUMBER
29: -- IN
30: -- p_api_version_number IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
32: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
34: -- P_object_id IN NUMBER
35: -- P_object_type IN VARCHAR2
36: -- P_user_id IN NUMBER
37: --
49: -- End of Comments
50: --
51: PROCEDURE Check_Claim_access(
52: P_Api_Version_Number IN NUMBER,
53: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
54: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
55: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
56: P_object_id IN NUMBER,
57: P_object_type IN VARCHAR2,
50: --
51: PROCEDURE Check_Claim_access(
52: P_Api_Version_Number IN NUMBER,
53: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
54: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
55: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
56: P_object_id IN NUMBER,
57: P_object_type IN VARCHAR2,
58: P_user_id IN NUMBER,
51: PROCEDURE Check_Claim_access(
52: P_Api_Version_Number IN NUMBER,
53: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
54: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
55: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
56: P_object_id IN NUMBER,
57: P_object_type IN VARCHAR2,
58: P_user_id IN NUMBER,
59:
79: OZF_Utility_PVT.debug_message(l_full_name||': start');
80: END IF;
81:
82: -- Standard call to check for call compatibility.
83: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
84: p_api_version_number,
85: l_api_name,
86: G_PKG_NAME)
87: THEN
84: p_api_version_number,
85: l_api_name,
86: G_PKG_NAME)
87: THEN
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90:
91: -- Initialize message list if p_init_msg_list is set to TRUE.
92: IF FND_API.to_Boolean( p_init_msg_list )
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90:
91: -- Initialize message list if p_init_msg_list is set to TRUE.
92: IF FND_API.to_Boolean( p_init_msg_list )
93: THEN
94: FND_MSG_PUB.initialize;
95: END IF;
96:
94: FND_MSG_PUB.initialize;
95: END IF;
96:
97: -- Initialize API return status to SUCCESS
98: x_return_status := FND_API.G_RET_STS_SUCCESS;
99:
100: /* IF AMS_access_PVT.check_owner(
101: p_object_id IN NUMBER,
102: p_object_type IN VARCHAR2,
130: --
131: -- End of API body
132: --
133: -- Standard check for p_commit
134: IF FND_API.to_Boolean( p_commit )
135: THEN
136: COMMIT WORK;
137: END IF;
138:
145: (p_count => x_msg_count,
146: p_data => x_msg_data
147: );
148: EXCEPTION
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO Check_Claim_ACC;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: -- Standard call to get message count and if count=1, get the message
153: FND_MSG_PUB.Count_And_Get (
147: );
148: EXCEPTION
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO Check_Claim_ACC;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: -- Standard call to get message count and if count=1, get the message
153: FND_MSG_PUB.Count_And_Get (
154: p_encoded => FND_API.G_FALSE,
155: p_count => x_msg_count,
150: ROLLBACK TO Check_Claim_ACC;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: -- Standard call to get message count and if count=1, get the message
153: FND_MSG_PUB.Count_And_Get (
154: p_encoded => FND_API.G_FALSE,
155: p_count => x_msg_count,
156: p_data => x_msg_data
157: );
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: p_encoded => FND_API.G_FALSE,
155: p_count => x_msg_count,
156: p_data => x_msg_data
157: );
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159: ROLLBACK TO Check_Claim_ACC;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.Count_And_Get (
156: p_data => x_msg_data
157: );
158: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
159: ROLLBACK TO Check_Claim_ACC;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.Count_And_Get (
163: p_encoded => FND_API.G_FALSE,
164: p_count => x_msg_count,
159: ROLLBACK TO Check_Claim_ACC;
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: -- Standard call to get message count and if count=1, get the message
162: FND_MSG_PUB.Count_And_Get (
163: p_encoded => FND_API.G_FALSE,
164: p_count => x_msg_count,
165: p_data => x_msg_data
166: );
167: WHEN OTHERS THEN
165: p_data => x_msg_data
166: );
167: WHEN OTHERS THEN
168: ROLLBACK TO Check_Claim_ACC;
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
171: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_ACS_ERR');
172: FND_MSG_PUB.add;
173: END IF;
172: FND_MSG_PUB.add;
173: END IF;
174: -- Standard call to get message count and if count=1, get the message
175: FND_MSG_PUB.Count_And_Get (
176: p_encoded => FND_API.G_FALSE,
177: p_count => x_msg_count,
178: p_data => x_msg_data
179: );
180: End Check_Claim_access;
283: *=======================================================================*/
284:
285: PROCEDURE Create_Log(
286: p_api_version IN NUMBER,
287: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
288: p_commit IN VARCHAR2 := FND_API.g_false,
289: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
290: p_exact_match_tbl IN ozf_rule_match_tbl_type,
291: p_possible_match_tbl IN ozf_rule_match_tbl_type,
284:
285: PROCEDURE Create_Log(
286: p_api_version IN NUMBER,
287: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
288: p_commit IN VARCHAR2 := FND_API.g_false,
289: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
290: p_exact_match_tbl IN ozf_rule_match_tbl_type,
291: p_possible_match_tbl IN ozf_rule_match_tbl_type,
292: p_accrual_match_tbl IN ozf_accrual_match_tbl_type,
285: PROCEDURE Create_Log(
286: p_api_version IN NUMBER,
287: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
288: p_commit IN VARCHAR2 := FND_API.g_false,
289: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
290: p_exact_match_tbl IN ozf_rule_match_tbl_type,
291: p_possible_match_tbl IN ozf_rule_match_tbl_type,
292: p_accrual_match_tbl IN ozf_accrual_match_tbl_type,
293: x_Return_Status OUT NOCOPY VARCHAR2,
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------------------------------------------------------------------*');
493:
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO CREATE_LOG;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: -- Standard call to get message count and if count=1, get the message
500: FND_MSG_PUB.Count_And_Get (
494: EXCEPTION
495:
496: WHEN FND_API.G_EXC_ERROR THEN
497: ROLLBACK TO CREATE_LOG;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: -- Standard call to get message count and if count=1, get the message
500: FND_MSG_PUB.Count_And_Get (
501: p_encoded => FND_API.G_FALSE,
502: p_count => l_msg_count,
497: ROLLBACK TO CREATE_LOG;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: -- Standard call to get message count and if count=1, get the message
500: FND_MSG_PUB.Count_And_Get (
501: p_encoded => FND_API.G_FALSE,
502: p_count => l_msg_count,
503: p_data => l_msg_data
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
501: p_encoded => FND_API.G_FALSE,
502: p_count => l_msg_count,
503: p_data => l_msg_data
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO CREATE_LOG;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
503: p_data => l_msg_data
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO CREATE_LOG;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
510: p_encoded => FND_API.G_FALSE,
511: p_count => l_msg_count,
506: ROLLBACK TO CREATE_LOG;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: -- Standard call to get message count and if count=1, get the message
509: FND_MSG_PUB.Count_And_Get (
510: p_encoded => FND_API.G_FALSE,
511: p_count => l_msg_count,
512: p_data => l_msg_data
513: );
514: WHEN OTHERS THEN
512: p_data => l_msg_data
513: );
514: WHEN OTHERS THEN
515: ROLLBACK TO CREATE_LOG;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
518: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_ACS_ERR');
519: FND_MSG_PUB.add;
520: END IF;
519: FND_MSG_PUB.add;
520: END IF;
521: -- Standard call to get message count and if count=1, get the message
522: FND_MSG_PUB.Count_And_Get (
523: p_encoded => FND_API.G_FALSE,
524: p_count => l_msg_count,
525: p_data => l_msg_data
526: );
527:
1009: l_claim_rec.settled_from := 'RULEBASED';
1010:
1011: OZF_Claim_PVT.Update_Claim(
1012: p_api_version => l_api_version
1013: ,p_init_msg_list => FND_API.g_false
1014: ,p_commit => FND_API.g_false
1015: ,p_validation_level => FND_API.g_valid_level_full
1016: ,x_return_status => l_return_status
1017: ,x_msg_data => l_msg_data
1010:
1011: OZF_Claim_PVT.Update_Claim(
1012: p_api_version => l_api_version
1013: ,p_init_msg_list => FND_API.g_false
1014: ,p_commit => FND_API.g_false
1015: ,p_validation_level => FND_API.g_valid_level_full
1016: ,x_return_status => l_return_status
1017: ,x_msg_data => l_msg_data
1018: ,x_msg_count => l_msg_count
1011: OZF_Claim_PVT.Update_Claim(
1012: p_api_version => l_api_version
1013: ,p_init_msg_list => FND_API.g_false
1014: ,p_commit => FND_API.g_false
1015: ,p_validation_level => FND_API.g_valid_level_full
1016: ,x_return_status => l_return_status
1017: ,x_msg_data => l_msg_data
1018: ,x_msg_count => l_msg_count
1019: ,p_claim => l_claim_rec
1022: ,x_object_version_number => l_object_version_number
1023: );
1024: OZF_Utility_PVT.write_conc_log('Return Status for 100%: ' || l_return_status);
1025:
1026: IF l_return_status = fnd_api.g_ret_sts_success THEN
1027: l_cm_match_found := 'T';
1028: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1024: OZF_Utility_PVT.write_conc_log('Return Status for 100%: ' || l_return_status);
1025:
1026: IF l_return_status = fnd_api.g_ret_sts_success THEN
1027: l_cm_match_found := 'T';
1028: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1025:
1026: IF l_return_status = fnd_api.g_ret_sts_success THEN
1027: l_cm_match_found := 'T';
1028: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033: l_exactfound_count := l_exactfound_count +1;
1026: IF l_return_status = fnd_api.g_ret_sts_success THEN
1027: l_cm_match_found := 'T';
1028: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033: l_exactfound_count := l_exactfound_count +1;
1034: l_exactmatchTbl(l_exactfound_count).claim_id := l_claimidTbl(i);
1027: l_cm_match_found := 'T';
1028: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1032: END IF;
1033: l_exactfound_count := l_exactfound_count +1;
1034: l_exactmatchTbl(l_exactfound_count).claim_id := l_claimidTbl(i);
1035: l_exactmatchTbl(l_exactfound_count).claim_number := l_claimTbl(i);
1165: IF(l_claim_line_tbl.COUNT > 0 ) THEN
1166: -- delete the claim line if there is any
1167: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
1168: p_api_version => l_api_version
1169: ,p_init_msg_list => FND_API.g_false
1170: ,p_commit => FND_API.g_false
1171: ,p_validation_level => FND_API.g_valid_level_full
1172: ,x_return_status => l_return_status
1173: ,x_msg_count => l_msg_count
1166: -- delete the claim line if there is any
1167: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
1168: p_api_version => l_api_version
1169: ,p_init_msg_list => FND_API.g_false
1170: ,p_commit => FND_API.g_false
1171: ,p_validation_level => FND_API.g_valid_level_full
1172: ,x_return_status => l_return_status
1173: ,x_msg_count => l_msg_count
1174: ,x_msg_data => l_msg_data
1167: OZF_Claim_Line_PVT.Delete_Claim_Line_Tbl(
1168: p_api_version => l_api_version
1169: ,p_init_msg_list => FND_API.g_false
1170: ,p_commit => FND_API.g_false
1171: ,p_validation_level => FND_API.g_valid_level_full
1172: ,x_return_status => l_return_status
1173: ,x_msg_count => l_msg_count
1174: ,x_msg_data => l_msg_data
1175: ,p_claim_line_tbl => l_claim_line_tbl
1172: ,x_return_status => l_return_status
1173: ,x_msg_count => l_msg_count
1174: ,x_msg_data => l_msg_data
1175: ,p_claim_line_tbl => l_claim_line_tbl
1176: ,p_change_object_version => FND_API.g_false
1177: ,x_error_index => l_error_index
1178: );
1179: IF l_return_status = FND_API.g_ret_sts_error THEN
1180: RAISE FND_API.g_exc_unexpected_error;
1175: ,p_claim_line_tbl => l_claim_line_tbl
1176: ,p_change_object_version => FND_API.g_false
1177: ,x_error_index => l_error_index
1178: );
1179: IF l_return_status = FND_API.g_ret_sts_error THEN
1180: RAISE FND_API.g_exc_unexpected_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: RAISE FND_API.g_exc_unexpected_error;
1183: END IF;
1176: ,p_change_object_version => FND_API.g_false
1177: ,x_error_index => l_error_index
1178: );
1179: IF l_return_status = FND_API.g_ret_sts_error THEN
1180: RAISE FND_API.g_exc_unexpected_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: RAISE FND_API.g_exc_unexpected_error;
1183: END IF;
1184: END IF; -- End of delete claim line
1177: ,x_error_index => l_error_index
1178: );
1179: IF l_return_status = FND_API.g_ret_sts_error THEN
1180: RAISE FND_API.g_exc_unexpected_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: RAISE FND_API.g_exc_unexpected_error;
1183: END IF;
1184: END IF; -- End of delete claim line
1185:
1178: );
1179: IF l_return_status = FND_API.g_ret_sts_error THEN
1180: RAISE FND_API.g_exc_unexpected_error;
1181: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1182: RAISE FND_API.g_exc_unexpected_error;
1183: END IF;
1184: END IF; -- End of delete claim line
1185:
1186: IF OZF_DEBUG_HIGH_ON THEN
1197:
1198: -- New claim line creation
1199: OZF_Claim_Line_PVT.Create_Claim_Line(
1200: p_api_version => 1.0
1201: , p_init_msg_list => FND_API.g_false
1202: , p_commit => FND_API.g_false
1203: , p_validation_level => FND_API.g_valid_level_full
1204: , x_return_status => l_return_status
1205: , x_msg_data => l_msg_data
1198: -- New claim line creation
1199: OZF_Claim_Line_PVT.Create_Claim_Line(
1200: p_api_version => 1.0
1201: , p_init_msg_list => FND_API.g_false
1202: , p_commit => FND_API.g_false
1203: , p_validation_level => FND_API.g_valid_level_full
1204: , x_return_status => l_return_status
1205: , x_msg_data => l_msg_data
1206: , x_msg_count => l_msg_count
1199: OZF_Claim_Line_PVT.Create_Claim_Line(
1200: p_api_version => 1.0
1201: , p_init_msg_list => FND_API.g_false
1202: , p_commit => FND_API.g_false
1203: , p_validation_level => FND_API.g_valid_level_full
1204: , x_return_status => l_return_status
1205: , x_msg_data => l_msg_data
1206: , x_msg_count => l_msg_count
1207: , p_claim_line_rec => l_claim_line_rec
1207: , p_claim_line_rec => l_claim_line_rec
1208: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
1209: , x_claim_line_id => l_claim_line_id
1210: );
1211: IF l_return_status = fnd_api.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1208: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
1209: , x_claim_line_id => l_claim_line_id
1210: );
1211: IF l_return_status = fnd_api.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1209: , x_claim_line_id => l_claim_line_id
1210: );
1211: IF l_return_status = fnd_api.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1217: IF OZF_DEBUG_HIGH_ON THEN
1210: );
1211: IF l_return_status = fnd_api.g_ret_sts_error THEN
1212: RAISE FND_API.g_exc_error;
1213: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1214: RAISE FND_API.g_exc_unexpected_error;
1215: END IF;
1216:
1217: IF OZF_DEBUG_HIGH_ON THEN
1218: OZF_Utility_PVT.write_conc_log('Claim Line Created');
1221:
1222: -- Associate Accruals to Claim Line
1223: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
1224: p_api_version => 1.0
1225: ,p_init_msg_list => FND_API.g_false
1226: ,p_commit => FND_API.g_false
1227: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1228: ,x_return_status => l_return_status
1229: ,x_msg_count => l_msg_count
1222: -- Associate Accruals to Claim Line
1223: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
1224: p_api_version => 1.0
1225: ,p_init_msg_list => FND_API.g_false
1226: ,p_commit => FND_API.g_false
1227: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1228: ,x_return_status => l_return_status
1229: ,x_msg_count => l_msg_count
1230: ,x_msg_data => l_msg_data
1223: OZF_Claim_Accrual_PVT.Asso_Accruals_To_Claim_Line(
1224: p_api_version => 1.0
1225: ,p_init_msg_list => FND_API.g_false
1226: ,p_commit => FND_API.g_false
1227: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1228: ,x_return_status => l_return_status
1229: ,x_msg_count => l_msg_count
1230: ,x_msg_data => l_msg_data
1231: ,p_claim_line_id => l_claim_line_id
1232: );
1233:
1234: OZF_Utility_PVT.write_conc_log('Return Status for Asso_Accruals_To_Claim_Line: ' || l_return_status);
1235:
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_error;
1240: END IF;
1233:
1234: OZF_Utility_PVT.write_conc_log('Return Status for Asso_Accruals_To_Claim_Line: ' || l_return_status);
1235:
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_error;
1240: END IF;
1241:
1234: OZF_Utility_PVT.write_conc_log('Return Status for Asso_Accruals_To_Claim_Line: ' || l_return_status);
1235:
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_error;
1240: END IF;
1241:
1242:
1235:
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_error;
1240: END IF;
1241:
1242:
1243: OPEN csr_claim_line_util_info (l_claim_line_id);
1266: l_claim_rec.settled_from := 'RULEBASED';
1267:
1268: OZF_Claim_PVT.Update_Claim(
1269: p_api_version => l_api_version
1270: ,p_init_msg_list => FND_API.g_false
1271: ,p_commit => FND_API.g_false
1272: ,p_validation_level => FND_API.g_valid_level_full
1273: ,x_return_status => l_return_status
1274: ,x_msg_data => l_msg_data
1267:
1268: OZF_Claim_PVT.Update_Claim(
1269: p_api_version => l_api_version
1270: ,p_init_msg_list => FND_API.g_false
1271: ,p_commit => FND_API.g_false
1272: ,p_validation_level => FND_API.g_valid_level_full
1273: ,x_return_status => l_return_status
1274: ,x_msg_data => l_msg_data
1275: ,x_msg_count => l_msg_count
1268: OZF_Claim_PVT.Update_Claim(
1269: p_api_version => l_api_version
1270: ,p_init_msg_list => FND_API.g_false
1271: ,p_commit => FND_API.g_false
1272: ,p_validation_level => FND_API.g_valid_level_full
1273: ,x_return_status => l_return_status
1274: ,x_msg_data => l_msg_data
1275: ,x_msg_count => l_msg_count
1276: ,p_claim => l_claim_rec
1277: ,p_event => 'UPDATE'
1278: ,p_mode => 'AUTO'
1279: ,x_object_version_number => l_object_version_number
1280: );
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1278: ,p_mode => 'AUTO'
1279: ,x_object_version_number => l_object_version_number
1280: );
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1279: ,x_object_version_number => l_object_version_number
1280: );
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1287: END IF; -- End of Association check
1280: );
1281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1287: END IF; -- End of Association check
1288: -- Populate the accrual records
1298:
1299: END IF; -- End of PAD check
1300:
1301: EXCEPTION
1302: WHEN FND_API.g_exc_error THEN
1303: ROLLBACK TO Update_Claim_From_Association;
1304: OZF_Utility_PVT.write_conc_log('Expected errors:l_msg_count' || l_msg_count);
1305: IF OZF_DEBUG_HIGH_ON THEN
1306: OZF_UTILITY_PVT.write_conc_log;
1311: END IF;
1312: END LOOP;
1313: END IF;
1314:
1315: WHEN FND_API.g_exc_unexpected_error THEN
1316: ROLLBACK TO Update_Claim_From_Association;
1317: OZF_Utility_PVT.write_conc_log('Unexpected errors:l_msg_count' || l_msg_count);
1318: IF OZF_DEBUG_HIGH_ON THEN
1319: OZF_UTILITY_PVT.write_conc_log;
1331: OZF_Utility_PVT.write_conc_log('Fail For Deduction OTHERS : ' || l_claimTbl(i) || ' - Error Message: ' || SQLERRM);
1332: END IF;
1333:
1334: FND_MSG_PUB.count_and_get(
1335: p_encoded => FND_API.g_false
1336: ,p_count => l_msg_count
1337: ,p_data => l_msg_data
1338: );
1339:
1353:
1354: -- For logging
1355: Create_Log(
1356: p_api_version => 1.0
1357: ,p_init_msg_list => FND_API.g_false
1358: ,p_commit => FND_API.g_false
1359: ,p_validation_level => FND_API.g_valid_level_full
1360: ,p_exact_match_tbl => l_exactmatchTbl
1361: ,p_possible_match_tbl => l_possiblematchTbl
1354: -- For logging
1355: Create_Log(
1356: p_api_version => 1.0
1357: ,p_init_msg_list => FND_API.g_false
1358: ,p_commit => FND_API.g_false
1359: ,p_validation_level => FND_API.g_valid_level_full
1360: ,p_exact_match_tbl => l_exactmatchTbl
1361: ,p_possible_match_tbl => l_possiblematchTbl
1362: ,p_accrual_match_tbl => l_accrualmatchTbl
1355: Create_Log(
1356: p_api_version => 1.0
1357: ,p_init_msg_list => FND_API.g_false
1358: ,p_commit => FND_API.g_false
1359: ,p_validation_level => FND_API.g_valid_level_full
1360: ,p_exact_match_tbl => l_exactmatchTbl
1361: ,p_possible_match_tbl => l_possiblematchTbl
1362: ,p_accrual_match_tbl => l_accrualmatchTbl
1363: ,x_return_status => l_return_status
1364: ,x_msg_count => l_msg_data
1365: ,x_msg_data => l_msg_count
1366: );
1367:
1368: IF l_return_status = fnd_api.g_ret_sts_error THEN
1369: RAISE FND_API.g_exc_error;
1370: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1371: RAISE FND_API.g_exc_unexpected_error;
1372: END IF;
1365: ,x_msg_data => l_msg_count
1366: );
1367:
1368: IF l_return_status = fnd_api.g_ret_sts_error THEN
1369: RAISE FND_API.g_exc_error;
1370: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1371: RAISE FND_API.g_exc_unexpected_error;
1372: END IF;
1373:
1366: );
1367:
1368: IF l_return_status = fnd_api.g_ret_sts_error THEN
1369: RAISE FND_API.g_exc_error;
1370: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1371: RAISE FND_API.g_exc_unexpected_error;
1372: END IF;
1373:
1374: CLOSE open_ded_csr;
1367:
1368: IF l_return_status = fnd_api.g_ret_sts_error THEN
1369: RAISE FND_API.g_exc_error;
1370: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1371: RAISE FND_API.g_exc_unexpected_error;
1372: END IF;
1373:
1374: CLOSE open_ded_csr;
1375:
1376:
1377: END IF;
1378:
1379: EXCEPTION
1380: WHEN FND_API.G_EXC_ERROR THEN
1381: ROLLBACK TO RuleBased;
1382: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1383: OZF_UTILITY_PVT.write_conc_log;
1384: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1383: OZF_UTILITY_PVT.write_conc_log;
1384: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1385: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1386: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Rule Based Engine Failed. ');
1387: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1388: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1390: ROLLBACK TO RuleBased;
1391: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1385: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1386: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Rule Based Engine Failed. ');
1387: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1388: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1389: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1390: ROLLBACK TO RuleBased;
1391: FND_FILE.PUT_LINE(FND_FILE.LOG, '===> Failed.');
1392: OZF_UTILITY_PVT.write_conc_log;
1393: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1392: OZF_UTILITY_PVT.write_conc_log;
1393: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*--- End ---*/');
1394: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1395: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Status : Rule Based Engine Failed. ');
1396: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.count_msg, FND_API.g_false));
1397: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1398:
1399: WHEN OTHERS THEN
1400: ROLLBACK TO RuleBased;