21 lines
959 B
Mathematica
21 lines
959 B
Mathematica
WVUTL10 ;HCIOFO/FT-Women's Health Utility Routine ;1/12/01 14:41
|
|
;;1.0;WOMEN'S HEALTH;**14**;Sep 30, 1998
|
|
STOPCHK(FLAG) ; Does user want to stop background task?
|
|
; FLAG: 0 - Check is done before any output to the user.
|
|
; 1 - Check is done after output to user has begun.
|
|
Q:'$D(ZTQUEUED) ;not a background task
|
|
I $$S^%ZTLOAD D
|
|
.S ZTSTOP=1 ;set TaskMan variable equal to 1 to stop task
|
|
.K ZTREQ ;keep record of task in task log
|
|
.Q
|
|
Q:+$G(ZTSTOP)=0 ;no request to stop task
|
|
Q:'FLAG ;don't send message to output device
|
|
; Print message to output device
|
|
N WVSTOP
|
|
S WVSTOP(1)=" *** OUTPUT STOPPED AT USER'S REQUEST ***"
|
|
S WVSTOP(2)=" Option Name: "_$S($P($G(XQY0),"^")]"":$P($G(XQY0),"^"),1:"Unknown")
|
|
S WVSTOP(3)=" Option Menu Text: "_$S($P($G(XQY0),"^",2)]"":$P($G(XQY0),"^",2),1:"Unknown")
|
|
S WVSTOP(4)=" Task #: "_$S(+$G(ZTSK)>0:+$G(ZTSK),1:"Unknown")
|
|
D EN^DDIOL(.WVSTOP,"","!?10")
|
|
Q
|