LRHYBL1.m

LRHYBL1 ;DALOI/HOAK - HOWDY NETWORK HELP ;9/26/2002

 ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93

 ;

 ; find the subtype from zis(2 set into LRLABLIO

 ;

 Q:'$G(^%ZIS(1,LRDEV,"SUBTYPE"))

 S LRLABSTP=$G(^%ZIS(1,LRDEV,"SUBTYPE"))

 S LRLABSTP=$P(^%ZIS(2,LRLABSTP,0),U)

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRHYBL1   283     printed  Oct 16, 2024@18:16                                                                                                                                                                                                         Page 2

LRHYBL1   ;DALOI/HOAK - HOWDY NETWORK HELP ;9/26/2002

 +1       ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93

 +2       ;

 +3       ; find the subtype from zis(2 set into LRLABLIO

 +4       ;

 +5        if '$GET(^%ZIS(1,LRDEV,"SUBTYPE"))

               QUIT 

 +6        SET LRLABSTP=$GET(^%ZIS(1,LRDEV,"SUBTYPE"))

 +7        SET LRLABSTP=$PIECE(^%ZIS(2,LRLABSTP,0),U)

 +8        QUIT