25: BEGIN
26: /*** has debug mode already been retrieved ***/
27: IF g_debug_level IS NULL THEN
28: /*** no -> get it from profile ***/
29: g_debug_level := FND_PROFILE.VALUE( 'JTM_DEBUG_LEVEL');
30: END IF;
31: RETURN g_debug_level;
32: END Get_Debug_Level;
33:
808: EXECUTE IMMEDIATE l_stmt USING p_resource_id;
809:
810: END;
811:
812: /*** Better it would be to use th Get specific funtion of fnd_profile ***/
813: FUNCTION Get_Profile_Value( p_name IN VARCHAR2
814: , p_site_id IN NUMBER DEFAULT NULL
815: , p_appl_id IN NUMBER DEFAULT NULL
816: , p_user_id IN NUMBER DEFAULT NULL
825: b_resp_level_value NUMBER,
826: b_user_level_value NUMBER
827: ) IS
828: SELECT val.profile_option_value
829: FROM fnd_profile_options opt,
830: fnd_profile_option_values val
831: WHERE NVL(opt.start_date_active, SYSDATE) <= SYSDATE
832: AND NVL(opt.end_date_active, SYSDATE) >= SYSDATE
833: AND opt.profile_option_name = b_profile_option_name
826: b_user_level_value NUMBER
827: ) IS
828: SELECT val.profile_option_value
829: FROM fnd_profile_options opt,
830: fnd_profile_option_values val
831: WHERE NVL(opt.start_date_active, SYSDATE) <= SYSDATE
832: AND NVL(opt.end_date_active, SYSDATE) >= SYSDATE
833: AND opt.profile_option_name = b_profile_option_name
834: AND opt.application_id = val.application_id