ewstat ;EWMS Statistieken [ 11/08/2003   8:27 PM ]
 New Cnt,CONSNr,ORDNr,OLUNr,SOLNr,Rec,KLNr,TeDoen,Error,BonErr,VzwAf,Mag,MagLijst
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"TEST.TXT","W")
 U Dev
 Set (CONSNr,ORDNr,OLUNr,SOLNr)=""
 Merge BonErr=^EWREC("BONERR") Kill ^EWREC("BONERR")
 Set BonErr=0
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
 . Kill Cnt
 . Set Rec=^ORDW("D",CONSNr)
 . Set KLNr=$P(Rec,D)
 . Set Status=$P(Rec,D,20)
 . Quit:Status="K"
 . Quit:Status=""
 . Set IsOrgal=$$ISORGAL^FLOWCHK("L",CONSNr)
 . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 .. For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ... Set Rec=^(OLUNr)
 ... Set Rec=$P(Rec,D,3)="z"
 ... Set Rec=$P(Rec,D,3)="t"
 ... For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 .... Set Rec=^(SOLNr)
 .... Set SoftV=$P(Rec,D,13)
 .... Quit:SoftV=""
 .... Set:SOLNr#100=0 Cnt(SoftV)=$G(Cnt(SoftV))+1
 .Set SoftV=""
 .For  Set SoftV=$O(Cnt(SoftV)) Quit:SoftV=""  Do
 .. Set Rec=$G(^ORDW("D",CONSNr,"S",SoftV))
 .. Quit:Rec=""
 .. Set Begin=$P(Rec,D,3)
 .. Set Datum=$$EXTDATE^vhDTyp(+Begin,"DK")
 .. Set Status=$P(Rec,D,1)
 .. Set Begin=$$EXTTIME^vhDTyp($P(Begin,",",2)\(15*60)*(15*60))
 .. Set Eind=$$EXTTIME^vhDTyp($P($P(Rec,D,4),",",2)\(15*60)*(15*60))
 .. Write CONSNr,$C(9),KLNr,$C(9),IsOrgal,$C(9),SoftV,$C(9),Status,$C(9),Datum,$C(9),Begin,$C(9),Eind,$C(9),Cnt(SoftV),!
 Close:Dev'=0 Dev
 Q