cTU7 ;BEHEER LISTINGS ;%TU7 ;Go naar %TU8 ; [ 09/27/95  9:43 AM ]
 G 1
 ;
T1 ;WIJZIGEN LISTING\"[] = ok   .[] = openen nieuwe listing   -[] = einde programma";
T2 ;DE LISTING;;LISTING : ;
T3 ;OMSCHRIJVING LISTING\"V[] = verwijderen listing   [] = ";
T4 ;OPENEN LISTING\"[] = automatisch nummer   xx[] = bepaald nummer";
T5 ;NUMMER BESTAND;
T6 ;,[] = hernemen   V[] = DEFINITIEF verwijderen;
 ;
 ; kontrole indexbestanden
S1 ;I $G(QW) D EG^cAFA1,S1^cAN002(0,"LIL"),C^cA612
S1Z Q
 ;
1 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
 ;
2 S R="K\22\3\"_$P($T(T1),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-",3:K="."
21 S R="I1\2000\"_$P($T(T2),U,2)_"\LIL\LIL1" D ^cA101 G 2:K="-"
22 S (B(1),K)=^(I1,0),NR=$P(K,D),OM=$P(K,D,2),Q1=$P(K,D,3),I=$P(K,D,3,99),FP=403 W @F,$P($T(T2),U,4),OM,@F1 D 9 G 21:'OK
23 S R="K\22\3\"_$P($T(T3),U,2)_"_OM\30" D R0 G 21:K="-",6:K="V"!(K="v") S:$L(K) OM=K
24 S $P(B(1),D,2)=OM D ^cA218 S K=I ;I $G(QW) S (K,I)=$$DI^cAN000(OM,NR)
25 S @%Q1=0,@("^"_Q_"LIL(K,0)")=B(1) K B(1) G 5:K=I1 S @("^"_Q_"LIL1(NR)")=K,I=0
26 S I=$O(@("^"_Q_"LIL(I1,I)")) I $L(I) S @("^"_Q_"LIL(K,I)")=^(I) G 26
27 K @("^"_Q_"LIL(I1)") S I1=K D S1 G 5
 ;
3 S R="NR\22\3\"_$P($T(T4),U,2)_"\5\\""-""[K!(K?.N&$E(K))" D R0 G 2:K="-"
31 I K G 3:$D(@("^"_Q_"LIL1(K)")),34
32 S:'$D(@("^"_Q_"LIL(0,0)")) @("^"_Q_"LIL(0,0)")=$P($T(T2),U,2),^(1)=1 S K=^(1)
33 I $D(@("^"_Q_"LIL1(K)")) S K=K+1 G 33
34 S FP=403 W @F,$P($T(T2),U,4),K,@F2
35 S I=$P($P($T(T3),U,2),D),R="OM\22\3\"_I_"\\30\\$L(K)" D R0 G 3:K="-" S FP=503 W @F,I," : ",K,@F2
36 S K=0,I1=" " K A
37 S I1=$O(@("^"_Q_"LI(I1)")) I $L(I1) S K=K+1,FP=K*100+603+(K>14*-1360),A(K)=I1 W @F,$J(K,2),". ",$P(^(I1,0),D) G 37:K<28
38 S K=1,R="K\22\3\"_$P($T(T5),U,2)_"\\2\\K?.N&$E(K)&$D(A(+K))!(K=""-"")" D:$D(A(2)) R0 G 3:'$D(A(K))
 ;
4 S Q1=A(K) K A I NR I '$D(@("^"_Q_"LIL1(NR)")) D 9 G 45:OK
41 S NR=@("^"_Q_"LIL(0,1)"),^(1)=NR+1 G 41:$D(@("^"_Q_"LIL1(NR)")) D 9 G 41:'OK
45 S B(1)=NR_D_OM_D_Q1_D_D_$P(@("^"_Q_"LI(Q1,0)"),D)_D_$P(^(0),U,4)_D D ^cA218 S I1=I,$P(B(1),D,4)=$P(B(1),D,6)
47 ;I $G(QW) S (I,I1)=$$DI^cAN000(OM,NR)
49 S @%Q1=0,@("^"_Q_"LIL(I1,0)")=B(1),@("^"_Q_"LIL1(NR)")=I1 K B(1) D S1
 ;
5 S @%Q1=1,K=$P($T(T2),U,4)_NR_" "_OM_" ",FP=203+$L(K) W @F,@F5 S FP=202 W @F,@F4,K,@F5,@F1
55 S OS=0,SQ1=Q1 D S1^cTU4 S OM=SOM,AS=SAS G ^cTU8
 ;
6 S R="K\22\3\"_$P($T(T6),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 21:K'="V"
61 S @%Q1=0 K @("^"_Q_"LIL(I1)"),@("^"_Q_"LIL1(NR)") D S1 S @%Q1=1,K=$P($T(T2),U,4)_OM S R=76 D F2 G 2
 ;
9 S OK=1 L @("^"_Q_"LIL1(NR)"):2 E  S R=14 D F2 S OK=0
91 Q
 ;
YZ 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