SDESPROVCLINSRCH.m

SDESPROVCLINSRCH ;ALB/BLB,BWF - VISTA SCHEDULING RPCS; Feb 13, 2023@6:10pm

 ;;5.3;Scheduling;**837,871**;Aug 13, 1993;Build 13

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 Q

 ;

GETPROVCLINICS(JSONRETURN,PROVIDERIEN) ;

 N CLINICS,RETURN,ERRORS

 ;

 I '$$VALIDATEPROVIDER(.ERRORS,$G(PROVIDERIEN)) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q

 ;

 D BUILD(.CLINICS,$G(PROVIDERIEN))

 I '$D(CLINICS) S CLINICS("Provider",1)=""

 ;

 M RETURN=CLINICS D BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)

 Q

 ;

BUILD(CLINICS,PROVIDERIEN) ;

 N CLINICIEN,COUNT

 ;

 I '$D(^SC("AVADPR",PROVIDERIEN)) Q

 S CLINICS("Provider",1,"ProviderName")=$$GET1^DIQ(200,PROVIDERIEN,.01,"E")

 ;

 S CLINICIEN=0,COUNT=0

 F  S CLINICIEN=$O(^SC("AVADPR",PROVIDERIEN,CLINICIEN)) Q:'CLINICIEN  D

 .S COUNT=COUNT+1

 .S CLINICS("Provider",1,"AssociatedClinicIEN",COUNT)=CLINICIEN

 .S CLINICS("Provider",1,"AssociatedClinicName",COUNT)=$$GET1^DIQ(44,CLINICIEN,.01,"E")

 .S CLINICS("Provider",1,"PbspID",COUNT)=$$GET1^DIQ(44,CLINICIEN,200,"E")

 Q

 ;

VALIDATEPROVIDER(ERRORS,PROVIDERIEN) ;

 I PROVIDERIEN="" D ERRLOG^SDESJSON(.ERRORS,53) Q 0

 I PROVIDERIEN'="",'$D(^VA(200,PROVIDERIEN,0)) D ERRLOG^SDESJSON(.ERRORS,54) Q 0

 Q 1

 ;

BUILDJSON(JSONRETURN,RETURN) ;

 N JSONERROR

 D ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERR")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESPROVCLINSRCH   1355     printed  Apr 09, 2024@21:56:55                                                                                                                                                                                            Page 2

SDESPROVCLINSRCH ;ALB/BLB,BWF - VISTA SCHEDULING RPCS; Feb 13, 2023@6:10pm

 +1       ;;5.3;Scheduling;**837,871**;Aug 13, 1993;Build 13

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        QUIT 

 +5       ;

GETPROVCLINICS(JSONRETURN,PROVIDERIEN) ;

 +1        NEW CLINICS,RETURN,ERRORS

 +2       ;

 +3        IF '$$VALIDATEPROVIDER(.ERRORS,$GET(PROVIDERIEN))

               MERGE RETURN=ERRORS

               DO BUILDJSON(.JSONRETURN,.RETURN)

               QUIT 

 +4       ;

 +5        DO BUILD(.CLINICS,$GET(PROVIDERIEN))

 +6        IF '$DATA(CLINICS)

               SET CLINICS("Provider",1)=""

 +7       ;

 +8        MERGE RETURN=CLINICS

           DO BUILDJSON^SDESBUILDJSON(.JSONRETURN,.RETURN)

 +9        QUIT 

 +10      ;

BUILD(CLINICS,PROVIDERIEN) ;

 +1        NEW CLINICIEN,COUNT

 +2       ;

 +3        IF '$DATA(^SC("AVADPR",PROVIDERIEN))

               QUIT 

 +4        SET CLINICS("Provider",1,"ProviderName")=$$GET1^DIQ(200,PROVIDERIEN,.01,"E")

 +5       ;

 +6        SET CLINICIEN=0

           SET COUNT=0

 +7        FOR 

               SET CLINICIEN=$ORDER(^SC("AVADPR",PROVIDERIEN,CLINICIEN))

               if 'CLINICIEN

                   QUIT 

               Begin DoDot:1

 +8                SET COUNT=COUNT+1

 +9                SET CLINICS("Provider",1,"AssociatedClinicIEN",COUNT)=CLINICIEN

 +10               SET CLINICS("Provider",1,"AssociatedClinicName",COUNT)=$$GET1^DIQ(44,CLINICIEN,.01,"E")

 +11               SET CLINICS("Provider",1,"PbspID",COUNT)=$$GET1^DIQ(44,CLINICIEN,200,"E")

               End DoDot:1

 +12       QUIT 

 +13      ;

VALIDATEPROVIDER(ERRORS,PROVIDERIEN) ;

 +1        IF PROVIDERIEN=""

               DO ERRLOG^SDESJSON(.ERRORS,53)

               QUIT 0

 +2        IF PROVIDERIEN'=""

               IF '$DATA(^VA(200,PROVIDERIEN,0))

                   DO ERRLOG^SDESJSON(.ERRORS,54)

                   QUIT 0

 +3        QUIT 1

 +4       ;

BUILDJSON(JSONRETURN,RETURN) ;

 +1        NEW JSONERROR

 +2        DO ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERR")

 +3        QUIT 

 +4       ;