 	<cfset temp = queryAddColumn(q,"fDatum", "VarChar", datumAr)>
 	
 	<cfreturn q>
-</cffunction>+</cffunction>

		
		<!--- Parts Formatting --->
		<cfset formatted_parts = "">
		<!-- Mammals -->
		<cfset colonPos = find(";", parts)>
		<cfset tissueP = find("tissue", parts)>
		<cfset skinP = find("skin", parts)>
		<cfset wholeOrgP = find("whole organism", parts)>
		<cfset preserveP = find("alcohol", parts)>
		<cfset skelP = find ("skeleton", parts)>
		
		<!-- Mamm -->
		<cfif collection_cde is "Mamm">
			<cfset formatted_parts = "#parts#">
		<!-- Bird -->
		<cfelseif collection_cde is "Bird">
			<cfif colonPos gt 0 or (tissueP lte 0 and skinP lte 0 and wholeOrgP lte 0)>
				<cfset formatted_parts = "#parts#">
			</cfif>
			
		<!-- Herp -->
		<cfelseif collection_cde is "Herp" >
 			<cfif colonPos gt 0 or (tissueP lte 0 and skinP lte 0 and wholeOrgP lte 0)>
				<cfset formatted_parts = "#parts#">
			</cfif>
		<!-- Egg -->
		<cfelseif collection_cde is "Egg">
			<cfif colonPos gt 0 or (tissueP lte 0 and skinP lte 0 and wholeOrgP lte 0)>
				<cfset formatted_parts = "#parts#">
			</cfif>
		</cfif>
		
		<cfset newParts = "">
		<cfloop list="#formatted_parts#" delimiters=";" index="p">
			<cfset tissueP = find("tissue", p)>
			<cfset wholeOrgP = find("whole organism", p)>
			<cfif tissueP lte 0 and wholeOrgP lte 0>
				<cfif len(newParts) gt 0>
					<cfset newParts = "#newParts#; #p#">
				<cfelse>
					<cfset newParts = "#p#">
				</cfif>
			</cfif>
		</cfloop>
		
		<cfset formatted_parts = "#newParts#">
		<cfset formatted_parts = "#ReplaceNoCase(formatted_parts, 'alcohol', 'ETOH', 'all')#">
		<cfset pAr[i] = "#formatted_parts#">
		
		<!--- Sex --->

	<cfset i = 1>
	<cfloop query="q">

		<!--- Geography = Spec_Locality + State + county + country + other geography attributes--->
		<cfset geog = "#spec_locality#">
		<cfif #country# is "United States">
			<cfif len(#county#) gt 0>string
				<cfset geog = "#geog#, #county#">
			</cfif>
			<cfif len(#state_prov#) gt 0>
