KOFTYP G 1 ; MODULE TYPE [ 06/01/94  7:54 AM ]
 ;
T1 ;DETAILOFFERTE;D
T2 ;PRIJSLIJST;P
T3 ;CONTRACT;C
T4 ;KLANTGEBONDEN;K
T5 ;AFROEP;A
 ;
1 K Y
 I PROG="KF17" S $P(B(1),D,9)=1,$P(B(1),D,25)="D"
 F I=1:1 S R=$T(@("T"_I)) Q:R=""  S Y(I)=$P(R,U,2)
 S K=$P(B(1),D,25),X=$F("DPCKA",K)-1,Y="21\\TYPE",Y(0)=I-1
 D ^POP
 S K=$S('X:"-",1:X)
 I K'="-" D
 .S K=$P($T(@("T"_K)),U,3),R=$P(U2,U,16)
 .I PROG="KF17" S B(R)=K,B(109)=$S(K="P":"",1:1)
 .S $P(B(R\100),D,R#100)=K,$P(B(1),D,9)=$S(K="P":"",1:1)
 S FP=$P(UD,D,2)+1*100+1 w @F,@F1
 I K="P" F I=10,12:1:14 S $P(B(1),D,I)="" I PROG="KF17" S B(100+I)=""
 ;I K="D",PROG="KF17" S $P(B(1),D,12)=1,B(112)=1
 I "CAK"[K S $P(B(1),D,10)=1,$P(B(1),D,14)="" I PROG="KF17" S B(110)=1,B(114)=""
 I PROG'="KF17" D SHOWINST,TYPE
YZ Q
 ;
DISPLAY 
 N T
 S T=$F("DPCKA",K)-1,U3=$P($T(@("T"_T)),U,2)
 D TITEL(K)
 Q
 ;
TITEL(K) 
 S K=$S(K="P":"",1:1)
 I OFFTYP'=K D
 .X @("^"_Q_UGL_"(0,US,""UT""_K)")
 .S UD=@("^"_Q_UGL_"(0,US,""UD""_K)"),USM=^("USM"_K),UV=^("UV"_K),UVV=$P($P(UV,"=",2)," ",1)
 .S:$L($G(USC)) USC=^("USC"_K)
 Q
 ;
SHOWINST 
 N K,I,U2
 S I=""
 F  S I=$O(A(I)) Q:I=""  S U2=A(I) I $P(U2,U,16)=110 D DISPLAY^KOFINST Q
 Q
 ;
TYPE N U2
 S U2=""
 F  S U2=$O(A(U2)) Q:U2=""  I $P(A(U2),U,16)="UR" Q
 I $L(U2) S U2=A(U2)
 I $P(U2,U,16)'="UR" Q
 S FP=$P(U2,U,5)*100+$P(U2,U,6)+$L(UR) W @F," "
 I $L(K) W @F,@FMTB,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",K)),@FMTb,@FMTk
 Q
 ;