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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7DLOC 614 printed Dec 13, 2024@01:39:03 Page 2
LA7DLOC ;PWC/DALOI - ROUTINE TO VERIFIY CAREVUE LOCATIONS;01/14/2000
+1 ;;5.2;LAB SERVICE;**58**;Sep 27, 1994
+2 ; Reference to ^SC( supported by DBIA #10040
+3 ; Reference to ^DIC( supported by DBIA #10006
+4 ; Reference to $$FIND1^DIC supported by IA #2051
+5 ;
+6 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+7 if '$GET(LR7DLOC)
QUIT
SET LA7DVL=""
+8 ;find the IEN for CareVue
SET LA7DIEN=$$FIND1^DIC(62.487,,,"CAREVUE")
+9 IF $DATA(^LAB(62.487,+LA7DIEN,1,"B",LR7DLOC))
Begin DoDot:1
+10 SET LA7DVL=$PIECE($GET(^SC(LR7DLOC,0)),"^",2)
if LA7DVL=""
QUIT
+11 IF LRSS="CH"
DO EN^LA7DVC
KILL LA7DIEN,LA7DVL,LA7DLOC
QUIT
+12 IF LRSS="MI"
DO EN^LA7DVM
KILL LA7DIEN,LA7DVL,LA7DLOC
QUIT
End DoDot:1
+13 QUIT
+14 ;