LRORDERN.m

LRORDERN ; IHS/DIR/FJE - DETERMINE NEXT LRORDER NUMBER 6/2/86 8:33 AM ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;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

LRORDERN  ; IHS/DIR/FJE - DETERMINE NEXT LRORDER NUMBER 6/2/86 8:33 AM ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        SET LRYR=$EXTRACT(DT,1,3)

           IF $DATA(^LRO(69,LRYR,2))

               SET LRORDER=1+^(2)

               QUIT 

 +5        SET ^LRO(69,LRYR,0)=LRYR

           SET ^(2)=0

 +6        QUIT