TEST1
 S LEVNr=7587,BONNr=337655,LijnNr=100
 For  Set LijnNr=$O(^KUL(LEVNr,"T",BONNr,LijnNr)) Quit:LijnNr=""  Do
 . Set xLijn=^KUL(LEVNr,"T",BONNr,LijnNr),PRNr=$Piece(xLijn,"\",2)
 . If PRNr["434382" w LijnNr," ",xLijn,!
 Quit