cPE3 G 1 ;VERWIJDEREN KLASSIFIKATIES ; [ 11/08/2003  3:46 PM ]
 ;
T1 ;VERWIJDEREN 
T2 ;Vxx[] = verwijderen volgnummer xx   
T3 ;[] = vervolg
T4 ;V[] = verwijderen            : 
T5 ;V[] = verwijderen definitief : 
T6 ;" IS VERWIJDERD !   
T7 ;VERWIJDEREN VAN : .
T8 ;-[] = einde programma
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
L1 W @F,$J(T,4) S T=T+1 Q
 ;
S7 S S4=$P(R,D,1)+1+F60,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),FP=S4 W @F,@F1
S7A S FP=2203+F60 W @F,@F1,SA," : ",$E(PNT,1,LGT) S FP=2303+F60 W @F W:$D(ST) $P($T(T2),U,2) W:S0 $P($T(T3),U,2) S FP=2206+F60+$L(SA) W @F,@F0
S7B R K G S7A:K?.E1C.E!($L(K)>LGT),S7C:$L(K)>1&($L(K)<4)&($E(K,1)="V")&($E(K,2,3)?.N) S:$L(K) S0=0 S FP=S4,S9=0 W @F,@F1 G S7Z:K="-" I K="" K ST S S1=S4 G S7F:S0
S7C G S7D:($L(K)<2)!($L(K)>3)!($E(K,1)'="V")!($E(K,2,3)'?.N),S7A:'$D(ST($E(K,2,3))) S FP=2203+F60,SO=$P(^(ST($E(K,2,3))),D,2),SP=SO_" " W @F,@F2,SA," : ",SO
S7C1 S FP=2303+F60 W @F,@F1,$P($T(T4),U,2),@F0 R SK G S7C1:SK?.E1C.E,S7C2:SK="V",S7A:SK="-",S7C1
S7C2 S FP=2403+F60 W @F,$P($T(T5),U,2),@F0 R SK G S7C2:SK?.E1C.E,S7C9:SK="V",S7A:SK="-",S7C2
S7C9 S (I1,II1,III1,I2,II2,III2,I3,II3,III3,I4,II4,III4)="",T=1
S7CA S (Y,E1)=0 F I="MK","HG","GR","SG" S Y=Y+1 I $E(BST,2,3)=I S @("II"_Y)=SO,@("III"_Y)=SK
S7CB S I1=$N(@Q1) I I1=-1!(II1'=""&(I1]SP)) G S7CK
S7CC G S7CB:II1'=""&(I1'=SP) G S7CJ:I1=SP
S7CD S I2=$N(@Q2) I I2=-1!(II2'=""&(I2]SP)) S I2="" G S7CB
S7CE G S7CD:II2'=""&(I2'=SP) G S7CJ:I1=SP
S7CF S I3=$N(@Q3) I I3=-1!(II3'=""&(I3]SP)) S I3="" G S7CD
S7CG G S7CF:II3'=""&(I3'=SP) G S7CJ:I1=SP
S7CH S I4=$N(@Q4) I I4=-1!(II4'=""&(I4]SP)) S I4="" G S7CF
S7CI G S7CH:II4'=""&(I4'=SP)
S7CJ X ^cTXT(0,"N",65) R K S FP=$N(@("^"_Q_BST_"("" "")")) G S7A
S7CK S FP=$N(@("^"_Q_BST_"("" "")")),FP=2403+F60 W @F,@F2,@F4,SA," """,$P(^(ST($E(K,2,3))),D,2),$P($T(T6),U,2),@F5,@F0 S FP=4+$E(K,2,3)*100+6 W @F,@F2 K ^(ST($E(K,2,3))),ST($E(K,2,3)) S FP=2760 H 2 G S7A
S7D K ST S S6="" F S7=1:1:$L(K) I $E(K,S7)'?1P S S6=S6_$E(K,S7)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S:S5?.N S5=S5_" " S S1=S4,S2=S5 G S7G:$D(@(S8_"(S2)")),S7I:$N(@(S8_"(S2)"))=-1
S7F S S2=$N(@(S8_"(S2)")) G S7I:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7J:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7G S FP=S1,S9=S9+1,ST(S9)=S2 W @F,$C(13),?2,$J(S9,2),". ",?6,$P(^(S2),D,2)
S7H S S1=S1+100 G S7F:S1<(2100+F60) S S0=1 G S7A
S7I X ^cTXT(0,"N",156) R K S FP=$N(@("^"_Q_BST_"("" "")"))
S7J S (S2,S0)=0 G S7A
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,SA,ST Q
 ;
1 S K=$P($P($T(+1),U,2),"-",1)_QN_" " S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S PNT="..............................",Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
11 S Q1="^"_Q_"PM(I1)",Q2="^"_Q_"PM(I1,I2)",Q3="^"_Q_"PM(I1,I2,I3)",Q4="^"_Q_"PM(I1,I2,I3,I4)"
13 S Y=$N(^(Y)) G 15:Y=-1 S @Y=^(Y) G 13
15 S FP=401 W @F,@F1 S SEL="",FP=2203+F60 W @F,$P($T(T7),U,2)
20 S FP=2303+F60 W @F F I="HG","GR","SG","MK" S Y=$P(@I,D,2) S:Y="" SEL=SEL_" " S SEL=SEL_$E(Y,1) I Y'="" W $E(Y,1),"[] = ",$P(@I,D,4),"   "
25 S FP=2403+F60 W @F,$P($T(T8),U,2),@F0 S Y=$P(@I,D,2),FP=2216+F60 F I="HG","GR","SG","MK" I Y'="" S FP=FP+$L(Y)+2
27 S FP=2221 W @F R K G 15:K?.E1C.E,YZ:K="-",25:K="",15:K=" "!(SEL'[K) S K=$F(SEL,K)-1
30 S Y=$P("HG\GR\SG\MK",D,K),BST="P"_Y,SEL=$P(@Y,D,2),LGT=$P(@Y,D,1)
40 S FP=478 W @F,@F5 S FP=464-$L(SEL) W @F,@F4,$P($T(T1),U,2),SEL," ",@F5
50 S R=500_D_SEL_D_BST D S7 G 15
YZ Q
 ;
Z X ^cZ Q
ZZ ; 23.05.85 - 18 u 34