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

DI147POS.m

Go to the documentation of this file.

DI147POS ;SFISC/SO- SET TIME OUT DD NODE ;9:55 AM  11 Apr 2006

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

 N OS ;FileMan's MUMPS OPERATING SYSTEM

 S OS=+$G(^DD("OS")),OS=$P(^DD("OS",OS,0),"^")

 I OS["CACHE" S ^DD("DILOCKTM")=3 ;Ref. #634127

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI147POS   255     printed  Apr 09, 2024@21:49:27                                                                                                                                                                                                     Page 2

DI147POS  ;SFISC/SO- SET TIME OUT DD NODE ;9:55 AM  11 Apr 2006

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

 +2       ;FileMan's MUMPS OPERATING SYSTEM

           NEW OS

 +3        SET OS=+$GET(^DD("OS"))

           SET OS=$PIECE(^DD("OS",OS,0),"^")

 +4       ;Ref. #634127

           IF OS["CACHE"

               SET ^DD("DILOCKTM")=3

 +5        QUIT