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