255: /* */
256: /* External Packages which are being invoked include : */
257: /* */
258: /* FND_GLOBAL */
259: /* FND_PROFILE */
260: /* FND_INSTALLATION */
261: /* FND_MESSAGE */
262: /* FND_FLEX_EXT */
263: /* FND_FLEX_APIS */
292: /* */
293: /* FND_USER */
294: /* FND_APPLICATION */
295: /* FND_RESPONSIBILITY */
296: /* FND_PROFILE_OPTION_VALUES */
297: /* FND_PRODUCT_INSTALLATIONS */
298: /* */
299: /* ------------------------------------------------------------------------- */
300:
722: p_calling_prog_flag IN VARCHAR2) RETURN BOOLEAN IS
723:
724: i BINARY_INTEGER;
725: l_status fnd_product_installations.status%TYPE;
726: l_industry fnd_profile_option_values.profile_option_value%TYPE;
727: l_value fnd_profile_option_values.profile_option_value%TYPE;
728: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
729: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
730: l_fv_prepay_defined BOOLEAN;
723:
724: i BINARY_INTEGER;
725: l_status fnd_product_installations.status%TYPE;
726: l_industry fnd_profile_option_values.profile_option_value%TYPE;
727: l_value fnd_profile_option_values.profile_option_value%TYPE;
728: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
729: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
730: l_fv_prepay_defined BOOLEAN;
731: l_defined BOOLEAN;
724: i BINARY_INTEGER;
725: l_status fnd_product_installations.status%TYPE;
726: l_industry fnd_profile_option_values.profile_option_value%TYPE;
727: l_value fnd_profile_option_values.profile_option_value%TYPE;
728: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
729: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
730: l_fv_prepay_defined BOOLEAN;
731: l_defined BOOLEAN;
732: l_reverse_tc_defined BOOLEAN;
725: l_status fnd_product_installations.status%TYPE;
726: l_industry fnd_profile_option_values.profile_option_value%TYPE;
727: l_value fnd_profile_option_values.profile_option_value%TYPE;
728: l_reverse_tc_flag fnd_profile_option_values.profile_option_value%TYPE;
729: l_fv_prepay_prof fnd_profile_option_values.profile_option_value%TYPE;
730: l_fv_prepay_defined BOOLEAN;
731: l_defined BOOLEAN;
732: l_reverse_tc_defined BOOLEAN;
733:
969:
970: -- Get GL Installation Info
971: -- The installation info is now implemented as a profile option (INDUSTRY).
972:
973: FND_PROFILE.GET_SPECIFIC('INDUSTRY',
974: g_user_id,
975: g_user_resp_id,
976: g_resp_appl_id,
977: l_industry,
1007: -- ========================= FND LOG =============================
1008:
1009: if l_industry = 'G' then
1010:
1011: FND_PROFILE.GET('USSGL_OPTION', l_value);
1012:
1013: if l_value is null then
1014: -- =========================== FND LOG ===========================
1015: psa_utils.debug_other_string(g_state_level,l_full_path, ' RAISE OTHERS');
1029: end if;
1030:
1031: if g_ussgl_option_flag then
1032:
1033: FND_PROFILE.GET_SPECIFIC('FV_SPLIT_INV_DISTRIBUTION_PREPAY',
1034: g_user_id,
1035: g_user_resp_id,
1036: g_resp_appl_id,
1037: l_fv_prepay_prof,
1057:
1058: end if;
1059:
1060: -- Bug 678604
1061: FND_PROFILE.GET_SPECIFIC('GL_REVERSE_TC_OPTION',
1062: g_user_id,
1063: g_user_resp_id,
1064: g_resp_appl_id,
1065: l_reverse_tc_flag,
1080: end if; -- g_calling_prog_flag = 'G'
1081:
1082:
1083: /*
1084: FND_PROFILE.GET('CREATE_BUDGETARY_ENCUMBRANCES', l_value);
1085:
1086: -- =========================== FND LOG ===========================
1087: psa_utils.debug_other_string(g_state_level,l_full_path, ' CBE - l_value -> ' || l_Value);
1088: -- ========================= FND LOG =============================
1105:
1106:
1107: -- Get PSA Debug Mode profile value
1108:
1109: FND_PROFILE.GET('PSA_DEBUG_MODE', l_value);
1110:
1111: IF l_value = 'Y' THEN
1112: -- =========================== FND LOG ===========================
1113: psa_utils.debug_other_string(g_state_level,l_full_path, ' l_value = Y -> g_xla_debug = TRUE');
1128: if ((g_override_flag) and
1129: (p_user_id is not null) and
1130: (p_user_resp_id is not null)) then
1131:
1132: FND_PROFILE.GET_SPECIFIC('BUDGETARY_CONTROL_OPTION',
1133: p_user_id,
1134: p_user_resp_id,
1135: g_resp_appl_id,
1136: l_value,
1135: g_resp_appl_id,
1136: l_value,
1137: l_defined);
1138: else
1139: FND_PROFILE.GET('BUDGETARY_CONTROL_OPTION', l_value);
1140: end if;
1141:
1142: g_bc_option_id := to_number(l_value);
1143:
1328: -- ===============================================================
1329: psa_utils.debug_other_string(g_state_level,l_full_path,'Getting value of Profile PSA_ENABLE_EFC');
1330: -- ===============================================================
1331:
1332: FND_PROFILE.GET('PSA_ENABLE_EFC',g_enable_efc_flag);
1333:
1334: -- ================================================================
1335: psa_utils.debug_other_string(g_state_level,l_full_path,'Value of Profile PSA_ENABLE_EFC' || g_enable_efc_flag);
1336: -- ================================================================