source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORPRS14.m@ 1437

Last change on this file since 1437 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 917 bytes
RevLine 
[613]1ORPRS14 ; slc/dcm,JER - Show me your vitals ;6/10/97 15:53
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3VITCUM ; 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
9VCOUT ;
10 Q
11VIT511 ; 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
Note: See TracBrowser for help on using the repository browser.