KKOVD G 1 ;MODULE ONTVANGSTDAG KLANTEN;KKOVD; [ 03/12/2001  3:22 PM ]
 ;
T1 ;dd-pp   dd[] = ganse dag   (meerdre dagen gescheiden door een spatie)
 ;
1 S R="K\22\3\"_$P(U2,U,1)_"\"""_$P($T(T1),U,2)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11) D R0 G YZ:"-,"[K
 G 1:$$CHECK(K)
 ;
YZ Q
 ;
R0 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))," ",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)
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,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
CHECK(K) 
 N I
 F I=1:1 Q:'$L($P(K," ",I))  I '("\MA\DI\WO\DO\VR\"[(D_$P($P(K," ",I),"-",1)_D)&("\AM\PM\\"[(D_$P($P(K," ",I),"-",2)_D))) S K="-"
 Q K'="-"
 ;