GMRVXPST.m

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

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