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:
651: -- [BEGIN OF BUG 3868264 FIXING]
652: -- Change OM Order Creation call to OE_ORDER_GRP api, as per apps standards.
653: OE_ORDER_GRP.Process_Order(
654: p_api_version_number => l_api_version
655: ,p_init_msg_list => FND_API.g_false
656: ,p_return_values => FND_API.g_true
657: ,p_commit => FND_API.g_false
658: ,p_validation_level => FND_API.g_valid_level_full
659:
652: -- Change OM Order Creation call to OE_ORDER_GRP api, as per apps standards.
653: OE_ORDER_GRP.Process_Order(
654: p_api_version_number => l_api_version
655: ,p_init_msg_list => FND_API.g_false
656: ,p_return_values => FND_API.g_true
657: ,p_commit => FND_API.g_false
658: ,p_validation_level => FND_API.g_valid_level_full
659:
660: ,x_return_status => l_return_status
653: OE_ORDER_GRP.Process_Order(
654: p_api_version_number => l_api_version
655: ,p_init_msg_list => FND_API.g_false
656: ,p_return_values => FND_API.g_true
657: ,p_commit => FND_API.g_false
658: ,p_validation_level => FND_API.g_valid_level_full
659:
660: ,x_return_status => l_return_status
661: ,x_msg_count => l_oe_msg_count
654: p_api_version_number => l_api_version
655: ,p_init_msg_list => FND_API.g_false
656: ,p_return_values => FND_API.g_true
657: ,p_commit => FND_API.g_false
658: ,p_validation_level => FND_API.g_valid_level_full
659:
660: ,x_return_status => l_return_status
661: ,x_msg_count => l_oe_msg_count
662: ,x_msg_data => l_oe_msg_data
706: ,x_Lot_Serial_val_tbl => l_x_Lot_Serial_val_tbl
707:
708: ,x_action_request_tbl => l_x_action_request_tbl
709: );
710: IF l_return_status = FND_API.g_ret_sts_error THEN
711: FOR i in 1 .. l_oe_msg_count LOOP
712: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
713: , p_encoded => 'F'
714: );
715: FND_MESSAGE.SET_NAME('OZF', 'OZF_API_DEBUG_MESSAGE');
716: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
717: FND_MSG_PUB.ADD;
718: END LOOP;
719: RAISE FND_API.g_exc_error;
720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
721: FOR i in 1 .. l_oe_msg_count LOOP
722: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
723: , p_encoded => 'F'
716: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
717: FND_MSG_PUB.ADD;
718: END LOOP;
719: RAISE FND_API.g_exc_error;
720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
721: FOR i in 1 .. l_oe_msg_count LOOP
722: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
723: , p_encoded => 'F'
724: );
725: FND_MESSAGE.SET_NAME('OZF', 'OZF_API_DEBUG_MESSAGE');
726: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
727: FND_MSG_PUB.ADD;
728: END LOOP;
729: RAISE FND_API.g_exc_unexpected_error;
730: END IF;
731:
732: /*------------------------------------------------------*
733: | 4. Query selling price of RMA created by TM
759: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
760: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_MODIFIER_ERR');
761: FND_MSG_PUB.add;
762: END IF;
763: RAISE FND_API.g_exc_error;
764: ELSE
765: l_rma_price_diff := l_rma_unit_price - p_claim_line_tbl(i).rate;
766:
767: l_line_adj_tbl(l_adj_idx) :=OE_ORDER_PUB.g_miss_line_adj_rec;
795: i := l_line_adj_tbl.FIRST;
796: IF i IS NOT NULL THEN
797: OE_ORDER_GRP.Process_Order(
798: p_api_version_number => l_api_version
799: ,p_init_msg_list => FND_API.g_false
800: ,p_return_values => FND_API.g_true
801: ,p_commit => FND_API.g_false
802: ,x_return_status => l_return_status
803: ,x_msg_count => l_oe_msg_count
796: IF i IS NOT NULL THEN
797: OE_ORDER_GRP.Process_Order(
798: p_api_version_number => l_api_version
799: ,p_init_msg_list => FND_API.g_false
800: ,p_return_values => FND_API.g_true
801: ,p_commit => FND_API.g_false
802: ,x_return_status => l_return_status
803: ,x_msg_count => l_oe_msg_count
804: ,x_msg_data => l_oe_msg_data
797: OE_ORDER_GRP.Process_Order(
798: p_api_version_number => l_api_version
799: ,p_init_msg_list => FND_API.g_false
800: ,p_return_values => FND_API.g_true
801: ,p_commit => FND_API.g_false
802: ,x_return_status => l_return_status
803: ,x_msg_count => l_oe_msg_count
804: ,x_msg_data => l_oe_msg_data
805:
848: ,x_Lot_Serial_val_tbl => l_x_Lot_Serial_val_tbl
849:
850: ,x_action_request_tbl => l_x_action_request_tbl
851: );
852: IF l_return_status = FND_API.g_ret_sts_error THEN
853: FOR i in 1 .. l_oe_msg_count LOOP
854: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
855: , p_encoded => 'F'
856: );
857: FND_MESSAGE.SET_NAME('AMS', 'AMS_API_DEBUG_MESSAGE');
858: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
859: FND_MSG_PUB.ADD;
860: END LOOP;
861: RAISE FND_API.g_exc_error;
862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
863: FOR i in 1 .. l_oe_msg_count LOOP
864: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
865: , p_encoded => 'F'
858: FND_MESSAGE.SET_TOKEN('TEXT', l_oe_msg_data);
859: FND_MSG_PUB.ADD;
860: END LOOP;
861: RAISE FND_API.g_exc_error;
862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
863: FOR i in 1 .. l_oe_msg_count LOOP
864: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
865: , p_encoded => 'F'
866: );
871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
872: FND_MESSAGE.set_name('AMS', 'AMS_SETL_OM_CRE_ORD_U_ERR');
873: FND_MSG_PUB.add;
874: END IF;
875: RAISE FND_API.g_exc_unexpected_error;
876: END IF;
877: END IF;
878:
879:
905: IF OZF_DEBUG_HIGH_ON THEN
906: OZF_Utility_PVT.debug_message(l_full_name||': end');
907: END IF;
908: EXCEPTION
909: WHEN FND_API.g_exc_error THEN
910: x_return_status := FND_API.g_ret_sts_error;
911:
912: WHEN FND_API.g_exc_unexpected_error THEN
913: x_return_status := FND_API.g_ret_sts_unexp_error ;
906: OZF_Utility_PVT.debug_message(l_full_name||': end');
907: END IF;
908: EXCEPTION
909: WHEN FND_API.g_exc_error THEN
910: x_return_status := FND_API.g_ret_sts_error;
911:
912: WHEN FND_API.g_exc_unexpected_error THEN
913: x_return_status := FND_API.g_ret_sts_unexp_error ;
914:
908: EXCEPTION
909: WHEN FND_API.g_exc_error THEN
910: x_return_status := FND_API.g_ret_sts_error;
911:
912: WHEN FND_API.g_exc_unexpected_error THEN
913: x_return_status := FND_API.g_ret_sts_unexp_error ;
914:
915: WHEN OTHERS THEN
916: x_return_status := FND_API.g_ret_sts_unexp_error ;
909: WHEN FND_API.g_exc_error THEN
910: x_return_status := FND_API.g_ret_sts_error;
911:
912: WHEN FND_API.g_exc_unexpected_error THEN
913: x_return_status := FND_API.g_ret_sts_unexp_error ;
914:
915: WHEN OTHERS THEN
916: x_return_status := FND_API.g_ret_sts_unexp_error ;
917: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
912: WHEN FND_API.g_exc_unexpected_error THEN
913: x_return_status := FND_API.g_ret_sts_unexp_error ;
914:
915: WHEN OTHERS THEN
916: x_return_status := FND_API.g_ret_sts_unexp_error ;
917: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
918: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
919: END IF;
920:
999: IF OZF_DEBUG_HIGH_ON THEN
1000: OZF_Utility_PVT.debug_message(l_full_name||': start');
1001: END IF;
1002:
1003: x_return_status := FND_API.g_ret_sts_success;
1004:
1005: OE_STANDARD_WF.save_messages_off;
1006:
1007: ------------------------ start -------------------------
1016:
1017:
1018: OE_ORDER_GRP.Process_Order(
1019: p_api_version_number => l_api_version
1020: ,p_init_msg_list => FND_API.g_false
1021: ,p_return_values => FND_API.g_true
1022: ,p_commit => FND_API.g_false
1023: ,x_return_status => l_return_status
1024: ,x_msg_count => l_oe_msg_count
1017:
1018: OE_ORDER_GRP.Process_Order(
1019: p_api_version_number => l_api_version
1020: ,p_init_msg_list => FND_API.g_false
1021: ,p_return_values => FND_API.g_true
1022: ,p_commit => FND_API.g_false
1023: ,x_return_status => l_return_status
1024: ,x_msg_count => l_oe_msg_count
1025: ,x_msg_data => l_oe_msg_data
1018: OE_ORDER_GRP.Process_Order(
1019: p_api_version_number => l_api_version
1020: ,p_init_msg_list => FND_API.g_false
1021: ,p_return_values => FND_API.g_true
1022: ,p_commit => FND_API.g_false
1023: ,x_return_status => l_return_status
1024: ,x_msg_count => l_oe_msg_count
1025: ,x_msg_data => l_oe_msg_data
1026:
1063: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1064: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1065: FND_MSG_PUB.add;
1066: END IF;
1067: RAISE FND_API.g_exc_error;
1068:
1069: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1070: FOR i in 1 .. l_oe_msg_count LOOP
1071: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1065: FND_MSG_PUB.add;
1066: END IF;
1067: RAISE FND_API.g_exc_error;
1068:
1069: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1070: FOR i in 1 .. l_oe_msg_count LOOP
1071: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1072: , p_encoded => 'F'
1073: );
1079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1080: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1081: FND_MSG_PUB.add;
1082: END IF;
1083: RAISE FND_API.g_exc_error;
1084: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1085: FOR i in 1 .. l_oe_msg_count LOOP
1086: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1087: , p_encoded => 'F'
1080: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_E_ERR');
1081: FND_MSG_PUB.add;
1082: END IF;
1083: RAISE FND_API.g_exc_error;
1084: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1085: FOR i in 1 .. l_oe_msg_count LOOP
1086: l_oe_msg_data := OE_MSG_PUB.get( p_msg_index => i
1087: , p_encoded => 'F'
1088: );
1094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1095: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OM_BOK_ORD_U_ERR');
1096: FND_MSG_PUB.add;
1097: END IF;
1098: RAISE FND_API.g_exc_unexpected_error;
1099: END IF;
1100:
1101: IF OZF_DEBUG_HIGH_ON THEN
1102: OZF_Utility_PVT.debug_message(l_full_name||': end');
1101: IF OZF_DEBUG_HIGH_ON THEN
1102: OZF_Utility_PVT.debug_message(l_full_name||': end');
1103: END IF;
1104: EXCEPTION
1105: WHEN FND_API.g_exc_error THEN
1106: x_return_status := FND_API.g_ret_sts_error;
1107:
1108: WHEN FND_API.g_exc_unexpected_error THEN
1109: x_return_status := FND_API.g_ret_sts_unexp_error ;
1102: OZF_Utility_PVT.debug_message(l_full_name||': end');
1103: END IF;
1104: EXCEPTION
1105: WHEN FND_API.g_exc_error THEN
1106: x_return_status := FND_API.g_ret_sts_error;
1107:
1108: WHEN FND_API.g_exc_unexpected_error THEN
1109: x_return_status := FND_API.g_ret_sts_unexp_error ;
1110:
1104: EXCEPTION
1105: WHEN FND_API.g_exc_error THEN
1106: x_return_status := FND_API.g_ret_sts_error;
1107:
1108: WHEN FND_API.g_exc_unexpected_error THEN
1109: x_return_status := FND_API.g_ret_sts_unexp_error ;
1110:
1111: WHEN OTHERS THEN
1112: x_return_status := FND_API.g_ret_sts_unexp_error ;
1105: WHEN FND_API.g_exc_error THEN
1106: x_return_status := FND_API.g_ret_sts_error;
1107:
1108: WHEN FND_API.g_exc_unexpected_error THEN
1109: x_return_status := FND_API.g_ret_sts_unexp_error ;
1110:
1111: WHEN OTHERS THEN
1112: x_return_status := FND_API.g_ret_sts_unexp_error ;
1113: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1108: WHEN FND_API.g_exc_unexpected_error THEN
1109: x_return_status := FND_API.g_ret_sts_unexp_error ;
1110:
1111: WHEN OTHERS THEN
1112: x_return_status := FND_API.g_ret_sts_unexp_error ;
1113: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1114: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1115: END IF;
1116:
1127: | 24-OCT-2002 mchang Create.
1128: *=======================================================================*/
1129: PROCEDURE Create_OM_Payment(
1130: p_api_version IN NUMBER
1131: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1132: ,p_commit IN VARCHAR2 := FND_API.g_false
1133: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1134:
1135: ,x_return_status OUT NOCOPY VARCHAR2
1128: *=======================================================================*/
1129: PROCEDURE Create_OM_Payment(
1130: p_api_version IN NUMBER
1131: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1132: ,p_commit IN VARCHAR2 := FND_API.g_false
1133: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1134:
1135: ,x_return_status OUT NOCOPY VARCHAR2
1136: ,x_msg_data OUT NOCOPY VARCHAR2
1129: PROCEDURE Create_OM_Payment(
1130: p_api_version IN NUMBER
1131: ,p_init_msg_list IN VARCHAR2 := FND_API.g_false
1132: ,p_commit IN VARCHAR2 := FND_API.g_false
1133: ,p_validation_level IN NUMBER := FND_API.g_valid_level_full
1134:
1135: ,x_return_status OUT NOCOPY VARCHAR2
1136: ,x_msg_data OUT NOCOPY VARCHAR2
1137: ,x_msg_count OUT NOCOPY NUMBER
1154: IF OZF_DEBUG_HIGH_ON THEN
1155: OZF_Utility_PVT.debug_message(l_full_name||': start');
1156: END IF;
1157:
1158: IF FND_API.to_boolean(p_init_msg_list) THEN
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162:
1159: FND_MSG_PUB.initialize;
1160: END IF;
1161:
1162:
1163: IF NOT FND_API.compatible_api_call(
1164: l_api_version,
1165: p_api_version,
1166: l_api_name,
1167: g_pkg_name
1165: p_api_version,
1166: l_api_name,
1167: g_pkg_name
1168: ) THEN
1169: RAISE FND_API.g_exc_unexpected_error;
1170: END IF;
1171:
1172: x_return_status := FND_API.g_ret_sts_success;
1173:
1168: ) THEN
1169: RAISE FND_API.g_exc_unexpected_error;
1170: END IF;
1171:
1172: x_return_status := FND_API.g_ret_sts_success;
1173:
1174: ------------------------ start -------------------------
1175: Query_Claim(
1176: p_claim_id => p_claim_id
1176: p_claim_id => p_claim_id
1177: ,x_claim_rec => l_claim_rec
1178: ,x_return_status => l_return_status
1179: );
1180: IF l_return_status = FND_API.g_ret_sts_error THEN
1181: RAISE FND_API.g_exc_error;
1182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1183: RAISE FND_API.g_exc_unexpected_error;
1184: END IF;
1177: ,x_claim_rec => l_claim_rec
1178: ,x_return_status => l_return_status
1179: );
1180: IF l_return_status = FND_API.g_ret_sts_error THEN
1181: RAISE FND_API.g_exc_error;
1182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1183: RAISE FND_API.g_exc_unexpected_error;
1184: END IF;
1185:
1178: ,x_return_status => l_return_status
1179: );
1180: IF l_return_status = FND_API.g_ret_sts_error THEN
1181: RAISE FND_API.g_exc_error;
1182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1183: RAISE FND_API.g_exc_unexpected_error;
1184: END IF;
1185:
1186: Query_Claim_Line(
1179: );
1180: IF l_return_status = FND_API.g_ret_sts_error THEN
1181: RAISE FND_API.g_exc_error;
1182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1183: RAISE FND_API.g_exc_unexpected_error;
1184: END IF;
1185:
1186: Query_Claim_Line(
1187: p_claim_id => p_claim_id
1187: p_claim_id => p_claim_id
1188: ,x_claim_line_tbl => l_claim_line_tbl
1189: ,x_return_status => l_return_status
1190: );
1191: IF l_return_status = FND_API.g_ret_sts_error THEN
1192: RAISE FND_API.g_exc_error;
1193: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1194: RAISE FND_API.g_exc_unexpected_error;
1195: END IF;
1188: ,x_claim_line_tbl => l_claim_line_tbl
1189: ,x_return_status => l_return_status
1190: );
1191: IF l_return_status = FND_API.g_ret_sts_error THEN
1192: RAISE FND_API.g_exc_error;
1193: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1194: RAISE FND_API.g_exc_unexpected_error;
1195: END IF;
1196:
1189: ,x_return_status => l_return_status
1190: );
1191: IF l_return_status = FND_API.g_ret_sts_error THEN
1192: RAISE FND_API.g_exc_error;
1193: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1194: RAISE FND_API.g_exc_unexpected_error;
1195: END IF;
1196:
1197: IF l_claim_rec.payment_method = 'RMA' THEN
1190: );
1191: IF l_return_status = FND_API.g_ret_sts_error THEN
1192: RAISE FND_API.g_exc_error;
1193: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1194: RAISE FND_API.g_exc_unexpected_error;
1195: END IF;
1196:
1197: IF l_claim_rec.payment_method = 'RMA' THEN
1198: IF OZF_DEBUG_HIGH_ON THEN
1204: ,x_return_status => l_return_status
1205: ,x_msg_data => x_msg_data
1206: ,x_msg_count => x_msg_count
1207: );
1208: IF l_return_status = FND_API.g_ret_sts_error THEN
1209: RAISE FND_API.g_exc_error;
1210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1211: RAISE FND_API.g_exc_unexpected_error;
1212: END IF;
1205: ,x_msg_data => x_msg_data
1206: ,x_msg_count => x_msg_count
1207: );
1208: IF l_return_status = FND_API.g_ret_sts_error THEN
1209: RAISE FND_API.g_exc_error;
1210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1211: RAISE FND_API.g_exc_unexpected_error;
1212: END IF;
1213:
1206: ,x_msg_count => x_msg_count
1207: );
1208: IF l_return_status = FND_API.g_ret_sts_error THEN
1209: RAISE FND_API.g_exc_error;
1210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1211: RAISE FND_API.g_exc_unexpected_error;
1212: END IF;
1213:
1214: Query_Claim(
1207: );
1208: IF l_return_status = FND_API.g_ret_sts_error THEN
1209: RAISE FND_API.g_exc_error;
1210: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1211: RAISE FND_API.g_exc_unexpected_error;
1212: END IF;
1213:
1214: Query_Claim(
1215: p_claim_id => p_claim_id
1215: p_claim_id => p_claim_id
1216: ,x_claim_rec => l_claim_rec
1217: ,x_return_status => l_return_status
1218: );
1219: IF l_return_status = FND_API.g_ret_sts_error THEN
1220: RAISE FND_API.g_exc_error;
1221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: END IF;
1216: ,x_claim_rec => l_claim_rec
1217: ,x_return_status => l_return_status
1218: );
1219: IF l_return_status = FND_API.g_ret_sts_error THEN
1220: RAISE FND_API.g_exc_error;
1221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: END IF;
1224:
1217: ,x_return_status => l_return_status
1218: );
1219: IF l_return_status = FND_API.g_ret_sts_error THEN
1220: RAISE FND_API.g_exc_error;
1221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: END IF;
1224:
1225: IF OZF_DEBUG_HIGH_ON THEN
1218: );
1219: IF l_return_status = FND_API.g_ret_sts_error THEN
1220: RAISE FND_API.g_exc_error;
1221: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1222: RAISE FND_API.g_exc_unexpected_error;
1223: END IF;
1224:
1225: IF OZF_DEBUG_HIGH_ON THEN
1226: OZF_Utility_PVT.debug_message('Book RMA order for ==> '||l_claim_rec.claim_number);
1232: ,x_return_status => l_return_status
1233: ,x_msg_data => x_msg_data
1234: ,x_msg_count => x_msg_count
1235: );
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_unexpected_error;
1240: END IF;
1233: ,x_msg_data => x_msg_data
1234: ,x_msg_count => x_msg_count
1235: );
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_unexpected_error;
1240: END IF;
1241: END IF;
1234: ,x_msg_count => x_msg_count
1235: );
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_unexpected_error;
1240: END IF;
1241: END IF;
1242:
1235: );
1236: IF l_return_status = FND_API.g_ret_sts_error THEN
1237: RAISE FND_API.g_exc_error;
1238: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1239: RAISE FND_API.g_exc_unexpected_error;
1240: END IF;
1241: END IF;
1242:
1243: -- reset payment status in ozf_claim_lines_all
1255: END;
1256:
1257: ------------------------ finish ------------------------
1258: FND_MSG_PUB.count_and_get(
1259: p_encoded => FND_API.g_false,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263:
1264: IF OZF_DEBUG_HIGH_ON THEN
1265: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1266: END IF;
1267: EXCEPTION
1268: WHEN FND_API.g_exc_error THEN
1269: ROLLBACK TO Create_OM_Payment;
1270: x_return_status := FND_API.g_ret_sts_error;
1271: FND_MSG_PUB.count_and_get (
1272: p_encoded => FND_API.g_false
1266: END IF;
1267: EXCEPTION
1268: WHEN FND_API.g_exc_error THEN
1269: ROLLBACK TO Create_OM_Payment;
1270: x_return_status := FND_API.g_ret_sts_error;
1271: FND_MSG_PUB.count_and_get (
1272: p_encoded => FND_API.g_false
1273: ,p_count => x_msg_count
1274: ,p_data => x_msg_data
1268: WHEN FND_API.g_exc_error THEN
1269: ROLLBACK TO Create_OM_Payment;
1270: x_return_status := FND_API.g_ret_sts_error;
1271: FND_MSG_PUB.count_and_get (
1272: p_encoded => FND_API.g_false
1273: ,p_count => x_msg_count
1274: ,p_data => x_msg_data
1275: );
1276:
1273: ,p_count => x_msg_count
1274: ,p_data => x_msg_data
1275: );
1276:
1277: WHEN FND_API.g_exc_unexpected_error THEN
1278: ROLLBACK TO Create_OM_Payment;
1279: x_return_status := FND_API.g_ret_sts_unexp_error ;
1280: FND_MSG_PUB.count_and_get (
1281: p_encoded => FND_API.g_false
1275: );
1276:
1277: WHEN FND_API.g_exc_unexpected_error THEN
1278: ROLLBACK TO Create_OM_Payment;
1279: x_return_status := FND_API.g_ret_sts_unexp_error ;
1280: FND_MSG_PUB.count_and_get (
1281: p_encoded => FND_API.g_false
1282: ,p_count => x_msg_count
1283: ,p_data => x_msg_data
1277: WHEN FND_API.g_exc_unexpected_error THEN
1278: ROLLBACK TO Create_OM_Payment;
1279: x_return_status := FND_API.g_ret_sts_unexp_error ;
1280: FND_MSG_PUB.count_and_get (
1281: p_encoded => FND_API.g_false
1282: ,p_count => x_msg_count
1283: ,p_data => x_msg_data
1284: );
1285:
1284: );
1285:
1286: WHEN OTHERS THEN
1287: ROLLBACK TO Create_OM_Payment;
1288: x_return_status := FND_API.g_ret_sts_unexp_error ;
1289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1290: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1291: END IF;
1292: FND_MSG_PUB.count_and_get(
1289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1290: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1291: END IF;
1292: FND_MSG_PUB.count_and_get(
1293: p_encoded => FND_API.g_false
1294: ,p_count => x_msg_count
1295: ,p_data => x_msg_data
1296: );
1297: