| 1 | PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
|
|---|
| 2 | ;;0.0;
|
|---|
| 3 | ;;7.2;SEP 19, 1995@07:50:48
|
|---|
| 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^PRCANTE0
|
|---|
| 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 | PRCAACC ;;4043366
|
|---|
| 13 | PRCAADBO ;;7034078
|
|---|
| 14 | PRCAADIN ;;8227592
|
|---|
| 15 | PRCAAPR ;;8140887
|
|---|
| 16 | PRCAAPR1 ;;11564152
|
|---|
| 17 | PRCAATR ;;8783907
|
|---|
| 18 | PRCABD ;;12291906
|
|---|
| 19 | PRCABIL ;;5564563
|
|---|
| 20 | PRCABIL1 ;;12422838
|
|---|
| 21 | PRCABIL2 ;;7387356
|
|---|
| 22 | PRCABIL3 ;;8121698
|
|---|
| 23 | PRCABJ ;;6692362
|
|---|
| 24 | PRCABJ1 ;;4663573
|
|---|
| 25 | PRCABJV ;;5372708
|
|---|
| 26 | PRCABP1 ;;16980544
|
|---|
| 27 | PRCABP2 ;;18171823
|
|---|
| 28 | PRCABPF ;;2946867
|
|---|
| 29 | PRCACLM ;;10348676
|
|---|
| 30 | PRCACM ;;12117368
|
|---|
| 31 | PRCACOL ;;11033444
|
|---|
| 32 | PRCACPV ;;7264265
|
|---|
| 33 | PRCACV10 ;;5428098
|
|---|
| 34 | PRCADCDJ ;;9619500
|
|---|
| 35 | PRCADCJ1 ;;3167285
|
|---|
| 36 | PRCADEL ;;5304005
|
|---|
| 37 | PRCADIN ;;4845537
|
|---|
| 38 | PRCADJ ;;10533524
|
|---|
| 39 | PRCADR ;;9677108
|
|---|
| 40 | PRCADR1 ;;11064839
|
|---|
| 41 | PRCADR2 ;;7168312
|
|---|
| 42 | PRCADR3 ;;9610774
|
|---|
| 43 | PRCAEA ;;418637
|
|---|
| 44 | PRCAEA1 ;;3517911
|
|---|
| 45 | PRCAEIN ;;11764234
|
|---|
| 46 | PRCAEOL ;;10518361
|
|---|
| 47 | PRCAEXM ;;7481608
|
|---|
| 48 | PRCAFBD ;;8294390
|
|---|
| 49 | PRCAFBD1 ;;261027
|
|---|
| 50 | PRCAFBDM ;;3222877
|
|---|
| 51 | PRCAFBDU ;;10728645
|
|---|
| 52 | PRCAFDCT ;;1379875
|
|---|
| 53 | PRCAFN ;;7392695
|
|---|
| 54 | PRCAFN1 ;;973771
|
|---|
| 55 | PRCAFOR ;;1315459
|
|---|
| 56 | PRCAFUT ;;7677086
|
|---|
| 57 | PRCAFWO ;;3376487
|
|---|
| 58 | PRCAG ;;13321013
|
|---|
| 59 | PRCAGD ;;7990199
|
|---|
| 60 | PRCAGDR ;;5054538
|
|---|
| 61 | PRCAGDT ;;13912127
|
|---|
| 62 | PRCAGF ;;9875365
|
|---|
| 63 | PRCAGF1 ;;2876711
|
|---|
| 64 | PRCAGP ;;4992125
|
|---|
| 65 | PRCAGS ;;12982296
|
|---|
| 66 | PRCAGST ;;5366761
|
|---|
| 67 | PRCAGST1 ;;8964951
|
|---|
| 68 | PRCAGST2 ;;2033418
|
|---|
| 69 | PRCAGT ;;5306041
|
|---|
| 70 | PRCAGU ;;5343760
|
|---|
| 71 | PRCAHIS ;;12620784
|
|---|
| 72 | PRCAHIS1 ;;1270244
|
|---|
| 73 | PRCAHOL ;;4781886
|
|---|
| 74 | PRCAI001 ;;10494501
|
|---|
| 75 | PRCAI002 ;;10270191
|
|---|
| 76 | PRCAI003 ;;10643856
|
|---|
| 77 | PRCAI004 ;;5223325
|
|---|
| 78 | PRCAI005 ;;10294153
|
|---|
| 79 | PRCAI006 ;;9782997
|
|---|
| 80 | PRCAI007 ;;9921433
|
|---|
| 81 | PRCAI008 ;;7685656
|
|---|
| 82 | PRCAI009 ;;8595920
|
|---|
| 83 | PRCAI00A ;;1514956
|
|---|
| 84 | PRCAI00B ;;10354031
|
|---|
| 85 | PRCAI00C ;;10732944
|
|---|
| 86 | PRCAI00D ;;10713175
|
|---|
| 87 | PRCAI00E ;;9703211
|
|---|
| 88 | PRCAI00F ;;2226181
|
|---|
| 89 | PRCAI00G ;;8572946
|
|---|
| 90 | PRCAI00H ;;7759041
|
|---|
| 91 | PRCAI00I ;;5083256
|
|---|
| 92 | PRCAI00J ;;1682048
|
|---|
| 93 | PRCAI00K ;;6804588
|
|---|
| 94 | PRCAI00L ;;11058467
|
|---|
| 95 | PRCAI00M ;;12092172
|
|---|
| 96 | PRCAI00N ;;12009282
|
|---|
| 97 | PRCAI00O ;;11132794
|
|---|
| 98 | PRCAI00P ;;10588558
|
|---|
| 99 | PRCAI00Q ;;11870810
|
|---|
| 100 | PRCAI00R ;;10563027
|
|---|
| 101 | PRCAI00S ;;11709448
|
|---|
| 102 | PRCAI00T ;;10733716
|
|---|
| 103 | PRCAI00U ;;12043887
|
|---|
| 104 | PRCAI00V ;;11209150
|
|---|
| 105 | PRCAI00W ;;12055251
|
|---|
| 106 | PRCAI00X ;;12174925
|
|---|
| 107 | PRCAI00Y ;;10083230
|
|---|
| 108 | PRCAI00Z ;;11734912
|
|---|
| 109 | PRCAI010 ;;11753448
|
|---|
| 110 | PRCAI011 ;;12423487
|
|---|
| 111 | PRCAI012 ;;11161716
|
|---|
| 112 | PRCAI013 ;;11937677
|
|---|
| 113 | PRCAI014 ;;11274950
|
|---|
| 114 | PRCAI015 ;;12191184
|
|---|
| 115 | PRCAI016 ;;12316390
|
|---|
| 116 | PRCAI017 ;;11848678
|
|---|
| 117 | PRCAI018 ;;9793777
|
|---|
| 118 | PRCAI019 ;;9067966
|
|---|
| 119 | PRCAI01A ;;8871846
|
|---|
| 120 | PRCAI01B ;;10973851
|
|---|
| 121 | PRCAI01C ;;9544703
|
|---|
| 122 | PRCAI01D ;;1329297
|
|---|
| 123 | PRCAI01E ;;8149208
|
|---|
| 124 | PRCAI01F ;;6405246
|
|---|
| 125 | PRCAI01G ;;7699411
|
|---|
| 126 | PRCAI01H ;;2271317
|
|---|
| 127 | PRCAI01I ;;3458480
|
|---|
| 128 | PRCAI01J ;;1308374
|
|---|
| 129 | PRCAI01K ;;5188583
|
|---|
| 130 | PRCAI01L ;;2982491
|
|---|
| 131 | PRCAI01M ;;2777196
|
|---|
| 132 | PRCAI01N ;;6471211
|
|---|
| 133 | PRCAI01O ;;1330888
|
|---|
| 134 | PRCAI01P ;;5671362
|
|---|
| 135 | PRCAI01Q ;;5765023
|
|---|
| 136 | PRCAI01R ;;985299
|
|---|
| 137 | PRCAI01S ;;8843474
|
|---|
| 138 | PRCAI01T ;;2981051
|
|---|
| 139 | PRCAI01U ;;10391329
|
|---|
| 140 | PRCAI01V ;;11193669
|
|---|
| 141 | PRCAI01W ;;11423867
|
|---|
| 142 | PRCAI01X ;;8911230
|
|---|
| 143 | PRCAI01Y ;;9863908
|
|---|
| 144 | PRCAI01Z ;;9048562
|
|---|
| 145 | PRCAI020 ;;8483072
|
|---|
| 146 | PRCAI021 ;;9763786
|
|---|
| 147 | PRCAI022 ;;9708713
|
|---|
| 148 | PRCAI023 ;;8723029
|
|---|
| 149 | PRCAI024 ;;7678151
|
|---|
| 150 | PRCAI025 ;;8154091
|
|---|
| 151 | PRCAI026 ;;7528430
|
|---|
| 152 | PRCAI027 ;;9113682
|
|---|
| 153 | PRCAI028 ;;8796987
|
|---|
| 154 | PRCAI029 ;;10356723
|
|---|
| 155 | PRCAI02A ;;7361260
|
|---|
| 156 | PRCAI02B ;;3016704
|
|---|
| 157 | PRCAI02C ;;7563131
|
|---|
| 158 | PRCAI02D ;;8426136
|
|---|
| 159 | PRCAI02E ;;3979266
|
|---|
| 160 | PRCAI02F ;;7202613
|
|---|
| 161 | PRCAI02G ;;3340026
|
|---|
| 162 | PRCAI02H ;;7455606
|
|---|
| 163 | PRCAI02I ;;6439710
|
|---|
| 164 | PRCAI02J ;;10255391
|
|---|
