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_SLA_PROCESSING_PKG dependencies on FND_LOG

Line 17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

13:
14: --==========================================================================
15: ----Logging Declarations
16: --==========================================================================
17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

Line 18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

14: --==========================================================================
15: ----Logging Declarations
16: --==========================================================================
17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

Line 19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

15: ----Logging Declarations
16: --==========================================================================
17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

16: --==========================================================================
17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
24: g_path_name CONSTANT VARCHAR2(40) := 'fv.plsql.fvxlaacb.fv_sla_processing_pkg';

Line 21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

17: C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
24: g_path_name CONSTANT VARCHAR2(40) := 'fv.plsql.fvxlaacb.fv_sla_processing_pkg';
25: g_log_enabled BOOLEAN := FALSE;

Line 22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

18: C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
24: g_path_name CONSTANT VARCHAR2(40) := 'fv.plsql.fvxlaacb.fv_sla_processing_pkg';
25: g_log_enabled BOOLEAN := FALSE;
26: g_adjustment_type VARCHAR2(30);

Line 23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

19: C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
21: C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
22: C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
23: g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
24: g_path_name CONSTANT VARCHAR2(40) := 'fv.plsql.fvxlaacb.fv_sla_processing_pkg';
25: g_log_enabled BOOLEAN := FALSE;
26: g_adjustment_type VARCHAR2(30);
27: --

Line 57: * --fnd_log.string(FND_LOG.LEVEL_STATEMENT,'BCPSA',p_debug);

53: * PROCEDURE DEBUG(p_debug IN VARCHAR2) IS PRAGMA AUTONOMOUS_TRANSACTION;
54: * BEGIN
55: *
56: *
57: * --fnd_log.string(FND_LOG.LEVEL_STATEMENT,'BCPSA',p_debug);
58: * INSERT INTO bcpsa_xla_temp
59: * VALUES(bcpsa_xla_temp_S.NEXTVAL,p_debug);
60: * COMMIT;
61: *

Line 82: FND_LOG.STRING(p_level,

78: IS
79:
80: BEGIN
81: IF (p_level >= g_log_level ) THEN
82: FND_LOG.STRING(p_level,
83: p_procedure_name,
84: p_debug_info);
85: END IF;
86:

Line 304: -- ================================== FND_LOG ==================================

300: l_inv_line_natseg_value NUMBER := 0;
301:
302: BEGIN
303: l_procedure_name := g_path_name || l_procedure_name;
304: -- ================================== FND_LOG ==================================
305: l_debug_info := 'Begin of procedure '||l_procedure_name;
306: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
307: -- ================================== FND_LOG ==================================
308:

Line 307: -- ================================== FND_LOG ==================================

303: l_procedure_name := g_path_name || l_procedure_name;
304: -- ================================== FND_LOG ==================================
305: l_debug_info := 'Begin of procedure '||l_procedure_name;
306: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
307: -- ================================== FND_LOG ==================================
308:
309: -- ================================== FND_LOG ==================================
310: l_debug_info := 'Event Type Information: '|| p_event_info.event_type_code ;
311: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);

Line 309: -- ================================== FND_LOG ==================================

305: l_debug_info := 'Begin of procedure '||l_procedure_name;
306: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
307: -- ================================== FND_LOG ==================================
308:
309: -- ================================== FND_LOG ==================================
310: l_debug_info := 'Event Type Information: '|| p_event_info.event_type_code ;
311: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
312: -- ================================== FND_LOG ==================================
313:

Line 312: -- ================================== FND_LOG ==================================

308:
309: -- ================================== FND_LOG ==================================
310: l_debug_info := 'Event Type Information: '|| p_event_info.event_type_code ;
311: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
312: -- ================================== FND_LOG ==================================
313:
314:
315: /* Invoice Ladder */
316: IF (p_event_info.event_type_code IN ('INV_CREATE', 'INV_UPDATE')) THEN

Line 321: -- ================================== FND_LOG ==================================

317:
318: /* Get the Customer Class Information */
319: OPEN cur_ar_inv_trx_custclass(p_event_info.event_id);
320: FETCH cur_ar_inv_trx_custclass INTO l_ar_inv_cust_class;
321: -- ================================== FND_LOG ==================================
322: l_debug_info := 'Bill to Customer Class is : ' || l_ar_inv_cust_class;
323: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
324: -- ================================== FND_LOG ==================================
325: CLOSE cur_ar_inv_trx_custclass;

Line 324: -- ================================== FND_LOG ==================================

320: FETCH cur_ar_inv_trx_custclass INTO l_ar_inv_cust_class;
321: -- ================================== FND_LOG ==================================
322: l_debug_info := 'Bill to Customer Class is : ' || l_ar_inv_cust_class;
323: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
324: -- ================================== FND_LOG ==================================
325: CLOSE cur_ar_inv_trx_custclass;
326:
327: -- ================================== FND_LOG ==================================
328: l_debug_info := 'Federal Fund Category is : ' || p_fv_extract_rec.fund_category ;

Line 327: -- ================================== FND_LOG ==================================

323: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
324: -- ================================== FND_LOG ==================================
325: CLOSE cur_ar_inv_trx_custclass;
326:
327: -- ================================== FND_LOG ==================================
328: l_debug_info := 'Federal Fund Category is : ' || p_fv_extract_rec.fund_category ;
329: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
330: -- ================================== FND_LOG ==================================
331:

Line 330: -- ================================== FND_LOG ==================================

326:
327: -- ================================== FND_LOG ==================================
328: l_debug_info := 'Federal Fund Category is : ' || p_fv_extract_rec.fund_category ;
329: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
330: -- ================================== FND_LOG ==================================
331:
332: /* Check the Customer Class Code for 'FEDERAL or 'NON-FEDERAL'
333: and Fund Category 'Reimbursable' for Distribution Revenue Account */
334: -- IF (NVL(l_ar_inv_cust_class, 'Not applicable') IN ('FEDERAL', 'NON-FEDERAL')) -- commented the condition for bug 5617346

Line 341: -- ======================================= FND_LOG =======================================

337: /* Get the Natural Account Segment for Transaction Line */
338: OPEN cur_ar_invline_natseg_value(p_fv_extract_rec.event_id,
339: p_fv_extract_rec.line_number);
340: FETCH cur_ar_invline_natseg_value INTO l_line_natseg_value;
341: -- ======================================= FND_LOG =======================================
342: l_debug_info := 'Invoice Natural Account Segment Value is : '|| l_line_natseg_value ;
343: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
344: -- ======================================= FND_LOG =======================================
345: CLOSE cur_ar_invline_natseg_value;

Line 344: -- ======================================= FND_LOG =======================================

340: FETCH cur_ar_invline_natseg_value INTO l_line_natseg_value;
341: -- ======================================= FND_LOG =======================================
342: l_debug_info := 'Invoice Natural Account Segment Value is : '|| l_line_natseg_value ;
343: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
344: -- ======================================= FND_LOG =======================================
345: CLOSE cur_ar_invline_natseg_value;
346: EXCEPTION
347: WHEN OTHERS THEN
348: IF cur_ar_invline_natseg_value%ISOPEN THEN

Line 357: -- ======================================= FND_LOG =======================================

353: RETURN FALSE;
354: END;
355: /* We need to check the Credit Account Natural Account Segments should fall in this range */
356: IF ((l_line_natseg_value BETWEEN 510000 AND 510099) OR (l_line_natseg_value BETWEEN 520000 AND 520099)) THEN
357: -- ======================================= FND_LOG =======================================
358: l_debug_info := 'Validated the Line Condition';
359: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
360: -- ======================================= FND_LOG =======================================
361: RETURN TRUE;

Line 360: -- ======================================= FND_LOG =======================================

356: IF ((l_line_natseg_value BETWEEN 510000 AND 510099) OR (l_line_natseg_value BETWEEN 520000 AND 520099)) THEN
357: -- ======================================= FND_LOG =======================================
358: l_debug_info := 'Validated the Line Condition';
359: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
360: -- ======================================= FND_LOG =======================================
361: RETURN TRUE;
362: END IF;
363: END IF;
364: -- Return False if none matches the criteria

Line 375: -- ================================== FND_LOG ==================================

371: -- Get the Natural Account Segment
372: OPEN cur_ar_rct_natseg_value(p_fv_extract_rec.event_id,
373: p_fv_extract_rec.line_number);
374: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
375: -- ================================== FND_LOG ==================================
376: l_debug_info := 'REC Line Natural Segment: ' || l_line_natseg_value;
377: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
378: -- ================================== FND_LOG ==================================
379: CLOSE cur_ar_rct_natseg_value;

Line 378: -- ================================== FND_LOG ==================================

374: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
375: -- ================================== FND_LOG ==================================
376: l_debug_info := 'REC Line Natural Segment: ' || l_line_natseg_value;
377: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
378: -- ================================== FND_LOG ==================================
379: CLOSE cur_ar_rct_natseg_value;
380: EXCEPTION
381: WHEN OTHERS THEN
382: IF cur_ar_rct_natseg_value%ISOPEN THEN

Line 395: -- ================================== FND_LOG ==================================

391: -- Get the Natural Account Segment of Invoice
392: OPEN cur_ar_invline_natseg_value(p_fv_extract_rec.event_id,
393: p_fv_extract_rec.line_number);
394: FETCH cur_ar_invline_natseg_value INTO l_inv_line_natseg_value;
395: -- ================================== FND_LOG ==================================
396: l_debug_info := 'REC Line Natural Segment of Invoice: ' || l_inv_line_natseg_value;
397: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
398: -- ================================== FND_LOG ==================================
399: CLOSE cur_ar_invline_natseg_value;

Line 398: -- ================================== FND_LOG ==================================

