266: /* */
267: /* External Packages which are being invoked include : */
268: /* */
269: /* FND_GLOBAL */
270: /* FND_PROFILE */
271: /* FND_INSTALLATION */
272: /* FND_MESSAGE */
273: /* FND_FLEX_EXT */
274: /* FND_FLEX_APIS */
303: /* */
304: /* FND_USER */
305: /* FND_APPLICATION */
306: /* FND_RESPONSIBILITY */
307: /* FND_PROFILE_OPTION_VALUES */
308: /* FND_PRODUCT_INSTALLATIONS */
309: /* */
310: /* ------------------------------------------------------------------------- */
311:
733: p_calling_prog_flag IN VARCHAR2) RETURN BOOLEAN IS
734:
735: i BINARY_INTEGER;
736: l_status fnd_product_installations.status%TYPE;
737: l_industry fnd_profile_option_values.profile_option_value%TYPE;
738: l_value fnd_profile_option_values.profile_option_value%TYPE;
739: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
740: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
741: l_fv_prepay_defined BOOLEAN;
734:
735: i BINARY_INTEGER;
736: l_status fnd_product_installations.status%TYPE;
737: l_industry fnd_profile_option_values.profile_option_value%TYPE;
738: l_value fnd_profile_option_values.profile_option_value%TYPE;
739: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
740: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
741: l_fv_prepay_defined BOOLEAN;
742: l_defined BOOLEAN;
735: i BINARY_INTEGER;
736: l_status fnd_product_installations.status%TYPE;
737: l_industry fnd_profile_option_values.profile_option_value%TYPE;
738: l_value fnd_profile_option_values.profile_option_value%TYPE;
739: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
740: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
741: l_fv_prepay_defined BOOLEAN;
742: l_defined BOOLEAN;
743: l_reverse_tc_defined BOOLEAN;
736: l_status fnd_product_installations.status%TYPE;
737: l_industry fnd_profile_option_values.profile_option_value%TYPE;
738: l_value fnd_profile_option_values.profile_option_value%TYPE;
739: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
740: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
741: l_fv_prepay_defined BOOLEAN;
742: l_defined BOOLEAN;
743: l_reverse_tc_defined BOOLEAN;
744:
980:
981: -- Get GL Installation Info
982: -- The installation info is now implemented as a profile option (INDUSTRY).
983:
984: FND_PROFILE.GET_SPECIFIC('INDUSTRY',
985: g_user_id,
986: g_user_resp_id,
987: g_resp_appl_id,
988: l_industry,
1018: -- ========================= FND LOG =============================
1019:
1020: if l_industry = 'G' then
1021:
1022: FND_PROFILE.GET('USSGL_OPTION', l_value);
1023:
1024: if l_value is null then
1025: -- =========================== FND LOG ===========================
1026: psa_utils.debug_other_string(g_state_level,l_full_path, ' RAISE OTHERS');
1040: end if;
1041:
1042: if g_ussgl_option_flag then
1043:
1044: FND_PROFILE.GET_SPECIFIC('FV_SPLIT_INV_DISTRIBUTION_PREPAY',
1045: g_user_id,
1046: g_user_resp_id,
1047: g_resp_appl_id,
1048: l_fv_prepay_prof,
1068:
1069: end if;
1070:
1071: -- Bug 678604
1072: FND_PROFILE.GET_SPECIFIC('GL_REVERSE_TC_OPTION',
1073: g_user_id,
1074: g_user_resp_id,
1075: g_resp_appl_id,
1076: l_reverse_tc_flag,
1091: end if; -- g_calling_prog_flag = 'G'
1092:
1093:
1094: /*
1095: FND_PROFILE.GET('CREATE_BUDGETARY_ENCUMBRANCES', l_value);
1096:
1097: -- =========================== FND LOG ===========================
1098: psa_utils.debug_other_string(g_state_level,l_full_path, ' CBE - l_value -> ' || l_Value);
1099: -- ========================= FND LOG =============================
1116:
1117:
1118: -- Get PSA Debug Mode profile value
1119:
1120: FND_PROFILE.GET('PSA_DEBUG_MODE', l_value);
1121:
1122: IF l_value = 'Y' THEN
1123: -- =========================== FND LOG ===========================
1124: psa_utils.debug_other_string(g_state_level,l_full_path, ' l_value = Y -> g_xla_debug = TRUE');
1139: if ((g_override_flag) and
1140: (p_user_id is not null) and
1141: (p_user_resp_id is not null)) then
1142:
1143: FND_PROFILE.GET_SPECIFIC('BUDGETARY_CONTROL_OPTION',
1144: p_user_id,
1145: p_user_resp_id,
1146: g_resp_appl_id,
1147: l_value,
1146: g_resp_appl_id,
1147: l_value,
1148: l_defined);
1149: else
1150: FND_PROFILE.GET('BUDGETARY_CONTROL_OPTION', l_value);
1151: end if;
1152:
1153: g_bc_option_id := to_number(l_value);
1154:
1339: -- ===============================================================
1340: psa_utils.debug_other_string(g_state_level,l_full_path,'Getting value of Profile PSA_ENABLE_EFC');
1341: -- ===============================================================
1342:
1343: FND_PROFILE.GET('PSA_ENABLE_EFC',g_enable_efc_flag);
1344:
1345: -- ================================================================
1346: psa_utils.debug_other_string(g_state_level,l_full_path,'Value of Profile PSA_ENABLE_EFC' || g_enable_efc_flag);
1347: -- ================================================================
3431: l_quarter_num gl_period_statuses.quarter_num%TYPE;
3432: l_period_year gl_period_statuses.period_year%TYPE;
3433:
3434: resource_busy exception;
3435: l_psa_max_lock_wait_count fnd_profile_option_values.profile_option_value%TYPE :=0;
3436: l_psa_lock_wait_interval fnd_profile_option_values.profile_option_value%TYPE :=0;
3437: pragma exception_init(resource_busy, -54);
3438: -- ========================= FND LOG ===========================
3439: l_full_path VARCHAR2(100);
3432: l_period_year gl_period_statuses.period_year%TYPE;
3433:
3434: resource_busy exception;
3435: l_psa_max_lock_wait_count fnd_profile_option_values.profile_option_value%TYPE :=0;
3436: l_psa_lock_wait_interval fnd_profile_option_values.profile_option_value%TYPE :=0;
3437: pragma exception_init(resource_busy, -54);
3438: -- ========================= FND LOG ===========================
3439: l_full_path VARCHAR2(100);
3440: -- ========================= FND LOG ===========================
3446: psa_utils.debug_other_string(g_state_level,l_full_path, ' GLXFGB - START' );
3447: -- ========================= FND LOG =============================
3448:
3449: --Added below code for bug 9907009 --GNRAJAGO
3450: FND_PROFILE.GET('PSA_MAX_LOCK_WAIT_COUNT', l_psa_max_lock_wait_count);
3451: IF (l_psa_max_lock_wait_count IS NULL) THEN
3452: l_psa_max_lock_wait_count := 0;
3453: END IF;
3454:
3451: IF (l_psa_max_lock_wait_count IS NULL) THEN
3452: l_psa_max_lock_wait_count := 0;
3453: END IF;
3454:
3455: FND_PROFILE.GET('PSA_LOCK_WAIT_INTERVAL', l_psa_lock_wait_interval);
3456: IF (l_psa_lock_wait_interval IS NULL) THEN
3457: l_psa_lock_wait_interval := 0;
3458: END IF;
3459:
7578:
7579: IF (NVL(p_delete_mode, 'B') IN ('B', 'E')) THEN
7580: -- R12 upgrade date fetch to delete all unprocessed events from R12 installation date to sysdate
7581: psa_utils.debug_other_string(g_state_level,l_path_name,'Fetch PSA: R12 Upgrade Date profile value');
7582: l_r12_upgrade_date :=to_date( Fnd_Profile.Value_Wnps('PSA_R12_UPGRADE_DATE'), 'MM/DD/YYYY HH24:MI:SS'); -- fetch the profile value
7583:
7584: BEGIN
7585: l_prepare_stmt := ' BEGIN '||
7586: ' PO_DRAFT_EVENTS_PKG. delete_draft_events ('||