SROPREQ ;BIR/MAM - OPERATION REQUESTS FOR A DAY ; [ 12/09/99 11:54 AM ]
;;3.0; Surgery ;**77,92**;24 Jun 93
W @IOF,! S SRSOUT=0 K %DT S %DT("A")="Print Requests for which date ? ",%DT="AEFX" D ^%DT I Y<0 S SRSOUT=1 G END
S SRSDATE=Y
ASK R !!,"Would you like the long or short form ? SHORT// ",TYPE:DTIME S:'$T TYPE="^" I TYPE["^" S SRSOUT=1 G END
S:TYPE="" TYPE="S" S TYPE=$E(TYPE) I "SsLl"'[TYPE W !!,"Enter RETURN to view requests in a short form, or 'LONG' to see more detailed",!,"information on each request.",! G ASK
I "Ll"[TYPE G ^SROREQ
SPEC W @IOF,!,"Do you want the requests for all surgical specialties ? 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 'YES' to print the requests for all surgical specialties, or 'NO'",!,"to select a specific specialty.",!!,"Press RETURN to continue " R X:DTIME G SPEC
I "Nn"[SRYN G ^SROREQ3
W ! K IOP,%ZIS,POP,IO("Q") S %ZIS("A")="Print the Report on which Device: ",%ZIS="Q" D ^%ZIS G:POP END
I $D(IO("Q")) K IO("Q") S ZTDESC="REQUEST FOR A DAY - SHORT FORM",ZTRTN="BEG^SROREQ4",ZTSAVE("SRSDATE")=SRSDATE,ZTSAVE("SRSITE*")="" D ^%ZTLOAD G END
G BEG^SROREQ4
END K SRPRINT I $E(IOST)="P" S SRSOUT=1,SRPRINT=1
I 'SRSOUT W !!,"Press RETURN to continue " R X:DTIME
W @IOF D ^%ZISC K SRTN I $D(SRPRINT) W @IOF
D ^SRSKILL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROPREQ 1376 printed Oct 16, 2024@18:45:50 Page 2
SROPREQ ;BIR/MAM - OPERATION REQUESTS FOR A DAY ; [ 12/09/99 11:54 AM ]
+1 ;;3.0; Surgery ;**77,92**;24 Jun 93
+2 WRITE @IOF,!
SET SRSOUT=0
KILL %DT
SET %DT("A")="Print Requests for which date ? "
SET %DT="AEFX"
DO ^%DT
IF Y<0
SET SRSOUT=1
GOTO END
+3 SET SRSDATE=Y
ASK READ !!,"Would you like the long or short form ? SHORT// ",TYPE:DTIME
if '$TEST
SET TYPE="^"
IF TYPE["^"
SET SRSOUT=1
GOTO END
+1 if TYPE=""
SET TYPE="S"
SET TYPE=$EXTRACT(TYPE)
IF "SsLl"'[TYPE
WRITE !!,"Enter RETURN to view requests in a short form, or 'LONG' to see more detailed",!,"information on each request.",!
GOTO ASK
+2 IF "Ll"[TYPE
GOTO ^SROREQ
SPEC WRITE @IOF,!,"Do you want the requests 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 'YES' to print the requests for all surgical specialties, or 'NO'",!,"to select a specific specialty.",!!,"Press RETURN to continue "
READ X:DTIME
GOTO SPEC
+3 IF "Nn"[SRYN
GOTO ^SROREQ3
+4 WRITE !
KILL IOP,%ZIS,POP,IO("Q")
SET %ZIS("A")="Print the Report on which Device: "
SET %ZIS="Q"
DO ^%ZIS
if POP
GOTO END
+5 IF $DATA(IO("Q"))
KILL IO("Q")
SET ZTDESC="REQUEST FOR A DAY - SHORT FORM"
SET ZTRTN="BEG^SROREQ4"
SET ZTSAVE("SRSDATE")=SRSDATE
SET ZTSAVE("SRSITE*")=""
DO ^%ZTLOAD
GOTO END
+6 GOTO BEG^SROREQ4
END KILL SRPRINT
IF $EXTRACT(IOST)="P"
SET SRSOUT=1
SET SRPRINT=1
+1 IF 'SRSOUT
WRITE !!,"Press RETURN to continue "
READ X:DTIME
+2 WRITE @IOF
DO ^%ZISC
KILL SRTN
IF $DATA(SRPRINT)
WRITE @IOF
+3 DO ^SRSKILL
+4 QUIT
