PACKAGE BODY: APPS.FA_SET_PROFILE_PKG1

Source

1 PACKAGE BODY FA_SET_PROFILE_PKG1 as
2 /* $Header: faxsprfb.pls 120.3 2005/07/25 09:58:29 yyoon ship $ */
3 
4  procedure fa_sprf (prof in out nocopy varchar2,
5                     p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type default null) is
6    oldprof varchar2(1);
7   begin
8 
9      oldprof := fnd_profile.value('CONC_SINGLE_THREAD');
10      fnd_profile.put('CONC_SINGLE_THREAD',prof);
11      prof := oldprof;
12   end fa_sprf;
13 
14 END FA_SET_PROFILE_PKG1;