7 lines
166 B
Mathematica
7 lines
166 B
Mathematica
|
FHENV ; HISC/NCA - Environment Check Routine For Patch 21
|
||
|
|
;;5.5;DIETETICS;;Jan 28, 2005
|
||
|
|
I +$$VERSION^XPDUTL("OR")=2.5 D RTN
|
||
|
|
Q
|
||
|
|
RTN Q:'$$RTNUP^XPDUTL("FHORD7",2)
|
||
|
|
Q
|