DBA Data[Home] [Help]

APPS.FV_ECON_BENF_DISC_PVT dependencies on FV_ASSIGN_REASON_CODES

Line 61: -- Version 1.3.2 Added ROW_EXISTS for FV_ASSIGN_REASON_CODES RCW.

57: RAISE;
58: END;
59: End ROW_EXISTS;
60: /*-----------------------------------------------------------------*/
61: -- Version 1.3.2 Added ROW_EXISTS for FV_ASSIGN_REASON_CODES RCW.
62: /*-----------------------------------------------------------------*/
63: Function ROW_EXISTS_FVRC(X_Invoice_Id IN NUMBER,
64: X_Err_Num OUT NOCOPY NUMBER,
65: X_Err_Stage OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS

Line 74: from FV_ASSIGN_REASON_CODES

70: BEGIN
71: select invoice_id, entry_source
72: into
73: Inv_id, ent_source
74: from FV_ASSIGN_REASON_CODES
75: where
76: invoice_id = X_Invoice_Id
77: and entry_source = 'EBD';
78: X_Err_Num := 0;

Line 245: -- Version 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW.

241: END;
242: END INSERT_FV_DISCOUNTED_INVOICES;
243:
244: /*-----------------------------------------------------------------*/
245: -- Version 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW.
246: /*------------------------------------------------------------------*/
247: Procedure INSERT_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,
248: x_Batch_Name IN VARCHAR2,
249: X_Err_Num OUT NOCOPY NUMBER,

Line 247: Procedure INSERT_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,

243:
244: /*-----------------------------------------------------------------*/
245: -- Version 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW.
246: /*------------------------------------------------------------------*/
247: Procedure INSERT_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,
248: x_Batch_Name IN VARCHAR2,
249: X_Err_Num OUT NOCOPY NUMBER,
250: X_Err_Stage OUT NOCOPY VARCHAR2) IS
251:

Line 253: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_ASSIGN_REASON_CODES';

249: X_Err_Num OUT NOCOPY NUMBER,
250: X_Err_Stage OUT NOCOPY VARCHAR2) IS
251:
252: 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
253: l_module_name VARCHAR2(200) := g_module_name || 'INSERT_FV_ASSIGN_REASON_CODES';
254: -- v_sob number; --global variable
255: -- v_sob_name VARCHAR2(50);
256: /*--------------------------------------------------*/
257: -- Version 1.4 RCW.

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 286: INSERT INTO FV_ASSIGN_REASON_CODES(Invoice_Id,

282: /*-- end 1.4 RCW -------------------------------*/
283:
284:
285: BEGIN
286: INSERT INTO FV_ASSIGN_REASON_CODES(Invoice_Id,
287: Set_of_Books_Id,
288: /*--------------------------------------------------*/
289: -- Version 1.4 RCW.
290: /*--------------------------------------------------*/

Line 335: END INSERT_FV_ASSIGN_REASON_CODES;

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:
339: Procedure DELETE_FV_DISCOUNTED_INVOICES(X_Invoice_Id IN NUMBER,

Line 419: -- Version 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.

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: /*------------------------------------------------------------------*/
421: Procedure UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,
422: x_Batch_Name IN VARCHAR2,
423: X_Err_Num OUT NOCOPY NUMBER,

Line 421: Procedure UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,

417:
418: /*-----------------------------------------------------------------*/
419: -- Version 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.
420: /*------------------------------------------------------------------*/
421: Procedure UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id IN NUMBER,
422: x_Batch_Name IN VARCHAR2,
423: X_Err_Num OUT NOCOPY NUMBER,
424: X_Err_Stage OUT NOCOPY VARCHAR2) IS
425:

Line 428: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_ASSIGN_REASON_CODES';

424: X_Err_Stage OUT NOCOPY VARCHAR2) IS
425:
426: 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
427:
428: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_ASSIGN_REASON_CODES';
429: Begin
430:
431: update FV_ASSIGN_REASON_CODES
432: set Checkrun_name = x_Batch_Name,

Line 431: update FV_ASSIGN_REASON_CODES

427:
428: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_FV_ASSIGN_REASON_CODES';
429: Begin
430:
431: update FV_ASSIGN_REASON_CODES
432: set Checkrun_name = x_Batch_Name,
433: Entry_mode = 'SYSTEM',
434: Last_Update_Date = SYSDATE,
435: Last_Updated_By = FND_GLOBAL.USER_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 459: End UPDATE_FV_ASSIGN_REASON_CODES;

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:
463: /*--------------------------------------------------------------------*/

Line 757: -- Ver 1.2 Added Procedure UPDATE_FV_ASSIGN_REASON_CODES RCW.

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

Line 764: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,

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);
767: ERRBUF := X_Err_Stage;
768: END IF;

Line 794: -- Ver 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW

790: app_exception.raise_exception;
791: End If;
792:
793: /*---------------------------------------------------------*/
794: -- Ver 1.2 Added Procedure INSERT_FV_ASSIGN_REASON_CODES RCW
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

Line 803: UPDATE_FV_ASSIGN_REASON_CODES(X_Invoice_Id,x_Batch_Name,

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);
805: RETCODE := to_char(X_Err_Nbr);
806: ERRBUF := X_Err_Stage;
807:

Line 814: INSERT_FV_ASSIGN_REASON_CODES(X_Invoice_Id,

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,
815: x_Batch_Name,
816: X_Err_Nbr,
817: X_Err_Stage);
818: RETCODE := to_char(X_Err_Nbr);