cTU29 ;AANPASSING VELD LAATSTE AFDRUK ;;Do uit %TU10, %TU15 of %TU20
 G 1
 ;
T1 ;AANPASSEN VELD LAATSTE AFDRUK\"[] = ja   1[] = neen";
T2 ;DATUM\;
T3 ;OMSCHRIJVING AFDRUK\;
T4 ;OMSCHRIJVING SELEKTIE\;
 ;
1 S (S2,S3,PP(5),PP(6),PP(7))="" G YZ:'$D(@("^"_Q_"LI(Q1,""U"")"))
11 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-1""[K" D R0 G YZ:$L(K)
13 I PP(1),$D(@("^"_Q_S1_"1(PP(1))")) S S2=$P(@("^"_Q_S1_"(^(PP(1)),0)"),D,2) S:$D(OM) S2=OM
15 I PP(2),$D(@("^"_Q_"LIS1(PP(2))")) S S3=$P(@("^"_Q_"LIS(^(PP(2)),0)"),D,2)
 ;
2 S R="PP(5)\22\3\"_$P($T(T2),U,2)_"""[] = ""_DT\8\DCTR" D R0 G 11:K="-" S:'K PP(5)=DT S FP=2003 W @F,PP(5),@F2
21 S R="PP(6)\22\3\"_$P($T(T3),U,2)_"""[] = ""_S2\30" D R0 G 2:K="-" S:K="" PP(6)=S2 S FP=2015 W @F,PP(6),@F2
23 S R="PP(7)\22\3\"_$P($T(T4),U,2)_"""[] = ""_S3\30" D R0 G 21:K="-" S:K="" PP(7)=S3 S FP=2048 W @F,PP(7),@F2
 ;
YZ K S1,S2,S3 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
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)
 ;
Z X ^cZ Q
ZZ ; 11.07.88 - 10 u 23