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

LRHYU4.m

Go to the documentation of this file.

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  Apr 09, 2024@21:15:55                                                                                                                                                                                                       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