| [613] | 1 | RTRPT4 ;MJK/TROY ISC;Management Reports Option; ; 5/20/87 4:33 PM ;
|
|---|
| 2 | ;;2.0;Record Tracking;**32**;10/22/91
|
|---|
| 3 | S POP=0 K RTBEG,RTEND W !!,"**** Requested Date Range Selection ****"
|
|---|
| 4 | W ! S %DT="AEX",%DT("A")=" Beginning DATE : " D ^%DT S:Y<0 POP=1 G Q8:Y<0 S (%DT(0),RTBEG)=Y
|
|---|
| 5 | W ! S %DT="AEX",%DT("A")=" Ending DATE : " D ^%DT K %DT S:Y<0 POP=1 G Q8:Y<0 W ! S RTEND=Y_".2399"
|
|---|
| 6 | S FR=RTBEG,TO=RTEND,DHD="Request Response Statistics for "_$TR($$FMTE^XLFDT(RTBEG,"5DF")," /","0-")_" to "_$TR($$FMTE^XLFDT(RTEND,"5DF")," /","0-")
|
|---|
| 7 | S DIC="^RTV(190.1,",L=0,(BY,FLDS)="[RT TIME STUDY]",DIS(0)="I $D(^RTV(190.1,D0,0)),$P(^(0),U,2)'>$P(^(0),U,7),$D(^RT(+^(0),0)),$P(^(0),U,4)="_+RTAPL K DTOUT D OFF^RTRPT3,EN1^DIP,ON^RTRPT3
|
|---|
| 8 | Q8 K %DT,RTEND,RTBEG,DIC,BY,FLDS,TO,FR,L,DHD,POP,Y Q
|
|---|
