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 Dec 13, 2024@02:47:27 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
