cTU5 ;OVERZICHT SELECTIES ;%TU5 ; [ 08/01/94  9:59 AM ]
 G 1
 ;
T1 ;VANAF SELECTIE\"-[] = einde programma   .[] = vanaf het begin   [] = specifieke selectie";
T2 ;TOT SELECTIE\"I[] = idem als vorige   .[] = tot het einde   [] = specifieke selectie";
T3 ;PLAATS SMAL BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok   ,[] = hernemen   .[] = later drukken";
T4 ;VANAF HET BEGIN;TOT HET EINDE;
T5 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op;
T6 ; en ;  of;: Sortering op rubrieken :; geen;
T7 ;DE SELECTIE;
T8 ;BLZ :;
T9 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op;
 ;
S4 S K=-2 W !,": " F I=1:4 S R=$P(S1,D,I) Q:'$L(R)  W:I>1 EN,*13,?K,EN W R S K=K+$L(R)+4
S4Z S L=L+1 Q
 ;
1 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),BLZ=0,EN=$P($T(T6),U,2),OF=$P($T(T6),U,3)
11 I 'QP S I1=PP(1),I1X=PP(2) G 29
12 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
19 F K=1,2 S FP=K*200+717 W @F,@F9,":",@F2 S FP=FP-15 W @F,@F6,$P($P($T(@("T"_K)),U,2),D),@F9
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\"".-""[K" D R0 G YZ:K="-"
21 I K="." S K=$P($T(T4),U,2),I1=1
22 E  S R="I1\2000\"_$P($T(T7),U,2)_"\LIS\LIS1" D ^cA101 G 2:K="-" S K=$P(^(K,0),D,2)
23 S FP=920 W @F,K,@F2
24 S R="K\22\3\"_$P($T(T2),U,2)_"\1\\"".-""[K!(K=""I""&'I1)\\\1" D R0 G 2:K="-"
25 I K="." S K=$P($T(T4),U,3),I1X="~" G 27
26 S I1X=I1,R="I1X\2000\"_$P($T(T7),U,2)_"\LIS\LIS1" D:K'="I" ^cA101 G 24:K="-",26:I1]I1X S K=$P(@("^"_Q_"LIS(I1X,0)"),D,2)
27 S PP(1)=I1,PP(2)=I1X,FP=1120 W @F,K,@F2
28 S R="K\22\3\"_$P($T(T3),U,2)_"\1\\""-,.""[K" D R0 G 24:K="-",19:K="," I K="." D R9 G 19
29 X F70 W @F80 D 8 G 31:$D(@("^"_Q_"LIS(I1)"))
 ;
3 S I1=$O(@("^"_Q_"LIS(I1)")) I I1=""!(I1]I1X) W # G YZ
31 S N1=^(I1,0),OM=$P(@("^"_Q_"LI($P(N1,D,3),0)"),D),K=@("^"_Q_"LIS(I1,0)"),I2=100,S1="" I L>35 W # D 8
32 D 85 W !,": ",$P(N1,D)," ",$P(N1,D,2),?40,$J(OM,38)," :" D 85 S L=L+3
33 S X2=I2,I2=$O(^(I2)) G 4:I2=""
34 I I2\100'=(X2\100) D S4 W ?79,":",!,":",OF,*13," ",OF,?79,":" S S1="",L=L+1
36 S K=^(I2),S2=$P(K,U,3)_" "_$P($T(@("T"_(K\10*4+5))),U,K#10+1)_" "_$P(K,U,2)
37 I $L(S1_S2)<69 S S1=S1_S2_"\\\\" G 33
38 I L>45 D 85 W # D 8,85
39 D S4 W EN,*13,?K,EN,?79,":" S S1=S2_"\\\\" G 33
 ;
4 S I2=0,L=L+1 I $L(S1) D S4 W ?79,":" D 85 S L=L+1
41 W !,$P($T(T6),U,4) W:'$D(^(1)) $P($T(T6),U,5) W ?79,":"
45 S I2=I2+1 I $D(^(I2)) S K=^(I2),L=L+1 W !,":    ",I2,". ",$P(^(I2),U),?79,":" G 45
49 S L=L+2 D 85 W !! G 3
 ;
8 S L=0,BLZ=BLZ+1 W !,QN,?72,$P($T(T8),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,*13,?72,DT,!,NM3,?73,TD,! Q
85 W !,":------------------------------------------------------------------------------:" Q
 ;
YZ X F71 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
 ;
R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I)
R9A F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1
R9Z K R1,R2,R3 L  Q  ; V3  14.10.87
 ;
Z X ^cZ Q
ZZ ; 21.09.94 - 11 u 43 * V5.5