- 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 Feb 19, 2025@00:13:12 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