CWDK ;DAGKODE ;CWDK; [ 03/28/2001  4:15 PM ]
 G 1
 ;
T1 ;VANAF DATUM
T2 ;TOT DATUM  
T3 ;[] = 
T6 ;:-----------:----------:--------:--------:
T7 ;: DAG       : DATUM    :   KODE : KODE\2 :
T8 ;BLZ:
 ;
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)),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)
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
 ;
S6 S %H=1+H,%J=%H\1461,%R=%H#1461,SJ=%J*4+1841+(%R\365),SD=%R#365,SM=1 I %R=1460 S SD=365,SJ=SJ-1
S6A F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<SD  S SM=SM+1,SD=SD-%J
S6B S:'SD SJ=SJ-1,SM=12,SD=31 S:SD<10 SD=0_SD S:SM<10 SM=0_SM S ST=SD_"."_SM_"."_$E(SJ,3,4)
S6Z K %R,%H,%J Q  ;V2 07.07.85
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S R="K\21\3\"_$P($T(T1),U,2)_"\"""_$P($T(T3),U,2)_DT_"""\8\DCTR" D R0 G YZ:K="-" I K="" S K=DT,FP=2117 W @F,@F1,DT
13 S R=K D XT S H=R
15 S R="K\22\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_DT_"""\8\DCTR" D R0 G 11:K="-" I K="" S K=DT,FP=2217 W @F,@F1,K
17 S R=K D XT S HX=R G 15:HX<H
19 D INIT^vhPRINTER(80) G 15:'$D(Print)
 ;
2 S (BLZ,SMX)=0,V=19,H=H-1,FP=72 W @F32 D HD
21 S H=H+1 I H>HX W !?V,$P($T(T6),U,2),# G 3
23 S LN=LN+1 I LN>50 W !?V,$P($T(T6),U,2),# D HD G 23
25 D S6 I SMX,SMX'=SM W !?V,$P($T(T6),U,2),# D HD
27 W !?V,": ",$P("donderdag\vrijdag  \zaterdag \zondag   \maandag  \dinsdag  \woensdag ",D,H#7+1)
29 W ?12+V,": ",ST,?23+V,":",$J(SD_SM_SJ#H,7)," :",$J(SD_SM_SJ#H\2,7)," :" S SMX=SM G 21
 ;
3 S FP=66 W @F32 D CLOSE^vhPRINTER
 ;
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?V,$P($T(+1),U,2),?34+V,$P($T(T8),U,2),$J(BLZ,4)
HDA W !!?V,$P($T(T6),U,2),!?V,$P($T(T7),U,2),!?V,$P($T(T6),U,2)
HDZ Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;