source: WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7DLOC.m@ 846

Last change on this file since 846 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 599 bytes
Line 
1LA7DLOC ;PWC/DALOI - ROUTINE TO VERIFIY CAREVUE LOCATIONS;01/14/2000
2 ;;5.2;LAB SERVICE;**58**;Sep 27, 1994
3 ; Reference to ^SC( supported by DBIA #10040
4 ; Reference to ^DIC( supported by DBIA #10006
5 ; Reference to $$FIND1^DIC supported by IA #2051
6 ;
7 I $D(ZTQUEUED) S ZTREQ="@"
8 Q:'$G(LR7DLOC) S LA7DVL=""
9 S LA7DIEN=$$FIND1^DIC(62.487,,,"CAREVUE") ;find the IEN for CareVue
10 I $D(^LAB(62.487,+LA7DIEN,1,"B",LR7DLOC)) D
11 . S LA7DVL=$P($G(^SC(LR7DLOC,0)),"^",2) Q:LA7DVL=""
12 . I LRSS="CH" D EN^LA7DVC K LA7DIEN,LA7DVL,LA7DLOC Q
13 . I LRSS="MI" D EN^LA7DVM K LA7DIEN,LA7DVL,LA7DLOC Q
14 Q
15 ;
Note: See TracBrowser for help on using the repository browser.