|
Last change
on this file since 1354 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
3.5 KB
|
| Line | |
|---|
| 1 | PRSNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950922.134403
|
|---|
| 2 | ;;4.0;PAID;;Sep 21, 1995
|
|---|
| 3 | ;;7.3V5;2950922.134403
|
|---|
| 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^PRSNTEG0
|
|---|
| 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 | PRS8 ;;6758761
|
|---|
| 13 | PRS8AC ;;10789248
|
|---|
| 14 | PRS8CR ;;4113870
|
|---|
| 15 | PRS8CV ;;1406679
|
|---|
| 16 | PRS8DR ;;4460526
|
|---|
| 17 | PRS8EX ;;12089950
|
|---|
| 18 | PRS8EX0 ;;2492670
|
|---|
| 19 | PRS8HD ;;4393103
|
|---|
| 20 | PRS8HR ;;9990339
|
|---|
| 21 | PRS8MISC ;;6209902
|
|---|
| 22 | PRS8MSC0 ;;8738536
|
|---|
| 23 | PRS8MT ;;9042216
|
|---|
| 24 | PRS8OC ;;8121133
|
|---|
| 25 | PRS8OT ;;1051438
|
|---|
| 26 | PRS8PP ;;13713672
|
|---|
| 27 | PRS8SB ;;482803
|
|---|
| 28 | PRS8ST ;;7522882
|
|---|
| 29 | PRS8SU ;;8182283
|
|---|
| 30 | PRS8TL ;;6628863
|
|---|
| 31 | PRS8TL1 ;;6852149
|
|---|
| 32 | PRS8UP ;;7675745
|
|---|
| 33 | PRS8UT ;;1468608
|
|---|
| 34 | PRS8VW ;;4779393
|
|---|
| 35 | PRS8VW1 ;;3705374
|
|---|
| 36 | PRS8VW2 ;;3553313
|
|---|
| 37 | PRS8WE ;;8439046
|
|---|
| 38 | PRS8WE2 ;;5601041
|
|---|
| 39 | PRSACED ;;5798337
|
|---|
| 40 | PRSACED1 ;;2917348
|
|---|
| 41 | PRSACED2 ;;4372931
|
|---|
| 42 | PRSACED3 ;;4234486
|
|---|
| 43 | PRSACED4 ;;3403608
|
|---|
| 44 | PRSACED5 ;;3607550
|
|---|
| 45 | PRSACED6 ;;2901261
|
|---|
| 46 | PRSADP ;;2345979
|
|---|
| 47 | PRSADP1 ;;5204495
|
|---|
| 48 | PRSADP2 ;;6014980
|
|---|
| 49 | PRSADPA ;;3624106
|
|---|
| 50 | PRSAEDL ;;7630808
|
|---|
| 51 | PRSAEDR ;;5393792
|
|---|
| 52 | PRSAEDS ;;2055313
|
|---|
| 53 | PRSAENE ;;2103036
|
|---|
| 54 | PRSAENT ;;2112476
|
|---|
| 55 | PRSAENX ;;2134106
|
|---|
| 56 | PRSAES ;;1313964
|
|---|
| 57 | PRSALVB ;;5555828
|
|---|
| 58 | PRSALVE ;;4317661
|
|---|
| 59 | PRSALVL ;;7809679
|
|---|
| 60 | PRSALVR ;;6805104
|
|---|
| 61 | PRSALVS ;;8301239
|
|---|
| 62 | PRSALVT ;;1139882
|
|---|
| 63 | PRSALVU ;;3185536
|
|---|
| 64 | PRSALVX ;;2445423
|
|---|
| 65 | PRSAOTE ;;2838414
|
|---|
| 66 | PRSAOTL ;;5965024
|
|---|
| 67 | PRSAOTR ;;4569152
|
|---|
| 68 | PRSAOTS ;;2397841
|
|---|
| 69 | PRSAOTX ;;8430525
|
|---|
| 70 | PRSAPAS ;;1561258
|
|---|
| 71 | PRSAPEH ;;3084131
|
|---|
| 72 | PRSAPEM ;;1898877
|
|---|
| 73 | PRSAPEX ;;4093665
|
|---|
| 74 | PRSAPPH ;;8178546
|
|---|
| 75 | PRSAPPO ;;5341440
|
|---|
| 76 | PRSAPPP ;;7802049
|
|---|
| 77 | PRSAPPQ ;;6163642
|
|---|
| 78 | PRSAPPU ;;1034959
|
|---|
| 79 | PRSAPPX ;;5760245
|
|---|
| 80 | PRSAPRE ;;3848270
|
|---|
| 81 | PRSAPRT ;;2080643
|
|---|
| 82 | PRSAPT1 ;;785232
|
|---|
| 83 | PRSARPT2 ;;4489402
|
|---|
| 84 | PRSASAL ;;5977718
|
|---|
| 85 | PRSASC ;;9773634
|
|---|
| 86 | PRSASC1 ;;3903078
|
|---|
| 87 | PRSASC2 ;;1597184
|
|---|
| 88 | PRSASC3 ;;3976397
|
|---|
| 89 | PRSASR ;;8476442
|
|---|
| 90 | PRSASR1 ;;1564047
|
|---|
| 91 | PRSASU ;;4232684
|
|---|
| 92 | PRSATAPE ;;4476355
|
|---|
| 93 | PRSATD1 ;;6413354
|
|---|
| 94 | PRSATD2 ;;3514001
|
|---|
| 95 | PRSATE ;;11133231
|
|---|
| 96 | PRSATE0 ;;3871814
|
|---|
| 97 | PRSATE1 ;;1042996
|
|---|
| 98 | PRSATE2 ;;7030914
|
|---|
| 99 | PRSATE3 ;;6879527
|
|---|
| 100 | PRSATE4 ;;4019861
|
|---|
| 101 | PRSATE5 ;;1697087
|
|---|
| 102 | PRSATEV ;;559852
|
|---|
| 103 | PRSATH ;;3534403
|
|---|
| 104 | PRSATIM ;;2261484
|
|---|
| 105 | PRSATL ;;4151505
|
|---|
| 106 | PRSATP ;;9893987
|
|---|
| 107 | PRSATP0 ;;4870470
|
|---|
| 108 | PRSATP1 ;;4861807
|
|---|
| 109 | PRSATP2 ;;1764109
|
|---|
| 110 | PRSATPD ;;4458099
|
|---|
| 111 | PRSATPE ;;6078405
|
|---|
| 112 | PRSATPF ;;1328971
|
|---|
| 113 | PRSATPG ;;3992646
|
|---|
| 114 | PRSATPH ;;5179073
|
|---|
| 115 | PRSATPL ;;7238092
|
|---|
| 116 | PRSATPP ;;6337840
|
|---|
| 117 | PRSATPX ;;4188232
|
|---|
| 118 | PRSATVC ;;3847802
|
|---|
| 119 | PRSAUD ;;2228567
|
|---|
| 120 | PRSAUDP ;;6132208
|
|---|
| 121 | PRSAUTL ;;1858285
|
|---|
| 122 | PRSAXMIT ;;7910133
|
|---|
| 123 | PRSAXSR ;;1292570
|
|---|
| 124 | PRSD1150 ;;5462001
|
|---|
| 125 | PRSD450 ;;1794780
|
|---|
| 126 | PRSDADD ;;1711292
|
|---|
| 127 | PRSDAH ;;1259007
|
|---|
| 128 | PRSDAH1 ;;6177791
|
|---|
| 129 | PRSDAH2 ;;6903178
|
|---|
| 130 | PRSDAH3 ;;10079106
|
|---|
| 131 | PRSDAH4 ;;11656084
|
|---|
| 132 | PRSDCOMP ;;8014132
|
|---|
| 133 | PRSDDL ;;2221704
|
|---|
| 134 | PRSDENG ;;439261
|
|---|
| 135 | PRSDERR ;;7331639
|
|---|
| 136 | PRSDEU01 ;;7474017
|
|---|
| 137 | PRSDEU02 ;;7761860
|
|---|
| 138 | PRSDEU03 ;;10159747
|
|---|
| 139 | PRSDEU04 ;;4194847
|
|---|
| 140 | PRSDEU05 ;;9647707
|
|---|
| 141 | PRSDEU06 ;;11958266
|
|---|
| 142 | PRSDEU07 ;;10409876
|
|---|
| 143 | PRSDEU08 ;;9968538
|
|---|
| 144 | PRSDEU09 ;;8995407
|
|---|
| 145 | PRSDEU10 ;;3441415
|
|---|
| 146 | PRSDEU11 ;;3349578
|
|---|
| 147 | PRSDEU12 ;;5190061
|
|---|
| 148 | PRSDFIL ;;1756500
|
|---|
| 149 | PRSDFOLL ;;13024192
|
|---|
| 150 | PRSDLD01 ;;5003462
|
|---|
| 151 | PRSDLD02 ;;5722580
|
|---|
| 152 | PRSDLD03 ;;7945572
|
|---|
| 153 | PRSDLD04 ;;5111272
|
|---|
| 154 | PRSDLD05 ;;5648343
|
|---|
| 155 | PRSDLD06 ;;7771776
|
|---|
| 156 | PRSDLD07 ;;8073087
|
|---|
| 157 | PRSDLD08 ;;6268486
|
|---|
| 158 | PRSDLD09 ;;7861993
|
|---|
| 159 | PRSDLD10 ;;6224051
|
|---|
| 160 | PRSDLD11 ;;3828709
|
|---|
| 161 | PRSDLD12 ;;2335634
|
|---|
| 162 | PRSDLD13 ;;7758159
|
|---|
| 163 | PRSDLD14 ;;6990396
|
|---|
| 164 | PRSDLD15 ;;8313570
|
|---|
| 165 | PRSDLD16 ;;7491864
|
|---|
| 166 | PRSDLD17 ;;7017466
|
|---|
| 167 | PRSDMISC ;;1576842
|
|---|
| 168 | PRSDPR01 ;;7816417
|
|---|
| 169 | PRSDPR02 ;;8202108
|
|---|
| 170 | PRSDPR03 ;;9182855
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
