Last change
on this file since 1378 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
889 bytes
|
Rev | Line | |
---|
[613] | 1 | DIEH1 ;SFISC/DPC-DBS HELP CON'T ;2:53 PM 25 May 2001
|
---|
| 2 | ;;22.0;VA FileMan;**85**;Mar 30, 1999
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;;
|
---|
| 5 | DT(DIEHDT) ;
|
---|
| 6 | N P,Q
|
---|
| 7 | I DIEHDT'["N" S P(1)=$S(DIEHDT["M":"or 0157",1:"or 012057")
|
---|
| 8 | D
|
---|
| 9 | . I DIEHDT["P" S P(2)="assumes a date in the PAST." Q
|
---|
| 10 | . I DIEHDT["F" S P(2)="assumes a date in the FUTURE." Q
|
---|
| 11 | . S P(2)="uses CURRENT YEAR. Two digit year"
|
---|
| 12 | . S P(3)=" assumes no more than 20 years in the future, or 80 years in the past."
|
---|
| 13 | . Q
|
---|
| 14 | I DIEHDT["M" D BLD^DIALOG(9110.7,.P,.P) Q
|
---|
| 15 | ;
|
---|
| 16 | I DIEHDT'["X" D
|
---|
| 17 | . N X S X="You may omit the precise day, as: JAN, 1957."
|
---|
| 18 | . I $G(P(3))]"" S P(4)=X Q
|
---|
| 19 | . S P(3)=X Q
|
---|
| 20 | D BLD^DIALOG(9110,.P,.P)
|
---|
| 21 | I DIEHDT["T"!(DIEHDT["R") D
|
---|
| 22 | . I DIEHDT["S" S Q(1)="Seconds may be entered as 10:30:30 or 103030AM."
|
---|
| 23 | . I DIEHDT["R" S Q(2)="Time is REQUIRED for this response."
|
---|
| 24 | . D BLD^DIALOG(9111,.Q,.Q)
|
---|
| 25 | . Q
|
---|
| 26 | Q
|
---|
| 27 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.