| 1 | XTSUMCK1 ;Boise/MAW,SFISC/RSD-process routine checksum job results ;10/04/96 12:37
|
|---|
| 2 | ;;8.0;KERNEL;**44**;Jul 10, 1995
|
|---|
| 3 | ;this routine is normally called via an ALERT process...
|
|---|
| 4 | W !!,"ROUTINE CHECKSUM REPORT"
|
|---|
| 5 | I '$D(^XTMP("XTSUMCK",DUZ,"SYS")) W *7,!!,"ERROR -- NO data to retrieve!" Q
|
|---|
| 6 | D EN^XUTMDEVQ("DQ^XTSUMCK1","Print Routine Checksum Results","")
|
|---|
| 7 | W !
|
|---|
| 8 | Q
|
|---|
| 9 | DQ ;TaskMan and display/print entry point
|
|---|
| 10 | N DIR,DIRUT,XTX,XTUCI,XTROU,XTSYS,XTUL,XTPG,XTY,XTCNT,X,Y
|
|---|
| 11 | Q:'$D(^XTMP("XTSUMCK",DUZ)) S XTX=^(DUZ)
|
|---|
| 12 | S $P(XTUL,"-",IOM)="",XTPG=0,XTUCI=$P($P(XTX,U,2),",")
|
|---|
| 13 | I $E(IOST)="C" W @IOF
|
|---|
| 14 | D HDR
|
|---|
| 15 | W !?31,"JOB STARTED: ",$$FMTE^XLFDT($P(XTX,U,5))
|
|---|
| 16 | W !?33,"JOB ENDED: ",$$FMTE^XLFDT($P(XTX,U))
|
|---|
| 17 | S XTSYS="",DIR(0)="E"
|
|---|
| 18 | F S XTSYS=$O(^XTMP("XTSUMCK",DUZ,"SYS",XTSYS)) Q:XTSYS="" D Q:$D(DIRUT)
|
|---|
| 19 | .Q:$$CHK(4)
|
|---|
| 20 | .W !!,"UCI,VOL: ",XTUCI,",",XTSYS," -- "
|
|---|
| 21 | .S XTY=^XTMP("XTSUMCK",DUZ,"SYS",XTSYS) W:$P(XTY,U) $$FMTE^XLFDT($P(XTY,U))
|
|---|
| 22 | .W " -- ",$P(XTY,U,3)
|
|---|
| 23 | .S XTROU=""
|
|---|
| 24 | .F XTCNT=0:1 S XTROU=$O(^XTMP("XTSUMCK",DUZ,"SYS",XTSYS,XTROU)) Q:XTROU="" S Y=^(XTROU) D Q:$D(DIRUT)
|
|---|
| 25 | ..Q:$$CHK(2)
|
|---|
| 26 | ..W !?2,XTROU,?12,Y
|
|---|
| 27 | .W !!,?15,+$P(XTY,U,6)," Routine checked, ",XTCNT," failed.",!
|
|---|
| 28 | K ^XTMP("XTSUMCK",DUZ)
|
|---|
| 29 | I $E(IOST)="P" W @IOF
|
|---|
| 30 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 31 | Q
|
|---|
| 32 | CHK(Y) ;Y=excess lines, return 1 to exit & DIRUT is set
|
|---|
| 33 | Q:$Y<(IOSL-Y) 0
|
|---|
| 34 | I $E(IOST,1,2)="C-" D ^DIR Q:'Y 1
|
|---|
| 35 | W @IOF D HDR
|
|---|
| 36 | Q 0
|
|---|
| 37 | ;
|
|---|
| 38 | HDR S XTPG=XTPG+1
|
|---|
| 39 | W !!,"MASTER ROUTINE SET USED RESIDES ON UCI,VOL: ",$P(XTX,U,2),?70,"PAGE ",XTPG,!,XTUL,!
|
|---|
| 40 | Q
|
|---|
