DBA Data[Home] [Help]

APPS.FV_ECON_BENF_DISC_PVT dependencies on FV_DISCOUNTED_INVOICES

Line 37: from FV_DISCOUNTED_INVOICES

33: BEGIN
34: select invoice_id
35: into
36: Inv_Nbr
37: from FV_DISCOUNTED_INVOICES
38: where
39: invoice_id = X_Invoice_Id;
40: X_Err_Num := 0;
41:

Line 186: Procedure INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

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,
187: X_Discount_Taken_Flag IN VARCHAR2,
188: X_Discount_Status_Code IN VARCHAR2,
189: X_Payment_Date IN DATE,
190: X_Effective_Discount_Rate IN NUMBER,

Line 195: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_DISCOUNTED_INVOICES';

191: X_CVOF_Rate IN NUMBER,
192: X_Err_Num OUT NOCOPY NUMBER,
193: X_Err_Stage OUT NOCOPY VARCHAR2) IS
194: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous
195: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_DISCOUNTED_INVOICES';
196: Begin
197: BEGIN
198: INSERT INTO
199: FV_DISCOUNTED_INVOICES(Invoice_Id,

Line 199: FV_DISCOUNTED_INVOICES(Invoice_Id,

195: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_DISCOUNTED_INVOICES';
196: Begin
197: BEGIN
198: INSERT INTO
199: FV_DISCOUNTED_INVOICES(Invoice_Id,
200: Last_Update_Date,
201: Last_Updated_By ,
202: Last_Update_Login,
203: Creation_Date ,

Line 242: END INSERT_FV_DISCOUNTED_INVOICES;

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: /*-----------------------------------------------------------------*/
245: -- Version 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW.
246: /*------------------------------------------------------------------*/

Line 339: Procedure DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

335: END INSERT_FV_ASSIGN_REASON_CODES;
336:
337: /*----------- end 1.2 RCW ----------------------------------------*/
338:
339: Procedure DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,
340: X_Err_Num OUT NOCOPY NUMBER,
341: X_Err_Stage OUT NOCOPY VARCHAR2) IS
342:
343: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous

Line 344: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';

340: X_Err_Num OUT NOCOPY NUMBER,
341: X_Err_Stage OUT NOCOPY VARCHAR2) IS
342:
343: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous
344: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';
345: Begin
346: delete from FV_DISCOUNTED_INVOICES
347: where
348: invoice_id = X_Invoice_Id;

Line 346: delete from FV_DISCOUNTED_INVOICES

342:
343: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous
344: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';
345: Begin
346: delete from FV_DISCOUNTED_INVOICES
347: where
348: invoice_id = X_Invoice_Id;
349: COMMIT; --Bug 5705668
350: X_Err_Num := 0;

Line 353: X_Err_Stage := 'There were no rows deleted from FV_DISCOUNTED_INVOICES for the Invoice '||to_char(X_Invoice_Id);

349: COMMIT; --Bug 5705668
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

Line 361: End DELETE_FV_DISCOUNTED_INVOICES;

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:
365: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

Line 365: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

361: End DELETE_FV_DISCOUNTED_INVOICES;
362:
363: /*-----------------------------------------------------------------------*/
364:
365: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,
366: X_Payment_Date IN DATE,
367: X_Err_Num OUT NOCOPY NUMBER,
368: X_Err_Stage OUT NOCOPY VARCHAR2) IS
369: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous

Line 371: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_DISCOUNTED_INVOICES';

367: X_Err_Num OUT NOCOPY NUMBER,
368: X_Err_Stage OUT NOCOPY VARCHAR2) IS
369: PRAGMA AUTONOMOUS_TRANSACTION; --bug 5705668, AP Autoselect process uses EBD_CHECK as where clause of a query, which raised error. Hence made this as Autonomous
370:
371: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_DISCOUNTED_INVOICES';
372: Existing_Flag VARCHAR2(1);
373:
374: Begin
375: select discount_taken_flag

Line 377: from FV_DISCOUNTED_INVOICES

373:
374: Begin
375: select discount_taken_flag
376: into Existing_Flag
377: from FV_DISCOUNTED_INVOICES
378: where Invoice_Id = X_Invoice_Id;
379:
380: If Existing_Flag = 'N' then
381: update FV_DISCOUNTED_INVOICES

Line 381: update FV_DISCOUNTED_INVOICES

