KFCOLM(KC,US,UR,UC,UA,PR) ;CONTRACT-ORDERLIJNEN (markering genoeg, gelijk of te weinig); [ 09/27/93  1:45 PM ]
 ;
 N I,R,ZR
 S ZR=$ZR
 S R=$P(^KOD(KC,US,UR,1),D,25)
 I R'="C" S R=""
 E  D
 .I '$G(PR) D  Q:'$G(PR)
 ..S R=$$COMPRES^PRODUKT(UC)
 ..I '$D(^KPR1(R)) S R="" Q
 ..S PR=$P(^KPR1(R),D)
 .I '$D(^KPBI("D",KC,PR)) S R=" " Q
 .S R="*" Q
 .S R=$P(^KPBI("D",KC,PR),D),R=$S(R<UA:"*",R=UA:"=",1:"!")
 S ZR=$D(@ZR)
 Q R
 ;
Z X ^cZ Q
ZZ ; 12.10.90 - 15 u 19