[Home] [Help]
1386: --
1387: -- note: if the profile is null or -1, then
1388: -- the data mining database is local to the
1389: -- CRM database.
1390: l_dblink := FND_PROFILE.value ('AMS_ODM_DBLINK');
1391: IF l_dblink IS NOT NULL OR l_dblink <> '-1' THEN
1392: l_source_object := l_source_object || '@' || l_dblink;
1393: END IF;
1394:
1392: l_source_object := l_source_object || '@' || l_dblink;
1393: END IF;
1394:
1395: -- changed rosharma 18-nov-2003
1396: --l_odm_schema := FND_PROFILE.value ('AMS_ODM_OUTPUT_SCHEMA');
1397: l_odm_schema := FND_ORACLE_SCHEMA.GetOuValue('ODMSCHEMA');
1398: IF (AMS_DEBUG_HIGH_ON) THEN
1399: AMS_Utility_PVT.debug_message (L_API_NAME || ' - ODM output schema: ' || l_odm_schema);
1400: END IF;
1501:
1502: EXECUTE IMMEDIATE 'DROP VIEW ' || l_training_view ;
1503: EXECUTE IMMEDIATE 'DROP VIEW ' || l_test_view;
1504:
1505: IF FND_PROFILE.Value('AMS_DM_USE_DBLINK') = 'N' OR FND_PROFILE.Value('AMS_DM_USE_DBLINK') IS NULL THEN
1506: -- Also delete synonyms for the views in the ODM schema
1507: EXECUTE IMMEDIATE 'DROP synonym ' || l_odm_schema || '.' || l_training_view;
1508: EXECUTE IMMEDIATE 'DROP synonym ' || l_odm_schema || '.' || l_test_view;
1509:
1523: -- drop the apply view
1524: EXECUTE IMMEDIATE 'DROP VIEW ' || l_apply_view;
1525:
1526:
1527: IF FND_PROFILE.Value('AMS_DM_USE_DBLINK') = 'N' OR FND_PROFILE.Value('AMS_DM_USE_DBLINK') IS NULL THEN
1528: -- Also drop synonyms for the view in the ODM schema
1529: EXECUTE IMMEDIATE 'DROP synonym ' || l_odm_schema || '.' || l_apply_view ;
1530: IF (AMS_DEBUG_HIGH_ON) THEN
1531: AMS_Utility_PVT.debug_message ('drop synonyms for apply views in ' || l_odm_schema || ' schema.' );
1912:
1913: EXECUTE IMMEDIATE 'CREATE OR REPLACE VIEW ' || l_test_view || ' AS ' || l_sql_str || ' AND s.training_data_flag = ''N''';
1914: -- fix for bug # 4027150. ( Added table alias before the column name )
1915:
1916: IF FND_PROFILE.Value('AMS_DM_USE_DBLINK') = 'N' OR FND_PROFILE.Value('AMS_DM_USE_DBLINK') IS NULL THEN
1917: -- Grant SELECT permissions to the ODM schema to read from these view
1918: EXECUTE IMMEDIATE 'GRANT SELECT on ' || l_training_view || ' to ' || l_odm_schema;
1919: EXECUTE IMMEDIATE 'GRANT SELECT on ' || l_test_view || ' to ' || l_odm_schema;
1920:
1979: END IF;
1980:
1981: EXECUTE IMMEDIATE 'CREATE OR REPLACE VIEW ' || l_apply_view || ' AS ' || l_sql_str;
1982:
1983: IF FND_PROFILE.Value('AMS_DM_USE_DBLINK') = 'N' OR FND_PROFILE.Value('AMS_DM_USE_DBLINK') IS NULL THEN
1984: -- Grant SELECT permissions to the ODM schema to read from apply view
1985: EXECUTE IMMEDIATE 'GRANT SELECT on ' || l_apply_view || ' to ' || l_odm_schema;
1986:
1987: -- Also create synonyms for the view in the ODM schema