[Home] [Help]
1: PACKAGE BODY FA_MASS_RET_PKG as
2: /* $Header: faxmreb.pls 120.35 2010/06/03 09:07:32 spooyath ship $ */
3:
4: g_release number := fa_cache_pkg.fazarel_release;
5:
6: -- Global Variables holding Mass Retirements Information
7: G_Mass_Retirement_Id fa_mass_retirements.Mass_Retirement_Id%TYPE;
8: G_Book_Type_Code fa_mass_retirements.Book_Type_Code%TYPE;
135:
136:
137: g_log_level_rec fa_api_types.log_level_rec_type;
138: ------------------------------------------------------------------------------
139: l_debug boolean := fa_cache_pkg.fa_print_debug;
140:
141: PROCEDURE Acct_Split(X_1st_Segment IN VARCHAR2,
142: X_Current_Segment IN VARCHAR2,
143: X_Acct_Split IN OUT NOCOPY VARCHAR2) IS
3348: raise error_found;
3349: end if;
3350: end if;
3351:
3352: G_release := fa_cache_pkg.fazarel_release;
3353:
3354: FA_SRVR_MSG.Init_Server_Message;
3355: FA_DEBUG_PKG.Initialize;
3356:
3498: FND_FILE.put(FND_FILE.output,l_string);
3499: FND_FILE.new_line(FND_FILE.output,1);
3500: end if;
3501:
3502: if not fa_cache_pkg.fazcbc(X_book => G_book_type_code, p_log_level_rec => g_log_level_rec) then
3503: raise error_found;
3504: end if;
3505:
3506: l_batch_size := nvl(fa_cache_pkg.fa_batch_size, 200);
3502: if not fa_cache_pkg.fazcbc(X_book => G_book_type_code, p_log_level_rec => g_log_level_rec) then
3503: raise error_found;
3504: end if;
3505:
3506: l_batch_size := nvl(fa_cache_pkg.fa_batch_size, 200);
3507:
3508: if (g_log_level_rec.statement_level) then
3509: fa_debug_pkg.add(l_calling_fn, 'g_batch_name', g_batch_name, p_log_level_rec => g_log_level_rec);
3510: fa_debug_pkg.add(l_calling_fn, 'g_retirement_date', g_retirement_date, p_log_level_rec => g_log_level_rec);