VERDELER ;VERDELERS [ 09/25/95  3:34 PM ]
 ;
SELECT(IsAkt,DefInp,Titel) 
 New X,Y,Tekst,VERNr,Ver,TVer,DefVER
 Set IsAkt=$G(IsAkt)
 Set DefInp=$G(DefInp)
 Set:'$L($G(DefVER)) DefVER=$G(sRef("VER"))
 If $L(DefVER),'$D(^KVER1(DefVER)) Set DefVER=""
 If DefVER,'$$CHECK(DefVER,IsAkt) Set DefVER=""
 If '$L($G(Titel)) Set Titel="Verdeler : "
 Do ADD^vhScherm(21,24)
 Set VERNr=""
 Set:$L(DefInp) Ver=DefInp
SEL2 Set:'$L(DefInp) Ver=$$ASK^vhINP(Titel,20,"","Ingave verdeler dmv. naam of nummer")
 Set DefInp=""
 Quit:Ver="-"!(Ver=".") Ver
 Set Ver=$$UPTRIMAN^vhRtn1(Ver)
 If Ver=""!zb Do LIST("") Goto SEL2:'VERNr,EXIT
 If Ver?4N,$D(^KVER1(Ver)) Set VERNr=Ver Goto SEL2:'$$CHECK(Ver,IsAkt),EXIT
 Set TVer=$O(^KVER(Ver))
 If $E(TVer,1,$L(Ver))'=Ver Goto SEL2
 If $E($O(^KVER(TVer)),1,$L(Ver))'=Ver Set VERNr=+^KVER(TVer,0) Goto SEL2:'$$CHECK(VERNr,IsAkt),EXIT
 Do LIST(Ver)
 Goto SEL2:'VERNr,EXIT
EXIT Quit VERNr
 
CHECK(VERNr,IsAkt) 
 Quit:'IsAkt 1
 Quit '$P(^KVER(^KVER1(VERNr),2),D,10) 
 
LIST(Kode) 
 New Y,X
 Set TVer=Ver
 If '$L(Ver)  Set Ver="ZZZZZ"
 Set Y="5\\Selecteer een verdeler\\MORE^VERDELER\VERDELER\K"
 X "Set Y(0)=$$"_$P(Y,"\",5)_"(0,3)"
 Quit:'Y(0)
 Do ^POP
 Set:X VERNr=+^KVER(Y(X),0)
 Quit
MORE(Max,Len,Ref) 
 If Max>200 w *7 Quit Max
 Set Count=0
 If Max,TVer="" Quit Max
 For  Set TVer=$O(^KVER(TVer)) Quit:TVer=""!($E(TVer,1,$L(Ver))'=Ver)  Set:$S('IsAkt:1,1:'$P(^KVER(TVer,2),D,10)) Count=Count+1,Y(Max+Count)=TVer Quit:Count>Len
 Set:$E(TVer,1,$L(Ver))'=Ver TVer=""
 Quit Max+Count
 ;