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