source: WorldVistAEHR/trunk/r/SURGERY-SR/SROSTOP.m@ 1297

Last change on this file since 1297 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 249 bytes
RevLine 
[613]1SROSTOP ;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.