VERSLAG4 ;Verslagen [ 05/07/98  10:11 AM ]
 ;
SELECT(Volgens,VRef) 
 New VerslId,Input
 Set Volgens=$G(Volgens),VRef=$G(VRef)
 If Volgens="V",VRef="" Set VRef="?"
 For  Do  Quit:"\-\*\"[(D_Volgens_D)  If $G(VerslId) Quit:$D(^VERSLAG("D",VerslId))
 .If $G(VerslId)="-" Set Volgens=$S($L(VRef):"-",1:"")
 .Set:'$L(Volgens) Volgens=$$ASKL^vhINP("VERSLAG","SELECT")
 .If "\-\*\"[(D_Volgens_D) Kill VerslId Quit
 .If Volgens?.N,$L(Volgens) Set VerslId=Volgens,Volgens="" Quit
 .If Volgens="I" Set VerslId=$$INTPERS(VRef) Quit
 .If Volgens="L" Set VerslId=$$LEVER(VRef) Quit
 .If Volgens="K" Set VerslId=$$KLANT(VRef) Quit
 .If Volgens="P" Set VerslId=$$PROSP(VRef) Quit
 .If "V"[Volgens!zb Set VerslId=$$SELVERID() Quit
 .Set Volgens=""
 Set VerslId=$G(VerslId) Set:'VerslId VerslId=Volgens
 Quit VerslId
 ;
INTPERS(AutoSel) 
 New IntPers,VerslId,FromDate
 Set AutoSel=$G(AutoSel)
 For  Do  Quit:'IntPers  Quit:FromDate="-"&AutoSel  Quit:$D(^VERSLAG("D",VerslId))
 .Set FP=2201 Write @F,@F1
 .Set VerslId="?",IntPers=AutoSel Set:'IntPers IntPers=$$USELECT^vhUSER("","","","VERSLIP","","","","",1,"")
 .If $L(IntPers,";")=1,$G(FromDate)="-" Set VerslId="-" Quit
 .If $L(IntPers,";")'=1 Set IntPers=$$USELECT^vhUSER("","Interne persoon","","VERSLIP") Quit:'IntPers
 .For  Set FromDate=$$ASKL^vhINP("VERSLAG","SELECTDATE") Quit:FromDate="-"  Do  Quit:$D(^VERSLAG("D",VerslId))
 ..Set FromDate=$$INTDATE^vhLib.DataTypes(FromDate) Set:FromDate FromDate=FromDate+1
 ..Set VerslId=$$SELVERID("I",IntPers,FromDate)
 Quit $S(VerslId="?":"-",1:VerslId)
 ;
LEVER(AutoSel) 
 New LEVNr,VerslId
 Set AutoSel=$G(AutoSel)
 For  Do  Quit:'LEVNr  Quit:VerslId="-"&AutoSel  Quit:$D(^VERSLAG("D",VerslId))
 .Set VerslId="?",LEVNr=AutoSel Set:'LEVNr LEVNr=$$SELECT^LEVER() Quit:LEVNr="-"
 .Set VerslId=$$SELVERID("L",LEVNr)
 Quit $S(VerslId="?":"-",1:VerslId)
 ;
KLANT(AutoSel) 
 New KLNr,VerslId
 Set AutoSel=$G(AutoSel)
 For  Do  Quit:'KLNr  Quit:VerslId="-"&AutoSel  Quit:$D(^VERSLAG("D",VerslId))
 .Set VerslId="?",KLNr=AutoSel Set:'KLNr KLNr=$$SELECT^KLANT6() Quit:KLNr="-"
 .Set VerslId=$$SELVERID("K",KLNr)
 Quit $S(VerslId="?":"-",1:VerslId)
 ;
PROSP(AutoSel) 
 New PPn,VerslId
 Set AutoSel=$G(AutoSel)
 For  Do  Quit:"-."[PPn  Quit:VerslId="-"&$L(AutoSel)  Quit:$D(^VERSLAG("D",VerslId))
 .Set VerslId="?",PPn=AutoSel Set:PPn="" PPn=$$SELECT^PROSPECT() Quit:PPn="-"
 .Set VerslId=$$SELVERID("P",PPn)
 Quit $S(VerslId="?":"-",1:VerslId)
 ;
SELVERID(Type,Nummer,TKrea) 
 New X,Y,TVers,Index
 Set Type=$G(Type),Nummer=$G(Nummer)
 If $L(Type),"KLIP"[Type Do
 .Set TKrea=$G(TKrea),Index="I"_Type
 .If $D(^VERSLAG(Index,Nummer)) Set Y="5\\Selekteer een verslag "
 .Else  Set Y="5\\Geen verslagen "
 .If Type="I" Set Y=Y_"via "_$P(^vhUSER("D",Nummer),D,2)
 .Else  Set Y=Y_"van "_$S(Type="L":$P(^KLE(^KL1(Nummer),0),D,2),Type="K":$P(^KKL(^KK1(Nummer),0),D,2),Type="P":Nummer,1:"")
 .Set Y=Y_"\\MORE^VERSLAG4\VERSLAG\F",FP=2101
 Else  Do
 .Set TVers=""
 .If $D(^VERSLAG("D")) Set Y="5\\Selekteer een verslag"
 .Else  Set Y="5\\Geen verslagen "
 .Set Y=Y_"\\MORE^VERSLAG4\VERSLAG\F",FP=2101
 Set FP=2101
 Write @F,@F1
 Xecute "Set Y(0)=$$"_$P(Y,"\",5)_"(0,3)"
 Do ^POP
 Set FP=2101
 Write @F,@F1
 Quit $S(X:Y(X),1:X)
 ;
MORE(Max,Len,Ref) 
 New Index
 If Max>200 w *7 Quit Max
 Set Count=0
 If Max,$D(TKrea),TKrea="" Quit Max
 Set Index="I"_Type
 If $L(Type) Do
 .For  Set TKrea=$O(^VERSLAG(Index,Nummer,TKrea)) Quit:TKrea=""  Do  Quit:Count>Len
 ..Set TVers=""
 ..For  Set TVers=$O(^VERSLAG(Index,Nummer,TKrea,TVers)) Quit:TVers=""  Set Count=Count+1,Y(Max+Count)=TVers
 Else  If TVers="",$O(Y(""),-1)
 Else  For  Set TVers=$O(^VERSLAG("D",TVers),-1) Quit:TVers=""  Do  Quit:Count>Len
 .Set Count=Count+1,Y(Max+Count)=TVers
 Quit Max+Count
 ;
CHKDATE(X) 
 New %INT,%EXT,%TC,er
 Do VALDATE^vhLib.DataTypes(X,"DK","",$H)
 Do:$L($g(er)) STORE^vhTERMINA(),TXT^vhINP(er),REFRESH^vhTERMINA()
 Quit '$L($G(er))
 ;