[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
203: -- Standard begin of API savepoint
204: SAVEPOINT CREATE_CLAIMS_PVT;
205:
206: -- Standard call to check for call compatibility.
207: IF NOT FND_API.Compatible_API_Call ( l_api_version,
208: p_api_version,
209: l_api_name,
210: G_PKG_NAME)
211: THEN
208: p_api_version,
209: l_api_name,
210: G_PKG_NAME)
211: THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214: -- Initialize message list if p_init_msg_list is set to TRUE.
215: IF FND_API.to_Boolean( p_init_msg_list )
216: THEN
211: THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214: -- Initialize message list if p_init_msg_list is set to TRUE.
215: IF FND_API.to_Boolean( p_init_msg_list )
216: THEN
217: FND_MSG_PUB.initialize;
218: END IF;
219: -- Debug Message
220: IF g_debug THEN
221: DPP_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
222: END IF;
223: -- Initialize API return status to success
224: x_return_status := FND_API.G_RET_STS_SUCCESS;
225:
226: IF g_debug THEN
227: DPP_UTILITY_PVT.debug_message('Transaction Number: ' || l_txn_hdr_rec.Transaction_number);
228: DPP_UTILITY_PVT.debug_message('Claim Type Flag: ' || l_txn_hdr_rec.claim_type_flag);
250: FND_MSG_PUB.add;
251: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
252: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
253: END IF;
254: RAISE FND_API.G_EXC_ERROR;
255: WHEN OTHERS THEN
256: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
257: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
258: fnd_message.set_token('ERRNO', sqlcode);
263: fnd_message.set_token('VENDORID', l_txn_hdr_rec.Vendor_ID);
264: FND_MSG_PUB.add;
265: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
266: END IF;
267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
268: END;
269: IF g_debug THEN
270: DPP_UTILITY_PVT.debug_message('Pre Approval Required : ' || l_approval_flag);
271: DPP_UTILITY_PVT.debug_message('Customer Account ID : ' || l_cust_account_id);
350: FND_MSG_PUB.add;
351: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
352: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
353: END IF;
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
355: END;
356: --Get the item number
357: IF l_txn_line_tbl(i).inventory_item_id IS NOT NULL THEN
358: FOR get_item_number_rec IN get_item_number_csr(l_txn_line_tbl(i).inventory_item_id) LOOP
367: ELSE
368: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
369: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
370: FND_MSG_PUB.add;
371: RAISE FND_API.G_EXC_ERROR;
372: END IF;
373: --Get the customer name
374: IF l_txn_hdr_rec.claim_type_flag = 'CUST_CL' THEN
375: IF l_txn_line_tbl(i).cust_account_id IS NOT NULL THEN
385: ELSE
386: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
387: FND_MESSAGE.set_token('ID', 'Customer Account ID');
388: FND_MSG_PUB.add;
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391: END IF;
392: END LOOP; --Checked for all the lines in the table type variable.
393:
461: FND_MSG_PUB.add;
462: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
463: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
464: END IF;
465: RAISE FND_API.G_EXC_ERROR;
466: WHEN OTHERS THEN
467: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
468: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
469: fnd_message.set_token('ERRNO', sqlcode);
474: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
475: FND_MSG_PUB.add;
476: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
477: END IF;
478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
479: END;
480: IF l_price_increase_flag = 'Y' THEN
481: l_claim_line_pub_tbl(i).source_object_class := 'PPINCVENDOR';
482: l_claim_line_pub_tbl(i).claim_currency_amount := -1 * l_txn_line_tbl(i).Claim_Line_Amount;
498: END LOOP;
499:
500: --Invoke the standard API with the above defined parameters.
501: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
502: p_init_msg_list => FND_API.G_TRUE,
503: p_commit => FND_API.G_FALSE,
504: p_validation_level => p_validation_level,
505: x_return_status => l_return_status,
506: x_msg_count => l_msg_count,
499:
500: --Invoke the standard API with the above defined parameters.
501: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
502: p_init_msg_list => FND_API.G_TRUE,
503: p_commit => FND_API.G_FALSE,
504: p_validation_level => p_validation_level,
505: x_return_status => l_return_status,
506: x_msg_count => l_msg_count,
507: x_msg_data => l_msg_data,
512: IF g_debug THEN
513: dpp_utility_pvt.debug_message('return status for Create_Claim =>'||l_return_status);
514: dpp_utility_pvt.debug_message (substr(('Message data from OZF Create Claim =>'||l_msg_data),1,4000));
515: END IF;
516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
517: x_return_status := l_return_status;
518: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
519: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
520: fnd_message.set_token('ERRNO', sqlcode);
572: FND_MSG_PUB.add;
573: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
574: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
575: END IF;
576: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
577: END;
578: --Insert the claim id into the global temp table..
579: IF l_price_increase_flag = 'Y' THEN
580: UPDATE DPP_CUSTOMER_CLAIMS_GT
608: WHERE transaction_line_id = l_txn_line_tbl(i).transaction_line_id;
609:
610: IF SQL%ROWCOUNT = 0 THEN
611: DPP_UTILITY_PVT.debug_message('Unable to Update the column supp_dist_claim_id in DPP_TRANSACTION_LINES_ALL Table');
612: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
613: END IF;
614: END LOOP; --getting the claim id loop
615: END LOOP; --lines table loop
616:
647: FND_MSG_PUB.add;
648: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
649: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
650: END IF;
651: RAISE FND_API.G_EXC_ERROR;
652: WHEN OTHERS THEN
653: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
654: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
655: fnd_message.set_token('ERRNO', sqlcode);
660: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
661: FND_MSG_PUB.add;
662: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
665: END;
666: l_claim_pub_rec.object_version_number := l_object_version_number;
667: --Invoke the standard API with the above defined parameters.
668: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
665: END;
666: l_claim_pub_rec.object_version_number := l_object_version_number;
667: --Invoke the standard API with the above defined parameters.
668: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
669: ,p_init_msg_list => FND_API.G_FALSE
670: ,p_commit => FND_API.G_FALSE
671: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
672: ,x_return_status => l_return_status
673: ,x_msg_count => l_msg_count
666: l_claim_pub_rec.object_version_number := l_object_version_number;
667: --Invoke the standard API with the above defined parameters.
668: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
669: ,p_init_msg_list => FND_API.G_FALSE
670: ,p_commit => FND_API.G_FALSE
671: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
672: ,x_return_status => l_return_status
673: ,x_msg_count => l_msg_count
674: ,x_msg_data => l_msg_data
667: --Invoke the standard API with the above defined parameters.
668: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
669: ,p_init_msg_list => FND_API.G_FALSE
670: ,p_commit => FND_API.G_FALSE
671: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
672: ,x_return_status => l_return_status
673: ,x_msg_count => l_msg_count
674: ,x_msg_data => l_msg_data
675: ,p_claim_rec => l_claim_pub_rec
680: dpp_utility_pvt.debug_message('return status for OZF Update_Claims =>'||l_return_status);
681: dpp_utility_pvt.debug_message(substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
682: END IF;
683: --If the claim updation process failed
684: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
685: x_return_status := l_return_status;
686: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
687: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
688: fnd_message.set_token('ERRNO', sqlcode);
732: END LOOP;
733:
734: --Invoke the standard API with the above defined parameters.
735: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
736: p_init_msg_list => FND_API.G_TRUE,
737: p_commit => FND_API.G_FALSE,
738: p_validation_level => p_validation_level,
739: x_return_status => l_return_status,
740: x_msg_count => l_msg_count,
733:
734: --Invoke the standard API with the above defined parameters.
735: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
736: p_init_msg_list => FND_API.G_TRUE,
737: p_commit => FND_API.G_FALSE,
738: p_validation_level => p_validation_level,
739: x_return_status => l_return_status,
740: x_msg_count => l_msg_count,
741: x_msg_data => l_msg_data,
747: dpp_utility_pvt.debug_message('return status for Create_Claim =>'||l_return_status);
748: dpp_utility_pvt.debug_message(substr(('Message Data for OZF Create_Claim =>'||l_msg_data),1,4000));
749: END IF;
750:
751: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
752: x_return_status := l_return_status;
753: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
754: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
755: fnd_message.set_token('ERRNO', sqlcode);
785: FND_MSG_PUB.add;
786: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
787: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
788: END IF;
789: RAISE FND_API.G_EXC_ERROR;
790: WHEN OTHERS THEN
791: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
792: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
793: fnd_message.set_token('ERRNO', sqlcode);
798: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
799: FND_MSG_PUB.add;
800: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
801: END IF;
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END;
804: l_claim_pub_rec.object_version_number := l_object_version_number;
805: --Invoke the standard API with the above defined parameters.
806: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
803: END;
804: l_claim_pub_rec.object_version_number := l_object_version_number;
805: --Invoke the standard API with the above defined parameters.
806: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
807: ,p_init_msg_list => FND_API.G_FALSE
808: ,p_commit => FND_API.G_FALSE
809: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
810: ,x_return_status => l_return_status
811: ,x_msg_count => l_msg_count
804: l_claim_pub_rec.object_version_number := l_object_version_number;
805: --Invoke the standard API with the above defined parameters.
806: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
807: ,p_init_msg_list => FND_API.G_FALSE
808: ,p_commit => FND_API.G_FALSE
809: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
810: ,x_return_status => l_return_status
811: ,x_msg_count => l_msg_count
812: ,x_msg_data => l_msg_data
805: --Invoke the standard API with the above defined parameters.
806: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
807: ,p_init_msg_list => FND_API.G_FALSE
808: ,p_commit => FND_API.G_FALSE
809: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
810: ,x_return_status => l_return_status
811: ,x_msg_count => l_msg_count
812: ,x_msg_data => l_msg_data
813: ,p_claim_rec => l_claim_pub_rec
817: IF g_debug THEN
818: dpp_utility_pvt.debug_message('return status for Update_Claims =>'||l_return_status);
819: dpp_utility_pvt.debug_message(substr(('Message data for OZF Update_Claims =>'||l_msg_data),1,4000));
820: END IF;
821: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
822: x_return_status := l_return_status;
823: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
824: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
825: fnd_message.set_token('ERRNO', sqlcode);
863: FND_MSG_PUB.add;
864: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
865: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
866: END IF;
867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
868: END;
869: --Update the claim id into the global temp table..
870: UPDATE DPP_CUSTOMER_CLAIMS_GT
871: SET claim_id = l_x_claim_id,
893: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
894:
895: IF SQL%ROWCOUNT = 0 THEN
896: DPP_UTILITY_PVT.debug_message('Unable to Update the column SUPP_CUST_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
897: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: END IF;
899: ELSE
900: UPDATE DPP_CUSTOMER_CLAIMS_ALL
901: SET supplier_claim_created = 'N',
906: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
907:
908: IF SQL%ROWCOUNT = 0 THEN
909: DPP_UTILITY_PVT.debug_message('Unable to Update the column supplier_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
911: END IF;
912: END IF;
913: END LOOP;
914: END LOOP;
944: END LOOP;
945:
946: --Invoke the standard API with the above defined parameters.
947: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
948: p_init_msg_list => FND_API.G_TRUE,
949: p_commit => FND_API.G_FALSE,
950: p_validation_level => p_validation_level,
951: x_return_status => l_return_status,
952: x_msg_count => l_msg_count,
945:
946: --Invoke the standard API with the above defined parameters.
947: OZF_Claim_PUB.Create_Claim(p_api_version_number => 1.0,
948: p_init_msg_list => FND_API.G_TRUE,
949: p_commit => FND_API.G_FALSE,
950: p_validation_level => p_validation_level,
951: x_return_status => l_return_status,
952: x_msg_count => l_msg_count,
953: x_msg_data => l_msg_data,
958: IF g_debug THEN
959: dpp_utility_pvt.debug_message('return status for Create_Claim =>'||l_return_status);
960: dpp_utility_pvt.debug_message(substr(('Message data for OZF Create_Claim =>'||l_msg_data),1,4000));
961: END IF;
962: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
963: x_return_status := l_return_status;
964: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
965: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
966: fnd_message.set_token('ERRNO', sqlcode);
997: FND_MSG_PUB.add;
998: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
999: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1000: END IF;
1001: RAISE FND_API.G_EXC_ERROR;
1002: WHEN OTHERS THEN
1003: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1004: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1005: fnd_message.set_token('ERRNO', sqlcode);
1010: fnd_message.set_token('CLAIM_ID', l_x_claim_id);
1011: FND_MSG_PUB.add;
1012: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1013: END IF;
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END;
1016: l_claim_pub_rec.object_version_number := l_object_version_number;
1017: --Invoke the standard API with the above defined parameters.
1018: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1015: END;
1016: l_claim_pub_rec.object_version_number := l_object_version_number;
1017: --Invoke the standard API with the above defined parameters.
1018: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1019: ,p_init_msg_list => FND_API.G_FALSE
1020: ,p_commit => FND_API.G_FALSE
1021: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1022: ,x_return_status => l_return_status
1023: ,x_msg_count => l_msg_count
1016: l_claim_pub_rec.object_version_number := l_object_version_number;
1017: --Invoke the standard API with the above defined parameters.
1018: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1019: ,p_init_msg_list => FND_API.G_FALSE
1020: ,p_commit => FND_API.G_FALSE
1021: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1022: ,x_return_status => l_return_status
1023: ,x_msg_count => l_msg_count
1024: ,x_msg_data => l_msg_data
1017: --Invoke the standard API with the above defined parameters.
1018: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1019: ,p_init_msg_list => FND_API.G_FALSE
1020: ,p_commit => FND_API.G_FALSE
1021: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1022: ,x_return_status => l_return_status
1023: ,x_msg_count => l_msg_count
1024: ,x_msg_data => l_msg_data
1025: ,p_claim_rec => l_claim_pub_rec
1029: IF g_debug THEN
1030: dpp_utility_pvt.debug_message('return status for Update_Claims =>'||l_return_status);
1031: dpp_utility_pvt.debug_message(substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
1032: END IF;
1033: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1034: x_return_status := l_return_status;
1035: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1036: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1037: fnd_message.set_token('ERRNO', sqlcode);
1075: FND_MSG_PUB.add;
1076: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1077: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1078: END IF;
1079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1080: END;
1081: --Insert the claim id into the global temp table..
1082: UPDATE DPP_CUSTOMER_CLAIMS_GT
1083: SET claim_id = l_x_claim_id,
1107: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1108:
1109: IF SQL%ROWCOUNT = 0 THEN
1110: DPP_UTILITY_PVT.debug_message('Unable to Update the column CUSTOMER_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113: ELSE
1114: UPDATE DPP_CUSTOMER_CLAIMS_ALL
1115: SET customer_claim_created = 'N',
1120: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1121:
1122: IF SQL%ROWCOUNT = 0 THEN
1123: DPP_UTILITY_PVT.debug_message('Unable to Update the column customer_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
1124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1125: END IF;
1126: END IF;
1127: END LOOP;
1128: END LOOP;
1129: ELSE
1130: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1131: FND_MESSAGE.set_token('ID', 'Claim Type Flag');
1132: FND_MSG_PUB.add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: END LOOP; -- End Loop for DPP Price Increase Enhancement
1136:
1137: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: END LOOP; -- End Loop for DPP Price Increase Enhancement
1136:
1137: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1138: x_return_status := l_return_status;
1139: END IF;
1140: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1141: l_status := 'SUCCESS';
1136:
1137: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1138: x_return_status := l_return_status;
1139: END IF;
1140: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1141: l_status := 'SUCCESS';
1142: --Output XML Generation Code.
1143: l_queryCtx := dbms_xmlquery.newContext('SELECT '||l_transaction_number||'Txnnumber,
1144: CURSOR (SELECT DISTINCT claim_number claimnumber
1165: l_txn_hdr_rec,
1166: l_output_xml,
1167: l_api_name
1168: );
1169: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1170: RAISE FND_API.G_EXC_ERROR;
1171: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1173: END IF;
1166: l_output_xml,
1167: l_api_name
1168: );
1169: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1170: RAISE FND_API.G_EXC_ERROR;
1171: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1173: END IF;
1174: /*--Update the execution details table
1167: l_api_name
1168: );
1169: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1170: RAISE FND_API.G_EXC_ERROR;
1171: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1173: END IF;
1174: /*--Update the execution details table
1175: UPDATE DPP_EXECUTION_DETAILS
1168: );
1169: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1170: RAISE FND_API.G_EXC_ERROR;
1171: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1173: END IF;
1174: /*--Update the execution details table
1175: UPDATE DPP_EXECUTION_DETAILS
1176: SET EXECUTION_END_DATE = sysdate,
1185: AND transaction_header_id = l_txn_hdr_rec.Transaction_Header_ID;
1186:
1187: IF SQL%ROWCOUNT = 0 THEN
1188: DPP_UTILITY_PVT.debug_message('Unable to Update DPP_EXECUTION_DETAILS Table');
1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1191: */
1192:
1193:
1195: IF g_debug THEN
1196: DPP_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1197: END IF;
1198: -- Standard check for p_commit
1199: IF FND_API.to_Boolean( p_commit )
1200: THEN
1201: COMMIT;
1202: END IF;
1203: -- Standard call to get message count and if count is 1, get message info.
1208: --Exception Handling
1209: EXCEPTION
1210: WHEN DPP_UTILITY_PVT.resource_locked THEN
1211: ROLLBACK TO CREATE_CLAIMS_PVT;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1211: ROLLBACK TO CREATE_CLAIMS_PVT;
1212: x_return_status := FND_API.g_ret_sts_error;
1213: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: IF x_msg_count > 1 THEN
1220: FOR I IN 1..x_msg_count LOOP
1221: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1222: END LOOP;
1223: END IF;
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO CREATE_CLAIMS_PVT;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1222: END LOOP;
1223: END IF;
1224: WHEN FND_API.G_EXC_ERROR THEN
1225: ROLLBACK TO CREATE_CLAIMS_PVT;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1225: ROLLBACK TO CREATE_CLAIMS_PVT;
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: -- Standard call to get message count and if count=1, get the message
1228: FND_MSG_PUB.Count_And_Get (
1229: p_encoded => FND_API.G_FALSE,
1230: p_count => x_msg_count,
1231: p_data => x_msg_data
1232: );
1233: IF x_msg_count > 1 THEN
1234: FOR I IN 1..x_msg_count LOOP
1235: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1236: END LOOP;
1237: END IF;
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_CLAIMS_PVT;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: -- Standard call to get message count and if count=1, get the message
1242: FND_MSG_PUB.Count_And_Get (
1236: END LOOP;
1237: END IF;
1238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1239: ROLLBACK TO CREATE_CLAIMS_PVT;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: -- Standard call to get message count and if count=1, get the message
1242: FND_MSG_PUB.Count_And_Get (
1243: p_encoded => FND_API.G_FALSE,
1244: p_count => x_msg_count,
1239: ROLLBACK TO CREATE_CLAIMS_PVT;
1240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1241: -- Standard call to get message count and if count=1, get the message
1242: FND_MSG_PUB.Count_And_Get (
1243: p_encoded => FND_API.G_FALSE,
1244: p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );
1247: IF x_msg_count > 1 THEN
1254: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1255: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1256: fnd_message.set_token('ERRNO', sqlcode);
1257: fnd_message.set_token('REASON', sqlerrm);
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1260: THEN
1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1262: END IF;
1261: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1262: END IF;
1263: -- Standard call to get message count and if count=1, get the message
1264: FND_MSG_PUB.Count_And_Get (
1265: p_encoded => FND_API.G_FALSE,
1266: p_count => x_msg_count,
1267: p_data => x_msg_data
1268: );
1269: IF x_msg_count > 1 THEN
1288: -- 2.
1289: ----------------------------------------------------------------------
1290: PROCEDURE Update_Claims(
1291: p_api_version IN NUMBER
1292: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1293: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1294: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1295: ,x_return_status OUT NOCOPY VARCHAR2
1296: ,x_msg_count OUT NOCOPY NUMBER
1289: ----------------------------------------------------------------------
1290: PROCEDURE Update_Claims(
1291: p_api_version IN NUMBER
1292: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1293: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1294: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1295: ,x_return_status OUT NOCOPY VARCHAR2
1296: ,x_msg_count OUT NOCOPY NUMBER
1297: ,x_msg_data OUT NOCOPY VARCHAR2
1290: PROCEDURE Update_Claims(
1291: p_api_version IN NUMBER
1292: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1293: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1294: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1295: ,x_return_status OUT NOCOPY VARCHAR2
1296: ,x_msg_count OUT NOCOPY NUMBER
1297: ,x_msg_data OUT NOCOPY VARCHAR2
1298: ,p_txn_hdr_rec IN OUT NOCOPY dpp_txn_hdr_rec_type
1331: BEGIN
1332: -- Standard begin of API savepoint
1333: SAVEPOINT Update_Claims_PVT;
1334: -- Standard call to check for call compatibility.
1335: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1336: p_api_version,
1337: l_api_name,
1338: G_PKG_NAME)
1339: THEN
1336: p_api_version,
1337: l_api_name,
1338: G_PKG_NAME)
1339: THEN
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: -- Initialize message list if p_init_msg_list is set to TRUE.
1343: IF FND_API.to_Boolean( p_init_msg_list )
1344: THEN
1339: THEN
1340: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1341: END IF;
1342: -- Initialize message list if p_init_msg_list is set to TRUE.
1343: IF FND_API.to_Boolean( p_init_msg_list )
1344: THEN
1345: FND_MSG_PUB.initialize;
1346: END IF;
1347:
1349: IF g_debug THEN
1350: DPP_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'start');
1351: END IF;
1352: -- Initialize API return status to sucess
1353: l_return_status := FND_API.G_RET_STS_SUCCESS;
1354:
1355: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1356: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1357: FND_MESSAGE.set_token('ID', 'Transaction Number');
1355: IF l_txn_hdr_rec.Transaction_number IS NULL THEN
1356: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1357: FND_MESSAGE.set_token('ID', 'Transaction Number');
1358: FND_MSG_PUB.add;
1359: RAISE FND_API.G_EXC_ERROR;
1360: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1361: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1362: FND_MESSAGE.set_token('ID', 'Claim ID');
1363: FND_MSG_PUB.add;
1360: ELSIF l_txn_hdr_rec.claim_id IS NULL THEN
1361: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1362: FND_MESSAGE.set_token('ID', 'Claim ID');
1363: FND_MSG_PUB.add;
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1366: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1367: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1368: FND_MSG_PUB.add;
1365: ELSIF l_txn_hdr_rec.Transaction_Header_ID IS NULL THEN
1366: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
1367: FND_MESSAGE.set_token('ID', 'Transaction Header ID');
1368: FND_MSG_PUB.add;
1369: RAISE FND_API.G_EXC_ERROR;
1370: ELSE
1371: l_transaction_number := ''''||l_txn_hdr_rec.Transaction_number||'''';
1372: IF g_debug THEN
1373: DPP_UTILITY_PVT.debug_message('Transaction Number: ' || l_txn_hdr_rec.Transaction_number);
1395: FND_MSG_PUB.add;
1396: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1397: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1398: END IF;
1399: RAISE FND_API.G_EXC_ERROR;
1400: WHEN OTHERS THEN
1401: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1402: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1403: fnd_message.set_token('ERRNO', sqlcode);
1408: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1409: FND_MSG_PUB.add;
1410: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1411: END IF;
1412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1413: END;
1414: --Clear the existing records from the table type variable..
1415: l_claim_line_pub_tbl.delete();
1416: l_claim_pub_rec := NULL;
1457: FND_MSG_PUB.add;
1458: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1459: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1460: END IF;
1461: RAISE FND_API.G_EXC_ERROR;
1462: WHEN OTHERS THEN
1463: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1464: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1465: fnd_message.set_token('ERRNO', sqlcode);
1471: fnd_message.set_token('ITEM_ID', l_txn_line_tbl(i).Inventory_Item_Id);
1472: FND_MSG_PUB.add;
1473: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1474: END IF;
1475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1476: END;
1477: l_claim_line_pub_tbl(i).claim_id := l_txn_hdr_rec.claim_id;
1478: l_claim_line_pub_tbl(i).claim_line_id := l_claim_line_id;
1479: --l_claim_line_pub_tbl(i).claim_currency_amount := l_txn_line_tbl(i).Claim_Line_Amount; --ANBBALAS: For Price Increase enhancement
1498: END IF;
1499:
1500: --Invoke the standard API with the above defined parameters.
1501: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1502: ,p_init_msg_list => FND_API.G_FALSE
1503: ,p_commit => FND_API.G_False
1504: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1505: ,x_return_status => l_return_status
1506: ,x_msg_count => l_msg_count
1499:
1500: --Invoke the standard API with the above defined parameters.
1501: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1502: ,p_init_msg_list => FND_API.G_FALSE
1503: ,p_commit => FND_API.G_False
1504: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1505: ,x_return_status => l_return_status
1506: ,x_msg_count => l_msg_count
1507: ,x_msg_data => l_msg_data
1500: --Invoke the standard API with the above defined parameters.
1501: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1502: ,p_init_msg_list => FND_API.G_FALSE
1503: ,p_commit => FND_API.G_False
1504: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1505: ,x_return_status => l_return_status
1506: ,x_msg_count => l_msg_count
1507: ,x_msg_data => l_msg_data
1508: ,p_claim_rec => l_claim_pub_rec
1512: IF g_debug THEN
1513: dpp_utility_pvt.debug_message('return status for Update_Claims =>'||l_return_status);
1514: dpp_utility_pvt.debug_message(substr(('Message Data for OZF Update_Claims =>'||l_msg_data),1,4000));
1515: END IF;
1516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1517: IF g_debug THEN
1518: dpp_utility_pvt.debug_message('return status for Update_Claims =>'||l_return_status);
1519: dpp_utility_pvt.debug_message('Unable to Update the claim to OPEN status');
1520: END IF;
1545: FND_MSG_PUB.add;
1546: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1547: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1548: END IF;
1549: RAISE FND_API.G_EXC_ERROR;
1550: WHEN OTHERS THEN
1551: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1552: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1553: fnd_message.set_token('ERRNO', sqlcode);
1558: fnd_message.set_token('CLAIM_ID', l_txn_hdr_rec.claim_id);
1559: FND_MSG_PUB.add;
1560: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
1561: END IF;
1562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1563: END;
1564: l_claim_pub_rec.object_version_number := l_object_version_number;
1565: --Invoke the standard API with the above defined parameters.
1566: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1563: END;
1564: l_claim_pub_rec.object_version_number := l_object_version_number;
1565: --Invoke the standard API with the above defined parameters.
1566: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1567: ,p_init_msg_list => FND_API.G_FALSE
1568: ,p_commit => FND_API.G_FALSE
1569: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1570: ,x_return_status => l_return_status
1571: ,x_msg_count => l_msg_count
1564: l_claim_pub_rec.object_version_number := l_object_version_number;
1565: --Invoke the standard API with the above defined parameters.
1566: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1567: ,p_init_msg_list => FND_API.G_FALSE
1568: ,p_commit => FND_API.G_FALSE
1569: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1570: ,x_return_status => l_return_status
1571: ,x_msg_count => l_msg_count
1572: ,x_msg_data => l_msg_data
1565: --Invoke the standard API with the above defined parameters.
1566: OZF_CLAIM_PUB.Update_Claim (p_api_version_number => l_api_version
1567: ,p_init_msg_list => FND_API.G_FALSE
1568: ,p_commit => FND_API.G_FALSE
1569: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1570: ,x_return_status => l_return_status
1571: ,x_msg_count => l_msg_count
1572: ,x_msg_data => l_msg_data
1573: ,p_claim_rec => l_claim_pub_rec
1580: END IF;
1581: END IF; --IF l_txn_hdr_rec.claim_amount > 0 THEN
1582: END IF;
1583: l_reason := ''''||substr(l_msg_data,1,3990)||'''';
1584: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1585: l_status := 'SUCCESS';
1586: ELSE
1587: l_status := 'WARNING';
1588: END IF;
1603: l_output_xml,
1604: l_api_name
1605: );
1606: x_return_status := l_return_status;
1607: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1608: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
1609: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1610: fnd_message.set_token('ERRNO', sqlcode);
1611: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1609: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1610: fnd_message.set_token('ERRNO', sqlcode);
1611: fnd_message.set_token('REASON', 'Error while Updating claim in Trade Management');
1612: FND_MSG_PUB.add;
1613: RAISE FND_API.G_EXC_ERROR;
1614: END IF;
1615:
1616: -- Debug Message
1617: IF g_debug THEN
1617: IF g_debug THEN
1618: DPP_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1619: END IF;
1620: -- Standard check for p_commit
1621: IF FND_API.to_Boolean( p_commit )
1622: THEN
1623: COMMIT;
1624: END IF;
1625: -- Standard call to get message count and if count is 1, get message info.
1630: --Exception Handling
1631: EXCEPTION
1632: WHEN DPP_UTILITY_PVT.resource_locked THEN
1633: ROLLBACK TO UPDATE_CLAIMS_PVT;
1634: x_return_status := FND_API.g_ret_sts_error;
1635: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1636: FND_MSG_PUB.Count_And_Get (
1637: p_encoded => FND_API.G_FALSE,
1638: p_count => x_msg_count,
1633: ROLLBACK TO UPDATE_CLAIMS_PVT;
1634: x_return_status := FND_API.g_ret_sts_error;
1635: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
1636: FND_MSG_PUB.Count_And_Get (
1637: p_encoded => FND_API.G_FALSE,
1638: p_count => x_msg_count,
1639: p_data => x_msg_data
1640: );
1641: IF x_msg_count > 1 THEN
1642: FOR I IN 1..x_msg_count LOOP
1643: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1644: END LOOP;
1645: END IF;
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO UPDATE_CLAIMS_PVT;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: -- Standard call to get message count and if count=1, get the message
1650: FND_MSG_PUB.Count_And_Get (
1644: END LOOP;
1645: END IF;
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: ROLLBACK TO UPDATE_CLAIMS_PVT;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: -- Standard call to get message count and if count=1, get the message
1650: FND_MSG_PUB.Count_And_Get (
1651: p_encoded => FND_API.G_FALSE,
1652: p_count => x_msg_count,
1647: ROLLBACK TO UPDATE_CLAIMS_PVT;
1648: x_return_status := FND_API.G_RET_STS_ERROR;
1649: -- Standard call to get message count and if count=1, get the message
1650: FND_MSG_PUB.Count_And_Get (
1651: p_encoded => FND_API.G_FALSE,
1652: p_count => x_msg_count,
1653: p_data => x_msg_data
1654: );
1655: IF x_msg_count > 1 THEN
1656: FOR I IN 1..x_msg_count LOOP
1657: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
1658: END LOOP;
1659: END IF;
1660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1661: ROLLBACK TO UPDATE_CLAIMS_PVT;
1662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1663: -- Standard call to get message count and if count=1, get the message
1664: FND_MSG_PUB.Count_And_Get (
1658: END LOOP;
1659: END IF;
1660: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1661: ROLLBACK TO UPDATE_CLAIMS_PVT;
1662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1663: -- Standard call to get message count and if count=1, get the message
1664: FND_MSG_PUB.Count_And_Get (
1665: p_encoded => FND_API.G_FALSE,
1666: p_count => x_msg_count,
1661: ROLLBACK TO UPDATE_CLAIMS_PVT;
1662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1663: -- Standard call to get message count and if count=1, get the message
1664: FND_MSG_PUB.Count_And_Get (
1665: p_encoded => FND_API.G_FALSE,
1666: p_count => x_msg_count,
1667: p_data => x_msg_data
1668: );
1669: IF x_msg_count > 1 THEN
1677: fnd_message.set_token('ROUTINE', 'DPP_CLAIMS_PVT');
1678: fnd_message.set_token('ERRNO', sqlcode);
1679: fnd_message.set_token('REASON', sqlerrm);
1680: FND_MSG_PUB.add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1683: THEN
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1684: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1685: END IF;
1686: -- Standard call to get message count and if count=1, get the message
1687: FND_MSG_PUB.Count_And_Get (
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1690: p_data => x_msg_data
1691: );
1692: IF x_msg_count > 1 THEN