source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBNTEG.m@ 635

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1IBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 21, 1994@00:43:44
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;7.2;MAR 21, 1994@00:43:44
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^IBNTEG0
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 ;;
12DGCRAMS ;;6214
13DGCRNS ;;3661765
14DGCRP3 ;;107277
15IB20IN ;;8009057
16IB20PRE ;;8986169
17IB20PT ;;7649477
18IB20PT1 ;;11063312
19IB20PT2 ;;4475525
20IB20PT3 ;;8076696
21IB20PT31 ;;6506886
22IB20PT32 ;;4317775
23IB20PT4 ;;7440773
24IB20PT41 ;;9986705
25IB20PT42 ;;9509377
26IB20PT43 ;;7387627
27IB20PT44 ;;8110297
28IB20PT45 ;;8306385
29IB20PT46 ;;8451128
30IB20PT47 ;;8563366
31IB20PT48 ;;9037639
32IB20PT5 ;;7032869
33IB20PT51 ;;7063314
34IB20PT6 ;;8955028
35IB20PT61 ;;6802850
36IB20PT62 ;;3225606
37IB20PT7 ;;8586962
38IB20PT71 ;;3338696
39IB20PT8 ;;2336162
40IB20PT81 ;;14448170
41IB20PT82 ;;11280903
42IB20PT83 ;;11209659
43IB20PT84 ;;16844506
44IB20PT85 ;;10911111
45IB20PT86 ;;8217996
46IB20PT87 ;;8505416
47IB20PT88 ;;7644188
48IB20PT89 ;;4557349
49IB20PT8A ;;12040816
50IB20PT8B ;;6866758
51IB20PT8C ;;4652761
52IBACVA ;;1769880
53IBACVA1 ;;4739079
54IBACVA2 ;;5370087
55IBAERR ;;13780590
56IBAERR1 ;;5702039
57IBAERR2 ;;5326975
58IBAERR3 ;;9712468
59IBAFIL ;;1923294
60IBAMTBU ;;9650419
61IBAMTBU1 ;;9010226
62IBAMTBU2 ;;12041191
63IBAMTC ;;6299589
64IBAMTC1 ;;7286348
65IBAMTC2 ;;3598454
66IBAMTC3 ;;6705455
67IBAMTD ;;6465662
68IBAMTD1 ;;3267263
69IBAMTD2 ;;4636001
70IBAMTED ;;2233627
71IBAMTED1 ;;8697962
72IBAMTEDU ;;6182045
73IBAMTEL ;;11828371
74IBAMTI ;;9852587
75IBAMTI1 ;;7575816
76IBAMTI2 ;;2115607
77IBAMTS ;;4935501
78IBAMTS1 ;;3867145
79IBAMTS2 ;;4234104
80IBAPDX ;;5950991
81IBAPDX0 ;;3962132
82IBAPDX1 ;;10543843
83IBAREP ;;2549777
84IBARX ;;8244090
85IBARX1 ;;6596075
86IBARXDOC ;;213627
87IBARXEB ;;5398431
88IBARXEC ;;9610214
89IBARXEC0 ;;9458042
90IBARXEC1 ;;11194005
91IBARXEC2 ;;3871811
92IBARXEC3 ;;6042009
93IBARXEC4 ;;612524
94IBARXEC5 ;;4692020
95IBARXECA ;;5437412
96IBARXEI ;;10800989
97IBARXEP ;;6629685
98IBARXEPE ;;2540349
99IBARXEPL ;;10573402
100IBARXEPV ;;10609884
101IBARXET ;;9354161
102IBARXEU ;;6806792
103IBARXEU0 ;;3601400
104IBARXEU1 ;;4150451
105IBARXEU3 ;;8350055
106IBARXEU4 ;;2171391
107IBARXEU5 ;;5703854
108IBARXEVT ;;689754
109IBARXEX ;;11713090
110IBARXEX1 ;;4260548
111IBAUTL ;;6486243
112IBAUTL1 ;;2419237
113IBAUTL2 ;;4160094
114IBAUTL3 ;;6062540
115IBAUTL4 ;;6590985
116IBAUTL5 ;;2584138
117IBAUTL6 ;;6890980
118IBAUTL7 ;;3072190
119IBCA ;;13403312
120IBCA0 ;;16511939
121IBCA1 ;;8761375
122IBCA2 ;;6208012
123IBCA3 ;;12718941
124IBCAMS ;;1172097
125IBCB ;;13881326
126IBCB1 ;;9850339
127IBCB2 ;;5883922
128IBCBB ;;3144978
129IBCBB1 ;;5791591
130IBCBB2 ;;1343158
131IBCBR ;;6665598
132IBCBULL ;;9263228
133IBCC ;;6548911
134IBCCC ;;6939695
135IBCCC1 ;;4406795
136IBCCC2 ;;12947856
137IBCCC3 ;;4412585
138IBCCPT ;;15501049
139IBCD ;;3476576
140IBCD1 ;;4844291
141IBCD2 ;;8429080
142IBCD3 ;;9743645
143IBCD4 ;;8964833
144IBCD5 ;;9117539
145IBCDC ;;4705205
146IBCDE ;;7152633
147IBCF ;;5123217
148IBCF1 ;;8752631
149IBCF10 ;;13246466
150IBCF11 ;;3618060
151IBCF12 ;;8199876
152IBCF13 ;;3359698
153IBCF14 ;;4671426
154IBCF1TP ;;4608893
155IBCF2 ;;5400608
156IBCF21 ;;6867457
157IBCF22 ;;3951879
158IBCF23 ;;7041230
159IBCF2P ;;5194801
160IBCF2TP ;;5572923
161IBCF3 ;;8119511
162IBCF31 ;;7087284
163IBCF32 ;;4769225
164IBCF33 ;;8685819
165IBCF331 ;;3343184
166IBCF34 ;;4562880
167IBCF3P ;;8274883
168IBCF3TP ;;6312363
169IBCF4 ;;5431811
170IBCFP ;;13317164
171IBCMENU ;;5258201
172IBCNADD ;;2016355
173IBCNQ ;;12255106
Note: See TracBrowser for help on using the repository browser.