| 1 | RTREP1 ;JLU/TROY ISC;RPW/BUF;RT Pull List Retrieval Rates; 2-19-87
|
|---|
| 2 | ;;2.0;Record Tracking;**32**;10/22/91
|
|---|
| 3 | RTLP ; Request Loop
|
|---|
| 4 | S (RTST(1,"c"),RTST(1,"x"),RTST(1,"r"),RTST(1,"n"))=0
|
|---|
| 5 | 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
|
|---|
| 6 | Q:'RTDSF
|
|---|
| 7 | S RTX=RTST(1,"c")+RTST(1,"r")+RTST(1,"n"),RTXP=$S(RTX'=0:RTST(1,"c")*100/RTX,1:"")
|
|---|
| 8 | I $Y>(IOSL-5) D HDR,INITS2
|
|---|
| 9 | I $D(RTNB) W !,?9,RTNB K RTNB
|
|---|
| 10 | 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")
|
|---|
| 11 | Q
|
|---|
| 12 | APRT ; Alpha Prnt
|
|---|
| 13 | 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
|
|---|
| 14 | Q
|
|---|
| 15 | DPRT ; Institution Print
|
|---|
| 16 | 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
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | PRNT ;Summary Print
|
|---|
| 20 | D HDR
|
|---|
| 21 | S RTX=RTST(0,"c")+RTST(0,"r")+RTST(0,"n"),RTXP=$S(RTX'=0:RTST(0,"c")*100/RTX,1:"")
|
|---|
| 22 | W !!!,"Total Entire Pull List"
|
|---|
| 23 | W !!,?$X+5,"#Charged:",?$X+5,"#Cancelled:",?$X+5,"#Not Fillable:",?$X+5,"#Requested:",!,?$X+5,"---------",?$X+5,"-----------",?$X+5,"--------------",?$X+5,"-----------"
|
|---|
| 24 | W !,?$X+9,RTST(0,"c"),?$X+14,RTST(0,"x"),?$X+16,RTST(0,"n"),?$X+16,RTST(0,"r")
|
|---|
| 25 | W !!!!,"TOTAL REQUESTS=> ",RTX,!!,"RETRIEVAL RATE=> ",$J(RTXP,6,2)," %"
|
|---|
| 26 | Q
|
|---|
| 27 | ;Header
|
|---|
| 28 | HDR S RTPAGE=RTPAGE+1 W @IOF
|
|---|
| 29 | W !,?24 W:IOM=132 ?$X+27 W "***** PULL LIST STATS *****",!,RTINE
|
|---|
| 30 | W !,"Pull List: ",$S(RTX1=3:RTLN,RTX1=2:"One Day",RTX1=1:"Date Range"),?44 W:IOM=132 ?$X+52
|
|---|
| 31 | W "Date Ranges: " W:RTX1'=3 $TR($$FMTE^XLFDT(RTDT1,"5DF")," ","0") W:$D(RTDT2)&(RTX1'=3) " to ",$TR($$FMTE^XLFDT(RTDT2,"5DF")," ","0")
|
|---|
| 32 | W !,"Run Date: ",RTDTT,?44 W:IOM=132 ?$X+52 W "PAGE: ",RTPAGE,!,RTINE
|
|---|
| 33 | Q
|
|---|
| 34 | INITS2 W !!,?6,"Pull List",?42,"Total Requests",?60,"Retrieval Rate",?78,"#Charged",?90,"Cancelled",?103,"Not Fillable",?119,"#Requested"
|
|---|
| 35 | W !,?6,"---------",?42,"--------------",?60,"--------------",?78,"--------",?90,"----------",?103,"-------------",?119,"----------"
|
|---|
| 36 | Q
|
|---|
| 37 | SS S RTX2=RTST(2,"c")+RTST(2,"n")+RTST(2,"r"),RTXP2=$S(RTX2'=0:RTST(2,"c")*100/RTX2,1:"")
|
|---|
| 38 | I $Y>(IOSL-5) D HDR,INITS2
|
|---|
| 39 | W !,?46,"-----",?63,"---------",?79,"-----",?91,"-----",?107,"-----",?122,"-----"
|
|---|
| 40 | W !,?48,RTX2,?63,$J(RTXP2,6,2),"%",?81,RTST(2,"c"),?93,RTST(2,"x"),?109,RTST(2,"n"),?124,RTST(2,"r"),!
|
|---|
| 41 | RSS F RTI2="c","x","r","n" S RTST(2,RTI2)=0 K RTI2
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | CHK I RTP1="" S RTP1=$P(RTNM,"[") Q
|
|---|
| 45 | S RTP1=$P(RTNM,"[")
|
|---|
| 46 | D SS
|
|---|
| 47 | Q
|
|---|
