KA204 ;WIJZIGEN RUBRIEKEN ;KA203;Do uit KA203,%A218 [ 09/23/97  11:57 AM ]
 ;
T1 ;NUMMER ELEMENT : ;-[] = einde;
 ;
1 S SW5=0 I $D(EXTERN),$L(Element) S U1=Element,Element="" G 12
 S U1=$O(A(SW2*100)) I $O(A(U1))="" S U1=U1#100 G 12
11 S FP=2203+F60,U1=$P($T(T1),U,2) W @F,@F1,U1 S FP=FP+100 W @F,$P($T(T1),U,3) S FP=FP-100+$L(U1)
 W @F,"..",@F2,@F,@F0 R U1
12 G 4:U1="-",11:U1'?1N.N!($L(U1)>3),11:'$D(A(SW2*100+U1))
 S LElement=U1
13 S U1=SW2*100+U1,U2=A(U1) I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R K G 1:$O(A($O(A(SW2*100))))'="",4
15 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 3:K'="-"&(K'=","),1:$O(A($O(A(SW2*100))))'="",4
17 S FP=2203+F60 W @F,@F1,$P(U2,U)," : " S FP=FP+100 W @F,$P(U2,U,10)
 ;
2 S FP=2206+F60+$L($P(U2,U)),K="",$P(K,".",$P(U2,U,9))="." W @F,K,@F2,@F,@F0 R K G 2:K?.E1C.E
 I K="-"!(K=",") G 1:$O(A($O(A(SW2*100))))'="",4
21 S X=$P(U2,U,11) S:'$L(X) X=1 I $L($P(U2,U,21)) S X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")"
23 I K'[D,K'["""",$L(K)'>$P(U2,U,9),@X G 3
25 G 2
 ;
3 S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
31 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:Y $P(B(X),D,Y)=K G 1:$O(A($O(A(SW2*100))))'=""
 ;
4 K U1,U2,U3 I $D(X3) K OK D @X3 G YZ:OK=1,1:'OK
41 S K=$P(B(1),D,2) D ^cA218 S @%Q1=0 I I1'=I S U3=-1,X=Q4,Y="^"_Q_Q1_"(I,U3)" D S5
43 S U3=0,@Q4=B(1) F I=2:1:9 I $D(B(I)) S ^(I-1)=B(I)
45 S @%Q1=1
 ;
YZ Q
 ;
 ;
S5 S U3=$O(@X) G S5Z:U3="" S @Y=@X G S5
S5Z K @Q3 S J1=$P(B(1),D),@("^"_Q_Q2_"(J1)")=I,I1=I Q
 ;
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K)
 ;
BRCTR ;($E(K,1,10)#97-$E(K,11,12)=0!($E(K,1,10)#97-$E(K,11,12)=-97)&(K?12N))!(K="")!'($P(B(1),D,6)?4N!(Q1="AR")!(Q1="WE"))
 ;
BNCTR ;(97-($E(K,1,7)#97)=+$E(K,8,9)&(K?9N))!(K="")!(K="000000000")!'($P(B(1),D,6)?4N)
 ;
Z X ^cZ Q
ZZ ; 02.01.91 - 14 u 31