Index: EWMS/TransLoc.cls.xml
===================================================================
diff -u -r2331 -r5651
--- EWMS/TransLoc.cls.xml	(.../TransLoc.cls.xml)	(revision 2331)
+++ EWMS/TransLoc.cls.xml	(.../TransLoc.cls.xml)	(revision 5651)
@@ -186,14 +186,15 @@
 
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LocM,LocG,LocX,LocY,LocTrans</FormalSpec>
+<FormalSpec>LocM:%String,LocG:%String,LocX:%String,LocY:%String,LocTrans:%String,IsPickbaar:%Boolean</FormalSpec>
 <Implementation><![CDATA[
 	Set oLoc=..%New()
-	Set oLoc.locm=LocM	
-	Set oLoc.locg=LocG
-	Set oLoc.locx=LocX	
-	Set oLoc.locy=LocY	
-	Set oLoc.loctrans=LocTrans
+	Set oLoc.locm = LocM
+	Set oLoc.locg = LocG
+	Set oLoc.locx = LocX	
+	Set oLoc.locy = LocY
+	Set oLoc.IsPickbaar = $G(IsPickbaar,0)
+	Set oLoc.loctrans = LocTrans
 	
 	Set sc=oLoc.%Save()
 	Quit sc