[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
276: l_set_of_books_rec OE_Order_Cache.Set_Of_Books_Rec_Type;
277: l_msg_text VARCHAR2(2000);
278:
279: --
280: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
281: --
282:
283: l_hdr_inv_to_cust_id NUMBER; --bug#8854662
284:
284:
285: BEGIN
286:
287: IF l_debug_level > 0 THEN
288: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_RECEIPT.' , 1 ) ;
289: END IF;
290: x_result_out := 'PASS' ;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292:
290: x_result_out := 'PASS' ;
291: x_return_status := FND_API.G_RET_STS_SUCCESS;
292:
293: IF l_debug_level > 0 THEN
294: oe_debug_pub.add( 'OEXVPPYB: CALLING AR CREATE RECEIPT API ' , 3 ) ;
295: END IF;
296: l_payment_set_id := p_payment_set_id;
297:
298: -- To get the remittance bank account id.
323: -- the credit_card_approval_code
324: IF p_approval_code IS NOT NULL THEN
325:
326: IF l_debug_level > 0 THEN
327: oe_debug_pub.add( 'OEXVPPYB: FETCHING THE TANGIBLE ID.' , 3 ) ;
328: END IF;
329: OE_Verify_Payment_PUB.Fetch_Current_Auth
330: ( p_header_rec => p_header_rec
331: , p_trxn_id => l_trxn_id
361: l_call_payment_processor := FND_API.G_FALSE;
362: END IF;
363:
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
362: END IF;
363:
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
370: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
363:
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
370: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
371: END IF;
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
370: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
371: END IF;
372:
365: oe_debug_pub.add( 'OEXVPPYB: before calling AR Create_Prepayment: '||p_header_rec.header_id , 3 ) ;
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
370: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
371: END IF;
372:
373: --changes for bug#8854662 start
366: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
367: oe_debug_pub.add( 'OEXVPPYB: p_approval_code is: '||p_approval_code , 3 ) ;
368: oe_debug_pub.add( 'OEXVPPYB: p_trxn_extension_id is: '||p_trxn_extension_id , 3 ) ;
369: oe_debug_pub.add( 'OEXVPPYB: org_id is: '||p_header_rec.org_id , 3 ) ;
370: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||p_payment_set_id , 3 ) ;
371: END IF;
372:
373: --changes for bug#8854662 start
374: BEGIN
422: );
423:
424:
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
423:
424:
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
424:
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
432: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
432: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
433: END IF;
426: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CASH_RECEIPT_ID IS: '||L_CR_ID , 1 ) ;
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
432: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
433: END IF;
434:
427: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
432: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
433: END IF;
434:
435: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
428: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT CHECK NUMBER IS: '||P_RECEIPT_NUMBER , 1 ) ; -- bug 4724845
429: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_payment_response_error_code IS: '||x_payment_response_error_code , 1 ) ;
430: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT approval_code IS: '||p_approval_code , 1 ) ;
431: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT x_msg_count IS: '||x_msg_count , 1 ) ;
432: oe_debug_pub.add( 'OEXVPPYB: AFTER AR CREATE_PREPAYMENT RETURN STATUS IS: '||X_RETURN_STATUS , 1 ) ;
433: END IF;
434:
435: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
436: IF x_msg_count = 1 THEN
434:
435: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
436: IF x_msg_count = 1 THEN
437: IF l_debug_level > 0 THEN
438: oe_debug_pub.add('Error message after calling Create_Prepayment API: '||x_msg_data , 3 ) ;
439: END IF;
440: --7559372 start
441: FND_MESSAGE.Set_Name('ONT','OE_PPCC_AUTH_FAIL');
442: FND_MESSAGE.Set_Token('PAYMENT_NUMBER',p_payment_number);
449: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
450: -- l_msg_text := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
451: l_msg_text := FND_MSG_PUB.Get(i,'F');
452: IF l_debug_level > 0 THEN
453: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_TEXT , 3 );
454: END IF;
455: --7559372 start
456: FND_MESSAGE.Set_Name('ONT','OE_PPCC_AUTH_FAIL');
457: FND_MESSAGE.Set_Token('PAYMENT_NUMBER',p_payment_number);
467: -- RETURN;
468: END IF;
469:
470: IF l_debug_level > 0 THEN
471: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.CREATE_RECEIPT.' , 1 ) ;
472: END IF;
473:
474: EXCEPTION
475: WHEN OTHERS THEN
475: WHEN OTHERS THEN
476: x_result_out := 'FAIL';
477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
478: IF l_debug_level > 0 THEN
479: oe_debug_pub.add('Unexpected error in Create_Prepayment API: '||sqlerrm , 3 ) ;
480: END IF;
481:
482: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
483: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Create_Receipt');
515: l_msg_count NUMBER := 0 ;
516: l_msg_data VARCHAR2(2000) := NULL ;
517:
518: --
519: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
520: --
521: BEGIN
522:
523: IF l_debug_level > 0 THEN
520: --
521: BEGIN
522:
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
525: oe_debug_pub.add( 'BEFORE CALLING REFUND_PREPAYMENTS PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
526: END IF;
527:
528: AR_PREPAYMENTS.refund_prepayments(
521: BEGIN
522:
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
525: oe_debug_pub.add( 'BEFORE CALLING REFUND_PREPAYMENTS PAYMENT_SET_ID IS: '||P_PAYMENT_SET_ID , 1 ) ;
526: END IF;
527:
528: AR_PREPAYMENTS.refund_prepayments(
529: p_api_version => 1.0,
542: );
543:
544: x_return_status := l_return_status;
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
547: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
548: END IF;
549:
550: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
543:
544: x_return_status := l_return_status;
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
547: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
548: END IF;
549:
550: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
551:
554: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_amount * -1, l_format_mask));
555: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
556: oe_msg_pub.add;
557: IF l_debug_level > 0 THEN
558: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
559: END IF;
560: ELSE
561: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
562: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_amount, l_format_mask));
561: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
562: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_amount, l_format_mask));
563: oe_msg_pub.add;
564: IF l_debug_level > 0 THEN
565: oe_debug_pub.add( 'OEXVPPYB: REFUND PROCESSING FOR ' ||P_AMOUNT||' FAILED.' , 3 ) ;
566: END IF;
567: END IF;
568:
569: IF l_debug_level > 0 THEN
566: END IF;
567: END IF;
568:
569: IF l_debug_level > 0 THEN
570: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.REFUND_REQUEST.' , 1 ) ;
571: END IF;
572:
573: EXCEPTION WHEN OTHERS THEN
574: x_result_out := 'FAIL';
641: l_trx_date DATE;
642: l_trxn_extension_id NUMBER; --R12 CC Encryption
643:
644: --
645: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
646: --
647: BEGIN
648:
649: IF l_debug_level > 0 THEN
646: --
647: BEGIN
648:
649: IF l_debug_level > 0 THEN
650: oe_debug_pub.add( 'OEXVPPYB: ENTERING PROCESS PREPAYMENT ORDER' , 1 ) ;
651: END IF;
652: x_return_status := FND_API.G_RET_STS_SUCCESS;
653:
654: -- calculate pending amount to be processed
654: -- calculate pending amount to be processed
655: l_pending_amount := OE_PrePayment_PVT.Calculate_Pending_Amount(l_header_rec);
656:
657: IF l_debug_level > 0 THEN
658: oe_debug_pub.add( 'OEXVPPYB: PENDING AMOUNT IS: '||L_PENDING_AMOUNT , 3 ) ;
659: END IF;
660: IF l_pending_amount = 0 THEN
661: -- no payment processing needed
662: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
693: if AR API returns with success, release PPP hold and credit card failure hl.
694: *******************************************************************/
695:
696: IF l_debug_level > 0 THEN
697: oe_debug_pub.add( 'OEXVPPYB: CALLING ACTION IS: '||L_CALLING_ACTION , 3 ) ;
698:
699: END IF;
700:
701: IF l_calling_action = 'UPDATE' THEN
699: END IF;
700:
701: IF l_calling_action = 'UPDATE' THEN
702: IF l_debug_level > 0 THEN
703: oe_debug_pub.add( 'IN OEXVPPYB.PLS: THIS IS COMING FROM DELAYED REQUEST.' , 1 ) ;
704: END IF;
705: -- Need to apply PPP hold if there is change to order line after booking.
706:
707: l_apply_ppp_hold := 'Y';
714: , p_hold_exists => l_ppp_hold_exists
715: );
716:
717: IF l_debug_level > 0 THEN
718: oe_debug_pub.add( 'OEXVPPYB: VALUE FOR L_PPP_HOLD_EXISTS IS: '||L_PPP_HOLD_EXISTS , 1 ) ;
719: END IF;
720:
721: l_fnd_profile_value := fnd_profile.value('ONT_PROCESS_PAYMENT_IMMEDIATELY');
722:
720:
721: l_fnd_profile_value := fnd_profile.value('ONT_PROCESS_PAYMENT_IMMEDIATELY');
722:
723: IF l_debug_level > 0 THEN
724: oe_debug_pub.add( 'OEXVPPYB: VALUE FOR PREPAYMENT PROFILE OPTION IS : '||L_FND_PROFILE_VALUE , 1 ) ;
725: END IF;
726:
727: IF l_ppp_hold_exists = 'N' THEN
728: IF l_fnd_profile_value= 'Y' THEN
731: l_apply_ppp_hold := 'Y';
732: END IF;
733: ELSE
734: IF l_debug_level > 0 THEN
735: oe_debug_pub.add( 'NO ACTION REQUIRED AS HOLD ALREADY EXISTS FOR HEADER: '||P_HEADER_REC.HEADER_ID , 3 ) ;
736: END IF;
737: RETURN;
738: END IF;
739:
744: -- added for bug 4201622
745: IF p_delayed_request is NULL THEN
746: -- this is coming from concurrent manager, need to release all prepayment holds.
747: IF l_debug_level > 0 THEN
748: oe_debug_pub.add( 'OEXVPPYB: RELEASING ALL PREPAYMENT HOLDS AS THIS IS FROM CONCURRENT MANAGER.' , 1 ) ;
749: END IF;
750: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
751: , p_msg_count => l_msg_count
752: , p_msg_data => l_msg_data
762:
763: ELSE
764: -- no processing for other calling action
765: IF l_debug_level > 0 THEN
766: oe_debug_pub.add( 'NO ACTION REQUIRED AS CALLING_ACTION IS INVALID.' , 3 ) ;
767: END IF;
768: RETURN;
769: END IF;
770:
776: -- to get bank account id.
777: BEGIN
778:
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
777: BEGIN
778:
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
785: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
778:
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
785: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
786: END IF;
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
785: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
786: END IF;
787:
780: oe_debug_pub.add( 'OEXVPPYB: CURRENCY_CODE IS: '||P_HEADER_REC.TRANSACTIONAL_CURR_CODE , 3 ) ;
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
785: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
786: END IF;
787:
788: -- bug 3486808
781: oe_debug_pub.add( 'OEXVPPYB: SOLD_TO_ORG_ID IS: '||P_HEADER_REC.SOLD_TO_ORG_ID , 3 ) ;
782: oe_debug_pub.add( 'OEXVPPYB: INVOICE_TO_ORG_ID IS: '||P_HEADER_REC.INVOICE_TO_ORG_ID , 3 ) ;
783: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_NUMBER IS: '||P_HEADER_REC.CREDIT_CARD_NUMBER , 3 ) ;
784: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_HOLDER IS: '||P_HEADER_REC.CREDIT_CARD_HOLDER_NAME , 3 ) ;
785: --oe_debug_pub.add( 'OEXVPPYB: CREDIT_CARD_EXP IS: '||P_HEADER_REC.CREDIT_CARD_EXPIRATION_DATE , 3 ) ;
786: END IF;
787:
788: -- bug 3486808
789: --R12 CC Encryption
810: EXCEPTION WHEN OTHERS THEN
811: FND_MESSAGE.SET_NAME('ONT','OE_VPM_CC_ACCT_NOT_SET');
812: OE_MSG_PUB.ADD;
813: IF l_debug_level > 0 THEN
814: oe_debug_pub.add( 'OEXVPPYB: ERROR IN ARP_BANK_PKG.PROCESS_CUST_BANK_ACCOUNT' , 3 ) ;
815: END IF;
816: -- apply epayment failure hold due to incorrect credit card information.
817: l_epayment_failure_hold := 'Y';
818: l_create_receipt := 'N';
818: l_create_receipt := 'N';
819: END;
820:
821: IF l_debug_level > 0 THEN
822: oe_debug_pub.add( 'OEXVPPYB: BANK ACCOUNT ID IS : '||L_BANK_ACCT_ID , 3 ) ;
823: END IF;
824:
825: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
826: (p_header_rec => p_header_rec );
825: l_pay_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
826: (p_header_rec => p_header_rec );
827:
828: IF l_debug_level > 0 THEN
829: oe_debug_pub.add( 'OEXVPPYB: THE PRIMARY PAYMENT METHOD ID IS: '||L_PAY_METHOD_ID , 3 ) ;
830: END IF;
831:
832: -- to validate the pay_method_id.
833: IF l_pay_method_id <= 0 THEN
832: -- to validate the pay_method_id.
833: IF l_pay_method_id <= 0 THEN
834:
835: IF l_debug_level > 0 THEN
836: oe_debug_pub.add( 'OEXVPPYB: THE PAYMENT METHOD ID IS INVALID: '||L_PAY_METHOD_ID , 3 ) ;
837: END IF;
838: FND_MESSAGE.SET_NAME('ONT','OE_VPM_NO_PAY_METHOD');
839: OE_MSG_PUB.ADD;
840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841: RETURN;
842: END IF;
843:
844: IF l_debug_level > 0 THEN
845: oe_debug_pub.add( 'OEXVPPYB: L_RECEIPT_METHOD_ID IS: '||L_PAY_METHOD_ID , 1 ) ;
846: END IF;
847:
848: l_create_receipt := 'Y';
849: END IF;
849: END IF;
850: END IF; -- end of checking if l_process_payment is 'Y'.
851:
852: IF l_debug_level > 0 THEN
853: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
854: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
855: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
856: END IF;
857:
850: END IF; -- end of checking if l_process_payment is 'Y'.
851:
852: IF l_debug_level > 0 THEN
853: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
854: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
855: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
856: END IF;
857:
858: -- at this point, either apply hold or process payment.
851:
852: IF l_debug_level > 0 THEN
853: oe_debug_pub.add( 'OEXVPPYB: L_PROCESS_PAYMENT IS: '||L_PROCESS_PAYMENT , 1 ) ;
854: oe_debug_pub.add( 'OEXVPPYB: L_CREATE_RECEIPT IS: '||L_CREATE_RECEIPT , 1 ) ;
855: oe_debug_pub.add( 'OEXVPPYB: L_APPLY_PPP_HOLD IS: '||L_APPLY_PPP_HOLD , 1 ) ;
856: END IF;
857:
858: -- at this point, either apply hold or process payment.
859: IF l_apply_ppp_hold = 'Y' THEN
871:
872: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
873:
874: IF l_debug_level > 0 THEN
875: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
876: END IF;
877: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
878: RAISE FND_API.G_EXC_ERROR;
879: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
902: END IF;
903:
904: IF OE_GLOBALS.G_IPAYMENT_INSTALLED <> 'Y' THEN
905: IF l_debug_level > 0 THEN
906: oe_debug_pub.add( 'OEXVPPYB: IPAYMENT IS NOT INSTALLED!' , 3 ) ;
907: END IF;
908: RETURN;
909: END IF;
910:
910:
911: IF l_create_receipt = 'Y' THEN
912:
913: IF l_debug_level > 0 THEN
914: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
915: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
917: END IF;
918:
911: IF l_create_receipt = 'Y' THEN
912:
913: IF l_debug_level > 0 THEN
914: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
915: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
917: END IF;
918:
919: -- call create receipt API
912:
913: IF l_debug_level > 0 THEN
914: oe_debug_pub.add( 'OEXVPPYB: BEFORE CALLING AR API TO CREATE RECEIPT.' , 2 ) ;
915: oe_debug_pub.add( 'OEXVPPYB: BEFORE CHECKING THE TRANSACTION TYPE' , 3 ) ;
916: oe_debug_pub.add( 'OEXVPPYB: CALLING CREATE RECEIPT' , 3 ) ;
917: END IF;
918:
919: -- call create receipt API
920: BEGIN
946: , x_return_status => l_return_status
947: );
948:
949: IF l_debug_level > 0 THEN
950: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
951: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
952: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
953: END IF;
954:
947: );
948:
949: IF l_debug_level > 0 THEN
950: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
951: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
952: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
953: END IF;
954:
955: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
948:
949: IF l_debug_level > 0 THEN
950: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID AFTER CREATE_RECEIPT: '||L_PAYMENT_SET_ID , 3 ) ;
951: oe_debug_pub.add( 'OEXVPPYB: RECEIPT NUMBER AFTER CREATE_RECEIPT: '||L_RECEIPT_NUMBER , 3 ) ; -- bug 4724845
952: oe_debug_pub.add( 'OEXVPPYB: RETURN_STATUS AFTER CALLING CREATE RECEIPT: '||L_RETURN_STATUS , 3 ) ;
953: END IF;
954:
955: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
956: -- If no error occurred in processing the payment, release any existing
961: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(l_pending_amount, l_format_mask));
962: OE_MSG_PUB.ADD;
963:
964: IF l_debug_level > 0 THEN
965: oe_debug_pub.add( 'OEXVPPYB: RELEASING PREPAYMENT HOLD' , 3 ) ;
966: END IF;
967: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
968: , p_msg_count => l_msg_count
969: , p_msg_data => l_msg_data
1049: l_msg_data := null;
1050: FOR I IN 1..l_msg_count LOOP
1051: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
1052: IF l_debug_level > 0 THEN
1053: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1054: END IF;
1055: END LOOP;
1056:
1057: -- check for existing hold and apply hold if it doesn't exist already.
1105: l_payment_set_id := null;
1106: END;
1107:
1108: IF l_debug_level > 0 THEN
1109: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID PASSED TO REFUND_REQUEST IS: '||L_PAYMENT_SET_ID , 1 ) ;
1110: oe_debug_pub.add( 'OEXVPPYB: CALLING REFUND REQUEST.' , 3 ) ;
1111: END IF;
1112: OE_PrePayment_PVT.Refund_Request( p_header_rec => p_header_rec
1113: , p_amount => l_pending_amount
1106: END;
1107:
1108: IF l_debug_level > 0 THEN
1109: oe_debug_pub.add( 'OEXVPPYB: PAYMENT_SET_ID PASSED TO REFUND_REQUEST IS: '||L_PAYMENT_SET_ID , 1 ) ;
1110: oe_debug_pub.add( 'OEXVPPYB: CALLING REFUND REQUEST.' , 3 ) ;
1111: END IF;
1112: OE_PrePayment_PVT.Refund_Request( p_header_rec => p_header_rec
1113: , p_amount => l_pending_amount
1114: , p_payment_set_id=> l_payment_set_id
1119: );
1120:
1121:
1122: IF l_debug_level > 0 THEN
1123: oe_debug_pub.add( 'OEXVPPYB: RETURN STATUS AFTER CALLING REFUND IS: '||L_RETURN_STATUS , 1 ) ;
1124: END IF;
1125:
1126: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1127: IF l_debug_level > 0 THEN
1124: END IF;
1125:
1126: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1127: IF l_debug_level > 0 THEN
1128: oe_debug_pub.add( 'OEXVPPYB: RELEASING PREPAYMENT HOLD AFTER REFUND PROCESS.' , 3 ) ;
1129: END IF;
1130: Release_Prepayment_Hold ( p_header_id => l_header_rec.header_id
1131: , p_msg_count => l_msg_count
1132: , p_msg_data => l_msg_data
1168:
1169: x_return_status := l_return_status;
1170:
1171: IF l_debug_level > 0 THEN
1172: oe_debug_pub.add( 'OEXVPPYB: EXITING PROCESS PREPAYMENT ORDER. '||x_return_status , 1 ) ;
1173: END IF;
1174:
1175: EXCEPTION
1176:
1217: l_return_status VARCHAR2(30);
1218: l_msg_count NUMBER;
1219: l_msg_data VARCHAR2(2000);
1220: --
1221: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1222: --
1223: BEGIN
1224:
1225: IF l_debug_level > 0 THEN
1222: --
1223: BEGIN
1224:
1225: IF l_debug_level > 0 THEN
1226: oe_debug_pub.add( 'OEXVPPYB: IN CHECK FOR PREPAYMENT HOLD' , 3 ) ;
1227: END IF;
1228:
1229: -- Checking existense of unreleased holds on this order
1230: OE_HOLDS_PUB.Check_Holds
1242: -- Check the Result
1243: IF l_hold_result = FND_API.G_TRUE THEN
1244: p_hold_exists := 'Y';
1245: IF l_debug_level > 0 THEN
1246: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 13 EXISTS ON ORDER' , 3 ) ;
1247: END IF;
1248: return;
1249: ELSE
1250: OE_HOLDS_PUB.Check_Holds
1260: );
1261: IF l_hold_result = FND_API.G_TRUE THEN
1262: p_hold_exists := 'Y';
1263: IF l_debug_level > 0 THEN
1264: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 14 EXISTS ON ORDER' , 3 ) ;
1265: END IF;
1266: return;
1267: ELSE
1268: OE_HOLDS_PUB.Check_Holds
1278: );
1279: IF l_hold_result = FND_API.G_TRUE THEN
1280: p_hold_exists := 'Y';
1281: IF l_debug_level > 0 THEN
1282: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD 15 EXISTS ON ORDER' , 3 ) ;
1283: END IF;
1284: ELSE
1285: p_hold_exists := 'N';
1286: IF l_debug_level > 0 THEN
1283: END IF;
1284: ELSE
1285: p_hold_exists := 'N';
1286: IF l_debug_level > 0 THEN
1287: oe_debug_pub.add( 'OEXVPPYB: NO PREPAYMENT HOLD ON ORDER' , 3 ) ;
1288: END IF;
1289: END IF;
1290: END IF;
1291: END IF;
1328:
1329: l_hold_source_rec OE_Holds_PVT.Hold_Source_REC_type;
1330:
1331: --
1332: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1333: --
1334: BEGIN
1335: p_return_status := FND_API.G_RET_STS_SUCCESS;
1336:
1334: BEGIN
1335: p_return_status := FND_API.G_RET_STS_SUCCESS;
1336:
1337: IF l_debug_level > 0 THEN
1338: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1339: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1340: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1341: END IF;
1342:
1335: p_return_status := FND_API.G_RET_STS_SUCCESS;
1336:
1337: IF l_debug_level > 0 THEN
1338: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1339: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1340: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1341: END IF;
1342:
1343: -- Check if Hold already exists on this order
1336:
1337: IF l_debug_level > 0 THEN
1338: oe_debug_pub.add( 'OEXVPPYB: IN APPLY PREPAYMENT HOLDS' , 3 ) ;
1339: oe_debug_pub.add( 'OEXVPPYB: HEADER ID : '||P_HEADER_ID , 3 ) ;
1340: oe_debug_pub.add( 'OEXVPPYB: HOLD ID : '||P_HOLD_ID , 3 ) ;
1341: END IF;
1342:
1343: -- Check if Hold already exists on this order
1344: IF l_debug_level > 0 THEN
1341: END IF;
1342:
1343: -- Check if Hold already exists on this order
1344: IF l_debug_level > 0 THEN
1345: oe_debug_pub.add( 'OEXVPPYB: CHECKING IF REQUESTED PREPAYMENT HOLD ALREADY APPLIED' , 3 ) ;
1346: END IF;
1347: Any_Prepayment_Hold_Exists ( p_header_id => p_header_id
1348: , p_hold_exists => l_hold_exists
1349: );
1350:
1351: -- Return with Success if this Hold Already exists on the order
1352: IF l_hold_exists = 'Y' THEN
1353: IF l_debug_level > 0 THEN
1354: oe_debug_pub.add( 'OEXVPPYB: HOLD ALREADY APPLIED ON HEADER ID : ' || P_HEADER_ID , 3 ) ;
1355: END IF;
1356: RETURN ;
1357: END IF ;
1358:
1357: END IF ;
1358:
1359: -- Apply Prepayment Hold on Header
1360: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'OEXVPPYB: APPLYING PREPAYMENT HOLD ON HEADER ID : ' || P_HEADER_ID , 3 ) ;
1362: END IF;
1363:
1364: l_hold_source_rec.hold_id := p_hold_id ; -- Requested Hold
1365: l_hold_source_rec.hold_entity_code:= 'O'; -- Order Hold
1383: IF p_hold_id = 13 THEN
1384: FND_MESSAGE.SET_NAME('ONT','ONT_PPP_HOLD_APPLIED');
1385: OE_MSG_PUB.ADD;
1386: IF l_debug_level > 0 THEN
1387: oe_debug_pub.add( 'OEXVPPYB: PPP Hold has been applied on order.', 3 ) ;
1388: END IF;
1389: ELSIF p_hold_id = 14 THEN
1390: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_FAILURE_HOLD');
1391: OE_MSG_PUB.ADD;
1389: ELSIF p_hold_id = 14 THEN
1390: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_FAILURE_HOLD');
1391: OE_MSG_PUB.ADD;
1392: IF l_debug_level > 0 THEN
1393: oe_debug_pub.add( 'OEXVPPYB: payment failure hold has been applied on order.', 3 ) ;
1394: END IF;
1395: ELSIF p_hold_id = 15 THEN
1396: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_SERVER_FAIL_HOLD');
1397: OE_MSG_PUB.ADD;
1395: ELSIF p_hold_id = 15 THEN
1396: FND_MESSAGE.SET_NAME('ONT','ONT_PAYMENT_SERVER_FAIL_HOLD');
1397: OE_MSG_PUB.ADD;
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( 'OEXVPPYB: payment server failure hold has been applied on order.', 3 ) ;
1400: END IF;
1401: END IF;
1402:
1403: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1407: END IF;
1408:
1409: IF l_debug_level > 0 THEN
1410: oe_debug_pub.add( 'OEXVPPYB: APPLIED PREPAYMENT HOLD ON HEADER ID:' || P_HEADER_ID , 3 ) ;
1411: END IF;
1412:
1413: EXCEPTION
1414:
1466: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
1467: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
1468:
1469: --
1470: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1471: --
1472: BEGIN
1473: p_return_status := FND_API.G_RET_STS_SUCCESS;
1474: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
1473: p_return_status := FND_API.G_RET_STS_SUCCESS;
1474: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
1475:
1476: IF l_debug_level > 0 THEN
1477: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PREPAYMENT HOLD' , 3 ) ;
1478: END IF;
1479:
1480: -- Check What type of Holds to Release
1481: IF l_debug_level > 0 THEN
1478: END IF;
1479:
1480: -- Check What type of Holds to Release
1481: IF l_debug_level > 0 THEN
1482: oe_debug_pub.add( 'OEXVPPYB: RELEASE PREPAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1483: END IF;
1484:
1485: -- check for PPP hold.
1486: l_hold_id := 13 ;
1485: -- check for PPP hold.
1486: l_hold_id := 13 ;
1487:
1488: IF l_debug_level > 0 THEN
1489: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1490: END IF;
1491: OE_Verify_Payment_PUB.Hold_Exists
1492: ( p_header_id => l_hold_entity_id
1493: , p_hold_id => l_hold_id
1496:
1497: IF l_hold_exists = 'Y' THEN
1498:
1499: IF l_debug_level > 0 THEN
1500: oe_debug_pub.add( 'OEXVPPYB: RELEASING CC RISK HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1501: END IF;
1502: l_hold_source_rec.hold_id := l_hold_id;
1503: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1504: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1529: -- check for epayment failure hold.
1530: l_hold_id := 14 ;
1531:
1532: IF l_debug_level > 0 THEN
1533: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1534: END IF;
1535: OE_Verify_Payment_PUB.Hold_Exists
1536: ( p_header_id => l_hold_entity_id
1537: , p_hold_id => l_hold_id
1540:
1541: IF l_hold_exists = 'Y' THEN
1542:
1543: IF l_debug_level > 0 THEN
1544: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1545: END IF;
1546: l_hold_source_rec.hold_id := l_hold_id;
1547: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1548: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1571: -- check for epayment server failure hold.
1572: l_hold_id := 15 ;
1573:
1574: IF l_debug_level > 0 THEN
1575: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||L_HOLD_ID , 3 ) ;
1576: END IF;
1577: OE_Verify_Payment_PUB.Hold_Exists
1578: ( p_header_id => l_hold_entity_id
1579: , p_hold_id => l_hold_id
1582:
1583: IF l_hold_exists = 'Y' THEN
1584:
1585: IF l_debug_level > 0 THEN
1586: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT SERVER FAILURE HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1587: END IF;
1588: l_hold_source_rec.hold_id := l_hold_id;
1589: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1590: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1670: l_hold_source_rec OE_HOLDS_PVT.Hold_Source_Rec_Type;
1671: l_hold_release_rec OE_HOLDS_PVT.Hold_Release_Rec_Type;
1672:
1673: --
1674: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1675: --
1676: BEGIN
1677: p_return_status := FND_API.G_RET_STS_SUCCESS;
1678:
1676: BEGIN
1677: p_return_status := FND_API.G_RET_STS_SUCCESS;
1678:
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add( 'OEXVPPYB: IN RELEASE PAYMENT HOLD' , 3 ) ;
1681: END IF;
1682:
1683: -- Check What type of Holds to Release
1684: IF l_debug_level > 0 THEN
1681: END IF;
1682:
1683: -- Check What type of Holds to Release
1684: IF l_debug_level > 0 THEN
1685: oe_debug_pub.add( 'OEXVPPYB: RELEASE PAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1686: END IF;
1687:
1688: IF l_debug_level > 0 THEN
1689: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||P_HOLD_ID , 3 ) ;
1685: oe_debug_pub.add( 'OEXVPPYB: RELEASE PAYMENT HOLDS FOR HEADER ID : ' || L_HOLD_ENTITY_ID , 3 ) ;
1686: END IF;
1687:
1688: IF l_debug_level > 0 THEN
1689: oe_debug_pub.add( 'OEXVPPYB: CHECKING EXISTENCE OF HOLD ID : '||P_HOLD_ID , 3 ) ;
1690: END IF;
1691: OE_Verify_Payment_PUB.Hold_Exists
1692: ( p_header_id => l_hold_entity_id
1693: , p_hold_id => p_hold_id
1696:
1697: IF l_hold_exists = 'Y' THEN
1698:
1699: IF l_debug_level > 0 THEN
1700: oe_debug_pub.add( 'OEXVPPYB: RELEASING PAYMENT HOLD ON ORDER HEADER ID:' || L_HOLD_ENTITY_ID , 3 ) ;
1701: END IF;
1702: l_hold_source_rec.hold_id := p_hold_id;
1703: l_hold_source_rec.HOLD_ENTITY_CODE := 'O';
1704: l_hold_source_rec.HOLD_ENTITY_ID := l_hold_entity_id;
1778: l_min_acct_unit NUMBER;
1779: l_format_mask VARCHAR2(500);
1780:
1781: --
1782: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1783: --
1784: BEGIN
1785: FND_CURRENCY.Get_Info(p_currency_code, -- IN variable
1786: l_precision,
1857: l_cc_rev_reauth_code VARCHAR2(30) := NULL; --CC Reversal ER#16014135
1858: --R12 CC Encryption
1859: l_trxn_extension_id NUMBER;
1860: --
1861: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1862: --
1863:
1864: --moac
1865: l_org_id NUMBER;
1898:
1899: BEGIN
1900:
1901: IF l_debug_level > 0 THEN
1902: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1903: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1904: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1905: END IF;
1906: x_return_status := FND_API.G_RET_STS_SUCCESS;
1899: BEGIN
1900:
1901: IF l_debug_level > 0 THEN
1902: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1903: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1904: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1905: END IF;
1906: x_return_status := FND_API.G_RET_STS_SUCCESS;
1907:
1900:
1901: IF l_debug_level > 0 THEN
1902: oe_debug_pub.add( 'OEXVPPYB: Entering Process_Payments procedure.' , 1 ) ;
1903: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
1904: oe_debug_pub.add( 'OEXVPPYB: p_delayed_request is: '||p_delayed_request , 1 ) ;
1905: END IF;
1906: x_return_status := FND_API.G_RET_STS_SUCCESS;
1907:
1908:
1963: l_exists_prepay := 'N';
1964: END;
1965:
1966: IF l_debug_level > 0 THEN
1967: oe_debug_pub.add( 'OEXVPPYB: l_exists_prepay flag is: '||l_exists_prepay , 3 ) ;
1968: END IF;
1969: -- Prepayment Processing
1970: IF l_exists_prepay = 'Y'
1971: AND nvl(l_calling_action,'X') NOT IN ('SHIPPING','PACKING' ,'PICKING')
1971: AND nvl(l_calling_action,'X') NOT IN ('SHIPPING','PACKING' ,'PICKING')
1972: AND p_process_prepayment = 'Y' THEN
1973:
1974: IF l_debug_level > 0 THEN
1975: oe_debug_pub.add( 'OEXVPPYB: start prepayment processing.' , 3 ) ;
1976: END IF;
1977:
1978: l_orig_cc_approval_code := l_header_rec.credit_card_approval_code;
1979:
1998: -- Or when user explicitly triggers Payment Processing from UI.
1999: -- Or when Booking is processing the non-deferred Payments.
2000: -- This logic applies only for Prepayment.
2001: IF l_debug_level > 0 THEN
2002: oe_debug_pub.add('Updating pre-payment records, to convert percentage to amount, for records where user has not specified the payment_amount', 5);
2003: END IF;
2004:
2005: l_order_total := OE_OE_TOTALS_SUMMARY.Outbound_Order_Total(p_header_id => p_header_id, p_all_lines => 'Y');
2006:
2016: ( nvl(defer_payment_processing_flag, 'N') = 'N' )
2017: );
2018:
2019: IF l_debug_level > 0 THEN
2020: oe_debug_pub.add('Update completed, records updated : ' || sql%rowcount, 5);
2021: END IF;
2022: /* End of bug 8478559 */
2023:
2024:
2029:
2030: For c_payment_rec IN hdr_payments_cur (p_header_id) LOOP
2031:
2032: IF l_debug_level > 0 THEN
2033: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
2034: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
2035: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
2036: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
2037: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
2030: For c_payment_rec IN hdr_payments_cur (p_header_id) LOOP
2031:
2032: IF l_debug_level > 0 THEN
2033: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
2034: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
2035: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
2036: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
2037: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
2038: END IF;
2031:
2032: IF l_debug_level > 0 THEN
2033: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
2034: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
2035: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
2036: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
2037: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
2038: END IF;
2039:
2032: IF l_debug_level > 0 THEN
2033: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
2034: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
2035: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
2036: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
2037: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
2038: END IF;
2039:
2040: --5932506 l_approval_code := null; -- initialize for each record.
2033: oe_debug_pub.add( 'OEXVPPYB: Entering LOOP of the payment records. ', 3 ) ;
2034: oe_debug_pub.add( 'OEXVPPYB: defer payment processing flag is: '||c_payment_rec.defer_payment_processing_flag , 3 ) ;
2035: oe_debug_pub.add( 'OEXVPPYB: payment type is: '||c_payment_rec.payment_type_code , 1 ) ;
2036: oe_debug_pub.add( 'OEXVPPYB: trxn_extension_id is: '||c_payment_rec.trxn_extension_id , 1 ) ;
2037: oe_debug_pub.add( 'OEXVPPYB: check number is: '||c_payment_rec.check_number , 1 ) ; -- bug 4724845
2038: END IF;
2039:
2040: --5932506 l_approval_code := null; -- initialize for each record.
2041: l_approval_code := nvl(c_payment_rec.credit_card_approval_code,l_header_rec.credit_card_approval_code); -- 5932506
2052: -- need to process payments regardless of the defer flag.
2053: -- Apply PPP prepayment hold (hold id 13) on the order;
2054:
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
2057: oe_debug_pub.add( 'OEXVPPYB: place order on PPP hold.' , 1 ) ;
2058: END IF;
2059: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
2060: Apply_Prepayment_Hold
2053: -- Apply PPP prepayment hold (hold id 13) on the order;
2054:
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'OEXVPPYB: l_calling_action is: '||l_calling_action , 1 ) ;
2057: oe_debug_pub.add( 'OEXVPPYB: place order on PPP hold.' , 1 ) ;
2058: END IF;
2059: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
2060: Apply_Prepayment_Hold
2061: ( p_header_id => p_header_id
2067: OE_GLOBALS.G_SYS_HOLD := FALSE; --8477694
2068:
2069: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2070: IF l_debug_level > 0 THEN
2071: oe_debug_pub.add( 'OEXVPPYB: ORDER IS PLACED ON PPP HOLD.' , 3 ) ;
2072: END IF;
2073: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2074: RAISE FND_API.G_EXC_ERROR;
2075: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2078: ELSE
2079: -- process the payments.
2080:
2081: IF l_debug_level > 0 THEN
2082: oe_debug_pub.add( 'OEXVPPYB: l_pending_amount is: '||l_pending_amount, 3 ) ;
2083: END IF;
2084:
2085: l_bank_acct_id := c_payment_rec.payment_trx_id;
2086:
2103: OR c_payment_rec.payment_type_code = 'ACH'
2104: OR c_payment_rec.payment_type_code = 'DIRECT_DEBIT' THEN -- bug 8771134
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2108: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2109: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2110: END IF;
2111:
2104: OR c_payment_rec.payment_type_code = 'DIRECT_DEBIT' THEN -- bug 8771134
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2108: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2109: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2110: END IF;
2111:
2112: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2105:
2106: IF l_debug_level > 0 THEN
2107: oe_debug_pub.add('OEXVPPYB: Calling OE_Verify_Payment_PUB.Get_Primary_Pay_Method');
2108: oe_debug_pub.add('OEXVPPYB: Sold To Org ID :'||l_header_rec.sold_to_org_id);
2109: oe_debug_pub.add('OEXVPPYB: Invoice To Org ID :'||l_header_rec.invoice_to_org_id);
2110: END IF;
2111:
2112: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2113: ( p_header_rec => l_header_rec ) ;
2112: l_receipt_method_id := OE_Verify_Payment_PUB.Get_Primary_Pay_Method
2113: ( p_header_rec => l_header_rec ) ;
2114:
2115: IF l_debug_level > 0 THEN
2116: oe_debug_pub.add( 'OEXVPPYB: After Getting primary payment method'||l_receipt_method_id , 5 ) ;
2117: END IF;
2118: END IF; -- if payment_type_code is CREDIT_CARD etc.
2119: END IF; -- if l_receipt_method_id is null for credit card etc.
2120: END IF; -- if l_receipt_method_id is null
2119: END IF; -- if l_receipt_method_id is null for credit card etc.
2120: END IF; -- if l_receipt_method_id is null
2121:
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add( 'OEXVPPYB: l_receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2124: END IF;
2125: --bug 5204358
2126: IF l_receipt_method_id =0 THEN
2127: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
2125: --bug 5204358
2126: IF l_receipt_method_id =0 THEN
2127: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
2128: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Receipt Method');
2129: oe_debug_pub.add('OEXVPPYB: receipt method is null.',3);
2130: oe_msg_pub.Add;
2131: RAISE FND_API.G_EXC_ERROR;
2132:
2133: ELSE
2142:
2143: l_header_rec.credit_card_approval_code := c_payment_rec.credit_card_approval_code;
2144:
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2147: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2148: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2149: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2150: END IF;
2143: l_header_rec.credit_card_approval_code := c_payment_rec.credit_card_approval_code;
2144:
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2147: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2148: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2149: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2150: END IF;
2151:
2144:
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2147: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2148: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2149: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2150: END IF;
2151:
2152: OE_PrePayment_PVT.Create_Receipt
2145: IF l_debug_level > 0 THEN
2146: oe_debug_pub.add( 'OEXVPPYB: Before calling Create_Receipt API.', 3 ) ;
2147: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2148: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2149: oe_debug_pub.add( 'OEXVPPYB: check number is: '||l_receipt_number, 3 ) ; -- bug 4724845
2150: END IF;
2151:
2152: OE_PrePayment_PVT.Create_Receipt
2153: ( p_header_rec => l_header_rec
2169:
2170: l_header_rec.credit_card_approval_code := l_orig_cc_approval_code;
2171:
2172: IF l_debug_level > 0 THEN
2173: oe_debug_pub.add( 'OEXVPPYB: After calling Create_Receipt API, return status is: '||l_return_status, 3) ;
2174: END IF;
2175:
2176: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2177:
2175:
2176: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2177:
2178: IF l_debug_level > 0 THEN
2179: oe_debug_pub.add( 'OEXVPPYB: update oe_payments for payment_set_id: '||l_payment_set_id, 3) ;
2180: END IF;
2181:
2182: UPDATE oe_payments
2183: SET payment_set_id = l_payment_set_id,
2221: ELSE
2222: IF l_payment_response_error_code IN ('IBY_0001', 'IBY_0008') THEN
2223: -- apply epayment server failure hold (seeded id is 15).;
2224: IF l_debug_level > 0 THEN
2225: oe_debug_pub.add( 'after create_receipt, error code is: '||l_payment_response_error_code, 3 ) ;
2226: END IF;
2227:
2228: -- get the message count here, as we do not want to append
2229: -- the message ONT_PAYMENT_PROCESS_FAILED to the hold comments.
2234: l_msg_data := null;
2235: FOR I IN 1..l_msg_count LOOP
2236: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
2237: IF l_debug_level > 0 THEN
2238: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2239: END IF;
2240: END LOOP;
2241: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
2242: Apply_Prepayment_Hold
2255:
2256: ELSE
2257: -- Apply payment failure hold (seeded hold id is 14);
2258: IF l_debug_level > 0 THEN
2259: oe_debug_pub.add( 'after create_receipt, applying payment failure hold.', 3 ) ;
2260: END IF;
2261: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
2262: Apply_Prepayment_Hold
2263: ( p_header_id => p_header_id
2277: END IF; -- if l_return status...
2278:
2279: ELSIF l_pending_amount < 0 THEN
2280: IF l_debug_level > 0 THEN
2281: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2282: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2283: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2284: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2285: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2278:
2279: ELSIF l_pending_amount < 0 THEN
2280: IF l_debug_level > 0 THEN
2281: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2282: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2283: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2284: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2285: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2286: END IF;
2279: ELSIF l_pending_amount < 0 THEN
2280: IF l_debug_level > 0 THEN
2281: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2282: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2283: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2284: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2285: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2286: END IF;
2287:
2280: IF l_debug_level > 0 THEN
2281: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2282: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2283: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2284: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2285: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2286: END IF;
2287:
2288: Create_Refund(
2281: oe_debug_pub.add( 'OEXVPPYB Process_Payments: Before calling create_refund.', 3 ) ;
2282: oe_debug_pub.add( 'OEXVPPYB: amount is: '||l_pending_amount, 3 ) ;
2283: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||l_receipt_method_id, 3 ) ;
2284: oe_debug_pub.add( 'OEXVPPYB: payment_set_id is: '||l_payment_set_id, 3 ) ;
2285: oe_debug_pub.add( 'OEXVPPYB: bank_acct_id is: '||l_bank_acct_id, 3 ) ;
2286: END IF;
2287:
2288: Create_Refund(
2289: p_header_rec => l_header_rec,
2294: x_return_status => l_return_status
2295: );
2296:
2297: IF l_debug_level > 0 THEN
2298: oe_debug_pub.add( 'OEXVPPYB Process_Payments: after calling create_refund, return status is: '||l_return_status, 3 ) ;
2299: END IF;
2300:
2301: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2302: UPDATE oe_payments
2306:
2307: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2308: -- Apply payment failure hold (seeded hold id is 14);
2309: IF l_debug_level > 0 THEN
2310: oe_debug_pub.add( 'after create_refund, applying payment failure hold.', 3 ) ;
2311: END IF;
2312:
2313: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
2314:
2317: l_msg_data := null;
2318: FOR I IN 1..l_msg_count LOOP
2319: l_msg_data := l_msg_data||' '|| OE_MSG_PUB.Get(I,'F');
2320: IF l_debug_level > 0 THEN
2321: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
2322: END IF;
2323: END LOOP;
2324: OE_GLOBALS.G_SYS_HOLD := TRUE; --8477694
2325: Apply_Prepayment_Hold
2397: , p_calling_action => l_calling_action
2398: ) ;
2399:
2400: IF l_debug_level > 0 THEN
2401: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED FOR AUTHORIZATION: '|| L_RULE_DEFINED ) ;
2402: END IF;
2403:
2404: IF l_rule_defined = 'N' THEN
2405: --CC Reversal ER#16014135 Start
2404: IF l_rule_defined = 'N' THEN
2405: --CC Reversal ER#16014135 Start
2406: IF l_calling_action ='UPDATE' THEN
2407: IF l_debug_level > 0 THEN
2408: oe_debug_pub.add( 'OEXVPPYB: No rule defined for authorization. l_calling_action '||l_calling_action ) ;
2409: END IF;
2410: RETURN;
2411: END IF;
2412: l_cc_rev_reauth_code:= OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code(p_header_id);
2416: OR l_calling_action ='REVERSAL_REAUTH'
2417: OR oe_verify_payment_pub.G_CC_Change_Flag = 'Y'
2418: THEN
2419: IF l_debug_level > 0 THEN
2420: oe_debug_pub.add( 'Reversal/Re-authorization is set, need to call Credit Card Authorization',5 ) ;
2421: END IF;
2422: ELSE
2423: --CC Reversal ER#16014135 End
2424: IF l_debug_level > 0 THEN
2421: END IF;
2422: ELSE
2423: --CC Reversal ER#16014135 End
2424: IF l_debug_level > 0 THEN
2425: oe_debug_pub.add( 'OEXVPPYB: No rule defined for authorization. ' ) ;
2426: END IF;
2427: --bug3511992
2428: x_msg_count := OE_MSG_PUB.Count_Msg;
2429:
2426: END IF;
2427: --bug3511992
2428: x_msg_count := OE_MSG_PUB.Count_Msg;
2429:
2430: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2431: RETURN;
2432: END IF; --CC Reversal ER#16014135
2433: END IF;
2434: END IF;
2433: END IF;
2434: END IF;
2435:
2436: IF l_debug_level > 0 THEN
2437: oe_debug_pub.add( 'OEXVPPYB: Calling Credit Card Authorization for Multiple Payments.' ) ;
2438: END IF;
2439:
2440: OE_Verify_Payment_PUB.Authorize_MultiPayments
2441: ( p_header_rec => l_header_rec
2452: , p_return_status => l_return_status
2453: );
2454:
2455: IF l_debug_level > 0 THEN
2456: oe_debug_pub.add( 'OEXVPPYB: After calling OE_Verify_Payment_PUB.Authorize_MultiPayments, return status is: '||l_return_status, 3) ;
2457: END IF;
2458:
2459:
2460: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2471: (p_header_id => p_header_id);
2472: END IF;
2473: --CC Reversal ER#16014135 Start
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'oe_verify_payment_pub.G_credit_check_flag '||oe_verify_payment_pub.G_credit_check_flag , 5 ) ;
2476: oe_debug_pub.add( 'g_process_pmt_req_logged '||g_process_pmt_req_logged , 5 );
2477:
2478: END IF;
2479: IF (oe_verify_payment_pub.G_credit_check_flag = 'N'
2472: END IF;
2473: --CC Reversal ER#16014135 Start
2474: IF l_debug_level > 0 THEN
2475: oe_debug_pub.add( 'oe_verify_payment_pub.G_credit_check_flag '||oe_verify_payment_pub.G_credit_check_flag , 5 ) ;
2476: oe_debug_pub.add( 'g_process_pmt_req_logged '||g_process_pmt_req_logged , 5 );
2477:
2478: END IF;
2479: IF (oe_verify_payment_pub.G_credit_check_flag = 'N'
2480: AND NOT OE_Delayed_Requests_Pvt.Check_For_Request
2495: , p_calling_action => l_calling_action
2496: ) ;
2497:
2498: IF l_debug_level > 0 THEN
2499: oe_debug_pub.add( 'OEXVPPYB: RULE DEFINED : '|| L_RULE_DEFINED ) ;
2500: END IF;
2501:
2502: IF l_rule_defined = 'N' THEN
2503: --bug3511992
2502: IF l_rule_defined = 'N' THEN
2503: --bug3511992
2504: x_msg_count := OE_MSG_PUB.Count_Msg;
2505:
2506: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2507:
2508: return;
2509: END IF;
2510: END IF;
2541: ----------------------------------------------------------------
2542:
2543: BEGIN
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add( 'OEXVPPYB: BEGIN CHECK FOR MCC CODE. ' , 1 ) ;
2546: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
2547: END IF;
2548:
2549: BEGIN
2542:
2543: BEGIN
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add( 'OEXVPPYB: BEGIN CHECK FOR MCC CODE. ' , 1 ) ;
2546: oe_debug_pub.add( 'P_HEADER_ID = '|| P_HEADER_ID , 1 ) ;
2547: END IF;
2548:
2549: BEGIN
2550: IF l_debug_level > 0 THEN
2547: END IF;
2548:
2549: BEGIN
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'OEXVPPYB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
2552: oe_debug_pub.add( 'OEXVPPYB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
2553: END IF;
2554:
2555: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
2548:
2549: BEGIN
2550: IF l_debug_level > 0 THEN
2551: oe_debug_pub.add( 'OEXVPPYB:INTO MULTI CREDIT CHECKING FLOW ' , 1 ) ;
2552: oe_debug_pub.add( 'OEXVPPYB: CALL OE_CREDIT_ENGINE_GRP' , 1 ) ;
2553: END IF;
2554:
2555: OE_Credit_Engine_GRP.Credit_check_with_payment_typ
2556: ( p_header_id => p_header_id
2562: , x_return_status => l_return_status
2563: );
2564:
2565: IF l_debug_level > 0 THEN
2566: oe_debug_pub.add( 'OEXVPPYB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
2567: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
2568: END IF;
2569:
2570: END ;
2563: );
2564:
2565: IF l_debug_level > 0 THEN
2566: oe_debug_pub.add( 'OEXVPPYB: OUT OF OE_CREDIT_ENGINE_GRP' , 1 ) ;
2567: oe_debug_pub.add( 'X_RETURN_STATUS = ' || L_RETURN_STATUS , 1 ) ;
2568: END IF;
2569:
2570: END ;
2571: END ; -- End MCC Block
2585:
2586: --bug3511992
2587: x_msg_count := OE_MSG_PUB.Count_Msg;
2588:
2589: oe_debug_pub.add('pviprana: x_msg_count in OEXVPPYB.pls = ' || x_msg_count);
2590:
2591: x_return_status := l_return_status;
2592:
2593: IF l_debug_level > 0 THEN
2590:
2591: x_return_status := l_return_status;
2592:
2593: IF l_debug_level > 0 THEN
2594: oe_debug_pub.add( 'OEXVPPYB: Exiting Process_Payments procedure. '||x_return_status , 1 ) ;
2595: END IF;
2596:
2597: EXCEPTION
2598:
2605:
2606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2607: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2608: IF l_debug_level > 0 THEN
2609: oe_debug_pub.add( 'Unexpected error in Process_Payments: ' || SQLERRM , 3 ) ;
2610: END IF;
2611: OE_MSG_PUB.Count_And_Get
2612: ( p_count => l_msg_count,
2613: p_data => l_msg_data
2623: );
2624: END IF;
2625:
2626: IF l_debug_level > 0 THEN
2627: oe_debug_pub.add( 'Oracle error in others in process_payments: '||SQLERRM , 3 ) ;
2628: END IF;
2629:
2630: OE_MSG_PUB.Count_And_Get
2631: ( p_count => l_msg_count,
2652: l_org_id NUMBER;
2653: l_site_use_id NUMBER;
2654: l_trxn_extension_id NUMBER;
2655: l_is_credit_card VARCHAR2(1) := 'N';
2656: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2657:
2658: BEGIN
2659:
2660: IF l_debug_level > 0 THEN
2657:
2658: BEGIN
2659:
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2662: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2663: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2664: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2665: END IF;
2658: BEGIN
2659:
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2662: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2663: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2664: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2665: END IF;
2666:
2659:
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2662: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2663: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2664: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2665: END IF;
2666:
2667: /* Line Level payments for FROM Line */
2660: IF l_debug_level > 0 THEN
2661: oe_debug_pub.add('Entering OE_Prepayment_PVT.split_payment ', 1);
2662: oe_debug_pub.add('p_split_from_line_id is: '||p_split_from_line_id, 1);
2663: oe_debug_pub.add('p_header_id is: '||p_header_id, 1);
2664: oe_debug_pub.add('p_line_id is: '||p_line_id, 1);
2665: END IF;
2666:
2667: /* Line Level payments for FROM Line */
2668: OE_Line_Payment_Util.Query_Rows(p_line_id => p_split_from_line_id,
2673: i := l_from_line_payment_tbl.First;
2674: j := 1;
2675: While i is not null Loop
2676: IF l_debug_level > 0 THEN
2677: oe_debug_pub.add('Inside split payment loop '||l_from_line_payment_tbl(i).payment_type_code,3);
2678: oe_debug_pub.add('Inside split payment loop I is: '||i, 1);
2679: END IF;
2680:
2681: IF l_from_line_payment_tbl(i).payment_type_code = 'COMMITMENT' THEN
2674: j := 1;
2675: While i is not null Loop
2676: IF l_debug_level > 0 THEN
2677: oe_debug_pub.add('Inside split payment loop '||l_from_line_payment_tbl(i).payment_type_code,3);
2678: oe_debug_pub.add('Inside split payment loop I is: '||i, 1);
2679: END IF;
2680:
2681: IF l_from_line_payment_tbl(i).payment_type_code = 'COMMITMENT' THEN
2682: -- commitment is handled by delayed request for commitment.
2719: null;
2720: END;
2721:
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add('source trxn_extenion_id is: '||l_from_line_payment_tbl(i).trxn_extension_id,3);
2724: END IF;
2725:
2726: -- bug 5204275
2727: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED' THEN
2726: -- bug 5204275
2727: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED' THEN
2728:
2729: IF l_debug_level > 0 THEN
2730: oe_debug_pub.add(' security code is required.',3);
2731: END IF;
2732:
2733: l_trxn_extension_id := null;
2734: l_line_payment_tbl(j).credit_card_approval_code := 'CVV2_REQUIRED';
2747: x_return_status => x_return_status);
2748: END IF;
2749:
2750: IF l_debug_level > 0 THEN
2751: oe_debug_pub.add('new trxn_extenion_id is: '||l_trxn_extension_id,3);
2752: END IF;
2753:
2754: l_line_payment_tbl(j).trxn_extension_id := l_trxn_extension_id;
2755:
2774: l_control_rec.clear_api_cache := FALSE;
2775: l_control_rec.clear_api_requests := FALSE;
2776:
2777: IF l_debug_level > 0 THEN
2778: oe_debug_pub.add('OEXVPPYB: before OE_Order_PVT.Line_Payments',3);
2779: END IF;
2780:
2781: OE_Order_PVT.Line_Payments
2782: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2807: IF Oe_Payment_Trxn_Util.Get_CC_Security_Code_Use = 'REQUIRED'
2808: AND l_line_payment_tbl(i).credit_card_approval_code = 'CVV2_REQUIRED' THEN
2809:
2810: IF l_debug_level > 0 THEN
2811: oe_debug_pub.add('updating oe_payments. ',3);
2812: END IF;
2813:
2814: UPDATE oe_payments
2815: SET credit_card_approval_code = 'CVV2_REQUIRED'
2821: END LOOP;
2822:
2823:
2824: IF l_debug_level > 0 THEN
2825: oe_debug_pub.add('Exiting OE_Prepayment_PVT.split_payment ', 1);
2826: END IF;
2827:
2828: EXCEPTION
2829:
2831: x_return_status := FND_API.G_RET_STS_ERROR;
2832:
2833: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2835: oe_debug_pub.add(G_PKG_NAME||':split_payment :'||SQLERRM);
2836:
2837: WHEN OTHERS THEN
2838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2839: If FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) Then
2896: l_trxn_extension_id NUMBER;
2897: l_exists_auth VARCHAR2(1);
2898: --pnpl end
2899:
2900: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2901:
2902: BEGIN
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add('Entering OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
2900: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2901:
2902: BEGIN
2903: IF l_debug_level > 0 THEN
2904: oe_debug_pub.add('Entering OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
2905: END IF;
2906:
2907: x_return_status := FND_API.G_RET_STS_SUCCESS;
2908: x_result_out := 'COMPLETE:COMPLETE';
2910: --pnpl start
2911: IF nvl(p_exists_prepay,'N') = 'Y' THEN
2912: l_exists_prepay := TRUE;
2913: IF l_debug_level > 0 THEN
2914: oe_debug_pub.add('There is prepayment for this order');
2915: END IF;
2916: ELSE
2917: l_exists_prepay := FALSE;
2918: END IF;
2921: IF OE_PREPAYMENT_UTIL.Get_Installment_Options = 'ENABLE_PAY_NOW' AND
2922: OE_PREPAYMENT_UTIL.Is_Pay_Now_Line(p_line_id) THEN
2923:
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add('Installment Options is ENABLE_PAY_NOW');
2926: oe_debug_pub.add('This is a pay now line');
2927: END IF;
2928:
2929: BEGIN
2922: OE_PREPAYMENT_UTIL.Is_Pay_Now_Line(p_line_id) THEN
2923:
2924: IF l_debug_level > 0 THEN
2925: oe_debug_pub.add('Installment Options is ENABLE_PAY_NOW');
2926: oe_debug_pub.add('This is a pay now line');
2927: END IF;
2928:
2929: BEGIN
2930: SELECT header_id
2933: WHERE line_id = p_line_id;
2934: EXCEPTION
2935: WHEN OTHERS THEN
2936: IF l_debug_level > 0 THEN
2937: oe_debug_pub.add('unable to get header_id.. raising unexpected error');
2938: END IF;
2939: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2940: END;
2941:
2940: END;
2941:
2942: IF l_exists_prepay THEN
2943: IF l_debug_level > 0 THEN
2944: oe_debug_pub.add('Checking if there is enough prepayment to cover the pay now total for the order');
2945: END IF;
2946:
2947: BEGIN
2948: SELECT sum(nvl(payment_amount, 0))
2955: l_prepaid_total := 0;
2956: END;
2957:
2958: IF l_debug_level > 0 THEN
2959: oe_debug_pub.add('l_prepaid_total : ' || l_prepaid_total);
2960: END IF;
2961:
2962: OE_Prepayment_PVT.Get_Pay_Now_Amounts
2963: (p_header_id => l_header_id
2976: l_pay_now_total := 0;
2977: END IF;
2978:
2979: IF l_debug_level > 0 THEN
2980: oe_debug_pub.add('l_pay_now_total : ' || l_pay_now_total);
2981: END IF;
2982:
2983: IF l_prepaid_total >= l_pay_now_total OR
2984: l_pay_now_total = 0 THEN
2982:
2983: IF l_prepaid_total >= l_pay_now_total OR
2984: l_pay_now_total = 0 THEN
2985: IF l_debug_level > 0 THEN
2986: oe_debug_pub.add('prepaid total covers the pay now total.. proceeding to Payment Assurance check');
2987: END IF;
2988: goto PAYMENT_ASSURANCE;
2989: END IF;
2990: END IF;
3002: EXCEPTION
3003: WHEN NO_DATA_FOUND THEN
3004: --check if there is a header level invoice payment
3005: IF l_debug_level > 0 THEN
3006: oe_debug_pub.add('No line level invoice payment. Checking if there is a header level invoice payment');
3007: END IF;
3008:
3009: BEGIN
3010: SELECT payment_type_code, trxn_extension_id
3052:
3053: -- set the status to COMPLETE if there exists payment record and
3054: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
3057: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
3058: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
3059: END IF;
3060:
3053: -- set the status to COMPLETE if there exists payment record and
3054: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
3057: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
3058: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
3059: END IF;
3060:
3061:
3054: -- payment should have been authorized if it is a credit card, otherwise set to incomplete.
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add('l_payment_type_code : ' || l_payment_type_code);
3057: oe_debug_pub.add('l_trxn_extension_id : ' || l_trxn_extension_id);
3058: oe_debug_pub.add('l_exists_auth : ' || l_exists_auth);
3059: END IF;
3060:
3061:
3062: IF nvl(l_payment_type_code, 'COMMITMENT') <> 'COMMITMENT' AND
3061:
3062: IF nvl(l_payment_type_code, 'COMMITMENT') <> 'COMMITMENT' AND
3063: NOT (nvl(l_payment_type_code, 'COMMITMENT') = 'CREDIT_CARD' AND
3064: l_exists_auth = 'N') THEN
3065: oe_debug_pub.add('There exists an invoice payment');
3066: IF NOT l_exists_prepay THEN
3067: x_result_out := 'COMPLETE:COMPLETE';
3068:
3069: OE_Order_WF_Util.Update_Flow_Status_Code
3071: ,p_flow_status_code => 'PAYMENT_ASSURANCE_COMPLETE'
3072: ,x_return_status => l_return_status);
3073:
3074: IF l_debug_level > 0 THEN
3075: oe_debug_pub.add('Return status 1 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
3076: END IF;
3077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3078: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3079: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF;
3082:
3083: IF l_debug_level > 0 THEN
3084: oe_debug_pub.add('Returning from the procedure as there is no prepayment record for the order');
3085: END IF;
3086: RETURN;
3087: ELSE
3088: IF l_debug_level > 0 THEN
3085: END IF;
3086: RETURN;
3087: ELSE
3088: IF l_debug_level > 0 THEN
3089: oe_debug_pub.add('Proceeding to the payment assurance check as there is prepayment for the order');
3090: END IF;
3091: goto PAYMENT_ASSURANCE;
3092: END IF;
3093:
3093:
3094: ELSE
3095:
3096: IF l_debug_level > 0 THEN
3097: oe_debug_pub.add('No Pay now payment instrument. setting x_result_out to INCOMPLETE and returning from the procedure');
3098: END IF;
3099: --bug4950878
3100: fnd_message.Set_Name('ONT', 'ONT_PAYNOW_PMT_NOT_ASSURED');
3101: oe_msg_pub.add;
3106: ,p_flow_status_code => 'PAY_NOW_PAYMENT_NOT_ASSURED'
3107: ,x_return_status => l_return_status);
3108:
3109: IF l_debug_level > 0 THEN
3110: oe_debug_pub.add('Return status 2 from update_flow_status_code for pay now instrument check: '||l_return_status , 3 ) ;
3111: END IF;
3112: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3114: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3121:
3122: ELSE
3123: IF NOT l_exists_prepay THEN
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add('In procedure Process_Payment_Assurance: line not eligible for payment assurance');
3126: END IF;
3127: x_result_out := 'COMPLETE:NOT_ELIGIBLE';
3128: RETURN;
3129: END IF;
3153: -- will go to Eligible block and retry later.
3154: IF l_payment_set_id IS NOT NULL THEN
3155:
3156: IF l_debug_level > 0 THEN
3157: oe_debug_pub.add('Checking payment assurance for payment_set_id: '||l_payment_set_id,3);
3158: END IF;
3159:
3160: -- if there exists one receipt that is neither REMITTED nor CLEARED.
3161: --bug5394265 Need to check that receipts other than those for Credit Cards need to be 'CLEARED' for the payment to be assured.
3196: l_payment_not_assured := 'N';
3197: END;
3198:
3199: IF l_debug_level > 0 THEN
3200: oe_debug_pub.add('payment_set_id is: '||l_payment_set_id,3);
3201: oe_debug_pub.add('l_payment_not_assured flag is: '||l_payment_not_assured,3);
3202: END IF;
3203:
3204: IF l_payment_not_assured = 'Y' THEN
3197: END;
3198:
3199: IF l_debug_level > 0 THEN
3200: oe_debug_pub.add('payment_set_id is: '||l_payment_set_id,3);
3201: oe_debug_pub.add('l_payment_not_assured flag is: '||l_payment_not_assured,3);
3202: END IF;
3203:
3204: IF l_payment_not_assured = 'Y' THEN
3205: x_result_out := 'COMPLETE:INCOMPLETE';
3218: p_flow_status_code => 'PAYMENT_ASSURANCE_COMPLETE',
3219: x_return_status => l_return_status);
3220:
3221: IF l_debug_level > 0 THEN
3222: oe_debug_pub.add('Return status 1 from update_flow_status_code: '||l_return_status , 3 ) ;
3223: END IF;
3224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3225: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3226: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3236: p_flow_status_code => 'PAYMENT_ASSURANCE_NOT_ASSURED',
3237: x_return_status => l_return_status);
3238:
3239: IF l_debug_level > 0 THEN
3240: oe_debug_pub.add('Return status 2 from update_flow_status_code: '||l_return_status , 3 ) ;
3241: END IF;
3242: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3244: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3248:
3249: x_return_status := l_return_status;
3250:
3251: IF l_debug_level > 0 THEN
3252: oe_debug_pub.add( 'Process_Payment_Assurance , result_out is: '||x_result_out, 3);
3253: oe_debug_pub.add('Exiting OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
3254: END IF;
3255:
3256: EXCEPTION
3249: x_return_status := l_return_status;
3250:
3251: IF l_debug_level > 0 THEN
3252: oe_debug_pub.add( 'Process_Payment_Assurance , result_out is: '||x_result_out, 3);
3253: oe_debug_pub.add('Exiting OE_Prepayment_PVT.Process_Payment_Assurance for line: '||p_line_id, 1);
3254: END IF;
3255:
3256: EXCEPTION
3257: WHEN FND_API.G_EXC_ERROR THEN
3259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3261: WHEN OTHERS THEN
3262: IF l_debug_level > 0 THEN
3263: oe_debug_pub.add( 'ORACLE ERROR: ' || SQLERRM , 1 ) ;
3264: END IF;
3265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3266: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3267: THEN
3288: l_change_sequence VARCHAR2(50);
3289: l_source_document_type_id NUMBER;
3290: l_source_document_id NUMBER;
3291:
3292: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3293:
3294: begin
3295: If l_debug_level > 0 Then
3296: oe_debug_pub.add('entering OE_PrePayment_PVT.print_payment_receipt');
3292: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3293:
3294: begin
3295: If l_debug_level > 0 Then
3296: oe_debug_pub.add('entering OE_PrePayment_PVT.print_payment_receipt');
3297: End If;
3298: x_return_status := FND_API.G_RET_STS_SUCCESS;
3299: x_result_out := 'COMPLETE:COMPLETE';
3300: select order_source_id, orig_sys_document_ref, change_sequence
3327: l_new_request_id := FND_REQUEST.SUBMIT_REQUEST('ONT','OEXPMTRC',
3328: null,null,FALSE,l_sob_id,l_organization_id,NULL,NULL,p_header_id,
3329: chr(0));
3330: If l_debug_level > 0 Then
3331: oe_debug_pub.add('l_new_request_id = '||l_new_request_id);
3332: End If;
3333: FND_MESSAGE.SET_NAME('ONT','ONT_CONCURRENT_REQUEST_ID');
3334: fnd_message.set_token('REQUEST_ID',l_new_request_id);
3335: OE_MSG_PUB.Add;
3342: EXCEPTION
3343:
3344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3345: If l_debug_level > 0 Then
3346: oe_debug_pub.add( 'UNEXPECTED ERROR. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3347: End If;
3348: oe_msg_pub.Add_Text(errbuf);
3349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350:
3349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3350:
3351: WHEN OTHERS THEN
3352: If l_debug_level > 0 Then
3353: oe_debug_pub.add( 'EXCEPTION , OTHERS. EXITING FROM PAYMENT RECEIPT: '||SQLERRM , 1 ) ;
3354: End If;
3355: IF FND_MSG_PUB.Check_Msg_Level
3356: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3357: THEN
3377: l_payment_type_code VARCHAR2(80);
3378: l_return_status VARCHAR2(30);
3379: l_msg_count number := 0;
3380: l_msg_data VARCHAR2(2000) := NULL;
3381: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3382:
3383: --Deleting the prepayment records of credit card payments
3384: --alone as the invoice payments of credit cards would be
3385: --deleted in the delete row procedure of Oe_header_payment_util
3412:
3413: x_return_status := FND_API.G_RET_STS_SUCCESS;
3414:
3415: IF l_debug_level > 0 THEN
3416: oe_debug_pub.add('Entering OEXVPPYB Delete_Payments');
3417: END IF;
3418:
3419: IF p_line_id IS NOT NULL THEN
3420: FOR line_payments_rec IN line_payments
3422: IF line_payments_rec.trxn_extension_id is not null
3423: THEN
3424:
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3427: oe_debug_pub.add('line id'||p_line_id);
3428: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3429: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3430: END IF;
3423: THEN
3424:
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3427: oe_debug_pub.add('line id'||p_line_id);
3428: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3429: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3430: END IF;
3431:
3424:
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3427: oe_debug_pub.add('line id'||p_line_id);
3428: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3429: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3430: END IF;
3431:
3432: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add('Header_id in delete payments'||p_header_id);
3427: oe_debug_pub.add('line id'||p_line_id);
3428: oe_debug_pub.add('payment number'||line_payments_rec.payment_number);
3429: oe_debug_pub.add('trxn extn id'||line_payments_rec.trxn_extension_id);
3430: END IF;
3431:
3432: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3433: (p_header_id => p_header_id,
3459: IF header_payments_rec.trxn_extension_id is not null
3460: THEN
3461:
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3464: oe_debug_pub.add('line id'||p_line_id);
3465: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3466: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3467: END IF;
3460: THEN
3461:
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3464: oe_debug_pub.add('line id'||p_line_id);
3465: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3466: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3467: END IF;
3468:
3461:
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3464: oe_debug_pub.add('line id'||p_line_id);
3465: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3466: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3467: END IF;
3468:
3469: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('Header_id in delete payments inside header payments cursor'||p_header_id);
3464: oe_debug_pub.add('line id'||p_line_id);
3465: oe_debug_pub.add('payment number'||header_payments_rec.payment_number);
3466: oe_debug_pub.add('trxn extn id'||header_payments_rec.trxn_extension_id);
3467: END IF;
3468:
3469: OE_PAYMENT_TRXN_UTIL.Delete_Payment_Trxn
3470: (p_header_id => p_header_id,
3491: Update oe_order_headers_all set
3492: payment_type_code = null where
3493: header_id = p_header_id;
3494: IF l_debug_level > 0 THEN
3495: oe_debug_pub.add('Header id...after updating oe order headers all'||p_header_id);
3496: END IF;
3497: x_return_status := FND_API.G_RET_STS_SUCCESS;
3498: END IF;
3499: END IF;
3511:
3512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3514: IF l_debug_level > 0 THEN
3515: oe_debug_pub.add( 'Unexpected error in Delete_Payments: ' || SQLERRM , 3 ) ;
3516: END IF;
3517: OE_MSG_PUB.Count_And_Get
3518: ( p_count => x_msg_count,
3519: p_data => x_msg_data
3529: );
3530: END IF;
3531:
3532: IF l_debug_level > 0 THEN
3533: oe_debug_pub.add( 'Oracle error in others in delete_payments: '||SQLERRM , 3 ) ;
3534: END IF;
3535:
3536: OE_MSG_PUB.Count_And_Get
3537: ( p_count => x_msg_count,
3687: and nvl(payment_collection_event,'PREPAY') = 'INVOICE';
3688:
3689: Begin
3690:
3691: oe_debug_pub.add('entering update_hdr_payment ');
3692: x_return_status := l_return_status;
3693:
3694: if p_action = 'UPDATE_LINE' then
3695:
3695:
3696: if p_line_id is null then
3697:
3698: x_return_status := FND_API.G_RET_STS_ERROR;
3699: oe_debug_pub.add('failed because line_id is null ');
3700: return;
3701:
3702: else
3703:
3710: for update nowait;
3711:
3712: if l_lock_line_id is null then
3713: x_return_status := FND_API.G_RET_STS_ERROR;
3714: oe_debug_pub.add('failed to lock the line with line_id : ' || l_lock_line_id);
3715: return;
3716: end if;
3717:
3718: l_pmt_changed := 'N';
3748:
3749: exception
3750: when others then
3751: x_return_status := FND_API.G_RET_STS_ERROR;
3752: oe_debug_pub.add('failed to update line payment type: ' || substr(sqlerrm,1,300));
3753: rollback to savepoint update_line;
3754: return;
3755: End;
3756: else
3808: END;
3809: --bug3733877 end
3810:
3811: if p_payment_term_id is not null then
3812: oe_debug_pub.add('OEXVPPYB: term id : ' || p_payment_term_id);
3813:
3814: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(p_payment_term_id);
3815:
3816: oe_debug_pub.add('prepayment_flag is : ' || l_prepayment_flag );
3812: oe_debug_pub.add('OEXVPPYB: term id : ' || p_payment_term_id);
3813:
3814: l_prepayment_flag := AR_PUBLIC_UTILS.Check_Prepay_Payment_Term(p_payment_term_id);
3815:
3816: oe_debug_pub.add('prepayment_flag is : ' || l_prepayment_flag );
3817: end if;
3818:
3819:
3820: IF p_action = 'UPDATE_HEADER' THEN
3836: else
3837:
3838: open payment_cur;
3839: loop
3840: oe_debug_pub.add('before payment_cur fetching ');
3841: fetch payment_cur into l_payment_type_code,
3842: l_payment_amount,
3843: l_check_number; --R12 CC Encryption
3844: /*l_credit_card_code,
3846: l_credit_card_number,
3847: l_credit_card_expiration_date,
3848: l_credit_card_approval_code ;*/ --R12 CC Encryption
3849: exit when payment_cur%NOTFOUND;
3850: oe_debug_pub.add('payment_type_code is : ' || l_payment_type_code );
3851: end loop; -- loop for payment_cur
3852: close payment_cur;
3853: --commenting the elsif part for bug3733877
3854: /* elsif p_count = 0 then
3881: l_header_rec.credit_card_expiration_date := l_credit_card_expiration_date;
3882: l_header_rec.credit_card_approval_code := l_credit_card_approval_code;
3883: --bug3781675 end
3884:
3885: oe_debug_pub.add('before updating oe_order_headers_all ');
3886: --oe_debug_pub.add('Credit card number'||l_credit_card_number);
3887: oe_debug_pub.add('Check number'||l_check_number);
3888: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3889:
3882: l_header_rec.credit_card_approval_code := l_credit_card_approval_code;
3883: --bug3781675 end
3884:
3885: oe_debug_pub.add('before updating oe_order_headers_all ');
3886: --oe_debug_pub.add('Credit card number'||l_credit_card_number);
3887: oe_debug_pub.add('Check number'||l_check_number);
3888: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3889:
3890: update oe_order_headers_all
3883: --bug3781675 end
3884:
3885: oe_debug_pub.add('before updating oe_order_headers_all ');
3886: --oe_debug_pub.add('Credit card number'||l_credit_card_number);
3887: oe_debug_pub.add('Check number'||l_check_number);
3888: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3889:
3890: update oe_order_headers_all
3891: set payment_type_code = l_payment_type_code,
3884:
3885: oe_debug_pub.add('before updating oe_order_headers_all ');
3886: --oe_debug_pub.add('Credit card number'||l_credit_card_number);
3887: oe_debug_pub.add('Check number'||l_check_number);
3888: oe_debug_pub.add('PVIPRANA: l_del_payment is '|| l_del_payment);
3889:
3890: update oe_order_headers_all
3891: set payment_type_code = l_payment_type_code,
3892: -- payment_amount = l_payment_amount, --bug 5185139
3898: credit_card_approval_code = l_credit_card_approval_code,*/ --R12 CC Encryption
3899: lock_control = lock_control + 1 --bug3781675
3900: where header_id = p_header_id;
3901:
3902: oe_debug_pub.add('after updating oe_order_headers_all');
3903: --bug3781675 start
3904:
3905: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
3906:
3912: , p_header_id => l_header_rec.header_id
3913: , x_index => l_index
3914: , x_return_status => l_return_status);
3915:
3916: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
3917: oe_debug_pub.add( 'HDR INDEX IS: ' || L_INDEX , 1 ) ;
3918:
3919: IF l_index is not null then
3920: -- modify Global Picture
3913: , x_index => l_index
3914: , x_return_status => l_return_status);
3915:
3916: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FOR HDR IS: ' || L_RETURN_STATUS ) ;
3917: oe_debug_pub.add( 'HDR INDEX IS: ' || L_INDEX , 1 ) ;
3918:
3919: IF l_index is not null then
3920: -- modify Global Picture
3921:
3943: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3945: END IF;
3946:
3947: oe_debug_pub.add( 'OEXPVPMB: BEFORE CALLING PROCESS_REQUESTS_AND_NOTIFY' ) ;
3948:
3949: OE_Order_PVT.Process_Requests_And_Notify
3950: ( p_process_requests => TRUE
3951: , p_notify => FALSE
3971: if p_action = 'ACTIONS_LINE_PAYMENTS' then
3972:
3973: if l_prepay_count > 0 then
3974:
3975: oe_debug_pub.add('cannot do this as there exists prepayments ');
3976:
3977: return;
3978: end if;
3979: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3978: end if;
3979: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3980:
3981:
3982: oe_debug_pub.add('p_count is : ' || p_count );
3983: oe_debug_pub.add('payment_type_code is : ' || nvl(p_payment_type_code, 'null' ));
3984:
3985: if p_action = 'ACTIONS_PAYMENTS' then
3986:
3979: end if; -- if p_action = 'ACTIONS_LINE_PAYMENTS'
3980:
3981:
3982: oe_debug_pub.add('p_count is : ' || p_count );
3983: oe_debug_pub.add('payment_type_code is : ' || nvl(p_payment_type_code, 'null' ));
3984:
3985: if p_action = 'ACTIONS_PAYMENTS' then
3986:
3987: if p_count > 0 then
3985: if p_action = 'ACTIONS_PAYMENTS' then
3986:
3987: if p_count > 0 then
3988:
3989: oe_debug_pub.add('no need to do this as there exists payments ');
3990:
3991: return;
3992: end if;
3993: end if; -- if p_action = 'ACTIONS_PAYMENTS'
4014: );
4015:
4016: l_order_total := nvl(l_subtotal,0) + nvl(l_charges,0) + nvl(l_tax,0);
4017:
4018: oe_debug_pub.add('order total is : ' || l_order_total);
4019:
4020: l_downpayment := oe_prepayment_util.get_downpayment_amount(
4021: p_header_id => p_header_id,
4022: p_term_id => p_payment_term_id,
4027: p_payment_amount := l_downpayment;
4028:
4029: end if; -- if nvl(l_prepayment_flag,'N') = 'Y'
4030:
4031: oe_debug_pub.add('before calling BO ' );
4032: l_control_rec.controlled_operation := TRUE;
4033: l_control_rec.check_security := TRUE;
4034: l_control_rec.default_attributes := TRUE;
4035: l_control_rec.change_attributes := TRUE;
4079: l_x_Header_Payment_tbl(1).payment_number := l_inv_payment_number;
4080: l_x_Header_Payment_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
4081: END IF;
4082:
4083: oe_debug_pub.add('PVIPRANA: l_x_Header_Payment_tbl(1).operation is '||l_x_Header_Payment_tbl(1).operation);
4084: l_x_Header_Payment_tbl(1).payment_type_code := p_payment_type_code;
4085: l_x_Header_Payment_tbl(1).payment_collection_event := 'INVOICE';
4086: l_x_Header_Payment_tbl(1).payment_amount := NULL;
4087:
4096:
4097: -- comment out for R12 CC encryption
4098: /*
4099: IF l_x_Header_Payment_tbl(1).credit_card_approval_code IS NOT NULL THEN
4100: oe_debug_pub.add('Credit Card Approval Code exists.... Fetching current auth code');
4101: oe_header_util.query_row
4102: ( p_header_id => p_header_id
4103: , x_header_rec => l_header_rec);
4104:
4107: , p_trxn_id => l_trxn_id
4108: , p_tangible_id => l_x_Header_Payment_tbl(1).tangible_id
4109: ) ;
4110:
4111: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
4112:
4113: oe_debug_pub.add( 'TANGIBLE ID IS : '||l_x_Header_Payment_tbl(1).tangible_id ) ;
4114: END IF;
4115: */
4109: ) ;
4110:
4111: oe_debug_pub.add( ' AFTER CALLING FETCH_CURRENT_AUTH' ) ;
4112:
4113: oe_debug_pub.add( 'TANGIBLE ID IS : '||l_x_Header_Payment_tbl(1).tangible_id ) ;
4114: END IF;
4115: */
4116: --bug3906851 end
4117: -- Load IN parameters if any exist
4161:
4162:
4163: END IF; -- if prepayment_flag = 'Y'
4164:
4165: oe_debug_pub.add('l_x_header_payment_tbl ' || l_x_header_payment_tbl.count);
4166: oe_debug_pub.add('l_x_old_header_payment_tbl ' || l_x_old_header_payment_tbl.count);
4167:
4168: -- Call OE_Order_PVT.Header_Payments
4169: OE_Order_PVT.Header_Payments
4162:
4163: END IF; -- if prepayment_flag = 'Y'
4164:
4165: oe_debug_pub.add('l_x_header_payment_tbl ' || l_x_header_payment_tbl.count);
4166: oe_debug_pub.add('l_x_old_header_payment_tbl ' || l_x_old_header_payment_tbl.count);
4167:
4168: -- Call OE_Order_PVT.Header_Payments
4169: OE_Order_PVT.Header_Payments
4170: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
4199:
4200:
4201: END IF; -- if p_action in ('UPDATE_HEADER', 'DELETE_PAYMENT')
4202:
4203: oe_debug_pub.add('before end ');
4204: x_return_status := l_return_status;
4205: oe_debug_pub.add('return status w no error is : ' || x_return_status);
4206:
4207: EXCEPTION
4201: END IF; -- if p_action in ('UPDATE_HEADER', 'DELETE_PAYMENT')
4202:
4203: oe_debug_pub.add('before end ');
4204: x_return_status := l_return_status;
4205: oe_debug_pub.add('return status w no error is : ' || x_return_status);
4206:
4207: EXCEPTION
4208:
4209: WHEN others then
4207: EXCEPTION
4208:
4209: WHEN others then
4210: x_return_status := FND_API.G_RET_STS_ERROR;
4211: oe_debug_pub.add('when others error ');
4212: RAISE;
4213:
4214:
4215: END Update_Hdr_Payment;
4240: l_msg_count NUMBER := 0 ;
4241: l_msg_data VARCHAR2(2000) := NULL ;
4242:
4243: --
4244: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4245: --
4246: BEGIN
4247:
4248: IF l_debug_level > 0 THEN
4245: --
4246: BEGIN
4247:
4248: IF l_debug_level > 0 THEN
4249: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4250: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4251: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4252: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4253: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4246: BEGIN
4247:
4248: IF l_debug_level > 0 THEN
4249: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4250: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4251: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4252: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4253: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4254: END IF;
4247:
4248: IF l_debug_level > 0 THEN
4249: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4250: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4251: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4252: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4253: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4254: END IF;
4255:
4248: IF l_debug_level > 0 THEN
4249: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4250: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4251: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4252: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4253: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4254: END IF;
4255:
4256: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4249: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.CREATE_REFUND.' , 1 ) ;
4250: oe_debug_pub.add( 'Before calling refund wrapper API refund amount IS: '||p_refund_amount , 1 ) ;
4251: oe_debug_pub.add( 'Before calling refund wrapper API payment_set_id IS: '||p_payment_set_id , 1 ) ;
4252: oe_debug_pub.add( 'OEXVPPYB: receipt_method_id is: '||p_receipt_method_id, 3 ) ;
4253: oe_debug_pub.add( 'OEXVPPYB: bank_account_id is: '||p_bank_account_id, 3 ) ;
4254: END IF;
4255:
4256: AR_OM_PREPAY_REFUND_PVT.refund_prepayment_wrapper(
4257: p_api_version => 1.0,
4281:
4282:
4283: x_return_status := l_return_status;
4284: IF l_debug_level > 0 THEN
4285: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4286: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4287: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4288: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4289: END IF;
4282:
4283: x_return_status := l_return_status;
4284: IF l_debug_level > 0 THEN
4285: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4286: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4287: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4288: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4289: END IF;
4290:
4283: x_return_status := l_return_status;
4284: IF l_debug_level > 0 THEN
4285: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4286: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4287: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4288: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4289: END IF;
4290:
4291: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
4284: IF l_debug_level > 0 THEN
4285: oe_debug_pub.add( 'OEXVPPYB: after calling refund_prepayment_wrapper API, return status is: '||l_return_status, 3 ) ;
4286: oe_debug_pub.add( 'OEXVPPYB: RECEIPT_NUMBER AFTER CALLING AR REFUND_PREPAYMENTS IS: '||L_RECEIPT_NUMBER , 1 ) ;
4287: oe_debug_pub.add( 'OEXVPPYB: NUMBER_OF_REFUND AFTER CALLING AR REFUND_PREPAYMENT IS: '||L_NUMBER_OF_REFUND_RECEIPTS , 1 ) ;
4288: oe_debug_pub.add( 'OEXVPPYB: l_msg_count AFTER CALLING AR REFUND_PREPAYMENT IS: '||l_msg_count , 1 ) ;
4289: END IF;
4290:
4291: l_format_mask := get_format_mask(p_header_rec.transactional_curr_code);
4292:
4295: FND_MESSAGE.SET_TOKEN('AMOUNT' , TO_CHAR(p_refund_amount, l_format_mask));
4296: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
4297: oe_msg_pub.add;
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_REFUND_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
4300: oe_debug_pub.add('pviprana: Releasing Prepayment Hold');
4301: END IF;
4302: --bug3507871
4303: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
4296: FND_MESSAGE.SET_TOKEN('NUMBER' , l_number_of_refund_receipts);
4297: oe_msg_pub.add;
4298: IF l_debug_level > 0 THEN
4299: oe_debug_pub.add( 'OEXVPPYB: REFUND REQUEST OF ' ||P_REFUND_AMOUNT||' HAS BEEN PROCESSED SUCCESSFULLY.' , 3 ) ;
4300: oe_debug_pub.add('pviprana: Releasing Prepayment Hold');
4301: END IF;
4302: --bug3507871
4303: Release_Prepayment_Hold ( p_header_id => p_header_rec.header_id
4304: , p_msg_count => l_msg_count
4315: fnd_message.Set_Name('ONT', 'ONT_REFUND_PROCESS_FAILED');
4316: FND_MESSAGE.SET_TOKEN('AMOUNT', TO_CHAR(p_refund_amount, l_format_mask));
4317: oe_msg_pub.add;
4318: IF l_debug_level > 0 THEN
4319: oe_debug_pub.add( 'OEXVPPYB: REFUND PROCESSING FOR ' ||P_REFUND_AMOUNT||' FAILED.' , 3 ) ;
4320: END IF;
4321:
4322: IF l_msg_count = 1 THEN
4323: IF l_debug_level > 0 THEN
4320: END IF;
4321:
4322: IF l_msg_count = 1 THEN
4323: IF l_debug_level > 0 THEN
4324: oe_debug_pub.add('Error message after calling refund_prepayment_wrapper API: '||l_msg_data , 3 ) ;
4325: END IF;
4326: oe_msg_pub.add_text(p_message_text => l_msg_data);
4327: ELSIF ( FND_MSG_PUB.Count_Msg > 0 ) THEN
4328: arp_util.enable_debug;
4329: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
4330: -- l_msg_data := FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE);
4331: l_msg_data := FND_MSG_PUB.Get(i,'F');
4332: IF l_debug_level > 0 THEN
4333: oe_debug_pub.Add( 'Error message from AR API: '|| L_MSG_DATA , 3 );
4334: END IF;
4335: oe_msg_pub.add_text(p_message_text => l_msg_data);
4336: END LOOP;
4337: END IF;
4342: END IF;
4343: END IF;
4344:
4345: IF l_debug_level > 0 THEN
4346: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.Create_Refund.' , 1 ) ;
4347: END IF;
4348:
4349: EXCEPTION
4350:
4357:
4358: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: IF l_debug_level > 0 THEN
4361: oe_debug_pub.add( 'Unexpected error in Create_Refund: ' || SQLERRM , 3 ) ;
4362: END IF;
4363: OE_MSG_PUB.Count_And_Get
4364: ( p_count => l_msg_count,
4365: p_data => l_msg_data
4374: , 'Create_Refund'
4375: );
4376: END IF;
4377: IF l_debug_level > 0 THEN
4378: oe_debug_pub.add( 'Other oracle error in Create_Refund: ' || SQLERRM , 3 ) ;
4379: END IF;
4380:
4381: OE_MSG_PUB.Count_And_Get
4382: ( p_count => l_msg_count,
4398: l_payment_set_id NUMBER;
4399: l_return_status VARCHAR2(30);
4400: l_msg_count NUMBER := 0 ;
4401: l_msg_data VARCHAR2(2000) := NULL ;
4402: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4403:
4404: BEGIN
4405:
4406: IF l_debug_level > 0 THEN
4403:
4404: BEGIN
4405:
4406: IF l_debug_level > 0 THEN
4407: oe_debug_pub.add( 'ENTERING OE_PREPAYMENT_PV.Process_Payment_Refund.' , 1 ) ;
4408: END IF;
4409:
4410: OE_Prepayment_Util.Get_PrePayment_Info
4411: ( p_header_id => p_header_rec.header_id
4418: return;
4419: END IF;
4420:
4421: IF l_debug_level > 0 THEN
4422: oe_debug_pub.add('In Process_Payment_Refund, refund amount is: '||l_refund_amount, 3);
4423: oe_debug_pub.add('In Process_Payment_Refund, payment_set_id is: '||l_payment_set_id,3) ;
4424: END IF;
4425:
4426: Create_Refund
4419: END IF;
4420:
4421: IF l_debug_level > 0 THEN
4422: oe_debug_pub.add('In Process_Payment_Refund, refund amount is: '||l_refund_amount, 3);
4423: oe_debug_pub.add('In Process_Payment_Refund, payment_set_id is: '||l_payment_set_id,3) ;
4424: END IF;
4425:
4426: Create_Refund
4427: (p_header_rec => p_header_rec,
4432: x_return_status => l_return_status
4433: );
4434:
4435: IF l_debug_level > 0 THEN
4436: oe_debug_pub.add( 'In Process_Payment_Refund, after calling create_refund return status is: '||l_return_status, 3 ) ;
4437: END IF;
4438:
4439:
4440: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
4453:
4454: x_return_status := l_return_status;
4455:
4456: IF l_debug_level > 0 THEN
4457: oe_debug_pub.add( 'EXITING OE_PREPAYMENT_PV.Process_Payment_Refund.' , 1 ) ;
4458: END IF;
4459:
4460: EXCEPTION
4461:
4508: l_return_status VARCHAR2(30);
4509: l_msg_count NUMBER;
4510: l_msg_data VARCHAR2(2000);
4511: --
4512: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4513: --
4514: BEGIN
4515:
4516: IF l_debug_level > 0 THEN
4513: --
4514: BEGIN
4515:
4516: IF l_debug_level > 0 THEN
4517: oe_debug_pub.add( 'OEXVPPYB: Entering OE_PREPAYMENT_PVT.Any_Payment_Hold_Exists.' , 3 ) ;
4518: END IF;
4519:
4520: --pnpl
4521: IF p_line_id IS NULL THEN
4526: );
4527:
4528: IF p_hold_exists = 'Y' THEN
4529: IF l_debug_level > 0 THEN
4530: oe_debug_pub.add( 'OEXVPPYB: PREPAYMENT HOLD EXISTS ON HEADER ID : ' ||
4531: P_HEADER_ID , 3 ) ;
4532: END IF;
4533: RETURN ;
4534: ELSE
4547: -- Check the Result
4548: IF l_hold_result = FND_API.G_TRUE THEN
4549: p_hold_exists := 'Y';
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER ' , 3 ) ;
4552: END IF;
4553: return;
4554:
4555: ELSE
4566: );
4567: IF l_hold_result = FND_API.G_TRUE THEN
4568: p_hold_exists := 'Y';
4569: IF l_debug_level > 0 THEN
4570: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER' , 3 ) ;
4571: END IF;
4572: return;
4573: ELSE
4574: -- check if there exists header level pending authorization hold.
4586:
4587: IF l_hold_result = FND_API.G_TRUE THEN
4588: p_hold_exists := 'Y';
4589: IF l_debug_level > 0 THEN
4590: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER.' , 3 ) ;
4591: END IF;
4592: return;
4593: ELSE
4594: -- check if there exists line level pending authorization hold.
4605: p_hold_rec.x_result_out = FND_API.G_TRUE )
4606: THEN
4607: p_hold_exists := 'Y';
4608: IF l_debug_level > 0 THEN
4609: oe_debug_pub.add( 'OEXVPPYB: PAYMENT HOLD 16 EXISTS ON ORDER LINE.' , 3 ) ;
4610: END IF;
4611: ELSE
4612: p_hold_exists := 'N';
4613: IF l_debug_level > 0 THEN
4610: END IF;
4611: ELSE
4612: p_hold_exists := 'N';
4613: IF l_debug_level > 0 THEN
4614: oe_debug_pub.add( 'OEXVPPYB: NO PAYMENT HOLD ON ORDER.' , 3 ) ;
4615: END IF;
4616: END IF;
4617: END IF;
4618: END IF;
4636: -- Check the Result
4637: IF l_hold_result = FND_API.G_TRUE THEN
4638: p_hold_exists := 'Y';
4639: IF l_debug_level > 0 THEN
4640: oe_debug_pub.add( 'OEXVPPYB: Credit Card Authorization Failure hold EXISTS ON ORDER LINE' , 3 ) ;
4641: END IF;
4642: return;
4643:
4644: ELSE
4655: );
4656: IF l_hold_result = FND_API.G_TRUE THEN
4657: p_hold_exists := 'Y';
4658: IF l_debug_level > 0 THEN
4659: oe_debug_pub.add( 'OEXVPPYB: Credit Card Risk hold EXISTS ON ORDER LINE' , 3 ) ;
4660: END IF;
4661: return;
4662: ELSE
4663: OE_HOLDS_PUB.Check_Holds_Line
4674:
4675: IF l_hold_result = FND_API.G_TRUE THEN
4676: p_hold_exists := 'Y';
4677: IF l_debug_level > 0 THEN
4678: oe_debug_pub.add( 'OEXVPPYB: Pending Authorization hold EXISTS ON ORDER LINE' , 3 ) ;
4679: END IF;
4680: ELSE
4681: p_hold_exists := 'N';
4682: IF l_debug_level > 0 THEN
4679: END IF;
4680: ELSE
4681: p_hold_exists := 'N';
4682: IF l_debug_level > 0 THEN
4683: oe_debug_pub.add( 'OEXVPPYB: NO PAYMENT HOLD ON ORDER LINE' , 3 ) ;
4684: END IF;
4685: END IF;
4686: END IF;
4687: END IF;
4749: when no_data_found then
4750: IF lock_lin_Payments%ISOPEN Then
4751: close lock_lin_Payments;
4752: END IF;
4753: oe_debug_pub.add('no line payments exist');
4754: x_return_status := FND_API.G_RET_STS_SUCCESS;
4755: return;
4756: when others then
4757: ROLLBACK TO LINE_PAYMENTS;
4757: ROLLBACK TO LINE_PAYMENTS;
4758: IF lock_lin_Payments%ISOPEN Then
4759: close lock_lin_Payments;
4760: END IF;
4761: oe_debug_pub.add('locking the row failed');
4762: -- issue an error message saying that lock row failed.
4763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4764: RAISE;
4765: End;
4805: when no_data_found then
4806: IF lock_hdr_Payments%ISOPEN Then
4807: close lock_hdr_Payments;
4808: END IF;
4809: oe_debug_pub.add('no header payments exist');
4810: x_return_status := FND_API.G_RET_STS_SUCCESS;
4811: return;
4812: when others then
4813: ROLLBACK TO LOCK_HEADER_PAYMENTS;
4813: ROLLBACK TO LOCK_HEADER_PAYMENTS;
4814: IF lock_hdr_Payments%ISOPEN Then
4815: close lock_hdr_Payments;
4816: END IF;
4817: oe_debug_pub.add('locking the row failed');
4818: -- issue an error message saying that lock row failed.
4819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4821: End;
4855: l_msg_count NUMBER := 0;
4856: l_msg_data VARCHAR2(2000);
4857: l_return_status VARCHAR2(30);
4858: --
4859: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4860: --
4861:
4862: BEGIN
4863: IF l_debug_level > 0 THEN
4860: --
4861:
4862: BEGIN
4863: IF l_debug_level > 0 THEN
4864: oe_debug_pub.add( 'OEXVPPYB: Entering OE_PREPAYMENT_PVT.Delete_Payment_Hold.' , 3 ) ;
4865: END IF;
4866: x_return_status := FND_API.G_RET_STS_SUCCESS;
4867:
4868: IF p_line_id IS NOT NULL THEN
4963: l_installment_option VARCHAR2(12);
4964: l_percent NUMBER := 0;
4965: l_pr_return_value BOOLEAN;
4966:
4967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4968:
4969: BEGIN
4970: IF l_debug_level > 0 THEN
4971: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4968:
4969: BEGIN
4970: IF l_debug_level > 0 THEN
4971: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
4972: END IF;
4973:
4974: x_return_status := FND_API.G_RET_STS_SUCCESS;
4975:
5003: l_due_now_freight_amount_sum := l_due_now_freight_amount_sum + l_due_now_charges;
5004: l_due_now_total_sum := l_due_now_total_sum + l_due_now_total;
5005:
5006: IF l_debug_level > 0 THEN
5007: oe_debug_pub.add('l_due_now_total_sum : ' || l_due_now_total_sum);
5008: END IF;
5009:
5010: CLOSE due_now_cur;
5011: END LOOP;
5015: x_due_now_total_summary_rec.freight_amount := l_due_now_freight_amount_sum;
5016: x_due_now_total_summary_rec.total_amount := l_due_now_total_sum;
5017:
5018: IF l_debug_level > 0 THEN
5019: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_FIRST_INSTALLMENT');
5020: END IF;
5021:
5022: EXCEPTION
5023: WHEN OTHERS THEN
5021:
5022: EXCEPTION
5023: WHEN OTHERS THEN
5024: IF l_debug_level > 0 THEN
5025: oe_debug_pub.add('Error in OE_PREPAYMENT_PVT.Get_First_Installment');
5026: END IF;
5027:
5028: x_return_status := FND_API.G_RET_STS_ERROR;
5029:
5070: l_currency_code VARCHAR2(15);
5071: l_pay_now_commitment NUMBER;
5072: l_exc_inv_lines VARCHAR2(1);
5073:
5074: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5075:
5076: BEGIN
5077: IF l_debug_level > 0 THEN
5078: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5074: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5075:
5076: BEGIN
5077: IF l_debug_level > 0 THEN
5078: oe_debug_pub.add('ENTERING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5079: END IF;
5080: x_return_status := FND_API.G_RET_STS_SUCCESS;
5081:
5082: IF p_exc_inv_lines IS NULL THEN
5132:
5133: --bug5223078 start
5134: IF l_line_tbl(i).payment_term_id IS NULL THEN
5135: IF l_debug_level > 0 THEN
5136: oe_debug_pub.add('Not passing the line ' || l_line_tbl(i).line_id || ' to AR API since the payment term is null');
5137: END IF;
5138:
5139: GOTO END_OF_LOOP;
5140: END IF;
5180: END LOOP;
5181:
5182: IF p_line_id IS NULL THEN
5183: IF l_debug_level > 0 THEN
5184: oe_debug_pub.add('Before getting the header_charges');
5185: END IF;
5186:
5187: i := l_pay_now_total_detail_tbl.count + 1;
5188: --bug5223078 start
5189: l_hdr_term_id := OE_Order_Cache.g_header_rec.payment_term_id;
5190: --appending the header level charges only if l_hdr_term_id IS NOT NULL
5191: IF l_hdr_term_id IS NULL THEN
5192: IF l_debug_level > 0 THEN
5193: oe_debug_pub.add('Not passing the header level charges to AR API since the header level payment term is null');
5194: END IF;
5195: END IF;
5196: --bug5223078 end
5197: END IF;
5228: ,x_msg_count => x_msg_count
5229: ,x_msg_data => x_msg_data
5230: );
5231: IF l_debug_level > 0 THEN
5232: oe_debug_pub.add('x_return_status after calling AR_VIEW_TERM_GRP.pay_now_amounts : '|| x_return_status);
5233: END IF;
5234:
5235: ELSIF OE_Prepayment_Util.Get_Installment_Options ='AUTHORIZE_FIRST_INSTALLMENT' THEN
5236: -- the following API is used to get the values for tax, charges, subtotal and total
5290: END IF;
5291:
5292:
5293: IF l_debug_level > 0 THEN
5294: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5295: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5296: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5297: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5298: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5291:
5292:
5293: IF l_debug_level > 0 THEN
5294: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5295: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5296: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5297: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5298: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5299: END IF;
5292:
5293: IF l_debug_level > 0 THEN
5294: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5295: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5296: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5297: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5298: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5299: END IF;
5300:
5293: IF l_debug_level > 0 THEN
5294: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5295: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5296: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5297: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5298: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5299: END IF;
5300:
5301:
5294: oe_debug_pub.add('x_pay_now_subtotal: ' || x_pay_now_subtotal);
5295: oe_debug_pub.add('x_pay_now_tax: ' || x_pay_now_tax);
5296: oe_debug_pub.add('x_pay_now_charges: ' || x_pay_now_charges);
5297: oe_debug_pub.add('x_pay_now_total: ' || x_pay_now_total);
5298: oe_debug_pub.add('EXITING OE_PREPAYMENT_PVT.GET_PAY_NOW_AMOUNTS');
5299: END IF;
5300:
5301:
5302: EXCEPTION