; Routines speciaal An Onraedt
 Quit
 
 
Translate(Value)
 Quit $TR(Value,".",",")
 ;
Dev(FileName,User)
 Quit "\\Notes01\Shared\"_$P(^vhUSER("D",$$USERID^vhUSER($G(User,QU(1)))),D,6)_D_FileName
 
 
 ; Geef lijst van alle commercieel actieve scholen
Scholen
 Set (KlKey,Count)=0,Dev=$$Dev("AONScholen.Txt")
 Open Dev:"NW"
 Use Dev
 Write "Klant",$C(9),"Naam",$C(9),"Toenaam",$C(9),"Adres",$C(9),"Postnummer",$C(9),"Woonplaats",$C(9),"Land",$C(13)
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,1),Activiteit=$P(R,D,11)
 . Quit:Activiteit'="Scholen"
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D),KlNaam=$P(R,D,2),KlToeNaam=$P(R,D,3),KlAdres=$P(R,D,5),KlPostnummer=$P(R,D,6),KlWoonplaats=$P(R,D,7),KlLand=$P(R,D,8)
 . Set R=^KKL(KlKey,2),CommAktief='$P(R,D,10)
 . Quit:'CommAktief
 . Write KLNr,$C(9),KlNaam,$C(9),KlToeNaam,$C(9),KlAdres,$C(9),KlPostnummer,$C(9),KlWoonplaats,$C(9),$$LAND^vhRtn1(KlLand,2),$C(13)
 Close Dev
 Quit