Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XPDINIT5

XPDINIT5.m

Go to the documentation of this file.

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

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  Sep 23, 2025@19:40:20                                                                                                                                                                                                     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       ;;