my $sqlQuery = "SELECT Object_ID,
									ID,
									Script_Name,
									Sql_Name,
									Min_Length,
									Max_Length,
									Char_Regex,
									Char_Allowed,
									Key_Test_Type,
									Key_Test_Table,
									Key_Test_Field,
									Update_Allowed,
									Display_Transform,
									Update_Transform,
									FieldType,
									FieldDataSource,
									Display_Order
                      FROM OM_ObjectMetaData
                     WHERE OM_ObjectMetaData.Object_ID = ?";

                     
    #print "<!-- $sqlQuery -->\n\n\n\n\n";
                     
    my $query = $dbh->prepare( $sqlQuery );

    $query->execute( $self->{ID} ) || die $dbh->errstr;
   
      
   
   while( @result_array = $query->fetchrow_array )
	{
		$self->{fields}{$result_array[2]}{Object_ID}         = $result_array[0]; 
		$self->{fields}{$result_array[2]}{ID}                = $result_array[1];
		$self->{fields}{$result_array[2]}{Script_Name}       = $result_array[2];
		$self->{fields}{$result_array[2]}{Sql_Name}          = $result_array[3];
		$self->{fields}{$result_array[2]}{Min_Length}  		  = $result_array[4];
		$self->{fields}{$result_array[2]}{Max_Length} 		  = $result_array[5];
		$self->{fields}{$result_array[2]}{Char_Regex} 		  = $result_array[6];
		$self->{fields}{$result_array[2]}{Char_Allowed} 	  = $result_array[7];
		$self->{fields}{$result_array[2]}{Key_Test_Type}  	  = $result_array[8];
		$self->{fields}{$result_array[2]}{Key_Test_Table}    = $result_array[9];
		$self->{fields}{$result_array[2]}{Key_Test_Field}    = $result_array[10];
		$self->{fields}{$result_array[2]}{Update_Allowed}    = $result_array[11];
		$self->{fields}{$result_array[2]}{Display_Transform} = $result_array[12];
		$self->{fields}{$result_array[2]}{Update_Transform}  = $result_array[13];
		$self->{fields}{$result_array[2]}{FieldType}         = $result_array[14];
		$self->{fields}{$result_array[2]}{FieldDataSource}   = $result_array[15];
		$self->{fields}{$result_array[2]}{DisplayOrder}      = $result_array[16];
		
		$self->{fields}{$result_array[2]}{Value}  = "";
 
		$self->{display_order}{$result_array[16]} = $result_array[2];
		
  	}