Routine: SRSDISP

SRSDISP ;B'HAM ISC/MAM - SELECT GRAPH DISPLAY ; [ 04/03/00  1:33 PM ]

 ;;3.0; Surgery ;**50,94**;24 Jun 93

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 !,"4. Do Not Display Availability"

 W !!,"Select Number: 2//  " R X:DTIME I '$T!(X["^") S SRSOUT=1 Q

 S:X="" X=2 I X<1!(X>4) D HELP G PICK

 S SRDTYPE=X I SRDTYPE<4 D HDR

 S SROR=0 F  S SROR=$O(^SRS(SROR)) Q:'SROR  I '$P(^(SROR,0),"^",6) D:$$ORDIV^SROUTL0(SROR,$G(SRSITE("DIV"))) LINE

HDR W @IOF,!!,"ROOM"

 I SRDTYPE=2 W "   6AM   7    8    9    10   11   12   13   14   15   16   17   18   19   20" Q

 I SRDTYPE=1 W "   12AM  1    2    3    4    5    6    7    8    9   10   11   12PM" Q

 W "   12PM  13   14   15   16   17   18   19   20   21   22   23   24"

LINE ; display graph for each room

 I '$D(^SRS(SROR,"S",SRSDATE,1)) D GRAPH

 S X2=1,X1=SRSDATE D C^%DTC I '$D(^SRS(SROR,"S",X,1)) S SRDAT=SRSDATE,SRSDATE=X D GRAPH S SRSDATE=SRDAT K SRDAT

 I SRDTYPE=4 Q

 S X=$P(^SRS(SROR,0),"^"),ROOM=$P(^SC(X,0),"^"),START=$S(SRDTYPE=2:41,SRDTYPE=1:11,1:71),END=$S(SRDTYPE=2:111,SRDTYPE=1:71,1:500)

 W !,$E(ROOM,1,8),?8,$E(^SRS(SROR,"S",SRSDATE,1),START,END)

GRAPH ; 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 ^SRSBLOK

HELP W !!,"Enter the number corresponding to portion of the display graph of available",!,"operating room time that you want to view.  If you are scheduling a case"

 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.  If you do not want to"

 W !,"see a display for any time period, enter '4'.  You will then be asked to",!,"select an operating room."

 W !!,"Press <RET> to continue  " R X:DTIME

SRSDISP   ;B'HAM ISC/MAM - SELECT GRAPH DISPLAY ; [ 04/03/00  1:33 PM ]

 +1       ;;3.0; Surgery ;**50,94**;24 Jun 93

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 !,"4. Do Not Display Availability"

 +2        WRITE !!,"Select Number: 2//  "

           READ X:DTIME

           IF '$TEST!(X["^")

               SET SRSOUT=1

               QUIT

 +3        IF X=""

               SET X=2

           IF X<1!(X>4)

               DO HELP

               GOTO PICK

 +4        SET SRDTYPE=X

           IF SRDTYPE<4

               DO HDR

 +5        SET SROR=0

FOR

               SET SROR=$ORDER(^SRS(SROR))

               IF 'SROR

                   QUIT

               IF '$PIECE(^(SROR,0),"^",6)

                   IF $$ORDIV^SROUTL0(SROR,$GET(SRSITE("DIV")))

                       DO LINE

 +6        QUIT

HDR        WRITE @IOF,!!,"ROOM"

 +1        IF SRDTYPE=2

               WRITE "   6AM   7    8    9    10   11   12   13   14   15   16   17   18   19   20"

               QUIT

 +2        IF SRDTYPE=1

               WRITE "   12AM  1    2    3    4    5    6    7    8    9   10   11   12PM"

               QUIT

 +3        WRITE "   12PM  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

 +2        SET X2=1

           SET X1=SRSDATE

           DO C^%DTC

           IF '$DATA(^SRS(SROR,"S",X,1))

               SET SRDAT=SRSDATE

               SET SRSDATE=X

               DO GRAPH

               SET SRSDATE=SRDAT

               KILL SRDAT

 +3        IF SRDTYPE=4

               QUIT

 +4        SET X=$PIECE(^SRS(SROR,0),"^")

           SET ROOM=$PIECE(^SC(X,0),"^")

           SET START=$SELECT(SRDTYPE=2:41,SRDTYPE=1:11,1:71)

           SET END=$SELECT(SRDTYPE=2:111,SRDTYPE=1:71,1:500)

 +5        WRITE !,$EXTRACT(ROOM,1,8),?8,$EXTRACT(^SRS(SROR,"S",SRSDATE,1),START,END)

 +6        QUIT

GRAPH     ; 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        DO ^SRSBLOK

 +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 are scheduling a case"

 +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.  If you do not want to"

 +2        WRITE !,"see a display for any time period, enter '4'.  You will then be asked to",!,"select an operating room."

 +3        WRITE !!,"Press <RET> to continue  "

           READ X:DTIME

 +4        QUIT

SRSDISP.m