AUM9308.m

AUM9308 ; DSD/GTH - STANDARD TABLE UPDATES, 25AUG93 MEMO ; [ 09/23/93  12:23 PM ]

 ;;93.1;TABLE MAINTENANCE;**6**;MARCH 23, 1993

 ;

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

 D HOME^%ZIS,DT^DICRW,INTRO

 W !!,"I need to update your HEALTH FACTORS data dictionary, first...",!!

 D ^AUM6INIT

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

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

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

 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^AUM9308",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^AUM93081,START^AUM93082,START^AUM93083

 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

 ;

INTRO ;

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

 ;;This patch updates SCB tables according to the changes specified

 ;;in the memo dated August 25, 1993, and updates entries in the

 ;;EXAM and HEALTH FACTORS files.  Please consult that memo, and the

 ;;mail message produced by this utility.

 Q

Q2 ;EP - From DIR

 W ! F %=2:1:7 W ?5,$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 you and user 1.  If you queue

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

 Q

AUM9308   ; DSD/GTH - STANDARD TABLE UPDATES, 25AUG93 MEMO ; [ 09/23/93  12:23 PM ]

 +1       ;;93.1;TABLE MAINTENANCE;**6**;MARCH 23, 1993

 +2       ;

 +3        IF '$GET(DUZ)

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

               QUIT 

 +4        DO HOME^%ZIS

           DO DT^DICRW

           DO INTRO

 +5        WRITE !!,"I need to update your HEALTH FACTORS data dictionary, first...",!!

 +6        DO ^AUM6INIT

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

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

 +9        SET DIR("??")="^D Q2^AUM9308"

 +10       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^AUM9308"

           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^AUM93081

           DO START^AUM93082

           DO START^AUM93083

 +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      ;

INTRO     ;

 +1        WRITE !

           FOR %=2:1:5

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

 +2       ;;This patch updates SCB tables according to the changes specified

 +3       ;;in the memo dated August 25, 1993, and updates entries in the

 +4       ;;EXAM and HEALTH FACTORS files.  Please consult that memo, and the

 +5       ;;mail message produced by this utility.

 +6        QUIT 

Q2        ;EP - From DIR

 +1        WRITE !

           FOR %=2:1:7

               WRITE ?5,$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 you and user 1.  If you queue

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

 +8        QUIT