DBA Data[Home] [Help]

APPS.JA_AU_FA_BAL_CHG dependencies on FND_FILE

Line 498: FND_FILE.Put_Line (V_Log_Out,'Calculate Balancing Charges Starting...');

494: ELSE
495:
496: close C_Bal_Chg_Enabled;
497: -- Send a message to the log file for this concurrent process;
498: FND_FILE.Put_Line (V_Log_Out,'Calculate Balancing Charges Starting...');
499: FND_FILE.Put_Line (V_Log_Out,'...BOOK is '||V_Book_Type_code||' Period is '||V_Period_name);
500:
501: -- Loop for all retirements in the current period
502: FOR C_Retirements_REC IN C_Retirements LOOP

Line 499: FND_FILE.Put_Line (V_Log_Out,'...BOOK is '||V_Book_Type_code||' Period is '||V_Period_name);

495:
496: close C_Bal_Chg_Enabled;
497: -- Send a message to the log file for this concurrent process;
498: FND_FILE.Put_Line (V_Log_Out,'Calculate Balancing Charges Starting...');
499: FND_FILE.Put_Line (V_Log_Out,'...BOOK is '||V_Book_Type_code||' Period is '||V_Period_name);
500:
501: -- Loop for all retirements in the current period
502: FOR C_Retirements_REC IN C_Retirements LOOP
503: -- Send a status message to the log file.

Line 504: FND_FILE.Put_Line (V_Log_Out,'Processing Retirement for Asset '||to_char(C_Retirements_REC.Asset_id));

500:
501: -- Loop for all retirements in the current period
502: FOR C_Retirements_REC IN C_Retirements LOOP
503: -- Send a status message to the log file.
504: FND_FILE.Put_Line (V_Log_Out,'Processing Retirement for Asset '||to_char(C_Retirements_REC.Asset_id));
505:
506: -- Reset Data
507: V_Recoupment := 0;
508: V_Bal_Chg_Applied := 0;

Line 527: FND_FILE.Put_Line (V_Log_Out,'...Recoupment is '||to_char(v_recoupment));

523: else
524: v_recoupment := C_Retirements_REC.gain_loss_amount;
525: end if;
526: end if;
527: FND_FILE.Put_Line (V_Log_Out,'...Recoupment is '||to_char(v_recoupment));
528:
529: -- Check if a Source Record for this retired asset already exists.
530: -- If it does this means that this must be a reinstatement.
531: -- The Source record needs to be deleted or updated.

Line 539: FND_FILE.Put_Line (V_Log_Out,'...Created New Balancing Charge Source of '||to_Char(v_recoupment));

535: IF C_Bal_Chg_Retirements%NOTFOUND AND
536: v_recoupment > 0 THEN
537:
538: -- There is no pre existing balancing charge source record therefore create one
539: FND_FILE.Put_Line (V_Log_Out,'...Created New Balancing Charge Source of '||to_Char(v_recoupment));
540:
541: select ja_au_bal_chg_source_s.nextval
542: into v_bal_chg_id
543: from sys.dual;

Line 585: FND_FILE.Put_Line (V_Log_Out,'...Deleted Balancing Charge Source ');

581: -- There is already a source record
582: IF v_recoupment = 0 and
583: v_bal_chg_applied = 0 then
584: -- No balancing charge applications so delete it
585: FND_FILE.Put_Line (V_Log_Out,'...Deleted Balancing Charge Source ');
586:
587: -- Remove the Records
588: DELETE FROM ja_au_bal_chg_source s
589: WHERE s.retirement_id = C_Retirements_REC.retirement_id;

Line 595: FND_FILE.Put_Line (V_Log_Out,'...Updated Balancing Charge Source to '||to_Char(v_recoupment));

591: -- Update the couter
592: v_reinstatements := v_reinstatements + 1;
593:
594: ELSE
595: FND_FILE.Put_Line (V_Log_Out,'...Updated Balancing Charge Source to '||to_Char(v_recoupment));
596: -- The amount applied is > 0
597: -- Update the Source record for this reinstatement.
598: -- This should only ever be a full reversal of the
599: -- balance charge for a reinstatement. If it's not a

Line 631: FND_FILE.Put_Line (V_Log_Out,'Processing Complete.');

627:
628:
629: END LOOP;
630:
631: FND_FILE.Put_Line (V_Log_Out,'Processing Complete.');
632:
633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');
634: FND_FILE.Put_Line (V_out_Out,null);
635: FND_FILE.Put_Line (V_out_Out,null);

