| 1 | VALM11 ;ALB/MJK - VALM Utilities ;02/01/2001 11:35
|
|---|
| 2 | ;;1.0;List Manager;**6**;Aug 13, 1993
|
|---|
| 3 | RANGE ; -- change date range
|
|---|
| 4 | ; input: ^TMP("VALM DATA",$J VALMEVL,"DAYS") := number of days allowed
|
|---|
| 5 | ; VALMB := default beginning date {optional}
|
|---|
| 6 | ; output: VALMBEG,VALMEND := date range
|
|---|
| 7 | N DIR,X,X1,X2,VALMX,VALMX1,%DT ; calling apps may expect DIRUT,Y
|
|---|
| 8 | S (VALMBEG,VALMEND)=""
|
|---|
| 9 | I $D(VALMB) S Y=VALMB D DD^%DT S:Y]"" %DT("B")=Y
|
|---|
| 10 | W ! S:$D(VALMIN) %DT(0)=VALMIN S %DT="AEX",%DT("A")="Select Beginning Date: "
|
|---|
| 11 | D ^%DT K %DT Q:Y<0
|
|---|
| 12 | S (X1,VALMX)=Y,X2=+$G(^TMP("VALM DATA",$J,VALMEVL,"DAYS")) D C^%DTC S VALMX1=X,X=""
|
|---|
| 13 | I VALMX'>DT,VALMX1>DT S X="TODAY"
|
|---|
| 14 | I X="" S Y=VALMX D DD^%DT S X=Y
|
|---|
| 15 | S DIR("A")="Select Ending Date: "
|
|---|
| 16 | S DIR("B")=X
|
|---|
| 17 | S DIR(0)="DA"_U_VALMX_":"_VALMX1_":EX"
|
|---|
| 18 | S DIR("?",1)="Date range can be a maximum of "_+$G(^TMP("VALM DATA",$J,VALMEVL,"DAYS"))_" days long.",DIR("?",2)=" "
|
|---|
| 19 | S DIR("?",3)="Enter a date between "_$$FMTE^XLFDT(VALMX)_" and "_$$FMTE^XLFDT(VALMX1)_".",DIR("?")=" "
|
|---|
| 20 | D ^DIR Q:Y'>0
|
|---|
| 21 | S VALMEND=Y,VALMBEG=VALMX
|
|---|
| 22 | Q
|
|---|