394: FETCH cur_ar_invline_natseg_value INTO l_inv_line_natseg_value;
395: -- ================================== FND_LOG ==================================
396: l_debug_info := 'REC Line Natural Segment of Invoice: ' || l_inv_line_natseg_value;
397: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
398: -- ================================== FND_LOG ==================================
399: CLOSE cur_ar_invline_natseg_value;
400: EXCEPTION
401: WHEN OTHERS THEN
402: IF cur_ar_invline_natseg_value%ISOPEN THEN

Line 413: -- ================================== FND_LOG ==================================

409:
410: /* We need to check the Credit Receivable Account Natural Account
411: segments should fall in this range */
412: IF ((l_inv_line_natseg_value BETWEEN 141000 AND 141099) OR (l_inv_line_natseg_value BETWEEN 145000 AND 145099)) THEN
413: -- ================================== FND_LOG ==================================
414: l_debug_info := 'REV Line of Invoice Validated: Y and it could be for Refund of Advances or Prepayments';
415: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
416: -- ================================== FND_LOG ==================================
417: p_fv_extract_rec.account_rule := 'Advance Refund';

Line 416: -- ================================== FND_LOG ==================================

412: IF ((l_inv_line_natseg_value BETWEEN 141000 AND 141099) OR (l_inv_line_natseg_value BETWEEN 145000 AND 145099)) THEN
413: -- ================================== FND_LOG ==================================
414: l_debug_info := 'REV Line of Invoice Validated: Y and it could be for Refund of Advances or Prepayments';
415: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
416: -- ================================== FND_LOG ==================================
417: p_fv_extract_rec.account_rule := 'Advance Refund';
418: RETURN TRUE;
419: ELSIF ((l_line_natseg_value BETWEEN 141000 AND 141099) OR (l_line_natseg_value BETWEEN 145000 AND 145099)) THEN
420: -- ================================== FND_LOG ==================================

Line 420: -- ================================== FND_LOG ==================================

416: -- ================================== FND_LOG ==================================
417: p_fv_extract_rec.account_rule := 'Advance Refund';
418: RETURN TRUE;
419: ELSIF ((l_line_natseg_value BETWEEN 141000 AND 141099) OR (l_line_natseg_value BETWEEN 145000 AND 145099)) THEN
420: -- ================================== FND_LOG ==================================
421: l_debug_info := 'REC Line Validated: Y and it could be for Refund of Advances or Prepayments';
422: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
423: -- ================================== FND_LOG ==================================
424: p_fv_extract_rec.account_rule := 'Advance Refund';

Line 423: -- ================================== FND_LOG ==================================

419: ELSIF ((l_line_natseg_value BETWEEN 141000 AND 141099) OR (l_line_natseg_value BETWEEN 145000 AND 145099)) THEN
420: -- ================================== FND_LOG ==================================
421: l_debug_info := 'REC Line Validated: Y and it could be for Refund of Advances or Prepayments';
422: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
423: -- ================================== FND_LOG ==================================
424: p_fv_extract_rec.account_rule := 'Advance Refund';
425: RETURN TRUE;
426: /* This condition is satisfied for Receipt for 'Reimbursable Order without Advances'
427: and 'Refunds of Overpayments', assigning it to 'Overpayment Refund' as default value

Line 431: -- ================================== FND_LOG ==================================

427: and 'Refunds of Overpayments', assigning it to 'Overpayment Refund' as default value
428: We will change this based on other conditions later in the code */
429:
430: ELSIF (l_line_natseg_value BETWEEN 131000 AND 131099) THEN
431: -- ================================== FND_LOG ==================================
432: l_debug_info := 'REC Line Validated: Y and ' || ' it could be for Refund of Overpayments or '
433: || 'Reimbursable Order without Advances';
434: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
435: -- ================================== FND_LOG ==================================

Line 435: -- ================================== FND_LOG ==================================

431: -- ================================== FND_LOG ==================================
432: l_debug_info := 'REC Line Validated: Y and ' || ' it could be for Refund of Overpayments or '
433: || 'Reimbursable Order without Advances';
434: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
435: -- ================================== FND_LOG ==================================
436: p_fv_extract_rec.account_rule := 'Overpayment Refund';
437: p_fv_extract_rec.receivable_with_advance := 'N';
438: RETURN TRUE;
439: ELSIF (l_line_natseg_value BETWEEN 231000 AND 231099) THEN

Line 440: -- ================================== FND_LOG ==================================

436: p_fv_extract_rec.account_rule := 'Overpayment Refund';
437: p_fv_extract_rec.receivable_with_advance := 'N';
438: RETURN TRUE;
439: ELSIF (l_line_natseg_value BETWEEN 231000 AND 231099) THEN
440: -- ================================== FND_LOG ==================================
441: l_debug_info := 'REC Line Validated: Y and ' || ' it could be for '
442: || 'Reimbursable Order with Advances';
443: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
444: -- ================================== FND_LOG ==================================

Line 444: -- ================================== FND_LOG ==================================

440: -- ================================== FND_LOG ==================================
441: l_debug_info := 'REC Line Validated: Y and ' || ' it could be for '
442: || 'Reimbursable Order with Advances';
443: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
444: -- ================================== FND_LOG ==================================
445: p_fv_extract_rec.account_rule := 'Receivable With Advance';
446: p_fv_extract_rec.receivable_with_advance := 'Y';
447: RETURN TRUE;
448: ELSE

Line 464: -- ================================== FND_LOG ==================================

460: /* Check the Distribution Type */
461: OPEN cur_ar_rct_dist_type (p_fv_extract_rec.event_id,
462: p_fv_extract_rec.line_number);
463: FETCH cur_ar_rct_dist_type INTO l_ar_rct_dist_type;
464: -- ================================== FND_LOG ==================================
465: l_debug_info := 'Miscellaneous Receipt Distribution Type is: '|| l_ar_rct_dist_type ;
466: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
467: -- ================================== FND_LOG ==================================
468: CLOSE cur_ar_rct_dist_type;

Line 467: -- ================================== FND_LOG ==================================

463: FETCH cur_ar_rct_dist_type INTO l_ar_rct_dist_type;
464: -- ================================== FND_LOG ==================================
465: l_debug_info := 'Miscellaneous Receipt Distribution Type is: '|| l_ar_rct_dist_type ;
466: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
467: -- ================================== FND_LOG ==================================
468: CLOSE cur_ar_rct_dist_type;
469:
470: -- It's a Credit Line for Miscellaneous Receipt
471: IF (l_ar_rct_dist_type = 'MISCCASH') THEN

Line 480: -- ================================== FND_LOG ==================================

476: ((p_fv_extract_rec.fund_expired_status = 'Unexpired') AND (p_fv_extract_rec.prior_year_flag = 'Y')
477: AND (p_fv_extract_rec.fund_time_frame IN ('MULTIPLE', 'NO_YEAR'))) OR
478: ((p_fv_extract_rec.fund_expired_status = 'Expired') AND (p_fv_extract_rec.prior_year_flag = 'Y')
479: AND (p_fv_extract_rec.fund_time_frame IN ('SINGLE', 'MULTIPLE', 'NO_YEAR')))) THEN
480: -- ================================== FND_LOG ==================================
481: l_debug_info := 'Misc Receipt is for Refund of Overpayments';
482: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
483: -- ================================== FND_LOG ==================================
484: BEGIN

Line 483: -- ================================== FND_LOG ==================================

479: AND (p_fv_extract_rec.fund_time_frame IN ('SINGLE', 'MULTIPLE', 'NO_YEAR')))) THEN
480: -- ================================== FND_LOG ==================================
481: l_debug_info := 'Misc Receipt is for Refund of Overpayments';
482: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
483: -- ================================== FND_LOG ==================================
484: BEGIN
485: -- Get the Natural Account Segment
486: OPEN cur_ar_rct_natseg_value(p_fv_extract_rec.event_id,
487: p_fv_extract_rec.line_number);

Line 489: -- ================================== FND_LOG ==================================

485: -- Get the Natural Account Segment
486: OPEN cur_ar_rct_natseg_value(p_fv_extract_rec.event_id,
487: p_fv_extract_rec.line_number);
488: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
489: -- ================================== FND_LOG ==================================
490: l_debug_info := 'Misc Receipt Natural Account Segment is: ' ||l_line_natseg_value ;
491: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
492: -- ================================== FND_LOG ==================================
493: CLOSE cur_ar_rct_natseg_value;

Line 492: -- ================================== FND_LOG ==================================

488: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
489: -- ================================== FND_LOG ==================================
490: l_debug_info := 'Misc Receipt Natural Account Segment is: ' ||l_line_natseg_value ;
491: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
492: -- ================================== FND_LOG ==================================
493: CLOSE cur_ar_rct_natseg_value;
494: EXCEPTION
495: WHEN OTHERS THEN
496: IF cur_ar_rct_natseg_value%ISOPEN THEN

Line 499: -- ================================== FND_LOG ==================================

495: WHEN OTHERS THEN
496: IF cur_ar_rct_natseg_value%ISOPEN THEN
497: CLOSE cur_ar_rct_natseg_value;
498: END IF;
499: -- ================================== FND_LOG ==================================
500: l_debug_info := 'SQL Error encountered' ||SQLERRM ;
501: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
502: -- ================================== FND_LOG ==================================
503: RETURN FALSE;

Line 502: -- ================================== FND_LOG ==================================

