SDESHOLIDAY.m

SDESHOLIDAY ;ALB/BWF - VISTA SCHEDULING RPCS GET HOLIDAYS ; APR 20,2023

 ;;5.3;Scheduling;**844**;Aug 13, 1993;Build 12

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

 ;

 Q

GETHOLIDAYS(RES) ;

 N RESULT,STRTDT,CNT

 S CNT=0

 S STRTDT=$$FMADD^XLFDT(DT,-1)

 F  S STRTDT=$O(^HOLIDAY(STRTDT)) Q:'STRTDT  D

 .S CNT=CNT+1

 .S RESULT("Holiday",CNT,"Date")=$$FMTISO^SDAMUTDT($$GET1^DIQ(40.5,STRTDT,.01,"I"))

 .S RESULT("Holiday",CNT,"Name")=$$GET1^DIQ(40.5,STRTDT,2,"E")

 D BUILDJSON^SDESBUILDJSON(.RES,.RESULT)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESHOLIDAY   536     printed  Apr 09, 2024@21:53:50                                                                                                                                                                                                  Page 2

SDESHOLIDAY ;ALB/BWF - VISTA SCHEDULING RPCS GET HOLIDAYS ; APR 20,2023

 +1       ;;5.3;Scheduling;**844**;Aug 13, 1993;Build 12

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

 +3       ;

 +4        QUIT 

GETHOLIDAYS(RES) ;

 +1        NEW RESULT,STRTDT,CNT

 +2        SET CNT=0

 +3        SET STRTDT=$$FMADD^XLFDT(DT,-1)

 +4        FOR 

               SET STRTDT=$ORDER(^HOLIDAY(STRTDT))

               if 'STRTDT

                   QUIT 

               Begin DoDot:1

 +5                SET CNT=CNT+1

 +6                SET RESULT("Holiday",CNT,"Date")=$$FMTISO^SDAMUTDT($$GET1^DIQ(40.5,STRTDT,.01,"I"))

 +7                SET RESULT("Holiday",CNT,"Name")=$$GET1^DIQ(40.5,STRTDT,2,"E")

               End DoDot:1

 +8        DO BUILDJSON^SDESBUILDJSON(.RES,.RESULT)

 +9        QUIT