LRHYU5.m

LRHYU5 ;VA/DALOI/HOAK - HOWDY UTILITY CALLS ; 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 W !,"Scan label UID bar code: "

 ;

 D ^LRHYU4

 QUIT

LRHYU5    ;VA/DALOI/HOAK - HOWDY UTILITY CALLS ; 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         WRITE !,"Scan label UID bar code: "

 +1       ;

 +2        DO ^LRHYU4

 +3        QUIT