SDHOL.m

SDHOL ;FLA/RL,BSN/GRR,ALB/TMP - ADD/EDIT A HOLIDAY ; 16 AUG 85   3:10 pm

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 ;IHS/ANMC/LJF 12/13/2000 added DLAYGO

 ;

GO ;D DT^DICRW S DIC="^HOLIDAY(",DIC(0)="AEQML",DIC("A")="ADD/EDIT HOLIDAY: " D ^DIC K DIC("A")  ;IHS/ANMC/LJF 12/13/2000

 D DT^DICRW S DIC="^HOLIDAY(",DLAYGO=40,DIC(0)="AEQML",DIC("A")="ADD/EDIT HOLIDAY: " D ^DIC K DIC("A")  ;IHS/ANMC/LJF 12/13/2000

 I Y>0 S DIE=DIC,DA=+Y,DR=+$P(Y,U,3)_":9" D ^DIE G GO

 Q

SDHOL     ;FLA/RL,BSN/GRR,ALB/TMP - ADD/EDIT A HOLIDAY ; 16 AUG 85   3:10 pm

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

 +2       ;IHS/ANMC/LJF 12/13/2000 added DLAYGO

 +3       ;

GO        ;D DT^DICRW S DIC="^HOLIDAY(",DIC(0)="AEQML",DIC("A")="ADD/EDIT HOLIDAY: " D ^DIC K DIC("A")  ;IHS/ANMC/LJF 12/13/2000

 +1       ;IHS/ANMC/LJF 12/13/2000

           DO DT^DICRW

           SET DIC="^HOLIDAY("

           SET DLAYGO=40

           SET DIC(0)="AEQML"

           SET DIC("A")="ADD/EDIT HOLIDAY: "

           DO ^DIC

           KILL DIC("A")

 +2        IF Y>0

               SET DIE=DIC

               SET DA=+Y

               SET DR=+$PIECE(Y,U,3)_":9"

               DO ^DIE

               GOTO GO

 +3        QUIT