RTREP1 ;JLU/TROY ISC;RPW/BUF;RT Pull List Retrieval Rates; 2-19-87
;;2.0;Record Tracking;**32**;10/22/91
RTLP ; Request Loop
S (RTST(1,"c"),RTST(1,"x"),RTST(1,"r"),RTST(1,"n"))=0
F RTRTN=0:0 S RTRTN=$O(^RTV(190.1,"AP",RTPLN,RTRTN)) Q:+RTRTN'>0 I $D(^RTV(190.1,RTRTN,0)) S RTX=$P(^(0),U,6) F RTX3=0,1,2 S RTST(RTX3,RTX)=RTST(RTX3,RTX)+1
Q:'RTDSF
S RTX=RTST(1,"c")+RTST(1,"r")+RTST(1,"n"),RTXP=$S(RTX'=0:RTST(1,"c")*100/RTX,1:"")
I $Y>(IOSL-5) D HDR,INITS2
I $D(RTNB) W !,?9,RTNB K RTNB
W !,$P(^RTV(194.2,RTPLN,0),U),?48,RTX,?63,$J(RTXP,6,2),"%",?81,RTST(1,"c"),?93,RTST(1,"x"),?109,RTST(1,"n"),?124,RTST(1,"r")
Q
APRT ; Alpha Prnt
S (RTP1,RTNM)="" F RTNM1=0:0 S RTNM=$O(^TMP($J,RTNM)) D CHK:$P(RTNM,"[")'=RTP1 Q:RTNM="" F RTPLN=0:0 S RTPLN=$O(^TMP($J,RTNM,RTPLN)) Q:'RTPLN D RTLP
Q
DPRT ; Institution Print
S RTIST="" F RTIST1=0:0 S (RTNB,RTIST)=$O(^TMP($J,RTIST)) Q:RTIST="" S RTNM="" F RTNM1=0:0 S RTNM=$O(^TMP($J,RTIST,RTNM)) D SS:RTNM="" Q:RTNM="" F RTPLN=0:0 S RTPLN=$O(^TMP($J,RTIST,RTNM,RTPLN)) Q:'RTPLN D RTLP
Q
;
PRNT ;Summary Print
D HDR
S RTX=RTST(0,"c")+RTST(0,"r")+RTST(0,"n"),RTXP=$S(RTX'=0:RTST(0,"c")*100/RTX,1:"")
W !!!,"Total Entire Pull List"
W !!,?$X+5,"#Charged:",?$X+5,"#Cancelled:",?$X+5,"#Not Fillable:",?$X+5,"#Requested:",!,?$X+5,"---------",?$X+5,"-----------",?$X+5,"--------------",?$X+5,"-----------"
W !,?$X+9,RTST(0,"c"),?$X+14,RTST(0,"x"),?$X+16,RTST(0,"n"),?$X+16,RTST(0,"r")
W !!!!,"TOTAL REQUESTS=> ",RTX,!!,"RETRIEVAL RATE=> ",$J(RTXP,6,2)," %"
Q
;Header
HDR S RTPAGE=RTPAGE+1 W @IOF
W !,?24 W:IOM=132 ?$X+27 W "***** PULL LIST STATS *****",!,RTINE
W !,"Pull List: ",$S(RTX1=3:RTLN,RTX1=2:"One Day",RTX1=1:"Date Range"),?44 W:IOM=132 ?$X+52
W "Date Ranges: " W:RTX1'=3 $TR($$FMTE^XLFDT(RTDT1,"5DF")," ","0") W:$D(RTDT2)&(RTX1'=3) " to ",$TR($$FMTE^XLFDT(RTDT2,"5DF")," ","0")
W !,"Run Date: ",RTDTT,?44 W:IOM=132 ?$X+52 W "PAGE: ",RTPAGE,!,RTINE
Q
INITS2 W !!,?6,"Pull List",?42,"Total Requests",?60,"Retrieval Rate",?78,"#Charged",?90,"Cancelled",?103,"Not Fillable",?119,"#Requested"
W !,?6,"---------",?42,"--------------",?60,"--------------",?78,"--------",?90,"----------",?103,"-------------",?119,"----------"
Q
SS S RTX2=RTST(2,"c")+RTST(2,"n")+RTST(2,"r"),RTXP2=$S(RTX2'=0:RTST(2,"c")*100/RTX2,1:"")
I $Y>(IOSL-5) D HDR,INITS2
W !,?46,"-----",?63,"---------",?79,"-----",?91,"-----",?107,"-----",?122,"-----"
W !,?48,RTX2,?63,$J(RTXP2,6,2),"%",?81,RTST(2,"c"),?93,RTST(2,"x"),?109,RTST(2,"n"),?124,RTST(2,"r"),!
Q
;
CHK I RTP1="" S RTP1=$P(RTNM,"[") Q
S RTP1=$P(RTNM,"[")
D SS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRTREP1 2673 printed Oct 16, 2024@18:35:20 Page 2
RTREP1 ;JLU/TROY ISC;RPW/BUF;RT Pull List Retrieval Rates; 2-19-87
+1 ;;2.0;Record Tracking;**32**;10/22/91
RTLP ; Request Loop
+1 SET (RTST(1,"c"),RTST(1,"x"),RTST(1,"r"),RTST(1,"n"))=0
+2 FOR RTRTN=0:0
SET RTRTN=$ORDER(^RTV(190.1,"AP",RTPLN,RTRTN))
if +RTRTN'>0
QUIT
IF $DATA(^RTV(190.1,RTRTN,0))
SET RTX=$PIECE(^(0),U,6)
FOR RTX3=0,1,2
SET RTST(RTX3,RTX)=RTST(RTX3,RTX)+1
+3 if 'RTDSF
QUIT
+4 SET RTX=RTST(1,"c")+RTST(1,"r")+RTST(1,"n")
SET RTXP=$SELECT(RTX'=0:RTST(1,"c")*100/RTX,1:"")
+5 IF $Y>(IOSL-5)
DO HDR
DO INITS2
+6 IF $DATA(RTNB)
WRITE !,?9,RTNB
KILL RTNB
+7 WRITE !,$PIECE(^RTV(194.2,RTPLN,0),U),?48,RTX,?63,$JUSTIFY(RTXP,6,2),"%",?81,RTST(1,"c"),?93,RTST(1,"x"),?109,RTST(1,"n"),?124,RTST(1,"r")
+8 QUIT
APRT ; Alpha Prnt
+1 SET (RTP1,RTNM)=""
FOR RTNM1=0:0
SET RTNM=$ORDER(^TMP($JOB,RTNM))
if $PIECE(RTNM,"[")'=RTP1
DO CHK
if RTNM=""
QUIT
FOR RTPLN=0:0
SET RTPLN=$ORDER(^TMP($JOB,RTNM,RTPLN))
if 'RTPLN
QUIT
DO RTLP
+2 QUIT
DPRT ; Institution Print
+1 SET RTIST=""
FOR RTIST1=0:0
SET (RTNB,RTIST)=$ORDER(^TMP($JOB,RTIST))
if RTIST=""
QUIT
SET RTNM=""
FOR RTNM1=0:0
SET RTNM=$ORDER(^TMP($JOB,RTIST,RTNM))
if RTNM=""
DO SS
if RTNM=""
QUIT
FOR RTPLN=0:0
SET RTPLN=$ORDER(^TMP($JOB,RTIST,RTNM,RTPLN))
if 'RTPLN
QUIT
DO RTLP
+2 QUIT
+3 ;
PRNT ;Summary Print
+1 DO HDR
+2 SET RTX=RTST(0,"c")+RTST(0,"r")+RTST(0,"n")
SET RTXP=$SELECT(RTX'=0:RTST(0,"c")*100/RTX,1:"")
+3 WRITE !!!,"Total Entire Pull List"
+4 WRITE !!,?$X+5,"#Charged:",?$X+5,"#Cancelled:",?$X+5,"#Not Fillable:",?$X+5,"#Requested:",!,?$X+5,"---------",?$X+5,"-----------",?$X+5,"--------------",?$X+5,"-----------"
+5 WRITE !,?$X+9,RTST(0,"c"),?$X+14,RTST(0,"x"),?$X+16,RTST(0,"n"),?$X+16,RTST(0,"r")
+6 WRITE !!!!,"TOTAL REQUESTS=> ",RTX,!!,"RETRIEVAL RATE=> ",$JUSTIFY(RTXP,6,2)," %"
+7 QUIT
+8 ;Header
HDR SET RTPAGE=RTPAGE+1
WRITE @IOF
+1 WRITE !,?24
if IOM=132
WRITE ?$X+27
WRITE "***** PULL LIST STATS *****",!,RTINE
+2 WRITE !,"Pull List: ",$SELECT(RTX1=3:RTLN,RTX1=2:"One Day",RTX1=1:"Date Range"),?44
if IOM=132
WRITE ?$X+52
+3 WRITE "Date Ranges: "
if RTX1'=3
WRITE $TRANSLATE($$FMTE^XLFDT(RTDT1,"5DF")," ","0")
if $DATA(RTDT2)&(RTX1'=3)
WRITE " to ",$TRANSLATE($$FMTE^XLFDT(RTDT2,"5DF")," ","0")
+4 WRITE !,"Run Date: ",RTDTT,?44
if IOM=132
WRITE ?$X+52
WRITE "PAGE: ",RTPAGE,!,RTINE
+5 QUIT
INITS2 WRITE !!,?6,"Pull List",?42,"Total Requests",?60,"Retrieval Rate",?78,"#Charged",?90,"Cancelled",?103,"Not Fillable",?119,"#Requested"
+1 WRITE !,?6,"---------",?42,"--------------",?60,"--------------",?78,"--------",?90,"----------",?103,"-------------",?119,"----------"
+2 QUIT
SS SET RTX2=RTST(2,"c")+RTST(2,"n")+RTST(2,"r")
SET RTXP2=$SELECT(RTX2'=0:RTST(2,"c")*100/RTX2,1:"")
+1 IF $Y>(IOSL-5)
DO HDR
DO INITS2
+2 WRITE !,?46,"-----",?63,"---------",?79,"-----",?91,"-----",?107,"-----",?122,"-----"
+3 WRITE !,?48,RTX2,?63,$JUSTIFY(RTXP2,6,2),"%",?81,RTST(2,"c"),?93,RTST(2,"x"),?109,RTST(2,"n"),?124,RTST(2,"r"),!
SET RTST(2,RTI2)=0
KILL RTI2
+1 QUIT
+2 ;
CHK IF RTP1=""
SET RTP1=$PIECE(RTNM,"[")
QUIT
+1 SET RTP1=$PIECE(RTNM,"[")
+2 DO SS
+3 QUIT
