cA239 ;BEHEER OPENINGSPATROON ;%A238 ; [ 01/23/96  5:02 PM ]
 G 1
 ;
T0 ;Beheer openingspatroon ;
T1 ;Nummer element;-[] = einde programma;-[] = keuze bestand;-[] = keuze scherm;
T2 ;Rubriek ;[] = vaste waarde toekennen   ?[] = vragen bij het openen;
 ;
T0F ;Gestion création suivant masque;
T1F ;Numéro d'élement;-[] = fin de programme;-[] = sélection fichier;-[] = sélection écran;
T2F ;Rubrique ;[] = assigner une valeur fixe   ?[] = demander au moment de la création;
 ;
T0E ;Beheer openingspatroon ;
T1E ;Nummer element;-[] = einde programma;-[] = keuze bestand;-[] = keuze scherm;
T2E ;Rubriek ;[] = vaste waarde toekennen   ?[] = vragen bij het openen;
 ;
1 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T1"_QT)),U,$S(SW4>1:5,SW1:4,1:3))_"""\2\\$L(K)" D R0 G YZ:K="-"!(K=",")
11 S U1=+K G 1:'$D(A(U1)) S U2=A(U1),U7=$P(U2,U,16) I 'SW20,U7<102 S R=69 D F2 G 1
13 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_(U1#100)_" = "_$P(U2,U)_"\"""_$P($T(@("T2"_QT)),U,3)_"""\1\\""-,?""[K" D R0 G 1:K="-"!(K=","),3:K="?"
15 S K=$P(B(U7\100),D,U7#100) S:K="?" K="" S B(U7)=K
 ;
2 I $L($P(U2,U,17)),$L($P(U2,U,18)),@$P(U2,U,18) X $P(U2,U,17) S B(U7)=K D 0^cA207 S:K="" K=B(U7) G 25
21 I $L($P(U2,U,19)),$L($P(U2,U,20)),@$P(U2,U,20) X $P(U2,U,19) G 25
23 D ^cA207
25 I K="-"!(K=",") G 33
 ;
3 S U3=K I $L($P(U2,U,8)),K'="?" X "S U3="_$P(U2,U,8)
31 S $P(B(U7\100),D,U7#100)=K,FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3))
33 K B(U7) G 1
 ;
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
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84