source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBNTEG.m@ 642

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1FBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JAN 30, 1995@14:25:08
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;;7.2;JAN 30, 1995@14:25:08
5 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
6CONT 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")
7 G CONT^FBNTEG0
8 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
9ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
10 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
11 W ! G CONT
12ROU ;;
13FBAA79 ;;15015750
14FBAA79A ;;14173754
15FBAAAUT ;;11121356
16FBAAAV ;;8237458
17FBAABDL ;;4402016
18FBAABET ;;6666716
19FBAABPG ;;11923505
20FBAABS ;;1059560
21FBAABT ;;10187515
22FBAACCB ;;16700140
23FBAACCB0 ;;6967207
24FBAACCB1 ;;13238124
25FBAACCB2 ;;3914458
26FBAACH ;;3924398
27FBAACIE ;;10479082
28FBAACLU ;;2653488
29FBAACO ;;17520189
30FBAACO0 ;;8787859
31FBAACO1 ;;16364206
32FBAACO2 ;;9234183
33FBAACO3 ;;11803257
34FBAACO4 ;;3521393
35FBAACO5 ;;2421930
36FBAACP ;;11041469
37FBAACP1 ;;5031333
38FBAACR ;;13238141
39FBAADCB ;;3135114
40FBAADD ;;9907173
41FBAADEM ;;3118155
42FBAADEM1 ;;8836879
43FBAADOB ;;2276602
44FBAADV ;;3617394
45FBAAEAR ;;387421
46FBAAELT ;;836722
47FBAAEPI ;;6142437
48FBAAESP ;;852277
49FBAAETA ;;1886573
50FBAALB ;;3523804
51FBAALPI ;;3193402
52FBAALU ;;3101269
53FBAAMP ;;13573955
54FBAAMP1 ;;8078353
55FBAAMPG1 ;;4422941
56FBAAMPRG ;;5065789
57FBAAOB ;;12117504
58FBAAODP ;;5681209
59FBAAODP0 ;;3892662
60FBAAPAA ;;1034994
61FBAAPAY ;;9796019
62FBAAPCC ;;2074626
63FBAAPDM ;;1139836
64FBAAPET ;;11564008
65FBAAPH ;;14983509
66FBAAPHV ;;6264884
67FBAAPI ;;1761458
68FBAAPIE ;;14735959
69FBAAPIE1 ;;11677635
70FBAAPII ;;1042268
71FBAAPIN ;;14186344
72FBAAPIN1 ;;1319058
73FBAAPIP ;;10037006
74FBAAPIS ;;613307
75FBAAPLU ;;12319806
76FBAAPM ;;4904986
77FBAAPOC ;;3681250
78FBAAPP ;;17772954
79FBAAPP0 ;;6578102
80FBAAPPH ;;11848720
81FBAAPRC ;;10396263
82FBAAPRGS ;;856003
83FBAAPV ;;3616039
84FBAARB ;;3914625
85FBAARD ;;16165776
86FBAARD0 ;;6724396
87FBAARD1 ;;10948778
88FBAARD2 ;;12170226
89FBAARD3 ;;2843765
90FBAARJP ;;15794620
91FBAARMRA ;;3799769
92FBAAROC ;;2542001
93FBAARP ;;246821
94FBAARR ;;17198810
95FBAARR0 ;;8315430
96FBAARR1 ;;15532156
97FBAARR2 ;;9461559
98FBAARV ;;211649
99FBAAS79 ;;1846133
100FBAASAP ;;919209
101FBAASCB ;;11510367
102FBAASCB0 ;;10929598
103FBAASL ;;8416600
104FBAASL1 ;;8501613
105FBAASL1B ;;7938938
106FBAASLP ;;16458950
107FBAASOUT ;;7190423
108FBAASTA ;;3157123
109FBAATIC ;;2171621
110FBAAUTL ;;13857256
111FBAAUTL1 ;;10946318
112FBAAUTL2 ;;10972683
113FBAAUTL3 ;;2438740
114FBAAUTL4 ;;2899934
115FBAAUTL5 ;;775264
116FBAAV0 ;;18979183
117FBAAV01 ;;6553775
118FBAAV1 ;;21263609
119FBAAV2 ;;9083463
120FBAAV3 ;;2027833
121FBAAV4 ;;7803193
122FBAAV5 ;;13627044
123FBAAV6 ;;13633513
124FBAAVD ;;11915256
125FBAAVD1 ;;4740010
126FBAAVD2 ;;13913328
127FBAAVLU ;;10935879
128FBAAVP ;;16705504
129FBAAVP0 ;;2865347
130FBAAVR ;;14472538
131FBAAVR0 ;;10933358
132FBAAVR1 ;;14670872
133FBAAVR2 ;;5937034
134FBAAVS ;;8724685
135FBAUTHP ;;2653322
136FBCH78 ;;19677146
137FBCH780 ;;3773342
138FBCH78A ;;12095635
139FBCHACT ;;9382205
140FBCHACT0 ;;9411687
141FBCHACT1 ;;2186657
142FBCHC78 ;;11229364
143FBCHCD ;;16889244
144FBCHCO ;;712427
145FBCHCR ;;17403059
146FBCHCR1 ;;6788901
147FBCHDEL ;;2002180
148FBCHDI ;;6253097
149FBCHDI2 ;;3467889
150FBCHDIN ;;2953481
151FBCHDUC ;;4597629
152FBCHEAP ;;10591525
153FBCHEP ;;18996060
154FBCHEP1 ;;6891252
155FBCHEUC ;;7559144
156FBCHEUC1 ;;8332891
157FBCHEUC2 ;;1905120
158FBCHP78 ;;20934808
159FBCHPET ;;9908667
160FBCHPH ;;8218576
161FBCHPH0 ;;5388144
162FBCHPRC ;;6366752
163FBCHPRC1 ;;8882654
164FBCHPSA ;;15194005
165FBCHPSA0 ;;11162264
166FBCHPSA1 ;;6682209
167FBCHREQ ;;15052672
168FBCHREQ1 ;;9317783
169FBCHREQ2 ;;5612542
170FBCHRJP ;;7037853
171FBCHROC ;;2943853
Note: See TracBrowser for help on using the repository browser.