DIPR110.m

DIPR110 ;SFISC/MKO-PRE-INSTALL ROUTINE FOR PATCH DI*22*110 ;2:40 PM  11 Jul 2002 [ 12/09/2003  4:52 PM ]

 ;;22.0;VA FileMan;**110,1002**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ;Set the "NM" node for the MUMPS OPERATING SYSTEM file (#.7)

 K ^DD(.7,0,"NM")

 S ^DD(.7,0,"NM","MUMPS OPERATING SYSTEM")=""

 Q

DIPR110   ;SFISC/MKO-PRE-INSTALL ROUTINE FOR PATCH DI*22*110 ;2:40 PM  11 Jul 2002 [ 12/09/2003  4:52 PM ]

 +1       ;;22.0;VA FileMan;**110,1002**;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;Set the "NM" node for the MUMPS OPERATING SYSTEM file (#.7)

 +5        KILL ^DD(.7,0,"NM")

 +6        SET ^DD(.7,0,"NM","MUMPS OPERATING SYSTEM")=""

 +7        QUIT