source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTSUMCK1.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1XTSUMCK1 ;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
9DQ ;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
32CHK(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 ;
38HDR S XTPG=XTPG+1
39 W !!,"MASTER ROUTINE SET USED RESIDES ON UCI,VOL: ",$P(XTX,U,2),?70,"PAGE ",XTPG,!,XTUL,!
40 Q
Note: See TracBrowser for help on using the repository browser.