cTE9 ;LIJST EVALUATIE BUDGET ;%TE9 ;Go naar %TE10 ; [ 10/28/98  9:57 AM ]
 G G
 ;
T0 ;Evaluatielijst budget ;
T8 ;Gewenste maand\"-[] = einde programma   jjjj.mm[] = bepaalde maand   [] = ;
T9 ;Maand : ;
 ;
T0F ;Liste d'évaluation des budgets ;
T8F ;Mois désiré\"-[] = fin du programme   aaaa.mm[] = mois spécifique   [] = ;
T9F ;Mois  : ;
 ;
G S Q1="AR" G 1
A S Q1="ARA" G 1
 ;
1 S BPB=@("^"_Q_"BA(2)"),S=^(7),NM1=QN,NM2=^(99,2),NM3=^(3),BLZ=0 I 'QP S I1X=PP(1),I2X=PP(2),BP=PP(3) G 30
10 D DMS^cAN000("UQC","USC",Q1) G YZ:UQC=""!(UQC="")
11 S K=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
12 S K=$P($T(@("T0"_QT)),U,2)_K_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
14 S S=S+.01 S:$P(S,".",2)=13 S=S+.88 S:$L(S)=6 S=S_0
15 S R="BP\22\3\"_$P($T(@("T8"_QT)),U,2)_S_"""\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(""-""[K)"
17 D R0 G YZ:K="-" S:K="" BP=S S FP=450 W @F,$P($T(@("T9"_QT)),U,2),BP
18 I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 15
 ;
2 D ^cAN003(4,Q1) G 15:K="-"
 ;
3 S R=1_D_('$L(KEU(Q1))) D ^cA345 G 2:K="-",15:K="," I $L(K) S PP(1)=I1X,PP(2)=I2X,PP(3)=BP D S9 G 2
 ;
30 S X=BPB,BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BM)_" "_BJ,K=$P(X,D,2),VJ=$P(X,D,3)+.01 F I=1:1:4 S @("(T"_I_"(0),T"_I_"(1),T"_I_"(2),T"_I_"(3))=0")
31 S:BP>K VJ=K+.01,X=K\1*12+(K#1*100),K=K+1 S BX=BJ*12+BM-X+1,BJ=K\1,BPB=$P(X,D,2) S:VJ[".13" VJ=VJ+.88 S VJ=^(VJ#1*100)_" "_(VJ\1) K BPB,BP,BM
32 S MNTC=$$MNTC^cAFE1(Q,BJ),BF=$P(MNTC,D),QD=$P(MNTC,D,2)
33 G ^cTE10
 ;
YZ X F71 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
 ;
S9 S QPT=$S(Q1="ARA":"A^",1:"")_$T(+0) D ^cA109
S9Z Q
 ;
ZZ ; 30.10.98 - 16 u 58 * V7