source: FOIAVistA/trunk/r/SURGERY-SR/SROSTOP.m@ 802

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

initial load of FOIAVistA 6/30/08 version
File size: 249 bytes
Line 
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.