Last change
on this file since 1731 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.