PXRRPCE ;HIN/MjK - Clinic Specific Workload Reports ;8/28/96
;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996
EN D CLEAN^PXRRPCEQ K ^TMP($J) I '$D(PXRRDEMG) S VAUTD=1
CLSTOP ;_._._._._._._._._._._Clinic Vs Stop Code_._._._._._._._._._._.
D HDR^PXRRPCR,MEAN^PXRRPCR:$D(PXRRDEMG) S PXRI=1,DIR(0)="SA^H:HOSPITAL LOCATION;S:CLINIC STOP CODE",DIR("A")="Select clinic(s) by (H)OSPITAL LOCATION or CLINIC (S)TOP CODE: " D ^DIR K DIR G:$D(DIRUT) QT G STOP:Y="S" W !
CLIN ;_._._._._._._._._.Select Clinic for Report_._._._._._._._._.
S DIC="^SC(",DIC(0)="QAENMZ",DIC("S")="I $P(^(0),U,3)=""C""!($P(^(0),U,3)=""Z"")",DIC("A")=$S(PXRI=1:"Select HOSPITAL LOCATION name: ",1:"Another HOSPITAL LOCATION name: ")
D ^DIC I Y>0 S VAUTC=0 S:'$D(PXRI(+Y)) VAUTC(+Y)=+Y S PXRRCLIN(PXRI)=Y(0,0)_U_+Y,PXRI=PXRI+1,PXRI(+Y)="" G CLIN
K DIC G QT:'$D(PXRRCLIN)!($D(DUOUT))
STOP ;_._._._._._._._._.Select Stop Code for Report_._._._._._._._._.
I '$D(PXRRCLIN) W ! S DIC=40.7,DIC(0)="QAENMZ",DIC("A")="Select the CLINIC STOP code: ",DIC("S")="I $P($G(^(0)),U,3)=""""" D ^DIC K DIC G:Y<0 QT S PXRRSC=+Y,PXRSTPNM=Y(0,0)
DTRANGE ;_._._._._._._._._.Select Date Range For Values_._._._._._._._._.
W !! S DIR(0)="DA^2931001:DT:PXEX",DIR("A")="Enter ENCOUNTER BEGINNING DATE: ",DIR("??")="^D BDT^PXRRPCR"
D ^DIR K DIR G:Y'>0 QT S (PXRRBDT,SDBD)=Y+.0001,DIR(0)="DA^"_$P(SDBD,".")_":DT:PXEX",DIR("A")="Enter ENCOUNTER ENDING DATE: ",DIR("B")=$$FMTE^XLFDT(DT),DIR("??")="^D EDT^PXRRPCR" D ^DIR K DIR I Y'>0 G QT
S (PXRREDT,SDED)=Y+.9999
ZIS W ! K IOP,IO("Q") S POP=0,%ZIS="QM" D ^%ZIS K %ZIS,IOP G:POP QT
I $D(IO("Q")) K IOP S ZTRTN=$S($D(PXRRDEMG):"DEMOGR^PXRRPCE",1:"ST^PXRRPCE"),ZTDESC="PCE CLINICAL DATA REPORTS",ZTSAVE("PXR*")="",ZTSAVE("SD*")="",ZTSAVE("V*")="" D LOAD G QT
STOPCL U IO I $D(PXRRSC) D STPVAUTC
G:$D(PXRRDEMG) DEMOGR
;_._._._._._._._._Clinic Workload Variables_._._._._._._._._._.
ST D:$D(PXRRSC)&('$D(PXRRCLIN)) STPVAUTC
S SDCL="",(SDALL,SDADD,SDPRE)=0,SDF="D",SDRT="E",SDS="C",SDNAM=1
6 S (SDOB,SDPG,SDHR,SD1)=0 F I=0:0 S I=$S(VAUTC:$O(^SC(I)),1:$O(VAUTC(I))) Q:'I D SET^SDCWL3
I '$D(^TMP($J,"CL")),'$D(^("SC")) G NONE
REPORT G QT:'$D(^TMP($J))
VIS ;_._._._._._._._._._._._.Clinic Workload_._._._._._._._._._._._._
I '$D(PXRRCASE)&('$D(PXRRDEMG)) D ^PXRRPCE1,^PXRRPCR1 G QT
ACTIVTY ;_._._._._._._._._._._._Caseload Activity_._._._._._._._._._._._.
I $D(PXRRCASE) D ^PXRRPCE2,^PXRRPCR2 G QT
DEMOGR ;_._._._._._._._._._._._Caseload Demographics_._._._._._._._._._.
I $D(PXRRDEMG) D G QT
. S PXRC=0 F S PXRC=$O(PXRRCLIN(PXRC)) Q:'PXRC S PXRRCLIN=$P(PXRRCLIN(PXRC),U,2) D ^PXRRPCE3,CLEAN^PXRRPCEQ
. D:$D(^TMP($J,"CLINIC TOTALS")) MEAN^PXRRPCE5
. S PXR=0 F S PXR=$O(PXRRCLIN(PXR)) Q:'PXR S PXRRCLIN=$P(PXRRCLIN(PXR),U,2) D ^PXRRPCR3
QT D ^%ZISC,^PXRRPCEQ Q
CQT K PXRRCLIN,PXRRBDT,PXRREDT,PXRSTPNM
NONE D HDR^PXRRPCR W !?5,"o There were no appts for this clinic in this date range",!?5,"o Note: This report is run from patient appts., not clinic enrollment." G QT
LOAD D ^%ZTLOAD
I $D(ZTSK)=0 W !,"Request Cancelled"
E W !,"Request queued, task number "_ZTSK
S:'$D(ZTSK) X="^" I $D(ZTSK),'$D(ZTQUEUED) N POP D ^%ZISC G QT
Q
STPVAUTC ;_._.Set up VAUTC array for Stop Code_._._.
S (VAUTC,X)=0 F S X=$O(^SC("AC","C",X)) Q:'X I $P($G(^SC(X,0)),U,7)=PXRRSC D
. I '$D(^SC(X,"I")) S VAUTC(X)=X,PXRRCLIN(PXRI)=$P(^SC(X,0),U)_U_X,PXRI=PXRI+1 Q
. S Y=$G(^SC(X,"I")) I $P($G(Y),U,2)>$P($G(Y),U) S VAUTC(X)=X,PXRRCLIN(PXRI)=$P(^SC(X,0),U)_U_X,PXRI=PXRI+1
Q
PXRRPCE ;HIN/MjK - Clinic Specific Workload Reports ;8/28/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996
EN DO CLEAN^PXRRPCEQ
KILL ^TMP($JOB)
IF '$DATA(PXRRDEMG)
SET VAUTD=1
CLSTOP ;_._._._._._._._._._._Clinic Vs Stop Code_._._._._._._._._._._.
+1 DO HDR^PXRRPCR
IF $DATA(PXRRDEMG)
DO MEAN^PXRRPCR
SET PXRI=1
SET DIR(0)="SA^H:HOSPITAL LOCATION;S:CLINIC STOP CODE"
SET DIR("A")="Select clinic(s) by (H)OSPITAL LOCATION or CLINIC (S)TOP CODE: "
DO ^DIR
KILL DIR
IF $DATA(DIRUT)
GOTO QT
IF Y="S"
GOTO STOP
WRITE !
CLIN ;_._._._._._._._._.Select Clinic for Report_._._._._._._._._.
+1 SET DIC="^SC("
SET DIC(0)="QAENMZ"
SET DIC("S")="I $P(^(0),U,3)=""C""!($P(^(0),U,3)=""Z"")"
SET DIC("A")=$SELECT(PXRI=1:"Select HOSPITAL LOCATION name: ",1:"Another HOSPITAL LOCATION name: ")
+2 DO ^DIC
IF Y>0
SET VAUTC=0
IF '$DATA(PXRI(+Y))
SET VAUTC(+Y)=+Y
SET PXRRCLIN(PXRI)=Y(0,0)_U_+Y
SET PXRI=PXRI+1
SET PXRI(+Y)=""
GOTO CLIN
+3 KILL DIC
IF '$DATA(PXRRCLIN)!($DATA(DUOUT))
GOTO QT
STOP ;_._._._._._._._._.Select Stop Code for Report_._._._._._._._._.
+1 IF '$DATA(PXRRCLIN)
WRITE !
SET DIC=40.7
SET DIC(0)="QAENMZ"
SET DIC("A")="Select the CLINIC STOP code: "
SET DIC("S")="I $P($G(^(0)),U,3)="""""
DO ^DIC
KILL DIC
IF Y<0
GOTO QT
SET PXRRSC=+Y
SET PXRSTPNM=Y(0,0)
DTRANGE ;_._._._._._._._._.Select Date Range For Values_._._._._._._._._.
+1 WRITE !!
SET DIR(0)="DA^2931001:DT:PXEX"
SET DIR("A")="Enter ENCOUNTER BEGINNING DATE: "
SET DIR("??")="^D BDT^PXRRPCR"
+2 DO ^DIR
KILL DIR
IF Y'>0
GOTO QT
SET (PXRRBDT,SDBD)=Y+.0001
SET DIR(0)="DA^"_$PIECE(SDBD,".")_":DT:PXEX"
SET DIR("A")="Enter ENCOUNTER ENDING DATE: "
SET DIR("B")=$$FMTE^XLFDT(DT)
SET DIR("??")="^D EDT^PXRRPCR"
DO ^DIR
KILL DIR
IF Y'>0
GOTO QT
+3 SET (PXRREDT,SDED)=Y+.9999
ZIS WRITE !
KILL IOP,IO("Q")
SET POP=0
SET %ZIS="QM"
DO ^%ZIS
KILL %ZIS,IOP
IF POP
GOTO QT
+1 IF $DATA(IO("Q"))
KILL IOP
SET ZTRTN=$SELECT($DATA(PXRRDEMG):"DEMOGR^PXRRPCE",1:"ST^PXRRPCE")
SET ZTDESC="PCE CLINICAL DATA REPORTS"
SET ZTSAVE("PXR*")=""
SET ZTSAVE("SD*")=""
SET ZTSAVE("V*")=""
DO LOAD
GOTO QT
STOPCL USE IO
IF $DATA(PXRRSC)
DO STPVAUTC
+1 IF $DATA(PXRRDEMG)
GOTO DEMOGR
+2 ;_._._._._._._._._Clinic Workload Variables_._._._._._._._._._.
ST IF $DATA(PXRRSC)&('$DATA(PXRRCLIN))
DO STPVAUTC
+1 SET SDCL=""
SET (SDALL,SDADD,SDPRE)=0
SET SDF="D"
SET SDRT="E"
SET SDS="C"
SET SDNAM=1
6 SET (SDOB,SDPG,SDHR,SD1)=0
FOR I=0:0
SET I=$SELECT(VAUTC:$ORDER(^SC(I)),1:$ORDER(VAUTC(I)))
IF 'I
QUIT
DO SET^SDCWL3
+1 IF '$DATA(^TMP($JOB,"CL"))
IF '$DATA(^("SC"))
GOTO NONE
REPORT IF '$DATA(^TMP($JOB))
GOTO QT
VIS ;_._._._._._._._._._._._.Clinic Workload_._._._._._._._._._._._._
+1 IF '$DATA(PXRRCASE)&('$DATA(PXRRDEMG))
DO ^PXRRPCE1
DO ^PXRRPCR1
GOTO QT
ACTIVTY ;_._._._._._._._._._._._Caseload Activity_._._._._._._._._._._._.
+1 IF $DATA(PXRRCASE)
DO ^PXRRPCE2
DO ^PXRRPCR2
GOTO QT
DEMOGR ;_._._._._._._._._._._._Caseload Demographics_._._._._._._._._._.
+1 IF $DATA(PXRRDEMG)
Begin DoDot:1
+2 SET PXRC=0
FOR
SET PXRC=$ORDER(PXRRCLIN(PXRC))
IF 'PXRC
QUIT
SET PXRRCLIN=$PIECE(PXRRCLIN(PXRC),U,2)
DO ^PXRRPCE3
DO CLEAN^PXRRPCEQ
+3 IF $DATA(^TMP($JOB,"CLINIC TOTALS"))
DO MEAN^PXRRPCE5
+4 SET PXR=0
FOR
SET PXR=$ORDER(PXRRCLIN(PXR))
IF 'PXR
QUIT
SET PXRRCLIN=$PIECE(PXRRCLIN(PXR),U,2)
DO ^PXRRPCR3
End DoDot:1
GOTO QT
QT DO ^%ZISC
DO ^PXRRPCEQ
QUIT
CQT KILL PXRRCLIN,PXRRBDT,PXRREDT,PXRSTPNM
NONE DO HDR^PXRRPCR
WRITE !?5,"o There were no appts for this clinic in this date range",!?5,"o Note: This report is run from patient appts., not clinic enrollment."
GOTO QT
LOAD DO ^%ZTLOAD
+1 IF $DATA(ZTSK)=0
WRITE !,"Request Cancelled"
+2 IF '$TEST
WRITE !,"Request queued, task number "_ZTSK
+3 IF '$DATA(ZTSK)
SET X="^"
IF $DATA(ZTSK)
IF '$DATA(ZTQUEUED)
NEW POP
DO ^%ZISC
GOTO QT
+4 QUIT
STPVAUTC ;_._.Set up VAUTC array for Stop Code_._._.
+1 SET (VAUTC,X)=0
FOR
SET X=$ORDER(^SC("AC","C",X))
IF 'X
QUIT
IF $PIECE($GET(^SC(X,0)),U,7)=PXRRSC
Begin DoDot:1
+2 IF '$DATA(^SC(X,"I"))
SET VAUTC(X)=X
SET PXRRCLIN(PXRI)=$PIECE(^SC(X,0),U)_U_X
SET PXRI=PXRI+1
QUIT
+3 SET Y=$GET(^SC(X,"I"))
IF $PIECE($GET(Y),U,2)>$PIECE($GET(Y),U)
SET VAUTC(X)=X
SET PXRRCLIN(PXRI)=$PIECE(^SC(X,0),U)_U_X
SET PXRI=PXRI+1
End DoDot:1
+4 QUIT
