KOFWON G 1 ; MODULE WIJZIGEN OFFERTENUMMER;KOFWON;
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S R="URN\22\3\"_$P(U2,U,1)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_"\\"_$P(U2,U,11) D R0 G YZ:"-,"[K,1:K=UR
3 I $D(@("^"_Q_UG1_"(URN,US)")) X ^cTXT(0,"N",66) R K G 1
5 L (@("^"_Q_UGL_"(KC,US,UR)"),@("^"_Q_UGL_"(KC,US,URN)")):2 E  X ^cTXT(0,"N",77) R K G 5
7 S @%Q1=0,UZ=""
11 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 23:UZ=-1 S UU2=^(UZ),@("^"_Q_UGL_"(KC,US,URN,UZ)")=UU2 G 11
23 S (@("^"_Q_UG1_"(URN,US)"),@("^"_Q_UGB_"(URN,US)"))=KC_D,@("^"_Q_UG2_"(US,KC,URN)")=""
25 K @("^"_Q_UG1_"(UR,US)"),@("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
27 S UR=URN,K="-",FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,D,13)),@F,UR
29 S @%Q1=1
YZ K URN,UU2 L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32