Index: cw.mac.rou
===================================================================
diff -u -r1134 -r1148
--- cw.mac.rou	(.../cw.mac.rou)	(revision 1134)
+++ cw.mac.rou	(.../cw.mac.rou)	(revision 1148)
@@ -5,20 +5,10 @@
 #Include %Prod.Product
 #Include %CHUI.System
  ;
-co
- Set KLNr=0
- For  Set KLNr=$O(^KOD(KLNr)) Quit:'KLNr  Do
- . Set ORDNr=""
- . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:'ORDNr  Do
- . . Set OLNr=100
- . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do
- . . . Set OrdRec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(OrdRec,D,2),Aantal=$P(OrdRec,D,3),TOENr=$P(OrdRec,D,27),TLNr=$P(OrdRec,D,28)
- . . . Quit:'PRNr  Quit:'TOENr  Quit:'TLNr
- . . . Set LEVNr=$P(^KTO1(TOENr),D),ToeRec=^KTO(LEVNr,TOENr,TLNr)
- . . . ;If PRNr=$P(ToeRec,D,2),Aantal=$P(ToeRec,D,3),ORDNr=$P(ToeRec,D,27),OLNr=$P(ToeRec,D,28) Quit
- . . . If Aantal=$P(ToeRec,D,3),ORDNr=$P(ToeRec,D,27),OLNr=$P(ToeRec,D,28) Quit
- . . . Write !!,OrdRec,!,ToeRec
- Quit
+HeeftUitzondering(KLNr,PRNr,Niveau,SoSa)
+ New HeeftUitzondering
+ 
+ Quit HeeftUitzondering
  ;
 ok
  Set cw(1)="\Test cw"