KPSW1 G 1 ;LIJST STOCKWAARDE ;Go naar KPSW2, KPSW3, KPSW4 [ 07/01/2002  9:56 AM ]
 ;
 ;
S2 S ^("PRC")=PRC,^("PRCX")=PRCX
S2Z Q
 ;
S3 F I="HG","GR","SG","MK","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S3Z Q
 ;
S4 F I="LE","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S4Z Q
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S DOC=$P($T(+1),";",2),LSTX="KLP"
13 S SELK=1 D PP^KPSEL G YZ:K="-"
15 D INIT^vhPRINTER(80) G 13:'$D(Print)
 ;
2 K DOC,LSTX,SELK G @("^KPSW"_$F("PKLU",LST))
 ;
YZ Q
 ;
CALC 
 S PC=$P(A(0),D,1),PST=$P(A(0),D,14),PCA=$P(A(1),D,25),PID=$P(A(2),D,25)
 S PPL=$P(A("J"),D,19),PMA=$P(A("J"),D,17),PK1=$P(A("J"),D,9),PK2="",PEA=$P(A("J"),D,28)
 Set PPLNew=$J($P(A("J"),D,23),0,4)
 K A
 S:PEA="H" PPL=PPL/100 S:PEA="M" PPL=PPL/1000 S PPAR=1 S:$L(PMA) PPAR=$$MUNT^vhRtn1(PMA,,11)
 ;S PPL=$J(PPL*PPAR*(100-PK1)/100*(100-PK2)/100,0,2),PWA=PPL*PST S:'FAMNTRND PWA=PWA+.99999\1 ; Geen CIFPPL en vroegtijdig afgerond naar 2 cijfers zonder rekening te houden met per honderd of per duizend
 S PWA=+$J(PPLNew*PST,0,2)
 S PPL=+$J(PPLNew,0,2)
 Q
 ;