LRHYU4 ;DALOI/HOAK - GET THE LAB UID ;08/28/2005
;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
;
; 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRHYU4 299 printed Dec 13, 2024@02:15:30 Page 2
LRHYU4 ;DALOI/HOAK - GET THE LAB UID ;08/28/2005
+1 ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
+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
