- GMRVXPST ;HIRMFO/RM-POST-INIT ROUTINE FOR VITALS ;7/23/96
- ;;4.0;Vitals/Measurements;;Apr 25, 1997
- Q:+$$VERSION^XPDUTL("GMRV")=0
- D EN1^GMRVXCH0
- D QUEUE^GMRVXVM0
- D POST1^GMRVFILE
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVXPST 192 printed Feb 18, 2025@23:24:22 Page 2
- GMRVXPST ;HIRMFO/RM-POST-INIT ROUTINE FOR VITALS ;7/23/96
- +1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
- +2 if +$$VERSION^XPDUTL("GMRV")=0
- QUIT
- +3 DO EN1^GMRVXCH0
- +4 DO QUEUE^GMRVXVM0
- +5 DO POST1^GMRVFILE
- +6 QUIT