KPFTP ;BIJWERKEN WEEKBESTAND I.V.M. FYS-, TEO- EN PRA STOCK;KPFTP; [ 10/26/2001  2:16 PM ]
 G 1
 ;
1 S ^KBA("WV")=1,Q="K",$ZT="^cA406" D ^cA604 S %WK=$$EXTDATE^vhLib.DataTypes(,"W"),PR=0
11 S PR=$N(@("^"_Q_"PR(PR)")) G 2:PR=-1 S K=^(PR,0),(PFS,PTS,PPS)=+$P(K,D,14),PTS=PTS+$P($P(K,D,17),"#",2)
13 S K=^(2),PTS=PTS-$P($P(K,D,9),"#",2),PPS=PPS-$P($P(K,D,9),"#",2)
15 I '$D(@("^"_Q_"SPW(PR)")),'PFS,'PTS,'PPS G 11
 L +@("^"_Q_"SPW(PR)")
17 S K="",$P(K,D,12)=D,I=DJ_"."_%WK_" " I $D(^(PR,I)) S K=^(I)
19 S $P(K,D,4)=PFS,$P(K,D,5)=PTS,$P(K,D,6)=PPS,^(I)=K
 L -@("^"_Q_"SPW(PR)") G 11
 ;
2 S @("^"_Q_"BA(""WV"")")=0
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 30.09.88 - 10 u 39