cA309 ;BEHEER EIGEN HOOFDING ;%A309 ; [ 12/29/00  5:07 PM ]
 G 1
 ;
T0 ;Beheer eigen hoofding ;
T1 ;Nummer element\".[] = alle elementen invullen   -[] = einde programma";
T2 ;Omschrijving;
T3 ;"                   x    x    x    x    x";
 ;
T0F ;Gestion des coordonnées de la société ;
T1F ;Numéro d'element\".[] = tous les éléments   -[] = fin du programme";
T2F ;Description;
T3F ;"                  x    x    x    x    x";
 ;
T0E ;Company settings ;
T1E ;Number element\".[] = fill in all elements   -[] = end program";
T2E ;Description;
T3E ;"                   x    x    x    x    x";
 ;
S1 S L=$S(A=1.1:5,1:A+4),FP=L*100+7 W @F,@F5 S FP=FP-$L(A)-2 W @F,@F4,A,".",@F5
S1A S X=L(A),R="X\22\3\"_$P($T(@("T2"_QT)),U,2)_D_$P($T(@("T3"_QT)),U,2)_"\25\\\\\\\1" D R0
S1B I K'="-",K'="," S L(A)=X,FP=L*100+10 W @F,@F2,L(A)
S1C S FP=L*100+2 W @F," ",$S(A=1.1:A,1:$J(A,3)),". :"
S1Z Q
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S TEL=0,K=$D(@("^"_Q_"BA(99,1)")) I 'K H
11 F K=1,1.1,2:1:9 S TEL=TEL+1,FP=TEL+3*100+3 W @F,$S(K=1.1:K,1:$J(K,3)),". : " S L(K)=$S($D(^(K)):^(K),1:"") W L(K)
13 S R="A\22\3\"_$P($T(@("T1"_QT)),U,2)_"\3\\K=""-""!(K=""."")!(K=1.1)!(K?1N&(K>1))" D R0 G Y:K="-" I K=1 G 13
15 I K'="." D S1 G 13
17 S A=1.1
19 D S1 I K="-" G 13:A=1.1 S A=$S(A=2:1.1,1:A-1) G 19
21 S A=A\1+1 G 19:A<10,13
 ;
Y S @%Q1=0,@("^"_Q_"BA(99,1.1)")=L(1.1) F K=2:1:9 S ^(K)=L(K)
Y1 F K=10:1:12 S:'$D(^(K)) ^(K)=""
YZ 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 ; 05.02.01 - 16 u 23 * V7.84