[613] | 1 | XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
|
---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
---|
| 3 | ;;7.3;2950425.092013
|
---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
| 5 | CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
---|
| 6 | ;
|
---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
---|
| 8 | ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
---|
| 10 | W ! G CONT
|
---|
| 11 | ROU ;;
|
---|
| 12 | XUCSINI1 ;;5671874
|
---|
| 13 | XUCSINI2 ;;5232622
|
---|
| 14 | XUCSINI3 ;;16094695
|
---|
| 15 | XUCSINI4 ;;3357794
|
---|
| 16 | XUCSINI5 ;;628012
|
---|
| 17 | XUCSINIS ;;2216765
|
---|
| 18 | XUCSINIT ;;10890951
|
---|
| 19 | XUCSLOAD ;;6778573
|
---|
| 20 | XUCSPRG ;;4520058
|
---|
| 21 | XUCSRV ;;5969322
|
---|
| 22 | XUCSTM ;;6457738
|
---|
| 23 | XUCSTME ;;13223145
|
---|
| 24 | XUCSUTL ;;2837344
|
---|
| 25 | XUCSUTL2 ;;6021611
|
---|
| 26 | XUCSUTL3 ;;11276783
|
---|
| 27 | XURTL ;;7949393
|
---|
| 28 | XURTL1 ;;7623474
|
---|
| 29 | XURTL2 ;;5911591
|
---|
| 30 | XURTL3 ;;9463174
|
---|
| 31 | XURTL4 ;;8083788
|
---|
| 32 | XURTLC ;;3647421
|
---|
| 33 | XURTLK ;;5463315
|
---|
| 34 | ZINDEX ;;7934389
|
---|
| 35 | ZINDX1 ;;5876099
|
---|
| 36 | ZINDX10 ;;11716270
|
---|
| 37 | ZINDX11 ;;6160284
|
---|
| 38 | ZINDX2 ;;4603647
|
---|
| 39 | ZINDX3 ;;3896672
|
---|
| 40 | ZINDX4 ;;4546127
|
---|
| 41 | ZINDX5 ;;6415684
|
---|
| 42 | ZINDX51 ;;8782796
|
---|
| 43 | ZINDX52 ;;2299766
|
---|
| 44 | ZINDX53 ;;4122137
|
---|
| 45 | ZINDX6 ;;12035964
|
---|
| 46 | ZINDX8 ;;6760814
|
---|
| 47 | ZINDX9 ;;4986099
|
---|
| 48 | ZINDXH ;;1579327
|
---|
| 49 | ZTEDIT ;;11385452
|
---|
| 50 | ZTEDIT1 ;;9783719
|
---|
| 51 | ZTEDIT2 ;;12580728
|
---|
| 52 | ZTEDIT3 ;;9890321
|
---|
| 53 | ZTEDIT4 ;;4936626
|
---|
| 54 | ZTGS ;;1511640
|
---|
| 55 | ZTP1 ;;7893577
|
---|
| 56 | ZTPP ;;7019346
|
---|
| 57 | ZTRDEL ;;959784
|
---|
| 58 | ZTRTHV ;;6018658
|
---|