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 Dec 13, 2024@01:58:18 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