ACRFDATE.m

ACRFDATE ;IHS/OIRM/DSD/THL,AEF - UTILITY TO SET BEGINNING AND ENDING DATES; [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;UTILITY TO SET BEGINNING AND ENDING DATES

 ;

DATES ;EP;TO SET DATES

 S DIR(0)="DO^::E"

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

 S DIR("?")="Enter the earliest date you want to include."

 D DIR^ACRFDIC

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

 K ACRQUIT

 S ACRBEGIN=+Y

 S ACREND=""

 I ACRBEGIN D  Q:$D(ACRQUIT)

 . S DIR(0)="DO^::E"

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

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

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

 .D DIR^ACRFDIC

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

 .K ACRQUIT

 .S ACREND=$S('Y:DT,1:Y)

 Q

ACRFDATE  ;IHS/OIRM/DSD/THL,AEF - UTILITY TO SET BEGINNING AND ENDING DATES; [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;UTILITY TO SET BEGINNING AND ENDING DATES

 +3       ;

DATES     ;EP;TO SET DATES

 +1        SET DIR(0)="DO^::E"

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

 +3        SET DIR("?")="Enter the earliest date you want to include."

 +4        DO DIR^ACRFDIC

 +5        IF $EXTRACT(X)[U

               SET ACRQUIT=""

               QUIT 

 +6        KILL ACRQUIT

 +7        SET ACRBEGIN=+Y

 +8        SET ACREND=""

 +9        IF ACRBEGIN

               Begin DoDot:1

 +10               SET DIR(0)="DO^::E"

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

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

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

 +14               DO DIR^ACRFDIC

 +15               IF $EXTRACT(X)[U

                       SET ACRQUIT=""

                       QUIT 

 +16               KILL ACRQUIT

 +17               SET ACREND=$SELECT('Y:DT,1:Y)

               End DoDot:1

               IF $DATA(ACRQUIT)

                   QUIT 

 +18       QUIT