- 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
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDINIT5 269 printed Jan 18, 2025@03:05:26 Page 2
- XPDINIT5 ; ; 03-JUL-1995
- +1 ;;8.0;KERNEL;;JUL 10, 1995
- +2 KILL ^UTILITY("DIF",$JOB)
- SET DIFRDIFI=1
- FOR I=1:1:4
- SET ^UTILITY("DIF",$JOB,DIFRDIFI)=$TEXT(IXF+I)
- SET DIFRDIFI=DIFRDIFI+1
- +3 QUIT
- IXF ;;KIDS^XPD
- +1 ;;9.6I;BUILD;^XPD(9.6,;0;y;y;;n;;;n
- +2 ;;
- +3 ;;9.7I;INSTALL;^XPD(9.7,;0;y;y;;n;;;n
- +4 ;;