Index: AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml
===================================================================
diff -u -r38384 -r38397
--- AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml	(.../GeolocationUpsertConverter.cls.xml)	(revision 38384)
+++ AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml	(.../GeolocationUpsertConverter.cls.xml)	(revision 38397)
@@ -7,8 +7,13 @@
 <FormalSpec>Command:AXBizTalk.Crm.Geolocation.Request</FormalSpec>
 <ReturnType>AXBizTalk.Crm.Geolocation.MessageParts</ReturnType>
 <Implementation><![CDATA[
+	Set Agenda = ##class(Derde.Agenda.Agenda).%OpenId(Command.SubjectId)
 	
+	Set Location=##class(AXBizTalk.Crm.Geolocation.Location).%New()
+	Do Location.Fill(Agenda)
+	
 	Set MessageParts = ##class(AXBizTalk.Crm.Geolocation.MessageParts).%New()
+	Set MessageParts.Location = Location
 	
 	Quit MessageParts
 ]]></Implementation>