cTU41 ;WIJZIGEN TESTLIJN ;%TU2 ; [ 11/06/95  10:53 AM ]
 G 1
 ;
T1 ;TESTLIJN ;
T2 ;xx[] = wijzigen criterium xx   [] = bijvoegen 'en'-criterium   ;D[] = detail;.[] = vervolg;
T3 ;Vx[] = verwijderen criterium;
T4 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op;
T5 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op;
T6 ;U KAN MAXIMAAL 99 CRITERIA PER LIJN OPGEVEN ;
T7 ;TE VERWIJDEREN CRITERIUM;
T8 ;VERWIJDEREN CRITERIUM ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
 ;
 ; tonen detail
1 K USEL S J1=0,J2=NT*100 F  S J2=$O(@("^"_Q_"LIS(I1,J2)")) Q:J2\100'=+NT  S J1=J1+1,USEL(J1)=J2
11 S J2=0,FP=250 W @F,@F1,$J(OM,28)
13 S FP=401 W @F,@F1
15 F  S J2=$O(USEL(J2)) Q:J2=""  D  S FP=FP+100 Q:FP>2100
 . W @F,$J(J2,4),". ",$P(@("^"_Q_"LIS(I1,USEL(J2))"),U,3)," "
 . W $P($T(@("T"_($P(^(USEL(J2)),U)\10+4))),U,$P(^(USEL(J2)),U)#10+1)
 . W " """,$P(^(USEL(J2)),U,2),""""
17 S SWV=0 I J2,$L($O(USEL(J2))) S SWV=1
19 I K="",'$L($O(USEL(""))) G 3
 ;
 ; vraagstelling
2 S R="K\22\3\"_$P($T(T1),U,2)_(+NT)_"\C1\3\INPUT\\\\1" D R0
21 G YZ:K="-"!(K=","),11:K="D",13:K=".",3:K="",4:K,5:$E(K)="V",2
 ;
 ; openen
3 I J1=99 S K=$P($T(T6),U,2) D F1 G 2
31 S J2=J1+1 D ^cTU42 I K'="-",K'="," S @("^"_Q_"LIS(I1,NT*100+J2)")=TL
33 G 1
 ;
 ; wijzigen
4 I '$D(USEL(+K)) G 2
41 S J2=+K D ^cTU42 I K'="-",K'="," S @("^"_Q_"LIS(I1,NT*100+J2)")=TL
43 G 1
 ;
 ; verwijderen
5 S K=+$E(K,2,3)
51 I '$D(USEL(+K)) S R="K\22\3\"_$P($T(T7),U,2)_"\\2\\K=""-""!(K="","")!(K?.N)" D R0 G 2:K="-"!(K=","),51
53 S J2=+K,R="K\22\3\"_$P($T(T8),U,2)_J2_D_$P($T(T8),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" S (J2,SWV)=0 G 51
55 K @("^"_Q_"LIS(I1,USEL(J2))"),USEL(J2)
57 F  S J2=$O(USEL(J2)) Q:J2=""  S ^(USEL(J2)-1)=^(USEL(J2)) K ^(USEL(J2))
59 I $L($O(USEL(""))) G 1
 ;
 ; verwijderen lijn
6 S J2=NT*100 F  S J2=$O(^(J2)) Q:J2=""!(J2\100=NT)  S ^(J2-100)=^(J2) K ^(J2)
61 I J2\100=NT G 1
 ;
YZ K J1,J2,USEL G ^cTU2
 ;
C1 W !?2,$P($T(T2),U,2),$P($T(T2),U,3+SWV),!?2,$P($T(T3),U,2) Q
 ;
INPUT ;K="-"!(K=",")!(K="D")!(K="."&SWV)!(K?.N)!(K?1"V".N)
 ;
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
 ;
F1 S R=250
F2 X ^cTXT(0,"N",R) R K W @F,@F1
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7