cTU92 ;INGAVE KOLOM ;%TU7 ; [ 09/01/95   1:53 PM ]
 G 1
 ;
T1 ;WELK SCHERM VAN DE ;er zijn ; schermen;   [] = scherm ;SCHERM ;
T2 ;WELKE RUBRIEK\"xx[] = bepaalde rubriek   .[] = lege kolom";RUBRIEK ;
T3 ;AANTAL POSITIES\"maximum ;
T4 ;OMSCHRIJVING\"[] = ;
T5 ;TOTAAL BEREKENEN\"[] = neen   .[] = ja";
 ;
 ; 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(I,U,23) S K=$P(K,U,10,13) S:SQ1'=Q1 K=U_U_$P(K,U,3,9)
S1B S K=$P(I,U)_U_($P(I,U,9)+$P(I,U,13))_U_$P(I,U,8)_U_$P(I,U,16)_U_$P(K,U,4)_U_$P(K,U,1,2) S:$P(I,U,22) T=T+1,A(T)=K
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 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))!(K=""."")" D R0 I K'=".",'K G 2:SAS>1,YZ
40 I K="." S A=99,(TL,TL1,TL2)="" G 51
41 S TL2=A(+K) I $L($P(TL2,U,6)) S TL1=TL2,SQ1=$P(TL2,U,6) D S1^cTU4 S OS=$S(SAS>1:0,1:1) G 2
43 S FP=2103 W @F,$P($T(T2),U,3),+K," - ",$P(TL2,U),@F1 I $L(TL1) W " ",$P(TL1,U)
 ;
 ; aantal posities
5 S A=$P(TL2,U,2) I TL="" S TL=A_U_$P(TL2,U) I $L(TL1) S TL=TL_" "_$P(TL1,U)
51 S I=$P(TL,U),R="I\22\3\"_$P($T(T3),U,2)_A_"""\2\\K'>A&K!(K=""-"")\\\\\1" D R0 I K="-" S FP=2101 W @F,@F1 G 4
53 S $P(TL,U)=I
 ;
 ; omschrijving
55 S A=$E($P(TL,U,2),1,$P(TL,U))
57 S I=$P(TL,U,2),R="I\22\3\"_$P($T(T4),U,2)_A_"""\"_$P(TL,U)_"\\\\\\\1" D R0 G 51:K="-" I K="," S FP=2101 W @F,@F1 G 4
59 S:K="" I=A S $P(TL,U,2)=I,FP=2103 W @F,@F1,I
 ;
 ; totaal ?
6 S I=$L($P(TL2,U,5)) I 'I G 7
61 S R="K\22\3\"_$P($T(T5),U,2)_"\1\\""-,.""[K" D R0 G 57:K="-" I K="," S FP=2101 W @F,@F1 G 4
63 S I=$L(K)
 ;
 ; opbouw lijn
7 S TL=$P(TL,U,1,2)_U_$P(TL2,U,3,5)_U_U_U_I
71 I $L(TL1) S TL=$P(TL,U,1,5)_U_$P(TL1,U,6,7)_U_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
 ;
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