GMVUT2.m

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

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