Index: cw.mac.rou
===================================================================
diff -u -r1148 -r1188
--- cw.mac.rou	(.../cw.mac.rou)	(revision 1148)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1188)
@@ -6,9 +6,18 @@
 #Include %CHUI.System
  ;
 HeeftUitzondering(KLNr,PRNr,Niveau,SoSa)
- New HeeftUitzondering
- 
- Quit HeeftUitzondering
+ New HeeftUitzondering,KKey,HoofdGroep,Groep,SubGroep
+ If $G(NoSa)="" Set NoSa="N"
+ If NoSa'="N",NoSa'="S" Quit 0
+ Set KKey=$$KKEY^KLASS(PRNr)
+ Set HoofdGroep=$$GETSORT^KLASS(KKey,1)
+ Set:Niveau>1 Groep=$$GETSORT^KLASS(KKey,2)
+ Set:Niveau>2 SubGroep=$$GETSORT^KLASS(KKey,3)
+ Set:Niveau=1 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep))
+ Set:Niveau=2 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep))
+ Set:Niveau=3 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep))
+ Set:Niveau=4 HeeftUitzondering=''$D(^KLPUTZ(NoSa,KLNr,HoofdGroep,Groep,SubGroep,PRNr))
+ Quit +$G(HeeftUitzondering)
  ;
 ok
  Set cw(1)="\Test cw"