SDESSEARCH.m

SDESSEARCH ;ALB/LAB - VISTA SCHEDULING RPCS - GIVEN SEARCH STRING, RETURN LISTS ;Jun 09,2021

 ;;5.3;Scheduling;**790**;Aug 13, 1993;Build 11

 ;;Per VHA Directive 2004-038, this routine should not be modified

 Q

 ;

CLINICSEARCH(CLINICLIST,SEARCHSTRING) ;Given a search string return a clinic list that matches.

 Q:$L(SEARCHSTRING)<2

 N CLINICIEN,CLINICNAME,STRINGLENGTH,CLINICINFO,CLINICCOUNT,INACTIVEDT,REACTIVEDT

 S CLINICIEN="",CLINICCOUNT=0

 S STRINGLENGTH=$L(SEARCHSTRING)

 S CLINICNAME=$O(^SC("B",SEARCHSTRING),-1)

 I $E(CLINICNAME,1,STRINGLENGTH)=SEARCHSTRING D

 . S CLINICNAME=$O(^SC("B",CLINICNAME),-1)

 F  S CLINICNAME=$O(^SC("B",CLINICNAME)) Q:CLINICNAME=""!($E(CLINICNAME,1,STRINGLENGTH)'=SEARCHSTRING)  D

 . Q:(CLINICCOUNT>49)

 . S CLINICIEN=$O(^SC("B",CLINICNAME,""))

 . S INACTIVEDT=$$GET1^DIQ(44,CLINICIEN,2505,"I")

 . S REACTIVEDT=$$GET1^DIQ(44,CLINICIEN,2506,"I")

 . Q:((INACTIVEDT'="")&(INACTIVEDT<=DT))&(((REACTIVEDT'="")&(REACTIVEDT>DT))!(REACTIVEDT=""))  ;do not include inactive clinics

 . S CLINICCOUNT=CLINICCOUNT+1

 . S CLINICINFO("Clinic",CLINICCOUNT,"IEN")=CLINICIEN

 . S CLINICINFO("Clinic",CLINICCOUNT,"Name")=CLINICNAME

 I 'CLINICCOUNT S CLINICINFO("Clinic")=""

 D ENCODE^SDESJSON(.CLINICINFO,.CLINICLIST)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESSEARCH   1268     printed  Apr 09, 2024@21:54:04                                                                                                                                                                                                  Page 2

SDESSEARCH ;ALB/LAB - VISTA SCHEDULING RPCS - GIVEN SEARCH STRING, RETURN LISTS ;Jun 09,2021

 +1       ;;5.3;Scheduling;**790**;Aug 13, 1993;Build 11

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified

 +3        QUIT 

 +4       ;

CLINICSEARCH(CLINICLIST,SEARCHSTRING) ;Given a search string return a clinic list that matches.

 +1        if $LENGTH(SEARCHSTRING)<2

               QUIT 

 +2        NEW CLINICIEN,CLINICNAME,STRINGLENGTH,CLINICINFO,CLINICCOUNT,INACTIVEDT,REACTIVEDT

 +3        SET CLINICIEN=""

           SET CLINICCOUNT=0

 +4        SET STRINGLENGTH=$LENGTH(SEARCHSTRING)

 +5        SET CLINICNAME=$ORDER(^SC("B",SEARCHSTRING),-1)

 +6        IF $EXTRACT(CLINICNAME,1,STRINGLENGTH)=SEARCHSTRING

               Begin DoDot:1

 +7                SET CLINICNAME=$ORDER(^SC("B",CLINICNAME),-1)

               End DoDot:1

 +8        FOR 

               SET CLINICNAME=$ORDER(^SC("B",CLINICNAME))

               if CLINICNAME=""!($EXTRACT(CLINICNAME,1,STRINGLENGTH)'=SEARCHSTRING)

                   QUIT 

               Begin DoDot:1

 +9                if (CLINICCOUNT>49)

                       QUIT 

 +10               SET CLINICIEN=$ORDER(^SC("B",CLINICNAME,""))

 +11               SET INACTIVEDT=$$GET1^DIQ(44,CLINICIEN,2505,"I")

 +12               SET REACTIVEDT=$$GET1^DIQ(44,CLINICIEN,2506,"I")

 +13      ;do not include inactive clinics

                   if ((INACTIVEDT'="")&(INACTIVEDT<=DT))&(((REACTIVEDT'="")&(REACTIVEDT>DT))!(REACTIVEDT=""))

                       QUIT 

 +14               SET CLINICCOUNT=CLINICCOUNT+1

 +15               SET CLINICINFO("Clinic",CLINICCOUNT,"IEN")=CLINICIEN

 +16               SET CLINICINFO("Clinic",CLINICCOUNT,"Name")=CLINICNAME

               End DoDot:1

 +17       IF 'CLINICCOUNT

               SET CLINICINFO("Clinic")=""

 +18       DO ENCODE^SDESJSON(.CLINICINFO,.CLINICLIST)

 +19       QUIT 

 +20      ;