DECLARE
	v_len varchar2(25):=:uin;
	v_len1 varchar2(25);
	it_id Item;
BEGIN
	  it_id := Find_Item('uin');
    v_len1:=length(v_len);
    if v_len1 = 13 then
		set_item_property(it_id,Format_Mask,'FM99999"-"9999999"-"9');
    else
    	set_item_property(it_id,Format_Mask,'FM999"-"99"-"999999');
		end if;    	      
END;

it_id := Find_Item('uin');

PROCEDURE CALC_VALUE IS 
   new_value NUMBER;
   v_len varchar2(25); 
   BEGIN 
   	   new_value := TO_NUMBER(:System.current_Value);
   	   v_len := length(new_value);
   	   if v_len = 13 then
   	   	set_item_property(:system.trigger_item,Format_Mask,'FM99999"-"9999999"-"9');
   	   else
   	  
   	   	set_item_property(:system.trigger_item,Format_MAsk,'FM999"-"99"-"999999');
   	   	end if;
   	   --Copy(TO_CHAR(new_value), :System.Cursor_Item); 
   	   END;