BLKALS ;Selecteer een verwerkte KAL op LevNr of SO/DO [ 11/04/96  11:04 AM ]
 New Y,X
 Set Y=0,(LevNr,SoDo)=""
 For  Set LevNr=$O(^BLTO(LevNr)) Quit:LevNr=""  Do
 .For  Set SoDo=$O(^BLTO(LevNr,SoDo)) Quit:SoDo=""  Do
 ..Set Y=Y+1,Y(Y)=LevNr_D_SoDo_D_$G(^BLTO(LevNr,SoDo))
 Quit:Y=0
 Set X=$$EDIT^vhPOPUP("C;C","W","Y",1,"I","F2bR-","Selecteer KAL","BLKAL;SELECT")
 Quit:'X
 Set LevNr=$P(X,"`"),SoDo=$P(X,"`",2)
 Quit