source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIEH1.m@ 1046

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

initial load of WorldVistAEHR

File size: 889 bytes
Line 
1DIEH1 ;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 ;;
5DT(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.