source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDHOL.m@ 1361

Last change on this file since 1361 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 257 bytes
RevLine 
[613]1SDHOL ;FLA/RL,BSN/GRR,ALB/TMP - ADD/EDIT A HOLIDAY ; 16 AUG 85 3:10 pm
2 ;;5.3;Scheduling;;Aug 13, 1993
3GO D DT^DICRW S DIC="^HOLIDAY(",DIC(0)="AEQML",DIC("A")="ADD/EDIT HOLIDAY: " D ^DIC K DIC("A")
4 I Y>0 S DIE=DIC,DA=+Y,DR=+$P(Y,U,3)_":9" D ^DIE G GO
5 Q
Note: See TracBrowser for help on using the repository browser.