[Home] [Help]
994:
995: ----check profile setting
996: ------ Quoting ER #9348864. Even if profile value is N, calculate delta if
997: --------the new IN param p_check_config_flag = Y (Making this ER implementation independent of this profile value)
998: l_bv_profile := FND_PROFILE.VALUE('CZ_BV_DELTA');
999:
1000: IF (NVL(UPPER(l_bv_profile), 'N') = 'N' AND NVL(UPPER(p_check_config_flag),'N') = 'N') THEN
1001: EXIT;
1002: END IF;
1234: l_start_index NUMBER;
1235: l_end_index NUMBER;
1236:
1237: BEGIN
1238: l_ssl_profile_option := FND_PROFILE.VALUE('APPS_SERVLET_AGENT');
1239: l_wallet_path := FND_PROFILE.VALUE('FND_DB_WALLET_DIR');
1240: l_wallet_path := 'file:'||l_wallet_path ;
1241:
1242: IF (transferTimeout IS NOT NULL AND defaultTimeout IS NOT NULL) THEN
1235: l_end_index NUMBER;
1236:
1237: BEGIN
1238: l_ssl_profile_option := FND_PROFILE.VALUE('APPS_SERVLET_AGENT');
1239: l_wallet_path := FND_PROFILE.VALUE('FND_DB_WALLET_DIR');
1240: l_wallet_path := 'file:'||l_wallet_path ;
1241:
1242: IF (transferTimeout IS NOT NULL AND defaultTimeout IS NOT NULL) THEN
1243: EXECUTE IMMEDIATE 'BEGIN UTL_HTTP.SET_TRANSFER_TIMEOUT(:1); END;' USING IN transferTimeout;
1548: --Need to avoid this if possible
1549: l_init_message := p_init_msg;
1550: --For now we shall augument the init message with publication_id, only when this EMC-LBR-ER solution is enabled
1551: --Once this '+' logic works fine for quite some time, we can allow this unconditionally
1552: IF(UPPER(TRIM(FND_PROFILE.VALUE('CZ_ADD_MODEL_ROUTING_COOKIE'))) LIKE 'Y%') THEN
1553: l_model_routing_enabled_for_bv := TRUE;
1554:
1555: l_init_message := REPLACE(p_init_msg,'+',' ');
1556: publication_for_init_message (l_init_message, l_publication_id, l_product_key, l_calling_appl_id);
1836: END IF;
1837:
1838: l_url := p_url;
1839: IF l_url IS NULL THEN
1840: l_url := FND_PROFILE.Value('CZ_UIMGR_URL');
1841: END IF;
1842:
1843: l_log_stmt := FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1844: IF l_log_stmt AND p_init_msg IS NOT NULL THEN
2326: PROCEDURE VALIDATE (config_input_list IN CFG_INPUT_LIST,
2327: init_message IN VARCHAR2,
2328: config_messages IN OUT NOCOPY CFG_OUTPUT_PIECES,
2329: validation_status IN OUT NOCOPY NUMBER,
2330: URL IN VARCHAR2 DEFAULT FND_PROFILE.Value('CZ_UIMGR_URL'),
2331: p_validation_type IN VARCHAR2 DEFAULT CZ_API_PUB.VALIDATE_ORDER)
2332:
2333: IS
2334: p_check_config_flag VARCHAR2(2) := 'N';
2363: PROCEDURE VALIDATE (config_input_list IN CFG_INPUT_LIST,
2364: init_message IN VARCHAR2,
2365: config_messages IN OUT NOCOPY CFG_OUTPUT_PIECES,
2366: validation_status IN OUT NOCOPY NUMBER,
2367: URL IN VARCHAR2 DEFAULT FND_PROFILE.Value('CZ_UIMGR_URL'),
2368: p_validation_type IN VARCHAR2 DEFAULT CZ_API_PUB.VALIDATE_ORDER,
2369: p_check_config_flag IN VARCHAR2 DEFAULT 'N',
2370: x_return_config_changed OUT NOCOPY VARCHAR2)
2371:
2790: config_creation_date, v_ui_type,
2791: calling_application_id, NULL);
2792: IF ( (l_return_ui_def_id IS NOT NULL)
2793: AND (l_return_ui_def_id = NATIVEBOM_UI_DEF) ) THEN
2794: l_return_ui_profile := FND_PROFILE.value('CZGENERICBOMUIPROFILE');
2795: IF (UPPER(l_return_ui_profile) IN ('N', 'NO') ) THEN
2796: l_return_ui_def_id := NULL;
2797: END IF;
2798: END IF;
3227: END IF;
3228:
3229: -- check usage_name: if null, get the profile option value from db
3230: IF v_usage_name IS NULL THEN
3231: fnd_profile.get('CZ_PUBLICATION_USAGE', v_usage_name);
3232: END IF;
3233:
3234: v_usage_id := usage_id_from_usage_name(v_usage_name);
3235:
3243:
3244: -- check publication mode: if null, get the profile option value from db.
3245: -- if still null, use the default 'P'.
3246: IF v_publication_mode IS NULL THEN
3247: fnd_profile.get('CZ_PUBLICATION_MODE', v_publication_mode);
3248: IF v_publication_mode IS NULL THEN
3249: v_publication_mode := 'P';
3250: END IF;
3251: END IF;
3508: END IF;
3509:
3510: -- check usage_name: if null, get the profile option value from db
3511: IF v_usage_name IS NULL THEN
3512: fnd_profile.get('CZ_PUBLICATION_USAGE', v_usage_name);
3513: END IF;
3514:
3515: v_usage_id := usage_id_from_usage_name(v_usage_name);
3516:
3524:
3525: -- check publication mode: if null, get the profile option value from db.
3526: -- if still null, use the default 'P'.
3527: IF v_publication_mode IS NULL THEN
3528: fnd_profile.get('CZ_PUBLICATION_MODE', v_publication_mode);
3529: IF v_publication_mode IS NULL THEN
3530: v_publication_mode := 'P';
3531: END IF;
3532: END IF;
3677: l_resp_appl_id NUMBER;
3678: l_session_id NUMBER;
3679: l_icx_exc EXCEPTION;
3680: BEGIN
3681: l_user_id := fnd_profile.value('USER_ID');
3682: l_resp_id := fnd_profile.value('RESP_ID');
3683: l_resp_appl_id := fnd_profile.value('RESP_APPL_ID');
3684: l_session_id := FND_SESSION_MANAGEMENT.g_session_id;
3685: IF (l_session_id = -1) THEN
3678: l_session_id NUMBER;
3679: l_icx_exc EXCEPTION;
3680: BEGIN
3681: l_user_id := fnd_profile.value('USER_ID');
3682: l_resp_id := fnd_profile.value('RESP_ID');
3683: l_resp_appl_id := fnd_profile.value('RESP_APPL_ID');
3684: l_session_id := FND_SESSION_MANAGEMENT.g_session_id;
3685: IF (l_session_id = -1) THEN
3686: IF l_user_id IS NULL OR l_resp_id IS NULL OR l_resp_appl_id IS NULL THEN
3679: l_icx_exc EXCEPTION;
3680: BEGIN
3681: l_user_id := fnd_profile.value('USER_ID');
3682: l_resp_id := fnd_profile.value('RESP_ID');
3683: l_resp_appl_id := fnd_profile.value('RESP_APPL_ID');
3684: l_session_id := FND_SESSION_MANAGEMENT.g_session_id;
3685: IF (l_session_id = -1) THEN
3686: IF l_user_id IS NULL OR l_resp_id IS NULL OR l_resp_appl_id IS NULL THEN
3687: RAISE l_icx_exc;
3833: l_organization_id NUMBER;
3834:
3835: BEGIN
3836: IF l_usage_name IS NULL THEN
3837: fnd_profile.get('CZ_PUBLICATION_USAGE', l_usage_name);
3838: END IF;
3839: l_usage_id := usage_id_from_usage_name(l_usage_name);
3840:
3841: -- Keep these values to lookup common bill, if required