FHENV.m

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

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