KKFI7 G 1 ;OVERZICHT RAPPORTEN ;KKFI1; Quit naar KKFI6 [ 06/25/2002  11:02 AM ]
 ;
T5 ;VAN 
T6 ;DATUM 
T7 ;MOTIVATIE : 
T8 ;EVALUATIE : 
T9 ;WIJ\KL.
T10 ;;VERSLAG
T11 ;;BESTELLING
 ;
1 S (X,R)=$P(X(2),D,1) I $L(X),$D(^vhUSER("D",X)) S X=^vhUSER("D",X)
2 W ?21,$P($T(T5),U,2),$P(X,D,5),?79,":"
21 W !?3,": ",$P($T(T6),U,2),$$EXTDATE^vhDTyp($P(X(1),D,1)),"  ",$$EXTTIME^vhDTyp($P(X(1),D,2))
23 I $D(@("^"_Q_"BA(162,$P(X(1),D,5))")) W "  ",$P(^($P(X(1),D,5)),D,1)
24 W ?59,$P($T(T10),U,$P(X(1),D,9)+2)
25 W ?68,$P($T(T11),U,$P(X(1),D,8)+2),?79,":",!?3,":",?79,":" S X(2)=$P(X(2),D,2,99),Z=$P($T(T9),U,2)
3 S Y=$P(X(3),D,1),X(3)=$P(X(3),D,2,99) I '$L(Y) G 3:$L(X(3))
31 S:X'[D X=D_X W !?3,":",?5,$P(Z,D,1),?9,$P(X,D,5),?35,$P(Z,D,2),?39,Y,?79,":"
33 S X=$P(X(2),D,1),X(2)=$P(X(2),D,2,99) I '$L(X) G 33:$L(X(2))
34 I $L(X),$D(^vhUSER("D",X)) S X=^vhUSER("D",X)
35 S Y=$P(X(3),D,1),X(3)=$P(X(3),D,2,99) I '$L(Y) G 35:$L(X(3))
36 S Z="" G 31:$L(X)!$L(Y) W !?3,":",?79,":",!?3,": ",$P($T(T7),U,2) F I=1:1:3 W $C(13),?17,$P(X(1),D,6)
37 F J=1,2 I $L($P(MOT,D,J)) W ?79,":",!?3,":" F I=1:1:3 W $C(13),?17,$P(MOT,D,J)
38 W ?79,":",!?3,": ",$P($T(T8),U,2) F I=1:1:3 W $C(13),?17,$P(X(1),D,7)
39 F J=1,2 I $L($P(EVA,D,J)) W ?79,":",!?3,":" F I=1:1:3 W $C(13),?17,$P(EVA,D,J)
 ;
5 W ?79,":"
 ;
YZ Q
 ;