KPHPR1 ;STOCKEREN HUIDIGE PRIJZEN KLANTEN ;KPHPR; [ 10/28/93  1:14 PM ]
 G 1
 ;
S2 S @S=$$ROUND^KPRIJS(@S) Q
 ;
1 S Q="K" d ^cA604 L ^KPHPR
3 K ^KPHPR S Q0="^"_Q_"KL(KL)",Q3="^"_Q_"STKL(KC,PR)",Q5="^"_Q_"PR(PR,0)",KL=0,KLX="ZZZZZ"
5 S KL=$N(@Q0) G 49:KL=-1
6 S I=$D(@Q0),KC=$P(^(KL,0),D)
12 S PR=0
13 S PR=$N(@Q3) G 5:PR=-1,13:'$D(@Q5)
15 S X=@Q5,PC=$P(X,D,1)
29 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
37 S R=$$KLANTPR^KPRIJS(KC,PR)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3)
47 S ^KPHPR(KC,PR)=PID_D_PC_D_UEP_D_UMC_D_AFA_D_PR_D
48 G 13
49 S ^KPHPR(0)=DT_" - "_TD
 ;
YZ S FP=101 W *7,*27,7,@F,"**** Stockeren huidige prijzen afgelopen ****",*27,8,*7
 Q
 ;