SROATT ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT ; [ 09/22/98 11:30 AM ]
;;3.0; Surgery ;**77,50**;24 Jun 93
S (SRB,SRSOUT)=0 W @IOF,!,"Attending Surgeon Report",!
DATE D DATE^SROUTL(.SRSD,.SRED,.SRSOUT) G:SRSOUT END
ATT W @IOF,!,"Do you want to print the report for all Attending Surgeons ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
S SRYN=$E(SRYN) I SRYN="" S SRYN="Y"
I "YyNn"'[SRYN W !!,"Enter RETURN to print the report for all attending surgeons, or 'NO' to select",!,"a specific person.",!!,"Press RETURN to continue " R X:DTIME G ATT
I "Nn"[SRYN G ^SROATT0
REPORT S SRBOTH=0 W @IOF,!,"Attending Surgeon Reports",!!,"1. Attending Surgeon Report",!,"2. Attending Surgeon Cumulative Report",!,"3. Attending Surgeon Report and Attending Surgeon Cumulative Report"
W !!!,"Select the number corresponding with the desired report(s): " R X:DTIME I '$T!("^"[X) S SRSOUT=1 G END
I X<1!(X>3)!(X'=(X\1)) D HELP W !!,"Press RETURN to continue " R X:DTIME G REPORT
S SRBOTH=X
BREAK I SRBOTH'=2 W ! K DIR S DIR("A")="Start report for each attending surgeon on a new page ? ",DIR("B")="NO",DIR(0)="YA" D ^DIR K DIR S:Y SRB=1 I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 G END
SPEC W @IOF,!,"Do you want the report for all Surgical Specialties ? YES// " R SRYN:DTIME I '$T!(SRYN["^") S SRSOUT=1 G END
S SRSS="",SRYN=$E(SRYN) I SRYN="" S SRYN="Y"
I "YyNn"'[SRYN W !!,"Enter 'YES' to print this report for all Surgical Specialties, or 'NO' to ",!,"select a specific specialty.",!!,"Press RETURN to continue " R X:DTIME G SPEC
I "Nn"[SRYN D SP I SRSOUT G END
I SRBOTH'=2 W !!,"The Attending Surgeon Report was designed to use a 132 column format."
I SRBOTH=2 W !!,"The Attending Surgeon Cumulative Report was designed to use an 80 column format."
W ! K IOP,POP,IO("Q"),%ZIS S %ZIS="QM",%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 ZTDESC="Attending Surgeon Report",ZTRTN="EN^SROATT",(ZTSAVE("SRB"),ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SRSS"),ZTSAVE("SRSITE*"),ZTSAVE("SRBOTH"))="" D ^%ZTLOAD G END
EN ; entry when queued
U IO S SRSOUT=0,SRINST=SRSITE("SITE"),SRINSTP=SRSITE("DIV"),Y=DT X ^DD("DD") S SRPRINT="DATE PRINTED: "_Y S Y=SRSD X ^DD("DD") S SRFRTO="FROM: "_Y_" TO: ",Y=SRED X ^DD("DD") S SRFRTO=SRFRTO_Y
I SRSS D ^SROATT1 G END
D ^SROATT2
END I $E(IOST)'="P",'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
W:$E(IOST)="P" @IOF K ^TMP("SRTOT",$J),^TMP("SRTC",$J) I $D(ZTQUEUED) K ^TMP("SR",$J) Q:$G(ZTSTOP) S ZTREQ="@" Q
D ^%ZISC K SRTN W @IOF D ^SRSKILL
Q
SP ; select specialty
W ! K DIC S DIC("S")="I '$P(^(0),""^"",3)",DIC=137.45,DIC(0)="QEAMZ",DIC("A")="Print the Report for which Surgical Specialty ? " D ^DIC I Y<0 S SRSOUT=1
S SRSS=+Y
Q
HELP ; print help message
I X<1!(X>3)!(X'=(X\1)) W !!,"Enter '1' if you want to print the Attending Surgeon Report only. If you only want to print the Attending Surgeon Cumulative Report, enter '2'. Enter '3' to",!,"print both reports."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROATT 3026 printed Dec 13, 2024@02:42:15 Page 2
SROATT ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT ; [ 09/22/98 11:30 AM ]
+1 ;;3.0; Surgery ;**77,50**;24 Jun 93
+2 SET (SRB,SRSOUT)=0
WRITE @IOF,!,"Attending Surgeon Report",!
DATE DO DATE^SROUTL(.SRSD,.SRED,.SRSOUT)
if SRSOUT
GOTO END
ATT WRITE @IOF,!,"Do you want to print the report for all Attending Surgeons ? 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 the report for all attending surgeons, or 'NO' to select",!,"a specific person.",!!,"Press RETURN to continue "
READ X:DTIME
GOTO ATT
+3 IF "Nn"[SRYN
GOTO ^SROATT0
REPORT SET SRBOTH=0
WRITE @IOF,!,"Attending Surgeon Reports",!!,"1. Attending Surgeon Report",!,"2. Attending Surgeon Cumulative Report",!,"3. Attending Surgeon Report and Attending Surgeon Cumulative Report"
+1 WRITE !!!,"Select the number corresponding with the desired report(s): "
READ X:DTIME
IF '$TEST!("^"[X)
SET SRSOUT=1
GOTO END
+2 IF X<1!(X>3)!(X'=(X\1))
DO HELP
WRITE !!,"Press RETURN to continue "
READ X:DTIME
GOTO REPORT
+3 SET SRBOTH=X
BREAK IF SRBOTH'=2
WRITE !
KILL DIR
SET DIR("A")="Start report for each attending surgeon on a new page ? "
SET DIR("B")="NO"
SET DIR(0)="YA"
DO ^DIR
KILL DIR
if Y
SET SRB=1
IF $DATA(DTOUT)!$DATA(DUOUT)
SET SRSOUT=1
GOTO END
SPEC WRITE @IOF,!,"Do you want the report for all Surgical Specialties ? YES// "
READ SRYN:DTIME
IF '$TEST!(SRYN["^")
SET SRSOUT=1
GOTO END
+1 SET SRSS=""
SET SRYN=$EXTRACT(SRYN)
IF SRYN=""
SET SRYN="Y"
+2 IF "YyNn"'[SRYN
WRITE !!,"Enter 'YES' to print this report for all Surgical Specialties, or 'NO' to ",!,"select a specific specialty.",!!,"Press RETURN to continue "
READ X:DTIME
GOTO SPEC
+3 IF "Nn"[SRYN
DO SP
IF SRSOUT
GOTO END
+4 IF SRBOTH'=2
WRITE !!,"The Attending Surgeon Report was designed to use a 132 column format."
+5 IF SRBOTH=2
WRITE !!,"The Attending Surgeon Cumulative Report was designed to use an 80 column format."
+6 WRITE !
KILL IOP,POP,IO("Q"),%ZIS
SET %ZIS="QM"
SET %ZIS("A")="Print the report on which Device ? "
DO ^%ZIS
IF POP
SET SRSOUT=1
GOTO END
+7 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTDESC="Attending Surgeon Report"
SET ZTRTN="EN^SROATT"
SET (ZTSAVE("SRB"),ZTSAVE("SRSD"),ZTSAVE("SRED"),ZTSAVE("SRSS"),ZTSAVE("SRSITE*"),ZTSAVE("SRBOTH"))=""
DO ^%ZTLOAD
GOTO END
EN ; entry when queued
+1 USE IO
SET SRSOUT=0
SET SRINST=SRSITE("SITE")
SET SRINSTP=SRSITE("DIV")
SET Y=DT
XECUTE ^DD("DD")
SET SRPRINT="DATE PRINTED: "_Y
SET Y=SRSD
XECUTE ^DD("DD")
SET SRFRTO="FROM: "_Y_" TO: "
SET Y=SRED
XECUTE ^DD("DD")
SET SRFRTO=SRFRTO_Y
+2 IF SRSS
DO ^SROATT1
GOTO END
+3 DO ^SROATT2
END IF $EXTRACT(IOST)'="P"
IF 'SRSOUT
WRITE !!,"Press RETURN to continue "
READ X:DTIME
+1 if $EXTRACT(IOST)="P"
WRITE @IOF
KILL ^TMP("SRTOT",$JOB),^TMP("SRTC",$JOB)
IF $DATA(ZTQUEUED)
KILL ^TMP("SR",$JOB)
if $GET(ZTSTOP)
QUIT
SET ZTREQ="@"
QUIT
+2 DO ^%ZISC
KILL SRTN
WRITE @IOF
DO ^SRSKILL
+3 QUIT
SP ; select specialty
+1 WRITE !
KILL DIC
SET DIC("S")="I '$P(^(0),""^"",3)"
SET DIC=137.45
SET DIC(0)="QEAMZ"
SET DIC("A")="Print the Report for which Surgical Specialty ? "
DO ^DIC
IF Y<0
SET SRSOUT=1
+2 SET SRSS=+Y
+3 QUIT
HELP ; print help message
+1 IF X<1!(X>3)!(X'=(X\1))
WRITE !!,"Enter '1' if you want to print the Attending Surgeon Report only. If you only want to print the Attending Surgeon Cumulative Report, enter '2'. Enter '3' to",!,"print both reports."
+2 QUIT
