- AUM9101 ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, ICD 99.1 SUPPORT ; [ 11/03/1998 4:37 PM ]
- ;;99.1;TABLE MAINTENANCE;**1**;NOV 6,1998
- ;
- I '$G(DUZ) W !,"DUZ UNDEFINED OR ZERO.",! Q
- D HOME^%ZIS,DT^DICRW,HELP("INTRO")
- S (DIR(0),DIR("B"))="Y"
- S DIR("A")="Do you want to queue the update to TaskMan"
- S DIR("??")="^D HELP^AUM9101(""Q2"")"
- D ^DIR
- I $D(DIRUT) D HELP("Q2") Q
- G 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" D Q2 G AUM9101
- S X=+Y
- D H^%DTC
- S ZTDTH=%H_","_%T
- S ZTRTN="START^AUM9101",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
- KILL ^TMP("AUM9101",$J)
- D START^AUM91011
- S XMSUB=$P($P($T(+1),";",2)," ",4,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AUM9101"",$J,",XMY(1)="",XMY(DUZ)=""
- D ^XMD
- KILL ^TMP("AUM9101",$J)
- I $D(ZTQUEUED) S ZTREQ="@" Q
- W !!,"The results are in your MailMan 'IN' basket.",!
- Q
- ;
- INTRO ;
- ;;This updates standard tables according to the changes specified in
- ;;the ICD 99.1 update, affecting recode tables
- ;; RECODE ICD/APC.
- ;;
- ;;###
- ;
- Q2 ;
- ;;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 update.
- ;;###
- ;
- HELP(L) ;EP - Display text at label L.
- W !
- F %=1:1 W !?4,$P($T(@L+%),";",3) Q:$P($T(@L+%+1),";",3)="###"
- Q
- ;
- AUM9101 ; IHS/ASDST/GTH - STANDARD TABLE UPDATES, ICD 99.1 SUPPORT ; [ 11/03/1998 4:37 PM ]
- +1 ;;99.1;TABLE MAINTENANCE;**1**;NOV 6,1998
- +2 ;
- +3 IF '$GET(DUZ)
- WRITE !,"DUZ UNDEFINED OR ZERO.",!
- QUIT
- +4 DO HOME^%ZIS
- DO DT^DICRW
- DO HELP("INTRO")
- +5 SET (DIR(0),DIR("B"))="Y"
- +6 SET DIR("A")="Do you want to queue the update to TaskMan"
- +7 SET DIR("??")="^D HELP^AUM9101(""Q2"")"
- +8 DO ^DIR
- +9 IF $DATA(DIRUT)
- DO HELP("Q2")
- QUIT
- +10 IF 'Y
- GOTO START
- QUE ;
- +1 SET %DT="AERSX"
- SET %DT("A")="Requested Start Time: "
- SET %DT("B")="T@2015"
- SET %DT(0)="NOW"
- +2 DO ^%DT
- +3 IF Y<1
- WRITE !,"QUEUE INFORMATION MISSING - NOT QUEUED"
- DO Q2
- GOTO AUM9101
- +4 SET X=+Y
- +5 DO H^%DTC
- +6 SET ZTDTH=%H_","_%T
- +7 SET ZTRTN="START^AUM9101"
- SET ZTIO=""
- SET ZTDESC=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)
- +8 DO ^%ZTLOAD
- DO HOME^%ZIS
- +9 IF $DATA(ZTSK)
- WRITE !!,"QUEUED TO TASK ",ZTSK,!!,"A mail message with the results will be sent to your MailMan 'IN' basket.",!
- +10 IF '$TEST
- WRITE !!,*7,"QUEUE UNSUCCESSFUL. RESTART UTILITY."
- +11 QUIT
- +12 ;
- START ;EP - From Taskman
- +1 ;
- +2 NEW XMSUB,XMDUZ,XMTEXT,XMY
- +3 KILL ^TMP("AUM9101",$JOB)
- +4 DO START^AUM91011
- +5 SET XMSUB=$PIECE($PIECE($TEXT(+1),";",2)," ",4,99)
- SET XMDUZ=$SELECT($GET(DUZ):DUZ,1:.5)
- SET XMTEXT="^TMP(""AUM9101"",$J,"
- SET XMY(1)=""
- SET XMY(DUZ)=""
- +6 DO ^XMD
- +7 KILL ^TMP("AUM9101",$JOB)
- +8 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- QUIT
- +9 WRITE !!,"The results are in your MailMan 'IN' basket.",!
- +10 QUIT
- +11 ;
- INTRO ;
- +1 ;;This updates standard tables according to the changes specified in
- +2 ;;the ICD 99.1 update, affecting recode tables
- +3 ;; RECODE ICD/APC.
- +4 ;;
- +5 ;;###
- +6 ;
- Q2 ;
- +1 ;;Answer "Y" if you want to queue this standard table update to TaskMan.
- +2 ;;Answer "N" if you want to run this update interactively.
- +3 ;;
- +4 ;;If you run interactively, results will be displayed on your screen,
- +5 ;;as well as in the mail message sent to you and user 1. If you queue
- +6 ;;to TaskMan, please read the mail message for results of this update.
- +7 ;;###
- +8 ;
- HELP(L) ;EP - Display text at label L.
- +1 WRITE !
- +2 FOR %=1:1
- WRITE !?4,$PIECE($TEXT(@L+%),";",3)
- IF $PIECE($TEXT(@L+%+1),";",3)="###"
- QUIT
- +3 QUIT
- +4 ;