498: END IF;
499: -- ================================== FND_LOG ==================================
500: l_debug_info := 'SQL Error encountered' ||SQLERRM ;
501: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
502: -- ================================== FND_LOG ==================================
503: RETURN FALSE;
504: END;
505: /* We need to check the Credit Account Natural Account segments should fall in this range */
506: IF (

Line 519: -- ================================== FND_LOG ==================================

515: (l_line_natseg_value BETWEEN 184000 AND 184099) OR (l_line_natseg_value BETWEEN 189000 AND 189099) OR
516: (l_line_natseg_value BETWEEN 199000 AND 199099) OR (l_line_natseg_value BETWEEN 610000 AND 610099) OR
517: (l_line_natseg_value BETWEEN 650000 AND 650099) OR (l_line_natseg_value BETWEEN 690000 AND 690099)
518: ) THEN
519: -- ================================== FND_LOG ==================================
520: l_debug_info := 'Misc Receipt for Refund Overpayments CASH Line Validated ';
521: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
522: -- ================================== FND_LOG ==================================
523: RETURN TRUE;

Line 522: -- ================================== FND_LOG ==================================

518: ) THEN
519: -- ================================== FND_LOG ==================================
520: l_debug_info := 'Misc Receipt for Refund Overpayments CASH Line Validated ';
521: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
522: -- ================================== FND_LOG ==================================
523: RETURN TRUE;
524: END IF;
525: -- Check Misc Receipt for Reimbursable Order without Advance */
526: ELSIF (p_fv_extract_rec.fund_category IN ('R', 'S', 'T')) THEN

Line 532: -- ================================== FND_LOG ==================================

528: -- Get the Natural Account Segment
529: OPEN cur_ar_rct_natseg_value(p_fv_extract_rec.event_id,
530: p_fv_extract_rec.line_number);
531: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
532: -- ================================== FND_LOG ==================================
533: l_debug_info := 'Miscellaneous Receipt Natural Account Segment is: '|| l_line_natseg_value ;
534: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
535: -- ================================== FND_LOG ==================================
536: CLOSE cur_ar_rct_natseg_value;

Line 535: -- ================================== FND_LOG ==================================

531: FETCH cur_ar_rct_natseg_value INTO l_line_natseg_value;
532: -- ================================== FND_LOG ==================================
533: l_debug_info := 'Miscellaneous Receipt Natural Account Segment is: '|| l_line_natseg_value ;
534: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
535: -- ================================== FND_LOG ==================================
536: CLOSE cur_ar_rct_natseg_value;
537: EXCEPTION
538: WHEN OTHERS THEN
539: IF cur_ar_rct_natseg_value%ISOPEN THEN

Line 549: -- ================================== FND_LOG ==================================

545: END;
546: /* We need to check the Credit Account Natural Account
547: segments should fall in this range */
548: IF ((l_line_natseg_value BETWEEN 510000 AND 510099) OR (l_line_natseg_value BETWEEN 520000 AND 520099)) THEN
549: -- ================================== FND_LOG ==================================
550: l_debug_info := 'Misc Receipt MISCCASH Distribution validated for Reimbursable Order without Advance' ;
551: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
552: -- ================================== FND_LOG ==================================
553: RETURN TRUE;

Line 552: -- ================================== FND_LOG ==================================

548: IF ((l_line_natseg_value BETWEEN 510000 AND 510099) OR (l_line_natseg_value BETWEEN 520000 AND 520099)) THEN
549: -- ================================== FND_LOG ==================================
550: l_debug_info := 'Misc Receipt MISCCASH Distribution validated for Reimbursable Order without Advance' ;
551: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
552: -- ================================== FND_LOG ==================================
553: RETURN TRUE;
554: END IF;
555: END IF;
556: END IF;

Line 565: -- ================================== FND_LOG ==================================

561: END IF;
562: -- Return False if none matches the criteria
563: RETURN FALSE;
564:
565: -- ================================== FND_LOG ==================================
566: l_debug_info := 'End of procedure'||l_procedure_name;
567: trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
568: -- ================================== FND_LOG ==================================
569:

Line 568: -- ================================== FND_LOG ==================================

564:
565: -- ================================== FND_LOG ==================================
566: l_debug_info := 'End of procedure'||l_procedure_name;
567: trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
568: -- ================================== FND_LOG ==================================
569:
570:
571: EXCEPTION
572: WHEN OTHERS THEN

Line 1385: -- ================================== FND_LOG ==================================

1381: g_adjustment_type := Null;
1382: -- Determine the prior year transaction
1383: OPEN c_get_bfy_segment;
1384: FETCH c_get_bfy_segment INTO l_bfy_segment;
1385: -- ================================== FND_LOG ==================================
1386: l_debug_info := 'BFY Segment column name: '|| l_bfy_segment.application_column_name ||
1387: ', BFY Segment column ID: ' || l_bfy_segment.fyr_segment_id;
1388: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1389: -- ================================== FND_LOG ==================================

Line 1389: -- ================================== FND_LOG ==================================

1385: -- ================================== FND_LOG ==================================
1386: l_debug_info := 'BFY Segment column name: '|| l_bfy_segment.application_column_name ||
1387: ', BFY Segment column ID: ' || l_bfy_segment.fyr_segment_id;
1388: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1389: -- ================================== FND_LOG ==================================
1390: IF c_get_bfy_segment%NOTFOUND THEN
1391: RAISE NO_DATA_FOUND;
1392: END IF;
1393: CLOSE c_get_bfy_segment;

Line 1401: -- ================================== FND_LOG ==================================

1397: EXECUTE IMMEDIATE 'SELECT ' || l_bfy_segment.application_column_name ||
1398: ' FROM gl_code_combinations WHERE code_combination_id = :x_ccid' ||
1399: ' AND chart_of_accounts_id = :x_coaid '
1400: INTO l_bfy_segment_value USING p_ccid, p_coa_id;
1401: -- ================================== FND_LOG ==================================
1402: l_debug_info := 'BFY Segment value from gl_code_combinations table: '|| l_bfy_segment_value;
1403: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1404: -- ================================== FND_LOG ==================================
1405: -- DEBUG('Fiscal year segment value '||l_bfy_segment_value);

Line 1404: -- ================================== FND_LOG ==================================

1400: INTO l_bfy_segment_value USING p_ccid, p_coa_id;
1401: -- ================================== FND_LOG ==================================
1402: l_debug_info := 'BFY Segment value from gl_code_combinations table: '|| l_bfy_segment_value;
1403: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1404: -- ================================== FND_LOG ==================================
1405: -- DEBUG('Fiscal year segment value '||l_bfy_segment_value);
1406:
1407: OPEN c_get_bfy_value (l_bfy_segment.fyr_segment_id ,
1408: l_bfy_segment_value);

Line 1410: -- ================================== FND_LOG ==================================

1406:
1407: OPEN c_get_bfy_value (l_bfy_segment.fyr_segment_id ,
1408: l_bfy_segment_value);
1409: FETCH c_get_bfy_value INTO l_bfy_value;
1410: -- ================================== FND_LOG ==================================
1411: l_debug_info := 'BFY period year: '|| l_bfy_value.period_year;
1412: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1413: -- ================================== FND_LOG ==================================
1414: IF c_get_bfy_value%NOTFOUND THEN

Line 1413: -- ================================== FND_LOG ==================================

1409: FETCH c_get_bfy_value INTO l_bfy_value;
1410: -- ================================== FND_LOG ==================================
1411: l_debug_info := 'BFY period year: '|| l_bfy_value.period_year;
1412: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1413: -- ================================== FND_LOG ==================================
1414: IF c_get_bfy_value%NOTFOUND THEN
1415: RAISE NO_DATA_FOUND;
1416: END IF;
1417: CLOSE c_get_bfy_value;

Line 1422: -- ================================== FND_LOG ==================================

1418:
1419: -- get the fiscal year for the GL_DATE of the transction
1420: OPEN c_get_gl_fiscal_year;
1421: FETCH c_get_gl_fiscal_year INTO l_transaction_year;
1422: -- ================================== FND_LOG ==================================
1423: l_debug_info := 'Fiscal year: '|| l_transaction_year.period_year ;
1424: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1425: -- ================================== FND_LOG ==================================
1426: IF c_get_gl_fiscal_year%NOTFOUND THEN

Line 1425: -- ================================== FND_LOG ==================================

1421: FETCH c_get_gl_fiscal_year INTO l_transaction_year;
1422: -- ================================== FND_LOG ==================================
1423: l_debug_info := 'Fiscal year: '|| l_transaction_year.period_year ;
1424: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
1425: -- ================================== FND_LOG ==================================
1426: IF c_get_gl_fiscal_year%NOTFOUND THEN
1427: RAISE NO_DATA_FOUND;
1428: END IF;
1429: CLOSE c_get_gl_fiscal_year;

Line 2107: -- ================================== FND_LOG ==================================

2103: -- check if any req transactions are to be included
2104: FORALL l_Index IN l_fv_extract_detail.first..l_fv_extract_detail.last
2105: INSERT INTO FV_EXTRACT_DETAIL_GT VALUES l_fv_extract_detail(l_index);
2106:
2107: -- ================================== FND_LOG ==================================
2108: l_debug_info := 'No of rows inserted into FV_EXTRACT_DETAIL_GT: '|| SQL%ROWCOUNT;
2109: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
2110: -- ================================== FND_LOG ==================================
2111:

Line 2110: -- ================================== FND_LOG ==================================

2106:
2107: -- ================================== FND_LOG ==================================
2108: l_debug_info := 'No of rows inserted into FV_EXTRACT_DETAIL_GT: '|| SQL%ROWCOUNT;
2109: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
2110: -- ================================== FND_LOG ==================================
2111:
2112: l_index := 0;
2113:
2114: -------------------------------------------------------------------------

Line 3078: -- ================================== FND_LOG ==================================

3074: BEGIN
3075:
3076: l_procedure_name := g_path_name || l_procedure_name;
3077:
3078: -- ================================== FND_LOG ==================================
3079: l_debug_info := 'Begin of procedure '||l_procedure_name;
3080: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3081: -- ================================== FND_LOG ==================================
3082:

Line 3081: -- ================================== FND_LOG ==================================

