LROSX0.m

LROSX0 ; IHS/DIR/FJE - Being replaced 14:44 ; 

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

 ;

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

 ;*THIS ROUTINE IS BEING PHASED OUT*

INQ ;Inquiry to a schedule

 G INQ^LRXOS0

EDIT ;Edit a schedule

 G EDIT^LRXOS0

LROSX0    ; IHS/DIR/FJE - Being replaced 14:44 ; 

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

 +2       ;

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

 +4       ;*THIS ROUTINE IS BEING PHASED OUT*

INQ       ;Inquiry to a schedule

 +1        GOTO INQ^LRXOS0

EDIT      ;Edit a schedule

 +1        GOTO EDIT^LRXOS0