KKOV5 G 1 ;REGISTRATIE KONKURENTIEOVERZICHT (MODULE TONEN DETAIL);KKOV4:Quit naar KKOV1 [ 05/17/2002  11:13 AM ]
 ;
T1 ;"0;C;L;0;;;0 S BLD=$P(FL(3),D,27)=0\5;C;L;12;;|;BLD\28;C;L;1;;|;BLD\1;C;L;4;;|;BLD\11;C;L;4;;|;BLD\12;N+;R;6;;|;BLD\6;N+;R;10;2;|;BLD\3;-N;R;10;;|;BLD\9;N+;R;10;2;|;BLD\16;N+;R;15;"_$$MUNT^vhRtn1(,4)_";;BLD"
 ;
1 K L,LN S HG=100,(L,T,TOT,GTOT)=0,LN=""
11 S HG=$N(^KKOV(KC,HG)) G 19:HG=-1 S GR=-1 I HG=$P(K,D,1) S $P(L,D,1)=T+1
12 S GR=$N(^KKOV(KC,HG,GR)) I GR=-1 S TOT=TOT+GTOT G 11:'LN,11:'$D(LN(LN)) S $P(LN(LN),D,16)=GTOT G 11
 S VECS=-1,GEMPR=0 I $D(^KPGR1(GR)) S GEMPR=$P(^(GR),D,4)
13 S VECS=$N(^KKOV(KC,HG,GR,VECS)) G 12:VECS=-1 S FACS=-1
14 S FACS=$N(^KKOV(KC,HG,GR,VECS,FACS)) G 13:FACS=-1
15 S T=T+1,LN(T)=^(FACS),$P(LN(T),D,26,99)=HG_D_GR_D_$P(LN(T),D,25)
 I 'GR,$N(^KKOV(KC,HG,GR))=-1 S $P(LN(T),D,8)=""
 I VECS,$D(^KVER1(VECS)) S $P(LN(T),D,11)=$P(^KVER(^KVER1(VECS),0),D,10)
 I FACS,$D(^KFAB1(FACS)) S $P(LN(T),D,1)=$P(^KFAB(^KFAB1(FACS),0),D,10)
 I HG,'GR S $P(LN(T),D,5)=$$DISPLS^KLASS(HG)
 I HG,GR S $P(LN(T),D,5)=$J($$DISPLS^KLASS(GR),10)
 S $P(LN(T),D,28)=$P("*",D,$P(LN(T),D,28)+1) S:GR=0 $P(LN(T),D,6)="",LN=T,GTOT=0
 S $P(LN(T),D,9)=GEMPR,$P(LN(T),D,16)=GEMPR*$P(LN(T),D,3),GTOT=GTOT+$P(LN(T),D,16)
16 I HG=$P(K,D,1),GR=$P(K,D,2),VECS=$P(K,D,3),FACS=$P(K,D,4) S $P(L,D,2)=T
17 G 14
19 K FN S FP=UD-2*100+69,FN(1)=TOT,FN(2)=0,FN(3)=$$MUNT^vhRtn1(,4),FN(4)="N+" D FN^PROC K FN W @F,@FMTB,$J(R,12),@FMTb
 ;
2 K DL S DL(1)="L",L(1)="LN",L(3)=+UD,L(4)=$P(UD,D,2)-UD+1,(L(6),L(7))=1
 X "S L(2)="_$P($T(T1),U,2,999)
21 I $P(L,D,1),$P(L,D,2) S L(7)=$P(L,D,1),L(6)=$P(L,D,2)
23 D WL^PROC S SW12=1
 ;
YZ K HG,GR,FACS,VECS Q
 ;
 Q
Z X ^cZ Q
ZZ ; 09.01.92 -  9 u 40