3077:
3078: -- ================================== FND_LOG ==================================
3079: l_debug_info := 'Begin of procedure '||l_procedure_name;
3080: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3081: -- ================================== FND_LOG ==================================
3082:
3083: /* Validate the application ID */
3084: IF (p_application_id <> 222) THEN
3085: RETURN;

Line 3087: -- ================================== FND_LOG ==================================

3083: /* Validate the application ID */
3084: IF (p_application_id <> 222) THEN
3085: RETURN;
3086: END IF;
3087: -- ================================== FND_LOG ==================================
3088: l_debug_info := 'Accounting Mode: ' || p_accounting_mode ;
3089: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3090: -- ================================== FND_LOG ==================================
3091:

Line 3090: -- ================================== FND_LOG ==================================

3086: END IF;
3087: -- ================================== FND_LOG ==================================
3088: l_debug_info := 'Accounting Mode: ' || p_accounting_mode ;
3089: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3090: -- ================================== FND_LOG ==================================
3091:
3092: /* Validate the accounting mode */
3093: IF (p_accounting_mode NOT IN ('D', 'F')) THEN
3094: RETURN;

Line 3097: -- ================================== FND_LOG ==================================

3093: IF (p_accounting_mode NOT IN ('D', 'F')) THEN
3094: RETURN;
3095: END IF;
3096:
3097: -- ================================== FND_LOG ==================================
3098: l_debug_info := 'After validating Application ID: ' || p_application_id ||
3099: ' and Accounting Mode: '|| p_accounting_mode ;
3100: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3101: -- ================================== FND_LOG ==================================

Line 3101: -- ================================== FND_LOG ==================================

3097: -- ================================== FND_LOG ==================================
3098: l_debug_info := 'After validating Application ID: ' || p_application_id ||
3099: ' and Accounting Mode: '|| p_accounting_mode ;
3100: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3101: -- ================================== FND_LOG ==================================
3102:
3103: /* Get the Event Information of the transaction */
3104: OPEN cur_ar_event_info;
3105: FETCH cur_ar_event_info INTO l_ar_event_info;

Line 3106: -- ================================== FND_LOG ==================================

3102:
3103: /* Get the Event Information of the transaction */
3104: OPEN cur_ar_event_info;
3105: FETCH cur_ar_event_info INTO l_ar_event_info;
3106: -- ================================== FND_LOG ==================================
3107: l_debug_info := 'AR Event Information - Event ID: '|| l_ar_event_info.event_id;
3108: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3109: -- ================================== FND_LOG ==================================
3110: CLOSE cur_ar_event_info;

Line 3109: -- ================================== FND_LOG ==================================

3105: FETCH cur_ar_event_info INTO l_ar_event_info;
3106: -- ================================== FND_LOG ==================================
3107: l_debug_info := 'AR Event Information - Event ID: '|| l_ar_event_info.event_id;
3108: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3109: -- ================================== FND_LOG ==================================
3110: CLOSE cur_ar_event_info;
3111:
3112: /* Get the ledger_id */
3113: OPEN cur_ledger_info(l_ar_event_info.event_id);

Line 3115: -- ================================== FND_LOG ==================================

3111:
3112: /* Get the ledger_id */
3113: OPEN cur_ledger_info(l_ar_event_info.event_id);
3114: FETCH cur_ledger_info INTO l_ledger_info;
3115: -- ================================== FND_LOG ==================================
3116: l_debug_info := 'Ledger Information - Ledger ID: ' ||l_ledger_info.ledger_id || ' and COA ID: '|| l_ledger_info.coa_id;
3117: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3118: -- ================================== FND_LOG ==================================
3119: CLOSE cur_ledger_info;

Line 3118: -- ================================== FND_LOG ==================================

3114: FETCH cur_ledger_info INTO l_ledger_info;
3115: -- ================================== FND_LOG ==================================
3116: l_debug_info := 'Ledger Information - Ledger ID: ' ||l_ledger_info.ledger_id || ' and COA ID: '|| l_ledger_info.coa_id;
3117: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3118: -- ================================== FND_LOG ==================================
3119: CLOSE cur_ledger_info;
3120:
3121: /* Open the cursor for checking event type code and process accordingly */
3122: OPEN cur_ar_event_type;

Line 3124: -- ================================== FND_LOG ==================================

3120:
3121: /* Open the cursor for checking event type code and process accordingly */
3122: OPEN cur_ar_event_type;
3123: FETCH cur_ar_event_type INTO l_ar_event_type;
3124: -- ================================== FND_LOG ==================================
3125: l_debug_info := 'AR Event Type is: ' || l_ar_event_type ;
3126: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3127: -- ================================== FND_LOG ==================================
3128: CLOSE cur_ar_event_type;

Line 3127: -- ================================== FND_LOG ==================================

3123: FETCH cur_ar_event_type INTO l_ar_event_type;
3124: -- ================================== FND_LOG ==================================
3125: l_debug_info := 'AR Event Type is: ' || l_ar_event_type ;
3126: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3127: -- ================================== FND_LOG ==================================
3128: CLOSE cur_ar_event_type;
3129:
3130:
3131:

Line 3148: -- ================================== FND_LOG ==================================

3144:
3145: /* Process Invoice Events */
3146: IF (l_ar_event_type IN ('INV_CREATE', 'INV_UPDATE')) THEN
3147:
3148: -- ================================== FND_LOG ==================================
3149: l_debug_info := 'Inside Invoice Event type';
3150: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3151: -- ================================== FND_LOG ==================================
3152:

Line 3151: -- ================================== FND_LOG ==================================

3147:
3148: -- ================================== FND_LOG ==================================
3149: l_debug_info := 'Inside Invoice Event type';
3150: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3151: -- ================================== FND_LOG ==================================
3152:
3153: /* Initialize index */
3154: l_index := 0;
3155:

Line 3161: -- ================================== FND_LOG ==================================

3157: FOR l_ar_inv_extract_details IN cur_ar_inv_extract_details
3158: LOOP
3159: /* Process Revenue Lines Only */
3160: IF (l_ar_inv_extract_details.TRX_LINE_DIST_ACCOUNT_CLASS = 'REV') THEN
3161: -- ================================== FND_LOG ==================================
3162: l_debug_info := 'Processing Invoice REV LINE...';
3163: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3164: -- ================================== FND_LOG ==================================
3165:

Line 3164: -- ================================== FND_LOG ==================================

