Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r50741 -r50894
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 50741)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 50894)
@@ -1074,6 +1074,19 @@
 	}
 	quit
 
+VersturenGLSParcels
+	try { 
+ 		Do InitRuntimeContext
+ 		#dim Datum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDateVoorQueries()
+ 		#dim ParcelQuery As %String = "select ID from APPS_TRANSP_GLS_GLSv1_data.VerzendData Where VerzendWijze = 'Parcel' and TijdstipLaatsteWijziging %StartsWith '{0}' and LaatsteRequestType = 'Registratie' order by ID DESC"
+ 		Set ParcelQuery = ##class(TECH.StringUtils).BuildText(ParcelQuery, Datum)
+		Do ##class(vhPowerTools.APPS.TRANSP.GLS.Bevestiger).ProcessQueryAsync(ParcelQuery)
+		}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()