| 1 | GMTSNTEG ;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 | G CONT^GMTSNTE0
|
|---|
| 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 | GMTS ;;9747615
|
|---|
| 13 | GMTS1 ;;9107723
|
|---|
| 14 | GMTS2 ;;1686893
|
|---|
| 15 | GMTSADH ;;7009924
|
|---|
| 16 | GMTSADH1 ;;9118153
|
|---|
| 17 | GMTSADH2 ;;8921291
|
|---|
| 18 | GMTSADH3 ;;4175388
|
|---|
| 19 | GMTSADH4 ;;2108172
|
|---|
| 20 | GMTSADHC ;;7616551
|
|---|
| 21 | GMTSADOR ;;5770178
|
|---|
| 22 | GMTSALG ;;13299334
|
|---|
| 23 | GMTSALGB ;;3649701
|
|---|
| 24 | GMTSAMIE ;;2215141
|
|---|
| 25 | GMTSCI ;;980795
|
|---|
| 26 | GMTSCM ;;6771561
|
|---|
| 27 | GMTSCW ;;8466205
|
|---|
| 28 | GMTSDA ;;7935436
|
|---|
| 29 | GMTSDCB ;;3376310
|
|---|
| 30 | GMTSDD ;;5832737
|
|---|
| 31 | GMTSDEM ;;8355003
|
|---|
| 32 | GMTSDEMB ;;1645478
|
|---|
| 33 | GMTSDGA ;;3278741
|
|---|
| 34 | GMTSDGA1 ;;7480178
|
|---|
| 35 | GMTSDGA2 ;;5406373
|
|---|
| 36 | GMTSDGC1 ;;5335387
|
|---|
| 37 | GMTSDGC2 ;;3280399
|
|---|
| 38 | GMTSDGCH ;;6109698
|
|---|
| 39 | GMTSDGD ;;2236947
|
|---|
| 40 | GMTSDGH ;;2898086
|
|---|
| 41 | GMTSDGP ;;5958742
|
|---|
| 42 | GMTSDS ;;2014917
|
|---|
| 43 | GMTSDSB ;;1887589
|
|---|
| 44 | GMTSDVR ;;9357098
|
|---|
| 45 | GMTSENV ;;527430
|
|---|
| 46 | GMTSFH ;;6355772
|
|---|
| 47 | GMTSI001 ;;6797667
|
|---|
| 48 | GMTSI002 ;;8625906
|
|---|
| 49 | GMTSI003 ;;7915035
|
|---|
| 50 | GMTSI004 ;;7496079
|
|---|
| 51 | GMTSI005 ;;9611811
|
|---|
| 52 | GMTSI006 ;;9190966
|
|---|
| 53 | GMTSI007 ;;7703599
|
|---|
| 54 | GMTSI008 ;;4005876
|
|---|
| 55 | GMTSI009 ;;3932193
|
|---|
| 56 | GMTSI00A ;;827350
|
|---|
| 57 | GMTSI00B ;;8455149
|
|---|
| 58 | GMTSI00C ;;7584757
|
|---|
| 59 | GMTSI00D ;;8910779
|
|---|
| 60 | GMTSI00E ;;7448609
|
|---|
| 61 | GMTSI00F ;;2867454
|
|---|
| 62 | GMTSI00G ;;8852473
|
|---|
| 63 | GMTSI00H ;;8717091
|
|---|
| 64 | GMTSI00I ;;8773516
|
|---|
| 65 | GMTSI00J ;;9224995
|
|---|
| 66 | GMTSI00K ;;9276724
|
|---|
| 67 | GMTSI00L ;;8906270
|
|---|
| 68 | GMTSI00M ;;8948291
|
|---|
| 69 | GMTSI00N ;;8903831
|
|---|
| 70 | GMTSI00O ;;9109697
|
|---|
| 71 | GMTSI00P ;;8788001
|
|---|
| 72 | GMTSI00Q ;;9144600
|
|---|
| 73 | GMTSI00R ;;8661231
|
|---|
| 74 | GMTSI00S ;;9040355
|
|---|
| 75 | GMTSI00T ;;8440721
|
|---|
| 76 | GMTSI00U ;;8849266
|
|---|
| 77 | GMTSI00V ;;8597654
|
|---|
| 78 | GMTSI00W ;;8347201
|
|---|
| 79 | GMTSI00X ;;8589121
|
|---|
| 80 | GMTSI00Y ;;2513711
|
|---|
| 81 | GMTSI00Z ;;951613
|
|---|
| 82 | GMTSI010 ;;12236555
|
|---|
| 83 | GMTSI011 ;;10099099
|
|---|
| 84 | GMTSI012 ;;10044917
|
|---|
| 85 | GMTSI013 ;;6048930
|
|---|
| 86 | GMTSI014 ;;6222248
|
|---|
| 87 | GMTSI015 ;;6848123
|
|---|
| 88 | GMTSI016 ;;8673195
|
|---|
| 89 | GMTSI017 ;;7578064
|
|---|
| 90 | GMTSI018 ;;6048832
|
|---|
| 91 | GMTSI019 ;;5845546
|
|---|
| 92 | GMTSI01A ;;7616684
|
|---|
| 93 | GMTSI01B ;;7997413
|
|---|
| 94 | GMTSI01C ;;4992646
|
|---|
| 95 | GMTSI01D ;;899861
|
|---|
| 96 | GMTSINI1 ;;4982983
|
|---|
| 97 | GMTSINI2 ;;5232640
|
|---|
| 98 | GMTSINI3 ;;16807836
|
|---|
| 99 | GMTSINI4 ;;3357812
|
|---|
| 100 | GMTSINI5 ;;773825
|
|---|
| 101 | GMTSINIS ;;2215261
|
|---|
| 102 | GMTSINIT ;;10511864
|
|---|
| 103 | GMTSLOAD ;;5796287
|
|---|
| 104 | GMTSLRA ;;6876199
|
|---|
| 105 | GMTSLRAE ;;11147933
|
|---|
| 106 | GMTSLRB ;;2250319
|
|---|
| 107 | GMTSLRBE ;;3672773
|
|---|
| 108 | GMTSLRC ;;3788772
|
|---|
| 109 | GMTSLRCE ;;5397241
|
|---|
| 110 | GMTSLRCP ;;12992921
|
|---|
| 111 | GMTSLREE ;;6175432
|
|---|
| 112 | GMTSLREM ;;5357355
|
|---|
| 113 | GMTSLRM ;;10576209
|
|---|
| 114 | GMTSLRM1 ;;5092747
|
|---|
| 115 | GMTSLRMB ;;8141523
|
|---|
| 116 | GMTSLRME ;;7612887
|
|---|
| 117 | GMTSLRMX ;;7993355
|
|---|
| 118 | GMTSLROB ;;1646167
|
|---|
| 119 | GMTSLROE ;;6516628
|
|---|
| 120 | GMTSLROS ;;2358998
|
|---|
| 121 | GMTSLRPE ;;6517490
|
|---|
| 122 | GMTSLRS ;;4721162
|
|---|
| 123 | GMTSLRS7 ;;7478778
|
|---|
| 124 | GMTSLRSC ;;7505823
|
|---|
| 125 | GMTSLRSE ;;3321038
|
|---|
| 126 | GMTSLRT ;;2843052
|
|---|
| 127 | GMTSLRTE ;;1320704
|
|---|
| 128 | GMTSLTR ;;2903951
|
|---|
| 129 | GMTSLTR2 ;;3282162
|
|---|
| 130 | GMTSMCMA ;;7527516
|
|---|
| 131 | GMTSMCPZ ;;3705188
|
|---|
| 132 | GMTSMCZZ ;;5276229
|
|---|
| 133 | GMTSMHPE ;;8497501
|
|---|
| 134 | GMTSO001 ;;8057336
|
|---|
| 135 | GMTSO002 ;;6065150
|
|---|
| 136 | GMTSO003 ;;7512952
|
|---|
| 137 | GMTSO004 ;;7684644
|
|---|
| 138 | GMTSO005 ;;7812945
|
|---|
| 139 | GMTSO006 ;;7948804
|
|---|
| 140 | GMTSO007 ;;7635764
|
|---|
| 141 | GMTSO008 ;;7443333
|
|---|
| 142 | GMTSO009 ;;7739191
|
|---|
| 143 | GMTSO010 ;;7582026
|
|---|
| 144 | GMTSO011 ;;8030504
|
|---|
| 145 | GMTSO012 ;;8409618
|
|---|
| 146 | GMTSO013 ;;7775470
|
|---|
| 147 | GMTSO014 ;;7954689
|
|---|
| 148 | GMTSO015 ;;7423432
|
|---|
| 149 | GMTSO016 ;;7911113
|
|---|
| 150 | GMTSO017 ;;7145833
|
|---|
| 151 | GMTSO018 ;;7647663
|
|---|
| 152 | GMTSO019 ;;7562703
|
|---|
| 153 | GMTSO020 ;;7805175
|
|---|
| 154 | GMTSO021 ;;7281432
|
|---|
| 155 | GMTSO022 ;;7825234
|
|---|
| 156 | GMTSO023 ;;7784074
|
|---|
| 157 | GMTSO024 ;;725714
|
|---|
| 158 | GMTSONI1 ;;1703362
|
|---|
| 159 | GMTSONI2 ;;82866
|
|---|
| 160 | GMTSONI3 ;;10576628
|
|---|
| 161 | GMTSONIT ;;935085
|
|---|
| 162 | GMTSORC ;;4886475
|
|---|
| 163 | GMTSPCD ;;3405698
|
|---|
| 164 | GMTSPD ;;5306590
|
|---|
| 165 | GMTSPD2 ;;1434592
|
|---|
| 166 | GMTSPDX ;;6721830
|
|---|
