16 lines
599 B
Mathematica
16 lines
599 B
Mathematica
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
|
|
;
|