LA7DLOC ;PWC/DALOI - ROUTINE TO VERIFIY CAREVUE LOCATIONS;01/14/2000
 ;;5.2;LAB SERVICE;**58**;Sep 27, 1994
 ; Reference to ^SC(    supported by DBIA #10040
 ; Reference to ^DIC(   supported by DBIA #10006
 ; Reference to $$FIND1^DIC supported by IA #2051
 ; 
 I $D(ZTQUEUED) S ZTREQ="@"
 Q:'$G(LR7DLOC)  S LA7DVL=""
 S LA7DIEN=$$FIND1^DIC(62.487,,,"CAREVUE")  ;find the IEN for CareVue
 I $D(^LAB(62.487,+LA7DIEN,1,"B",LR7DLOC)) D
 . S LA7DVL=$P($G(^SC(LR7DLOC,0)),"^",2) Q:LA7DVL=""
 . I LRSS="CH" D EN^LA7DVC K LA7DIEN,LA7DVL,LA7DLOC Q
 . I LRSS="MI" D EN^LA7DVM K LA7DIEN,LA7DVL,LA7DLOC Q
 Q
 ;