Index: DCTRANSP.mac.rou
===================================================================
diff -u -r29059 -r33608
--- DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 29059)
+++ DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 33608)
@@ -153,12 +153,12 @@
  Kill ^HULP(%J)
  Set GroepNr=""
  For  Set GroepNr=$O(^TRANSP("D",TranspNr,"D",GroepNr)) Quit:GroepNr=""  Do
- . Set SortKey="",KLNr=$P($G(^KU1(GroepNr,"F")),D)
+ . Set SortKey="",KLNr=$P($G(^KU1(GroepNr,"F")),"\")
  . Do:KLNr
  . . Set Node=$$NODE^FLOWBON(GroepNr)
  . . Set R=^KUL(KLNr,Node,GroepNr,3)
- . . Set:$P(R,D,2)="" R=^KKL(^KK1(KLNr),0)
- . . Set SortKey=$$UPTRIMAN^vhRtn1($P(R,D,2))_" "_KLNr
+ . . Set:$P(R,"\",2)="" R=^KKL(^KK1(KLNr),0)
+ . . Set SortKey=$$UPTRIMAN^vhRtn1($P(R,"\",2))_" "_KLNr
  . Set SortKey=SortKey_GroepNr,^HULP(%J,SortKey)=GroepNr
  Quit
  ;