GMV8ENV.m

GMV8ENV ;;HIOFO/FT-GMRV*5*8 ENVIRONMENT ROUTINE ;3/24/05  16:26

 ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002

 ;

 ; This routine uses the following IAs:

 ; 10141 - XPDUTL          (supported)

 ;

EN1 ;

 ;I '$$VERSION^XPDUTL("HDI") S XPDQUIT=2

 Q

GMV8ENV   ;;HIOFO/FT-GMRV*5*8 ENVIRONMENT ROUTINE ;3/24/05  16:26

 +1       ;;5.0;GEN. MED. REC. - VITALS;**8**;Oct 31, 2002

 +2       ;

 +3       ; This routine uses the following IAs:

 +4       ; 10141 - XPDUTL          (supported)

 +5       ;

EN1       ;

 +1       ;I '$$VERSION^XPDUTL("HDI") S XPDQUIT=2

 +2        QUIT