~DeclareGeometry(@aoi)~
SELECT @aoi = geometry::STPolyFromText('polygon((
-121.157072910308 46.0181639308995,
-121.321280753631 45.9248106152548,
-121.348997869021 45.9168439802811,
-121.157072910308 46.0181639308995))', 4326)
~DeclareIdGeomTable(@intersectedPolygonGeometries)~
~GetClippedMapunits(@aoi,polygon,geo,@intersectedPolygonGeometries)~
~DeclareIdGeogTable(@intersectedPolygonGeographies)~
~GetGeogFromGeomWgs84(@intersectedPolygonGeometries,@intersectedPolygonGeographies)~
SELECT id, SUM(geog.STArea()) AS area
INTO #aggarea FROM @intersectedPolygonGeographies
GROUP BY id;
SELECT mukey AS MUKEY, area AS Area, musym AS Map_unit_symbol, nationalmusym AS National_symbol, areasymbol AS Area_symbol, mucertstat As Certification_status
FROM #aggarea A, mapunit M, legend L
WHERE A.id = M.mukey AND M.lkey = L.lkey
ORDER BY id;
SELECT id AS mukey, area FROM #aggarea