Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LRORDERN

LRORDERN.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRORDERN   202     printed  Apr 09, 2024@21:05:41                                                                                                                                                                                                     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