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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHENV 172 printed Nov 22, 2024@16:57:52 Page 2
FHENV ; HISC/NCA - Environment Check Routine For Patch 21
+1 ;;5.5;DIETETICS;;Jan 28, 2005
+2 IF +$$VERSION^XPDUTL("OR")=2.5
DO RTN
+3 QUIT
RTN if '$$RTNUP^XPDUTL("FHORD7",2)
QUIT
+1 QUIT