PACKAGE BODY: APPS.FA_SET_PROFILE_PKG1

Source

1 PACKAGE BODY FA_SET_PROFILE_PKG1 as
2 /* $Header: faxsprfb.pls 120.4 2009/03/27 04:29:11 bridgway ship $ */
3 
4  procedure fa_sprf (prof in out nocopy varchar2, p_log_level_rec        IN     FA_API_TYPES.log_level_rec_type) is
5    oldprof varchar2(1);
6   begin
7 
8      oldprof := fnd_profile.value('CONC_SINGLE_THREAD');
9      fnd_profile.put('CONC_SINGLE_THREAD',prof);
10      prof := oldprof;
11   end fa_sprf;
12 
13 END FA_SET_PROFILE_PKG1;