eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FV_ECON_BENF_DISC_PVT dependencies on FV_DISCOUNTED_INVOICES

Line 34: from FV_DISCOUNTED_INVOICES

30: BEGIN
31: select invoice_id
32: into
33: Inv_Nbr
34: from FV_DISCOUNTED_INVOICES
35: where
36: invoice_id = X_Invoice_Id;
37: X_Err_Num := 0;
38:

Line 171: Procedure INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

167: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
168: End CALCULATE_DISCOUNT;
169: /*---------------------------------------------*/
170:
171: Procedure INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,
172: X_Discount_Taken_Flag IN VARCHAR2,
173: X_Discount_Status_Code IN VARCHAR2,
174: X_Payment_Date IN DATE,
175: X_Effective_Discount_Rate IN NUMBER,

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

176: X_CVOF_Rate IN NUMBER,
177: X_Err_Num OUT NOCOPY NUMBER,
178: X_Err_Stage OUT NOCOPY VARCHAR2) IS
179: 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
180: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_DISCOUNTED_INVOICES';
181: Begin
182: BEGIN
183: INSERT INTO
184: FV_DISCOUNTED_INVOICES(Invoice_Id,

Line 184: FV_DISCOUNTED_INVOICES(Invoice_Id,

180: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_DISCOUNTED_INVOICES';
181: Begin
182: BEGIN
183: INSERT INTO
184: FV_DISCOUNTED_INVOICES(Invoice_Id,
185: Last_Update_Date,
186: Last_Updated_By ,
187: Last_Update_Login,
188: Creation_Date ,

Line 227: END INSERT_FV_DISCOUNTED_INVOICES;

223: X_Err_Num := SQLCODE;
224: X_Err_Stage := 'Insert Failed '||SQLERRM;
225: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
226: END;
227: END INSERT_FV_DISCOUNTED_INVOICES;
228:
229: /*-----------------------------------------------------------------*/
230: -- Version 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW.
231: /*------------------------------------------------------------------*/

Line 324: Procedure DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

320: END INSERT_FV_ASSIGN_REASON_CODES;
321:
322: /*----------- end 1.2 RCW ----------------------------------------*/
323:
324: Procedure DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,
325: X_Err_Num OUT NOCOPY NUMBER,
326: X_Err_Stage OUT NOCOPY VARCHAR2) IS
327:
328: 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 329: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';

325: X_Err_Num OUT NOCOPY NUMBER,
326: X_Err_Stage OUT NOCOPY VARCHAR2) IS
327:
328: 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
329: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';
330: Begin
331: delete from FV_DISCOUNTED_INVOICES
332: where
333: invoice_id = X_Invoice_Id;

Line 331: delete from FV_DISCOUNTED_INVOICES

327:
328: 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
329: l_module_name VARCHAR2(200) := g_module_name || 'DELETE_FV_DISCOUNTED_INVOICES';
330: Begin
331: delete from FV_DISCOUNTED_INVOICES
332: where
333: invoice_id = X_Invoice_Id;
334: COMMIT; --Bug 5705668
335: X_Err_Num := 0;

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

334: COMMIT; --Bug 5705668
335: X_Err_Num := 0;
336: If SQL%ROWCOUNT = 0 then
337: X_Err_Num := 1;
338: X_Err_Stage := 'There were no rows deleted from FV_DISCOUNTED_INVOICES for the Invoice '||to_char(X_Invoice_Id);
339: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',X_Err_Stage);
340: End If;
341: EXCEPTION
342: WHEN OTHERS THEN

Line 346: End DELETE_FV_DISCOUNTED_INVOICES;

342: WHEN OTHERS THEN
343: X_Err_Num := SQLCODE;
344: X_Err_Stage := SQLERRM;
345: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
346: End DELETE_FV_DISCOUNTED_INVOICES;
347:
348: /*-----------------------------------------------------------------------*/
349:
350: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

Line 350: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

346: End DELETE_FV_DISCOUNTED_INVOICES;
347:
348: /*-----------------------------------------------------------------------*/
349:
350: Procedure UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,
351: X_Payment_Date IN DATE,
352: X_Err_Num OUT NOCOPY NUMBER,
353: X_Err_Stage OUT NOCOPY VARCHAR2) IS
354: 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 356: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_DISCOUNTED_INVOICES';

352: X_Err_Num OUT NOCOPY NUMBER,
353: X_Err_Stage OUT NOCOPY VARCHAR2) IS
354: 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
355:
356: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_DISCOUNTED_INVOICES';
357: Existing_Flag VARCHAR2(1);
358:
359: Begin
360: select discount_taken_flag

Line 362: from FV_DISCOUNTED_INVOICES

358:
359: Begin
360: select discount_taken_flag
361: into Existing_Flag
362: from FV_DISCOUNTED_INVOICES
363: where Invoice_Id = X_Invoice_Id;
364:
365: If Existing_Flag = 'N' then
366: update FV_DISCOUNTED_INVOICES

Line 366: update FV_DISCOUNTED_INVOICES

