| 1 | XQ8A ;SEA/LUKE - Rebuild menus in all production accounts ;06/26/2000 09:15
|
|---|
| 2 | ;;8.0;KERNEL;**46,157**;Jul 10, 1995
|
|---|
| 3 | BLD1 ;Build the ^XUTL("XQO") for a single XQDIC in all production UCI's
|
|---|
| 4 | S XQ8SV=XQY_U_XQDIC_U_XQY0
|
|---|
| 5 | BLD12 K DIC S DIC="^DIC(19,",DIC(0)="AEQMZ" D ^DIC I Y<1 K DIC Q
|
|---|
| 6 | I $P(Y(0),U,4)'="M" W !!,$P(Y(0),U)," is not a menu-type option and can't be compiled." G BLD12
|
|---|
| 7 | S XQDIC="P"_+Y,XQXUF="" I +Y=$O(^DIC(19,"B","XUCOMMAND",0)) S XQDIC="PXU" K XQXUF
|
|---|
| 8 | S DIR(0)="Y",DIR("A")="Que rebuilds on all production UCI's",DIR("B")="N",DIR("?")="Answering 'Y' will cause a job to be queued on all production UCI's" D ^DIR S XQUR=Y
|
|---|
| 9 | W !!,"Task number(s):" S (ZTUCI,ZTVOL)="" D FIRE
|
|---|
| 10 | I 'XQUR G OUT
|
|---|
| 11 | S ZTVOL=0 D GETENV^%ZOSV S XQHERE=$P(Y,U,2),XQPROD=$P(^%ZOSF("PROD"),",")
|
|---|
| 12 | F XQI=0:0 S ZTVOL=$O(^%ZIS(14.5,"B",ZTVOL)) Q:ZTVOL="" S ZTUCI=$O(^%ZIS(14.6,"AT",XQPROD,XQHERE,ZTVOL,"")) I ZTUCI]"" D FIRE
|
|---|
| 13 | ;
|
|---|
| 14 | OUT ;Exit here
|
|---|
| 15 | S XQY=+XQ8SV,XQDIC=$P(XQ8SV,U,2),XQY0=$P(XQ8SV,3,99)
|
|---|
| 16 | K %,%X,%Y,DIC,DIR,XQ8SV,XQDATE,XQFG1,XQHERE,XQI,XQPROD,XQRE,XQUCI,XQUR,XQVOL,XQXUF,ZTSK,ZTUCI,ZTVOL,Y
|
|---|
| 17 | Q
|
|---|
| 18 | FIRE ;Fire off a task in selected UCI
|
|---|
| 19 | S (XQRE,XQFG1)=0,ZTIO="",ZTRTN="PM1^XQ8",ZTDTH=$H,ZTSAVE("XQDIC")="",ZTSAVE("XQRE")="",ZTSAVE("XQFG1")="",ZTDESC="Rebuilding "_XQDIC_" from FIRE^XQ8A"
|
|---|
| 20 | S:$D(XQXUF) ZTSAVE("XQXUF")=""
|
|---|
| 21 | D ^%ZTLOAD W " ",ZTSK
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | ALL ;Rebuild menus in all UCI's marked in the UCI Association Table
|
|---|
| 25 | ; which is in %ZIS(14.6)
|
|---|
| 26 | D ^XQDATE S XQDATE=%Y
|
|---|
| 27 | K ^DIC(19,"AT")
|
|---|
| 28 | S XQVOL=""
|
|---|
| 29 | F S XQVOL=$O(^%ZIS(14.5,"B",XQVOL)) Q:XQVOL="" D
|
|---|
| 30 | .S XQUCI=""
|
|---|
| 31 | .F S XQUCI=$O(^%ZIS(14.6,"AV",XQVOL,XQUCI)) Q:XQUCI="" D
|
|---|
| 32 | ..S XQN=$O(^%ZIS(14.6,"AV",XQVOL,XQUCI,0)) Q:XQN=""
|
|---|
| 33 | ..I $P(^%ZIS(14.6,XQN,0),U,7) D FIRE2
|
|---|
| 34 | ..Q
|
|---|
| 35 | .Q
|
|---|
| 36 | K %,%Y,XQDATE,XQUCI,XQVOL
|
|---|
| 37 | Q
|
|---|
| 38 | FIRE2 ;Queue menubuild in a particular UCI
|
|---|
| 39 | S (XQRE,XQFG1)=0,ZTSAVE("XQRE")="",ZTSAVE("XQFG1")=""
|
|---|
| 40 | S ZTCPU=XQVOL,ZTUCI=XQUCI
|
|---|
| 41 | S ZTRTN="QUE^XQ81",ZTDTH=$H,ZTIO=""
|
|---|
| 42 | S ZTDESC="Menu rebuild in "_ZTCPU_","_ZTUCI_" on "_XQDATE
|
|---|
| 43 | D ^%ZTLOAD
|
|---|
| 44 | Q
|
|---|
