BLRORDN.m

BLRORDN ;SLC/CJS/TPF - DETERMINE NEXT LRORDER NUMBER ; 6/2/86  8:33 AM ; [ 08/01/2002  8:21 AM ]

 ;;5.2;LR;**1013**;JUL 30, 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

BLRORDN   ;SLC/CJS/TPF - DETERMINE NEXT LRORDER NUMBER ; 6/2/86  8:33 AM ; [ 08/01/2002  8:21 AM ]

 +1       ;;5.2;LR;**1013**;JUL 30, 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