[Home] [Help]
69:
70: l_msg_count NUMBER := 0;
71: l_msg_data VARCHAR2(2000);
72: l_return_status VARCHAR2(30);
73: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
74:
75: BEGIN
76:
77: p_return_status := FND_API.G_RET_STS_SUCCESS;
76:
77: p_return_status := FND_API.G_RET_STS_SUCCESS;
78:
79: IF l_debug_level > 0 THEN
80: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
81: END IF;
82:
83: IF l_debug_level > 0 THEN
84: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
80: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
81: END IF;
82:
83: IF l_debug_level > 0 THEN
84: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
85: END IF;
86: IF l_debug_level > 0 THEN
87: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
88: END IF;
83: IF l_debug_level > 0 THEN
84: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
85: END IF;
86: IF l_debug_level > 0 THEN
87: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
88: END IF;
89:
90: -- Check if Hold already exists on this order
91: IF l_debug_level > 0 THEN
88: END IF;
89:
90: -- Check if Hold already exists on this order
91: IF l_debug_level > 0 THEN
92: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
93: END IF;
94: --
95: OE_HOLDS_PUB.Check_Holds
96: ( p_api_version => 1.0
107:
108: -- Return with Success if this Hold Already exists on the order
109: IF l_hold_result = FND_API.G_TRUE THEN
110: IF l_debug_level > 0 THEN
111: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
112: END IF;
113: RETURN ;
114: END IF ;
115:
114: END IF ;
115:
116: -- Apply Verify Hold on Order Line
117: IF l_debug_level > 0 THEN
118: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON LINE ID : ' || P_LINE_ID ) ;
119: END IF;
120:
121: l_hold_source_rec.hold_id := p_hold_id ;
122: l_hold_source_rec.hold_entity_code:= 'O';
161: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
162: FND_MESSAGE.SET_TOKEN('LEVEL','LINE '||l_line_ind);
163: OE_MSG_PUB.ADD;
164: IF l_debug_level > 0 THEN
165: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
166: END IF;
167: END IF;
168: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
169: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173:
174: -- bug 4339864
175: IF l_debug_level > 0 THEN
176: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
177: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
178: END IF;
179:
180: COMMIT;
173:
174: -- bug 4339864
175: IF l_debug_level > 0 THEN
176: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
177: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
178: END IF;
179:
180: COMMIT;
181:
179:
180: COMMIT;
181:
182: IF l_debug_level > 0 THEN
183: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON LINE ID:' || P_LINE_ID ) ;
184: END IF;
185:
186: EXCEPTION
187:
228: l_dummy VARCHAR2(1);
229: l_manual_hold_exists varchar2(1) := 'N';
230: l_released_rec_exists varchar2(1) := 'Y';
231: --
232: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
233: --
234: BEGIN
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add( 'CHECKING FOR MANUALLY RELEASED HOLDS ON HEADER_ID'|| TO_CHAR ( P_HEADER_ID ) ) ;
232: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
233: --
234: BEGIN
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add( 'CHECKING FOR MANUALLY RELEASED HOLDS ON HEADER_ID'|| TO_CHAR ( P_HEADER_ID ) ) ;
237: END IF;
238:
239: if p_calling_action = 'SHIPPING' then
240: IF p_line_id IS NULL THEN
253: AND S.RELEASED_FLAG ='Y';
254: EXCEPTION
255: WHEN NO_DATA_FOUND THEN
256: IF l_debug_level > 0 THEN
257: oe_debug_pub.add( 'NO RELEASED RECORD FOR CREDIT CHECK HOLDS' ) ;
258: END IF;
259: l_released_rec_exists := 'N';
260: WHEN OTHERS THEN
261: null;
278: AND S.RELEASED_FLAG ='Y';
279: EXCEPTION
280: WHEN NO_DATA_FOUND THEN
281: IF l_debug_level > 0 THEN
282: oe_debug_pub.add( 'NO RELEASED RECORD FOR CREDIT CHECK HOLDS' ) ;
283: END IF;
284: l_released_rec_exists := 'N';
285: WHEN OTHERS THEN
286: null;
298: AND CREATED_BY <> 1;
299: EXCEPTION
300: WHEN NO_DATA_FOUND THEN
301: IF l_debug_level > 0 THEN
302: oe_debug_pub.add( 'NO MANUALLY RELEASED CREDIT HOLDS' ) ;
303: END IF;
304: l_manual_hold_exists := 'N';
305: WHEN OTHERS THEN
306: null;
307: END;
308: END IF;
309: end if;
310: IF l_debug_level > 0 THEN
311: oe_debug_pub.add( 'MANUAL HOLDS EXISTS:' || L_MANUAL_HOLD_EXISTS ) ;
312: END IF;
313: return l_manual_hold_exists;
314:
315: End CHECK_MANUAL_RELEASED_HOLDS;
339: WHERE header_id = p_header_id
340: AND invoice_to_org_id = nvl(p_invoice_to_org_id, invoice_to_org_id);
341:
342: --
343: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
344: --
345: BEGIN
346:
347: p_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: p_return_status := FND_API.G_RET_STS_SUCCESS;
348:
349: IF l_debug_level > 0 THEN
350: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE CREDIT CHECK HOLD' ) ;
351: END IF;
352:
353: FOR C1 in c_billto_lines
354: LOOP
352:
353: FOR C1 in c_billto_lines
354: LOOP
355: IF l_debug_level > 0 THEN
356: oe_debug_pub.add( 'OEXPVPMB:CHECKING CREDIT CHECK HOLD FOR HEADER/LINE ID : ' || TO_CHAR ( P_HEADER_ID ) || '/' || TO_CHAR ( C1.LINE_ID ) ) ;
357: END IF;
358:
359: l_hold_id := 1 ; -- Credit Checking Hold
360:
359: l_hold_id := 1 ; -- Credit Checking Hold
360:
361: -- Call Check for Hold to see if the Hold Exists
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
364: END IF;
365:
366: OE_HOLDS_PUB.Check_Holds
367: ( p_api_version => 1.0
378:
379: IF l_hold_result = FND_API.G_TRUE THEN
380:
381: IF l_debug_level > 0 THEN
382: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECK HOLD ON HEADER ID:' || TO_CHAR ( P_HEADER_ID ) || '/' || TO_CHAR ( C1.LINE_ID ) , 1 ) ;
383: END IF;
384:
385: l_hold_source_rec.hold_id := 1;
386: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
478: AND invoice_to_org_id = p_invoice_to_org_id
479: AND open_flag = 'Y';
480:
481: --
482: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
483: --
484: BEGIN
485:
486: p_return_status := FND_API.G_RET_STS_SUCCESS;
485:
486: p_return_status := FND_API.G_RET_STS_SUCCESS;
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'OEXPVPMB: IN APPLY CREDIT CHECK HOLDS' ) ;
490: END IF;
491:
492: FOR C1 in c_billto_lines
493: LOOP
492: FOR C1 in c_billto_lines
493: LOOP
494:
495: IF l_debug_level > 0 THEN
496: oe_debug_pub.add( 'OEXPVPMB: HEADER/LINE ID : '|| P_HEADER_ID || '/' || C1.LINE_ID ) ;
497: END IF;
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
500: END IF;
495: IF l_debug_level > 0 THEN
496: oe_debug_pub.add( 'OEXPVPMB: HEADER/LINE ID : '|| P_HEADER_ID || '/' || C1.LINE_ID ) ;
497: END IF;
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
500: END IF;
501:
502: -- If the call was made from a delayed request, always apply hold.
503: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
514: END IF;
515:
516: -- Check if Hold already exists on this order
517: IF l_debug_level > 0 THEN
518: oe_debug_pub.add( 'OEXPVPMB: CHECK IF HOLD ALREADY APPLIED' ) ;
519: END IF;
520: --
521: OE_HOLDS_PUB.Check_Holds
522: ( p_api_version => 1.0
533:
534: -- Return with Success if this Hold Already exists on the order
535: IF l_hold_result = FND_API.G_TRUE THEN
536: IF l_debug_level > 0 THEN
537: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
538: END IF;
539: -- IF One line is on Hold, other lines will NOT go on hold
540: -- because of this Return.
541: --
546: -- Apply hold only if the flag was set to "Yes" above.
547: IF l_apply_hold = 'Y' THEN
548: -- Apply Credit Check Hold on Header
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECK HOLD ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
551: END IF;
552:
553: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
554: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
579:
580: END IF;
581:
582: IF l_debug_level > 0 THEN
583: oe_debug_pub.add( 'OEXPVPMB: APPLIED CREDIT CHECK HOLD ON HEADER/LINE ID:' || P_HEADER_ID || '/' || C1.LINE_ID ) ;
584: END IF;
585: END IF; -- IF apply hold "Yes"
586: END LOOP;
587:
643: where header_id = l_header_rec.header_id
644: group by invoice_to_org_id;
645:
646: --
647: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
648: --
649: BEGIN
650:
651: IF l_debug_level > 0 THEN
648: --
649: BEGIN
650:
651: IF l_debug_level > 0 THEN
652: oe_debug_pub.add( 'ENTERING OE_VERIFY_PAYMENT_PUB.CREDIT_CHECK_LINE_LEVEL.' , 1 ) ;
653: END IF;
654:
655: -- Query the Order Header
656: IF l_debug_level > 0 THEN
653: END IF;
654:
655: -- Query the Order Header
656: IF l_debug_level > 0 THEN
657: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID ) ;
658: END IF;
659: --
660: OE_Header_UTIL.Query_Row
661: (p_header_id => p_header_id
663: );
664:
665: FOR C1 in C_credit_check_lines LOOP
666: IF l_debug_level > 0 THEN
667: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: HEADERID/INVOICETOORGID:' || L_HEADER_REC.HEADER_ID || '/' || C1.INVOICE_TO_ORG_ID , 1 ) ;
668: END IF;
669:
670: OE_Credit_PUB.Check_Available_Credit_Line
671: ( p_header_id => l_header_rec.header_id
677: , p_return_status => l_return_status
678: );
679:
680: IF l_debug_level > 0 THEN
681: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API:' || L_RESULT_OUT ) ;
682: END IF;
683:
684: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
685: RAISE FND_API.G_EXC_ERROR;
688: END IF;
689:
690: -- Release Any existing CC Holds
691: IF l_debug_level > 0 THEN
692: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: RELEASING CREDIT CARD ' || 'HOLDS-AFTER CREDITCHECKING' ) ;
693: END IF;
694: --
695: OE_Verify_Payment_PUB.Release_Verify_Hold
696: ( p_header_id => l_header_rec.header_id
709: IF l_result_out = 'PASS' THEN
710:
711: -- Release Any existing Credit Checking Holds
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: RELEASING CREDIT CHECKING HOLDS' ) ;
714: END IF;
715: --
716: OE_Verify_Payment_PUB.Release_Credit_Check_Hold
717: ( p_header_id => l_header_rec.header_id
729: ELSE -- Failed
730:
731: -- Apply Credit Checking Failure Hold on the Order
732: IF l_debug_level > 0 THEN
733: oe_debug_pub.add( 'OEXPVPMB LINE LEVEL: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
734: END IF;
735: --
736: OE_Verify_Payment_PUB.Apply_Credit_Check_Hold
737: ( p_header_id => l_header_rec.header_id
752: END IF; -- IF Result Out of Credit Checking
753: END LOOP;
754:
755: IF l_debug_level > 0 THEN
756: oe_debug_pub.add( 'EXITING OE_VERIFY_PAYMENT_PUB.CREDIT_CHECK_LINE_LEVEL.' , 1 ) ;
757: END IF;
758:
759: EXCEPTION
760:
835: l_payment_server_order_num VARCHAR2(80);
836: l_approval_code VARCHAR2(80);
837:
838: --
839: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
840: --
841: BEGIN
842:
843: p_return_status := FND_API.G_RET_STS_SUCCESS;
842:
843: p_return_status := FND_API.G_RET_STS_SUCCESS;
844:
845: IF l_debug_level > 0 THEN
846: oe_debug_pub.add( 'OEXPVPMB: IN VERIFY PAYMENT MAIN' , 1 ) ;
847: END IF;
848: G_credit_check_rule_id := NULL ;
849:
850: OE_Verify_Payment_PUB.G_init_calling_action := p_calling_action; --ER#7479609
850: OE_Verify_Payment_PUB.G_init_calling_action := p_calling_action; --ER#7479609
851:
852: -- Query the Order Header
853: IF l_debug_level > 0 THEN
854: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID , 1 ) ;
855: END IF;
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
858: END IF;
853: IF l_debug_level > 0 THEN
854: oe_debug_pub.add( 'OEXPVPMB: BEFORE QUERYING HEADER ID : '||P_HEADER_ID , 1 ) ;
855: END IF;
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
858: END IF;
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
861: END IF;
856: IF l_debug_level > 0 THEN
857: oe_debug_pub.add( 'OEXPVPMB: P_CALLING_ACTION => '|| P_CALLING_ACTION , 1 ) ;
858: END IF;
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
861: END IF;
862: IF l_debug_level > 0 THEN
863: oe_debug_pub.add( 'OEXPVPMB: P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST , 1 ) ;
864: END IF;
859: IF l_debug_level > 0 THEN
860: oe_debug_pub.add( 'OEXPVPMB: L_CALLING_ACTION => '|| L_CALLING_ACTION , 1 ) ;
861: END IF;
862: IF l_debug_level > 0 THEN
863: oe_debug_pub.add( 'OEXPVPMB: P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST , 1 ) ;
864: END IF;
865: --
866: OE_Header_UTIL.Query_Row
867: (p_header_id => p_header_id
870:
871: -- Verify Payment is N/A for RMAs, return if Order Category is 'RETURN'
872: --
873: IF l_debug_level > 0 THEN
874: oe_debug_pub.add( 'AFTER QUERY ORDER CATEGORY => '|| L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
875: END IF;
876: IF l_debug_level > 0 THEN
877: oe_debug_pub.add( 'AFTER QUERY BOOKED FLAG => '|| L_HEADER_REC.BOOKED_FLAG ) ;
878: END IF;
873: IF l_debug_level > 0 THEN
874: oe_debug_pub.add( 'AFTER QUERY ORDER CATEGORY => '|| L_HEADER_REC.ORDER_CATEGORY_CODE ) ;
875: END IF;
876: IF l_debug_level > 0 THEN
877: oe_debug_pub.add( 'AFTER QUERY BOOKED FLAG => '|| L_HEADER_REC.BOOKED_FLAG ) ;
878: END IF;
879:
880: IF l_header_rec.order_category_code = 'RETURN' THEN
881: RETURN;
884: -- Check if Verify Payment Call was made from Delayed Request
885: -- Because if call was made from a delayed request, we need to
886: -- VOID the Current Credit Card Authorization if any exists.
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING CALL FROM DELAYED REQUEST OR NOT' ) ;
889: END IF;
890: --
891: IF NVL(p_delayed_request, FND_API.G_FALSE) = FND_API.G_TRUE THEN
892:
895: ** As VOID has been de-supported by iPayment, commenting
896: ** following code which was used to VOID existing Trxns.
897: **
898: -- VOID only if the Approval Date exist
899: OE_DEBUG_PUB.ADD('OEXPVPMB: Before checking if APPROVAL DATE is NOT NULL');
900: --
901: **
902: ** Commented as this will not be true if the approval code
903: ** itself is being updated to NULL
912: -- null even if approval code has been updated to null.
913: IF l_header_rec.credit_card_approval_date is NOT NULL THEN
914:
915: -- Call the Payment Request API
916: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Calling Payment Request API For VOIDAUTHONLY');
917: --
918: OE_Verify_Payment_PUB.Payment_Request
919: ( p_header_rec => l_header_rec
920: , p_trxn_type => 'VOIDAUTHONLY'
929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
930: END IF;
931:
932: -- Requery Order Header just in case it was updated during VOID.
933: OE_DEBUG_PUB.ADD('OEXPVPMB: Requerying Order Header After Void : ');
934: --
935: OE_Header_UTIL.Query_Row
936: (p_header_id => p_header_id
937: ,x_header_rec => l_header_rec
941: */
942:
943: -- If the Order is UnBooked then return
944: IF l_debug_level > 0 THEN
945: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IF THE ORDER IS UNBOOKED' ) ;
946: END IF;
947: --
948: IF l_header_rec.booked_flag = 'N' THEN
949: RETURN;
950:
951: ELSE
952: -- Call Which_Rule function to find out Which Rule to Apply
953: IF l_debug_level > 0 THEN
954: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING WHICH RULE ' ) ;
955: END IF;
956: --
957:
958: -- Commenting code as the credit check rule will be BOOKING
964: END IF;
965:
966: END IF;
967: IF l_debug_level > 0 THEN
968: oe_debug_pub.add( 'L_CALLING_ACTION => '|| L_CALLING_ACTION ) ;
969: END IF;
970:
971:
972: -- Begin of the change for Prepayment.
973: -- determine whether or not this is a prepaid order
974: l_prepayment := OE_PrePayment_UTIL.is_prepaid_order(l_header_rec);
975:
976: IF l_debug_level > 0 THEN
977: oe_debug_pub.add( 'OEXPVPMB: THE PREPAYMENT_FLAG FOR THIS ORDER IS: '||L_PREPAYMENT , 3 ) ;
978: END IF;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add( 'OEXPVPMB: THE CALLING_ACTION FOR THIS ORDER IS: '||L_CALLING_ACTION , 3 ) ;
981: END IF;
976: IF l_debug_level > 0 THEN
977: oe_debug_pub.add( 'OEXPVPMB: THE PREPAYMENT_FLAG FOR THIS ORDER IS: '||L_PREPAYMENT , 3 ) ;
978: END IF;
979: IF l_debug_level > 0 THEN
980: oe_debug_pub.add( 'OEXPVPMB: THE CALLING_ACTION FOR THIS ORDER IS: '||L_CALLING_ACTION , 3 ) ;
981: END IF;
982:
983: IF l_prepayment = 'Y' AND l_header_rec.booked_flag = 'Y'
984: AND NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1000: );
1001:
1002: p_return_status := l_return_status;
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_PREPAYMENT_PVT' , 1 ) ;
1005: END IF;
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
1008: END IF;
1003: IF l_debug_level > 0 THEN
1004: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_PREPAYMENT_PVT' , 1 ) ;
1005: END IF;
1006: IF l_debug_level > 0 THEN
1007: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
1008: END IF;
1009:
1010: -- control returned from Verify_payment for Prepayment to
1011: -- avoid continuation of code through the existing code flow
1009:
1010: -- control returned from Verify_payment for Prepayment to
1011: -- avoid continuation of code through the existing code flow
1012: IF l_debug_level > 0 THEN
1013: oe_debug_pub.add( ' RETURN FROM VERIFY_PAYMENT FOR PREPAYMENT' , 1 ) ;
1014: END IF;
1015:
1016: RETURN ;
1017:
1026: IF l_calling_action IS NOT NULL
1027: AND l_header_rec.booked_flag = 'Y' THEN
1028:
1029: IF l_debug_level > 0 THEN
1030: oe_debug_pub.add( 'OEXPVPMB: RULE TO BE USED IS : '|| L_CALLING_ACTION ) ;
1031: END IF;
1032:
1033: -- Check the Rule to Apply
1034: IF l_debug_level > 0 THEN
1031: END IF;
1032:
1033: -- Check the Rule to Apply
1034: IF l_debug_level > 0 THEN
1035: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => '|| G_CREDIT_CHECK_RULE_ID ) ;
1036: END IF;
1037: G_credit_check_rule_id := NULL ;
1038:
1039: -- check rule defined here is multiple payment is not enabled, if
1039: -- check rule defined here is multiple payment is not enabled, if
1040: -- enabled, the check has been moved to OE_Prepayment_PVT.Process_Payments.
1041: IF NOT OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IF THE RULE IS DEFINED OR NOT' ) ;
1044: END IF;
1045: l_rule_defined := OE_Verify_Payment_PUB.Check_Rule_Defined
1046: ( p_header_rec => l_header_rec
1047: , p_calling_action => l_calling_action
1047: , p_calling_action => l_calling_action
1048: ) ;
1049:
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add('OEXPVPMB: OUT OF RULE DEFINED : '|| L_RULE_DEFINED);
1052: oe_debug_pub.add('G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID);
1053: END IF;
1054:
1055: -- If NO Rule defined for the calling action then return
1048: ) ;
1049:
1050: IF l_debug_level > 0 THEN
1051: oe_debug_pub.add('OEXPVPMB: OUT OF RULE DEFINED : '|| L_RULE_DEFINED);
1052: oe_debug_pub.add('G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID);
1053: END IF;
1054:
1055: -- If NO Rule defined for the calling action then return
1056: -- Modified the condition so that only return when multiple
1074:
1075:
1076: -- Check for Electronic Payment
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING FOR ELECTRONIC PAYMENT' , 1 ) ;
1079: END IF;
1080: --
1081: l_epayment := OE_Verify_Payment_PUB.Is_Electronic_Payment( l_header_rec ) ;
1082:
1080: --
1081: l_epayment := OE_Verify_Payment_PUB.Is_Electronic_Payment( l_header_rec ) ;
1082:
1083: IF l_debug_level > 0 THEN
1084: oe_debug_pub.add( 'OEXPVPMB: IS IT AN ELECTRONIC PAYMENT : '|| L_EPAYMENT ) ;
1085: END IF;
1086:
1087:
1088: IF OE_PREPAYMENT_UTIL.IS_MULTIPLE_PAYMENTS_ENABLED THEN
1091: -- are all coded in OE_PREPAYMENT_PVT.Process_Payments
1092: -- from Pack J if multiple payments is enabled.
1093:
1094: IF l_debug_level > 0 THEN
1095: oe_debug_pub.add( 'start processing multiple payments.',3 ) ;
1096: END IF;
1097:
1098: OE_PREPAYMENT_PVT.Process_Payments(
1099: p_header_id => l_header_rec.header_id,
1111: ,p_data => p_msg_data
1112: );
1113:
1114: IF l_debug_level > 0 THEN
1115: oe_debug_pub.add( 'OEXPVPMB: after calling Process_Payments, returns tatus is: '||l_return_status, 3 ) ;
1116: END IF;
1117:
1118: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1119: RAISE FND_API.G_EXC_ERROR;
1134: , p_calling_action => l_calling_action
1135: ) ;
1136:
1137: IF l_debug_level > 0 THEN
1138: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED FOR AUTHORIZATION: '|| L_RULE_DEFINED ) ;
1139: END IF;
1140:
1141: IF l_rule_defined = 'N' THEN
1142: return;
1160: -- Remove check for OE_CREDIT_CHECK_API_FLOW
1161:
1162: BEGIN
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1165: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1168: END IF;
1163: IF l_debug_level > 0 THEN
1164: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1165: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1168: END IF;
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1171: END IF;
1166: IF l_debug_level > 0 THEN
1167: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1168: END IF;
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1171: END IF;
1172:
1173: IF l_debug_level > 0 THEN
1174: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1170: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1171: END IF;
1172:
1173: IF l_debug_level > 0 THEN
1174: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1175: END IF;
1176: IF l_debug_level > 0 THEN
1177: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1178: END IF;
1173: IF l_debug_level > 0 THEN
1174: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1175: END IF;
1176: IF l_debug_level > 0 THEN
1177: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1178: END IF;
1179: IF l_debug_level > 0 THEN
1180: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1181: END IF;
1176: IF l_debug_level > 0 THEN
1177: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1178: END IF;
1179: IF l_debug_level > 0 THEN
1180: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1181: END IF;
1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1184: END IF;
1179: IF l_debug_level > 0 THEN
1180: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1181: END IF;
1182: IF l_debug_level > 0 THEN
1183: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1184: END IF;
1185:
1186:
1187: -- lkxu 10/22/02: commented out the check for profile option,
1189: -- IF NVL(Fnd_Profile.Value('OE_CREDIT_CHECKING_LEVEL'),'ORDER')
1190: -- = 'ORDER' THEN
1191: BEGIN
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1194: END IF;
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1197: END IF;
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1194: END IF;
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1197: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1200: END IF;
1195: IF l_debug_level > 0 THEN
1196: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1197: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1200: END IF;
1201: IF l_debug_level > 0 THEN
1202: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1203: END IF;
1198: IF l_debug_level > 0 THEN
1199: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1200: END IF;
1201: IF l_debug_level > 0 THEN
1202: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1203: END IF;
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1206: END IF;
1201: IF l_debug_level > 0 THEN
1202: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1203: END IF;
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1209: END IF;
1204: IF l_debug_level > 0 THEN
1205: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1206: END IF;
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1209: END IF;
1210:
1211: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
1212: ( p_header_id => p_header_id
1218: , x_return_status => p_return_status
1219: );
1220:
1221: IF l_debug_level > 0 THEN
1222: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1223: END IF;
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1226: END IF;
1221: IF l_debug_level > 0 THEN
1222: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1223: END IF;
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1226: END IF;
1227:
1228: -- Control returned out of Verify_payment to avoid
1229: -- continuation of code through the existing code flow
1228: -- Control returned out of Verify_payment to avoid
1229: -- continuation of code through the existing code flow
1230: G_credit_check_rule_id := NULL ;
1231: IF l_debug_level > 0 THEN
1232: oe_debug_pub.add( 'OEXPVPMB: RETURN FROM VERIFY_PAYMENT ' , 1 ) ;
1233: END IF;
1234: RETURN ;
1235: END ;
1236:
1234: RETURN ;
1235: END ;
1236:
1237: IF l_debug_level > 0 THEN
1238: oe_debug_pub.add( 'OEXPVPMB: EXCEPTION - CONTROL NOT RETURNED OUT ' , 1 ) ;
1239: END IF;
1240:
1241: -- END IF; -- End MCC profile IF
1242: END ; -- End MCC Block
1246: ----------------- End Multi currency credit checking code changes --
1247: ---------------------------------------------------------------------
1248:
1249: IF l_debug_level > 0 THEN
1250: oe_debug_pub.add( 'OEXPVPMB: IN SINGLE CREDIT CHECKING' , 1 ) ;
1251: END IF;
1252: -- The following Check_Available_Credit is replaced by MULTI
1253: -- must not be supported
1254:
1253: -- must not be supported
1254:
1255: -- Call the Credit Checking API
1256: IF l_debug_level > 0 THEN
1257: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CREDIT CHECKING API' ) ;
1258: END IF;
1259: --
1260:
1261: -- lkxu, call different code according to the profile option.
1273: );
1274:
1275:
1276: IF l_debug_level > 0 THEN
1277: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1278: END IF;
1279:
1280: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1281: RAISE FND_API.G_EXC_ERROR;
1286: IF l_result_out = 'PASS' THEN
1287:
1288: -- Release Any existing Credit Checking Holds
1289: IF l_debug_level > 0 THEN
1290: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLDS' ) ;
1291: END IF;
1292: --
1293: OE_Verify_Payment_PUB.Release_Verify_Hold
1294: ( p_header_id => l_header_rec.header_id
1310: p_header_id => l_header_rec.header_id
1311: ) = 'N' then
1312: -- Apply Credit Checking Failure Hold on the Order
1313: IF l_debug_level > 0 THEN
1314: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
1315: END IF;
1316: --
1317: OE_Verify_Payment_PUB.Apply_Verify_Hold
1318: ( p_header_id => l_header_rec.header_id
1354: ELSE
1355: -- retain the original code before Pack J if multiple payments
1356: -- is not enabled.
1357: IF l_debug_level > 0 THEN
1358: oe_debug_pub.add( 'start processing verify payment without multiple payments.',3 ) ;
1359: END IF;
1360:
1361: IF l_epayment = 'Y' THEN
1362:
1360:
1361: IF l_epayment = 'Y' THEN
1362:
1363: IF l_debug_level > 0 THEN
1364: oe_debug_pub.add( 'OEXPVPMB: IN ELECTRONIC PAYMENT' ) ;
1365: END IF;
1366:
1367: -- Call the Electronic Payment Request API
1368: IF l_debug_level > 0 THEN
1365: END IF;
1366:
1367: -- Call the Electronic Payment Request API
1368: IF l_debug_level > 0 THEN
1369: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PAYMENT REQUEST API FOR AUTHONLY' ) ;
1370: END IF;
1371: --
1372: OE_Verify_Payment_PUB.Payment_Request
1373: ( p_header_rec => l_header_rec
1378: , p_return_status => l_return_status
1379: );
1380:
1381: IF l_debug_level > 0 THEN
1382: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING PAYMENT REQUEST API' ) ;
1383: END IF;
1384:
1385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1386: RAISE FND_API.G_EXC_ERROR;
1391: -- If No Error Occurred in Payment Request, Release any existing
1392: -- Credit Checking Holds This will ensure that for Elctronic Payment
1393: -- only Credit Card Holds, if any, remain applied.
1394: IF l_debug_level > 0 THEN
1395: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLD' ) ;
1396: END IF;
1397: --
1398: OE_Verify_Payment_PUB.Release_Verify_Hold
1399: ( p_header_id => l_header_rec.header_id
1412: IF l_result_out = 'PASS' THEN
1413:
1414: -- Release Any existing CC Holds
1415: IF l_debug_level > 0 THEN
1416: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CARD HOLDS' ) ;
1417: END IF;
1418: --
1419: OE_Verify_Payment_PUB.Release_Verify_Hold
1420: ( p_header_id => l_header_rec.header_id
1432: ELSIF l_result_out = 'RISK' THEN
1433:
1434: -- Apply Risk Hold on the Order
1435: IF l_debug_level > 0 THEN
1436: oe_debug_pub.add( 'OEXPVPMB: APPLYING CC RISK HOLD' ) ;
1437: END IF;
1438: --
1439: OE_Verify_Payment_PUB.Apply_Verify_Hold
1440: ( p_header_id => l_header_rec.header_id
1452: ELSE -- Failed
1453:
1454: -- Apply CC Auth Failure Hold on the Order
1455: IF l_debug_level > 0 THEN
1456: oe_debug_pub.add( 'OEXPVPMB: APPLYING CC AUTH FAILURE HOLD' ) ;
1457: END IF;
1458: --
1459: OE_Verify_Payment_PUB.Apply_Verify_Hold
1460: ( p_header_id => l_header_rec.header_id
1490: -- Remove check for OE_CREDIT_CHECK_API_FLOW
1491:
1492: BEGIN
1493: IF l_debug_level > 0 THEN
1494: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1495: END IF;
1496: IF l_debug_level > 0 THEN
1497: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1498: END IF;
1493: IF l_debug_level > 0 THEN
1494: oe_debug_pub.add( 'OEXPVPMB: NON ELECTRONIC PAYMENT ' ) ;
1495: END IF;
1496: IF l_debug_level > 0 THEN
1497: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1498: END IF;
1499: IF l_debug_level > 0 THEN
1500: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1501: END IF;
1496: IF l_debug_level > 0 THEN
1497: oe_debug_pub.add( 'OEXPVPMB: BEGIN CHECK FOR MCC CODE SWITCH ' , 1 ) ;
1498: END IF;
1499: IF l_debug_level > 0 THEN
1500: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1501: END IF;
1502:
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1500: oe_debug_pub.add( 'NO CHECK FOR OE_CREDIT_CHECK_API_FLOW ' , 1 ) ;
1501: END IF;
1502:
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1505: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1508: END IF;
1503: IF l_debug_level > 0 THEN
1504: oe_debug_pub.add( 'P_CALLING_ACTION = '|| P_CALLING_ACTION , 1 ) ;
1505: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1508: END IF;
1509: IF l_debug_level > 0 THEN
1510: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1511: END IF;
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1508: END IF;
1509: IF l_debug_level > 0 THEN
1510: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1511: END IF;
1512: IF l_debug_level > 0 THEN
1513: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1514: END IF;
1509: IF l_debug_level > 0 THEN
1510: oe_debug_pub.add( 'P_DELAYED_REQUEST = '|| P_DELAYED_REQUEST , 1 ) ;
1511: END IF;
1512: IF l_debug_level > 0 THEN
1513: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
1514: END IF;
1515:
1516:
1517: -- lkxu 10/22/02: commented out the check for profile option,
1519: -- IF NVL(Fnd_Profile.Value('OE_CREDIT_CHECKING_LEVEL'),'ORDER')
1520: -- = 'ORDER' THEN
1521: BEGIN
1522: IF l_debug_level > 0 THEN
1523: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1524: END IF;
1525: IF l_debug_level > 0 THEN
1526: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1527: END IF;
1522: IF l_debug_level > 0 THEN
1523: oe_debug_pub.add( 'OEXPVPMB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
1524: END IF;
1525: IF l_debug_level > 0 THEN
1526: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1527: END IF;
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1530: END IF;
1525: IF l_debug_level > 0 THEN
1526: oe_debug_pub.add( 'L_CALLING_ACTION = '|| L_CALLING_ACTION , 1 ) ;
1527: END IF;
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1530: END IF;
1531: IF l_debug_level > 0 THEN
1532: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1533: END IF;
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add( 'P_HEADER_ID => '|| P_HEADER_ID ) ;
1530: END IF;
1531: IF l_debug_level > 0 THEN
1532: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1533: END IF;
1534: IF l_debug_level > 0 THEN
1535: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1536: END IF;
1531: IF l_debug_level > 0 THEN
1532: oe_debug_pub.add( 'P_DELAYED_REQUEST => '|| P_DELAYED_REQUEST ) ;
1533: END IF;
1534: IF l_debug_level > 0 THEN
1535: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1536: END IF;
1537: IF l_debug_level > 0 THEN
1538: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1539: END IF;
1534: IF l_debug_level > 0 THEN
1535: oe_debug_pub.add( 'G_CREDIT_CHECK_RULE_ID => ' || G_CREDIT_CHECK_RULE_ID ) ;
1536: END IF;
1537: IF l_debug_level > 0 THEN
1538: oe_debug_pub.add( 'OEXPVPMB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
1539: END IF;
1540:
1541: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
1542: ( p_header_id => p_header_id
1548: , x_return_status => p_return_status
1549: );
1550:
1551: IF l_debug_level > 0 THEN
1552: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1553: END IF;
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1556: END IF;
1551: IF l_debug_level > 0 THEN
1552: oe_debug_pub.add( 'OEXPVPMB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
1553: END IF;
1554: IF l_debug_level > 0 THEN
1555: oe_debug_pub.add( 'X_RETURN_STATUS = ' || P_RETURN_STATUS , 1 ) ;
1556: END IF;
1557:
1558: -- Control returned out of Verify_payment to avoid
1559: -- continuation of code through the existing code flow
1558: -- Control returned out of Verify_payment to avoid
1559: -- continuation of code through the existing code flow
1560: G_credit_check_rule_id := NULL ;
1561: IF l_debug_level > 0 THEN
1562: oe_debug_pub.add( 'OEXPVPMB: RETURN FROM VERIFY_PAYMENT ' , 1 ) ;
1563: END IF;
1564: RETURN ;
1565: END ;
1566:
1564: RETURN ;
1565: END ;
1566:
1567: IF l_debug_level > 0 THEN
1568: oe_debug_pub.add( 'OEXPVPMB: EXCEPTION - CONTROL NOT RETURNED OUT ' , 1 ) ;
1569: END IF;
1570:
1571: -- END IF; -- End MCC profile IF
1572: END ; -- End MCC Block
1575: ----------------- End Multi currency credit checking code changes --
1576: ---------------------------------------------------------------------
1577:
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'OEXPVPMB: IN SINGLE CREDIT CHECKING' , 1 ) ;
1580: END IF;
1581: -- The following Check_Available_Credit is replaced by MULTI
1582: -- must not be supported
1583:
1582: -- must not be supported
1583:
1584: -- Call the Credit Checking API
1585: IF l_debug_level > 0 THEN
1586: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CREDIT CHECKING API' ) ;
1587: END IF;
1588: --
1589:
1590: -- lkxu, call different code according to the profile option.
1602: );
1603:
1604:
1605: IF l_debug_level > 0 THEN
1606: oe_debug_pub.add( 'OEXPVPMB: AFTER CALLING CREDIT REQUEST API' ) ;
1607: END IF;
1608:
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.G_EXC_ERROR;
1615: IF l_result_out = 'PASS' THEN
1616:
1617: -- Release Any existing Credit Checking Holds
1618: IF l_debug_level > 0 THEN
1619: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLDS' ) ;
1620: END IF;
1621: --
1622: OE_Verify_Payment_PUB.Release_Verify_Hold
1623: ( p_header_id => l_header_rec.header_id
1639: p_header_id => l_header_rec.header_id
1640: ) = 'N' then
1641: -- Apply Credit Checking Failure Hold on the Order
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'OEXPVPMB: APPLYING CREDIT CHECKING FAILURE HOLD' ) ;
1644: END IF;
1645: --
1646: OE_Verify_Payment_PUB.Apply_Verify_Hold
1647: ( p_header_id => l_header_rec.header_id
1731: IS
1732: l_calling_action VARCHAR2(30) := 'BOOKING';
1733: l_ship_rule_count NUMBER := 0;
1734: --
1735: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1736: --
1737: BEGIN
1738:
1739: IF l_debug_level > 0 THEN
1736: --
1737: BEGIN
1738:
1739: IF l_debug_level > 0 THEN
1740: oe_debug_pub.add( 'OEXPVPMB: INSIDE WHICH RULE' ) ;
1741: END IF;
1742: -- Count lines in the order with "SHIP_LINE" activity completed.
1743: /* For bug 1459546, performance issue, query has been tuned */
1744:
1830: l_calling_action := 'BOOKING';
1831: END IF;
1832:
1833: IF l_debug_level > 0 THEN
1834: oe_debug_pub.add( 'OEXPVPMB: CALLING ACTION FROM WHICH_RULE ( AFTER 1723338 ) '||L_CALLING_ACTION , 1 ) ;
1835: END IF;
1836: RETURN (l_calling_action);
1837:
1838: EXCEPTION
1851: ) RETURN VARCHAR2
1852: IS
1853: l_credit_check_rule_id NUMBER ;
1854: --
1855: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1856: --
1857: BEGIN
1858:
1859: IF l_debug_level > 0 THEN
1856: --
1857: BEGIN
1858:
1859: IF l_debug_level > 0 THEN
1860: oe_debug_pub.add( 'OEXPVPMB: INSIDE CHECK RULE DEFINED' ) ;
1861: END IF;
1862: IF l_debug_level > 0 THEN
1863: oe_debug_pub.add( 'P_CALLING_ACTION => '|| P_CALLING_ACTION ) ;
1864: END IF;
1859: IF l_debug_level > 0 THEN
1860: oe_debug_pub.add( 'OEXPVPMB: INSIDE CHECK RULE DEFINED' ) ;
1861: END IF;
1862: IF l_debug_level > 0 THEN
1863: oe_debug_pub.add( 'P_CALLING_ACTION => '|| P_CALLING_ACTION ) ;
1864: END IF;
1865:
1866: G_credit_check_rule_id := NULL ;
1867: -- Entry Credit Check Rule.
1867: -- Entry Credit Check Rule.
1868: IF p_calling_action = 'BOOKING' THEN
1869:
1870: IF l_debug_level > 0 THEN
1871: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE ENTRY RULE' ) ;
1872: END IF;
1873: --
1874: begin
1875: /*7194250
1901: BEGIN
1902: IF p_calling_action = 'SHIPPING'
1903: THEN
1904: IF l_debug_level > 0 THEN
1905: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE SHIPPING RULE' ) ;
1906: END IF;
1907: --
1908: begin
1909: /*7194250
1932:
1933: IF p_calling_action = 'PACKING'
1934: THEN
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE PACKING RULE' ) ;
1937: END IF;
1938: --
1939: begin
1940: /*7194250
1963:
1964: IF p_calling_action = 'PICKING'
1965: THEN
1966: IF l_debug_level > 0 THEN
1967: oe_debug_pub.add( 'OEXPVPMB: SELECTING THE PICKING RULE' ) ;
1968: END IF;
1969: --
1970: begin
1971: /*7194250
1995:
1996: END IF; --- calling action
1997:
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'L_CREDIT_CHECK_RULE_ID => '|| L_CREDIT_CHECK_RULE_ID ) ;
2000: END IF;
2001: -- If no rule was found for the calling action
2002: -- Order is not subject to Payment Verification
2003: IF l_credit_check_rule_id > 0 THEN
2001: -- If no rule was found for the calling action
2002: -- Order is not subject to Payment Verification
2003: IF l_credit_check_rule_id > 0 THEN
2004: IF l_debug_level > 0 THEN
2005: oe_debug_pub.add( 'OEXPVPMB: RULE EXISTS' ) ;
2006: END IF;
2007: G_credit_check_rule_id := l_credit_check_rule_id ;
2008: RETURN ('Y') ;
2009: ELSE
2007: G_credit_check_rule_id := l_credit_check_rule_id ;
2008: RETURN ('Y') ;
2009: ELSE
2010: IF l_debug_level > 0 THEN
2011: oe_debug_pub.add( 'OEXPVPMB: NO RULE FOUND' ) ;
2012: END IF;
2013: G_credit_check_rule_id := NULL ;
2014: RETURN ('N') ;
2015: END IF;
2025: ( p_header_rec IN OE_Order_PUB.Header_Rec_Type )
2026: RETURN VARCHAR2
2027: IS
2028: --
2029: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2030: --
2031: BEGIN
2032:
2033: IF l_debug_level > 0 THEN
2030: --
2031: BEGIN
2032:
2033: IF l_debug_level > 0 THEN
2034: oe_debug_pub.add( 'OEXPVPMB: IN IS ELECTRONIC PAYMENT' ) ;
2035: END IF;
2036:
2037: IF p_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2038: IF l_debug_level > 0 THEN
2035: END IF;
2036:
2037: IF p_header_rec.payment_type_code = 'CREDIT_CARD' THEN
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add( 'OEXPVPMB: EXITING IS ELECTRONIC PAYMENT' ) ;
2040: END IF;
2041: RETURN ('Y') ;
2042: ELSE
2043: IF l_debug_level > 0 THEN
2040: END IF;
2041: RETURN ('Y') ;
2042: ELSE
2043: IF l_debug_level > 0 THEN
2044: oe_debug_pub.add( 'OEXPVPMB: EXITING IS ELECTRONIC PAYMENT' ) ;
2045: END IF;
2046: RETURN ('N') ;
2047: END IF;
2048:
2061: l_return_status VARCHAR2(30);
2062: l_msg_count NUMBER;
2063: l_msg_data VARCHAR2(2000);
2064: --
2065: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2066: --
2067: BEGIN
2068:
2069: IF l_debug_level > 0 THEN
2066: --
2067: BEGIN
2068:
2069: IF l_debug_level > 0 THEN
2070: oe_debug_pub.add( 'OEXPVPMB: IN CHECK FOR HOLD' ) ;
2071: END IF;
2072:
2073: -- Checking existense of unreleased holds on this order
2074: IF l_debug_level > 0 THEN
2071: END IF;
2072:
2073: -- Checking existense of unreleased holds on this order
2074: IF l_debug_level > 0 THEN
2075: oe_debug_pub.add( 'OEXPVPMB: CHECKING HOLDS ON HEADER '||P_HEADER_ID||' FOR HOLD '||P_HOLD_ID ) ;
2076: END IF;
2077: --
2078: OE_HOLDS_PUB.Check_Holds
2079: ( p_api_version => 1.0
2090: -- Check the Result
2091: IF l_hold_result = FND_API.G_TRUE THEN
2092: p_hold_exists := 'Y';
2093: IF l_debug_level > 0 THEN
2094: oe_debug_pub.add( 'OEXPVPMB: HOLD EXISTS ON ORDER' ) ;
2095: END IF;
2096: ELSE
2097: p_hold_exists := 'N';
2098: IF l_debug_level > 0 THEN
2095: END IF;
2096: ELSE
2097: p_hold_exists := 'N';
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add( 'OEXPVPMB: NO HOLD ON ORDER' ) ;
2100: END IF;
2101: END IF;
2102:
2103: EXCEPTION
2139: l_release_reason VARCHAR2(30);
2140: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
2141: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
2142: --
2143: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2144: --
2145: BEGIN
2146:
2147: p_return_status := FND_API.G_RET_STS_SUCCESS;
2146:
2147: p_return_status := FND_API.G_RET_STS_SUCCESS;
2148:
2149: IF l_debug_level > 0 THEN
2150: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY HOLD' ) ;
2151: END IF;
2152:
2153: -- Check What type of Holds to Release
2154: IF p_epayment_hold = 'Y' THEN
2152:
2153: -- Check What type of Holds to Release
2154: IF p_epayment_hold = 'Y' THEN
2155: IF l_debug_level > 0 THEN
2156: oe_debug_pub.add( 'OEXPVPMB: RELEASE EPAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2157: END IF;
2158:
2159: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2160:
2161: l_hold_id := 11 ; -- Credit Card Authorization Failure Hold
2162:
2163: -- Call Check for Hold to see if the Hold Exists
2164: IF l_debug_level > 0 THEN
2165: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2166: END IF;
2167: --
2168: OE_Verify_Payment_PUB.Hold_Exists
2169: ( p_header_id => l_hold_entity_id
2173:
2174: IF l_hold_exists = 'Y' THEN
2175:
2176: IF l_debug_level > 0 THEN
2177: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2178: END IF;
2179: l_hold_source_rec.hold_id := l_hold_id;
2180: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2181: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2200:
2201: END IF; -- Do nothing if the hold has already been released.
2202:
2203: IF l_debug_level > 0 THEN
2204: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2205: END IF;
2206:
2207: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2208: l_hold_id := 12 ; -- Credit Card Risk Hold
2208: l_hold_id := 12 ; -- Credit Card Risk Hold
2209:
2210: -- Call Check for Hold to see if the Hold Exists
2211: IF l_debug_level > 0 THEN
2212: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2213: END IF;
2214: --
2215: OE_Verify_Payment_PUB.Hold_Exists
2216: ( p_header_id => l_hold_entity_id
2220:
2221: IF l_hold_exists = 'Y' THEN
2222:
2223: IF l_debug_level > 0 THEN
2224: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2225: END IF;
2226: l_hold_source_rec.hold_id := l_hold_id;
2227: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2228: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2248:
2249: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
2250: -- release pending payment authorization hold.
2251: IF l_debug_level > 0 THEN
2252: oe_debug_pub.add( 'OEXPVPMB: CHECKING PENDING AUTHORIZATION HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2253: END IF;
2254:
2255: l_hold_id := 16 ; -- Pending Payment Authorization Hold.
2256:
2255: l_hold_id := 16 ; -- Pending Payment Authorization Hold.
2256:
2257: -- Call Check for Hold to see if the Hold Exists
2258: IF l_debug_level > 0 THEN
2259: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2260: END IF;
2261: --
2262: OE_Verify_Payment_PUB.Hold_Exists
2263: ( p_header_id => l_hold_entity_id
2267:
2268: IF l_hold_exists = 'Y' THEN
2269:
2270: IF l_debug_level > 0 THEN
2271: oe_debug_pub.add( 'OEXPVPMB: RELEASING PENDING AUTHORIZATION HOLD FOR HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2272: END IF;
2273: l_hold_source_rec.hold_id := l_hold_id;
2274: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2275: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
2295:
2296: ELSE -- Release Other Verify Holds
2297:
2298: IF l_debug_level > 0 THEN
2299: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CHECKING HOLD FOR HEADER ID : ' || L_HOLD_ENTITY_ID ) ;
2300: END IF;
2301:
2302: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
2303: l_hold_id := 1 ; -- Credit Checking Hold
2303: l_hold_id := 1 ; -- Credit Checking Hold
2304:
2305: -- Call Check for Hold to see if the Hold Exists
2306: IF l_debug_level > 0 THEN
2307: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
2308: END IF;
2309: --
2310: OE_Verify_Payment_PUB.Hold_Exists
2311: ( p_header_id => l_hold_entity_id
2315:
2316: IF l_hold_exists = 'Y' THEN
2317:
2318: IF l_debug_level > 0 THEN
2319: oe_debug_pub.add( 'OEXPVPMB: RELEASING CREDIT CHECKING HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID ) ;
2320: END IF;
2321:
2322: l_hold_source_rec.hold_id := l_hold_id;
2323: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
2401: l_return_status VARCHAR2(30);
2402:
2403: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
2404: --
2405: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2406: --
2407: BEGIN
2408:
2409: p_return_status := FND_API.G_RET_STS_SUCCESS;
2408:
2409: p_return_status := FND_API.G_RET_STS_SUCCESS;
2410:
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2413: END IF;
2414:
2415: IF l_debug_level > 0 THEN
2416: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2412: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2413: END IF;
2414:
2415: IF l_debug_level > 0 THEN
2416: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2417: END IF;
2418: IF l_debug_level > 0 THEN
2419: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2420: END IF;
2415: IF l_debug_level > 0 THEN
2416: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2417: END IF;
2418: IF l_debug_level > 0 THEN
2419: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2420: END IF;
2421:
2422: -- Check if Hold already exists on this order
2423: IF l_debug_level > 0 THEN
2420: END IF;
2421:
2422: -- Check if Hold already exists on this order
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
2425: END IF;
2426: --
2427: OE_Verify_Payment_PUB.Hold_Exists
2428: ( p_header_id => p_header_id
2432:
2433: -- Return with Success if this Hold Already exists on the order
2434: IF l_hold_exists = 'Y' THEN
2435: IF l_debug_level > 0 THEN
2436: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID ) ;
2437: END IF;
2438: RETURN ;
2439: END IF ;
2440:
2439: END IF ;
2440:
2441: -- Apply Verify Hold on Header
2442: IF l_debug_level > 0 THEN
2443: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON HEADER ID : ' || P_HEADER_ID ) ;
2444: END IF;
2445:
2446: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
2447: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
2461: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2462: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2463: OE_MSG_PUB.ADD;
2464: IF l_debug_level > 0 THEN
2465: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2466: END IF;
2467: END IF;
2468: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2469: RAISE FND_API.G_EXC_ERROR;
2471: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2472: END IF;
2473:
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON HEADER ID:' || P_HEADER_ID ) ;
2476: END IF;
2477:
2478: EXCEPTION
2479:
2533: l_return_status VARCHAR2(30);
2534:
2535: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
2536: --
2537: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2538: --
2539: BEGIN
2540:
2541: p_return_status := FND_API.G_RET_STS_SUCCESS;
2540:
2541: p_return_status := FND_API.G_RET_STS_SUCCESS;
2542:
2543: IF l_debug_level > 0 THEN
2544: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2545: END IF;
2546:
2547: IF l_debug_level > 0 THEN
2548: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2544: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY HOLDS' ) ;
2545: END IF;
2546:
2547: IF l_debug_level > 0 THEN
2548: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2549: END IF;
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2552: END IF;
2547: IF l_debug_level > 0 THEN
2548: oe_debug_pub.add( 'OEXPVPMB: HEADER ID : '||P_HEADER_ID ) ;
2549: END IF;
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
2552: END IF;
2553:
2554: -- Check if Hold already exists on this order
2555: IF l_debug_level > 0 THEN
2552: END IF;
2553:
2554: -- Check if Hold already exists on this order
2555: IF l_debug_level > 0 THEN
2556: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
2557: END IF;
2558: --
2559: OE_Verify_Payment_PUB.Hold_Exists
2560: ( p_header_id => p_header_id
2564:
2565: -- Return with Success if this Hold Already exists on the order
2566: IF l_hold_exists = 'Y' THEN
2567: IF l_debug_level > 0 THEN
2568: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID ) ;
2569: END IF;
2570: RETURN ;
2571: END IF ;
2572:
2571: END IF ;
2572:
2573: -- Apply Verify Hold on Header
2574: IF l_debug_level > 0 THEN
2575: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON HEADER ID : ' || P_HEADER_ID ) ;
2576: END IF;
2577:
2578: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
2579: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
2593: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
2594: FND_MESSAGE.SET_TOKEN('LEVEL','ORDER');
2595: OE_MSG_PUB.ADD;
2596: IF l_debug_level > 0 THEN
2597: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order.', 3);
2598: END IF;
2599: END IF;
2600: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2601: RAISE FND_API.G_EXC_ERROR;
2604: END IF;
2605:
2606: -- bug 4339864
2607: IF l_debug_level > 0 THEN
2608: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
2609: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
2610: END IF;
2611:
2612: COMMIT;
2605:
2606: -- bug 4339864
2607: IF l_debug_level > 0 THEN
2608: OE_DEBUG_PUB.ADD(' Holds success ' , 3);
2609: OE_DEBUG_PUB.ADD(' About to Issue COMMIT', 3);
2610: END IF;
2611:
2612: COMMIT;
2613:
2611:
2612: COMMIT;
2613:
2614: IF l_debug_level > 0 THEN
2615: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON HEADER ID:' || P_HEADER_ID ) ;
2616: END IF;
2617:
2618: EXCEPTION
2619:
2668: l_return_status VARCHAR2(30) := NULL;
2669: l_void_supported VARCHAR2(1);
2670:
2671: --
2672: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2673: --
2674: BEGIN
2675:
2676: p_result_out := 'PASS';
2676: p_result_out := 'PASS';
2677: p_return_status := FND_API.G_RET_STS_SUCCESS;
2678:
2679: IF l_debug_level > 0 THEN
2680: oe_debug_pub.add( 'OEXPVPMB: IN PAYMENT REQUEST MAIN' ) ;
2681: END IF;
2682:
2683: -- Return if iPayment is Not Installed
2684: IF l_debug_level > 0 THEN
2681: END IF;
2682:
2683: -- Return if iPayment is Not Installed
2684: IF l_debug_level > 0 THEN
2685: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING IPAYMENT IS INSTALLED OR NOT' ) ;
2686: END IF;
2687: --
2688: -- lkxu, fix bug 1701377
2689: /***
2700: END IF;
2701:
2702: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
2703: IF l_debug_level > 0 THEN
2704: oe_debug_pub.add( 'OEXPVPMB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
2705: END IF;
2706: RETURN;
2707: END IF;
2708:
2706: RETURN;
2707: END IF;
2708:
2709: IF l_debug_level > 0 THEN
2710: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION TYPE PASSED TO THE PROCEDURE IS '||P_TRXN_TYPE ) ;
2711: END IF;
2712:
2713: -- If Authorization is Requested then
2714: IF l_debug_level > 0 THEN
2711: END IF;
2712:
2713: -- If Authorization is Requested then
2714: IF l_debug_level > 0 THEN
2715: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE TRANSACTION TYPE' ) ;
2716: END IF;
2717: --
2718: IF p_trxn_type = 'AUTHONLY' THEN
2719:
2718: IF p_trxn_type = 'AUTHONLY' THEN
2719:
2720: -- Call Authorize Payment for Credit Card Authorization
2721: IF l_debug_level > 0 THEN
2722: oe_debug_pub.add( 'OEXPVPMB: CALLING AUTHORIZE PAYMENT' ) ;
2723: END IF;
2724: --
2725: OE_Verify_Payment_PUB.Authorize_Payment( p_header_rec => p_header_rec
2726: , p_msg_count => l_msg_count
2737: ELSIF p_trxn_type = 'VOIDAUTHONLY' THEN
2738:
2739: -- Call Fetch Authorization Trxn
2740: IF l_debug_level > 0 THEN
2741: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH AUTHORIZATION TRXN' ) ;
2742: END IF;
2743: --
2744: OE_Verify_Payment_PUB.Fetch_Authorization_Trxn
2745: ( p_header_rec => p_header_rec
2748: );
2749:
2750: -- If a valid Transaction Id returned by above program then Void it.
2751: IF l_debug_level > 0 THEN
2752: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING VALID TRANSACTION ID FOR VOIDING' ) ;
2753: END IF;
2754: --
2755: IF l_void_trxn_id > 0 THEN
2756:
2755: IF l_void_trxn_id > 0 THEN
2756:
2757: -- Void this Transaction
2758: IF l_debug_level > 0 THEN
2759: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING VOID PAYMENT FOR TRXN ID : '||L_VOID_TRXN_ID ) ;
2760: END IF;
2761: --
2762: OE_Verify_Payment_PUB.Void_Payment
2763: ( p_void_trxn_id => l_void_trxn_id
2775:
2776: -- Return if VOID is not even supported.
2777: IF l_void_supported = 'N' THEN
2778: IF l_debug_level > 0 THEN
2779: oe_debug_pub.add( 'OEXPVPMB: VOID NOT SUPPORTED , RETURNING SUCCESS - 1' ) ;
2780: END IF;
2781: RETURN;
2782: END IF;
2783:
2793: END IF;
2794:
2795: -- Update Payment Amount and Authorization Code and DATE
2796: IF l_debug_level > 0 THEN
2797: oe_debug_pub.add( 'OEXPVPMB: CALLING UPDATE AUTH INFO TO UPDATE THE APPROVAL INFO TO NULL' ) ;
2798: END IF;
2799: --
2800: OE_Verify_Payment_PUB.Update_Authorization_Info
2801: ( p_header_rec.header_id
2813: END IF;
2814:
2815: -- Release any existing Credit Card Holds on the Order
2816: IF l_debug_level > 0 THEN
2817: oe_debug_pub.add( 'OEXPVPMB: RELEASING EXISTING CC HOLDS SINCE AUTH HAS BEEN VOIDED' ) ;
2818: END IF;
2819: --
2820: OE_Verify_Payment_PUB.Release_Verify_Hold
2821: ( p_header_id => p_header_rec.header_id
2876: l_status VARCHAR2(1) := NULL;
2877: l_industry VARCHAR2(30) := NULL;
2878: l_ipayment_product_id NUMBER := 673 ;
2879: --
2880: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2881: --
2882: BEGIN
2883:
2884: IF l_debug_level > 0 THEN
2881: --
2882: BEGIN
2883:
2884: IF l_debug_level > 0 THEN
2885: oe_debug_pub.add( 'OEXPVPMB: IN CHECK IPAYMENT INSTALLED' ) ;
2886: END IF;
2887:
2888: IF fnd_installation.get ( l_ipayment_product_id, l_ipayment_product_id, l_status, l_industry) THEN
2889: IF (l_status = 'I') THEN
2887:
2888: IF fnd_installation.get ( l_ipayment_product_id, l_ipayment_product_id, l_status, l_industry) THEN
2889: IF (l_status = 'I') THEN
2890: IF l_debug_level > 0 THEN
2891: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2892: END IF;
2893: RETURN('Y') ;
2894: ELSE
2895: IF l_debug_level > 0 THEN
2892: END IF;
2893: RETURN('Y') ;
2894: ELSE
2895: IF l_debug_level > 0 THEN
2896: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2897: END IF;
2898: RETURN('N') ;
2899: END IF;
2900: ELSE
2898: RETURN('N') ;
2899: END IF;
2900: ELSE
2901: IF l_debug_level > 0 THEN
2902: oe_debug_pub.add( 'OEXPVPMB: EXITING CHECK IPAYMENT INSTALLED' ) ;
2903: END IF;
2904: RETURN('N') ;
2905: END IF ;
2906:
2919: iby_cursor IBYCurType;
2920: l_ref_info VARCHAR2(80);
2921: l_sql_stmt VARCHAR2(1000);
2922: --
2923: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2924: --
2925: BEGIN
2926:
2927: IF l_debug_level > 0 THEN
2924: --
2925: BEGIN
2926:
2927: IF l_debug_level > 0 THEN
2928: oe_debug_pub.add( 'OEXPVPMB: IN VOICE AUTH REQUESTED' ) ;
2929: END IF;
2930:
2931: -- Query the data related to last authorization trxn for this order
2932: IF l_debug_level > 0 THEN
2929: END IF;
2930:
2931: -- Query the data related to last authorization trxn for this order
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'OEXPVPMB: SQL FOR QUERYING THE LAST AUTHORIZATION TRXN' ) ;
2934: END IF;
2935: --
2936:
2937: -- modified for multiple payments.
2958: WHERE B.REQTYPE = ''ORAPMTREQ''
2959: AND B.STATUS = 0
2960: AND B.TANGIBLEID = IT.TANGIBLEID)';
2961:
2962: --OE_DEBUG_PUB.ADD(l_sql_stmt);
2963:
2964: OPEN iby_cursor FOR l_sql_stmt USING l_ref_info;
2965:
2966: FETCH iby_cursor INTO p_tangible_id, p_amount;
2968: CLOSE iby_cursor;
2969:
2970: -- Return Tangible Id and Amount
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH TANGIBLE ID: '||P_TANGIBLE_ID ) ;
2973: END IF;
2974: IF l_debug_level > 0 THEN
2975: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
2976: END IF;
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH TANGIBLE ID: '||P_TANGIBLE_ID ) ;
2973: END IF;
2974: IF l_debug_level > 0 THEN
2975: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
2976: END IF;
2977:
2978: IF l_debug_level > 0 THEN
2979: oe_debug_pub.add( 'OEXPVPMB: EXITING VOICE AUTH REQUESTED' ) ;
2975: oe_debug_pub.add( 'OEXPVPMB: VOICE AUTH AMOUNT: '||P_AMOUNT ) ;
2976: END IF;
2977:
2978: IF l_debug_level > 0 THEN
2979: oe_debug_pub.add( 'OEXPVPMB: EXITING VOICE AUTH REQUESTED' ) ;
2980: END IF;
2981:
2982: END Voice_Auth_Requested;
2983:
2992: , p_merchant_ref OUT NOCOPY /* file.sql.39 change */ VARCHAR2
2993: )
2994: IS
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 GET PAY METHOD INFO - LOCAL' ) ;
3002: END IF;
3003:
3004: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
3005: IF l_debug_level > 0 THEN
3002: END IF;
3003:
3004: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
3005: IF l_debug_level > 0 THEN
3006: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE DETAILS' ) ;
3007: END IF;
3008: --
3009: begin
3010: SELECT
3092: l_trxn_id NUMBER;
3093: l_cust_trx_date DATE;
3094:
3095: --
3096: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3097: --
3098: BEGIN
3099:
3100: p_result_out := 'PASS' ;
3100: p_result_out := 'PASS' ;
3101: p_return_status := FND_API.G_RET_STS_SUCCESS;
3102:
3103: IF l_debug_level > 0 THEN
3104: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE PAYMENT' ) ;
3105: END IF;
3106:
3107: -- Call Check Reauthorize Order to find out if Reauthorization is required
3108: IF l_debug_level > 0 THEN
3105: END IF;
3106:
3107: -- Call Check Reauthorize Order to find out if Reauthorization is required
3108: IF l_debug_level > 0 THEN
3109: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING CHECK REAUTHORIZE FLAG' ) ;
3110: END IF;
3111: --
3112: OE_Verify_Payment_PUB.Check_Reauthorize_Order
3113: ( p_header_rec => p_header_rec
3116: , p_reauthorize_out => l_reauthorize_flag
3117: );
3118:
3119: IF l_debug_level > 0 THEN
3120: oe_debug_pub.add( 'OEXPVPMB: REAUTHORIZE FLAG HAS BEEN SET TO : '||L_REAUTHORIZE_FLAG ) ;
3121: END IF;
3122:
3123: /*
3124: ** Fix for 1967295:
3125: ** As VOID has been de-supported by iPayment, commenting
3126: ** following code which was used to VOID existing Trxns.
3127: **
3128: -- If a valid Transaction Id returned by above program then Void it.
3129: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Checking Valid Transaction ID for Voiding');
3130: --
3131: IF l_void_trxn_id > 0 THEN
3132:
3133: -- Void this Transaction
3130: --
3131: IF l_void_trxn_id > 0 THEN
3132:
3133: -- Void this Transaction
3134: OE_DEBUG_PUB.ADD('OEXPVPMB: Before Calling Void Payment for Trxn ID : '||l_void_trxn_id);
3135: --
3136: OE_Verify_Payment_PUB.Void_Payment
3137: ( p_void_trxn_id => l_void_trxn_id
3138: , p_msg_count => l_msg_count
3151: -- Check Reauthorize Flag and proceed
3152: IF l_reauthorize_flag = 'N' THEN
3153:
3154: IF l_debug_level > 0 THEN
3155: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE' ) ;
3156: END IF;
3157:
3158: -- Check if Hold already exists on this order
3159: IF l_debug_level > 0 THEN
3156: END IF;
3157:
3158: -- Check if Hold already exists on this order
3159: IF l_debug_level > 0 THEN
3160: oe_debug_pub.add( 'OEXPVPMB: CHECK IF ORDER ON RISK HOLD' ) ;
3161: END IF;
3162: --
3163: OE_Verify_Payment_PUB.Hold_Exists
3164: ( p_header_id => p_header_rec.header_id
3167: );
3168:
3169: IF l_hold_exists = 'Y' THEN
3170: IF l_debug_level > 0 THEN
3171: oe_debug_pub.add( 'OEXPVPMB: ORDER IS ON RISK HOLD' ) ;
3172: END IF;
3173: p_result_out := 'RISK';
3174: END IF;
3175:
3177:
3178: ELSIF l_reauthorize_flag = 'V' THEN
3179:
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add( 'OEXPVPMB: SETUP A VOICE AUTHORIZATION' ) ;
3182: END IF;
3183: l_voiceauth_flag := 'Y';
3184: l_voice_auth_code:= p_header_rec.credit_card_approval_code;
3185:
3186: ELSE
3187:
3188: -- Call to see if an auth already exists which was not updated on order
3189: IF l_debug_level > 0 THEN
3190: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH LAST AUTH' ) ;
3191: END IF;
3192: --
3193: OE_Verify_Payment_PUB.Fetch_Last_Auth ( p_header_rec => p_header_rec
3194: , p_trxn_id => l_trxn_id
3199: );
3200:
3201: IF l_trxn_id > 0 THEN
3202: IF l_debug_level > 0 THEN
3203: oe_debug_pub.add( 'OEXPVPMB: GOING DIRECTLY TO UPDATE AUTH' ) ;
3204: END IF;
3205: goto UPDATE_AUTH;
3206: END IF;
3207:
3211: ** following code which was used to VOID existing Trxns.
3212: **
3213: -- Return if VOID is not even supported.
3214: IF l_void_supported = 'N' THEN
3215: OE_DEBUG_PUB.ADD('OEXPVPMB: Void Not Supported, Returning Success - 2');
3216:
3217: -- Check if Hold already exists on this order
3218: OE_DEBUG_PUB.ADD('OEXPVPMB: Check if Order on Risk Hold');
3219: --
3214: IF l_void_supported = 'N' THEN
3215: OE_DEBUG_PUB.ADD('OEXPVPMB: Void Not Supported, Returning Success - 2');
3216:
3217: -- Check if Hold already exists on this order
3218: OE_DEBUG_PUB.ADD('OEXPVPMB: Check if Order on Risk Hold');
3219: --
3220: OE_Verify_Payment_PUB.Hold_Exists
3221: ( p_header_id => p_header_rec.header_id
3222: , p_hold_id => 12 -- Seed Id for CC Risk Hold
3223: , p_hold_exists => l_hold_exists
3224: );
3225:
3226: IF l_hold_exists = 'Y' THEN
3227: OE_DEBUG_PUB.ADD('OEXPVPMB: Order is on Risk Hold');
3228: p_result_out := 'RISK';
3229: END IF;
3230:
3231: RETURN;
3241: );
3242:
3243: IF l_tangible_id IS NOT NULL AND l_reauthorize_flag = 'Y' THEN
3244: IF l_debug_level > 0 THEN
3245: oe_debug_pub.add( 'OEXPVPMB: WILL NOT REAUTHORIZE , VOICE AUTH REQUESTED' ) ;
3246: END IF;
3247: p_result_out := 'FAIL';
3248: RETURN;
3249: END IF;
3249: END IF;
3250:
3251: -- Check the Existence of attributes required for CC Payment Authorization
3252: IF l_debug_level > 0 THEN
3253: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING THE VALIDATE REQUIRED ATTRIBUTES' ) ;
3254: END IF;
3255: --
3256: IF NOT Validate_Required_Attributes(p_header_rec) THEN
3257: p_result_out := 'FAIL';
3259: END IF;
3260:
3261: -- Get Primary Payment Method Id for this Customer, Site
3262: IF l_debug_level > 0 THEN
3263: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PRIMARY PAYMENT METHOD' ) ;
3264: END IF;
3265: --
3266: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
3267: ( p_header_rec => p_header_rec ) ;
3267: ( p_header_rec => p_header_rec ) ;
3268:
3269: -- Check if a valid method was selected
3270: IF l_debug_level > 0 THEN
3271: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE METHOD ID' ) ;
3272: END IF;
3273: --
3274: IF l_pay_method_id > 0 THEN
3275:
3273: --
3274: IF l_pay_method_id > 0 THEN
3275:
3276: IF l_debug_level > 0 THEN
3277: oe_debug_pub.add( 'OEXPVPMB: PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID ) ;
3278: END IF;
3279:
3280: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
3281: IF l_debug_level > 0 THEN
3278: END IF;
3279:
3280: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
3281: IF l_debug_level > 0 THEN
3282: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PAY METHOD INFO' ) ;
3283: END IF;
3284: --
3285: Get_Pay_Method_Info
3286: ( p_pay_method_id => l_pay_method_id
3289: ) ;
3290:
3291: -- If Merchant Id is invalid then set the out result to FAIL and return
3292: IF l_debug_level > 0 THEN
3293: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE PAYEE ID' ) ;
3294: END IF;
3295: --
3296: IF l_payee_id is NULL THEN
3297:
3318: -- The Payee Id is
3319: --l_payee_id := TO_CHAR(l_merchant_id);
3320:
3321: IF l_debug_level > 0 THEN
3322: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
3323: END IF;
3324:
3325: IF l_debug_level > 0 THEN
3326: oe_debug_pub.add( 'OEXPVPMB: PAYER NAME IS : '|| P_HEADER_REC.CREDIT_CARD_HOLDER_NAME ) ;
3322: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
3323: END IF;
3324:
3325: IF l_debug_level > 0 THEN
3326: oe_debug_pub.add( 'OEXPVPMB: PAYER NAME IS : '|| P_HEADER_REC.CREDIT_CARD_HOLDER_NAME ) ;
3327: END IF;
3328:
3329: -- Get a NEW tangible id only if it's not already pulled from Voice Auth
3330: IF l_tangible_id is NULL THEN
3329: -- Get a NEW tangible id only if it's not already pulled from Voice Auth
3330: IF l_tangible_id is NULL THEN
3331: -- Fetch the Tangible Id from sequence
3332: IF l_debug_level > 0 THEN
3333: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE TANGIBLE ID' ) ;
3334: END IF;
3335: --
3336: begin
3337: SELECT TO_CHAR(OE_IPAYMENT_TANGIBLE_S.NEXTVAL)||'_ONT'
3340: end ;
3341: END IF; -- tangible id null
3342:
3343: IF l_debug_level > 0 THEN
3344: oe_debug_pub.add( 'OEXPVPMB: TANGIBLE ID IS : '||L_TANGIBLE_ID ) ;
3345: END IF;
3346:
3347: -- Setup the Payer Address Record Type
3348: begin
3374: -- up the credit card bank account.
3375:
3376: -- Setup the Customer Bank Account in AP
3377: IF l_debug_level > 0 THEN
3378: oe_debug_pub.add( 'OEXPVPMB: BEFORE SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3379: END IF;
3380: --
3381:
3382: /**
3398: WHEN OTHERS THEN
3399: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
3400: OE_MSG_PUB.ADD;
3401: IF l_debug_level > 0 THEN
3402: oe_debug_pub.add( 'OEXPVPMB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT' ) ;
3403: END IF;
3404: p_result_out := 'FAIL';
3405: RETURN;
3406: end;
3406: end;
3407: **/
3408:
3409: IF l_debug_level > 0 THEN
3410: oe_debug_pub.add( 'OEXPVPMB: AFTER SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3411: END IF;
3412:
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3410: oe_debug_pub.add( 'OEXPVPMB: AFTER SETTING UP THE CUSTOMER BANK ACCOUNT' ) ;
3411: END IF;
3412:
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3415: END IF;
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3418: END IF;
3413: IF l_debug_level > 0 THEN
3414: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER ADDRESS START .. ' ) ;
3415: END IF;
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3418: END IF;
3419: IF l_debug_level > 0 THEN
3420: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3421: END IF;
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_PAYER_ADDRESS1 ) ;
3418: END IF;
3419: IF l_debug_level > 0 THEN
3420: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3421: END IF;
3422: IF l_debug_level > 0 THEN
3423: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3424: END IF;
3419: IF l_debug_level > 0 THEN
3420: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_PAYER_ADDRESS2 ) ;
3421: END IF;
3422: IF l_debug_level > 0 THEN
3423: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3424: END IF;
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3427: END IF;
3422: IF l_debug_level > 0 THEN
3423: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_PAYER_ADDRESS3 ) ;
3424: END IF;
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3427: END IF;
3428: IF l_debug_level > 0 THEN
3429: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3430: END IF;
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_PAYER_CITY ) ;
3427: END IF;
3428: IF l_debug_level > 0 THEN
3429: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3430: END IF;
3431: IF l_debug_level > 0 THEN
3432: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3433: END IF;
3428: IF l_debug_level > 0 THEN
3429: oe_debug_pub.add( 'OEXPVPMB: COUNTY : '|| L_PAYER_COUNTY ) ;
3430: END IF;
3431: IF l_debug_level > 0 THEN
3432: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3433: END IF;
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3436: END IF;
3431: IF l_debug_level > 0 THEN
3432: oe_debug_pub.add( 'OEXPVPMB: STATE : '|| L_PAYER_STATE ) ;
3433: END IF;
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3436: END IF;
3437: IF l_debug_level > 0 THEN
3438: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3439: END IF;
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_PAYER_COUNTRY ) ;
3436: END IF;
3437: IF l_debug_level > 0 THEN
3438: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3439: END IF;
3440: IF l_debug_level > 0 THEN
3441: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER TO ADDRESS END .. ' ) ;
3442: END IF;
3437: IF l_debug_level > 0 THEN
3438: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_PAYER_POSTALCODE ) ;
3439: END IF;
3440: IF l_debug_level > 0 THEN
3441: oe_debug_pub.add( 'OEXPVPMB: INVOICE/CREDIT CARD HOLDER TO ADDRESS END .. ' ) ;
3442: END IF;
3443:
3444: -- Fetch the Header Values
3445: /*
3465: WHERE ORGANIZATION_ID = p_header_rec.ship_to_org_id;
3466: end ;
3467:
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS START .. ' ) ;
3470: END IF;
3471: IF l_debug_level > 0 THEN
3472: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3473: END IF;
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS START .. ' ) ;
3470: END IF;
3471: IF l_debug_level > 0 THEN
3472: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3473: END IF;
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3476: END IF;
3471: IF l_debug_level > 0 THEN
3472: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 1 : '|| L_SHIP_ADDRESS1 ) ;
3473: END IF;
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3476: END IF;
3477: IF l_debug_level > 0 THEN
3478: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3479: END IF;
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 2 : '|| L_SHIP_ADDRESS2 ) ;
3476: END IF;
3477: IF l_debug_level > 0 THEN
3478: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3479: END IF;
3480: IF l_debug_level > 0 THEN
3481: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3482: END IF;
3477: IF l_debug_level > 0 THEN
3478: oe_debug_pub.add( 'OEXPVPMB: ADDRESS 3 : '|| L_SHIP_ADDRESS3 ) ;
3479: END IF;
3480: IF l_debug_level > 0 THEN
3481: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3482: END IF;
3483: IF l_debug_level > 0 THEN
3484: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3485: END IF;
3480: IF l_debug_level > 0 THEN
3481: oe_debug_pub.add( 'OEXPVPMB: CITY : '|| L_SHIP_CITY ) ;
3482: END IF;
3483: IF l_debug_level > 0 THEN
3484: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3485: END IF;
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3488: END IF;
3483: IF l_debug_level > 0 THEN
3484: oe_debug_pub.add( 'OEXPVPMB: COUNTRY : '|| L_SHIP_COUNTRY ) ;
3485: END IF;
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3488: END IF;
3489: IF l_debug_level > 0 THEN
3490: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS END .. ' ) ;
3491: END IF;
3486: IF l_debug_level > 0 THEN
3487: oe_debug_pub.add( 'OEXPVPMB: POSTAL CODE : '|| L_SHIP_POSTALCODE ) ;
3488: END IF;
3489: IF l_debug_level > 0 THEN
3490: oe_debug_pub.add( 'OEXPVPMB: SHIP TO ADDRESS END .. ' ) ;
3491: END IF;
3492:
3493: /*
3494: ** Fix Bug # 2262893
3495: ** Modified following IF condition to handle adresses with NULL values in line
3496: ** 1, 2 and 3 columns. City, Postal Code and Country are now checked separately.
3497: */
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF SHIP TO AND INVOICE TO ADDRESSES MATCH' ) ;
3500: END IF;
3501: --
3502: /*
3503: IF (l_header_val_rec.invoice_to_address1 = l_header_val_rec.ship_to_address1
3518: l_ship_to_address := 'FALSE' ; -- Ship To and Invoice To Addresses DO NOT Match
3519: END IF;
3520:
3521: IF l_debug_level > 0 THEN
3522: oe_debug_pub.add( 'OEXPVPMB: SHIP TO AND INVOICE TO MATCH : '|| L_SHIP_TO_ADDRESS ) ;
3523: END IF;
3524:
3525: -- Hour and Minutes after Mid Night in HH24:MM format
3526: IF l_debug_level > 0 THEN
3523: END IF;
3524:
3525: -- Hour and Minutes after Mid Night in HH24:MM format
3526: IF l_debug_level > 0 THEN
3527: oe_debug_pub.add( 'OEXPVPMB: FETCHING HOUR AND MINUTES AFTER MIDNIGHT AS TIME OF PURCHASE' ) ;
3528: END IF;
3529: --
3530: SELECT TO_CHAR(sysdate, 'HH24:MI')
3531: INTO l_time_of_purchase
3531: INTO l_time_of_purchase
3532: FROM DUAL ;
3533:
3534: IF l_debug_level > 0 THEN
3535: oe_debug_pub.add( 'OEXPVPMB: TIME OF PURCHASE AFTER MIDNIGHT HH24:MI IS : '|| L_TIME_OF_PURCHASE ) ;
3536: END IF;
3537:
3538: -- Set the Order Value to Outbound Total only if it's not already
3539: -- set to the tangible amount from the Voice Authorization.
3541: l_order_value := l_outbound_total;
3542: END IF; -- tangible Amount not > 0
3543:
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add( 'OEXPVPMB: AMOUNT TO BE AUTHORIZED , OUTBOUND TOTAL : '||L_ORDER_VALUE ) ;
3546: END IF;
3547:
3548: l_block_str := 'DECLARE
3549:
3633:
3634: END;';
3635:
3636: -- PL/SQL Block for call to OraPmtReq
3637: -- OE_DEBUG_PUB.ADD(l_block_str);
3638: --
3639:
3640: -- Before Executing the Block
3641: IF l_debug_level > 0 THEN
3638: --
3639:
3640: -- Before Executing the Block
3641: IF l_debug_level > 0 THEN
3642: oe_debug_pub.add( 'OEXPVPMB: BEFORE EXECUTING THE PL/SQL BLOCK' ) ;
3643: END IF;
3644: --
3645: EXECUTE IMMEDIATE l_block_str
3646: USING IN l_payee_id
3681: , OUT l_bep_err_mesg;
3682:
3683: -- After Executing the Block
3684: IF l_debug_level > 0 THEN
3685: oe_debug_pub.add( 'OEXPVPMB: AFTER EXECUTING THE PL/SQL BLOCK' ) ;
3686: END IF;
3687: --
3688:
3689: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_status > 0 THEN
3691: -- Check if the Operation was Supported or not
3692: /* IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
3693: l_return_status := FND_API.G_RET_STS_SUCCESS;
3694: IF l_debug_level > 0 THEN
3695: oe_debug_pub.add( 'OEXPVPMB: OPERATION NOT SUPPORTED.' ) ;
3696: END IF;
3697: RETURN;
3698: END IF;
3699: */
3707: FND_MESSAGE.SET_TOKEN('BEPERRMESSAGE',l_bep_err_mesg);
3708: OE_MSG_PUB.ADD;
3709:
3710: IF l_debug_level > 0 THEN
3711: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
3712: END IF;
3713: IF l_debug_level > 0 THEN
3714: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3715: END IF;
3710: IF l_debug_level > 0 THEN
3711: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
3712: END IF;
3713: IF l_debug_level > 0 THEN
3714: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3715: END IF;
3716: IF l_debug_level > 0 THEN
3717: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3718: END IF;
3713: IF l_debug_level > 0 THEN
3714: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
3715: END IF;
3716: IF l_debug_level > 0 THEN
3717: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3718: END IF;
3719: IF l_debug_level > 0 THEN
3720: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3721: END IF;
3716: IF l_debug_level > 0 THEN
3717: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
3718: END IF;
3719: IF l_debug_level > 0 THEN
3720: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3721: END IF;
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3724: END IF;
3719: IF l_debug_level > 0 THEN
3720: oe_debug_pub.add( 'OEXPVPMB: ERROR LOCATION : '||L_ERR_LOC ) ;
3721: END IF;
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3724: END IF;
3725: IF l_debug_level > 0 THEN
3726: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
3727: END IF;
3722: IF l_debug_level > 0 THEN
3723: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
3724: END IF;
3725: IF l_debug_level > 0 THEN
3726: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
3727: END IF;
3728:
3729: p_result_out := 'FAIL';
3730:
3732:
3733: END IF;
3734:
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( ' ' ) ;
3737: END IF;
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
3740: END IF;
3735: IF l_debug_level > 0 THEN
3736: oe_debug_pub.add( ' ' ) ;
3737: END IF;
3738: IF l_debug_level > 0 THEN
3739: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
3740: END IF;
3741:
3742: <
3743: -- Update Payment Amount and Authorization Code and DATE
3741:
3742: <
3743: -- Update Payment Amount and Authorization Code and DATE
3744: IF l_debug_level > 0 THEN
3745: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3746: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3747: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3748: END IF;
3749: --
3742: <
3743: -- Update Payment Amount and Authorization Code and DATE
3744: IF l_debug_level > 0 THEN
3745: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3746: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3747: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3748: END IF;
3749: --
3750: OE_Verify_Payment_PUB.Update_Authorization_Info
3743: -- Update Payment Amount and Authorization Code and DATE
3744: IF l_debug_level > 0 THEN
3745: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO' ) ;
3746: oe_debug_pub.add( 'OEXPVPMB: l_order_value is: '||l_order_value ) ;
3747: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
3748: END IF;
3749: --
3750: OE_Verify_Payment_PUB.Update_Authorization_Info
3751: ( p_header_rec.header_id
3762: RETURN;
3763: END IF;
3764:
3765: IF l_debug_level > 0 THEN
3766: oe_debug_pub.add( 'OEXPVPMB: RISK RESPONSE INCLUDED : '||L_RISKRESP_INCLUDED ) ;
3767: END IF;
3768:
3769: IF l_riskresp_included = 'YES' THEN
3770: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
3769: IF l_riskresp_included = 'YES' THEN
3770: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
3771:
3772: IF l_debug_level > 0 THEN
3773: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
3774: END IF;
3775: IF l_debug_level > 0 THEN
3776: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
3777: END IF;
3772: IF l_debug_level > 0 THEN
3773: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
3774: END IF;
3775: IF l_debug_level > 0 THEN
3776: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
3777: END IF;
3778:
3779: -- If Transaction is Risky, then apply credit card Risk hold.
3780: IF l_risk_score > l_risk_threshold THEN
3779: -- If Transaction is Risky, then apply credit card Risk hold.
3780: IF l_risk_score > l_risk_threshold THEN
3781:
3782: IF l_debug_level > 0 THEN
3783: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION WAS RISKY' ) ;
3784: END IF;
3785: -- Set the Out result to Risk to indicate a risky Transaction
3786: p_result_out := 'RISK' ;
3787: RETURN;
3835: l_void_trxn_id NUMBER;
3836: l_prepaid_total NUMBER;
3837: l_commitment_total NUMBER;
3838: --
3839: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3840: --
3841: BEGIN
3842:
3843: IF l_debug_level > 0 THEN
3840: --
3841: BEGIN
3842:
3843: IF l_debug_level > 0 THEN
3844: oe_debug_pub.add( 'OEXPVPMB: IN CHECK REAUTHORIZE ORDER' ) ;
3845: END IF;
3846:
3847: -- Call Fetch Authorization Trxn
3848: IF l_debug_level > 0 THEN
3845: END IF;
3846:
3847: -- Call Fetch Authorization Trxn
3848: IF l_debug_level > 0 THEN
3849: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH AUTHORIZATION TRXN' ) ;
3850: END IF;
3851: --
3852: OE_Verify_Payment_PUB.Fetch_Authorization_Trxn
3853: ( p_header_rec => p_header_rec
3856: );
3857:
3858: -- Fetch the Order Total Amount
3859: IF l_debug_level > 0 THEN
3860: oe_debug_pub.add( 'OEXPVPMB: FETCH OUTBOUND LINES TOTAL' ) ;
3861: END IF;
3862: --
3863: p_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
3864:
3863: p_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
3864:
3865:
3866: IF l_debug_level > 0 THEN
3867: oe_debug_pub.add( 'OEXPVPMB: TOTAL VALUE OF OUTBOUND LINES : '||P_OUTBOUND_TOTAL ) ;
3868: END IF;
3869:
3870: /*
3871: ** Fix Bug # 2554360: OE_OE_TOTALS_SUMMARY.Outbound_Order_Total will now exclude closed
3870: /*
3871: ** Fix Bug # 2554360: OE_OE_TOTALS_SUMMARY.Outbound_Order_Total will now exclude closed
3872: ** lines. Following is not required as closed lines will be considered captured.
3873: -- Fetch the Captured Amount Total
3874: OE_DEBUG_PUB.ADD('OEXPVPMB: Fetch Captured Amount Total');
3875: --
3876: l_captured_total := OE_Verify_Payment_PUB.Captured_Amount_Total(p_header_rec.header_id);
3877: OE_DEBUG_PUB.ADD('OEXPVPMB: Total Amount already Captured : '||l_captured_total);
3878:
3873: -- Fetch the Captured Amount Total
3874: OE_DEBUG_PUB.ADD('OEXPVPMB: Fetch Captured Amount Total');
3875: --
3876: l_captured_total := OE_Verify_Payment_PUB.Captured_Amount_Total(p_header_rec.header_id);
3877: OE_DEBUG_PUB.ADD('OEXPVPMB: Total Amount already Captured : '||l_captured_total);
3878:
3879: -- Uncaptured outbound Total is
3880: p_outbound_total := l_outbound_total - l_captured_total;
3881: */
3884: IF p_outbound_total > 0 THEN
3885:
3886: -- Credit Card Approval Code is NOT NULL
3887: IF l_debug_level > 0 THEN
3888: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING CC APPROVAL CODE' ) ;
3889: END IF;
3890: --
3891: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
3892:
3892:
3893: -- Fetch the value for profile "OM: Estimated Authorization Validity Period"
3894: -- This is required to estimate the validity of existing Authorizations.
3895: IF l_debug_level > 0 THEN
3896: oe_debug_pub.add( 'OEXPVPMB: FETCHING VALUE FOR OM: ESTIMATED AUTHORIZATION VALIDITY PERIOD' ) ;
3897: END IF;
3898: --
3899: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
3900:
3898: --
3899: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
3900:
3901: IF l_debug_level > 0 THEN
3902: oe_debug_pub.add( 'OEXPVPMB: OM: ESTIMATED AUTHORIZATION VALIDITY PERIOD : '|| L_EST_VALID_DAYS ) ;
3903: END IF;
3904:
3905: -- If the Authorization was taken Automatically using iPayment
3906: --
3906: --
3907: IF l_automatic_auth = 'Y' THEN
3908:
3909: IF l_debug_level > 0 THEN
3910: oe_debug_pub.add( 'OEXPVPMB: IT IS AN AUTOMATIC AUTHORIZATION' ) ;
3911: END IF;
3912:
3913: -- If Transaction has already been captured then
3914: IF (OE_Verify_Payment_PUB.Check_Trxn_Captured(l_void_trxn_id) = 'Y') THEN
3913: -- If Transaction has already been captured then
3914: IF (OE_Verify_Payment_PUB.Check_Trxn_Captured(l_void_trxn_id) = 'Y') THEN
3915:
3916: IF l_debug_level > 0 THEN
3917: oe_debug_pub.add( 'OEXPVPMB: CURRENT AUTH CAPTURED , REAUTHORIZE' ) ;
3918: END IF;
3919: l_reauthorize_flag := 'Y' ;
3920: l_void_trxn_id := 0 ;
3921:
3926: **
3927: -- If Order Total is greater than previously Authorized Amount.
3928: ELSIF ( p_outbound_total > nvl(p_header_rec.payment_amount, 0) ) THEN
3929:
3930: OE_DEBUG_PUB.ADD('OEXPVPMB: Current Auth is for amount lesser than Order Total, reauthorize ');
3931: l_reauthorize_flag := 'Y' ;
3932: */
3933:
3934: -- If based on the estimated authorization validity period,
3935: -- the authorization has expired then reauthorize.
3936: ELSIF ( p_header_rec.credit_card_approval_date + l_est_valid_days <= SYSDATE ) THEN
3937:
3938: IF l_debug_level > 0 THEN
3939: oe_debug_pub.add( 'OEXPVPMB: CURRENT AUTH EXPIRED , REAUTHORIZE' ) ;
3940: END IF;
3941: l_reauthorize_flag := 'Y' ;
3942:
3943: ELSE
3943: ELSE
3944:
3945: -- Niether the Order should be reauthorized nor the existing transaction should be voided.
3946: IF l_debug_level > 0 THEN
3947: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE OR VOID EXISTING TRANSACTION' ) ;
3948: END IF;
3949: l_reauthorize_flag := 'N' ;
3950: l_void_trxn_id := 0 ;
3951:
3953:
3954: ELSE -- Manual Authorization
3955:
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add( 'OEXPVPMB: IT IS A MANUAL AUTHORIZATION' ) ;
3958: END IF;
3959:
3960: --
3961: -- Check if Manual Auth is still valid, use Estimated Validity Period.
3959:
3960: --
3961: -- Check if Manual Auth is still valid, use Estimated Validity Period.
3962: IF l_debug_level > 0 THEN
3963: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING VALIDITITY OF MANUAL AUTHORIZATION' ) ;
3964: END IF;
3965: --
3966: IF p_header_rec.credit_card_approval_date is NOT NULL
3967: AND ( p_header_rec.credit_card_approval_date + l_est_valid_days ) > SYSDATE THEN
3967: AND ( p_header_rec.credit_card_approval_date + l_est_valid_days ) > SYSDATE THEN
3968:
3969: -- Set Reauthorize Flag to 'N', as manual Authorization is valid
3970: IF l_debug_level > 0 THEN
3971: oe_debug_pub.add( 'OEXPVPMB: MANUAL AUTHORIZATION IS STILL VALID , VOID EXISTING AUTOMATIC AUTH' ) ;
3972: END IF;
3973: --
3974: l_reauthorize_flag := 'V' ; -- Now this procedure returns V to setup Voice Auth
3975:
3975:
3976: ELSE
3977:
3978: IF l_debug_level > 0 THEN
3979: oe_debug_pub.add( 'OEXPVPMB: THE ORDER SHOULD BE REAUTHORIZED' ) ;
3980: END IF;
3981: l_reauthorize_flag := 'Y' ;
3982:
3983: END IF; -- Approval DATE Validity
3982:
3983: END IF; -- Approval DATE Validity
3984:
3985: IF l_debug_level > 0 THEN
3986: oe_debug_pub.add( 'OEXPVPMB: AFTER CHECKING VALIDITITY OF MANUAL AUTHORIZATION' ) ;
3987: END IF;
3988:
3989: END IF; -- Manual/Automatic Authorization
3990:
3988:
3989: END IF; -- Manual/Automatic Authorization
3990:
3991: IF l_debug_level > 0 THEN
3992: oe_debug_pub.add( 'OEXPVPMB: END OF MANUAL AUTHORIZATION' ) ;
3993: END IF;
3994:
3995: ELSE
3996:
4019: RETURN BOOLEAN
4020: IS
4021: l_result BOOLEAN := TRUE;
4022: --
4023: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4024: --
4025: BEGIN
4026:
4027: IF l_debug_level > 0 THEN
4024: --
4025: BEGIN
4026:
4027: IF l_debug_level > 0 THEN
4028: oe_debug_pub.add( 'OEXPVPMB: IN VALIDATE REQUIRED ATTRIBUTES' ) ;
4029: END IF;
4030:
4031: -- Check For all Required Attributes
4032: IF p_header_rec.invoice_to_org_id is NULL THEN
4032: IF p_header_rec.invoice_to_org_id is NULL THEN
4033: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
4034: OE_MSG_PUB.ADD;
4035: IF l_debug_level > 0 THEN
4036: oe_debug_pub.add( 'OEXPVPMB: INVOICE_TO_ORG_ID IS REQUIRED' ) ;
4037: END IF;
4038: l_result := FALSE;
4039: ELSIF p_header_rec.credit_card_number is NULL THEN
4040: --R12 CC Encryption
4040: --R12 CC Encryption
4041: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
4042: OE_MSG_PUB.ADD;
4043: IF l_debug_level > 0 THEN
4044: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_NUMBER IS REQUIRED' ) ;
4045: END IF;
4046: l_result := FALSE;
4047: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
4048: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
4047: ELSIF p_header_rec.credit_card_expiration_date is NULL THEN
4048: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
4049: OE_MSG_PUB.ADD;
4050: IF l_debug_level > 0 THEN
4051: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_EXPIRATION_DATE IS REQUIRED' ) ;
4052: END IF;
4053: l_result := FALSE;
4054: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
4055: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
4054: ELSIF p_header_rec.credit_card_holder_name is NULL THEN
4055: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
4056: OE_MSG_PUB.ADD;
4057: IF l_debug_level > 0 THEN
4058: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_HOLDER_NAME IS REQUIRED' ) ;
4059: END IF;
4060: l_result := FALSE;
4061: ELSE
4062: l_result := TRUE;
4062: l_result := TRUE;
4063: END IF;
4064:
4065: IF l_debug_level > 0 THEN
4066: oe_debug_pub.add( 'OEXPVPMB: EXITING VALIDATE REQUIRED ATTRIBUTES' ) ;
4067: END IF;
4068: RETURN l_result;
4069:
4070: END Validate_Required_Attributes;
4079: l_cc_only BOOLEAN := TRUE ;
4080: l_pay_method_id NUMBER := 0;
4081: l_cust_pay_method_id NUMBER := 0 ;
4082: --
4083: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4084:
4085: l_as_of_date DATE; --bug 3881076
4086: --
4087: BEGIN
4086: --
4087: BEGIN
4088:
4089: IF l_debug_level > 0 THEN
4090: oe_debug_pub.add( 'OEXPVPMB: IN GET PRIMARY PAY METHOD' ) ;
4091: END IF;
4092:
4093: -- Get Primary Receipt Method Id for this Customer, Site
4094: IF l_debug_level > 0 THEN
4091: END IF;
4092:
4093: -- Get Primary Receipt Method Id for this Customer, Site
4094: IF l_debug_level > 0 THEN
4095: oe_debug_pub.add( 'OEXPVPMB: to get primary pay method.' ) ;
4096: END IF;
4097: --
4098:
4099: /* Changed code to query from AR table directly for R12 cc encryption
4120: null;
4121: END;
4122:
4123: IF l_debug_level > 0 THEN
4124: oe_debug_pub.add( 'OEXPVPMB: PRIMARY PAYMENT METHOD ID AT SITE LEVEL: '||L_PAY_METHOD_ID ) ;
4125: END IF;
4126:
4127: -- Fix Bug # 2256571
4128: -- If No Primary Payment Method set at SITE level, check at CUSTOMER Level.
4152: null;
4153: END;
4154:
4155: IF l_debug_level > 0 THEN
4156: oe_debug_pub.add('OEXPVPMB: PRIMARY PAYMENT METHOD ID AT CUSTOMER LEVEL: '||L_PAY_METHOD_ID ) ;
4157: END IF;
4158: END IF;
4159:
4160: /* comment out for R12 cc encryption
4161: -- Check if Primary Payment Method valid
4162: IF NVL(l_pay_method_id, 0) <= 0 THEN
4163: -- Fetch the Receipt Method ID from OM Profile Option
4164: IF l_debug_level > 0 THEN
4165: oe_debug_pub.add( 'OEXPVPMB: FETCHING PAYMENT METHOD ID FROM PROFILE OPTION' ) ;
4166: END IF;
4167: --
4168: l_pay_method_id := to_number(nvl(fnd_profile.value('ONT_RECEIPT_METHOD_ID'), '0')) ;
4169: --
4167: --
4168: l_pay_method_id := to_number(nvl(fnd_profile.value('ONT_RECEIPT_METHOD_ID'), '0')) ;
4169: --
4170: IF l_debug_level > 0 THEN
4171: oe_debug_pub.add( 'OEXPVPMB: PROFILE PAYMENT METHOD ID IS : '||L_PAY_METHOD_ID ) ;
4172: END IF;
4173:
4174: IF l_pay_method_id > 0 THEN
4175: -- Assign the Payment Method as Primary if setup in Profile
4173:
4174: IF l_pay_method_id > 0 THEN
4175: -- Assign the Payment Method as Primary if setup in Profile
4176: IF l_debug_level > 0 THEN
4177: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING ARP_BANK_PKG.PROCESS_CUST_PAY_METHOD' ) ;
4178: END IF;
4179:
4180: -- comment out the code for R12 cc encryption project
4181: -- Fixed for the FP bug 3881076
4207: , p_merchant_id OUT NOCOPY /* file.sql.39 change */ NUMBER
4208: )
4209: IS
4210: --
4211: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4212: --
4213: BEGIN
4214:
4215: IF l_debug_level > 0 THEN
4212: --
4213: BEGIN
4214:
4215: IF l_debug_level > 0 THEN
4216: oe_debug_pub.add( 'OEXPVPMB: IN GET PAY METHOD INFO' ) ;
4217: END IF;
4218:
4219: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
4220: IF l_debug_level > 0 THEN
4217: END IF;
4218:
4219: -- Fetch Pay Method Name and Merchant Id based on Pay Method ID
4220: IF l_debug_level > 0 THEN
4221: oe_debug_pub.add( 'OEXPVPMB: BEFORE FETCHING THE DETAILS' ) ;
4222: END IF;
4223: --
4224: begin
4225: SELECT
4261: l_bep_err_code VARCHAR2(80);
4262: l_bep_err_mesg VARCHAR2(255);
4263: l_err_loc NUMBER;
4264: --
4265: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4266: --
4267: BEGIN
4268:
4269: p_return_status := FND_API.G_RET_STS_SUCCESS;
4269: p_return_status := FND_API.G_RET_STS_SUCCESS;
4270: p_void_supported:= 'Y';
4271:
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'OEXPVPMB: IN VOID PAYMENT' ) ;
4274: END IF;
4275:
4276:
4277: -- Return if Trxn has already been captured
4280: END IF;
4281:
4282: -- Create the Dynamic SQL to Call the iPayment API
4283: IF l_debug_level > 0 THEN
4284: oe_debug_pub.add( 'OEXPVPMB: CREATING DYNAMIC SQL TO CALL IPAYMENT API ORAPMTVOID' ) ;
4285: END IF;
4286: --
4287: l_block_str:= 'DECLARE
4288: /**** Declaration Section ****/
4325: END;';
4326:
4327: -- PL/SQL Block for call to iPayment
4328: IF l_debug_level > 0 THEN
4329: oe_debug_pub.add( L_BLOCK_STR ) ;
4330: END IF;
4331: --
4332:
4333: -- Before Executing the Block
4331: --
4332:
4333: -- Before Executing the Block
4334: IF l_debug_level > 0 THEN
4335: oe_debug_pub.add( 'OEXPVPMB: BEFORE EXECUTING THE PL/SQL BLOCK' ) ;
4336: END IF;
4337: --
4338: EXECUTE IMMEDIATE l_block_str
4339: USING IN p_void_trxn_id
4348: , OUT l_bep_err_mesg;
4349:
4350: -- After Executing the Block
4351: IF l_debug_level > 0 THEN
4352: oe_debug_pub.add( 'OEXPVPMB: AFTER EXECUTING THE PL/SQL BLOCK' ) ;
4353: END IF;
4354: --
4355:
4356: -- Check the Response Status to ensure that there are NO errors
4360: IF NVL(l_err_code, 'XXX') = 'IBY_0008' THEN
4361: l_return_status := FND_API.G_RET_STS_SUCCESS;
4362: p_void_supported:= 'N';
4363: IF l_debug_level > 0 THEN
4364: oe_debug_pub.add( 'OEXPVPMB: VOID TRANSACTION NOT SUPPORTED.' ) ;
4365: END IF;
4366: RETURN;
4367: ELSE
4368: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4380: FND_MESSAGE.SET_TOKEN('BEPERRMESSAGE',l_bep_err_mesg);
4381: OE_MSG_PUB.ADD;
4382:
4383: IF l_debug_level > 0 THEN
4384: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
4385: END IF;
4386: IF l_debug_level > 0 THEN
4387: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4388: END IF;
4383: IF l_debug_level > 0 THEN
4384: oe_debug_pub.add( 'OEXPVPMB: ERROR CODE : '||L_ERR_CODE ) ;
4385: END IF;
4386: IF l_debug_level > 0 THEN
4387: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4388: END IF;
4389: IF l_debug_level > 0 THEN
4390: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4391: END IF;
4386: IF l_debug_level > 0 THEN
4387: oe_debug_pub.add( 'OEXPVPMB: ERROR MESSAGE : '||L_ERR_MESG ) ;
4388: END IF;
4389: IF l_debug_level > 0 THEN
4390: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4391: END IF;
4392: IF l_debug_level > 0 THEN
4393: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4394: END IF;
4389: IF l_debug_level > 0 THEN
4390: oe_debug_pub.add( 'OEXPVPMB: BACK END PAYMENT SYSTEM ERRORS : ' ) ;
4391: END IF;
4392: IF l_debug_level > 0 THEN
4393: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4394: END IF;
4395: IF l_debug_level > 0 THEN
4396: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4397: END IF;
4392: IF l_debug_level > 0 THEN
4393: oe_debug_pub.add( 'OEXPVPMB: BEP ERR LOCATION : '||L_ERR_LOC ) ;
4394: END IF;
4395: IF l_debug_level > 0 THEN
4396: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4397: END IF;
4398: IF l_debug_level > 0 THEN
4399: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
4400: END IF;
4395: IF l_debug_level > 0 THEN
4396: oe_debug_pub.add( 'OEXPVPMB: BEP ERR CODE : '||L_BEP_ERR_CODE ) ;
4397: END IF;
4398: IF l_debug_level > 0 THEN
4399: oe_debug_pub.add( 'OEXPVPMB: BEP ERR MESG : '||L_BEP_ERR_MESG ) ;
4400: END IF;
4401:
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403:
4439: IS
4440: l_captured_flag VARCHAR2(1) := 'N';
4441: l_sql_stmt VARCHAR2(1000) := NULL;
4442: --
4443: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4444: --
4445: BEGIN
4446:
4447: IF l_debug_level > 0 THEN
4444: --
4445: BEGIN
4446:
4447: IF l_debug_level > 0 THEN
4448: oe_debug_pub.add( 'OEXPVPMB: IN CHECK TRANSACTION CAPTURED' ) ;
4449: END IF;
4450: -- Create the query string
4451: IF l_debug_level > 0 THEN
4452: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO CHECK IF TRANSACTION HAS BEEN CAPTURED' ) ;
4448: oe_debug_pub.add( 'OEXPVPMB: IN CHECK TRANSACTION CAPTURED' ) ;
4449: END IF;
4450: -- Create the query string
4451: IF l_debug_level > 0 THEN
4452: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO CHECK IF TRANSACTION HAS BEEN CAPTURED' ) ;
4453: END IF;
4454: --
4455: l_sql_stmt := 'SELECT ''Y'' FROM IBY_TRANS_ALL_V
4456: WHERE TRANSACTIONID = :trxn_id
4458: OR (REQTYPE = ''ORAPMTREQ'' AND AUTHTYPE = ''AUTHCAPTURE''))
4459: AND NVL(AMOUNT, 0) > 0
4460: AND ROWNUM = 1';
4461:
4462: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4463:
4464: begin
4465: EXECUTE IMMEDIATE l_sql_stmt
4466: INTO l_captured_flag
4485: IS
4486: l_trxn_id NUMBER;
4487: l_tangible_id VARCHAR2(80);
4488: --
4489: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4490: --
4491: BEGIN
4492:
4493: IF l_debug_level > 0 THEN
4490: --
4491: BEGIN
4492:
4493: IF l_debug_level > 0 THEN
4494: oe_debug_pub.add( 'OEXPVPMB: IN FETCH AUTHORIZATION TRANSACTION' ) ;
4495: END IF;
4496:
4497: -- Check if Authorization Code of the Order is NOT NULL
4498: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
4497: -- Check if Authorization Code of the Order is NOT NULL
4498: IF p_header_rec.credit_card_approval_code IS NOT NULL THEN
4499: -- Call Fetch Current Auth
4500: IF l_debug_level > 0 THEN
4501: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING FETCH CURRENT AUTH' ) ;
4502: END IF;
4503: --
4504: OE_Verify_Payment_PUB.Fetch_Current_Auth
4505: ( p_header_rec => p_header_rec
4531: IF p_header_rec.credit_card_approval_code IS NULL
4532: OR p_automatic_auth = 'N' THEN
4533:
4534: -- Call Last Current Auth
4535: OE_DEBUG_PUB.ADD('OEXPVPMB: Before calling Fetch Last Auth');
4536: --
4537: OE_Verify_Payment_PUB.Fetch_Last_Auth
4538: ( p_header_rec => p_header_rec
4539: , p_trxn_id => l_trxn_id
4563: l_ref_info VARCHAR2(80);
4564: l_credit_card_approval_code VARCHAR2(80);
4565: l_credit_card_approval_date DATE;
4566: --
4567: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4568: --
4569: BEGIN
4570:
4571: IF l_debug_level > 0 THEN
4568: --
4569: BEGIN
4570:
4571: IF l_debug_level > 0 THEN
4572: oe_debug_pub.add( 'OEXPVPMB: IN FETCH CURRENT AUTHORIZATION' ) ;
4573: END IF;
4574:
4575: IF p_line_id IS NOT NULL THEN
4576: l_ref_info := TO_CHAR(p_line_id);
4598: AND p_header_rec.source_document_type_id <> 2 ) ) THEN
4599:
4600: -- Update REFINFO with Order HEADER_ID if not updated yet.
4601: IF l_debug_level > 0 THEN
4602: oe_debug_pub.add( 'OEXPVPMB: SQL STMT TO UPDATE REFINFO WITH HEADER_ID' ) ;
4603: END IF;
4604: --
4605: /* Bug 6700106
4606: l_sql_stmt := 'UPDATE IBY_TANGIBLE IT
4614: AND trunc(ITAV.UPDATEDATE) = trunc(:auth_date) --5932506
4615: AND (ITAV.REFINFO IS NULL
4616: OR ITAV.REFINFO != :ref_info2))';
4617:
4618: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4619:
4620: begin
4621: EXECUTE IMMEDIATE l_sql_stmt
4622: USING l_ref_info
4658: -- Bug 6700106
4659:
4660:
4661: IF l_debug_level > 0 THEN
4662: oe_debug_pub.add( 'OEXPVPMB: UPDATED '||SQL%ROWCOUNT||' ROWS.' ) ;
4663: END IF;
4664:
4665: EXCEPTION
4666: WHEN OTHERS THEN
4664:
4665: EXCEPTION
4666: WHEN OTHERS THEN
4667: IF l_debug_level > 0 THEN
4668: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR UPDATING REFINFO.' ) ;
4669: END IF;
4670: IF l_debug_level > 0 THEN
4671: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4672: END IF;
4667: IF l_debug_level > 0 THEN
4668: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR UPDATING REFINFO.' ) ;
4669: END IF;
4670: IF l_debug_level > 0 THEN
4671: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4672: END IF;
4673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4674: end;
4675:
4676: END IF;
4677:
4678: -- Create the query string
4679: IF l_debug_level > 0 THEN
4680: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO FETCH TRXN BASED ON ORDER AUTH CODE' ) ;
4681: END IF;
4682: --
4683: l_sql_stmt := 'SELECT TRANSACTIONID, TANGIBLEID
4684: FROM (SELECT A.TRANSACTIONID, A.TANGIBLEID
4696: AND B.STATUS = 0)
4697: ORDER BY A.UPDATEDATE DESC)
4698: WHERE ROWNUM = 1';
4699:
4700: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4701:
4702: begin
4703: EXECUTE IMMEDIATE l_sql_stmt
4704: INTO p_trxn_id, p_tangible_id
4709: WHEN NO_DATA_FOUND THEN
4710: p_trxn_id := 0;
4711: WHEN OTHERS THEN
4712: IF l_debug_level > 0 THEN
4713: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR IN FETCH_CURRENT_AUTH.' ) ;
4714: END IF;
4715: IF l_debug_level > 0 THEN
4716: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4717: END IF;
4712: IF l_debug_level > 0 THEN
4713: oe_debug_pub.add( 'OEXPVPMB: UNEXPECTED ERROR IN FETCH_CURRENT_AUTH.' ) ;
4714: END IF;
4715: IF l_debug_level > 0 THEN
4716: oe_debug_pub.add( 'OEXPVPMB: ERROR: '||SQLERRM ) ;
4717: END IF;
4718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4719: end;
4720:
4720:
4721: END IF;
4722:
4723: IF l_debug_level > 0 THEN
4724: oe_debug_pub.add( 'OEXPVPMB: FOUND TRXN WITH TANGBILE ID '||P_TANGIBLE_ID ) ;
4725: END IF;
4726:
4727: IF l_debug_level > 0 THEN
4728: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH CURRENT AUTHORIZATION' ) ;
4724: oe_debug_pub.add( 'OEXPVPMB: FOUND TRXN WITH TANGBILE ID '||P_TANGIBLE_ID ) ;
4725: END IF;
4726:
4727: IF l_debug_level > 0 THEN
4728: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH CURRENT AUTHORIZATION' ) ;
4729: END IF;
4730:
4731: END Fetch_Current_Auth;
4732:
4746: l_req_date DATE;
4747: l_ref_info VARCHAR2(80) :=TO_CHAR(p_header_rec.header_id);
4748: l_est_valid_days NUMBER := 0 ;
4749: --
4750: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4751: --
4752:
4753: BEGIN
4754:
4752:
4753: BEGIN
4754:
4755: IF l_debug_level > 0 THEN
4756: oe_debug_pub.add( 'OEXPVPMB: IN FETCH LAST AUTHORIZATION' ) ;
4757: END IF;
4758:
4759: /*
4760: ** We don't want to trigger following processing if user is
4762: */
4763: IF p_header_rec.credit_card_approval_code is null
4764: AND p_header_rec.credit_card_approval_date is not null THEN
4765: IF l_debug_level > 0 THEN
4766: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH LAST AUTH , AUTH PAYMENT ACTION' ) ;
4767: END IF;
4768: RETURN;
4769: END IF;
4770:
4769: END IF;
4770:
4771: -- Query the data related to last authorized trxn for this order
4772: IF l_debug_level > 0 THEN
4773: oe_debug_pub.add( 'OEXPVPMB: SQL FOR QUERYING THE LAST AUTHORIZED TRXN' ) ;
4774: END IF;
4775: --
4776: -- Create the query string
4777: l_sql_stmt := 'SELECT TRANSACTIONID, TANGIBLEID, AUTHCODE, UPDATEDATE, AMOUNT
4793: AND B.STATUS = 0)
4794: ORDER BY A.UPDATEDATE DESC)
4795: WHERE ROWNUM = 1';
4796:
4797: --OE_DEBUG_PUB.ADD(l_sql_stmt);
4798:
4799: begin
4800: EXECUTE IMMEDIATE l_sql_stmt
4801: INTO p_trxn_id, p_tangible_id, p_auth_code, p_trxn_date, p_amount
4812: -- have been taken through iPayment, but was not updated on the order header.
4813: l_est_valid_days := to_number( nvl(fnd_profile.value('ONT_EST_AUTH_VALID_DAYS'), '0') ) ;
4814:
4815: IF l_debug_level > 0 THEN
4816: oe_debug_pub.add( 'OEXPVPMB: FETCH_LAST_AUTH , ESTIMATED AUTH VALIDITY PERIOD : '|| L_EST_VALID_DAYS ) ;
4817: END IF;
4818:
4819: IF (p_trxn_date + l_est_valid_days > SYSDATE) THEN
4820:
4818:
4819: IF (p_trxn_date + l_est_valid_days > SYSDATE) THEN
4820:
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add( 'OEXPVPMB: VALID AUTH ALREADY EXISTS , TANGIBLEID '||P_TANGIBLE_ID ) ;
4823: END IF;
4824:
4825: ELSE
4826:
4824:
4825: ELSE
4826:
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add( 'OEXPVPMB: NO PREVIOUS AUTH EXISTS' ) ;
4829: END IF;
4830:
4831: p_trxn_id := 0;
4832: p_auth_code := null;
4836:
4837: END IF;
4838:
4839: IF l_debug_level > 0 THEN
4840: oe_debug_pub.add( 'OEXPVPMB: EXITING FETCH LAST AUTHORIZATION' ) ;
4841: END IF;
4842:
4843: END Fetch_Last_Auth;
4844:
4864: l_msg_data VARCHAR2(2000);
4865: l_control_rec OE_GLOBALS.Control_Rec_Type;
4866: l_return_status VARCHAR2(30);
4867: --
4868: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4869: --
4870: BEGIN
4871:
4872: SAVEPOINT Update_Authorization_Info;
4873:
4874: p_return_status := FND_API.G_RET_STS_SUCCESS;
4875:
4876: IF l_debug_level > 0 THEN
4877: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
4878: END IF;
4879:
4880: -- Set up the Header record
4881: OE_Header_Util.Lock_Row
4903: -- Header needs to be requeried, setting the flag to true
4904: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4905:
4906: IF l_debug_level > 0 THEN
4907: oe_debug_pub.add( 'OEXPVPMB: UPDATING FIELDS ON HEADER' ) ;
4908: END IF;
4909:
4910: update oe_order_headers
4911: set credit_card_approval_code = p_auth_code
4938: , x_index => l_notify_index
4939: , x_return_status => l_return_status);
4940:
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
4943: END IF;
4944: IF l_debug_level > 0 THEN
4945: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
4946: END IF;
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
4943: END IF;
4944: IF l_debug_level > 0 THEN
4945: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
4946: END IF;
4947:
4948: IF l_notify_index is not null then
4949: -- modify Global Picture
4959: OE_ORDER_UTIL.g_header_rec.last_update_date:=l_header_rec.last_update_date;
4960: OE_ORDER_UTIL.g_header_rec.lock_control:= l_header_rec.lock_control;
4961:
4962: IF l_debug_level > 0 THEN
4963: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
4964: END IF;
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
4967: END IF;
4962: IF l_debug_level > 0 THEN
4963: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
4964: END IF;
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
4967: END IF;
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
4970: END IF;
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
4967: END IF;
4968: IF l_debug_level > 0 THEN
4969: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
4970: END IF;
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4976: END IF;
4977:
4978: -- Process requests is TRUE so still need to call it, but don't need to notify
4979: IF l_debug_level > 0 THEN
4980: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
4981: END IF;
4982: OE_Order_PVT.Process_Requests_And_Notify
4983: ( p_process_requests => TRUE
4984: , p_notify => FALSE
4997:
4998: ELSE /* pre- pack H */
4999:
5000: IF l_debug_level > 0 THEN
5001: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
5002: END IF;
5003: OE_Order_PVT.Process_Requests_And_Notify
5004: ( p_process_requests => TRUE
5005: , p_notify => TRUE
5065: l_sql_stmt VARCHAR2(1000) := NULL;
5066: l_captured NUMBER;
5067: l_ref_info VARCHAR2(80) := TO_CHAR(p_header_id);
5068: --
5069: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5070: --
5071: BEGIN
5072:
5073: IF l_debug_level > 0 THEN
5070: --
5071: BEGIN
5072:
5073: IF l_debug_level > 0 THEN
5074: oe_debug_pub.add( 'OEXPVPMB: IN CAPTURED AMOUNT TOTAL' ) ;
5075: END IF;
5076:
5077: -- Create the query string
5078: IF l_debug_level > 0 THEN
5075: END IF;
5076:
5077: -- Create the query string
5078: IF l_debug_level > 0 THEN
5079: oe_debug_pub.add( 'OEXPVPMB: SQL STATEMENT TO FETCH TOTAL AMOUNT CAPTURED FOR THE ORDER' ) ;
5080: END IF;
5081: --
5082: l_sql_stmt := 'SELECT NVL(SUM(AMOUNT), 0)
5083: FROM IBY_TRANS_ALL_V
5085: AND STATUS = 0
5086: AND ((REQTYPE = ''ORAPMTCAPTURE'')
5087: OR (REQTYPE = ''ORAPMTREQ'' AND AUTHTYPE = ''AUTHCAPTURE''))';
5088:
5089: --OE_DEBUG_PUB.ADD(l_sql_stmt);
5090:
5091: begin
5092: EXECUTE IMMEDIATE l_sql_stmt
5093: INTO l_captured
5094: USING l_ref_info ;
5095: end;
5096:
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add( 'OEXPVPMB: EXITING CAPTURED AMOUNT TOTAL' ) ;
5099: END IF;
5100:
5101: RETURN (l_captured);
5102:
5180: x_ship_from_org_id NUMBER;
5181: x_ship_to_org_id NUMBER;
5182: --R12 CC Encryption
5183: --
5184: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5185: --
5186:
5187: -- get line level credit card payments.
5188: CURSOR line_payments_cur(p_header_id IN NUMBER) IS
5263: p_result_out := 'PASS' ;
5264: p_return_status := FND_API.G_RET_STS_SUCCESS;
5265:
5266: IF l_debug_level > 0 THEN
5267: oe_debug_pub.add( 'OEXPVPMB: IN AUTHORIZE MULTIPLE PAYMENTS' ) ;
5268: END IF;
5269:
5270: IF OE_GLOBALS.G_IPAYMENT_INSTALLED IS NULL THEN
5271:
5273: END IF;
5274:
5275: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
5276: IF l_debug_level > 0 THEN
5277: oe_debug_pub.add( 'OEXPVPMB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
5278: END IF;
5279: RETURN;
5280: END IF;
5281:
5286: --bug3524209
5287: IF(p_line_id IS NULL) THEN
5288: FOR c_payments_rec IN line_payments_cur(p_header_rec.header_id) LOOP
5289: IF l_debug_level > 0 THEN
5290: oe_debug_pub.add( 'OEXPVPMB: In line_payments_cur', 5 ) ;
5291: END IF;
5292: --R12 CC Encryption
5293: l_payments_tbl(l_count).line_id := c_payments_rec.line_id;
5294: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5310: END LOOP;
5311:
5312: FOR c_payments_rec IN header_payments_cur(p_header_rec.header_id) LOOP
5313: IF l_debug_level > 0 THEN
5314: oe_debug_pub.add( 'OEXPVPMB: In header_payments_cur', 5 ) ;
5315: END IF;
5316: l_payments_tbl(l_count).payment_number := c_payments_rec.payment_number;
5317: --R12 CC Encryption
5318: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5336: --bug3524209 start
5337: ELSE
5338: FOR c_payments_rec IN line_payments_cur_for_line(p_line_id, p_header_rec.header_id) LOOP
5339: IF l_debug_level > 0 THEN
5340: oe_debug_pub.add( 'OEXPVPMB: In line_payments_cur_for_line', 5 ) ;
5341: END IF;
5342: l_payments_tbl(l_count).line_id := c_payments_rec.line_id;
5343: --R12 CC Encryption
5344: l_payments_tbl(l_count).trxn_extension_id := c_payments_rec.trxn_extension_id;
5363: END IF;
5364: --bug3524209 end
5365:
5366: IF l_debug_level > 0 THEN
5367: oe_debug_pub.add( 'OEXPVPMB.pls: Total count l_payment_tbl is : '||l_payments_tbl.COUNT);
5368: END IF;
5369:
5370: I := l_payments_tbl.FIRST;
5371: WHILE I IS NOT NULL LOOP
5369:
5370: I := l_payments_tbl.FIRST;
5371: WHILE I IS NOT NULL LOOP
5372: IF l_debug_level > 0 THEN
5373: oe_debug_pub.add('OEXPVPMB: Looping through payment records: '||I, 3);
5374: END IF;
5375: l_result_status := 'PASS' ;
5376: l_amount_to_authorize := 0;
5377: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5376: l_amount_to_authorize := 0;
5377: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5378: -- place on line level CC authorization hold.
5379: IF l_debug_level > 0 THEN
5380: oe_debug_pub.add('OEXPVPMB: processing authorization for line: '||l_payments_tbl(I).line_id, 3);
5381: END IF;
5382: IF p_calling_action IS NOT NULL
5383: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5384: AND nvl(l_payments_tbl(I).defer_payment_processing_flag, 'N') = 'Y' THEN
5382: IF p_calling_action IS NOT NULL
5383: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5384: AND nvl(l_payments_tbl(I).defer_payment_processing_flag, 'N') = 'Y' THEN
5385: IF l_debug_level > 0 THEN
5386: oe_debug_pub.add( 'OEXPVPMB: place order on Defer Payment Authorization hold for line: '||l_payments_tbl(I).line_id , 1 ) ;
5387: END IF;
5388: OE_Verify_Payment_PUB.Apply_Verify_Line_Hold
5389: ( p_header_id => p_header_rec.header_id
5390: , p_line_id => l_payments_tbl(I).line_id
5428: --bug3225795 end
5429:
5430:
5431: IF l_debug_level > 0 THEN
5432: oe_debug_pub.add('OEXPVPMB: amount to authorize for line level is: '||l_amount_to_authorize, 3);
5433: END IF;
5434: ELSE
5435: -- header level authorization.
5436: IF l_debug_level > 0 THEN
5433: END IF;
5434: ELSE
5435: -- header level authorization.
5436: IF l_debug_level > 0 THEN
5437: oe_debug_pub.add('OEXPVPMB: processing header level authorization.', 3);
5438: END IF;
5439: IF p_calling_action IS NOT NULL
5440: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5441: AND nvl(l_payments_tbl(I).defer_payment_processing_flag,'N') = 'Y' THEN
5439: IF p_calling_action IS NOT NULL
5440: AND p_calling_action NOT IN ('SHIPPING','PACKING' ,'PICKING')
5441: AND nvl(l_payments_tbl(I).defer_payment_processing_flag,'N') = 'Y' THEN
5442: IF l_debug_level > 0 THEN
5443: oe_debug_pub.add( 'OEXPVPMB: place order on Defer Payment Authorization hold for header: '||l_payments_tbl(I).header_id , 1 ) ;
5444: END IF;
5445:
5446: -- place on header level CC authorization hold.
5447: OE_Verify_Payment_PUB.Apply_Verify_Hold
5491: END IF;
5492: --bug3225795 end
5493:
5494: IF l_debug_level > 0 THEN
5495: oe_debug_pub.add('In Authorize_Multipayments: l_prepaid_total is : '||l_prepaid_total);
5496: END IF;
5497:
5498: -- Get the line total amount paid with payments other than the main one.
5499: FOR c_line_rec IN lines_cur(p_header_rec.header_id) LOOP
5516: ,p_to_exclude_commitment => 'Y'
5517: );
5518: --bug3225795 end
5519: IF l_debug_level > 0 THEN
5520: oe_debug_pub.add('In lines_cur: line_id is : '||c_line_rec.line_id);
5521: --bug3225795
5522: oe_debug_pub.add('In lines_cur: l_line_total_exc_comt is : '||l_line_total_exc_comt );
5523: END IF;
5524: END LOOP;
5518: --bug3225795 end
5519: IF l_debug_level > 0 THEN
5520: oe_debug_pub.add('In lines_cur: line_id is : '||c_line_rec.line_id);
5521: --bug3225795
5522: oe_debug_pub.add('In lines_cur: l_line_total_exc_comt is : '||l_line_total_exc_comt );
5523: END IF;
5524: END LOOP;
5525:
5526: IF l_debug_level > 0 THEN
5523: END IF;
5524: END LOOP;
5525:
5526: IF l_debug_level > 0 THEN
5527: oe_debug_pub.add('In Authorize_Multipayments: l_line_total to exclude is : '||l_line_total_exc_comt);
5528: END IF;
5529:
5530: -- commitment applied amount has already been taken out from outbound total,
5531: -- no need to exclude commitment again here.
5546: p_to_exclude_commitment => 'Y');
5547: --bug3225795 end
5548:
5549: IF l_debug_level > 0 THEN
5550: oe_debug_pub.add('In Authorize_Multipayments: l_outbound_total is : '||l_outbound_total);
5551: END IF;
5552:
5553: --pnpl The Outbound_Order_Total takes care of returning the proper value depending on the value in OE_PREPAYMENT_UTIL.Get_Installment_Options
5554: l_amount_to_authorize := l_outbound_total - nvl(l_balance_on_prepay,0) - nvl(l_line_total_exc_comt,0);
5556:
5557: END IF; -- end of header level or line level authorization.
5558:
5559: IF l_debug_level > 0 THEN
5560: oe_debug_pub.add('OEXPVPMB: amount to authorize is : '||l_amount_to_authorize);
5561: END IF;
5562:
5563: -- For each order line call Check Reauthorize Order to find out
5564: -- if Reauthorization is required
5562:
5563: -- For each order line call Check Reauthorize Order to find out
5564: -- if Reauthorization is required
5565: IF l_debug_level > 0 THEN
5566: oe_debug_pub.add( 'OEXPVPMB.pls: Before Checking Reauthorize Flag for Multiple Payments.');
5567: END IF;
5568:
5569: IF l_payments_tbl(I).line_id IS NOT NULL THEN
5570: BEGIN
5586: END;
5587: END IF;
5588:
5589: IF l_debug_level > 0 THEN --bug 5209584
5590: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5591: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5592: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5593: END IF;
5594:
5587: END IF;
5588:
5589: IF l_debug_level > 0 THEN --bug 5209584
5590: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5591: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5592: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5593: END IF;
5594:
5595: OE_Verify_Payment_PUB.Check_ReAuth_for_MultiPmnts
5588:
5589: IF l_debug_level > 0 THEN --bug 5209584
5590: oe_debug_pub.add('OEXPVPMB: Header ID : '||p_header_rec.header_id, 3);
5591: oe_debug_pub.add('OEXPVPMB: Line ID : '||l_payments_tbl(I).line_id, 3);
5592: oe_debug_pub.add('OEXPVPMB: Payment Number : '||l_payments_tbl(I).payment_number, 3);
5593: END IF;
5594:
5595: OE_Verify_Payment_PUB.Check_ReAuth_for_MultiPmnts
5596: ( p_credit_card_approval_code => l_payments_tbl(I).credit_card_approval_code
5608: );
5609:
5610:
5611: IF l_debug_level > 0 THEN
5612: oe_debug_pub.add( 'OEXPVPMB: for Multiple Payments reauthorize Flag is set to : '||L_REAUTHORIZE_FLAG) ;
5613: END IF;
5614:
5615: -- Check Reauthorize Flag and proceed
5616: IF l_reauthorize_flag = 'N' THEN
5615: -- Check Reauthorize Flag and proceed
5616: IF l_reauthorize_flag = 'N' THEN
5617:
5618: IF l_debug_level > 0 THEN
5619: oe_debug_pub.add( 'OEXPVPMB: NO NEED TO REAUTHORIZE' ) ;
5620: END IF;
5621:
5622: -- Check if Hold already exists on this order
5623: IF l_debug_level > 0 THEN
5620: END IF;
5621:
5622: -- Check if Hold already exists on this order
5623: IF l_debug_level > 0 THEN
5624: oe_debug_pub.add( 'OEXPVPMB: CHECK IF ORDER ON RISK HOLD' ) ;
5625: END IF;
5626: --
5627:
5628: IF l_payments_tbl(I).line_id IS NULL THEN
5656: END IF;
5657:
5658: IF l_hold_result = FND_API.G_TRUE THEN
5659: IF l_debug_level > 0 THEN
5660: oe_debug_pub.add( 'OEXPVPMB: ORDER IS ON RISK HOLD' ) ;
5661: END IF;
5662: l_result_status := 'RISK';
5663: END IF;
5664:
5677:
5678:
5679: -- Fetch Payment Method Name and Merchant Id based on the Method ID.
5680: IF l_debug_level > 0 THEN
5681: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING GET PAY METHOD INFO' ) ;
5682: END IF;
5683:
5684: IF l_payments_tbl(I).receipt_method_id IS NOT NULL THEN
5685: l_pay_method_id := l_payments_tbl(I).receipt_method_id;
5708: , p_merchant_ref => l_payee_id
5709: ) ;
5710:
5711: IF l_debug_level > 0 THEN
5712: oe_debug_pub.add( 'OEXPVPMB: receipt method id is: '|| l_payments_tbl(I).receipt_method_id ) ;
5713: END IF;
5714:
5715: -- If Merchant Id is invalid then set the out result to FAIL and return
5716: IF l_debug_level > 0 THEN
5713: END IF;
5714:
5715: -- If Merchant Id is invalid then set the out result to FAIL and return
5716: IF l_debug_level > 0 THEN
5717: oe_debug_pub.add( 'OEXPVPMB: BEFORE CHECKING THE PAYEE ID' ) ;
5718: END IF;
5719:
5720: -- Commenting the following IF condition for the sake of bug6532165
5721:
5738: -- RETURN;
5739: END IF;
5740:
5741: IF l_debug_level > 0 THEN
5742: oe_debug_pub.add( 'OEXPVPMB: PAYEE ID IS : '|| L_PAYEE_ID ) ;
5743: END IF;
5744:
5745:
5746: -- move this piece of code to above before calling check_reauth_for_multipmts
5771: - nvl( to_number(fnd_profile.value('ONT_DAYS_TO_BACKDATE_BANK_ACCT')), 0);*/
5772: -- IF p_line_id is null then
5773: IF l_payments_tbl(I).line_id IS NULL THEN
5774: IF l_debug_level > 0 THEN
5775: oe_debug_pub.add('Before getting trxn id'||l_payments_tbl(I).line_id||' and '||p_header_rec.header_id);
5776: END IF;
5777: BEGIN
5778: select trxn_extension_id
5779: into l_trxn_extension_id
5781: WHERE HEADER_ID = p_header_rec.header_id and line_id is null
5782: AND nvl(payment_collection_event,'PREPAY') = 'INVOICE'; --bug 5020737
5783: EXCEPTION WHEN NO_DATA_FOUND THEN
5784: IF l_debug_level > 0 THEN
5785: oe_debug_pub.add('Trxn extension id is null.....');
5786: END IF;
5787: END;
5788: x_invoice_to_org_id := OE_Order_Cache.g_invoice_to_rec.org_id;
5789: x_ship_from_org_id := OE_Order_Cache.g_ship_to_rec.ship_from_org_id; --Verify
5790: x_ship_to_org_id := OE_Order_Cache.g_ship_to_rec.org_id;
5791: ELSE
5792: BEGIN
5793: IF l_debug_level > 0 THEN
5794: oe_debug_pub.add('Before getting trxn id else'||l_payments_tbl(I).line_id||' and '||p_header_rec.header_id);
5795: END IF;
5796: select trxn_extension_id
5797: into l_trxn_extension_id
5798: FROM OE_PAYMENTS
5805: FROM oe_order_lines_all
5806: WHERE line_id = l_payments_tbl(I).line_id;
5807: EXCEPTION WHEN NO_DATA_FOUND THEN
5808: IF l_debug_level > 0 THEN
5809: oe_debug_pub.add('Trxn extension id....'||nvl(l_trxn_extension_id,'0'));
5810: END IF;
5811: END;
5812: END IF;
5813:
5812: END IF;
5813:
5814: -- Check For all Required Attributes
5815: IF l_debug_level > 0 THEN
5816: oe_debug_pub.add( 'OEXPVPMB: Checking required attributes for multiple payments.' ) ;
5817: END IF;
5818:
5819: IF l_invoice_to_org_id is NULL THEN
5820: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
5819: IF l_invoice_to_org_id is NULL THEN
5820: FND_MESSAGE.SET_NAME('ONT','OE_VPM_INV_TO_REQUIRED');
5821: OE_MSG_PUB.ADD;
5822: IF l_debug_level > 0 THEN
5823: oe_debug_pub.add( 'OEXPVPMB: INVOICE_TO_ORG_ID IS REQUIRED' ) ;
5824: END IF;
5825: l_result_status := 'FAIL';
5826: goto Update_Verify_Hold;
5827: -- return;
5828: ELSIF l_payments_tbl(I).trxn_extension_id is NULL THEN --R12 CC Encryption
5829: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_NUM_REQUIRED');
5830: OE_MSG_PUB.ADD;
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_NUMBER IS REQUIRED' ) ;
5833: END IF;
5834: l_result_status := 'FAIL';
5835: goto Update_Verify_Hold;
5836: -- return;
5840: ELSIF l_payments_tbl(I).credit_card_expiration_date is NULL THEN
5841: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_EXP_DT_REQUIRED');
5842: OE_MSG_PUB.ADD;
5843: IF l_debug_level > 0 THEN
5844: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_EXPIRATION_DATE IS REQUIRED' ) ;
5845: END IF;
5846: l_result_status := 'FAIL';
5847: goto Update_Verify_Hold;
5848: -- return;
5849: ELSIF l_payments_tbl(I).credit_card_holder_name is NULL THEN
5850: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_HOLDER_REQUIRED');
5851: OE_MSG_PUB.ADD;
5852: IF l_debug_level > 0 THEN
5853: oe_debug_pub.add( 'OEXPVPMB: CREDIT_CARD_HOLDER_NAME IS REQUIRED' ) ;
5854: END IF;
5855: l_result_status := 'FAIL';
5856: goto Update_Verify_Hold;
5857: -- return;
5860: --R12 CC Encryption
5861:
5862: -- Hour and Minutes after Mid Night in HH24:MM format
5863: IF l_debug_level > 0 THEN
5864: oe_debug_pub.add( 'OEXPVPMB: FETCHING HOUR AND MINUTES AFTER MIDNIGHT AS TIME OF PURCHASE' ) ;
5865: END IF;
5866: --
5867: SELECT TO_CHAR(sysdate, 'HH24:MI')
5868: INTO l_time_of_purchase
5868: INTO l_time_of_purchase
5869: FROM DUAL ;
5870:
5871: IF l_debug_level > 0 THEN
5872: oe_debug_pub.add( 'OEXPVPMB: TIME OF PURCHASE AFTER MIDNIGHT HH24:MI IS : '|| L_TIME_OF_PURCHASE ) ;
5873: END IF;
5874:
5875: Begin
5876: /*Select party_site.party_id, acct_site.cust_account_id
5897: Null;
5898: End;
5899:
5900: IF l_debug_level > 0 THEN
5901: oe_debug_pub.add('Amount populated...'||l_amount_to_authorize);
5902: oe_debug_pub.add('account site id'||x_invoice_to_org_id);
5903: END IF;
5904:
5905: l_payer.payment_function := l_payment_function ;
5898: End;
5899:
5900: IF l_debug_level > 0 THEN
5901: oe_debug_pub.add('Amount populated...'||l_amount_to_authorize);
5902: oe_debug_pub.add('account site id'||x_invoice_to_org_id);
5903: END IF;
5904:
5905: l_payer.payment_function := l_payment_function ;
5906: l_payer.party_id := l_party_id;
5920: l_payee_rec.org_id := p_header_rec.org_id;
5921: l_payee_rec.org_type := 'OPERATING_UNIT';
5922:
5923: IF l_debug_level >0 THEN
5924: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5921: l_payee_rec.org_type := 'OPERATING_UNIT';
5922:
5923: IF l_debug_level >0 THEN
5924: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5922:
5923: IF l_debug_level >0 THEN
5924: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5923: IF l_debug_level >0 THEN
5924: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5924: oe_debug_pub.add('Before call to create auth trxn_extension_id is: '||l_trxn_extension_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5925: oe_debug_pub.add('Payee id is...'||l_payee_id);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5926: oe_debug_pub.add('Payer context values ...');
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5927: oe_debug_pub.add('payment function'||l_payment_function);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5928: oe_debug_pub.add('l_payer.party_id'||l_party_id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5929: oe_debug_pub.add('l_payer.org_type'||l_org_type);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5937: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
5930: oe_debug_pub.add('l_payer.org_id'||p_header_rec.sold_to_org_id);
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5937: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
5938: END IF;
5931: oe_debug_pub.add('l_payer.account_site_id'||l_invoice_to_org_id);
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5937: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
5938: END IF;
5939:
5932: oe_debug_pub.add('Cust acct id'||l_cust_account_id);
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5937: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
5938: END IF;
5939:
5940:
5933: oe_debug_pub.add('amount is '||l_amount.value);
5934: oe_debug_pub.add('currency is '||l_amount.currency_code);
5935: oe_debug_pub.add('risk eval flag is '||l_auth_attribs.RiskEval_Enable_Flag);
5936: oe_debug_pub.add('ship from is '||l_auth_attribs.shipFrom_SiteUse_Id);
5937: oe_debug_pub.add('ship to is '||l_auth_attribs.shipTo_SiteUse_Id);
5938: END IF;
5939:
5940:
5941: IBY_Fndcpt_Trxn_Pub.Create_Authorization
5959: IF l_return_status = FND_API.G_RET_STS_SUCCESS AND
5960: l_response.result_code = 'AUTH_SUCCESS' THEN
5961:
5962: IF l_debug_level >0 THEN
5963: oe_debug_pub.add('Authorization successful....');
5964: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag);
5965: END IF;
5966:
5967: -- moved release hold code here before applying risk hold for bug 4543147
5960: l_response.result_code = 'AUTH_SUCCESS' THEN
5961:
5962: IF l_debug_level >0 THEN
5963: oe_debug_pub.add('Authorization successful....');
5964: oe_debug_pub.add('Risk flag Value :'||p_risk_eval_flag);
5965: END IF;
5966:
5967: -- moved release hold code here before applying risk hold for bug 4543147
5968: -- Release Any existing CC Holds
5995: --Risk Score evaluation -- Bug 6805953
5996: IF nvl(p_risk_eval_flag, 'Y') = 'Y' THEN --change flag to p_risk_eval_flag l_RiskEval_Enable_Flag verify
5997: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6000: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6001: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6002: END IF;
6003: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
5996: IF nvl(p_risk_eval_flag, 'Y') = 'Y' THEN --change flag to p_risk_eval_flag l_RiskEval_Enable_Flag verify
5997: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6000: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6001: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6002: END IF;
6003: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6004: IF L_auth_result.risk_result.risky_flag = 'Y' Then
5997: -- l_risk_threshold := oe_sys_parameters.value('RISK_FACTOR_THRESHOLD');
5998: IF l_debug_level > 0 THEN
5999: oe_debug_pub.add('Risk threshold value....'||L_auth_result.risk_result.Risk_Threshold_Val);
6000: oe_debug_pub.add('Risk score...'||L_auth_result.risk_result.risk_score);
6001: oe_debug_pub.add('Risky Flag : ' || L_auth_result.risk_result.risky_flag);
6002: END IF;
6003: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6004: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6005: IF l_debug_level >0 THEN
6002: END IF;
6003: -- IF L_auth_result.risk_result.risk_score > l_risk_threshold THEN
6004: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6005: IF l_debug_level >0 THEN
6006: oe_debug_pub.add('Risk threshold exceeded...!');
6007: END IF;
6008:
6009: --comm rej IF nvl(p_reject_on_risk_failure, 'N') = 'N' THEN --R12 CVV2
6010: -- the value for parameter param3 is Hold, then
6054: FND_MESSAGE.SET_NAME('ONT','ONT_CC_RISK_HOLD_APPLIED');
6055: OE_MSG_PUB.ADD;
6056: RETURN;
6057:
6058: oe_debug_pub.add('after commented message');
6059: /*comm rej ELSE
6060: IF l_debug_level >0 THEN
6061: oe_debug_pub.add('Risk validation failed...!');
6062: END IF;
6057:
6058: oe_debug_pub.add('after commented message');
6059: /*comm rej ELSE
6060: IF l_debug_level >0 THEN
6061: oe_debug_pub.add('Risk validation failed...!');
6062: END IF;
6063: -- the value is reject, then
6064: FND_MESSAGE.SET_NAME('ONT','ONT_RISK_VALIDATION_FAILED');
6065: OE_MSG_PUB.ADD;
6067: END IF; --Reject flag
6068: comm rej */
6069: END IF; -- risk score > threshold
6070: END IF; --risk eval flag = y
6071: oe_debug_pub.add('before uncommented message');
6072: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_AUTH_SUCCESS');
6073: FND_MESSAGE.SET_TOKEN('AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6074: OE_MSG_PUB.ADD;
6075: oe_debug_pub.add('after uncommented message');
6071: oe_debug_pub.add('before uncommented message');
6072: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_AUTH_SUCCESS');
6073: FND_MESSAGE.SET_TOKEN('AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6074: OE_MSG_PUB.ADD;
6075: oe_debug_pub.add('after uncommented message');
6076: IF l_debug_level >0 THEN
6077: oe_debug_pub.add('After risk evaluation...!');
6078: END IF;
6079:
6073: FND_MESSAGE.SET_TOKEN('AMOUNT',TO_CHAR(l_amount_to_authorize,l_format_mask));
6074: OE_MSG_PUB.ADD;
6075: oe_debug_pub.add('after uncommented message');
6076: IF l_debug_level >0 THEN
6077: oe_debug_pub.add('After risk evaluation...!');
6078: END IF;
6079:
6080: -- update the payment amount field on order header, this is for backward compatibility
6081: -- we used to show the authorized amount on order header. We have to update header
6100: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
6101: l_response.result_code = 'SECURITY_CODE_WARNING' THEN
6102:
6103: IF l_debug_level > 0 THEN
6104: oe_debug_pub.add('Security code warning...');
6105: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6106: oe_debug_pub.add('Result code...'||l_Response.result_code);
6107: END IF;
6108:
6101: l_response.result_code = 'SECURITY_CODE_WARNING' THEN
6102:
6103: IF l_debug_level > 0 THEN
6104: oe_debug_pub.add('Security code warning...');
6105: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6106: oe_debug_pub.add('Result code...'||l_Response.result_code);
6107: END IF;
6108:
6109:
6102:
6103: IF l_debug_level > 0 THEN
6104: oe_debug_pub.add('Security code warning...');
6105: oe_debug_pub.add('Message returned by payments...'||l_response.result_message);
6106: oe_debug_pub.add('Result code...'||l_Response.result_code);
6107: END IF;
6108:
6109:
6110: IF l_payments_tbl(I).line_id IS NULL THEN
6169: /* ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS AND
6170: l_response.result_code = 'RISK_THRESHOLD_EXCEEDED' THEN
6171:
6172: IF l_debug_level > 0 THEN
6173: oe_debug_pub.add('Risk threshold exceeded...');
6174: oe_debug_pub.add('Value of risky flag...'||L_auth_result.risk_result.risky_flag);
6175: END IF;
6176:
6177: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6170: l_response.result_code = 'RISK_THRESHOLD_EXCEEDED' THEN
6171:
6172: IF l_debug_level > 0 THEN
6173: oe_debug_pub.add('Risk threshold exceeded...');
6174: oe_debug_pub.add('Value of risky flag...'||L_auth_result.risk_result.risky_flag);
6175: END IF;
6176:
6177: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6178: IF l_debug_level >0 THEN
6175: END IF;
6176:
6177: IF L_auth_result.risk_result.risky_flag = 'Y' Then
6178: IF l_debug_level >0 THEN
6179: oe_debug_pub.add('Risk threshold exceeded...inside risky flag!');
6180: END IF;
6181:
6182: IF l_payments_tbl(I).line_id IS NULL THEN
6183: IF NVL(p_calling_action, 'BOOKING') IN ('SHIPPING','PACKING','PICKING')
6226: RETURN;
6227: END IF;*/
6228: ELSE
6229: IF l_debug_level >0 THEN
6230: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6231: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6232: oe_debug_pub.add('Message....'||l_response.result_message);
6233: oe_debug_pub.add('SQLERRM '||sqlerrm);
6234: END IF;
6227: END IF;*/
6228: ELSE
6229: IF l_debug_level >0 THEN
6230: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6231: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6232: oe_debug_pub.add('Message....'||l_response.result_message);
6233: oe_debug_pub.add('SQLERRM '||sqlerrm);
6234: END IF;
6235:
6228: ELSE
6229: IF l_debug_level >0 THEN
6230: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6231: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6232: oe_debug_pub.add('Message....'||l_response.result_message);
6233: oe_debug_pub.add('SQLERRM '||sqlerrm);
6234: END IF;
6235:
6236: l_result_status := 'FAIL';
6229: IF l_debug_level >0 THEN
6230: oe_debug_pub.add('Authorization failure...!'||l_return_status);
6231: oe_debug_pub.add('l_response.result_code'||l_response.result_code);
6232: oe_debug_pub.add('Message....'||l_response.result_message);
6233: oe_debug_pub.add('SQLERRM '||sqlerrm);
6234: END IF;
6235:
6236: l_result_status := 'FAIL';
6237:
6304:
6305: END IF; --Return status of create_auth
6306:
6307: /*IF l_debug_level > 0 THEN
6308: oe_debug_pub.add( ' ' ) ;
6309: END IF;
6310: IF l_debug_level > 0 THEN
6311: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
6312: END IF;
6307: /*IF l_debug_level > 0 THEN
6308: oe_debug_pub.add( ' ' ) ;
6309: END IF;
6310: IF l_debug_level > 0 THEN
6311: oe_debug_pub.add( 'OEXPVPMB: AUTHORIZATION SUCCEEDED ...' ) ;
6312: END IF;
6313:
6314: --For bug 3571485
6315: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
6322:
6323: <
6324: -- Update Payment Amount and Authorization Code and DATE
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6327: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6328: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6329: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6330: END IF;
6323: <
6324: -- Update Payment Amount and Authorization Code and DATE
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6327: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6328: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6329: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6330: END IF;
6331: --
6324: -- Update Payment Amount and Authorization Code and DATE
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6327: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6328: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6329: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6330: END IF;
6331: --
6332:
6325: IF l_debug_level > 0 THEN
6326: oe_debug_pub.add( 'OEXPVPMB: BEFORE UPDATING AUTHORIZATION INFO FOR MULTIPLE PAYMENT.' ) ;
6327: oe_debug_pub.add( 'OEXPVPMB: l_amount_to_authorize is: '||l_amount_to_authorize ) ;
6328: oe_debug_pub.add( 'OEXPVPMB: l_auth_code is: '||l_auth_code ) ;
6329: oe_debug_pub.add( 'OEXPVPMB: payment_number is: '||l_payments_tbl(I).payment_number ) ;
6330: END IF;
6331: --
6332:
6333: /*
6355: RETURN;
6356: END IF;
6357:
6358: IF l_debug_level > 0 THEN
6359: oe_debug_pub.add( 'OEXPVPMB: RISK RESPONSE INCLUDED : '||L_RISKRESP_INCLUDED ) ;
6360: END IF;
6361:
6362: IF l_riskresp_included = 'YES' THEN
6363: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
6362: IF l_riskresp_included = 'YES' THEN
6363: l_risk_threshold := TO_NUMBER(NVL(fnd_profile.value('ONT_RISK_FAC_THRESHOLD'), '0')) ;
6364:
6365: IF l_debug_level > 0 THEN
6366: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
6367: END IF;
6368: IF l_debug_level > 0 THEN
6369: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
6370: END IF;
6365: IF l_debug_level > 0 THEN
6366: oe_debug_pub.add( 'OEXPVPMB: RISK SCORE : '||L_RISK_SCORE ) ;
6367: END IF;
6368: IF l_debug_level > 0 THEN
6369: oe_debug_pub.add( 'OEXPVPMB: OM RISK FACTOR THRESHOLD : '||L_RISK_THRESHOLD ) ;
6370: END IF;
6371:
6372: -- If Transaction is Risky, then apply credit card Risk hold.
6373: IF l_risk_score > l_risk_threshold THEN
6372: -- If Transaction is Risky, then apply credit card Risk hold.
6373: IF l_risk_score > l_risk_threshold THEN
6374:
6375: IF l_debug_level > 0 THEN
6376: oe_debug_pub.add( 'OEXPVPMB: TRANSACTION WAS RISKY' ) ;
6377: END IF;
6378: -- Set the Out result to Risk to indicate a risky Transaction
6379: p_result_out := 'RISK' ;
6380: RETURN;
6390: AND l_return_status = FND_API.G_RET_STS_SUCCESS THEN
6391:
6392: -- Release Any existing CC Holds
6393: IF l_debug_level > 0 THEN
6394: oe_debug_pub.add( 'OEXPVPMB: RELEASING LINE LEVEL CREDIT CARD HOLDS' ) ;
6395: END IF;
6396: --
6397:
6398: IF l_payments_tbl(I).line_id IS NULL THEN
6424: ELSIF l_result_status = 'RISK' THEN
6425:
6426: -- Apply Risk Hold on the Order
6427: IF l_debug_level > 0 THEN
6428: oe_debug_pub.add( 'OEXPVPMB: APPLYING LINE LEVEL CC RISK HOLD' ) ;
6429: END IF;
6430: --
6431: IF l_payments_tbl(I).line_id IS NULL THEN
6432: OE_Verify_Payment_PUB.Apply_Verify_Hold
6456: ELSE -- Failed
6457:
6458: -- Apply CC Auth Failure Hold on the Order
6459: IF l_debug_level > 0 THEN
6460: oe_debug_pub.add( 'OEXPVPMB: APPLYING LINE LEVEL CC AUTH FAILURE HOLD' ) ;
6461: END IF;
6462: --
6463:
6464: IF l_payments_tbl(I).line_id IS NULL THEN
6497: EXCEPTION
6498: WHEN FND_API.G_EXC_ERROR THEN
6499: l_err_message := SQLERRM;
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add('Create_Authorization error....exc');
6502: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6503: oe_debug_pub.add('Result code'||l_response.result_code);
6504: oe_debug_pub.add('Error'||l_err_message);
6505: END IF;
6498: WHEN FND_API.G_EXC_ERROR THEN
6499: l_err_message := SQLERRM;
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add('Create_Authorization error....exc');
6502: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6503: oe_debug_pub.add('Result code'||l_response.result_code);
6504: oe_debug_pub.add('Error'||l_err_message);
6505: END IF;
6506:
6499: l_err_message := SQLERRM;
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add('Create_Authorization error....exc');
6502: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6503: oe_debug_pub.add('Result code'||l_response.result_code);
6504: oe_debug_pub.add('Error'||l_err_message);
6505: END IF;
6506:
6507: p_return_status := FND_API.G_RET_STS_ERROR;
6500: IF l_debug_level > 0 THEN
6501: oe_debug_pub.add('Create_Authorization error....exc');
6502: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6503: oe_debug_pub.add('Result code'||l_response.result_code);
6504: oe_debug_pub.add('Error'||l_err_message);
6505: END IF;
6506:
6507: p_return_status := FND_API.G_RET_STS_ERROR;
6508: OE_MSG_PUB.Count_And_Get
6512:
6513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6514: l_err_message := SQLERRM;
6515: IF l_debug_level > 0 THEN
6516: oe_debug_pub.add('Create_Authorization error....unxc');
6517: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6518: oe_debug_pub.add('Result code'||l_response.result_code);
6519: oe_debug_pub.add('f Error'||l_err_message);
6520: END IF;
6513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6514: l_err_message := SQLERRM;
6515: IF l_debug_level > 0 THEN
6516: oe_debug_pub.add('Create_Authorization error....unxc');
6517: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6518: oe_debug_pub.add('Result code'||l_response.result_code);
6519: oe_debug_pub.add('f Error'||l_err_message);
6520: END IF;
6521:
6514: l_err_message := SQLERRM;
6515: IF l_debug_level > 0 THEN
6516: oe_debug_pub.add('Create_Authorization error....unxc');
6517: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6518: oe_debug_pub.add('Result code'||l_response.result_code);
6519: oe_debug_pub.add('f Error'||l_err_message);
6520: END IF;
6521:
6522: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6515: IF l_debug_level > 0 THEN
6516: oe_debug_pub.add('Create_Authorization error....unxc');
6517: oe_debug_pub.add('After call to Create_Authorization error'||l_return_status);
6518: oe_debug_pub.add('Result code'||l_response.result_code);
6519: oe_debug_pub.add('f Error'||l_err_message);
6520: END IF;
6521:
6522: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6523: OE_MSG_PUB.Count_And_Get
6526: );
6527:
6528: WHEN OTHERS THEN
6529: l_err_message := SQLERRM;
6530: oe_debug_pub.add('Returned error others part in Auth multi payments...'||l_err_message);
6531:
6532: p_result_out := 'FAIL';
6533: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6534:
6572: l_msg_data VARCHAR2(2000);
6573: l_trxn_extension_id NUMBER;
6574: l_effective_auth_amount NUMBER;
6575: --
6576: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6577: --
6578:
6579: BEGIN
6580:
6579: BEGIN
6580:
6581: x_return_status := FND_API.G_RET_STS_SUCCESS;
6582: IF l_debug_level > 0 THEN
6583: oe_debug_pub.add( 'OEXPVPMB: IN CHECK REAUTHORIZE ORDER' ) ;
6584: END IF;
6585:
6586: l_reauthorize_flag := 'N' ;
6587:
6601: END;
6602:
6603: IF l_settled_flag = 'Y' THEN
6604: IF l_debug_level > 0 THEN
6605: oe_debug_pub.add( 'OEXPVPMB: authorization has been settled, need to re-authorize.');
6606: END IF;
6607:
6608: -- need to create a new payment transaction extension as the old one has been settled.
6609: Create_New_Payment_Trxn (p_trxn_extension_id => p_trxn_extension_id,
6655: IF nvl(l_effective_auth_amount,0) = 0 THEN
6656: l_reauthorize_flag := 'Y';
6657: p_reauthorize_out := l_reauthorize_flag ;
6658: IF l_debug_level > 0 THEN
6659: oe_debug_pub.add( 'OEXPVPMB: authorization has either expired or not exists.');
6660: END IF;
6661: END IF;
6662:
6663: IF l_reauthorize_flag = 'Y' THEN
6700:
6701: END IF; -- IF Outbound Total
6702:
6703: IF l_debug_level > 0 THEN
6704: oe_debug_pub.add( 'OEXPVPMB: reauthorize flag is: '||l_reauthorize_flag);
6705: END IF;
6706:
6707: p_reauthorize_out := l_reauthorize_flag ;
6708:
6755: l_return_value NUMBER;
6756: --pnpl end
6757:
6758: --
6759: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6760: --
6761: BEGIN
6762:
6763: IF l_debug_level > 0 THEN
6760: --
6761: BEGIN
6762:
6763: IF l_debug_level > 0 THEN
6764: oe_debug_pub.add( 'ENTERING OE_Verify_Payment_Pub.Get_Line_Total.' , 1 ) ;
6765: END IF;
6766:
6767: -- Select the Tax Value and Outbound Extended Price
6768: BEGIN
6793: l_extended_price := 0;
6794: END;
6795:
6796: IF l_debug_level > 0 THEN
6797: oe_debug_pub.add( 'In Get_Line_Total, l_extended_price is: '||l_extended_price , 3 ) ;
6798: END IF;
6799:
6800: -- Select the committment applied amount
6801: BEGIN
6840: END;
6841:
6842:
6843: IF l_debug_level > 0 THEN
6844: oe_debug_pub.add( 'In Get_Line_Total, commitment_applied_amount is: '||l_commitment_applied , 3 ) ;
6845: END IF;
6846:
6847: -- get line level charges
6848: BEGIN
6880: l_charge_amount := 0;
6881: END;
6882:
6883: IF l_debug_level > 0 THEN
6884: oe_debug_pub.add( 'In Get_Line_Total, l_charge_amount is: '||l_charge_amount , 3 ) ;
6885: END IF;
6886:
6887: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
6888: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
6887: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
6888: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
6889:
6890: IF l_debug_level > 0 THEN
6891: oe_debug_pub.add( 'In Get_Line_Total, l_line_total is: '||l_line_total , 3 ) ;
6892: END IF;
6893:
6894: l_line_total_no_comt := nvl(l_extended_price,0) + nvl(l_tax_value,0)
6895: + nvl(l_charge_amount,0);
6917: );
6918:
6919:
6920: IF l_debug_level > 0 THEN
6921: oe_debug_pub.add( 'In Get_Line_Total, First Installment is: '|| l_pay_now_total_summary_rec.total_amount , 3 ) ;
6922: END IF;
6923:
6924: l_return_value := l_pay_now_total_summary_rec.total_amount;
6925:
6943: ,x_msg_data => l_msg_data
6944: );
6945:
6946: IF l_debug_level > 0 THEN
6947: oe_debug_pub.add('l_pay_now_total_summary_rec.total_amount is '|| l_pay_now_total_summary_rec.total_amount);
6948: END IF;
6949:
6950: -- return pay_now_total minus line level commitment applied amount.
6951: l_return_value := l_pay_now_total_summary_rec.total_amount;
6978: END IF;
6979: END IF;
6980:
6981: IF l_debug_level > 0 THEN
6982: oe_debug_pub.add( 'Exiting OE_Verify_Payment_PUB.Get_Line_Total.' , 3 ) ;
6983: END IF;
6984:
6985: EXCEPTION
6986: WHEN OTHERS THEN
6984:
6985: EXCEPTION
6986: WHEN OTHERS THEN
6987: IF l_debug_level > 0 THEN
6988: oe_debug_pub.add( 'Unexpected Error from OE_Verify_Payment_PUB.Get_Line_Total ' || SQLERRM ) ;
6989: END IF;
6990: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6991: END Get_Line_Total;
6992:
7023: --pnpl end
7024:
7025:
7026: --
7027: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7028: --
7029: BEGIN
7030:
7031: IF l_debug_level > 0 THEN
7028: --
7029: BEGIN
7030:
7031: IF l_debug_level > 0 THEN
7032: oe_debug_pub.add( 'ENTERING OE_Verify_Payment_Pub.Get_Inv_Line_Total.' , 1 ) ;
7033: END IF;
7034:
7035: -- Select the Tax Value and Outbound Extended Price
7036: BEGIN
7060: l_extended_price := 0;
7061: END;
7062:
7063: IF l_debug_level > 0 THEN
7064: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_extended_price is: '||l_extended_price , 3 ) ;
7065: END IF;
7066:
7067: BEGIN
7068: --pnpl added the Do_Commitment_Sequencing check
7104: l_commitment_applied := 0;
7105: END;
7106:
7107: IF l_debug_level > 0 THEN
7108: oe_debug_pub.add( 'In Get_Inv_Line_Total, commitment_applied_amount is: '||l_commitment_applied , 3 ) ;
7109: END IF;
7110:
7111: -- get line level charges
7112: BEGIN
7133: l_charge_amount := 0;
7134: END;
7135:
7136: IF l_debug_level > 0 THEN
7137: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_charge_amount is: '||l_charge_amount , 3 ) ;
7138: END IF;
7139:
7140: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7141: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7140: l_line_total := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7141: + nvl(l_charge_amount,0) - nvl(l_commitment_applied,0);
7142:
7143: IF l_debug_level > 0 THEN
7144: oe_debug_pub.add( 'In Get_Inv_Line_Total, l_line_total is: '||l_line_total , 3 ) ;
7145: END IF;
7146:
7147: l_line_total_no_comt := nvl(l_extended_price,0) + nvl(l_tax_value,0)
7148: + nvl(l_charge_amount,0);
7165: );
7166:
7167:
7168: IF l_debug_level > 0 THEN
7169: oe_debug_pub.add( 'In Get_Inv_Line_Total, First Installment is: '|| l_pay_now_total_summary_rec.total_amount , 3 ) ;
7170: END IF;
7171:
7172: l_return_value := l_pay_now_total_summary_rec.total_amount;
7173:
7191: ,x_msg_data => l_msg_data
7192: );
7193:
7194: IF l_debug_level > 0 THEN
7195: oe_debug_pub.add('l_pay_now_total_summary_rec.total_amount is '|| l_pay_now_total_summary_rec.total_amount);
7196: END IF;
7197:
7198: -- return pay_now_total minus line level commitment applied amount.
7199: l_return_value := l_pay_now_total_summary_rec.total_amount;
7212: END IF;
7213: END IF;
7214:
7215: IF l_debug_level > 0 THEN
7216: oe_debug_pub.add( 'Exiting OE_Verify_Payment_PUB.Get_Inv_Line_Total.' , 3 ) ;
7217: END IF;
7218:
7219: EXCEPTION
7220: WHEN OTHERS THEN
7218:
7219: EXCEPTION
7220: WHEN OTHERS THEN
7221: IF l_debug_level > 0 THEN
7222: oe_debug_pub.add( 'FROM OE_Verify_Payment_PUB.Get_Inv_Line_Total' ) ;
7223: END IF;
7224: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7225: END Get_Inv_Line_Total;
7226:
7250: l_return_status VARCHAR2(1);
7251: --pnpl end
7252:
7253: --
7254: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7255: --
7256: Is_fmt BOOLEAN; --7010350
7257: BEGIN
7258: -- bug#5946168 added round function
7389: ,x_return_status => l_return_status
7390: );
7391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7392: IF l_debug_level > 0 THEN
7393: oe_debug_pub.add('Error in OE_Prepayment_PVT.Get_Pay_Now_Amounts... returning zero');
7394: END IF;
7395: RETURN 0;
7396: END IF;
7397:
7418: l_outbound_total := NVL(l_chgs_wo_line_id,0);
7419: END IF;
7420:
7421: IF l_debug_level > 0 THEN
7422: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7419: END IF;
7420:
7421: IF l_debug_level > 0 THEN
7422: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7420:
7421: IF l_debug_level > 0 THEN
7422: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7428: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
7421: IF l_debug_level > 0 THEN
7422: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7428: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
7429: END IF;
7422: oe_debug_pub.add( 'CALCULATING THE TOTAL AMOUNT TO BE AUTHORIZED FOR THIS ORDER ' , 1 ) ;
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7428: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
7429: END IF;
7430: RETURN (l_outbound_total);
7423: oe_debug_pub.add( 'ORDER TOTAL -> '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7428: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
7429: END IF;
7430: RETURN (l_outbound_total);
7431:
7424: oe_debug_pub.add( 'TAX TOTAL -> '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
7425: oe_debug_pub.add( 'COMMITMENTS -> '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
7426: oe_debug_pub.add( 'OTHER CHARGES -> '||TO_CHAR ( L_CHARGES ) , 1 ) ;
7427: oe_debug_pub.add( 'P_TOTAL_TYPE -> '||P_TOTAL_TYPE);
7428: oe_debug_pub.add( 'L_OUTBOUND_TOTAL => '||TO_CHAR ( L_OUTBOUND_TOTAL ) , 1 ) ;
7429: END IF;
7430: RETURN (l_outbound_total);
7431:
7432: EXCEPTION
7431:
7432: EXCEPTION
7433: WHEN OTHERS THEN
7434: IF l_debug_level > 0 THEN
7435: oe_debug_pub.add( 'FROM OUTBOUND TOTAL OTHERS: ' || SQLERRM ) ;
7436: END IF;
7437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7438:
7439: END Outbound_Order_Total;
7468: l_msg_data VARCHAR2(2000);
7469: l_control_rec OE_GLOBALS.Control_Rec_Type;
7470: l_return_status VARCHAR2(30);
7471: --
7472: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7473: --
7474: BEGIN
7475:
7476:
7478:
7479: p_return_status := FND_API.G_RET_STS_SUCCESS;
7480:
7481: IF l_debug_level > 0 THEN
7482: oe_debug_pub.add( 'OEXPVPMB: IN UPDATE AUTHORIZATION INFORMATION' ) ;
7483: END IF;
7484:
7485: /*
7486: -- Set up the Header record
7511: -- Header needs to be requeried, setting the flag to true
7512: -- OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
7513:
7514: IF l_debug_level > 0 THEN
7515: oe_debug_pub.add( 'OEXPVPMB: UPDATING FIELDS ON HEADER' ) ;
7516: END IF;
7517: */
7518:
7519: IF p_line_id IS NOT NULL THEN
7576: , x_index => l_notify_index
7577: , x_return_status => l_return_status);
7578:
7579: IF l_debug_level > 0 THEN
7580: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
7581: END IF;
7582: IF l_debug_level > 0 THEN
7583: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
7584: END IF;
7579: IF l_debug_level > 0 THEN
7580: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
7581: END IF;
7582: IF l_debug_level > 0 THEN
7583: oe_debug_pub.add( 'HDR INDEX IS: ' || L_NOTIFY_INDEX , 1 ) ;
7584: END IF;
7585:
7586: IF l_notify_index is not null then
7587: -- modify Global Picture
7597: OE_ORDER_UTIL.g_header_rec.last_update_date:=l_header_rec.last_update_date;
7598: OE_ORDER_UTIL.g_header_rec.lock_control:= l_header_rec.lock_control;
7599:
7600: IF l_debug_level > 0 THEN
7601: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
7602: END IF;
7603: IF l_debug_level > 0 THEN
7604: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
7605: END IF;
7600: IF l_debug_level > 0 THEN
7601: oe_debug_pub.add( 'GLOBAL HDR PAYMENT_AMOUNT IS: ' || OE_ORDER_UTIL.G_HEADER_REC.PAYMENT_AMOUNT , 1 ) ;
7602: END IF;
7603: IF l_debug_level > 0 THEN
7604: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
7605: END IF;
7606: IF l_debug_level > 0 THEN
7607: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
7608: END IF;
7603: IF l_debug_level > 0 THEN
7604: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_CODE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_CODE , 1 ) ;
7605: END IF;
7606: IF l_debug_level > 0 THEN
7607: oe_debug_pub.add( 'GLOBAL HDR CC APPROVAL_DATE IS: ' || OE_ORDER_UTIL.G_HEADER_REC.CREDIT_CARD_APPROVAL_DATE , 1 ) ;
7608: END IF;
7609:
7610: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7611: RAISE FND_API.G_EXC_ERROR;
7614: END IF;
7615:
7616: -- Process requests is TRUE so still need to call it, but don't need to notify
7617: IF l_debug_level > 0 THEN
7618: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
7619: END IF;
7620: OE_Order_PVT.Process_Requests_And_Notify
7621: ( p_process_requests => TRUE
7622: , p_notify => FALSE
7635:
7636: ELSE -- pre- pack H
7637:
7638: IF l_debug_level > 0 THEN
7639: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
7640: END IF;
7641: OE_Order_PVT.Process_Requests_And_Notify
7642: ( p_process_requests => TRUE
7643: , p_notify => TRUE
7709: l_hold_result VARCHAR2(30);
7710: l_msg_count NUMBER := 0;
7711: l_msg_data VARCHAR2(2000);
7712: l_return_status VARCHAR2(30);
7713: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7714:
7715: BEGIN
7716:
7717: p_return_status := FND_API.G_RET_STS_SUCCESS;
7715: BEGIN
7716:
7717: p_return_status := FND_API.G_RET_STS_SUCCESS;
7718: IF l_debug_level > 0 THEN
7719: oe_debug_pub.add( 'OEXPVPMB: IN RELEASE VERIFY LINE HOLD' ) ;
7720: END IF;
7721:
7722: -- Check What type of Holds to Release
7723: IF p_epayment_hold = 'Y' THEN
7721:
7722: -- Check What type of Holds to Release
7723: IF p_epayment_hold = 'Y' THEN
7724: IF l_debug_level > 0 THEN
7725: oe_debug_pub.add( 'OEXPVPMB: RELEASE EPAYMENT HOLDS FOR LINE ID : ' || p_line_id ) ;
7726: END IF;
7727:
7728: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
7729:
7730: l_hold_id := 11 ; -- Credit Card Authorization Failure Hold
7731:
7732: -- Call Check for Hold to see if the Hold Exists
7733: IF l_debug_level > 0 THEN
7734: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
7735: END IF;
7736: --
7737:
7738: OE_HOLDS_PUB.Check_Holds
7751: -- Check the Result
7752: IF l_hold_result = FND_API.G_TRUE THEN
7753:
7754: IF l_debug_level > 0 THEN
7755: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC FAILURE HOLD ON ORDER HEADER ID:' || p_header_id ) ;
7756: END IF;
7757: l_hold_source_rec.hold_id := l_hold_id;
7758: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
7759: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
7779:
7780: END IF; -- Do nothing if the hold has already been released.
7781:
7782: IF l_debug_level > 0 THEN
7783: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR LINE ID : ' || p_line_id ) ;
7784: END IF;
7785:
7786: -- l_hold_release_rec := OE_Hold_Sources_Pvt.G_MISS_Hold_Release_REC;
7787: l_hold_id := 12 ; -- Credit Card Risk Hold
7787: l_hold_id := 12 ; -- Credit Card Risk Hold
7788:
7789: -- Call Check for Hold to see if the Hold Exists
7790: IF l_debug_level > 0 THEN
7791: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
7792: END IF;
7793: --
7794: OE_HOLDS_PUB.Check_Holds
7795: ( p_api_version => 1.0
7807: -- Check the Result
7808: IF l_hold_result = FND_API.G_TRUE THEN
7809:
7810: IF l_debug_level > 0 THEN
7811: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
7812: END IF;
7813: l_hold_source_rec.hold_id := l_hold_id;
7814: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
7815: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
7835: END IF; -- Do nothing if the hold has already been released.
7836:
7837: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
7838: IF l_debug_level > 0 THEN
7839: oe_debug_pub.add( 'OEXPVPMB: CHECKING CREDIT CARD RISK HOLD FOR LINE ID : ' || p_line_id ) ;
7840: END IF;
7841:
7842: l_hold_id := 16 ; -- Credit Card Risk Hold
7843:
7842: l_hold_id := 16 ; -- Credit Card Risk Hold
7843:
7844: -- Call Check for Hold to see if the Hold Exists
7845: IF l_debug_level > 0 THEN
7846: oe_debug_pub.add( 'OEXPVPMB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID ) ;
7847: END IF;
7848: --
7849: OE_HOLDS_PUB.Check_Holds
7850: ( p_api_version => 1.0
7862: -- Check the Result
7863: IF l_hold_result = FND_API.G_TRUE THEN
7864:
7865: IF l_debug_level > 0 THEN
7866: oe_debug_pub.add( 'OEXPVPMB: RELEASING CC RISK HOLD ON ORDER LINE ID:' || p_line_id ) ;
7867: END IF;
7868: l_hold_source_rec.hold_id := l_hold_id;
7869: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
7870: l_hold_source_rec.HOLD_ENTITY_ID := p_header_id;
7950:
7951: l_msg_count NUMBER := 0;
7952: l_msg_data VARCHAR2(2000);
7953: l_return_status VARCHAR2(30);
7954: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7955:
7956: BEGIN
7957:
7958: p_return_status := FND_API.G_RET_STS_SUCCESS;
7957:
7958: p_return_status := FND_API.G_RET_STS_SUCCESS;
7959:
7960: IF l_debug_level > 0 THEN
7961: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
7962: END IF;
7963:
7964: IF l_debug_level > 0 THEN
7965: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
7961: oe_debug_pub.add( 'OEXPVPMB: IN APPLY VERIFY LINE HOLDS' ) ;
7962: END IF;
7963:
7964: IF l_debug_level > 0 THEN
7965: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
7966: END IF;
7967: IF l_debug_level > 0 THEN
7968: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
7969: END IF;
7964: IF l_debug_level > 0 THEN
7965: oe_debug_pub.add( 'OEXPVPMB: LINE ID : '||P_LINE_ID ) ;
7966: END IF;
7967: IF l_debug_level > 0 THEN
7968: oe_debug_pub.add( 'OEXPVPMB: HOLD ID : '||P_HOLD_ID ) ;
7969: END IF;
7970:
7971: -- Check if Hold already exists on this order
7972: IF l_debug_level > 0 THEN
7969: END IF;
7970:
7971: -- Check if Hold already exists on this order
7972: IF l_debug_level > 0 THEN
7973: oe_debug_pub.add( 'OEXPVPMB: CHECKING IF REQUESTED VERIFY HOLD ALREADY APPLIED' ) ;
7974: END IF;
7975: --
7976: OE_HOLDS_PUB.Check_Holds
7977: ( p_api_version => 1.0
7988:
7989: -- Return with Success if this Hold Already exists on the order
7990: IF l_hold_result = FND_API.G_TRUE THEN
7991: IF l_debug_level > 0 THEN
7992: oe_debug_pub.add( 'OEXPVPMB: HOLD ALREADY APPLIED ON LINE ID : ' || P_LINE_ID ) ;
7993: END IF;
7994: RETURN ;
7995: END IF ;
7996:
7995: END IF ;
7996:
7997: -- Apply Verify Hold on Order Line
7998: IF l_debug_level > 0 THEN
7999: oe_debug_pub.add( 'OEXPVPMB: APPLYING VERIFY HOLD ON LINE ID : ' || P_LINE_ID ) ;
8000: END IF;
8001:
8002: l_hold_source_rec.hold_id := p_hold_id ;
8003: l_hold_source_rec.hold_entity_code:= 'O';
8042: FND_MESSAGE.SET_NAME('ONT','ONT_PENDING_AUTH_HOLD_APPLIED');
8043: FND_MESSAGE.SET_TOKEN('LEVEL','LINE '||l_line_ind);
8044: OE_MSG_PUB.ADD;
8045: IF l_debug_level > 0 THEN
8046: oe_debug_pub.add( 'OEXVPPYB: Pending Payment Authorization hold has been applied on order line.', 3);
8047: END IF;
8048: END IF;
8049: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8050: RAISE FND_API.G_EXC_ERROR;
8052: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8053: END IF;
8054:
8055: IF l_debug_level > 0 THEN
8056: oe_debug_pub.add( 'OEXPVPMB: APPLIED VERIFY HOLD ON LINE ID:' || P_LINE_ID ) ;
8057: END IF;
8058:
8059: EXCEPTION
8060:
8101: l_min_acct_unit NUMBER;
8102: l_format_mask VARCHAR2(500);
8103:
8104: --
8105: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8106: --
8107: BEGIN
8108: FND_CURRENCY.Get_Info(p_currency_code, -- IN variable
8109: l_precision,
8143: l_pos NUMBER := 0;
8144: l_retry_num NUMBER := 0;
8145:
8146: --
8147: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8148: --
8149:
8150: BEGIN
8151:
8151:
8152: l_return_status := FND_API.G_RET_STS_SUCCESS;
8153:
8154: IF l_debug_level > 0 THEN
8155: oe_debug_pub.add( 'Entering Create_New_Payment_Trxn.', 1 ) ;
8156: END IF;
8157:
8158: Select hca.party_id, acct_site.cust_account_id
8159: Into l_party_id, l_cust_account_id
8166: AND ACCT_SITE.CUST_ACCOUNT_ID = HCA.CUST_ACCOUNT_ID
8167: AND SITE.ORG_ID = ACCT_SITE.ORG_ID;
8168:
8169: IF l_debug_level > 0 THEN
8170: oe_debug_pub.add('Party id in Create payment trxn'||l_party_id);
8171: END IF;
8172:
8173: l_payer.payment_function := 'CUSTOMER_PAYMENT'; --Verify
8174: l_payer.party_id := l_party_id;
8189: X_response => l_response_code);
8190:
8191: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8192: IF l_debug_level > 0 THEN
8193: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8194: END IF;
8195: RAISE FND_API.G_EXC_ERROR;
8196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8197: IF l_debug_level > 0 THEN
8194: END IF;
8195: RAISE FND_API.G_EXC_ERROR;
8196: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8197: IF l_debug_level > 0 THEN
8198: oe_debug_pub.add('Result error code in Get_Transaction_Extension'||l_response_code.result_code);
8199: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8199: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8203: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8204: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8205: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8206: END IF;
8207: END IF;
8200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8203: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8204: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8205: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8206: END IF;
8207: END IF;
8208:
8201: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8202: IF l_debug_level > 0 THEN
8203: oe_debug_pub.add('Get_Transaction_Extension assignment Successful....');
8204: oe_debug_pub.add('After call to Get Transaction Extension'||l_return_status);
8205: oe_debug_pub.add('After call to get trxn...instr sec code'||l_trxn_attribs.instrument_security_code);
8206: END IF;
8207: END IF;
8208:
8209: -- get assignment id from the payments table
8216: null;
8217: end;
8218:
8219: IF l_debug_level > 0 THEN
8220: oe_debug_pub.add('Instrument assignment id for existing instrument'||l_assign_id);
8221: END IF;
8222:
8223: IF p_line_id IS NOT NULL THEN
8224: -- this is for line split
8242: END IF;
8243: END IF;
8244:
8245: IF l_debug_level > 0 THEN
8246: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8243: END IF;
8244:
8245: IF l_debug_level > 0 THEN
8246: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8244:
8245: IF l_debug_level > 0 THEN
8246: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8245: IF l_debug_level > 0 THEN
8246: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8246: oe_debug_pub.add('l_pos is: '||l_pos, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8254: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8247: oe_debug_pub.add('l_retry_num is: '||l_retry_num, 3);
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8254: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8255: END IF;
8248: oe_debug_pub.add('trxn_ref_number2 in Create_New_Payment_Trxn is: '||l_trxn_attribs.trxn_ref_number2, 3);
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8254: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8255: END IF;
8256:
8249: oe_debug_pub.add('Before calling create_transaction extension', 3);
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8254: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8255: END IF;
8256:
8257: --bug 5028932
8250: oe_debug_pub.add('Assignment id ---->'|| l_assign_id ,3);
8251: oe_debug_pub.add('l_trxn_attribs.Instrument_Security_Code --->'||l_trxn_attribs.Instrument_Security_Code, 3);
8252: oe_debug_pub.add('l_trxn_attribs.order_id ----> '||l_trxn_attribs.order_id ,3);
8253: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number1 --->'||l_trxn_attribs.trxn_ref_number1, 3);
8254: oe_debug_pub.add('l_trxn_attribs.trxn_ref_number2 --->'||l_trxn_attribs.trxn_ref_number2, 3);
8255: END IF;
8256:
8257: --bug 5028932
8258: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
8287: X_response => l_response_code);
8288:
8289:
8290: IF l_debug_level > 0 THEN
8291: oe_debug_pub.add('Result code'||l_Response_code.result_code);
8292: oe_debug_pub.add('Return status'||l_Return_Status);
8293: END IF;
8294:
8295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8288:
8289:
8290: IF l_debug_level > 0 THEN
8291: oe_debug_pub.add('Result code'||l_Response_code.result_code);
8292: oe_debug_pub.add('Return status'||l_Return_Status);
8293: END IF;
8294:
8295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8296: IF l_debug_level > 0 THEN
8293: END IF;
8294:
8295: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8298: END IF;
8299: RAISE FND_API.G_EXC_ERROR;
8300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8301: IF l_debug_level > 0 THEN
8298: END IF;
8299: RAISE FND_API.G_EXC_ERROR;
8300: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8301: IF l_debug_level > 0 THEN
8302: oe_debug_pub.add('Result error code in Create_Transaction_Extension'||l_response_code.result_code);
8303: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8303: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8307: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8308: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8309: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8310: END IF;
8311: END IF;
8304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8307: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8308: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8309: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8310: END IF;
8311: END IF;
8312:
8305: ELSIF l_return_status =FND_API.G_RET_STS_SUCCESS THEN
8306: IF l_debug_level > 0 THEN
8307: oe_debug_pub.add('Create_Transaction_Extension assignment Successful....');
8308: oe_debug_pub.add('After call to Create_Transaction_Extension'||l_return_status);
8309: oe_debug_pub.add('New trxn extension id'||x_trxn_extension_id);
8310: END IF;
8311: END IF;
8312:
8313: x_return_status := l_return_status;
8312:
8313: x_return_status := l_return_status;
8314:
8315: IF l_debug_level > 0 THEN
8316: oe_debug_pub.add( 'Exiting Create_New_Payment_Trxn.', 1 ) ;
8317: END IF;
8318:
8319: EXCEPTION
8320: