DBA Data[Home] [Help]

APPS.FV_ECON_BENF_DISC_PVT dependencies on FND_LOG

Line 23: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);

19: End If;
20: EXCEPTION
21: WHEN OTHERS THEN
22: l_errbuf := SQLERRM;
23: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',l_errbuf);
24: RAISE;
25: End PAYDT_BEFORE_DISCDT;
26: /*----------------------------------------------*/
27: Function ROW_EXISTS(X_Invoice_Id IN NUMBER,

Line 47: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

43: EXCEPTION
44: WHEN NO_DATA_FOUND THEN
45: X_Err_Num := 1;
46: X_Err_Stage := 'No row found for Invoice '||to_char(X_Invoice_Id);
47: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
48: RETURN FALSE;
49: WHEN TOO_MANY_ROWS THEN
50: X_Err_Num := 2;
51: X_Err_Stage := 'There is more than one row for the Invoice '||to_char(X_Invoice_Id);

Line 52: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error2',X_Err_Stage);

48: RETURN FALSE;
49: WHEN TOO_MANY_ROWS THEN
50: X_Err_Num := 2;
51: X_Err_Stage := 'There is more than one row for the Invoice '||to_char(X_Invoice_Id);
52: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error2',X_Err_Stage);
53: RETURN FALSE;
54: WHEN OTHERS THEN
55: X_Err_Stage := SQLERRM;
56: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

Line 56: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

52: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error2',X_Err_Stage);
53: RETURN FALSE;
54: WHEN OTHERS THEN
55: X_Err_Stage := SQLERRM;
56: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
57: RAISE;
58: END;
59: End ROW_EXISTS;
60: /*-----------------------------------------------------------------*/

Line 85: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

81: EXCEPTION
82: WHEN NO_DATA_FOUND THEN
83: X_Err_Num := 1;
84: X_Err_Stage := 'No row found for Invoice '||to_char(X_Invoice_Id);
85: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
86: RETURN FALSE;
87: WHEN TOO_MANY_ROWS THEN
88: X_Err_Num := 2;
89: X_Err_Stage := 'There is more than one row for the FVRC Invoice '||to_char(X_Invoice_Id);

Line 90: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

86: RETURN FALSE;
87: WHEN TOO_MANY_ROWS THEN
88: X_Err_Num := 2;
89: X_Err_Stage := 'There is more than one row for the FVRC Invoice '||to_char(X_Invoice_Id);
90: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
91: RETURN FALSE;
92: WHEN OTHERS THEN
93: X_Err_Stage := SQLERRM;
94: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

Line 94: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

90: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
91: RETURN FALSE;
92: WHEN OTHERS THEN
93: X_Err_Stage := SQLERRM;
94: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
95: RAISE;
96: END;
97: End ROW_EXISTS_FVRC;
98: /*------------- END 1.3.2 --------------------------------*/

Line 178: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

174: EXCEPTION
175: WHEN ZERO_DIVIDE THEN
176: X_Err_Num := 2;
177: X_Err_Stage := 'There has been a division by ZERO while processing Invoice '||to_char(X_Invoice_Id);
178: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
179: WHEN OTHERS THEN
180: X_Err_Num := SQLCODE;
181: X_Err_Stage := SQLERRM;
182: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

Line 182: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

178: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
179: WHEN OTHERS THEN
180: X_Err_Num := SQLCODE;
181: X_Err_Stage := SQLERRM;
182: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
183: End CALCULATE_DISCOUNT;
184: /*---------------------------------------------*/
185:
186: Procedure INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

Line 236: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',X_Err_Stage);

232: EXCEPTION
233: WHEN DUP_VAL_ON_INDEX THEN
234: X_Err_Num := 2;
235: X_Err_Stage := 'Row already exists for the Invoice '||to_char(X_Invoice_Id)||'. Hence Insert failed';
236: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',X_Err_Stage);
237: WHEN OTHERS THEN
238: X_Err_Num := SQLCODE;
239: X_Err_Stage := 'Insert Failed '||SQLERRM;
240: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

Line 240: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

236: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',X_Err_Stage);
237: WHEN OTHERS THEN
238: X_Err_Num := SQLCODE;
239: X_Err_Stage := 'Insert Failed '||SQLERRM;
240: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
241: END;
242: END INSERT_FV_DISCOUNTED_INVOICES;
243:
244: /*-----------------------------------------------------------------*/

Line 263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

259: -- v_org_id number; --global variable
260: /*-- end 1.4 RCW --------------------------------*/
261:
262: Begin
263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Starting insert_fv_assign_reason_codes');
265: END IF;
266:
267: /*--------------------------------------------------*/

Line 264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Starting insert_fv_assign_reason_codes');

260: /*-- end 1.4 RCW --------------------------------*/
261:
262: Begin
263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Starting insert_fv_assign_reason_codes');
265: END IF;
266:
267: /*--------------------------------------------------*/
268: -- Version 1.4 RCW.

Line 324: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

320: WHEN DUP_VAL_ON_INDEX THEN
321: X_Err_Num := 2;
322: X_Err_Stage := 'Row already exists for the Invoice '||to_char(X_Invoice_Id)||'.
323: Insert failed';
324: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
325: WHEN OTHERS THEN
326: X_Err_Num := SQLCODE;
327: X_Err_Stage := 'Insert Failed '||SQLERRM;
328: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',X_Err_Stage);

Line 328: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',X_Err_Stage);

324: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
325: WHEN OTHERS THEN
326: X_Err_Num := SQLCODE;
327: X_Err_Stage := 'Insert Failed '||SQLERRM;
328: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',X_Err_Stage);
329: END;
330: EXCEPTION
331: WHEN OTHERS THEN
332: X_Err_Num := SQLCODE;

Line 334: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

330: EXCEPTION
331: WHEN OTHERS THEN
332: X_Err_Num := SQLCODE;
333: X_Err_Stage := SQLERRM;
334: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
335: END INSERT_FV_ASSIGN_REASON_CODES;
336:
337: /*----------- end 1.2 RCW ----------------------------------------*/
338:

Line 354: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

350: X_Err_Num := 0;
351: If SQL%ROWCOUNT = 0 then
352: X_Err_Num := 1;
353: X_Err_Stage := 'There were no rows deleted from FV_DISCOUNTED_INVOICES for the Invoice '||to_char(X_Invoice_Id);
354: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
355: End If;
356: EXCEPTION
357: WHEN OTHERS THEN
358: X_Err_Num := SQLCODE;

Line 360: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

356: EXCEPTION
357: WHEN OTHERS THEN
358: X_Err_Num := SQLCODE;
359: X_Err_Stage := SQLERRM;
360: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
361: End DELETE_FV_DISCOUNTED_INVOICES;
362:
363: /*-----------------------------------------------------------------------*/
364:

Line 407: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

403: X_Err_Num := 0;
404: If SQL%NOTFOUND THEN
405: X_Err_Num := 1;
406: X_Err_Stage := 'There were no rows updated for the Invoice '||to_char(X_Invoice_Id);
407: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
408: End If;
409:
410:
411: EXCEPTION

Line 415: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

411: EXCEPTION
412: WHEN OTHERS THEN
413: X_Err_Num := SQLCODE;
414: X_Err_Stage := SQLERRM;
415: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
416: End UPDATE_FV_DISCOUNTED_INVOICES;
417:
418: /*-----------------------------------------------------------------*/
419: -- Version 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.

Line 445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

441: COMMIT; --Bug 5705668
442:
443: X_Err_Num := 0;
444: If SQL%NOTFOUND THEN
445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'1-No rows in fv_assign_reason_codes');
447: END IF;
448: X_Err_Num := 1;
449: X_Err_Stage := 'There were no rows updated for the Invoice '||to_char(X_Invoice_Id);

Line 446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'1-No rows in fv_assign_reason_codes');

442:
443: X_Err_Num := 0;
444: If SQL%NOTFOUND THEN
445: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'1-No rows in fv_assign_reason_codes');
447: END IF;
448: X_Err_Num := 1;
449: X_Err_Stage := 'There were no rows updated for the Invoice '||to_char(X_Invoice_Id);
450: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

Line 450: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

446: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'1-No rows in fv_assign_reason_codes');
447: END IF;
448: X_Err_Num := 1;
449: X_Err_Stage := 'There were no rows updated for the Invoice '||to_char(X_Invoice_Id);
450: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
451: End If;
452:
453:
454: EXCEPTION

Line 458: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

454: EXCEPTION
455: WHEN OTHERS THEN
456: X_Err_Num := SQLCODE;
457: X_Err_Stage := SQLERRM;
458: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
459: End UPDATE_FV_ASSIGN_REASON_CODES;
460: /*----------- end 1.2 RCW ----------------------------------------*/
461:
462:

Line 483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);

479: EXCEPTION
480: WHEN NO_DATA_FOUND THEN
481: X_Err_Num := 1;
482: X_Err_Stage := 'No CVOF Rate available for the Payment Date '||to_char(X_Payment_Date);
483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
484: WHEN OTHERS THEN
485: X_Err_Num := SQLCODE;
486: X_Err_Stage := SQLERRM;
487: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

Line 487: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);

483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
484: WHEN OTHERS THEN
485: X_Err_Num := SQLCODE;
486: X_Err_Stage := SQLERRM;
487: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
488: END GET_CVOF_RATE;
489: /*-----------------------------------------------------------------*/
490: FUNCTION EBD_CHECK(x_batch_name IN VARCHAR2,
491: x_invoice_id IN NUMBER,

Line 615: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

611: If X_Err_Nbr = 2 then
612: err_message := x_err_stage;
613: fnd_message.set_name('FV','FV_FAI_GENERAL');
614: fnd_message.set_token('msg',err_message);
615: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
616: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
617: END IF;
618: app_exception.raise_exception;
619: End If;

Line 616: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

612: err_message := x_err_stage;
613: fnd_message.set_name('FV','FV_FAI_GENERAL');
614: fnd_message.set_token('msg',err_message);
615: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
616: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
617: END IF;
618: app_exception.raise_exception;
619: End If;
620: End If ; -- End of 4th If

Line 657: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

653: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
654: err_message := x_err_stage;
655: fnd_message.set_name('FV','FV_FAI_GENERAL');
656: fnd_message.set_token('msg',err_message);
657: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
658: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
659: END IF;
660: app_exception.raise_exception;
661: End If;

Line 658: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

654: err_message := x_err_stage;
655: fnd_message.set_name('FV','FV_FAI_GENERAL');
656: fnd_message.set_token('msg',err_message);
657: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
658: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
659: END IF;
660: app_exception.raise_exception;
661: End If;
662:

Line 686: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

682: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
683: err_message := x_err_stage;
684: fnd_message.set_name('FV','FV_FAI_GENERAL');
685: fnd_message.set_token('msg',err_message);
686: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
688: END IF;
689: app_exception.raise_exception;
690: End If;

Line 687: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

683: err_message := x_err_stage;
684: fnd_message.set_name('FV','FV_FAI_GENERAL');
685: fnd_message.set_token('msg',err_message);
686: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
688: END IF;
689: app_exception.raise_exception;
690: End If;
691: Else

Line 710: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

706: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
707: err_message := x_err_stage;
708: fnd_message.set_name('FV','FV_FAI_GENERAL');
709: fnd_message.set_token('msg',err_message);
710: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
711: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
712: END IF;
713: app_exception.raise_exception;
714: End If;

Line 711: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

707: err_message := x_err_stage;
708: fnd_message.set_name('FV','FV_FAI_GENERAL');
709: fnd_message.set_token('msg',err_message);
710: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
711: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
712: END IF;
713: app_exception.raise_exception;
714: End If;
715:

Line 717: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will NOT be included in the Payment Batch because it');

713: app_exception.raise_exception;
714: End If;
715:
716: -- This invoice does not meet the EBD requirements so do NOT include
717: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will NOT be included in the Payment Batch because it');
718: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'does not meet EBD Requirements.');
719: RETURN 'N';
720:
721:

Line 718: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'does not meet EBD Requirements.');

714: End If;
715:
716: -- This invoice does not meet the EBD requirements so do NOT include
717: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will NOT be included in the Payment Batch because it');
718: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'does not meet EBD Requirements.');
719: RETURN 'N';
720:
721:
722: Elsif X_Effective_Discount_Rate > X_CVOF_Rate then

Line 738: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

734: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
735: err_message := x_err_stage;
736: fnd_message.set_name('FV','FV_FAI_GENERAL');
737: fnd_message.set_token('msg',err_message);
738: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
739: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
740: END IF;
741: app_exception.raise_exception;
742: End If;

Line 739: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

735: err_message := x_err_stage;
736: fnd_message.set_name('FV','FV_FAI_GENERAL');
737: fnd_message.set_token('msg',err_message);
738: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
739: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
740: END IF;
741: app_exception.raise_exception;
742: End If;
743: End If;

Line 747: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Payment Date is after Discount Date');

743: End If;
744: End If; -- End of 5th If
745:
746: Else
747: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Payment Date is after Discount Date');
748:
749: /* Payment Date after Discount Date */
750: If ROW_EXISTS(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then --3rd If
751: UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id,X_Payment_Date,

Line 761: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

757: -- Ver 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.
758: /*-----------------------------------------------------------*/
759: IF fnd_profile.value('USE_DISCOUNT_LOST_REASON_CODES') = 'Y'
760: AND X_Terms_Type = 'PROMPT PAY' THEN
761: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Using Discount Lost Reason Codes');
763: END IF;
764: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,
765: X_Err_Nbr,X_Err_Stage);

Line 762: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Using Discount Lost Reason Codes');

758: /*-----------------------------------------------------------*/
759: IF fnd_profile.value('USE_DISCOUNT_LOST_REASON_CODES') = 'Y'
760: AND X_Terms_Type = 'PROMPT PAY' THEN
761: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Using Discount Lost Reason Codes');
763: END IF;
764: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,
765: X_Err_Nbr,X_Err_Stage);
766: RETCODE := to_char(X_Err_Nbr);

Line 787: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

783: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
784: err_message := x_err_stage;
785: fnd_message.set_name('FV','FV_FAI_GENERAL');
786: fnd_message.set_token('msg',err_message);
787: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
788: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
789: END IF;
790: app_exception.raise_exception;
791: End If;

Line 788: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

784: err_message := x_err_stage;
785: fnd_message.set_name('FV','FV_FAI_GENERAL');
786: fnd_message.set_token('msg',err_message);
787: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
788: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
789: END IF;
790: app_exception.raise_exception;
791: End If;
792:

Line 799: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

795: /*----------------------------------------------------------*/
796: IF fnd_profile.value('USE_DISCOUNT_LOST_REASON_CODES') = 'Y'
797: AND X_Terms_Type = 'PROMPT PAY' THEN
798: If ROW_EXISTS_FVRC(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then
799: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
800: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Record exists in FVRC');
801: END IF;
802:
803: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,

Line 800: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Record exists in FVRC');

796: IF fnd_profile.value('USE_DISCOUNT_LOST_REASON_CODES') = 'Y'
797: AND X_Terms_Type = 'PROMPT PAY' THEN
798: If ROW_EXISTS_FVRC(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then
799: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
800: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Record exists in FVRC');
801: END IF;
802:
803: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,
804: X_Err_Nbr,X_Err_Stage);

Line 809: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

805: RETCODE := to_char(X_Err_Nbr);
806: ERRBUF := X_Err_Stage;
807:
808: Else -- ROW DOESN'T EXIST
809: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
810: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'x_err_nbr = '||to_char(x_err_nbr));
811: END IF;
812: IF X_Err_Nbr = 1 then --no records found
813:

Line 810: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'x_err_nbr = '||to_char(x_err_nbr));

806: ERRBUF := X_Err_Stage;
807:
808: Else -- ROW DOESN'T EXIST
809: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
810: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'x_err_nbr = '||to_char(x_err_nbr));
811: END IF;
812: IF X_Err_Nbr = 1 then --no records found
813:
814: INSERT_FV_ASSIGN_REASON_CODES(X_Invoice_Id,

Line 824: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

820: If ((X_Err_Nbr = 2) or (X_Err_Nbr < 0)) then
821: err_message := x_err_stage;
822: fnd_message.set_name('FV','FV_FAI_GENERAL');
823: fnd_message.set_token('msg',err_message);
824: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
826: END IF;
827: app_exception.raise_exception;
828: End If;

Line 825: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

821: err_message := x_err_stage;
822: fnd_message.set_name('FV','FV_FAI_GENERAL');
823: fnd_message.set_token('msg',err_message);
824: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
825: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
826: END IF;
827: app_exception.raise_exception;
828: End If;
829: ELSIF X_Err_Nbr = 2 then --too many rows

Line 833: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

829: ELSIF X_Err_Nbr = 2 then --too many rows
830: err_message := x_err_stage;
831: fnd_message.set_name('FV','FV_FAI_GENERAL');
832: fnd_message.set_token('msg',err_message);
833: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
834: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
835: END IF;
836: app_exception.raise_exception;
837:

Line 834: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

830: err_message := x_err_stage;
831: fnd_message.set_name('FV','FV_FAI_GENERAL');
832: fnd_message.set_token('msg',err_message);
833: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
834: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
835: END IF;
836: app_exception.raise_exception;
837:
838: END IF;

Line 847: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

843: ELSIF X_Err_Nbr = 2 then
844: err_message := x_err_stage;
845: fnd_message.set_name('FV','FV_FAI_GENERAL');
846: fnd_message.set_token('msg',err_message);
847: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
848: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
849: END IF;
850: app_exception.raise_exception;
851:

Line 848: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);

844: err_message := x_err_stage;
845: fnd_message.set_name('FV','FV_FAI_GENERAL');
846: fnd_message.set_token('msg',err_message);
847: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
848: FV_UTILITY.MESSAGE(FND_LOG.LEVEL_ERROR, l_module_name);
849: END IF;
850: app_exception.raise_exception;
851:
852: END IF; -- End of 3A

Line 858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will be included in the Payment Batch because it');

854: END IF ; -- End of 2nd If
855: END LOOP;
856:
857: IF c1%NOTFOUND THEN
858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will be included in the Payment Batch because it');
859: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'meets EBD Requirements.');
860: RETURN 'Y';
861: END IF;
862:

Line 859: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'meets EBD Requirements.');

855: END LOOP;
856:
857: IF c1%NOTFOUND THEN
858: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Invoice Number, '||x_invoice_num||', will be included in the Payment Batch because it');
859: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'meets EBD Requirements.');
860: RETURN 'Y';
861: END IF;
862:
863: close c1;

Line 872: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',err_message);

868: END IF;
869: EXCEPTION
870: WHEN OTHERS THEN
871: err_message := SQLERRM;
872: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',err_message);
873: RAISE;
874: END EBD_CHECK;
875: /*-----------------------------------------------------------------------*/
876: END FV_ECON_BENF_DISC_PVT;