LRO2 ;SLC/DCM - Being replaced ;1/10/91 16:01 ;
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRO2 269 printed Dec 13, 2024@02:18:20 Page 2
LRO2 ;SLC/DCM - Being replaced ;1/10/91 16:01 ;
+1 ;;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