PROCEDURE P_Set_VA_CurRec(block_name in varchar2, item_name in varchar2, condition in boolean) IS
BEGIN
	if condition then
	  Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_CURRENT_REC_RED');
	else
  	Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_CURRENT_REC');
	end if;
END;

PROCEDURE P_Set_VA_Item(block_name in varchar2, item_name in varchar2, condition in boolean) IS
 current_VA varchar2( 100 );
BEGIN
	current_VA := get_item_property(block_name||'.'||item_name, VISUAL_ATTRIBUTE);

	if current_VA = 'VA_SORT_COL' then 

	  if condition then
	    Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_SORT_COL_RED');
	  else
	   Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_SORT_COL');
	  end if;

	else
	 if condition then
	    Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_OTHER_REC_RED');
	  else
	    Set_Item_Instance_Property(block_name||'.'||item_name, current_record, Visual_Attribute, 'VA_OTHER_REC');
	  end if;
	end if;
END;