Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
455 bytes
|
Rev | Line | |
---|
[613] | 1 | SROR ;B'HAM ISC/MAM - EDIT OPERATING ROOMS ; [ 11/14/01 11:33 AM ]
|
---|
| 2 | ;;3.0; Surgery ;**50,104,105**;24 Jun 93
|
---|
| 3 | 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
|
---|
| 4 | 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
|
---|
| 5 | END W @IOF D ^SRSKILL
|
---|
| 6 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.