LRHYU4.m

LRHYU4 ;VA/DALOI/HOAK - GET THE LAB UID ; 13-Aug-2013 09:16 ; MKK

 ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 ;

 ; Reference to ^DIC supported by DBIA #916.

 ;

 ; Get the accession number or order number or universal ID

 ;

AA ;

 ;

 I $G(LRORDSIZ) S LRORDSIZ=$L(LRORDSIZ)

 S LRACC="" D ^LRWU4

 QUIT

LRHYU4    ;VA/DALOI/HOAK - GET THE LAB UID ; 13-Aug-2013 09:16 ; MKK

 +1       ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 +2       ;

 +3       ; Reference to ^DIC supported by DBIA #916.

 +4       ;

 +5       ; Get the accession number or order number or universal ID

 +6       ;

AA        ;

 +1       ;

 +2        IF $GET(LRORDSIZ)

               SET LRORDSIZ=$LENGTH(LRORDSIZ)

 +3        SET LRACC=""

           DO ^LRWU4

 +4        QUIT