LA7DLOC.m

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

 ;

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      ;