cTU3 ;BEHEER SELECTIES ;%TU1 ; [ 07/20/95   2:00 PM ]
 G 1
 ;
T1 ;VIA WELK INDEXBESTAND\"xx[] = bepaald bestand   [] = ";
T2 ;INGEGEVEN RUBRIEKEN VOOR SORTERING :;
T3 ;INGAVE SORTERINGSRUBRIEKEN\"[] = ok   .[] = einde   V[] = verwijderen alle rubrieken";
T4 ;WELKE RUBRIEK VOOR SORTERING\"xx[] = rubrieknummer";WELK SCHERM VAN ;SCHERM ;
T5 ;geen;
T6 ;,[] = hernemen   V[] = DEFINITIEF verwijderen\;
 ;
S1 S K=$G(@("^"_Q_"LI(SQ1,S1)"),U) F SI=2,3,5,6,22,23 S:$L($P(K,U,SI)) $P(I,U,SI)=$P(K,U,SI)
S1A G S1Z:$P(K,U,12)!$P(I,U,23) S K=$S(SQ1=Q1:$P(K,U,10,13),1:U)
S1B S K=$P(I,U)_U_$P(I,U,9)_U_$P(I,U,16)_U_($P(I,U,21)="DCTR")_U_$P(K,U,1,2) S:$P(I,U,22) T=T+1,A(T)=K
S1C 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),@F9
S1Z K SI Q
 ;
1 S NR=1,OS=0,FP=250,K=$P(@("^"_Q_"LIS(I1,0)"),D,4) S:K NR=K W @F,OM,@F1 S LN=301,T=0,K=@("^"_Q_"LI(Q1,0)") G 19:'$D(^(2))
11 S T=T+1,LN=LN+100 I $D(^(T)) S FP=LN W @F,$J(T,3),". ",$P(^(T),D),@F2 G 11:LN<2100
12 S R="K\22\3\"_$P($T(T1),U,2)_"_$P(^(NR),D)\2\\K?.N&K&(K<T)!(""-""[K)" D R0 S:K NR=K G Y1:K="-"
19 S NR=+NR,K=@("^"_Q_"LIS(I1,0)"),^(0)=$P(K,D,1,3)_D_NR_D_$P(K,D,5,99)
 ;
3 S K=@("^"_Q_"LIS(I1,0)"),FP=250 W @F,OM,@F1 S FP=403 W @F,$P($T(T2),U,2) S FP=505,SNR="",SOM=OM,SQ1=Q1,SAS=AS,OS=0 I '$D(^(1)) S FP=605 W @F,$P($T(T5),U,2)
31 F I=1:1 Q:'$D(^(I))  S FP=FP+100 W @F,I,". ",$P(^(I),U)
32 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-.""[K!(K=""V""&$D(^(1)))\\\1" D R0 G YZ:K=".",Y1:K="-",7:K="V" S K=1
33 I $D(^(5)) X ^cTXT(0,"N",245) R K S K=@("^"_Q_"LIS(I1,0)") G 32
 ;
4 S NS=SAS,R="NS\22\3\"_$P($T(T4),U,3)_SOM_D 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 FP=250,OS=NS,T=0 W @F W:SAS>1 $P($T(T4),U,4),NS," " W SOM,@F1
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=@("^"_Q_"LIS(I1,0)"),K="" F I=1:1 Q:'$D(^(I))  S K=K_$P(^(I),U)_"\\\\"
46 I $L(K)>73 S K=$P(K,D,5,99) G 46
47 S FP=2080 W @F,@F93 S FP=2003 W @F F I=1:4 Q:'$L($P(K,D,I))  W:I>1 @F92,EN,@F93 W $P(K,D,I)
49 W @F2
 ;
5 G 3:$D(@("^"_Q_"LIS(I1,5)")) S R="K\22\3\"_$P($T(T4),U,2)_"\2\\K?.N&$E(K)&(K'>T)!(K=""-"")" D R0 G 4:K="-" S NR=A(K)
51 I $L($P(NR,U,5)) S SNR=NR,OS=0,SQ1=$P(NR,U,5) D S1^cTU4 G 4
52 S:$L(SNR) NR=$P(NR,U)_" "_$P(SNR,U)_U_$P(SNR,U,2,9)_U_$P(NR,U,3,4) S R=@("^"_Q_"LIS(I1,0)")
53 F I=1:1 S:'$D(^(I)) ^(I)=NR Q:^(I)=NR
54 G 45
 ;
7 S R="K\22\3\"_$P($T(T6),U,2)_"\1\\"",-V""[K&$L(K)\\\1" D R0 G 32:K'="V"
71 F I=1:1 Q:'$D(^(I))  K ^(I)
72 G 3
 ;
YZ Q
 ;
Y1 G ^cTU2
 ;
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 ; 14.01.99 - 21 u 28 * V5.7