| [613] | 1 | XTNTEG ;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 | G CONT^XTNTEG0
|
|---|
| 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 | XDRCNT ;;7651887
|
|---|
| 13 | XDRDADD ;;8133407
|
|---|
| 14 | XDRDADJ ;;4509269
|
|---|
| 15 | XDRDCOMP ;;4431965
|
|---|
| 16 | XDRDFPD ;;7816795
|
|---|
| 17 | XDRDLIST ;;7786460
|
|---|
| 18 | XDRDMAIN ;;5700890
|
|---|
| 19 | XDRDOC ;;19083
|
|---|
| 20 | XDRDOC1 ;;13351
|
|---|
| 21 | XDRDOC2 ;;19767
|
|---|
| 22 | XDRDPDTI ;;2075925
|
|---|
| 23 | XDRDPRGE ;;3959904
|
|---|
| 24 | XDRDQUE ;;9275556
|
|---|
| 25 | XDRDSCOR ;;1855732
|
|---|
| 26 | XDRDSTAT ;;2676366
|
|---|
| 27 | XDRDUP ;;3547600
|
|---|
| 28 | XDREMSG ;;4302480
|
|---|
| 29 | XDRERR ;;127648
|
|---|
| 30 | XDRHLP ;;2681700
|
|---|
| 31 | XDRMADD ;;6382715
|
|---|
| 32 | XDRMAIN ;;7563507
|
|---|
| 33 | XDRMAINI ;;14611797
|
|---|
| 34 | XDRMPACK ;;2927651
|
|---|
| 35 | XDRMRG ;;14311248
|
|---|
| 36 | XDRMRG1 ;;1874512
|
|---|
| 37 | XDRMSG ;;1827956
|
|---|
| 38 | XDRMVFY ;;1318075
|
|---|
| 39 | XDRPREI ;;293004
|
|---|
| 40 | XDRU1 ;;1782236
|
|---|
| 41 | XINDEX ;;7227772
|
|---|
| 42 | XINDX1 ;;6096231
|
|---|
| 43 | XINDX10 ;;12585180
|
|---|
| 44 | XINDX11 ;;7471101
|
|---|
| 45 | XINDX2 ;;5054188
|
|---|
| 46 | XINDX3 ;;3897455
|
|---|
| 47 | XINDX4 ;;4711071
|
|---|
| 48 | XINDX5 ;;6259999
|
|---|
| 49 | XINDX51 ;;9529173
|
|---|
| 50 | XINDX52 ;;2298647
|
|---|
| 51 | XINDX53 ;;4122188
|
|---|
| 52 | XINDX6 ;;10179476
|
|---|
| 53 | XINDX7 ;;7575886
|
|---|
| 54 | XINDX8 ;;6101428
|
|---|
| 55 | XINDX9 ;;4045898
|
|---|
| 56 | XTBASE ;;2331979
|
|---|
| 57 | XTCMFILN ;;4125344
|
|---|
| 58 | XTEDTVXD ;;1542362
|
|---|
| 59 | XTFC0 ;;11055774
|
|---|
| 60 | XTFC1 ;;14547133
|
|---|
| 61 | XTFCE ;;5859522
|
|---|
| 62 | XTFCE1 ;;6311273
|
|---|
| 63 | XTFCR ;;5587602
|
|---|
| 64 | XTFCR1 ;;3692308
|
|---|
| 65 | XTINEND ;;5215462
|
|---|
| 66 | XTINI001 ;;5950864
|
|---|
| 67 | XTINI002 ;;4393549
|
|---|
| 68 | XTINI003 ;;6019987
|
|---|
| 69 | XTINI004 ;;4028880
|
|---|
| 70 | XTINI005 ;;3990558
|
|---|
| 71 | XTINI006 ;;9416677
|
|---|
| 72 | XTINI007 ;;9086371
|
|---|
| 73 | XTINI008 ;;8419298
|
|---|
| 74 | XTINI009 ;;8019911
|
|---|
| 75 | XTINI00A ;;9113926
|
|---|
| 76 | XTINI00B ;;11110278
|
|---|
| 77 | XTINI00C ;;11151493
|
|---|
| 78 | XTINI00D ;;9306443
|
|---|
| 79 | XTINI00E ;;8494510
|
|---|
| 80 | XTINI00F ;;8489467
|
|---|
| 81 | XTINI00G ;;7747693
|
|---|
| 82 | XTINI00H ;;7094018
|
|---|
| 83 | XTINI00I ;;7643278
|
|---|
| 84 | XTINI00J ;;8405097
|
|---|
| 85 | XTINI00K ;;7198108
|
|---|
| 86 | XTINI00L ;;6651500
|
|---|
| 87 | XTINI00M ;;8180768
|
|---|
| 88 | XTINI00N ;;7132260
|
|---|
| 89 | XTINI00O ;;2910462
|
|---|
| 90 | XTINI00P ;;7694041
|
|---|
| 91 | XTINI00Q ;;8160242
|
|---|
| 92 | XTINI00R ;;9440499
|
|---|
| 93 | XTINI00S ;;9016307
|
|---|
| 94 | XTINI00T ;;9491800
|
|---|
| 95 | XTINI00U ;;10283373
|
|---|
| 96 | XTINI00V ;;8766708
|
|---|
| 97 | XTINI00W ;;6509886
|
|---|
| 98 | XTINI00X ;;8595714
|
|---|
| 99 | XTINI00Y ;;7948819
|
|---|
| 100 | XTINI00Z ;;1773424
|
|---|
| 101 | XTINI010 ;;7071607
|
|---|
| 102 | XTINI011 ;;5531060
|
|---|
| 103 | XTINI012 ;;7968888
|
|---|
| 104 | XTINI013 ;;11142565
|
|---|
| 105 | XTINI014 ;;2687098
|
|---|
| 106 | XTINI015 ;;8767076
|
|---|
| 107 | XTINI016 ;;3859202
|
|---|
| 108 | XTINI017 ;;7490625
|
|---|
| 109 | XTINI018 ;;2613367
|
|---|
| 110 | XTINI019 ;;4541347
|
|---|
| 111 | XTINI01A ;;7350290
|
|---|
| 112 | XTINI01B ;;3719011
|
|---|
| 113 | XTINI01C ;;6289769
|
|---|
| 114 | XTINI01D ;;1212716
|
|---|
| 115 | XTINI01E ;;5998915
|
|---|
| 116 | XTINI01F ;;5482770
|
|---|
| 117 | XTINI01G ;;3469421
|
|---|
| 118 | XTINI01H ;;1876516
|
|---|
| 119 | XTINI01I ;;5948679
|
|---|
| 120 | XTINI01J ;;5624949
|
|---|
| 121 | XTINI01K ;;7118498
|
|---|
| 122 | XTINI01L ;;5020375
|
|---|
| 123 | XTINI01M ;;6515584
|
|---|
| 124 | XTINI01N ;;7612374
|
|---|
| 125 | XTINI01O ;;7804125
|
|---|
| 126 | XTINI01P ;;7864176
|
|---|
| 127 | XTINI01Q ;;7980433
|
|---|
| 128 | XTINI01R ;;7872517
|
|---|
| 129 | XTINI01S ;;7885668
|
|---|
| 130 | XTINI01T ;;8156338
|
|---|
| 131 | XTINI01U ;;5743708
|
|---|
| 132 | XTINI01V ;;8379152
|
|---|
| 133 | XTINI01W ;;7143097
|
|---|
| 134 | XTINI01X ;;6494785
|
|---|
| 135 | XTINI01Y ;;6468654
|
|---|
| 136 | XTINI01Z ;;6344717
|
|---|
| 137 | XTINI020 ;;6053332
|
|---|
| 138 | XTINI021 ;;6154942
|
|---|
| 139 | XTINI022 ;;6263758
|
|---|
| 140 | XTINI023 ;;6988435
|
|---|
| 141 | XTINI024 ;;7095170
|
|---|
| 142 | XTINI025 ;;5225531
|
|---|
| 143 | XTINI026 ;;6836611
|
|---|
| 144 | XTINI027 ;;7165347
|
|---|
| 145 | XTINI028 ;;7867999
|
|---|
| 146 | XTINI029 ;;5902113
|
|---|
| 147 | XTINI02A ;;7114778
|
|---|
| 148 | XTINI02B ;;6562588
|
|---|
| 149 | XTINI02C ;;5066519
|
|---|
| 150 | XTINI02D ;;4746121
|
|---|
| 151 | XTINI02E ;;3747162
|
|---|
| 152 | XTINI02F ;;1763576
|
|---|
| 153 | XTINIS ;;2134872
|
|---|
| 154 | XTINIT ;;11072830
|
|---|
| 155 | XTINIT1 ;;5762600
|
|---|
| 156 | XTINIT2 ;;5232093
|
|---|
| 157 | XTINIT3 ;;16090016
|
|---|
| 158 | XTINIT4 ;;3357263
|
|---|
| 159 | XTINIT5 ;;1525744
|
|---|
| 160 | XTINITY ;;15382450
|
|---|
| 161 | XTINOK ;;2394003
|
|---|
| 162 | XTKERM1 ;;5596187
|
|---|
| 163 | XTKERM2 ;;7359658
|
|---|
| 164 | XTKERM3 ;;2782884
|
|---|
| 165 | XTKERM4 ;;5378382
|
|---|
| 166 | XTKERMIT ;;2016322
|
|---|
| 167 | XTLATSET ;;6413686
|
|---|
| 168 | XTLKDICL ;;2562328
|
|---|
