PVVERS ;Transfert verslag [ 11/08/2003   8:27 PM ]
 Set VanDat=$$INTDATE^vhDTyp("01.01.98","DK")
 Set TotDat=+$H
 Set Dat=VanDat-1
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,$$ASKFILE^vhDEV("TRANSFERT.TXT"),"W")
 Quit:Dev=0
 Use Dev
 For  Set Dat=$O(^VERSLAG("ID",Dat)) Quit:Dat=""  Do
 .Set VersNr=""
 .For  Set VersNr=$O(^VERSLAG("ID",Dat,VersNr)) Quit:VersNr=""  Do
 ..Set Rec=^VERSLAG("D",VersNr,0)
 ..Set Datum=$P(Rec,D,1)
 ..Set VanUur=$P(Rec,D,2)
 ..Set TotUur=$P(Rec,D,3)
 ..Set RefType=$P(Rec,D,5)
 ..Set Ref=$P(Rec,D,6)
 ..Set RefNaam=""
 ..If RefType="LE" Quit
 ..Else  If RefType="KL" Do
 ...Set KLId=$G(^KK1(Ref))
 ...Set:$L(KLId) RefNaam=$P(^KKL(KLId,0),D,2)
 ..Else  Do  ;Prospect
 ...Set RefNaam=$P($G(^VERSLAG("D",VersNr,"A")),D)
 ..Set IPNr=$P($G(^VERSLAG("D",VersNr,"I")),D,1)
 ..If IPNr,$D(^vhUSER("D",IPNr)) Do
 ...Set IPNr=$P(^vhUSER("D",IPNr),D,4)
 ..For EMNr=1:1:$O(^VERSLAG("D",VersNr,"EM",""),-1) Do EMREC(VersNr,EMNr)
 Close:Dev'=$P Dev
 Quit
 
EMREC(VersNr,EMNr) 
 Set Rec=^VERSLAG("D",VersNr,"EM",EMNr)
 Set BezTyp=$P(Rec,D),Subject=$P(Rec,D,2),Concur=$P(Rec,D,3),OhNiv=$P(Rec,D,4)
 Set Verlies=$P(Rec,D,5),Slaag=$P(Rec,D,6),ActDate=$P(Rec,D,7),AktBuit=$P(Rec,D,8)
 Set BezTypOms=$P(Rec,D,9),SubjDiv=$P(Rec,D,10)
 Write $$EXTDATE^vhDTyp(Datum),$C(9),$$EXTTIME^vhDTyp(VanUur),$C(9),$$EXTTIME^vhDTyp(TotUur),$C(9),Ref,$C(9),RefNaam,$C(9),IPNr,$C(9)
 Write $$DISPMEIT^VERSLAG2("AKTBUITEN",AktBuit),$C(9)
 Write $$DISPMEIT^VERSLAG2("BEZTYP",BezTyp),$C(9)
 Write BezTypOms,$C(9)
 Write $$DISPMEIT^VERSLAG2("SUBJECT",Subject),$C(9)
 Write $$DISPMEIT^VERSLAG2("CONCUR",Concur),$C(9)
 Write SubjDiv,$C(9)
 Write $$DISPMEIT^VERSLAG2("OHNIV",OhNiv),$C(9)
 Write $$DISPMEIT^VERSLAG2("VERLIES",Verlies),$C(9)
 Write $$DISPMEIT^VERSLAG2("SLAAG",Slaag),$C(9)
 Write $$EXTDATE^vhDTyp(ActDate)
 Write !
 Quit