;
; Input data:
; GDA - Pointer to patient vitals/measurements file #120.5
; X - Pointer to the vital type file #120.51
; Output data array:
; GARRY(GDA,print order,qualifier data)
WRITECH(GDA,GARRY,GN)
;
; Input data:
; GDA - Pointer to the patient vitals/measurements data file #120.5
; GARRY - qualifier data array for a measurement
; GARRY(GDA,Print order,qualifier data)
; GN - Number of print order to print