362: from FV_DISCOUNTED_INVOICES
363: where Invoice_Id = X_Invoice_Id;
364:
365: If Existing_Flag = 'N' then
366: update FV_DISCOUNTED_INVOICES
367: set Payment_Date = X_Payment_Date,
368: Last_Update_Date = SYSDATE,
369: Last_Updated_By = FND_GLOBAL.USER_ID,
370: Last_Update_Login = FND_GLOBAL.LOGIN_ID

Line 374: update FV_DISCOUNTED_INVOICES

370: Last_Update_Login = FND_GLOBAL.LOGIN_ID
371: where Invoice_Id = X_Invoice_Id;
372:
373: Elsif Existing_Flag = 'Y' then
374: update FV_DISCOUNTED_INVOICES
375: set Payment_Date = X_Payment_Date,
376: Discount_Taken_Flag = 'N',
377: Effective_Discount_Percent = NULL,
378: Curr_Value_Of_Funds_Percent = NULL,

Line 401: End UPDATE_FV_DISCOUNTED_INVOICES;

397: WHEN OTHERS THEN
398: X_Err_Num := SQLCODE;
399: X_Err_Stage := SQLERRM;
400: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',X_Err_Stage);
401: End UPDATE_FV_DISCOUNTED_INVOICES;
402:
403: /*-----------------------------------------------------------------*/
404: -- Version 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.
405: /*------------------------------------------------------------------*/

Line 531: X_Effective_Discount_Rate FV_DISCOUNTED_INVOICES.EFFECTIVE_DISCOUNT_PERCENT%TYPE;

527: X_Discount_Date AP_PAYMENT_SCHEDULES.DISCOUNT_DATE%TYPE;
528: --------------End of Comments---------------------------------------*/
529: x_Due_Date AP_SELECTED_INVOICES.DUE_DATE%TYPE;
530: X_Payment_Date DATE;
531: X_Effective_Discount_Rate FV_DISCOUNTED_INVOICES.EFFECTIVE_DISCOUNT_PERCENT%TYPE;
532: X_CVOF_Rate FV_VALUE_OF_FUND_PERIODS.CURR_VALUE_OF_FUNDS_PERCENT%TYPE;
533: X_terms_type FV_TERMS_TYPES.TERMS_TYPE%TYPE;
534: X_Err_Nbr NUMBER ;
535: X_Err_Stage VARCHAR2(120);

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

583: IF PAYDT_BEFORE_DISCDT(X_Payment_Date,X_Discount_Date) then --2nd If
584:
585: If ROW_EXISTS(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then -- 4th If
586:
587: DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id, X_Err_Nbr, X_Err_Stage);
588: RETCODE := to_char(X_Err_Nbr);
589: ERRBUF := X_Err_Stage;
590: Else
591: If X_Err_Nbr = 2 then

Line 639: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

635: RETCODE := to_char(X_Err_Nbr);
636: ERRBUF := X_Err_Stage;
637: If X_Err_Nbr <> 0 then -- 5th If
638: /* CVOF Rate was unavailable for the given Date range*/
639: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
640: 'Y',
641: 'CVOF_RATE_UNAVAILABLE',
642: X_Payment_Date,
643: X_Effective_Discount_Rate,

Line 662: /* Insert invoice into FV_DISCOUNTED_INVOICES */

658: Else
659: /* CVOF Rate Available */
660: /* Disc_Rate less than CVOF Rate */
661: If X_Effective_Discount_Rate <= X_CVOF_Rate then
662: /* Insert invoice into FV_DISCOUNTED_INVOICES */
663: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
664: 'N',
665: 'NOT_EBD',
666: X_Payment_Date,

Line 663: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

659: /* CVOF Rate Available */
660: /* Disc_Rate less than CVOF Rate */
661: If X_Effective_Discount_Rate <= X_CVOF_Rate then
662: /* Insert invoice into FV_DISCOUNTED_INVOICES */
663: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
664: 'N',
665: 'NOT_EBD',
666: X_Payment_Date,
667: X_Effective_Discount_Rate,

Line 691: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

687:
688:
689: Elsif X_Effective_Discount_Rate > X_CVOF_Rate then
690: /* Disc_Rate greater than CVOF Rate */
691: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
692: 'Y',
693: NULL,
694: X_Payment_Date,
695: X_Effective_Discount_Rate,

Line 718: UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id,X_Payment_Date,

714: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, 'Payment Date is after Discount Date');
715:
716: /* Payment Date after Discount Date */
717: If ROW_EXISTS(X_Invoice_Id,X_Err_Nbr,X_Err_Stage) then --3rd If
718: UPDATE_FV_DISCOUNTED_INVOICES(X_Invoice_Id,X_Payment_Date,
719: X_Err_Nbr,X_Err_Stage);
720: RETCODE := to_char(X_Err_Nbr);
721: ERRBUF := X_Err_Stage;
722:

Line 740: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,

736: /*----------- end 1.2 RCW -------------------------------*/
737:
738: Else
739: IF X_Err_Nbr = 1 then -- 3A
740: INSERT_FV_DISCOUNTED_INVOICES(X_Invoice_Id,
741: 'N',
742: 'PAYMENT_DATE_PAST',
743: X_Payment_Date,
744: X_Effective_Discount_Rate,