cTU42 ;INGAVE CRITERIUM ;%TU2 ; [ 07/20/95   2:00 PM ]
 G 1
 ;
T1 ;WELK SCHERM VAN DE ;er zijn ; schermen;   [] = scherm ;SCHERM ;
T2 ;WELKE RUBRIEK\"xx[] = bepaalde rubriek";RUBRIEK ;
T3 ;[] = vervolg;
T4 ;groter dan;groter of gelijk aan;gelijk aan;kleiner dan;kleiner of gelijk aan;verschillend van;beginnend met;bevat;eindigend op;
T5 ;<11>;<12>;<13>;<14>;<15>;<16>;niet beginnend met;bevat niet;niet eindigend op;
 ;
 ; merge rubriek
S1 S K=$G(@("^"_Q_"LI(SQ1,S1)"),U) F SI=2,3,5,6,22,23 S:$L($P(K,U,SI)) $P(I,U,SI)=$P(K,U,SI)
S1A G S1Z:$P(K,U,12)!$P(I,U,23) S K=$S(SQ1=Q1:$P(K,U,10,13),1:U)
S1B S K=$P(I,U)_U_$P(I,U,9)_U_$P(I,U,16)_U_($P(I,U,21)="DCTR")_U_$P(K,U,1,2) S:$P(I,U,22) T=T+1,A(T)=K,^HULP($J,T)=""""_$P(I,U,10)_""""
S1C S FP=$P(I,U,5)*100+$P(I,U,6)-2 W @F,":" S FP=$P(I,U,2)*100+$P(I,U,3) W @F W:$P(I,U,22) $J(T,2) S FP=FP+2 W @F,@F6,$P(I,U),@F9
S1Z K SI Q
 ;
 ; startbestand
1 S (TL,TL1,TL2)="",SQ1=Q1,SAS=AS,SOM=OM S:SAS=1 OS=1 S:OS>SAS OS=0
 ;
 ; welk scherm
2 I SAS>1 S R="K\22\3\"_$P($T(T1),U,2)_SOM_"\C1\"_$L(SAS)_"\\""-""[K&($L(K)!OS)!(K?.N&K&(K'>SAS))" D R0 G YZ:K="-" S:K OS=+K
21 S FP=250 W @F,@F1,$J($E($P($T(T1),U,6)_OS_" "_SOM,1,28),28)
 ;
 ; opbouw scherm
3 K A,^HULP($J) S T=0 F S1=101,102 S I=@("^"_Q_SQ1_"(0,S1)") D S1
31 S:OS>1 S1=OS*100 S S2=S1
33 S S1=$O(@("^"_Q_SQ1_"(0,S1)")),I=$S(S1\100=OS:^(S1),1:""),S2=$O(@("^"_Q_"LI(SQ1,S2)"))
35 I S1\100'=OS S S1=S2+1 I S2\100'=OS G 4
37 I S2\100=OS,S2<S1 S I=^(S2),S1=S2
39 S:S2>S1!'S2 S2=S1 D S1 G 33
 ;
 ; welke rubriek
4 S R="K\22\3\"_$P($T(T2),U,2)_"\2\\K=""-""!$D(A(+K))" D R0 I 'K G 2:SAS>1,YZ
41 S TL2=A(+K) I $L($P(TL2,U,5)) S TL1=TL2,SQ1=$P(TL2,U,5) D S1^cTU4 S OS=$S(SAS>1:0,1:1) G 2
43 S COM=^HULP($J,+K)
 ;
 ; welke test
5 S SWCM=1
51 S SWCM='SWCM,R="I\21\3\"_$P(TL2,U)_"\C2\2\\K<10&K!(K>16&(K<20))!(""-""[K)" D R0 S FP=2101 W @F,@F1 G 51:K="",4:'K
 ;
 ; testwaarde
6 S R="K\22\3\"_$P(TL2,U)_" "_$P($T(@("T"_(I\10+4))),U,I#10+1)_D_COM_D_$P(TL2,U,2) D R0 G 4:K=",",5:K="-"
 ;
 ; opbouw testlijn
7 S TL=I_U_K_U_$P(TL2,U,1,4)
71 I $L(TL1) S TL=I_U_K_U_$P(TL2,U)_" "_$P(TL1,U)_U_$P(TL1,U,2,6)_U_$P(TL2,U,3,4)
73 I $L(TL1) S I=$P(@("^"_Q_"LI(SQ1,0)"),U,4) I $L(I) S $P(TL,U,7)=I
 ;
YZ K TL1,TL2 Q
 ;
 ; aantal schermen
C1 W !?2,$P($T(T1),U,3),SAS,$P($T(T1),U,4) W:OS $P($T(T1),U,5),OS Q
 ;
 ; mogelijke testen
C2 W !?2 I 'SWCM S K=$T(T4) 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(T4) 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(T5) F I=7:1:9 W 1,I,"[] = ",$P(K,U,I+1) W:I#3=1 ?30 W:I#3=2 ?52
C2Z W !?3+SWCM,$P($T(T3),U,2) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7