cT310 ;WIJZIGEN VERVALDATUM ;%T31 ;overlay %T31 ; [ 01/02/01  2:33 PM ]
 G 1
 ;
T0 ;Wijzigen vervaldatum ;
T1 ;Nummer document\SC1;D[] = detail   E[] = einde;   [] = vervolg;
T2 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum   [] = ;
 ;
T0F ;Modification de l'échéance ;
T1F ;N° du document\SC1;D[] = détail   E[] = fin;   [] = suite;
T2F ;Date d'échéance\"jj.mm.aa[] = date spécifique   [] = ;
 ;
T0E ;Modification of due date ;
T1E ;Document number\SC1;D[] = detail   E[] = end;   [] = next;
T2E ;Due date\"dd.mm.yy[] = particular date   [] = ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
S1 S FP=1401 W @F,@F1 K A F C=14:1:20 S C(C)=""
S1Z S C=14 Q
 ;
S2 S FP=420 W @F,FNR F K=1:1:3 S FP=FP+100 W @F,$P(L,D,K)
S2A D S4 F K=4:1:6 S FP=FP+100 W @F S R=$P(L,D,K)_"\12\\"_DEC D R3 W $P(L,D,9)
S2B S FP=FP+100 W @F,@F2,$P(L,D,7)
S2Z Q
 ;
S3 F FP=420:100:1120 W @F,$J("",18)
S3Z Q
 ;
S4 S DEC=QD,K=$P(L,D,9) I $L(K),$D(@("^"_Q_"BA(11,K)")) S DEC=+$P(^(K),D,7)
S4Z Q
 ;
1 S I2=99999 D S1,S3
11 S I2=$O(@("^"_Q_"KL(I1,I2)")),SW=0 G 2:I2'?6N S C(C)=I2,A(I2)=C,L=^(I2)
13 S FP=C*100+1 W @F,$$CR^cA334 W $P(L,D),?2,I2,?9,$P(L,D,2),?18,$P(L,D,3)
15 D S4 F K=4:1:6 S R=$P(L,D,K)_"\10\"_$P("\\\27\38\49",D,K)_D_DEC D R3
17 W ?60,$E($P(L,D,7),1,15) I C<20 S C=C+1 G 11
19 S SW=$O(@("^"_Q_"KL(I1,I2)"))?6N I SW,HFNR,'$D(A(HFNR)) S K="" G 21
 ;
2 I HFNR,$D(A(HFNR)) S K=HFNR,HFNR=0 G 23
20 S R="X\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\""-,DE""[K&($L(K)!SW)!(K?6N&K)\\\1" D R0 G 2^cT31:K="-"!(K=","),YZ:K="E"
21 I "D"[K S:K="D" I2=99999 D S1 G 11
23 S FNR=+K I '$D(A(FNR)) S R=219 D F2 G 2
25 S FP=A(FNR)*100+2 W @F,"*" S L=@("^"_Q_"KL(I1,FNR)") D S2
 ;
3 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_$P(L,D,3)_"""\8\DCTR" D R0 G 33:"-"[K
31 S R=K_D_$P(L,D,2) D ^cA326 G 3:R<0 S:$L($P(L,D,11))=8 $P(L,D,11)=K S $P(L,D,3)=K,@("^"_Q_"KL(I1,FNR)")=L D S2
33 S FP=A(FNR)*100+2 W @F," " G 2
 ;
YZ Q
 ;
SC1 W !?2,$P($T(@("T1"_QT)),U,3) W:SW $P($T(@("T1"_QT)),U,4) 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
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84