[Home] [Help]
70:
71: l_msg_count NUMBER := 0;
72: l_msg_data VARCHAR2(2000);
73: l_return_status VARCHAR2(30);
74: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
75:
76: BEGIN
77:
78: p_return_status := FND_API.G_RET_STS_SUCCESS;
77:
78: p_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: IF l_debug_level > 0 THEN
81: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
82: END IF;
83:
84: IF l_debug_level > 0 THEN
85: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
81: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
82: END IF;
83:
84: IF l_debug_level > 0 THEN
85: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
86: END IF;
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
89: END IF;
84: IF l_debug_level > 0 THEN
85: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
86: END IF;
87: IF l_debug_level > 0 THEN
88: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
89: END IF;
90:
91: -- Check if Hold already exists on this order
92: IF l_debug_level > 0 THEN
89: END IF;
90:
91: -- Check if Hold already exists on this order
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
94: END IF;
95: --
96: OE_HOLDS_PUB.Check_Holds
97: ( p_api_version => 1.0
108:
109: -- Return with Success if this Hold Already exists on the order
110: IF l_hold_result = FND_API.G_TRUE THEN
111: IF l_debug_level > 0 THEN
112: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
113: END IF;
114: RETURN ;
115: END IF ;
116:
115: END IF ;
116:
117: -- Apply Verify Hold on Order Line
118: IF l_debug_level > 0 THEN
119: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON LINE ID : ' || P_LINE_ID ) ;
120: END IF;
121:
122: l_hold_source_rec.hold_id := p_hold_id ;
123: l_hold_source_rec.hold_entity_code:= 'O';
162: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
163: FND_MESSAGE.SET_TOKEN('LEVEL','LINE '||l_line_ind);
164: OE_MSG_PUB.ADD;
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
167: END IF;
168: END IF;
169: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
170: RAISE FND_API.G_EXC_ERROR;
173: END IF;
174:
175: -- bug 4339864
176: IF l_debug_level > 0 THEN
177: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
178: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
179: END IF;
180:
181: COMMIT;
174:
175: -- bug 4339864
176: IF l_debug_level > 0 THEN
177: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
178: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
179: END IF;
180:
181: COMMIT;
182:
180:
181: COMMIT;
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON LINE ID:' || P_LINE_ID ) ;
185: END IF;
186:
187: EXCEPTION
188:
229: l_dummy VARCHAR2(1);
230: l_manual_hold_exists varchar2(1) := 'N';
231: l_released_rec_exists varchar2(1) := 'Y';
232: --
233: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
234: --
235: --added for BUG#9728597 Start
236: cursor released_hold is
237: SELECT ohr.HOLD_RELEASE_ID
266: ORDER BY ohr.creation_date DESC;
267: --added for BUG#9728597 End
268: BEGIN
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add( 'CHECKING FOR MANUALLY RELEASED HOLDS ON HEADER_ID'|| TO_CHAR ( P_HEADER_ID ) ) ;
271: END IF;
272:
273: if p_calling_action = 'SHIPPING' then
274: IF p_line_id IS NULL THEN
288: AND S.RELEASED_FLAG ='Y';
289: EXCEPTION
290: WHEN NO_DATA_FOUND THEN
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( 'NO RELEASED RECORD FOR CREDIT CHECK HOLDS' ) ;
293: END IF;
294: l_released_rec_exists := 'N';
295: WHEN OTHERS THEN
296: null;*/
299: --added for BUG#9728597 Start
300: OPEN released_hold;
301: FETCH released_hold INTO l_hold_release_id;
302: IF (released_hold%notfound) THEN
303: oe_debug_pub.add('No Released record found');
304: l_released_rec_exists := 'N';
305: END IF;
306: CLOSE released_hold;
307: EXCEPTION
305: END IF;
306: CLOSE released_hold;
307: EXCEPTION
308: WHEN OTHERS THEN
309: oe_debug_pub.add('An error was encountered - '||SQLCODE||' -ERROR- '||SQLERRM);
310: --added for BUG#9728597 End
311:
312: END;
313:
329: AND S.RELEASED_FLAG ='Y';
330: EXCEPTION
331: WHEN NO_DATA_FOUND THEN
332: IF l_debug_level > 0 THEN
333: oe_debug_pub.add( 'NO RELEASED RECORD FOR CREDIT CHECK HOLDS' ) ;
334: END IF;
335: l_released_rec_exists := 'N';
336: WHEN OTHERS THEN
337: null;*/
340: --added for BUG#9728597 Start
341: OPEN released_hold_line;
342: FETCH released_hold_line INTO l_hold_release_id;
343: IF (released_hold_line%notfound) THEN
344: oe_debug_pub.add('No Released record found');
345: l_released_rec_exists := 'N';
346: END IF;
347: CLOSE released_hold_line;
348: EXCEPTION
346: END IF;
347: CLOSE released_hold_line;
348: EXCEPTION
349: WHEN OTHERS THEN
350: oe_debug_pub.add('An error was encountered - '||SQLCODE||' -ERROR- '||SQLERRM);
351: --added for BUG#9728597 End
352:
353: END;
354:
364: AND CREATED_BY <> 1;
365: EXCEPTION
366: WHEN NO_DATA_FOUND THEN
367: IF l_debug_level > 0 THEN
368: oe_debug_pub.add( 'NO MANUALLY RELEASED CREDIT HOLDS' ) ;
369: END IF;
370: l_manual_hold_exists := 'N';
371: WHEN OTHERS THEN
372: null;
373: END;
374: END IF;
375: end if;
376: IF l_debug_level > 0 THEN
377: oe_debug_pub.add( 'MANUAL HOLDS EXISTS:' || L_MANUAL_HOLD_EXISTS ) ;
378: END IF;
379: return l_manual_hold_exists;
380:
381: End CHECK_MANUAL_RELEASED_HOLDS;
405: WHERE header_id = p_header_id
406: AND invoice_to_org_id = nvl(p_invoice_to_org_id, invoice_to_org_id);
407:
408: --
409: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
410: --
411: BEGIN
412:
413: p_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: p_return_status := FND_API.G_RET_STS_SUCCESS;
414:
415: IF l_debug_level > 0 THEN
416: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE CREDIT CHECK HOLD' ) ;
417: END IF;
418:
419: FOR C1 in c_billto_lines
420: LOOP
418:
419: FOR C1 in c_billto_lines
420: LOOP
421: IF l_debug_level > 0 THEN
422: oe_debug_pub.add( 'OEXPVPMB:CHECKING CREDIT CHECK HOLD FOR HEADER/LINE ID : ' || TO_CHAR ( P_HEADER_ID ) || '/' || TO_CHAR ( C1.LINE_ID ) ) ;
423: END IF;
424:
425: l_hold_id := 1 ; -- Credit Checking Hold
426:
425: l_hold_id := 1 ; -- Credit Checking Hold
426:
427: -- Call Check for Hold to see if the Hold Exists
428: IF l_debug_level > 0 THEN
429: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
430: END IF;
431:
432: OE_HOLDS_PUB.Check_Holds
433: ( p_api_version => 1.0
444:
445: IF l_hold_result = FND_API.G_TRUE THEN
446:
447: IF l_debug_level > 0 THEN
448: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECK HOLD ON HEADER ID:' || TO_CHAR ( P_HEADER_ID ) || '/' || TO_CHAR ( C1.LINE_ID ) , 1 ) ;
449: END IF;
450:
451: l_hold_source_rec.hold_id := 1;
452: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
544: AND invoice_to_org_id = p_invoice_to_org_id
545: AND open_flag = 'Y';
546:
547: --
548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
549: --
550: BEGIN
551:
552: p_return_status := FND_API.G_RET_STS_SUCCESS;
551:
552: p_return_status := FND_API.G_RET_STS_SUCCESS;
553:
554: IF l_debug_level > 0 THEN
555: oe_debug_pub.add( 'OEXPVPMB: IN APPLY CREDIT CHECK HOLDS' ) ;
556: END IF;
557:
558: FOR C1 in c_billto_lines
559: LOOP
558: FOR C1 in c_billto_lines
559: LOOP
560:
561: IF l_debug_level > 0 THEN
562: oe_debug_pub.add( 'OEXPVPMB: HEADER/LINE ID : '|| P_HEADER_ID || '/' || C1.LINE_ID ) ;
563: END IF;
564: IF l_debug_level > 0 THEN
565: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
566: END IF;
561: IF l_debug_level > 0 THEN
562: oe_debug_pub.add( 'OEXPVPMB: HEADER/LINE ID : '|| P_HEADER_ID || '/' || C1.LINE_ID ) ;
563: END IF;
564: IF l_debug_level > 0 THEN
565: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
566: END IF;
567:
568: -- If the call was made from a delayed request, always apply hold.
569: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
580: END IF;
581:
582: -- Check if Hold already exists on this order
583: IF l_debug_level > 0 THEN
584: oe_debug_pub.add( 'OEXPVPMB: CHECK IF HOLD ALREADY APPLIED' ) ;
585: END IF;
586: --
587: OE_HOLDS_PUB.Check_Holds
588: ( p_api_version => 1.0
599:
600: -- Return with Success if this Hold Already exists on the order
601: IF l_hold_result = FND_API.G_TRUE THEN
602: IF l_debug_level > 0 THEN
603: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
604: END IF;
605: -- IF One line is on Hold, other lines will NOT go on hold
606: -- because of this Return.
607: --
612: -- Apply hold only if the flag was set to "Yes" above.
613: IF l_apply_hold = 'Y' THEN
614: -- Apply Credit Check Hold on Header
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECK HOLD ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
617: END IF;
618:
619: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
620: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
645:
646: END IF;
647:
648: IF l_debug_level > 0 THEN
649: oe_debug_pub.add( 'OEXPVPMB: APPLIED CREDIT CHECK HOLD ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
650: END IF;
651: END IF; -- IF apply hold "Yes"
652: END LOOP;
653:
709: where header_id = l_header_rec.header_id
710: group by invoice_to_org_id;
711:
712: --
713: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
714: --
715: BEGIN
716:
717: IF l_debug_level > 0 THEN
714: --
715: BEGIN
716:
717: IF l_debug_level > 0 THEN
718: oe_debug_pub.add( 'ENTERING OE_VERIFY_PAYMENT_PUB.CREDIT_CHECK_LINE_LEVEL.' , 1 ) ;
719: END IF;
720:
721: -- Query the Order Header
722: IF l_debug_level > 0 THEN
719: END IF;
720:
721: -- Query the Order Header
722: IF l_debug_level > 0 THEN
723: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID ) ;
724: END IF;
725: --
726: OE_Header_UTIL.Query_Row
727: (p_header_id => p_header_id
729: );
730:
731: FOR C1 in C_credit_check_lines LOOP
732: IF l_debug_level > 0 THEN
733: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: HEADERID/INVOICETOORGID:' || L_HEADER_REC.HEADER_ID || '/' || C1.INVOICE_TO_ORG_ID , 1 ) ;
734: END IF;
735:
736: OE_Credit_PUB.Check_Available_Credit_Line
737: ( p_header_id => l_header_rec.header_id
743: , p_return_status => l_return_status
744: );
745:
746: IF l_debug_level > 0 THEN
747: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API:' || L_RESULT_OUT ) ;
748: END IF;
749:
750: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
751: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755:
756: -- Release Any existing CC Holds
757: IF l_debug_level > 0 THEN
758: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: RELEASING CREDIT CARD ' || 'HOLDS-AFTER CREDITCHECKING' ) ;
759: END IF;
760: --
761: OE_Verify_Payment_PUB.Release_Verify_Hold
762: ( p_header_id => l_header_rec.header_id
775: IF l_result_out = 'PASS' THEN
776:
777: -- Release Any existing Credit Checking Holds
778: IF l_debug_level > 0 THEN
779: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: RELEASING CREDIT CHECKING HOLDS' ) ;
780: END IF;
781: --
782: OE_Verify_Payment_PUB.Release_Credit_Check_Hold
783: ( p_header_id => l_header_rec.header_id
795: ELSE -- Failed
796:
797: -- Apply Credit Checking Failure Hold on the Order
798: IF l_debug_level > 0 THEN
799: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
800: END IF;
801: --
802: OE_Verify_Payment_PUB.Apply_Credit_Check_Hold
803: ( p_header_id => l_header_rec.header_id
818: END IF; -- IF Result Out of Credit Checking
819: END LOOP;
820:
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add( 'EXITING OE_VERIFY_PAYMENT_PUB.CREDIT_CHECK_LINE_LEVEL.' , 1 ) ;
823: END IF;
824:
825: EXCEPTION
826:
901: l_payment_server_order_num VARCHAR2(80);
902: l_approval_code VARCHAR2(80);
903:
904: --
905: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
906: --
907: BEGIN
908:
909: p_return_status := FND_API.G_RET_STS_SUCCESS;
908:
909: p_return_status := FND_API.G_RET_STS_SUCCESS;
910:
911: IF l_debug_level > 0 THEN
912: oe_debug_pub.add( 'OEXPVPMB: IN VERIFY PAYMENT MAIN' , 1 ) ;
913: END IF;
914: G_credit_check_rule_id := NULL ;
915:
916: OE_Verify_Payment_PUB.G_init_calling_action := p_calling_action; --ER#7479609
916: OE_Verify_Payment_PUB.G_init_calling_action := p_calling_action; --ER#7479609
917:
918: -- Query the Order Header
919: IF l_debug_level > 0 THEN
920: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID , 1 ) ;
921: END IF;
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
924: END IF;
919: IF l_debug_level > 0 THEN
920: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID , 1 ) ;
921: END IF;
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
924: END IF;
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
927: END IF;
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
924: END IF;
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
927: END IF;
928: IF l_debug_level > 0 THEN
929: oe_debug_pub.add( 'OEXPVPMB: P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST , 1 ) ;
930: END IF;
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
927: END IF;
928: IF l_debug_level > 0 THEN
929: oe_debug_pub.add( 'OEXPVPMB: P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST , 1 ) ;
930: END IF;
931: --
932: OE_Header_UTIL.Query_Row
933: (p_header_id => p_header_id
936:
937: -- Verify Payment is N/A for RMAs, return if Order Category is 'RETURN'
938: --
939: IF l_debug_level > 0 THEN
940: oe_debug_pub.add( 'AFTER QUERY ORDER CATEGORY => '|| L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
941: END IF;
942: IF l_debug_level > 0 THEN
943: oe_debug_pub.add( 'AFTER QUERY BOOKED FLAG => '|| L_HEADER_REC.BOOKED_FLAG ) ;
944: END IF;
939: IF l_debug_level > 0 THEN
940: oe_debug_pub.add( 'AFTER QUERY ORDER CATEGORY => '|| L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
941: END IF;
942: IF l_debug_level > 0 THEN
943: oe_debug_pub.add( 'AFTER QUERY BOOKED FLAG => '|| L_HEADER_REC.BOOKED_FLAG ) ;
944: END IF;
945:
946: IF l_header_rec.order_category_code = 'RETURN' THEN
947: RETURN;
950: -- Check if Verify Payment Call was made from Delayed Request
951: -- Because if call was made from a delayed request, we need to
952: -- VOID the Current Credit Card Authorization if any exists.
953: IF l_debug_level > 0 THEN
954: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING CALL FROM DELAYED REQUEST OR NOT' ) ;
955: END IF;
956: --
957: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
958:
961: ** As VOID has been de-supported by iPayment, commenting
962: ** following code which was used to VOID existing Trxns.
963: **
964: -- VOID only if the Approval Date exist
965: OE_DEBUG_PUB.ADD('OEXPVPMB: Before checking if APPROVAL DATE is NOT NULL');
966: --
967: **
968: ** Commented as this will not be true if the approval code
969: ** itself is being updated to NULL
978: -- null even if approval code has been updated to null.
979: IF l_header_rec.credit_card_approval_date is NOT NULL THEN
980:
981: -- Call the Payment Request API
982: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Calling Payment Request API For VOIDAUTHONLY');
983: --
984: OE_Verify_Payment_PUB.Payment_Request
985: ( p_header_rec => l_header_rec
986: , p_trxn_type => 'VOIDAUTHONLY'
995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
996: END IF;
997:
998: -- Requery Order Header just in case it was updated during VOID.
999: OE_DEBUG_PUB.ADD('OEXPVPMB: Requerying Order Header After Void : ');
1000: --
1001: OE_Header_UTIL.Query_Row
1002: (p_header_id => p_header_id
1003: ,x_header_rec => l_header_rec
1007: */
1008:
1009: -- If the Order is UnBooked then return
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IF THE ORDER IS UNBOOKED' ) ;
1012: END IF;
1013: --
1014: IF l_header_rec.booked_flag = 'N' THEN
1015: -- start of changes for bug#16633189
1013: --
1014: IF l_header_rec.booked_flag = 'N' THEN
1015: -- start of changes for bug#16633189
1016: IF l_debug_level > 0 THEN
1017: oe_debug_pub.add( 'OEXPVPMB: No Credit checking performed. Resetting the oe_verify_payment_pub.G_credit_check_flag. ' ) ;
1018: END IF;
1019: oe_verify_payment_pub.G_credit_check_flag := 'Y' ;
1020: -- end of changes for bug# 16633189
1021: RETURN;
1022:
1023: ELSE
1024: -- Call Which_Rule function to find out Which Rule to Apply
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING WHICH RULE ' ) ;
1027: END IF;
1028: --
1029:
1030: -- Commenting code as the credit check rule will be BOOKING
1036: END IF;
1037:
1038: END IF;
1039: IF l_debug_level > 0 THEN
1040: oe_debug_pub.add( 'L_CALLING_ACTION => '|| L_CALLING_ACTION ) ;
1041: END IF;
1042:
1043:
1044: -- Begin of the change for Prepayment.
1045: -- determine whether or not this is a prepaid order
1046: l_prepayment := OE_PrePayment_UTIL.is_prepaid_order(l_header_rec);
1047:
1048: IF l_debug_level > 0 THEN
1049: oe_debug_pub.add( 'OEXPVPMB: THE PREPAYMENT_FLAG FOR THIS ORDER IS: '||L_PREPAYMENT , 3 ) ;
1050: END IF;
1051: IF l_debug_level > 0 THEN
1052: oe_debug_pub.add( 'OEXPVPMB: THE CALLING_ACTION FOR THIS ORDER IS: '||L_CALLING_ACTION , 3 ) ;
1053: END IF;
1048: IF l_debug_level > 0 THEN
1049: oe_debug_pub.add( 'OEXPVPMB: THE PREPAYMENT_FLAG FOR THIS ORDER IS: '||L_PREPAYMENT , 3 ) ;
1050: END IF;
1051: IF l_debug_level > 0 THEN
1052: oe_debug_pub.add( 'OEXPVPMB: THE CALLING_ACTION FOR THIS ORDER IS: '||L_CALLING_ACTION , 3 ) ;
1053: END IF;
1054:
1055: IF l_prepayment = 'Y' AND l_header_rec.booked_flag = 'Y'
1056: AND NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1072: );
1073:
1074: p_return_status := l_return_status;
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_PREPAYMENT_PVT' , 1 ) ;
1077: END IF;
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
1080: END IF;
1075: IF l_debug_level > 0 THEN
1076: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_PREPAYMENT_PVT' , 1 ) ;
1077: END IF;
1078: IF l_debug_level > 0 THEN
1079: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
1080: END IF;
1081:
1082: -- control returned from Verify_payment for Prepayment to
1083: -- avoid continuation of code through the existing code flow
1081:
1082: -- control returned from Verify_payment for Prepayment to
1083: -- avoid continuation of code through the existing code flow
1084: IF l_debug_level > 0 THEN
1085: oe_debug_pub.add( ' RETURN FROM VERIFY_PAYMENT FOR PREPAYMENT' , 1 ) ;
1086: END IF;
1087:
1088: RETURN ;
1089:
1098: IF l_calling_action IS NOT NULL
1099: AND l_header_rec.booked_flag = 'Y' THEN
1100:
1101: IF l_debug_level > 0 THEN
1102: oe_debug_pub.add( 'OEXPVPMB: RULE TO BE USED IS : '|| L_CALLING_ACTION ) ;
1103: END IF;
1104:
1105: -- Check the Rule to Apply
1106: IF l_debug_level > 0 THEN
1103: END IF;
1104:
1105: -- Check the Rule to Apply
1106: IF l_debug_level > 0 THEN
1107: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => '|| G_CREDIT_CHECK_RULE_ID ) ;
1108: END IF;
1109: G_credit_check_rule_id := NULL ;
1110:
1111: -- check rule defined here is multiple payment is not enabled, if
1111: -- check rule defined here is multiple payment is not enabled, if
1112: -- enabled, the check has been moved to OE_Prepayment_PVT.Process_Payments.
1113: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IF THE RULE IS DEFINED OR NOT' ) ;
1116: END IF;
1117: l_rule_defined := OE_Verify_Payment_PUB.Check_Rule_Defined
1118: ( p_header_rec => l_header_rec
1119: , p_calling_action => l_calling_action
1119: , p_calling_action => l_calling_action
1120: ) ;
1121:
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add('OEXPVPMB: OUT OF RULE DEFINED : '|| L_RULE_DEFINED);
1124: oe_debug_pub.add('G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID);
1125: END IF;
1126:
1127: -- If NO Rule defined for the calling action then return
1120: ) ;
1121:
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add('OEXPVPMB: OUT OF RULE DEFINED : '|| L_RULE_DEFINED);
1124: oe_debug_pub.add('G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID);
1125: END IF;
1126:
1127: -- If NO Rule defined for the calling action then return
1128: -- Modified the condition so that only return when multiple
1146:
1147:
1148: -- Check for Electronic Payment
1149: IF l_debug_level > 0 THEN
1150: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING FOR ELECTRONIC PAYMENT' , 1 ) ;
1151: END IF;
1152: --
1153: l_epayment := OE_Verify_Payment_PUB.Is_Electronic_Payment( l_header_rec ) ;
1154:
1152: --
1153: l_epayment := OE_Verify_Payment_PUB.Is_Electronic_Payment( l_header_rec ) ;
1154:
1155: IF l_debug_level > 0 THEN
1156: oe_debug_pub.add( 'OEXPVPMB: IS IT AN ELECTRONIC PAYMENT : '|| L_EPAYMENT ) ;
1157: END IF;
1158:
1159:
1160: IF OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1163: -- are all coded in OE_PREPAYMENT_PVT.Process_Payments
1164: -- from Pack J if multiple payments is enabled.
1165:
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'start processing multiple payments.',3 ) ;
1168: END IF;
1169:
1170: OE_PREPAYMENT_PVT.Process_Payments(
1171: p_header_id => l_header_rec.header_id,
1183: ,p_data => p_msg_data
1184: );
1185:
1186: IF l_debug_level > 0 THEN
1187: oe_debug_pub.add( 'OEXPVPMB: after calling Process_Payments, returns tatus is: '||l_return_status, 3 ) ;
1188: END IF;
1189:
1190: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1191: RAISE FND_API.G_EXC_ERROR;
1206: , p_calling_action => l_calling_action
1207: ) ;
1208:
1209: IF l_debug_level > 0 THEN
1210: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED FOR AUTHORIZATION: '|| L_RULE_DEFINED ) ;
1211: END IF;
1212:
1213: IF l_rule_defined = 'N' THEN
1214: return;
1232: -- Remove check for OE_CREDIT_CHECK_API_FLOW
1233:
1234: BEGIN
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1237: END IF;
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1240: END IF;
1235: IF l_debug_level > 0 THEN
1236: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1237: END IF;
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1240: END IF;
1241: IF l_debug_level > 0 THEN
1242: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1243: END IF;
1238: IF l_debug_level > 0 THEN
1239: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1240: END IF;
1241: IF l_debug_level > 0 THEN
1242: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1243: END IF;
1244:
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1242: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1243: END IF;
1244:
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1247: END IF;
1248: IF l_debug_level > 0 THEN
1249: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1250: END IF;
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1247: END IF;
1248: IF l_debug_level > 0 THEN
1249: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1250: END IF;
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1253: END IF;
1248: IF l_debug_level > 0 THEN
1249: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1250: END IF;
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1253: END IF;
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1256: END IF;
1251: IF l_debug_level > 0 THEN
1252: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1253: END IF;
1254: IF l_debug_level > 0 THEN
1255: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1256: END IF;
1257:
1258:
1259: -- lkxu 10/22/02: commented out the check for profile option,
1261: -- IF NVL(Fnd_Profile.Value('OE_CREDIT_CHECKING_LEVEL'),'ORDER')
1262: -- = 'ORDER' THEN
1263: BEGIN
1264: IF l_debug_level > 0 THEN
1265: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1266: END IF;
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1269: END IF;
1264: IF l_debug_level > 0 THEN
1265: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1266: END IF;
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1269: END IF;
1270: IF l_debug_level > 0 THEN
1271: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1272: END IF;
1267: IF l_debug_level > 0 THEN
1268: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1269: END IF;
1270: IF l_debug_level > 0 THEN
1271: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1272: END IF;
1273: IF l_debug_level > 0 THEN
1274: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1275: END IF;
1270: IF l_debug_level > 0 THEN
1271: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1272: END IF;
1273: IF l_debug_level > 0 THEN
1274: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1275: END IF;
1276: IF l_debug_level > 0 THEN
1277: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1278: END IF;
1273: IF l_debug_level > 0 THEN
1274: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1275: END IF;
1276: IF l_debug_level > 0 THEN
1277: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1278: END IF;
1279: IF l_debug_level > 0 THEN
1280: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1281: END IF;
1276: IF l_debug_level > 0 THEN
1277: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1278: END IF;
1279: IF l_debug_level > 0 THEN
1280: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1281: END IF;
1282:
1283: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
1284: ( p_header_id => p_header_id
1290: , x_return_status => p_return_status
1291: );
1292:
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1295: END IF;
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1298: END IF;
1293: IF l_debug_level > 0 THEN
1294: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1295: END IF;
1296: IF l_debug_level > 0 THEN
1297: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1298: END IF;
1299:
1300: -- Control returned out of Verify_payment to avoid
1301: -- continuation of code through the existing code flow
1300: -- Control returned out of Verify_payment to avoid
1301: -- continuation of code through the existing code flow
1302: G_credit_check_rule_id := NULL ;
1303: IF l_debug_level > 0 THEN
1304: oe_debug_pub.add( 'OEXPVPMB: RETURN FROM VERIFY_PAYMENT ' , 1 ) ;
1305: END IF;
1306: RETURN ;
1307: END ;
1308:
1306: RETURN ;
1307: END ;
1308:
1309: IF l_debug_level > 0 THEN
1310: oe_debug_pub.add( 'OEXPVPMB: EXCEPTION - CONTROL NOT RETURNED OUT ' , 1 ) ;
1311: END IF;
1312:
1313: -- END IF; -- End MCC profile IF
1314: END ; -- End MCC Block
1318: ----------------- End Multi currency credit checking code changes --
1319: ---------------------------------------------------------------------
1320:
1321: IF l_debug_level > 0 THEN
1322: oe_debug_pub.add( 'OEXPVPMB: IN SINGLE CREDIT CHECKING' , 1 ) ;
1323: END IF;
1324: -- The following Check_Available_Credit is replaced by MULTI
1325: -- must not be supported
1326:
1325: -- must not be supported
1326:
1327: -- Call the Credit Checking API
1328: IF l_debug_level > 0 THEN
1329: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CREDIT CHECKING API' ) ;
1330: END IF;
1331: --
1332:
1333: -- lkxu, call different code according to the profile option.
1345: );
1346:
1347:
1348: IF l_debug_level > 0 THEN
1349: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1350: END IF;
1351:
1352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1353: RAISE FND_API.G_EXC_ERROR;
1358: IF l_result_out = 'PASS' THEN
1359:
1360: -- Release Any existing Credit Checking Holds
1361: IF l_debug_level > 0 THEN
1362: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLDS' ) ;
1363: END IF;
1364: --
1365: OE_Verify_Payment_PUB.Release_Verify_Hold
1366: ( p_header_id => l_header_rec.header_id
1382: p_header_id => l_header_rec.header_id
1383: ) = 'N' then
1384: -- Apply Credit Checking Failure Hold on the Order
1385: IF l_debug_level > 0 THEN
1386: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
1387: END IF;
1388: --
1389: OE_Verify_Payment_PUB.Apply_Verify_Hold
1390: ( p_header_id => l_header_rec.header_id
1426: ELSE
1427: -- retain the original code before Pack J if multiple payments
1428: -- is not enabled.
1429: IF l_debug_level > 0 THEN
1430: oe_debug_pub.add( 'start processing verify payment without multiple payments.',3 ) ;
1431: END IF;
1432:
1433: IF l_epayment = 'Y' THEN
1434:
1432:
1433: IF l_epayment = 'Y' THEN
1434:
1435: IF l_debug_level > 0 THEN
1436: oe_debug_pub.add( 'OEXPVPMB: IN ELECTRONIC PAYMENT' ) ;
1437: END IF;
1438:
1439: -- Call the Electronic Payment Request API
1440: IF l_debug_level > 0 THEN
1437: END IF;
1438:
1439: -- Call the Electronic Payment Request API
1440: IF l_debug_level > 0 THEN
1441: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PAYMENT REQUEST API FOR AUTHONLY' ) ;
1442: END IF;
1443: --
1444: OE_Verify_Payment_PUB.Payment_Request
1445: ( p_header_rec => l_header_rec
1450: , p_return_status => l_return_status
1451: );
1452:
1453: IF l_debug_level > 0 THEN
1454: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING PAYMENT REQUEST API' ) ;
1455: END IF;
1456:
1457: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1458: RAISE FND_API.G_EXC_ERROR;
1463: -- If No Error Occurred in Payment Request, Release any existing
1464: -- Credit Checking Holds This will ensure that for Elctronic Payment
1465: -- only Credit Card Holds, if any, remain applied.
1466: IF l_debug_level > 0 THEN
1467: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLD' ) ;
1468: END IF;
1469: --
1470: OE_Verify_Payment_PUB.Release_Verify_Hold
1471: ( p_header_id => l_header_rec.header_id
1484: IF l_result_out = 'PASS' THEN
1485:
1486: -- Release Any existing CC Holds
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CARD HOLDS' ) ;
1489: END IF;
1490: --
1491: OE_Verify_Payment_PUB.Release_Verify_Hold
1492: ( p_header_id => l_header_rec.header_id
1504: ELSIF l_result_out = 'RISK' THEN
1505:
1506: -- Apply Risk Hold on the Order
1507: IF l_debug_level > 0 THEN
1508: oe_debug_pub.add( 'OEXPVPMB: APPLYING CC RISK HOLD' ) ;
1509: END IF;
1510: --
1511: OE_Verify_Payment_PUB.Apply_Verify_Hold
1512: ( p_header_id => l_header_rec.header_id
1524: ELSE -- Failed
1525:
1526: -- Apply CC Auth Failure Hold on the Order
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'OEXPVPMB: APPLYING CC AUTH FAILURE HOLD' ) ;
1529: END IF;
1530: --
1531: OE_Verify_Payment_PUB.Apply_Verify_Hold
1532: ( p_header_id => l_header_rec.header_id
1562: -- Remove check for OE_CREDIT_CHECK_API_FLOW
1563:
1564: BEGIN
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1567: END IF;
1568: IF l_debug_level > 0 THEN
1569: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1570: END IF;
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1567: END IF;
1568: IF l_debug_level > 0 THEN
1569: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1570: END IF;
1571: IF l_debug_level > 0 THEN
1572: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1573: END IF;
1568: IF l_debug_level > 0 THEN
1569: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1570: END IF;
1571: IF l_debug_level > 0 THEN
1572: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1573: END IF;
1574:
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1572: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1573: END IF;
1574:
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1577: END IF;
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1580: END IF;
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1577: END IF;
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1580: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1583: END IF;
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1580: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1583: END IF;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1586: END IF;
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1583: END IF;
1584: IF l_debug_level > 0 THEN
1585: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1586: END IF;
1587:
1588:
1589: -- lkxu 10/22/02: commented out the check for profile option,
1591: -- IF NVL(Fnd_Profile.Value('OE_CREDIT_CHECKING_LEVEL'),'ORDER')
1592: -- = 'ORDER' THEN
1593: BEGIN
1594: IF l_debug_level > 0 THEN
1595: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1596: END IF;
1597: IF l_debug_level > 0 THEN
1598: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1599: END IF;
1594: IF l_debug_level > 0 THEN
1595: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1596: END IF;
1597: IF l_debug_level > 0 THEN
1598: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1599: END IF;
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1602: END IF;
1597: IF l_debug_level > 0 THEN
1598: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1599: END IF;
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1602: END IF;
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1605: END IF;
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1602: END IF;
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1605: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1608: END IF;
1603: IF l_debug_level > 0 THEN
1604: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1605: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1608: END IF;
1609: IF l_debug_level > 0 THEN
1610: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1611: END IF;
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1608: END IF;
1609: IF l_debug_level > 0 THEN
1610: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1611: END IF;
1612:
1613: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
1614: ( p_header_id => p_header_id
1620: , x_return_status => p_return_status
1621: );
1622:
1623: IF l_debug_level > 0 THEN
1624: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1625: END IF;
1626: IF l_debug_level > 0 THEN
1627: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1628: END IF;
1623: IF l_debug_level > 0 THEN
1624: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1625: END IF;
1626: IF l_debug_level > 0 THEN
1627: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1628: END IF;
1629:
1630: -- Control returned out of Verify_payment to avoid
1631: -- continuation of code through the existing code flow
1630: -- Control returned out of Verify_payment to avoid
1631: -- continuation of code through the existing code flow
1632: G_credit_check_rule_id := NULL ;
1633: IF l_debug_level > 0 THEN
1634: oe_debug_pub.add( 'OEXPVPMB: RETURN FROM VERIFY_PAYMENT ' , 1 ) ;
1635: END IF;
1636: RETURN ;
1637: END ;
1638:
1636: RETURN ;
1637: END ;
1638:
1639: IF l_debug_level > 0 THEN
1640: oe_debug_pub.add( 'OEXPVPMB: EXCEPTION - CONTROL NOT RETURNED OUT ' , 1 ) ;
1641: END IF;
1642:
1643: -- END IF; -- End MCC profile IF
1644: END ; -- End MCC Block
1647: ----------------- End Multi currency credit checking code changes --
1648: ---------------------------------------------------------------------
1649:
1650: IF l_debug_level > 0 THEN
1651: oe_debug_pub.add( 'OEXPVPMB: IN SINGLE CREDIT CHECKING' , 1 ) ;
1652: END IF;
1653: -- The following Check_Available_Credit is replaced by MULTI
1654: -- must not be supported
1655:
1654: -- must not be supported
1655:
1656: -- Call the Credit Checking API
1657: IF l_debug_level > 0 THEN
1658: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CREDIT CHECKING API' ) ;
1659: END IF;
1660: --
1661:
1662: -- lkxu, call different code according to the profile option.
1674: );
1675:
1676:
1677: IF l_debug_level > 0 THEN
1678: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1679: END IF;
1680:
1681: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1682: RAISE FND_API.G_EXC_ERROR;
1687: IF l_result_out = 'PASS' THEN
1688:
1689: -- Release Any existing Credit Checking Holds
1690: IF l_debug_level > 0 THEN
1691: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLDS' ) ;
1692: END IF;
1693: --
1694: OE_Verify_Payment_PUB.Release_Verify_Hold
1695: ( p_header_id => l_header_rec.header_id
1711: p_header_id => l_header_rec.header_id
1712: ) = 'N' then
1713: -- Apply Credit Checking Failure Hold on the Order
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
1716: END IF;
1717: --
1718: OE_Verify_Payment_PUB.Apply_Verify_Hold
1719: ( p_header_id => l_header_rec.header_id
1803: IS
1804: l_calling_action VARCHAR2(30) := 'BOOKING';
1805: l_ship_rule_count NUMBER := 0;
1806: --
1807: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1808: --
1809: BEGIN
1810:
1811: IF l_debug_level > 0 THEN
1808: --
1809: BEGIN
1810:
1811: IF l_debug_level > 0 THEN
1812: oe_debug_pub.add( 'OEXPVPMB: INSIDE WHICH RULE' ) ;
1813: END IF;
1814: -- Count lines in the order with "SHIP_LINE" activity completed.
1815: /* For bug 1459546, performance issue, query has been tuned */
1816:
1903: l_calling_action := 'BOOKING';
1904: END IF;
1905:
1906: IF l_debug_level > 0 THEN
1907: oe_debug_pub.add( 'OEXPVPMB: CALLING ACTION FROM WHICH_RULE ( AFTER 1723338 ) '||L_CALLING_ACTION , 1 ) ;
1908: END IF;
1909: RETURN (l_calling_action);
1910:
1911: EXCEPTION
1924: ) RETURN VARCHAR2
1925: IS
1926: l_credit_check_rule_id NUMBER ;
1927: --
1928: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1929: --
1930: BEGIN
1931:
1932: IF l_debug_level > 0 THEN
1929: --
1930: BEGIN
1931:
1932: IF l_debug_level > 0 THEN
1933: oe_debug_pub.add( 'OEXPVPMB: INSIDE CHECK RULE DEFINED' ) ;
1934: END IF;
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add( 'P_CALLING_ACTION => '|| P_CALLING_ACTION ) ;
1937: END IF;
1932: IF l_debug_level > 0 THEN
1933: oe_debug_pub.add( 'OEXPVPMB: INSIDE CHECK RULE DEFINED' ) ;
1934: END IF;
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add( 'P_CALLING_ACTION => '|| P_CALLING_ACTION ) ;
1937: END IF;
1938:
1939: G_credit_check_rule_id := NULL ;
1940: -- Entry Credit Check Rule.
1940: -- Entry Credit Check Rule.
1941: IF p_calling_action = 'BOOKING' THEN
1942:
1943: IF l_debug_level > 0 THEN
1944: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE ENTRY RULE' ) ;
1945: END IF;
1946: --
1947: begin
1948: /*7194250
1974: BEGIN
1975: IF p_calling_action = 'SHIPPING'
1976: THEN
1977: IF l_debug_level > 0 THEN
1978: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE SHIPPING RULE' ) ;
1979: END IF;
1980: --
1981: begin
1982: /*7194250
2005:
2006: IF p_calling_action = 'PACKING'
2007: THEN
2008: IF l_debug_level > 0 THEN
2009: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE PACKING RULE' ) ;
2010: END IF;
2011: --
2012: begin
2013: /*7194250
2036:
2037: IF p_calling_action = 'PICKING'
2038: THEN
2039: IF l_debug_level > 0 THEN
2040: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE PICKING RULE' ) ;
2041: END IF;
2042: --
2043: begin
2044: /*7194250
2068:
2069: END IF; --- calling action
2070:
2071: IF l_debug_level > 0 THEN
2072: oe_debug_pub.add( 'L_CREDIT_CHECK_RULE_ID => '|| L_CREDIT_CHECK_RULE_ID ) ;
2073: END IF;
2074: -- If no rule was found for the calling action
2075: -- Order is not subject to Payment Verification
2076: IF l_credit_check_rule_id > 0 THEN
2074: -- If no rule was found for the calling action
2075: -- Order is not subject to Payment Verification
2076: IF l_credit_check_rule_id > 0 THEN
2077: IF l_debug_level > 0 THEN
2078: oe_debug_pub.add( 'OEXPVPMB: RULE EXISTS' ) ;
2079: END IF;
2080: G_credit_check_rule_id := l_credit_check_rule_id ;
2081: RETURN ('Y') ;
2082: ELSE
2080: G_credit_check_rule_id := l_credit_check_rule_id ;
2081: RETURN ('Y') ;
2082: ELSE
2083: IF l_debug_level > 0 THEN
2084: oe_debug_pub.add( 'OEXPVPMB: NO RULE FOUND' ) ;
2085: END IF;
2086: G_credit_check_rule_id := NULL ;
2087: RETURN ('N') ;
2088: END IF;
2098: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type )
2099: RETURN VARCHAR2
2100: IS
2101: --
2102: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2103: --
2104: BEGIN
2105:
2106: IF l_debug_level > 0 THEN
2103: --
2104: BEGIN
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add( 'OEXPVPMB: IN IS ELECTRONIC PAYMENT' ) ;
2108: END IF;
2109:
2110: IF p_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2111: IF l_debug_level > 0 THEN
2108: END IF;
2109:
2110: IF p_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2111: IF l_debug_level > 0 THEN
2112: oe_debug_pub.add( 'OEXPVPMB: EXITING IS ELECTRONIC PAYMENT' ) ;
2113: END IF;
2114: RETURN ('Y') ;
2115: ELSE
2116: IF l_debug_level > 0 THEN
2113: END IF;
2114: RETURN ('Y') ;
2115: ELSE
2116: IF l_debug_level > 0 THEN
2117: oe_debug_pub.add( 'OEXPVPMB: EXITING IS ELECTRONIC PAYMENT' ) ;
2118: END IF;
2119: RETURN ('N') ;
2120: END IF;
2121:
2134: l_return_status VARCHAR2(30);
2135: l_msg_count NUMBER;
2136: l_msg_data VARCHAR2(2000);
2137: --
2138: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2139: --
2140: BEGIN
2141:
2142: IF l_debug_level > 0 THEN
2139: --
2140: BEGIN
2141:
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'OEXPVPMB: IN CHECK FOR HOLD' ) ;
2144: END IF;
2145:
2146: -- Checking existense of unreleased holds on this order
2147: IF l_debug_level > 0 THEN
2144: END IF;
2145:
2146: -- Checking existense of unreleased holds on this order
2147: IF l_debug_level > 0 THEN
2148: oe_debug_pub.add( 'OEXPVPMB: CHECKING HOLDS ON HEADER '||P_HEADER_ID||' FOR HOLD '||P_HOLD_ID ) ;
2149: END IF;
2150: --
2151: OE_HOLDS_PUB.Check_Holds
2152: ( p_api_version => 1.0
2163: -- Check the Result
2164: IF l_hold_result = FND_API.G_TRUE THEN
2165: p_hold_exists := 'Y';
2166: IF l_debug_level > 0 THEN
2167: oe_debug_pub.add( 'OEXPVPMB: HOLD EXISTS ON ORDER' ) ;
2168: END IF;
2169: ELSE
2170: p_hold_exists := 'N';
2171: IF l_debug_level > 0 THEN
2168: END IF;
2169: ELSE
2170: p_hold_exists := 'N';
2171: IF l_debug_level > 0 THEN
2172: oe_debug_pub.add( 'OEXPVPMB: NO HOLD ON ORDER' ) ;
2173: END IF;
2174: END IF;
2175:
2176: EXCEPTION
2212: l_release_reason VARCHAR2(30);
2213: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2214: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
2215: --
2216: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2217: --
2218: BEGIN
2219:
2220: p_return_status := FND_API.G_RET_STS_SUCCESS;
2219:
2220: p_return_status := FND_API.G_RET_STS_SUCCESS;
2221:
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY HOLD' ) ;
2224: END IF;
2225:
2226: -- Check What type of Holds to Release
2227: IF p_epayment_hold = 'Y' THEN
2225:
2226: -- Check What type of Holds to Release
2227: IF p_epayment_hold = 'Y' THEN
2228: IF l_debug_level > 0 THEN
2229: oe_debug_pub.add( 'OEXPVPMB: RELEASE EPAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2230: END IF;
2231:
2232: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2233:
2234: l_hold_id := 11 ; -- Credit Card Authorization Failure Hold
2235:
2236: -- Call Check for Hold to see if the Hold Exists
2237: IF l_debug_level > 0 THEN
2238: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2239: END IF;
2240: --
2241: OE_Verify_Payment_PUB.Hold_Exists
2242: ( p_header_id => l_hold_entity_id
2246:
2247: IF l_hold_exists = 'Y' THEN
2248:
2249: IF l_debug_level > 0 THEN
2250: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2251: END IF;
2252: l_hold_source_rec.hold_id := l_hold_id;
2253: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2254: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2273:
2274: END IF; -- Do nothing if the hold has already been released.
2275:
2276: IF l_debug_level > 0 THEN
2277: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2278: END IF;
2279:
2280: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2281: l_hold_id := 12 ; -- Credit Card Risk Hold
2281: l_hold_id := 12 ; -- Credit Card Risk Hold
2282:
2283: -- Call Check for Hold to see if the Hold Exists
2284: IF l_debug_level > 0 THEN
2285: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2286: END IF;
2287: --
2288: OE_Verify_Payment_PUB.Hold_Exists
2289: ( p_header_id => l_hold_entity_id
2293:
2294: IF l_hold_exists = 'Y' THEN
2295:
2296: IF l_debug_level > 0 THEN
2297: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2298: END IF;
2299: l_hold_source_rec.hold_id := l_hold_id;
2300: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2301: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2321:
2322: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2323: -- release pending payment authorization hold.
2324: IF l_debug_level > 0 THEN
2325: oe_debug_pub.add( 'OEXPVPMB: CHECKING PENDING AUTHORIZATION HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2326: END IF;
2327:
2328: l_hold_id := 16 ; -- Pending Payment Authorization Hold.
2329:
2328: l_hold_id := 16 ; -- Pending Payment Authorization Hold.
2329:
2330: -- Call Check for Hold to see if the Hold Exists
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2333: END IF;
2334: --
2335: OE_Verify_Payment_PUB.Hold_Exists
2336: ( p_header_id => l_hold_entity_id
2340:
2341: IF l_hold_exists = 'Y' THEN
2342:
2343: IF l_debug_level > 0 THEN
2344: oe_debug_pub.add( 'OEXPVPMB: RELEASING PENDING AUTHORIZATION HOLD FOR HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2345: END IF;
2346: l_hold_source_rec.hold_id := l_hold_id;
2347: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2348: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2368:
2369: ELSE -- Release Other Verify Holds
2370:
2371: IF l_debug_level > 0 THEN
2372: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CHECKING HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2373: END IF;
2374:
2375: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2376: l_hold_id := 1 ; -- Credit Checking Hold
2376: l_hold_id := 1 ; -- Credit Checking Hold
2377:
2378: -- Call Check for Hold to see if the Hold Exists
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2381: END IF;
2382: --
2383: OE_Verify_Payment_PUB.Hold_Exists
2384: ( p_header_id => l_hold_entity_id
2388:
2389: IF l_hold_exists = 'Y' THEN
2390:
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2393: END IF;
2394:
2395: l_hold_source_rec.hold_id := l_hold_id;
2396: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2474: l_return_status VARCHAR2(30);
2475:
2476: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
2477: --
2478: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2479: --
2480: BEGIN
2481:
2482: p_return_status := FND_API.G_RET_STS_SUCCESS;
2481:
2482: p_return_status := FND_API.G_RET_STS_SUCCESS;
2483:
2484: IF l_debug_level > 0 THEN
2485: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2486: END IF;
2487:
2488: IF l_debug_level > 0 THEN
2489: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2485: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2486: END IF;
2487:
2488: IF l_debug_level > 0 THEN
2489: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2490: END IF;
2491: IF l_debug_level > 0 THEN
2492: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2493: END IF;
2488: IF l_debug_level > 0 THEN
2489: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2490: END IF;
2491: IF l_debug_level > 0 THEN
2492: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2493: END IF;
2494:
2495: -- Check if Hold already exists on this order
2496: IF l_debug_level > 0 THEN
2493: END IF;
2494:
2495: -- Check if Hold already exists on this order
2496: IF l_debug_level > 0 THEN
2497: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
2498: END IF;
2499: --
2500: OE_Verify_Payment_PUB.Hold_Exists
2501: ( p_header_id => p_header_id
2505:
2506: -- Return with Success if this Hold Already exists on the order
2507: IF l_hold_exists = 'Y' THEN
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID ) ;
2510: END IF;
2511: RETURN ;
2512: END IF ;
2513:
2512: END IF ;
2513:
2514: -- Apply Verify Hold on Header
2515: IF l_debug_level > 0 THEN
2516: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON HEADER ID : ' || P_HEADER_ID ) ;
2517: END IF;
2518:
2519: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
2520: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
2534: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2535: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2536: OE_MSG_PUB.ADD;
2537: IF l_debug_level > 0 THEN
2538: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2539: END IF;
2540: END IF;
2541: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2542: RAISE FND_API.G_EXC_ERROR;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END IF;
2546:
2547: IF l_debug_level > 0 THEN
2548: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON HEADER ID:' || P_HEADER_ID ) ;
2549: END IF;
2550:
2551: EXCEPTION
2552:
2606: l_return_status VARCHAR2(30);
2607:
2608: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
2609: --
2610: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2611: --
2612: BEGIN
2613:
2614: p_return_status := FND_API.G_RET_STS_SUCCESS;
2613:
2614: p_return_status := FND_API.G_RET_STS_SUCCESS;
2615:
2616: IF l_debug_level > 0 THEN
2617: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2618: END IF;
2619:
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2617: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2618: END IF;
2619:
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2622: END IF;
2623: IF l_debug_level > 0 THEN
2624: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2625: END IF;
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2622: END IF;
2623: IF l_debug_level > 0 THEN
2624: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2625: END IF;
2626:
2627: -- Check if Hold already exists on this order
2628: IF l_debug_level > 0 THEN
2625: END IF;
2626:
2627: -- Check if Hold already exists on this order
2628: IF l_debug_level > 0 THEN
2629: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
2630: END IF;
2631: --
2632: OE_Verify_Payment_PUB.Hold_Exists
2633: ( p_header_id => p_header_id
2637:
2638: -- Return with Success if this Hold Already exists on the order
2639: IF l_hold_exists = 'Y' THEN
2640: IF l_debug_level > 0 THEN
2641: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID ) ;
2642: END IF;
2643: RETURN ;
2644: END IF ;
2645:
2644: END IF ;
2645:
2646: -- Apply Verify Hold on Header
2647: IF l_debug_level > 0 THEN
2648: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON HEADER ID : ' || P_HEADER_ID ) ;
2649: END IF;
2650:
2651: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
2652: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
2666: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2667: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2668: OE_MSG_PUB.ADD;
2669: IF l_debug_level > 0 THEN
2670: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2671: END IF;
2672: END IF;
2673: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2674: RAISE FND_API.G_EXC_ERROR;
2677: END IF;
2678:
2679: -- bug 4339864
2680: IF l_debug_level > 0 THEN
2681: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
2682: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
2683: END IF;
2684:
2685: COMMIT;
2678:
2679: -- bug 4339864
2680: IF l_debug_level > 0 THEN
2681: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
2682: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
2683: END IF;
2684:
2685: COMMIT;
2686:
2684:
2685: COMMIT;
2686:
2687: IF l_debug_level > 0 THEN
2688: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON HEADER ID:' || P_HEADER_ID ) ;
2689: END IF;
2690:
2691: EXCEPTION
2692:
2741: l_return_status VARCHAR2(30) := NULL;
2742: l_void_supported VARCHAR2(1);
2743:
2744: --
2745: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2746: --
2747: BEGIN
2748:
2749: p_result_out := 'PASS';
2749: p_result_out := 'PASS';
2750: p_return_status := FND_API.G_RET_STS_SUCCESS;
2751:
2752: IF l_debug_level > 0 THEN
2753: oe_debug_pub.add( 'OEXPVPMB: IN PAYMENT REQUEST MAIN' ) ;
2754: END IF;
2755:
2756: -- Return if iPayment is Not Installed
2757: IF l_debug_level > 0 THEN
2754: END IF;
2755:
2756: -- Return if iPayment is Not Installed
2757: IF l_debug_level > 0 THEN
2758: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IPAYMENT IS INSTALLED OR NOT' ) ;
2759: END IF;
2760: --
2761: -- lkxu, fix bug 1701377
2762: /***
2773: END IF;
2774:
2775: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
2776: IF l_debug_level > 0 THEN
2777: oe_debug_pub.add( 'OEXPVPMB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
2778: END IF;
2779: RETURN;
2780: END IF;
2781:
2779: RETURN;
2780: END IF;
2781:
2782: IF l_debug_level > 0 THEN
2783: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION TYPE PASSED TO THE PROCEDURE IS '||P_TRXN_TYPE ) ;
2784: END IF;
2785:
2786: -- If Authorization is Requested then
2787: IF l_debug_level > 0 THEN
2784: END IF;
2785:
2786: -- If Authorization is Requested then
2787: IF l_debug_level > 0 THEN
2788: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE TRANSACTION TYPE' ) ;
2789: END IF;
2790: --
2791: IF p_trxn_type = 'AUTHONLY' THEN
2792:
2791: IF p_trxn_type = 'AUTHONLY' THEN
2792:
2793: -- Call Authorize Payment for Credit Card Authorization
2794: IF l_debug_level > 0 THEN
2795: oe_debug_pub.add( 'OEXPVPMB: CALLING AUTHORIZE PAYMENT' ) ;
2796: END IF;
2797: --
2798: OE_Verify_Payment_PUB.Authorize_Payment( p_header_rec => p_header_rec
2799: , p_msg_count => l_msg_count
2810: ELSIF p_trxn_type = 'VOIDAUTHONLY' THEN
2811:
2812: -- Call Fetch Authorization Trxn
2813: IF l_debug_level > 0 THEN
2814: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH AUTHORIZATION TRXN' ) ;
2815: END IF;
2816: --
2817: OE_Verify_Payment_PUB.Fetch_Authorization_Trxn
2818: ( p_header_rec => p_header_rec
2821: );
2822:
2823: -- If a valid Transaction Id returned by above program then Void it.
2824: IF l_debug_level > 0 THEN
2825: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING VALID TRANSACTION ID FOR VOIDING' ) ;
2826: END IF;
2827: --
2828: IF l_void_trxn_id > 0 THEN
2829:
2828: IF l_void_trxn_id > 0 THEN
2829:
2830: -- Void this Transaction
2831: IF l_debug_level > 0 THEN
2832: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING VOID PAYMENT FOR TRXN ID : '||L_VOID_TRXN_ID ) ;
2833: END IF;
2834: --
2835: OE_Verify_Payment_PUB.Void_Payment
2836: ( p_void_trxn_id => l_void_trxn_id
2848:
2849: -- Return if VOID is not even supported.
2850: IF l_void_supported = 'N' THEN
2851: IF l_debug_level > 0 THEN
2852: oe_debug_pub.add( 'OEXPVPMB: VOID NOT SUPPORTED , RETURNING SUCCESS - 1' ) ;
2853: END IF;
2854: RETURN;
2855: END IF;
2856:
2866: END IF;
2867:
2868: -- Update Payment Amount and Authorization Code and DATE
2869: IF l_debug_level > 0 THEN
2870: oe_debug_pub.add( 'OEXPVPMB: CALLING UPDATE AUTH INFO TO UPDATE THE APPROVAL INFO TO NULL' ) ;
2871: END IF;
2872: --
2873: OE_Verify_Payment_PUB.Update_Authorization_Info
2874: ( p_header_rec.header_id
2886: END IF;
2887:
2888: -- Release any existing Credit Card Holds on the Order
2889: IF l_debug_level > 0 THEN
2890: oe_debug_pub.add( 'OEXPVPMB: RELEASING EXISTING CC HOLDS SINCE AUTH HAS BEEN VOIDED' ) ;
2891: END IF;
2892: --
2893: OE_Verify_Payment_PUB.Release_Verify_Hold
2894: ( p_header_id => p_header_rec.header_id
2949: l_status VARCHAR2(1) := NULL;
2950: l_industry VARCHAR2(30) := NULL;
2951: l_ipayment_product_id NUMBER := 673 ;
2952: --
2953: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2954: --
2955: BEGIN
2956:
2957: IF l_debug_level > 0 THEN
2954: --
2955: BEGIN
2956:
2957: IF l_debug_level > 0 THEN
2958: oe_debug_pub.add( 'OEXPVPMB: IN CHECK IPAYMENT INSTALLED' ) ;
2959: END IF;
2960:
2961: IF fnd_installation.get ( l_ipayment_product_id, l_ipayment_product_id, l_status, l_industry) THEN
2962: IF (l_status = 'I') THEN
2960:
2961: IF fnd_installation.get ( l_ipayment_product_id, l_ipayment_product_id, l_status, l_industry) THEN
2962: IF (l_status = 'I') THEN
2963: IF l_debug_level > 0 THEN
2964: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2965: END IF;
2966: RETURN('Y') ;
2967: ELSE
2968: IF l_debug_level > 0 THEN
2965: END IF;
2966: RETURN('Y') ;
2967: ELSE
2968: IF l_debug_level > 0 THEN
2969: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2970: END IF;
2971: RETURN('N') ;
2972: END IF;
2973: ELSE
2971: RETURN('N') ;
2972: END IF;
2973: ELSE
2974: IF l_debug_level > 0 THEN
2975: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2976: END IF;
2977: RETURN('N') ;
2978: END IF ;
2979:
2992: iby_cursor IBYCurType;
2993: l_ref_info VARCHAR2(80);
2994: l_sql_stmt VARCHAR2(1000);
2995: --
2996: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2997: --
2998: BEGIN
2999:
3000: IF l_debug_level > 0 THEN
2997: --
2998: BEGIN
2999:
3000: IF l_debug_level > 0 THEN
3001: oe_debug_pub.add( 'OEXPVPMB: IN VOICE AUTH REQUESTED' ) ;
3002: END IF;
3003:
3004: -- Query the data related to last authorization trxn for this order
3005: IF l_debug_level > 0 THEN
3002: END IF;
3003:
3004: -- Query the data related to last authorization trxn for this order
3005: IF l_debug_level > 0 THEN
3006: oe_debug_pub.add( 'OEXPVPMB: SQL FOR QUERYING THE LAST AUTHORIZATION TRXN' ) ;
3007: END IF;
3008: --
3009:
3010: -- modified for multiple payments.
3031: WHERE B.REQTYPE = ''ORAPMTREQ''
3032: AND B.STATUS = 0
3033: AND B.TANGIBLEID = IT.TANGIBLEID)';
3034:
3035: --OE_DEBUG_PUB.ADD(l_sql_stmt);
3036:
3037: OPEN iby_cursor FOR l_sql_stmt USING l_ref_info;
3038:
3039: FETCH iby_cursor INTO p_tangible_id, p_amount;
3041: CLOSE iby_cursor;
3042:
3043: -- Return Tangible Id and Amount
3044: IF l_debug_level > 0 THEN
3045: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH TANGIBLE ID: '||P_TANGIBLE_ID ) ;
3046: END IF;
3047: IF l_debug_level > 0 THEN
3048: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
3049: END IF;
3044: IF l_debug_level > 0 THEN
3045: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH TANGIBLE ID: '||P_TANGIBLE_ID ) ;
3046: END IF;
3047: IF l_debug_level > 0 THEN
3048: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
3049: END IF;
3050:
3051: IF l_debug_level > 0 THEN
3052: oe_debug_pub.add( 'OEXPVPMB: EXITING VOICE AUTH REQUESTED' ) ;
3048: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
3049: END IF;
3050:
3051: IF l_debug_level > 0 THEN
3052: oe_debug_pub.add( 'OEXPVPMB: EXITING VOICE AUTH REQUESTED' ) ;
3053: END IF;
3054:
3055: END Voice_Auth_Requested;
3056:
3065: , p_merchant_ref OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3066: )
3067: IS
3068: --
3069: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3070: --
3071: BEGIN
3072:
3073: IF l_debug_level > 0 THEN
3070: --
3071: BEGIN
3072:
3073: IF l_debug_level > 0 THEN
3074: oe_debug_pub.add( 'OEXPVPMB: IN GET PAY METHOD INFO - LOCAL' ) ;
3075: END IF;
3076:
3077: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
3078: IF l_debug_level > 0 THEN
3075: END IF;
3076:
3077: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
3078: IF l_debug_level > 0 THEN
3079: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE DETAILS' ) ;
3080: END IF;
3081: --
3082: begin
3083: SELECT
3165: l_trxn_id NUMBER;
3166: l_cust_trx_date DATE;
3167:
3168: --
3169: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3170: --
3171: BEGIN
3172:
3173: p_result_out := 'PASS' ;
3173: p_result_out := 'PASS' ;
3174: p_return_status := FND_API.G_RET_STS_SUCCESS;
3175:
3176: IF l_debug_level > 0 THEN
3177: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE PAYMENT' ) ;
3178: END IF;
3179:
3180: -- Call Check Reauthorize Order to find out if Reauthorization is required
3181: IF l_debug_level > 0 THEN
3178: END IF;
3179:
3180: -- Call Check Reauthorize Order to find out if Reauthorization is required
3181: IF l_debug_level > 0 THEN
3182: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CHECK REAUTHORIZE FLAG' ) ;
3183: END IF;
3184: --
3185: OE_Verify_Payment_PUB.Check_Reauthorize_Order
3186: ( p_header_rec => p_header_rec
3189: , p_reauthorize_out => l_reauthorize_flag
3190: );
3191:
3192: IF l_debug_level > 0 THEN
3193: oe_debug_pub.add( 'OEXPVPMB: REAUTHORIZE FLAG HAS BEEN SET TO : '||L_REAUTHORIZE_FLAG ) ;
3194: END IF;
3195:
3196: /*
3197: ** Fix for 1967295:
3198: ** As VOID has been de-supported by iPayment, commenting
3199: ** following code which was used to VOID existing Trxns.
3200: **
3201: -- If a valid Transaction Id returned by above program then Void it.
3202: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Checking Valid Transaction ID for Voiding');
3203: --
3204: IF l_void_trxn_id > 0 THEN
3205:
3206: -- Void this Transaction
3203: --
3204: IF l_void_trxn_id > 0 THEN
3205:
3206: -- Void this Transaction
3207: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Calling Void Payment for Trxn ID : '||l_void_trxn_id);
3208: --
3209: OE_Verify_Payment_PUB.Void_Payment
3210: ( p_void_trxn_id => l_void_trxn_id
3211: , p_msg_count => l_msg_count
3224: -- Check Reauthorize Flag and proceed
3225: IF l_reauthorize_flag = 'N' THEN
3226:
3227: IF l_debug_level > 0 THEN
3228: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE' ) ;
3229: END IF;
3230:
3231: -- Check if Hold already exists on this order
3232: IF l_debug_level > 0 THEN
3229: END IF;
3230:
3231: -- Check if Hold already exists on this order
3232: IF l_debug_level > 0 THEN
3233: oe_debug_pub.add( 'OEXPVPMB: CHECK IF ORDER ON RISK HOLD' ) ;
3234: END IF;
3235: --
3236: OE_Verify_Payment_PUB.Hold_Exists
3237: ( p_header_id => p_header_rec.header_id
3240: );
3241:
3242: IF l_hold_exists = 'Y' THEN
3243: IF l_debug_level > 0 THEN
3244: oe_debug_pub.add( 'OEXPVPMB: ORDER IS ON RISK HOLD' ) ;
3245: END IF;
3246: p_result_out := 'RISK';
3247: END IF;
3248:
3250:
3251: ELSIF l_reauthorize_flag = 'V' THEN
3252:
3253: IF l_debug_level > 0 THEN
3254: oe_debug_pub.add( 'OEXPVPMB: SETUP A VOICE AUTHORIZATION' ) ;
3255: END IF;
3256: l_voiceauth_flag := 'Y';
3257: l_voice_auth_code:= p_header_rec.credit_card_approval_code;
3258:
3259: ELSE
3260:
3261: -- Call to see if an auth already exists which was not updated on order
3262: IF l_debug_level > 0 THEN
3263: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH LAST AUTH' ) ;
3264: END IF;
3265: --
3266: OE_Verify_Payment_PUB.Fetch_Last_Auth ( p_header_rec => p_header_rec
3267: , p_trxn_id => l_trxn_id
3272: );
3273:
3274: IF l_trxn_id > 0 THEN
3275: IF l_debug_level > 0 THEN
3276: oe_debug_pub.add( 'OEXPVPMB: GOING DIRECTLY TO UPDATE AUTH' ) ;
3277: END IF;
3278: goto UPDATE_AUTH;
3279: END IF;
3280:
3284: ** following code which was used to VOID existing Trxns.
3285: **
3286: -- Return if VOID is not even supported.
3287: IF l_void_supported = 'N' THEN
3288: OE_DEBUG_PUB.ADD('OEXPVPMB: Void Not Supported, Returning Success - 2');
3289:
3290: -- Check if Hold already exists on this order
3291: OE_DEBUG_PUB.ADD('OEXPVPMB: Check if Order on Risk Hold');
3292: --
3287: IF l_void_supported = 'N' THEN
3288: OE_DEBUG_PUB.ADD('OEXPVPMB: Void Not Supported, Returning Success - 2');
3289:
3290: -- Check if Hold already exists on this order
3291: OE_DEBUG_PUB.ADD('OEXPVPMB: Check if Order on Risk Hold');
3292: --
3293: OE_Verify_Payment_PUB.Hold_Exists
3294: ( p_header_id => p_header_rec.header_id
3295: , p_hold_id => 12 -- Seed Id for CC Risk Hold
3296: , p_hold_exists => l_hold_exists
3297: );
3298:
3299: IF l_hold_exists = 'Y' THEN
3300: OE_DEBUG_PUB.ADD('OEXPVPMB: Order is on Risk Hold');
3301: p_result_out := 'RISK';
3302: END IF;
3303:
3304: RETURN;
3314: );
3315:
3316: IF l_tangible_id IS NOT NULL AND l_reauthorize_flag = 'Y' THEN
3317: IF l_debug_level > 0 THEN
3318: oe_debug_pub.add( 'OEXPVPMB: WILL NOT REAUTHORIZE , VOICE AUTH REQUESTED' ) ;
3319: END IF;
3320: p_result_out := 'FAIL';
3321: RETURN;
3322: END IF;
3322: END IF;
3323:
3324: -- Check the Existence of attributes required for CC Payment Authorization
3325: IF l_debug_level > 0 THEN
3326: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING THE VALIDATE REQUIRED ATTRIBUTES' ) ;
3327: END IF;
3328: --
3329: IF NOT Validate_Required_Attributes(p_header_rec) THEN
3330: p_result_out := 'FAIL';
3332: END IF;
3333:
3334: -- Get Primary Payment Method Id for this Customer, Site
3335: IF l_debug_level > 0 THEN
3336: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PRIMARY PAYMENT METHOD' ) ;
3337: END IF;
3338: --
3339: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
3340: ( p_header_rec => p_header_rec ) ;
3340: ( p_header_rec => p_header_rec ) ;
3341:
3342: -- Check if a valid method was selected
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE METHOD ID' ) ;
3345: END IF;
3346: --
3347: IF l_pay_method_id > 0 THEN
3348:
3346: --
3347: IF l_pay_method_id > 0 THEN
3348:
3349: IF l_debug_level > 0 THEN
3350: oe_debug_pub.add( 'OEXPVPMB: PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID ) ;
3351: END IF;
3352:
3353: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
3354: IF l_debug_level > 0 THEN
3351: END IF;
3352:
3353: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
3354: IF l_debug_level > 0 THEN
3355: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PAY METHOD INFO' ) ;
3356: END IF;
3357: --
3358: Get_Pay_Method_Info
3359: ( p_pay_method_id => l_pay_method_id
3362: ) ;
3363:
3364: -- If Merchant Id is invalid then set the out result to FAIL and return
3365: IF l_debug_level > 0 THEN
3366: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE PAYEE ID' ) ;
3367: END IF;
3368: --
3369: IF l_payee_id is NULL THEN
3370:
3391: -- The Payee Id is
3392: --l_payee_id := TO_CHAR(l_merchant_id);
3393:
3394: IF l_debug_level > 0 THEN
3395: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
3396: END IF;
3397:
3398: --IF l_debug_level > 0 THEN
3399: --oe_debug_pub.add( 'OEXPVPMB: PAYER NAME IS : '|| P_HEADER_REC.CREDIT_CARD_HOLDER_NAME ) ;
3395: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
3396: END IF;
3397:
3398: --IF l_debug_level > 0 THEN
3399: --oe_debug_pub.add( 'OEXPVPMB: PAYER NAME IS : '|| P_HEADER_REC.CREDIT_CARD_HOLDER_NAME ) ;
3400: --END IF;
3401:
3402: -- Get a NEW tangible id only if it's not already pulled from Voice Auth
3403: IF l_tangible_id is NULL THEN
3402: -- Get a NEW tangible id only if it's not already pulled from Voice Auth
3403: IF l_tangible_id is NULL THEN
3404: -- Fetch the Tangible Id from sequence
3405: IF l_debug_level > 0 THEN
3406: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE TANGIBLE ID' ) ;
3407: END IF;
3408: --
3409: begin
3410: SELECT TO_CHAR(OE_IPAYMENT_TANGIBLE_S.NEXTVAL)||'_ONT'
3413: end ;
3414: END IF; -- tangible id null
3415:
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( 'OEXPVPMB: TANGIBLE ID IS : '||L_TANGIBLE_ID ) ;
3418: END IF;
3419:
3420: -- Setup the Payer Address Record Type
3421: begin
3447: -- up the credit card bank account.
3448:
3449: -- Setup the Customer Bank Account in AP
3450: IF l_debug_level > 0 THEN
3451: oe_debug_pub.add( 'OEXPVPMB: BEFORE SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3452: END IF;
3453: --
3454:
3455: /**
3471: WHEN OTHERS THEN
3472: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3473: OE_MSG_PUB.ADD;
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add( 'OEXPVPMB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT' ) ;
3476: END IF;
3477: p_result_out := 'FAIL';
3478: RETURN;
3479: end;
3479: end;
3480: **/
3481:
3482: IF l_debug_level > 0 THEN
3483: oe_debug_pub.add( 'OEXPVPMB: AFTER SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3484: END IF;
3485:
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3483: oe_debug_pub.add( 'OEXPVPMB: AFTER SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3484: END IF;
3485:
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3488: END IF;
3489: IF l_debug_level > 0 THEN
3490: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3491: END IF;
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3488: END IF;
3489: IF l_debug_level > 0 THEN
3490: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3491: END IF;
3492: IF l_debug_level > 0 THEN
3493: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3494: END IF;
3489: IF l_debug_level > 0 THEN
3490: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3491: END IF;
3492: IF l_debug_level > 0 THEN
3493: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3494: END IF;
3495: IF l_debug_level > 0 THEN
3496: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3497: END IF;
3492: IF l_debug_level > 0 THEN
3493: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3494: END IF;
3495: IF l_debug_level > 0 THEN
3496: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3497: END IF;
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3500: END IF;
3495: IF l_debug_level > 0 THEN
3496: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3497: END IF;
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3500: END IF;
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3503: END IF;
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3500: END IF;
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3503: END IF;
3504: IF l_debug_level > 0 THEN
3505: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3506: END IF;
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3503: END IF;
3504: IF l_debug_level > 0 THEN
3505: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3506: END IF;
3507: IF l_debug_level > 0 THEN
3508: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3509: END IF;
3504: IF l_debug_level > 0 THEN
3505: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3506: END IF;
3507: IF l_debug_level > 0 THEN
3508: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3509: END IF;
3510: IF l_debug_level > 0 THEN
3511: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3512: END IF;
3507: IF l_debug_level > 0 THEN
3508: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3509: END IF;
3510: IF l_debug_level > 0 THEN
3511: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3512: END IF;
3513: IF l_debug_level > 0 THEN
3514: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER TO ADDRESS END .. ' ) ;
3515: END IF;
3510: IF l_debug_level > 0 THEN
3511: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3512: END IF;
3513: IF l_debug_level > 0 THEN
3514: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER TO ADDRESS END .. ' ) ;
3515: END IF;
3516:
3517: -- Fetch the Header Values
3518: /*
3538: WHERE ORGANIZATION_ID = p_header_rec.ship_to_org_id;
3539: end ;
3540:
3541: IF l_debug_level > 0 THEN
3542: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS START .. ' ) ;
3543: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3546: END IF;
3541: IF l_debug_level > 0 THEN
3542: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS START .. ' ) ;
3543: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3546: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3549: END IF;
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3546: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3549: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3552: END IF;
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3549: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3552: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3555: END IF;
3550: IF l_debug_level > 0 THEN
3551: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3552: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3555: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3558: END IF;
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3555: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3558: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3561: END IF;
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3558: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3561: END IF;
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS END .. ' ) ;
3564: END IF;
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3561: END IF;
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS END .. ' ) ;
3564: END IF;
3565:
3566: /*
3567: ** Fix Bug # 2262893
3568: ** Modified following IF condition to handle adresses with NULL values in line
3569: ** 1, 2 and 3 columns. City, Postal Code and Country are now checked separately.
3570: */
3571: IF l_debug_level > 0 THEN
3572: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF SHIP TO AND INVOICE TO ADDRESSES MATCH' ) ;
3573: END IF;
3574: --
3575: /*
3576: IF (l_header_val_rec.invoice_to_address1 = l_header_val_rec.ship_to_address1
3591: l_ship_to_address := 'FALSE' ; -- Ship To and Invoice To Addresses DO NOT Match
3592: END IF;
3593:
3594: IF l_debug_level > 0 THEN
3595: oe_debug_pub.add( 'OEXPVPMB: SHIP TO AND INVOICE TO MATCH : '|| L_SHIP_TO_ADDRESS ) ;
3596: END IF;
3597:
3598: -- Hour and Minutes after Mid Night in HH24:MM format
3599: IF l_debug_level > 0 THEN
3596: END IF;
3597:
3598: -- Hour and Minutes after Mid Night in HH24:MM format
3599: IF l_debug_level > 0 THEN
3600: oe_debug_pub.add( 'OEXPVPMB: FETCHING HOUR AND MINUTES AFTER MIDNIGHT AS TIME OF PURCHASE' ) ;
3601: END IF;
3602: --
3603: SELECT TO_CHAR(sysdate, 'HH24:MI')
3604: INTO l_time_of_purchase
3604: INTO l_time_of_purchase
3605: FROM DUAL ;
3606:
3607: IF l_debug_level > 0 THEN
3608: oe_debug_pub.add( 'OEXPVPMB: TIME OF PURCHASE AFTER MIDNIGHT HH24:MI IS : '|| L_TIME_OF_PURCHASE ) ;
3609: END IF;
3610:
3611: -- Set the Order Value to Outbound Total only if it's not already
3612: -- set to the tangible amount from the Voice Authorization.
3614: l_order_value := l_outbound_total;
3615: END IF; -- tangible Amount not > 0
3616:
3617: IF l_debug_level > 0 THEN
3618: oe_debug_pub.add( 'OEXPVPMB: AMOUNT TO BE AUTHORIZED , OUTBOUND TOTAL : '||L_ORDER_VALUE ) ;
3619: END IF;
3620:
3621: l_block_str := 'DECLARE
3622:
3706:
3707: END;';
3708:
3709: -- PL/SQL Block for call to OraPmtReq
3710: -- OE_DEBUG_PUB.ADD(l_block_str);
3711: --
3712:
3713: -- Before Executing the Block
3714: IF l_debug_level > 0 THEN
3711: --
3712:
3713: -- Before Executing the Block
3714: IF l_debug_level > 0 THEN
3715: oe_debug_pub.add( 'OEXPVPMB: BEFORE EXECUTING THE PL/SQL BLOCK' ) ;
3716: END IF;
3717: --
3718: EXECUTE IMMEDIATE l_block_str
3719: USING IN l_payee_id
3754: , OUT l_bep_err_mesg;
3755:
3756: -- After Executing the Block
3757: IF l_debug_level > 0 THEN
3758: oe_debug_pub.add( 'OEXPVPMB: AFTER EXECUTING THE PL/SQL BLOCK' ) ;
3759: END IF;
3760: --
3761:
3762: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_status > 0 THEN
3764: -- Check if the Operation was Supported or not
3765: /* IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
3766: l_return_status := FND_API.G_RET_STS_SUCCESS;
3767: IF l_debug_level > 0 THEN
3768: oe_debug_pub.add( 'OEXPVPMB: OPERATION NOT SUPPORTED.' ) ;
3769: END IF;
3770: RETURN;
3771: END IF;
3772: */
3780: FND_MESSAGE.SET_TOKEN('BEPERRMESSAGE',l_bep_err_mesg);
3781: OE_MSG_PUB.ADD;
3782:
3783: IF l_debug_level > 0 THEN
3784: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
3785: END IF;
3786: IF l_debug_level > 0 THEN
3787: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3788: END IF;
3783: IF l_debug_level > 0 THEN
3784: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
3785: END IF;
3786: IF l_debug_level > 0 THEN
3787: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3788: END IF;
3789: IF l_debug_level > 0 THEN
3790: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3791: END IF;
3786: IF l_debug_level > 0 THEN
3787: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3788: END IF;
3789: IF l_debug_level > 0 THEN
3790: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3791: END IF;
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3794: END IF;
3789: IF l_debug_level > 0 THEN
3790: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3791: END IF;
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3794: END IF;
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3797: END IF;
3792: IF l_debug_level > 0 THEN
3793: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3794: END IF;
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3797: END IF;
3798: IF l_debug_level > 0 THEN
3799: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
3800: END IF;
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3797: END IF;
3798: IF l_debug_level > 0 THEN
3799: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
3800: END IF;
3801:
3802: p_result_out := 'FAIL';
3803:
3805:
3806: END IF;
3807:
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( ' ' ) ;
3810: END IF;
3811: IF l_debug_level > 0 THEN
3812: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
3813: END IF;
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add( ' ' ) ;
3810: END IF;
3811: IF l_debug_level > 0 THEN
3812: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
3813: END IF;
3814:
3815: <
3816: -- Update Payment Amount and Authorization Code and DATE
3814:
3815: <
3816: -- Update Payment Amount and Authorization Code and DATE
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3819: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3820: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3821: END IF;
3822: --
3815: <
3816: -- Update Payment Amount and Authorization Code and DATE
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3819: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3820: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3821: END IF;
3822: --
3823: OE_Verify_Payment_PUB.Update_Authorization_Info
3816: -- Update Payment Amount and Authorization Code and DATE
3817: IF l_debug_level > 0 THEN
3818: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3819: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3820: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3821: END IF;
3822: --
3823: OE_Verify_Payment_PUB.Update_Authorization_Info
3824: ( p_header_rec.header_id
3835: RETURN;
3836: END IF;
3837:
3838: IF l_debug_level > 0 THEN
3839: oe_debug_pub.add( 'OEXPVPMB: RISK RESPONSE INCLUDED : '||L_RISKRESP_INCLUDED ) ;
3840: END IF;
3841:
3842: IF l_riskresp_included = 'YES' THEN
3843: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
3842: IF l_riskresp_included = 'YES' THEN
3843: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
3844:
3845: IF l_debug_level > 0 THEN
3846: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
3847: END IF;
3848: IF l_debug_level > 0 THEN
3849: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
3850: END IF;
3845: IF l_debug_level > 0 THEN
3846: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
3847: END IF;
3848: IF l_debug_level > 0 THEN
3849: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
3850: END IF;
3851:
3852: -- If Transaction is Risky, then apply credit card Risk hold.
3853: IF l_risk_score > l_risk_threshold THEN
3852: -- If Transaction is Risky, then apply credit card Risk hold.
3853: IF l_risk_score > l_risk_threshold THEN
3854:
3855: IF l_debug_level > 0 THEN
3856: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION WAS RISKY' ) ;
3857: END IF;
3858: -- Set the Out result to Risk to indicate a risky Transaction
3859: p_result_out := 'RISK' ;
3860: RETURN;
3908: l_void_trxn_id NUMBER;
3909: l_prepaid_total NUMBER;
3910: l_commitment_total NUMBER;
3911: --
3912: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3913: --
3914: BEGIN
3915:
3916: IF l_debug_level > 0 THEN
3913: --
3914: BEGIN
3915:
3916: IF l_debug_level > 0 THEN
3917: oe_debug_pub.add( 'OEXPVPMB: IN CHECK REAUTHORIZE ORDER' ) ;
3918: END IF;
3919:
3920: -- Call Fetch Authorization Trxn
3921: IF l_debug_level > 0 THEN
3918: END IF;
3919:
3920: -- Call Fetch Authorization Trxn
3921: IF l_debug_level > 0 THEN
3922: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH AUTHORIZATION TRXN' ) ;
3923: END IF;
3924: --
3925: OE_Verify_Payment_PUB.Fetch_Authorization_Trxn
3926: ( p_header_rec => p_header_rec
3929: );
3930:
3931: -- Fetch the Order Total Amount
3932: IF l_debug_level > 0 THEN
3933: oe_debug_pub.add( 'OEXPVPMB: FETCH OUTBOUND LINES TOTAL' ) ;
3934: END IF;
3935: --
3936: p_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
3937:
3936: p_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
3937:
3938:
3939: IF l_debug_level > 0 THEN
3940: oe_debug_pub.add( 'OEXPVPMB: TOTAL VALUE OF OUTBOUND LINES : '||P_OUTBOUND_TOTAL ) ;
3941: END IF;
3942:
3943: /*
3944: ** Fix Bug # 2554360: OE_OE_TOTALS_SUMMARY.Outbound_Order_Total will now exclude closed
3943: /*
3944: ** Fix Bug # 2554360: OE_OE_TOTALS_SUMMARY.Outbound_Order_Total will now exclude closed
3945: ** lines. Following is not required as closed lines will be considered captured.
3946: -- Fetch the Captured Amount Total
3947: OE_DEBUG_PUB.ADD('OEXPVPMB: Fetch Captured Amount Total');
3948: --
3949: l_captured_total := OE_Verify_Payment_PUB.Captured_Amount_Total(p_header_rec.header_id);
3950: OE_DEBUG_PUB.ADD('OEXPVPMB: Total Amount already Captured : '||l_captured_total);
3951:
3946: -- Fetch the Captured Amount Total
3947: OE_DEBUG_PUB.ADD('OEXPVPMB: Fetch Captured Amount Total');
3948: --
3949: l_captured_total := OE_Verify_Payment_PUB.Captured_Amount_Total(p_header_rec.header_id);
3950: OE_DEBUG_PUB.ADD('OEXPVPMB: Total Amount already Captured : '||l_captured_total);
3951:
3952: -- Uncaptured outbound Total is
3953: p_outbound_total := l_outbound_total - l_captured_total;
3954: */
3957: IF p_outbound_total > 0 THEN
3958:
3959: -- Credit Card Approval Code is NOT NULL
3960: IF l_debug_level > 0 THEN
3961: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING CC APPROVAL CODE' ) ;
3962: END IF;
3963: --
3964: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
3965:
3965:
3966: -- Fetch the value for profile "OM: Estimated Authorization Validity Period"
3967: -- This is required to estimate the validity of existing Authorizations.
3968: IF l_debug_level > 0 THEN
3969: oe_debug_pub.add( 'OEXPVPMB: FETCHING VALUE FOR OM: ESTIMATED AUTHORIZATION VALIDITY PERIOD' ) ;
3970: END IF;
3971: --
3972: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
3973:
3971: --
3972: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
3973:
3974: IF l_debug_level > 0 THEN
3975: oe_debug_pub.add( 'OEXPVPMB: OM: ESTIMATED AUTHORIZATION VALIDITY PERIOD : '|| L_EST_VALID_DAYS ) ;
3976: END IF;
3977:
3978: -- If the Authorization was taken Automatically using iPayment
3979: --
3979: --
3980: IF l_automatic_auth = 'Y' THEN
3981:
3982: IF l_debug_level > 0 THEN
3983: oe_debug_pub.add( 'OEXPVPMB: IT IS AN AUTOMATIC AUTHORIZATION' ) ;
3984: END IF;
3985:
3986: -- If Transaction has already been captured then
3987: IF (OE_Verify_Payment_PUB.Check_Trxn_Captured(l_void_trxn_id) = 'Y') THEN
3986: -- If Transaction has already been captured then
3987: IF (OE_Verify_Payment_PUB.Check_Trxn_Captured(l_void_trxn_id) = 'Y') THEN
3988:
3989: IF l_debug_level > 0 THEN
3990: oe_debug_pub.add( 'OEXPVPMB: CURRENT AUTH CAPTURED , REAUTHORIZE' ) ;
3991: END IF;
3992: l_reauthorize_flag := 'Y' ;
3993: l_void_trxn_id := 0 ;
3994:
3999: **
4000: -- If Order Total is greater than previously Authorized Amount.
4001: ELSIF ( p_outbound_total > nvl(p_header_rec.payment_amount, 0) ) THEN
4002:
4003: OE_DEBUG_PUB.ADD('OEXPVPMB: Current Auth is for amount lesser than Order Total, reauthorize ');
4004: l_reauthorize_flag := 'Y' ;
4005: */
4006:
4007: -- If based on the estimated authorization validity period,
4008: -- the authorization has expired then reauthorize.
4009: ELSIF ( p_header_rec.credit_card_approval_date + l_est_valid_days <= SYSDATE ) THEN
4010:
4011: IF l_debug_level > 0 THEN
4012: oe_debug_pub.add( 'OEXPVPMB: CURRENT AUTH EXPIRED , REAUTHORIZE' ) ;
4013: END IF;
4014: l_reauthorize_flag := 'Y' ;
4015:
4016: ELSE
4016: ELSE
4017:
4018: -- Niether the Order should be reauthorized nor the existing transaction should be voided.
4019: IF l_debug_level > 0 THEN
4020: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE OR VOID EXISTING TRANSACTION' ) ;
4021: END IF;
4022: l_reauthorize_flag := 'N' ;
4023: l_void_trxn_id := 0 ;
4024:
4026:
4027: ELSE -- Manual Authorization
4028:
4029: IF l_debug_level > 0 THEN
4030: oe_debug_pub.add( 'OEXPVPMB: IT IS A MANUAL AUTHORIZATION' ) ;
4031: END IF;
4032:
4033: --
4034: -- Check if Manual Auth is still valid, use Estimated Validity Period.
4032:
4033: --
4034: -- Check if Manual Auth is still valid, use Estimated Validity Period.
4035: IF l_debug_level > 0 THEN
4036: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING VALIDITITY OF MANUAL AUTHORIZATION' ) ;
4037: END IF;
4038: --
4039: IF p_header_rec.credit_card_approval_date is NOT NULL
4040: AND ( p_header_rec.credit_card_approval_date + l_est_valid_days ) > SYSDATE THEN
4040: AND ( p_header_rec.credit_card_approval_date + l_est_valid_days ) > SYSDATE THEN
4041:
4042: -- Set Reauthorize Flag to 'N', as manual Authorization is valid
4043: IF l_debug_level > 0 THEN
4044: oe_debug_pub.add( 'OEXPVPMB: MANUAL AUTHORIZATION IS STILL VALID , VOID EXISTING AUTOMATIC AUTH' ) ;
4045: END IF;
4046: --
4047: l_reauthorize_flag := 'V' ; -- Now this procedure returns V to setup Voice Auth
4048:
4048:
4049: ELSE
4050:
4051: IF l_debug_level > 0 THEN
4052: oe_debug_pub.add( 'OEXPVPMB: THE ORDER SHOULD BE REAUTHORIZED' ) ;
4053: END IF;
4054: l_reauthorize_flag := 'Y' ;
4055:
4056: END IF; -- Approval DATE Validity
4055:
4056: END IF; -- Approval DATE Validity
4057:
4058: IF l_debug_level > 0 THEN
4059: oe_debug_pub.add( 'OEXPVPMB: AFTER CHECKING VALIDITITY OF MANUAL AUTHORIZATION' ) ;
4060: END IF;
4061:
4062: END IF; -- Manual/Automatic Authorization
4063:
4061:
4062: END IF; -- Manual/Automatic Authorization
4063:
4064: IF l_debug_level > 0 THEN
4065: oe_debug_pub.add( 'OEXPVPMB: END OF MANUAL AUTHORIZATION' ) ;
4066: END IF;
4067:
4068: ELSE
4069:
4092: RETURN BOOLEAN
4093: IS
4094: l_result BOOLEAN := TRUE;
4095: --
4096: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4097: --
4098: BEGIN
4099:
4100: IF l_debug_level > 0 THEN
4097: --
4098: BEGIN
4099:
4100: IF l_debug_level > 0 THEN
4101: oe_debug_pub.add( 'OEXPVPMB: IN VALIDATE REQUIRED ATTRIBUTES' ) ;
4102: END IF;
4103:
4104: -- Check For all Required Attributes
4105: IF p_header_rec.invoice_to_org_id is NULL THEN
4105: IF p_header_rec.invoice_to_org_id is NULL THEN
4106: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
4107: OE_MSG_PUB.ADD;
4108: IF l_debug_level > 0 THEN
4109: oe_debug_pub.add( 'OEXPVPMB: INVOICE_TO_ORG_ID IS REQUIRED' ) ;
4110: END IF;
4111: l_result := FALSE;
4112: ELSIF p_header_rec.credit_card_number is NULL THEN
4113: --R12 CC Encryption
4113: --R12 CC Encryption
4114: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
4115: OE_MSG_PUB.ADD;
4116: IF l_debug_level > 0 THEN
4117: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_NUMBER IS REQUIRED' ) ;
4118: END IF;
4119: l_result := FALSE;
4120: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
4121: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
4120: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
4121: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
4122: OE_MSG_PUB.ADD;
4123: IF l_debug_level > 0 THEN
4124: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_EXPIRATION_DATE IS REQUIRED' ) ;
4125: END IF;
4126: l_result := FALSE;
4127: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
4128: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
4127: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
4128: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
4129: OE_MSG_PUB.ADD;
4130: IF l_debug_level > 0 THEN
4131: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_HOLDER_NAME IS REQUIRED' ) ;
4132: END IF;
4133: l_result := FALSE;
4134: ELSE
4135: l_result := TRUE;
4135: l_result := TRUE;
4136: END IF;
4137:
4138: IF l_debug_level > 0 THEN
4139: oe_debug_pub.add( 'OEXPVPMB: EXITING VALIDATE REQUIRED ATTRIBUTES' ) ;
4140: END IF;
4141: RETURN l_result;
4142:
4143: END Validate_Required_Attributes;
4152: l_cc_only BOOLEAN := TRUE ;
4153: l_pay_method_id NUMBER := 0;
4154: l_cust_pay_method_id NUMBER := 0 ;
4155: --
4156: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4157:
4158: l_as_of_date DATE; --bug 3881076
4159: --
4160: BEGIN
4159: --
4160: BEGIN
4161:
4162: IF l_debug_level > 0 THEN
4163: oe_debug_pub.add( 'OEXPVPMB: IN GET PRIMARY PAY METHOD' ) ;
4164: END IF;
4165:
4166: -- Get Primary Receipt Method Id for this Customer, Site
4167: IF l_debug_level > 0 THEN
4164: END IF;
4165:
4166: -- Get Primary Receipt Method Id for this Customer, Site
4167: IF l_debug_level > 0 THEN
4168: oe_debug_pub.add( 'OEXPVPMB: to get primary pay method.' ) ;
4169: END IF;
4170: --
4171:
4172: /* Changed code to query from AR table directly for R12 cc encryption
4193: null;
4194: END;
4195:
4196: IF l_debug_level > 0 THEN
4197: oe_debug_pub.add( 'OEXPVPMB: PRIMARY PAYMENT METHOD ID AT SITE LEVEL: '||L_PAY_METHOD_ID ) ;
4198: END IF;
4199:
4200: -- Fix Bug # 2256571
4201: -- If No Primary Payment Method set at SITE level, check at CUSTOMER Level.
4225: null;
4226: END;
4227:
4228: IF l_debug_level > 0 THEN
4229: oe_debug_pub.add('OEXPVPMB: PRIMARY PAYMENT METHOD ID AT CUSTOMER LEVEL: '||L_PAY_METHOD_ID ) ;
4230: END IF;
4231: END IF;
4232:
4233: /* comment out for R12 cc encryption
4234: -- Check if Primary Payment Method valid
4235: IF NVL(l_pay_method_id, 0) <= 0 THEN
4236: -- Fetch the Receipt Method ID from OM Profile Option
4237: IF l_debug_level > 0 THEN
4238: oe_debug_pub.add( 'OEXPVPMB: FETCHING PAYMENT METHOD ID FROM PROFILE OPTION' ) ;
4239: END IF;
4240: --
4241: l_pay_method_id := to_number(nvl(fnd_profile.value('ONT_RECEIPT_METHOD_ID'), '0')) ;
4242: --
4240: --
4241: l_pay_method_id := to_number(nvl(fnd_profile.value('ONT_RECEIPT_METHOD_ID'), '0')) ;
4242: --
4243: IF l_debug_level > 0 THEN
4244: oe_debug_pub.add( 'OEXPVPMB: PROFILE PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID ) ;
4245: END IF;
4246:
4247: IF l_pay_method_id > 0 THEN
4248: -- Assign the Payment Method as Primary if setup in Profile
4246:
4247: IF l_pay_method_id > 0 THEN
4248: -- Assign the Payment Method as Primary if setup in Profile
4249: IF l_debug_level > 0 THEN
4250: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING ARP_BANK_PKG.PROCESS_CUST_PAY_METHOD' ) ;
4251: END IF;
4252:
4253: -- comment out the code for R12 cc encryption project
4254: -- Fixed for the FP bug 3881076
4280: , p_merchant_id OUT NOCOPY /* file.sql.39 change */ NUMBER
4281: )
4282: IS
4283: --
4284: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4285: --
4286: BEGIN
4287:
4288: IF l_debug_level > 0 THEN
4285: --
4286: BEGIN
4287:
4288: IF l_debug_level > 0 THEN
4289: oe_debug_pub.add( 'OEXPVPMB: IN GET PAY METHOD INFO' ) ;
4290: END IF;
4291:
4292: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
4293: IF l_debug_level > 0 THEN
4290: END IF;
4291:
4292: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
4293: IF l_debug_level > 0 THEN
4294: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE DETAILS' ) ;
4295: END IF;
4296: --
4297: begin
4298: SELECT
4334: l_bep_err_code VARCHAR2(80);
4335: l_bep_err_mesg VARCHAR2(255);
4336: l_err_loc NUMBER;
4337: --
4338: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4339: --
4340: BEGIN
4341:
4342: p_return_status := FND_API.G_RET_STS_SUCCESS;
4342: p_return_status := FND_API.G_RET_STS_SUCCESS;
4343: p_void_supported:= 'Y';
4344:
4345: IF l_debug_level > 0 THEN
4346: oe_debug_pub.add( 'OEXPVPMB: IN VOID PAYMENT' ) ;
4347: END IF;
4348:
4349:
4350: -- Return if Trxn has already been captured
4353: END IF;
4354:
4355: -- Create the Dynamic SQL to Call the iPayment API
4356: IF l_debug_level > 0 THEN
4357: oe_debug_pub.add( 'OEXPVPMB: CREATING DYNAMIC SQL TO CALL IPAYMENT API ORAPMTVOID' ) ;
4358: END IF;
4359: --
4360: l_block_str:= 'DECLARE
4361: /**** Declaration Section ****/
4398: END;';
4399:
4400: -- PL/SQL Block for call to iPayment
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add( L_BLOCK_STR ) ;
4403: END IF;
4404: --
4405:
4406: -- Before Executing the Block
4404: --
4405:
4406: -- Before Executing the Block
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add( 'OEXPVPMB: BEFORE EXECUTING THE PL/SQL BLOCK' ) ;
4409: END IF;
4410: --
4411: EXECUTE IMMEDIATE l_block_str
4412: USING IN p_void_trxn_id
4421: , OUT l_bep_err_mesg;
4422:
4423: -- After Executing the Block
4424: IF l_debug_level > 0 THEN
4425: oe_debug_pub.add( 'OEXPVPMB: AFTER EXECUTING THE PL/SQL BLOCK' ) ;
4426: END IF;
4427: --
4428:
4429: -- Check the Response Status to ensure that there are NO errors
4433: IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
4434: l_return_status := FND_API.G_RET_STS_SUCCESS;
4435: p_void_supported:= 'N';
4436: IF l_debug_level > 0 THEN
4437: oe_debug_pub.add( 'OEXPVPMB: VOID TRANSACTION NOT SUPPORTED.' ) ;
4438: END IF;
4439: RETURN;
4440: ELSE
4441: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4453: FND_MESSAGE.SET_TOKEN('BEPERRMESSAGE',l_bep_err_mesg);
4454: OE_MSG_PUB.ADD;
4455:
4456: IF l_debug_level > 0 THEN
4457: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
4458: END IF;
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4461: END IF;
4456: IF l_debug_level > 0 THEN
4457: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
4458: END IF;
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4461: END IF;
4462: IF l_debug_level > 0 THEN
4463: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4464: END IF;
4459: IF l_debug_level > 0 THEN
4460: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4461: END IF;
4462: IF l_debug_level > 0 THEN
4463: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4464: END IF;
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4467: END IF;
4462: IF l_debug_level > 0 THEN
4463: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4464: END IF;
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4467: END IF;
4468: IF l_debug_level > 0 THEN
4469: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4470: END IF;
4465: IF l_debug_level > 0 THEN
4466: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4467: END IF;
4468: IF l_debug_level > 0 THEN
4469: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4470: END IF;
4471: IF l_debug_level > 0 THEN
4472: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
4473: END IF;
4468: IF l_debug_level > 0 THEN
4469: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4470: END IF;
4471: IF l_debug_level > 0 THEN
4472: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
4473: END IF;
4474:
4475: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4476:
4512: IS
4513: l_captured_flag VARCHAR2(1) := 'N';
4514: l_sql_stmt VARCHAR2(1000) := NULL;
4515: --
4516: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4517: --
4518: BEGIN
4519:
4520: IF l_debug_level > 0 THEN
4517: --
4518: BEGIN
4519:
4520: IF l_debug_level > 0 THEN
4521: oe_debug_pub.add( 'OEXPVPMB: IN CHECK TRANSACTION CAPTURED' ) ;
4522: END IF;
4523: -- Create the query string
4524: IF l_debug_level > 0 THEN
4525: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO CHECK IF TRANSACTION HAS BEEN CAPTURED' ) ;
4521: oe_debug_pub.add( 'OEXPVPMB: IN CHECK TRANSACTION CAPTURED' ) ;
4522: END IF;
4523: -- Create the query string
4524: IF l_debug_level > 0 THEN
4525: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO CHECK IF TRANSACTION HAS BEEN CAPTURED' ) ;
4526: END IF;
4527: --
4528: l_sql_stmt := 'SELECT ''Y'' FROM IBY_TRANS_ALL_V
4529: WHERE TRANSACTIONID = :trxn_id
4531: OR (REQTYPE = ''ORAPMTREQ'' AND AUTHTYPE = ''AUTHCAPTURE''))
4532: AND NVL(AMOUNT, 0) > 0
4533: AND ROWNUM = 1';
4534:
4535: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4536:
4537: begin
4538: EXECUTE IMMEDIATE l_sql_stmt
4539: INTO l_captured_flag
4558: IS
4559: l_trxn_id NUMBER;
4560: l_tangible_id VARCHAR2(80);
4561: --
4562: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4563: --
4564: BEGIN
4565:
4566: IF l_debug_level > 0 THEN
4563: --
4564: BEGIN
4565:
4566: IF l_debug_level > 0 THEN
4567: oe_debug_pub.add( 'OEXPVPMB: IN FETCH AUTHORIZATION TRANSACTION' ) ;
4568: END IF;
4569:
4570: -- Check if Authorization Code of the Order is NOT NULL
4571: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
4570: -- Check if Authorization Code of the Order is NOT NULL
4571: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
4572: -- Call Fetch Current Auth
4573: IF l_debug_level > 0 THEN
4574: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH CURRENT AUTH' ) ;
4575: END IF;
4576: --
4577: OE_Verify_Payment_PUB.Fetch_Current_Auth
4578: ( p_header_rec => p_header_rec
4604: IF p_header_rec.credit_card_approval_code IS NULL
4605: OR p_automatic_auth = 'N' THEN
4606:
4607: -- Call Last Current Auth
4608: OE_DEBUG_PUB.ADD('OEXPVPMB: Before calling Fetch Last Auth');
4609: --
4610: OE_Verify_Payment_PUB.Fetch_Last_Auth
4611: ( p_header_rec => p_header_rec
4612: , p_trxn_id => l_trxn_id
4636: l_ref_info VARCHAR2(80);
4637: l_credit_card_approval_code VARCHAR2(80);
4638: l_credit_card_approval_date DATE;
4639: --
4640: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4641: --
4642: BEGIN
4643:
4644: IF l_debug_level > 0 THEN
4641: --
4642: BEGIN
4643:
4644: IF l_debug_level > 0 THEN
4645: oe_debug_pub.add( 'OEXPVPMB: IN FETCH CURRENT AUTHORIZATION' ) ;
4646: END IF;
4647:
4648: IF p_line_id IS NOT NULL THEN
4649: l_ref_info := TO_CHAR(p_line_id);
4671: AND p_header_rec.source_document_type_id <> 2 ) ) THEN
4672:
4673: -- Update REFINFO with Order HEADER_ID if not updated yet.
4674: IF l_debug_level > 0 THEN
4675: oe_debug_pub.add( 'OEXPVPMB: SQL STMT TO UPDATE REFINFO WITH HEADER_ID' ) ;
4676: END IF;
4677: --
4678: /* Bug 6700106
4679: l_sql_stmt := 'UPDATE IBY_TANGIBLE IT
4687: AND trunc(ITAV.UPDATEDATE) = trunc(:auth_date) --5932506
4688: AND (ITAV.REFINFO IS NULL
4689: OR ITAV.REFINFO != :ref_info2))';
4690:
4691: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4692:
4693: begin
4694: EXECUTE IMMEDIATE l_sql_stmt
4695: USING l_ref_info
4731: -- Bug 6700106
4732:
4733:
4734: IF l_debug_level > 0 THEN
4735: oe_debug_pub.add( 'OEXPVPMB: UPDATED '||SQL%ROWCOUNT||' ROWS.' ) ;
4736: END IF;
4737:
4738: EXCEPTION
4739: WHEN OTHERS THEN
4737:
4738: EXCEPTION
4739: WHEN OTHERS THEN
4740: IF l_debug_level > 0 THEN
4741: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR UPDATING REFINFO.' ) ;
4742: END IF;
4743: IF l_debug_level > 0 THEN
4744: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4745: END IF;
4740: IF l_debug_level > 0 THEN
4741: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR UPDATING REFINFO.' ) ;
4742: END IF;
4743: IF l_debug_level > 0 THEN
4744: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4745: END IF;
4746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4747: end;
4748:
4749: END IF;
4750:
4751: -- Create the query string
4752: IF l_debug_level > 0 THEN
4753: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO FETCH TRXN BASED ON ORDER AUTH CODE' ) ;
4754: END IF;
4755: --
4756: l_sql_stmt := 'SELECT TRANSACTIONID, TANGIBLEID
4757: FROM (SELECT A.TRANSACTIONID, A.TANGIBLEID
4769: AND B.STATUS = 0)
4770: ORDER BY A.UPDATEDATE DESC)
4771: WHERE ROWNUM = 1';
4772:
4773: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4774:
4775: begin
4776: EXECUTE IMMEDIATE l_sql_stmt
4777: INTO p_trxn_id, p_tangible_id
4782: WHEN NO_DATA_FOUND THEN
4783: p_trxn_id := 0;
4784: WHEN OTHERS THEN
4785: IF l_debug_level > 0 THEN
4786: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR IN FETCH_CURRENT_AUTH.' ) ;
4787: END IF;
4788: IF l_debug_level > 0 THEN
4789: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4790: END IF;
4785: IF l_debug_level > 0 THEN
4786: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR IN FETCH_CURRENT_AUTH.' ) ;
4787: END IF;
4788: IF l_debug_level > 0 THEN
4789: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4790: END IF;
4791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4792: end;
4793:
4793:
4794: END IF;
4795:
4796: IF l_debug_level > 0 THEN
4797: oe_debug_pub.add( 'OEXPVPMB: FOUND TRXN WITH TANGBILE ID '||P_TANGIBLE_ID ) ;
4798: END IF;
4799:
4800: IF l_debug_level > 0 THEN
4801: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH CURRENT AUTHORIZATION' ) ;
4797: oe_debug_pub.add( 'OEXPVPMB: FOUND TRXN WITH TANGBILE ID '||P_TANGIBLE_ID ) ;
4798: END IF;
4799:
4800: IF l_debug_level > 0 THEN
4801: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH CURRENT AUTHORIZATION' ) ;
4802: END IF;
4803:
4804: END Fetch_Current_Auth;
4805:
4819: l_req_date DATE;
4820: l_ref_info VARCHAR2(80) :=TO_CHAR(p_header_rec.header_id);
4821: l_est_valid_days NUMBER := 0 ;
4822: --
4823: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4824: --
4825:
4826: BEGIN
4827:
4825:
4826: BEGIN
4827:
4828: IF l_debug_level > 0 THEN
4829: oe_debug_pub.add( 'OEXPVPMB: IN FETCH LAST AUTHORIZATION' ) ;
4830: END IF;
4831:
4832: /*
4833: ** We don't want to trigger following processing if user is
4835: */
4836: IF p_header_rec.credit_card_approval_code is null
4837: AND p_header_rec.credit_card_approval_date is not null THEN
4838: IF l_debug_level > 0 THEN
4839: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH LAST AUTH , AUTH PAYMENT ACTION' ) ;
4840: END IF;
4841: RETURN;
4842: END IF;
4843:
4842: END IF;
4843:
4844: -- Query the data related to last authorized trxn for this order
4845: IF l_debug_level > 0 THEN
4846: oe_debug_pub.add( 'OEXPVPMB: SQL FOR QUERYING THE LAST AUTHORIZED TRXN' ) ;
4847: END IF;
4848: --
4849: -- Create the query string
4850: l_sql_stmt := 'SELECT TRANSACTIONID, TANGIBLEID, AUTHCODE, UPDATEDATE, AMOUNT
4866: AND B.STATUS = 0)
4867: ORDER BY A.UPDATEDATE DESC)
4868: WHERE ROWNUM = 1';
4869:
4870: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4871:
4872: begin
4873: EXECUTE IMMEDIATE l_sql_stmt
4874: INTO p_trxn_id, p_tangible_id, p_auth_code, p_trxn_date, p_amount
4885: -- have been taken through iPayment, but was not updated on the order header.
4886: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
4887:
4888: IF l_debug_level > 0 THEN
4889: oe_debug_pub.add( 'OEXPVPMB: FETCH_LAST_AUTH , ESTIMATED AUTH VALIDITY PERIOD : '|| L_EST_VALID_DAYS ) ;
4890: END IF;
4891:
4892: IF (p_trxn_date + l_est_valid_days > SYSDATE) THEN
4893:
4891:
4892: IF (p_trxn_date + l_est_valid_days > SYSDATE) THEN
4893:
4894: IF l_debug_level > 0 THEN
4895: oe_debug_pub.add( 'OEXPVPMB: VALID AUTH ALREADY EXISTS , TANGIBLEID '||P_TANGIBLE_ID ) ;
4896: END IF;
4897:
4898: ELSE
4899:
4897:
4898: ELSE
4899:
4900: IF l_debug_level > 0 THEN
4901: oe_debug_pub.add( 'OEXPVPMB: NO PREVIOUS AUTH EXISTS' ) ;
4902: END IF;
4903:
4904: p_trxn_id := 0;
4905: p_auth_code := null;
4909:
4910: END IF;
4911:
4912: IF l_debug_level > 0 THEN
4913: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH LAST AUTHORIZATION' ) ;
4914: END IF;
4915:
4916: END Fetch_Last_Auth;
4917:
4937: l_msg_data VARCHAR2(2000);
4938: l_control_rec OE_GLOBALS.Control_Rec_Type;
4939: l_return_status VARCHAR2(30);
4940: --
4941: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4942: --
4943: BEGIN
4944:
4945: SAVEPOINT Update_Authorization_Info;
4946:
4947: p_return_status := FND_API.G_RET_STS_SUCCESS;
4948:
4949: IF l_debug_level > 0 THEN
4950: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
4951: END IF;
4952:
4953: -- Set up the Header record
4954: OE_Header_Util.Lock_Row
4976: -- Header needs to be requeried, setting the flag to true
4977: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4978:
4979: IF l_debug_level > 0 THEN
4980: oe_debug_pub.add( 'OEXPVPMB: UPDATING FIELDS ON HEADER' ) ;
4981: END IF;
4982:
4983: update oe_order_headers
4984: set credit_card_approval_code = p_auth_code
5011: , x_index => l_notify_index
5012: , x_return_status => l_return_status);
5013:
5014: IF l_debug_level > 0 THEN
5015: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
5016: END IF;
5017: IF l_debug_level > 0 THEN
5018: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
5019: END IF;
5014: IF l_debug_level > 0 THEN
5015: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
5016: END IF;
5017: IF l_debug_level > 0 THEN
5018: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
5019: END IF;
5020:
5021: IF l_notify_index is not null then
5022: -- modify Global Picture
5032: OE_ORDER_UTIL.g_header_rec.last_update_date:=l_header_rec.last_update_date;
5033: OE_ORDER_UTIL.g_header_rec.lock_control:= l_header_rec.lock_control;
5034:
5035: IF l_debug_level > 0 THEN
5036: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
5037: END IF;
5038: --IF l_debug_level > 0 THEN
5039: --oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
5040: --END IF;
5035: IF l_debug_level > 0 THEN
5036: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
5037: END IF;
5038: --IF l_debug_level > 0 THEN
5039: --oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
5040: --END IF;
5041: --IF l_debug_level > 0 THEN
5042: --oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
5043: --END IF;
5038: --IF l_debug_level > 0 THEN
5039: --oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
5040: --END IF;
5041: --IF l_debug_level > 0 THEN
5042: --oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
5043: --END IF;
5044:
5045: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5046: RAISE FND_API.G_EXC_ERROR;
5049: END IF;
5050:
5051: -- Process requests is TRUE so still need to call it, but don't need to notify
5052: IF l_debug_level > 0 THEN
5053: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
5054: END IF;
5055: OE_Order_PVT.Process_Requests_And_Notify
5056: ( p_process_requests => TRUE
5057: , p_notify => FALSE
5070:
5071: ELSE /* pre- pack H */
5072:
5073: IF l_debug_level > 0 THEN
5074: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
5075: END IF;
5076: OE_Order_PVT.Process_Requests_And_Notify
5077: ( p_process_requests => TRUE
5078: , p_notify => TRUE
5138: l_sql_stmt VARCHAR2(1000) := NULL;
5139: l_captured NUMBER;
5140: l_ref_info VARCHAR2(80) := TO_CHAR(p_header_id);
5141: --
5142: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5143: --
5144: BEGIN
5145:
5146: IF l_debug_level > 0 THEN
5143: --
5144: BEGIN
5145:
5146: IF l_debug_level > 0 THEN
5147: oe_debug_pub.add( 'OEXPVPMB: IN CAPTURED AMOUNT TOTAL' ) ;
5148: END IF;
5149:
5150: -- Create the query string
5151: IF l_debug_level > 0 THEN
5148: END IF;
5149:
5150: -- Create the query string
5151: IF l_debug_level > 0 THEN
5152: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO FETCH TOTAL AMOUNT CAPTURED FOR THE ORDER' ) ;
5153: END IF;
5154: --
5155: l_sql_stmt := 'SELECT NVL(SUM(AMOUNT), 0)
5156: FROM IBY_TRANS_ALL_V
5158: AND STATUS = 0
5159: AND ((REQTYPE = ''ORAPMTCAPTURE'')
5160: OR (REQTYPE = ''ORAPMTREQ'' AND AUTHTYPE = ''AUTHCAPTURE''))';
5161:
5162: --OE_DEBUG_PUB.ADD(l_sql_stmt);
5163:
5164: begin
5165: EXECUTE IMMEDIATE l_sql_stmt
5166: INTO l_captured
5167: USING l_ref_info ;
5168: end;
5169:
5170: IF l_debug_level > 0 THEN
5171: oe_debug_pub.add( 'OEXPVPMB: EXITING CAPTURED AMOUNT TOTAL' ) ;
5172: END IF;
5173:
5174: RETURN (l_captured);
5175:
5264: l_auth_exists VARCHAR2(1):='N';
5265: --CC Reversal ER#16014135 End
5266: --R12 CC Encryption
5267: --
5268: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5269: --
5270:
5271: -- get line level credit card payments.
5272: CURSOR line_payments_cur(p_header_id IN NUMBER) IS
5347: p_result_out := 'PASS' ;
5348: p_return_status := FND_API.G_RET_STS_SUCCESS;
5349:
5350: IF l_debug_level > 0 THEN
5351: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE MULTIPLE PAYMENTS' ) ;
5352: END IF;
5353:
5354: IF OE_GLOBALS.G_IPAYMENT_INSTALLED IS NULL THEN
5355:
5357: END IF;
5358:
5359: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
5360: IF l_debug_level > 0 THEN
5361: oe_debug_pub.add( 'OEXPVPMB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
5362: END IF;
5363: RETURN;
5364: END IF;
5365:
5370: --bug3524209
5371: IF(p_line_id IS NULL) THEN
5372: FOR c_payments_rec IN line_payments_cur(p_header_rec.header_id) LOOP
5373: IF l_debug_level > 0 THEN
5374: oe_debug_pub.add( 'OEXPVPMB: In line_payments_cur', 5 ) ;
5375: END IF;
5376: --R12 CC Encryption
5377: l_payments_tbl(l_count).line_id := c_payments_rec.line_id;
5378: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5394: END LOOP;
5395:
5396: FOR c_payments_rec IN header_payments_cur(p_header_rec.header_id) LOOP
5397: IF l_debug_level > 0 THEN
5398: oe_debug_pub.add( 'OEXPVPMB: In header_payments_cur', 5 ) ;
5399: END IF;
5400: l_payments_tbl(l_count).payment_number := c_payments_rec.payment_number;
5401: --R12 CC Encryption
5402: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5420: --bug3524209 start
5421: ELSE
5422: FOR c_payments_rec IN line_payments_cur_for_line(p_line_id, p_header_rec.header_id) LOOP
5423: IF l_debug_level > 0 THEN
5424: oe_debug_pub.add( 'OEXPVPMB: In line_payments_cur_for_line', 5 ) ;
5425: END IF;
5426: l_payments_tbl(l_count).line_id := c_payments_rec.line_id;
5427: --R12 CC Encryption
5428: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5447: END IF;
5448: --bug3524209 end
5449:
5450: IF l_debug_level > 0 THEN
5451: oe_debug_pub.add( 'OEXPVPMB.pls: Total count l_payment_tbl is : '||l_payments_tbl.COUNT);
5452: END IF;
5453:
5454: I := l_payments_tbl.FIRST;
5455: WHILE I IS NOT NULL LOOP
5453:
5454: I := l_payments_tbl.FIRST;
5455: WHILE I IS NOT NULL LOOP
5456: IF l_debug_level > 0 THEN
5457: oe_debug_pub.add('OEXPVPMB: Looping through payment records: '||I, 3);
5458: END IF;
5459: l_result_status := 'PASS' ;
5460: l_amount_to_authorize := 0;
5461: --CC Reversal ER#16014135 Start
5477: AND authorization_status=0;
5478: EXCEPTION
5479: WHEN NO_DATA_FOUND THEN
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.add( 'OEXPVPMB: No authorization exists',5);
5482: oe_debug_pub.add( 'OEXPVPMB: if Reversal ER is enabled, First time authorization needs to be driven by CC rule association setup');
5483: END IF;
5484: -- if no entry found, return
5485: goto Next_In_Loop;
5478: EXCEPTION
5479: WHEN NO_DATA_FOUND THEN
5480: IF l_debug_level > 0 THEN
5481: oe_debug_pub.add( 'OEXPVPMB: No authorization exists',5);
5482: oe_debug_pub.add( 'OEXPVPMB: if Reversal ER is enabled, First time authorization needs to be driven by CC rule association setup');
5483: END IF;
5484: -- if no entry found, return
5485: goto Next_In_Loop;
5486: WHEN OTHERS THEN
5484: -- if no entry found, return
5485: goto Next_In_Loop;
5486: WHEN OTHERS THEN
5487: IF l_debug_level > 0 THEN
5488: oe_debug_pub.add( 'OEXPVPMB: No authorization exists.. Others exception'||SQLERRM,5);
5489: END IF;
5490: -- if no entry found, return
5491: goto Next_In_Loop;
5492: END;
5494: END IF;
5495: IF (l_cc_rev_reauth_code ='CC_HOLD' AND p_calling_action is NOT NULL AND oe_verify_payment_pub.G_CC_Change_Flag = 'Y') THEN
5496:
5497: IF l_debug_level > 0 THEN
5498: oe_debug_pub.add( 'OEXPVPMB: place order on Payment Authorization hold for line: '||l_payments_tbl(I).line_id , 1 ) ;
5499: END IF;
5500: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5501: OE_Verify_Payment_PUB.Apply_Verify_Line_Hold
5502: ( p_header_id => p_header_rec.header_id
5530:
5531: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5532: -- place on line level CC authorization hold.
5533: IF l_debug_level > 0 THEN
5534: oe_debug_pub.add('OEXPVPMB: processing authorization for line: '||l_payments_tbl(I).line_id, 3);
5535: END IF;
5536: IF p_calling_action IS NOT NULL
5537: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5538: AND nvl(l_payments_tbl(I).defer_payment_processing_flag, 'N') = 'Y' THEN
5536: IF p_calling_action IS NOT NULL
5537: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5538: AND nvl(l_payments_tbl(I).defer_payment_processing_flag, 'N') = 'Y' THEN
5539: IF l_debug_level > 0 THEN
5540: oe_debug_pub.add( 'OEXPVPMB: place order on Defer Payment Authorization hold for line: '||l_payments_tbl(I).line_id , 1 ) ;
5541: END IF;
5542: OE_Verify_Payment_PUB.Apply_Verify_Line_Hold
5543: ( p_header_id => p_header_rec.header_id
5544: , p_line_id => l_payments_tbl(I).line_id
5582: --bug3225795 end
5583:
5584:
5585: IF l_debug_level > 0 THEN
5586: oe_debug_pub.add('OEXPVPMB: amount to authorize for line level is: '||l_amount_to_authorize, 3);
5587: END IF;
5588: ELSE
5589: -- header level authorization.
5590: IF l_debug_level > 0 THEN
5587: END IF;
5588: ELSE
5589: -- header level authorization.
5590: IF l_debug_level > 0 THEN
5591: oe_debug_pub.add('OEXPVPMB: processing header level authorization.', 3);
5592: END IF;
5593: IF p_calling_action IS NOT NULL
5594: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5595: AND nvl(l_payments_tbl(I).defer_payment_processing_flag,'N') = 'Y' THEN
5593: IF p_calling_action IS NOT NULL
5594: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5595: AND nvl(l_payments_tbl(I).defer_payment_processing_flag,'N') = 'Y' THEN
5596: IF l_debug_level > 0 THEN
5597: oe_debug_pub.add( 'OEXPVPMB: place order on Defer Payment Authorization hold for header: '||l_payments_tbl(I).header_id , 1 ) ;
5598: END IF;
5599:
5600: -- place on header level CC authorization hold.
5601: OE_Verify_Payment_PUB.Apply_Verify_Hold
5645: END IF;
5646: --bug3225795 end
5647:
5648: IF l_debug_level > 0 THEN
5649: oe_debug_pub.add('In Authorize_Multipayments: l_prepaid_total is : '||l_prepaid_total);
5650: END IF;
5651:
5652: -- Get the line total amount paid with payments other than the main one.
5653: FOR c_line_rec IN lines_cur(p_header_rec.header_id) LOOP
5670: ,p_to_exclude_commitment => 'Y'
5671: );
5672: --bug3225795 end
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add('In lines_cur: line_id is : '||c_line_rec.line_id);
5675: --bug3225795
5676: oe_debug_pub.add('In lines_cur: l_line_total_exc_comt is : '||l_line_total_exc_comt );
5677: END IF;
5678: END LOOP;
5672: --bug3225795 end
5673: IF l_debug_level > 0 THEN
5674: oe_debug_pub.add('In lines_cur: line_id is : '||c_line_rec.line_id);
5675: --bug3225795
5676: oe_debug_pub.add('In lines_cur: l_line_total_exc_comt is : '||l_line_total_exc_comt );
5677: END IF;
5678: END LOOP;
5679:
5680: IF l_debug_level > 0 THEN
5677: END IF;
5678: END LOOP;
5679:
5680: IF l_debug_level > 0 THEN
5681: oe_debug_pub.add('In Authorize_Multipayments: l_line_total to exclude is : '||l_line_total_exc_comt);
5682: END IF;
5683:
5684: -- commitment applied amount has already been taken out from outbound total,
5685: -- no need to exclude commitment again here.
5700: p_to_exclude_commitment => 'Y');
5701: --bug3225795 end
5702:
5703: IF l_debug_level > 0 THEN
5704: oe_debug_pub.add('In Authorize_Multipayments: l_outbound_total is : '||l_outbound_total);
5705: END IF;
5706:
5707: --pnpl The Outbound_Order_Total takes care of returning the proper value depending on the value in OE_PREPAYMENT_UTIL.Get_Installment_Options
5708: l_amount_to_authorize := l_outbound_total - nvl(l_balance_on_prepay,0) - nvl(l_line_total_exc_comt,0);
5710:
5711: END IF; -- end of header level or line level authorization.
5712:
5713: IF l_debug_level > 0 THEN
5714: oe_debug_pub.add('OEXPVPMB: amount to authorize is : '||l_amount_to_authorize);
5715: END IF;
5716:
5717: -- For each order line call Check Reauthorize Order to find out
5718: -- if Reauthorization is required
5716:
5717: -- For each order line call Check Reauthorize Order to find out
5718: -- if Reauthorization is required
5719: IF l_debug_level > 0 THEN
5720: oe_debug_pub.add( 'OEXPVPMB.pls: Before Checking Reauthorize Flag for Multiple Payments.');
5721: END IF;
5722:
5723: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5724: BEGIN
5740: END;
5741: END IF;
5742:
5743: IF l_debug_level > 0 THEN --bug 5209584
5744: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5745: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5746: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5747: END IF;
5748:
5741: END IF;
5742:
5743: IF l_debug_level > 0 THEN --bug 5209584
5744: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5745: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5746: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5747: END IF;
5748:
5749: OE_Verify_Payment_PUB.Check_ReAuth_for_MultiPmnts
5742:
5743: IF l_debug_level > 0 THEN --bug 5209584
5744: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5745: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5746: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5747: END IF;
5748:
5749: OE_Verify_Payment_PUB.Check_ReAuth_for_MultiPmnts
5750: ( p_credit_card_approval_code => l_payments_tbl(I).credit_card_approval_code
5763: );
5764:
5765:
5766: IF l_debug_level > 0 THEN
5767: oe_debug_pub.add( 'OEXPVPMB: for Multiple Payments reauthorize Flag is set to : '||L_REAUTHORIZE_FLAG) ;
5768: END IF;
5769:
5770: --CC Reversal ER#16014135 Start
5771: IF l_return_status ='HOLD' AND l_reauthorize_flag ='N' THEN
5769:
5770: --CC Reversal ER#16014135 Start
5771: IF l_return_status ='HOLD' AND l_reauthorize_flag ='N' THEN
5772: IF l_debug_level > 0 THEN
5773: oe_debug_pub.add('p_calling_action '||p_calling_action,5);
5774: END IF;
5775: l_cc_hold_status := l_return_status;
5776: END IF;
5777: --CC Reversal ER#16014135 End
5779: -- Check Reauthorize Flag and proceed
5780: IF l_reauthorize_flag = 'N' THEN
5781:
5782: IF l_debug_level > 0 THEN
5783: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE' ) ;
5784: END IF;
5785:
5786: -- Check if Hold already exists on this order
5787: IF l_debug_level > 0 THEN
5784: END IF;
5785:
5786: -- Check if Hold already exists on this order
5787: IF l_debug_level > 0 THEN
5788: oe_debug_pub.add( 'OEXPVPMB: CHECK IF ORDER ON RISK HOLD' ) ;
5789: END IF;
5790: --
5791:
5792: IF l_payments_tbl(I).line_id IS NULL THEN
5820: END IF;
5821:
5822: IF l_hold_result = FND_API.G_TRUE THEN
5823: IF l_debug_level > 0 THEN
5824: oe_debug_pub.add( 'OEXPVPMB: ORDER IS ON RISK HOLD' ) ;
5825: END IF;
5826: l_result_status := 'RISK';
5827: END IF;
5828:
5841:
5842:
5843: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
5844: IF l_debug_level > 0 THEN
5845: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PAY METHOD INFO' ) ;
5846: END IF;
5847:
5848: IF l_payments_tbl(I).receipt_method_id IS NOT NULL THEN
5849: l_pay_method_id := l_payments_tbl(I).receipt_method_id;
5872: , p_merchant_ref => l_payee_id
5873: ) ;
5874:
5875: IF l_debug_level > 0 THEN
5876: oe_debug_pub.add( 'OEXPVPMB: receipt method id is: '|| l_payments_tbl(I).receipt_method_id ) ;
5877: END IF;
5878:
5879: -- If Merchant Id is invalid then set the out result to FAIL and return
5880: IF l_debug_level > 0 THEN
5877: END IF;
5878:
5879: -- If Merchant Id is invalid then set the out result to FAIL and return
5880: IF l_debug_level > 0 THEN
5881: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE PAYEE ID' ) ;
5882: END IF;
5883:
5884: -- Commenting the following IF condition for the sake of bug6532165
5885:
5902: -- RETURN;
5903: END IF;
5904:
5905: IF l_debug_level > 0 THEN
5906: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
5907: END IF;
5908:
5909:
5910: -- move this piece of code to above before calling check_reauth_for_multipmts
5935: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);*/
5936: -- IF p_line_id is null then
5937: IF l_payments_tbl(I).line_id IS NULL THEN
5938: IF l_debug_level > 0 THEN
5939: oe_debug_pub.add('Before getting trxn id'||l_payments_tbl(I).line_id||' and '||p_header_rec.header_id);
5940: END IF;
5941: BEGIN
5942: select trxn_extension_id
5943: into l_trxn_extension_id
5945: WHERE HEADER_ID = p_header_rec.header_id and line_id is null
5946: AND nvl(payment_collection_event,'PREPAY') = 'INVOICE'; --bug 5020737
5947: EXCEPTION WHEN NO_DATA_FOUND THEN
5948: IF l_debug_level > 0 THEN
5949: oe_debug_pub.add('Trxn extension id is null.....');
5950: END IF;
5951: END;
5952: x_invoice_to_org_id := OE_Order_Cache.g_invoice_to_rec.org_id;
5953: x_ship_from_org_id := OE_Order_Cache.g_ship_to_rec.ship_from_org_id; --Verify
5954: x_ship_to_org_id := OE_Order_Cache.g_ship_to_rec.org_id;
5955: ELSE
5956: BEGIN
5957: IF l_debug_level > 0 THEN
5958: oe_debug_pub.add('Before getting trxn id else'||l_payments_tbl(I).line_id||' and '||p_header_rec.header_id);
5959: END IF;
5960: select trxn_extension_id
5961: into l_trxn_extension_id
5962: FROM OE_PAYMENTS
5969: FROM oe_order_lines_all
5970: WHERE line_id = l_payments_tbl(I).line_id;
5971: EXCEPTION WHEN NO_DATA_FOUND THEN
5972: IF l_debug_level > 0 THEN
5973: oe_debug_pub.add('Trxn extension id....'||nvl(l_trxn_extension_id,'0'));
5974: END IF;
5975: END;
5976: END IF;
5977:
5976: END IF;
5977:
5978: -- Check For all Required Attributes
5979: IF l_debug_level > 0 THEN
5980: oe_debug_pub.add( 'OEXPVPMB: Checking required attributes for multiple payments.' ) ;
5981: END IF;
5982:
5983: IF l_invoice_to_org_id is NULL THEN
5984: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
5983: IF l_invoice_to_org_id is NULL THEN
5984: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
5985: OE_MSG_PUB.ADD;
5986: IF l_debug_level > 0 THEN
5987: oe_debug_pub.add( 'OEXPVPMB: INVOICE_TO_ORG_ID IS REQUIRED' ) ;
5988: END IF;
5989: l_result_status := 'FAIL';
5990: goto Update_Verify_Hold;
5991: -- return;
5992: ELSIF l_payments_tbl(I).trxn_extension_id is NULL THEN --R12 CC Encryption
5993: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
5994: OE_MSG_PUB.ADD;
5995: IF l_debug_level > 0 THEN
5996: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_NUMBER IS REQUIRED' ) ;
5997: END IF;
5998: l_result_status := 'FAIL';
5999: goto Update_Verify_Hold;
6000: -- return;
6004: ELSIF l_payments_tbl(I).credit_card_expiration_date is NULL THEN
6005: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
6006: OE_MSG_PUB.ADD;
6007: IF l_debug_level > 0 THEN
6008: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_EXPIRATION_DATE IS REQUIRED' ) ;
6009: END IF;
6010: l_result_status := 'FAIL';
6011: goto Update_Verify_Hold;
6012: -- return;
6013: ELSIF l_payments_tbl(I).credit_card_holder_name is NULL THEN
6014: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
6015: OE_MSG_PUB.ADD;
6016: IF l_debug_level > 0 THEN
6017: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_HOLDER_NAME IS REQUIRED' ) ;
6018: END IF;
6019: l_result_status := 'FAIL';
6020: goto Update_Verify_Hold;
6021: -- return;
6024: --R12 CC Encryption
6025:
6026: -- Hour and Minutes after Mid Night in HH24:MM format
6027: IF l_debug_level > 0 THEN
6028: oe_debug_pub.add( 'OEXPVPMB: FETCHING HOUR AND MINUTES AFTER MIDNIGHT AS TIME OF PURCHASE' ) ;
6029: END IF;
6030: --
6031: SELECT TO_CHAR(sysdate, 'HH24:MI')
6032: INTO l_time_of_purchase
6032: INTO l_time_of_purchase
6033: FROM DUAL ;
6034:
6035: IF l_debug_level > 0 THEN
6036: oe_debug_pub.add( 'OEXPVPMB: TIME OF PURCHASE AFTER MIDNIGHT HH24:MI IS : '|| L_TIME_OF_PURCHASE ) ;
6037: END IF;
6038:
6039: Begin
6040: /*Select party_site.party_id, acct_site.cust_account_id
6062: Null;
6063: End;
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add('Amount populated...'||l_amount_to_authorize);
6067: oe_debug_pub.add('account site id'||x_invoice_to_org_id);
6068: END IF;
6069:
6070: l_payer.payment_function := l_payment_function ;
6063: End;
6064:
6065: IF l_debug_level > 0 THEN
6066: oe_debug_pub.add('Amount populated...'||l_amount_to_authorize);
6067: oe_debug_pub.add('account site id'||x_invoice_to_org_id);
6068: END IF;
6069:
6070: l_payer.payment_function := l_payment_function ;
6071: l_payer.party_id := l_party_id;
6089:
6090: --CC Reversal ER#16014135 Start
6091: IF l_reauthorize_flag = 'R' THEN
6092: IF l_debug_level > 0 THEN
6093: oe_debug_pub.add('Reversal and reauth',5);
6094: END IF;
6095: Begin
6096: SELECT nvl(AUTHORIZATION_AMOUNT,0)
6097: INTO l_authorized_amt
6101: AND authorization_status=0 ;
6102: exception
6103: when others then
6104: IF l_debug_level > 0 THEN
6105: oe_debug_pub.add('Exception in Create Reversal-Fetching the existing authorized amt',5);
6106: END IF;
6107: END;
6108: l_reauth_amount.value := l_amount_to_authorize;
6109: l_reauth_amount.currency_code := p_header_rec.transactional_curr_code;
6109: l_reauth_amount.currency_code := p_header_rec.transactional_curr_code;
6110: l_rev_attribs.Reauth_flag := 'Y';
6111: l_rev_attribs.Revised_amount := l_reauth_amount;
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add('l_amount_to_authorize: '||l_amount_to_authorize,5);
6114: oe_debug_pub.add('l_authorized_amt: '||l_authorized_amt,5);
6115: oe_debug_pub.add('l_reauth_amount.value: '||l_reauth_amount.value,5);
6116: oe_debug_pub.add('l_reauth_amount.currency_code: '||l_reauth_amount.currency_code,5);
6117: oe_debug_pub.add('Calling Create Reversal',0.5);
6110: l_rev_attribs.Reauth_flag := 'Y';
6111: l_rev_attribs.Revised_amount := l_reauth_amount;
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add('l_amount_to_authorize: '||l_amount_to_authorize,5);
6114: oe_debug_pub.add('l_authorized_amt: '||l_authorized_amt,5);
6115: oe_debug_pub.add('l_reauth_amount.value: '||l_reauth_amount.value,5);
6116: oe_debug_pub.add('l_reauth_amount.currency_code: '||l_reauth_amount.currency_code,5);
6117: oe_debug_pub.add('Calling Create Reversal',0.5);
6118: END IF;
6111: l_rev_attribs.Revised_amount := l_reauth_amount;
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add('l_amount_to_authorize: '||l_amount_to_authorize,5);
6114: oe_debug_pub.add('l_authorized_amt: '||l_authorized_amt,5);
6115: oe_debug_pub.add('l_reauth_amount.value: '||l_reauth_amount.value,5);
6116: oe_debug_pub.add('l_reauth_amount.currency_code: '||l_reauth_amount.currency_code,5);
6117: oe_debug_pub.add('Calling Create Reversal',0.5);
6118: END IF;
6119: IBY_Fndcpt_Trxn_Pub.Create_Reversal
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add('l_amount_to_authorize: '||l_amount_to_authorize,5);
6114: oe_debug_pub.add('l_authorized_amt: '||l_authorized_amt,5);
6115: oe_debug_pub.add('l_reauth_amount.value: '||l_reauth_amount.value,5);
6116: oe_debug_pub.add('l_reauth_amount.currency_code: '||l_reauth_amount.currency_code,5);
6117: oe_debug_pub.add('Calling Create Reversal',0.5);
6118: END IF;
6119: IBY_Fndcpt_Trxn_Pub.Create_Reversal
6120: (p_api_version => 1.0,
6113: oe_debug_pub.add('l_amount_to_authorize: '||l_amount_to_authorize,5);
6114: oe_debug_pub.add('l_authorized_amt: '||l_authorized_amt,5);
6115: oe_debug_pub.add('l_reauth_amount.value: '||l_reauth_amount.value,5);
6116: oe_debug_pub.add('l_reauth_amount.currency_code: '||l_reauth_amount.currency_code,5);
6117: oe_debug_pub.add('Calling Create Reversal',0.5);
6118: END IF;
6119: IBY_Fndcpt_Trxn_Pub.Create_Reversal
6120: (p_api_version => 1.0,
6121: p_init_msg_list => FND_API.G_FALSE,
6130: x_reauth_response => l_reauth_response,
6131: x_reauth_result => l_auth_result
6132: );
6133: IF l_debug_level > 0 THEN
6134: oe_debug_pub.add('Return Status after call to Create_Reversal'||l_return_status,0.5);
6135: OE_DEBUG_PUB.ADD('l_reversal_response.Result_Code: '||l_reversal_response.result_code,5);
6136: OE_DEBUG_PUB.ADD('l_reauth_response.result_code: '||l_reauth_response.result_code,5);
6137: END IF;
6138: --CC Reversal ER#16014135 End
6131: x_reauth_result => l_auth_result
6132: );
6133: IF l_debug_level > 0 THEN
6134: oe_debug_pub.add('Return Status after call to Create_Reversal'||l_return_status,0.5);
6135: OE_DEBUG_PUB.ADD('l_reversal_response.Result_Code: '||l_reversal_response.result_code,5);
6136: OE_DEBUG_PUB.ADD('l_reauth_response.result_code: '||l_reauth_response.result_code,5);
6137: END IF;
6138: --CC Reversal ER#16014135 End
6139: ELSIF l_reauthorize_flag = 'Y' THEN --CC Reversal ER#16014135
6132: );
6133: IF l_debug_level > 0 THEN
6134: oe_debug_pub.add('Return Status after call to Create_Reversal'||l_return_status,0.5);
6135: OE_DEBUG_PUB.ADD('l_reversal_response.Result_Code: '||l_reversal_response.result_code,5);
6136: OE_DEBUG_PUB.ADD('l_reauth_response.result_code: '||l_reauth_response.result_code,5);
6137: END IF;
6138: --CC Reversal ER#16014135 End
6139: ELSIF l_reauthorize_flag = 'Y' THEN --CC Reversal ER#16014135
6140: IF l_debug_level >0 THEN
6137: END IF;
6138: --CC Reversal ER#16014135 End
6139: ELSIF l_reauthorize_flag = 'Y' THEN --CC Reversal ER#16014135
6140: IF l_debug_level >0 THEN
6141: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6138: --CC Reversal ER#16014135 End
6139: ELSIF l_reauthorize_flag = 'Y' THEN --CC Reversal ER#16014135
6140: IF l_debug_level >0 THEN
6141: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6139: ELSIF l_reauthorize_flag = 'Y' THEN --CC Reversal ER#16014135
6140: IF l_debug_level >0 THEN
6141: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6140: IF l_debug_level >0 THEN
6141: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6141: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6142: oe_debug_pub.add('Payee id is...'||l_payee_id);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6143: oe_debug_pub.add('Payer context values ...');
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6144: oe_debug_pub.add('payment function'||l_payment_function);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6145: oe_debug_pub.add('l_payer.party_id'||l_party_id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6146: oe_debug_pub.add('l_payer.org_type'||l_org_type);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6154: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
6147: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6154: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
6155: END IF;
6148: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6154: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
6155: END IF;
6156:
6149: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6154: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
6155: END IF;
6156:
6157:
6150: oe_debug_pub.add('amount is '||l_amount.value);
6151: oe_debug_pub.add('currency is '||l_amount.currency_code);
6152: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
6153: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
6154: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
6155: END IF;
6156:
6157:
6158: IBY_Fndcpt_Trxn_Pub.Create_Authorization
6184: l_reauth_response.result_code = IBY_FNDCPT_TRXN_PUB.G_RC_AUTH_SUCCESS) THEN
6185: --CC Reversal ER#16014135 End
6186: /*
6187: IF l_debug_level >0 THEN
6188: oe_debug_pub.add('Authorization successful....');
6189: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag);
6190: END IF;
6191: */ --CC Reversal ER#16014135 Commented
6192: --CC Reversal ER#16014135 Start
6185: --CC Reversal ER#16014135 End
6186: /*
6187: IF l_debug_level >0 THEN
6188: oe_debug_pub.add('Authorization successful....');
6189: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag);
6190: END IF;
6191: */ --CC Reversal ER#16014135 Commented
6192: --CC Reversal ER#16014135 Start
6193: IF l_reauthorize_flag = 'R' THEN
6191: */ --CC Reversal ER#16014135 Commented
6192: --CC Reversal ER#16014135 Start
6193: IF l_reauthorize_flag = 'R' THEN
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add('Reversal and Reauthorization successful....',5);
6196: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag,5);
6197: END IF;
6198: ELSE
6199: IF l_debug_level > 0 THEN
6192: --CC Reversal ER#16014135 Start
6193: IF l_reauthorize_flag = 'R' THEN
6194: IF l_debug_level > 0 THEN
6195: oe_debug_pub.add('Reversal and Reauthorization successful....',5);
6196: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag,5);
6197: END IF;
6198: ELSE
6199: IF l_debug_level > 0 THEN
6200: oe_debug_pub.add('Authorization successful....',5);
6196: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag,5);
6197: END IF;
6198: ELSE
6199: IF l_debug_level > 0 THEN
6200: oe_debug_pub.add('Authorization successful....',5);
6201: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag,5);
6202: END IF;
6203: END IF;
6204: --CC Reversal ER#16014135 End
6197: END IF;
6198: ELSE
6199: IF l_debug_level > 0 THEN
6200: oe_debug_pub.add('Authorization successful....',5);
6201: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag,5);
6202: END IF;
6203: END IF;
6204: --CC Reversal ER#16014135 End
6205: -- moved release hold code here before applying risk hold for bug 4543147
6233: --Risk Score evaluation -- Bug 6805953
6234: IF nvl(p_risk_eval_flag, 'Y') = 'Y' THEN --change flag to p_risk_eval_flag l_RiskEval_Enable_Flag verify
6235: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
6236: IF l_debug_level > 0 THEN
6237: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6238: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6239: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6240: END IF;
6241: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6234: IF nvl(p_risk_eval_flag, 'Y') = 'Y' THEN --change flag to p_risk_eval_flag l_RiskEval_Enable_Flag verify
6235: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
6236: IF l_debug_level > 0 THEN
6237: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6238: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6239: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6240: END IF;
6241: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6242: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6235: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
6236: IF l_debug_level > 0 THEN
6237: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6238: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6239: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6240: END IF;
6241: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6242: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6243: IF l_debug_level >0 THEN
6240: END IF;
6241: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6242: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6243: IF l_debug_level >0 THEN
6244: oe_debug_pub.add('Risk threshold exceeded...!');
6245: END IF;
6246:
6247: --comm rej IF nvl(p_reject_on_risk_failure, 'N') = 'N' THEN --R12 CVV2
6248: -- the value for parameter param3 is Hold, then
6292: FND_MESSAGE.SET_NAME('ONT','ONT_CC_RISK_HOLD_APPLIED');
6293: OE_MSG_PUB.ADD;
6294: RETURN;
6295:
6296: oe_debug_pub.add('after commented message');
6297: /*comm rej ELSE
6298: IF l_debug_level >0 THEN
6299: oe_debug_pub.add('Risk validation failed...!');
6300: END IF;
6295:
6296: oe_debug_pub.add('after commented message');
6297: /*comm rej ELSE
6298: IF l_debug_level >0 THEN
6299: oe_debug_pub.add('Risk validation failed...!');
6300: END IF;
6301: -- the value is reject, then
6302: FND_MESSAGE.SET_NAME('ONT','ONT_RISK_VALIDATION_FAILED');
6303: OE_MSG_PUB.ADD;
6308: END IF; --risk eval flag = y
6309: --CC Reversal ER#16014135 start
6310: IF l_reauthorize_flag = 'R' THEN
6311: IF l_debug_level >0 THEN
6312: oe_debug_pub.add('populating message pub with Reversal success message');
6313: END IF;
6314: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_REV_REAUTH_SUCCESS');
6315: FND_MESSAGE.SET_TOKEN('OLD_AMOUNT',TO_CHAR(l_authorized_amt,l_format_mask));
6316: FND_MESSAGE.SET_TOKEN('NEW_AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6316: FND_MESSAGE.SET_TOKEN('NEW_AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6317: OE_MSG_PUB.ADD;
6318: ELSE
6319: --CC Reversal ER#16014135 End
6320: oe_debug_pub.add('before uncommented message');
6321: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_AUTH_SUCCESS');
6322: FND_MESSAGE.SET_TOKEN('AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6323: OE_MSG_PUB.ADD;
6324: --CC Reversal ER#16014135 Start
6323: OE_MSG_PUB.ADD;
6324: --CC Reversal ER#16014135 Start
6325: END IF;
6326: --CC Reversal ER#16014135 End
6327: oe_debug_pub.add('after uncommented message');
6328: IF l_debug_level >0 THEN
6329: oe_debug_pub.add('After risk evaluation...!');
6330: END IF;
6331:
6325: END IF;
6326: --CC Reversal ER#16014135 End
6327: oe_debug_pub.add('after uncommented message');
6328: IF l_debug_level >0 THEN
6329: oe_debug_pub.add('After risk evaluation...!');
6330: END IF;
6331:
6332: -- update the payment amount field on order header, this is for backward compatibility
6333: -- we used to show the authorized amount on order header. We have to update header
6357: OR l_reauth_response.result_code = 'SECURITY_CODE_WARNING') THEN
6358: --CC Reversal ER#16014135 End
6359: /*
6360: IF l_debug_level > 0 THEN
6361: oe_debug_pub.add('Security code warning...');
6362: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6363: oe_debug_pub.add('Result code...'||l_Response.result_code);
6364: END IF;
6365: */ --CC Reversal ER#16014135 Commented
6358: --CC Reversal ER#16014135 End
6359: /*
6360: IF l_debug_level > 0 THEN
6361: oe_debug_pub.add('Security code warning...');
6362: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6363: oe_debug_pub.add('Result code...'||l_Response.result_code);
6364: END IF;
6365: */ --CC Reversal ER#16014135 Commented
6366:
6359: /*
6360: IF l_debug_level > 0 THEN
6361: oe_debug_pub.add('Security code warning...');
6362: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6363: oe_debug_pub.add('Result code...'||l_Response.result_code);
6364: END IF;
6365: */ --CC Reversal ER#16014135 Commented
6366:
6367: --CC Reversal ER#16014135 Start
6366:
6367: --CC Reversal ER#16014135 Start
6368: IF l_reauthorize_flag = 'R' THEN
6369: IF l_debug_level > 0 THEN
6370: oe_debug_pub.add('Security code warning...',5);
6371: oe_debug_pub.add('Message returned by payments...'||l_reauth_response.result_message,5);
6372: oe_debug_pub.add('Result code...'||l_reauth_response.result_code,5);
6373: END IF;
6374: ELSE
6367: --CC Reversal ER#16014135 Start
6368: IF l_reauthorize_flag = 'R' THEN
6369: IF l_debug_level > 0 THEN
6370: oe_debug_pub.add('Security code warning...',5);
6371: oe_debug_pub.add('Message returned by payments...'||l_reauth_response.result_message,5);
6372: oe_debug_pub.add('Result code...'||l_reauth_response.result_code,5);
6373: END IF;
6374: ELSE
6375: IF l_debug_level > 0 THEN
6368: IF l_reauthorize_flag = 'R' THEN
6369: IF l_debug_level > 0 THEN
6370: oe_debug_pub.add('Security code warning...',5);
6371: oe_debug_pub.add('Message returned by payments...'||l_reauth_response.result_message,5);
6372: oe_debug_pub.add('Result code...'||l_reauth_response.result_code,5);
6373: END IF;
6374: ELSE
6375: IF l_debug_level > 0 THEN
6376: oe_debug_pub.add('Security code warning...',5);
6372: oe_debug_pub.add('Result code...'||l_reauth_response.result_code,5);
6373: END IF;
6374: ELSE
6375: IF l_debug_level > 0 THEN
6376: oe_debug_pub.add('Security code warning...',5);
6377: oe_debug_pub.add('Message returned by payments...'||l_response.result_message,5);
6378: oe_debug_pub.add('Result code...'||l_Response.result_code,5);
6379: END IF;
6380: END IF;
6373: END IF;
6374: ELSE
6375: IF l_debug_level > 0 THEN
6376: oe_debug_pub.add('Security code warning...',5);
6377: oe_debug_pub.add('Message returned by payments...'||l_response.result_message,5);
6378: oe_debug_pub.add('Result code...'||l_Response.result_code,5);
6379: END IF;
6380: END IF;
6381: --CC Reversal ER#16014135 End
6374: ELSE
6375: IF l_debug_level > 0 THEN
6376: oe_debug_pub.add('Security code warning...',5);
6377: oe_debug_pub.add('Message returned by payments...'||l_response.result_message,5);
6378: oe_debug_pub.add('Result code...'||l_Response.result_code,5);
6379: END IF;
6380: END IF;
6381: --CC Reversal ER#16014135 End
6382:
6442: /* ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
6443: l_response.result_code = 'RISK_THRESHOLD_EXCEEDED' THEN
6444:
6445: IF l_debug_level > 0 THEN
6446: oe_debug_pub.add('Risk threshold exceeded...');
6447: oe_debug_pub.add('Value of risky flag...'||L_auth_result.risk_result.risky_flag);
6448: END IF;
6449:
6450: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6443: l_response.result_code = 'RISK_THRESHOLD_EXCEEDED' THEN
6444:
6445: IF l_debug_level > 0 THEN
6446: oe_debug_pub.add('Risk threshold exceeded...');
6447: oe_debug_pub.add('Value of risky flag...'||L_auth_result.risk_result.risky_flag);
6448: END IF;
6449:
6450: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6451: IF l_debug_level >0 THEN
6448: END IF;
6449:
6450: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6451: IF l_debug_level >0 THEN
6452: oe_debug_pub.add('Risk threshold exceeded...inside risky flag!');
6453: END IF;
6454:
6455: IF l_payments_tbl(I).line_id IS NULL THEN
6456: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
6500: END IF;*/
6501: ELSE
6502: /*
6503: IF l_debug_level >0 THEN
6504: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6505: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6506: oe_debug_pub.add('Message....'||l_response.result_message);
6507: oe_debug_pub.add('SQLERRM '||sqlerrm);
6508: END IF;
6501: ELSE
6502: /*
6503: IF l_debug_level >0 THEN
6504: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6505: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6506: oe_debug_pub.add('Message....'||l_response.result_message);
6507: oe_debug_pub.add('SQLERRM '||sqlerrm);
6508: END IF;
6509: */ --CC Reversal ER#16014135 Commented
6502: /*
6503: IF l_debug_level >0 THEN
6504: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6505: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6506: oe_debug_pub.add('Message....'||l_response.result_message);
6507: oe_debug_pub.add('SQLERRM '||sqlerrm);
6508: END IF;
6509: */ --CC Reversal ER#16014135 Commented
6510: --CC Reversal ER#16014135 Start
6503: IF l_debug_level >0 THEN
6504: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6505: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6506: oe_debug_pub.add('Message....'||l_response.result_message);
6507: oe_debug_pub.add('SQLERRM '||sqlerrm);
6508: END IF;
6509: */ --CC Reversal ER#16014135 Commented
6510: --CC Reversal ER#16014135 Start
6511: IF l_reauthorize_flag = 'R' THEN
6509: */ --CC Reversal ER#16014135 Commented
6510: --CC Reversal ER#16014135 Start
6511: IF l_reauthorize_flag = 'R' THEN
6512: IF l_debug_level > 0 THEN
6513: oe_debug_pub.add('Reauthorization failure...!'||l_return_status, 5 );
6514: oe_debug_pub.add('l_reauth_response.result_code'||l_reauth_response.result_code,5);
6515: oe_debug_pub.add('Message....'||l_reauth_response.result_message,5);
6516: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6517: END IF;
6510: --CC Reversal ER#16014135 Start
6511: IF l_reauthorize_flag = 'R' THEN
6512: IF l_debug_level > 0 THEN
6513: oe_debug_pub.add('Reauthorization failure...!'||l_return_status, 5 );
6514: oe_debug_pub.add('l_reauth_response.result_code'||l_reauth_response.result_code,5);
6515: oe_debug_pub.add('Message....'||l_reauth_response.result_message,5);
6516: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6517: END IF;
6518: ELSE
6511: IF l_reauthorize_flag = 'R' THEN
6512: IF l_debug_level > 0 THEN
6513: oe_debug_pub.add('Reauthorization failure...!'||l_return_status, 5 );
6514: oe_debug_pub.add('l_reauth_response.result_code'||l_reauth_response.result_code,5);
6515: oe_debug_pub.add('Message....'||l_reauth_response.result_message,5);
6516: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6517: END IF;
6518: ELSE
6519: IF l_debug_level > 0 THEN
6512: IF l_debug_level > 0 THEN
6513: oe_debug_pub.add('Reauthorization failure...!'||l_return_status, 5 );
6514: oe_debug_pub.add('l_reauth_response.result_code'||l_reauth_response.result_code,5);
6515: oe_debug_pub.add('Message....'||l_reauth_response.result_message,5);
6516: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6517: END IF;
6518: ELSE
6519: IF l_debug_level > 0 THEN
6520: oe_debug_pub.add('Authorization failure...!'||l_return_status,5);
6516: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6517: END IF;
6518: ELSE
6519: IF l_debug_level > 0 THEN
6520: oe_debug_pub.add('Authorization failure...!'||l_return_status,5);
6521: oe_debug_pub.add('l_response.result_code'||l_response.result_code,5);
6522: oe_debug_pub.add('Message....'||l_response.result_message,5);
6523: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6524: END IF;
6517: END IF;
6518: ELSE
6519: IF l_debug_level > 0 THEN
6520: oe_debug_pub.add('Authorization failure...!'||l_return_status,5);
6521: oe_debug_pub.add('l_response.result_code'||l_response.result_code,5);
6522: oe_debug_pub.add('Message....'||l_response.result_message,5);
6523: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6524: END IF;
6525: END IF;
6518: ELSE
6519: IF l_debug_level > 0 THEN
6520: oe_debug_pub.add('Authorization failure...!'||l_return_status,5);
6521: oe_debug_pub.add('l_response.result_code'||l_response.result_code,5);
6522: oe_debug_pub.add('Message....'||l_response.result_message,5);
6523: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6524: END IF;
6525: END IF;
6526: --CC Reversal ER#16014135 End
6519: IF l_debug_level > 0 THEN
6520: oe_debug_pub.add('Authorization failure...!'||l_return_status,5);
6521: oe_debug_pub.add('l_response.result_code'||l_response.result_code,5);
6522: oe_debug_pub.add('Message....'||l_response.result_message,5);
6523: oe_debug_pub.add('SQLERRM '||sqlerrm,5);
6524: END IF;
6525: END IF;
6526: --CC Reversal ER#16014135 End
6527: l_result_status := 'FAIL';
6605:
6606: END IF; --Return status of create_auth
6607:
6608: /*IF l_debug_level > 0 THEN
6609: oe_debug_pub.add( ' ' ) ;
6610: END IF;
6611: IF l_debug_level > 0 THEN
6612: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
6613: END IF;
6608: /*IF l_debug_level > 0 THEN
6609: oe_debug_pub.add( ' ' ) ;
6610: END IF;
6611: IF l_debug_level > 0 THEN
6612: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
6613: END IF;
6614:
6615: --For bug 3571485
6616: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
6623:
6624: <
6625: -- Update Payment Amount and Authorization Code and DATE
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6628: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6629: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6630: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6631: END IF;
6624: <
6625: -- Update Payment Amount and Authorization Code and DATE
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6628: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6629: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6630: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6631: END IF;
6632: --
6625: -- Update Payment Amount and Authorization Code and DATE
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6628: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6629: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6630: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6631: END IF;
6632: --
6633:
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6628: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6629: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6630: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6631: END IF;
6632: --
6633:
6634: /*
6656: RETURN;
6657: END IF;
6658:
6659: IF l_debug_level > 0 THEN
6660: oe_debug_pub.add( 'OEXPVPMB: RISK RESPONSE INCLUDED : '||L_RISKRESP_INCLUDED ) ;
6661: END IF;
6662:
6663: IF l_riskresp_included = 'YES' THEN
6664: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
6663: IF l_riskresp_included = 'YES' THEN
6664: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
6665:
6666: IF l_debug_level > 0 THEN
6667: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
6668: END IF;
6669: IF l_debug_level > 0 THEN
6670: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
6671: END IF;
6666: IF l_debug_level > 0 THEN
6667: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
6668: END IF;
6669: IF l_debug_level > 0 THEN
6670: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
6671: END IF;
6672:
6673: -- If Transaction is Risky, then apply credit card Risk hold.
6674: IF l_risk_score > l_risk_threshold THEN
6673: -- If Transaction is Risky, then apply credit card Risk hold.
6674: IF l_risk_score > l_risk_threshold THEN
6675:
6676: IF l_debug_level > 0 THEN
6677: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION WAS RISKY' ) ;
6678: END IF;
6679: -- Set the Out result to Risk to indicate a risky Transaction
6680: p_result_out := 'RISK' ;
6681: RETURN;
6695: AND l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6696:
6697: -- Release Any existing CC Holds
6698: IF l_debug_level > 0 THEN
6699: oe_debug_pub.add( 'OEXPVPMB: RELEASING LINE LEVEL CREDIT CARD HOLDS' ) ;
6700: END IF;
6701: --
6702:
6703: IF l_payments_tbl(I).line_id IS NULL THEN
6729: ELSIF l_result_status = 'RISK' THEN
6730:
6731: -- Apply Risk Hold on the Order
6732: IF l_debug_level > 0 THEN
6733: oe_debug_pub.add( 'OEXPVPMB: APPLYING LINE LEVEL CC RISK HOLD' ) ;
6734: END IF;
6735: --
6736: IF l_payments_tbl(I).line_id IS NULL THEN
6737: OE_Verify_Payment_PUB.Apply_Verify_Hold
6760: ELSE -- Failed
6761:
6762: -- Apply CC Auth Failure Hold on the Order
6763: IF l_debug_level > 0 THEN
6764: oe_debug_pub.add( 'OEXPVPMB: APPLYING LINE LEVEL CC AUTH FAILURE HOLD' ) ;
6765: END IF;
6766: --
6767:
6768: IF l_payments_tbl(I).line_id IS NULL THEN
6806: WHEN FND_API.G_EXC_ERROR THEN
6807: l_err_message := SQLERRM;
6808: /*
6809: IF l_debug_level > 0 THEN
6810: oe_debug_pub.add('Create_Authorization error....exc');
6811: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6812: oe_debug_pub.add('Result code'||l_response.result_code);
6813: oe_debug_pub.add('Error'||l_err_message);
6814: END IF;
6807: l_err_message := SQLERRM;
6808: /*
6809: IF l_debug_level > 0 THEN
6810: oe_debug_pub.add('Create_Authorization error....exc');
6811: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6812: oe_debug_pub.add('Result code'||l_response.result_code);
6813: oe_debug_pub.add('Error'||l_err_message);
6814: END IF;
6815: */ --CC Reversal ER#16014135 Commented
6808: /*
6809: IF l_debug_level > 0 THEN
6810: oe_debug_pub.add('Create_Authorization error....exc');
6811: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6812: oe_debug_pub.add('Result code'||l_response.result_code);
6813: oe_debug_pub.add('Error'||l_err_message);
6814: END IF;
6815: */ --CC Reversal ER#16014135 Commented
6816: --CC Reversal ER#16014135 Start
6809: IF l_debug_level > 0 THEN
6810: oe_debug_pub.add('Create_Authorization error....exc');
6811: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6812: oe_debug_pub.add('Result code'||l_response.result_code);
6813: oe_debug_pub.add('Error'||l_err_message);
6814: END IF;
6815: */ --CC Reversal ER#16014135 Commented
6816: --CC Reversal ER#16014135 Start
6817: IF l_reauthorize_flag = 'R' THEN
6815: */ --CC Reversal ER#16014135 Commented
6816: --CC Reversal ER#16014135 Start
6817: IF l_reauthorize_flag = 'R' THEN
6818: IF l_debug_level > 0 THEN
6819: oe_debug_pub.add('Create_Reversal error....exc',5);
6820: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6821: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6822: oe_debug_pub.add('Error'||l_err_message,5);
6823: END IF;
6816: --CC Reversal ER#16014135 Start
6817: IF l_reauthorize_flag = 'R' THEN
6818: IF l_debug_level > 0 THEN
6819: oe_debug_pub.add('Create_Reversal error....exc',5);
6820: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6821: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6822: oe_debug_pub.add('Error'||l_err_message,5);
6823: END IF;
6824: ELSE
6817: IF l_reauthorize_flag = 'R' THEN
6818: IF l_debug_level > 0 THEN
6819: oe_debug_pub.add('Create_Reversal error....exc',5);
6820: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6821: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6822: oe_debug_pub.add('Error'||l_err_message,5);
6823: END IF;
6824: ELSE
6825: IF l_debug_level > 0 THEN
6818: IF l_debug_level > 0 THEN
6819: oe_debug_pub.add('Create_Reversal error....exc',5);
6820: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6821: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6822: oe_debug_pub.add('Error'||l_err_message,5);
6823: END IF;
6824: ELSE
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('Create_Authorization error....exc',5);
6822: oe_debug_pub.add('Error'||l_err_message,5);
6823: END IF;
6824: ELSE
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('Create_Authorization error....exc',5);
6827: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6828: oe_debug_pub.add('Result code'||l_response.result_code,5);
6829: oe_debug_pub.add('Error'||l_err_message,5);
6830: END IF;
6823: END IF;
6824: ELSE
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('Create_Authorization error....exc',5);
6827: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6828: oe_debug_pub.add('Result code'||l_response.result_code,5);
6829: oe_debug_pub.add('Error'||l_err_message,5);
6830: END IF;
6831: END IF;
6824: ELSE
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('Create_Authorization error....exc',5);
6827: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6828: oe_debug_pub.add('Result code'||l_response.result_code,5);
6829: oe_debug_pub.add('Error'||l_err_message,5);
6830: END IF;
6831: END IF;
6832: --CC Reversal ER#16014135 End
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('Create_Authorization error....exc',5);
6827: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6828: oe_debug_pub.add('Result code'||l_response.result_code,5);
6829: oe_debug_pub.add('Error'||l_err_message,5);
6830: END IF;
6831: END IF;
6832: --CC Reversal ER#16014135 End
6833: p_return_status := FND_API.G_RET_STS_ERROR;
6839: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6840: l_err_message := SQLERRM;
6841: /*
6842: IF l_debug_level > 0 THEN
6843: oe_debug_pub.add('Create_Authorization error....unxc');
6844: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6845: oe_debug_pub.add('Result code'||l_response.result_code);
6846: oe_debug_pub.add('f Error'||l_err_message);
6847: END IF;
6840: l_err_message := SQLERRM;
6841: /*
6842: IF l_debug_level > 0 THEN
6843: oe_debug_pub.add('Create_Authorization error....unxc');
6844: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6845: oe_debug_pub.add('Result code'||l_response.result_code);
6846: oe_debug_pub.add('f Error'||l_err_message);
6847: END IF;
6848: */--CC Reversal ER#16014135 Commented
6841: /*
6842: IF l_debug_level > 0 THEN
6843: oe_debug_pub.add('Create_Authorization error....unxc');
6844: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6845: oe_debug_pub.add('Result code'||l_response.result_code);
6846: oe_debug_pub.add('f Error'||l_err_message);
6847: END IF;
6848: */--CC Reversal ER#16014135 Commented
6849: --CC Reversal ER#16014135 Start
6842: IF l_debug_level > 0 THEN
6843: oe_debug_pub.add('Create_Authorization error....unxc');
6844: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6845: oe_debug_pub.add('Result code'||l_response.result_code);
6846: oe_debug_pub.add('f Error'||l_err_message);
6847: END IF;
6848: */--CC Reversal ER#16014135 Commented
6849: --CC Reversal ER#16014135 Start
6850: IF l_reauthorize_flag = 'R' THEN
6848: */--CC Reversal ER#16014135 Commented
6849: --CC Reversal ER#16014135 Start
6850: IF l_reauthorize_flag = 'R' THEN
6851: IF l_debug_level > 0 THEN
6852: oe_debug_pub.add('Create_Reversal error....unxc',5);
6853: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6854: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6855: oe_debug_pub.add('f Error'||l_err_message,5);
6856: END IF;
6849: --CC Reversal ER#16014135 Start
6850: IF l_reauthorize_flag = 'R' THEN
6851: IF l_debug_level > 0 THEN
6852: oe_debug_pub.add('Create_Reversal error....unxc',5);
6853: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6854: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6855: oe_debug_pub.add('f Error'||l_err_message,5);
6856: END IF;
6857: ELSE
6850: IF l_reauthorize_flag = 'R' THEN
6851: IF l_debug_level > 0 THEN
6852: oe_debug_pub.add('Create_Reversal error....unxc',5);
6853: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6854: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6855: oe_debug_pub.add('f Error'||l_err_message,5);
6856: END IF;
6857: ELSE
6858: IF l_debug_level > 0 THEN
6851: IF l_debug_level > 0 THEN
6852: oe_debug_pub.add('Create_Reversal error....unxc',5);
6853: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6854: oe_debug_pub.add('Result code'||l_reauth_response.result_code,5);
6855: oe_debug_pub.add('f Error'||l_err_message,5);
6856: END IF;
6857: ELSE
6858: IF l_debug_level > 0 THEN
6859: oe_debug_pub.add('Create_Authorization error....unxc',5);
6855: oe_debug_pub.add('f Error'||l_err_message,5);
6856: END IF;
6857: ELSE
6858: IF l_debug_level > 0 THEN
6859: oe_debug_pub.add('Create_Authorization error....unxc',5);
6860: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6861: oe_debug_pub.add('Result code'||l_response.result_code,5);
6862: oe_debug_pub.add('f Error'||l_err_message,5);
6863: END IF;
6856: END IF;
6857: ELSE
6858: IF l_debug_level > 0 THEN
6859: oe_debug_pub.add('Create_Authorization error....unxc',5);
6860: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6861: oe_debug_pub.add('Result code'||l_response.result_code,5);
6862: oe_debug_pub.add('f Error'||l_err_message,5);
6863: END IF;
6864: END IF;
6857: ELSE
6858: IF l_debug_level > 0 THEN
6859: oe_debug_pub.add('Create_Authorization error....unxc',5);
6860: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6861: oe_debug_pub.add('Result code'||l_response.result_code,5);
6862: oe_debug_pub.add('f Error'||l_err_message,5);
6863: END IF;
6864: END IF;
6865: --CC Reversal ER#16014135 End
6858: IF l_debug_level > 0 THEN
6859: oe_debug_pub.add('Create_Authorization error....unxc',5);
6860: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status,5);
6861: oe_debug_pub.add('Result code'||l_response.result_code,5);
6862: oe_debug_pub.add('f Error'||l_err_message,5);
6863: END IF;
6864: END IF;
6865: --CC Reversal ER#16014135 End
6866: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6870: );
6871:
6872: WHEN OTHERS THEN
6873: l_err_message := SQLERRM;
6874: oe_debug_pub.add('Returned error others part in Auth multi payments...'||l_err_message);
6875:
6876: p_result_out := 'FAIL';
6877: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6878:
6928: l_invoiced_flag VARCHAR2(1):='N';
6929: l_inv_interface_status_code VARCHAR2(200):='NO';
6930: --CC Reversal ER#16014135 End
6931: --
6932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6933: --
6934:
6935: BEGIN
6936:
6935: BEGIN
6936:
6937: x_return_status := FND_API.G_RET_STS_SUCCESS;
6938: IF l_debug_level > 0 THEN
6939: oe_debug_pub.add( 'OEXPVPMB: IN CHECK REAUTHORIZE ORDER' ) ;
6940: END IF;
6941:
6942: l_reauthorize_flag := 'N' ;
6943:
6958: END;
6959:
6960: IF l_settled_flag = 'Y' THEN
6961: IF l_debug_level > 0 THEN
6962: oe_debug_pub.add( 'OEXPVPMB: authorization has been settled, need to re-authorize.');
6963: END IF;
6964:
6965: -- need to create a new payment transaction extension as the old one has been settled.
6966: Create_New_Payment_Trxn (p_trxn_extension_id => p_trxn_extension_id,
7014: IF nvl(l_effective_auth_amount,0) = 0 THEN
7015: l_reauthorize_flag := 'Y';
7016: p_reauthorize_out := l_reauthorize_flag ;
7017: IF l_debug_level > 0 THEN
7018: oe_debug_pub.add( 'OEXPVPMB: authorization has either expired or not exists.');
7019: END IF;
7020: END IF;
7021:
7022: IF l_reauthorize_flag = 'Y' THEN
7047: --CC Reversal ER#16014135 Start
7048: IF p_line_id is null and l_reauthorize_flag ='N' THEN --header level payment
7049: -- check if any line using this header payment is invoice interfaced, if so create new trxn_extension_id
7050: IF l_debug_level > 0 THEN
7051: oe_debug_pub.add( 'OEXPVPMB: checking if any line which is using trxn_extension_id is invoice interfaced');
7052: END IF;
7053: BEGIN
7054: SELECT nvl(invoiced_flag,'N')
7055: INTO l_invoiced_flag
7067: l_invoiced_flag:='N';
7068: END;
7069: IF l_invoiced_flag ='Y' THEN
7070: IF l_debug_level > 0 THEN
7071: oe_debug_pub.add( 'OEXPVPMB: creating new trxn_extension_id :'||l_trxn_extension_id);
7072: END IF;
7073: Create_New_Payment_Trxn (p_trxn_extension_id => p_trxn_extension_id,
7074: p_org_id => p_org_id,
7075: p_site_use_id => p_site_use_id,
7083: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7084: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7085: END IF;
7086: IF l_debug_level > 0 THEN
7087: oe_debug_pub.add( 'OEXPVPMB: updating new trxn_extension_id ');
7088: END IF;
7089: -- update oe_payments table
7090: UPDATE oe_payments
7091: SET trxn_extension_id = l_trxn_extension_id
7094: AND header_id = p_header_id
7095: AND line_id IS NULL
7096: AND payment_number = p_payment_number;
7097: IF l_debug_level > 0 THEN
7098: oe_debug_pub.add( 'OEXPVPMB: updating new trxn_extension_id...done ');
7099: END IF;
7100:
7101: l_reauthorize_flag:='Y';
7102: END IF;--l_invoiced_flag end if
7114: IF l_reauthorize_flag = 'N' THEN
7115: -- if we return for any reason the p_reauthorize_out should be N
7116: p_reauthorize_out := l_reauthorize_flag ;
7117: IF l_debug_level > 0 THEN
7118: oe_debug_pub.add('Reversal logic check begin',5);
7119: END IF;
7120: BEGIN
7121: SELECT nvl(REVERSAL_ALLOWED,'N'), nvl(AUTHORIZATION_AMOUNT,0)
7122: INTO l_reversal_allowed, l_authorized_amt
7127: EXCEPTION WHEN NO_DATA_FOUND THEN
7128: l_reversal_allowed :='N';
7129: END;
7130: IF l_debug_level > 0 THEN
7131: oe_debug_pub.add('Reversal allowed by payment system '||l_reversal_allowed,5);
7132: END IF;
7133: IF l_reversal_allowed = 'N' THEN
7134: IF l_debug_level > 0 THEN
7135: oe_debug_pub.add('Payment system doesnt support Reversal',5);
7131: oe_debug_pub.add('Reversal allowed by payment system '||l_reversal_allowed,5);
7132: END IF;
7133: IF l_reversal_allowed = 'N' THEN
7134: IF l_debug_level > 0 THEN
7135: oe_debug_pub.add('Payment system doesnt support Reversal',5);
7136: END IF;
7137: RETURN;
7138: END IF;
7139: BEGIN
7144: EXCEPTION WHEN NO_DATA_FOUND THEN
7145: l_voice_auth :='N';
7146: END;
7147: IF l_debug_level > 0 THEN
7148: oe_debug_pub.add('Voice authorization: '||l_voice_auth,5);
7149: END IF;
7150: IF l_voice_auth = 'Y' THEN
7151: IF l_debug_level > 0 THEN
7152: oe_debug_pub.add('This is Voice authorization',5);
7148: oe_debug_pub.add('Voice authorization: '||l_voice_auth,5);
7149: END IF;
7150: IF l_voice_auth = 'Y' THEN
7151: IF l_debug_level > 0 THEN
7152: oe_debug_pub.add('This is Voice authorization',5);
7153: END IF;
7154: RETURN;
7155: END IF;
7156: IF l_debug_level > 0 THEN
7153: END IF;
7154: RETURN;
7155: END IF;
7156: IF l_debug_level > 0 THEN
7157: oe_debug_pub.add('p_amount_to_authorize '||p_amount_to_authorize,5);
7158: oe_debug_pub.add('l_authorized_amt '||l_authorized_amt,5);
7159: END IF;
7160:
7161: IF p_amount_to_authorize <> l_authorized_amt THEN
7154: RETURN;
7155: END IF;
7156: IF l_debug_level > 0 THEN
7157: oe_debug_pub.add('p_amount_to_authorize '||p_amount_to_authorize,5);
7158: oe_debug_pub.add('l_authorized_amt '||l_authorized_amt,5);
7159: END IF;
7160:
7161: IF p_amount_to_authorize <> l_authorized_amt THEN
7162: IF l_debug_level > 0 THEN
7159: END IF;
7160:
7161: IF p_amount_to_authorize <> l_authorized_amt THEN
7162: IF l_debug_level > 0 THEN
7163: oe_debug_pub.add('amounts are different.. requires re-authorization',5);
7164: END IF;
7165: l_cc_rev_reauth_code:= OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_header_id);
7166: IF l_cc_rev_reauth_code IS NULL THEN
7167: IF l_debug_level > 0 THEN
7164: END IF;
7165: l_cc_rev_reauth_code:= OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_header_id);
7166: IF l_cc_rev_reauth_code IS NULL THEN
7167: IF l_debug_level > 0 THEN
7168: oe_debug_pub.add('CC Reversal is Not set',5);
7169: END IF;
7170: RETURN;
7171: END IF;
7172: IF l_debug_level > 0 THEN
7169: END IF;
7170: RETURN;
7171: END IF;
7172: IF l_debug_level > 0 THEN
7173: oe_debug_pub.add('l_cc_rev_reauth_code :'||l_cc_rev_reauth_code,5);
7174: END IF;
7175: IF l_cc_rev_reauth_code = 'CC_HOLD' THEN
7176: x_return_status :='HOLD';
7177: IF p_calling_action IS NULL OR (G_init_calling_action IN ('SHIPPING','PICKING','PACKING'))THEN
7175: IF l_cc_rev_reauth_code = 'CC_HOLD' THEN
7176: x_return_status :='HOLD';
7177: IF p_calling_action IS NULL OR (G_init_calling_action IN ('SHIPPING','PICKING','PACKING'))THEN
7178: IF l_debug_level > 0 THEN
7179: oe_debug_pub.add('Hold logic execution.. setting reversal flag to R',5);
7180: END IF;
7181: l_reauthorize_flag := 'R';
7182: --apply hold if not done from Actions-->process payment or click of process payment button
7183: ELSE
7181: l_reauthorize_flag := 'R';
7182: --apply hold if not done from Actions-->process payment or click of process payment button
7183: ELSE
7184: IF l_debug_level > 0 THEN
7185: oe_debug_pub.add('applying hold based on system parameter for reversal',5);
7186: END IF;
7187: IF p_line_id IS NULL THEN
7188: OE_Verify_Payment_PUB.Apply_Verify_Hold
7189: ( p_header_id => p_header_id
7207: OR (G_init_calling_action ='PICKING' AND l_cc_rev_reauth_code='REV_REAUTH_AT_PICK')
7208: OR p_calling_action ='REVERSAL_REAUTH'
7209: THEN
7210: IF l_debug_level > 0 THEN
7211: oe_debug_pub.add('Setting reversal flag to R',5);
7212: END IF;
7213: l_reauthorize_flag := 'R';
7214: END IF;--hold endif
7215: END IF;--amount authorize end if
7215: END IF;--amount authorize end if
7216: END IF;--end if l_reauthorize_flag =N'
7217: ELSIF p_amount_to_authorize = 0 THEN
7218: IF l_debug_level > 0 THEN
7219: oe_debug_pub.add('Reversal logic for payment amount zero begin '||l_reauthorize_flag,5);
7220: END IF;
7221: p_reauthorize_out := l_reauthorize_flag ;
7222: BEGIN
7223: SELECT nvl(REVERSAL_ALLOWED,'N')
7228: AND authorization_status=0 ;
7229: EXCEPTION WHEN NO_DATA_FOUND THEN
7230: l_reversal_allowed :='N';
7231: IF l_debug_level > 0 THEN
7232: oe_debug_pub.add('No valid authorization exists for Reversal',5);
7233: oe_debug_pub.add('Reversal allowed by payment system'||l_reversal_allowed,5);
7234: END IF;
7235: RETURN;
7236: END;
7229: EXCEPTION WHEN NO_DATA_FOUND THEN
7230: l_reversal_allowed :='N';
7231: IF l_debug_level > 0 THEN
7232: oe_debug_pub.add('No valid authorization exists for Reversal',5);
7233: oe_debug_pub.add('Reversal allowed by payment system'||l_reversal_allowed,5);
7234: END IF;
7235: RETURN;
7236: END;
7237: IF l_reversal_allowed = 'N' THEN
7235: RETURN;
7236: END;
7237: IF l_reversal_allowed = 'N' THEN
7238: IF l_debug_level > 0 THEN
7239: oe_debug_pub.add('Payment system doesnt support Reversal',5);
7240: END IF;
7241: RETURN;
7242: END IF;
7243: IF l_debug_level > 0 THEN
7240: END IF;
7241: RETURN;
7242: END IF;
7243: IF l_debug_level > 0 THEN
7244: oe_debug_pub.add('checking for line_id based on p_trxn_extension_id passed',5);
7245: END IF;
7246: SELECT line_id
7247: INTO l_line_id
7248: FROM oe_payments
7250: AND header_id=p_header_id;
7251:
7252: IF l_line_id IS NOT NULL THEN
7253: IF l_debug_level > 0 THEN
7254: oe_debug_pub.add('checking invoice_interface_status_code for Line id '||l_line_id,5);
7255: END IF;
7256: BEGIN
7257: SELECT nvl(invoice_interface_status_code,'NO')
7258: INTO l_inv_interface_status_code
7264: ELSE
7265: l_inv_interface_status_code:='NO';
7266: END IF; --End if of l_line_id
7267: IF l_debug_level > 0 THEN
7268: oe_debug_pub.add( 'l_inv_interface_status_code : '||l_inv_interface_status_code,5);
7269: END IF;
7270: IF l_inv_interface_status_code = 'NO' THEN
7271: BEGIN
7272: oe_payment_trxn_util.Reverse_CreditCard_Auth
7278: );
7279: EXCEPTION
7280: WHEN FND_API.G_EXC_ERROR THEN
7281: IF l_debug_level > 0 THEN
7282: oe_debug_pub.add('Reverse_CreditCard_Auth error....exc',5);
7283: oe_debug_pub.add('After call to Reverse_CreditCard_Auth'||l_return_status,5);
7284: oe_debug_pub.add('Error'||sqlerrm,5);
7285: END IF;
7286: l_return_status := FND_API.G_RET_STS_ERROR;
7279: EXCEPTION
7280: WHEN FND_API.G_EXC_ERROR THEN
7281: IF l_debug_level > 0 THEN
7282: oe_debug_pub.add('Reverse_CreditCard_Auth error....exc',5);
7283: oe_debug_pub.add('After call to Reverse_CreditCard_Auth'||l_return_status,5);
7284: oe_debug_pub.add('Error'||sqlerrm,5);
7285: END IF;
7286: l_return_status := FND_API.G_RET_STS_ERROR;
7287: OE_MSG_PUB.Count_And_Get
7280: WHEN FND_API.G_EXC_ERROR THEN
7281: IF l_debug_level > 0 THEN
7282: oe_debug_pub.add('Reverse_CreditCard_Auth error....exc',5);
7283: oe_debug_pub.add('After call to Reverse_CreditCard_Auth'||l_return_status,5);
7284: oe_debug_pub.add('Error'||sqlerrm,5);
7285: END IF;
7286: l_return_status := FND_API.G_RET_STS_ERROR;
7287: OE_MSG_PUB.Count_And_Get
7288: ( p_count => l_msg_count,
7294: ( p_count => l_msg_count,
7295: p_data => l_msg_data
7296: );
7297: IF l_debug_level > 0 THEN
7298: oe_debug_pub.add('After call to Reverse_CreditCard_Auth --> Unexpected error',5);
7299: oe_debug_pub.add('Error message '||sqlerrm,5);
7300: END IF;
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7302: END;
7295: p_data => l_msg_data
7296: );
7297: IF l_debug_level > 0 THEN
7298: oe_debug_pub.add('After call to Reverse_CreditCard_Auth --> Unexpected error',5);
7299: oe_debug_pub.add('Error message '||sqlerrm,5);
7300: END IF;
7301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7302: END;
7303: END IF;
7309:
7310: END IF; -- IF Outbound Total
7311:
7312: IF l_debug_level > 0 THEN
7313: oe_debug_pub.add( 'OEXPVPMB: reauthorize flag is: '||l_reauthorize_flag);
7314: END IF;
7315:
7316: p_reauthorize_out := l_reauthorize_flag ;
7317:
7365: --pnpl end
7366: Is_fmt BOOLEAN; --8241416
7367:
7368: --
7369: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7370: --
7371: BEGIN
7372:
7373: IF l_debug_level > 0 THEN
7370: --
7371: BEGIN
7372:
7373: IF l_debug_level > 0 THEN
7374: oe_debug_pub.add( 'ENTERING OE_Verify_Payment_Pub.Get_Line_Total.' , 1 ) ;
7375: END IF;
7376:
7377: --8241416 start
7378: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
7418: l_extended_price := 0;
7419: END;
7420:
7421: IF l_debug_level > 0 THEN
7422: oe_debug_pub.add( 'In Get_Line_Total, l_extended_price is: '||l_extended_price , 3 ) ;
7423: END IF;
7424:
7425: -- Select the committment applied amount
7426: BEGIN
7467: END;
7468:
7469:
7470: IF l_debug_level > 0 THEN
7471: oe_debug_pub.add( 'In Get_Line_Total, commitment_applied_amount is: '||l_commitment_applied , 3 ) ;
7472: END IF;
7473:
7474: -- get line level charges
7475: -- sol_ord_er #16014165, Freight Charges are not invoiced if billing involves OKS, hence payment should not be made for it.
7511: l_charge_amount := 0;
7512: END;
7513:
7514: IF l_debug_level > 0 THEN
7515: oe_debug_pub.add( 'In Get_Line_Total, l_charge_amount is: '||l_charge_amount , 3 ) ;
7516: END IF;
7517:
7518: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7519: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7518: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7519: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7520:
7521: IF l_debug_level > 0 THEN
7522: oe_debug_pub.add( 'In Get_Line_Total, l_line_total is: '||l_line_total , 3 ) ;
7523: END IF;
7524:
7525: l_line_total_no_comt := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7526: + nvl(l_charge_amount,0);
7548: );
7549:
7550:
7551: IF l_debug_level > 0 THEN
7552: oe_debug_pub.add( 'In Get_Line_Total, First Installment is: '|| l_pay_now_total_summary_rec.total_amount , 3 ) ;
7553: END IF;
7554:
7555: l_return_value := l_pay_now_total_summary_rec.total_amount;
7556:
7574: ,x_msg_data => l_msg_data
7575: );
7576:
7577: IF l_debug_level > 0 THEN
7578: oe_debug_pub.add('l_pay_now_total_summary_rec.total_amount is '|| l_pay_now_total_summary_rec.total_amount);
7579: END IF;
7580:
7581: -- return pay_now_total minus line level commitment applied amount.
7582: l_return_value := l_pay_now_total_summary_rec.total_amount;
7609: END IF;
7610: END IF;
7611:
7612: IF l_debug_level > 0 THEN
7613: oe_debug_pub.add( 'Exiting OE_Verify_Payment_PUB.Get_Line_Total.' , 3 ) ;
7614: END IF;
7615:
7616: EXCEPTION
7617: WHEN OTHERS THEN
7615:
7616: EXCEPTION
7617: WHEN OTHERS THEN
7618: IF l_debug_level > 0 THEN
7619: oe_debug_pub.add( 'Unexpected Error from OE_Verify_Payment_PUB.Get_Line_Total ' || SQLERRM ) ;
7620: END IF;
7621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7622: END Get_Line_Total;
7623:
7654: --pnpl end
7655:
7656:
7657: --
7658: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7659: --
7660: BEGIN
7661:
7662: IF l_debug_level > 0 THEN
7659: --
7660: BEGIN
7661:
7662: IF l_debug_level > 0 THEN
7663: oe_debug_pub.add( 'ENTERING OE_Verify_Payment_Pub.Get_Inv_Line_Total.' , 1 ) ;
7664: END IF;
7665:
7666: -- Select the Tax Value and Outbound Extended Price
7667: BEGIN
7693: l_extended_price := 0;
7694: END;
7695:
7696: IF l_debug_level > 0 THEN
7697: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_extended_price is: '||l_extended_price , 3 ) ;
7698: END IF;
7699:
7700: BEGIN
7701: --pnpl added the Do_Commitment_Sequencing check
7739: l_commitment_applied := 0;
7740: END;
7741:
7742: IF l_debug_level > 0 THEN
7743: oe_debug_pub.add( 'In Get_Inv_Line_Total, commitment_applied_amount is: '||l_commitment_applied , 3 ) ;
7744: END IF;
7745:
7746: -- get line level charges
7747: BEGIN
7769: l_charge_amount := 0;
7770: END;
7771:
7772: IF l_debug_level > 0 THEN
7773: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_charge_amount is: '||l_charge_amount , 3 ) ;
7774: END IF;
7775:
7776: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7777: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7776: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7777: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7778:
7779: IF l_debug_level > 0 THEN
7780: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_line_total is: '||l_line_total , 3 ) ;
7781: END IF;
7782:
7783: l_line_total_no_comt := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7784: + nvl(l_charge_amount,0);
7801: );
7802:
7803:
7804: IF l_debug_level > 0 THEN
7805: oe_debug_pub.add( 'In Get_Inv_Line_Total, First Installment is: '|| l_pay_now_total_summary_rec.total_amount , 3 ) ;
7806: END IF;
7807:
7808: l_return_value := l_pay_now_total_summary_rec.total_amount;
7809:
7827: ,x_msg_data => l_msg_data
7828: );
7829:
7830: IF l_debug_level > 0 THEN
7831: oe_debug_pub.add('l_pay_now_total_summary_rec.total_amount is '|| l_pay_now_total_summary_rec.total_amount);
7832: END IF;
7833:
7834: -- return pay_now_total minus line level commitment applied amount.
7835: l_return_value := l_pay_now_total_summary_rec.total_amount;
7848: END IF;
7849: END IF;
7850:
7851: IF l_debug_level > 0 THEN
7852: oe_debug_pub.add( 'Exiting OE_Verify_Payment_PUB.Get_Inv_Line_Total.' , 3 ) ;
7853: END IF;
7854:
7855: EXCEPTION
7856: WHEN OTHERS THEN
7854:
7855: EXCEPTION
7856: WHEN OTHERS THEN
7857: IF l_debug_level > 0 THEN
7858: oe_debug_pub.add( 'FROM OE_Verify_Payment_PUB.Get_Inv_Line_Total' ) ;
7859: END IF;
7860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7861: END Get_Inv_Line_Total;
7862:
7886: l_return_status VARCHAR2(1);
7887: --pnpl end
7888:
7889: --
7890: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7891: --
7892: Is_fmt BOOLEAN; --7010350
7893: BEGIN
7894: -- bug#5946168 added round function
8033: ,x_return_status => l_return_status
8034: );
8035: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8036: IF l_debug_level > 0 THEN
8037: oe_debug_pub.add('Error in OE_Prepayment_PVT.Get_Pay_Now_Amounts... returning zero');
8038: END IF;
8039: RETURN 0;
8040: END IF;
8041:
8062: l_outbound_total := NVL(l_chgs_wo_line_id,0);
8063: END IF;
8064:
8065: IF l_debug_level > 0 THEN
8066: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8063: END IF;
8064:
8065: IF l_debug_level > 0 THEN
8066: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8064:
8065: IF l_debug_level > 0 THEN
8066: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8072: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
8065: IF l_debug_level > 0 THEN
8066: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8072: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
8073: END IF;
8066: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8072: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
8073: END IF;
8074: RETURN (l_outbound_total);
8067: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8072: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
8073: END IF;
8074: RETURN (l_outbound_total);
8075:
8068: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
8069: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
8070: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
8071: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
8072: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
8073: END IF;
8074: RETURN (l_outbound_total);
8075:
8076: EXCEPTION
8075:
8076: EXCEPTION
8077: WHEN OTHERS THEN
8078: IF l_debug_level > 0 THEN
8079: oe_debug_pub.add( 'FROM OUTBOUND TOTAL OTHERS: ' || SQLERRM ) ;
8080: END IF;
8081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8082:
8083: END Outbound_Order_Total;
8112: l_msg_data VARCHAR2(2000);
8113: l_control_rec OE_GLOBALS.Control_Rec_Type;
8114: l_return_status VARCHAR2(30);
8115: --
8116: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8117: --
8118: BEGIN
8119:
8120:
8122:
8123: p_return_status := FND_API.G_RET_STS_SUCCESS;
8124:
8125: IF l_debug_level > 0 THEN
8126: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
8127: END IF;
8128:
8129: /*
8130: -- Set up the Header record
8155: -- Header needs to be requeried, setting the flag to true
8156: -- OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
8157:
8158: IF l_debug_level > 0 THEN
8159: oe_debug_pub.add( 'OEXPVPMB: UPDATING FIELDS ON HEADER' ) ;
8160: END IF;
8161: */
8162:
8163: IF p_line_id IS NOT NULL THEN
8220: , x_index => l_notify_index
8221: , x_return_status => l_return_status);
8222:
8223: IF l_debug_level > 0 THEN
8224: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
8225: END IF;
8226: IF l_debug_level > 0 THEN
8227: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
8228: END IF;
8223: IF l_debug_level > 0 THEN
8224: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
8225: END IF;
8226: IF l_debug_level > 0 THEN
8227: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
8228: END IF;
8229:
8230: IF l_notify_index is not null then
8231: -- modify Global Picture
8241: OE_ORDER_UTIL.g_header_rec.last_update_date:=l_header_rec.last_update_date;
8242: OE_ORDER_UTIL.g_header_rec.lock_control:= l_header_rec.lock_control;
8243:
8244: IF l_debug_level > 0 THEN
8245: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
8246: END IF;
8247: IF l_debug_level > 0 THEN
8248: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
8249: END IF;
8244: IF l_debug_level > 0 THEN
8245: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
8246: END IF;
8247: IF l_debug_level > 0 THEN
8248: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
8249: END IF;
8250: IF l_debug_level > 0 THEN
8251: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
8252: END IF;
8247: IF l_debug_level > 0 THEN
8248: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
8249: END IF;
8250: IF l_debug_level > 0 THEN
8251: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
8252: END IF;
8253:
8254: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8255: RAISE FND_API.G_EXC_ERROR;
8258: END IF;
8259:
8260: -- Process requests is TRUE so still need to call it, but don't need to notify
8261: IF l_debug_level > 0 THEN
8262: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
8263: END IF;
8264: OE_Order_PVT.Process_Requests_And_Notify
8265: ( p_process_requests => TRUE
8266: , p_notify => FALSE
8279:
8280: ELSE -- pre- pack H
8281:
8282: IF l_debug_level > 0 THEN
8283: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
8284: END IF;
8285: OE_Order_PVT.Process_Requests_And_Notify
8286: ( p_process_requests => TRUE
8287: , p_notify => TRUE
8353: l_hold_result VARCHAR2(30);
8354: l_msg_count NUMBER := 0;
8355: l_msg_data VARCHAR2(2000);
8356: l_return_status VARCHAR2(30);
8357: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8358:
8359: BEGIN
8360:
8361: p_return_status := FND_API.G_RET_STS_SUCCESS;
8359: BEGIN
8360:
8361: p_return_status := FND_API.G_RET_STS_SUCCESS;
8362: IF l_debug_level > 0 THEN
8363: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY LINE HOLD' ) ;
8364: END IF;
8365:
8366: -- Check What type of Holds to Release
8367: IF p_epayment_hold = 'Y' THEN
8365:
8366: -- Check What type of Holds to Release
8367: IF p_epayment_hold = 'Y' THEN
8368: IF l_debug_level > 0 THEN
8369: oe_debug_pub.add( 'OEXPVPMB: RELEASE EPAYMENT HOLDS FOR LINE ID : ' || p_line_id ) ;
8370: END IF;
8371:
8372: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
8373:
8374: l_hold_id := 11 ; -- Credit Card Authorization Failure Hold
8375:
8376: -- Call Check for Hold to see if the Hold Exists
8377: IF l_debug_level > 0 THEN
8378: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
8379: END IF;
8380: --
8381:
8382: OE_HOLDS_PUB.Check_Holds
8395: -- Check the Result
8396: IF l_hold_result = FND_API.G_TRUE THEN
8397:
8398: IF l_debug_level > 0 THEN
8399: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC FAILURE HOLD ON ORDER HEADER ID:' || p_header_id ) ;
8400: END IF;
8401: l_hold_source_rec.hold_id := l_hold_id;
8402: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
8403: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
8423:
8424: END IF; -- Do nothing if the hold has already been released.
8425:
8426: IF l_debug_level > 0 THEN
8427: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR LINE ID : ' || p_line_id ) ;
8428: END IF;
8429:
8430: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
8431: l_hold_id := 12 ; -- Credit Card Risk Hold
8431: l_hold_id := 12 ; -- Credit Card Risk Hold
8432:
8433: -- Call Check for Hold to see if the Hold Exists
8434: IF l_debug_level > 0 THEN
8435: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
8436: END IF;
8437: --
8438: OE_HOLDS_PUB.Check_Holds
8439: ( p_api_version => 1.0
8451: -- Check the Result
8452: IF l_hold_result = FND_API.G_TRUE THEN
8453:
8454: IF l_debug_level > 0 THEN
8455: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
8456: END IF;
8457: l_hold_source_rec.hold_id := l_hold_id;
8458: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
8459: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
8479: END IF; -- Do nothing if the hold has already been released.
8480:
8481: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
8482: IF l_debug_level > 0 THEN
8483: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR LINE ID : ' || p_line_id ) ;
8484: END IF;
8485:
8486: l_hold_id := 16 ; -- Credit Card Risk Hold
8487:
8486: l_hold_id := 16 ; -- Credit Card Risk Hold
8487:
8488: -- Call Check for Hold to see if the Hold Exists
8489: IF l_debug_level > 0 THEN
8490: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
8491: END IF;
8492: --
8493: OE_HOLDS_PUB.Check_Holds
8494: ( p_api_version => 1.0
8506: -- Check the Result
8507: IF l_hold_result = FND_API.G_TRUE THEN
8508:
8509: IF l_debug_level > 0 THEN
8510: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
8511: END IF;
8512: l_hold_source_rec.hold_id := l_hold_id;
8513: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
8514: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
8594:
8595: l_msg_count NUMBER := 0;
8596: l_msg_data VARCHAR2(2000);
8597: l_return_status VARCHAR2(30);
8598: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8599:
8600: BEGIN
8601:
8602: p_return_status := FND_API.G_RET_STS_SUCCESS;
8601:
8602: p_return_status := FND_API.G_RET_STS_SUCCESS;
8603:
8604: IF l_debug_level > 0 THEN
8605: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
8606: END IF;
8607:
8608: IF l_debug_level > 0 THEN
8609: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
8605: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
8606: END IF;
8607:
8608: IF l_debug_level > 0 THEN
8609: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
8610: END IF;
8611: IF l_debug_level > 0 THEN
8612: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
8613: END IF;
8608: IF l_debug_level > 0 THEN
8609: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
8610: END IF;
8611: IF l_debug_level > 0 THEN
8612: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
8613: END IF;
8614:
8615: -- Check if Hold already exists on this order
8616: IF l_debug_level > 0 THEN
8613: END IF;
8614:
8615: -- Check if Hold already exists on this order
8616: IF l_debug_level > 0 THEN
8617: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
8618: END IF;
8619: --
8620: OE_HOLDS_PUB.Check_Holds
8621: ( p_api_version => 1.0
8632:
8633: -- Return with Success if this Hold Already exists on the order
8634: IF l_hold_result = FND_API.G_TRUE THEN
8635: IF l_debug_level > 0 THEN
8636: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
8637: END IF;
8638: RETURN ;
8639: END IF ;
8640:
8639: END IF ;
8640:
8641: -- Apply Verify Hold on Order Line
8642: IF l_debug_level > 0 THEN
8643: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON LINE ID : ' || P_LINE_ID ) ;
8644: END IF;
8645:
8646: l_hold_source_rec.hold_id := p_hold_id ;
8647: l_hold_source_rec.hold_entity_code:= 'O';
8686: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
8687: FND_MESSAGE.SET_TOKEN('LEVEL','LINE '||l_line_ind);
8688: OE_MSG_PUB.ADD;
8689: IF l_debug_level > 0 THEN
8690: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
8691: END IF;
8692: END IF;
8693: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8694: RAISE FND_API.G_EXC_ERROR;
8696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8697: END IF;
8698:
8699: IF l_debug_level > 0 THEN
8700: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON LINE ID:' || P_LINE_ID ) ;
8701: END IF;
8702:
8703: EXCEPTION
8704:
8745: l_min_acct_unit NUMBER;
8746: l_format_mask VARCHAR2(500);
8747:
8748: --
8749: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8750: --
8751: BEGIN
8752: FND_CURRENCY.Get_Info(p_currency_code, -- IN variable
8753: l_precision,
8787: l_pos NUMBER := 0;
8788: l_retry_num NUMBER := 0;
8789:
8790: --
8791: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8792: --
8793:
8794: BEGIN
8795:
8795:
8796: l_return_status := FND_API.G_RET_STS_SUCCESS;
8797:
8798: IF l_debug_level > 0 THEN
8799: oe_debug_pub.add( 'Entering Create_New_Payment_Trxn.', 1 ) ;
8800: END IF;
8801:
8802: Select hca.party_id, acct_site.cust_account_id
8803: Into l_party_id, l_cust_account_id
8810: AND ACCT_SITE.CUST_ACCOUNT_ID = HCA.CUST_ACCOUNT_ID
8811: AND SITE.ORG_ID = ACCT_SITE.ORG_ID;
8812:
8813: IF l_debug_level > 0 THEN
8814: oe_debug_pub.add('Party id in Create payment trxn'||l_party_id);
8815: END IF;
8816:
8817: l_payer.payment_function := 'CUSTOMER_PAYMENT'; --Verify
8818: l_payer.party_id := l_party_id;
8833: X_response => l_response_code);
8834:
8835: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8836: IF l_debug_level > 0 THEN
8837: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8838: END IF;
8839: RAISE FND_API.G_EXC_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8841: IF l_debug_level > 0 THEN
8838: END IF;
8839: RAISE FND_API.G_EXC_ERROR;
8840: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8841: IF l_debug_level > 0 THEN
8842: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8843: END IF;
8844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8845: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8846: IF l_debug_level > 0 THEN
8843: END IF;
8844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8845: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8846: IF l_debug_level > 0 THEN
8847: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8848: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8849: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8850: END IF;
8851: END IF;
8844: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8845: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8846: IF l_debug_level > 0 THEN
8847: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8848: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8849: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8850: END IF;
8851: END IF;
8852:
8845: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8846: IF l_debug_level > 0 THEN
8847: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8848: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8849: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8850: END IF;
8851: END IF;
8852:
8853: -- get assignment id from the payments table
8861: null;
8862: end;
8863:
8864: IF l_debug_level > 0 THEN
8865: oe_debug_pub.add('Instrument assignment id for existing instrument'||l_assign_id);
8866: END IF;
8867:
8868: IF p_line_id IS NOT NULL THEN
8869: -- this is for line split
8887: END IF;
8888: END IF;
8889:
8890: IF l_debug_level > 0 THEN
8891: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8888: END IF;
8889:
8890: IF l_debug_level > 0 THEN
8891: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8889:
8890: IF l_debug_level > 0 THEN
8891: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8890: IF l_debug_level > 0 THEN
8891: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8891: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8899: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8892: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8899: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8900: END IF;
8893: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8899: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8900: END IF;
8901:
8894: oe_debug_pub.add('Before calling create_transaction extension', 3);
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8899: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8900: END IF;
8901:
8902: --bug 5028932
8895: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8896: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8897: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8898: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8899: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8900: END IF;
8901:
8902: --bug 5028932
8903: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
8932: X_response => l_response_code);
8933:
8934:
8935: IF l_debug_level > 0 THEN
8936: oe_debug_pub.add('Result code'||l_Response_code.result_code);
8937: oe_debug_pub.add('Return status'||l_Return_Status);
8938: END IF;
8939:
8940: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8933:
8934:
8935: IF l_debug_level > 0 THEN
8936: oe_debug_pub.add('Result code'||l_Response_code.result_code);
8937: oe_debug_pub.add('Return status'||l_Return_Status);
8938: END IF;
8939:
8940: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8941: IF l_debug_level > 0 THEN
8938: END IF;
8939:
8940: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8941: IF l_debug_level > 0 THEN
8942: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8943: END IF;
8944: RAISE FND_API.G_EXC_ERROR;
8945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8946: IF l_debug_level > 0 THEN
8943: END IF;
8944: RAISE FND_API.G_EXC_ERROR;
8945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8946: IF l_debug_level > 0 THEN
8947: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8948: END IF;
8949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8950: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8951: IF l_debug_level > 0 THEN
8948: END IF;
8949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8950: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8951: IF l_debug_level > 0 THEN
8952: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8953: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8954: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8955: END IF;
8956: END IF;
8949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8950: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8951: IF l_debug_level > 0 THEN
8952: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8953: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8954: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8955: END IF;
8956: END IF;
8957:
8950: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8951: IF l_debug_level > 0 THEN
8952: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8953: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8954: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8955: END IF;
8956: END IF;
8957:
8958: x_return_status := l_return_status;
8957:
8958: x_return_status := l_return_status;
8959:
8960: IF l_debug_level > 0 THEN
8961: oe_debug_pub.add( 'Exiting Create_New_Payment_Trxn.', 1 ) ;
8962: END IF;
8963:
8964: EXCEPTION
8965:
9006: RETURN VARCHAR2
9007: IS
9008: l_cc_rev_reauth_code VARCHAR2(30) := NULL;
9009: --
9010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9011: --
9012: BEGIN
9013: IF l_debug_level > 0 THEN
9014: oe_debug_pub.add( 'Entering Get_CC_Rev_Reauth_Code.', 1 ) ;
9010: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9011: --
9012: BEGIN
9013: IF l_debug_level > 0 THEN
9014: oe_debug_pub.add( 'Entering Get_CC_Rev_Reauth_Code.', 1 ) ;
9015: END IF;
9016:
9017: BEGIN
9018: SELECT NVL(ordr_type.CREDIT_CARD_REV_REAUTH_CODE,oe_sys_parameters.value('OE_CC_REVERSAL_REAUTHORIZATION'))
9026: l_cc_rev_reauth_code := NULL;
9027: END;
9028:
9029: IF l_debug_level > 0 THEN
9030: oe_debug_pub.add( 'Exiting Get_CC_Rev_Reauth_Code...'||l_cc_rev_reauth_code, 1 ) ;
9031: END IF;
9032:
9033: RETURN l_cc_rev_reauth_code;
9034: END Get_CC_Rev_Reauth_Code;