Index: FLOW.mac.rou
===================================================================
diff -u -r50368 -r54783
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 50368)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 54783)
@@ -250,7 +250,7 @@
  Set Count=0,DERDENr=""
  For  Set DERDENr=$O(@($$GLOREF(2,DERDENr))) Quit:DERDENr=""  Do
  .Set RefNr=""
- .For  Set RefNr=$O(@($$GLOREF(2,DERDENr,RefNr))) Quit:RefNr=""  Set ^HULP(%J,RefNr)=DERDENr
+ .For  Set RefNr=$O(@($$GLOREF(2,DERDENr,RefNr))) Quit:RefNr=""  Set:($Data(@($$GLOREF("H",RefNr)))) ^HULP(%J,RefNr)=DERDENr
  Quit
  ;
 RPLKL