SROREAS ;B'HAM ISC/MAM - DELAY REASONS ; [ 04/04/00 11:54 AM ]
;;3.0; Surgery ;**77,94**;24 Jun 93
S (SRSOUT,SROTOT)=0 K %DT W @IOF,!,"Report of Delay Reasons",!
DATE D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
N SRINSTP S SRINST=$$INST^SROUTL0() G:SRINST="^" END S SRINSTP=$P(SRINST,U),SRINST=$S(SRINST["ALL DIVISIONS":SRINST,1:$P(SRINST,U,2))
SPEC W !!!,"Do you want to print the Report of Delay Reasons for all Surgical",!,"Specialties ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
I "YyNn"'[SRYN W !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty." G SPEC
S SRSS="" I "Nn"[SRYN D SP I SRSOUT G END
I 'SRSS D ALL I SRSOUT G END
W ! K %ZIS,IOP,IO("Q"),POP S %ZIS="Q",%ZIS("A")="Print the Report on which Device ? " D ^%ZIS I POP S SRSOUT=1 G END
I $D(IO("Q")) K IO("Q") S ZTRTN="EN^SROREAS",ZTDESC="Report of Delay Reasons",(ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSS"),ZTSAVE("SROTOT"))="" D ^%ZTLOAD G END
EN ; entry when queued
U IO S SRSOUT=1 K ^TMP("SR",$J) S ^TMP("SR",$J)=0
I SRSS D ^SROREA1 G END
D ^SROREA2
END I $E(IOST)'="P",'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
I $E(IOST)="P" W @IOF
K ^TMP("SRT",$J) I $D(ZTQUEUED) K ^TMP("SR",$J) Q:$G(ZTSTOP) S ZTREQ="@" Q
D ^%ZISC W @IOF D ^SRSKILL K SRTN
Q
SP W !! K DIC S DIC=137.45,DIC(0)="QEAMZ",DIC("A")="Print the Report of Delayed Operations for which Specialty ? " D ^DIC I Y<0 S SRSOUT=1 Q
S SRSS=+Y
Q
ALL ; display for each specialty ?
W !!,"Do you want to display the totals for each Surgical Specialty ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 Q
S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
I "YyNn"'[SRYN W !!,"Enter RETURN to display the totals for delay reasons for each specialty. If",!,"you want to display the totals for all delay reasons for the entire medical",!,"center, enter 'NO'." G ALL
I "Nn"[SRYN S SROTOT=1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROREAS 2004 printed Oct 16, 2024@18:46:22 Page 2
SROREAS ;B'HAM ISC/MAM - DELAY REASONS ; [ 04/04/00 11:54 AM ]
+1 ;;3.0; Surgery ;**77,94**;24 Jun 93
+2 SET (SRSOUT,SROTOT)=0
KILL %DT
WRITE @IOF,!,"Report of Delay Reasons",!
DATE DO DATE^SROUTL(.SRSD,.SRED,.SRSOUT)
if SRSOUT
GOTO END
+1 NEW SRINSTP
SET SRINST=$$INST^SROUTL0()
if SRINST="^"
GOTO END
SET SRINSTP=$PIECE(SRINST,U)
SET SRINST=$SELECT(SRINST["ALL DIVISIONS":SRINST,1:$PIECE(SRINST,U,2))
SPEC WRITE !!!,"Do you want to print the Report of Delay Reasons for all Surgical",!,"Specialties ? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
SET SRSOUT=1
GOTO END
+1 SET SRYN=$EXTRACT(SRYN)
if SRYN=""
SET SRYN="Y"
+2 IF "YyNn"'[SRYN
WRITE !!,"Enter RETURN to print this report for all surgical specialties, or 'NO' to",!,"select a specific specialty."
GOTO SPEC
+3 SET SRSS=""
IF "Nn"[SRYN
DO SP
IF SRSOUT
GOTO END
+4 IF 'SRSS
DO ALL
IF SRSOUT
GOTO END
+5 WRITE !
KILL %ZIS,IOP,IO("Q"),POP
SET %ZIS="Q"
SET %ZIS("A")="Print the Report on which Device ? "
DO ^%ZIS
IF POP
SET SRSOUT=1
GOTO END
+6 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTRTN="EN^SROREAS"
SET ZTDESC="Report of Delay Reasons"
SET (ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SRINST"),ZTSAVE("SRINSTP"),ZTSAVE("SRSS"),ZTSAVE("SROTOT"))=""
DO ^%ZTLOAD
GOTO END
EN ; entry when queued
+1 USE IO
SET SRSOUT=1
KILL ^TMP("SR",$JOB)
SET ^TMP("SR",$JOB)=0
+2 IF SRSS
DO ^SROREA1
GOTO END
+3 DO ^SROREA2
END IF $EXTRACT(IOST)'="P"
IF 'SRSOUT
WRITE !!,"Press RETURN to continue "
READ X:DTIME
+1 IF $EXTRACT(IOST)="P"
WRITE @IOF
+2 KILL ^TMP("SRT",$JOB)
IF $DATA(ZTQUEUED)
KILL ^TMP("SR",$JOB)
if $GET(ZTSTOP)
QUIT
SET ZTREQ="@"
QUIT
+3 DO ^%ZISC
WRITE @IOF
DO ^SRSKILL
KILL SRTN
+4 QUIT
SP WRITE !!
KILL DIC
SET DIC=137.45
SET DIC(0)="QEAMZ"
SET DIC("A")="Print the Report of Delayed Operations for which Specialty ? "
DO ^DIC
IF Y<0
SET SRSOUT=1
QUIT
+1 SET SRSS=+Y
+2 QUIT
ALL ; display for each specialty ?
+1 WRITE !!,"Do you want to display the totals for each Surgical Specialty ? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
SET SRSOUT=1
QUIT
+2 SET SRYN=$EXTRACT(SRYN)
if SRYN=""
SET SRYN="Y"
+3 IF "YyNn"'[SRYN
WRITE !!,"Enter RETURN to display the totals for delay reasons for each specialty. If",!,"you want to display the totals for all delay reasons for the entire medical",!,"center, enter 'NO'."
GOTO ALL
+4 IF "Nn"[SRYN
SET SROTOT=1