3160: IF (l_ar_inv_extract_details.TRX_LINE_DIST_ACCOUNT_CLASS = 'REV') THEN
3161: -- ================================== FND_LOG ==================================
3162: l_debug_info := 'Processing Invoice REV LINE...';
3163: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3164: -- ================================== FND_LOG ==================================
3165:
3166: /* Get the Fund Value */
3167: OPEN cur_ar_inv_balseg_value (l_ar_inv_extract_details.event_id
3168: ,l_ar_inv_extract_details.line_number

Line 3171: -- ================================== FND_LOG ==================================

3167: OPEN cur_ar_inv_balseg_value (l_ar_inv_extract_details.event_id
3168: ,l_ar_inv_extract_details.line_number
3169: );
3170: FETCH cur_ar_inv_balseg_value INTO l_fund_value;
3171: -- ================================== FND_LOG ==================================
3172: l_debug_info := 'Fund Value : ' || l_fund_value ;
3173: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3174: -- ================================== FND_LOG ==================================
3175: CLOSE cur_ar_inv_balseg_value;

Line 3174: -- ================================== FND_LOG ==================================

3170: FETCH cur_ar_inv_balseg_value INTO l_fund_value;
3171: -- ================================== FND_LOG ==================================
3172: l_debug_info := 'Fund Value : ' || l_fund_value ;
3173: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3174: -- ================================== FND_LOG ==================================
3175: CLOSE cur_ar_inv_balseg_value;
3176:
3177: /* Get the Fund Information */
3178: get_fund_details (p_application_id,

Line 3202: -- ================================== FND_LOG ==================================

3198: ELSE
3199: l_account_valid_flag := 'N';
3200: END IF;
3201:
3202: -- ================================== FND_LOG ==================================
3203: l_debug_info := 'Fund Category: ' || l_fund_category;
3204: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3205: l_debug_info := 'Account Valid Status: ' || l_account_valid_flag;
3206: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3207: -- ================================== FND_LOG ==================================

3203: l_debug_info := 'Fund Category: ' || l_fund_category;
3204: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3205: l_debug_info := 'Account Valid Status: ' || l_account_valid_flag;
3206: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3207: -- ================================== FND_LOG ==================================
3208:
3209: IF NOT(l_acct_valid) THEN
3210: -- ================================== FND_LOG ==================================
3211: l_debug_info := 'REV account line is not valid';

Line 3210: -- ================================== FND_LOG ==================================

3206: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3207: -- ================================== FND_LOG ==================================
3208:
3209: IF NOT(l_acct_valid) THEN
3210: -- ================================== FND_LOG ==================================
3211: l_debug_info := 'REV account line is not valid';
3212: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3213: -- ================================== FND_LOG ==================================
3214:

Line 3213: -- ================================== FND_LOG ==================================

3209: IF NOT(l_acct_valid) THEN
3210: -- ================================== FND_LOG ==================================
3211: l_debug_info := 'REV account line is not valid';
3212: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3213: -- ================================== FND_LOG ==================================
3214:
3215: -- Reset the account Valid Flag to 'N'
3216: l_account_valid_flag := 'N';
3217:

Line 3220: -- ================================== FND_LOG ==================================

3216: l_account_valid_flag := 'N';
3217:
3218: l_overall_acct_valid := FALSE;
3219:
3220: -- ================================== FND_LOG ==================================
3221: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3222: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3223: -- ================================== FND_LOG ==================================
3224:

Line 3223: -- ================================== FND_LOG ==================================

3219:
3220: -- ================================== FND_LOG ==================================
3221: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3222: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3223: -- ================================== FND_LOG ==================================
3224:
3225: -- Exit out of the Loop because REV line is NOT valid
3226: EXIT;
3227: END IF;

Line 3241: -- ================================== FND_LOG ==================================

3237: l_index := l_index + 1;
3238:
3239: /* Check for Default Receivables Account Line */
3240: ELSIF (l_ar_inv_extract_details.TRX_LINE_DIST_ACCOUNT_CLASS = 'REC') THEN
3241: -- ================================== FND_LOG ==================================
3242: l_debug_info := 'Processing Invoice DEF REC LINE...';
3243: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3244: -- ================================== FND_LOG ==================================
3245:

Line 3244: -- ================================== FND_LOG ==================================

3240: ELSIF (l_ar_inv_extract_details.TRX_LINE_DIST_ACCOUNT_CLASS = 'REC') THEN
3241: -- ================================== FND_LOG ==================================
3242: l_debug_info := 'Processing Invoice DEF REC LINE...';
3243: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3244: -- ================================== FND_LOG ==================================
3245:
3246: /* We need to check the Invoice Header Default Receivables Account Natural Account Segment
3247: then decide about the overall account valid flag for the distributions */
3248:

Line 3252: -- ================================== FND_LOG ==================================

3248:
3249: -- Get the Balancing Account Segment
3250: OPEN cur_ar_inv_head_balseg_value (l_ar_event_info.event_id);
3251: FETCH cur_ar_inv_head_balseg_value INTO l_head_fund_value;
3252: -- ================================== FND_LOG ==================================
3253: l_debug_info := 'Invoice Receivables Acct Fund Value: ' ||l_head_fund_value|| ' No of Rows: ' || cur_ar_inv_head_balseg_value%ROWCOUNT;
3254: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3255: -- ================================== FND_LOG ==================================
3256: CLOSE cur_ar_inv_head_balseg_value;

Line 3255: -- ================================== FND_LOG ==================================

3251: FETCH cur_ar_inv_head_balseg_value INTO l_head_fund_value;
3252: -- ================================== FND_LOG ==================================
3253: l_debug_info := 'Invoice Receivables Acct Fund Value: ' ||l_head_fund_value|| ' No of Rows: ' || cur_ar_inv_head_balseg_value%ROWCOUNT;
3254: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3255: -- ================================== FND_LOG ==================================
3256: CLOSE cur_ar_inv_head_balseg_value;
3257:
3258: -- Get the fund Category
3259: OPEN cur_ar_get_fund_catg (l_ledger_info.ledger_id,l_head_fund_value);

Line 3261: -- ================================== FND_LOG ==================================

3257:
3258: -- Get the fund Category
3259: OPEN cur_ar_get_fund_catg (l_ledger_info.ledger_id,l_head_fund_value);
3260: FETCH cur_ar_get_fund_catg INTO l_head_fund_category;
3261: -- ================================== FND_LOG ==================================
3262: l_debug_info := 'Invoice Receivables Acct Fund Category Value: ' ||l_head_fund_category;
3263: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3264: -- ================================== FND_LOG ==================================
3265: CLOSE cur_ar_get_fund_catg;

Line 3264: -- ================================== FND_LOG ==================================

3260: FETCH cur_ar_get_fund_catg INTO l_head_fund_category;
3261: -- ================================== FND_LOG ==================================
3262: l_debug_info := 'Invoice Receivables Acct Fund Category Value: ' ||l_head_fund_category;
3263: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3264: -- ================================== FND_LOG ==================================
3265: CLOSE cur_ar_get_fund_catg;
3266:
3267:
3268: BEGIN

Line 3272: -- ================================== FND_LOG ==================================

3268: BEGIN
3269: -- Get the Natural Account Segment of the Default Receivables Account
3270: OPEN cur_ar_invhead_natseg_value (l_ar_event_info.event_id);
3271: FETCH cur_ar_invhead_natseg_value INTO l_header_natseg_value;
3272: -- ================================== FND_LOG ==================================
3273: l_debug_info := 'Invoice Receivables Natural Account Segment Value: ' ||l_header_natseg_value;
3274: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3275: -- ================================== FND_LOG ==================================
3276: CLOSE cur_ar_invhead_natseg_value;

Line 3275: -- ================================== FND_LOG ==================================

3271: FETCH cur_ar_invhead_natseg_value INTO l_header_natseg_value;
3272: -- ================================== FND_LOG ==================================
3273: l_debug_info := 'Invoice Receivables Natural Account Segment Value: ' ||l_header_natseg_value;
3274: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3275: -- ================================== FND_LOG ==================================
3276: CLOSE cur_ar_invhead_natseg_value;
3277:
3278: -- ================================== FND_LOG ==================================
3279: l_debug_info := 'Validated the Invoice Receivables Natural Account Segment';

Line 3278: -- ================================== FND_LOG ==================================

3274: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3275: -- ================================== FND_LOG ==================================
3276: CLOSE cur_ar_invhead_natseg_value;
3277:
3278: -- ================================== FND_LOG ==================================
3279: l_debug_info := 'Validated the Invoice Receivables Natural Account Segment';
3280: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3281: -- ================================== FND_LOG ==================================
3282:

Line 3281: -- ================================== FND_LOG ==================================

3277:
3278: -- ================================== FND_LOG ==================================
3279: l_debug_info := 'Validated the Invoice Receivables Natural Account Segment';
3280: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3281: -- ================================== FND_LOG ==================================
3282:
3283: IF (l_header_natseg_value BETWEEN 131000 AND 131099) THEN
3284: l_acct_head_valid := TRUE;
3285: l_receivable_with_advance := 'N';

Line 3298: -- ================================== FND_LOG ==================================

3294: WHEN OTHERS THEN
3295: IF cur_ar_invhead_natseg_value%ISOPEN THEN
3296: CLOSE cur_ar_invhead_natseg_value;
3297: END IF;
3298: -- ================================== FND_LOG ==================================
3299: l_debug_info := 'SQL Error encountered' || SQLERRM;
3300: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3301: -- ================================== FND_LOG ==================================
3302: l_acct_head_valid := FALSE;

Line 3301: -- ================================== FND_LOG ==================================

3297: END IF;
3298: -- ================================== FND_LOG ==================================
3299: l_debug_info := 'SQL Error encountered' || SQLERRM;
3300: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3301: -- ================================== FND_LOG ==================================
3302: l_acct_head_valid := FALSE;
3303: END;
3304:
3305: IF (l_acct_head_valid) THEN

Line 3306: -- ================================== FND_LOG ==================================

3302: l_acct_head_valid := FALSE;
3303: END;
3304:
3305: IF (l_acct_head_valid) THEN
3306: -- ================================== FND_LOG ==================================
3307: l_debug_info := 'Invoice Def Receivables Acct Line Valid: Y';
3308: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3309: -- ================================== FND_LOG ==================================
3310: ELSE

Line 3309: -- ================================== FND_LOG ==================================

3305: IF (l_acct_head_valid) THEN
3306: -- ================================== FND_LOG ==================================
3307: l_debug_info := 'Invoice Def Receivables Acct Line Valid: Y';
3308: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3309: -- ================================== FND_LOG ==================================
3310: ELSE
3311: -- ================================== FND_LOG ==================================
3312: l_debug_info := 'Invoice Def Receivables Acct Line Valid: N';
3313: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3311: -- ================================== FND_LOG ==================================

3307: l_debug_info := 'Invoice Def Receivables Acct Line Valid: Y';
3308: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3309: -- ================================== FND_LOG ==================================
3310: ELSE
3311: -- ================================== FND_LOG ==================================
3312: l_debug_info := 'Invoice Def Receivables Acct Line Valid: N';
3313: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3314: -- ================================== FND_LOG ==================================
3315: l_overall_acct_valid := FALSE;

Line 3314: -- ================================== FND_LOG ==================================

3310: ELSE
3311: -- ================================== FND_LOG ==================================
3312: l_debug_info := 'Invoice Def Receivables Acct Line Valid: N';
3313: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3314: -- ================================== FND_LOG ==================================
3315: l_overall_acct_valid := FALSE;
3316:
3317: -- ================================== FND_LOG ==================================
3318: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';

Line 3317: -- ================================== FND_LOG ==================================

3313: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3314: -- ================================== FND_LOG ==================================
3315: l_overall_acct_valid := FALSE;
3316:
3317: -- ================================== FND_LOG ==================================
3318: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3319: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3320: -- ================================== FND_LOG ==================================
3321:

Line 3320: -- ================================== FND_LOG ==================================

3316:
3317: -- ================================== FND_LOG ==================================
3318: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3319: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3320: -- ================================== FND_LOG ==================================
3321:
3322: -- Exit out of the loop if Receivables Account is not Valid.
3323: EXIT;
3324: END IF;

Line 3360: -- ================================== FND_LOG ==================================

3356: *==============================================================================*/
3357:
3358:
3359: ELSIF (l_ar_event_type IN ('RECP_CREATE', 'RECP_UPDATE', 'RECP_REVERSE')) THEN
3360: -- ================================== FND_LOG ==================================
3361: l_debug_info := 'Inside Cash Receipt Event type';
3362: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3363: -- ================================== FND_LOG ==================================
3364:

Line 3363: -- ================================== FND_LOG ==================================

3359: ELSIF (l_ar_event_type IN ('RECP_CREATE', 'RECP_UPDATE', 'RECP_REVERSE')) THEN
3360: -- ================================== FND_LOG ==================================
3361: l_debug_info := 'Inside Cash Receipt Event type';
3362: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3363: -- ================================== FND_LOG ==================================
3364:
3365: /* Initialize index */
3366: l_index := 0;
3367: -- ================================== FND_LOG ==================================

Line 3367: -- ================================== FND_LOG ==================================

3363: -- ================================== FND_LOG ==================================
3364:
3365: /* Initialize index */
3366: l_index := 0;
3367: -- ================================== FND_LOG ==================================
3368: l_debug_info := 'Processing Cash Receipt REC Line...';
3369: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3370: -- ================================== FND_LOG ==================================
3371: /* Get Receipt REC Line */

Line 3370: -- ================================== FND_LOG ==================================

3366: l_index := 0;
3367: -- ================================== FND_LOG ==================================
3368: l_debug_info := 'Processing Cash Receipt REC Line...';
3369: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3370: -- ================================== FND_LOG ==================================
3371: /* Get Receipt REC Line */
3372: OPEN cur_ar_rct_extract_details('REC');
3373: LOOP
3374: FETCH cur_ar_rct_extract_details INTO l_ar_rct_extract_details;

Line 3376: -- ================================== FND_LOG ==================================

3372: OPEN cur_ar_rct_extract_details('REC');
3373: LOOP
3374: FETCH cur_ar_rct_extract_details INTO l_ar_rct_extract_details;
3375: IF (cur_ar_rct_extract_details%ROWCOUNT = 0) THEN
3376: -- ================================== FND_LOG ==================================
3377: l_debug_info := 'This Receipt is not applied to any Invoice. Exiting...';
3378: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3379: -- ================================== FND_LOG ==================================
3380: RETURN;

Line 3379: -- ================================== FND_LOG ==================================

3375: IF (cur_ar_rct_extract_details%ROWCOUNT = 0) THEN
3376: -- ================================== FND_LOG ==================================
3377: l_debug_info := 'This Receipt is not applied to any Invoice. Exiting...';
3378: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3379: -- ================================== FND_LOG ==================================
3380: RETURN;
3381: END IF;
3382: EXIT WHEN cur_ar_rct_extract_details%NOTFOUND;
3383:

Line 3394: -- ================================== FND_LOG ==================================

3390: OPEN cur_app_to_trx_balseg_val (l_ar_rct_extract_details.event_id
3391: ,l_ar_rct_extract_details.line_number
3392: );
3393: FETCH cur_app_to_trx_balseg_val INTO l_fund_value;
3394: -- ================================== FND_LOG ==================================
3395: l_debug_info := 'Fund Value : ' || l_fund_value ;
3396: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3397: -- ================================== FND_LOG ==================================
3398: CLOSE cur_app_to_trx_balseg_val;

Line 3397: -- ================================== FND_LOG ==================================

3393: FETCH cur_app_to_trx_balseg_val INTO l_fund_value;
3394: -- ================================== FND_LOG ==================================
3395: l_debug_info := 'Fund Value : ' || l_fund_value ;
3396: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3397: -- ================================== FND_LOG ==================================
3398: CLOSE cur_app_to_trx_balseg_val;
3399:
3400: l_fv_extract_detail(l_index).fund_value := l_fund_value;
3401:

Line 3415: -- ================================== FND_LOG ==================================

3411: l_fv_extract_detail(l_index).fund_category := l_fund_category;
3412: l_fv_extract_detail(l_index).fund_expired_status := l_fund_expired_status;
3413: l_fv_extract_detail(l_index).fund_time_frame := l_fund_time_frame;
3414:
3415: -- ================================== FND_LOG ==================================
3416: l_debug_info := 'Fund Category: ' || l_fund_category;
3417: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3418: l_debug_info := 'Fund Expired Status: ' || l_fund_expired_status;
3419: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3422: -- ================================== FND_LOG ==================================

3418: l_debug_info := 'Fund Expired Status: ' || l_fund_expired_status;
3419: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3420: l_debug_info := 'Fund Time Frame: ' || l_fund_time_frame;
3421: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3422: -- ================================== FND_LOG ==================================
3423:
3424: /* Get the Prior Year Status */
3425: l_pya := get_prior_year_status (p_application_id,
3426: l_ledger_info.ledger_id,

Line 3437: -- ================================== FND_LOG ==================================

3433: ELSE
3434: l_fv_extract_detail(l_index).prior_year_flag := 'N';
3435: END IF;
3436:
3437: -- ================================== FND_LOG ==================================
3438: l_debug_info := 'Prior year Flag: ' || l_fv_extract_detail(l_index).prior_year_flag;
3439: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3440: -- ================================== FND_LOG ==================================
3441:

Line 3440: -- ================================== FND_LOG ==================================

3436:
3437: -- ================================== FND_LOG ==================================
3438: l_debug_info := 'Prior year Flag: ' || l_fv_extract_detail(l_index).prior_year_flag;
3439: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3440: -- ================================== FND_LOG ==================================
3441:
3442: /* Assign the fund infomation to a record */
3443: l_fv_extract_rec.event_id := l_fv_extract_detail(l_index).event_id;
3444: l_fv_extract_rec.line_number := l_fv_extract_detail(l_index).line_number;

Line 3471: -- ================================== FND_LOG ==================================

3467: -- Exit out the loop;
3468: EXIT;
3469: END IF;
3470:
3471: -- ================================== FND_LOG ==================================
3472: l_debug_info := 'Account Valid Status: ' ||l_fv_extract_detail(l_index).account_valid_flag;
3473: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3474: -- ================================== FND_LOG ==================================
3475:

Line 3474: -- ================================== FND_LOG ==================================

3470:
3471: -- ================================== FND_LOG ==================================
3472: l_debug_info := 'Account Valid Status: ' ||l_fv_extract_detail(l_index).account_valid_flag;
3473: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3474: -- ================================== FND_LOG ==================================
3475:
3476: /* Increment the index */
3477: l_index := l_index + 1;
3478:

Line 3492: -- ================================== FND_LOG ==================================

3488: CLOSE cur_ar_rct_extract_details;
3489: BEGIN
3490: OPEN cur_get_natacct(l_ar_rct_extract_details.dist_code_combination_id);
3491: FETCH cur_get_natacct INTO l_natseg_value;
3492: -- ================================== FND_LOG ==================================
3493: l_debug_info := 'CASH Line natural account: ' || l_natseg_value;
3494: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3495: -- ================================== FND_LOG ==================================
3496: CLOSE cur_get_natacct;

Line 3495: -- ================================== FND_LOG ==================================

3491: FETCH cur_get_natacct INTO l_natseg_value;
3492: -- ================================== FND_LOG ==================================
3493: l_debug_info := 'CASH Line natural account: ' || l_natseg_value;
3494: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3495: -- ================================== FND_LOG ==================================
3496: CLOSE cur_get_natacct;
3497: -- Check the Natural Account Segment of the line
3498: IF (l_natseg_value BETWEEN 101001 AND 101099) THEN
3499: /* Now we are sure that this particular receipt is for the 'Refunds of Advances or Prepayment'.

Line 3502: -- ================================== FND_LOG ==================================

3498: IF (l_natseg_value BETWEEN 101001 AND 101099) THEN
3499: /* Now we are sure that this particular receipt is for the 'Refunds of Advances or Prepayment'.
3500: So directly jump to the condition that insert the records to fv_extract_detail_gt table */
3501: l_overall_acct_valid := TRUE;
3502: -- ================================== FND_LOG ==================================
3503: l_debug_info := 'CASH line validated: Y' || ' for Refund of Advance or Prepayment';
3504: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3505: -- ================================== FND_LOG ==================================
3506: GOTO insert_row;

Line 3505: -- ================================== FND_LOG ==================================

3501: l_overall_acct_valid := TRUE;
3502: -- ================================== FND_LOG ==================================
3503: l_debug_info := 'CASH line validated: Y' || ' for Refund of Advance or Prepayment';
3504: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3505: -- ================================== FND_LOG ==================================
3506: GOTO insert_row;
3507: ELSE
3508: l_overall_acct_valid := FALSE;
3509: END IF;

Line 3534: -- ================================== FND_LOG ==================================

3530: BEGIN
3531: /* Get the Natural Account Segment for Transaction Line */
3532: OPEN cur_get_natacct(x_code_combination_id.trx_line_dist_ccid);
3533: FETCH cur_get_natacct INTO l_natseg_value;
3534: -- ================================== FND_LOG ==================================
3535: l_debug_info := 'Receipt Applied to Invoice Revenue Line natural account: ' || l_natseg_value;
3536: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3537: -- ================================== FND_LOG ==================================
3538: CLOSE cur_get_natacct;

Line 3537: -- ================================== FND_LOG ==================================

3533: FETCH cur_get_natacct INTO l_natseg_value;
3534: -- ================================== FND_LOG ==================================
3535: l_debug_info := 'Receipt Applied to Invoice Revenue Line natural account: ' || l_natseg_value;
3536: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3537: -- ================================== FND_LOG ==================================
3538: CLOSE cur_get_natacct;
3539: IF ((l_natseg_value BETWEEN 510000 AND 510099) OR (l_natseg_value BETWEEN 520001 AND 520099))
3540: AND NOT(l_trx_type_over) THEN
3541: -- Invoice Revenue Account matched for Reimbursable Order without Advance

Line 3589: -- ================================== FND_LOG ==================================

3585: Otherwise we are not changing if matches the 'Refunds of Overpayments'.
3586: if no criteria matches we are clearing out the account_rule */
3587:
3588: IF ((l_acct_head_valid = TRUE) AND (l_overall_acct_valid = TRUE) AND (l_trx_type_reim = TRUE)) THEN
3589: -- ================================== FND_LOG ==================================
3590: l_debug_info := 'Receipt Validated for Reimbursable Order without Advance';
3591: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3592: -- ================================== FND_LOG ==================================
3593: IF l_fv_extract_detail.COUNT> 0 THEN

Line 3592: -- ================================== FND_LOG ==================================

3588: IF ((l_acct_head_valid = TRUE) AND (l_overall_acct_valid = TRUE) AND (l_trx_type_reim = TRUE)) THEN
3589: -- ================================== FND_LOG ==================================
3590: l_debug_info := 'Receipt Validated for Reimbursable Order without Advance';
3591: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3592: -- ================================== FND_LOG ==================================
3593: IF l_fv_extract_detail.COUNT> 0 THEN
3594: FOR l_index IN l_fv_extract_detail.first..l_fv_extract_detail.last
3595: LOOP
3596: l_fv_extract_detail(l_index).account_rule := 'Order No Advance';

Line 3600: -- ================================== FND_LOG ==================================

3596: l_fv_extract_detail(l_index).account_rule := 'Order No Advance';
3597: END LOOP;
3598: END IF;
3599: ELSIF ((l_acct_head_valid = TRUE) AND (l_overall_acct_valid = TRUE) AND (l_trx_type_over = TRUE)) THEN
3600: -- ================================== FND_LOG ==================================
3601: l_debug_info := 'Receipt Validated for Refund of Overpayments';
3602: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3603: -- ================================== FND_LOG ==================================
3604: NULL;

Line 3603: -- ================================== FND_LOG ==================================

3599: ELSIF ((l_acct_head_valid = TRUE) AND (l_overall_acct_valid = TRUE) AND (l_trx_type_over = TRUE)) THEN
3600: -- ================================== FND_LOG ==================================
3601: l_debug_info := 'Receipt Validated for Refund of Overpayments';
3602: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3603: -- ================================== FND_LOG ==================================
3604: NULL;
3605: -- The Invoice Revenue line is neither a 'Reimbursable Order without Advance' or 'Refunds of Overpayments'
3606: ELSE
3607: IF l_fv_extract_detail.COUNT > 0 THEN

Line 3614: -- ================================== FND_LOG ==================================

3610: l_fv_extract_detail(l_index).account_rule := 'DEFAULT';
3611: l_fv_extract_detail(l_index).account_valid_flag := 'N';
3612: END LOOP;
3613: END IF;
3614: -- ================================== FND_LOG ==================================
3615: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3616: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3617: -- ================================== FND_LOG ==================================
3618: END IF;

Line 3617: -- ================================== FND_LOG ==================================

3613: END IF;
3614: -- ================================== FND_LOG ==================================
3615: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3616: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3617: -- ================================== FND_LOG ==================================
3618: END IF;
3619:
3620:
3621:

Line 3639: -- ================================== FND_LOG ==================================

3635:
3636:
3637: ELSIF (l_ar_event_type IN ('MISC_RECP_CREATE', 'MISC_RECP_UPDATE', 'MISC_RECP_REVERSE')) THEN
3638:
3639: -- ================================== FND_LOG ==================================
3640: l_debug_info := 'Inside Miscellaneous Receipt Event type';
3641: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3642: -- ================================== FND_LOG ==================================
3643:

Line 3642: -- ================================== FND_LOG ==================================

3638:
3639: -- ================================== FND_LOG ==================================
3640: l_debug_info := 'Inside Miscellaneous Receipt Event type';
3641: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3642: -- ================================== FND_LOG ==================================
3643:
3644: /* Initialize index */
3645: l_index := 0;
3646:

Line 3652: -- ================================== FND_LOG ==================================

3648: FOR x_misc_rct_extract_details IN cur_misc_rct_extract_details
3649: LOOP
3650:
3651: IF (x_misc_rct_extract_details.DIST_SOURCE_TYPE = 'CASH') THEN
3652: -- ================================== FND_LOG ==================================
3653: l_debug_info := 'Processing Miscellaneous Distribution Type: '
3654: || x_misc_rct_extract_details.DIST_SOURCE_TYPE ;
3655: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3656: -- ================================== FND_LOG ==================================

Line 3656: -- ================================== FND_LOG ==================================

3652: -- ================================== FND_LOG ==================================
3653: l_debug_info := 'Processing Miscellaneous Distribution Type: '
3654: || x_misc_rct_extract_details.DIST_SOURCE_TYPE ;
3655: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3656: -- ================================== FND_LOG ==================================
3657: -- We need to validate the Natural Account Segment of CASH account of Miscellaneous Receipt
3658: -- to be between 101000 and 101099
3659: BEGIN
3660: -- Get the Natural Account Segment of the Default Cash Account

Line 3663: -- ================================== FND_LOG ==================================

3659: BEGIN
3660: -- Get the Natural Account Segment of the Default Cash Account
3661: OPEN cur_get_natacct(x_misc_rct_extract_details.dist_code_combination_id);
3662: FETCH cur_get_natacct INTO l_natseg_value;
3663: -- ================================== FND_LOG ==================================
3664: l_debug_info := 'CASH Line natural account: ' || l_natseg_value;
3665: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3666: -- ================================== FND_LOG ==================================
3667: CLOSE cur_get_natacct;

Line 3666: -- ================================== FND_LOG ==================================

3662: FETCH cur_get_natacct INTO l_natseg_value;
3663: -- ================================== FND_LOG ==================================
3664: l_debug_info := 'CASH Line natural account: ' || l_natseg_value;
3665: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3666: -- ================================== FND_LOG ==================================
3667: CLOSE cur_get_natacct;
3668: -- Check the Natural Account Segment of the line
3669: IF (l_natseg_value BETWEEN 101001 AND 101099) THEN
3670: -- ================================== FND_LOG ==================================

Line 3670: -- ================================== FND_LOG ==================================

3666: -- ================================== FND_LOG ==================================
3667: CLOSE cur_get_natacct;
3668: -- Check the Natural Account Segment of the line
3669: IF (l_natseg_value BETWEEN 101001 AND 101099) THEN
3670: -- ================================== FND_LOG ==================================
3671: l_debug_info := 'Validated the Miscellaneous Receipt CASH Natural Account Segment';
3672: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3673: -- ================================== FND_LOG ==================================
3674: l_acct_head_valid := TRUE;

Line 3673: -- ================================== FND_LOG ==================================

3669: IF (l_natseg_value BETWEEN 101001 AND 101099) THEN
3670: -- ================================== FND_LOG ==================================
3671: l_debug_info := 'Validated the Miscellaneous Receipt CASH Natural Account Segment';
3672: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3673: -- ================================== FND_LOG ==================================
3674: l_acct_head_valid := TRUE;
3675: ELSE
3676: l_acct_head_valid := FALSE;
3677: END IF;

Line 3683: -- ================================== FND_LOG ==================================

3679: WHEN OTHERS THEN
3680: IF cur_get_natacct%ISOPEN THEN
3681: CLOSE cur_get_natacct;
3682: END IF;
3683: -- ================================== FND_LOG ==================================
3684: l_debug_info := 'SQL Error encountered' || SQLERRM;
3685: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3686: -- ================================== FND_LOG ==================================
3687: l_acct_head_valid := FALSE;

Line 3686: -- ================================== FND_LOG ==================================

3682: END IF;
3683: -- ================================== FND_LOG ==================================
3684: l_debug_info := 'SQL Error encountered' || SQLERRM;
3685: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3686: -- ================================== FND_LOG ==================================
3687: l_acct_head_valid := FALSE;
3688: END;
3689: IF (l_acct_head_valid) THEN
3690: -- ================================== FND_LOG ==================================

Line 3690: -- ================================== FND_LOG ==================================

3686: -- ================================== FND_LOG ==================================
3687: l_acct_head_valid := FALSE;
3688: END;
3689: IF (l_acct_head_valid) THEN
3690: -- ================================== FND_LOG ==================================
3691: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: Y' ;
3692: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3693: -- ================================== FND_LOG ==================================
3694: ELSE

Line 3693: -- ================================== FND_LOG ==================================

3689: IF (l_acct_head_valid) THEN
3690: -- ================================== FND_LOG ==================================
3691: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: Y' ;
3692: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3693: -- ================================== FND_LOG ==================================
3694: ELSE
3695: -- ================================== FND_LOG ==================================
3696: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: N' ;
3697: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3695: -- ================================== FND_LOG ==================================

3691: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: Y' ;
3692: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3693: -- ================================== FND_LOG ==================================
3694: ELSE
3695: -- ================================== FND_LOG ==================================
3696: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: N' ;
3697: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3698: -- ================================== FND_LOG ==================================
3699: l_overall_acct_valid := FALSE;

Line 3698: -- ================================== FND_LOG ==================================

3694: ELSE
3695: -- ================================== FND_LOG ==================================
3696: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: N' ;
3697: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3698: -- ================================== FND_LOG ==================================
3699: l_overall_acct_valid := FALSE;
3700: -- ================================== FND_LOG ==================================
3701: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3702: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3700: -- ================================== FND_LOG ==================================

3696: l_debug_info := 'Misc Receipt Def CASH Acct Line Valid: N' ;
3697: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3698: -- ================================== FND_LOG ==================================
3699: l_overall_acct_valid := FALSE;
3700: -- ================================== FND_LOG ==================================
3701: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3702: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3703: -- ================================== FND_LOG ==================================
3704:

Line 3703: -- ================================== FND_LOG ==================================

3699: l_overall_acct_valid := FALSE;
3700: -- ================================== FND_LOG ==================================
3701: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3702: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3703: -- ================================== FND_LOG ==================================
3704:
3705: -- Exit out of the loop if Misc Receipt CASH Account is not Valid.
3706: EXIT;
3707: END IF;

Line 3710: -- ================================== FND_LOG ==================================

3706: EXIT;
3707: END IF;
3708:
3709: ELSIF (x_misc_rct_extract_details.DIST_SOURCE_TYPE = 'MISCCASH') THEN
3710: -- ================================== FND_LOG ==================================
3711: l_debug_info := 'Processing Miscellaneous Distribution Type: '
3712: || x_misc_rct_extract_details.DIST_SOURCE_TYPE ;
3713: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3714: -- ================================== FND_LOG ==================================

Line 3714: -- ================================== FND_LOG ==================================

3710: -- ================================== FND_LOG ==================================
3711: l_debug_info := 'Processing Miscellaneous Distribution Type: '
3712: || x_misc_rct_extract_details.DIST_SOURCE_TYPE ;
3713: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3714: -- ================================== FND_LOG ==================================
3715:
3716: /* Assign the values to fv extract pl/sql table */
3717: l_fv_extract_detail(l_index).event_id := x_misc_rct_extract_details.event_id;
3718: l_fv_extract_detail(l_index).line_number := x_misc_rct_extract_details.line_number;

Line 3726: -- ================================== FND_LOG ==================================

3722: OPEN cur_ar_rct_balseg_value (x_misc_rct_extract_details.event_id
3723: ,x_misc_rct_extract_details.line_number
3724: );
3725: FETCH cur_ar_rct_balseg_value INTO l_fund_value;
3726: -- ================================== FND_LOG ==================================
3727: l_debug_info := 'Fund Value : ' || l_fund_value ;
3728: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3729: -- ================================== FND_LOG ==================================
3730: CLOSE cur_ar_rct_balseg_value;

Line 3729: -- ================================== FND_LOG ==================================

3725: FETCH cur_ar_rct_balseg_value INTO l_fund_value;
3726: -- ================================== FND_LOG ==================================
3727: l_debug_info := 'Fund Value : ' || l_fund_value ;
3728: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3729: -- ================================== FND_LOG ==================================
3730: CLOSE cur_ar_rct_balseg_value;
3731:
3732: l_fv_extract_detail(l_index).fund_value := l_fund_value;
3733:

Line 3747: -- ================================== FND_LOG ==================================

3743: l_fv_extract_detail(l_index).fund_category := l_fund_category;
3744: l_fv_extract_detail(l_index).fund_expired_status := l_fund_expired_status;
3745: l_fv_extract_detail(l_index).fund_time_frame := l_fund_time_frame;
3746:
3747: -- ================================== FND_LOG ==================================
3748: l_debug_info := 'Fund Category: ' || l_fund_category;
3749: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3750: l_debug_info := 'Fund Expired Status: ' || l_fund_expired_status;
3751: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3754: -- ================================== FND_LOG ==================================

3750: l_debug_info := 'Fund Expired Status: ' || l_fund_expired_status;
3751: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3752: l_debug_info := 'Fund Time Frame: ' || l_fund_time_frame;
3753: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3754: -- ================================== FND_LOG ==================================
3755:
3756: -- Calculate only for non- Reimbursable Order Misc Receipts
3757: IF (l_fund_category NOT IN ('R', 'S', 'T')) THEN
3758: /* Get the Prior Year Status */

Line 3771: -- ================================== FND_LOG ==================================

3767: ELSE
3768: l_fv_extract_detail(l_index).prior_year_flag := 'N';
3769: END IF;
3770:
3771: -- ================================== FND_LOG ==================================
3772: l_debug_info := 'Prior year Flag: ' ||l_fv_extract_detail(l_index).prior_year_flag;
3773: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3774: -- ================================== FND_LOG ==================================
3775:

Line 3774: -- ================================== FND_LOG ==================================

3770:
3771: -- ================================== FND_LOG ==================================
3772: l_debug_info := 'Prior year Flag: ' ||l_fv_extract_detail(l_index).prior_year_flag;
3773: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3774: -- ================================== FND_LOG ==================================
3775:
3776: END IF;
3777:
3778: /* Assign the fund infomation to a record */

Line 3794: -- ================================== FND_LOG ==================================

3790:
3791: IF (l_acct_valid) THEN
3792: l_fv_extract_detail(l_index).account_valid_flag := 'Y';
3793: ELSE
3794: -- ================================== FND_LOG ==================================
3795: l_debug_info := 'Misc Receipt Account Validation failed for Distribution Line: '
3796: || x_misc_rct_extract_details.DIST_SOURCE_TYPE;
3797: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3798: -- ================================== FND_LOG ==================================

Line 3798: -- ================================== FND_LOG ==================================

3794: -- ================================== FND_LOG ==================================
3795: l_debug_info := 'Misc Receipt Account Validation failed for Distribution Line: '
3796: || x_misc_rct_extract_details.DIST_SOURCE_TYPE;
3797: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3798: -- ================================== FND_LOG ==================================
3799:
3800: l_fv_extract_detail(l_index).account_valid_flag := 'N';
3801: l_overall_acct_valid := FALSE;
3802:

Line 3803: -- ================================== FND_LOG ==================================

3799:
3800: l_fv_extract_detail(l_index).account_valid_flag := 'N';
3801: l_overall_acct_valid := FALSE;
3802:
3803: -- ================================== FND_LOG ==================================
3804: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3805: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3806: -- ================================== FND_LOG ==================================
3807:

Line 3806: -- ================================== FND_LOG ==================================

3802:
3803: -- ================================== FND_LOG ==================================
3804: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3805: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3806: -- ================================== FND_LOG ==================================
3807:
3808: -- Exit Out of the loop
3809: EXIT;
3810: END IF;

Line 3812: -- ================================== FND_LOG ==================================

3808: -- Exit Out of the loop
3809: EXIT;
3810: END IF;
3811:
3812: -- ================================== FND_LOG ==================================
3813: l_debug_info := 'Account Valid Status: ' || l_fv_extract_detail(l_index).account_valid_flag;
3814: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3815: -- ================================== FND_LOG ==================================
3816:

Line 3815: -- ================================== FND_LOG ==================================

3811:
3812: -- ================================== FND_LOG ==================================
3813: l_debug_info := 'Account Valid Status: ' || l_fv_extract_detail(l_index).account_valid_flag;
3814: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3815: -- ================================== FND_LOG ==================================
3816:
3817: /* Increment the index */
3818: l_index := l_index + 1;
3819: END IF;

Line 3836: -- ================================== FND_LOG ==================================

3832: END IF;
3833: /* Insert data into FV_EXTRACT_DETAILS_GT table */
3834: FORALL l_index IN l_fv_extract_detail.first..l_fv_extract_detail.last
3835: INSERT INTO fv_extract_detail_gt VALUES l_fv_extract_detail(l_index);
3836: -- ================================== FND_LOG ==================================
3837: l_debug_info := 'No of rows inserted into FV_EXTRACT_DETAIL_GT: '|| SQL%ROWCOUNT;
3838: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3839: -- ================================== FND_LOG ==================================
3840: ELSIF l_fv_extract_detail.COUNT = 0 THEN

Line 3839: -- ================================== FND_LOG ==================================

3835: INSERT INTO fv_extract_detail_gt VALUES l_fv_extract_detail(l_index);
3836: -- ================================== FND_LOG ==================================
3837: l_debug_info := 'No of rows inserted into FV_EXTRACT_DETAIL_GT: '|| SQL%ROWCOUNT;
3838: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3839: -- ================================== FND_LOG ==================================
3840: ELSIF l_fv_extract_detail.COUNT = 0 THEN
3841: -- ================================== FND_LOG ==================================
3842: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3843: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );

Line 3841: -- ================================== FND_LOG ==================================

3837: l_debug_info := 'No of rows inserted into FV_EXTRACT_DETAIL_GT: '|| SQL%ROWCOUNT;
3838: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3839: -- ================================== FND_LOG ==================================
3840: ELSIF l_fv_extract_detail.COUNT = 0 THEN
3841: -- ================================== FND_LOG ==================================
3842: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3843: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3844: -- ================================== FND_LOG ==================================
3845: END IF;

Line 3844: -- ================================== FND_LOG ==================================

3840: ELSIF l_fv_extract_detail.COUNT = 0 THEN
3841: -- ================================== FND_LOG ==================================
3842: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3843: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3844: -- ================================== FND_LOG ==================================
3845: END IF;
3846: -- ================================== FND_LOG ==================================
3847: l_debug_info := 'End of procedure '||l_procedure_name;
3848: trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);

Line 3846: -- ================================== FND_LOG ==================================

3842: l_debug_info := 'FEDERAL ACCOUNING CRITERIA IS NOT SATISFIED HENCE NOT ACCOUNTED';
3843: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info );
3844: -- ================================== FND_LOG ==================================
3845: END IF;
3846: -- ================================== FND_LOG ==================================
3847: l_debug_info := 'End of procedure '||l_procedure_name;
3848: trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
3849: -- ================================== FND_LOG ==================================
3850:

