cAN208 ;Controlelijst ;%AN200 ; [ 01/04/01  8:45 AM ]
 G 1
 ;
T0 ;Controlelijst ;
T1 ;Aantal kolommen\"[] = 2 (breed papier)   1[] = 1 (smal papier/scherm)";
 ;
T0F ;Liste de contrôle ;
T1F ;Nombre de colonnes\"[] = papier large   1[] = papier A4 / écran";
 ;
T0E ;Checklist ;
T1E ;Number of columns\"[] = 2 (large paper)   1[] = 1 (paper A4 / screen)";
 ;
 ; data per rubriek
S3 S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
S3A I $L(U2(17)) X U2(17)
S3Z Q
 ;
 ; output formaat
S2 S U3=K I $L(U2(8)) X U2(8)
S2Z S U3=$E(U3,1,U2(13)) Q
 ;
 ; selectie
1 N UAK,UAR,UII I 'QP D  S PTS=0,USL=D K PP G 3
 . F I=1:1 S J=$P("C\KEU(C)\LIM1(C)\LIM2(C)\UQA\USA\UQC\USC\UFU\UTX\UREF\SW3\SW4\UAK",D,I) Q:J=""  S @J=PP(I)
11 W /CUP($P(UTIT,D,2)+1,1),/WCMD
13 D ^cAN003(2,C) I K="-" G YZ
 ;
 ; bijkomende vragen
2 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,1""[K" D R0 G 11:K="-"!(K=",")
21 S UAK=$S(K="":2,1:K) W /CUP(8,3),/SGR(4),$P($P($T(@("T1"_QT)),U,2),D),/SGR(0)," : ",UAK
23 ; S PTS=0 I UAK<2 D ^cA347 G 2:K="-",11:K="," I PTS G 3
25 ; S R=UAK-1_D_'$L(LIM1(C)) D ^cA345 G 2:K="-",11:K=","
 D ^cAN3223("",1_$S(UAK<2:"#2",1:""),$S(UAK=2:">80",1:""))
 G 2:K="-",11:K=","
27 I K="." D  S QPT=$T(+0)_"#"_$$UC^cAFA1(UTX) D ^cA109 G YZ
 . F I=1:1 S J=$P("C\KEU(C)\LIM1(C)\LIM2(C)\UQA\USA\UQC\USC\UFU\UTX\UREF\SW3\SW4\UAK",D,I) Q:J=""  S PP(I)=@J
 ;
 ; voorsorteren rubrieken
3 K ^HULP(boot,$J+.02) S UAR=0
31 F SW2=1:1:SW4 D
 . S I=0 F  S I=$O(^DMA(UQA,USA,SW2,I)) Q:I=""  D
 .. K U2 M U2=^(I) I $G(U2(22)),$G(U2(23)) D
 ... S UAR=UAR+1,^HULP(boot,$J+.02,UAR)=SW2_D_I
33 I $L($P(UXX,D)) X $P(UXX,D)
 ;
 ; voorbereiden printen
4 S HD(1)=D,HD(2)=D_$$UC^cAFA1(UTX)_";C;F82",HD(3)=D_$$UC^cAFA1($P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2))_";C;F82"
41 S TAB=$S(UAK<2:"19\79",1:"19\65\84\130"),LN=0
 ;
 ; eigenlijke printen
5 S UI1="" F  K B D ^cAN004("UI1",C) Q:UI1=""  D  I $G(END) D ^cA334
 . D R^cAN000 I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK Q
 . F UII=1:1:$S(UAK<2:UAR,1:UAR+1\2) D  D ^cA334 K TXT
 .. S I=^HULP(boot,$J+.02,UII),SW2=$P(I,D),I=$P(I,D,2)
 .. S C(1)=I D M^cAN000(1)
 .. S TXT(1)=" "_$P(U2(1),D,QTU) D S3,S2 S TXT(2)=" "_U3
 .. I UAK>1 S I=UAR+1\2+UII I I'>UAR D
 ... S I=^HULP(boot,$J+.02,I),SW2=$P(I,D),I=$P(I,D,2)
 ... S C(1)=I D M^cAN000(1)
 ... S TXT(3)=" "_$P(U2(1),D,QTU) D S3,S2 S TXT(4)=" "_U3
 . S OK=1 I $L($P(UXX,D,2)) X $P(UXX,D,2)
 . I OK S END=2 I LN,UAR>LNMAX!(UAR+1\2>LNMAX&(UAK>1))!PTS S END=4
51 S END=6 D ^cA334 K ^HULP(boot,$J+.02) I 'QP Q
53 G 11
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84