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."
Q
END D ^SRSKILL K SRTN W @IOF
Q
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 "="
Q
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)
Q
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROWRQ 1632 printed Apr 09, 2024@21:48:57 Page 2
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
