[Home] [Help]
19: l_commitment_total NUMBER;
20: l_chgs_w_line_id NUMBER := 0;
21: l_chgs_wo_line_id NUMBER := 0;
22: --
23: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
24: --
25: BEGIN
26:
27: IF OE_ORDER_UTIL.G_Precision IS NULL THEN
137: l_invoice_total := nvl(l_order_total, 0) + nvl(l_tax_total, 0)
138: + nvl(l_charges, 0) - nvl(l_commitment_total,0);
139:
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add( 'OEXVPPYB: CALCULATING THE TOTAL INVOICED AMOUNT FOR THIS ORDER ' , 1 ) ;
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
138: + nvl(l_charges, 0) - nvl(l_commitment_total,0);
139:
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add( 'OEXVPPYB: CALCULATING THE TOTAL INVOICED AMOUNT FOR THIS ORDER ' , 1 ) ;
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
146: oe_debug_pub.add( 'OEXVPPYB: TOTAL_INVOICED_AMOUNT : '||TO_CHAR ( l_invoice_total ) , 1 ) ;
139:
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add( 'OEXVPPYB: CALCULATING THE TOTAL INVOICED AMOUNT FOR THIS ORDER ' , 1 ) ;
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
146: oe_debug_pub.add( 'OEXVPPYB: TOTAL_INVOICED_AMOUNT : '||TO_CHAR ( l_invoice_total ) , 1 ) ;
147: END IF;
140: IF l_debug_level > 0 THEN
141: oe_debug_pub.add( 'OEXVPPYB: CALCULATING THE TOTAL INVOICED AMOUNT FOR THIS ORDER ' , 1 ) ;
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
146: oe_debug_pub.add( 'OEXVPPYB: TOTAL_INVOICED_AMOUNT : '||TO_CHAR ( l_invoice_total ) , 1 ) ;
147: END IF;
148: RETURN (l_invoice_total);
141: oe_debug_pub.add( 'OEXVPPYB: CALCULATING THE TOTAL INVOICED AMOUNT FOR THIS ORDER ' , 1 ) ;
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
146: oe_debug_pub.add( 'OEXVPPYB: TOTAL_INVOICED_AMOUNT : '||TO_CHAR ( l_invoice_total ) , 1 ) ;
147: END IF;
148: RETURN (l_invoice_total);
149:
142: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT ORDER : '||TO_CHAR ( L_ORDER_TOTAL ) , 1 ) ;
143: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT TAX : '||TO_CHAR ( L_TAX_TOTAL ) , 1 ) ;
144: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT COMMITMENTS : '||TO_CHAR ( L_COMMITMENT_TOTAL ) , 1 ) ;
145: oe_debug_pub.add( 'OEXVPPYB: TOTAL INVOICED AMOUNT OTHER CHARGES : '||TO_CHAR ( L_CHARGES ) , 1 ) ;
146: oe_debug_pub.add( 'OEXVPPYB: TOTAL_INVOICED_AMOUNT : '||TO_CHAR ( l_invoice_total ) , 1 ) ;
147: END IF;
148: RETURN (l_invoice_total);
149:
150: EXCEPTION
149:
150: EXCEPTION
151: WHEN OTHERS THEN
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add( 'FROM Total_Invoiced_Amount OTHERS' ) ;
154: END IF;
155: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156:
157: END Total_Invoiced_Amount;
171: l_outbound_total NUMBER := 0;
172: l_balance_on_prepaid_amount NUMBER := 0; --Bug 4938105
173:
174: --
175: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
176: --
177: BEGIN
178:
179: IF l_debug_level > 0 THEN
176: --
177: BEGIN
178:
179: IF l_debug_level > 0 THEN
180: oe_debug_pub.add( 'OEXVPPYB: IN CALCULATE PENDING AMOUNT' , 1 ) ;
181: END IF;
182:
183: -- Fetch the Order Total Amount
184: IF l_debug_level > 0 THEN
181: END IF;
182:
183: -- Fetch the Order Total Amount
184: IF l_debug_level > 0 THEN
185: oe_debug_pub.add( 'OEXVPPYB: FETCH OUTBOUND LINES TOTAL' , 3 ) ;
186: END IF;
187:
188: l_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
189:
187:
188: l_outbound_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_rec.header_id);
189:
190: IF l_debug_level > 0 THEN
191: oe_debug_pub.add( 'OEXVPPYB: TOTAL VALUE OF OUTBOUND LINES : '|| L_OUTBOUND_TOTAL , 3 ) ;
192: END IF;
193:
194: BEGIN
195: SELECT nvl(prepaid_amount, 0)
202: null;
203: END;
204:
205: IF l_debug_level > 0 THEN
206: oe_debug_pub.add( 'OEXVPPYB: PREPAID_AMOUNT FOR THE ORDER IS: '||L_PREPAID_AMOUNT , 1 ) ;
207: END IF;
208:
209: --Start of Bug 4938105
210: l_balance_on_prepaid_amount := l_prepaid_amount - Total_Invoiced_Amount(p_header_rec.header_id);
213: l_balance_on_prepaid_amount := 0;
214: END IF;
215:
216: IF l_debug_level > 0 THEN
217: oe_debug_pub.add( 'OEXVPPYB: BALANCE ON PREPAID_AMOUNT FOR THE ORDER IS: '||l_balance_on_prepaid_amount , 1 ) ;
218: END IF;
219:
220: l_pending_amount := l_outbound_total - l_balance_on_prepaid_amount ;
221: --End of Bug 4938105
275: l_set_of_books_rec OE_Order_Cache.Set_Of_Books_Rec_Type;
276: l_msg_text VARCHAR2(2000);
277:
278: --
279: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
280: --
281: BEGIN
282:
283: IF l_debug_level > 0 THEN
280: --
281: BEGIN
282:
283: IF l_debug_level > 0 THEN
284: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_RECEIPT.' , 1 ) ;
285: END IF;
286: x_result_out := 'PASS' ;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288:
286: x_result_out := 'PASS' ;
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288:
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'OEXVPPYB: CALLING AR CREATE RECEIPT API ' , 3 ) ;
291: END IF;
292: l_payment_set_id := p_payment_set_id;
293:
294: -- To get the remittance bank account id.
319: -- the credit_card_approval_code
320: IF p_approval_code IS NOT NULL THEN
321:
322: IF l_debug_level > 0 THEN
323: oe_debug_pub.add( 'OEXVPPYB: FETCHING THE TANGIBLE ID.' , 3 ) ;
324: END IF;
325: OE_Verify_Payment_PUB.Fetch_Current_Auth
326: ( p_header_rec => p_header_rec
327: , p_trxn_id => l_trxn_id
357: l_call_payment_processor := FND_API.G_FALSE;
358: END IF;
359:
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
358: END IF;
359:
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
359:
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
367: END IF;
360: IF l_debug_level > 0 THEN
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
367: END IF;
368:
361: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
367: END IF;
368:
369: AR_PREPAYMENTS_PUB.create_prepayment(
362: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
363: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
364: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
365: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
367: END IF;
368:
369: AR_PREPAYMENTS_PUB.create_prepayment(
370: p_api_version => 1.0,
403: );
404:
405:
406: IF l_debug_level > 0 THEN
407: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
404:
405:
406: IF l_debug_level > 0 THEN
407: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
405:
406: IF l_debug_level > 0 THEN
407: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
406: IF l_debug_level > 0 THEN
407: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
414: END IF;
407: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
414: END IF;
415:
408: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
409: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
410: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
411: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
412: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
413: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
414: END IF;
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: IF x_msg_count = 1 THEN
415:
416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
417: IF x_msg_count = 1 THEN
418: IF l_debug_level > 0 THEN
419: oe_debug_pub.add('Error message after calling Create_Prepayment API: '||x_msg_data , 3 ) ;
420: END IF;
421: oe_msg_pub.add_text(p_message_text => x_msg_data);
422: ELSIF ( FND_MSG_PUB.Count_Msg > 0 ) THEN
423: arp_util.enable_debug;
424: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
425: -- l_msg_text := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
426: l_msg_text := FND_MSG_PUB.Get(i,'F');
427: IF l_debug_level > 0 THEN
428: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_TEXT , 3 );
429: END IF;
430: oe_msg_pub.add_text(p_message_text => l_msg_text);
431: END LOOP;
432: END IF;
436: -- RETURN;
437: END IF;
438:
439: IF l_debug_level > 0 THEN
440: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.CREATE_RECEIPT.' , 1 ) ;
441: END IF;
442:
443: EXCEPTION
444: WHEN OTHERS THEN
444: WHEN OTHERS THEN
445: x_result_out := 'FAIL';
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447: IF l_debug_level > 0 THEN
448: oe_debug_pub.add('Unexpected error in Create_Prepayment API: '||sqlerrm , 3 ) ;
449: END IF;
450:
451: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
452: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Create_Receipt');
484: l_msg_count NUMBER := 0 ;
485: l_msg_data VARCHAR2(2000) := NULL ;
486:
487: --
488: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
489: --
490: BEGIN
491:
492: IF l_debug_level > 0 THEN
489: --
490: BEGIN
491:
492: IF l_debug_level > 0 THEN
493: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
494: oe_debug_pub.add( 'BEFORE CALLING REFUND_PREPAYMENTS PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
495: END IF;
496:
497: AR_PREPAYMENTS.refund_prepayments(
490: BEGIN
491:
492: IF l_debug_level > 0 THEN
493: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
494: oe_debug_pub.add( 'BEFORE CALLING REFUND_PREPAYMENTS PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
495: END IF;
496:
497: AR_PREPAYMENTS.refund_prepayments(
498: p_api_version => 1.0,
511: );
512:
513: x_return_status := l_return_status;
514: IF l_debug_level > 0 THEN
515: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
516: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
517: END IF;
518:
519: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
512:
513: x_return_status := l_return_status;
514: IF l_debug_level > 0 THEN
515: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
516: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
517: END IF;
518:
519: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
520:
523: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_amount * -1, l_format_mask));
524: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
525: oe_msg_pub.add;
526: IF l_debug_level > 0 THEN
527: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
528: END IF;
529: ELSE
530: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
531: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_amount, l_format_mask));
530: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
531: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_amount, l_format_mask));
532: oe_msg_pub.add;
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add( 'OEXVPPYB: REFUND PROCESSING FOR ' ||P_AMOUNT||' FAILED.' , 3 ) ;
535: END IF;
536: END IF;
537:
538: IF l_debug_level > 0 THEN
535: END IF;
536: END IF;
537:
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
540: END IF;
541:
542: EXCEPTION WHEN OTHERS THEN
543: x_result_out := 'FAIL';
610: l_trx_date DATE;
611: l_trxn_extension_id NUMBER; --R12 CC Encryption
612:
613: --
614: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
615: --
616: BEGIN
617:
618: IF l_debug_level > 0 THEN
615: --
616: BEGIN
617:
618: IF l_debug_level > 0 THEN
619: oe_debug_pub.add( 'OEXVPPYB: ENTERING PROCESS PREPAYMENT ORDER' , 1 ) ;
620: END IF;
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: -- calculate pending amount to be processed
623: -- calculate pending amount to be processed
624: l_pending_amount := OE_PrePayment_PVT.Calculate_Pending_Amount(l_header_rec);
625:
626: IF l_debug_level > 0 THEN
627: oe_debug_pub.add( 'OEXVPPYB: PENDING AMOUNT IS: '||L_PENDING_AMOUNT , 3 ) ;
628: END IF;
629: IF l_pending_amount = 0 THEN
630: -- no payment processing needed
631: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
662: if AR API returns with success, release PPP hold and credit card failure hl.
663: *******************************************************************/
664:
665: IF l_debug_level > 0 THEN
666: oe_debug_pub.add( 'OEXVPPYB: CALLING ACTION IS: '||L_CALLING_ACTION , 3 ) ;
667:
668: END IF;
669:
670: IF l_calling_action = 'UPDATE' THEN
668: END IF;
669:
670: IF l_calling_action = 'UPDATE' THEN
671: IF l_debug_level > 0 THEN
672: oe_debug_pub.add( 'IN OEXVPPYB.PLS: THIS IS COMING FROM DELAYED REQUEST.' , 1 ) ;
673: END IF;
674: -- Need to apply PPP hold if there is change to order line after booking.
675:
676: l_apply_ppp_hold := 'Y';
683: , p_hold_exists => l_ppp_hold_exists
684: );
685:
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add( 'OEXVPPYB: VALUE FOR L_PPP_HOLD_EXISTS IS: '||L_PPP_HOLD_EXISTS , 1 ) ;
688: END IF;
689:
690: l_fnd_profile_value := fnd_profile.value('ONT_PROCESS_PAYMENT_IMMEDIATELY');
691:
689:
690: l_fnd_profile_value := fnd_profile.value('ONT_PROCESS_PAYMENT_IMMEDIATELY');
691:
692: IF l_debug_level > 0 THEN
693: oe_debug_pub.add( 'OEXVPPYB: VALUE FOR PREPAYMENT PROFILE OPTION IS : '||L_FND_PROFILE_VALUE , 1 ) ;
694: END IF;
695:
696: IF l_ppp_hold_exists = 'N' THEN
697: IF l_fnd_profile_value= 'Y' THEN
700: l_apply_ppp_hold := 'Y';
701: END IF;
702: ELSE
703: IF l_debug_level > 0 THEN
704: oe_debug_pub.add( 'NO ACTION REQUIRED AS HOLD ALREADY EXISTS FOR HEADER: '||P_HEADER_REC.HEADER_ID , 3 ) ;
705: END IF;
706: RETURN;
707: END IF;
708:
713: -- added for bug 4201622
714: IF p_delayed_request is NULL THEN
715: -- this is coming from concurrent manager, need to release all prepayment holds.
716: IF l_debug_level > 0 THEN
717: oe_debug_pub.add( 'OEXVPPYB: RELEASING ALL PREPAYMENT HOLDS AS THIS IS FROM CONCURRENT MANAGER.' , 1 ) ;
718: END IF;
719: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
720: , p_msg_count => l_msg_count
721: , p_msg_data => l_msg_data
731:
732: ELSE
733: -- no processing for other calling action
734: IF l_debug_level > 0 THEN
735: oe_debug_pub.add( 'NO ACTION REQUIRED AS CALLING_ACTION IS INVALID.' , 3 ) ;
736: END IF;
737: RETURN;
738: END IF;
739:
745: -- to get bank account id.
746: BEGIN
747:
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
746: BEGIN
747:
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
754: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
747:
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
754: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
755: END IF;
748: IF l_debug_level > 0 THEN
749: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
754: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
755: END IF;
756:
749: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
754: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
755: END IF;
756:
757: -- bug 3486808
750: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
751: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
752: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
753: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
754: oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
755: END IF;
756:
757: -- bug 3486808
758: --R12 CC Encryption
779: EXCEPTION WHEN OTHERS THEN
780: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
781: OE_MSG_PUB.ADD;
782: IF l_debug_level > 0 THEN
783: oe_debug_pub.add( 'OEXVPPYB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT' , 3 ) ;
784: END IF;
785: -- apply epayment failure hold due to incorrect credit card information.
786: l_epayment_failure_hold := 'Y';
787: l_create_receipt := 'N';
787: l_create_receipt := 'N';
788: END;
789:
790: IF l_debug_level > 0 THEN
791: oe_debug_pub.add( 'OEXVPPYB: BANK ACCOUNT ID IS : '||L_BANK_ACCT_ID , 3 ) ;
792: END IF;
793:
794: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
795: (p_header_rec => p_header_rec );
794: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
795: (p_header_rec => p_header_rec );
796:
797: IF l_debug_level > 0 THEN
798: oe_debug_pub.add( 'OEXVPPYB: THE PRIMARY PAYMENT METHOD ID IS: '||L_PAY_METHOD_ID , 3 ) ;
799: END IF;
800:
801: -- to validate the pay_method_id.
802: IF l_pay_method_id <= 0 THEN
801: -- to validate the pay_method_id.
802: IF l_pay_method_id <= 0 THEN
803:
804: IF l_debug_level > 0 THEN
805: oe_debug_pub.add( 'OEXVPPYB: THE PAYMENT METHOD ID IS INVALID: '||L_PAY_METHOD_ID , 3 ) ;
806: END IF;
807: FND_MESSAGE.SET_NAME('ONT','OE_VPM_NO_PAY_METHOD');
808: OE_MSG_PUB.ADD;
809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: RETURN;
811: END IF;
812:
813: IF l_debug_level > 0 THEN
814: oe_debug_pub.add( 'OEXVPPYB: L_RECEIPT_METHOD_ID IS: '||L_PAY_METHOD_ID , 1 ) ;
815: END IF;
816:
817: l_create_receipt := 'Y';
818: END IF;
818: END IF;
819: END IF; -- end of checking if l_process_payment is 'Y'.
820:
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
823: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
824: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
825: END IF;
826:
819: END IF; -- end of checking if l_process_payment is 'Y'.
820:
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
823: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
824: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
825: END IF;
826:
827: -- at this point, either apply hold or process payment.
820:
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
823: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
824: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
825: END IF;
826:
827: -- at this point, either apply hold or process payment.
828: IF l_apply_ppp_hold = 'Y' THEN
838:
839: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
840:
841: IF l_debug_level > 0 THEN
842: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
843: END IF;
844: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
845: RAISE FND_API.G_EXC_ERROR;
846: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
867: END IF;
868:
869: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
870: IF l_debug_level > 0 THEN
871: oe_debug_pub.add( 'OEXVPPYB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
872: END IF;
873: RETURN;
874: END IF;
875:
875:
876: IF l_create_receipt = 'Y' THEN
877:
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
880: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
881: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
882: END IF;
883:
876: IF l_create_receipt = 'Y' THEN
877:
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
880: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
881: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
882: END IF;
883:
884: -- call create receipt API
877:
878: IF l_debug_level > 0 THEN
879: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
880: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
881: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
882: END IF;
883:
884: -- call create receipt API
885: BEGIN
911: , x_return_status => l_return_status
912: );
913:
914: IF l_debug_level > 0 THEN
915: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
917: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
918: END IF;
919:
912: );
913:
914: IF l_debug_level > 0 THEN
915: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
917: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
918: END IF;
919:
920: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
913:
914: IF l_debug_level > 0 THEN
915: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
917: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
918: END IF;
919:
920: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
921: -- If no error occurred in processing the payment, release any existing
926: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(l_pending_amount, l_format_mask));
927: OE_MSG_PUB.ADD;
928:
929: IF l_debug_level > 0 THEN
930: oe_debug_pub.add( 'OEXVPPYB: RELEASING PREPAYMENT HOLD' , 3 ) ;
931: END IF;
932: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
933: , p_msg_count => l_msg_count
934: , p_msg_data => l_msg_data
1014: l_msg_data := null;
1015: FOR I IN 1..l_msg_count LOOP
1016: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
1017: IF l_debug_level > 0 THEN
1018: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1019: END IF;
1020: END LOOP;
1021:
1022: -- check for existing hold and apply hold if it doesn't exist already.
1067: l_payment_set_id := null;
1068: END;
1069:
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID PASSED TO REFUND_REQUEST IS: '||L_PAYMENT_SET_ID , 1 ) ;
1072: oe_debug_pub.add( 'OEXVPPYB: CALLING REFUND REQUEST.' , 3 ) ;
1073: END IF;
1074: OE_PrePayment_PVT.Refund_Request( p_header_rec => p_header_rec
1075: , p_amount => l_pending_amount
1068: END;
1069:
1070: IF l_debug_level > 0 THEN
1071: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID PASSED TO REFUND_REQUEST IS: '||L_PAYMENT_SET_ID , 1 ) ;
1072: oe_debug_pub.add( 'OEXVPPYB: CALLING REFUND REQUEST.' , 3 ) ;
1073: END IF;
1074: OE_PrePayment_PVT.Refund_Request( p_header_rec => p_header_rec
1075: , p_amount => l_pending_amount
1076: , p_payment_set_id=> l_payment_set_id
1081: );
1082:
1083:
1084: IF l_debug_level > 0 THEN
1085: oe_debug_pub.add( 'OEXVPPYB: RETURN STATUS AFTER CALLING REFUND IS: '||L_RETURN_STATUS , 1 ) ;
1086: END IF;
1087:
1088: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1089: IF l_debug_level > 0 THEN
1086: END IF;
1087:
1088: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1089: IF l_debug_level > 0 THEN
1090: oe_debug_pub.add( 'OEXVPPYB: RELEASING PREPAYMENT HOLD AFTER REFUND PROCESS.' , 3 ) ;
1091: END IF;
1092: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
1093: , p_msg_count => l_msg_count
1094: , p_msg_data => l_msg_data
1130:
1131: x_return_status := l_return_status;
1132:
1133: IF l_debug_level > 0 THEN
1134: oe_debug_pub.add( 'OEXVPPYB: EXITING PROCESS PREPAYMENT ORDER. '||x_return_status , 1 ) ;
1135: END IF;
1136:
1137: EXCEPTION
1138:
1179: l_return_status VARCHAR2(30);
1180: l_msg_count NUMBER;
1181: l_msg_data VARCHAR2(2000);
1182: --
1183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1184: --
1185: BEGIN
1186:
1187: IF l_debug_level > 0 THEN
1184: --
1185: BEGIN
1186:
1187: IF l_debug_level > 0 THEN
1188: oe_debug_pub.add( 'OEXVPPYB: IN CHECK FOR PREPAYMENT HOLD' , 3 ) ;
1189: END IF;
1190:
1191: -- Checking existense of unreleased holds on this order
1192: OE_HOLDS_PUB.Check_Holds
1204: -- Check the Result
1205: IF l_hold_result = FND_API.G_TRUE THEN
1206: p_hold_exists := 'Y';
1207: IF l_debug_level > 0 THEN
1208: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 13 EXISTS ON ORDER' , 3 ) ;
1209: END IF;
1210: return;
1211: ELSE
1212: OE_HOLDS_PUB.Check_Holds
1222: );
1223: IF l_hold_result = FND_API.G_TRUE THEN
1224: p_hold_exists := 'Y';
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 14 EXISTS ON ORDER' , 3 ) ;
1227: END IF;
1228: return;
1229: ELSE
1230: OE_HOLDS_PUB.Check_Holds
1240: );
1241: IF l_hold_result = FND_API.G_TRUE THEN
1242: p_hold_exists := 'Y';
1243: IF l_debug_level > 0 THEN
1244: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 15 EXISTS ON ORDER' , 3 ) ;
1245: END IF;
1246: ELSE
1247: p_hold_exists := 'N';
1248: IF l_debug_level > 0 THEN
1245: END IF;
1246: ELSE
1247: p_hold_exists := 'N';
1248: IF l_debug_level > 0 THEN
1249: oe_debug_pub.add( 'OEXVPPYB: NO PREPAYMENT HOLD ON ORDER' , 3 ) ;
1250: END IF;
1251: END IF;
1252: END IF;
1253: END IF;
1290:
1291: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
1292:
1293: --
1294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1295: --
1296: BEGIN
1297: p_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1296: BEGIN
1297: p_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1301: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1302: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1303: END IF;
1304:
1297: p_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1301: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1302: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1303: END IF;
1304:
1305: -- Check if Hold already exists on this order
1298:
1299: IF l_debug_level > 0 THEN
1300: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1301: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1302: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1303: END IF;
1304:
1305: -- Check if Hold already exists on this order
1306: IF l_debug_level > 0 THEN
1303: END IF;
1304:
1305: -- Check if Hold already exists on this order
1306: IF l_debug_level > 0 THEN
1307: oe_debug_pub.add( 'OEXVPPYB: CHECKING IF REQUESTED PREPAYMENT HOLD ALREADY APPLIED' , 3 ) ;
1308: END IF;
1309: Any_Prepayment_Hold_Exists ( p_header_id => p_header_id
1310: , p_hold_exists => l_hold_exists
1311: );
1312:
1313: -- Return with Success if this Hold Already exists on the order
1314: IF l_hold_exists = 'Y' THEN
1315: IF l_debug_level > 0 THEN
1316: oe_debug_pub.add( 'OEXVPPYB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID , 3 ) ;
1317: END IF;
1318: RETURN ;
1319: END IF ;
1320:
1319: END IF ;
1320:
1321: -- Apply Prepayment Hold on Header
1322: IF l_debug_level > 0 THEN
1323: oe_debug_pub.add( 'OEXVPPYB: APPLYING PREPAYMENT HOLD ON HEADER ID : ' || P_HEADER_ID , 3 ) ;
1324: END IF;
1325:
1326: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
1327: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
1345: IF p_hold_id = 13 THEN
1346: FND_MESSAGE.SET_NAME('ONT','ONT_PPP_HOLD_APPLIED');
1347: OE_MSG_PUB.ADD;
1348: IF l_debug_level > 0 THEN
1349: oe_debug_pub.add( 'OEXVPPYB: PPP Hold has been applied on order.', 3 ) ;
1350: END IF;
1351: ELSIF p_hold_id = 14 THEN
1352: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_FAILURE_HOLD');
1353: OE_MSG_PUB.ADD;
1351: ELSIF p_hold_id = 14 THEN
1352: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_FAILURE_HOLD');
1353: OE_MSG_PUB.ADD;
1354: IF l_debug_level > 0 THEN
1355: oe_debug_pub.add( 'OEXVPPYB: payment failure hold has been applied on order.', 3 ) ;
1356: END IF;
1357: ELSIF p_hold_id = 15 THEN
1358: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_SERVER_FAIL_HOLD');
1359: OE_MSG_PUB.ADD;
1357: ELSIF p_hold_id = 15 THEN
1358: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_SERVER_FAIL_HOLD');
1359: OE_MSG_PUB.ADD;
1360: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'OEXVPPYB: payment server failure hold has been applied on order.', 3 ) ;
1362: END IF;
1363: END IF;
1364:
1365: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: IF l_debug_level > 0 THEN
1372: oe_debug_pub.add( 'OEXVPPYB: APPLIED PREPAYMENT HOLD ON HEADER ID:' || P_HEADER_ID , 3 ) ;
1373: END IF;
1374:
1375: EXCEPTION
1376:
1428: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
1429: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
1430:
1431: --
1432: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1433: --
1434: BEGIN
1435: p_return_status := FND_API.G_RET_STS_SUCCESS;
1436:
1434: BEGIN
1435: p_return_status := FND_API.G_RET_STS_SUCCESS;
1436:
1437: IF l_debug_level > 0 THEN
1438: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PREPAYMENT HOLD' , 3 ) ;
1439: END IF;
1440:
1441: -- Check What type of Holds to Release
1442: IF l_debug_level > 0 THEN
1439: END IF;
1440:
1441: -- Check What type of Holds to Release
1442: IF l_debug_level > 0 THEN
1443: oe_debug_pub.add( 'OEXVPPYB: RELEASE PREPAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1444: END IF;
1445:
1446: -- check for PPP hold.
1447: l_hold_id := 13 ;
1446: -- check for PPP hold.
1447: l_hold_id := 13 ;
1448:
1449: IF l_debug_level > 0 THEN
1450: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1451: END IF;
1452: OE_Verify_Payment_PUB.Hold_Exists
1453: ( p_header_id => l_hold_entity_id
1454: , p_hold_id => l_hold_id
1457:
1458: IF l_hold_exists = 'Y' THEN
1459:
1460: IF l_debug_level > 0 THEN
1461: oe_debug_pub.add( 'OEXVPPYB: RELEASING CC RISK HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1462: END IF;
1463: l_hold_source_rec.hold_id := l_hold_id;
1464: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1465: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1490: -- check for epayment failure hold.
1491: l_hold_id := 14 ;
1492:
1493: IF l_debug_level > 0 THEN
1494: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1495: END IF;
1496: OE_Verify_Payment_PUB.Hold_Exists
1497: ( p_header_id => l_hold_entity_id
1498: , p_hold_id => l_hold_id
1501:
1502: IF l_hold_exists = 'Y' THEN
1503:
1504: IF l_debug_level > 0 THEN
1505: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1506: END IF;
1507: l_hold_source_rec.hold_id := l_hold_id;
1508: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1509: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1532: -- check for epayment server failure hold.
1533: l_hold_id := 15 ;
1534:
1535: IF l_debug_level > 0 THEN
1536: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1537: END IF;
1538: OE_Verify_Payment_PUB.Hold_Exists
1539: ( p_header_id => l_hold_entity_id
1540: , p_hold_id => l_hold_id
1543:
1544: IF l_hold_exists = 'Y' THEN
1545:
1546: IF l_debug_level > 0 THEN
1547: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT SERVER FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1548: END IF;
1549: l_hold_source_rec.hold_id := l_hold_id;
1550: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1551: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1628: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
1629: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
1630:
1631: --
1632: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1633: --
1634: BEGIN
1635: p_return_status := FND_API.G_RET_STS_SUCCESS;
1636:
1634: BEGIN
1635: p_return_status := FND_API.G_RET_STS_SUCCESS;
1636:
1637: IF l_debug_level > 0 THEN
1638: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PAYMENT HOLD' , 3 ) ;
1639: END IF;
1640:
1641: -- Check What type of Holds to Release
1642: IF l_debug_level > 0 THEN
1639: END IF;
1640:
1641: -- Check What type of Holds to Release
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'OEXVPPYB: RELEASE PAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1644: END IF;
1645:
1646: IF l_debug_level > 0 THEN
1647: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||P_HOLD_ID , 3 ) ;
1643: oe_debug_pub.add( 'OEXVPPYB: RELEASE PAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1644: END IF;
1645:
1646: IF l_debug_level > 0 THEN
1647: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||P_HOLD_ID , 3 ) ;
1648: END IF;
1649: OE_Verify_Payment_PUB.Hold_Exists
1650: ( p_header_id => l_hold_entity_id
1651: , p_hold_id => p_hold_id
1654:
1655: IF l_hold_exists = 'Y' THEN
1656:
1657: IF l_debug_level > 0 THEN
1658: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1659: END IF;
1660: l_hold_source_rec.hold_id := p_hold_id;
1661: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1662: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1729: l_min_acct_unit NUMBER;
1730: l_format_mask VARCHAR2(500);
1731:
1732: --
1733: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1734: --
1735: BEGIN
1736: FND_CURRENCY.Get_Info(p_currency_code, -- IN variable
1737: l_precision,
1807: l_payment_exists VARCHAR2(1) := 'N';
1808: --R12 CC Encryption
1809: l_trxn_extension_id NUMBER;
1810: --
1811: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1812: --
1813:
1814: --moac
1815: l_org_id NUMBER;
1846:
1847: BEGIN
1848:
1849: IF l_debug_level > 0 THEN
1850: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1851: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1852: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1853: END IF;
1854: x_return_status := FND_API.G_RET_STS_SUCCESS;
1847: BEGIN
1848:
1849: IF l_debug_level > 0 THEN
1850: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1851: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1852: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1853: END IF;
1854: x_return_status := FND_API.G_RET_STS_SUCCESS;
1855:
1848:
1849: IF l_debug_level > 0 THEN
1850: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1851: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1852: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1853: END IF;
1854: x_return_status := FND_API.G_RET_STS_SUCCESS;
1855:
1856:
1911: l_exists_prepay := 'N';
1912: END;
1913:
1914: IF l_debug_level > 0 THEN
1915: oe_debug_pub.add( 'OEXVPPYB: l_exists_prepay flag is: '||l_exists_prepay , 3 ) ;
1916: END IF;
1917: -- Prepayment Processing
1918: IF l_exists_prepay = 'Y'
1919: AND nvl(l_calling_action,'X') NOT IN ('SHIPPING','PACKING' ,'PICKING')
1919: AND nvl(l_calling_action,'X') NOT IN ('SHIPPING','PACKING' ,'PICKING')
1920: AND p_process_prepayment = 'Y' THEN
1921:
1922: IF l_debug_level > 0 THEN
1923: oe_debug_pub.add( 'OEXVPPYB: start prepayment processing.' , 3 ) ;
1924: END IF;
1925:
1926: l_orig_cc_approval_code := l_header_rec.credit_card_approval_code;
1927:
1948:
1949: For c_payment_rec IN hdr_payments_cur (p_header_id) LOOP
1950:
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
1953: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
1954: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
1955: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
1956: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
1949: For c_payment_rec IN hdr_payments_cur (p_header_id) LOOP
1950:
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
1953: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
1954: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
1955: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
1956: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
1957: END IF;
1950:
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
1953: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
1954: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
1955: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
1956: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
1957: END IF;
1958:
1951: IF l_debug_level > 0 THEN
1952: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
1953: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
1954: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
1955: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
1956: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
1957: END IF;
1958:
1959: --5932506 l_approval_code := null; -- initialize for each record.
1952: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
1953: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
1954: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
1955: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
1956: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
1957: END IF;
1958:
1959: --5932506 l_approval_code := null; -- initialize for each record.
1960: l_approval_code := nvl(c_payment_rec.credit_card_approval_code,l_header_rec.credit_card_approval_code); -- 5932506
1971: -- need to process payments regardless of the defer flag.
1972: -- Apply PPP prepayment hold (hold id 13) on the order;
1973:
1974: IF l_debug_level > 0 THEN
1975: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1976: oe_debug_pub.add( 'OEXVPPYB: place order on PPP hold.' , 1 ) ;
1977: END IF;
1978: Apply_Prepayment_Hold
1979: ( p_header_id => p_header_id
1972: -- Apply PPP prepayment hold (hold id 13) on the order;
1973:
1974: IF l_debug_level > 0 THEN
1975: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1976: oe_debug_pub.add( 'OEXVPPYB: place order on PPP hold.' , 1 ) ;
1977: END IF;
1978: Apply_Prepayment_Hold
1979: ( p_header_id => p_header_id
1980: ,p_hold_id => 13 -- Seed Id for PPP Hold
1984: );
1985:
1986: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1987: IF l_debug_level > 0 THEN
1988: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
1989: END IF;
1990: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1991: RAISE FND_API.G_EXC_ERROR;
1992: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: ELSE
1996: -- process the payments.
1997:
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.add( 'OEXVPPYB: l_pending_amount is: '||l_pending_amount, 3 ) ;
2000: END IF;
2001:
2002: l_bank_acct_id := c_payment_rec.payment_trx_id;
2003:
2020: OR c_payment_rec.payment_type_code = 'ACH'
2021: OR c_payment_rec.payment_type_code = 'DEBIT_CARD' THEN
2022:
2023: IF l_debug_level > 0 THEN
2024: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2025: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2026: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2027: END IF;
2028:
2021: OR c_payment_rec.payment_type_code = 'DEBIT_CARD' THEN
2022:
2023: IF l_debug_level > 0 THEN
2024: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2025: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2026: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2027: END IF;
2028:
2029: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2022:
2023: IF l_debug_level > 0 THEN
2024: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2025: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2026: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2027: END IF;
2028:
2029: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2030: ( p_header_rec => l_header_rec ) ;
2029: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2030: ( p_header_rec => l_header_rec ) ;
2031:
2032: IF l_debug_level > 0 THEN
2033: oe_debug_pub.add( 'OEXVPPYB: After Getting primary payment method'||l_receipt_method_id , 5 ) ;
2034: END IF;
2035: END IF; -- if payment_type_code is CREDIT_CARD etc.
2036: END IF; -- if l_receipt_method_id is null for credit card etc.
2037: END IF; -- if l_receipt_method_id is null
2036: END IF; -- if l_receipt_method_id is null for credit card etc.
2037: END IF; -- if l_receipt_method_id is null
2038:
2039: IF l_debug_level > 0 THEN
2040: oe_debug_pub.add( 'OEXVPPYB: l_receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2041: END IF;
2042: --bug 5204358
2043: IF l_receipt_method_id =0 THEN
2044: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
2042: --bug 5204358
2043: IF l_receipt_method_id =0 THEN
2044: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
2045: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt Method');
2046: oe_debug_pub.add('OEXVPPYB: receipt method is null.',3);
2047: oe_msg_pub.Add;
2048: RAISE FND_API.G_EXC_ERROR;
2049:
2050: ELSE
2059:
2060: l_header_rec.credit_card_approval_code := c_payment_rec.credit_card_approval_code;
2061:
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2064: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2065: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2066: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2067: END IF;
2060: l_header_rec.credit_card_approval_code := c_payment_rec.credit_card_approval_code;
2061:
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2064: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2065: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2066: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2067: END IF;
2068:
2061:
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2064: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2065: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2066: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2067: END IF;
2068:
2069: OE_PrePayment_PVT.Create_Receipt
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2064: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2065: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2066: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2067: END IF;
2068:
2069: OE_PrePayment_PVT.Create_Receipt
2070: ( p_header_rec => l_header_rec
2085:
2086: l_header_rec.credit_card_approval_code := l_orig_cc_approval_code;
2087:
2088: IF l_debug_level > 0 THEN
2089: oe_debug_pub.add( 'OEXVPPYB: After calling Create_Receipt API, return status is: '||l_return_status, 3) ;
2090: END IF;
2091:
2092: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2093:
2091:
2092: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2093:
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'OEXVPPYB: update oe_payments for payment_set_id: '||l_payment_set_id, 3) ;
2096: END IF;
2097:
2098: UPDATE oe_payments
2099: SET payment_set_id = l_payment_set_id,
2137: ELSE
2138: IF l_payment_response_error_code IN ('IBY_0001', 'IBY_0008') THEN
2139: -- apply epayment server failure hold (seeded id is 15).;
2140: IF l_debug_level > 0 THEN
2141: oe_debug_pub.add( 'after create_receipt, error code is: '||l_payment_response_error_code, 3 ) ;
2142: END IF;
2143:
2144: -- get the message count here, as we do not want to append
2145: -- the message ONT_PAYMENT_PROCESS_FAILED to the hold comments.
2150: l_msg_data := null;
2151: FOR I IN 1..l_msg_count LOOP
2152: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
2153: IF l_debug_level > 0 THEN
2154: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2155: END IF;
2156: END LOOP;
2157:
2158: Apply_Prepayment_Hold
2170:
2171: ELSE
2172: -- Apply payment failure hold (seeded hold id is 14);
2173: IF l_debug_level > 0 THEN
2174: oe_debug_pub.add( 'after create_receipt, applying payment failure hold.', 3 ) ;
2175: END IF;
2176: Apply_Prepayment_Hold
2177: ( p_header_id => p_header_id
2178: ,p_hold_id => 14 -- payment failure Hold
2190: END IF; -- if l_return status...
2191:
2192: ELSIF l_pending_amount < 0 THEN
2193: IF l_debug_level > 0 THEN
2194: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2195: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2196: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2197: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2198: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2191:
2192: ELSIF l_pending_amount < 0 THEN
2193: IF l_debug_level > 0 THEN
2194: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2195: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2196: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2197: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2198: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2199: END IF;
2192: ELSIF l_pending_amount < 0 THEN
2193: IF l_debug_level > 0 THEN
2194: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2195: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2196: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2197: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2198: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2199: END IF;
2200:
2193: IF l_debug_level > 0 THEN
2194: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2195: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2196: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2197: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2198: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2199: END IF;
2200:
2201: Create_Refund(
2194: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2195: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2196: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2197: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2198: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2199: END IF;
2200:
2201: Create_Refund(
2202: p_header_rec => l_header_rec,
2207: x_return_status => l_return_status
2208: );
2209:
2210: IF l_debug_level > 0 THEN
2211: oe_debug_pub.add( 'OEXVPPYB Process_Payments: after calling create_refund, return status is: '||l_return_status, 3 ) ;
2212: END IF;
2213:
2214: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2215: UPDATE oe_payments
2219:
2220: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2221: -- Apply payment failure hold (seeded hold id is 14);
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( 'after create_refund, applying payment failure hold.', 3 ) ;
2224: END IF;
2225:
2226: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2227:
2230: l_msg_data := null;
2231: FOR I IN 1..l_msg_count LOOP
2232: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
2233: IF l_debug_level > 0 THEN
2234: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2235: END IF;
2236: END LOOP;
2237:
2238: Apply_Prepayment_Hold
2309: , p_calling_action => l_calling_action
2310: ) ;
2311:
2312: IF l_debug_level > 0 THEN
2313: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED FOR AUTHORIZATION: '|| L_RULE_DEFINED ) ;
2314: END IF;
2315:
2316: IF l_rule_defined = 'N' THEN
2317: IF l_debug_level > 0 THEN
2314: END IF;
2315:
2316: IF l_rule_defined = 'N' THEN
2317: IF l_debug_level > 0 THEN
2318: oe_debug_pub.add( 'OEXVPPYB: No rule defined for authorization. ' ) ;
2319: END IF;
2320: --bug3511992
2321: x_msg_count := OE_MSG_PUB.Count_Msg;
2322:
2319: END IF;
2320: --bug3511992
2321: x_msg_count := OE_MSG_PUB.Count_Msg;
2322:
2323: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2324: RETURN;
2325: END IF;
2326: END IF;
2327:
2325: END IF;
2326: END IF;
2327:
2328: IF l_debug_level > 0 THEN
2329: oe_debug_pub.add( 'OEXVPPYB: Calling Credit Card Authorization for Multiple Payments.' ) ;
2330: END IF;
2331:
2332: OE_Verify_Payment_PUB.Authorize_MultiPayments
2333: ( p_header_rec => l_header_rec
2344: , p_return_status => l_return_status
2345: );
2346:
2347: IF l_debug_level > 0 THEN
2348: oe_debug_pub.add( 'OEXVPPYB: After calling OE_Verify_Payment_PUB.Authorize_MultiPayments, return status is: '||l_return_status, 3) ;
2349: END IF;
2350:
2351:
2352: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2370: , p_calling_action => l_calling_action
2371: ) ;
2372:
2373: IF l_debug_level > 0 THEN
2374: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED : '|| L_RULE_DEFINED ) ;
2375: END IF;
2376:
2377: IF l_rule_defined = 'N' THEN
2378: --bug3511992
2377: IF l_rule_defined = 'N' THEN
2378: --bug3511992
2379: x_msg_count := OE_MSG_PUB.Count_Msg;
2380:
2381: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2382:
2383: return;
2384: END IF;
2385: END IF;
2413: ----------------------------------------------------------------
2414:
2415: BEGIN
2416: IF l_debug_level > 0 THEN
2417: oe_debug_pub.add( 'OEXVPPYB: BEGIN CHECK FOR MCC CODE. ' , 1 ) ;
2418: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
2419: END IF;
2420:
2421: BEGIN
2414:
2415: BEGIN
2416: IF l_debug_level > 0 THEN
2417: oe_debug_pub.add( 'OEXVPPYB: BEGIN CHECK FOR MCC CODE. ' , 1 ) ;
2418: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
2419: END IF;
2420:
2421: BEGIN
2422: IF l_debug_level > 0 THEN
2419: END IF;
2420:
2421: BEGIN
2422: IF l_debug_level > 0 THEN
2423: oe_debug_pub.add( 'OEXVPPYB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
2424: oe_debug_pub.add( 'OEXVPPYB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
2425: END IF;
2426:
2427: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
2420:
2421: BEGIN
2422: IF l_debug_level > 0 THEN
2423: oe_debug_pub.add( 'OEXVPPYB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
2424: oe_debug_pub.add( 'OEXVPPYB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
2425: END IF;
2426:
2427: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
2428: ( p_header_id => p_header_id
2434: , x_return_status => l_return_status
2435: );
2436:
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add( 'OEXVPPYB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
2439: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
2440: END IF;
2441:
2442: END ;
2435: );
2436:
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add( 'OEXVPPYB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
2439: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
2440: END IF;
2441:
2442: END ;
2443: END ; -- End MCC Block
2453:
2454: --bug3511992
2455: x_msg_count := OE_MSG_PUB.Count_Msg;
2456:
2457: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2458:
2459: x_return_status := l_return_status;
2460:
2461: IF l_debug_level > 0 THEN
2458:
2459: x_return_status := l_return_status;
2460:
2461: IF l_debug_level > 0 THEN
2462: oe_debug_pub.add( 'OEXVPPYB: Exiting Process_Payments procedure. '||x_return_status , 1 ) ;
2463: END IF;
2464:
2465: EXCEPTION
2466:
2473:
2474: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: IF l_debug_level > 0 THEN
2477: oe_debug_pub.add( 'Unexpected error in Process_Payments: ' || SQLERRM , 3 ) ;
2478: END IF;
2479: OE_MSG_PUB.Count_And_Get
2480: ( p_count => l_msg_count,
2481: p_data => l_msg_data
2491: );
2492: END IF;
2493:
2494: IF l_debug_level > 0 THEN
2495: oe_debug_pub.add( 'Oracle error in others in process_payments: '||SQLERRM , 3 ) ;
2496: END IF;
2497:
2498: OE_MSG_PUB.Count_And_Get
2499: ( p_count => l_msg_count,
2520: l_org_id NUMBER;
2521: l_site_use_id NUMBER;
2522: l_trxn_extension_id NUMBER;
2523: l_is_credit_card VARCHAR2(1) := 'N';
2524: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2525:
2526: BEGIN
2527:
2528: IF l_debug_level > 0 THEN
2525:
2526: BEGIN
2527:
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2530: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2531: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2532: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2533: END IF;
2526: BEGIN
2527:
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2530: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2531: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2532: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2533: END IF;
2534:
2527:
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2530: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2531: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2532: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2533: END IF;
2534:
2535: /* Line Level payments for FROM Line */
2528: IF l_debug_level > 0 THEN
2529: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2530: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2531: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2532: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2533: END IF;
2534:
2535: /* Line Level payments for FROM Line */
2536: OE_Line_Payment_Util.Query_Rows(p_line_id => p_split_from_line_id,
2541: i := l_from_line_payment_tbl.First;
2542: j := 1;
2543: While i is not null Loop
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add('Inside split payment loop '||l_from_line_payment_tbl(i).payment_type_code,3);
2546: oe_debug_pub.add('Inside split payment loop I is: '||i, 1);
2547: END IF;
2548:
2549: IF l_from_line_payment_tbl(i).payment_type_code = 'COMMITMENT' THEN
2542: j := 1;
2543: While i is not null Loop
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add('Inside split payment loop '||l_from_line_payment_tbl(i).payment_type_code,3);
2546: oe_debug_pub.add('Inside split payment loop I is: '||i, 1);
2547: END IF;
2548:
2549: IF l_from_line_payment_tbl(i).payment_type_code = 'COMMITMENT' THEN
2550: -- commitment is handled by delayed request for commitment.
2587: null;
2588: END;
2589:
2590: IF l_debug_level > 0 THEN
2591: oe_debug_pub.add('source trxn_extenion_id is: '||l_from_line_payment_tbl(i).trxn_extension_id,3);
2592: END IF;
2593:
2594: -- bug 5204275
2595: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED' THEN
2594: -- bug 5204275
2595: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED' THEN
2596:
2597: IF l_debug_level > 0 THEN
2598: oe_debug_pub.add(' security code is required.',3);
2599: END IF;
2600:
2601: l_trxn_extension_id := null;
2602: l_line_payment_tbl(j).credit_card_approval_code := 'CVV2_REQUIRED';
2615: x_return_status => x_return_status);
2616: END IF;
2617:
2618: IF l_debug_level > 0 THEN
2619: oe_debug_pub.add('new trxn_extenion_id is: '||l_trxn_extension_id,3);
2620: END IF;
2621:
2622: l_line_payment_tbl(j).trxn_extension_id := l_trxn_extension_id;
2623:
2642: l_control_rec.clear_api_cache := FALSE;
2643: l_control_rec.clear_api_requests := FALSE;
2644:
2645: IF l_debug_level > 0 THEN
2646: oe_debug_pub.add('OEXVPPYB: before OE_Order_PVT.Line_Payments',3);
2647: END IF;
2648:
2649: OE_Order_PVT.Line_Payments
2650: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2675: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
2676: AND l_line_payment_tbl(i).credit_card_approval_code = 'CVV2_REQUIRED' THEN
2677:
2678: IF l_debug_level > 0 THEN
2679: oe_debug_pub.add('updating oe_payments. ',3);
2680: END IF;
2681:
2682: UPDATE oe_payments
2683: SET credit_card_approval_code = 'CVV2_REQUIRED'
2689: END LOOP;
2690:
2691:
2692: IF l_debug_level > 0 THEN
2693: oe_debug_pub.add('Exiting OE_Prepayment_PVT.split_payment ', 1);
2694: END IF;
2695:
2696: EXCEPTION
2697:
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700:
2701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2703: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2704:
2705: WHEN OTHERS THEN
2706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2707: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) Then
2764: l_trxn_extension_id NUMBER;
2765: l_exists_auth VARCHAR2(1);
2766: --pnpl end
2767:
2768: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2769:
2770: BEGIN
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add('Entering OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
2768: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2769:
2770: BEGIN
2771: IF l_debug_level > 0 THEN
2772: oe_debug_pub.add('Entering OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
2773: END IF;
2774:
2775: x_return_status := FND_API.G_RET_STS_SUCCESS;
2776: x_result_out := 'COMPLETE:COMPLETE';
2778: --pnpl start
2779: IF nvl(p_exists_prepay,'N') = 'Y' THEN
2780: l_exists_prepay := TRUE;
2781: IF l_debug_level > 0 THEN
2782: oe_debug_pub.add('There is prepayment for this order');
2783: END IF;
2784: ELSE
2785: l_exists_prepay := FALSE;
2786: END IF;
2789: IF OE_PREPAYMENT_UTIL.Get_Installment_Options = 'ENABLE_PAY_NOW' AND
2790: OE_PREPAYMENT_UTIL.Is_Pay_Now_Line(p_line_id) THEN
2791:
2792: IF l_debug_level > 0 THEN
2793: oe_debug_pub.add('Installment Options is ENABLE_PAY_NOW');
2794: oe_debug_pub.add('This is a pay now line');
2795: END IF;
2796:
2797: BEGIN
2790: OE_PREPAYMENT_UTIL.Is_Pay_Now_Line(p_line_id) THEN
2791:
2792: IF l_debug_level > 0 THEN
2793: oe_debug_pub.add('Installment Options is ENABLE_PAY_NOW');
2794: oe_debug_pub.add('This is a pay now line');
2795: END IF;
2796:
2797: BEGIN
2798: SELECT header_id
2801: WHERE line_id = p_line_id;
2802: EXCEPTION
2803: WHEN OTHERS THEN
2804: IF l_debug_level > 0 THEN
2805: oe_debug_pub.add('unable to get header_id.. raising unexpected error');
2806: END IF;
2807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2808: END;
2809:
2808: END;
2809:
2810: IF l_exists_prepay THEN
2811: IF l_debug_level > 0 THEN
2812: oe_debug_pub.add('Checking if there is enough prepayment to cover the pay now total for the order');
2813: END IF;
2814:
2815: BEGIN
2816: SELECT sum(nvl(payment_amount, 0))
2823: l_prepaid_total := 0;
2824: END;
2825:
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add('l_prepaid_total : ' || l_prepaid_total);
2828: END IF;
2829:
2830: OE_Prepayment_PVT.Get_Pay_Now_Amounts
2831: (p_header_id => l_header_id
2844: l_pay_now_total := 0;
2845: END IF;
2846:
2847: IF l_debug_level > 0 THEN
2848: oe_debug_pub.add('l_pay_now_total : ' || l_pay_now_total);
2849: END IF;
2850:
2851: IF l_prepaid_total >= l_pay_now_total OR
2852: l_pay_now_total = 0 THEN
2850:
2851: IF l_prepaid_total >= l_pay_now_total OR
2852: l_pay_now_total = 0 THEN
2853: IF l_debug_level > 0 THEN
2854: oe_debug_pub.add('prepaid total covers the pay now total.. proceeding to Payment Assurance check');
2855: END IF;
2856: goto PAYMENT_ASSURANCE;
2857: END IF;
2858: END IF;
2870: EXCEPTION
2871: WHEN NO_DATA_FOUND THEN
2872: --check if there is a header level invoice payment
2873: IF l_debug_level > 0 THEN
2874: oe_debug_pub.add('No line level invoice payment. Checking if there is a header level invoice payment');
2875: END IF;
2876:
2877: BEGIN
2878: SELECT payment_type_code, trxn_extension_id
2920:
2921: -- set the status to COMPLETE if there exists payment record and
2922: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
2923: IF l_debug_level > 0 THEN
2924: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
2925: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
2926: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
2927: END IF;
2928:
2921: -- set the status to COMPLETE if there exists payment record and
2922: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
2923: IF l_debug_level > 0 THEN
2924: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
2925: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
2926: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
2927: END IF;
2928:
2929:
2922: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
2923: IF l_debug_level > 0 THEN
2924: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
2925: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
2926: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
2927: END IF;
2928:
2929:
2930: IF nvl(l_payment_type_code, 'COMMITMENT') <> 'COMMITMENT' AND
2929:
2930: IF nvl(l_payment_type_code, 'COMMITMENT') <> 'COMMITMENT' AND
2931: NOT (nvl(l_payment_type_code, 'COMMITMENT') = 'CREDIT_CARD' AND
2932: l_exists_auth = 'N') THEN
2933: oe_debug_pub.add('There exists an invoice payment');
2934: IF NOT l_exists_prepay THEN
2935: x_result_out := 'COMPLETE:COMPLETE';
2936:
2937: OE_Order_WF_Util.Update_Flow_Status_Code
2939: ,p_flow_status_code => 'PAYMENT_ASSURANCE_COMPLETE'
2940: ,x_return_status => l_return_status);
2941:
2942: IF l_debug_level > 0 THEN
2943: oe_debug_pub.add('Return status 1 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2944: END IF;
2945: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2947: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2948: RAISE FND_API.G_EXC_ERROR;
2949: END IF;
2950:
2951: IF l_debug_level > 0 THEN
2952: oe_debug_pub.add('Returning from the procedure as there is no prepayment record for the order');
2953: END IF;
2954: RETURN;
2955: ELSE
2956: IF l_debug_level > 0 THEN
2953: END IF;
2954: RETURN;
2955: ELSE
2956: IF l_debug_level > 0 THEN
2957: oe_debug_pub.add('Proceeding to the payment assurance check as there is prepayment for the order');
2958: END IF;
2959: goto PAYMENT_ASSURANCE;
2960: END IF;
2961:
2961:
2962: ELSE
2963:
2964: IF l_debug_level > 0 THEN
2965: oe_debug_pub.add('No Pay now payment instrument. setting x_result_out to INCOMPLETE and returning from the procedure');
2966: END IF;
2967: --bug4950878
2968: fnd_message.Set_Name('ONT', 'ONT_PAYNOW_PMT_NOT_ASSURED');
2969: oe_msg_pub.add;
2974: ,p_flow_status_code => 'PAY_NOW_PAYMENT_NOT_ASSURED'
2975: ,x_return_status => l_return_status);
2976:
2977: IF l_debug_level > 0 THEN
2978: oe_debug_pub.add('Return status 2 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
2979: END IF;
2980: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2982: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2989:
2990: ELSE
2991: IF NOT l_exists_prepay THEN
2992: IF l_debug_level > 0 THEN
2993: oe_debug_pub.add('In procedure Process_Payment_Assurance: line not eligible for payment assurance');
2994: END IF;
2995: x_result_out := 'COMPLETE:NOT_ELIGIBLE';
2996: RETURN;
2997: END IF;
3019: -- will go to Eligible block and retry later.
3020: IF l_payment_set_id IS NOT NULL THEN
3021:
3022: IF l_debug_level > 0 THEN
3023: oe_debug_pub.add('Checking payment assurance for payment_set_id: '||l_payment_set_id,3);
3024: END IF;
3025:
3026: -- if there exists one receipt that is neither REMITTED nor CLEARED.
3027: --bug5394265 Need to check that receipts other than those for Credit Cards need to be 'CLEARED' for the payment to be assured.
3062: l_payment_not_assured := 'N';
3063: END;
3064:
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add('payment_set_id is: '||l_payment_set_id,3);
3067: oe_debug_pub.add('l_payment_not_assured flag is: '||l_payment_not_assured,3);
3068: END IF;
3069:
3070: IF l_payment_not_assured = 'Y' THEN
3063: END;
3064:
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add('payment_set_id is: '||l_payment_set_id,3);
3067: oe_debug_pub.add('l_payment_not_assured flag is: '||l_payment_not_assured,3);
3068: END IF;
3069:
3070: IF l_payment_not_assured = 'Y' THEN
3071: x_result_out := 'COMPLETE:INCOMPLETE';
3084: p_flow_status_code => 'PAYMENT_ASSURANCE_COMPLETE',
3085: x_return_status => l_return_status);
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add('Return status 1 from update_flow_status_code: '||l_return_status , 3 ) ;
3089: END IF;
3090: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3092: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3102: p_flow_status_code => 'PAYMENT_ASSURANCE_NOT_ASSURED',
3103: x_return_status => l_return_status);
3104:
3105: IF l_debug_level > 0 THEN
3106: oe_debug_pub.add('Return status 2 from update_flow_status_code: '||l_return_status , 3 ) ;
3107: END IF;
3108: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3110: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3114:
3115: x_return_status := l_return_status;
3116:
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'Process_Payment_Assurance , result_out is: '||x_result_out, 3);
3119: oe_debug_pub.add('Exiting OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
3120: END IF;
3121:
3122: EXCEPTION
3115: x_return_status := l_return_status;
3116:
3117: IF l_debug_level > 0 THEN
3118: oe_debug_pub.add( 'Process_Payment_Assurance , result_out is: '||x_result_out, 3);
3119: oe_debug_pub.add('Exiting OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
3120: END IF;
3121:
3122: EXCEPTION
3123: WHEN FND_API.G_EXC_ERROR THEN
3125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3127: WHEN OTHERS THEN
3128: IF l_debug_level > 0 THEN
3129: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
3130: END IF;
3131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3133: THEN
3154: l_change_sequence VARCHAR2(50);
3155: l_source_document_type_id NUMBER;
3156: l_source_document_id NUMBER;
3157:
3158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3159:
3160: begin
3161: If l_debug_level > 0 Then
3162: oe_debug_pub.add('entering OE_PrePayment_PVT.print_payment_receipt');
3158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3159:
3160: begin
3161: If l_debug_level > 0 Then
3162: oe_debug_pub.add('entering OE_PrePayment_PVT.print_payment_receipt');
3163: End If;
3164: x_return_status := FND_API.G_RET_STS_SUCCESS;
3165: x_result_out := 'COMPLETE:COMPLETE';
3166: select order_source_id, orig_sys_document_ref, change_sequence
3193: l_new_request_id := FND_REQUEST.SUBMIT_REQUEST('ONT','OEXPMTRC',
3194: null,null,FALSE,l_sob_id,l_organization_id,NULL,NULL,p_header_id,
3195: chr(0));
3196: If l_debug_level > 0 Then
3197: oe_debug_pub.add('l_new_request_id = '||l_new_request_id);
3198: End If;
3199: FND_MESSAGE.SET_NAME('ONT','ONT_CONCURRENT_REQUEST_ID');
3200: fnd_message.set_token('REQUEST_ID',l_new_request_id);
3201: OE_MSG_PUB.Add;
3208: EXCEPTION
3209:
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211: If l_debug_level > 0 Then
3212: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3213: End If;
3214: oe_msg_pub.Add_Text(errbuf);
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3216:
3215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3216:
3217: WHEN OTHERS THEN
3218: If l_debug_level > 0 Then
3219: oe_debug_pub.add( 'EXCEPTION , OTHERS. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3220: End If;
3221: IF FND_MSG_PUB.Check_Msg_Level
3222: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3223: THEN
3243: l_payment_type_code VARCHAR2(80);
3244: l_return_status VARCHAR2(30);
3245: l_msg_count number := 0;
3246: l_msg_data VARCHAR2(2000) := NULL;
3247: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3248:
3249: --Deleting the prepayment records of credit card payments
3250: --alone as the invoice payments of credit cards would be
3251: --deleted in the delete row procedure of Oe_header_payment_util
3278:
3279: x_return_status := FND_API.G_RET_STS_SUCCESS;
3280:
3281: IF l_debug_level > 0 THEN
3282: oe_debug_pub.add('Entering OEXVPPYB Delete_Payments');
3283: END IF;
3284:
3285: IF p_line_id IS NOT NULL THEN
3286: FOR line_payments_rec IN line_payments
3288: IF line_payments_rec.trxn_extension_id is not null
3289: THEN
3290:
3291: IF l_debug_level > 0 THEN
3292: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3293: oe_debug_pub.add('line id'||p_line_id);
3294: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3295: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3296: END IF;
3289: THEN
3290:
3291: IF l_debug_level > 0 THEN
3292: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3293: oe_debug_pub.add('line id'||p_line_id);
3294: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3295: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3296: END IF;
3297:
3290:
3291: IF l_debug_level > 0 THEN
3292: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3293: oe_debug_pub.add('line id'||p_line_id);
3294: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3295: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3296: END IF;
3297:
3298: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3291: IF l_debug_level > 0 THEN
3292: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3293: oe_debug_pub.add('line id'||p_line_id);
3294: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3295: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3296: END IF;
3297:
3298: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3299: (p_header_id => p_header_id,
3325: IF header_payments_rec.trxn_extension_id is not null
3326: THEN
3327:
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3330: oe_debug_pub.add('line id'||p_line_id);
3331: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3332: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3333: END IF;
3326: THEN
3327:
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3330: oe_debug_pub.add('line id'||p_line_id);
3331: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3332: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3333: END IF;
3334:
3327:
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3330: oe_debug_pub.add('line id'||p_line_id);
3331: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3332: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3333: END IF;
3334:
3335: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3328: IF l_debug_level > 0 THEN
3329: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3330: oe_debug_pub.add('line id'||p_line_id);
3331: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3332: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3333: END IF;
3334:
3335: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3336: (p_header_id => p_header_id,
3357: Update oe_order_headers_all set
3358: payment_type_code = null where
3359: header_id = p_header_id;
3360: IF l_debug_level > 0 THEN
3361: oe_debug_pub.add('Header id...after updating oe order headers all'||p_header_id);
3362: END IF;
3363: x_return_status := FND_API.G_RET_STS_SUCCESS;
3364: END IF;
3365: END IF;
3377:
3378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3380: IF l_debug_level > 0 THEN
3381: oe_debug_pub.add( 'Unexpected error in Delete_Payments: ' || SQLERRM , 3 ) ;
3382: END IF;
3383: OE_MSG_PUB.Count_And_Get
3384: ( p_count => x_msg_count,
3385: p_data => x_msg_data
3395: );
3396: END IF;
3397:
3398: IF l_debug_level > 0 THEN
3399: oe_debug_pub.add( 'Oracle error in others in delete_payments: '||SQLERRM , 3 ) ;
3400: END IF;
3401:
3402: OE_MSG_PUB.Count_And_Get
3403: ( p_count => x_msg_count,
3553: and nvl(payment_collection_event,'PREPAY') = 'INVOICE';
3554:
3555: Begin
3556:
3557: oe_debug_pub.add('entering update_hdr_payment ');
3558: x_return_status := l_return_status;
3559:
3560: if p_action = 'UPDATE_LINE' then
3561:
3561:
3562: if p_line_id is null then
3563:
3564: x_return_status := FND_API.G_RET_STS_ERROR;
3565: oe_debug_pub.add('failed because line_id is null ');
3566: return;
3567:
3568: else
3569:
3576: for update nowait;
3577:
3578: if l_lock_line_id is null then
3579: x_return_status := FND_API.G_RET_STS_ERROR;
3580: oe_debug_pub.add('failed to lock the line with line_id : ' || l_lock_line_id);
3581: return;
3582: end if;
3583:
3584: l_pmt_changed := 'N';
3614:
3615: exception
3616: when others then
3617: x_return_status := FND_API.G_RET_STS_ERROR;
3618: oe_debug_pub.add('failed to update line payment type: ' || substr(sqlerrm,1,300));
3619: rollback to savepoint update_line;
3620: return;
3621: End;
3622: else
3674: END;
3675: --bug3733877 end
3676:
3677: if p_payment_term_id is not null then
3678: oe_debug_pub.add('OEXVPPYB: term id : ' || p_payment_term_id);
3679:
3680: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(p_payment_term_id);
3681:
3682: oe_debug_pub.add('prepayment_flag is : ' || l_prepayment_flag );
3678: oe_debug_pub.add('OEXVPPYB: term id : ' || p_payment_term_id);
3679:
3680: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(p_payment_term_id);
3681:
3682: oe_debug_pub.add('prepayment_flag is : ' || l_prepayment_flag );
3683: end if;
3684:
3685:
3686: IF p_action = 'UPDATE_HEADER' THEN
3702: else
3703:
3704: open payment_cur;
3705: loop
3706: oe_debug_pub.add('before payment_cur fetching ');
3707: fetch payment_cur into l_payment_type_code,
3708: l_payment_amount,
3709: l_check_number; --R12 CC Encryption
3710: /*l_credit_card_code,
3712: l_credit_card_number,
3713: l_credit_card_expiration_date,
3714: l_credit_card_approval_code ;*/ --R12 CC Encryption
3715: exit when payment_cur%NOTFOUND;
3716: oe_debug_pub.add('payment_type_code is : ' || l_payment_type_code );
3717: end loop; -- loop for payment_cur
3718: close payment_cur;
3719: --commenting the elsif part for bug3733877
3720: /* elsif p_count = 0 then
3747: l_header_rec.credit_card_expiration_date := l_credit_card_expiration_date;
3748: l_header_rec.credit_card_approval_code := l_credit_card_approval_code;
3749: --bug3781675 end
3750:
3751: oe_debug_pub.add('before updating oe_order_headers_all ');
3752: oe_debug_pub.add('Credit card number'||l_credit_card_number);
3753: oe_debug_pub.add('Check number'||l_check_number);
3754: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3755:
3748: l_header_rec.credit_card_approval_code := l_credit_card_approval_code;
3749: --bug3781675 end
3750:
3751: oe_debug_pub.add('before updating oe_order_headers_all ');
3752: oe_debug_pub.add('Credit card number'||l_credit_card_number);
3753: oe_debug_pub.add('Check number'||l_check_number);
3754: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3755:
3756: update oe_order_headers_all
3749: --bug3781675 end
3750:
3751: oe_debug_pub.add('before updating oe_order_headers_all ');
3752: oe_debug_pub.add('Credit card number'||l_credit_card_number);
3753: oe_debug_pub.add('Check number'||l_check_number);
3754: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3755:
3756: update oe_order_headers_all
3757: set payment_type_code = l_payment_type_code,
3750:
3751: oe_debug_pub.add('before updating oe_order_headers_all ');
3752: oe_debug_pub.add('Credit card number'||l_credit_card_number);
3753: oe_debug_pub.add('Check number'||l_check_number);
3754: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3755:
3756: update oe_order_headers_all
3757: set payment_type_code = l_payment_type_code,
3758: -- payment_amount = l_payment_amount, --bug 5185139
3764: credit_card_approval_code = l_credit_card_approval_code,*/ --R12 CC Encryption
3765: lock_control = lock_control + 1 --bug3781675
3766: where header_id = p_header_id;
3767:
3768: oe_debug_pub.add('after updating oe_order_headers_all');
3769: --bug3781675 start
3770:
3771: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
3772:
3778: , p_header_id => l_header_rec.header_id
3779: , x_index => l_index
3780: , x_return_status => l_return_status);
3781:
3782: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
3783: oe_debug_pub.add( 'HDR INDEX IS: ' || L_INDEX , 1 ) ;
3784:
3785: IF l_index is not null then
3786: -- modify Global Picture
3779: , x_index => l_index
3780: , x_return_status => l_return_status);
3781:
3782: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
3783: oe_debug_pub.add( 'HDR INDEX IS: ' || L_INDEX , 1 ) ;
3784:
3785: IF l_index is not null then
3786: -- modify Global Picture
3787:
3809: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812:
3813: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
3814:
3815: OE_Order_PVT.Process_Requests_And_Notify
3816: ( p_process_requests => TRUE
3817: , p_notify => FALSE
3837: if p_action = 'ACTIONS_LINE_PAYMENTS' then
3838:
3839: if l_prepay_count > 0 then
3840:
3841: oe_debug_pub.add('cannot do this as there exists prepayments ');
3842:
3843: return;
3844: end if;
3845: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3844: end if;
3845: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3846:
3847:
3848: oe_debug_pub.add('p_count is : ' || p_count );
3849: oe_debug_pub.add('payment_type_code is : ' || nvl(p_payment_type_code, 'null' ));
3850:
3851: if p_action = 'ACTIONS_PAYMENTS' then
3852:
3845: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3846:
3847:
3848: oe_debug_pub.add('p_count is : ' || p_count );
3849: oe_debug_pub.add('payment_type_code is : ' || nvl(p_payment_type_code, 'null' ));
3850:
3851: if p_action = 'ACTIONS_PAYMENTS' then
3852:
3853: if p_count > 0 then
3851: if p_action = 'ACTIONS_PAYMENTS' then
3852:
3853: if p_count > 0 then
3854:
3855: oe_debug_pub.add('no need to do this as there exists payments ');
3856:
3857: return;
3858: end if;
3859: end if; -- if p_action = 'ACTIONS_PAYMENTS'
3880: );
3881:
3882: l_order_total := nvl(l_subtotal,0) + nvl(l_charges,0) + nvl(l_tax,0);
3883:
3884: oe_debug_pub.add('order total is : ' || l_order_total);
3885:
3886: l_downpayment := oe_prepayment_util.get_downpayment_amount(
3887: p_header_id => p_header_id,
3888: p_term_id => p_payment_term_id,
3893: p_payment_amount := l_downpayment;
3894:
3895: end if; -- if nvl(l_prepayment_flag,'N') = 'Y'
3896:
3897: oe_debug_pub.add('before calling BO ' );
3898: l_control_rec.controlled_operation := TRUE;
3899: l_control_rec.check_security := TRUE;
3900: l_control_rec.default_attributes := TRUE;
3901: l_control_rec.change_attributes := TRUE;
3945: l_x_Header_Payment_tbl(1).payment_number := l_inv_payment_number;
3946: l_x_Header_Payment_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
3947: END IF;
3948:
3949: oe_debug_pub.add('PVIPRANA: l_x_Header_Payment_tbl(1).operation is '||l_x_Header_Payment_tbl(1).operation);
3950: l_x_Header_Payment_tbl(1).payment_type_code := p_payment_type_code;
3951: l_x_Header_Payment_tbl(1).payment_collection_event := 'INVOICE';
3952: l_x_Header_Payment_tbl(1).payment_amount := NULL;
3953:
3962:
3963: -- comment out for R12 CC encryption
3964: /*
3965: IF l_x_Header_Payment_tbl(1).credit_card_approval_code IS NOT NULL THEN
3966: oe_debug_pub.add('Credit Card Approval Code exists.... Fetching current auth code');
3967: oe_header_util.query_row
3968: ( p_header_id => p_header_id
3969: , x_header_rec => l_header_rec);
3970:
3973: , p_trxn_id => l_trxn_id
3974: , p_tangible_id => l_x_Header_Payment_tbl(1).tangible_id
3975: ) ;
3976:
3977: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
3978:
3979: oe_debug_pub.add( 'TANGIBLE ID IS : '||l_x_Header_Payment_tbl(1).tangible_id ) ;
3980: END IF;
3981: */
3975: ) ;
3976:
3977: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
3978:
3979: oe_debug_pub.add( 'TANGIBLE ID IS : '||l_x_Header_Payment_tbl(1).tangible_id ) ;
3980: END IF;
3981: */
3982: --bug3906851 end
3983: -- Load IN parameters if any exist
4027:
4028:
4029: END IF; -- if prepayment_flag = 'Y'
4030:
4031: oe_debug_pub.add('l_x_header_payment_tbl ' || l_x_header_payment_tbl.count);
4032: oe_debug_pub.add('l_x_old_header_payment_tbl ' || l_x_old_header_payment_tbl.count);
4033:
4034: -- Call OE_Order_PVT.Header_Payments
4035: OE_Order_PVT.Header_Payments
4028:
4029: END IF; -- if prepayment_flag = 'Y'
4030:
4031: oe_debug_pub.add('l_x_header_payment_tbl ' || l_x_header_payment_tbl.count);
4032: oe_debug_pub.add('l_x_old_header_payment_tbl ' || l_x_old_header_payment_tbl.count);
4033:
4034: -- Call OE_Order_PVT.Header_Payments
4035: OE_Order_PVT.Header_Payments
4036: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
4065:
4066:
4067: END IF; -- if p_action in ('UPDATE_HEADER', 'DELETE_PAYMENT')
4068:
4069: oe_debug_pub.add('before end ');
4070: x_return_status := l_return_status;
4071: oe_debug_pub.add('return status w no error is : ' || x_return_status);
4072:
4073: EXCEPTION
4067: END IF; -- if p_action in ('UPDATE_HEADER', 'DELETE_PAYMENT')
4068:
4069: oe_debug_pub.add('before end ');
4070: x_return_status := l_return_status;
4071: oe_debug_pub.add('return status w no error is : ' || x_return_status);
4072:
4073: EXCEPTION
4074:
4075: WHEN others then
4073: EXCEPTION
4074:
4075: WHEN others then
4076: x_return_status := FND_API.G_RET_STS_ERROR;
4077: oe_debug_pub.add('when others error ');
4078: RAISE;
4079:
4080:
4081: END Update_Hdr_Payment;
4106: l_msg_count NUMBER := 0 ;
4107: l_msg_data VARCHAR2(2000) := NULL ;
4108:
4109: --
4110: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4111: --
4112: BEGIN
4113:
4114: IF l_debug_level > 0 THEN
4111: --
4112: BEGIN
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4116: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4117: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4118: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4119: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4112: BEGIN
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4116: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4117: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4118: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4119: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4120: END IF;
4113:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4116: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4117: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4118: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4119: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4120: END IF;
4121:
4114: IF l_debug_level > 0 THEN
4115: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4116: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4117: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4118: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4119: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4120: END IF;
4121:
4122: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4115: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4116: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4117: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4118: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4119: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4120: END IF;
4121:
4122: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4123: p_api_version => 1.0,
4147:
4148:
4149: x_return_status := l_return_status;
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4152: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4153: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4154: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4155: END IF;
4148:
4149: x_return_status := l_return_status;
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4152: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4153: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4154: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4155: END IF;
4156:
4149: x_return_status := l_return_status;
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4152: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4153: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4154: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4155: END IF;
4156:
4157: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4152: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4153: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4154: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4155: END IF;
4156:
4157: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
4158:
4161: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_refund_amount, l_format_mask));
4162: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
4163: oe_msg_pub.add;
4164: IF l_debug_level > 0 THEN
4165: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_REFUND_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
4166: oe_debug_pub.add('pviprana: Releasing Prepayment Hold');
4167: END IF;
4168: --bug3507871
4169: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
4162: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
4163: oe_msg_pub.add;
4164: IF l_debug_level > 0 THEN
4165: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_REFUND_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
4166: oe_debug_pub.add('pviprana: Releasing Prepayment Hold');
4167: END IF;
4168: --bug3507871
4169: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
4170: , p_msg_count => l_msg_count
4181: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
4182: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_refund_amount, l_format_mask));
4183: oe_msg_pub.add;
4184: IF l_debug_level > 0 THEN
4185: oe_debug_pub.add( 'OEXVPPYB: REFUND PROCESSING FOR ' ||P_REFUND_AMOUNT||' FAILED.' , 3 ) ;
4186: END IF;
4187:
4188: IF l_msg_count = 1 THEN
4189: IF l_debug_level > 0 THEN
4186: END IF;
4187:
4188: IF l_msg_count = 1 THEN
4189: IF l_debug_level > 0 THEN
4190: oe_debug_pub.add('Error message after calling refund_prepayment_wrapper API: '||l_msg_data , 3 ) ;
4191: END IF;
4192: oe_msg_pub.add_text(p_message_text => l_msg_data);
4193: ELSIF ( FND_MSG_PUB.Count_Msg > 0 ) THEN
4194: arp_util.enable_debug;
4195: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
4196: -- l_msg_data := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
4197: l_msg_data := FND_MSG_PUB.Get(i,'F');
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_DATA , 3 );
4200: END IF;
4201: oe_msg_pub.add_text(p_message_text => l_msg_data);
4202: END LOOP;
4203: END IF;
4208: END IF;
4209: END IF;
4210:
4211: IF l_debug_level > 0 THEN
4212: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.Create_Refund.' , 1 ) ;
4213: END IF;
4214:
4215: EXCEPTION
4216:
4223:
4224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4226: IF l_debug_level > 0 THEN
4227: oe_debug_pub.add( 'Unexpected error in Create_Refund: ' || SQLERRM , 3 ) ;
4228: END IF;
4229: OE_MSG_PUB.Count_And_Get
4230: ( p_count => l_msg_count,
4231: p_data => l_msg_data
4240: , 'Create_Refund'
4241: );
4242: END IF;
4243: IF l_debug_level > 0 THEN
4244: oe_debug_pub.add( 'Other oracle error in Create_Refund: ' || SQLERRM , 3 ) ;
4245: END IF;
4246:
4247: OE_MSG_PUB.Count_And_Get
4248: ( p_count => l_msg_count,
4264: l_payment_set_id NUMBER;
4265: l_return_status VARCHAR2(30);
4266: l_msg_count NUMBER := 0 ;
4267: l_msg_data VARCHAR2(2000) := NULL ;
4268: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4269:
4270: BEGIN
4271:
4272: IF l_debug_level > 0 THEN
4269:
4270: BEGIN
4271:
4272: IF l_debug_level > 0 THEN
4273: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.Process_Payment_Refund.' , 1 ) ;
4274: END IF;
4275:
4276: OE_Prepayment_Util.Get_PrePayment_Info
4277: ( p_header_id => p_header_rec.header_id
4284: return;
4285: END IF;
4286:
4287: IF l_debug_level > 0 THEN
4288: oe_debug_pub.add('In Process_Payment_Refund, refund amount is: '||l_refund_amount, 3);
4289: oe_debug_pub.add('In Process_Payment_Refund, payment_set_id is: '||l_payment_set_id,3) ;
4290: END IF;
4291:
4292: Create_Refund
4285: END IF;
4286:
4287: IF l_debug_level > 0 THEN
4288: oe_debug_pub.add('In Process_Payment_Refund, refund amount is: '||l_refund_amount, 3);
4289: oe_debug_pub.add('In Process_Payment_Refund, payment_set_id is: '||l_payment_set_id,3) ;
4290: END IF;
4291:
4292: Create_Refund
4293: (p_header_rec => p_header_rec,
4298: x_return_status => l_return_status
4299: );
4300:
4301: IF l_debug_level > 0 THEN
4302: oe_debug_pub.add( 'In Process_Payment_Refund, after calling create_refund return status is: '||l_return_status, 3 ) ;
4303: END IF;
4304:
4305:
4306: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4319:
4320: x_return_status := l_return_status;
4321:
4322: IF l_debug_level > 0 THEN
4323: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.Process_Payment_Refund.' , 1 ) ;
4324: END IF;
4325:
4326: EXCEPTION
4327:
4374: l_return_status VARCHAR2(30);
4375: l_msg_count NUMBER;
4376: l_msg_data VARCHAR2(2000);
4377: --
4378: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4379: --
4380: BEGIN
4381:
4382: IF l_debug_level > 0 THEN
4379: --
4380: BEGIN
4381:
4382: IF l_debug_level > 0 THEN
4383: oe_debug_pub.add( 'OEXVPPYB: Entering OE_PREPAYMENT_PVT.Any_Payment_Hold_Exists.' , 3 ) ;
4384: END IF;
4385:
4386: --pnpl
4387: IF p_line_id IS NULL THEN
4392: );
4393:
4394: IF p_hold_exists = 'Y' THEN
4395: IF l_debug_level > 0 THEN
4396: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD EXISTS ON HEADER ID : ' ||
4397: P_HEADER_ID , 3 ) ;
4398: END IF;
4399: RETURN ;
4400: ELSE
4413: -- Check the Result
4414: IF l_hold_result = FND_API.G_TRUE THEN
4415: p_hold_exists := 'Y';
4416: IF l_debug_level > 0 THEN
4417: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER ' , 3 ) ;
4418: END IF;
4419: return;
4420:
4421: ELSE
4432: );
4433: IF l_hold_result = FND_API.G_TRUE THEN
4434: p_hold_exists := 'Y';
4435: IF l_debug_level > 0 THEN
4436: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER' , 3 ) ;
4437: END IF;
4438: return;
4439: ELSE
4440: -- check if there exists header level pending authorization hold.
4452:
4453: IF l_hold_result = FND_API.G_TRUE THEN
4454: p_hold_exists := 'Y';
4455: IF l_debug_level > 0 THEN
4456: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER.' , 3 ) ;
4457: END IF;
4458: return;
4459: ELSE
4460: -- check if there exists line level pending authorization hold.
4471: p_hold_rec.x_result_out = FND_API.G_TRUE )
4472: THEN
4473: p_hold_exists := 'Y';
4474: IF l_debug_level > 0 THEN
4475: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER LINE.' , 3 ) ;
4476: END IF;
4477: ELSE
4478: p_hold_exists := 'N';
4479: IF l_debug_level > 0 THEN
4476: END IF;
4477: ELSE
4478: p_hold_exists := 'N';
4479: IF l_debug_level > 0 THEN
4480: oe_debug_pub.add( 'OEXVPPYB: NO PAYMENT HOLD ON ORDER.' , 3 ) ;
4481: END IF;
4482: END IF;
4483: END IF;
4484: END IF;
4502: -- Check the Result
4503: IF l_hold_result = FND_API.G_TRUE THEN
4504: p_hold_exists := 'Y';
4505: IF l_debug_level > 0 THEN
4506: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER LINE' , 3 ) ;
4507: END IF;
4508: return;
4509:
4510: ELSE
4521: );
4522: IF l_hold_result = FND_API.G_TRUE THEN
4523: p_hold_exists := 'Y';
4524: IF l_debug_level > 0 THEN
4525: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER LINE' , 3 ) ;
4526: END IF;
4527: return;
4528: ELSE
4529: OE_HOLDS_PUB.Check_Holds_Line
4540:
4541: IF l_hold_result = FND_API.G_TRUE THEN
4542: p_hold_exists := 'Y';
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add( 'OEXVPPYB: Pending Authorization hold EXISTS ON ORDER LINE' , 3 ) ;
4545: END IF;
4546: ELSE
4547: p_hold_exists := 'N';
4548: IF l_debug_level > 0 THEN
4545: END IF;
4546: ELSE
4547: p_hold_exists := 'N';
4548: IF l_debug_level > 0 THEN
4549: oe_debug_pub.add( 'OEXVPPYB: NO PAYMENT HOLD ON ORDER LINE' , 3 ) ;
4550: END IF;
4551: END IF;
4552: END IF;
4553: END IF;
4615: when no_data_found then
4616: IF lock_lin_Payments%ISOPEN Then
4617: close lock_lin_Payments;
4618: END IF;
4619: oe_debug_pub.add('no line payments exist');
4620: x_return_status := FND_API.G_RET_STS_SUCCESS;
4621: return;
4622: when others then
4623: ROLLBACK TO LINE_PAYMENTS;
4623: ROLLBACK TO LINE_PAYMENTS;
4624: IF lock_lin_Payments%ISOPEN Then
4625: close lock_lin_Payments;
4626: END IF;
4627: oe_debug_pub.add('locking the row failed');
4628: -- issue an error message saying that lock row failed.
4629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4630: RAISE;
4631: End;
4671: when no_data_found then
4672: IF lock_hdr_Payments%ISOPEN Then
4673: close lock_hdr_Payments;
4674: END IF;
4675: oe_debug_pub.add('no header payments exist');
4676: x_return_status := FND_API.G_RET_STS_SUCCESS;
4677: return;
4678: when others then
4679: ROLLBACK TO LOCK_HEADER_PAYMENTS;
4679: ROLLBACK TO LOCK_HEADER_PAYMENTS;
4680: IF lock_hdr_Payments%ISOPEN Then
4681: close lock_hdr_Payments;
4682: END IF;
4683: oe_debug_pub.add('locking the row failed');
4684: -- issue an error message saying that lock row failed.
4685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4687: End;
4721: l_msg_count NUMBER := 0;
4722: l_msg_data VARCHAR2(2000);
4723: l_return_status VARCHAR2(30);
4724: --
4725: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4726: --
4727:
4728: BEGIN
4729: IF l_debug_level > 0 THEN
4726: --
4727:
4728: BEGIN
4729: IF l_debug_level > 0 THEN
4730: oe_debug_pub.add( 'OEXVPPYB: Entering OE_PREPAYMENT_PVT.Delete_Payment_Hold.' , 3 ) ;
4731: END IF;
4732: x_return_status := FND_API.G_RET_STS_SUCCESS;
4733:
4734: IF p_line_id IS NOT NULL THEN
4829: l_installment_option VARCHAR2(12);
4830: l_percent NUMBER := 0;
4831: l_pr_return_value BOOLEAN;
4832:
4833: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4834:
4835: BEGIN
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4833: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4834:
4835: BEGIN
4836: IF l_debug_level > 0 THEN
4837: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4838: END IF;
4839:
4840: x_return_status := FND_API.G_RET_STS_SUCCESS;
4841:
4869: l_due_now_freight_amount_sum := l_due_now_freight_amount_sum + l_due_now_charges;
4870: l_due_now_total_sum := l_due_now_total_sum + l_due_now_total;
4871:
4872: IF l_debug_level > 0 THEN
4873: oe_debug_pub.add('l_due_now_total_sum : ' || l_due_now_total_sum);
4874: END IF;
4875:
4876: CLOSE due_now_cur;
4877: END LOOP;
4881: x_due_now_total_summary_rec.freight_amount := l_due_now_freight_amount_sum;
4882: x_due_now_total_summary_rec.total_amount := l_due_now_total_sum;
4883:
4884: IF l_debug_level > 0 THEN
4885: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4886: END IF;
4887:
4888: EXCEPTION
4889: WHEN OTHERS THEN
4887:
4888: EXCEPTION
4889: WHEN OTHERS THEN
4890: IF l_debug_level > 0 THEN
4891: oe_debug_pub.add('Error in OE_PREPAYMENT_PVT.Get_First_Installment');
4892: END IF;
4893:
4894: x_return_status := FND_API.G_RET_STS_ERROR;
4895:
4936: l_currency_code VARCHAR2(15);
4937: l_pay_now_commitment NUMBER;
4938: l_exc_inv_lines VARCHAR2(1);
4939:
4940: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4941:
4942: BEGIN
4943: IF l_debug_level > 0 THEN
4944: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
4940: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4941:
4942: BEGIN
4943: IF l_debug_level > 0 THEN
4944: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
4945: END IF;
4946: x_return_status := FND_API.G_RET_STS_SUCCESS;
4947:
4948: IF p_exc_inv_lines IS NULL THEN
4998:
4999: --bug5223078 start
5000: IF l_line_tbl(i).payment_term_id IS NULL THEN
5001: IF l_debug_level > 0 THEN
5002: oe_debug_pub.add('Not passing the line ' || l_line_tbl(i).line_id || ' to AR API since the payment term is null');
5003: END IF;
5004:
5005: GOTO END_OF_LOOP;
5006: END IF;
5046: END LOOP;
5047:
5048: IF p_line_id IS NULL THEN
5049: IF l_debug_level > 0 THEN
5050: oe_debug_pub.add('Before getting the header_charges');
5051: END IF;
5052:
5053: i := l_pay_now_total_detail_tbl.count + 1;
5054: --bug5223078 start
5055: l_hdr_term_id := OE_Order_Cache.g_header_rec.payment_term_id;
5056: --appending the header level charges only if l_hdr_term_id IS NOT NULL
5057: IF l_hdr_term_id IS NULL THEN
5058: IF l_debug_level > 0 THEN
5059: oe_debug_pub.add('Not passing the header level charges to AR API since the header level payment term is null');
5060: END IF;
5061: END IF;
5062: --bug5223078 end
5063: END IF;
5094: ,x_msg_count => x_msg_count
5095: ,x_msg_data => x_msg_data
5096: );
5097: IF l_debug_level > 0 THEN
5098: oe_debug_pub.add('x_return_status after calling AR_VIEW_TERM_GRP.pay_now_amounts : '|| x_return_status);
5099: END IF;
5100:
5101: ELSIF OE_Prepayment_Util.Get_Installment_Options ='AUTHORIZE_FIRST_INSTALLMENT' THEN
5102: -- the following API is used to get the values for tax, charges, subtotal and total
5156: END IF;
5157:
5158:
5159: IF l_debug_level > 0 THEN
5160: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5161: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5162: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5163: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5164: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5157:
5158:
5159: IF l_debug_level > 0 THEN
5160: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5161: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5162: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5163: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5164: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5165: END IF;
5158:
5159: IF l_debug_level > 0 THEN
5160: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5161: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5162: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5163: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5164: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5165: END IF;
5166:
5159: IF l_debug_level > 0 THEN
5160: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5161: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5162: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5163: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5164: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5165: END IF;
5166:
5167:
5160: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5161: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5162: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5163: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5164: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5165: END IF;
5166:
5167:
5168: EXCEPTION