source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMTES.m@ 1141

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

initial load of WorldVistAEHR

File size: 588 bytes
Line 
1XUTMTES ;SEA/RDS - TaskMan: Toolkit, Edit Start Time ; ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;
4EDIT ;Edit start time of task
5 N DIR
6 S DIR(0)="DO^::AERSX"
7 S DIR("A")="START TIME"
8 I $P(ZTSK(0),U,6)]"" S DIR("B")=$$HTE^XLFDT($P(ZTSK(0),U,6))
9 S DIR("?")="^D HELP^XUTMTES"
10 S DIR("??")="^D HELP2^XUTMTES"
11 D ^DIR K DIR
12 I $D(DTOUT) W $C(7)
13 I $D(DIRUT) Q
14 S $P(ZTSK(0),U,6)=$$FMTH^XLFDT(Y)
15 Q
16 ;
17HELP ;?-help for start time prompt
18 W !!?5,"Answer must be a valid date and time."
19 Q
20 ;
21HELP2 ;??-help for start time prompt
22 W !!?5,"Answer when the task should start running.",!
23 D HELP^%DTC
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.