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

DIPR110.m

Go to the documentation of this file.

DIPR110 ;SFISC/MKO-PRE-INSTALL ROUTINE FOR PATCH DI*22*110 ;2:40 PM  11 Jul 2002

 ;;22.0;VA FileMan;**110**;Mar 30, 1999;Build 1

 ;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")=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPR110   337     printed  Apr 09, 2024@21:57:14                                                                                                                                                                                                      Page 2

DIPR110   ;SFISC/MKO-PRE-INSTALL ROUTINE FOR PATCH DI*22*110 ;2:40 PM  11 Jul 2002

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

 +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