KOFT1 G 1 ;TELEFONISCHE OFFERTE;KOFT1; Do naar KOFT17,KOFT10 [ 10/01/97  10:39 AM ]
 ;
1 S US="F",UKIL="",UGL="OFT",UG1="OFT1",UG2="OFT2",UGB="OFTB"
3 S U=";",X=@("^"_Q_UGL_"(0,US,0)") F I="UD","UT","USM","USC","UV","UUM" S @I=^(I)
5 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",BLA="                                                            ",PNT="........................................"
7 S UVV=$P($P(UV," ",2),"=",2),Q1="^"_Q_UGL_"(0,US,""UR"")" X X,UT K X,UT G 19
9 S U1=@Q1,U1=100 L
11 S U1=$N(^(U1)) G 19:U1'?.N S U2=^(U1),FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
15 I '$P(U2,U,23) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,$E(BLA,1,$P(U2,U,6)-$P(U2,U,3))
17 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$E(BLA,1,$P(U2,U,9)),$E(BLA,1,$P(U2,U,13)) G 11
19 S (SW13,UTEL)=0,UL=+UD,FP=UD*100+1 W @F,@F1 K UTA,UTB
21 K KC S UR="A" I $D(PARAM),$L($P(PARAM,D,1)) S KC=$P(PARAM,D,1) K PARAM
22 D ^KOFT17 G YZ:K="-",26:K?1"#"2N L  S K="" D ^KOFT10
23 K @("^"_Q_UG1_"(UR,US)"),@("^"_Q_UGB_"(UR,US)"),@("^"_Q_UG2_"(US,KC,UR)"),@("^"_Q_UGL_"(KC,US,UR)")
24 I K="I" S PARAM=KC G TK^RPLSW
25 G 9:K'?1"#"2N
 ;
26 G ^KFTP
 ;
YZ K ^HULP($J) Q
 ;
Z X ^cZ Q
ZZ ; 10.07.91 - 16 u 44