| 1 | VAQNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;NOV 16, 1993@16:51:52
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | ;;7.1;NOV 16, 1993@16:51:52
|
|---|
| 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^VAQNTEG0
|
|---|
| 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 | VAQADM2 ;;2534049
|
|---|
| 13 | VAQADM21 ;;7566837
|
|---|
| 14 | VAQADM22 ;;4062600
|
|---|
| 15 | VAQADM23 ;;1720751
|
|---|
| 16 | VAQADM5 ;;991826
|
|---|
| 17 | VAQADM50 ;;4266988
|
|---|
| 18 | VAQADM51 ;;2675417
|
|---|
| 19 | VAQADS01 ;;3223516
|
|---|
| 20 | VAQAUT ;;57128
|
|---|
| 21 | VAQBUL ;;1410805
|
|---|
| 22 | VAQBUL01 ;;6191768
|
|---|
| 23 | VAQBUL02 ;;4173593
|
|---|
| 24 | VAQBUL03 ;;4328969
|
|---|
| 25 | VAQBUL04 ;;4109872
|
|---|
| 26 | VAQBUL05 ;;2779034
|
|---|
| 27 | VAQBUL06 ;;4045789
|
|---|
| 28 | VAQBUL07 ;;2114615
|
|---|
| 29 | VAQCON ;;1897603
|
|---|
| 30 | VAQCON0 ;;4178078
|
|---|
| 31 | VAQCON1 ;;3710285
|
|---|
| 32 | VAQCON2 ;;3901976
|
|---|
| 33 | VAQCON3 ;;2418997
|
|---|
| 34 | VAQCON4 ;;5919951
|
|---|
| 35 | VAQCON5 ;;2014239
|
|---|
| 36 | VAQCON6 ;;4158972
|
|---|
| 37 | VAQCON7 ;;3413184
|
|---|
| 38 | VAQCON8 ;;3133423
|
|---|
| 39 | VAQCON93 ;;3200661
|
|---|
| 40 | VAQCON94 ;;4187477
|
|---|
| 41 | VAQCON95 ;;4706111
|
|---|
| 42 | VAQCON96 ;;3725887
|
|---|
| 43 | VAQCON97 ;;2136266
|
|---|
| 44 | VAQCON98 ;;3539410
|
|---|
| 45 | VAQCON99 ;;7142752
|
|---|
| 46 | VAQDBI ;;4230776
|
|---|
| 47 | VAQDBIH1 ;;1189457
|
|---|
| 48 | VAQDBIH2 ;;201661
|
|---|
| 49 | VAQDBIH3 ;;1069293
|
|---|
| 50 | VAQDBII1 ;;2814535
|
|---|
| 51 | VAQDBIM ;;4078867
|
|---|
| 52 | VAQDBIM0 ;;3374789
|
|---|
| 53 | VAQDBIM1 ;;6825977
|
|---|
| 54 | VAQDBIM2 ;;3183687
|
|---|
| 55 | VAQDBIM3 ;;4667668
|
|---|
| 56 | VAQDBIM4 ;;3774719
|
|---|
| 57 | VAQDBIP ;;2495177
|
|---|
| 58 | VAQDBIP1 ;;4400113
|
|---|
| 59 | VAQDBIP2 ;;3062191
|
|---|
| 60 | VAQDBIP3 ;;2952159
|
|---|
| 61 | VAQDBIP4 ;;3364106
|
|---|
| 62 | VAQDBIP5 ;;3822343
|
|---|
| 63 | VAQDBIP6 ;;3718206
|
|---|
| 64 | VAQDBIP7 ;;1790976
|
|---|
| 65 | VAQDBIP8 ;;2295398
|
|---|
| 66 | VAQDIS01 ;;1896058
|
|---|
| 67 | VAQDIS10 ;;1624428
|
|---|
| 68 | VAQDIS11 ;;4203630
|
|---|
| 69 | VAQDIS12 ;;3706146
|
|---|
| 70 | VAQDIS15 ;;4593059
|
|---|
| 71 | VAQDIS16 ;;683699
|
|---|
| 72 | VAQDIS17 ;;2004342
|
|---|
| 73 | VAQDIS20 ;;1296885
|
|---|
| 74 | VAQDIS21 ;;6090509
|
|---|
| 75 | VAQDIS22 ;;1303042
|
|---|
| 76 | VAQDIS23 ;;6243334
|
|---|
| 77 | VAQDIS24 ;;1874893
|
|---|
| 78 | VAQDIS25 ;;3511138
|
|---|
| 79 | VAQDIS26 ;;5333730
|
|---|
| 80 | VAQDIS27 ;;3568967
|
|---|
| 81 | VAQDIS28 ;;2475175
|
|---|
| 82 | VAQDIS29 ;;2673654
|
|---|
| 83 | VAQDIS30 ;;5919796
|
|---|
| 84 | VAQDIS31 ;;5487602
|
|---|
| 85 | VAQDIS32 ;;2412502
|
|---|
| 86 | VAQDIS33 ;;2388125
|
|---|
| 87 | VAQDIS40 ;;1008917
|
|---|
| 88 | VAQDIS41 ;;1753300
|
|---|
| 89 | VAQDIS42 ;;4972452
|
|---|
| 90 | VAQDIS43 ;;5326399
|
|---|
| 91 | VAQEXT01 ;;5600484
|
|---|
| 92 | VAQEXT02 ;;2704473
|
|---|
| 93 | VAQEXT03 ;;3158917
|
|---|
| 94 | VAQEXT04 ;;1885174
|
|---|
| 95 | VAQEXT05 ;;758435
|
|---|
| 96 | VAQEXT06 ;;2134337
|
|---|
| 97 | VAQFIL10 ;;5988372
|
|---|
| 98 | VAQFIL11 ;;6300784
|
|---|
| 99 | VAQFIL12 ;;2569328
|
|---|
| 100 | VAQFIL13 ;;4237289
|
|---|
| 101 | VAQFIL14 ;;3197988
|
|---|
| 102 | VAQFIL15 ;;4998877
|
|---|
| 103 | VAQFIL16 ;;4406732
|
|---|
| 104 | VAQFIL17 ;;4128016
|
|---|
| 105 | VAQFIL18 ;;5999161
|
|---|
| 106 | VAQFILE ;;3150174
|
|---|
| 107 | VAQFILE1 ;;4122421
|
|---|
| 108 | VAQHSH ;;3465882
|
|---|
| 109 | VAQHSH1 ;;177225
|
|---|
| 110 | VAQIN001 ;;3353811
|
|---|
| 111 | VAQIN002 ;;5958081
|
|---|
| 112 | VAQIN003 ;;6764102
|
|---|
| 113 | VAQIN004 ;;1660214
|
|---|
| 114 | VAQIN005 ;;4535842
|
|---|
| 115 | VAQIN006 ;;7231176
|
|---|
| 116 | VAQIN007 ;;6153912
|
|---|
| 117 | VAQIN008 ;;3096824
|
|---|
| 118 | VAQIN009 ;;908995
|
|---|
| 119 | VAQIN010 ;;8045910
|
|---|
| 120 | VAQIN011 ;;2849277
|
|---|
| 121 | VAQIN012 ;;6314695
|
|---|
| 122 | VAQIN013 ;;10958673
|
|---|
| 123 | VAQIN014 ;;6952614
|
|---|
| 124 | VAQIN015 ;;5500825
|
|---|
| 125 | VAQIN016 ;;6172399
|
|---|
| 126 | VAQIN017 ;;5813919
|
|---|
| 127 | VAQIN018 ;;1306083
|
|---|
| 128 | VAQIN019 ;;6893354
|
|---|
| 129 | VAQIN020 ;;6173758
|
|---|
| 130 | VAQIN021 ;;6106598
|
|---|
| 131 | VAQIN022 ;;864757
|
|---|
| 132 | VAQIN023 ;;7176590
|
|---|
| 133 | VAQIN024 ;;6431188
|
|---|
| 134 | VAQIN025 ;;3876927
|
|---|
| 135 | VAQIN026 ;;6146380
|
|---|
| 136 | VAQIN027 ;;6184362
|
|---|
| 137 | VAQIN028 ;;3967254
|
|---|
| 138 | VAQIN029 ;;5013810
|
|---|
| 139 | VAQIN030 ;;1166077
|
|---|
| 140 | VAQIN031 ;;7296448
|
|---|
| 141 | VAQIN032 ;;3255539
|
|---|
| 142 | VAQIN033 ;;1108766
|
|---|
| 143 | VAQIN034 ;;5546534
|
|---|
| 144 | VAQIN035 ;;9435555
|
|---|
| 145 | VAQIN036 ;;4135861
|
|---|
| 146 | VAQIN037 ;;6690535
|
|---|
| 147 | VAQIN038 ;;8416327
|
|---|
| 148 | VAQIN039 ;;9640544
|
|---|
| 149 | VAQIN040 ;;2256364
|
|---|
| 150 | VAQIN041 ;;7952553
|
|---|
| 151 | VAQIN042 ;;5330688
|
|---|
| 152 | VAQIN043 ;;7965778
|
|---|
| 153 | VAQIN044 ;;1127143
|
|---|
| 154 | VAQIN045 ;;3810401
|
|---|
| 155 | VAQIN046 ;;3993963
|
|---|
| 156 | VAQIN047 ;;3511679
|
|---|
| 157 | VAQIN048 ;;8342667
|
|---|
| 158 | VAQIN049 ;;7202720
|
|---|
| 159 | VAQIN050 ;;1138839
|
|---|
| 160 | VAQIN051 ;;2482435
|
|---|
| 161 | VAQIN052 ;;8388145
|
|---|
| 162 | VAQIN053 ;;2300108
|
|---|
| 163 | VAQIN054 ;;2439428
|
|---|
| 164 | VAQIN055 ;;7197745
|
|---|
| 165 | VAQIN056 ;;8933707
|
|---|
