- SRSDIS1 ;B'HAM ISC/MAM - DISPLAY ONE ROOM ; [ 09/29/03 10:23 AM ]
- ;;3.0; Surgery ;**100,165**;24 Jun 93;Build 6
- PICK W @IOF,!!,"Display of Available Operating Room Time",!!,"1. Display Availability (12:00 AM - 12:00 PM)",!,"2. Display Availability (06:00 AM - 08:00 PM)",!,"3. Display Availability (12:00 PM - 12:00 AM)"
- W !!,"Select Number: 2// " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q
- S:X="" X=2 I X<1!(X>3) D HELP G PICK
- S SRDTYPE=X D HDR
- S SRDT=SRSDATE F SRDAZE=0:1:14 S X1=SRDT,X2=SRDAZE D C^%DTC S SRSDATE=X,SRDATE=$E(X,4,5)_"-"_$E(X,6,7)_"-"_$E(X,2,3)_" " D LINE
- Q
- HDR W @IOF,!!,"Operating Room: "_SROOM,?25,$S(SRDTYPE=2:" (6:00 AM - 8:00 PM)",SRDTYPE=1:" (12:00 AM - 12:00 PM)",1:" (12:00 PM - 12:00 AM)"),!!,"DATE "
- I SRDTYPE=2 W " 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20" Q
- I SRDTYPE=1 W " 12 1 2 3 4 5 6 7 8 9 10 11 12" Q
- W " 12 13 14 15 16 17 18 19 20 21 22 23 24"
- Q
- LINE ; display graph for each room
- I '$D(^SRS(SROR,"S",SRSDATE,1)) D GRAPH(SRSDATE,SROR)
- S START=$S(SRDTYPE=2:41,SRDTYPE=1:11,1:71),END=$S(SRDTYPE=2:111,SRDTYPE=1:71,1:500)
- W !,SRDATE,$E(^SRS(SROR,"S",SRSDATE,1),START,END)
- Q
- GRAPH(SRSDATE,SROR) ; set graph in ^SRS
- S ^SRS(SROR,"S",SRSDATE,0)=SRSDATE,^SRS(SROR,"SS",SRSDATE,0)=SRSDATE
- S X=$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
- S ^SRS(SROR,"S",SRSDATE,1)=X_" |____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|",^SRS(SROR,"SS",SRSDATE,1)=^SRS(SROR,"S",SRSDATE,1)
- D DIS1^SRSBUTL ;;3*165-RJS
- Q
- HELP W !!,"Enter the number corresponding to portion of the display graph of available",!,"operating room time that you want to view. If you want to view the room"
- W !,"between the hours of 6:00 AM and 8:00 PM, enter '2'. A display of available",!,"operating room time will then appear on your screen."
- W !!,"Press <RET> to continue " R X:DTIME
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRSDIS1 2009 printed Feb 19, 2025@00:13:56 Page 2
- SRSDIS1 ;B'HAM ISC/MAM - DISPLAY ONE ROOM ; [ 09/29/03 10:23 AM ]
- +1 ;;3.0; Surgery ;**100,165**;24 Jun 93;Build 6
- PICK WRITE @IOF,!!,"Display of Available Operating Room Time",!!,"1. Display Availability (12:00 AM - 12:00 PM)",!,"2. Display Availability (06:00 AM - 08:00 PM)",!,"3. Display Availability (12:00 PM - 12:00 AM)"
- +1 WRITE !!,"Select Number: 2// "
- READ X:DTIME
- IF '$TEST!(X["^")
- SET SRSOUT=1
- QUIT
- +2 if X=""
- SET X=2
- IF X<1!(X>3)
- DO HELP
- GOTO PICK
- +3 SET SRDTYPE=X
- DO HDR
- +4 SET SRDT=SRSDATE
- FOR SRDAZE=0:1:14
- SET X1=SRDT
- SET X2=SRDAZE
- DO C^%DTC
- SET SRSDATE=X
- SET SRDATE=$EXTRACT(X,4,5)_"-"_$EXTRACT(X,6,7)_"-"_$EXTRACT(X,2,3)_" "
- DO LINE
- +5 QUIT
- HDR WRITE @IOF,!!,"Operating Room: "_SROOM,?25,$SELECT(SRDTYPE=2:" (6:00 AM - 8:00 PM)",SRDTYPE=1:" (12:00 AM - 12:00 PM)",1:" (12:00 PM - 12:00 AM)"),!!,"DATE "
- +1 IF SRDTYPE=2
- WRITE " 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20"
- QUIT
- +2 IF SRDTYPE=1
- WRITE " 12 1 2 3 4 5 6 7 8 9 10 11 12"
- QUIT
- +3 WRITE " 12 13 14 15 16 17 18 19 20 21 22 23 24"
- +4 QUIT
- LINE ; display graph for each room
- +1 IF '$DATA(^SRS(SROR,"S",SRSDATE,1))
- DO GRAPH(SRSDATE,SROR)
- +2 SET START=$SELECT(SRDTYPE=2:41,SRDTYPE=1:11,1:71)
- SET END=$SELECT(SRDTYPE=2:111,SRDTYPE=1:71,1:500)
- +3 WRITE !,SRDATE,$EXTRACT(^SRS(SROR,"S",SRSDATE,1),START,END)
- +4 QUIT
- GRAPH(SRSDATE,SROR) ; set graph in ^SRS
- +1 SET ^SRS(SROR,"S",SRSDATE,0)=SRSDATE
- SET ^SRS(SROR,"SS",SRSDATE,0)=SRSDATE
- +2 SET X=$EXTRACT(SRSDATE,4,5)_"-"_$EXTRACT(SRSDATE,6,7)_"-"_$EXTRACT(SRSDATE,2,3)
- +3 SET ^SRS(SROR,"S",SRSDATE,1)=X_" |____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|____|"
- SET ^SRS(SROR,"SS",SRSDATE,1)=^SRS(SROR,"S",SRSDATE,1)
- +4 ;;3*165-RJS
- DO DIS1^SRSBUTL
- +5 QUIT
- HELP WRITE !!,"Enter the number corresponding to portion of the display graph of available",!,"operating room time that you want to view. If you want to view the room"
- +1 WRITE !,"between the hours of 6:00 AM and 8:00 PM, enter '2'. A display of available",!,"operating room time will then appear on your screen."
- +2 WRITE !!,"Press <RET> to continue "
- READ X:DTIME
- +3 QUIT
