Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
959 bytes
|
Line | |
---|
1 | WVUTL10 ;HCIOFO/FT-Women's Health Utility Routine ;1/12/01 14:41
|
---|
2 | ;;1.0;WOMEN'S HEALTH;**14**;Sep 30, 1998
|
---|
3 | STOPCHK(FLAG) ; Does user want to stop background task?
|
---|
4 | ; FLAG: 0 - Check is done before any output to the user.
|
---|
5 | ; 1 - Check is done after output to user has begun.
|
---|
6 | Q:'$D(ZTQUEUED) ;not a background task
|
---|
7 | I $$S^%ZTLOAD D
|
---|
8 | .S ZTSTOP=1 ;set TaskMan variable equal to 1 to stop task
|
---|
9 | .K ZTREQ ;keep record of task in task log
|
---|
10 | .Q
|
---|
11 | Q:+$G(ZTSTOP)=0 ;no request to stop task
|
---|
12 | Q:'FLAG ;don't send message to output device
|
---|
13 | ; Print message to output device
|
---|
14 | N WVSTOP
|
---|
15 | S WVSTOP(1)=" *** OUTPUT STOPPED AT USER'S REQUEST ***"
|
---|
16 | S WVSTOP(2)=" Option Name: "_$S($P($G(XQY0),"^")]"":$P($G(XQY0),"^"),1:"Unknown")
|
---|
17 | S WVSTOP(3)=" Option Menu Text: "_$S($P($G(XQY0),"^",2)]"":$P($G(XQY0),"^",2),1:"Unknown")
|
---|
18 | S WVSTOP(4)=" Task #: "_$S(+$G(ZTSK)>0:+$G(ZTSK),1:"Unknown")
|
---|
19 | D EN^DDIOL(.WVSTOP,"","!?10")
|
---|
20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.