LRORDERN ;SLC/CJS - DETERMINE NEXT LRORDER NUMBER ; 6/2/86  8:33 AM ;
 ;;5.2;LAB SERVICE;;Sep 27, 1994
 S LRYR=$E(DT,1,3) I $D(^LRO(69,LRYR,2)) S LRORDER=1+^(2) Q
 S ^LRO(69,LRYR,0)=LRYR,^(2)=0
 Q