cI39E ;Instellen P2 (euro) ;%I39E ; [ 02/21/00  5:47 PM ]
 ;
T1 ;Dit programma stelt periode P2 in ivm euro.;
T2 ;Euro gaat in vanaf volgend boekjaar!;
T3 ;
T8 ;Q-waarde(s) <;
T9 ;Start <N>;
 ;
 ; init + uitleg
1 S Q=$G(Q) D ^cA604 s QU="DAM"
11 w !!,$P($T(+1),U,2),!!
13 f i=1:1 s j=$p($t(@("T"_i)),U,2) q:j=""  w j,!
 ;
 ; vraagstelling
2 s qq=$g(^cLOG("Q"),Q) i $d(boot) s qq=$g(^cLOG(boot,"Q"),qq)
21 i $p(qq,D)="SYS" s qq=$p(qq,D,2,999)
22 i $p(qq,D)="DAM" s qq=$p(qq,D,2,999)
23 i qq[D s qq=$tr(qq,D," ")
24 i qq[" Y" s qq=$p(qq," Y")_" "_$p($p(qq," YQ",2,999)," ",2,999) g 24
25 w !,$p($t(T8),U,2),qq,">" r k g YZ:k="-"!(k="^") i $l(k) s qq=k g 25
27 w !,$p($t(T9),U,2) r k g 25:"-^"[k&$l(k) s k=$tr(k,"JjYy1","11110") g 27:k'=1
29 s (JOB,tel)=0
 ;
3 ; aflopen Q-waardes
31 s Q=$p(qq," "),qq=$p(qq," ",2,999) i Q'?1.3U g 31:$l(qq),YZ
33 w !,Q,?5,$g(@("^"_Q_"BA(99,1)"),"?")
35 s QD=+$g(@("^"_Q_"BA")@(34)),BJ=DJ i $d(^(2)) s BJ=$p(^(2),D,2)\1 i DJ_"."_DM>$p(^(2),D,2) S BJ=BJ+1
37 s ba39=@("^"_Q_"BA")@(39) i $p(ba39,D)'="EUR" d  s ^(39)=ba39
 . s $p(ba39,D,6)=BJ+1
 . s $p(ba39,D,7)="EUR"
 . s $p(ba39,D,8)=2
 . s $p(ba39,D,9)=$p(ba39,D)
 . s $p(ba39,D,10)=QD
 . s $p(ba39,D,11)=""
 . s $p(ba39,D,12)=""
39 s $p(@("^"_Q_"BA")@(7,1),D,2)=1,$p(^(1),D,3)=QD,$p(^(1),D,4)=3 k @("^"_Q_"PP") G 3
 ;
YZ w !,$C(7),"Einde ",$p($t(+1),U,2) q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3