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
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMV8ENV   257     printed  Sep 23, 2025@19:34:22                                                                                                                                                                                                      Page 2
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        IF '$$VERSION^XPDUTL("HDI")
               SET XPDQUIT=2
 +2        QUIT