Index: Flow/NieuwDocHoofding.mac.rou
===================================================================
diff -u -r29059 -r44496
--- Flow/NieuwDocHoofding.mac.rou	(.../NieuwDocHoofding.mac.rou)	(revision 29059)
+++ Flow/NieuwDocHoofding.mac.rou	(.../NieuwDocHoofding.mac.rou)	(revision 44496)
@@ -26,7 +26,7 @@
  S @$P(U2,U,16)=B($P(U2,U,16)) K B($P(U2,U,16)) G VerwerkEenRubriek
 AlleRubriekenVerwerkt
  S T=0 G AlleRubriekenVerwerkt39:UR'="A"
- S UR=$$GETNUM^FLOW(Q_UGL,Q_UG1)
+ S UR=$$GETNUM^FLOW(Q_UGL,Q_UG1,$G(UTYP))
  I UUR S U1=UUR-1,SW11=1 G VerwerkEenRubriek
 AlleRubriekenVerwerkt39
  K A S @("^"_Q_UG1_"(UR,US)")=KC_D,@("^"_Q_UG2_"(US,KC,UR)")="",@("^"_Q_UGL_"(KC,US,UR,0)")=101,SW13=1 L @("^"_Q_UGL_"(KC,US,UR)")
@@ -52,4 +52,3 @@
  ; Datumcontrole $P($T(DCTR),";",2)
 DCTR ;$$DCTR^vhRtn2(.K)
  ;
-