cwdelkl ; ;[ 07/10/2001  10:01 AM ]
 ;
 New
 Do INIT^vhTERMINA
 Write @F11,@F1
 Set (KlantId,Count)=0,Regio=91
 Write !!!!!!!!!!!!!!!!!!!!!!!!!!,"Bent u zeker dat u de klanten van regio ",Regio," wil verwijderen ? "
 Read !,"Ja[] = ja ",R
 Do:R="Ja"
 .Write @F11,@F1,!,"Verwijderen verwijderbare klanten regio ",Regio
 .For  Set KlantId=$O(^KKL(KlantId)) Quit:KlantId=""  Do
 ..Set R=^KKL(KlantId,0)
 ..Quit:$P(R,D,20)'=Regio  Quit:$O(^KKL(KlantId,12))'=""
 ..Set KLNr=$P(R,D)
 ..Quit:$D(^KSTKL(KLNr))
 ..Set FP=301
 ..Write @F,"Klant : ",$P(R,D)," ",$P(R,D,2),@F2
 ..Set FP=409
 ..Write @F,$P(R,D,5),@F2
 ..Set FP=509
 ..Write @F,$P(R,D,7),@F2
 ..Do X^cAN220("KL","LVH1",KlantId)
 ..Set Count=Count+1
 Quit
 ;