source:
WorldVistAEHR/trunk/r/SURGERY-SR/SROSTOP.m@
691
Last change on this file since 691 was 613, checked in by , 15 years ago | |
---|---|
File size: 249 bytes |
Rev | Line | |
---|---|---|
[613] | 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.