KKFI6 G 1 ;OVERZICHT RAPPORTEN ;KKFI1; Do naar KKFI7 - Quit naar KKFI4 [ 06/25/2002  11:01 AM ]
 ;
T1 ;BLZ:
T2 ;RAPPORTENINFO
T3 ;:---------------------------------------------------------------------------:
T4 ;NR. : 
T16 ;INFO
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S LN=LN+4,IDT=$$CALCDATE^vhLib.DataTypes($H,"M",-14,"LD") I LN<50 W !! D HDC
11 S IDT=$N(^VERSLAG("IK",KC,IDT)) G YZ:IDT=-1 S IRP=0
13 S IRP=$N(^VERSLAG("IK",KC,IDT,IRP)) G 11:IRP=-1 K X S X(1)=^VERSLAG("D",IRP,0)
15 S X(2)=$G(^VERSLAG("D",IRP,"I")),X(3)=$G(^VERSLAG("D",IRP,"C"))
16 S LN=LN+8 F I=2:1:4 I $L($P(X(2),D,I))!$L($P(X(3),D,I)) S LN=LN+1
17 S (MOT,EVA)="" ;F I=2,3 F J=20,21 I $L($P(X(I),D,J)) S LN=LN+1,@$P("\MOT\EVA",D,I)=@$P("\MOT\EVA",D,I)_$P(X(I),D,J)_D,$P(X(I),D,J)=""
18 I LN>60 W # D HD G 16
19 W !?3,": ",$P($T(T4),U,2) S R=IRP_"\7\11\0" D R3
2 D ^KKFI7
4 W !?3,$P($T(T3),U,2) G 13
 ;
YZ K IDT,IRP,K,R,Y,X,Z Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,$P(B(1),D,1)," ",$P(B(1),D,2)
HDA W !?3,TD F X=1:1:3 W $C(13),?30,$P($T(T16),U,2)
HDB W !!!
HDC F I=1:1:3 W $C(13),?30,$P($T(T2),U,2)
HDD W !?3,$P($T(T3),U,2)
HDZ Q
 ;