LRO2.m

LRO2 ; IHS/DIR/FJE - Being replaced 1/10/91 16:01 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

EN2 ;;Entry point for OTHER LAB TESTS *THIS ROUTINE IS BEING PHASED OUT*

 G ONE^LRXO1

EN1 ;;

 W !!,$C(7),"EN1^LRO2 is no longer in use.  Remove all calls to this entry point",!

 Q

LRO2      ; IHS/DIR/FJE - Being replaced 1/10/91 16:01 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

EN2       ;;Entry point for OTHER LAB TESTS *THIS ROUTINE IS BEING PHASED OUT*

 +1        GOTO ONE^LRXO1

EN1       ;;

 +1        WRITE !!,$CHAR(7),"EN1^LRO2 is no longer in use.  Remove all calls to this entry point",!

 +2        QUIT