Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
588 bytes
|
Line | |
---|
1 | XUTMTES ;SEA/RDS - TaskMan: Toolkit, Edit Start Time ; ;
|
---|
2 | ;;8.0;KERNEL;;Jul 10, 1995
|
---|
3 | ;
|
---|
4 | EDIT ;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 | ;
|
---|
17 | HELP ;?-help for start time prompt
|
---|
18 | W !!?5,"Answer must be a valid date and time."
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | HELP2 ;??-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.