197: Program_Id,
198: Program_Update_Date)
199: VALUES(X_Invoice_Id ,
200: SYSDATE,
201: FND_GLOBAL.USER_ID,
202: FND_GLOBAL.LOGIN_ID,
203: SYSDATE ,
204: FND_GLOBAL.USER_ID,
205: X_Discount_Taken_Flag ,
198: Program_Update_Date)
199: VALUES(X_Invoice_Id ,
200: SYSDATE,
201: FND_GLOBAL.USER_ID,
202: FND_GLOBAL.LOGIN_ID,
203: SYSDATE ,
204: FND_GLOBAL.USER_ID,
205: X_Discount_Taken_Flag ,
206: X_Payment_Date ,
200: SYSDATE,
201: FND_GLOBAL.USER_ID,
202: FND_GLOBAL.LOGIN_ID,
203: SYSDATE ,
204: FND_GLOBAL.USER_ID,
205: X_Discount_Taken_Flag ,
206: X_Payment_Date ,
207: X_Effective_Discount_Rate ,
208: X_CVOF_Rate,
206: X_Payment_Date ,
207: X_Effective_Discount_Rate ,
208: X_CVOF_Rate,
209: X_Discount_Status_Code,
210: FND_GLOBAL.CONC_REQUEST_ID,
211: FND_GLOBAL.PROG_APPL_ID,
212: FND_GLOBAL.CONC_PROGRAM_ID,
213: SYSDATE );
214: COMMIT; --bug 5705668
207: X_Effective_Discount_Rate ,
208: X_CVOF_Rate,
209: X_Discount_Status_Code,
210: FND_GLOBAL.CONC_REQUEST_ID,
211: FND_GLOBAL.PROG_APPL_ID,
212: FND_GLOBAL.CONC_PROGRAM_ID,
213: SYSDATE );
214: COMMIT; --bug 5705668
215:
208: X_CVOF_Rate,
209: X_Discount_Status_Code,
210: FND_GLOBAL.CONC_REQUEST_ID,
211: FND_GLOBAL.PROG_APPL_ID,
212: FND_GLOBAL.CONC_PROGRAM_ID,
213: SYSDATE );
214: COMMIT; --bug 5705668
215:
216: X_Err_Num := 0;
293: 'SYSTEM',
294: 'EBD',
295: x_Batch_Name,
296: SYSDATE,
297: FND_GLOBAL.USER_ID,
298: FND_GLOBAL.LOGIN_ID,
299: SYSDATE,
300: FND_GLOBAL.USER_ID
301: );
294: 'EBD',
295: x_Batch_Name,
296: SYSDATE,
297: FND_GLOBAL.USER_ID,
298: FND_GLOBAL.LOGIN_ID,
299: SYSDATE,
300: FND_GLOBAL.USER_ID
301: );
302: COMMIT; --Bug 5705668
296: SYSDATE,
297: FND_GLOBAL.USER_ID,
298: FND_GLOBAL.LOGIN_ID,
299: SYSDATE,
300: FND_GLOBAL.USER_ID
301: );
302: COMMIT; --Bug 5705668
303: X_Err_Num := 0;
304: EXCEPTION
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
371: where Invoice_Id = X_Invoice_Id;
372:
373: Elsif Existing_Flag = 'Y' 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
371: where Invoice_Id = X_Invoice_Id;
372:
373: Elsif Existing_Flag = 'Y' then
374: update FV_DISCOUNTED_INVOICES
377: Effective_Discount_Percent = NULL,
378: Curr_Value_Of_Funds_Percent = NULL,
379: Discount_Status_Code = 'PAYMENT_DATE_PAST',
380: Last_Update_Date = SYSDATE,
381: Last_Updated_By = FND_GLOBAL.USER_ID,
382: Last_Update_Login = FND_GLOBAL.LOGIN_ID
383: where Invoice_Id = X_Invoice_Id;
384:
385:
378: Curr_Value_Of_Funds_Percent = NULL,
379: Discount_Status_Code = 'PAYMENT_DATE_PAST',
380: Last_Update_Date = SYSDATE,
381: Last_Updated_By = FND_GLOBAL.USER_ID,
382: Last_Update_Login = FND_GLOBAL.LOGIN_ID
383: where Invoice_Id = X_Invoice_Id;
384:
385:
386: End If;
416: update FV_ASSIGN_REASON_CODES
417: set Checkrun_name = x_Batch_Name,
418: Entry_mode = 'SYSTEM',
419: Last_Update_Date = SYSDATE,
420: Last_Updated_By = FND_GLOBAL.USER_ID,
421: Last_Update_Login = FND_GLOBAL.LOGIN_ID
422: where
423: Invoice_Id = X_Invoice_Id
424: and Entry_Source = 'EBD';
417: set Checkrun_name = x_Batch_Name,
418: Entry_mode = 'SYSTEM',
419: Last_Update_Date = SYSDATE,
420: Last_Updated_By = FND_GLOBAL.USER_ID,
421: Last_Update_Login = FND_GLOBAL.LOGIN_ID
422: where
423: Invoice_Id = X_Invoice_Id
424: and Entry_Source = 'EBD';
425: