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

XVIRENV.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXVIRENV   212     printed  Apr 09, 2024@21:05:14                                                                                                                                                                                                      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