; Routines speciaal Jenny De Mey
 
FindBtwNr
 For  Do  Quit:'%SC
 .Set (KLNr,BtwNrToFind)=""
 . Do NIEUW^vhScherm("FINDBTWNR",,,,,,,"A")
 . Quit:'%SC
 . Set BtwNrToFind=$$UPTRIMAN^vhRtn1(BtwNrToFind)
 . Set KLNr="",Found=0
 . For  Set KLNr=$O(^DLOG("K","KL",KLNr)) Quit:KLNr=""  Do  Quit:Found
 . . Set NextLog=""
 . . For  Set NextLog=$O(^DLOG("K","KL",KLNr,NextLog)) Quit:NextLog=""  Do  Quit:Found
 . . . Set R=^DLOG("K","KL",KLNr,NextLog),BtwNr=$P(R,D,3),Found=BtwNr[BtwNrToFind
 . . . Quit:Found
 . . . Set R=$P(R,D,4),Found=BtwNr[BtwNrToFind
 . Set:'KLNr BtwNrToFind=BtwNrToFind_" - niet gevonden!"
 . Do DISPLAY^vhScherm("FINDBTWNR"),TXT^vhINP("[] = ok",,,1)
 Quit