source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DI147POS.m@ 1365

Last change on this file since 1365 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 241 bytes
Line 
1DI147POS ;SFISC/SO- SET TIME OUT DD NODE ;9:55 AM 11 Apr 2006
2 ;;22.0;VA FileMan;**147**;Mar 30, 1999
3 N OS ;FileMan's MUMPS OPERATING SYSTEM
4 S OS=+$G(^DD("OS")),OS=$P(^DD("OS",OS,0),"^")
5 I OS["CACHE" S ^DD("DILOCKTM")=3 ;Ref. #634127
6 Q
Note: See TracBrowser for help on using the repository browser.