[Home] [Help]
72: ----------------------------------------------------------------------
73:
74: PROCEDURE Create_Claims(
75: p_api_version IN NUMBER
76: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
77: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
78: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_msg_count OUT NOCOPY NUMBER
73:
74: PROCEDURE Create_Claims(
75: p_api_version IN NUMBER
76: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
77: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
78: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_msg_count OUT NOCOPY NUMBER
81: ,x_msg_data OUT NOCOPY VARCHAR2
74: PROCEDURE Create_Claims(
75: p_api_version IN NUMBER
76: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
77: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
78: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
79: ,x_return_status OUT NOCOPY VARCHAR2
80: ,x_msg_count OUT NOCOPY NUMBER
81: ,x_msg_data OUT NOCOPY VARCHAR2
82: ,p_txn_hdr_rec IN dpp_txn_hdr_rec_type
209: -- Standard begin of API savepoint
210: SAVEPOINT CREATE_CLAIMS_PVT;
211:
212: -- Standard call to check for call compatibility.
213: IF NOT FND_API.Compatible_API_Call ( l_api_version,
214: p_api_version,
215: l_api_name,
216: G_PKG_NAME)
217: THEN
214: p_api_version,
215: l_api_name,
216: G_PKG_NAME)
217: THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: -- Initialize message list if p_init_msg_list is set to TRUE.
221: IF FND_API.to_Boolean( p_init_msg_list )
222: THEN
217: THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: -- Initialize message list if p_init_msg_list is set to TRUE.
221: IF FND_API.to_Boolean( p_init_msg_list )
222: THEN
223: FND_MSG_PUB.initialize;
224: END IF;
225: -- Debug Message
225: -- Debug Message
226: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
227:
228: -- Initialize API return status to success
229: x_return_status := FND_API.G_RET_STS_SUCCESS;
230:
231: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Transaction Number: ' || l_txn_hdr_rec.Transaction_number);
232: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Claim Type Flag: ' || l_txn_hdr_rec.claim_type_flag);
233:
261: FND_MSG_PUB.add;
262: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
263: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
264: END IF;
265: RAISE FND_API.G_EXC_ERROR;
266: WHEN OTHERS THEN
267: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
268: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
269: fnd_message.set_token('ERRNO', sqlcode);
274: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
275: FND_MSG_PUB.add;
276: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
277: END IF;
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: END;
280:
281: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Pre Approval Required : ' || l_approval_flag);
282: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Customer Account ID : ' || l_cust_account_id);
360: FND_MSG_PUB.add;
361: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
362: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
363: END IF;
364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365: END;
366: --Get the item number
367: IF l_txn_line_tbl(i).inventory_item_id IS NOT NULL THEN
368: FOR get_item_number_rec IN get_item_number_csr(l_txn_line_tbl(i).inventory_item_id) LOOP
377: ELSE
378: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
379: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
380: FND_MSG_PUB.add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383: --Get the customer name
384: IF l_txn_hdr_rec.claim_type_flag = 'CUST_CL' THEN
385: IF l_txn_line_tbl(i).cust_account_id IS NOT NULL THEN
395: ELSE
396: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
397: FND_MESSAGE.set_token('ID', 'Customer Account ID');
398: FND_MSG_PUB.add;
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
401: END IF;
402: END LOOP; --Checked for all the lines in the table type variable.
403:
472: FND_MSG_PUB.add;
473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
475: END IF;
476: RAISE FND_API.G_EXC_ERROR;
477: WHEN OTHERS THEN
478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
480: fnd_message.set_token('ERRNO', sqlcode);
485: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
486: FND_MSG_PUB.add;
487: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
488: END IF;
489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END;
491: IF l_price_increase_flag = 'Y' THEN
492: l_claim_line_pub_tbl(i).source_object_class := 'PPINCVENDOR';
493: l_claim_line_pub_tbl(i).claim_currency_amount := -1 * l_txn_line_tbl(i).Claim_Line_Amount;
507: END LOOP;
508:
509: --Invoke the standard API with the above defined parameters.
510: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
511: p_init_msg_list => FND_API.G_TRUE,
512: p_commit => FND_API.G_FALSE,
513: p_validation_level => p_validation_level,
514: x_return_status => l_return_status,
515: x_msg_count => l_msg_count,
508:
509: --Invoke the standard API with the above defined parameters.
510: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
511: p_init_msg_list => FND_API.G_TRUE,
512: p_commit => FND_API.G_FALSE,
513: p_validation_level => p_validation_level,
514: x_return_status => l_return_status,
515: x_msg_count => l_msg_count,
516: x_msg_data => l_msg_data,
521:
522: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Create_Claim =>'||l_return_status);
523: dpp_utility_pvt.debug_message (FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data from OZF Create Claim =>'||l_msg_data),1,4000));
524:
525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
526: x_return_status := l_return_status;
527: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
528: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
529: fnd_message.set_token('ERRNO', sqlcode);
581: FND_MSG_PUB.add;
582: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
583: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
584: END IF;
585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
586: END;
587: --Insert the claim id into the global temp table..
588: IF l_price_increase_flag = 'Y' THEN
589: UPDATE DPP_CUSTOMER_CLAIMS_GT
617: WHERE transaction_line_id = l_txn_line_tbl(i).transaction_line_id;
618:
619: IF SQL%ROWCOUNT = 0 THEN
620: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supp_dist_claim_id in DPP_TRANSACTION_LINES_ALL Table');
621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623: END LOOP; --getting the claim id loop
624: END LOOP; --lines table loop
625:
660: FND_MSG_PUB.add;
661: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_ERROR;
665: WHEN OTHERS THEN
666: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
667: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
668: fnd_message.set_token('ERRNO', sqlcode);
673: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
674: FND_MSG_PUB.add;
675: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
676: END IF;
677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
678: END;
679: l_claim_pub_rec.object_version_number := l_object_version_number;
680: --Invoke the standard API with the above defined parameters.
681: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
678: END;
679: l_claim_pub_rec.object_version_number := l_object_version_number;
680: --Invoke the standard API with the above defined parameters.
681: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
682: ,p_init_msg_list => FND_API.G_FALSE
683: ,p_commit => FND_API.G_FALSE
684: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
685: ,x_return_status => l_return_status
686: ,x_msg_count => l_msg_count
679: l_claim_pub_rec.object_version_number := l_object_version_number;
680: --Invoke the standard API with the above defined parameters.
681: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
682: ,p_init_msg_list => FND_API.G_FALSE
683: ,p_commit => FND_API.G_FALSE
684: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
685: ,x_return_status => l_return_status
686: ,x_msg_count => l_msg_count
687: ,x_msg_data => l_msg_data
680: --Invoke the standard API with the above defined parameters.
681: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
682: ,p_init_msg_list => FND_API.G_FALSE
683: ,p_commit => FND_API.G_FALSE
684: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
685: ,x_return_status => l_return_status
686: ,x_msg_count => l_msg_count
687: ,x_msg_data => l_msg_data
688: ,p_claim_rec => l_claim_pub_rec
693: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for OZF Update_Claims =>'||l_return_status);
694: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
695:
696: --If the claim updation process failed
697: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
698: x_return_status := l_return_status;
699: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
700: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
701: fnd_message.set_token('ERRNO', sqlcode);
745: END LOOP;
746:
747: --Invoke the standard API with the above defined parameters.
748: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_FALSE,
751: p_validation_level => p_validation_level,
752: x_return_status => l_return_status,
753: x_msg_count => l_msg_count,
746:
747: --Invoke the standard API with the above defined parameters.
748: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
749: p_init_msg_list => FND_API.G_TRUE,
750: p_commit => FND_API.G_FALSE,
751: p_validation_level => p_validation_level,
752: x_return_status => l_return_status,
753: x_msg_count => l_msg_count,
754: x_msg_data => l_msg_data,
759:
760: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Create_Claim =>'||l_return_status);
761: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message Data for OZF Create_Claim =>'||l_msg_data),1,4000));
762:
763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
764: x_return_status := l_return_status;
765: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
766: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
767: fnd_message.set_token('ERRNO', sqlcode);
799: FND_MSG_PUB.add;
800: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
801: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
802: END IF;
803: RAISE FND_API.G_EXC_ERROR;
804: WHEN OTHERS THEN
805: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
806: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
807: fnd_message.set_token('ERRNO', sqlcode);
812: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
813: FND_MSG_PUB.add;
814: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
815: END IF;
816: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
817: END;
818: l_claim_pub_rec.object_version_number := l_object_version_number;
819: --Invoke the standard API with the above defined parameters.
820: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
817: END;
818: l_claim_pub_rec.object_version_number := l_object_version_number;
819: --Invoke the standard API with the above defined parameters.
820: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
821: ,p_init_msg_list => FND_API.G_FALSE
822: ,p_commit => FND_API.G_FALSE
823: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
824: ,x_return_status => l_return_status
825: ,x_msg_count => l_msg_count
818: l_claim_pub_rec.object_version_number := l_object_version_number;
819: --Invoke the standard API with the above defined parameters.
820: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
821: ,p_init_msg_list => FND_API.G_FALSE
822: ,p_commit => FND_API.G_FALSE
823: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
824: ,x_return_status => l_return_status
825: ,x_msg_count => l_msg_count
826: ,x_msg_data => l_msg_data
819: --Invoke the standard API with the above defined parameters.
820: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
821: ,p_init_msg_list => FND_API.G_FALSE
822: ,p_commit => FND_API.G_FALSE
823: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
824: ,x_return_status => l_return_status
825: ,x_msg_count => l_msg_count
826: ,x_msg_data => l_msg_data
827: ,p_claim_rec => l_claim_pub_rec
831:
832: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
833: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
834:
835: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
836: x_return_status := l_return_status;
837: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
838: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
839: fnd_message.set_token('ERRNO', sqlcode);
877: FND_MSG_PUB.add;
878: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
879: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
880: END IF;
881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
882: END;
883: --Update the claim id into the global temp table..
884: UPDATE DPP_CUSTOMER_CLAIMS_GT
885: SET claim_id = l_x_claim_id,
907: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
908:
909: IF SQL%ROWCOUNT = 0 THEN
910: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_CUST_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: ELSE
914: UPDATE DPP_CUSTOMER_CLAIMS_ALL
915: SET supplier_claim_created = 'N',
920: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
921:
922: IF SQL%ROWCOUNT = 0 THEN
923: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926: END IF;
927: END LOOP;
928: END LOOP;
958: END LOOP;
959:
960: --Invoke the standard API with the above defined parameters.
961: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
962: p_init_msg_list => FND_API.G_TRUE,
963: p_commit => FND_API.G_FALSE,
964: p_validation_level => p_validation_level,
965: x_return_status => l_return_status,
966: x_msg_count => l_msg_count,
959:
960: --Invoke the standard API with the above defined parameters.
961: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
962: p_init_msg_list => FND_API.G_TRUE,
963: p_commit => FND_API.G_FALSE,
964: p_validation_level => p_validation_level,
965: x_return_status => l_return_status,
966: x_msg_count => l_msg_count,
967: x_msg_data => l_msg_data,
972:
973: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Create_Claim =>'||l_return_status);
974: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message data for OZF Create_Claim =>'||l_msg_data),1,4000));
975:
976: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
977: x_return_status := l_return_status;
978: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
979: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
980: fnd_message.set_token('ERRNO', sqlcode);
1013: FND_MSG_PUB.add;
1014: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1015: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1016: END IF;
1017: RAISE FND_API.G_EXC_ERROR;
1018: WHEN OTHERS THEN
1019: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1020: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1021: fnd_message.set_token('ERRNO', sqlcode);
1026: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1027: FND_MSG_PUB.add;
1028: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1029: END IF;
1030: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1031: END;
1032: l_claim_pub_rec.object_version_number := l_object_version_number;
1033: --Invoke the standard API with the above defined parameters.
1034: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1031: END;
1032: l_claim_pub_rec.object_version_number := l_object_version_number;
1033: --Invoke the standard API with the above defined parameters.
1034: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1035: ,p_init_msg_list => FND_API.G_FALSE
1036: ,p_commit => FND_API.G_FALSE
1037: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1038: ,x_return_status => l_return_status
1039: ,x_msg_count => l_msg_count
1032: l_claim_pub_rec.object_version_number := l_object_version_number;
1033: --Invoke the standard API with the above defined parameters.
1034: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1035: ,p_init_msg_list => FND_API.G_FALSE
1036: ,p_commit => FND_API.G_FALSE
1037: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1038: ,x_return_status => l_return_status
1039: ,x_msg_count => l_msg_count
1040: ,x_msg_data => l_msg_data
1033: --Invoke the standard API with the above defined parameters.
1034: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1035: ,p_init_msg_list => FND_API.G_FALSE
1036: ,p_commit => FND_API.G_FALSE
1037: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1038: ,x_return_status => l_return_status
1039: ,x_msg_count => l_msg_count
1040: ,x_msg_data => l_msg_data
1041: ,p_claim_rec => l_claim_pub_rec
1045:
1046: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
1047: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
1048:
1049: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1050: x_return_status := l_return_status;
1051: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1052: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1053: fnd_message.set_token('ERRNO', sqlcode);
1091: FND_MSG_PUB.add;
1092: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1093: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1094: END IF;
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END;
1097: --Insert the claim id into the global temp table..
1098: UPDATE DPP_CUSTOMER_CLAIMS_GT
1099: SET claim_id = l_x_claim_id,
1123: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1124:
1125: IF SQL%ROWCOUNT = 0 THEN
1126: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column CUSTOMER_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: END IF;
1129: ELSE
1130: UPDATE DPP_CUSTOMER_CLAIMS_ALL
1131: SET customer_claim_created = 'N',
1136: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1137:
1138: IF SQL%ROWCOUNT = 0 THEN
1139: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column customer_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142: END IF;
1143: END LOOP;
1144: END LOOP;
1145: ELSE
1146: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1147: FND_MESSAGE.set_token('ID', 'Claim Type Flag');
1148: FND_MSG_PUB.add;
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END LOOP; -- End Loop for DPP Price Increase Enhancement
1152:
1153: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1149: RAISE FND_API.G_EXC_ERROR;
1150: END IF;
1151: END LOOP; -- End Loop for DPP Price Increase Enhancement
1152:
1153: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1154: x_return_status := l_return_status;
1155: END IF;
1156: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1157: l_status := 'SUCCESS';
1152:
1153: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1154: x_return_status := l_return_status;
1155: END IF;
1156: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1157: l_status := 'SUCCESS';
1158: --Output XML Generation Code.
1159: l_queryCtx := dbms_xmlquery.newContext('SELECT '||l_transaction_number||'Txnnumber,
1160: CURSOR (SELECT DISTINCT claim_number claimnumber
1181: l_txn_hdr_rec,
1182: l_output_xml,
1183: l_api_name
1184: );
1185: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: END IF;
1182: l_output_xml,
1183: l_api_name
1184: );
1185: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: END IF;
1190: /*--Update the execution details table
1183: l_api_name
1184: );
1185: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: END IF;
1190: /*--Update the execution details table
1191: UPDATE DPP_EXECUTION_DETAILS
1184: );
1185: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1186: RAISE FND_API.G_EXC_ERROR;
1187: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: END IF;
1190: /*--Update the execution details table
1191: UPDATE DPP_EXECUTION_DETAILS
1192: SET EXECUTION_END_DATE = sysdate,
1201: AND transaction_header_id = l_txn_hdr_rec.Transaction_Header_ID;
1202:
1203: IF SQL%ROWCOUNT = 0 THEN
1204: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update DPP_EXECUTION_DETAILS Table');
1205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1206: END IF;
1207: */
1208:
1209:
1210: -- Debug Message
1211: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'end');
1212:
1213: -- Standard check for p_commit
1214: IF FND_API.to_Boolean( p_commit )
1215: THEN
1216: COMMIT;
1217: END IF;
1218: -- Standard call to get message count and if count is 1, get message info.
1223: --Exception Handling
1224: EXCEPTION
1225: WHEN DPP_UTILITY_PVT.resource_locked THEN
1226: ROLLBACK TO CREATE_CLAIMS_PVT;
1227: x_return_status := FND_API.g_ret_sts_error;
1228: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1229: FND_MSG_PUB.Count_And_Get (
1230: p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1226: ROLLBACK TO CREATE_CLAIMS_PVT;
1227: x_return_status := FND_API.g_ret_sts_error;
1228: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1229: FND_MSG_PUB.Count_And_Get (
1230: p_encoded => FND_API.G_FALSE,
1231: p_count => x_msg_count,
1232: p_data => x_msg_data
1233: );
1234: IF x_msg_count > 1 THEN
1235: FOR I IN 1..x_msg_count LOOP
1236: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1237: END LOOP;
1238: END IF;
1239: WHEN FND_API.G_EXC_ERROR THEN
1240: ROLLBACK TO CREATE_CLAIMS_PVT;
1241: x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- Standard call to get message count and if count=1, get the message
1243: FND_MSG_PUB.Count_And_Get (
1237: END LOOP;
1238: END IF;
1239: WHEN FND_API.G_EXC_ERROR THEN
1240: ROLLBACK TO CREATE_CLAIMS_PVT;
1241: x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- Standard call to get message count and if count=1, get the message
1243: FND_MSG_PUB.Count_And_Get (
1244: p_encoded => FND_API.G_FALSE,
1245: p_count => x_msg_count,
1240: ROLLBACK TO CREATE_CLAIMS_PVT;
1241: x_return_status := FND_API.G_RET_STS_ERROR;
1242: -- Standard call to get message count and if count=1, get the message
1243: FND_MSG_PUB.Count_And_Get (
1244: p_encoded => FND_API.G_FALSE,
1245: p_count => x_msg_count,
1246: p_data => x_msg_data
1247: );
1248: IF x_msg_count > 1 THEN
1249: FOR I IN 1..x_msg_count LOOP
1250: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1251: END LOOP;
1252: END IF;
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: ROLLBACK TO CREATE_CLAIMS_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: -- Standard call to get message count and if count=1, get the message
1257: FND_MSG_PUB.Count_And_Get (
1251: END LOOP;
1252: END IF;
1253: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1254: ROLLBACK TO CREATE_CLAIMS_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: -- Standard call to get message count and if count=1, get the message
1257: FND_MSG_PUB.Count_And_Get (
1258: p_encoded => FND_API.G_FALSE,
1259: p_count => x_msg_count,
1254: ROLLBACK TO CREATE_CLAIMS_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: -- Standard call to get message count and if count=1, get the message
1257: FND_MSG_PUB.Count_And_Get (
1258: p_encoded => FND_API.G_FALSE,
1259: p_count => x_msg_count,
1260: p_data => x_msg_data
1261: );
1262: IF x_msg_count > 1 THEN
1269: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1270: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1271: fnd_message.set_token('ERRNO', sqlcode);
1272: fnd_message.set_token('REASON', sqlerrm);
1273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1274: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1275: THEN
1276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1277: END IF;
1276: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1277: END IF;
1278: -- Standard call to get message count and if count=1, get the message
1279: FND_MSG_PUB.Count_And_Get (
1280: p_encoded => FND_API.G_FALSE,
1281: p_count => x_msg_count,
1282: p_data => x_msg_data
1283: );
1284: IF x_msg_count > 1 THEN
1303: -- 2.
1304: ----------------------------------------------------------------------
1305: PROCEDURE Update_Claims(
1306: p_api_version IN NUMBER
1307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1310: ,x_return_status OUT NOCOPY VARCHAR2
1311: ,x_msg_count OUT NOCOPY NUMBER
1304: ----------------------------------------------------------------------
1305: PROCEDURE Update_Claims(
1306: p_api_version IN NUMBER
1307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1310: ,x_return_status OUT NOCOPY VARCHAR2
1311: ,x_msg_count OUT NOCOPY NUMBER
1312: ,x_msg_data OUT NOCOPY VARCHAR2
1305: PROCEDURE Update_Claims(
1306: p_api_version IN NUMBER
1307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1310: ,x_return_status OUT NOCOPY VARCHAR2
1311: ,x_msg_count OUT NOCOPY NUMBER
1312: ,x_msg_data OUT NOCOPY VARCHAR2
1313: ,p_txn_hdr_rec IN OUT NOCOPY dpp_txn_hdr_rec_type
1347: BEGIN
1348: -- Standard begin of API savepoint
1349: SAVEPOINT Update_Claims_PVT;
1350: -- Standard call to check for call compatibility.
1351: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1352: p_api_version,
1353: l_api_name,
1354: G_PKG_NAME)
1355: THEN
1352: p_api_version,
1353: l_api_name,
1354: G_PKG_NAME)
1355: THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list )
1360: THEN
1355: THEN
1356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1357: END IF;
1358: -- Initialize message list if p_init_msg_list is set to TRUE.
1359: IF FND_API.to_Boolean( p_init_msg_list )
1360: THEN
1361: FND_MSG_PUB.initialize;
1362: END IF;
1363:
1364: -- Debug Message
1365: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'start');
1366:
1367: -- Initialize API return status to sucess
1368: l_return_status := FND_API.G_RET_STS_SUCCESS;
1369:
1370: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1371: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1372: FND_MESSAGE.set_token('ID', 'Transaction Number');
1370: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1371: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1372: FND_MESSAGE.set_token('ID', 'Transaction Number');
1373: FND_MSG_PUB.add;
1374: RAISE FND_API.G_EXC_ERROR;
1375: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1376: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1377: FND_MESSAGE.set_token('ID', 'Claim ID');
1378: FND_MSG_PUB.add;
1375: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1376: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1377: FND_MESSAGE.set_token('ID', 'Claim ID');
1378: FND_MSG_PUB.add;
1379: RAISE FND_API.G_EXC_ERROR;
1380: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1381: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1382: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1383: FND_MSG_PUB.add;
1380: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1381: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1382: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1383: FND_MSG_PUB.add;
1384: RAISE FND_API.G_EXC_ERROR;
1385: ELSE
1386: l_transaction_number := ''''||l_txn_hdr_rec.Transaction_number||'''';
1387:
1388: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Transaction Number: ' || l_txn_hdr_rec.Transaction_number);
1410: FND_MSG_PUB.add;
1411: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1412: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1413: END IF;
1414: RAISE FND_API.G_EXC_ERROR;
1415: WHEN OTHERS THEN
1416: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1417: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1418: fnd_message.set_token('ERRNO', sqlcode);
1423: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1424: FND_MSG_PUB.add;
1425: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1426: END IF;
1427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1428: END;
1429: --Clear the existing records from the table type variable..
1430: l_claim_line_pub_tbl.delete();
1431: l_claim_pub_rec := NULL;
1472: FND_MSG_PUB.add;
1473: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1474: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1475: END IF;
1476: RAISE FND_API.G_EXC_ERROR;
1477: WHEN OTHERS THEN
1478: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1479: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1480: fnd_message.set_token('ERRNO', sqlcode);
1486: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1487: FND_MSG_PUB.add;
1488: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END;
1492: l_claim_line_pub_tbl(i).claim_id := l_txn_hdr_rec.claim_id;
1493: l_claim_line_pub_tbl(i).claim_line_id := l_claim_line_id;
1494: --l_claim_line_pub_tbl(i).claim_currency_amount := l_txn_line_tbl(i).Claim_Line_Amount; --ANBBALAS: For Price Increase enhancement
1513: END IF;
1514:
1515: --Invoke the standard API with the above defined parameters.
1516: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1517: ,p_init_msg_list => FND_API.G_FALSE
1518: ,p_commit => FND_API.G_False
1519: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1520: ,x_return_status => l_return_status
1521: ,x_msg_count => l_msg_count
1514:
1515: --Invoke the standard API with the above defined parameters.
1516: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1517: ,p_init_msg_list => FND_API.G_FALSE
1518: ,p_commit => FND_API.G_False
1519: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1520: ,x_return_status => l_return_status
1521: ,x_msg_count => l_msg_count
1522: ,x_msg_data => l_msg_data
1515: --Invoke the standard API with the above defined parameters.
1516: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1517: ,p_init_msg_list => FND_API.G_FALSE
1518: ,p_commit => FND_API.G_False
1519: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1520: ,x_return_status => l_return_status
1521: ,x_msg_count => l_msg_count
1522: ,x_msg_data => l_msg_data
1523: ,p_claim_rec => l_claim_pub_rec
1527:
1528: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
1529: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
1530:
1531: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1532: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'return status for Update_Claims =>'||l_return_status);
1533: dpp_utility_pvt.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the claim to OPEN status');
1534: ELSE
1535: --Bug#6928445
1558: FND_MSG_PUB.add;
1559: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_ERROR;
1563: WHEN OTHERS THEN
1564: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1565: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1566: fnd_message.set_token('ERRNO', sqlcode);
1571: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1572: FND_MSG_PUB.add;
1573: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1574: END IF;
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576: END;
1577: l_claim_pub_rec.object_version_number := l_object_version_number;
1578: --Invoke the standard API with the above defined parameters.
1579: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1576: END;
1577: l_claim_pub_rec.object_version_number := l_object_version_number;
1578: --Invoke the standard API with the above defined parameters.
1579: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1580: ,p_init_msg_list => FND_API.G_FALSE
1581: ,p_commit => FND_API.G_FALSE
1582: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1583: ,x_return_status => l_return_status
1584: ,x_msg_count => l_msg_count
1577: l_claim_pub_rec.object_version_number := l_object_version_number;
1578: --Invoke the standard API with the above defined parameters.
1579: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1580: ,p_init_msg_list => FND_API.G_FALSE
1581: ,p_commit => FND_API.G_FALSE
1582: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1583: ,x_return_status => l_return_status
1584: ,x_msg_count => l_msg_count
1585: ,x_msg_data => l_msg_data
1578: --Invoke the standard API with the above defined parameters.
1579: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1580: ,p_init_msg_list => FND_API.G_FALSE
1581: ,p_commit => FND_API.G_FALSE
1582: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1583: ,x_return_status => l_return_status
1584: ,x_msg_count => l_msg_count
1585: ,x_msg_data => l_msg_data
1586: ,p_claim_rec => l_claim_pub_rec
1593:
1594: END IF; --IF l_txn_hdr_rec.claim_amount > 0 THEN
1595: END IF;
1596: l_reason := ''''||substr(l_msg_data,1,3990)||'''';
1597: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1598: l_status := 'SUCCESS';
1599: ELSE
1600: l_status := 'WARNING';
1601: END IF;
1616: l_output_xml,
1617: l_api_name
1618: );
1619: x_return_status := l_return_status;
1620: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1621: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1622: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1623: fnd_message.set_token('ERRNO', sqlcode);
1624: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1622: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1623: fnd_message.set_token('ERRNO', sqlcode);
1624: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1625: FND_MSG_PUB.add;
1626: RAISE FND_API.G_EXC_ERROR;
1627: END IF;
1628:
1629: -- Debug Message
1630: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'end');
1629: -- Debug Message
1630: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_PROCEDURE, l_module, 'Public API: ' || l_api_name || 'end');
1631:
1632: -- Standard check for p_commit
1633: IF FND_API.to_Boolean( p_commit )
1634: THEN
1635: COMMIT;
1636: END IF;
1637: -- Standard call to get message count and if count is 1, get message info.
1642: --Exception Handling
1643: EXCEPTION
1644: WHEN DPP_UTILITY_PVT.resource_locked THEN
1645: ROLLBACK TO UPDATE_CLAIMS_PVT;
1646: x_return_status := FND_API.g_ret_sts_error;
1647: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1648: FND_MSG_PUB.Count_And_Get (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1645: ROLLBACK TO UPDATE_CLAIMS_PVT;
1646: x_return_status := FND_API.g_ret_sts_error;
1647: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1648: FND_MSG_PUB.Count_And_Get (
1649: p_encoded => FND_API.G_FALSE,
1650: p_count => x_msg_count,
1651: p_data => x_msg_data
1652: );
1653: IF x_msg_count > 1 THEN
1654: FOR I IN 1..x_msg_count LOOP
1655: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1656: END LOOP;
1657: END IF;
1658: WHEN FND_API.G_EXC_ERROR THEN
1659: ROLLBACK TO UPDATE_CLAIMS_PVT;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: -- Standard call to get message count and if count=1, get the message
1662: FND_MSG_PUB.Count_And_Get (
1656: END LOOP;
1657: END IF;
1658: WHEN FND_API.G_EXC_ERROR THEN
1659: ROLLBACK TO UPDATE_CLAIMS_PVT;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: -- Standard call to get message count and if count=1, get the message
1662: FND_MSG_PUB.Count_And_Get (
1663: p_encoded => FND_API.G_FALSE,
1664: p_count => x_msg_count,
1659: ROLLBACK TO UPDATE_CLAIMS_PVT;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1661: -- Standard call to get message count and if count=1, get the message
1662: FND_MSG_PUB.Count_And_Get (
1663: p_encoded => FND_API.G_FALSE,
1664: p_count => x_msg_count,
1665: p_data => x_msg_data
1666: );
1667: IF x_msg_count > 1 THEN
1668: FOR I IN 1..x_msg_count LOOP
1669: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1670: END LOOP;
1671: END IF;
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1673: ROLLBACK TO UPDATE_CLAIMS_PVT;
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: -- Standard call to get message count and if count=1, get the message
1676: FND_MSG_PUB.Count_And_Get (
1670: END LOOP;
1671: END IF;
1672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1673: ROLLBACK TO UPDATE_CLAIMS_PVT;
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: -- Standard call to get message count and if count=1, get the message
1676: FND_MSG_PUB.Count_And_Get (
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1673: ROLLBACK TO UPDATE_CLAIMS_PVT;
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: -- Standard call to get message count and if count=1, get the message
1676: FND_MSG_PUB.Count_And_Get (
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1679: p_data => x_msg_data
1680: );
1681: IF x_msg_count > 1 THEN
1689: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1690: fnd_message.set_token('ERRNO', sqlcode);
1691: fnd_message.set_token('REASON', sqlerrm);
1692: FND_MSG_PUB.add;
1693: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1694: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1695: THEN
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1697: END IF;
1696: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1697: END IF;
1698: -- Standard call to get message count and if count=1, get the message
1699: FND_MSG_PUB.Count_And_Get (
1700: p_encoded => FND_API.G_FALSE,
1701: p_count => x_msg_count,
1702: p_data => x_msg_data
1703: );
1704: IF x_msg_count > 1 THEN