SROSTOP.m

SROSTOP ;B'HAM ISC/ADM - CHECK TASKMAN TO STOP TASK ; 1 DEC 1992 11:32 AM

 ;;3.0; Surgery ;;24 Jun 93

 S SRHALT=0 Q:'$D(^%ZIS(14.7))

 S ZTSTOP=0 I $$S^%ZTLOAD S (SRHALT,ZTSTOP)=1 W !!!,?10,"** Task Being Stopped at User's Request **",!!! K ZTREQ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SROSTOP   254     printed  Dec 13, 2024@02:46:13                                                                                                                                                                                                      Page 2

SROSTOP   ;B'HAM ISC/ADM - CHECK TASKMAN TO STOP TASK ; 1 DEC 1992 11:32 AM

 +1       ;;3.0; Surgery ;;24 Jun 93

 +2        SET SRHALT=0

           if '$DATA(^%ZIS(14.7))

               QUIT 

 +3        SET ZTSTOP=0

           IF $$S^%ZTLOAD

               SET (SRHALT,ZTSTOP)=1

               WRITE !!!,?10,"** Task Being Stopped at User's Request **",!!!

               KILL ZTREQ

 +4        QUIT