- SRORESV ;B'HAM ISC/MAM - DISPLAY O.R. RESERVATION ; 6 DEC 1991 3:50 PM
- ;;3.0; Surgery ;**7**;24 Jun 93
- S S(0)=^SRF(SRTN,0),S(.1)=$G(^SRF(SRTN,.1)),S(31)=$G(^SRF(SRTN,31)),SROPER=$P(^SRF(SRTN,"OP"),"^"),DFN=$P(S(0),"^") D DEM^VADPT
- S SRSDATE=$E($P(S(0),"^",9),1,7),SRSOR=$P(S(0),"^",2),SRSDOC=$P(S(.1),"^",4),SRATT=$P(S(.1),"^",13),SRSST=$P(S(31),"^",4),SRSET=$P(S(31),"^",5)
- S SRSDOC=$S(SRSDOC:$P(^VA(200,SRSDOC,0),"^"),1:"") D OPS
- S SRSDT1=SRSST,SRSDT2=SRSET
- S SRSST=SRSST_"0000",SRSET=SRSET_"0000",SRSST=$P(SRSST,".",2),SRSET=$P(SRSET,".",2)
- S SRSST=$E(SRSST,1,2)_"."_$E(SRSST,3,4),SRSET=$E(SRSET,1,2)_"."_$E(SRSET,3,4)
- S Y=SRSDT1 D D^DIQ S SRSTART=$P(Y,"@")_" "_$S($P(Y,"@",2)'="":$E($P(Y,"@",2),1,5),1:"00:00"),Y=SRSDT2 D D^DIQ S SREND=$P(Y,"@")_" "_$P(Y,"@",2)
- S X=$P(^SRS(SRSOR,0),"^"),SRSORN=$P(^SC(X,0),"^")
- W @IOF,!,"Operating Room Reservations:",!!,"Surgeon: "_SRSDOC,!,"Patient: "_VADM(1)
- W !,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 !!,"Operating Room: "_SRSORN,!,"Scheduled Start: "_SRSTART,!,"Scheduled End: "_SREND
- Q
- OPS S SROPER="Procedure(s): "_$P(^SRF(SRTN,"OP"),"^"),OPER=0 F S OPER=$O(^SRF(SRTN,13,OPER)) Q:OPER="" D OTHER
- K SROPS,MM,MMM S:$L(SROPER)<75 SROPS(1)=SROPER I $L(SROPER)>74 S SROPER=SROPER_" " F M=1:1 D LOOP Q:MMM=""
- Q
- LOOP ; break procedure if greater than 75 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)'<75 S SROPS(M)=SROPS(M)_MM_" ",SROPER=MMM
- Q
- OTHER ; other operations
- S SRLONG=1 I $L(SROPER)+$L($P(^SRF(SRTN,13,OPER,0),"^"))>250 S SRLONG=0,OPER=999,SROPERS=" ..."
- I SRLONG S SROPERS=$P(^SRF(SRTN,13,OPER,0),"^")
- S SROPER=SROPER_$S(SROPERS=" ...":SROPERS,1:", "_SROPERS)
- Q
- SRORESV ;B'HAM ISC/MAM - DISPLAY O.R. RESERVATION ; 6 DEC 1991 3:50 PM
- +1 ;;3.0; Surgery ;**7**;24 Jun 93
- +2 SET S(0)=^SRF(SRTN,0)
- SET S(.1)=$GET(^SRF(SRTN,.1))
- SET S(31)=$GET(^SRF(SRTN,31))
- SET SROPER=$PIECE(^SRF(SRTN,"OP"),"^")
- SET DFN=$PIECE(S(0),"^")
- DO DEM^VADPT
- +3 SET SRSDATE=$EXTRACT($PIECE(S(0),"^",9),1,7)
- SET SRSOR=$PIECE(S(0),"^",2)
- SET SRSDOC=$PIECE(S(.1),"^",4)
- SET SRATT=$PIECE(S(.1),"^",13)
- SET SRSST=$PIECE(S(31),"^",4)
- SET SRSET=$PIECE(S(31),"^",5)
- +4 SET SRSDOC=$SELECT(SRSDOC:$PIECE(^VA(200,SRSDOC,0),"^"),1:"")
- DO OPS
- +5 SET SRSDT1=SRSST
- SET SRSDT2=SRSET
- +6 SET SRSST=SRSST_"0000"
- SET SRSET=SRSET_"0000"
- SET SRSST=$PIECE(SRSST,".",2)
- SET SRSET=$PIECE(SRSET,".",2)
- +7 SET SRSST=$EXTRACT(SRSST,1,2)_"."_$EXTRACT(SRSST,3,4)
- SET SRSET=$EXTRACT(SRSET,1,2)_"."_$EXTRACT(SRSET,3,4)
- +8 SET Y=SRSDT1
- DO D^DIQ
- SET SRSTART=$PIECE(Y,"@")_" "_$SELECT($PIECE(Y,"@",2)'="":$EXTRACT($PIECE(Y,"@",2),1,5),1:"00:00")
- SET Y=SRSDT2
- DO D^DIQ
- SET SREND=$PIECE(Y,"@")_" "_$PIECE(Y,"@",2)
- +9 SET X=$PIECE(^SRS(SRSOR,0),"^")
- SET SRSORN=$PIECE(^SC(X,0),"^")
- +10 WRITE @IOF,!,"Operating Room Reservations:",!!,"Surgeon: "_SRSDOC,!,"Patient: "_VADM(1)
- +11 WRITE !,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)
- +12 WRITE !!,"Operating Room: "_SRSORN,!,"Scheduled Start: "_SRSTART,!,"Scheduled End: "_SREND
- +13 QUIT
- OPS SET SROPER="Procedure(s): "_$PIECE(^SRF(SRTN,"OP"),"^")
- SET OPER=0
- FOR
- SET OPER=$ORDER(^SRF(SRTN,13,OPER))
- IF OPER=""
- QUIT
- DO OTHER
- +1 KILL SROPS,MM,MMM
- IF $LENGTH(SROPER)<75
- SET SROPS(1)=SROPER
- IF $LENGTH(SROPER)>74
- SET SROPER=SROPER_" "
- FOR M=1:1
- DO LOOP
- IF MMM=""
- QUIT
- +2 QUIT
- LOOP ; break procedure if greater than 75 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)'<75
- QUIT
- SET SROPS(M)=SROPS(M)_MM_" "
- SET SROPER=MMM
- +2 QUIT
- OTHER ; other operations
- +1 SET SRLONG=1
- IF $LENGTH(SROPER)+$LENGTH($PIECE(^SRF(SRTN,13,OPER,0),"^"))>250
- SET SRLONG=0
- SET OPER=999
- SET SROPERS=" ..."
- +2 IF SRLONG
- SET SROPERS=$PIECE(^SRF(SRTN,13,OPER,0),"^")
- +3 SET SROPER=SROPER_$SELECT(SROPERS=" ...":SROPERS,1:", "_SROPERS)
- +4 QUIT