Line 3849: -- ================================== FND_LOG ==================================

3845: END IF;
3846: -- ================================== FND_LOG ==================================
3847: l_debug_info := 'End of procedure '||l_procedure_name;
3848: trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
3849: -- ================================== FND_LOG ==================================
3850:
3851: EXCEPTION
3852:
3853: WHEN OTHERS THEN

Line 3854: -- ================================== FND_LOG ==================================

3850:
3851: EXCEPTION
3852:
3853: WHEN OTHERS THEN
3854: -- ================================== FND_LOG ==================================
3855: l_debug_info := 'ERROR encountered in Federal AR SLA Processing: ' || SQLERRM;
3856: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3857: -- ================================== FND_LOG ==================================
3858: FND_MESSAGE.SET_NAME('FND', 'FND_GENERIC_MESSAGE');

Line 3857: -- ================================== FND_LOG ==================================

3853: WHEN OTHERS THEN
3854: -- ================================== FND_LOG ==================================
3855: l_debug_info := 'ERROR encountered in Federal AR SLA Processing: ' || SQLERRM;
3856: trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
3857: -- ================================== FND_LOG ==================================
3858: FND_MESSAGE.SET_NAME('FND', 'FND_GENERIC_MESSAGE');
3859: FND_MESSAGE.SET_TOKEN('MESSAGE' ,
3860: 'Procedure :fv_sla_processing_pkg.ar_extract'|| CRLF||
3861: 'Error :'||SQLERRM);