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)