; Entry to extract the latest vitals/measurements for a patient
Q
; kill variables and quit
SETDATAR
; get record IEN if not marked as entered-in-error
WRTDT
;
NUMBER(GMVRATE)
; Function determines if the RATE has a numeric reading or one
; of the text codes (e.g. REFUSED).
; Returns 0 if GMVRATE has a text code
; 1 if a numeric reading