- 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 Mar 13, 2025@21:19:50 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
