- XVIRENV ;SFISC/RSD - enviroment check for Virgin Install; 16 Feb 95 09:45
- ;;8.0;KERNEL - VIRGIN INSTALL;;Jul 10, 1995
- ;if file 200 doesn't exist, quit.
- Q:'$D(^DD(200,0))
- ;don't install
- S XPDQUIT=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXVIRENV 212 printed Jan 18, 2025@03:15:29 Page 2
- XVIRENV ;SFISC/RSD - enviroment check for Virgin Install; 16 Feb 95 09:45
- +1 ;;8.0;KERNEL - VIRGIN INSTALL;;Jul 10, 1995
- +2 ;if file 200 doesn't exist, quit.
- +3 if '$DATA(^DD(200,0))
- QUIT
- +4 ;don't install
- +5 SET XPDQUIT=1
- +6 QUIT