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 Dec 13, 2024@01:57:59 Page 2
+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