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