cA256 ;SELEKTIE KODES ;%A25* ; [ 02/05/96  9:36 AM ]
 G 1
 ;
 ;inputvariabelen : TXT,TXT(n)
 ;outputvariabelen: LIM1, LIM2
 ;
T0 ;Selectie codes ;
T1 ;Selectie van de ;
T2 ;-[] = einde selectie  [] = enkele specifieke;   U[] = via utili-data;
T3 ;.[] = in ; volgorde van ... tot ...;
T4 ;In ; volgorde;
T5 ;Van ;;
T6 ;Tot ;;
T7 ;Selectie opnieuw uitvoeren\"[] = neen   1[] = onmiddellijk   .[] = later uitvoeren"; via uitgestelde selecties;
T8 ;\"[] = specifiek   .[] = vanaf het begin";
T9 ;Vanaf het begin;
T10 ;\"[] = specifiek   .[] = tot het einde;   I[] = idem als vorige;
T11 ;Tot het einde;
T12 ; werd reeds geselecteerd   [] = ok ;
T13 ;De selectie;laatste selectie op;totaal ;aantal geselecteerd;duurtijd selectie;lijst gesorteerd;via ;
 ;
T0F ;Sélection codes ;
T1F ;Sélection des ;
T2F ;-[] = fin   [] = quelque(s) spécifique(s);   U[] = par Utili-data;
T3F ;.[] = par ordre ; à partir de ... jusqu'à ...;
T4F ;Par ordre ;;
T5F ;A partir de ;;
T6F ;Jusqu'a ;    ;
T7F ;Réexécuter la sélection\"[] = non   1[] = immédiatement   .[] = plus tard"; par sélections differées;
T8F ;\"[] = spécifique   .[] = dès le début";
T9F ;Dès le début;
T10F ;\"[] = spécifique   .[] = jusqu'à la fin;   I[] = idem précédent;
T11F ;Jusqu'à la fin;
T12F ; fut déjà sélectionné   [] = ok ;
T13F ;La sélection;derniere sélection le;total ;nombre sélectionné;durée sélection;liste triée;par ;
 ;
T0E ;Selectie codes ;
T1E ;Selectie van de ;
T2E ;-[] = einde selectie  [] = enkele specifieke;   U[] = via utili-data;
T3E ;.[] = in ; volgorde van ... tot ...;
T4E ;In ; volgorde;
T5E ;Van ;;
T6E ;Tot ;;
T7E ;Selectie opnieuw uitvoeren\"[] = neen   1[] = onmiddellijk   .[] = later uitvoeren"; via uitgestelde selecties;
T8E ;\"[] = specifiek   .[] = vanaf het begin";
T9E ;Vanaf het begin;
T10E ;\"[] = specifiek   .[] = tot het einde;   I[] = idem als vorige;
T11E ;Tot het einde;
T12E ; werd reeds geselecteerd   [] = ok ;
T13E ;De selectie;laatste selectie op;totaal ;aantal geselecteerd;duurtijd selectie;lijst gesorteerd;via ;
 ;
S3 W !?2,$P($T(@("T2"_QT)),U,2) W:SS2 $P($T(@("T2"_QT)),U,3) W !?2,$P($T(@("T3"_QT)),U,2),$P(TXT,D,4),$P($T(@("T3"_QT)),U,3) Q
S4 W @F,@F1,$P($T(@("T4"_QT)),U,2),$P(TXT,D,3),$P($T(@("T4"_QT)),U,3) Q
S5 S FP=$P(TXT,D,9)+1 W @F,@FDL,@F,"  ",$P(TXT,D,2)," :" Q
 ;
