cTU40 ;COPIEREN TESTLIJN ;%TU2 ; [ 09/27/95  9:42 AM ]
 G 1
 ;
T1 ;DE SELECTIE;
T2 ;COPIEREN UIT SELECTIE : ;
T3 ;TE COPIEREN TESTLIJN;
T4 ;x[] = bepaalde lijn   x y z[] = meervoudige selektie   D[] = detail;
T5 ;.[] = alle lijnen;
 ;
 ; keuze + kontrole selektie
1 S R="J2\2000\"_$P($T(T1),U,2)_"\LIS\LIS1" D ^cA101 I K="-" G YZ
11 S K=^(J2,0) I $P(K,D,3)'=Q1 S R=252 D F2 G 1
 ;
 ; tonen detail
2 S FP=120 W @F,$P($T(T2),U,2),$TR($P(K,D,1,2),D," "),@F2
21 S SQ1=Q1 D S1^cTU4 S OM=SOM,AS=SAS
23 S OS=0,J1=I1,I1=J2 D 2^cTU4
 ;
 ; keuze lijnen
3 S R="K\22\3\"_$P($T(T3),U,2)_"\C1\20\\$L(K)\\\1" D R0
31 I K="-"!(K=",") S FP=101 W @F,@F2 S I1=J1 G 1
33 I K="D" D 2^cTU4 G 3
35 K USEL D  I $L($O(USEL(""))) G 4
 . N S1,S2
 . S S1=0,S2=100 F  S S2=$O(@("^"_Q_"LIS(I1,S2)")) Q:S2=""  D
 .. I S2\100-1=S1 S S1=S1+1,S2=S1+1*100
 . I K="." F S2=1:1:S1 S USEL(S2)=""
 . I K'="." F  S S2=+$P(K," "),K=$P(K," ",2,99) D  Q:K=""
 .. I S2,S2'>S1 S USEL(S2)=""
39 G 3
 ;
 ; copi‰ren
4 S NT=0,I=100 F  S I=$O(@("^"_Q_"LIS(J1,I)")) Q:I=""  D
 . I I\100-1=NT S NT=NT+1,I=NT+1*100
41 F  S I=$O(USEL("")) Q:I=""  S NT=NT+1 D  K USEL(I)
 . S K=I*100 F  S K=$O(@("^"_Q_"LIS(I1,K)")) Q:K\100'=I  D
 .. S @("^"_Q_"LIS(J1,NT*100+(K#100))")=^(K)
43 S I1=J1
 ;
YZ K J1,J2,USEL S FP=101 W @F,@F2 G ^cTU2
 ;
C1 W !?2,$P($T(T4),U,2),!?2,$P($T(T5),U,2) 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
 ;
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