| 1 | IBNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;7.2;MAR 21, 1994@00:43:44
|
|---|
| 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 | IBOCPD ;;1720455
|
|---|
| 13 | IBOCPDS ;;5830293
|
|---|
| 14 | IBODISP ;;2933885
|
|---|
| 15 | IBODIV ;;5128254
|
|---|
| 16 | IBOEMP ;;6678171
|
|---|
| 17 | IBOEMP1 ;;10672548
|
|---|
| 18 | IBOEMP2 ;;6906404
|
|---|
| 19 | IBOHLD1 ;;4207713
|
|---|
| 20 | IBOHLD2 ;;5592060
|
|---|
| 21 | IBOLK ;;7791103
|
|---|
| 22 | IBOLK1 ;;2492902
|
|---|
| 23 | IBOMBL ;;8192932
|
|---|
| 24 | IBOMTC ;;1690451
|
|---|
| 25 | IBOMTC1 ;;4373193
|
|---|
| 26 | IBOMTE ;;5475821
|
|---|
| 27 | IBOMTE1 ;;7538361
|
|---|
| 28 | IBOMTE2 ;;3031067
|
|---|
| 29 | IBOMTP ;;1425622
|
|---|
| 30 | IBOMTP1 ;;8257030
|
|---|
| 31 | IBORAT ;;2629438
|
|---|
| 32 | IBORAT1A ;;1249079
|
|---|
| 33 | IBORAT1B ;;747816
|
|---|
| 34 | IBORAT1C ;;2564792
|
|---|
| 35 | IBORAT2A ;;2888714
|
|---|
| 36 | IBORAT2B ;;1609133
|
|---|
| 37 | IBORAT2C ;;4187545
|
|---|
| 38 | IBORT ;;12589852
|
|---|
| 39 | IBORT1 ;;5196896
|
|---|
| 40 | IBOST ;;8728133
|
|---|
| 41 | IBOSTUS ;;8222172
|
|---|
| 42 | IBOSTUS1 ;;13901156
|
|---|
| 43 | IBOTR ;;6890483
|
|---|
| 44 | IBOTR1 ;;9609343
|
|---|
| 45 | IBOTR2 ;;4054313
|
|---|
| 46 | IBOTR3 ;;7294292
|
|---|
| 47 | IBOTR4 ;;4986294
|
|---|
| 48 | IBOUNP1 ;;5103611
|
|---|
| 49 | IBOUNP2 ;;5551837
|
|---|
| 50 | IBOUNP3 ;;11102312
|
|---|
| 51 | IBOUNP4 ;;5816740
|
|---|
| 52 | IBOUNP5 ;;4930314
|
|---|
| 53 | IBOUNP6 ;;11719330
|
|---|
| 54 | IBOUTL ;;3588665
|
|---|
| 55 | IBOVOP ;;3951706
|
|---|
| 56 | IBOVOP1 ;;6521237
|
|---|
| 57 | IBOVOP2 ;;6328287
|
|---|
| 58 | IBP ;;4383002
|
|---|
| 59 | IBPA ;;5621480
|
|---|
| 60 | IBPEX ;;4674014
|
|---|
| 61 | IBPF ;;3366298
|
|---|
| 62 | IBPF1 ;;3550746
|
|---|
| 63 | IBPFU ;;1975348
|
|---|
| 64 | IBPO ;;6256568
|
|---|
| 65 | IBPP ;;3866201
|
|---|
| 66 | IBPU ;;6660057
|
|---|
| 67 | IBPU1 ;;4549333
|
|---|
| 68 | IBPU2 ;;3153479
|
|---|
| 69 | IBPUBUL ;;4295755
|
|---|
| 70 | IBPUDEL ;;9049505
|
|---|
| 71 | IBR ;;4785208
|
|---|
| 72 | IBRBUL ;;4871478
|
|---|
| 73 | IBRCON1 ;;11061579
|
|---|
| 74 | IBRCON2 ;;5758144
|
|---|
| 75 | IBRCON3 ;;2246092
|
|---|
| 76 | IBRFN ;;1579924
|
|---|
| 77 | IBRFN1 ;;2791885
|
|---|
| 78 | IBRFN2 ;;3905109
|
|---|
| 79 | IBRREL ;;10253828
|
|---|
| 80 | IBRUTL ;;2441491
|
|---|
| 81 | IBTOAT ;;5478898
|
|---|
| 82 | IBTOAT1 ;;5305537
|
|---|
| 83 | IBTOAT2 ;;2761554
|
|---|
| 84 | IBTOBI ;;8662378
|
|---|
| 85 | IBTOBI1 ;;6435712
|
|---|
| 86 | IBTOBI2 ;;7990714
|
|---|
| 87 | IBTOBI3 ;;6401647
|
|---|
| 88 | IBTOBI4 ;;6224530
|
|---|
| 89 | IBTODD ;;8031779
|
|---|
| 90 | IBTODD1 ;;8068439
|
|---|
| 91 | IBTOLR ;;6224360
|
|---|
| 92 | IBTONB ;;1885921
|
|---|
| 93 | IBTOPW ;;10707392
|
|---|
| 94 | IBTOSA ;;8113371
|
|---|
| 95 | IBTOSUM ;;9538577
|
|---|
| 96 | IBTOSUM1 ;;8816791
|
|---|
| 97 | IBTOSUM2 ;;9298424
|
|---|
| 98 | IBTOTR ;;5609897
|
|---|
| 99 | IBTOUA ;;6974196
|
|---|
| 100 | IBTOUR ;;10111309
|
|---|
| 101 | IBTOUR1 ;;7984547
|
|---|
| 102 | IBTOUR2 ;;6908472
|
|---|
| 103 | IBTOUR3 ;;8357145
|
|---|
| 104 | IBTOUR4 ;;8040075
|
|---|
| 105 | IBTOUR5 ;;4041626
|
|---|
| 106 | IBTOVS ;;1551317
|
|---|
| 107 | IBTRC ;;10516194
|
|---|
| 108 | IBTRC1 ;;5987611
|
|---|
| 109 | IBTRC2 ;;3262204
|
|---|
| 110 | IBTRC3 ;;3166666
|
|---|
| 111 | IBTRC4 ;;8767502
|
|---|
| 112 | IBTRCD ;;9107959
|
|---|
| 113 | IBTRCD0 ;;7861660
|
|---|
| 114 | IBTRCD1 ;;8922819
|
|---|
| 115 | IBTRD ;;7786538
|
|---|
| 116 | IBTRD1 ;;7381107
|
|---|
| 117 | IBTRDD ;;2526056
|
|---|
| 118 | IBTRDD1 ;;597735
|
|---|
| 119 | IBTRE ;;10429015
|
|---|
| 120 | IBTRE0 ;;598105
|
|---|
| 121 | IBTRE1 ;;8033144
|
|---|
| 122 | IBTRE2 ;;11012571
|
|---|
| 123 | IBTRE20 ;;5512238
|
|---|
| 124 | IBTRE3 ;;7554651
|
|---|
| 125 | IBTRE4 ;;6681407
|
|---|
| 126 | IBTRE5 ;;8002645
|
|---|
| 127 | IBTRE6 ;;4226128
|
|---|
| 128 | IBTRED ;;8017886
|
|---|
| 129 | IBTRED0 ;;8966982
|
|---|
| 130 | IBTRED01 ;;11523940
|
|---|
| 131 | IBTRED1 ;;3540207
|
|---|
| 132 | IBTRED2 ;;2529514
|
|---|
| 133 | IBTRKR ;;7275239
|
|---|
| 134 | IBTRKR1 ;;3200384
|
|---|
| 135 | IBTRKR2 ;;2075452
|
|---|
| 136 | IBTRKR3 ;;9828445
|
|---|
| 137 | IBTRKR31 ;;4093132
|
|---|
| 138 | IBTRKR4 ;;6029559
|
|---|
| 139 | IBTRKR41 ;;5933356
|
|---|
| 140 | IBTRKR5 ;;8668310
|
|---|
| 141 | IBTRP ;;2908119
|
|---|
| 142 | IBTRPR ;;9093794
|
|---|
| 143 | IBTRPR0 ;;9571992
|
|---|
| 144 | IBTRPR01 ;;9199268
|
|---|
| 145 | IBTRPR1 ;;6920311
|
|---|
| 146 | IBTRPR2 ;;1544197
|
|---|
| 147 | IBTRV ;;8563669
|
|---|
| 148 | IBTRV1 ;;5485789
|
|---|
| 149 | IBTRV2 ;;7873619
|
|---|
| 150 | IBTRV3 ;;8401862
|
|---|
| 151 | IBTRV31 ;;6699387
|
|---|
| 152 | IBTRVD ;;3563633
|
|---|
| 153 | IBTRVD0 ;;9150563
|
|---|
| 154 | IBTRVD1 ;;8867639
|
|---|
| 155 | IBTUTL ;;6486404
|
|---|
| 156 | IBTUTL1 ;;5474483
|
|---|
| 157 | IBTUTL2 ;;2288421
|
|---|
| 158 | IBTUTL3 ;;7164634
|
|---|
| 159 | IBTUTL4 ;;14424130
|
|---|
