cI39M2 ;Invoeren euro ;%I39M2 ; [ 02/21/00  5:53 PM ]
 ;
T1 ;Dit programma zorgt voor de invoering van de muntcode EUR.;
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," ")
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)"),"?")
 ;
 ; muntcodes
4 s @("^"_Q_"BA")@(11,"EUR")="EUR\Euro\1\40.3399\40.3399\40.3399\2\1\1\1\1\"
41 s vm="" f  s vm=$o(@("^"_Q_"BA")@(11,vm)) q:vm=""  d
 . s ba11=^(vm)
 . s $p(ba11,D,8)=$$OMREK^cAFE1(Q,1,vm,"EUR","A",16)*$p(ba11,D,3)
 . s $p(ba11,D,9)=$$OMREK^cAFE1(Q,1,vm,"EUR","V",16)*$p(ba11,D,3)
 . s $p(ba11,D,10)=$$OMREK^cAFE1(Q,1,vm,"EUR","F",16)*$p(ba11,D,3)
 . s $p(ba11,D,11)=$$OMREK^cAFE1(Q,1,"EUR",vm,"F",16)*1
 . s $p(ba11,D,12)=""
 . s $p(ba11,D,13)=""
 . s $p(ba11,D,14)="",^(vm)=ba11
 . s iso=0 f  s iso=$o(^ISO(0,"ISO.MUNT",iso)) q:'iso  i $p(^(iso,0),D)=$p(ba11,D) q
 . i 'iso w " ?",$p(ba11,D),"?" q
 . s $p(ba11,D,13)=iso
 . s $p(ba11,D,12)=$p(^ISO(0,"ISO.MUNT",iso,0),D,3)
 . s @("^"_Q_"BA")@(11,vm)=ba11
49 G 3
 ;
YZ w !,$C(7),"Einde ",$p($t(+1),U,2) q
 ;
ZZ ; 13.03.00 - 17 u 31 * V7.3