cTU14 ;BEHEER ETIKETTEN ;%TU13; [ 06/30/94  3:38 PM ]
 G 1
 ;
T1 ; - AANTAL POSITIES\"maximum ";
T3 ;LIJN;-[] = einde ingave        [] = bijvoegen lijn   xx[] = bepaalde lijn;V[] = verwijderen lijn   D[] = detail;
T4 ;WELKE RUBRIEK\".[] = lege posities   xx[] = rubrieknummer";WELK SCHERM VAN ;SCHERM ;\"er zijn "_SAS_" schermen   ";
T5 ;[] = ok;[] = vervolg;of;
T6 ;VERWIJDEREN LIJN\",[] = hernemen   xx[] = lijnnummer";,[] = hernemen   V[] = DEFINITIEF verwijderen\;
T7 ;[] = vervolg;
T8 ; lijn ; : lengte ;
 ;
S1 G S1Z:$P(I,U,23) S K=U S:$D(@("^"_Q_"LI(SQ1,S1)")) K=$P(^(S1),U,10,13) S:SQ1'=Q1 K=U_U_$P(K,U,3,9)
S1A S K=$P(I,U,1)_U_($P(I,U,9)+$P(I,U,13))_U_$P(I,U,8)_U_$P(I,U,16)_U_$P(K,U,4)_U_$P(K,U,1,2) S:$P(I,U,22) T=T+1,A(T)=K
S1B S FP=$P(I,U,5)*100+$P(I,U,6)-3 W @F,@F9,":" S FP=$P(I,U,2)*100+$P(I,U,3) W @F W:$P(I,U,22) $J(T,2) S FP=FP+2 W @F,@F6,$P(I,U,1),@F9
S1Z Q
 ;
S3 S FP=2303+F60 W @F,$P($T(T3),U,3) S FP=FP+100 W @F,$P($T(T3),U,4) Q
 ;
1 S K=1,SNR="",NT=1 G 4:$N(@("^"_Q_"LIE(I1,100)"))=-1
 ;
2 S OS=0,NT=1,MIN=501,MAX=2100,FP=250,LN=MIN W @F,$J(OM,28),@F1 S FP=401 W @F F I=1:1:8 W ".........",I
21 S S1="",S2=@("^"_Q_"LIE(I1,0)"),S2=NT*100,FP=LN
22 S S2=S2+1 I $D(^(S2)) S I=^(S2),S3=$P(I,U,2),S1=S1_" "_S3_$J("",I-$L(S3)) G 22
23 W @F,S1,@F7,@$P(FG,D,10),@F8 S:$L(S1)>79 LN=LN+100 S NT=NT+1,LN=LN+100 G 3:$N(^(NT*100))=-1,21:LN<MAX
24 S R="K\23\3\"_$P($T(T7),U,2)_"\\1\\""-""[K" D R0 I K="" S LN=MIN,FP=MIN W @F,@F1 G 21
 ;
3 I SQ1'=Q1 S SNR="",SOM=OM,SQ1=Q1,SAS=AS,OS=0,FP=250 W @F,OM,@F1
31 S R="NT\22\3\"_$P($T(T3),U,2)_"\S3\2\\""D-V""[K&($L(K)<2)!(K?.N&K)\\\1" D R0 G YZ:K="-",7:K="V",2:K="D"
32 I K G 31:$N(@("^"_Q_"LIE(I1,K*100)"))\100'=K,36
35 S NT=NT+1 G 35:$N(@("^"_Q_"LIE(I1,NT*100)"))\100=NT,31:NT>MAL
36 S K=1 I OS S NS=OS G 45
 ;
4 S NS=SAS,R="NS\22\3\"_$P($T(T4),U,3)_SOM_$P($T(T4),U,5) S:OS R=R_"_""[] = ""_OS" S R=R_"\1\\K?1N&K&(K'>SAS)!(K=""""&OS)!(K=""-"")" D:SAS'=1 R0 G 3:K="-" S:K="" NS=OS
41 G 45:OS=NS K A S A(".")=U_U_U,FP=250,OS=NS,T=0,K=SOM S:SAS>1 K=$P($T(T4),U,4)_NS_" "_K W @F,$J(K,28),@F1 S FP=1901 W @F F I=1:1:8 W ".........",I
42 S S1=101,I=@("^"_Q_SQ1_"(0,S1)") D S1 S S1=102,I=@("^"_Q_SQ1_"(0,S1)") D S1 S:NS>1 S1=NS*100 S S2=S1
43 S I=D,S1=$O(@("^"_Q_SQ1_"(0,S1)")) S:S1\100=NS I=^(S1) S S2=$O(@("^"_Q_"LI(SQ1,S2)")) S:S2\100=NS&(S2<S1!'S1) I=^(S2)
44 I I'=D S:S1<S2!'S2&S1 S2=S1 S S1=S2 D S1 G 43
45 S K=NT*100,S1="",MAX=MLN
46 S K=K+1 G 49:'$D(@("^"_Q_"LIE(I1,K)")) S I=^(K),S2=$P(I,U,2),MAX=MAX-I-1
48 S S1=S1_" "_S2_$J("",I-$L(S2)) G 46
49 S FP=2001 W @F,S1,@F7,@$P(FG,D,10),@F8,@F1 S FP=380 W @F,@F93 S FP=356 W @F,@F92,$P($T(T8),U,2),NT,$P($T(T8),U,3),MLN-MAX," ",@F93 G 3:MAX<1
 ;
5 S R="K\22\3\"_$P($T(T4),U,2)_"\2\\K?.N&$E(K,1)&(K'>T)!(K=""."")!(K=""-"")" D R0 G 4:K="-" S NR=A(K) S:'$P(NR,U,2) $P(NR,U,2)=1
51 S:$P(NR,U,2)>MAX $P(NR,U,2)=MAX I $L($P(NR,U,6)) S SNR=$P(NR,U,1)_U_$P(NR,U,6,7),OS=0,SQ1=$P(NR,U,6) D S1^cTU4 G 4
52 S S1=$P(NR,U,1) S:$L(SNR)&$L(S1) S1=S1_" "_$P(SNR,U,1) S R="I\22\3\"_S1_$P($T(T1),U,2)_"_MAX_""   [] = ""_$P(NR,U,2)\3\\K?.N&K&(K<(MAX+1))!(""-""[K)" D R0 G 5:K="-" S:'K I=$P(NR,U,2)
54 S R=@("^"_Q_"LIE(I1,0)"),R=NT*100,K=I-('$L(S1))_U_$E(S1,1,I)_U_$P(NR,U,3,5)_U S:$L(S1) K=K_$P(SNR,U,2,3)
55 S R=R+1 G 55:$D(^(R)) S ^(R)=K G 45
 ;
7 S R="NT\22\3\"_$P($T(T6),U,2)_"\2\\K?.N&K!(K=""-"")!(K="","")" D R0 G 3:'K,7:$N(@("^"_Q_"LIE(I1,K*100)"))\100'=K
71 S R="K\23\3\"_$P($T(T6),U,3)_"\1\\"",-V""[K&$L(K)\\\1" D R0 G 7:K'="V" S @%Q1=0,K=@("^"_Q_"LIE(I1,0)"),K=NT*100
73 S K=$N(^(K)) I K\100=NT K ^(K) G 73
74 S K=NT*100
75 S K=$N(^(K)) I K'=-1 S ^(K-100)=^(K) K ^(K) G 75
79 S @%Q1=1 G 2:'OS S FP=2001 W @F,@F1 G 3
 ;
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