KPGWV2 G 1 ;GEMIDDELDE WEEKVERKOOP (INVULLEN) ;Go naar KPGWV1
 ;
1 ;
3 I $L(H) S HX=H G 7
5 S (H,HX)=$N(@("^"_Q_"PH(H)")) G YZ:H=-1!($L(HH)&(H]HH)),9
7 I $L(G) S GX=G G 11
9 S (G,GX)=$N(@("^"_Q_"PH(H,G)")) G 13:'(G=-1!($L(GG)&(G]GG))) G 5
11 I $L(S) S SX=S G 15
13 S (S,SX)=$N(@("^"_Q_"PH(H,G,S)")) G 9:S=-1!($L(SS)&(S]SS)),17
15 I $L(M) S MX=M G 19
17 S (M,MX)=$N(@("^"_Q_"PH(H,G,S,M)")) G 13:M=-1!($L(MM)&(M]MM)),19
19 S P=$N(@("^"_Q_"PH(H,G,S,M,P)")) G 17:P=-1
21 S PR=+^(P),X=@("^"_Q_"PR(PR,1)") G 19:'$P(X,D,20) S PGWR=$P(X,D,21)
22 S X=^(0),PC=$P(X,D,1),X=^(2),PNR=$P(X,D,25)
25 S (PGW,PTV)=0 G 19:'$D(@("^"_Q_"STPR(PR,0,0)"))
27 F I=1:1:AMA S Y=$P(BP,D,I) I $D(^(Y)) S X=^(Y),PTV=PTV+$P(X,D,1)-$P(X,D,5)
29 S PGW=$J(PTV/AMA*3/13,0,0)
39 G 19:$E(PGWR,$L(PGWR))="*"!(PGW=PGWR)
43 S FP=2303 W @F,@F2,PNR,"   ",PC,$J("",28-$L(PC)),PGW S X=@("^"_Q_"PR(PR,1)"),X=$P(X,D,1,20)_D_PGW_D_$P(X,D,22,99),^(1)=X G 19
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 10.06.88 - 15 u 23