source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMUTL.m@ 1166

Last change on this file since 1166 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1XUTMUTL ;SFISC/RWF - TaskMan: Utility ;3/4/96 12:55
2 ;;8.0;KERNEL;**20**;Jul 10, 1995
3 Q
4ENV ;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 ;
14LOAD(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
17XQA ;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 ;
24OPTSCH(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
Note: See TracBrowser for help on using the repository browser.