LRHYU5.m

LRHYU5 ;DALOI/HOAK - HOWDY UTILITY CALLS ;12/10/10 5:59pm

 ;;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 W !,"Scan label UID bar code: "

 ;

 D ^LRHYU4

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRHYU5   287     printed  Mar 13, 2025@21:19:51                                                                                                                                                                                                       Page 2

LRHYU5    ;DALOI/HOAK - HOWDY UTILITY CALLS ;12/10/10 5:59pm

 +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         WRITE !,"Scan label UID bar code: "

 +1       ;

 +2        DO ^LRHYU4

 +3        QUIT