cA346 ;GLOBAL-INTERFACE NAAR ALGEMEEN DRUKPROGRAMMA ;[ 03/22/00  9:48 AM ]
 G 1
 ;
T0 ;Global-interface naar algemeen drukprogramma ;
 ;
T0F ;Interface pour fichier pour imprimer ;
 ;
T0E ;Global-interface naar algemeen drukprogramma ;
 ;
 ; Input : TOP= startindex matrix in bestand\full reference
 ;         TXT= startindex matrix in bestand\full reference
 ;         U1 = informatie hoofding
 ;         U5 = informatie detaillijn
 ;         KT = taalkode listing
 ;
 ; Output: var. HD(),TOP(),TIT(),TAB en per lijn TXT(1)...TXT(n)
 ;         
 ; inlezen matrix
S1 K A S RI=$P(R,D),RB=$P(R,D,2),R=$D(@RB),R=RI
S1A S R0=101 F R1=1:1 S R=$O(^(R)) Q:R=""!(R>(RI+99))!(R'?4N)  S A(R0)=^(R),R0=R0+1
S1Z K R,RI,RB,R0,R1 Q
 ;
1 K TAB S U6=1
12 S R0="" F R=1:1 S R0=$O(TOP(R0)) Q:R0=""  K TOP(R0)
14 S R0="" F R=1:1 S R0=$O(TIT(R0)) Q:R0=""  K TIT(R0)
16 S R0="" F R=1:1 S R0=$O(TXT(R0)) Q:R0=""  K TXT(R0)
 ;
 ; opbouw hoofding
2 ; voorlopig geen stuurnodes : HD() wordt meegegeven vanuit de applicatie
 ;
 ; opbouw top
3 S R=TOP D S1 S U9=""
31 S U9=$O(A(U9)) G 4:U9="" S U8=A(U9)
 S $P(U8,U)=$S($L($P($P(U8,U),"~",QTU)):$P($P(U8,U),"~",QTU),1:$P($P(U8,U),"~"))
 I '$P(U8,U,6) S $P(U8,U,6)=$P(U8,U,3)+$L($P($P(U8,U),D,U6))+1+$G(PTS)
32 I $L($P(U8,U,4)),@$P(U8,U,4) G 34
33 S TOP(+$P(U8,U,2),+$P(U8,U,3))=$P($P(U8,U),D,U6)_U_$P(U8,U,3)
34 I $L($P(U8,U,5)),@$P(U8,U,5) G 37
35 X "S K="_$P(U8,U,7) X:$L($P(U8,U,8)) $P(U8,U,8) G 37:K="-"
36 S TOP(+$P(U8,U,2),+$P(U8,U,6))=$E(K,1,$S($P(U8,U,9):$P(U8,U,9),1:999))_U_$P(U8,U,6)
37 G 31
 ;
 ; opbouw TIT en TAB
4 S R=TXT D S1 S U9="",TIT(1)=""
41 S U9=$O(A(U9)) G 49:U9="" S U8=A(U9)
 S $P(U8,U)=$S($L($P($P(U8,U),"~",QTU)):$P($P(U8,U),"~",QTU),1:$P($P(U8,U),"~"))
 I '$P(U8,U,2) S $P(U8,U,2)=$P(U8,U,3)+1
42 I $P(U8,U,3)>1 S:$D(TAB) TAB=TAB_D_$P(U8,U,3) I '$D(TAB) S TAB=$P(U8,U,3)
43 I $L($P(U8,U,4)),@$P(U8,U,4) G 45
44 S:$L(TIT(1)) TIT(1)=TIT(1)_D S TIT(1)=TIT(1)_$J("",$P(U8,U,2)-$P(U8,U,3)-1)_$P($P(U8,U),D,U6)
45 G 41
49 S TAB=TAB_D_($P(U8,U,3)+$P(U8,U,9)+1)
 ;
 ; opbouw detaillijn
5 G 6:$G(END) S R=TXT D S1 S U9=""
51 S U9=$O(A(U9)) G 6:U9="" S U8=A(U9) I '$P(U8,U,6) S $P(U8,U,6)=$P(U8,U,3)+1
52 S TXT(U9-100)="" I $L($P(U8,U,5)),@$P(U8,U,5) G 56
53 X "S K="_$P(U8,U,7) X:$L($P(U8,U,8)) $P(U8,U,8) G 56:K="-"
54 I $P(U8,U,18),'K S TXT(U9-100)="" G 56
55 I $L($P(U8,U,17)),$P(U8,U,17)'?1N.N X "S $P(U8,U,17)="_$P(U8,U,17)
550 S TXT(U9-100)=K_D_$P(U8,U,15)_D_$S($P(U8,U,20):$P(U8,U,20),1:$P(U8,U,6)-$P(U8,U,3)-1)_D_$P(U8,U,19)_D_$P(U8,U,11)_D_$S($P(U8,U,17)?1N.N:$P(U8,U,17),1:"")_D_$P(U8,U,14)_D_$P(U8,U,13)_D_$P(U8,U,12)
56 G 51
 ;
6 D ^cA334
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84