KPCHKPR G 1 ;KONTROLE OP GELDIGHEID MET PRODUKTSELECTIE ;KPCHKPR; [ 01/07/2003  2:50 PM ]
 ;
 ;
 ;Kontrole routine
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(U3,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (U3'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(U3'=Y)" S:J=">" OK="]Y&(U3'=Y)" S:J="'>" OK="']Y!(U3=Y)" S:J="'<" OK="]Y!(U3=Y)" S OK="S OK=U3"_OK X OK
S2D E  S OK="S OK=U3"_J_"Y" X OK
S2Z Q
 ;
 ;Ophalen data van het produkt
1 K A S A(0)=@("^"_Q_"PR(PR,0)") F I=1:1:16 S A(I)=$G(^(I))
11 F I="I","J" S X=$N(^(I)) S:$E(X,1)=I A(I)=^(X)
 I $P(A(1),D,25) S OK=0 Q
 ;
 ;Kontrole op geldigheid
2 S I=100,OK=1
21 S I=$N(B(I)) G YZ:I=-1 I I?.N S U3=$P(A(I\100-1),D,I#100) G 25
23 S X=$E(I,1) I $D(A(X)) S U3=$P(A(X),D,$E(I,2,99)#100) G 25
24 G 21:'$L($P(B(I),D,4)) X $P(B(I),D,4)
25 D S2 G 21:OK
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 22.02.91 -  8 u 20