cA100 ;Inputverwerking ; [ 03/10/00  11:50 AM ]
 ;
T0 ;Inputverwerking ;
 ;
T0F ;Introduction par clavier ;
 ;
T0E ;Inputverwerking ;
 ;
R0 I $G(QW),$P(QW(QW),D,3)<24 G ^cAN1000
R00 G ^cA1000:$D(U("D"))
 ;
R01 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6),R8="",$P(R8,".",R6)="."
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !?2,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $P(R,D,11),K?.E1L.E S K=$$UC^cAFA1(K) W @F,K
R0D I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 ;
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)
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84