DI147POS.m

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DI147POS   255     printed  Dec 13, 2024@02:44:18                                                                                                                                                                                                     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