Routine: SROWRQ

SROWRQ ;B'HAM ISC/MAM - REQUESTS BY WARD ; 07/08/88  08:11

 ;;3.0; Surgery ;**37**;24 Jun 93

BEG R !!,"Do you wish to print the requests for all wards ?  NO// ",SRALL:DTIME G:'$T!(SRALL="^") END I SRALL["?" D HELP G BEG

 S SRALL=$E(SRALL) S:SRALL="" SRALL="N" I "YyNn"'[SRALL D HELP G BEG

 I "Yy"'[SRALL W ! S DIC=42,DIC(0)="QEAMZ",DIC("A")="Print Requests for which ward ?  " D ^DIC G:Y<1 END S SRWARD=$P(Y(0),"^")

 S:'$D(SRWARD) SRWARD=""

DEVICE W ! K %ZIS,IOP,POP,IO("Q") S %ZIS="Q",%ZIS("A")="Print Requests on which Device: " D ^%ZIS G:POP END

 I $D(IO("Q")) K IO("Q") S ZTDESC="REQUESTS BY WARD",ZTSAVE("SRWARD")=SRWARD,ZTRTN="SROWRQ1" D ^%ZTLOAD G END

 G ^SROWRQ1

HELP W !!,"Answer 'YES' if you want to print the requests for all wards, or RETURN",!,"if you want a specific ward."

END D ^SRSKILL K SRTN W @IOF

HDR I $D(ZTQUEUED) D ^SROSTOP I SRHALT S SRQ=1 Q

 W:$Y @IOF W !,?28,"Requests for Operations",! F LINE=1:1:80 W "="

 W !,?33,"Ward: "_SRWARD,! F I=1:1:80 W "="

CON ; print concurrent case

 K SROPS,MM,MMM S SROPER=$P(^SRF(SRSCC,"OP"),"^") S:$L(SROPER)<60 SROPS(1)=SROPER I $L(SROPER)>59 S SROPER=SROPER_"  " F M=1:1 D LOOP Q:MMM=""

 W !,"    Procedure: ",?15,SROPS(1) I $D(SROPS(2)) W !,?15,SROPS(2) I $D(SROPS(3)) W !,?15,SROPS(3) I $D(SROPS(4)) W !,?15,SROPS(4)

 W !!,"Comments:" S COMMENT=0 F  S COMMENT=$O(^SRF(SRSCC,5,COMMENT)) Q:'COMMENT  W !," "_^SRF(SRSCC,5,COMMENT,0)

LOOP ; break procedure if greater than 60 characters

 S SROPS(M)="" F LOOP=1:1 S MM=$P(SROPER," "),MMM=$P(SROPER," ",2,200) Q:MMM=""  Q:$L(SROPS(M))+$L(MM)'<60  S SROPS(M)=SROPS(M)_MM_" ",SROPER=MMM

SROWRQ    ;B'HAM ISC/MAM - REQUESTS BY WARD ; 07/08/88  08:11

 +1       ;;3.0; Surgery ;**37**;24 Jun 93

BEG        READ !!,"Do you wish to print the requests for all wards ?  NO// ",SRALL:DTIME

           IF '$TEST!(SRALL="^")

               GOTO END

           IF SRALL["?"

               DO HELP

               GOTO BEG

 +1        SET SRALL=$EXTRACT(SRALL)

           IF SRALL=""

               SET SRALL="N"

           IF "YyNn"'[SRALL

               DO HELP

               GOTO BEG

 +2        IF "Yy"'[SRALL

               WRITE !

               SET DIC=42

               SET DIC(0)="QEAMZ"

               SET DIC("A")="Print Requests for which ward ?  "

               DO ^DIC

               IF Y<1

                   GOTO END

               SET SRWARD=$PIECE(Y(0),"^")

 +3        IF '$DATA(SRWARD)

               SET SRWARD=""

DEVICE     WRITE !

           KILL %ZIS,IOP,POP,IO("Q")

           SET %ZIS="Q"

           SET %ZIS("A")="Print Requests on which Device: "

           DO ^%ZIS

           IF POP

               GOTO END

 +1        IF $DATA(IO("Q"))

               KILL IO("Q")

               SET ZTDESC="REQUESTS BY WARD"

               SET ZTSAVE("SRWARD")=SRWARD

               SET ZTRTN="SROWRQ1"

               DO ^%ZTLOAD

               GOTO END

 +2        GOTO ^SROWRQ1

HELP       WRITE !!,"Answer 'YES' if you want to print the requests for all wards, or RETURN",!,"if you want a specific ward."

 +1        QUIT

END        DO ^SRSKILL

           KILL SRTN

           WRITE @IOF

 +1        QUIT

HDR        IF $DATA(ZTQUEUED)

               DO ^SROSTOP

               IF SRHALT

                   SET SRQ=1

                   QUIT

 +1        IF $Y

               WRITE @IOF

           WRITE !,?28,"Requests for Operations",!

           FOR LINE=1:1:80

               WRITE "="

 +2        WRITE !,?33,"Ward: "_SRWARD,!

           FOR I=1:1:80

               WRITE "="

 +3        QUIT

CON       ; print concurrent case

 +1        KILL SROPS,MM,MMM

           SET SROPER=$PIECE(^SRF(SRSCC,"OP"),"^")

           IF $LENGTH(SROPER)<60

               SET SROPS(1)=SROPER

           IF $LENGTH(SROPER)>59

               SET SROPER=SROPER_"  "

               FOR M=1:1

                   DO LOOP

                   IF MMM=""

                       QUIT

 +2        WRITE !,"    Procedure: ",?15,SROPS(1)

           IF $DATA(SROPS(2))

               WRITE !,?15,SROPS(2)

               IF $DATA(SROPS(3))

                   WRITE !,?15,SROPS(3)

                   IF $DATA(SROPS(4))

                       WRITE !,?15,SROPS(4)

 +3        WRITE !!,"Comments:"

           SET COMMENT=0

FOR

               SET COMMENT=$ORDER(^SRF(SRSCC,5,COMMENT))

               IF 'COMMENT

                   QUIT

               WRITE !," "_^SRF(SRSCC,5,COMMENT,0)

 +4        QUIT

LOOP      ; break procedure if greater than 60 characters

 +1        SET SROPS(M)=""

           FOR LOOP=1:1

               SET MM=$PIECE(SROPER," ")

               SET MMM=$PIECE(SROPER," ",2,200)

               IF MMM=""

                   QUIT

               IF $LENGTH(SROPS(M))+$LENGTH(MM)'<60

                   QUIT

               SET SROPS(M)=SROPS(M)_MM_" "

               SET SROPER=MMM

 +2        QUIT

SROWRQ.m