KSPW G 1 ;OPBOUW BESTAND WEEKSTATISTIEK PRODUKTEN;KSPW; [ 10/29/2001  9:52 AM ]
 ;
S8 S @$P(S,D)=$$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(S,D,2)),"DW4")
 Q
 ;
1 S Q="K" D ^cA604 S (PR,TEL)=0,US="F",RefDAT=$$INTDATE^vhLib.DataTypes("01.07.86")
11 S PR=$N(^KPR(PR)) G YZ:PR=-1 S PSV=$P(^(PR,0),D,12),I2="H" W !,PR
13 S I2=$N(^KPR(PR,I2)) G 11:$E(I2,1)'="H" S Z=^(I2),II=0
15 S II=II+1,Y=$P(Z,D,II) G 13:'$L(Y)
 S DAT=$E(Y,1,6),DAT=$E(DAT,5,6)_"."_$E(DAT,3,4)_"."_$E(DAT,1,2),IntDAT=$$INTDATE^vhLib.DataTypes(DAT)
16 S KOD=$E(Y,7),UA=$E($P(Y,"#",1),8,99) S:KOD#2 PSV=PSV+UA S:'(KOD#2) PSV=PSV-UA
17 G 15:KOD'=2,15:IntDAT<RefDAT
18 S UN=$P(Y,"#",2),UR=$P(Y,"#",3) G 19:UA<0&(UN<0),19:UA>0&(UN>0) S UN=-UN
19 S UN=$J(UN,0,$$MUNT^vhRtn1(,4))
 ;
2 K NKK G 15:'$D(^KU1(UR,US)) S X=^(US),KC=$P(X,D,1),FNR=$P(X,D,2) I $L(FNR) S UZ=^KFA(US,FNR,"U"_UR,0),UZ=100
21 E  S UZ=^KUL(KC,US,UR,0),UZ=100
23 S UZ=$N(^(UZ)) I UZ'=-1 S X=^(UZ) G 23:$P(X,D,2)'=PR!($P(X,D,3)'=UA) S NKK=$P($P(X,D,28),";")
25 I UZ=-1 S TEL=TEL+1
 ;
3 S S="WK\"_DAT D S8
33 S WK=$TR(WK,"/",".")_" "
 ;
4 L +^KSPW(PR)
 S X="",$P(X,D,10)=D I $D(^KSPW(PR,WK)) S X=^(WK)
41 S $P(X,D,1)=$P(X,D,1)+UA,$P(X,D,2)=$P(X,D,2)+UN,$P(X,D,4)=PSV I '$D(NKK) S NKK=""
43 I '$L(NKK) S $P(X,D,7)=$P(X,D,7)+UA,$P(X,D,8)=$P(X,D,8)+UN
45 E  S $P(X,D,9)=$P(X,D,9)+UA,$P(X,D,10)=$P(X,D,10)+UN
47 S ^(WK)=X
 L -^KSPW(PR)
 G 15
 ;
YZ Q
 ;