cTU13 ;BEHEER ETIKETTEN ;%TU13 ;Go naar %TU14,%TU27 ; [ 08/08/94  2:24 PM ]
 G 1
 ;
T1 ;WIJZIGEN ETIKET\"[] = ok   .[] = openen nieuwe etiket   -[] = einde programma";
T2 ;HET ETIKET;ETIKET : ;
T3 ;OMSCHRIJVING ETIKET\"V[] = verwijderen etiket   [] = ";
T4 ;OPENEN ETIKET\"[] = automatisch nummer   xx[] = bepaald nummer";
T5 ;NUMMER BESTAND;
T6 ;,[] = hernemen   V[] = DEFINITIEF verwijderen;
T7 ;WIJZIGEN FORMAAT\"[] = formaat ok   .[] = wijzigen formaat";
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-",3:K="."
21 S R="I1\2000\"_$P($T(T2),U,2)_"\LIE\LIE1" D ^cA101 G 2:K="-"
22 S (B(1),K)=@("^"_Q_"LIE(I1,0)"),NR=$P(K,D),OM=$P(K,D,2),FP=403 W @F,$P($T(T2),U,3),OM,@F1 D 9 G 21:'OK
23 S Q1=$P(K,D,3),A1=$P(K,D,8),A2=$P(K,D,9),A3=$P(K,D,10),A4=$P(K,D,11),A5=+$P(K,D,12)
24 S R="K\22\3\"_$P($T(T3),U,2)_"_OM\30" D R0 G 21:K="-",6:K="V"!(K="v") S:$L(K) OM=K D 8 G 22:K="-"
25 S $P(B(1),D,2)=OM D ^cA218 S K=I
27 S @%Q1=0,@("^"_Q_"LIE(K,0)")=$P(B(1),D,1,5)_D_D_D_A1_D_A2_D_A3_D_A4_D_A5 K B(1) G 5:K=I1 S @("^"_Q_"LIE1(NR)")=K,I=0
28 S I=$O(@("^"_Q_"LIE(I1,I)")) I I'="" S @("^"_Q_"LIE(K,I)")=^(I) G 28
29 K @("^"_Q_"LIE(I1)") S I1=K G 5
 ;
3 S R="NR\22\3\"_$P($T(T4),U,2)_"\5\\""-""[K!(K?.N&$E(K))" D R0 G 2:K="-"
31 I K G 3:$D(@("^"_Q_"LIE1(K)")),34
32 S:'$D(@("^"_Q_"LIE(0,0)")) @("^"_Q_"LIE(0,0)")=$P($T(T2),U,2),^(1)=1 S K=^(1)
33 I $D(@("^"_Q_"LIE1(K)")) S K=K+1 G 33
34 S FP=403 W @F,$P($T(T2),U,3),K,@F1
35 S I=$P($P($T(T3),U,2),D),R="OM\22\3\"_I_"\\30\\$L(K)" D R0 G 3:K="-" S FP=503 W @F,I," : ",K,@F2
36 S K=0,I1=" " K A,A1,A2,A3,A4,A5 D 8 G 35:K="-"
37 S I1=$O(@("^"_Q_"LI(I1)")) I I1'="" G 37:'$P(^(I1,0),D,2) S K=K+1,FP=K*100+603+(K>14*-1360),A(K)=I1 W @F,$J(K,2),". ",$P(^(0),D),@F1 G 37:K<28
38 S K=1,R="K\22\3\"_$P($T(T5),U,2)_"\\2\\K?.N&$E(K)&$D(A(+K))!(K=""-"")" D:$D(A(2)) R0 G 3:'$D(A(K))
 ;
4 S Q1=A(K) K A I NR I '$D(@("^"_Q_"LIE1(NR)")) D 9 G 45:OK
41 S NR=@("^"_Q_"LIE(0,1)"),^(1)=NR+1 G 41:$D(@("^"_Q_"LIE1(NR)")) D 9 G 41:'OK
45 S B(1)=NR_D_OM_D_Q1_D_D_$P(@("^"_Q_"LI(Q1,0)"),D)_D D ^cA218 S I1=I
46 S @%Q1=0,@("^"_Q_"BA(""%TU"",1)")=A1_D_A2_D_A3_D_A4_D_A5
47 S @("^"_Q_"LIE(I1,0)")=B(1)_D_D_A1_D_A2_D_A3_D_A4_D_A5,@("^"_Q_"LIE1(NR)")=I1 K B(1)
 ;
5 S @%Q1=1,K=$P($T(T2),U,3)_OM_" ",FP=203+$L(K) W @F,@F5 S FP=202 W @F,@F4,K,@F5,@F1
55 S OS=0,SQ1=Q1 K A1,A2,A3,A4,A5 D S1^cTU4 S OM=SOM,AS=SAS G ^cTU14
 ;
6 S R="K\22\3\"_$P($T(T6),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 21:K'="V"
61 S @%Q1=0 K @("^"_Q_"LIE(I1)"),@("^"_Q_"LIE1(NR)") S @%Q1=1,K=$P($T(T2),U,3)_OM X ^cTXT(0,"N",76) R K G 2
 ;
8 G ^cTU27
 ;
9 S OK=1 L @("^"_Q_"LIE1(NR)"):2 E  X ^cTXT(0,"N",14) R K S OK=0
91 Q
 ;
YZ 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
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5