EAN13(o) ;
; MX : printing barcode with font EAN-13
; (EXCEL & MSM - CACHE - m3Lite)
n S,oAB,x,b1,EAN13,o7
s o=$tr(o,1234567890_o,1234567890),b1=$e(o),o=$e(o_"0000000000",1,12)
s S=$e(o,12)+$e(o,10)+$e(o,8)+$e(o,6)+$e(o,4)+$e(o,2)*3
s S=S+$e(o,11)+$e(o,9)+$e(o,7)+$e(o,5)+$e(o,3)+$e(o,1)#10*-1+10#10
s oAB=$p("oooooo.oo1o11.oo11o1.oo111o.o1oo11.o11oo1.o111oo.o1o1o1.o1o11o.o11o1o.",".",$e(o)+1)
s o=$e(o,2,12)_S
s o7=$tr($e(o,7,12),"0123456789","PQRSTUVWXY")
f x=1:1:6 s:$e(oAB,x) $e(o,x)=$tr($e(o,x),"01234567890","@ABCDEFGHI")
s EAN13=$e("!""#$%&'()*",b1+1)_"|"_$e(o,1,6)_"|"_o7_"|"
q:$e(EAN13)="'" "'"_EAN13 q EAN13