KOF1925A ;OFFERTE MODULE MANUELE LIJN; Quit naar KOF1925 [ 11/07/2001  10:04 AM ]
 ;
S1 S X=0 I UL>$P(UD,D,2) S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=UD*100+1 W @F,@FDL D S2
S1A S X=X+1,UP=$P(UUM,D,X) G S1D:UP="",S1A:'$D(@$P(UP,U,1)) S FP=UL*100+1+$P(UVV,",",$P(UP,U,2)) W @F
S1B I $P(UP,U,3)="L" W @$P(UP,U,1) W:$P(UP,U,1)'="U26" $E(BLA,1,$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1-$L(@$P(UP,U,1))) G S1A
S1C W $J(@$P(UP,U,1),$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1) G S1A
S1D I '$D(UA) F I=2,5,47,57,69,73,75,79 S FP=UL*100+I W @F,"|"
S1E I $D(UA) X UV
S1F S UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UTA(UVN-100)=UL,UL=UL+1,UTEL=UTEL+1,UTB(UTEL)=UVN-100
S1Z Q
 ;
S2 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
S2A K UTA(UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))),UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))
S2Z Q
 ;