- 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
