Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SROSTOP

SROSTOP.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROSTOP   254     printed  Oct 16, 2024@18:46:52                                                                                                                                                                                                      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