1 K LIM1,LIM2 S (LIM1,LIM2)="",SS2=$D(@("^"_QS_Q_"LI($P(TXT,D,6))"))&$P(TXT,D,5),FP=$P(TXT,D,9)+1 W @F,@F1
10 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_$P(TXT,D,2)_"\S3\1\\""-,.""[K!(K=""U""&SS2)\\\1" D R0 G YZ:K="-"!(K=","),2:K=".",5:K="U"
11 S SS1=1,(LIM1,LIM2)="",FP=$P(TXT,D,9)+3 W @F,$P(TXT,D,2)," :",@F1
13 D S1 I K="-" G 1:SS1<2,19
15 I $D(LIM1(K)) S FP=2403+F60 W @F,@F4,$P(TXT,D),$P($T(@("T12"_QT)),U,2),@F5,@F2,@F0 R K G 13
17 S FP=SS1-1*100+$P(TXT,D,9),LIM1(K)="",SS1=SS1+1 I FP>$P(TXT,D,10) D S5 S FP=$P(TXT,D,10)
18 S FP=FP+$L($P(TXT,D,2))+6 W @F,K,@F2 G 13
19 S K="" G YZ
 ;
2 S FP=$P(TXT,D,9)+3 D S4 F K=5,6 S R=$P($T(@("T"_K_QT)),U,2,99),SS1=$L(R)+$L($P(TXT,D))+4 W !?2,$P(R,U),$P(TXT,D),$P(R,U,2)," :"
21 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_$P(TXT,D)_$P($T(@("T5"_QT)),U,3)_$P($T(@("T8"_QT)),U,2)_"\1\\""-.""[K"
23 D R0 G 1:K="-" I K="." S LIM1=" ",K=$P($T(@("T9"_QT)),U,2) G 27
25 D S1 G 21:K="-" S LIM1=K
27 S FP=100+$P(TXT,D,9)+SS1 W @F,K,@F2
 ;
3 S K=$P($T(@("T10"_QT)),U,2) S:LIM1'=" " K=K_$P($T(@("T10"_QT)),U,3) S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_$P(TXT,D)_$P($T(@("T6"_QT)),U,3)_K
31 S R=R_"""\1\\""-.""[K!(K=""I""&(LIM1'="" ""))" D R0 G 21:K="-" I K="." S LIM2="zzz",K=$P($T(@("T11"_QT)),U,2) G 37
33 I K="I" S (K,LIM2)=LIM1 G 37
35 D S1 G 3:K="-" S LIM2=K
37 S FP=200+$P(TXT,D,9)+SS1 W @F,K,@F2
39 G 3:LIM1]LIM2,YZ
 ;
5 S X=$T(@("T13"_QT)),R="LIM1\1700\"_$P(X,U,2)_"\LIS\LIS1" D @$G(@("^"_Q_"LIS(0,5)"),"^cA101") G 1:K="-" S K=^(K,0),FP=403 W @F,@F1,$P(K,D,2)
51 I $P(K,D,3)'=$P(TXT,D,5) D TXT^cAFA1(252) G 5
53 W !!?2,$P(X,U,3),?23," : " S PP(3)='$L($P(K,D,9)) I 'PP(3) W $P(K,D,9)," - ",$P(K,D,10)
55 W !?2,$P(X,U,4),$P(TXT,D,2),?23," : ",$P(K,D,12),!?2,$P(X,U,5),?23," : ",$P(K,D,11)
57 W !?2,$P(X,U,6),?23," : ",$P(K,D,8),!?2,$P(X,U,7),?23," : " I $D(^(1)) W $P(X,U,8),$P(^(1),U)
59 E  S X=$P(K,D,4) S:'X X=1 W $P(@("^"_QS_Q_"LI($P(TXT,D,5),X)"),D)
61 I 'PP(3) S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-1.""[K" D R0,S2:K="." G 5:K="-" S PP(3)=+K
63 S LIM2=" ",FP=1203 W @F,@F1 W:K="."!PP(3) $P($P($T(@("T7"_QT)),U,2),D) W:K="." $P($T(@("T7"_QT)),U,3)
 ;
YZ K %A257,SS1,SS2,TXT 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
 ;
S1 S R="K\2000\"_$P(TXT,D)_D_$P(TXT,D,6,8) F K=1:1 Q:'$D(TXT(K))  S R(K)=TXT(K)
S1Z D ^cA115 Q
 ;
S2 S R=$P(LIM1," ",2) D ^cTU61
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84