AUM9304.m

AUM9304 ; DSM/GTH - STANDARD TABLE UPDATES, 6APR93 MEMO ; [ 04/12/93  10:23 AM ]

 ;;93.1;TABLE MAINTENANCE;**1**;APR 06, 1993

 ;

 I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q

 D HOME^%ZIS,DT^DICRW,INTRO

 S (DIR(0),DIR("B"))="Y"

 S DIR("A")="Do you want to queue the utility to TaskMan"

 S DIR("??")="^D Q2^AUM9304"

 D ^DIR G Q2:$D(DIRUT),START:'Y

QUE ;

 S %DT="AERSX",%DT("A")="Requested Start Time: ",%DT("B")="T@2015",%DT(0)="NOW" D ^%DT

 I Y<1 W !,"QUEUE INFORMATION MISSING - NOT QUEUED",!!,"Okay...",! D Q2 Q

 S X=+Y D H^%DTC S ZTDTH=%H_","_%T

 S ZTRTN="START^AUM9304",ZTIO="",ZTDESC=$P($P($T(+1),";",2)," ",4,99)

 D ^%ZTLOAD,HOME^%ZIS

 I $D(ZTSK) W !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!

 E  W !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."

 Q

START ;EP - From Taskman

 ;

 NEW XMSUB,XMDUZ,XMTEXT,XMY

 K ^TMP($J)

 D START^AUM93041,START^AUM93042

 S (XMSUB,XMDUZ)=$P($P($T(+1),";",2)," ",4,99),XMTEXT="^TMP($J,""RSLT"",",XMY(1)="",XMY(DUZ)="" D ^XMD

 K ^TMP($J)

 I $D(ZTQUEUED) S ZTREQ="@"

 E  W !!,"The results are in your MailMan 'IN' basket.",!

 Q

 ;

 Q 

INTRO ;

 W ! F %=2:1:5 W $P($T(INTRO+%),";;",2),!

 ;;This patch updates standard tables according to the changes

 ;;specified in the memo dated April 6, 1993.  Not all the

 ;;changes listed in that memo are automated.  Please consult

 ;;that memo, and the mail message produced by this utility.

 Q

Q2 ;EP - From DIR

 W ! F %=2:1:7 W $P($T(Q2+%),";;",2),!

 ;;Answer "Y" if you want to queue this standard table update to TaskMan.

 ;;Answer "N" if you want to run this update interactively.

 ;;

 ;;If you run interactively, results will be displayed on your screen,

 ;;as well as in the mail message sent to user 1.  If you queue to

 ;;TaskMan, please read the mail message for results of this patch.

 Q

AUM9304   ; DSM/GTH - STANDARD TABLE UPDATES, 6APR93 MEMO ; [ 04/12/93  10:23 AM ]

 +1       ;;93.1;TABLE MAINTENANCE;**1**;APR 06, 1993

 +2       ;

 +3        IF '$GET(DUZ)

               WRITE !,"DUZ UNDEFINED OR ZERO.",!

               QUIT 

 +4        DO HOME^%ZIS

           DO DT^DICRW

           DO INTRO

 +5        SET (DIR(0),DIR("B"))="Y"

 +6        SET DIR("A")="Do you want to queue the utility to TaskMan"

 +7        SET DIR("??")="^D Q2^AUM9304"

 +8        DO ^DIR

           IF $DATA(DIRUT)

               GOTO Q2

           IF 'Y

               GOTO START

QUE       ;

 +1        SET %DT="AERSX"

           SET %DT("A")="Requested Start Time: "

           SET %DT("B")="T@2015"

           SET %DT(0)="NOW"

           DO ^%DT

 +2        IF Y<1

               WRITE !,"QUEUE INFORMATION MISSING - NOT QUEUED",!!,"Okay...",!

               DO Q2

               QUIT 

 +3        SET X=+Y

           DO H^%DTC

           SET ZTDTH=%H_","_%T

 +4        SET ZTRTN="START^AUM9304"

           SET ZTIO=""

           SET ZTDESC=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)

 +5        DO ^%ZTLOAD

           DO HOME^%ZIS

 +6        IF $DATA(ZTSK)

               WRITE !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!

 +7       IF '$TEST

               WRITE !!,*7,"QUEUE UNSUCCESSFUL.  RESTART UTILITY."

 +8        QUIT 

START     ;EP - From Taskman

 +1       ;

 +2        NEW XMSUB,XMDUZ,XMTEXT,XMY

 +3        KILL ^TMP($JOB)

 +4        DO START^AUM93041

           DO START^AUM93042

 +5        SET (XMSUB,XMDUZ)=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)

           SET XMTEXT="^TMP($J,""RSLT"","

           SET XMY(1)=""

           SET XMY(DUZ)=""

           DO ^XMD

 +6        KILL ^TMP($JOB)

 +7        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +8       IF '$TEST

               WRITE !!,"The results are in your MailMan 'IN' basket.",!

 +9        QUIT 

 +10      ;

 +11       QUIT 

INTRO     ;

 +1        WRITE !

           FOR %=2:1:5

               WRITE $PIECE($TEXT(INTRO+%),";;",2),!

 +2       ;;This patch updates standard tables according to the changes

 +3       ;;specified in the memo dated April 6, 1993.  Not all the

 +4       ;;changes listed in that memo are automated.  Please consult

 +5       ;;that memo, and the mail message produced by this utility.

 +6        QUIT 

Q2        ;EP - From DIR

 +1        WRITE !

           FOR %=2:1:7

               WRITE $PIECE($TEXT(Q2+%),";;",2),!

 +2       ;;Answer "Y" if you want to queue this standard table update to TaskMan.

 +3       ;;Answer "N" if you want to run this update interactively.

 +4       ;;

 +5       ;;If you run interactively, results will be displayed on your screen,

 +6       ;;as well as in the mail message sent to user 1.  If you queue to

 +7       ;;TaskMan, please read the mail message for results of this patch.

 +8        QUIT