|
Last change
on this file since 770 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
654 bytes
|
| Line | |
|---|
| 1 | SRSIND ;B'HAM ISC/MAM - INDICATIONS FOR OPERATION ; 14 NOV 1989 12:35
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | W !!,"Please enter a brief statement of the indications for this operative",!,"procedure. It is mandatory that you provide this information before",!,"proceeding with this request."
|
|---|
| 4 | ASK W !!,"Do you want to continue with this request ? YES// " R SRYN:DTIME I '$T!(SRYN="^") K SRTN Q
|
|---|
| 5 | S SRYN=$E(SRYN) S:SRYN="" SRYN="Y"
|
|---|
| 6 | I "YyNn"'[SRYN W !!,"Enter RETURN to re-enter the indications for operation and continue with this",!,"request, or 'NO' if you do not want to continue with the request." G ASK
|
|---|
| 7 | I "Yy"[SRYN Q
|
|---|
| 8 | S DA=SRTN,DIK="^SRF(" D ^DIK K SRTN
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
