BLRLBOE.m

BLRLBOE ;IHS/CIA/PLS - OE/RR Lab Order Label Driver;22-Jul-2005 23:17;SM

 ;;5.2;LR;**1020**;Sep 13, 2005

 ; This routine is called by the Compiled code field of the

 ; OE/RR Print Formats file entry.

 ;

 ; Example of use:  Q:$$EN^BLRLBOE()

 ;

EN() ;EP

 N FORM

 S FORM=$$UP^XLFSTR($$GET1^DIQ(3.5,+$G(IOS),17))

 I $$OK(FORM) D OUT Q 1

 E  Q 0

OUT ;

 I FORM["INTERMEC" D OUT^BLRLBMEC()

 E  I FORM["MICROCOM" D OUT^BLRLB400()

 Q

 ;

OK(FORM) ;EP

 Q FORM["INTERMEC"!(FORM["MICROCOM")

BLRLBOE   ;IHS/CIA/PLS - OE/RR Lab Order Label Driver;22-Jul-2005 23:17;SM

 +1       ;;5.2;LR;**1020**;Sep 13, 2005

 +2       ; This routine is called by the Compiled code field of the

 +3       ; OE/RR Print Formats file entry.

 +4       ;

 +5       ; Example of use:  Q:$$EN^BLRLBOE()

 +6       ;

EN()      ;EP

 +1        NEW FORM

 +2        SET FORM=$$UP^XLFSTR($$GET1^DIQ(3.5,+$GET(IOS),17))

 +3        IF $$OK(FORM)

               DO OUT

               QUIT 1

 +4       IF '$TEST

               QUIT 0

OUT       ;

 +1        IF FORM["INTERMEC"

               DO OUT^BLRLBMEC()

 +2       IF '$TEST

               IF FORM["MICROCOM"

                   DO OUT^BLRLB400()

 +3        QUIT 

 +4       ;

OK(FORM)  ;EP

 +1        QUIT FORM["INTERMEC"!(FORM["MICROCOM")