GMVUT2 ;HOIFO/YH,RM,FT-ENTRY TO GATHER PATIENT VITAL/MEASURMENT DATA ;12/27/01 10:45
;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
;
; This routine uses the following IAs:
; #1246 - WIN^DGPMDDCF (supported)
;
INACT42(GMWLOC) ; THIS PROCEDURE WILL CALL SUPPORTED ENTRY POINT WIN^DGPMDDCF
; TO DETERMINE IF WARD LOCATION (GMWLOC) IS INACTIVE.
N X,D0,DGPMOS
S D0=GMWLOC D WIN^DGPMDDCF
Q X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMVUT2 410 printed Sep 23, 2025@19:36:05 Page 2
GMVUT2 ;HOIFO/YH,RM,FT-ENTRY TO GATHER PATIENT VITAL/MEASURMENT DATA ;12/27/01 10:45
+1 ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
+2 ;
+3 ; This routine uses the following IAs:
+4 ; #1246 - WIN^DGPMDDCF (supported)
+5 ;
INACT42(GMWLOC) ; THIS PROCEDURE WILL CALL SUPPORTED ENTRY POINT WIN^DGPMDDCF
+1 ; TO DETERMINE IF WARD LOCATION (GMWLOC) IS INACTIVE.
+2 NEW X,D0,DGPMOS
+3 SET D0=GMWLOC
DO WIN^DGPMDDCF
+4 QUIT X
