- 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
