Index: BL/Legacy/EWORDSW.cls.xml
===================================================================
diff -u -r60084 -r66170
--- BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 60084)
+++ BL/Legacy/EWORDSW.cls.xml	(.../EWORDSW.cls.xml)	(revision 66170)
@@ -120,8 +120,10 @@
 <Implementation><![CDATA[
 	;quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&(($E($P($G(^KPR(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPR(PRNr,0)),"\"),1,4)="ZW7H")) ; Korttekst begint met
 	;quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&(($E($P($G(^KPRO(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPRO(PRNr,0)),"\"),1,4)="ZW7H"))
+	Quit:($D(^KPR(PRNr))&&(##class(TECH.StringUtils).Equals(PRNr,"2087768","2088131","2087821"))) $$$True
 	quit:$D(^KPR(PRNr)) ($D(^KPR(PRNr,"J6332")))&&(($E($P($G(^KPR(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPR(PRNr,0)),"\"),1,7)="SET#TAX")) ; Korttekst begint met
 	quit:$D(^KPRO(PRNr)) ($D(^KPRO(PRNr,"J6332")))&&(($E($P($G(^KPRO(PRNr,0)),"\"),1,11)="SET#TAORBOX")||($E($P($G(^KPRO(PRNr,0)),"\"),1,7)="SET#TAX"))
+	
 	Quit 0
 ]]></Implementation>
 </Method>