XPDINIT5 ; ; 03-JUL-1995
 ;;8.0;KERNEL;;JUL 10, 1995
 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:4 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
 Q
IXF ;;KIDS^XPD
 ;;9.6I;BUILD;^XPD(9.6,;0;y;y;;n;;;n
 ;;
 ;;9.7I;INSTALL;^XPD(9.7,;0;y;y;;n;;;n
 ;;