LRORDERN.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRORDERN   202     printed  Dec 13, 2024@02:18:56                                                                                                                                                                                                     Page 2

LRORDERN  ;SLC/CJS - DETERMINE NEXT LRORDER NUMBER ; 6/2/86  8:33 AM ;

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

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

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

               SET LRORDER=1+^(2)

               QUIT 

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

           SET ^(2)=0

 +4        QUIT