[Home] [Help]
456:
457: /*** Validation - START ***/
458:
459: /* Exit with Warning if profile MSD_DEM: Debug Mode is set to no */
460: IF (nvl(fnd_profile.value('MSD_DEM_DEBUG_MODE'), 'N') <> 'Y')
461: THEN
462: errbuf := 'Profile MSD_DEM: Debug Mode is set to No. Please set this profile to Yes. Exiting normally without any processing.';
463: retcode := 1;
464: msd_dem_common_utilities.log_message ('Warning(1): msd_dem_update_level_codes.upgrade_geo_level_codes - ' || TO_CHAR(systimestamp, 'DD-MON-YYYY HH24:MI:SS'));
468: msd_dem_common_utilities.log_debug ('Debug Profile is set to Yes');
469: END IF;
470:
471: /* Get the Demantra Schema Name and verify that the five tables are present or not */
472: x_dem_schema := upper(fnd_profile.value('MSD_DEM_SCHEMA'));
473: msd_dem_common_utilities.log_message ('The Demantra schema is - ' || x_dem_schema);
474:
475: EXECUTE IMMEDIATE ' SELECT count(1) FROM dba_objects WHERE owner = ''' || x_dem_schema || ''' and object_name IN (''T_EP_SITE'', ''T_EP_EBS_ACCOUNT'', ''T_EP_EBS_CUSTOMER'', ''T_EP_EBS_TP_ZONE'', ''T_EP_EBS_SUPPLIER'') '
476: || ' AND object_type = ''TABLE'''
487:
488: END IF;
489:
490: /* Verify that the profile MSD_DEM: Use new Site code format is set to No */
491: IF (nvl(fnd_profile.value('MSD_DEM_SITE_CODE_FORMAT'), 2) = 1)
492: THEN
493:
494: errbuf := 'The profile MSD_DEM: Use new Site code format is already set to Yes. This procedure should not be run.';
495: retcode := -1;
697: /*** Update Level codes - END ***/
698:
699:
700: /* Set Profile MSD_DEM_SITE_CODE_FORMAT to Yes */
701: x_ret_val := fnd_profile.save('MSD_DEM_SITE_CODE_FORMAT', 1, 'SITE');
702: COMMIT;
703: msd_dem_common_utilities.log_message ('Profile MSD_DEM_SITE_CODE_FORMAT has been set to Yes at the SITE level.');
704:
705: msd_dem_common_utilities.log_debug('Exiting msd_dem_update_level_codes.upgrade_geo_level_codes' || to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS'));