BDMDFTE.m

BDMDFTE ; IHS/CMI/LAB - UTILITY TO SET BEGINNING AND ENDING DATES ;

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**11**;JUN 14, 2007;Build 30

 ;UTILITY TO SET BEGINNING AND ENDING DATES

 ;

DATES ;EP;TO SET DATES

 S DIR(0)="DO"

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

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

 W !

 D DIR^BDMFDIC

 I Y<1 S BDMQUIT="" Q

 K BDMQUIT

 S BDMBEGIN=+Y

 S BDMEND=""

 I BDMBEGIN D  Q:$D(BDMQUIT)

 .S DIR(0)="DO"

 .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^BDMFDIC

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

 .K BDMQUIT

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

 Q

BDMDFTE   ; IHS/CMI/LAB - UTILITY TO SET BEGINNING AND ENDING DATES ;

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**11**;JUN 14, 2007;Build 30

 +2       ;UTILITY TO SET BEGINNING AND ENDING DATES

 +3       ;

DATES     ;EP;TO SET DATES

 +1        SET DIR(0)="DO"

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

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

 +4        WRITE !

 +5        DO DIR^BDMFDIC

 +6        IF Y<1

               SET BDMQUIT=""

               QUIT 

 +7        KILL BDMQUIT

 +8        SET BDMBEGIN=+Y

 +9        SET BDMEND=""

 +10       IF BDMBEGIN

               Begin DoDot:1

 +11               SET DIR(0)="DO"

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

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

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

 +15               DO DIR^BDMFDIC

 +16               IF $EXTRACT(X)[U

                       SET BDMQUIT=""

                       QUIT 

 +17               KILL BDMQUIT

 +18               SET BDMEND=$SELECT('Y:DT,1:Y)

               End DoDot:1

               IF $DATA(BDMQUIT)

                   QUIT 

 +19       QUIT