cTU4 ;BEHEER SELECTIES ;%TU1 ; [ 07/20/95   2:00 PM ]
 G 1
 ;
T1 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op;
T2 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op;
T3 ;[] = ok;[] = vervolg;of;
 ;
S1 S S9=@("^"_Q_SQ1_"(0,0)"),SAS=0,S9=99
S1A S S9=$O(^(S9)) I S9'="",S9\100-1=SAS S S9=S9\100,SAS=S9,S9=S9*100+99 G S1A
S1B S SOM=$P(@("^"_Q_"LI(SQ1,0)"),D),S9=99
S1C S S9=$O(^(S9)) I S9 S S9=S9\100 S:SAS<S9 SAS=S9 S S9=S9*100+99 G S1C
S1Z Q
 ;
S2 S S1="",S2=@("^"_Q_"LIS(I1,0)"),S2=NT*100,FP=LN-79 W @F,$J(NT#100,4),".",@F1
S2A S S2=S2+1 G S2Z:'$D(^(S2)) S S3=^(S2),S4=$P(S3,U,3)_" "_$P($T(@("T"_(S3\10+1))),U,S3#10+1)_" """_$P(S3,U,2)_""""
S2B I $L(S1_S4)<72 S S1=S1_S4_"\\\\" G S2A
S2C D S4 W @F92,EN,@F93 S S2=S2-1,S1="",LN=LN+100 G S2A:LN<MAX D S5 G S2A:K="" Q
S2Z D S4 Q
 ;
S4 S FP=LN W @F,@F93 S FP=FP-73 W @F F S8=1:4 S S9=$P(S1,D,S8) Q:'$L(S9)  W:S8>1 @F92,EN,@F93 W S9
S4Z Q
 ;
S5 S R="K\23\3\"_$P($T(T3),U,3)_"\\1\\""-""[K" D R0 S LN=MIN,FP=MIN-79 W:K'="-" @F,@F1 Q
 ;
SALDO S U3=0 Q:'$L(J1)  S R1=$P(@("^"_Q_"BA(2)"),D,2)\1,K=@("^"_Q_R2_"(J1,0)") S:$D(^(R1)) U3=^(R1)
SALDOA F R1=R1,R1+1 I $D(^(R1)) S R2=^(R1),R3=^(R1+.02) F R4=2:1:24 S U3=U3+$P(R2,D,R4)-$P(R3,D,R4)
SALDOZ Q
 ;
1 S MIN=2080,MAX=2300,LN=MIN D S2 G YZ:K'="-" Q
 ;
2 S K="",OS=0,NT=1,MIN=480,MAX=2200,FP=250,LN=MIN W @F,$J(OM,28),@F1
3 D S2 Q:K="-"  S NT=NT+1,LN=LN+100 Q:$O(^(NT*100))=""
4 S LN=LN+100,FP=LN-174 W @F,@F93,@F,@F92,$P($T(T3),U,4),@F93 G 3:LN<MAX D S5 G 3:K="" Q
 ;
YZ S R="K\23\3\"_$P($T(T3),U,2)_"\\1\\""-""[K" D R0 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 ; 14.01.99 - 21 u 28 * V5.7