|
Last change
on this file since 846 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.
