151: WHEN OTHERS THEN
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add( 'FROM Total_Invoiced_Amount OTHERS' ) ;
154: END IF;
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156:
157: END Total_Invoiced_Amount;
158:
159: /*--------------------------------------------------------------------------
283: IF l_debug_level > 0 THEN
284: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_RECEIPT.' , 1 ) ;
285: END IF;
286: x_result_out := 'PASS' ;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288:
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'OEXVPPYB: CALLING AR CREATE RECEIPT API ' , 3 ) ;
291: END IF;
351:
352: p_bank_account_id := null;
353:
354: IF p_trxn_extension_id IS NOT NULL THEN
355: l_call_payment_processor := FND_API.G_TRUE;
356: ELSE
357: l_call_payment_processor := FND_API.G_FALSE;
358: END IF;
359:
353:
354: IF p_trxn_extension_id IS NOT NULL THEN
355: l_call_payment_processor := FND_API.G_TRUE;
356: ELSE
357: l_call_payment_processor := FND_API.G_FALSE;
358: END IF;
359:
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
367: END IF;
368:
369: AR_PREPAYMENTS_PUB.create_prepayment(
370: p_api_version => 1.0,
371: p_commit => FND_API.G_FALSE,
372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
373: x_return_status => x_return_status,
374: x_msg_count => x_msg_count,
375: x_msg_data => x_msg_data,
368:
369: AR_PREPAYMENTS_PUB.create_prepayment(
370: p_api_version => 1.0,
371: p_commit => FND_API.G_FALSE,
372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
373: x_return_status => x_return_status,
374: x_msg_count => x_msg_count,
375: x_msg_data => x_msg_data,
376: p_init_msg_list => FND_API.G_TRUE,
372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
373: x_return_status => x_return_status,
374: x_msg_count => x_msg_count,
375: x_msg_data => x_msg_data,
376: p_init_msg_list => FND_API.G_TRUE,
377: p_receipt_number => p_receipt_number, -- bug 4724845
378: p_amount => p_amount, -- pending_amount,
379: p_receipt_method_id => p_receipt_method_id,
380: p_customer_id => p_header_rec.sold_to_org_id,
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: IF x_msg_count = 1 THEN
418: IF l_debug_level > 0 THEN
419: oe_debug_pub.add('Error message after calling Create_Prepayment API: '||x_msg_data , 3 ) ;
420: END IF;
421: oe_msg_pub.add_text(p_message_text => x_msg_data);
422: ELSIF ( FND_MSG_PUB.Count_Msg > 0 ) THEN
423: arp_util.enable_debug;
424: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
425: -- l_msg_text := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
426: l_msg_text := FND_MSG_PUB.Get(i,'F');
427: IF l_debug_level > 0 THEN
428: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_TEXT , 3 );
429: END IF;
442:
443: EXCEPTION
444: WHEN OTHERS THEN
445: x_result_out := 'FAIL';
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447: IF l_debug_level > 0 THEN
448: oe_debug_pub.add('Unexpected error in Create_Prepayment API: '||sqlerrm , 3 ) ;
449: END IF;
450:
495: END IF;
496:
497: AR_PREPAYMENTS.refund_prepayments(
498: p_api_version => 1.0,
499: p_commit => FND_API.G_FALSE,
500: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
501: x_return_status => l_return_status,
502: x_msg_count => x_msg_count,
503: x_msg_data => x_msg_data,
496:
497: AR_PREPAYMENTS.refund_prepayments(
498: p_api_version => 1.0,
499: p_commit => FND_API.G_FALSE,
500: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
501: x_return_status => l_return_status,
502: x_msg_count => x_msg_count,
503: x_msg_data => x_msg_data,
504: p_init_msg_list => FND_API.G_TRUE,
500: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
501: x_return_status => l_return_status,
502: x_msg_count => x_msg_count,
503: x_msg_data => x_msg_data,
504: p_init_msg_list => FND_API.G_TRUE,
505: p_prepay_application_id => l_prepay_application_id, -- OUT NOCOPY /* file.sql.39 change */
506: p_number_of_refund_receipts => l_number_of_refund_receipts,
507: -- p_receipt_number => l_receipt_number,
508: p_receivables_trx_id => null,
517: END IF;
518:
519: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
520:
521: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
522: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_SUCCESS');
523: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_amount * -1, l_format_mask));
524: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
525: oe_msg_pub.add;
540: END IF;
541:
542: EXCEPTION WHEN OTHERS THEN
543: x_result_out := 'FAIL';
544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
545:
546: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
547: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Refund_Request');
548: END IF;
617:
618: IF l_debug_level > 0 THEN
619: oe_debug_pub.add( 'OEXVPPYB: ENTERING PROCESS PREPAYMENT ORDER' , 1 ) ;
620: END IF;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: -- calculate pending amount to be processed
624: l_pending_amount := OE_PrePayment_PVT.Calculate_Pending_Amount(l_header_rec);
625:
633: , p_msg_data => l_msg_data
634: , p_return_status => l_return_status
635: );
636:
637: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END IF;
634: , p_return_status => l_return_status
635: );
636:
637: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END IF;
642: RETURN;
635: );
636:
637: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END IF;
642: RETURN;
643: END IF;
636:
637: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
638: RAISE FND_API.G_EXC_ERROR;
639: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
641: END IF;
642: RETURN;
643: END IF;
644:
721: , p_msg_data => l_msg_data
722: , p_return_status => l_return_status
723: );
724:
725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
726: RAISE FND_API.G_EXC_ERROR;
727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
722: , p_return_status => l_return_status
723: );
724:
725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
726: RAISE FND_API.G_EXC_ERROR;
727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730: END IF;
723: );
724:
725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
726: RAISE FND_API.G_EXC_ERROR;
727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730: END IF;
731:
724:
725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
726: RAISE FND_API.G_EXC_ERROR;
727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730: END IF;
731:
732: ELSE
805: oe_debug_pub.add( 'OEXVPPYB: THE PAYMENT METHOD ID IS INVALID: '||L_PAY_METHOD_ID , 3 ) ;
806: END IF;
807: FND_MESSAGE.SET_NAME('ONT','OE_VPM_NO_PAY_METHOD');
808: OE_MSG_PUB.ADD;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: RETURN;
811: END IF;
812:
813: IF l_debug_level > 0 THEN
835: , p_msg_data => l_msg_data
836: , p_return_status => l_return_status
837: );
838:
839: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
840:
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
843: END IF;
840:
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
843: END IF;
844: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
843: END IF;
844: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849:
842: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
843: END IF;
844: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849:
850: ELSIF l_epayment_failure_hold = 'Y' THEN
843: END IF;
844: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
847: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
848: END IF;
849:
850: ELSIF l_epayment_failure_hold = 'Y' THEN
851: Apply_Prepayment_Hold ( p_header_id => l_header_rec.header_id
853: , p_msg_count => l_msg_count
854: , p_msg_data => l_msg_data
855: , p_return_status => l_return_status
856: );
857: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
858: RAISE FND_API.G_EXC_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
854: , p_msg_data => l_msg_data
855: , p_return_status => l_return_status
856: );
857: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
858: RAISE FND_API.G_EXC_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862: ELSE
855: , p_return_status => l_return_status
856: );
857: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
858: RAISE FND_API.G_EXC_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862: ELSE
863: -- otherwise, call AR API to either create receipt or request refund.
856: );
857: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
858: RAISE FND_API.G_EXC_ERROR;
859: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
861: END IF;
862: ELSE
863: -- otherwise, call AR API to either create receipt or request refund.
864: -- check the installation status of IPayment
916: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
917: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
918: END IF;
919:
920: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
921: -- If no error occurred in processing the payment, release any existing
922: -- prepayment holds.
923: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
924:
934: , p_msg_data => l_msg_data
935: , p_return_status => l_return_status
936: );
937:
938: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
939: RAISE FND_API.G_EXC_ERROR;
940: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: END IF;
935: , p_return_status => l_return_status
936: );
937:
938: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
939: RAISE FND_API.G_EXC_ERROR;
940: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: END IF;
943:
936: );
937:
938: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
939: RAISE FND_API.G_EXC_ERROR;
940: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: END IF;
943:
944: -- to either insert or update the prepaid amount to oe_payments.
937:
938: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
939: RAISE FND_API.G_EXC_ERROR;
940: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
941: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
942: END IF;
943:
944: -- to either insert or update the prepaid amount to oe_payments.
945: BEGIN
993: END LOOP;
994: CLOSE line_csr;
995:
996: ELSE
997: -- if l_return_status is not FND_API.G_RET_STS_SUCCESS
998: -- decode the error code return from AR, and apply the necessary holds.
999: -- check for the existing holds, and apply the holds if non-existance.
1000: -- what is the seed id for ppp hold?
1001:
1028: , p_msg_data => l_msg_data
1029: , p_return_status => l_return_status
1030: );
1031:
1032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1029: , p_return_status => l_return_status
1030: );
1031:
1032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: ELSE
1030: );
1031:
1032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: ELSE
1038: -- for any other payment_response_error_code, need to apply epayment
1031:
1032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1033: RAISE FND_API.G_EXC_ERROR;
1034: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1036: END IF;
1037: ELSE
1038: -- for any other payment_response_error_code, need to apply epayment
1039: -- failure hold (seeded hold id is 14).
1043: , p_msg_data => l_msg_data
1044: , p_return_status => l_return_status
1045: );
1046:
1047: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1044: , p_return_status => l_return_status
1045: );
1046:
1047: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1045: );
1046:
1047: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053:
1046:
1047: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1048: RAISE FND_API.G_EXC_ERROR;
1049: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: END IF;
1052:
1053:
1054: END IF; -- end of checking l_payment_response_error_code.
1084: IF l_debug_level > 0 THEN
1085: oe_debug_pub.add( 'OEXVPPYB: RETURN STATUS AFTER CALLING REFUND IS: '||L_RETURN_STATUS , 1 ) ;
1086: END IF;
1087:
1088: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1089: IF l_debug_level > 0 THEN
1090: oe_debug_pub.add( 'OEXVPPYB: RELEASING PREPAYMENT HOLD AFTER REFUND PROCESS.' , 3 ) ;
1091: END IF;
1092: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
1094: , p_msg_data => l_msg_data
1095: , p_return_status => l_return_status
1096: );
1097:
1098: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1099: RAISE FND_API.G_EXC_ERROR;
1100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1095: , p_return_status => l_return_status
1096: );
1097:
1098: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1099: RAISE FND_API.G_EXC_ERROR;
1100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1103:
1096: );
1097:
1098: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1099: RAISE FND_API.G_EXC_ERROR;
1100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1103:
1104: UPDATE oe_payments
1097:
1098: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1099: RAISE FND_API.G_EXC_ERROR;
1100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1102: END IF;
1103:
1104: UPDATE oe_payments
1105: SET prepaid_amount = nvl(prepaid_amount,0) + l_pending_amount
1118: EXIT WHEN line_csr%NOTFOUND;
1119: END LOOP;
1120: CLOSE line_csr;
1121:
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1119: END LOOP;
1120: CLOSE line_csr;
1121:
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1127:
1120: CLOSE line_csr;
1121:
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1127:
1128: END IF;
1121:
1122: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1126: END IF;
1127:
1128: END IF;
1129: END IF;
1135: END IF;
1136:
1137: EXCEPTION
1138:
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: OE_MSG_PUB.Count_And_Get
1142: ( p_count => l_msg_count,
1143: p_data => l_msg_data
1136:
1137: EXCEPTION
1138:
1139: WHEN FND_API.G_EXC_ERROR THEN
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: OE_MSG_PUB.Count_And_Get
1142: ( p_count => l_msg_count,
1143: p_data => l_msg_data
1144: );
1142: ( p_count => l_msg_count,
1143: p_data => l_msg_data
1144: );
1145:
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: OE_MSG_PUB.Count_And_Get
1149: ( p_count => l_msg_count,
1150: p_data => l_msg_data
1143: p_data => l_msg_data
1144: );
1145:
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1148: OE_MSG_PUB.Count_And_Get
1149: ( p_count => l_msg_count,
1150: p_data => l_msg_data
1151: );
1150: p_data => l_msg_data
1151: );
1152:
1153: WHEN OTHERS THEN
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1156: THEN
1157: OE_MSG_PUB.Add_Exc_Msg
1158: ( G_PKG_NAME
1201: , x_return_status => l_return_status
1202: );
1203:
1204: -- Check the Result
1205: IF l_hold_result = FND_API.G_TRUE THEN
1206: p_hold_exists := 'Y';
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 13 EXISTS ON ORDER' , 3 ) ;
1209: END IF;
1219: , x_msg_count => l_msg_count
1220: , x_msg_data => l_msg_data
1221: , x_return_status => l_return_status
1222: );
1223: IF l_hold_result = FND_API.G_TRUE THEN
1224: p_hold_exists := 'Y';
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 14 EXISTS ON ORDER' , 3 ) ;
1227: END IF;
1237: , x_msg_count => l_msg_count
1238: , x_msg_data => l_msg_data
1239: , x_return_status => l_return_status
1240: );
1241: IF l_hold_result = FND_API.G_TRUE THEN
1242: p_hold_exists := 'Y';
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 15 EXISTS ON ORDER' , 3 ) ;
1245: END IF;
1293: --
1294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1295: --
1296: BEGIN
1297: p_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1301: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1333: END IF;
1334:
1335: OE_Holds_PUB.Apply_Holds
1336: ( p_api_version => 1.0
1337: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
1338: , p_hold_source_rec => l_hold_source_rec
1339: , x_msg_count => l_msg_count
1340: , x_msg_data => l_msg_data
1341: , x_return_status => l_return_status
1340: , x_msg_data => l_msg_data
1341: , x_return_status => l_return_status
1342: );
1343:
1344: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1345: IF p_hold_id = 13 THEN
1346: FND_MESSAGE.SET_NAME('ONT','ONT_PPP_HOLD_APPLIED');
1347: OE_MSG_PUB.ADD;
1348: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'OEXVPPYB: payment server failure hold has been applied on order.', 3 ) ;
1362: END IF;
1363: END IF;
1364:
1365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1362: END IF;
1363: END IF;
1364:
1365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1363: END IF;
1364:
1365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: IF l_debug_level > 0 THEN
1364:
1365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1366: RAISE FND_API.G_EXC_ERROR;
1367: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: IF l_debug_level > 0 THEN
1372: oe_debug_pub.add( 'OEXVPPYB: APPLIED PREPAYMENT HOLD ON HEADER ID:' || P_HEADER_ID , 3 ) ;
1373: END IF;
1374:
1375: EXCEPTION
1376:
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: p_return_status := FND_API.G_RET_STS_ERROR;
1379: OE_MSG_PUB.Count_And_Get
1380: ( p_count => l_msg_count,
1381: p_data => l_msg_data
1374:
1375: EXCEPTION
1376:
1377: WHEN FND_API.G_EXC_ERROR THEN
1378: p_return_status := FND_API.G_RET_STS_ERROR;
1379: OE_MSG_PUB.Count_And_Get
1380: ( p_count => l_msg_count,
1381: p_data => l_msg_data
1382: );
1380: ( p_count => l_msg_count,
1381: p_data => l_msg_data
1382: );
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1386: OE_MSG_PUB.Count_And_Get
1387: ( p_count => l_msg_count,
1388: p_data => l_msg_data
1381: p_data => l_msg_data
1382: );
1383:
1384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1386: OE_MSG_PUB.Count_And_Get
1387: ( p_count => l_msg_count,
1388: p_data => l_msg_data
1389: );
1388: p_data => l_msg_data
1389: );
1390:
1391: WHEN OTHERS THEN
1392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1393: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1394: THEN
1395: FND_MSG_PUB.Add_Exc_Msg
1396: ( G_PKG_NAME
1431: --
1432: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1433: --
1434: BEGIN
1435: p_return_status := FND_API.G_RET_STS_SUCCESS;
1436:
1437: IF l_debug_level > 0 THEN
1438: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PREPAYMENT HOLD' , 3 ) ;
1439: END IF;
1475: , x_msg_data => l_msg_data
1476: , x_return_status => l_return_status
1477: );
1478:
1479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1476: , x_return_status => l_return_status
1477: );
1478:
1479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1484: --bug3599715 start
1477: );
1478:
1479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1484: --bug3599715 start
1485: fnd_message.Set_Name('ONT', 'ONT_PPP_HOLD_RELEASED');
1478:
1479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1480: RAISE FND_API.G_EXC_ERROR;
1481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1483: END IF;
1484: --bug3599715 start
1485: fnd_message.Set_Name('ONT', 'ONT_PPP_HOLD_RELEASED');
1486: oe_msg_pub.add;
1519: , x_msg_data => l_msg_data
1520: , x_return_status => l_return_status
1521: );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: END IF;
1520: , x_return_status => l_return_status
1521: );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: END IF;
1528: fnd_message.Set_Name('ONT', 'ONT_PMNT_FAIL_HOLD_RELEASED');
1521: );
1522:
1523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: END IF;
1528: fnd_message.Set_Name('ONT', 'ONT_PMNT_FAIL_HOLD_RELEASED');
1529: oe_msg_pub.add;
1522:
1523: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: END IF;
1528: fnd_message.Set_Name('ONT', 'ONT_PMNT_FAIL_HOLD_RELEASED');
1529: oe_msg_pub.add;
1530: END IF;
1561: , x_msg_data => l_msg_data
1562: , x_return_status => l_return_status
1563: );
1564:
1565: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569: END IF;
1562: , x_return_status => l_return_status
1563: );
1564:
1565: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569: END IF;
1570: fnd_message.Set_Name('ONT', 'ONT_PMNT_SERVER_HOLD_RELEASED');
1563: );
1564:
1565: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569: END IF;
1570: fnd_message.Set_Name('ONT', 'ONT_PMNT_SERVER_HOLD_RELEASED');
1571: oe_msg_pub.add;
1564:
1565: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1566: RAISE FND_API.G_EXC_ERROR;
1567: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1569: END IF;
1570: fnd_message.Set_Name('ONT', 'ONT_PMNT_SERVER_HOLD_RELEASED');
1571: oe_msg_pub.add;
1572: END IF;
1572: END IF;
1573:
1574: EXCEPTION
1575:
1576: WHEN FND_API.G_EXC_ERROR THEN
1577: p_return_status := FND_API.G_RET_STS_ERROR;
1578: OE_MSG_PUB.Count_And_Get
1579: ( p_count => l_msg_count,
1580: p_data => l_msg_data
1573:
1574: EXCEPTION
1575:
1576: WHEN FND_API.G_EXC_ERROR THEN
1577: p_return_status := FND_API.G_RET_STS_ERROR;
1578: OE_MSG_PUB.Count_And_Get
1579: ( p_count => l_msg_count,
1580: p_data => l_msg_data
1581: );
1579: ( p_count => l_msg_count,
1580: p_data => l_msg_data
1581: );
1582:
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1585: OE_MSG_PUB.Count_And_Get
1586: ( p_count => l_msg_count,
1587: p_data => l_msg_data
1580: p_data => l_msg_data
1581: );
1582:
1583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1584: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1585: OE_MSG_PUB.Count_And_Get
1586: ( p_count => l_msg_count,
1587: p_data => l_msg_data
1588: );
1587: p_data => l_msg_data
1588: );
1589:
1590: WHEN OTHERS THEN
1591: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1592: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1593: THEN
1594: FND_MSG_PUB.Add_Exc_Msg
1595: ( G_PKG_NAME
1631: --
1632: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1633: --
1634: BEGIN
1635: p_return_status := FND_API.G_RET_STS_SUCCESS;
1636:
1637: IF l_debug_level > 0 THEN
1638: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PAYMENT HOLD' , 3 ) ;
1639: END IF;
1678: , x_msg_data => l_msg_data
1679: , x_return_status => l_return_status
1680: );
1681:
1682: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1686: END IF;
1679: , x_return_status => l_return_status
1680: );
1681:
1682: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1686: END IF;
1687: END IF;
1680: );
1681:
1682: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1686: END IF;
1687: END IF;
1688:
1681:
1682: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1685: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1686: END IF;
1687: END IF;
1688:
1689:
1688:
1689:
1690: EXCEPTION
1691:
1692: WHEN FND_API.G_EXC_ERROR THEN
1693: p_return_status := FND_API.G_RET_STS_ERROR;
1694: OE_MSG_PUB.Count_And_Get
1695: ( p_count => l_msg_count,
1696: p_data => l_msg_data
1689:
1690: EXCEPTION
1691:
1692: WHEN FND_API.G_EXC_ERROR THEN
1693: p_return_status := FND_API.G_RET_STS_ERROR;
1694: OE_MSG_PUB.Count_And_Get
1695: ( p_count => l_msg_count,
1696: p_data => l_msg_data
1697: );
1695: ( p_count => l_msg_count,
1696: p_data => l_msg_data
1697: );
1698:
1699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: OE_MSG_PUB.Count_And_Get
1702: ( p_count => l_msg_count,
1703: p_data => l_msg_data
1696: p_data => l_msg_data
1697: );
1698:
1699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: OE_MSG_PUB.Count_And_Get
1702: ( p_count => l_msg_count,
1703: p_data => l_msg_data
1704: );
1703: p_data => l_msg_data
1704: );
1705:
1706: WHEN OTHERS THEN
1707: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1709: THEN
1710: FND_MSG_PUB.Add_Exc_Msg
1711: ( G_PKG_NAME
1850: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1851: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1852: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1853: END IF;
1854: x_return_status := FND_API.G_RET_STS_SUCCESS;
1855:
1856:
1857: oe_Header_util.query_row (p_header_id => p_Header_id
1858: ,x_header_rec=> l_header_rec );
1964:
1965: IF ((nvl(c_payment_rec.defer_payment_processing_flag, 'N') = 'Y'
1966: AND l_calling_action = 'BOOKING')
1967: --bug3507871
1968: OR (l_calling_action='UPDATE' AND p_delayed_request=FND_API.G_TRUE))
1969: AND l_pending_amount <> 0 THEN
1970: -- if calling action is null, this is invoked from action, we
1971: -- need to process payments regardless of the defer flag.
1972: -- Apply PPP prepayment hold (hold id 13) on the order;
1982: ,p_msg_data => l_msg_data
1983: ,p_return_status => l_return_status
1984: );
1985:
1986: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1986: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995: ELSE
1988: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995: ELSE
1996: -- process the payments.
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1994: END IF;
1995: ELSE
1996: -- process the payments.
1997:
2044: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
2045: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt Method');
2046: oe_debug_pub.add('OEXVPPYB: receipt method is null.',3);
2047: oe_msg_pub.Add;
2048: RAISE FND_API.G_EXC_ERROR;
2049:
2050: ELSE
2051: -- receipt method is not null
2052:
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'OEXVPPYB: After calling Create_Receipt API, return status is: '||l_return_status, 3) ;
2090: END IF;
2091:
2092: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2093:
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'OEXVPPYB: update oe_payments for payment_set_id: '||l_payment_set_id, 3) ;
2096: END IF;
2123: , p_msg_data => l_msg_data
2124: , p_return_status => l_return_status
2125: );
2126:
2127: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2128: RAISE FND_API.G_EXC_ERROR;
2129: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2124: , p_return_status => l_return_status
2125: );
2126:
2127: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2128: RAISE FND_API.G_EXC_ERROR;
2129: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132: END IF;
2125: );
2126:
2127: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2128: RAISE FND_API.G_EXC_ERROR;
2129: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132: END IF;
2133:
2126:
2127: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2128: RAISE FND_API.G_EXC_ERROR;
2129: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2131: END IF;
2132: END IF;
2133:
2134: -- END IF; -- if l_insert = 'Y'
2161: ,p_msg_count => l_msg_count
2162: ,p_msg_data => l_msg_data
2163: ,p_return_status => l_return_status
2164: );
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2169: END IF;
2162: ,p_msg_data => l_msg_data
2163: ,p_return_status => l_return_status
2164: );
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2169: END IF;
2170:
2163: ,p_return_status => l_return_status
2164: );
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2169: END IF;
2170:
2171: ELSE
2164: );
2165: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2166: RAISE FND_API.G_EXC_ERROR;
2167: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2169: END IF;
2170:
2171: ELSE
2172: -- Apply payment failure hold (seeded hold id is 14);
2179: ,p_msg_count => l_msg_count
2180: ,p_msg_data => l_msg_data
2181: ,p_return_status => l_return_status
2182: );
2183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2184: RAISE FND_API.G_EXC_ERROR;
2185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2180: ,p_msg_data => l_msg_data
2181: ,p_return_status => l_return_status
2182: );
2183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2184: RAISE FND_API.G_EXC_ERROR;
2185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2181: ,p_return_status => l_return_status
2182: );
2183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2184: RAISE FND_API.G_EXC_ERROR;
2185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2189: END IF; -- if l_payment_response_error_code...
2182: );
2183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2184: RAISE FND_API.G_EXC_ERROR;
2185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2189: END IF; -- if l_payment_response_error_code...
2190: END IF; -- if l_return status...
2210: IF l_debug_level > 0 THEN
2211: oe_debug_pub.add( 'OEXVPPYB Process_Payments: after calling create_refund, return status is: '||l_return_status, 3 ) ;
2212: END IF;
2213:
2214: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2215: UPDATE oe_payments
2216: SET prepaid_amount = nvl(prepaid_amount,0) + l_pending_amount
2217: WHERE header_id = p_header_id
2218: AND nvl(payment_number, -1) = nvl(c_payment_rec.payment_number, -1);
2216: SET prepaid_amount = nvl(prepaid_amount,0) + l_pending_amount
2217: WHERE header_id = p_header_id
2218: AND nvl(payment_number, -1) = nvl(c_payment_rec.payment_number, -1);
2219:
2220: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2221: -- Apply payment failure hold (seeded hold id is 14);
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'after create_refund, applying payment failure hold.', 3 ) ;
2224: END IF;
2241: ,p_msg_count => l_msg_count
2242: ,p_msg_data => l_msg_data
2243: ,p_return_status => l_return_status
2244: );
2245: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2249: END IF;
2242: ,p_msg_data => l_msg_data
2243: ,p_return_status => l_return_status
2244: );
2245: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2249: END IF;
2250:
2243: ,p_return_status => l_return_status
2244: );
2245: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2249: END IF;
2250:
2251: END IF;
2244: );
2245: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2246: RAISE FND_API.G_EXC_ERROR;
2247: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2249: END IF;
2250:
2251: END IF;
2252: ELSIF l_pending_amount = 0 THEN
2255: , p_msg_data => l_msg_data
2256: , p_return_status => l_return_status
2257: );
2258:
2259: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2263: END IF;
2256: , p_return_status => l_return_status
2257: );
2258:
2259: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2263: END IF;
2264:
2257: );
2258:
2259: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2263: END IF;
2264:
2265: END IF; -- if l_pending_amount > 0 ...
2258:
2259: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2260: RAISE FND_API.G_EXC_ERROR;
2261: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2263: END IF;
2264:
2265: END IF; -- if l_pending_amount > 0 ...
2266:
2348: oe_debug_pub.add( 'OEXVPPYB: After calling OE_Verify_Payment_PUB.Authorize_MultiPayments, return status is: '||l_return_status, 3) ;
2349: END IF;
2350:
2351:
2352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2353: RAISE FND_API.G_EXC_ERROR;
2354: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2349: END IF;
2350:
2351:
2352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2353: RAISE FND_API.G_EXC_ERROR;
2354: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2350:
2351:
2352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2353: RAISE FND_API.G_EXC_ERROR;
2354: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: END IF; -- end of CC authorization.
2351:
2352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2353: RAISE FND_API.G_EXC_ERROR;
2354: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: END IF; -- end of CC authorization.
2359:
2463: END IF;
2464:
2465: EXCEPTION
2466:
2467: WHEN FND_API.G_EXC_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_ERROR;
2469: OE_MSG_PUB.Count_And_Get
2470: ( p_count => l_msg_count,
2471: p_data => l_msg_data
2464:
2465: EXCEPTION
2466:
2467: WHEN FND_API.G_EXC_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_ERROR;
2469: OE_MSG_PUB.Count_And_Get
2470: ( p_count => l_msg_count,
2471: p_data => l_msg_data
2472: );
2470: ( p_count => l_msg_count,
2471: p_data => l_msg_data
2472: );
2473:
2474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: IF l_debug_level > 0 THEN
2477: oe_debug_pub.add( 'Unexpected error in Process_Payments: ' || SQLERRM , 3 ) ;
2478: END IF;
2471: p_data => l_msg_data
2472: );
2473:
2474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: IF l_debug_level > 0 THEN
2477: oe_debug_pub.add( 'Unexpected error in Process_Payments: ' || SQLERRM , 3 ) ;
2478: END IF;
2479: OE_MSG_PUB.Count_And_Get
2481: p_data => l_msg_data
2482: );
2483:
2484: WHEN OTHERS THEN
2485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2486: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2487: THEN
2488: FND_MSG_PUB.Add_Exc_Msg
2489: ( G_PKG_NAME
2646: oe_debug_pub.add('OEXVPPYB: before OE_Order_PVT.Line_Payments',3);
2647: END IF;
2648:
2649: OE_Order_PVT.Line_Payments
2650: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2651: , p_init_msg_list => FND_API.G_TRUE
2652: , p_control_rec => l_control_rec
2653: , p_x_Line_Payment_tbl => l_Line_Payment_tbl
2654: , p_x_old_Line_Payment_tbl => l_x_old_Line_Payment_tbl
2647: END IF;
2648:
2649: OE_Order_PVT.Line_Payments
2650: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2651: , p_init_msg_list => FND_API.G_TRUE
2652: , p_control_rec => l_control_rec
2653: , p_x_Line_Payment_tbl => l_Line_Payment_tbl
2654: , p_x_old_Line_Payment_tbl => l_x_old_Line_Payment_tbl
2655: , x_return_Status => l_return_status
2654: , p_x_old_Line_Payment_tbl => l_x_old_Line_Payment_tbl
2655: , x_return_Status => l_return_status
2656: );
2657:
2658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: END IF;
2655: , x_return_Status => l_return_status
2656: );
2657:
2658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: END IF;
2663:
2656: );
2657:
2658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: END IF;
2663:
2664: End If;
2657:
2658: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2660: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2661: RAISE FND_API.G_EXC_ERROR;
2662: END IF;
2663:
2664: End If;
2665:
2694: END IF;
2695:
2696: EXCEPTION
2697:
2698: WHEN FND_API.G_EXC_ERROR THEN
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700:
2701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2695:
2696: EXCEPTION
2697:
2698: WHEN FND_API.G_EXC_ERROR THEN
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700:
2701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2697:
2698: WHEN FND_API.G_EXC_ERROR THEN
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700:
2701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2704:
2705: WHEN OTHERS THEN
2698: WHEN FND_API.G_EXC_ERROR THEN
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700:
2701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2704:
2705: WHEN OTHERS THEN
2706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2704:
2705: WHEN OTHERS THEN
2706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2707: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) Then
2708: OE_MSG_PUB.Add_Exc_Msg
2709: ( G_PKG_NAME
2710: , 'Split_Payment '
2709: ( G_PKG_NAME
2710: , 'Split_Payment '
2711: );
2712: End If;
2713: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2714:
2715: END Split_Payment;
2716:
2717: PROCEDURE Process_Payment_Assurance
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add('Entering OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
2773: END IF;
2774:
2775: x_return_status := FND_API.G_RET_STS_SUCCESS;
2776: x_result_out := 'COMPLETE:COMPLETE';
2777:
2778: --pnpl start
2779: IF nvl(p_exists_prepay,'N') = 'Y' THEN
2803: WHEN OTHERS THEN
2804: IF l_debug_level > 0 THEN
2805: oe_debug_pub.add('unable to get header_id.. raising unexpected error');
2806: END IF;
2807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2808: END;
2809:
2810: IF l_exists_prepay THEN
2811: IF l_debug_level > 0 THEN
2839: ,x_msg_data => x_msg_data
2840: ,x_return_status => l_return_status
2841: );
2842:
2843: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2844: l_pay_now_total := 0;
2845: END IF;
2846:
2847: IF l_debug_level > 0 THEN
2941:
2942: IF l_debug_level > 0 THEN
2943: oe_debug_pub.add('Return status 1 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2944: END IF;
2945: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: END IF;
2942: IF l_debug_level > 0 THEN
2943: oe_debug_pub.add('Return status 1 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2944: END IF;
2945: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: END IF;
2950:
2943: oe_debug_pub.add('Return status 1 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2944: END IF;
2945: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: END IF;
2950:
2951: IF l_debug_level > 0 THEN
2944: END IF;
2945: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: END IF;
2950:
2951: IF l_debug_level > 0 THEN
2952: oe_debug_pub.add('Returning from the procedure as there is no prepayment record for the order');
2976:
2977: IF l_debug_level > 0 THEN
2978: oe_debug_pub.add('Return status 2 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2979: END IF;
2980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2977: IF l_debug_level > 0 THEN
2978: oe_debug_pub.add('Return status 2 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2979: END IF;
2980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985:
2978: oe_debug_pub.add('Return status 2 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2979: END IF;
2980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985:
2986: x_return_status := l_return_status;
2979: END IF;
2980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2983: RAISE FND_API.G_EXC_ERROR;
2984: END IF;
2985:
2986: x_return_status := l_return_status;
2987: RETURN;
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add('Return status 1 from update_flow_status_code: '||l_return_status , 3 ) ;
3089: END IF;
3090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add('Return status 1 from update_flow_status_code: '||l_return_status , 3 ) ;
3089: END IF;
3090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3095: ELSIF x_result_out = 'COMPLETE:INCOMPLETE' THEN
3088: oe_debug_pub.add('Return status 1 from update_flow_status_code: '||l_return_status , 3 ) ;
3089: END IF;
3090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3095: ELSIF x_result_out = 'COMPLETE:INCOMPLETE' THEN
3096: --bug4950878
3089: END IF;
3090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3095: ELSIF x_result_out = 'COMPLETE:INCOMPLETE' THEN
3096: --bug4950878
3097: fnd_message.Set_Name('ONT', 'ONT_PAYMENT_NOT_ASSURED');
3104:
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add('Return status 2 from update_flow_status_code: '||l_return_status , 3 ) ;
3107: END IF;
3108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add('Return status 2 from update_flow_status_code: '||l_return_status , 3 ) ;
3107: END IF;
3108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3113: END IF;
3106: oe_debug_pub.add('Return status 2 from update_flow_status_code: '||l_return_status , 3 ) ;
3107: END IF;
3108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3113: END IF;
3114:
3107: END IF;
3108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3113: END IF;
3114:
3115: x_return_status := l_return_status;
3119: oe_debug_pub.add('Exiting OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
3120: END IF;
3121:
3122: EXCEPTION
3123: WHEN FND_API.G_EXC_ERROR THEN
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3127: WHEN OTHERS THEN
3120: END IF;
3121:
3122: EXCEPTION
3123: WHEN FND_API.G_EXC_ERROR THEN
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3127: WHEN OTHERS THEN
3128: IF l_debug_level > 0 THEN
3121:
3122: EXCEPTION
3123: WHEN FND_API.G_EXC_ERROR THEN
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3127: WHEN OTHERS THEN
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
3122: EXCEPTION
3123: WHEN FND_API.G_EXC_ERROR THEN
3124: x_return_status := FND_API.G_RET_STS_ERROR;
3125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3127: WHEN OTHERS THEN
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
3130: END IF;
3127: WHEN OTHERS THEN
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
3130: END IF;
3131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3133: THEN
3134: OE_MSG_PUB.Add_Exc_Msg
3135: ( G_PKG_NAME
3160: begin
3161: If l_debug_level > 0 Then
3162: oe_debug_pub.add('entering OE_PrePayment_PVT.print_payment_receipt');
3163: End If;
3164: x_return_status := FND_API.G_RET_STS_SUCCESS;
3165: x_result_out := 'COMPLETE:COMPLETE';
3166: select order_source_id, orig_sys_document_ref, change_sequence
3167: ,source_document_type_id, source_document_id
3168: into l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
3201: OE_MSG_PUB.Add;
3202:
3203: IF (l_new_request_id = 0) THEN
3204: errbuf := FND_MESSAGE.GET;
3205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3206: END IF;
3207:
3208: EXCEPTION
3209:
3206: END IF;
3207:
3208: EXCEPTION
3209:
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: If l_debug_level > 0 Then
3212: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3213: End If;
3214: oe_msg_pub.Add_Text(errbuf);
3211: If l_debug_level > 0 Then
3212: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3213: End If;
3214: oe_msg_pub.Add_Text(errbuf);
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3216:
3217: WHEN OTHERS THEN
3218: If l_debug_level > 0 Then
3219: oe_debug_pub.add( 'EXCEPTION , OTHERS. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3225: ( G_PKG_NAME
3226: , 'Print_Payment_Receipt'
3227: );
3228: END IF;
3229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3230:
3231: END Print_Payment_Receipt;
3232:
3233: --R12 CC Encryption
3275: AND payment_type_code IN ('CREDIT_CARD','ACH','DIRECT_DEBIT');
3276:
3277: BEGIN
3278:
3279: x_return_status := FND_API.G_RET_STS_SUCCESS;
3280:
3281: IF l_debug_level > 0 THEN
3282: oe_debug_pub.add('Entering OEXVPPYB Delete_Payments');
3283: END IF;
3305: x_msg_count => x_msg_count,
3306: x_msg_data => x_msg_data);
3307:
3308:
3309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3306: x_msg_data => x_msg_data);
3307:
3308:
3309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3314: DELETE FROM OE_PAYMENTS
3307:
3308:
3309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3314: DELETE FROM OE_PAYMENTS
3315: WHERE HEADER_ID = p_header_id
3308:
3309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3314: DELETE FROM OE_PAYMENTS
3315: WHERE HEADER_ID = p_header_id
3316: AND LINE_ID = p_line_id
3309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3310: RAISE FND_API.G_EXC_ERROR;
3311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3314: DELETE FROM OE_PAYMENTS
3315: WHERE HEADER_ID = p_header_id
3316: AND LINE_ID = p_line_id
3317: AND payment_number = line_payments_rec.payment_number;
3341: x_return_status => l_return_status,
3342: x_msg_count => x_msg_count,
3343: x_msg_data => x_msg_data);
3344:
3345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3346: RAISE FND_API.G_EXC_ERROR;
3347: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3342: x_msg_count => x_msg_count,
3343: x_msg_data => x_msg_data);
3344:
3345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3346: RAISE FND_API.G_EXC_ERROR;
3347: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3350: DELETE FROM OE_PAYMENTS
3343: x_msg_data => x_msg_data);
3344:
3345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3346: RAISE FND_API.G_EXC_ERROR;
3347: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3350: DELETE FROM OE_PAYMENTS
3351: WHERE HEADER_ID = p_header_id
3344:
3345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3346: RAISE FND_API.G_EXC_ERROR;
3347: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3350: DELETE FROM OE_PAYMENTS
3351: WHERE HEADER_ID = p_header_id
3352: AND payment_number = header_payments_rec.payment_number
3345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3346: RAISE FND_API.G_EXC_ERROR;
3347: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3349: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3350: DELETE FROM OE_PAYMENTS
3351: WHERE HEADER_ID = p_header_id
3352: AND payment_number = header_payments_rec.payment_number
3353: AND line_id is null;
3359: header_id = p_header_id;
3360: IF l_debug_level > 0 THEN
3361: oe_debug_pub.add('Header id...after updating oe order headers all'||p_header_id);
3362: END IF;
3363: x_return_status := FND_API.G_RET_STS_SUCCESS;
3364: END IF;
3365: END IF;
3366: END LOOP;
3367: END IF;
3367: END IF;
3368:
3369: EXCEPTION
3370:
3371: WHEN FND_API.G_EXC_ERROR THEN
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: OE_MSG_PUB.Count_And_Get
3374: ( p_count => x_msg_count,
3375: p_data => x_msg_data
3368:
3369: EXCEPTION
3370:
3371: WHEN FND_API.G_EXC_ERROR THEN
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: OE_MSG_PUB.Count_And_Get
3374: ( p_count => x_msg_count,
3375: p_data => x_msg_data
3376: );
3374: ( p_count => x_msg_count,
3375: p_data => x_msg_data
3376: );
3377:
3378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3380: IF l_debug_level > 0 THEN
3381: oe_debug_pub.add( 'Unexpected error in Delete_Payments: ' || SQLERRM , 3 ) ;
3382: END IF;
3375: p_data => x_msg_data
3376: );
3377:
3378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3380: IF l_debug_level > 0 THEN
3381: oe_debug_pub.add( 'Unexpected error in Delete_Payments: ' || SQLERRM , 3 ) ;
3382: END IF;
3383: OE_MSG_PUB.Count_And_Get
3385: p_data => x_msg_data
3386: );
3387:
3388: WHEN OTHERS THEN
3389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3390: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3391: THEN
3392: FND_MSG_PUB.Add_Exc_Msg
3393: ( G_PKG_NAME
3412: x_return_status out nocopy varchar2,
3413: x_msg_count out nocopy number,
3414: x_msg_data out nocopy varchar2) is
3415:
3416: l_return_status varchar2(1) := FND_API.G_RET_STS_SUCCESS;
3417: l_msg_count number := 0;
3418: l_msg_data varchar2(2000) := NULL;
3419: l_del_payment number := 0; -- 0 means do not delete, 1 means delete.
3420:
3560: if p_action = 'UPDATE_LINE' then
3561:
3562: if p_line_id is null then
3563:
3564: x_return_status := FND_API.G_RET_STS_ERROR;
3565: oe_debug_pub.add('failed because line_id is null ');
3566: return;
3567:
3568: else
3575: where line_id = p_line_id
3576: for update nowait;
3577:
3578: if l_lock_line_id is null then
3579: x_return_status := FND_API.G_RET_STS_ERROR;
3580: oe_debug_pub.add('failed to lock the line with line_id : ' || l_lock_line_id);
3581: return;
3582: end if;
3583:
3613: where line_id = l_lock_line_id;
3614:
3615: exception
3616: when others then
3617: x_return_status := FND_API.G_RET_STS_ERROR;
3618: oe_debug_pub.add('failed to update line payment type: ' || substr(sqlerrm,1,300));
3619: rollback to savepoint update_line;
3620: return;
3621: End;
3730: (p_header_id => p_header_id
3731: ,p_x_header_rec => l_old_header_rec
3732: ,x_return_status => l_return_status
3733: );
3734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3738: END IF;
3731: ,p_x_header_rec => l_old_header_rec
3732: ,x_return_status => l_return_status
3733: );
3734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3738: END IF;
3739:
3732: ,x_return_status => l_return_status
3733: );
3734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3738: END IF;
3739:
3740: l_header_rec := l_old_header_rec;
3733: );
3734: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3735: RAISE FND_API.G_EXC_ERROR;
3736: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3738: END IF;
3739:
3740: l_header_rec := l_old_header_rec;
3741: l_header_rec.payment_type_code := l_payment_type_code;
3803: l_header_rec.credit_card_approval_code;
3804: OE_ORDER_UTIL.g_header_rec.lock_control:=
3805: l_header_rec.lock_control;
3806:
3807: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: RAISE FND_API.G_EXC_ERROR;
3809: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3804: OE_ORDER_UTIL.g_header_rec.lock_control:=
3805: l_header_rec.lock_control;
3806:
3807: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: RAISE FND_API.G_EXC_ERROR;
3809: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812:
3805: l_header_rec.lock_control;
3806:
3807: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: RAISE FND_API.G_EXC_ERROR;
3809: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812:
3813: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
3806:
3807: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3808: RAISE FND_API.G_EXC_ERROR;
3809: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812:
3813: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
3814:
3819: , p_old_header_rec => l_old_header_rec
3820: , x_return_status => l_return_status
3821: );
3822:
3823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3824: RAISE FND_API.G_EXC_ERROR;
3825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3827: END IF;
3820: , x_return_status => l_return_status
3821: );
3822:
3823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3824: RAISE FND_API.G_EXC_ERROR;
3825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3827: END IF;
3828:
3821: );
3822:
3823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3824: RAISE FND_API.G_EXC_ERROR;
3825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3827: END IF;
3828:
3829: END IF ; /* global entity index null check */
3822:
3823: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3824: RAISE FND_API.G_EXC_ERROR;
3825: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3826: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3827: END IF;
3828:
3829: END IF ; /* global entity index null check */
3830: END IF; --code_release_level check
4032: oe_debug_pub.add('l_x_old_header_payment_tbl ' || l_x_old_header_payment_tbl.count);
4033:
4034: -- Call OE_Order_PVT.Header_Payments
4035: OE_Order_PVT.Header_Payments
4036: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
4037: , p_init_msg_list => FND_API.G_TRUE
4038: , p_control_rec => l_control_rec
4039: , p_x_Header_Payment_tbl => l_x_Header_Payment_tbl
4040: , p_x_old_Header_Payment_tbl => l_x_old_Header_Payment_tbl
4033:
4034: -- Call OE_Order_PVT.Header_Payments
4035: OE_Order_PVT.Header_Payments
4036: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
4037: , p_init_msg_list => FND_API.G_TRUE
4038: , p_control_rec => l_control_rec
4039: , p_x_Header_Payment_tbl => l_x_Header_Payment_tbl
4040: , p_x_old_Header_Payment_tbl => l_x_old_Header_Payment_tbl
4041: , x_return_Status => l_return_status
4040: , p_x_old_Header_Payment_tbl => l_x_old_Header_Payment_tbl
4041: , x_return_Status => l_return_status
4042: );
4043:
4044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4047: RAISE FND_API.G_EXC_ERROR;
4048: END IF;
4041: , x_return_Status => l_return_status
4042: );
4043:
4044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4047: RAISE FND_API.G_EXC_ERROR;
4048: END IF;
4049:
4042: );
4043:
4044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4047: RAISE FND_API.G_EXC_ERROR;
4048: END IF;
4049:
4050:
4043:
4044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4045: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4046: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4047: RAISE FND_API.G_EXC_ERROR;
4048: END IF;
4049:
4050:
4051: else --if p_payment_type_code is null
4072:
4073: EXCEPTION
4074:
4075: WHEN others then
4076: x_return_status := FND_API.G_RET_STS_ERROR;
4077: oe_debug_pub.add('when others error ');
4078: RAISE;
4079:
4080:
4120: END IF;
4121:
4122: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4123: p_api_version => 1.0,
4124: p_init_msg_list => FND_API.G_TRUE,
4125: p_commit => FND_API.G_FALSE,
4126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4127: x_return_status => l_return_status,
4128: x_msg_count => l_msg_count,
4121:
4122: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4123: p_api_version => 1.0,
4124: p_init_msg_list => FND_API.G_TRUE,
4125: p_commit => FND_API.G_FALSE,
4126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4127: x_return_status => l_return_status,
4128: x_msg_count => l_msg_count,
4129: x_msg_data => l_msg_data,
4122: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4123: p_api_version => 1.0,
4124: p_init_msg_list => FND_API.G_TRUE,
4125: p_commit => FND_API.G_FALSE,
4126: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4127: x_return_status => l_return_status,
4128: x_msg_count => l_msg_count,
4129: x_msg_data => l_msg_data,
4130: p_prepay_application_id => l_prepay_application_id,
4155: END IF;
4156:
4157: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
4158:
4159: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4160: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_SUCCESS');
4161: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_refund_amount, l_format_mask));
4162: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
4163: oe_msg_pub.add;
4171: , p_msg_data => l_msg_data
4172: , p_return_status => l_return_status
4173: );
4174:
4175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4176: RAISE FND_API.G_EXC_ERROR;
4177: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4179: END IF;
4172: , p_return_status => l_return_status
4173: );
4174:
4175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4176: RAISE FND_API.G_EXC_ERROR;
4177: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4179: END IF;
4180: ELSE
4173: );
4174:
4175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4176: RAISE FND_API.G_EXC_ERROR;
4177: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4179: END IF;
4180: ELSE
4181: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
4174:
4175: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4176: RAISE FND_API.G_EXC_ERROR;
4177: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4179: END IF;
4180: ELSE
4181: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
4182: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_refund_amount, l_format_mask));
4192: oe_msg_pub.add_text(p_message_text => l_msg_data);
4193: ELSIF ( FND_MSG_PUB.Count_Msg > 0 ) THEN
4194: arp_util.enable_debug;
4195: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
4196: -- l_msg_data := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
4197: l_msg_data := FND_MSG_PUB.Get(i,'F');
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_DATA , 3 );
4200: END IF;
4200: END IF;
4201: oe_msg_pub.add_text(p_message_text => l_msg_data);
4202: END LOOP;
4203: END IF;
4204: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4205: RAISE FND_API.G_EXC_ERROR;
4206: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4208: END IF;
4201: oe_msg_pub.add_text(p_message_text => l_msg_data);
4202: END LOOP;
4203: END IF;
4204: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4205: RAISE FND_API.G_EXC_ERROR;
4206: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4208: END IF;
4209: END IF;
4202: END LOOP;
4203: END IF;
4204: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4205: RAISE FND_API.G_EXC_ERROR;
4206: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4208: END IF;
4209: END IF;
4210:
4203: END IF;
4204: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4205: RAISE FND_API.G_EXC_ERROR;
4206: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4208: END IF;
4209: END IF;
4210:
4211: IF l_debug_level > 0 THEN
4213: END IF;
4214:
4215: EXCEPTION
4216:
4217: WHEN FND_API.G_EXC_ERROR THEN
4218: x_return_status := FND_API.G_RET_STS_ERROR;
4219: OE_MSG_PUB.Count_And_Get
4220: ( p_count => l_msg_count,
4221: p_data => l_msg_data
4214:
4215: EXCEPTION
4216:
4217: WHEN FND_API.G_EXC_ERROR THEN
4218: x_return_status := FND_API.G_RET_STS_ERROR;
4219: OE_MSG_PUB.Count_And_Get
4220: ( p_count => l_msg_count,
4221: p_data => l_msg_data
4222: );
4220: ( p_count => l_msg_count,
4221: p_data => l_msg_data
4222: );
4223:
4224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'Unexpected error in Create_Refund: ' || SQLERRM , 3 ) ;
4228: END IF;
4221: p_data => l_msg_data
4222: );
4223:
4224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'Unexpected error in Create_Refund: ' || SQLERRM , 3 ) ;
4228: END IF;
4229: OE_MSG_PUB.Count_And_Get
4231: p_data => l_msg_data
4232: );
4233:
4234: WHEN OTHERS THEN
4235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4236: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4237: THEN
4238: OE_MSG_PUB.Add_Exc_Msg
4239: ( G_PKG_NAME
4302: oe_debug_pub.add( 'In Process_Payment_Refund, after calling create_refund return status is: '||l_return_status, 3 ) ;
4303: END IF;
4304:
4305:
4306: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4307: UPDATE oe_payments
4308: SET payment_amount = 0, prepaid_amount = 0
4309: WHERE payment_collection_event = 'PREPAY'
4310: AND header_id = p_header_rec.header_id;
4308: SET payment_amount = 0, prepaid_amount = 0
4309: WHERE payment_collection_event = 'PREPAY'
4310: AND header_id = p_header_rec.header_id;
4311:
4312: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4314: RAISE FND_API.G_EXC_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4309: WHERE payment_collection_event = 'PREPAY'
4310: AND header_id = p_header_rec.header_id;
4311:
4312: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4314: RAISE FND_API.G_EXC_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4317: END IF;
4310: AND header_id = p_header_rec.header_id;
4311:
4312: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4314: RAISE FND_API.G_EXC_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4317: END IF;
4318: END IF;
4311:
4312: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4314: RAISE FND_API.G_EXC_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4317: END IF;
4318: END IF;
4319:
4312: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4314: RAISE FND_API.G_EXC_ERROR;
4315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4317: END IF;
4318: END IF;
4319:
4320: x_return_status := l_return_status;
4324: END IF;
4325:
4326: EXCEPTION
4327:
4328: WHEN FND_API.G_EXC_ERROR THEN
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: OE_MSG_PUB.Count_And_Get
4331: ( p_count => l_msg_count,
4332: p_data => l_msg_data
4325:
4326: EXCEPTION
4327:
4328: WHEN FND_API.G_EXC_ERROR THEN
4329: x_return_status := FND_API.G_RET_STS_ERROR;
4330: OE_MSG_PUB.Count_And_Get
4331: ( p_count => l_msg_count,
4332: p_data => l_msg_data
4333: );
4331: ( p_count => l_msg_count,
4332: p_data => l_msg_data
4333: );
4334:
4335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4337: OE_MSG_PUB.Count_And_Get
4338: ( p_count => l_msg_count,
4339: p_data => l_msg_data
4332: p_data => l_msg_data
4333: );
4334:
4335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4337: OE_MSG_PUB.Count_And_Get
4338: ( p_count => l_msg_count,
4339: p_data => l_msg_data
4340: );
4339: p_data => l_msg_data
4340: );
4341:
4342: WHEN OTHERS THEN
4343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4344: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4345: THEN
4346: OE_MSG_PUB.Add_Exc_Msg
4347: ( G_PKG_NAME
4410: , x_msg_data => l_msg_data
4411: , x_return_status => l_return_status
4412: );
4413: -- Check the Result
4414: IF l_hold_result = FND_API.G_TRUE THEN
4415: p_hold_exists := 'Y';
4416: IF l_debug_level > 0 THEN
4417: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER ' , 3 ) ;
4418: END IF;
4429: , x_msg_count => l_msg_count
4430: , x_msg_data => l_msg_data
4431: , x_return_status => l_return_status
4432: );
4433: IF l_hold_result = FND_API.G_TRUE THEN
4434: p_hold_exists := 'Y';
4435: IF l_debug_level > 0 THEN
4436: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER' , 3 ) ;
4437: END IF;
4449: , x_msg_data => l_msg_data
4450: , x_return_status => l_return_status
4451: );
4452:
4453: IF l_hold_result = FND_API.G_TRUE THEN
4454: p_hold_exists := 'Y';
4455: IF l_debug_level > 0 THEN
4456: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER.' , 3 ) ;
4457: END IF;
4466: ,x_msg_count => l_msg_count
4467: ,x_msg_data => l_msg_data
4468: );
4469:
4470: IF ( l_return_status = FND_API.G_RET_STS_SUCCESS AND
4471: p_hold_rec.x_result_out = FND_API.G_TRUE )
4472: THEN
4473: p_hold_exists := 'Y';
4474: IF l_debug_level > 0 THEN
4467: ,x_msg_data => l_msg_data
4468: );
4469:
4470: IF ( l_return_status = FND_API.G_RET_STS_SUCCESS AND
4471: p_hold_rec.x_result_out = FND_API.G_TRUE )
4472: THEN
4473: p_hold_exists := 'Y';
4474: IF l_debug_level > 0 THEN
4475: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER LINE.' , 3 ) ;
4499: , x_msg_data => l_msg_data
4500: , x_return_status => l_return_status
4501: );
4502: -- Check the Result
4503: IF l_hold_result = FND_API.G_TRUE THEN
4504: p_hold_exists := 'Y';
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER LINE' , 3 ) ;
4507: END IF;
4518: , x_msg_count => l_msg_count
4519: , x_msg_data => l_msg_data
4520: , x_return_status => l_return_status
4521: );
4522: IF l_hold_result = FND_API.G_TRUE THEN
4523: p_hold_exists := 'Y';
4524: IF l_debug_level > 0 THEN
4525: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER LINE' , 3 ) ;
4526: END IF;
4537: , x_msg_data => l_msg_data
4538: , x_return_status => l_return_status
4539: );
4540:
4541: IF l_hold_result = FND_API.G_TRUE THEN
4542: p_hold_exists := 'Y';
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add( 'OEXVPPYB: Pending Authorization hold EXISTS ON ORDER LINE' , 3 ) ;
4545: END IF;
4597: l_payment_type varchar2(30) := null;
4598: l_payment_trx_id number := -1;
4599: Begin
4600:
4601: x_return_status := FND_API.G_RET_STS_SUCCESS;
4602: x_msg_count := 0;
4603: x_msg_data := null;
4604:
4605: if p_line_id is not null then
4616: IF lock_lin_Payments%ISOPEN Then
4617: close lock_lin_Payments;
4618: END IF;
4619: oe_debug_pub.add('no line payments exist');
4620: x_return_status := FND_API.G_RET_STS_SUCCESS;
4621: return;
4622: when others then
4623: ROLLBACK TO LINE_PAYMENTS;
4624: IF lock_lin_Payments%ISOPEN Then
4625: close lock_lin_Payments;
4626: END IF;
4627: oe_debug_pub.add('locking the row failed');
4628: -- issue an error message saying that lock row failed.
4629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4630: RAISE;
4631: End;
4632: -- was able to lock the row. so, go ahead and update oe_payments.
4633: Begin
4645:
4646: Exception
4647: when no_data_found then
4648: --oe_msg_pub.add( ); --
4649: x_return_status := FND_API.G_RET_STS_ERROR;
4650: RAISE;
4651:
4652: when others then
4653: --oe_msg_pub.add(); --
4650: RAISE;
4651:
4652: when others then
4653: --oe_msg_pub.add(); --
4654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4656: End;
4657:
4658: elsif p_header_id is not null then
4651:
4652: when others then
4653: --oe_msg_pub.add(); --
4654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4656: End;
4657:
4658: elsif p_header_id is not null then
4659:
4672: IF lock_hdr_Payments%ISOPEN Then
4673: close lock_hdr_Payments;
4674: END IF;
4675: oe_debug_pub.add('no header payments exist');
4676: x_return_status := FND_API.G_RET_STS_SUCCESS;
4677: return;
4678: when others then
4679: ROLLBACK TO LOCK_HEADER_PAYMENTS;
4680: IF lock_hdr_Payments%ISOPEN Then
4681: close lock_hdr_Payments;
4682: END IF;
4683: oe_debug_pub.add('locking the row failed');
4684: -- issue an error message saying that lock row failed.
4685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: End;
4688: -- was able to lock the row. so, go ahead and update oe_payments.
4689: Begin
4682: END IF;
4683: oe_debug_pub.add('locking the row failed');
4684: -- issue an error message saying that lock row failed.
4685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: End;
4688: -- was able to lock the row. so, go ahead and update oe_payments.
4689: Begin
4690:
4695:
4696: Exception
4697: when no_data_found then
4698: --oe_msg_pub.add( ); --
4699: x_return_status := FND_API.G_RET_STS_ERROR;
4700: RAISE;
4701: when others then
4702: --oe_msg_pub.add(); --
4703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4699: x_return_status := FND_API.G_RET_STS_ERROR;
4700: RAISE;
4701: when others then
4702: --oe_msg_pub.add(); --
4703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: End;
4706:
4707: end if;
4700: RAISE;
4701: when others then
4702: --oe_msg_pub.add(); --
4703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4705: End;
4706:
4707: end if;
4708:
4728: BEGIN
4729: IF l_debug_level > 0 THEN
4730: oe_debug_pub.add( 'OEXVPPYB: Entering OE_PREPAYMENT_PVT.Delete_Payment_Hold.' , 3 ) ;
4731: END IF;
4732: x_return_status := FND_API.G_RET_STS_SUCCESS;
4733:
4734: IF p_line_id IS NOT NULL THEN
4735: OE_Verify_Payment_PUB.Release_Verify_Line_Hold
4736: ( p_header_id => p_header_id
4740: , p_msg_data => l_msg_data
4741: , p_return_status => l_return_status
4742: );
4743:
4744: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4745: RAISE FND_API.G_EXC_ERROR;
4746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4748: END IF;
4741: , p_return_status => l_return_status
4742: );
4743:
4744: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4745: RAISE FND_API.G_EXC_ERROR;
4746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4748: END IF;
4749:
4742: );
4743:
4744: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4745: RAISE FND_API.G_EXC_ERROR;
4746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4748: END IF;
4749:
4750: ELSE
4743:
4744: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4745: RAISE FND_API.G_EXC_ERROR;
4746: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4748: END IF;
4749:
4750: ELSE
4751: IF p_hold_type = 'PREPAYMENT' THEN
4755: , p_msg_data => l_msg_data
4756: , p_return_status => l_return_status
4757: );
4758:
4759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4763: END IF;
4756: , p_return_status => l_return_status
4757: );
4758:
4759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4763: END IF;
4764:
4757: );
4758:
4759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4763: END IF;
4764:
4765: ELSE
4758:
4759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4760: RAISE FND_API.G_EXC_ERROR;
4761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4763: END IF;
4764:
4765: ELSE
4766: OE_Verify_Payment_PUB.Release_Verify_Hold
4769: , p_msg_count => l_msg_count
4770: , p_msg_data => l_msg_data
4771: , p_return_status => l_return_status
4772: );
4773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4774: RAISE FND_API.G_EXC_ERROR;
4775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4777: END IF;
4770: , p_msg_data => l_msg_data
4771: , p_return_status => l_return_status
4772: );
4773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4774: RAISE FND_API.G_EXC_ERROR;
4775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4777: END IF;
4778: END IF;
4771: , p_return_status => l_return_status
4772: );
4773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4774: RAISE FND_API.G_EXC_ERROR;
4775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4777: END IF;
4778: END IF;
4779: END IF;
4772: );
4773: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4774: RAISE FND_API.G_EXC_ERROR;
4775: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4776: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4777: END IF;
4778: END IF;
4779: END IF;
4780:
4779: END IF;
4780:
4781: EXCEPTION
4782: WHEN OTHERS THEN
4783: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4784: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4785: THEN
4786: FND_MSG_PUB.Add_Exc_Msg
4787: ( G_PKG_NAME
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4838: END IF;
4839:
4840: x_return_status := FND_API.G_RET_STS_SUCCESS;
4841:
4842: l_pr_return_value := OE_ORDER_UTIL.Get_Precision(p_currency_code);
4843:
4844:
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add('Error in OE_PREPAYMENT_PVT.Get_First_Installment');
4892: END IF;
4893:
4894: x_return_status := FND_API.G_RET_STS_ERROR;
4895:
4896: END Get_First_Installment;
4897:
4898:
4942: BEGIN
4943: IF l_debug_level > 0 THEN
4944: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
4945: END IF;
4946: x_return_status := FND_API.G_RET_STS_SUCCESS;
4947:
4948: IF p_exc_inv_lines IS NULL THEN
4949: l_exc_inv_lines := 'N';
4950: ELSE
5084: IF OE_Prepayment_Util.Get_Installment_Options = 'ENABLE_PAY_NOW' THEN
5085: -- calling AR API to get pay now total
5086: AR_VIEW_TERM_GRP.pay_now_amounts
5087: (p_api_version => 1.0
5088: ,p_init_msg_list => FND_API.G_TRUE
5089: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5090: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
5091: ,p_amounts_tbl => l_pay_now_total_detail_tbl
5092: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
5085: -- calling AR API to get pay now total
5086: AR_VIEW_TERM_GRP.pay_now_amounts
5087: (p_api_version => 1.0
5088: ,p_init_msg_list => FND_API.G_TRUE
5089: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5090: ,p_currency_code => OE_Order_Cache.g_header_rec.transactional_curr_code
5091: ,p_amounts_tbl => l_pay_now_total_detail_tbl
5092: ,x_pay_now_summary_rec => l_pay_now_total_summary_rec
5093: ,x_return_status => x_return_status
5166:
5167:
5168: EXCEPTION
5169: WHEN OTHERS THEN
5170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5171: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5172: FND_MSG_PUB.Add_Exc_Msg
5173: (G_PKG_NAME, 'Get_Pay_Now_Amounts'
5174: );