| 1 | SRSCHOR ;B'HAM ISC/ADM - SCHEDULE OPERATING ROOM; 23 Oct 1992 9:05 AM
|
|---|
| 2 | ;;3.0; Surgery ;**37**;24 Jun 93
|
|---|
| 3 | DISP S SRNOREQ=1 D ^SRSDISP Q:SRSOUT
|
|---|
| 4 | ROOM W ! K DIR S DIR(0)="130,.02A",DIR("A")="Schedule a case for which operating Room ? " D ^DIR I $D(DTOUT)!$D(DUOUT) S SRSOUT=1 Q
|
|---|
| 5 | I Y="" W !!,"To schedule a case an operating room MUST be selected. Enter '^' to exit.",! G ROOM
|
|---|
| 6 | S SRSOR=+Y,X1=SRSDATE,X2=2830103 D ^%DTC S SRSDAY=$P("MO^TU^WE^TH^FR^SA^SU","^",X#7+1)
|
|---|
| 7 | S (SRSOUT,SRSST,SRSET)=0,P=""
|
|---|
| 8 | S Z="^" D ^SRSTIME I SRSOUT Q
|
|---|
| 9 | K SRGRPH,SRSDT3 S SRSAVE=SRSDATE,COUNT=1,MM=$E(SRSDT2,1,7),XX=$E(SRSDT1,1,7) I MM>XX S SRSDT3=MM,$P(SRSTIME,"^",2)="24:00"
|
|---|
| 10 | GRPH S SRSST=$P(SRSTIME,"^"),SRSET=$P(SRSTIME,"^",2),SRSST=$P(SRSST,":")_"."_$P(SRSST,":",2),SRSET=$P(SRSET,":")_"."_$P(SRSET,":",2)
|
|---|
| 11 | S SRS1=11+($P(SRSST,".")*5)+(SRSST-$P(SRSST,".")*100\15),SRS2=11+($P(SRSET,".")*5)+(SRSET-$P(SRSET,".")*100\15),S="="
|
|---|
| 12 | F I=SRS1+1:1:SRS2-1 S S=S_$S('(I#5):"|",1:"X")
|
|---|
| 13 | PATRN ; set up pattern
|
|---|
| 14 | I $E(^SRS(SRSOR,"S",SRSDATE,1),SRS1+1,SRS2)["X"!($E(^SRS(SRSOR,"S",SRSDATE,1),SRS1+1,SRS2)["=") D LAP G DISP
|
|---|
| 15 | S SRGRPH(COUNT)=SRSDATE_"^"_SRS1_"^"_SRS2_"^"_S,COUNT=COUNT+1
|
|---|
| 16 | I $D(SRSDT3) S SRSTIME="00:00^"_SRSET1,SRSDATE=SRSDT3 K SRSDT3 G GRPH
|
|---|
| 17 | F COUNT=1,2 I $D(SRGRPH(COUNT)) S SRSDATE=$P(SRGRPH(COUNT),"^"),SRS1=$P(SRGRPH(COUNT),"^",2),SRS2=$P(SRGRPH(COUNT),"^",3),S=$P(SRGRPH(COUNT),"^",4) D ^SRSGRPH
|
|---|
| 18 | S SRSDATE=SRSAVE
|
|---|
| 19 | Q
|
|---|
| 20 | LAP W !!,"Overlapping reservations on "_$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3)_". This case cannot be scheduled."
|
|---|
| 21 | W !!,"Press RETURN to continue " R X:DTIME
|
|---|
| 22 | Q
|
|---|
| 23 | DW Q:'SRSDATE S X1=SRSDATE,X2=2830103 D ^%DTC S SRSDAY=$P("MO^TU^WE^TH^FR^SA^SU","^",X#7+1) Q
|
|---|
| 24 | Q
|
|---|
