| FIELD |
-
- FIELD ORDER: 21
- CAPTION: EARLIEST DATE
- BRANCHING LOGIC: S:'Y DDSBR=23
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- HELP:
Enter a date, or "DT" to mean the current date at time of data entry
- INPUT TRANSFORM: N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
- UNIQUE NAME: EARLIEST DATE
- DATA COORDINATE: 1,29
- DATA LENGTH: 18
- CAPTION COORDINATE: 1,14
- DEFAULT: !M
- EXECUTABLE DEFAULT: D EARLY^DICATTD1
-
- FIELD ORDER: 22
- CAPTION: LATEST DATE
- FIELD TYPE: FORM ONLY
- READ TYPE: FREE TEXT
- HELP:
Enter a date, or "DT" to mean the current date at time of data entry
- INPUT TRANSFORM: N Y,%DT I X'="DT" S %DT="" D ^%DT K:Y<0 X
- UNIQUE NAME: LATEST DATE
- DATA COORDINATE: 2,29
- DATA LENGTH: 20
- CAPTION COORDINATE: 2,16
- DEFAULT: !M
- EXECUTABLE DEFAULT: D LATEST^DICATTD1
-
- FIELD ORDER: 23
- CAPTION: CAN DATE BE IMPRECISE
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- HELP:
E.G., Would 'FEB, 1999' be allowed?
- UNIQUE NAME: CAN DATE BE IMPRECISE
- DATA COORDINATE: 3,29
- DATA LENGTH: 3
- CAPTION COORDINATE: 3,6
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$E("YN",$P(DICATT5,"""",2)["X"+1)
-
- FIELD ORDER: 24
- CAPTION: CAN TIME OF DAY BE ENTERED
- BRANCHING LOGIC: S:X=2 DDSBR="COM"
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- HELP:
Can user enter time along with date, as in 'FEB23, 1999@7:30'
- UNIQUE NAME: CAN TIME OF DAY BE ENTERED
- DATA COORDINATE: 4,29
- DATA LENGTH: 3
- CAPTION COORDINATE: 4,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$E("NY",$P(DICATT5,"""",2)["T"+1)
-
- FIELD ORDER: 25
- CAPTION: CAN SECONDS BE ENTERED
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- UNIQUE NAME: SECONDS
- DATA COORDINATE: 5,29
- DATA LENGTH: 3
- CAPTION COORDINATE: 5,5
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$E("NY",$P(DICATT5,"""",2)["S"+1)
-
- FIELD ORDER: 26
- CAPTION: IS TIME REQUIRED
- FIELD TYPE: FORM ONLY
- READ TYPE: YES OR NO
- HELP:
Must user enter TIME along with DATE?
- UNIQUE NAME: IS TIME REQUIRED
- DATA COORDINATE: 6,29
- DATA LENGTH: 3
- CAPTION COORDINATE: 6,11
- DEFAULT: !M
- EXECUTABLE DEFAULT: S Y=$E("NY",$P(DICATT5,"""",2)["R"+1)
|
