ORS LAB INTERIM (67)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORS LAB INTERIM
ITEM TEXT Lab Results (Interim)
METHOD
  • METHOD ACTION:   D SET^LRRP4 S:$D(ORSSTRT(+XQORNOD)) LREDT=9999999-ORSSTRT(+XQORNOD) S:$D(ORSSTOP(+XQORNOD)) LRIDT=9999999-ORSSTOP(+XQORNOD) S DFN=+ORVP,OORVP=ORVP D OERR^LRRP4,CLEAN^LRRP4 S ORVP=OORVP K OORVP,LRACC,LRAD,LRAN,LRLLT,LRPG,LRSB
PACKAGE ORDER ENTRY/RESULTS REPORTING
ENTRY ACTION D RANGE^ORPRS01() Q:$G(OREND) S ORSSTRT(+XQORNOD)=+ORSSTRT,ORSSTOP(+XQORNOD)=+ORSSTOP
DESCRIPTION 
This protocol prints interim labs for a user-specified time interval
TYPE action
CREATOR USER,ONE
TIMESTAMP 1999-04-16 15:22:35