| [613] | 1 | GMTSNTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 20, 1995@15:13:16
|
|---|
| 2 | ;;2.7;Health Summary;;Oct 20, 1995
|
|---|
| 3 | ;;7.2;OCT 20, 1995@15:13:16
|
|---|
| 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 | GMTSPDXZ ;;4192536
|
|---|
| 13 | GMTSPL ;;6102762
|
|---|
| 14 | GMTSPLST ;;4003268
|
|---|
| 15 | GMTSPLSZ ;;3503422
|
|---|
| 16 | GMTSPN ;;9532427
|
|---|
| 17 | GMTSPN1 ;;7382807
|
|---|
| 18 | GMTSPN2 ;;6481703
|
|---|
| 19 | GMTSPNB ;;2073409
|
|---|
| 20 | GMTSPNE ;;3130541
|
|---|
| 21 | GMTSPNJ ;;4118293
|
|---|
| 22 | GMTSPNS ;;3368984
|
|---|
| 23 | GMTSPOS1 ;;7203788
|
|---|
| 24 | GMTSPOS2 ;;5930086
|
|---|
| 25 | GMTSPOST ;;14759909
|
|---|
| 26 | GMTSPP ;;10637870
|
|---|
| 27 | GMTSPREI ;;2805782
|
|---|
| 28 | GMTSPSG ;;2167928
|
|---|
| 29 | GMTSPSI ;;4674521
|
|---|
| 30 | GMTSPSO ;;4783059
|
|---|
| 31 | GMTSPSZO ;;5518919
|
|---|
| 32 | GMTSPXEP ;;2755760
|
|---|
| 33 | GMTSPXFP ;;1756378
|
|---|
| 34 | GMTSPXHP ;;506691
|
|---|
| 35 | GMTSPXHR ;;4148787
|
|---|
| 36 | GMTSPXIM ;;1706374
|
|---|
| 37 | GMTSPXM ;;1127679
|
|---|
| 38 | GMTSPXMP ;;3249792
|
|---|
| 39 | GMTSPXOP ;;6456010
|
|---|
| 40 | GMTSPXSK ;;1702860
|
|---|
| 41 | GMTSPXTP ;;2970412
|
|---|
| 42 | GMTSPXU1 ;;3092718
|
|---|
| 43 | GMTSPXU2 ;;5512565
|
|---|
| 44 | GMTSPXXP ;;1689771
|
|---|
| 45 | GMTSRAD ;;3215705
|
|---|
| 46 | GMTSRAE ;;6627828
|
|---|
| 47 | GMTSRAI ;;2397390
|
|---|
| 48 | GMTSRAS ;;5549827
|
|---|
| 49 | GMTSRASP ;;2974091
|
|---|
| 50 | GMTSRI ;;883054
|
|---|
| 51 | GMTSRM ;;8928900
|
|---|
| 52 | GMTSRM1 ;;8604086
|
|---|
| 53 | GMTSRM1A ;;2432893
|
|---|
| 54 | GMTSRM2 ;;1249750
|
|---|
| 55 | GMTSRM3 ;;5851502
|
|---|
| 56 | GMTSRM4 ;;2033224
|
|---|
| 57 | GMTSRM5 ;;7232509
|
|---|
| 58 | GMTSRN ;;4546519
|
|---|
| 59 | GMTSRO ;;11940993
|
|---|
| 60 | GMTSROB ;;2464741
|
|---|
| 61 | GMTSSOWK ;;252357
|
|---|
| 62 | GMTSSOWZ ;;8112766
|
|---|
| 63 | GMTSU ;;4614432
|
|---|
| 64 | GMTSUP ;;8491844
|
|---|
| 65 | GMTSUP1 ;;12410735
|
|---|
| 66 | GMTSVS ;;3389199
|
|---|
| 67 | GMTSVSS ;;3877801
|
|---|
