Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCSRVRP

ONCSRVRP.m

Go to the documentation of this file.
  1. ONCSRVRP ;Hines OIFO/RVD - REGISTRY SERVER REPORT ;06/26/13
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. ;
  1. TK ;Tasked [RS Registry Summary Reports - Today] report
  1. S YR="T"
  1. N G,W,ONCAC,ONCANA,ONCNON,ONCMI,ONCIN,ONCWA,ONCXD0,ONCDIV,X0,X1,X2
  1. N ONCPA,ONCCO,START,END,XMY,XMTEXT,RPTDATE
  1. K ^TMP($J)
  1. S Y=DT D DD^%DT S RPTDATE=Y
  1. S G=0,XD0=0 F S XD0=$O(^ONCO(165.5,"AG",G,XD0)) Q:XD0'>0 D
  1. .S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
  1. .I $P($G(^ONCO(165.5,XD0,7)),"^",2)'="A" D
  1. ..S:'$D(G(ONCDIV,G)) G(ONCDIV,G)=0
  1. ..S G(ONCDIV,G)=G(ONCDIV,G)+1
  1. S G=1,XD0=0 F S XD0=$O(^ONCO(165.5,"AG",G,XD0)) Q:XD0'>0 D
  1. .S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(XD0),0),U,1)
  1. .I $P($G(^ONCO(165.5,XD0,7)),"^",2)'="A" D
  1. ..S:'$D(G(ONCDIV,G)) G(ONCDIV,G)=0
  1. ..S G(ONCDIV,G)=G(ONCDIV,G)+1
  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
  1. .F S X2=$O(^ONCO(160,"ADX",X0,X1,X2)) Q:'X2 D
  1. ..S ONCDIV=$P(^DIC(4,$$SUSDIV^ONCFUNC(X1,X2),0),U,1)
  1. ..S:'$D(W(ONCDIV)) W(ONCDIV)=0
  1. ..S W(ONCDIV)=W(ONCDIV)+1
  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
  1. .S ONCDIV=$P(^DIC(4,$$DIV^ONCFUNC(X0),0),U,1)
  1. .S:'$D(W(ONCDIV,I)) W(ONCDIV,I)=0
  1. .S W(ONCDIV,I)=W(ONCDIV,I)+1
  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
  1. .S I=I+1
  1. .S:ONCANA="" ONCANA=0 S:ONCNON="" ONCNON=0
  1. .S ^TMP($J,"ONCPRT",I)="REGISTRY SUMMARY REPORT (Today) for: "_ONCDIV_" Run Date: "_RPTDATE
  1. .S ONCAC=$G(W(ONCDIV,"A")),ONCIN=$G(W(ONCDIV,0)),ONCMI=$G(W(ONCDIV,1)),ONCPA=$G(W(ONCDIV,2))
  1. .S ONCCO=$G(W(ONCDIV,3)),ONCWA=$G(W(ONCDIV))
  1. .S:ONCWA="" ONCWA=0 S:ONCCO="" ONCCO=0 S:ONCPA="" ONCPA=0 S:ONCMI="" ONCMI=0 S:ONCIN="" ONCIN=0
  1. .S:ONCAC="" ONCAC=0
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=" Analytical: "_$J(ONCANA,5)
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Non-Analytical: "_$J(ONCNON,5)
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Accession Only: "_$J(ONCAC,5)
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=" ------",I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Total: "_$J(ONCANA+ONCNON+ONCAC,5)
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="WORKLOAD STATITICS"
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Suspense: "_ONCWA
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Incomplete: "_ONCIN_" Minimal: "_ONCMI_" Partial: "_ONCPA_" Complete: "_ONCCO
  1. .S ^TMP($J,"ONCPRT",I)=^TMP($J,"ONCPRT",I)_" Acc Only: "_ONCAC
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="--------------"
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="",I=I+1
  1. .S ^TMP($J,"ONCPRT",I)="Total: "_$J(ONCIN+ONCMI+ONCPA+ONCCO+ONCAC,5)
  1. .S I=I+1
  1. .S ^TMP($J,"ONCPRT",I)=""
  1. D MAIL
  1. Q
  1. ;
  1. W !!?30,"Analytical: ",$J(G(1),5)
  1. W !?26,"Non-Analytical: ",$J(G(0),5)
  1. W !?26,"Accession Only: ",$J(W("A"),5)
  1. W !?42,"-----"
  1. W !?35,"Total: ",$J(G(0)+G(1)+W("A"),5),!!
  1. W !,?30,"WORKLOAD STATISTICS",!!
  1. W "Suspense: ",W,!!,"Incomplete: ",W(0),?19,"Minimal: ",W(1),?34,"Partial: ",W(2),?49,"Complete: ",W(3),?65,"Acc Only: ",W("A"),!
  1. W "---------------",!,"Total: ",W(0)+W(1)+W(2)+W(3)+W("A")
  1. Q
  1. ;
  1. MAIL ;email report to Oncology
  1. S XMDUZ=.5
  1. D REC^ONCSRV ;get recipients
  1. S XMSUB="Oncology Registry Summary Report (Today)"
  1. S XMTEXT="^TMP($J,""ONCPRT"","
  1. D ^XMD
  1. K XMTEXT,XMY,XMSUB
  1. Q
  1. ;
  1. DIVID ;DIVISION (160.1,6) identifier
  1. Q
  1. ;
  1. EX ;EXIT
  1. ;K ^TMP($J)
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K %ZIS,ACO
  1. Q