- 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 Mar 13, 2025@21:03:03 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