declare 
      new_budcode cat_acct.t_voudetl.t_vou_budgcode%type;
      old_budcode cat_acct.t_voudetl.t_vou_budgcode%type;  		
      new_remarks cat_acct.t_voudetl.t_vou_remarks%type;
      old_remarks cat_acct.t_voudetl.t_vou_remarks%type;  		                                                             
                              
  begin		
 	

  	    old_budcode := get_item_property('t_voudetl.budgcode',DATABASE_VALUE); 
  	    new_budcode := :t_voudetl.budgcode;
  	    old_remarks := get_item_property('t_voudetl.t_vou_remarks',DATABASE_VALUE); 
  	    new_remarks := :t_voudetl.t_vou_remarks;
  	       
  	    if old_budcode is null and new_budcode is null then
  	  	    null;
  	    else
  	        if :system.record_status <> 'INSERT'	 then
  	            if old_budcode = new_budcode then
  	  	            message('Not Changed');
  	  	            pause;
  	            else
  	  	            message('Changed Old Record');
  	  	            pause;
  	  	            if new_remarks is null then
  	  	               message('Some Remarks Must be entered');
  	  	               pause;
  	  	               raise form_trigger_failure;	
  	  	            else
  	  	            	if new_remarks = old_remarks then
  	  	                  message('Some Remarks Must be Changed');
  	  	                  pause;  	  	            		
  	  	                  raise form_trigger_failure;	  	  	                  
  	  	            	end if;	
 	  	              end if;
  	            end if;
  	        else
  	  	       message('New Record');
  	  	       pause;
 	               message('Some Remarks Must be entered');
 	               pause;
 	               raise form_trigger_failure;	
  	
  	        end if;   
   	  end if;
end;