ONCSRVRP ;Hines OIFO/RVD - REGISTRY SERVER REPORT ;06/26/13
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;
TK ;Tasked [RS Registry Summary Reports - Today] report
S YR="T"
N G,W,ONCAC,ONCANA,ONCNON,ONCMI,ONCIN,ONCWA,ONCXD0,ONCDIV,X0,X1,X2
N ONCPA,ONCCO,START,END,XMY,XMTEXT,RPTDATE
K ^TMP($J)
S Y=DT D DD^%DT S RPTDATE=Y
S G=0,XD0=0 F S XD0=$O(^ONCO(165.5,"AG",G,XD0)) Q:XD0'>0 D
.S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
.I $P($G(^ONCO(165.5,XD0,7)),"^",2)'="A" D
..S:'$D(G(ONCDIV,G)) G(ONCDIV,G)=0
..S G(ONCDIV,G)=G(ONCDIV,G)+1
S G=1,XD0=0 F S XD0=$O(^ONCO(165.5,"AG",G,XD0)) Q:XD0'>0 D
.S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
.I $P($G(^ONCO(165.5,XD0,7)),"^",2)'="A" D
..S:'$D(G(ONCDIV,G)) G(ONCDIV,G)=0
..S G(ONCDIV,G)=G(ONCDIV,G)+1
S W=0,X0=0 F S X0=$O(^ONCO(160,"ADX",X0)) Q:'X0 S X1=0 F S X1=$O(^ONCO(160,"ADX",X0,X1)) Q:'X1 S X2=0 D
.F S X2=$O(^ONCO(160,"ADX",X0,X1,X2)) Q:'X2 D
..S ONCDIV=$P(^DIC(4,$$SUSDIV^ONCFUNC(X1,X2),0),U,1)
..S:'$D(W(ONCDIV)) W(ONCDIV)=0
..S W(ONCDIV)=W(ONCDIV)+1
F I=0,1,2,3,"A" S X0=0 F S X0=$O(^ONCO(165.5,"AS",I,X0)) Q:X0'>0 D
.S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(X0),0),U,1)
.S:'$D(W(ONCDIV,I)) W(ONCDIV,I)=0
.S W(ONCDIV,I)=W(ONCDIV,I)+1
S ONCDIV="",I=0 F S ONCDIV=$O(G(ONCDIV)) Q:ONCDIV="" S ONCANA=$G(G(ONCDIV,1)),ONCNON=$G(G(ONCDIV,0)) D
.S I=I+1
.S:ONCANA="" ONCANA=0 S:ONCNON="" ONCNON=0
.S ^TMP($J,"ONCPRT",I)="REGISTRY SUMMARY REPORT (Today) for: "_ONCDIV_" Run Date: "_RPTDATE
.S ONCAC=$G(W(ONCDIV,"A")),ONCIN=$G(W(ONCDIV,0)),ONCMI=$G(W(ONCDIV,1)),ONCPA=$G(W(ONCDIV,2))
.S ONCCO=$G(W(ONCDIV,3)),ONCWA=$G(W(ONCDIV))
.S:ONCWA="" ONCWA=0 S:ONCCO="" ONCCO=0 S:ONCPA="" ONCPA=0 S:ONCMI="" ONCMI=0 S:ONCIN="" ONCIN=0
.S:ONCAC="" ONCAC=0
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=" Analytical: "_$J(ONCANA,5)
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="Non-Analytical: "_$J(ONCNON,5)
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="Accession Only: "_$J(ONCAC,5)
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=" ------",I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="Total: "_$J(ONCANA+ONCNON+ONCAC,5)
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="WORKLOAD STATITICS"
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="Suspense: "_ONCWA
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="Incomplete: "_ONCIN_" Minimal: "_ONCMI_" Partial: "_ONCPA_" Complete: "_ONCCO
.S ^TMP($J,"ONCPRT",I)=^TMP($J,"ONCPRT",I)_" Acc Only: "_ONCAC
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="--------------"
.S I=I+1
.S ^TMP($J,"ONCPRT",I)="",I=I+1
.S ^TMP($J,"ONCPRT",I)="Total: "_$J(ONCIN+ONCMI+ONCPA+ONCCO+ONCAC,5)
.S I=I+1
.S ^TMP($J,"ONCPRT",I)=""
D MAIL
Q
;
W !!?30,"Analytical: ",$J(G(1),5)
W !?26,"Non-Analytical: ",$J(G(0),5)
W !?26,"Accession Only: ",$J(W("A"),5)
W !?42,"-----"
W !?35,"Total: ",$J(G(0)+G(1)+W("A"),5),!!
W !,?30,"WORKLOAD STATISTICS",!!
W "Suspense: ",W,!!,"Incomplete: ",W(0),?19,"Minimal: ",W(1),?34,"Partial: ",W(2),?49,"Complete: ",W(3),?65,"Acc Only: ",W("A"),!
W "---------------",!,"Total: ",W(0)+W(1)+W(2)+W(3)+W("A")
Q
;
MAIL ;email report to Oncology
S XMDUZ=.5
D REC^ONCSRV ;get recipients
S XMSUB="Oncology Registry Summary Report (Today)"
S XMTEXT="^TMP($J,""ONCPRT"","
D ^XMD
K XMTEXT,XMY,XMSUB
Q
;
DIVID ;DIVISION (160.1,6) identifier
Q
;
EX ;EXIT
;K ^TMP($J)
Q
;
CLEANUP ;Cleanup
K %ZIS,ACO
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCSRVRP 3868 printed Sep 23, 2025@20:04:52 Page 2
ONCSRVRP ;Hines OIFO/RVD - REGISTRY SERVER REPORT ;06/26/13
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;
TK ;Tasked [RS Registry Summary Reports - Today] report
+1 SET YR="T"
+2 NEW G,W,ONCAC,ONCANA,ONCNON,ONCMI,ONCIN,ONCWA,ONCXD0,ONCDIV,X0,X1,X2
+3 NEW ONCPA,ONCCO,START,END,XMY,XMTEXT,RPTDATE
+4 KILL ^TMP($JOB)
+5 SET Y=DT
DO DD^%DT
SET RPTDATE=Y
+6 SET G=0
SET XD0=0
FOR
SET XD0=$ORDER(^ONCO(165.5,"AG",G,XD0))
if XD0'>0
QUIT
Begin DoDot:1
+7 SET ONCDIV=$PIECE(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
+8 IF $PIECE($GET(^ONCO(165.5,XD0,7)),"^",2)'="A"
Begin DoDot:2
+9 if '$DATA(G(ONCDIV,G))
SET G(ONCDIV,G)=0
+10 SET G(ONCDIV,G)=G(ONCDIV,G)+1
End DoDot:2
End DoDot:1
+11 SET G=1
SET XD0=0
FOR
SET XD0=$ORDER(^ONCO(165.5,"AG",G,XD0))
if XD0'>0
QUIT
Begin DoDot:1
+12 SET ONCDIV=$PIECE(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
+13 IF $PIECE($GET(^ONCO(165.5,XD0,7)),"^",2)'="A"
Begin DoDot:2
+14 if '$DATA(G(ONCDIV,G))
SET G(ONCDIV,G)=0
+15 SET G(ONCDIV,G)=G(ONCDIV,G)+1
End DoDot:2
End DoDot:1
+16 SET W=0
SET X0=0
FOR
SET X0=$ORDER(^ONCO(160,"ADX",X0))
if 'X0
QUIT
SET X1=0
FOR
SET X1=$ORDER(^ONCO(160,"ADX",X0,X1))
if 'X1
QUIT
SET X2=0
Begin DoDot:1
+17 FOR
SET X2=$ORDER(^ONCO(160,"ADX",X0,X1,X2))
if 'X2
QUIT
Begin DoDot:2
+18 SET ONCDIV=$PIECE(^DIC(4,$$SUSDIV^ONCFUNC(X1,X2),0),U,1)
+19 if '$DATA(W(ONCDIV))
SET W(ONCDIV)=0
+20 SET W(ONCDIV)=W(ONCDIV)+1
End DoDot:2
End DoDot:1
+21 FOR I=0,1,2,3,"A"
SET X0=0
FOR
SET X0=$ORDER(^ONCO(165.5,"AS",I,X0))
if X0'>0
QUIT
Begin DoDot:1
+22 SET ONCDIV=$PIECE(^DIC(4,$$DIV^ONCFUNC(X0),0),U,1)
+23 if '$DATA(W(ONCDIV,I))
SET W(ONCDIV,I)=0
+24 SET W(ONCDIV,I)=W(ONCDIV,I)+1
End DoDot:1
+25 SET ONCDIV=""
SET I=0
FOR
SET ONCDIV=$ORDER(G(ONCDIV))
if ONCDIV=""
QUIT
SET ONCANA=$GET(G(ONCDIV,1))
SET ONCNON=$GET(G(ONCDIV,0))
Begin DoDot:1
+26 SET I=I+1
+27 if ONCANA=""
SET ONCANA=0
if ONCNON=""
SET ONCNON=0
+28 SET ^TMP($JOB,"ONCPRT",I)="REGISTRY SUMMARY REPORT (Today) for: "_ONCDIV_" Run Date: "_RPTDATE
+29 SET ONCAC=$GET(W(ONCDIV,"A"))
SET ONCIN=$GET(W(ONCDIV,0))
SET ONCMI=$GET(W(ONCDIV,1))
SET ONCPA=$GET(W(ONCDIV,2))
+30 SET ONCCO=$GET(W(ONCDIV,3))
SET ONCWA=$GET(W(ONCDIV))
+31 if ONCWA=""
SET ONCWA=0
if ONCCO=""
SET ONCCO=0
if ONCPA=""
SET ONCPA=0
if ONCMI=""
SET ONCMI=0
if ONCIN=""
SET ONCIN=0
+32 if ONCAC=""
SET ONCAC=0
+33 SET I=I+1
+34 SET ^TMP($JOB,"ONCPRT",I)=""
+35 SET I=I+1
+36 SET ^TMP($JOB,"ONCPRT",I)=""
+37 SET I=I+1
+38 SET ^TMP($JOB,"ONCPRT",I)=" Analytical: "_$JUSTIFY(ONCANA,5)
+39 SET I=I+1
+40 SET ^TMP($JOB,"ONCPRT",I)=""
+41 SET I=I+1
+42 SET ^TMP($JOB,"ONCPRT",I)="Non-Analytical: "_$JUSTIFY(ONCNON,5)
+43 SET I=I+1
+44 SET ^TMP($JOB,"ONCPRT",I)=""
+45 SET I=I+1
+46 SET ^TMP($JOB,"ONCPRT",I)="Accession Only: "_$JUSTIFY(ONCAC,5)
+47 SET I=I+1
+48 SET ^TMP($JOB,"ONCPRT",I)=""
+49 SET I=I+1
+50 SET ^TMP($JOB,"ONCPRT",I)=" ------"
SET I=I+1
+51 SET ^TMP($JOB,"ONCPRT",I)=""
+52 SET I=I+1
+53 SET ^TMP($JOB,"ONCPRT",I)="Total: "_$JUSTIFY(ONCANA+ONCNON+ONCAC,5)
+54 SET I=I+1
+55 SET ^TMP($JOB,"ONCPRT",I)=""
+56 SET I=I+1
+57 SET ^TMP($JOB,"ONCPRT",I)=""
+58 SET I=I+1
+59 SET ^TMP($JOB,"ONCPRT",I)="WORKLOAD STATITICS"
+60 SET I=I+1
+61 SET ^TMP($JOB,"ONCPRT",I)=""
+62 SET I=I+1
+63 SET ^TMP($JOB,"ONCPRT",I)=""
+64 SET I=I+1
+65 SET ^TMP($JOB,"ONCPRT",I)="Suspense: "_ONCWA
+66 SET I=I+1
+67 SET ^TMP($JOB,"ONCPRT",I)=""
+68 SET I=I+1
+69 SET ^TMP($JOB,"ONCPRT",I)=""
+70 SET I=I+1
+71 SET ^TMP($JOB,"ONCPRT",I)="Incomplete: "_ONCIN_" Minimal: "_ONCMI_" Partial: "_ONCPA_" Complete: "_ONCCO
+72 SET ^TMP($JOB,"ONCPRT",I)=^TMP($JOB,"ONCPRT",I)_" Acc Only: "_ONCAC
+73 SET I=I+1
+74 SET ^TMP($JOB,"ONCPRT",I)=""
+75 SET I=I+1
+76 SET ^TMP($JOB,"ONCPRT",I)="--------------"
+77 SET I=I+1
+78 SET ^TMP($JOB,"ONCPRT",I)=""
SET I=I+1
+79 SET ^TMP($JOB,"ONCPRT",I)="Total: "_$JUSTIFY(ONCIN+ONCMI+ONCPA+ONCCO+ONCAC,5)
+80 SET I=I+1
+81 SET ^TMP($JOB,"ONCPRT",I)=""
End DoDot:1
+82 DO MAIL
+83 QUIT
+84 ;
+85 WRITE !!?30,"Analytical: ",$JUSTIFY(G(1),5)
+86 WRITE !?26,"Non-Analytical: ",$JUSTIFY(G(0),5)
+87 WRITE !?26,"Accession Only: ",$JUSTIFY(W("A"),5)
+88 WRITE !?42,"-----"
+89 WRITE !?35,"Total: ",$JUSTIFY(G(0)+G(1)+W("A"),5),!!
+90 WRITE !,?30,"WORKLOAD STATISTICS",!!
+91 WRITE "Suspense: ",W,!!,"Incomplete: ",W(0),?19,"Minimal: ",W(1),?34,"Partial: ",W(2),?49,"Complete: ",W(3),?65,"Acc Only: ",W("A"),!
+92 WRITE "---------------",!,"Total: ",W(0)+W(1)+W(2)+W(3)+W("A")
+93 QUIT
+94 ;
MAIL ;email report to Oncology
+1 SET XMDUZ=.5
+2 ;get recipients
DO REC^ONCSRV
+3 SET XMSUB="Oncology Registry Summary Report (Today)"
+4 SET XMTEXT="^TMP($J,""ONCPRT"","
+5 DO ^XMD
+6 KILL XMTEXT,XMY,XMSUB
+7 QUIT
+8 ;
DIVID ;DIVISION (160.1,6) identifier
+1 QUIT
+2 ;
EX ;EXIT
+1 ;K ^TMP($J)
+2 QUIT
+3 ;
CLEANUP ;Cleanup
+1 KILL %ZIS,ACO
+2 QUIT
