Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LRHYBL1

LRHYBL1.m

Go to the documentation of this file.

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