cTU8 ;BEHEER LISTINGS ;%TU7 ; [ 01/18/99  11:33 PM ]
 G 1
 ;
T1 ;LIJNNUMMER;
T2 ;D[] = detail     xx[] = wijzigen lijn xx    [] = bijvoegen lijn;
T3 ;Y[] = copi‰ren   Vx[] = verwijderen lijn;
T4 ;TE VERWIJDEREN LIJN;
T5 ;VERWIJDEREN LIJN ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
 ;
 ; startbestand
1 S OS=$S(SQ1=Q1:OS,1:0),SQ1=Q1,SOM=OM,SAS=AS
 ;
 ; detail alle lijnen
2 D 2^cTU9
 ;
 ; welke testlijn
3 S R="NT\22\3\"_$P($T(T1),U,2)_"\C1\3\INPUT\\\\1" D R0
31 G YZ:K="-"!(K=","),2:K="D",4:K="",^cTU90:K="Y",5:$E(K)="V"
33 I $O(@("^"_Q_"LIL(I1,NT*100)"))\100=+NT G ^cTU91
35 G 3
 ;
 ; bijvoegen lijn
4 S NT=1 F  Q:'$L($O(@("^"_Q_"LIL(I1,NT*100)")))  S NT=NT+1
41 G ^cTU91
 ;
 ; verwijderen lijn
5 S NT=+$E(K,2,9) I NT,$O(@("^"_Q_"LIL(I1,NT*100)"))\100=NT G 53
51 S R="NT\22\3\"_$P($T(T4),U,2)_"\\2\\K?.N&K!(K=""-"")!(K="","")" D R0 G 3:'K,51:$O(@("^"_Q_"LIL(I1,K*100)"))\100'=+K
53 S R="K\22\3\"_$P($T(T5),U,2)_(+NT)_D_$P($T(T5),U,3)_"\1\\"",-V""[K&$L(K)\\\1" D R0 G 51:K'="V"
55 S K=NT*100 F  S K=$O(@("^"_Q_"LIL(I1,K)")) Q:K=""  D
 . I K\100>NT S ^(K-100)=^(K)
 . K ^(K)
59 G 2
 ;
YZ K ^HULP($J) Q
 ;
C1 W !?2,$P($T(T2),U,2),!?2,$P($T(T3),U,2) Q
 ;
INPUT ;K?.N!(K="D")!(K="Y")!(K?1"V".N)!(K="-")
 ;
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