source:
WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDHOL.m@
1189
| Last change on this file since 1189 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 257 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | SDHOL ;FLA/RL,BSN/GRR,ALB/TMP - ADD/EDIT A HOLIDAY ; 16 AUG 85 3:10 pm |
| 2 | ;;5.3;Scheduling;;Aug 13, 1993 | |
| 3 | GO 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.
