| 1 | PRCANTE0 ;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^PRCANTE1
|
|---|
| 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 | PRCAI02K ;;8007994
|
|---|
| 13 | PRCAI02L ;;10327226
|
|---|
| 14 | PRCAI02M ;;10873093
|
|---|
| 15 | PRCAI02N ;;8963541
|
|---|
| 16 | PRCAI02O ;;10109729
|
|---|
| 17 | PRCAI02P ;;6826290
|
|---|
| 18 | PRCAI02Q ;;960956
|
|---|
| 19 | PRCAI02R ;;8649853
|
|---|
| 20 | PRCAI02S ;;8104721
|
|---|
| 21 | PRCAI02T ;;7277981
|
|---|
| 22 | PRCAI02U ;;8107829
|
|---|
| 23 | PRCAI02V ;;11677837
|
|---|
| 24 | PRCAI02W ;;16244788
|
|---|
| 25 | PRCAI02X ;;17075662
|
|---|
| 26 | PRCAI02Y ;;12274573
|
|---|
| 27 | PRCAI02Z ;;13381976
|
|---|
| 28 | PRCAI030 ;;12345426
|
|---|
| 29 | PRCAI031 ;;11483989
|
|---|
| 30 | PRCAI032 ;;10668818
|
|---|
| 31 | PRCAI033 ;;14455621
|
|---|
| 32 | PRCAI034 ;;13902721
|
|---|
| 33 | PRCAI035 ;;13874247
|
|---|
| 34 | PRCAI036 ;;12525023
|
|---|
| 35 | PRCAI037 ;;12885572
|
|---|
| 36 | PRCAI038 ;;10111549
|
|---|
| 37 | PRCAI039 ;;12080000
|
|---|
| 38 | PRCAI03A ;;8526214
|
|---|
| 39 | PRCAI03B ;;5281278
|
|---|
| 40 | PRCAI03C ;;11640455
|
|---|
| 41 | PRCAI03D ;;11021635
|
|---|
| 42 | PRCAI03E ;;13161574
|
|---|
| 43 | PRCAI03F ;;12402198
|
|---|
| 44 | PRCAI03G ;;17168216
|
|---|
| 45 | PRCAI03H ;;16568262
|
|---|
| 46 | PRCAI03I ;;17186299
|
|---|
| 47 | PRCAI03J ;;15760618
|
|---|
| 48 | PRCAI03K ;;13569305
|
|---|
| 49 | PRCAI03L ;;14391893
|
|---|
| 50 | PRCAI03M ;;17499453
|
|---|
| 51 | PRCAI03N ;;13281182
|
|---|
| 52 | PRCAI03O ;;17490178
|
|---|
| 53 | PRCAI03P ;;16231410
|
|---|
| 54 | PRCAI03Q ;;18152253
|
|---|
| 55 | PRCAI03R ;;9476855
|
|---|
| 56 | PRCAI03S ;;7537069
|
|---|
| 57 | PRCAI03T ;;6237207
|
|---|
| 58 | PRCAI03U ;;8457505
|
|---|
| 59 | PRCAI03V ;;7514911
|
|---|
| 60 | PRCAI03W ;;7041327
|
|---|
| 61 | PRCAI03X ;;7740587
|
|---|
| 62 | PRCAI03Y ;;6850615
|
|---|
| 63 | PRCAI03Z ;;8390948
|
|---|
| 64 | PRCAI040 ;;7729811
|
|---|
| 65 | PRCAI041 ;;8157068
|
|---|
| 66 | PRCAI042 ;;7645512
|
|---|
| 67 | PRCAI043 ;;8315602
|
|---|
| 68 | PRCAI044 ;;8285033
|
|---|
| 69 | PRCAI045 ;;7972071
|
|---|
| 70 | PRCAI046 ;;8916747
|
|---|
| 71 | PRCAI047 ;;7296355
|
|---|
| 72 | PRCAI048 ;;9574157
|
|---|
| 73 | PRCAI049 ;;9421376
|
|---|
| 74 | PRCAI04A ;;7758784
|
|---|
| 75 | PRCAI04B ;;8351678
|
|---|
| 76 | PRCAI04C ;;8697970
|
|---|
| 77 | PRCAI04D ;;10051672
|
|---|
| 78 | PRCAI04E ;;10133133
|
|---|
| 79 | PRCAI04F ;;9559488
|
|---|
| 80 | PRCAI04G ;;9443032
|
|---|
| 81 | PRCAI04H ;;8511706
|
|---|
| 82 | PRCAI04I ;;8441560
|
|---|
| 83 | PRCAI04J ;;7657223
|
|---|
| 84 | PRCAI04K ;;8337881
|
|---|
| 85 | PRCAI04L ;;9164430
|
|---|
| 86 | PRCAI04M ;;5218914
|
|---|
| 87 | PRCAI04N ;;4929607
|
|---|
| 88 | PRCAI04O ;;1928416
|
|---|
| 89 | PRCAINI1 ;;5004820
|
|---|
| 90 | PRCAINI2 ;;5232536
|
|---|
| 91 | PRCAINI3 ;;16806494
|
|---|
| 92 | PRCAINI4 ;;3357708
|
|---|
| 93 | PRCAINI5 ;;2514289
|
|---|
| 94 | PRCAINIS ;;2209498
|
|---|
| 95 | PRCAINIT ;;10324995
|
|---|
| 96 | PRCAINS1 ;;4248556
|
|---|
| 97 | PRCAINST ;;2087276
|
|---|
| 98 | PRCAKBT ;;13416814
|
|---|
| 99 | PRCAKBT1 ;;12375527
|
|---|
| 100 | PRCAKM ;;9835440
|
|---|
| 101 | PRCAKMR ;;5182179
|
|---|
| 102 | PRCAKS ;;8219375
|
|---|
| 103 | PRCAKTP ;;3816580
|
|---|
| 104 | PRCAKUN ;;9454631
|
|---|
| 105 | PRCALET ;;1444147
|
|---|
| 106 | PRCALM ;;9961044
|
|---|
| 107 | PRCALST ;;13048313
|
|---|
| 108 | PRCALST1 ;;1260099
|
|---|
| 109 | PRCALT2 ;;4758188
|
|---|
| 110 | PRCAMARK ;;6372040
|
|---|
| 111 | PRCAMAS ;;3280486
|
|---|
| 112 | PRCAMESG ;;781868
|
|---|
| 113 | PRCAMRKC ;;545164
|
|---|
| 114 | PRCANRU ;;8570583
|
|---|
| 115 | PRCANRU0 ;;6087574
|
|---|
| 116 | PRCAOFF ;;12315560
|
|---|
| 117 | PRCAOFF1 ;;8556370
|
|---|
| 118 | PRCAOFF2 ;;13326420
|
|---|
| 119 | PRCAOFF3 ;;7837487
|
|---|
| 120 | PRCAOFF4 ;;8279590
|
|---|
| 121 | PRCAOLD ;;9177437
|
|---|
| 122 | PRCAPAT ;;18113504
|
|---|
| 123 | PRCAPAT1 ;;1657991
|
|---|
| 124 | PRCAPAY ;;11877840
|
|---|
| 125 | PRCAPAY1 ;;13978186
|
|---|
| 126 | PRCAPAY2 ;;10975714
|
|---|
| 127 | PRCAPAY3 ;;2847314
|
|---|
| 128 | PRCAPCL ;;8181427
|
|---|
| 129 | PRCAPRO ;;10192688
|
|---|
| 130 | PRCAPTR ;;4330309
|
|---|
| 131 | PRCAQUE ;;4247288
|
|---|
| 132 | PRCAREP ;;9114542
|
|---|
| 133 | PRCAREPT ;;13564453
|
|---|
| 134 | PRCARETN ;;12618183
|
|---|
| 135 | PRCARFD ;;18279609
|
|---|
| 136 | PRCARFD1 ;;11110938
|
|---|
| 137 | PRCARFD2 ;;2403950
|
|---|
| 138 | PRCARFD3 ;;2152789
|
|---|
| 139 | PRCARFP ;;7070826
|
|---|
| 140 | PRCARFU ;;6738284
|
|---|
| 141 | PRCARPS ;;9786141
|
|---|
| 142 | PRCARPS1 ;;15508414
|
|---|
| 143 | PRCASER ;;7326682
|
|---|
| 144 | PRCASER1 ;;10306446
|
|---|
| 145 | PRCASET ;;5156070
|
|---|
| 146 | PRCASIG ;;3048834
|
|---|
| 147 | PRCASVC ;;5279576
|
|---|
| 148 | PRCASVC1 ;;4487671
|
|---|
| 149 | PRCASVC3 ;;3133773
|
|---|
| 150 | PRCASVC6 ;;9687817
|
|---|
| 151 | PRCAUDT ;;12891243
|
|---|
| 152 | PRCAUDT1 ;;5877681
|
|---|
| 153 | PRCAUPD ;;5882693
|
|---|
| 154 | PRCAUT1 ;;4102245
|
|---|
| 155 | PRCAUT2 ;;3164379
|
|---|
| 156 | PRCAUT3 ;;5490775
|
|---|
| 157 | PRCAUTL ;;11165515
|
|---|
| 158 | PRCAWO ;;9280254
|
|---|
| 159 | PRCAWO1 ;;6372476
|
|---|
| 160 | PRCAWOF ;;8448404
|
|---|
| 161 | PRCAWREA ;;6818127
|
|---|
| 162 | PRCAWV ;;5919273
|
|---|
| 163 | PRCAX ;;10670246
|
|---|
