/* Copyright (c) Oracle Corporation 1994.  All Rights Reserved */

/*****************************************************************************
  NAME
    fsql60.dei - Windows Forms 4.5 database tables scripts de-install

  DESCRIPTION
    This script removes the database tables creation scripts for Forms 4.5

  OWNER
    Amanda Harrison

  MODIFIED      MM/DD/YY    Reason
   aharriso     12/22/95    Added OS independent paths.
   aharriso     08/21/94    Set deinstall path.
   rbansal      04/22/95    Installer 3.1 compliant
   rbansal      12/12/94    Created
*****************************************************************************/

{

    {doit = execute("%installer_home%%dir_separator%%operating_system%.dei");}
    [
        'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2",
                                                           "The version of the Installer currently running is %%installer_version%%. The product(s) you have chosen to deinstall were installed with a later version of the Installer. Please use a later version of the Installer to deinstall these Product(s).")));
    ]

    if (doit)
    {

        /************************************************
         Set necessary variables for deinstallation
        *************************************************/
        EXECUTE_SCRIPT = "SET_DEINSTALL_VARIABLES";
        execute("%installer_home%\d2kr2dei.usr");
        /************************************************/
        /************************************************
        Create a label with the product name, and version
        *************************************************/
        EXECUTE_SCRIPT = "CREATE_LABEL";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

        /****************************
        Set up product name variables
        *****************************/
        PARENT_PRODUCT         = registry_parent(current_registry);
        PARENT_REGISTRY_NAME   = registry_name(PARENT_PRODUCT);
        /****************************/

        /************************
        Set deinstallation path
        *************************/
        deinstall_location = "%oracle_home%%dir_separator%D2KDBTAB%dir_separator%FORMS60";

        /***************************/

        permit_retry_operations  = TRUE;
        permit_ignore_operations = TRUE;
        permit_process_operations= TRUE;

        /*********************************************
        Unreference Forms Database Tables Dependencies
        **********************************************/
        ui_product(instantiate(display_registry_label));
        ui_action(instantiate(unreference_dependencies));

        {unreference(registration(registry_name(registry_parent(current_registry))), current_registry);}    /* Unreference the parent */
        ['UNREGISTERED_PRODUCT: continue();]
        /*********************************************/

        /*********************
        Unregister the product
        **********************/
        ui_product(instantiate(display_registry_label));
        ui_action(instantiate(deinstall_unregister));
        unregister(current_registry);
        /*********************/

        /************************************************
        Deinstall parent if no other child product exists
        *************************************************/
        EXECUTE_SCRIPT = "DEINSTALL_PARENT";
        execute("%installer_home%%dir_separator%d2kr2dei.usr");
        /************************************************/

        /********************
        Deinstall the product
        *********************/
        full_path = "%deinstall_location%";

        ui_product(instantiate(display_registry_label));

        ui_action(instantiate(deinstall_files));
        remove(sql);
        remove(deinst);
        /********************/

        permit_retry_operations = FALSE;


    }
}