377: from FV_DISCOUNTED_INVOICES
378: where Invoice_Id = X_Invoice_Id;
379:
380: If Existing_Flag = 'N' then
381: update FV_DISCOUNTED_INVOICES
382: set Payment_Date = X_Payment_Date,
383: Last_Update_Date = SYSDATE,
384: Last_Updated_By = FND_GLOBAL.USER_ID,
385: Last_Update_Login = FND_GLOBAL.LOGIN_ID

Line 389: update FV_DISCOUNTED_INVOICES

385: Last_Update_Login = FND_GLOBAL.LOGIN_ID
386: where Invoice_Id = X_Invoice_Id;
387:
388: Elsif Existing_Flag = 'Y' then
389: update FV_DISCOUNTED_INVOICES
390: set Payment_Date = X_Payment_Date,
391: Discount_Taken_Flag = 'N',
392: Effective_Discount_Percent = NULL,
393: Curr_Value_Of_Funds_Percent = NULL,

Line 416: End UPDATE_FV_DISCOUNTED_INVOICES;

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.
420: /*------------------------------------------------------------------*/

Line 549: X_Effective_Discount_Rate FV_DISCOUNTED_INVOICES.EFFECTIVE_DISCOUNT_PERCENT%TYPE;

545: x_Due_Date AP_SELECTED_INVOICES.DUE_DATE%TYPE;
546: -- Bug 11834795
547: X_Terms_Id AP_INVOICES.TERMS_ID%TYPE;
548: X_Payment_Date DATE;
549: X_Effective_Discount_Rate FV_DISCOUNTED_INVOICES.EFFECTIVE_DISCOUNT_PERCENT%TYPE;
550: X_CVOF_Rate FV_VALUE_OF_FUND_PERIODS.CURR_VALUE_OF_FUNDS_PERCENT%TYPE;
551: X_terms_type FV_TERMS_TYPES.TERMS_TYPE%TYPE;
552: X_Err_Nbr NUMBER ;
553: X_Err_Stage VARCHAR2(120);

Line 607: DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id, X_Err_Nbr, X_Err_Stage);

603: IF PAYDT_BEFORE_DISCDT(X_Payment_Date,X_Discount_Date) then --2nd If
604:
605: If ROW_EXISTS(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then -- 4th If
606:
607: DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id, X_Err_Nbr, X_Err_Stage);
608: RETCODE := to_char(X_Err_Nbr);
609: ERRBUF := X_Err_Stage;
610: Else
611: If X_Err_Nbr = 2 then

Line 672: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

668: RETCODE := to_char(X_Err_Nbr);
669: ERRBUF := X_Err_Stage;
670: If X_Err_Nbr <> 0 then -- 5th If
671: /* CVOF Rate was unavailable for the given Date range*/
672: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
673: 'Y',
674: 'CVOF_RATE_UNAVAILABLE',
675: X_Payment_Date,
676: X_Effective_Discount_Rate,

Line 695: /* Insert invoice into FV_DISCOUNTED_INVOICES */

691: Else
692: /* CVOF Rate Available */
693: /* Disc_Rate less than CVOF Rate */
694: If X_Effective_Discount_Rate <= X_CVOF_Rate then
695: /* Insert invoice into FV_DISCOUNTED_INVOICES */
696: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
697: 'N',
698: 'NOT_EBD',
699: X_Payment_Date,

Line 696: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

692: /* CVOF Rate Available */
693: /* Disc_Rate less than CVOF Rate */
694: If X_Effective_Discount_Rate <= X_CVOF_Rate then
695: /* Insert invoice into FV_DISCOUNTED_INVOICES */
696: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
697: 'N',
698: 'NOT_EBD',
699: X_Payment_Date,
700: X_Effective_Discount_Rate,

Line 724: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

720:
721:
722: Elsif X_Effective_Discount_Rate > X_CVOF_Rate then
723: /* Disc_Rate greater than CVOF Rate */
724: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
725: 'Y',
726: NULL,
727: X_Payment_Date,
728: X_Effective_Discount_Rate,

Line 751: UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id,X_Payment_Date,

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,
752: X_Err_Nbr,X_Err_Stage);
753: RETCODE := to_char(X_Err_Nbr);
754: ERRBUF := X_Err_Stage;
755:

Line 773: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

769: /*----------- end 1.2 RCW -------------------------------*/
770:
771: Else
772: IF X_Err_Nbr = 1 then -- 3A
773: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
774: 'N',
775: 'PAYMENT_DATE_PAST',
776: X_Payment_Date,
777: X_Effective_Discount_Rate,