cANU29 ;Controlelijst listings ;%ANU29 ; [ 06/10/97  12:16 PM ]
 G 1
 ;
T0 ;Controlelijst listings ;
T1 ; Lijn;Kol.; Omschrijving;ST.;Pos.;Tot.; Commentaar;
T2 ; Totale lengte;
 ;
T0F ;Liste de vérification des listings ;
T1F ;Ligne;Col.; Description;ST.;Pos.;Tot.; Rubrique;
T2F ; Longueur totale;
 ;
 ; streepjeslijn
1 S END=2 D ^cA334
 ;
 ; detail lijnen
2 S I="6\11\38\42\47\52\"_$P(TAB,D,$L(TAB,D)) N TAB S TAB=I
21 F I=1:1:$L(TAB,D) S TXT(I)=$P($T(@("T1"_QT)),U,I+1)
23 D ^cA334 S END=145 D ^cA334 K TXT
 ;
 ; lijn per lijn
3 F UZA=1:1 Q:'$D(@UREF@(UZA))  D
 . I UZA>1 S END=132 D ^cA334
 . S TXT(1)=$J(UZA,4),LEN=1
 . F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  D
 .. S TXT(2)=$J(UZB,3)
 .. S TXT(3)=" "_$$S2^cANU202(UZB)
 .. I $G(@UREF@(UZA,UZB,"SUB")) S TXT(4)=$$JN^cAFO1(1)_D_2
 .. S TXT(5)=$J($L(TXT(3))-1,3),LEN=LEN+$L(TXT(3))-1+3
 .. I $G(@UREF@(UZA,UZB,"TOT")) S TXT(6)=$$JN^cAFO1(1)_D_2
 .. S COM=$G(@UREF@(UZA,UZB,10))
 .. F I=1:1 Q:'$D(@UREF@(UZA,UZB,"LINK",I))  S COM=$G(^(I,10))
 .. S TXT(7)=" "_COM
 .. D ^cA334 K TXT
 . S TXT(3)=$P($T(@("T2"_QT)),U,2),TXT(5)=$J(LEN,3) D ^cA334 K TXT
33 S END=145 D ^cA334
 ;
YZ S OK=1 Q
 ;
ZZ ; 19.06.97 -  9 u 29 * V6.3