- RTRPT4 ;MJK/TROY ISC;Management Reports Option; ; 5/20/87 4:33 PM ;
- ;;2.0;Record Tracking;**32**;10/22/91
- S POP=0 K RTBEG,RTEND W !!,"**** Requested Date Range Selection ****"
- W ! S %DT="AEX",%DT("A")=" Beginning DATE : " D ^%DT S:Y<0 POP=1 G Q8:Y<0 S (%DT(0),RTBEG)=Y
- 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"
- S FR=RTBEG,TO=RTEND,DHD="Request Response Statistics for "_$TR($$FMTE^XLFDT(RTBEG,"5DF")," /","0-")_" to "_$TR($$FMTE^XLFDT(RTEND,"5DF")," /","0-")
- 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
- Q8 K %DT,RTEND,RTBEG,DIC,BY,FLDS,TO,FR,L,DHD,POP,Y Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRTRPT4 780 printed Mar 13, 2025@21:39:47 Page 2
- RTRPT4 ;MJK/TROY ISC;Management Reports Option; ; 5/20/87 4:33 PM ;
- +1 ;;2.0;Record Tracking;**32**;10/22/91
- +2 SET POP=0
- KILL RTBEG,RTEND
- WRITE !!,"**** Requested Date Range Selection ****"
- +3 WRITE !
- SET %DT="AEX"
- SET %DT("A")=" Beginning DATE : "
- DO ^%DT
- if Y<0
- SET POP=1
- if Y<0
- GOTO Q8
- SET (%DT(0),RTBEG)=Y
- +4 WRITE !
- SET %DT="AEX"
- SET %DT("A")=" Ending DATE : "
- DO ^%DT
- KILL %DT
- if Y<0
- SET POP=1
- if Y<0
- GOTO Q8
- WRITE !
- SET RTEND=Y_".2399"
- +5 SET FR=RTBEG
- SET TO=RTEND
- SET DHD="Request Response Statistics for "_$TRANSLATE($$FMTE^XLFDT(RTBEG,"5DF")," /","0-")_" to "_$TRANSLATE($$FMTE^XLFDT(RTEND,"5DF")," /","0-")
- +6 SET DIC="^RTV(190.1,"
- SET L=0
- SET (BY,FLDS)="[RT TIME STUDY]"
- SET 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
- KILL DTOUT
- DO OFF^RTRPT3
- DO EN1^DIP
- DO ON^RTRPT3
- Q8 KILL %DT,RTEND,RTBEG,DIC,BY,FLDS,TO,FR,L,DHD,POP,Y
- QUIT
