Index: TRANSPXZ.mac.rou
===================================================================
diff -u -r29059 -r50584
--- TRANSPXZ.mac.rou	(.../TRANSPXZ.mac.rou)	(revision 29059)
+++ TRANSPXZ.mac.rou	(.../TRANSPXZ.mac.rou)	(revision 50584)
@@ -144,7 +144,7 @@
  If VervRef,GroepNr
  Else  Set R=$$GETREFS(PROFNr),VervRef=$P(R,";"),GroepNr=$P(R,";",2)
  Set R=^TRANSP("D",VervRef),TranspNr=$P(R,D)
- Do @("RPLGRP"_$S(TranspNr'=5036:"",1:"^TRANSP")_"(VervRef,GroepNr,PROFNr)")
+ Do @("RPLGRP"_$S('##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr):"",1:"^TRANSP")_"(VervRef,GroepNr,PROFNr)")
  Quit
  ;
 LOCK(VervRef,GroepNr)