ORPRS14.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORPRS14   935     printed  Oct 16, 2024@18:33:35                                                                                                                                                                                                      Page 2

ORPRS14   ; slc/dcm,JER - Show me your vitals ;6/10/97  15:53

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

VITCUM    ; Print Vitals Cumulative Report

 +1        NEW %,DFN,GMR1ST,GMRDAT,GMRDATE,GMRSH,GMRDT,GMRLN,GMROUT,GMRPDT,GMRPG

 +2        NEW GRMSITE,GMRSP,GMRVDA,GMRVFDT,GMRVITY,GMRVSDT,GMRVTY,GMTVX,GMRY,I

 +3        NEW VA,VADM

 +4        SET DFN=+ORVP

           SET GMRVSDT=$GET(ORSSTRT(+XQORNOD))

           SET GMRVFDT=$GET(ORSSTOP(+XQORNOD))

 +5        DO EN3^GMRVSC0(DFN,GMRVSDT,GMRVFDT)

           if GMROUT

               GOTO VCOUT

VCOUT     ;

 +1        QUIT 

VIT511    ; Print Vitals SF511 Report

 +1        NEW DFN,GMR,GMR3,GMRDAT,GMRDT,GMREN,GMRFIN,GMRHDR12,GMRHDR10,GMRHDR11,GMRDATE,GMRQUAL

 +2        NEW GMRHDR2,GMRHT,GMRI,GMRJ,GMRK,GMRLINE,GMRNAM,GMRNM,GMROLD,GMROUT

 +3        NEW GMRP,GMRPDIF,GMRPG,GMRPGC,GMRPGS,GMRPHI,GMRPLO,GMRPOFF,GMRQ,GMRS

 +4        NEW GMRSITE,GMRSTRT,GMRT,GMRTDIF,GMRTH1,GMRTLO,GMRTNM,GMRTOFF,GMRTY

 +5        NEW GMRVX,GMRWARD,GMRX,GMRX1,GMRX2,GMREDB,SSN,VA,VADM,VAIN,VAMT

 +6        SET DFN=+ORVP

           SET GMRDATE=$GET(ORSSTRT(+XQORNOD))_U_$GET(ORSSTOP(+XQORNOD))

           DO EN6^GMRVSR0(DFN,GMRDATE)

 +7        QUIT