SDES2CHKCAVAIL.m

SDES2CHKCAVAIL ;ALB/LAB,AGW - VISTA SCHEDULING SDES2 CHECK CLIN AVAIL DEFINED ;JULY 17,2025

 ;;5.3;Scheduling;**866,869,909**;Aug 13, 1993;Build 12

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

 ; Reference to DUZ^XUP is supported by IA #7487

 Q

 ;

CHECKAVAIL(RESULT,SDCONTEXT,SDPARM) ;

 N ERRORS,RETURN

 ;validate context array for accuracy

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 I $D(ERRORS) S ERRORS("ClinicAvailabilityDefined")="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q

 I $G(SDCONTEXT("USER DUZ"))'="" N DUZ D DUZ^XUP(SDCONTEXT("USER DUZ"))

 D VALIDATE(.ERRORS,$G(SDPARM("CLINIC IEN")))

 I $D(ERRORS) S ERRORS("ClinicAvailabilityDefined")="" D BUILDJSON^SDES2JSON(.RESULT,.ERRORS) Q

 ;

 S RETURN("ClinicAvailabilityDefined")=$$AVAILDEFINED(SDPARM("CLINIC IEN"))

 D BUILDJSON^SDES2JSON(.RESULT,.RETURN)

 ;

 Q

 ;

VALIDATE(ERRORS,SDCLINIC) ;

 ;validate clinic

 D VALFILEIEN^SDES2VALUTIL(,.ERRORS,44,SDCLINIC,1,"",18,19)

 Q

 ;

AVAILDEFINED(SDCLINIC) ;GET: has the given clinic ever had any availability defined?

 Q $S(+$O(^SC(SDCLINIC,"T",0)):1,1:0)

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2CHKCAVAIL   1113     printed  May 25, 2026@12:57:50                                                                                                                                                                                              Page 2

SDES2CHKCAVAIL ;ALB/LAB,AGW - VISTA SCHEDULING SDES2 CHECK CLIN AVAIL DEFINED ;JULY 17,2025

 +1       ;;5.3;Scheduling;**866,869,909**;Aug 13, 1993;Build 12

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

 +3       ; Reference to DUZ^XUP is supported by IA #7487

 +4        QUIT 

 +5       ;

CHECKAVAIL(RESULT,SDCONTEXT,SDPARM) ;

 +1        NEW ERRORS,RETURN

 +2       ;validate context array for accuracy

 +3        DO VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 +4        IF $DATA(ERRORS)

               SET ERRORS("ClinicAvailabilityDefined")=""

               DO BUILDJSON^SDES2JSON(.RESULT,.ERRORS)

               QUIT 

 +5        IF $GET(SDCONTEXT("USER DUZ"))'=""

               NEW DUZ

               DO DUZ^XUP(SDCONTEXT("USER DUZ"))

 +6        DO VALIDATE(.ERRORS,$GET(SDPARM("CLINIC IEN")))

 +7        IF $DATA(ERRORS)

               SET ERRORS("ClinicAvailabilityDefined")=""

               DO BUILDJSON^SDES2JSON(.RESULT,.ERRORS)

               QUIT 

 +8       ;

 +9        SET RETURN("ClinicAvailabilityDefined")=$$AVAILDEFINED(SDPARM("CLINIC IEN"))

 +10       DO BUILDJSON^SDES2JSON(.RESULT,.RETURN)

 +11      ;

 +12       QUIT 

 +13      ;

VALIDATE(ERRORS,SDCLINIC) ;

 +1       ;validate clinic

 +2        DO VALFILEIEN^SDES2VALUTIL(,.ERRORS,44,SDCLINIC,1,"",18,19)

 +3        QUIT 

 +4       ;

AVAILDEFINED(SDCLINIC) ;GET: has the given clinic ever had any availability defined?

 +1        QUIT $SELECT(+$ORDER(^SC(SDCLINIC,"T",0)):1,1:0)

 +2       ;