VANLOOY5 ;Verschillende routines voor het export van gegevens voor de magazijn analyze van VAN LOOY ;[ 04/03/2003  4:33 PM ]
 
PARETO ; PARETO analyse
 k  d INIT^vhTERMINA
 S %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set BeginDat=$$INTDATE^vhLib.DataTypes("01.04.97")
 Set EndDat=$$INTDATE^vhLib.DataTypes("31.03.98")
 s Dat=-$H,Vrzw=""
 f  s Dat=$O(^KU3(Dat)) Quit:Dat=""  f  S Vrzw=$O(^KU3(Dat,Vrzw)) Quit:Vrzw=""  Do 
 .Quit:(-Dat)<BeginDat
 .Quit:(-Dat)>EndDat
 .s UL=""
 .f  s UL=$O(^KU3(Dat,Vrzw,UL)) Quit:UL=""  Do
 ..Set KLNr=$P(^KU3(Dat,Vrzw,UL),D)
 ..Set Node=$P(^KU3(Dat,Vrzw,UL),D,2)
 ..Set Lijn=90
 ..Set Dt=$$EXTDATE^DTyp(-Dat,"DKP")
 ..Set Vzw=$E(Vrzw,1,2)
 ..For  Set Lijn=$O(^KUL(KLNr,Node,UL,Lijn)) Quit:'Lijn  Do
 ...Set Rec=^KUL(KLNr,Node,UL,Lijn)
 ...Quit:'$P(Rec,D,2)&($P($P(Rec,D,17),"#")'="KF1925")
 ...Set PRNr=$P(Rec,D,2)
 ...If PRNr Do
 ....If $D(^KPR(PRNr)) Do
 .....Set Rec0=^KPR(PRNr,0)
 .....Set Rec1=^KPR(PRNr,1)
 .....Set RecI=$O(^KPR(PRNr,"I")),RecI=^KPR(PRNr,RecI)
 .....Set RecJ=$O(^KPR(PRNr,"J")),RecJ=^KPR(PRNr,RecJ)
 ....Else  If $D(^KPRO(PRNr)) Do
 .....Set Rec1=^KPRO(PRNr,1)
 .....Set Rec0=^KPRO(PRNr,0)
 .....Set RecI=$O(^KPRO(PRNr,"I")),RecI=^KPRO(PRNr,RecI)
 .....Set RecJ=$O(^KPRO(PRNr,"J")),RecJ=^KPRO(PRNr,RecJ)
 ....Else  Set PRNr=""
 ...If 'PRNr Quit
 ...Quit:$P(RecI,D)["DE"  ; Geen deuren
 ...Set ^HULP(%J,PRNr)=$G(^HULP(%J,PRNr))+1
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"PARETO.TXT","W")
 Quit:0[Dev
 Use Dev
 Set PRNr=""
 For  Set PRNr=$O(^HULP(%J,PRNr)) Quit:PRNr=""  Do
 .Set Qty=^HULP(%J,PRNr)
 .Write PRNr,$C(9),Qty,!
 Close Dev ;Write "~~~"
 Quit