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