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 ---[H[J[2J[HRAIENV 659 printed Dec 13, 2024@02:35:44 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