Line 633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');

629: END LOOP;
630:
631: FND_FILE.Put_Line (V_Log_Out,'Processing Complete.');
632:
633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');
634: FND_FILE.Put_Line (V_out_Out,null);
635: FND_FILE.Put_Line (V_out_Out,null);
636: FND_FILE.Put_Line (V_out_Out,null);
637:

Line 634: FND_FILE.Put_Line (V_out_Out,null);

630:
631: FND_FILE.Put_Line (V_Log_Out,'Processing Complete.');
632:
633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');
634: FND_FILE.Put_Line (V_out_Out,null);
635: FND_FILE.Put_Line (V_out_Out,null);
636: FND_FILE.Put_Line (V_out_Out,null);
637:
638: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */

Line 635: FND_FILE.Put_Line (V_out_Out,null);

631: FND_FILE.Put_Line (V_Log_Out,'Processing Complete.');
632:
633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');
634: FND_FILE.Put_Line (V_out_Out,null);
635: FND_FILE.Put_Line (V_out_Out,null);
636: FND_FILE.Put_Line (V_out_Out,null);
637:
638: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */
639:

Line 636: FND_FILE.Put_Line (V_out_Out,null);

632:
633: FND_FILE.Put_Line (V_out_Out,'Calculate Balancing Charges.');
634: FND_FILE.Put_Line (V_out_Out,null);
635: FND_FILE.Put_Line (V_out_Out,null);
636: FND_FILE.Put_Line (V_out_Out,null);
637:
638: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */
639:
640: /*

Line 641: FND_FILE.Put_Line (V_out_Out,'Retirements: '||to_char(v_retirements, '9,999,990') ||

637:
638: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */
639:
640: /*
641: FND_FILE.Put_Line (V_out_Out,'Retirements: '||to_char(v_retirements, '9,999,990') ||
642: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9,999,999,990') ||
643: ' value.');
644: */
645:

Line 646: FND_FILE.Put_Line (V_out_Out,'Retirements: '||to_char(v_retirements, '9G999G990') ||

642: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9,999,999,990') ||
643: ' value.');
644: */
645:
646: FND_FILE.Put_Line (V_out_Out,'Retirements: '||to_char(v_retirements, '9G999G990') ||
647: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9G999G999G990') ||
648: ' value.');
649: FND_FILE.Put_Line (V_out_Out,null);
650:

Line 649: FND_FILE.Put_Line (V_out_Out,null);

645:
646: FND_FILE.Put_Line (V_out_Out,'Retirements: '||to_char(v_retirements, '9G999G990') ||
647: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9G999G999G990') ||
648: ' value.');
649: FND_FILE.Put_Line (V_out_Out,null);
650:
651: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */
652:
653: /*

Line 654: FND_FILE.Put_Line (V_out_Out,'Reinstatements: '||to_char(v_reinstatements, '9,999,990') ||

650:
651: /* Commented By Sierra - 03/03/99 for Rel 11.5 Multi Radix Issue fixes */
652:
653: /*
654: FND_FILE.Put_Line (V_out_Out,'Reinstatements: '||to_char(v_reinstatements, '9,999,990') ||
655: ' Balancing Charges reversed.');
656: errbuf := 'Retirements: '||to_char(v_retirements, '9,999,990') ||
657: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9,999,999,990') ||
658: ' value.';

Line 661: FND_FILE.Put_Line (V_out_Out,'Reinstatements: '||to_char(v_reinstatements, '9G999G990') ||

657: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9,999,999,990') ||
658: ' value.';
659: */
660:
661: FND_FILE.Put_Line (V_out_Out,'Reinstatements: '||to_char(v_reinstatements, '9G999G990') ||
662: ' Balancing Charges reversed.');
663: errbuf := 'Retirements: '||to_char(v_retirements, '9G999G990') ||
664: ' Balancing Charges generated. ' ||to_char(v_retirement_tot, '$9G999G999G990') ||
665: ' value.';

Line 669: FND_FILE.Put_Line (V_out_Out,'Error ' || to_char(sqlcode, '999999')||' '|| sqlerrm);

665: ' value.';
666:
667: END IF;
668: EXCEPTION when others then
669: FND_FILE.Put_Line (V_out_Out,'Error ' || to_char(sqlcode, '999999')||' '|| sqlerrm);
670:
671: END;
672:
673: END;