Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
654 bytes
|
Rev | Line | |
---|
[613] | 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.