212: Program_Id,
213: Program_Update_Date)
214: VALUES(X_Invoice_Id ,
215: SYSDATE,
216: FND_GLOBAL.USER_ID,
217: FND_GLOBAL.LOGIN_ID,
218: SYSDATE ,
219: FND_GLOBAL.USER_ID,
220: X_Discount_Taken_Flag ,
213: Program_Update_Date)
214: VALUES(X_Invoice_Id ,
215: SYSDATE,
216: FND_GLOBAL.USER_ID,
217: FND_GLOBAL.LOGIN_ID,
218: SYSDATE ,
219: FND_GLOBAL.USER_ID,
220: X_Discount_Taken_Flag ,
221: X_Payment_Date ,
215: SYSDATE,
216: FND_GLOBAL.USER_ID,
217: FND_GLOBAL.LOGIN_ID,
218: SYSDATE ,
219: FND_GLOBAL.USER_ID,
220: X_Discount_Taken_Flag ,
221: X_Payment_Date ,
222: X_Effective_Discount_Rate ,
223: X_CVOF_Rate,
221: X_Payment_Date ,
222: X_Effective_Discount_Rate ,
223: X_CVOF_Rate,
224: X_Discount_Status_Code,
225: FND_GLOBAL.CONC_REQUEST_ID,
226: FND_GLOBAL.PROG_APPL_ID,
227: FND_GLOBAL.CONC_PROGRAM_ID,
228: SYSDATE );
229: COMMIT; --bug 5705668
222: X_Effective_Discount_Rate ,
223: X_CVOF_Rate,
224: X_Discount_Status_Code,
225: FND_GLOBAL.CONC_REQUEST_ID,
226: FND_GLOBAL.PROG_APPL_ID,
227: FND_GLOBAL.CONC_PROGRAM_ID,
228: SYSDATE );
229: COMMIT; --bug 5705668
230:
223: X_CVOF_Rate,
224: X_Discount_Status_Code,
225: FND_GLOBAL.CONC_REQUEST_ID,
226: FND_GLOBAL.PROG_APPL_ID,
227: FND_GLOBAL.CONC_PROGRAM_ID,
228: SYSDATE );
229: COMMIT; --bug 5705668
230:
231: X_Err_Num := 0;
308: 'SYSTEM',
309: 'EBD',
310: x_Batch_Name,
311: SYSDATE,
312: FND_GLOBAL.USER_ID,
313: FND_GLOBAL.LOGIN_ID,
314: SYSDATE,
315: FND_GLOBAL.USER_ID
316: );
309: 'EBD',
310: x_Batch_Name,
311: SYSDATE,
312: FND_GLOBAL.USER_ID,
313: FND_GLOBAL.LOGIN_ID,
314: SYSDATE,
315: FND_GLOBAL.USER_ID
316: );
317: COMMIT; --Bug 5705668
311: SYSDATE,
312: FND_GLOBAL.USER_ID,
313: FND_GLOBAL.LOGIN_ID,
314: SYSDATE,
315: FND_GLOBAL.USER_ID
316: );
317: COMMIT; --Bug 5705668
318: X_Err_Num := 0;
319: EXCEPTION
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
386: where Invoice_Id = X_Invoice_Id;
387:
388: Elsif Existing_Flag = 'Y' 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
386: where Invoice_Id = X_Invoice_Id;
387:
388: Elsif Existing_Flag = 'Y' then
389: update FV_DISCOUNTED_INVOICES
392: Effective_Discount_Percent = NULL,
393: Curr_Value_Of_Funds_Percent = NULL,
394: Discount_Status_Code = 'PAYMENT_DATE_PAST',
395: Last_Update_Date = SYSDATE,
396: Last_Updated_By = FND_GLOBAL.USER_ID,
397: Last_Update_Login = FND_GLOBAL.LOGIN_ID
398: where Invoice_Id = X_Invoice_Id;
399:
400:
393: Curr_Value_Of_Funds_Percent = NULL,
394: Discount_Status_Code = 'PAYMENT_DATE_PAST',
395: Last_Update_Date = SYSDATE,
396: Last_Updated_By = FND_GLOBAL.USER_ID,
397: Last_Update_Login = FND_GLOBAL.LOGIN_ID
398: where Invoice_Id = X_Invoice_Id;
399:
400:
401: End If;
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,
436: Last_Update_Login = FND_GLOBAL.LOGIN_ID
437: where
438: Invoice_Id = X_Invoice_Id
439: and Entry_Source = 'EBD';
432: set Checkrun_name = x_Batch_Name,
433: Entry_mode = 'SYSTEM',
434: Last_Update_Date = SYSDATE,
435: Last_Updated_By = FND_GLOBAL.USER_ID,
436: Last_Update_Login = FND_GLOBAL.LOGIN_ID
437: where
438: Invoice_Id = X_Invoice_Id
439: and Entry_Source = 'EBD';
440: