ORPRS14 ; slc/dcm,JER - Show me your vitals ;6/10/97  15:53
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
VITCUM ; Print Vitals Cumulative Report
 N %,DFN,GMR1ST,GMRDAT,GMRDATE,GMRSH,GMRDT,GMRLN,GMROUT,GMRPDT,GMRPG
 N GRMSITE,GMRSP,GMRVDA,GMRVFDT,GMRVITY,GMRVSDT,GMRVTY,GMTVX,GMRY,I
 N VA,VADM
 S DFN=+ORVP,GMRVSDT=$G(ORSSTRT(+XQORNOD)),GMRVFDT=$G(ORSSTOP(+XQORNOD))
 D EN3^GMRVSC0(DFN,GMRVSDT,GMRVFDT) G:GMROUT VCOUT
VCOUT ;
 Q
VIT511 ; Print Vitals SF511 Report
 N DFN,GMR,GMR3,GMRDAT,GMRDT,GMREN,GMRFIN,GMRHDR12,GMRHDR10,GMRHDR11,GMRDATE,GMRQUAL
 N GMRHDR2,GMRHT,GMRI,GMRJ,GMRK,GMRLINE,GMRNAM,GMRNM,GMROLD,GMROUT
 N GMRP,GMRPDIF,GMRPG,GMRPGC,GMRPGS,GMRPHI,GMRPLO,GMRPOFF,GMRQ,GMRS
 N GMRSITE,GMRSTRT,GMRT,GMRTDIF,GMRTH1,GMRTLO,GMRTNM,GMRTOFF,GMRTY
 N GMRVX,GMRWARD,GMRX,GMRX1,GMRX2,GMREDB,SSN,VA,VADM,VAIN,VAMT
 S DFN=+ORVP,GMRDATE=$G(ORSSTRT(+XQORNOD))_U_$G(ORSSTOP(+XQORNOD))  D EN6^GMRVSR0(DFN,GMRDATE)
 Q