GMRCXQ.m

GMRCXQ ;SLC/DLT/DCM - ROUTINE TO ALLOW FOLLOW-UP ON LEGACY ALERTS;3/2/99 15:30

 ;;3.0;CONSULTS/REQUEST TRACKING;**1**;DEC 27, 1997

EN D RPTCON^ORB3FUP2  ; redirect follow-up action v 3.0 action

 ;to new entry point

 S XQAKILL=$$XQAKILL^ORB3F1 D DEL^ORB3FUP1(.ORY,XQAID)

 Q

GMRCXQ    ;SLC/DLT/DCM - ROUTINE TO ALLOW FOLLOW-UP ON LEGACY ALERTS;3/2/99 15:30

 +1       ;;3.0;CONSULTS/REQUEST TRACKING;**1**;DEC 27, 1997

EN        ; redirect follow-up action v 3.0 action

           DO RPTCON^ORB3FUP2

 +1       ;to new entry point

 +2        SET XQAKILL=$$XQAKILL^ORB3F1

           DO DEL^ORB3FUP1(.ORY,XQAID)

 +3        QUIT