source: FOIAVistA/trunk/r/PAID-PRS/PRSNTEG.m@ 1166

Last change on this file since 1166 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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