KOFT2A G 1 ;TONEN GEGEVENS PRODUKT BIJ TELEFONISCHE OFFERTE [ 10/24/97  11:25 AM ]
 ;
1 S FP=2011 W @F,@F5 S FP=2002 W @F W:'$P(R,D,1) @F4,"NIET-ST",@F5 W:$P(R,D,1) " PRA-ST  " S FP=2011 W @F,": ",$P(R,D,2)
3 S FP=2028 W @F,"KLEIN VP : ",$P(R,D,6) S FP=2054 W @F,"LIJSTPR : ",$P(R,D,11)," ",$P(R,D,9),"/",$P(R,D,10)
5 W ! W:$P(R,D,18)'=$P(R,D,2) ?2,"FYS-ST  : ",$P(R,D,18) W ?27,"NORM VP  : ",$P(R,D,7),?53,$P("KORTING\CODEX  ",D,$P(R,D,16)+1)," : "
7 I $P(R,D,12) W $J($P(R,D,12),4,1)," %  " I $P(R,D,13) W $J($P(R,D,13),4,1)," %"
9 W !?2,"TOEL-ST : ",$P(R,D,3),?27,"GROOT VP : ",$P(R,D,8)
11 W ?53,$P("VERK \KAT",D,$P(R,D,14)+1)
13 W "PR",?61,": ",$P(R,D,15)," ",$P(R,D,9),"/",$P(R,D,10)
14 W !?2,"LEVERT  : ",$P(R,D,5)," ",$S(ULT=1:"WEEK",1:"WEKEN")
15 W !?2,"M BST H : ",$P(R,D,4)," (",$P(R,D,17)," W)"
17 S R="K\24\54\[] = ok\\1\\""-,""[K" D R0^KFTR0 G YZ:K?1"#"2N I $L(K) S K="-" G YZ
19 S:KKN UEP=PLP,UEPS=PLPS
 S UC=PR,B(102)=PR,B(103)=$S($$ISKLANT^KS(KC,"",$S(NoSa=1:"S",1:"N")):PLQ,1:""),B(104)=UE,B(106)=UEP_"#"_UEPS
 S B(107)=PK1_"#"_PK2_"#"_PK1S_"#"_PK2S,B(121)=AFA_"#"_AFAS,B(122)=UMC,B(125)=ULT
21 S UEP=UEP_"#"_UEPS,UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
 I NoSa=1 S UK="" S:PK1S UK=$J(PK1S,4,1) S:PK2S UK=UK_" "_$J(PK2S,4,1)
 ;
YZ K AFA,AFAS,AFE,AFR,KPC,GR,OGR,BGR,KKD,UPAR,MSG,PKP,PLL,PST,PB,PC,PR,PK1,PK2,PLP,PPL,PID,PRE,PSN,PVK
 K PGV,PNV,PKV,PY,Q15,S,UE,UN,UAF,UOD,UOR,UVM,ULTT,X L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32