Procedure Pu_Check_Open_Form_Prc(Pv_Menu_Code Varchar2) Is
 vn_open_pvg      Number(1) := 0;
 vm_menu_id       MenuItem;
Begin	
 Begin
  Select Open_Pvg
    Into vn_open_pvg
    From Sec_Menu_Users_Privileges
   Where Menu_Code = Pv_Menu_Code
     And Group_Id  = :Global.Group
     And Owner     = :Global.Owner
     And User_Id   = :Global.User;
 Exception When No_Data_Found Then
	vn_open_pvg := 0;
End;

    
  vm_menu_id := Find_Menu_Item(Pv_Menu_Code);    

 If (vn_open_pvg = 1 And :Global.User <> 'ADMIN') Or (:Global.User = 'ADMIN') Then
 	Call_Form(Pv_Menu_Code, No_Hide, No_Replace, No_Query_Only);
 Else
 	If Not Id_Null(vm_menu_id) Then
 	 Set_Menu_Item_Property(vm_menu_id, Enabled, Property_False);		
 	End If;
 End If;
End;