cA212 ;KONTROLELIJST ;%A200 ;go uit %A206 ;do naar %A327 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Controlelijst ;
T1 ;Blz :;
 ;
T0F ;Liste de vérification ;
T1F ;Page:;
 ;
T0E ;Controlelijst ;
T1E ;Blz :;
 ;
S1 S A=$P(K,U),P=$P(K,U,2),I=$P(K,U,3),J=$P(K,U,4),U3="" S:$D(B(I)) U3=$P(B(I),D,J)
S1A S U2=K I $L(P) S K=U3,U3="S U3="_P X U3
S1Z Q
 ;
S3 W ! F I=1:1:'AK*5+8 W "=========="
S3Z Q
 ;
1 X F70 W @F80 S LNMAX=LNMAX+4,LN=0
2 S R="LIM1\"_Q1 D ^cA327 I LIM1="" G 9
3 S B(1)=^(0) F I=1:1:9 S B(I+1)=D I $D(^(I)) S B(I+1)=^(I)
4 D HD:'LN,S3 S LN=LN+1
6 F X=1:1:TS S K=^HULP(boot,$J+(200/10000),X),K1=^(X+TS),LN=LN+1 D S1 W !,A,?MAX,": ",U3 I 'AK S K=K1 D S1 W ?65,A,?65+MAX,": ",U3
7 I LN+TS+1>LNMAX D S3 S LN=0
8 G 2
 ;
9 D S3:LN W $$FF^cA334 X F71 K ^HULP(boot,$J+(200/10000))
 ;
YZ Q
 ;
HD W:BLZ $$FF^cA334 S BLZ=BLZ+1,LN=0 W !,NM1,?122-AK,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30 W:'AK @F82 W $P($T(@("T0"_QT)),U,2),NAAM,@F83,$$CR^cA334
HDZ W ?122-AK,DT,!,NM3,?123-AK,TD,! W:$L($G(ISO)) ?122-AK+8-$L(ISO),ISO,! Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84