VistA-Miscellaneous/lang_file4mu1and2/DMLAINI5.m

8 lines
229 B
Mathematica

DMLAINI5 ; ; 20-NOV-2012
;;22.2;LANGUAGE FILE INITS;;NOV 20, 2012
K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:2 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
Q
IXF ;;
;;.85I;LANGUAGE;^DI(.85,;0;y;y;;n;;;y;o;n
;;