cANU105 ;Ingave criterium ;%ANU10 ; [ 02/22/00  5:54 PM ]
 G 1
 ;
T0 ;Ingave criterium ;
T1 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op;
T2 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op;
T3 ;[] = vervolg;
T4 ;U kan slechts ;x doorschakelen naar een onderliggend bestand ;
T5 ; : pag. ;
T6 ;U heeft geen toegang tot dit bestand ;
 ;
T0F ;Introduction critère ;
T1F ;supérieur à;supérieur ou égal à;égal à;inférieur à;inférieur ou égal à;différent de;commençant par;contient;finissant par;
T2F ;<11>;<12>;<13>;<14>;<15>;<16>;ne pas commençant par;ne contient pas;ne pas finissant par;
T3F ;[] = suite;
T4F ;Vous ne pouvez passer que ; fois à un fichier inférieur ;
T5F ; : page ;
T6F ;Vous n'avez pas d'accès à ce fichier ;
 ;
 ; opbouw scherm
S1(SW2) N UQA,USA S UQA=UQAA,USA=USAA D S1^cAN000(SW2)
S1A N I S I=OMA I SW4A>1 S I=I_$P($T(@("T5"_QT)),U,2)_SW2_"/"_SW4A
S1B W /CUP(1,KMAX-$L(I)-1),I,/WCML
S1Z Q
 ;
 ; tonen nummer + omschrijving rubriek
S2(R) N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R) D
 . I $L(U2(24)) S U2(22)=U2(24)
 . I $L(U2(25)) S U2(23)=U2(25)
S2A I U2(22) W /CUP(U2(2),U2(3)),$J(R,2)
S2B I U2(23) W /CUP(U2(2),U2(3)+3),/SGR(4),$P(U2(1),D,QTU),/SGR(0),/CUP(U2(2),U2(6)-2),":"
S2Z Q
 ;
 ; uitkuisen U2
S3 N I F I=2,3,5:1:15,19:1:25 K U2(I)
S3Z Q
 ;
 ; merge
M(R) N UQA,USA S UQA=UQAA,USA=USAA D M^cAN000(R)
MZ Q
 ;
 ; startbestand
1 K SWA,SWB S SWA=0,SWB(0)=Q1
10 S Q1A=Q1,SW4A=SW4,OMA=OM,UQAA=UQA,USAA=USA S:SW2>SW4A!'SW2 SW2=1
11 K C D S1(SW2)
13 S I="" F  S I=$O(C(I)) Q:I=""  D S2(I) I 'U2(22)!'U2(23) K C(I)
 ;
 ; nummer element
2 D ^cAN006("",22,"","","",SW4A,"","")
23 I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
25 I RK=26,SW2<SW4A S (K,U1)="."_(SW2+1) G 3
27 I RK'=28 G 2
29 I 'K S (K,U1)="."_$TR(K,"-",",")
 ;
 ; uitvoeren keuze
3 I $E(K)="." S U1=$E(K,2,$L(K)) G 2:U1>SW4A!($E(U1)=0)!(U1=SW2),8:$L(U1),2
31 S U1=+K G 2:'$D(C(U1)) D M(U1)
 ;
 ; doorschakelen ?
4 I $L(U2(18)) S OK=0 D  G 11:OK,2
 . I '$$SEC^cANU50(U2(18)) S K=$P($T(@("T6"_QT)),U,2) D TXT^cAFA1(250) Q
 . I SWA=3 S K=$P($T(@("T4"_QT)),U,2)_SWA_$P($T(@("T4"_QT)),U,3) D TXT^cAFA1(250) Q
 . S OK=1,SWA=SWA+1 D S3 M SWA(SWA)=U2 S Q1A=U2(18),SWB(SWA)=Q1A D S1^cANU102
 ;
 ; welke test
5 S J=$P(U2(1),D,QTU) I SWA S J=J_" / "_$P(SWA(SWA,1),D,QTU)
50 S SWCM=1
51 S SWCM='SWCM,R="I\22\3\"_J_"\C2\2\\K<10&K!(K>16&(K<20))!(""-""[K)" D R0 G 51:K="",2:'K S I=+I
 ;
 ; testwaarde
6 ;I $L(U2(19)) X U2(19) G 50:K="-",7
61 S R="K\22\3\"_J_" "_$P($T(@("T"_(I\10+1)_QT)),U,I#10+1)_"\C1\"_U2(9) D R0 G 4:K=",",50:K="-"
 ;
 ; opbouw testlijn
7 D S3 S SWA=SWA+1 M SWA(SWA)=U2
71 K U2 M U2=SWA(1) S U2("SEL",1)=I,U2("SEL",2)=K
 F I=2:1:SWA M U2("LINK",I-1)=SWA(I)
73 K @UREF@(UZA,UZB) M @UREF@(UZA,UZB)=U2 G YZ
 ;
 ; input via .x
8 I U1 S SW2=U1 G 11
81 S K="-"
 ;
YZ K I,J,SWA,U2 Q
 ;
 ; commentaar
C1 W !?2,$P(U2(10),D,QTU) Q
 ;
 ; mogelijke testen
C2 W !?2 I 'SWCM S K=$T(@("T1"_QT)) F I=1:1:6 W I,"[] = ",$P(K,U,I+1) W:I#3=1 ?23 W:I#3=2 ?55 I I=3 W !?2
C2A I SWCM S K=$T(@("T1"_QT)) F I=7:1:9 W " ",I,"[] = ",$P(K,U,I+1) W:I#3=1 ?30 W:I#3=2 ?52 I I=9 W !?2
C2B I SWCM S K=$T(@("T2"_QT)) F I=7:1:9 W 1,I,"[] = ",$P(K,U,I+1) W:I#3=1 ?30 W:I#3=2 ?52
C2Z Q  W !?3+SWCM,$P($T(@("T3"_QT)),U,2) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3