SROR.m

SROR ;B'HAM ISC/MAM - EDIT OPERATING ROOMS ; [ 11/14/01  11:33 AM ]

 ;;3.0; Surgery ;**50,104,105**;24 Jun 93

START W @IOF,! K DIC S DIC="^SRS(",DIC("S")="I $$ORDIV^SROUTL0(+Y,$G(SRSITE(""DIV""))),$P(^SRS(+Y,0),U)",DIC(0)="QEAMZ",DIC("A")="Enter/Edit Information for which Operating Room ?  " D ^DIC I Y<0 G END

 K DR W !! S SRORNM=Y(0,0),(SROR,DA)=+Y,DIE="^SRS(",DR="[SRO-ROOM]",Q3(1)=SRORNM_"   ** Update O.R. **" K Y D ^SRCUSS

END W @IOF D ^SRSKILL

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROR   461     printed  Apr 09, 2024@21:43:42                                                                                                                                                                                                         Page 2

SROR      ;B'HAM ISC/MAM - EDIT OPERATING ROOMS ; [ 11/14/01  11:33 AM ]

 +1       ;;3.0; Surgery ;**50,104,105**;24 Jun 93

START      WRITE @IOF,!

           KILL DIC

           SET DIC="^SRS("

           SET DIC("S")="I $$ORDIV^SROUTL0(+Y,$G(SRSITE(""DIV""))),$P(^SRS(+Y,0),U)"

           SET DIC(0)="QEAMZ"

           SET DIC("A")="Enter/Edit Information for which Operating Room ?  "

           DO ^DIC

           IF Y<0

               GOTO END

 +1        KILL DR

           WRITE !!

           SET SRORNM=Y(0,0)

           SET (SROR,DA)=+Y

           SET DIE="^SRS("

           SET DR="[SRO-ROOM]"

           SET Q3(1)=SRORNM_"   ** Update O.R. **"

           KILL Y

           DO ^SRCUSS

END        WRITE @IOF

           DO ^SRSKILL

 +1        QUIT