BEGIN
      /* First hide all the menu items under Forms and reports and display 
         only the needed  ones from table */
      HIDE_FORMS_REPORTS_ITEM;   /* Please see the code for these
                                    procedures below. */
      POPULATE_MENU_ITEMS;
    END;

    BEGIN
      Call_Form('APP-MENU',NO_HIDE,DO_REPLACE);
      Replace_Menu('MAIN');

      /* First hide all the menu items under forms and reports and display
         only  */

      Hide_Forms_Reports_Item;
      Populate_Menu_Items;
    END;

    BEGIN
      Call_Module('FRM0x');  /* Where x ranges from 1 to n */
    END;

    BEGIN
      Call_Module('REP0x');  /* Where x ranges from 1 to n */
    END;

PROCEDURE Hide_Forms_Reports_Item IS
  mi_id  MENUITEM;
  I      INTEGER;
  v_forms NUMBER(2);
  v_reports NUMBER(2);
BEGIN
  FOR I IN 1..5 LOOP 
    /*
    ** NOTE : Assumption was that the maximum modules are known at 
    **        design time. Change the loop counter accordingly. 
    */
    mi_id := Find_Menu_Item('FORMS_MENU.FRM0'||TO_CHAR(I));
    Set_Menu_Item_Property( mi_id, DISPLAYED, PROPERTY_FALSE );      
    mi_id := Find_Menu_Item('REPORTS_MENU.REP0'||TO_CHAR(I));
    Set_Menu_Item_Property( mi_id, DISPLAYED, PROPERTY_FALSE );      
  END LOOP;  

  SELECT COUNT(*)
  INTO v_forms
  FROM customize_menu
  WHERE cm_type = 'FORMS'
    AND cm_displayed = 'Y'
  ;     
  mi_id := Find_Menu_Item('CUSTOMIZE_MENU.FORMS');   
  IF v_forms = 0 THEN
     Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_FALSE);
  ELSE
     Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_TRUE);
  END IF;

  SELECT COUNT(*)
  INTO v_reports
  FROM customize_menu
  WHERE cm_type = 'REPORTS'
    AND cm_displayed = 'Y'
  ;     
  mi_id := Find_Menu_Item('CUSTOMIZE_MENU.REPORTS');   
  IF v_reports = 0 THEN
     Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_FALSE);
  ELSE
     Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_TRUE);
  END IF;


  mi_id := Find_Menu_Item('MAIN_MENU.CUSTOMIZE');   
  Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_TRUE);
  IF v_forms = 0 and v_reports = 0 THEN
    Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_FALSE);
  ELSE
    Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_TRUE);
  END IF;
END;  /* End of Procedure Hide_Forms_Reports_Item */

PROCEDURE Populate_Menu_Items IS

  mi_id         MenuItem;
  menufound     BOOLEAN := FALSE;

  Cursor C1 is
        Select * from customize_menu; 

BEGIN

  FOR C IN C1 LOOP
     IF c.cm_type = 'MENUITEM' THEN
        menufound := TRUE;
        mi_id := Find_Menu_Item('MAIN_MENU.CUSTOMIZE');
        Set_Menu_Item_Property(mi_id, LABEL, c.cm_label);
     ELSE
        mi_id := Find_Menu_Item(c.cm_type || '_MENU.' || c.cm_name);   
        Set_Menu_Item_Property(mi_id, LABEL, c.cm_label);
        mi_id := Find_Menu_Item(c.cm_type || '_MENU.' || c.cm_name);   
        Set_Menu_Item_Property(mi_id, LABEL, c.cm_label);
        IF c.cm_module IS NULL THEN
             Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_FALSE);
        ELSE    
              Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_TRUE); 
              IF UPPER(c.cm_displayed) = 'N' THEN
                 Set_Menu_Item_Property(mi_id, DISPLAYED, PROPERTY_FALSE);
              ELSIF UPPER(c.cm_displayed) = 'Y' and UPPER(c.cm_enabled) = 'N' THEN
                 Set_Menu_Item_Property(mi_id, ENABLED, PROPERTY_FALSE);
              ELSE
                 Set_Menu_Item_Property(mi_id, ENABLED, PROPERTY_TRUE);              
              END IF;
        END IF;
     END IF;                      
  END LOOP;
  /* If Modulename is not entered for the Menu item, defaults to Customize. */
  IF NOT menufound THEN
        Set_Menu_Item_Property('MAIN_MENU.CUSTOMIZE', LABEL, 'C&ustomize');
  END IF;
END; /* End of Procedure Populate_Menu_Items */

PROCEDURE Call_module ( p_cm_name Varchar2) IS
        v_cm_type varchar2(30);
        v_cm_module varchar2(30);

BEGIN
        SELECT cm_type, cm_module 
        INTO v_cm_type, v_cm_module
        FROM customize_menu
        WHERE cm_name = p_cm_name;

        IF v_cm_type = 'FORMS' THEN
                Call_Form( v_cm_module, HIDE, NO_REPLACE );
        ELSE
                Run_Product( REPORTS, v_cm_module, SYNCHRONOUS, RUNTIME, FILESYSTEM, NULL, NULL );
        END IF;

EXCEPTION
        WHEN OTHERS THEN
        MESSAGE('When Others error...'||sqlerrm);
END;