SD53P780.m

SD53P780 ;TMP/DRF - TMP POST INSTALL FOR PATCH SD*5.3*780;July 30, 2018

 ;;5.3;Scheduling;**780**;May 29, 2018;Build 17

 ;

 ;Post install routine for SD*5.3*780 to load existing non-clinic days and blocked hours that occur in the future.

 ;

POST ;Post install routines for SD*5.3*780

 N SC,SD,ST,SDCAN

 D NONCLIN

 D BLOCKED

 D BMES^XPDUTL("Rebuilding Menus....") D BLD D BMES^XPDUTL("Rebuilding menus complete.")

 Q

 ;

NONCLIN ;Send existing non-clinic days

 S SC=0 F  S SC=$O(^SC(SC)) Q:'SC  D

 . S SD=DT F  S SD=$O(^SC(SC,"ST",SD)) Q:'SD  D

 .. S ST=$G(^SC(SC,"ST",SD,1)) I ST'["[" D DAYS

 Q

 ;

BLOCKED ;Finding existing blocked hours

 S SC=0 F  S SC=$O(^SC(SC)) Q:'SC  D

 . S SD=DT F  S SD=$O(^SC(SC,"SDCAN",SD)) Q:'SD  D

 .. S SDCAN=$G(^SC(SC,"SDCAN",SD,0)) I SDCAN]"" D HOURS

 Q

 ;

DAYS ;Call HL7 builder

 D EN^SDTMPHLC(SC,SD_".0",1440,"C",$E(ST,10,99))

 Q

 ;

HOURS ;Sending existing blocked hours

 N SDSTRT,SDEND,SDLNGTH

 S SDSTRT=$P(SDCAN,"^",1),SDEND=$P(SDCAN,"^",2),SDEND=+($P(SDSTRT,".",1)_"."_SDEND)

 S SDLNGTH=$$FMDIFF^XLFDT(SDEND,SDSTRT,2)/60

 D EN^SDTMPHLC(SC,SDSTRT,SDLNGTH,"P","BLOCKED")

 Q

 ;

BLD ; Menu updates

 N ADDED

 S ADDED=$$DELETE^XPDMENU("SDSUP","SD TELE TOOLS")

 S ADDED=$$ADD^XPDMENU("SD TELE TOOLS","SD PROVIDER ADD/EDIT")

 S ADDED=$$ADD^XPDMENU("SDMGR","SD TELE TOOLS")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53P780   1344     printed  Apr 09, 2024@21:45:56                                                                                                                                                                                                    Page 2

SD53P780  ;TMP/DRF - TMP POST INSTALL FOR PATCH SD*5.3*780;July 30, 2018

 +1       ;;5.3;Scheduling;**780**;May 29, 2018;Build 17

 +2       ;

 +3       ;Post install routine for SD*5.3*780 to load existing non-clinic days and blocked hours that occur in the future.

 +4       ;

POST      ;Post install routines for SD*5.3*780

 +1        NEW SC,SD,ST,SDCAN

 +2        DO NONCLIN

 +3        DO BLOCKED

 +4        DO BMES^XPDUTL("Rebuilding Menus....")

           DO BLD

           DO BMES^XPDUTL("Rebuilding menus complete.")

 +5        QUIT 

 +6       ;

NONCLIN   ;Send existing non-clinic days

 +1        SET SC=0

           FOR 

               SET SC=$ORDER(^SC(SC))

               if 'SC

                   QUIT 

               Begin DoDot:1

 +2                SET SD=DT

                   FOR 

                       SET SD=$ORDER(^SC(SC,"ST",SD))

                       if 'SD

                           QUIT 

                       Begin DoDot:2

 +3                        SET ST=$GET(^SC(SC,"ST",SD,1))

                           IF ST'["["

                               DO DAYS

                       End DoDot:2

               End DoDot:1

 +4        QUIT 

 +5       ;

BLOCKED   ;Finding existing blocked hours

 +1        SET SC=0

           FOR 

               SET SC=$ORDER(^SC(SC))

               if 'SC

                   QUIT 

               Begin DoDot:1

 +2                SET SD=DT

                   FOR 

                       SET SD=$ORDER(^SC(SC,"SDCAN",SD))

                       if 'SD

                           QUIT 

                       Begin DoDot:2

 +3                        SET SDCAN=$GET(^SC(SC,"SDCAN",SD,0))

                           IF SDCAN]""

                               DO HOURS

                       End DoDot:2

               End DoDot:1

 +4        QUIT 

 +5       ;

DAYS      ;Call HL7 builder

 +1        DO EN^SDTMPHLC(SC,SD_".0",1440,"C",$EXTRACT(ST,10,99))

 +2        QUIT 

 +3       ;

HOURS     ;Sending existing blocked hours

 +1        NEW SDSTRT,SDEND,SDLNGTH

 +2        SET SDSTRT=$PIECE(SDCAN,"^",1)

           SET SDEND=$PIECE(SDCAN,"^",2)

           SET SDEND=+($PIECE(SDSTRT,".",1)_"."_SDEND)

 +3        SET SDLNGTH=$$FMDIFF^XLFDT(SDEND,SDSTRT,2)/60

 +4        DO EN^SDTMPHLC(SC,SDSTRT,SDLNGTH,"P","BLOCKED")

 +5        QUIT 

 +6       ;

BLD       ; Menu updates

 +1        NEW ADDED

 +2        SET ADDED=$$DELETE^XPDMENU("SDSUP","SD TELE TOOLS")

 +3        SET ADDED=$$ADD^XPDMENU("SD TELE TOOLS","SD PROVIDER ADD/EDIT")

 +4        SET ADDED=$$ADD^XPDMENU("SDMGR","SD TELE TOOLS")

 +5        QUIT