| [613] | 1 | GMRCSPD ;SLC/DCM,JFR - Change Date Range in CSLT Tracking Module ;4/19/00 14:32
|
|---|
| 2 | ;;3.0;CONSULT/REQUEST TRACKING;**1,14,7**;DEC 27, 1997
|
|---|
| 3 | ; 19 APR 00 - MA - Date "GMRCDT2" was not being reset - KILLED GMRCDT2
|
|---|
| 4 | EN ;START HERE
|
|---|
| 5 | N DTOUT,DIR,DUOUT,DIRUT,X,Y,GMRCDTS1,GMRCDTS2
|
|---|
| 6 | I $D(GMRCDT1)&($D(GMRCDT2)) D DTSAV
|
|---|
| 7 | K GMRCQUT
|
|---|
| 8 | EN1 S DIR(0)="FA^1:45",DIR("A")="List From Starting Date: "
|
|---|
| 9 | S DIR("B")="ALL DATES" D ^DIR
|
|---|
| 10 | I $D(DUOUT)!($D(DTOUT)) D DTRES S GMRCQUT=1 Q
|
|---|
| 11 | S GMRCDT1=$$CHECK(X) I 'GMRCDT1,GMRCDT1'="ALL" G EN1
|
|---|
| 12 | I GMRCDT1="ALL" S GMRCDT2=0 Q
|
|---|
| 13 | K DIR
|
|---|
| 14 | S DIR(0)="DA^::E",DIR("A")="List To This Ending Date: " D ^DIR
|
|---|
| 15 | I $D(DTOUT)!($D(DUOUT)) K GMRCDT1 D DTRES S GMRCQUT=1 Q
|
|---|
| 16 | I +Y<GMRCDT1 S GMRCDT2=GMRCDT1,GMRCDT1=+Y
|
|---|
| 17 | S:'$D(GMRCDT2) GMRCDT2=+Y
|
|---|
| 18 | I $D(GMRC("NMBR")) D RESET^GMRCSLMV(GMRC("NMBR")) K GMRC("NMBR")
|
|---|
| 19 | Q
|
|---|
| 20 | DTSAV ;Save old dates in case user '^'s out.
|
|---|
| 21 | I $D(GMRCDT1),$S(GMRCDT1>0:1,GMRCDT1="ALL":1,1:0) S GMRCDTS1=GMRCDT1,GMRCDT1=""
|
|---|
| 22 | I $D(GMRCDT2),GMRCDT2>0 S GMRCDTS2=GMRCDT2 K GMRCDT2
|
|---|
| 23 | I GMRCDTS1="ALL" K GMRCDT2
|
|---|
| 24 | Q
|
|---|
| 25 | DTRES ;Restore old date in case user '^' out.
|
|---|
| 26 | I $D(GMRCDTS1) S GMRCDT1=GMRCDTS1
|
|---|
| 27 | I $D(GMRCDTS2) S GMRCDT2=GMRCDTS2
|
|---|
| 28 | K GMRCDTS1,GMRCDTS2 Q
|
|---|
| 29 | CHECK(GMRCDAT) ;CHECK FREE TEXT INPUT
|
|---|
| 30 | N %DT,X,Y
|
|---|
| 31 | ;I "ALL DATES"[$$UP^XLFSTR(GMRCDAT) Q "ALL"
|
|---|
| 32 | I $E("ALL DATES",1,$L(GMRCDAT))=$$UP^XLFSTR(GMRCDAT) Q "ALL"
|
|---|
| 33 | S %DT="E",X=GMRCDAT D ^%DT I Y<1 Q 0
|
|---|
| 34 | Q +Y
|
|---|
