cI1 ;BEHEER BESTANDSBESCHRIJVING ;%I1;GC
 ;
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
11 S MA=F60/100+18,TK=F7_","_$P(FG,D,10)_","_F8,DC=Q
15 S R="WIJZ\22\3\WIJZIGEN\""-[] = einde programma   [] = neen   1[] = ja""\1\\""-1""[K" D R0 G YZ:K="-"
 ;
2 S R="K\22\3\BEGINLETTERS DOKUMENTATIE\""vb. %T, %F, ...    [] = ""_DC\3\\K?1U.U.N!(K?1""%""1U.U.N)!(""-""[K)" D R0 G YZ:K="-"
21 S:$L(K) DC=K S BS=$N(@("^"_DC_"DOC(-1)")),FP=280 W @F,@F93 S FP=263 W @F,@F5,@F92,"^",DC,"DOC",@F93,@F1 S:BS=-1 BS="" S FP=311,I1=-1
23 S I1=$N(@("^"_DC_"DOC(I1)")) G 25:I1=-1
24 S K="",FP=FP+92 S:$D(^(I1,0)) K=^(0) W @F,I1 S FP=FP+8 W @F,K G 23:FP-F60<2000
25 S R="K\22\3\BESTANDTYPE\\6\\$L(K_BS)&(K'=""-1"")" S:$L(BS) $P(R,D,5)=""".[] = vervolg   [] = ""_BS" D R0 S FP=311 W @F,@F1 G 23:K=".",2:K="-" S:$L(K) BS=K
27 S FP=264,OM="" S:$D(@("^"_DC_"DOC(BS,0)")) OM=^(0) W @F,@F92,"^",DC,"DOC(",BS,")",@F93,@F1 G 25:'$L(OM_WIJZ),33:'WIJZ
 ;
3 S R="K\22\3\OMSCHRIJVING\\60\\$L(K_OM)" S:$L(OM) $P(R,D,5)="""[] = ""_OM" D R0 G 25:K="-" S:$L(K) OM=K
31 I K="V"!(K="v") S R="K\22\3\VERWIJDEREN DOKUMENTATIE\""V[] = verwijderen   ,[] = hernemen""\1\\""V-,""[K&$L(K)" D R0 G 3:K'="V" K @("^"_DC_"DOC(BS)") K:'$D(@("^"_DC_"DOC")) @("^"_DC_"DOC") G 2
33 G 3:$L(OM)<8 S B=0,@("^"_DC_"DOC(BS,0)")=OM,FP=380 W @F,@F9 S FP=318 W @F,@F6,OM,@F9,@F1
 ;
35 K A S FP=401 W @F,@F1 S FP=302,A=0,LN=B S:$N(^(LN))=-1 LN=0,B=0
39 S LN=$N(^(LN)) G 4:LN=-1 S A=A+1,A(A)=LN,FP=FP+100 W @F,$J(LN,7,3),@TK,^(LN) G 39:A+1<MA
 ;
4 S I=1 I $D(A(A)) S I=$N(^(A(A))) S:I=-1 I=$J(A(A)+1,0,0)
41 S R="LN\22\1\  LIJNNUMMER\"".[] = vervolg   R[] = hernummeren   W[] = wijzigen   [] = ""_I\7\\K?.N!(K?.N1""."".N)!(""RrWw""[K&($L(K)=1)&WIJZ)!(K=""-"")" D R0 G 2:K="-",8:K="R"!(K="r"),55:K="W"!(K="w")
43 I K="."!'WIJZ S:$D(A(A)) B=A(A) S:K B=LN-.001 G 35
45 S LN=+$J(LN,0,3) S:K="" LN=I G 4:'LN!(LN'<1000) S OM="" S:$D(^(LN)) OM=^(LN)
47 I $L(OM) S FP=2201+F60 W @F,$J(LN,7,3),@TK,@F1 G 9
49 S R="OM\22\1\"_$J(LN,6,2)_"\\70\\$L(K)" D R0 G 4:K="-",43:K=".",8:K="R"!(K="r"),6
 ;
5 S R="K\23\3\E[] = edit\""R[] = hernummeren   .[] = vervolg   V[] = verwijderen   W[] = wijzigen""\1\\""ERVW.ervw-""[K" D R0 G 4:K="-",9:K="E"!(K="e"),8:K="R"!(K="r")
51 I K="." S A(A)=LN-.001 G 43
53 I K="V"!(K="v") S OM="V" G 6
54 S R="2210#70",R(1)=OM D ^cM1 S OM=R(1) G 6
55 S R="",FP=410 F I=1:1:17 S R=R_FP_"#70\",FP=FP+100 I $D(A(I)) S R(I)=^(A(I))
57 D ^cM1 S FP=401,A=17,K=1 F I=1:1:17 S:$D(A(I)) K=A(I) W:'$D(A(I)) @F,$J(K,8,3),@TK,R(I),@F2 S ^(K)=R(I),A(I)=K,K=K\1+1,FP=FP+100
58 F I=17:-1:1 S K=^(A(I)) Q:$L(K)  Q:$O(^(A(I)))  K ^(A(I)),A(I) S FP=I*100+301,A=A-1 W @F,@F2
59 K R G 4
 ;
6 S K=1 F I=1:1:MA I $D(A(I)) S:LN>A(I) K=I+1
62 I OM="V"!(OM="v"),$D(^(LN)) K ^(LN) G 4:'$D(A(K)),4:A(K)'=LN,75
63 S ^(LN)=OM G 35:'$D(A(1)) I K=1,LN'=A(1) S B=LN-.001 G 35
64 I K'<MA S I=$N(^(A(A))) I I'=-1,I<LN S B=LN-.001 G 35
66 S FP=2101+F60 W @F,@F1 I $D(A(K)) G 7:A(K)=LN
67 S A=A+1 I K<A F I=A:-1:K S:$D(A(I-1)) A(I)=A(I-1)
68 S A(K)=LN I A+1>MA S K=K-1,A=A-1,FP=401 W @F,@FDL F I=1:1:MA-1 S:$D(A(I+1)) A(I)=A(I+1)
69 S FP=2001+F60 W @F,@F1 S FP=K*100+301 W @F,@FIN K A(MA)
 ;
7 S FP=K*100+302 W @F,$J(LN,7,3),@TK,OM,@F2 G 4:$N(^(LN))'=-1 S (LN,K)=$J(A(A)+1,0,0) G 45
 ;
75 S FP=2101+F60 W @F,@F1 S FP=K*100+301 W @F,@FDL F I=K:1:MA S:$D(A(I+1)) A(I)=A(I+1)
77 I $D(A(MA-2)) S LN=$N(^(A(MA-2))) I LN'=-1 S K=MA-1,A(K)=LN,OM=^(LN),FP=K*100+302 W @F,$J(LN,7,3),@TK,OM G 4
79 K A(A) S A=A-1 G 4
 ;
8 S LN=0,K=0,B=0
81 S LN=$N(^(LN)) I LN>-1 S K=K+10 G 81
82 S LN=0,K=$J(K+1,0,0)
83 S LN=$N(^(LN)) I LN>-1&(LN<K) S ^(K+LN)=^(LN) K ^(LN) G 83
84 S LN=0,K=0
85 S LN=$N(^(LN)) I LN>-1 S K=K+1,^(K)=^(LN) K ^(LN) G 85
86 G 35
 ;
9 S FP=2210+F60 W @F,OM,@F1
91 S R="A1\23\3\WIJZ.\\60\\$L(K)" D R0 S:K="END"!(K="end") A1=$C(7) G 95:A1=$C(7) I K="-" G 5:OM=^(LN),6
92 G 95:OM[A1
93 I A1["..." S A2=OM S:$L($P(A1,"...",1)) A2=$P(OM,$P(A1,"...",1),2,999) S:$L($P(A1,"...",2)) A2=$P(A2,$P(A1,"...",2),1) S A1=$P(A1,"...",1)_A2_$P(A1,"...",2,999) G 92
94 S FP=2403+F60 W @F,@F4,"DAT ZIT ER NIET IN ! [] = ok ",@F5,@F2,@F0 R K G 91
95 S K=$P(OM,A1,1)_$P(OM,A1,2,999),R="A2\24\3\MET  \\"_(70-$L(K)) D R0 G 91:K="-" S OM=$P(OM,A1,1)_A2_$P(OM,A1,2,999) G 9
 ;
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
 ;
Z X ^cZ Q
ZZ ; 30.12.87 - 10 u 28