10 lines
374 B
Mathematica
10 lines
374 B
Mathematica
|
ONCENV21 ;Hines CIOFO/WAA - Enviroment Check for Patch ONC*2.11*21;3/20/98
|
||
|
|
;;2.11;Oncology;**21**;Mar 07, 1995
|
||
|
|
EN1 ;Enviroment check routine
|
||
|
|
;
|
||
|
|
N PATCH1,PATCH2
|
||
|
|
S PATCH1=$$PATCH^XPDUTL("ONC*2.11*20")
|
||
|
|
S PATCH2=$$PATCH^XPDUTL("ONCO*2.11*20") ; fix for package file
|
||
|
|
I 'PATCH1,'PATCH2 D BMES^XPDUTL("Please install ONC*2.11*20 first. Installation Halted.") S XPDABORT=2
|
||
|
|
Q
|