Released XU*8*737 SEQ #589 Extracted from mail message **KIDS**:XU*8.0*737^ **INSTALL NAME** XU*8.0*737 "BLD",1723,0) XU*8.0*737^KERNEL^0^3210208^y "BLD",1723,1,0) ^^2^2^3201208^ "BLD",1723,1,1,0) Kernel patch XU*8*737 OPTION OUT OF ORDER ERROR. "BLD",1723,1,2,0) Please refer to National Patch Module for more information. "BLD",1723,4,0) ^9.64PA^^ "BLD",1723,6) 3 "BLD",1723,6.3) 3 "BLD",1723,"KRN",0) ^9.67PA^1.5^26 "BLD",1723,"KRN",.4,0) .4 "BLD",1723,"KRN",.401,0) .401 "BLD",1723,"KRN",.402,0) .402 "BLD",1723,"KRN",.403,0) .403 "BLD",1723,"KRN",.5,0) .5 "BLD",1723,"KRN",.84,0) .84 "BLD",1723,"KRN",1.5,0) 1.5 "BLD",1723,"KRN",1.6,0) 1.6 "BLD",1723,"KRN",1.61,0) 1.61 "BLD",1723,"KRN",1.62,0) 1.62 "BLD",1723,"KRN",3.6,0) 3.6 "BLD",1723,"KRN",3.8,0) 3.8 "BLD",1723,"KRN",9.2,0) 9.2 "BLD",1723,"KRN",9.8,0) 9.8 "BLD",1723,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",1723,"KRN",9.8,"NM",1,0) XQ1^^0^B38935191 "BLD",1723,"KRN",9.8,"NM","B","XQ1",1) "BLD",1723,"KRN",19,0) 19 "BLD",1723,"KRN",19.1,0) 19.1 "BLD",1723,"KRN",101,0) 101 "BLD",1723,"KRN",409.61,0) 409.61 "BLD",1723,"KRN",771,0) 771 "BLD",1723,"KRN",779.2,0) 779.2 "BLD",1723,"KRN",870,0) 870 "BLD",1723,"KRN",8989.51,0) 8989.51 "BLD",1723,"KRN",8989.52,0) 8989.52 "BLD",1723,"KRN",8993,0) 8993 "BLD",1723,"KRN",8994,0) 8994 "BLD",1723,"KRN",9002226,0) 9002226 "BLD",1723,"KRN","B",.4,.4) "BLD",1723,"KRN","B",.401,.401) "BLD",1723,"KRN","B",.402,.402) "BLD",1723,"KRN","B",.403,.403) "BLD",1723,"KRN","B",.5,.5) "BLD",1723,"KRN","B",.84,.84) "BLD",1723,"KRN","B",1.5,1.5) "BLD",1723,"KRN","B",1.6,1.6) "BLD",1723,"KRN","B",1.61,1.61) "BLD",1723,"KRN","B",1.62,1.62) "BLD",1723,"KRN","B",3.6,3.6) "BLD",1723,"KRN","B",3.8,3.8) "BLD",1723,"KRN","B",9.2,9.2) "BLD",1723,"KRN","B",9.8,9.8) "BLD",1723,"KRN","B",19,19) "BLD",1723,"KRN","B",19.1,19.1) "BLD",1723,"KRN","B",101,101) "BLD",1723,"KRN","B",409.61,409.61) "BLD",1723,"KRN","B",771,771) "BLD",1723,"KRN","B",779.2,779.2) "BLD",1723,"KRN","B",870,870) "BLD",1723,"KRN","B",8989.51,8989.51) "BLD",1723,"KRN","B",8989.52,8989.52) "BLD",1723,"KRN","B",8993,8993) "BLD",1723,"KRN","B",8994,8994) "BLD",1723,"KRN","B",9002226,9002226) "BLD",1723,"QUES",0) ^9.62^^ "BLD",1723,"REQB",0) ^9.611^1^1 "BLD",1723,"REQB",1,0) XU*8.0*672^0 "BLD",1723,"REQB","B","XU*8.0*672",1) "MBREQ") 0 "PKG",3,-1) 1^1 "PKG",3,0) KERNEL^XU^SIGN-ON, SECURITY, MENU DRIVER, DEVICES, TASKMAN^ "PKG",3,22,0) ^9.49I^1^1 "PKG",3,22,1,0) 8.0^3090706^3090706^6 "PKG",3,22,1,"PAH",1,0) 737^3210208 "PKG",3,22,1,"PAH",1,1,0) ^^2^2^3210208 "PKG",3,22,1,"PAH",1,1,1,0) Kernel patch XU*8*737 OPTION OUT OF ORDER ERROR. "PKG",3,22,1,"PAH",1,1,2,0) Please refer to National Patch Module for more information. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","XQ1") 0^1^B38935191^B38427673 "RTN","XQ1",1,0) XQ1 ; SEA/MJM - DRIVER FOR MENUMAN (PART 2) ;08/28/08 13:20 "RTN","XQ1",2,0) ;;8.0;KERNEL;**1,15,59,67,46,151,170,242,446,672,737**;Jul 10, 1995;Build 3 "RTN","XQ1",3,0) ;Per VHA Directive 2004-038, this routine should not be modified. "RTN","XQ1",4,0) ; "RTN","XQ1",5,0) S DIC=19,DIC(0)="AEQM" D ^DIC Q:Y<0 S (XQDIC,XQY)=+Y K DIC,XQUR,Y,^VA(200,DUZ,202.1) "RTN","XQ1",6,0) D INIT^XQ12 "RTN","XQ1",7,0) G M^XQ "RTN","XQ1",8,0) ; "RTN","XQ1",9,0) KILL K D,D0,D1,DA,DI,DIC,DIE,DIR,DIS,DIASKHD,DIPCRIT,DISUPNO,DPP,DR,FLDS,Q,XQI,XQV,XQW,XQZ "RTN","XQ1",10,0) D CLEAN^DILF "RTN","XQ1",11,0) ; "RTN","XQ1",12,0) OUT ;Exit point for all option types "RTN","XQ1",13,0) S U="^" "RTN","XQ1",14,0) I $D(XQXFLG("ZEBRA")) L ^XWB("SESSION",XQXFLG("ZEBRA")):15 ;Clear by setting new lock "RTN","XQ1",15,0) E L ;Clear the lock table "RTN","XQ1",16,0) ; "RTN","XQ1",17,0) I $D(ZTQUEUED),'$D(XQUIT) D "RTN","XQ1",18,0) .N XQF "RTN","XQ1",19,0) .S XQF=$S('$D(^DIC(19,XQY,15)):0,'$L(^(15)):0,1:1) X:XQF ^(15) "RTN","XQ1",20,0) .Q "RTN","XQ1",21,0) Q:$D(ZTQUEUED) ;Quit here if it's a Taskman job "RTN","XQ1",22,0) ; "RTN","XQ1",23,0) I '$D(DT)!('$D(DTIME))!('$D(DUZ))!('$D(DUZ(0)))!('$D(DUZ("AG")))!('$D(DUZ("AUTO"))) D DVARS^XQ12 "RTN","XQ1",24,0) I $D(DUZ("AUTO")),DUZ("AUTO"),$D(XQY),$D(^DIC(19,+XQY,0))#2,$P(^(0),"^",11)["y" W !!,*7,"Press RETURN to continue..." R %:DTIME "RTN","XQ1",25,0) I $D(^XUTL("XQ",$J,"RBX")) G RBX^XQ73 "RTN","XQ1",26,0) I $D(^XUTL("XQ",$J,"T")) I ^("T")<0 S ^("T")=$S($D(^XUTL("XQ",$J,1)):1,1:0) "RTN","XQ1",27,0) I $D(^XUTL("XQ",$J,"T")) S XQY=+^(^("T")),XQT="" S:$D(^DIC(19,+XQY,0)) XQT=$P(^(0),U,4) I '$D(XQUIT),("LOQX"'[XQT),$D(^DIC(19,XQY,15)),$L(^(15)) X ^(15) ;W " ==> OUT^XQ1" "RTN","XQ1",28,0) Q:'$D(^XUTL("XQ",$J,"T")) "RTN","XQ1",29,0) I $D(^XUTL("XQ",$J,"T")) S XQTT=$S($D(XQUIT):^XUTL("XQ",$J,"T"),1:^XUTL("XQ",$J,"T")-1) K XQUIT "RTN","XQ1",30,0) I XQTT'<1 S ^XUTL("XQ",$J,"T")=XQTT,XQY=^(XQTT),XQY0=$P(XQY,U,2,999),XQPSM=$P(XQY,U,1),XQY=+XQPSM,XQPSM=$P(XQPSM,XQY,2,99),XQABOLD=1 "RTN","XQ1",31,0) I XQTT=0 S XQY=-1 "RTN","XQ1",32,0) I $P(XQY0,U,4)="M" S XQAA=$P(XQY0,U,2) I $P(XQY0,U,17),$D(^DIC(19,+XQY,26)),$L(^(26)) X ^(26) ;W " ==> OUT^XQ1" "RTN","XQ1",33,0) K %,X,XQDICNEW,XQF,XQCO,XQEA,XQFLG,XQI,XQJ,XQJS,XQK,XQLOK,XQNOPE,XQOK,XQTT,XQX,XQZ,Y,Z "RTN","XQ1",34,0) G M1^XQ "RTN","XQ1",35,0) ; "RTN","XQ1",36,0) A ;ACTION type option entry point "RTN","XQ1",37,0) X:$D(^DIC(19,+XQY,20)) ^(20) ;W " ==> A^XQ1" "RTN","XQ1",38,0) I $D(XQUIT) S XQUIT=1 D ^XQUIT I $D(XQUIT) K XQUIT G OUT "RTN","XQ1",39,0) I $P(XQY0,U,17),$D(^DIC(19,XQY,26)),$L(^(26)) X ^(26) ;W " ==> A^XQ1" "RTN","XQ1",40,0) G OUT "RTN","XQ1",41,0) ; "RTN","XQ1",42,0) C ;ScreenMan type options "RTN","XQ1",43,0) D DIC G:DA=-1 KILL S XQZ="DR,DDSFILE,DDSFILE(1)",XQW=39 D SET "RTN","XQ1",44,0) S DDSPAGE=$P($G(^DIC(19,+XQY,43)),U) K:DDSPAGE="" DDSPAGE "RTN","XQ1",45,0) S DDSPARM=$P($G(^DIC(19,+XQY,43)),U,2) K:DDSPARM="" DDSPARM "RTN","XQ1",46,0) I DDSFILE["(",DDSFILE'[U S DDSFILE=U_DDSFILE "RTN","XQ1",47,0) I $D(DDSFILE(1)),DDSFILE(1)["(",DDSFILE(1)'[U S DDSFILE(1)=U_DDSFILE(1) "RTN","XQ1",48,0) D ^DDS K DDSFILE G C "RTN","XQ1",49,0) ; "RTN","XQ1",50,0) P ;PRINT type option "RTN","XQ1",51,0) S XQZ="DIC,PG,L,FLDS,BY,FR,TO,DHD,DCOPIES,DIS(0),IOP,DHIT,DIOBEG,DIOEND",XQW=59 D SET "RTN","XQ1",52,0) I $D(DIS(0))#2 F XQI=1:1:3 Q:'$D(^DIC(19,+XQY,69+(XQI/10))) Q:^(69+(XQI/10))="" S DIS(XQI)=^(69+(XQI/10)) "RTN","XQ1",53,0) S:$D(XQIOP) IOP=XQIOP "RTN","XQ1",54,0) S XQI=$G(^DIC(19,XQY,79)) S:XQI>0 DIASKHD="" S:$P(XQI,U,2) DISUPNO=1 S:$P(XQI,U,3) DIPCRIT=1 "RTN","XQ1",55,0) D D1,EN1^DIP K IOP,DIOBEG,DIS,DP G OUT "RTN","XQ1",56,0) ; "RTN","XQ1",57,0) I ;INQUIRE type option "RTN","XQ1",58,0) I1 D DIC G KILL:DA=-1 S DI=DIC,XQZ="DIC,DR,DIQ(0)",XQW=79 D SET,D1 S:$D(DIC)[0 DIC=DI "RTN","XQ1",59,0) I $D(^DIC(19,+XQY,63)),$L(^(63)) S FLDS=^(63) "RTN","XQ1",60,0) E S FLDS="[CAPTIONED]" "RTN","XQ1",61,0) S:$G(DIQ(0))="B" DIQ(0)="CR" ;p672 "RTN","XQ1",62,0) I $G(^DIC(19,+XQY,83))["Y" S IOP="HOME" "RTN","XQ1",63,0) I2 ; "RTN","XQ1",64,0) W ! S XQZ="DHD",XQW=66 D SET K ^UTILITY($J),^(U,$J) S ^($J,1,DA)="",@("L=+$P("_DI_"0),U,2)"),DPP(1)=L_"^^^@",L=0,C=",",Q="""",DPP=1,DPP(1,"IX")="^UTILITY(U,$J,"_DI_"^2" D N^DIP1 S Y=XQY G I1 "RTN","XQ1",65,0) ; "RTN","XQ1",66,0) E ;EDIT type option entry point "RTN","XQ1",67,0) E1 D DIC G KILL:DA=-1 K DIE,DIC S XQZ="DIE,DR",XQW=49 D SET S XQZ="DIE(""W"")",XQW=53 D SET "RTN","XQ1",68,0) I $D(^DIC(19,XQY,53)),$L(^(53)) S %=^(53),DIE("NO^")=$S(%="N":"",1:%) "RTN","XQ1",69,0) ;S:DIE["(" DIE=U_DIE "RTN","XQ1",70,0) ; "RTN","XQ1",71,0) ;DIE does not lock so we do it here "RTN","XQ1",72,0) ; "RTN","XQ1",73,0) S XQLOK="",XQNOPE=0 "RTN","XQ1",74,0) I DIE["(" D "RTN","XQ1",75,0) .S DIE=U_DIE "RTN","XQ1",76,0) .S XQLOK=DIE_DA_")" L +@XQLOK:2 "RTN","XQ1",77,0) .I '$T S XQNOPE=1 W !,"Someone else is editing this data. Try later." "RTN","XQ1",78,0) .Q "RTN","XQ1",79,0) ; "RTN","XQ1",80,0) I DIE=+DIE D "RTN","XQ1",81,0) .N % "RTN","XQ1",82,0) .S %=$$ROOT^DILFD(DIE) "RTN","XQ1",83,0) .I %'="" S XQLOK=%_DA_")" L +@XQLOK:2 "RTN","XQ1",84,0) .I '$T S XQNOPE=1 W !,"Someone else is editing this data. Try later." "RTN","XQ1",85,0) .Q "RTN","XQ1",86,0) ; "RTN","XQ1",87,0) G:XQNOPE E1 ;Node is being edited right now, skip DIE "RTN","XQ1",88,0) D ^DIE S Y=XQY "RTN","XQ1",89,0) I XQLOK'="" L -@XQLOK "RTN","XQ1",90,0) G E1 "RTN","XQ1",91,0) ; "RTN","XQ1",92,0) ; "RTN","XQ1",93,0) DIC ;Get FileMan parameters from Option File and do look up "RTN","XQ1",94,0) W ! K DIC S XQZ="DIC,DIC(0),DIC(""A""),DIC(""B""),DIC(""S""),DIC(""W""),D",XQW=29 D SET,D1 "RTN","XQ1",95,0) I '$D(D) D ^DIC "RTN","XQ1",96,0) I $D(D) S:D="" D="B" D IX^DIC "RTN","XQ1",97,0) I $D(Y),Y>0,$P(Y,U,3) S XQDICNEW=Y "RTN","XQ1",98,0) S DA=+Y,Y=XQY "RTN","XQ1",99,0) Q "RTN","XQ1",100,0) ; "RTN","XQ1",101,0) D1 ;S:DIC["(" DIC=U_DIC Q "RTN","XQ1",102,0) S:$G(DIC)["(" DIC=U_DIC Q ;p737 "RTN","XQ1",103,0) ; "RTN","XQ1",104,0) SET F XQI=1:1 S XQV=$P(XQZ,",",XQI) Q:XQV="" K @XQV I $D(^DIC(19,+XQY,XQW+XQI)),^(XQW+XQI)]"" S @XQV=^(XQW+XQI) "RTN","XQ1",105,0) I $D(DIC("A")),DIC("A")]"" S DIC("A")=DIC("A")_" " "RTN","XQ1",106,0) K XQI,J "RTN","XQ1",107,0) Q "RTN","XQ1",108,0) ; "RTN","XQ1",109,0) R ;RUN ROUTINE type option entry point "RTN","XQ1",110,0) G:'$D(^DIC(19,XQY,25)) OUT:$D(ZTQUEUED),M1^XQ S XQZ=^(25) G:'$L(XQZ) M1^XQ S:XQZ'[U XQZ=U_XQZ I XQZ["[" D DO^%XUCI G OUT "RTN","XQ1",111,0) D @XQZ G OUT "RTN","XQ1",112,0) ; "RTN","XQ1",113,0) W ;Window type option entry point "RTN","XQ1",114,0) S XQOK=1 "RTN","XQ1",115,0) I $D(^DIC(19,XQY,25)),$L(^(25)) D G OUT ;Routine type "RTN","XQ1",116,0) .S XQZ=^DIC(19,XQY,25) "RTN","XQ1",117,0) .S:XQZ'[U XQZ=U_XQZ "RTN","XQ1",118,0) .I XQZ["[" D DO^%XUCI Q "RTN","XQ1",119,0) .D @XQZ "RTN","XQ1",120,0) .Q "RTN","XQ1",121,0) ; "RTN","XQ1",122,0) ;I $D(^DIC(19,XQY,24)),$L(^(24)) D G:XQOK OUT ;Pointer type "RTN","XQ1",123,0) ;.S XQZ=^DIC(19,XQY,24) "RTN","XQ1",124,0) ;.S XQZ=$P($G(^XTV(8995,XQZ,0)),U) I XQZ="" S XQOK=0 Q "RTN","XQ1",125,0) ;.D PREP^XG "RTN","XQ1",126,0) ;.S XQWIN=$$NEXTNM^XGCLOAD("XQWIN") "RTN","XQ1",127,0) ;.D GET^XGCLOAD(XQZ,XQWIN,"^TMP($J)") "RTN","XQ1",128,0) ;.D GET^XGCLOAD(XQZ,$NA(^TMP($J,XQWIN))) "RTN","XQ1",129,0) ;.D M^XG(XQWIN,$NA(^TMP($J,XQWIN))) "RTN","XQ1",130,0) ;.D ESTA^XG() ;Send it off to window land "RTN","XQ1",131,0) ;.; "RTN","XQ1",132,0) ;.D K^XG(XQWIN) ;Return here after the ESTOP "RTN","XQ1",133,0) ;.;I $D(^%ZOSF("OS")),^%ZOSF("OS")["MSM" ZSTOP "RTN","XQ1",134,0) ;.Q "RTN","XQ1",135,0) ; "RTN","XQ1",136,0) G M1^XQ ;Window failed "RTN","XQ1",137,0) ; "RTN","XQ1",138,0) Z ;Window suite option "RTN","XQ1",139,0) G EN^XQSUITE "RTN","XQ1",140,0) ; "RTN","XQ1",141,0) S ;Server-type option pseudo entry-point can't be invoked from Meun System "RTN","XQ1",142,0) G OUT "RTN","XQ1",143,0) ; "RTN","XQ1",144,0) B ;Client/Server option can't be run from menu system "RTN","XQ1",145,0) G OUT "RTN","XQ1",146,0) ; "RTN","XQ1",147,0) L ;OE/RR Limited option "RTN","XQ1",148,0) O ;OE/RR Protocol (orderables) type option entry point "RTN","XQ1",149,0) X ;OE/RR Extended Action type option (Subset of Protocol type) "RTN","XQ1",150,0) Q ;OE/RR Protocol Menu type option entry point "RTN","XQ1",151,0) S XQOR=+XQY,XQOR(1)=XQT D XQ^XQOR K XQOR G OUT "RTN","XQ1",152,0) ; "RTN","XQ1",153,0) ZTSK ;Task Manager entry point "RTN","XQ1",154,0) S U="^" G:$G(XQSCH)'>0 ZTSK2 ;No reschedule "RTN","XQ1",155,0) S %=$$S^%ZTLOAD("Reschedule Task") "RTN","XQ1",156,0) S XQ=$G(^DIC(19.2,XQSCH,0)),XQY=+XQ Q:XQY'>0 "RTN","XQ1",157,0) K ZTQPARAM ;Build params from schedule in case we delete it. "RTN","XQ1",158,0) I $D(^DIC(19.2,XQSCH,3)),$L(^(3)) S ZTQPARAM=^(3) "RTN","XQ1",159,0) I $D(^DIC(19.2,XQSCH,2)) D ;Build other symbols "RTN","XQ1",160,0) . N X1,X2 S X2=XQSCH N XQSCH,XQY,XQ "RTN","XQ1",161,0) . F X1=0:0 S X1=$O(^DIC(19.2,X2,2,X1)) Q:X1'>0 S X=^(X1,0),@($P(X,U)_"="_$P(X,U,2)) "RTN","XQ1",162,0) . Q "RTN","XQ1",163,0) ; "RTN","XQ1",164,0) S X=$P($G(^DIC(19.2,XQSCH,1.1)),U) I X>0 D DUZ^XUP(X) ;User to run job ;p446 "RTN","XQ1",165,0) REQ D ;Set the user and Requeue "RTN","XQ1",166,0) . N DA,DIE,DR,X,X1,X2 "RTN","XQ1",167,0) . S X1=$P(XQ,U,2),X2=$P(XQ,U,6) ;Get params for new schedule "RTN","XQ1",168,0) . S DA=XQSCH,DIE="^DIC(19.2,",DR=$S((X2="")&($P(XQ,U,9)=""):".01///@",X2="":"2///@",1:"2////"_$$SCH^XLFDT(X2,+X1,1)) "RTN","XQ1",169,0) . L +^%ZTSK(ZTSK,0):15 D ^DIE L -^%ZTSK(ZTSK,0) ;File new schedule "RTN","XQ1",170,0) . Q "RTN","XQ1",171,0) ;ZTREQ is set by TM. "RTN","XQ1",172,0) ZTSK2 I '$D(XQY) K ZTREQ Q ;Leave task "RTN","XQ1",173,0) D UI^XQ12 "RTN","XQ1",174,0) Q:'$D(^DIC(19,XQY,0)) S XQY0=^(0),XQT=$P(XQY0,U,4) Q:XQT'="A"&(XQT'="P")&(XQT'="R") "RTN","XQ1",175,0) ;Kernel no longer supports reseting priority "RTN","XQ1",176,0) ;S X=$P(XQY0,U,8) I X>0,X<11 X ^%ZOSF("PRIORITY") "RTN","XQ1",177,0) I $P(XQY0,U,3)]""!($D(XQUIT)) S XQT="KILL" "RTN","XQ1",178,0) ; "RTN","XQ1",179,0) S %=$$S^%ZTLOAD("Run Task") "RTN","XQ1",180,0) RUN S:XQT="P"&$L(IO) XQIOP=ION_";"_IOST_";"_IOM_";"_IOSL G @XQT "RTN","XQ1",181,0) Q "VER") 8.0^22.2 "BLD",1723,6) ^589 **END** **END**