| 1 | XTNTEG0 ;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^XTNTEG01
|
---|
| 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 | XTLKEFOP ;;12288261
|
---|
| 13 | XTLKKSCH ;;5117176
|
---|
| 14 | XTLKKWL ;;2673960
|
---|
| 15 | XTLKKWL1 ;;8089076
|
---|
| 16 | XTLKKWL2 ;;8570562
|
---|
| 17 | XTLKKWLD ;;830939
|
---|
| 18 | XTLKMGR ;;8218132
|
---|
| 19 | XTLKPRT ;;3890354
|
---|
| 20 | XTLKPST ;;561010
|
---|
| 21 | XTLKTICD ;;2688040
|
---|
| 22 | XTLKTOKN ;;3207127
|
---|
| 23 | XTLKWIC ;;2000831
|
---|
| 24 | XTRCMP ;;4749536
|
---|
| 25 | XTRGRPE ;;342530
|
---|
| 26 | XTRTHV ;;6157862
|
---|
| 27 | XTSPING ;;258974
|
---|
| 28 | XTSUMBLD ;;10426704
|
---|
| 29 | XTVCHG ;;2433675
|
---|
| 30 | XTVGC1 ;;22093368
|
---|
| 31 | XTVGC1A ;;6994193
|
---|
| 32 | XTVGC2 ;;20558103
|
---|
| 33 | XTVGC2A ;;17354751
|
---|
| 34 | XTVGC2A1 ;;9865117
|
---|
| 35 | XTVNUM ;;7898211
|
---|
| 36 | XTVRC1 ;;9444013
|
---|
| 37 | XTVRC1A ;;18908374
|
---|
| 38 | XTVRC1Z ;;573177
|
---|
| 39 | XTVRC2 ;;18916359
|
---|
| 40 | XTVRCRES ;;5210571
|
---|
| 41 | XUCIN001 ;;6331531
|
---|
| 42 | XUCIN002 ;;7847815
|
---|
| 43 | XUCIN003 ;;5328738
|
---|
| 44 | XUCIN004 ;;5633578
|
---|
| 45 | XUCIN005 ;;4016858
|
---|
| 46 | XUCIN006 ;;6384285
|
---|
| 47 | XUCIN007 ;;2842241
|
---|
| 48 | XUCIN008 ;;4454633
|
---|
| 49 | XUCIN009 ;;7054787
|
---|
| 50 | XUCIN00A ;;3478716
|
---|
| 51 | XUCIN00B ;;3162587
|
---|
| 52 | XUCIN00C ;;4414148
|
---|
| 53 | XUCIN00D ;;5426793
|
---|
| 54 | XUCIN00E ;;6950804
|
---|
| 55 | XUCIN00F ;;6487754
|
---|
| 56 | XUCIN00G ;;5536118
|
---|
| 57 | XUCIN00H ;;5595361
|
---|
| 58 | XUCIN00I ;;3636839
|
---|
| 59 | XUCIN00J ;;4985882
|
---|
| 60 | XUCIN00K ;;1326743
|
---|
| 61 | XUCIN00L ;;1575674
|
---|
| 62 | XUCIN00M ;;5562214
|
---|
| 63 | XUCIN00N ;;5268349
|
---|
| 64 | XUCIN00O ;;4317063
|
---|
| 65 | XUCIN00P ;;5661675
|
---|
| 66 | XUCIN00Q ;;7342486
|
---|
| 67 | XUCIN00R ;;8641639
|
---|
| 68 | XUCIN00S ;;5853502
|
---|
| 69 | XUCIN00T ;;5815554
|
---|
| 70 | XUCIN00U ;;6204905
|
---|
| 71 | XUCIN00V ;;4353627
|
---|
| 72 | XUCIN00W ;;5144510
|
---|
| 73 | XUCIN00X ;;5630258
|
---|
| 74 | XUCIN00Y ;;6331276
|
---|
| 75 | XUCIN00Z ;;7705187
|
---|
| 76 | XUCIN010 ;;5146314
|
---|
| 77 | XUCIN011 ;;2024106
|
---|
| 78 | XUCINIS ;;2173432
|
---|
| 79 | XUCINIT ;;10781726
|
---|
| 80 | XUCINIT1 ;;5752814
|
---|
| 81 | XUCINIT2 ;;5232654
|
---|
| 82 | XUCINIT3 ;;16094813
|
---|
| 83 | XUCINIT4 ;;3357826
|
---|
| 84 | XUCINIT5 ;;1367458
|
---|
| 85 | XUCMBR1 ;;5837802
|
---|
| 86 | XUCMBR2 ;;10844732
|
---|
| 87 | XUCMBR3 ;;9625086
|
---|
| 88 | XUCMBRTL ;;8754496
|
---|
| 89 | XUCMDSL ;;4295323
|
---|
| 90 | XUCMFGI ;;1467166
|
---|
| 91 | XUCMFIL ;;5382924
|
---|
| 92 | XUCMGRAF ;;1687213
|
---|
| 93 | XUCMNI2A ;;20928196
|
---|
| 94 | XUCMNIT ;;11960925
|
---|
| 95 | XUCMNIT1 ;;7377867
|
---|
| 96 | XUCMNIT2 ;;16835662
|
---|
| 97 | XUCMNIT3 ;;5784566
|
---|
| 98 | XUCMNIT4 ;;11052588
|
---|
| 99 | XUCMNIT5 ;;4264655
|
---|
| 100 | XUCMNT3A ;;10767827
|
---|
| 101 | XUCMPA ;;7085998
|
---|
| 102 | XUCMPA1 ;;7618346
|
---|
| 103 | XUCMPA2 ;;6586755
|
---|
| 104 | XUCMPA2A ;;5655040
|
---|
| 105 | XUCMPA2B ;;9904709
|
---|
| 106 | XUCMPOST ;;1750081
|
---|
| 107 | XUCMPRE ;;2500182
|
---|
| 108 | XUCMTM ;;9551796
|
---|
| 109 | XUCMTM1 ;;3008863
|
---|
| 110 | XUCMVPG ;;4016494
|
---|
| 111 | XUCMVPG1 ;;5894133
|
---|
| 112 | XUCMVPI ;;5930227
|
---|
| 113 | XUCMVPM ;;4086669
|
---|
| 114 | XUCMVPM1 ;;11280175
|
---|
| 115 | XUCMVPS ;;6211427
|
---|
| 116 | XUCMVPU ;;3071852
|
---|
| 117 | XUCPCLCT ;;3573145
|
---|
| 118 | XUCPFRMT ;;13051323
|
---|
| 119 | XUCPRAW ;;13134609
|
---|
| 120 | XUCS1E ;;5744464
|
---|
| 121 | XUCS1R ;;11414218
|
---|
| 122 | XUCS1RA ;;11144520
|
---|
| 123 | XUCS1RB ;;11341248
|
---|
| 124 | XUCS1RBA ;;6176633
|
---|
| 125 | XUCS2E ;;5426963
|
---|
| 126 | XUCS2R ;;7996923
|
---|
| 127 | XUCS2RA ;;6913779
|
---|
| 128 | XUCS2RB ;;8006304
|
---|
| 129 | XUCS2RBA ;;4179178
|
---|
| 130 | XUCS4E ;;1556880
|
---|
| 131 | XUCS4R ;;11653758
|
---|
| 132 | XUCS4RB ;;9766381
|
---|
| 133 | XUCS5E ;;1037983
|
---|
| 134 | XUCS5EA ;;5223554
|
---|
| 135 | XUCS6E ;;1362981
|
---|
| 136 | XUCS6R ;;6132484
|
---|
| 137 | XUCS8E ;;2709944
|
---|
| 138 | XUCS8R ;;12237493
|
---|
| 139 | XUCS8RB ;;10517473
|
---|
| 140 | XUCS8RG ;;5086949
|
---|
| 141 | XUCS8RGA ;;4599537
|
---|
| 142 | XUCSCDE ;;3642152
|
---|
| 143 | XUCSCDG ;;6572594
|
---|
| 144 | XUCSCDGA ;;4312009
|
---|
| 145 | XUCSCDR ;;9885385
|
---|
| 146 | XUCSCDRB ;;8466812
|
---|
| 147 | XUCSI001 ;;6807214
|
---|
| 148 | XUCSI002 ;;8095362
|
---|
| 149 | XUCSI003 ;;7090131
|
---|
| 150 | XUCSI004 ;;6290195
|
---|
| 151 | XUCSI005 ;;3935311
|
---|
| 152 | XUCSI006 ;;4874125
|
---|
| 153 | XUCSI007 ;;6391003
|
---|
| 154 | XUCSI008 ;;6245860
|
---|
| 155 | XUCSI009 ;;6641536
|
---|
| 156 | XUCSI00A ;;7072648
|
---|
| 157 | XUCSI00B ;;6183955
|
---|
| 158 | XUCSI00C ;;5840656
|
---|
| 159 | XUCSI00D ;;5871453
|
---|
| 160 | XUCSI00E ;;2444351
|
---|
| 161 | XUCSI00F ;;850326
|
---|
| 162 | XUCSI00G ;;5117155
|
---|
| 163 | XUCSI00H ;;7689858
|
---|
| 164 | XUCSI00I ;;6887131
|
---|
| 165 | XUCSI00J ;;6573491
|
---|
| 166 | XUCSI00K ;;6171637
|
---|
| 167 | XUCSI00L ;;4221793
|
---|