KOFVT G 1 ; MODULE REGISTREREN VASTE TEKSTEN OFFERTES; Quit naar %F10 [ 08/05/2002  11:48 AM ]
 ;
1 S R="2000\TEKSTKODE\UT\UT" D S7 G YZ:K="-" S IC1=R,IC2=$N(@("^"_Q_"UT(IC1,0)")),IC2=0,TEL=5,UUV=1
3 S IC2=$N(^(IC2)) G YZ:IC2=-1 S X=$P(^(IC2),D,$F("NFED",KT)-1) G YZ:'$L(X) S TEL=TEL+100,B(TEL)=X,B(TEL+12)="KOFVT"
5 D S2 W ?5,X F I=2,5,47,57,69,73,75,79 S FP=UL*100+I W @F,"|"
6 D S0 I TEL=105 S UTA(UZ-1)=UL-1,UTEL=UTEL+1,UTB(UTEL)=UZ-1 G 3
7 S UTEL=UTEL+1,UTB(UTEL)=UZ-1 G 3
YZ K IC1,IC2,TEL,R Q
 ;
S0 I UL>$P(UD,D,2) S FP=UL+1*100+1,UL=UL-1 W @F,@F1 S FP=UD*100+1 W @F,@FDL D S5
S0A S UL=UL+1
S0Z Q
 ;
S2 S FP=UL*100+1 W @F,@F1,$C(13),$J(UZ,4) S UZ=UZ+1
S2Z Q
 ;
S5 F I=UTEL-($P(UD,D,2)-$P(UD,D,1)):1:UTEL S:$D(UTA(UTB(I))) UTA(UTB(I))=UTA(UTB(I))-1
S5A K UTA(UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))),UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))
S5Z Q
 ;
S7 S S22=0,S4=$P(R,D,1)+1+F60,S0=0,SA=$P(R,D,2),S8="^"_Q_$P(R,D,3),S9="^"_Q_$P(R,D,4),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) "VOLGNUMMER OF " W SA,"  -[] = EINDE " W:S0&(S22'=-1) "  [] = VERVOLG " W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) S0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K="-" I K="" K ST G S7D:'S0!(S22=-1) S S1=S4 G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"(S2_"" "")")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"(S2)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'S0&($E(S3,1,$L(S6))=S6) S S7=$D(@(S8_"("""_S3_""")")) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"(S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 S S22=$N(@(S9_"(S2)")) I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S10=S10+1,ST(S10)=S2 W @F,$C(13),?2,S10,". ",?6,$P(^(S2,0),D,1),?37,$E($P(^(0),D,2),1,30)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1 G S7A
S7K S FP=2403+F60 W @F,@F2,@F4,SA," ONBEKEND   [] = OK ",@F5,@F0 R K
S7L S (S2,S0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S (R,K)=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,SA,ST Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32