KOFKL7 G 1 ;MODULE VERWIJDEREN LIJNEN ;Quit naar %F10 [ 04/25/95  1:35 PM ]
 ;
S1 K ^(UVNN)
S1Z K UVNN Q
 ;
S2 S ULSV=UL G S2B:$N(UTA(UVN-100))=-1 F UL=UTA(UVN-100):1:UTA($N(UTA(UVN-100)))-1 S FP=UL*100+1 W @F,@F2 X UV
S2A G S2C
S2B F UL=UTA(UVN-100):1:ULSV-1 S FP=UL*100+1 W @F,@F2 X UV
S2C S UL=ULSV
S2Z Q
 ;
1 S SW12=1,FP=$P(UD,D,2)+1*100+1 W @F,@F1 G YZ:'$D(UTA)!($N(UTA(0))=-1) S FP=2403+F60 W @F,"NUMMER v/d LIJN   -[] = terug naar TEKST : ",@F0 R K
3 G 1:K?.E1C.E!(K=""),YZ:K="-"!(K=",") S (UVN,UVNN)=K+100 G 7:$D(UTA(K))
5 S FP=2403+F60 W @F,@F2,@F4,"LIJN ",$P("ONBEKEND\NIET VERWIJDERBAAR",D,$D(^(UVN))+1),"  [] = ok ",@F5,@F0 R *KY G 1
7 S U2=^(UVN),UO=$P(U2,D,5),FP=2103+F60 W @F,"VERWIJDEREN ",K," : ",UO
8 S FP=2303 W @F,@F1,"V[] = VERWIJDEREN   -[] = hernemen : ",@F0 R K G 1:K="-",YZ:K=",",9:K="V",8
9 S FP=2403 W @F,"V[] = VERWIJDEREN DEFINITIEF   -[] = hernemen : ",@F0 R K G 1:K="-",YZ:K=",",10:K="V",9
10 I $P(U2,D,17)="%F34" S U2=^(1),U2=$P(U2,D,1,19)_D_D_$P(U2,D,21,99),^(1)=U2
11 S FP=$P(UD,D,2)+1*100+1 W @F,@F1 D S1,S2
13 S SW13=1,FP=2402+F60 W @F,@F2,@F4,"LIJN ",UVN-100," """,$E(UO,1,40),""" IS VERWIJDERD [] = ok ",@F5,@F0 R *KY K UO,UTA(UVN-100) G 1
 ;
YZ K UO Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32