VANLOOY4 ;Statistiek van de inkomende orders [ 01/09/2003  8:43 AM ]
 Kill  D INIT^vhTERMINA
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 zw %J
 Write !!
 Set ODat=""
 Write !,"Omvormen MBLOG"
 For  Set ODat=$O(^MBLOG("VL",ODat)) Quit:ODat=""  Do
 .Set OUur=""
 .For  Set OUur=$O(^MBLOG("VL",ODat,OUur)) Quit:OUur=""  Do
 ..Set OrdNr=""
 ..For  Set OrdNr=$O(^MBLOG("VL",ODat,OUur,OrdNr)) Quit:OrdNr=""  Do
 ...Set ^HULP(%J,"O",OrdNr)=ODat_D_OUur
 Write !,"Omvormen KUL"
 Set KLNr=0,(Node,ULNr)=""
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do 
 .For  Set Node=$O(^KUL(KLNr,Node)) Quit:Node=""  Do
 ..For  Set ULNr=$O(^KUL(KLNr,Node,ULNr)) Quit:ULNr=""  Do
 ...Set Rec=^(ULNr,1)
 ...Set UDat=$$INTDATE^vhLib.DataTypes($P(Rec,D,2),"DK")
 ...Set UVzw=$P($P(Rec,D,7),"#")
 ...Set ULLNr=100,OrdNr="",Cnt=""
 ...For  Set ULLNr=$O(^KUL(KLNr,Node,ULNr,ULLNr)) Quit:'ULLNr  Do
 ....Set Rec=^(ULLNr)
 ....If $P(Rec,D,17)="KF5" Do
 .....If OrdNr,$D(^HULP(%J,"O",OrdNr)),Cnt Set ^HULP(%J,"O",OrdNr,ULNr)=UDat_D_UVzw_D_Cnt,^HULP(%J,"U",ULNr,OrdNr)=UDat_D_UVzw_D_Cnt
 .....Set OrdNr=$E($P(Rec,D,5),1,6),Cnt=0
 ....Else  If $P(Rec,D,2)?4.7N Set Cnt=Cnt+1
 ...If OrdNr,$D(^HULP(%J,"O",OrdNr)),Cnt Set ^HULP(%J,"O",OrdNr,ULNr)=UDat_D_UVzw_D_Cnt,^HULP(%J,"U",ULNr,OrdNr)=UDat_D_UVzw_D_Cnt
TRANS Read "TRANSFERT",k
 Set OrdNr=""
 For  Set OrdNr=$O(^HULP(%J,"O",OrdNr)) Quit:OrdNr=""  Do
 .Set RecO=^(OrdNr)
 .Set ULNr=""
 .For  Set ULNr=$O(^HULP(%J,"O",OrdNr,ULNr)) Quit:ULNr=""  Do
 ..Set RecU=^(ULNr)
 ..Write OrdNr,$C(9),$TR($$EXTDATE^vhLib.DataTypes($P(RecO,D,1),"DK"),".","-"),$C(9),$$EXTTIME^vhLib.DataTypes($P(RecO,D,2))
 ..Write $C(9),ULNr,$C(9),$TR($$EXTDATE^vhLib.DataTypes($P(RecU,D,1),"DK"),".","-"),$C(9),$P(RecU,D,2),$C(9),$P(RecU,D,3),!
 Write "~~~"