274: ,x_claim_rec.order_type_id
275: FROM ozf_claims
276: WHERE claim_id = p_claim_id ;
277:
278: x_return_status := FND_API.g_ret_sts_success;
279: EXCEPTION
280: WHEN OTHERS THEN
281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
282: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
285: IF OZF_DEBUG_HIGH_ON THEN
286: OZF_Utility_PVT.debug_message('Claim Id = '|| p_claim_id);
287: OZF_Utility_PVT.debug_message('SQLERRM = '|| SQLERRM);
288: END IF;
289: x_return_status := FND_API.g_ret_sts_unexp_error;
290:
291: END Query_Claim;
292:
293:
341: i := i + 1;
342: END LOOP;
343: CLOSE csr_claim_line;
344:
345: x_return_status := FND_API.g_ret_sts_success;
346: EXCEPTION
347: WHEN OTHERS THEN
348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
349: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
349: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
350: FND_MSG_PUB.add;
351: END IF;
352: x_return_status := FND_API.g_ret_sts_unexp_error;
353:
354: END Query_Claim_Line;
355:
356:
499: IF OZF_DEBUG_HIGH_ON THEN
500: OZF_Utility_PVT.debug_message(l_full_name||': start');
501: END IF;
502:
503: x_return_status := FND_API.g_ret_sts_success;
504:
505: l_price_list_id := FND_PROFILE.value('OZF_CLAIM_PRICE_LIST_ID');
506: l_modifer_line_id := FND_PROFILE.value('OZF_CLAIM_RMA_MODIFIER_ID');
507:
657: -- [BEGIN OF BUG 3868264 FIXING]
658: -- Change OM Order Creation call to OE_ORDER_GRP api, as per apps standards.
659: OE_ORDER_GRP.Process_Order(
660: p_api_version_number => l_api_version
661: ,p_init_msg_list => FND_API.g_false
662: ,p_return_values => FND_API.g_true
663: ,p_commit => FND_API.g_false
664: ,p_validation_level => FND_API.g_valid_level_full
665:
658: -- Change OM Order Creation call to OE_ORDER_GRP api, as per apps standards.
659: OE_ORDER_GRP.Process_Order(
660: p_api_version_number => l_api_version
661: ,p_init_msg_list => FND_API.g_false
662: ,p_return_values => FND_API.g_true
663: ,p_commit => FND_API.g_false
664: ,p_validation_level => FND_API.g_valid_level_full
665:
666: ,x_return_status => l_return_status
659: OE_ORDER_GRP.Process_Order(
660: p_api_version_number => l_api_version
661: ,p_init_msg_list => FND_API.g_false
662: ,p_return_values => FND_API.g_true
663: ,p_commit => FND_API.g_false
664: ,p_validation_level => FND_API.g_valid_level_full
665:
666: ,x_return_status => l_return_status
667: ,x_msg_count => l_oe_msg_count
660: p_api_version_number => l_api_version
661: ,p_init_msg_list => FND_API.g_false
662: ,p_return_values => FND_API.g_true
663: ,p_commit => FND_API.g_false
664: ,p_validation_level => FND_API.g_valid_level_full
665:
666: ,x_return_status => l_return_status
667: ,x_msg_count => l_oe_msg_count
668: ,x_msg_data => l_oe_msg_data
712: ,x_Lot_Serial_val_tbl => l_x_Lot_Serial_val_tbl
713:
714: ,x_action_request_tbl => l_x_action_request_tbl
715: );
716: IF l_return_status = FND_API.g_ret_sts_error THEN
717: FOR i in 1 .. l_oe_msg_count LOOP
718: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
719: , p_encoded => 'F'
720: );
721: FND_MESSAGE.SET_NAME('OZF', 'OZF_API_DEBUG_MESSAGE');
722: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
723: FND_MSG_PUB.ADD;
724: END LOOP;
725: RAISE FND_API.g_exc_error;
726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
727: FOR i in 1 .. l_oe_msg_count LOOP
728: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
729: , p_encoded => 'F'
722: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
723: FND_MSG_PUB.ADD;
724: END LOOP;
725: RAISE FND_API.g_exc_error;
726: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
727: FOR i in 1 .. l_oe_msg_count LOOP
728: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
729: , p_encoded => 'F'
730: );
731: FND_MESSAGE.SET_NAME('OZF', 'OZF_API_DEBUG_MESSAGE');
732: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
733: FND_MSG_PUB.ADD;
734: END LOOP;
735: RAISE FND_API.g_exc_unexpected_error;
736: END IF;
737:
738: /*------------------------------------------------------*
739: | 4. Query selling price of RMA created by TM
765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_MODIFIER_ERR');
767: FND_MSG_PUB.add;
768: END IF;
769: RAISE FND_API.g_exc_error;
770: ELSE
771: l_rma_price_diff := l_rma_unit_price - p_claim_line_tbl(i).rate;
772:
773: l_line_adj_tbl(l_adj_idx) :=OE_ORDER_PUB.g_miss_line_adj_rec;
801: i := l_line_adj_tbl.FIRST;
802: IF i IS NOT NULL THEN
803: OE_ORDER_GRP.Process_Order(
804: p_api_version_number => l_api_version
805: ,p_init_msg_list => FND_API.g_false
806: ,p_return_values => FND_API.g_true
807: ,p_commit => FND_API.g_false
808: ,x_return_status => l_return_status
809: ,x_msg_count => l_oe_msg_count
802: IF i IS NOT NULL THEN
803: OE_ORDER_GRP.Process_Order(
804: p_api_version_number => l_api_version
805: ,p_init_msg_list => FND_API.g_false
806: ,p_return_values => FND_API.g_true
807: ,p_commit => FND_API.g_false
808: ,x_return_status => l_return_status
809: ,x_msg_count => l_oe_msg_count
810: ,x_msg_data => l_oe_msg_data
803: OE_ORDER_GRP.Process_Order(
804: p_api_version_number => l_api_version
805: ,p_init_msg_list => FND_API.g_false
806: ,p_return_values => FND_API.g_true
807: ,p_commit => FND_API.g_false
808: ,x_return_status => l_return_status
809: ,x_msg_count => l_oe_msg_count
810: ,x_msg_data => l_oe_msg_data
811:
854: ,x_Lot_Serial_val_tbl => l_x_Lot_Serial_val_tbl
855:
856: ,x_action_request_tbl => l_x_action_request_tbl
857: );
858: IF l_return_status = FND_API.g_ret_sts_error THEN
859: FOR i in 1 .. l_oe_msg_count LOOP
860: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
861: , p_encoded => 'F'
862: );
863: FND_MESSAGE.SET_NAME('AMS', 'AMS_API_DEBUG_MESSAGE');
864: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
865: FND_MSG_PUB.ADD;
866: END LOOP;
867: RAISE FND_API.g_exc_error;
868: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
869: FOR i in 1 .. l_oe_msg_count LOOP
870: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
871: , p_encoded => 'F'
864: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
865: FND_MSG_PUB.ADD;
866: END LOOP;
867: RAISE FND_API.g_exc_error;
868: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
869: FOR i in 1 .. l_oe_msg_count LOOP
870: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
871: , p_encoded => 'F'
872: );
877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
878: FND_MESSAGE.set_name('AMS', 'AMS_SETL_OM_CRE_ORD_U_ERR');
879: FND_MSG_PUB.add;
880: END IF;
881: RAISE FND_API.g_exc_unexpected_error;
882: END IF;
883: END IF;
884:
885:
911: IF OZF_DEBUG_HIGH_ON THEN
912: OZF_Utility_PVT.debug_message(l_full_name||': end');
913: END IF;
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
912: OZF_Utility_PVT.debug_message(l_full_name||': end');
913: END IF;
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
925: END IF;
926:
1005: IF OZF_DEBUG_HIGH_ON THEN
1006: OZF_Utility_PVT.debug_message(l_full_name||': start');
1007: END IF;
1008:
1009: x_return_status := FND_API.g_ret_sts_success;
1010:
1011: OE_STANDARD_WF.save_messages_off;
1012:
1013: ------------------------ start -------------------------
1022:
1023:
1024: OE_ORDER_GRP.Process_Order(
1025: p_api_version_number => l_api_version
1026: ,p_init_msg_list => FND_API.g_false
1027: ,p_return_values => FND_API.g_true
1028: ,p_commit => FND_API.g_false
1029: ,x_return_status => l_return_status
1030: ,x_msg_count => l_oe_msg_count
1023:
1024: OE_ORDER_GRP.Process_Order(
1025: p_api_version_number => l_api_version
1026: ,p_init_msg_list => FND_API.g_false
1027: ,p_return_values => FND_API.g_true
1028: ,p_commit => FND_API.g_false
1029: ,x_return_status => l_return_status
1030: ,x_msg_count => l_oe_msg_count
1031: ,x_msg_data => l_oe_msg_data
1024: OE_ORDER_GRP.Process_Order(
1025: p_api_version_number => l_api_version
1026: ,p_init_msg_list => FND_API.g_false
1027: ,p_return_values => FND_API.g_true
1028: ,p_commit => FND_API.g_false
1029: ,x_return_status => l_return_status
1030: ,x_msg_count => l_oe_msg_count
1031: ,x_msg_data => l_oe_msg_data
1032:
1069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1070: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1071: FND_MSG_PUB.add;
1072: END IF;
1073: RAISE FND_API.g_exc_error;
1074:
1075: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1076: FOR i in 1 .. l_oe_msg_count LOOP
1077: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1071: FND_MSG_PUB.add;
1072: END IF;
1073: RAISE FND_API.g_exc_error;
1074:
1075: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1076: FOR i in 1 .. l_oe_msg_count LOOP
1077: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1078: , p_encoded => 'F'
1079: );
1085: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1086: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1087: FND_MSG_PUB.add;
1088: END IF;
1089: RAISE FND_API.g_exc_error;
1090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1091: FOR i in 1 .. l_oe_msg_count LOOP
1092: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1093: , p_encoded => 'F'
1086: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1087: FND_MSG_PUB.add;
1088: END IF;
1089: RAISE FND_API.g_exc_error;
1090: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1091: FOR i in 1 .. l_oe_msg_count LOOP
1092: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1093: , p_encoded => 'F'
1094: );
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1101: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_U_ERR');
1102: FND_MSG_PUB.add;
1103: END IF;
1104: RAISE FND_API.g_exc_unexpected_error;
1105: END IF;
1106:
1107: IF OZF_DEBUG_HIGH_ON THEN
1108: OZF_Utility_PVT.debug_message(l_full_name||': end');
1107: IF OZF_DEBUG_HIGH_ON THEN
1108: OZF_Utility_PVT.debug_message(l_full_name||': end');
1109: END IF;
1110: EXCEPTION
1111: WHEN FND_API.g_exc_error THEN
1112: x_return_status := FND_API.g_ret_sts_error;
1113:
1114: WHEN FND_API.g_exc_unexpected_error THEN
1115: x_return_status := FND_API.g_ret_sts_unexp_error ;
1108: OZF_Utility_PVT.debug_message(l_full_name||': end');
1109: END IF;
1110: EXCEPTION
1111: WHEN FND_API.g_exc_error THEN
1112: x_return_status := FND_API.g_ret_sts_error;
1113:
1114: WHEN FND_API.g_exc_unexpected_error THEN
1115: x_return_status := FND_API.g_ret_sts_unexp_error ;
1116:
1110: EXCEPTION
1111: WHEN FND_API.g_exc_error THEN
1112: x_return_status := FND_API.g_ret_sts_error;
1113:
1114: WHEN FND_API.g_exc_unexpected_error THEN
1115: x_return_status := FND_API.g_ret_sts_unexp_error ;
1116:
1117: WHEN OTHERS THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error ;
1111: WHEN FND_API.g_exc_error THEN
1112: x_return_status := FND_API.g_ret_sts_error;
1113:
1114: WHEN FND_API.g_exc_unexpected_error THEN
1115: x_return_status := FND_API.g_ret_sts_unexp_error ;
1116:
1117: WHEN OTHERS THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error ;
1119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1114: WHEN FND_API.g_exc_unexpected_error THEN
1115: x_return_status := FND_API.g_ret_sts_unexp_error ;
1116:
1117: WHEN OTHERS THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error ;
1119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1121: END IF;
1122:
1133: | 24-OCT-2002 mchang Create.
1134: *=======================================================================*/
1135: PROCEDURE Create_OM_Payment(
1136: p_api_version IN NUMBER
1137: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1138: ,p_commit IN VARCHAR2 := FND_API.g_false
1139: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1140:
1141: ,x_return_status OUT NOCOPY VARCHAR2
1134: *=======================================================================*/
1135: PROCEDURE Create_OM_Payment(
1136: p_api_version IN NUMBER
1137: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1138: ,p_commit IN VARCHAR2 := FND_API.g_false
1139: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1140:
1141: ,x_return_status OUT NOCOPY VARCHAR2
1142: ,x_msg_data OUT NOCOPY VARCHAR2
1135: PROCEDURE Create_OM_Payment(
1136: p_api_version IN NUMBER
1137: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1138: ,p_commit IN VARCHAR2 := FND_API.g_false
1139: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1140:
1141: ,x_return_status OUT NOCOPY VARCHAR2
1142: ,x_msg_data OUT NOCOPY VARCHAR2
1143: ,x_msg_count OUT NOCOPY NUMBER
1160: IF OZF_DEBUG_HIGH_ON THEN
1161: OZF_Utility_PVT.debug_message(l_full_name||': start');
1162: END IF;
1163:
1164: IF FND_API.to_boolean(p_init_msg_list) THEN
1165: FND_MSG_PUB.initialize;
1166: END IF;
1167:
1168:
1165: FND_MSG_PUB.initialize;
1166: END IF;
1167:
1168:
1169: IF NOT FND_API.compatible_api_call(
1170: l_api_version,
1171: p_api_version,
1172: l_api_name,
1173: g_pkg_name
1171: p_api_version,
1172: l_api_name,
1173: g_pkg_name
1174: ) THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1177:
1178: x_return_status := FND_API.g_ret_sts_success;
1179:
1174: ) THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1177:
1178: x_return_status := FND_API.g_ret_sts_success;
1179:
1180: ------------------------ start -------------------------
1181: Query_Claim(
1182: p_claim_id => p_claim_id
1182: p_claim_id => p_claim_id
1183: ,x_claim_rec => l_claim_rec
1184: ,x_return_status => l_return_status
1185: );
1186: IF l_return_status = FND_API.g_ret_sts_error THEN
1187: RAISE FND_API.g_exc_error;
1188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1189: RAISE FND_API.g_exc_unexpected_error;
1190: END IF;
1183: ,x_claim_rec => l_claim_rec
1184: ,x_return_status => l_return_status
1185: );
1186: IF l_return_status = FND_API.g_ret_sts_error THEN
1187: RAISE FND_API.g_exc_error;
1188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1189: RAISE FND_API.g_exc_unexpected_error;
1190: END IF;
1191:
1184: ,x_return_status => l_return_status
1185: );
1186: IF l_return_status = FND_API.g_ret_sts_error THEN
1187: RAISE FND_API.g_exc_error;
1188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1189: RAISE FND_API.g_exc_unexpected_error;
1190: END IF;
1191:
1192: Query_Claim_Line(
1185: );
1186: IF l_return_status = FND_API.g_ret_sts_error THEN
1187: RAISE FND_API.g_exc_error;
1188: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1189: RAISE FND_API.g_exc_unexpected_error;
1190: END IF;
1191:
1192: Query_Claim_Line(
1193: p_claim_id => p_claim_id
1193: p_claim_id => p_claim_id
1194: ,x_claim_line_tbl => l_claim_line_tbl
1195: ,x_return_status => l_return_status
1196: );
1197: IF l_return_status = FND_API.g_ret_sts_error THEN
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1200: RAISE FND_API.g_exc_unexpected_error;
1201: END IF;
1194: ,x_claim_line_tbl => l_claim_line_tbl
1195: ,x_return_status => l_return_status
1196: );
1197: IF l_return_status = FND_API.g_ret_sts_error THEN
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1200: RAISE FND_API.g_exc_unexpected_error;
1201: END IF;
1202:
1195: ,x_return_status => l_return_status
1196: );
1197: IF l_return_status = FND_API.g_ret_sts_error THEN
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1200: RAISE FND_API.g_exc_unexpected_error;
1201: END IF;
1202:
1203: IF l_claim_rec.payment_method = 'RMA' THEN
1196: );
1197: IF l_return_status = FND_API.g_ret_sts_error THEN
1198: RAISE FND_API.g_exc_error;
1199: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1200: RAISE FND_API.g_exc_unexpected_error;
1201: END IF;
1202:
1203: IF l_claim_rec.payment_method = 'RMA' THEN
1204: IF OZF_DEBUG_HIGH_ON THEN
1210: ,x_return_status => l_return_status
1211: ,x_msg_data => x_msg_data
1212: ,x_msg_count => x_msg_count
1213: );
1214: IF l_return_status = FND_API.g_ret_sts_error THEN
1215: RAISE FND_API.g_exc_error;
1216: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1217: RAISE FND_API.g_exc_unexpected_error;
1218: END IF;
1211: ,x_msg_data => x_msg_data
1212: ,x_msg_count => x_msg_count
1213: );
1214: IF l_return_status = FND_API.g_ret_sts_error THEN
1215: RAISE FND_API.g_exc_error;
1216: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1217: RAISE FND_API.g_exc_unexpected_error;
1218: END IF;
1219:
1212: ,x_msg_count => x_msg_count
1213: );
1214: IF l_return_status = FND_API.g_ret_sts_error THEN
1215: RAISE FND_API.g_exc_error;
1216: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1217: RAISE FND_API.g_exc_unexpected_error;
1218: END IF;
1219:
1220: Query_Claim(
1213: );
1214: IF l_return_status = FND_API.g_ret_sts_error THEN
1215: RAISE FND_API.g_exc_error;
1216: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1217: RAISE FND_API.g_exc_unexpected_error;
1218: END IF;
1219:
1220: Query_Claim(
1221: p_claim_id => p_claim_id
1221: p_claim_id => p_claim_id
1222: ,x_claim_rec => l_claim_rec
1223: ,x_return_status => l_return_status
1224: );
1225: IF l_return_status = FND_API.g_ret_sts_error THEN
1226: RAISE FND_API.g_exc_error;
1227: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1228: RAISE FND_API.g_exc_unexpected_error;
1229: END IF;
1222: ,x_claim_rec => l_claim_rec
1223: ,x_return_status => l_return_status
1224: );
1225: IF l_return_status = FND_API.g_ret_sts_error THEN
1226: RAISE FND_API.g_exc_error;
1227: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1228: RAISE FND_API.g_exc_unexpected_error;
1229: END IF;
1230:
1223: ,x_return_status => l_return_status
1224: );
1225: IF l_return_status = FND_API.g_ret_sts_error THEN
1226: RAISE FND_API.g_exc_error;
1227: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1228: RAISE FND_API.g_exc_unexpected_error;
1229: END IF;
1230:
1231: IF OZF_DEBUG_HIGH_ON THEN
1224: );
1225: IF l_return_status = FND_API.g_ret_sts_error THEN
1226: RAISE FND_API.g_exc_error;
1227: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1228: RAISE FND_API.g_exc_unexpected_error;
1229: END IF;
1230:
1231: IF OZF_DEBUG_HIGH_ON THEN
1232: OZF_Utility_PVT.debug_message('Book RMA order for ==> '||l_claim_rec.claim_number);
1238: ,x_return_status => l_return_status
1239: ,x_msg_data => x_msg_data
1240: ,x_msg_count => x_msg_count
1241: );
1242: IF l_return_status = FND_API.g_ret_sts_error THEN
1243: RAISE FND_API.g_exc_error;
1244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1245: RAISE FND_API.g_exc_unexpected_error;
1246: END IF;
1239: ,x_msg_data => x_msg_data
1240: ,x_msg_count => x_msg_count
1241: );
1242: IF l_return_status = FND_API.g_ret_sts_error THEN
1243: RAISE FND_API.g_exc_error;
1244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1245: RAISE FND_API.g_exc_unexpected_error;
1246: END IF;
1247: END IF;
1240: ,x_msg_count => x_msg_count
1241: );
1242: IF l_return_status = FND_API.g_ret_sts_error THEN
1243: RAISE FND_API.g_exc_error;
1244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1245: RAISE FND_API.g_exc_unexpected_error;
1246: END IF;
1247: END IF;
1248:
1241: );
1242: IF l_return_status = FND_API.g_ret_sts_error THEN
1243: RAISE FND_API.g_exc_error;
1244: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1245: RAISE FND_API.g_exc_unexpected_error;
1246: END IF;
1247: END IF;
1248:
1249: -- reset payment status in ozf_claim_lines_all
1261: END;
1262:
1263: ------------------------ finish ------------------------
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:
1270: IF OZF_DEBUG_HIGH_ON THEN
1271: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1272: END IF;
1273: EXCEPTION
1274: WHEN FND_API.g_exc_error THEN
1275: ROLLBACK TO Create_OM_Payment;
1276: x_return_status := FND_API.g_ret_sts_error;
1277: FND_MSG_PUB.count_and_get (
1278: p_encoded => FND_API.g_false
1272: END IF;
1273: EXCEPTION
1274: WHEN FND_API.g_exc_error THEN
1275: ROLLBACK TO Create_OM_Payment;
1276: x_return_status := FND_API.g_ret_sts_error;
1277: FND_MSG_PUB.count_and_get (
1278: p_encoded => FND_API.g_false
1279: ,p_count => x_msg_count
1280: ,p_data => x_msg_data
1274: WHEN FND_API.g_exc_error THEN
1275: ROLLBACK TO Create_OM_Payment;
1276: x_return_status := FND_API.g_ret_sts_error;
1277: FND_MSG_PUB.count_and_get (
1278: p_encoded => FND_API.g_false
1279: ,p_count => x_msg_count
1280: ,p_data => x_msg_data
1281: );
1282:
1279: ,p_count => x_msg_count
1280: ,p_data => x_msg_data
1281: );
1282:
1283: WHEN FND_API.g_exc_unexpected_error THEN
1284: ROLLBACK TO Create_OM_Payment;
1285: x_return_status := FND_API.g_ret_sts_unexp_error ;
1286: FND_MSG_PUB.count_and_get (
1287: p_encoded => FND_API.g_false
1281: );
1282:
1283: WHEN FND_API.g_exc_unexpected_error THEN
1284: ROLLBACK TO Create_OM_Payment;
1285: x_return_status := FND_API.g_ret_sts_unexp_error ;
1286: FND_MSG_PUB.count_and_get (
1287: p_encoded => FND_API.g_false
1288: ,p_count => x_msg_count
1289: ,p_data => x_msg_data
1283: WHEN FND_API.g_exc_unexpected_error THEN
1284: ROLLBACK TO Create_OM_Payment;
1285: x_return_status := FND_API.g_ret_sts_unexp_error ;
1286: FND_MSG_PUB.count_and_get (
1287: p_encoded => FND_API.g_false
1288: ,p_count => x_msg_count
1289: ,p_data => x_msg_data
1290: );
1291:
1290: );
1291:
1292: WHEN OTHERS THEN
1293: ROLLBACK TO Create_OM_Payment;
1294: x_return_status := FND_API.g_ret_sts_unexp_error ;
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1296: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1297: END IF;
1298: FND_MSG_PUB.count_and_get(
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1296: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1297: END IF;
1298: FND_MSG_PUB.count_and_get(
1299: p_encoded => FND_API.g_false
1300: ,p_count => x_msg_count
1301: ,p_data => x_msg_data
1302: );
1303: