cwABNAMRO 
 ;Quit
 ;
 New R,Periode,AbnAmroNr,VolgNr,Maand,Klant,KLNr,Naam,KlKey,Count
 Kill ^cwABNAMRO
 Set AbnAmroNr=550250,Count=0
 For Maand=0:1:11 Set Periode=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"M",-Maand),"DM4") Do
 . Write !,Periode
 . Set VolgNr=""
 . For  Set VolgNr=$O(^KFI(Periode,AbnAmroNr,VolgNr)) Quit:VolgNr=""  Do
 . . Set R=^KFI(Periode,AbnAmroNr,VolgNr)
 . . Quit:$P(R,D,7)'="K"
 . . Set Klant=$P(R,D,8),KLNr=$P(Klant,"#"),Naam=$P(Klant,"#",2),KlKey=^KK1(KLNr)
 . . Set R=^KKL(KlKey,0)
 . . Quit:$P(R,D,8)'=1147 ; niet Nederland
 . . Set R=^KKL(KlKey,2)
 . . Quit:$P(R,D,10) ; Comecieel niet actief
 . . Set ^cwABNAMRO("K",KlKey)=KLNr
 Set Count=0,KlKey=""
 For  Set KlKey=$O(^cwABNAMRO("K",KlKey)) Quit:KlKey=""  Do
 . Set KLNr=^cwABNAMRO("K",KlKey)
 . Set Count=Count+1,^cwABNAMRO("S",Count)=KLNr
 Write !!,Count
 Kill ^cwABNAMRO("K")
 Quit
 ;
ALL ; Alle ongeacht de bank
 New R,Periode,AbnAmroNr,VolgNr,Maand,Klant,KLNr,Naam,KlKey,Count
 Kill ^cwABNAMRO
 For Maand=0:1:11 Set Periode=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"M",-Maand),"DM4") Do
 . Write !,Periode
 . Set AbnAmroNr=""
 . For  Set AbnAmroNr=$O(^KFI(Periode,AbnAmroNr)) Quit:AbnAmroNr=""  Do
 . . Set VolgNr=""
 . . For  Set VolgNr=$O(^KFI(Periode,AbnAmroNr,VolgNr)) Quit:VolgNr=""  Do
 . . . Set R=^KFI(Periode,AbnAmroNr,VolgNr)
 . . . Quit:$P(R,D,7)'="K"
 . . . Set Klant=$P(R,D,8),KLNr=$P(Klant,"#"),Naam=$P(Klant,"#",2),KlKey=^KK1(KLNr)
 . . . Set R=^KKL(KlKey,0)
 . . . Quit:$P(R,D,8)'=1147 ; niet Nederland
 . . . Set R=^KKL(KlKey,2)
 . . . Quit:$P(R,D,10) ; Comecieel niet actief
 . . . Set ^cwABNAMRO("K",KlKey)=KLNr
 Set Count=0,KlKey=""
 For  Set KlKey=$O(^cwABNAMRO("K",KlKey)) Quit:KlKey=""  Do
 . Set KLNr=^cwABNAMRO("K",KlKey)
 . Set Count=Count+1,^cwABNAMRO("S",Count)=KLNr
 Write !!,Count
 Kill ^cwABNAMRO("K")
 Quit
 ;