LRHYBL1.m

LRHYBL1 ;VA/DALOI/HOAK - HOWDY NETWORK HELP ; 13-Aug-2013 09:16 ; MKK

 ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 ;

 ; 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

LRHYBL1   ;VA/DALOI/HOAK - HOWDY NETWORK HELP ; 13-Aug-2013 09:16 ; MKK

 +1       ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 +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