source:
WorldVistAEHR/trunk/r/SURGERY-SR/SROSTOP.m@
700
| Last change on this file since 700 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 249 bytes | |
| Line | |
|---|---|
| 1 | SROSTOP ;B'HAM ISC/ADM - CHECK TASKMAN TO STOP TASK ; 1 DEC 1992 11:32 AM |
| 2 | ;;3.0; Surgery ;;24 Jun 93 |
| 3 | S SRHALT=0 Q:'$D(^%ZIS(14.7)) |
| 4 | S ZTSTOP=0 I $$S^%ZTLOAD S (SRHALT,ZTSTOP)=1 W !!!,?10,"** Task Being Stopped at User's Request **",!!! K ZTREQ |
| 5 | Q |
Note:
See TracBrowser
for help on using the repository browser.
