cA236 ;BEHEER OPENINGSPATRONEN ;%A238 ; [ 01/23/96  5:01 PM ]
 ;
T0 ;Beheer openingspatronen ;
T1 ;Selectie patroon\".[] = openen   Vxx[] = verwijderen xx   Wxx[] = wijzigen omschrijving";
T2 ;Omschrijving;
T3 ;Bevestiging\"V[] = definitief verwijderen   ,[] = hernemen";
T4 ;Patroon ;
T5 ;U kan maximaal 30 patronen opgeven ;
 ;
T0F ;Gestion masques de création ;
T1F ;Sélection masque\".[] = créer   Vxx[] = annuler xx   Wxx[] = modifier description";
T2F ;Description;
T3F ;Confirmation\"V[] = annuler définitivement   ,[] = reprendre";
T4F ;Masque ;
T5F ;Vous ne pouvez avoir que 30 masques ;
 ;
T0E ;Beheer openingspatronen ;
T1E ;Selectie patroon\".[] = openen   Vxx[] = verwijderen xx   Wxx[] = wijzigen omschrijving";
T2E ;Omschrijving;
T3E ;Bevestiging\"V[] = definitief verwijderen   ,[] = hernemen";
T4E ;Patroon ;
T5E ;U kan maximaal 30 patronen opgeven ;
 ;
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 FP=402,UP=0 W @F,@F6,$P(@("^"_Q_Q1_"(0,0)"),U),@F9,@F1
11 S UP=$O(@("^"_Q_"BA(Q0,1,Q1,UP)")) G 15:UP="" S A(UP)=$G(^(UP),"?"),FP=UP+4*100+2 I UP>15 S FP=UP-11*100+40
13 W @F,$J(UP,2),". ",A(UP) G 11
15 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\3\\K=""-""!(K="","")!(K=""."")!(K?1N.N)!(K?1""V""1N.N)!(K?1""W""1N.N)\\\1" D R0
17 G YZ:K="-"!(K=","),2:K=".",3:$E(K)="V",4:$E(K)="W" S UP=+K G YZ:$D(A(UP))
19 S RA=$P($T(@("T4"_QT)),U,2)_UP,R=8 D F2 G 15       
 ;
2 F UP=1:1 Q:'$D(@("^"_Q_"BA(Q0,1,Q1,UP)"))
21 I UP>30 S K=$P($T(@("T5"_QT)),U,2) D F1 G 15
23 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\28\\$L(K)" D R0
25 I K'="-",K'="," S @("^"_Q_"BA(Q0,1,Q1,UP)")=K G 1
27 G 15
 ;
3 S UP=+$E(K,2,3) I '$D(A(UP)) G 19
30 S FP=$S(UP>15:UP-11*100+39,1:UP+4*100+1) W @F,"*"
31 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0
33 I K="V" K @("^"_Q_"BA(Q0,1,Q1,UP)"),A(UP) G 1
35 S FP=$S(UP>15:UP-11*100+39,1:UP+4*100+1) W @F," " G 15
 ;
4 S UP=+$E(K,2,3) I '$D(A(UP)) G 19
40 S FP=$S(UP>15:UP-11*100+39,1:UP+4*100+1) W @F,"*"
41 S A=$G(@("^"_Q_"BA(Q0,1,Q1,UP)")),R="A\22\3\"_$P($T(@("T2"_QT)),U,2)_"\\28\\$L(K)\\\\\1" D R0
43 I K'="-",K'="," S @("^"_Q_"BA(Q0,1,Q1,UP)")=K G 1
45 S FP=$S(UP>15:UP-11*100+39,1:UP+4*100+1) W @F," " G 15
 ;
YZ K A,RA 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