RAIENV.m

RAIENV ;HIRMFO/GJC-Environment Check routine (cleanup build) ;5/29/97  09:08

VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

 ; Developer Note:  This environment check will allow the user

 ; to load the 'Radiology/Nuclear Medicine Cleanup' build without

 ; installing.  We never want to load & install 'Radiology/Nuclear

 ; Medicine Cleanup' by itself.  It is a queued job, fired off by

 ; the last post-install routine of Radiology/Nuclear Medicine v5.0.

 ;

 W !!?3,"This build will be queued to run from the RADIOLOGY/NUCLEAR"

 W " MEDICINE",!?3,$P($T(+2),";",3)_" build.  ",XPDNM," cannot be run"

 W !?3,"independently.",! S XPDABORT=2 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RAIENV   659     printed  Apr 09, 2024@21:42:11                                                                                                                                                                                                       Page 2

RAIENV    ;HIRMFO/GJC-Environment Check routine (cleanup build) ;5/29/97  09:08

VERSION   ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

 +1       ; Developer Note:  This environment check will allow the user

 +2       ; to load the 'Radiology/Nuclear Medicine Cleanup' build without

 +3       ; installing.  We never want to load & install 'Radiology/Nuclear

 +4       ; Medicine Cleanup' by itself.  It is a queued job, fired off by

 +5       ; the last post-install routine of Radiology/Nuclear Medicine v5.0.

 +6       ;

 +7        WRITE !!?3,"This build will be queued to run from the RADIOLOGY/NUCLEAR"

 +8        WRITE " MEDICINE",!?3,$PIECE($TEXT(+2),";",3)_" build.  ",XPDNM," cannot be run"

 +9        WRITE !?3,"independently.",!

           SET XPDABORT=2

           QUIT