SROPREQ.m

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 ---SROPREQ   1376     printed  Apr 09, 2024@21:41:56                                                                                                                                                                                                     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