DIEH1.m

DIEH1 ;SFISC/DPC-DBS HELP CON'T ;2:53 PM  25 May 2001 [ 04/02/2003   8:25 AM ]

 ;;22.0;VA FileMan;**1001**;APR 1, 2003

 ;;22.0;VA FileMan;**85**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;;

DT(DIEHDT) ;

 N P,Q

 I DIEHDT'["N" S P(1)=$S(DIEHDT["M":"or 0157",1:"or 012057")

 D

 . I DIEHDT["P" S P(2)="assumes a date in the PAST." Q

 . I DIEHDT["F" S P(2)="assumes a date in the FUTURE." Q

 . S P(2)="uses CURRENT YEAR.  Two digit year"

 . S P(3)="  assumes no more than 20 years in the future, or 80 years in the past."

 . Q

 I DIEHDT["M" D BLD^DIALOG(9110.7,.P,.P) Q

 ;

 I DIEHDT'["X" D

 . N X S X="You may omit the precise day, as:  JAN, 1957."

 . I $G(P(3))]"" S P(4)=X Q

 . S P(3)=X Q

 D BLD^DIALOG(9110,.P,.P)

 I DIEHDT["T"!(DIEHDT["R") D

 . I DIEHDT["S" S Q(1)="Seconds may be entered as 10:30:30 or 103030AM."

 . I DIEHDT["R" S Q(2)="Time is REQUIRED for this response."

 . D BLD^DIALOG(9111,.Q,.Q)

 . Q

 Q

 ;

DIEH1     ;SFISC/DPC-DBS HELP CON'T ;2:53 PM  25 May 2001 [ 04/02/2003   8:25 AM ]

 +1       ;;22.0;VA FileMan;**1001**;APR 1, 2003

 +2       ;;22.0;VA FileMan;**85**;Mar 30, 1999

 +3       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +4       ;;

DT(DIEHDT) ;

 +1        NEW P,Q

 +2        IF DIEHDT'["N"

               SET P(1)=$SELECT(DIEHDT["M":"or 0157",1:"or 012057")

 +3        Begin DoDot:1

 +4            IF DIEHDT["P"

                   SET P(2)="assumes a date in the PAST."

                   QUIT 

 +5            IF DIEHDT["F"

                   SET P(2)="assumes a date in the FUTURE."

                   QUIT 

 +6            SET P(2)="uses CURRENT YEAR.  Two digit year"

 +7            SET P(3)="  assumes no more than 20 years in the future, or 80 years in the past."

 +8            QUIT 

           End DoDot:1

 +9        IF DIEHDT["M"

               DO BLD^DIALOG(9110.7,.P,.P)

               QUIT 

 +10      ;

 +11       IF DIEHDT'["X"

               Begin DoDot:1

 +12               NEW X

                   SET X="You may omit the precise day, as:  JAN, 1957."

 +13               IF $GET(P(3))]""

                       SET P(4)=X

                       QUIT 

 +14               SET P(3)=X

                   QUIT 

               End DoDot:1

 +15       DO BLD^DIALOG(9110,.P,.P)

 +16       IF DIEHDT["T"!(DIEHDT["R")

               Begin DoDot:1

 +17               IF DIEHDT["S"

                       SET Q(1)="Seconds may be entered as 10:30:30 or 103030AM."

 +18               IF DIEHDT["R"

                       SET Q(2)="Time is REQUIRED for this response."

 +19               DO BLD^DIALOG(9111,.Q,.Q)

 +20               QUIT 

               End DoDot:1

 +21       QUIT 

 +22      ;