cTE5 ;BEHEER BUDGET-PATRONEN ;%TE5; [ 12/01/99  11:17 AM ]
 G 1
 ;
T0 ;Beheer budget-patronen ;
T1 ;Code patroon\Omschrijving\;
T2 ;Code patroon\"xxxxx[] = openen code   [] = overzicht codes   -[] = einde programma";
T3 ;Bevestiging\"[] = ok   ,[] = hernemen";
T4 ;Nummer element\"-[] = einde wijzigingen   V[] = verwijderen code";
T5 ;,[] = hernemen   V[] = definitief verwijderen;
T6 ;Omschrijving;
T7 ;"xxxx[] of xxxx.xx[] = gebudgetteerd percentage voor die maand";
T8 ;Patrooncode;
T9 ;   [] = vervolg;
 ;
T0F ;Gestion des modèles de budget ;
T1F ;Code modèle\Dénomination\;
T2F ;Code modèle\"xxxxx[] = création code   [] = aperçu codes   -[] = exit";
T3F ;Confirmation\"[] = ok   ,[] = reprendre";
T4F ;N° d'élément\"-[] = fin des modifications   V[] = annulation code";
T5F ;,[] = reprendre   V[] = annulation définitive;
T6F ;Dénomination;
T7F ;"xxxx[] ou xxxx.xx[] = pourcentage budgetté pour ce mois";
T8F ;Code modèle;
T9F ;   [] = suite;
 ;
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
11 S K=@("^"_Q_"BA(2)"),I=$P(K,D,2),I=I\1*12+(I#1*100),K=K-1,PAT=$P($T(@("T1"_QT)),U,2)
12 S K=K+1 I K<I S X=K-(K\12*12)+1,X=^cBA(2,$E(QT_"N"),X),PAT=PAT_X_D G 12
13 F I=1:1 S K=$P(PAT,D,I) Q:'$L(K)  S FP=I*100+303-(I>16*1360) W @F,$J("",$L(K)+4),@F9,@F,$J(I,2),".",@F6,K,@F9,$J(":",13-$L(K))
 ;
15 S J=1,R="A(1)\22\3\"_$P($T(@("T2"_QT)),U,2)_"\5\\K'=0" D R0,9 G YZ:K="-" I K="" D S1 G 15:K="-" S A(1)=K
16 L @("^"_Q_"BA(81,K)"):2 E  D TXT^cAFA1(14) G 15
17 G 3:$D(@("^"_Q_"BA(81,K)"))
 ;
2 S J=J+1 I $L($P(PAT,D,J)) S A(J)="" D 91 G 2:K'="-",15:J<3 S J=J-2 G 2
21 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,""[K",J=J-2 D R0 G 2:K="-",98:K=",",95
 ;
3 S K=^(A(1)) F J=1:1 Q:'$L($P(PAT,D,J))  S A(J)=$P(K,D,J) D 9
31 S R="J\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\K?.N&(K>1)!(K=""-"")!(K=""V"")\\\1" D R0 G 4:K="V",95:K="-" D 91:$L($P(PAT,D,J)) G 31
 ;
4 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 31:K'="V"
41 S @%Q1=0 K @("^"_Q_"BA(81,A(1))") S @%Q1=1 G 98
 ;
9 S FP=J*100+322-(J>16*1360) W:J>2 @F,$J(A(J),5) W:J<3 @F,A(J),@F2 Q
91 I J=2 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\\16"
92 E  S R="K\22\3\"_$P(PAT,D,J)_D_$P($T(@("T7"_QT)),U,2)_"\5\\K?.N!(K?.N1"".""2N)!(K=""-"")"
93 D R0 S:K'="-" A(J)=K G 9
95 S K="" F I=1:1 Q:'$L($P(PAT,D,I))  S K=K_A(I)_D
96 S @%Q1=0,@("^"_Q_"BA(81,A(1))")=K,@%Q1=1
98 F I=1:1 Q:'$L($P(PAT,D,I))  S FP=I*100+322-(I>16*1360) W:I<3 @F,@F2 W:I>2 @F,$J("",5)
99 G 15
 ;
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
 ;
S1 D ^cAN105("K",18,0,"KODE.PAT") Q
 ;
ZZ ; 27.12.99 -  9 u 32 * V7.24