SROAWL ;BIR/ADM - REPORT OF MONTHLY CASE WORKLOAD TOTALS ;02/12/07
;;3.0; Surgery ;**38,47,50,86,141,153,160**;24 Jun 93;Build 7
N SRINSTP,SRSEL S (SRSOUT,SRT)=0,SRP=1,SRINST=SRSITE("SITE"),SRINSTP=SRSITE("DIV")
START G:SRSOUT END W @IOF,!,"Report of Monthly Case Workload Totals",!!
K DIR S DIR("A",1)="Print which report?",DIR("A",2)="",DIR("A",3)="1. Report for Single Month"
S DIR("A",4)="2. Report for Range of Months",DIR("A",5)="",DIR("A")="Select Number (1 or 2): ",DIR("B")="1"
S DIR(0)="NA^1:2:0" D ^DIR K DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
S SRSEL=Y I SRSEL=2 D TWO Q
W @IOF,"This option provides a report of the monthly risk assessment surgical case",!,"workload totals which include the following categories:",!
W ?5,"1. All cases performed",!,?5,"2. Eligible cases",!,?5,"3. Eligible cases meeting exclusion criteria"
W !,?5,"4. Assessed cases",!,?5,"5. Not logged eligible cases"
W !,?5,"6. Cardiac cases",!,?5,"7. Non-cardiac cases",!,?5,"8. Assessed cases per day (based on 20 days/month)"
W !!,"The second part of this report provides the total number of incomplete",!,"assessments remaining for the month selected and the prior 12 months."
DATE D GETDT W ! K DIR S DIR("A")="Compile workload totals for which month and year? ",DIR(0)="DA^::MX",DIR("B")=SRM_" "_SRY,DIR("?",1)="Enter the month and year for which to run this report,"
S DIR("?")="for example, 'MAY 94', 'MAY 1994', '5/94' or '5 94'." D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END
S SRDT=Y D G:SRSOUT END G:'$D(SRDT) DATE S SRDT=$E(SRDT,1,5)_"00"
.Q:SRDT=SRD S SRY=$E(Y,1,3)+1700,Z=+$E(Y,4,5) D MONTH
.W !! K DIR S DIR("A")="Compile totals for "_SRM_" "_SRY,DIR(0)="Y",DIR("B")="YES" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q
.I 'Y K SRDT
DIV S (SRCNT,X)=0 F S X=$O(^SRO(133,X)) Q:'X I '$P(^SRO(133,X,0),"^",21) S SRCNT=SRCNT+1
I SRCNT=1,SRSEL=1 G TRAN
S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,"^"),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,"^",2))
I SRINST'["ALL DIVISIONS"!(SRSEL=2) G IO
TRAN W ! K DIR S DIR("A",1)="This report may be printed and/or transmitted to the national database.",DIR("A",2)=""
S DIR("A")="Do you want this report to be transmitted to the central database",DIR("B")="NO",DIR("?",1)="Enter YES to have this report automatically transmitted to the central"
S DIR("?")="database. Enter NO if you do NOT want this report transmitted.",DIR(0)="Y" D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
I 'Y G IO
PRT S SRT=1,SRP=0 W ! K DIR S DIR("A")="Do you also want to print this report",DIR("B")="YES",DIR("?",1)="Enter NO if you want to have this report transmitted, but do not want to"
S DIR("?",2)="have it printed. Enter YES if you do want to print the report as well as",DIR("?")="have it transmitted.",DIR(0)="Y" D ^DIR S:Y SRP=1 I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
I 'SRP G QUE
IO W ! K %ZIS,IO("Q"),POP S %ZIS("A")="Print report on which Device: ",%ZIS="Q" D ^%ZIS I POP S SRSOUT=1 G END
I $D(IO("Q")) K IO("Q") S ZTDESC="Report of Surgical Case Workload" D S ZTRTN="RUN^SROAWL" D ^%ZTLOAD S SRSOUT=1 G END
.S (ZTSAVE("SRDT"),ZTSAVE("SRP"),ZTSAVE("SRT"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSEL"))=""
.I SRSEL=2 S ZTSAVE("SREDT")=""
RUN ; entry point when queued
D ^SROAWL1
END I 'SRSOUT,$E(IOST)="C" W ! K DIR S DIR(0)="FOA",DIR("A")="Press RETURN to continue" D ^DIR
W:$E(IOST)="P" @IOF K ^TMP("SRM",$J) I $D(ZTQUEUED) Q:$G(ZTSTOP) S ZTREQ="@" Q
D ^%ZISC K SRTN W @IOF D ^SRSKILL
Q
TWO S X=$E(DT,1,3)-1,SRD=X_"1000",SRY=X+1700,SRM="OCT "_SRY
W ! K DIR S DIR("A")="Start with which month and year? "
S DIR(0)="DA^::EMX",DIR("B")=SRM,DIR("?",1)="Enter the starting month and year for this report, for example,"
S DIR("?")="'OCT 2005', 'OCT 05', '10/05' or '10 05'." D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END
S SRDT=Y D GETDT
DT2 W ! K DIR S DIR("A")="End with which month and year? ",DIR(0)="DA^::EMX",DIR("B")=SRM_" "_SRY
S DIR("?",1)="Enter the ending month and year for this report, for example,"
S DIR("?")="'OCT 2005', 'OCT 05', '10/05' or '10 05'." D ^DIR I $D(DTOUT)!$D(DUOUT)!'Y S SRSOUT=1 G END
S SREDT=Y G:'$G(SREDT) DT2 S SREDT=$E(SREDT,1,5)_"00"
I SREDT<SRDT W !!,"Ending date must not be earlier than starting date!" K SREDT G TWO
G DIV
Q
GETDT S X=+$E(DT,4,5) S:X'=1 Z=X-1 S:X=1 Z=12 D MONTH S X=$E(DT,1,3) S:Z=12 X=X-1 S Z=$S($L(Z)=1:"0"_Z,1:Z) S SRY=X+1700,SRD=X_Z_"00"
Q
MONTH ; get name of month
S SRM=$S(Z=2:"FEB",Z=3:"MAR",Z=4:"APR",Z=5:"MAY",Z=6:"JUN",Z=7:"JUL",Z=8:"AUG",Z=9:"SEP",Z=10:"OCT",Z=11:"NOV",Z=12:"DEC",1:"JAN")
Q
QUE ; queue transmission of report to national database
W ! K %DT S %DT("A")="Queue report to run at what date/time? ",%DT(0)="NOW",%DT("B")="NOW",%DT="AEFXT" D ^%DT I 'Y S SRSOUT=1 G END
S ZTDTH=Y,ZTIO="",ZTDESC="Report of Surgical Case Workload",(ZTSAVE("SRDT"),ZTSAVE("SRP"),ZTSAVE("SRT"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSTATN"),ZTSAVE("SRSEL"))="",ZTRTN="RUN^SROAWL" D ^%ZTLOAD G END
Q
TASK ; automatic transmission of workload report called by nightly process
D NOW^%DTC Q:+%I(2)<26 S SRDAY=+%I(2),SRNOW=$E(%,1,12) D GETDT S SRDT=SRD
S SRS=$O(^SRO(133,0)) Q:'SRS S SRL=$P(^SRO(133,SRS,0),"^",13) I SRL=SRD G STOP
S SRP=0,SRT=1,X=$$SITE^SROVAR,SRINST=$P(X,"^",2),SRINSTP="ALL DIVISIONS",SRSEL=1
D ^SROAWL1 S SRS=$O(^SRO(133,0)),$P(^SRO(133,SRS,0),"^",13)=SRDT
STOP D ^SRSKILL K SRTN
Q
SROAWL ;BIR/ADM - REPORT OF MONTHLY CASE WORKLOAD TOTALS ;02/12/07
+1 ;;3.0; Surgery ;**38,47,50,86,141,153,160**;24 Jun 93;Build 7
+2 NEW SRINSTP,SRSEL
SET (SRSOUT,SRT)=0
SET SRP=1
SET SRINST=SRSITE("SITE")
SET SRINSTP=SRSITE("DIV")
START IF SRSOUT
GOTO END
WRITE @IOF,!,"Report of Monthly Case Workload Totals",!!
+1 KILL DIR
SET DIR("A",1)="Print which report?"
SET DIR("A",2)=""
SET DIR("A",3)="1. Report for Single Month"
+2 SET DIR("A",4)="2. Report for Range of Months"
SET DIR("A",5)=""
SET DIR("A")="Select Number (1 or 2): "
SET DIR("B")="1"
+3 SET DIR(0)="NA^1:2:0"
DO ^DIR
KILL DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
GOTO END
+4 SET SRSEL=Y
IF SRSEL=2
DO TWO
QUIT
+5 WRITE @IOF,"This option provides a report of the monthly risk assessment surgical case",!,"workload totals which include the following categories:",!
+6 WRITE ?5,"1. All cases performed",!,?5,"2. Eligible cases",!,?5,"3. Eligible cases meeting exclusion criteria"
+7 WRITE !,?5,"4. Assessed cases",!,?5,"5. Not logged eligible cases"
+8 WRITE !,?5,"6. Cardiac cases",!,?5,"7. Non-cardiac cases",!,?5,"8. Assessed cases per day (based on 20 days/month)"
+9 WRITE !!,"The second part of this report provides the total number of incomplete",!,"assessments remaining for the month selected and the prior 12 months."
DATE DO GETDT
WRITE !
KILL DIR
SET DIR("A")="Compile workload totals for which month and year? "
SET DIR(0)="DA^::MX"
SET DIR("B")=SRM_" "_SRY
SET DIR("?",1)="Enter the month and year for which to run this report,"
+1 SET DIR("?")="for example, 'MAY 94', 'MAY 1994', '5/94' or '5 94'."
DO ^DIR
IF $DATA(DTOUT)!$DATA(DUOUT)!'Y
SET SRSOUT=1
GOTO END
+2 SET SRDT=Y
Begin DoDot:1
+3 IF SRDT=SRD
QUIT
SET SRY=$EXTRACT(Y,1,3)+1700
SET Z=+$EXTRACT(Y,4,5)
DO MONTH
+4 WRITE !!
KILL DIR
SET DIR("A")="Compile totals for "_SRM_" "_SRY
SET DIR(0)="Y"
SET DIR("B")="YES"
DO ^DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
QUIT
+5 IF 'Y
KILL SRDT
End DoDot:1
IF SRSOUT
GOTO END
IF '$DATA(SRDT)
GOTO DATE
SET SRDT=$EXTRACT(SRDT,1,5)_"00"
DIV SET (SRCNT,X)=0
FOR
SET X=$ORDER(^SRO(133,X))
IF 'X
QUIT
IF '$PIECE(^SRO(133,X,0),"^",21)
SET SRCNT=SRCNT+1
+1 IF SRCNT=1
IF SRSEL=1
GOTO TRAN
+2 SET SRINST=$$INST^SROUTL0()
IF SRINST="^"
GOTO END
SET SRINSTP=$PIECE(SRINST,"^")
SET SRINST=$SELECT(SRINST["ALL DIVISIONS":SRINST,1:$PIECE(SRINST,"^",2))
+3 IF SRINST'["ALL DIVISIONS"!(SRSEL=2)
GOTO IO
TRAN WRITE !
KILL DIR
SET DIR("A",1)="This report may be printed and/or transmitted to the national database."
SET DIR("A",2)=""
+1 SET DIR("A")="Do you want this report to be transmitted to the central database"
SET DIR("B")="NO"
SET DIR("?",1)="Enter YES to have this report automatically transmitted to the central"
+2 SET DIR("?")="database. Enter NO if you do NOT want this report transmitted."
SET DIR(0)="Y"
DO ^DIR
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
GOTO END
+3 IF 'Y
GOTO IO
PRT SET SRT=1
SET SRP=0
WRITE !
KILL DIR
SET DIR("A")="Do you also want to print this report"
SET DIR("B")="YES"
SET DIR("?",1)="Enter NO if you want to have this report transmitted, but do not want to"
+1 SET DIR("?",2)="have it printed. Enter YES if you do want to print the report as well as"
SET DIR("?")="have it transmitted."
SET DIR(0)="Y"
DO ^DIR
IF Y
SET SRP=1
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
GOTO END
+2 IF 'SRP
GOTO QUE
IO WRITE !
KILL %ZIS,IO("Q"),POP
SET %ZIS("A")="Print report on which Device: "
SET %ZIS="Q"
DO ^%ZIS
IF POP
SET SRSOUT=1
GOTO END
+1 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTDESC="Report of Surgical Case Workload"
Begin DoDot:1
+2 SET (ZTSAVE("SRDT"),ZTSAVE("SRP"),ZTSAVE("SRT"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSEL"))=""
+3 IF SRSEL=2
SET ZTSAVE("SREDT")=""
End DoDot:1
SET ZTRTN="RUN^SROAWL"
DO ^%ZTLOAD
SET SRSOUT=1
GOTO END
RUN ; entry point when queued
+1 DO ^SROAWL1
END IF 'SRSOUT
IF $EXTRACT(IOST)="C"
WRITE !
KILL DIR
SET DIR(0)="FOA"
SET DIR("A")="Press RETURN to continue"
DO ^DIR
+1 IF $EXTRACT(IOST)="P"
WRITE @IOF
KILL ^TMP("SRM",$JOB)
IF $DATA(ZTQUEUED)
IF $GET(ZTSTOP)
QUIT
SET ZTREQ="@"
QUIT
+2 DO ^%ZISC
KILL SRTN
WRITE @IOF
DO ^SRSKILL
+3 QUIT
TWO SET X=$EXTRACT(DT,1,3)-1
SET SRD=X_"1000"
SET SRY=X+1700
SET SRM="OCT "_SRY
+1 WRITE !
KILL DIR
SET DIR("A")="Start with which month and year? "
+2 SET DIR(0)="DA^::EMX"
SET DIR("B")=SRM
SET DIR("?",1)="Enter the starting month and year for this report, for example,"
+3 SET DIR("?")="'OCT 2005', 'OCT 05', '10/05' or '10 05'."
DO ^DIR
IF $DATA(DTOUT)!$DATA(DUOUT)!'Y
SET SRSOUT=1
GOTO END
+4 SET SRDT=Y
DO GETDT
DT2 WRITE !
KILL DIR
SET DIR("A")="End with which month and year? "
SET DIR(0)="DA^::EMX"
SET DIR("B")=SRM_" "_SRY
+1 SET DIR("?",1)="Enter the ending month and year for this report, for example,"
+2 SET DIR("?")="'OCT 2005', 'OCT 05', '10/05' or '10 05'."
DO ^DIR
IF $DATA(DTOUT)!$DATA(DUOUT)!'Y
SET SRSOUT=1
GOTO END
+3 SET SREDT=Y
IF '$GET(SREDT)
GOTO DT2
SET SREDT=$EXTRACT(SREDT,1,5)_"00"
+4 IF SREDT<SRDT
WRITE !!,"Ending date must not be earlier than starting date!"
KILL SREDT
GOTO TWO
+5 GOTO DIV
+6 QUIT
GETDT SET X=+$EXTRACT(DT,4,5)
IF X'=1
SET Z=X-1
IF X=1
SET Z=12
DO MONTH
SET X=$EXTRACT(DT,1,3)
IF Z=12
SET X=X-1
SET Z=$SELECT($LENGTH(Z)=1:"0"_Z,1:Z)
SET SRY=X+1700
SET SRD=X_Z_"00"
+1 QUIT
MONTH ; get name of month
+1 SET SRM=$SELECT(Z=2:"FEB",Z=3:"MAR",Z=4:"APR",Z=5:"MAY",Z=6:"JUN",Z=7:"JUL",Z=8:"AUG",Z=9:"SEP",Z=10:"OCT",Z=11:"NOV",Z=12:"DEC",1:"JAN")
+2 QUIT
QUE ; queue transmission of report to national database
+1 WRITE !
KILL %DT
SET %DT("A")="Queue report to run at what date/time? "
SET %DT(0)="NOW"
SET %DT("B")="NOW"
SET %DT="AEFXT"
DO ^%DT
IF 'Y
SET SRSOUT=1
GOTO END
+2 SET ZTDTH=Y
SET ZTIO=""
SET ZTDESC="Report of Surgical Case Workload"
SET (ZTSAVE("SRDT"),ZTSAVE("SRP"),ZTSAVE("SRT"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSTATN"),ZTSAVE("SRSEL"))=""
SET ZTRTN="RUN^SROAWL"
DO ^%ZTLOAD
GOTO END
+3 QUIT
TASK ; automatic transmission of workload report called by nightly process
+1 DO NOW^%DTC
IF +%I(2)<26
QUIT
SET SRDAY=+%I(2)
SET SRNOW=$EXTRACT(%,1,12)
DO GETDT
SET SRDT=SRD
+2 SET SRS=$ORDER(^SRO(133,0))
IF 'SRS
QUIT
SET SRL=$PIECE(^SRO(133,SRS,0),"^",13)
IF SRL=SRD
GOTO STOP
+3 SET SRP=0
SET SRT=1
SET X=$$SITE^SROVAR
SET SRINST=$PIECE(X,"^",2)
SET SRINSTP="ALL DIVISIONS"
SET SRSEL=1
+4 DO ^SROAWL1
SET SRS=$ORDER(^SRO(133,0))
SET $PIECE(^SRO(133,SRS,0),"^",13)=SRDT
STOP DO ^SRSKILL
KILL SRTN
+1 QUIT
