ANSDATE.m

ANSDATE ;IHS/OIRM/DSD/CSC - UTILITY TO SET BEGINNING AND ENDING DATES; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;UTILITY TO SET BEGINNING AND ENDING DATES

 ;

DATES ;EP;TO SET DATES

 S DIR(0)="DO",DIR("A")="Beginning Date",DIR("?",1)="Enter the earliest date you wish to include.",DIR("?")="Do not enter any date if you want to include all dates."

 D DIR^ANSDIC

 I $E(X)[U S ANSQUIT="" Q

 K ANSQUIT

 S ANSBEGIN=+Y,ANSEND=""

 I ANSBEGIN D  Q:$D(ANSQUIT)

 .S DIR(0)="DO",DIR("A")="Ending Date...",DIR("?",1)="Enter the latest date you wish to include.",DIR("?")="Do not enter any date if you want to include all dates."

 .D DIR^ANSDIC

 .I $E(X)[U S ANSQUIT="" Q

 .K ANSQUIT

 .S ANSEND=$S(Y="":DT,1:Y)

 Q

ANSDATE   ;IHS/OIRM/DSD/CSC - UTILITY TO SET BEGINNING AND ENDING DATES; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;UTILITY TO SET BEGINNING AND ENDING DATES

 +3       ;

DATES     ;EP;TO SET DATES

 +1        SET DIR(0)="DO"

           SET DIR("A")="Beginning Date"

           SET DIR("?",1)="Enter the earliest date you wish to include."

           SET DIR("?")="Do not enter any date if you want to include all dates."

 +2        DO DIR^ANSDIC

 +3        IF $EXTRACT(X)[U

               SET ANSQUIT=""

               QUIT 

 +4        KILL ANSQUIT

 +5        SET ANSBEGIN=+Y

           SET ANSEND=""

 +6        IF ANSBEGIN

               Begin DoDot:1

 +7                SET DIR(0)="DO"

                   SET DIR("A")="Ending Date..."

                   SET DIR("?",1)="Enter the latest date you wish to include."

                   SET DIR("?")="Do not enter any date if you want to include all dates."

 +8                DO DIR^ANSDIC

 +9                IF $EXTRACT(X)[U

                       SET ANSQUIT=""

                       QUIT 

 +10               KILL ANSQUIT

 +11               SET ANSEND=$SELECT(Y="":DT,1:Y)

               End DoDot:1

               IF $DATA(ANSQUIT)

                   QUIT 

 +12       QUIT