Index: TRANSPXF.mac.rou
===================================================================
diff -u -r29059 -r50584
--- TRANSPXF.mac.rou	(.../TRANSPXF.mac.rou)	(revision 29059)
+++ TRANSPXF.mac.rou	(.../TRANSPXF.mac.rou)	(revision 50584)
@@ -143,7 +143,7 @@
  If VervRef,GroepNr
  Else  Set R=$$GETREFS(FANr),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,FANr)")
+ Do @("RPLGRP"_$S('##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr):"",1:"^TRANSP")_"(VervRef,GroepNr,FANr)")
  Quit
  ;
 LOCK(VervRef,GroepNr)