BLKLANT ;BLUM KLANT Selectie [ 05/29/96  9:20 AM ]
 
SELECT(Optie,Pos,DefInp,Titel) 
 New Y,X,Cnt,KLNr
 Set DefInp=$G(DefInp)
 Set KLNr="",Cnt=0,X=""
 ;Fetch en sort
 For  Set KLNr=$O(^BLBeri("K",KLNr)) Quit:KLNr=""  Do
 .Set Y($J($P(^BLBeri("K",KLNr),D,4),4)_KLNr)=KLNr_" | "_$P(^BLBeri("K",KLNr),D)_D_KLNr
 ; Renumber, selecteer default
 For  Set KLNr=$O(Y(KLNr)) Quit:KLNr=""  Do
 .Set Cnt=Cnt+1
 .Set Y(Cnt)=Y(KLNr)
 .Set:DefInp[$P(Y(Cnt),D,2) X=X_";"_Cnt
 .Kill Y(KLNr)
 ; Display
 Set $E(X,1)=""
 Set Y(0)=Cnt
 Set Y=$S($G(Pos):Pos,1:22)_D_$G(Optie)_D_$S($L($G(Titel)):Titel,1:"Blum klanten  ([] = Selectie)")
 Do ^POP
 Quit:'X X
 Set Y=X,X=""
 For Cnt=1:1:$L(Y,";") Set X=X_";"_$P(Y($P(Y,";",Cnt)),D,2)
 Quit $E(X,2,99)