| 1 | XUTMUTL ;SFISC/RWF - TaskMan: Utility ;3/4/96 12:55
|
|---|
| 2 | ;;8.0;KERNEL;**20**;Jul 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ENV ;Establish Routine Environment
|
|---|
| 5 | K DIRUT,DTOUT,DUOUT ;Clean-up for so we can use them too.
|
|---|
| 6 | Q:$D(ZTENV)&$D(ZTKEY)
|
|---|
| 7 | I $S($D(DUZ)[0:1,DUZ="":1,1:0) W !?5,"I do not know who you are (your DUZ variable is ",$S($D(DUZ)[0:"undefined).",1:"null).") Q
|
|---|
| 8 | I $D(^VA(200,DUZ,0))[0 W !?5,"User # ",DUZ," is not defined in this uci. I'm not sure who you are." Q
|
|---|
| 9 | S ZTKEY=$D(^XUSEC("ZTMQ",DUZ)),ZTNAME=$P(^VA(200,DUZ,0),U) X ^%ZOSF("UCI") S XUTMUCI=Y
|
|---|
| 10 | S ZTENV=1 ;Use as a flag to show OK.
|
|---|
| 11 | I '$D(ZTQUEUED) D HOME^%ZIS W @IOF
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | LOAD(XUTSK,XUR) ;Load Task data
|
|---|
| 15 | S @XUR@(0)=$G(^%ZTSK(XUTSK,0)),@XUR@(.03)=$G(^(.03)),@XUR@(.1)=$G(^(.1)),@XUR@(.2)=$G(^(.2)),@XUR@(.25)=$G(^(.25))
|
|---|
| 16 | Q
|
|---|
| 17 | XQA ;Call from the Alert system
|
|---|
| 18 | Q:XQADATA'>0
|
|---|
| 19 | N ZTKEY,ZTNAME,XUTMUCI,ZTENV,DIR,DIRUT,Y
|
|---|
| 20 | D ENV,EN^XUTMTP(XQADATA)
|
|---|
| 21 | S DIR(0)="E" D ^DIR
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | OPTSCH(OPTION,WHEN,DEVICE,FREQ) ;Schedule an Option.
|
|---|
| 25 | N DIE,DR,DA ;,XUTMDA
|
|---|
| 26 | D FIND^DIC(19.2,,,"X",OPTION,5,,,,"XUTMDA","XUTMMSG")
|
|---|
| 27 | Q
|
|---|
