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 ---[H[J[2J[HLRHYBL1 283 printed Sep 02, 2024@19:00:35 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