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

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

initial load of FOIAVistA 6/30/08 version
File size: 3.2 KB
Line 
1IBNTEG02 ;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 ;
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 ;;
12IBOCPD ;;1720455
13IBOCPDS ;;5830293
14IBODISP ;;2933885
15IBODIV ;;5128254
16IBOEMP ;;6678171
17IBOEMP1 ;;10672548
18IBOEMP2 ;;6906404
19IBOHLD1 ;;4207713
20IBOHLD2 ;;5592060
21IBOLK ;;7791103
22IBOLK1 ;;2492902
23IBOMBL ;;8192932
24IBOMTC ;;1690451
25IBOMTC1 ;;4373193
26IBOMTE ;;5475821
27IBOMTE1 ;;7538361
28IBOMTE2 ;;3031067
29IBOMTP ;;1425622
30IBOMTP1 ;;8257030
31IBORAT ;;2629438
32IBORAT1A ;;1249079
33IBORAT1B ;;747816
34IBORAT1C ;;2564792
35IBORAT2A ;;2888714
36IBORAT2B ;;1609133
37IBORAT2C ;;4187545
38IBORT ;;12589852
39IBORT1 ;;5196896
40IBOST ;;8728133
41IBOSTUS ;;8222172
42IBOSTUS1 ;;13901156
43IBOTR ;;6890483
44IBOTR1 ;;9609343
45IBOTR2 ;;4054313
46IBOTR3 ;;7294292
47IBOTR4 ;;4986294
48IBOUNP1 ;;5103611
49IBOUNP2 ;;5551837
50IBOUNP3 ;;11102312
51IBOUNP4 ;;5816740
52IBOUNP5 ;;4930314
53IBOUNP6 ;;11719330
54IBOUTL ;;3588665
55IBOVOP ;;3951706
56IBOVOP1 ;;6521237
57IBOVOP2 ;;6328287
58IBP ;;4383002
59IBPA ;;5621480
60IBPEX ;;4674014
61IBPF ;;3366298
62IBPF1 ;;3550746
63IBPFU ;;1975348
64IBPO ;;6256568
65IBPP ;;3866201
66IBPU ;;6660057
67IBPU1 ;;4549333
68IBPU2 ;;3153479
69IBPUBUL ;;4295755
70IBPUDEL ;;9049505
71IBR ;;4785208
72IBRBUL ;;4871478
73IBRCON1 ;;11061579
74IBRCON2 ;;5758144
75IBRCON3 ;;2246092
76IBRFN ;;1579924
77IBRFN1 ;;2791885
78IBRFN2 ;;3905109
79IBRREL ;;10253828
80IBRUTL ;;2441491
81IBTOAT ;;5478898
82IBTOAT1 ;;5305537
83IBTOAT2 ;;2761554
84IBTOBI ;;8662378
85IBTOBI1 ;;6435712
86IBTOBI2 ;;7990714
87IBTOBI3 ;;6401647
88IBTOBI4 ;;6224530
89IBTODD ;;8031779
90IBTODD1 ;;8068439
91IBTOLR ;;6224360
92IBTONB ;;1885921
93IBTOPW ;;10707392
94IBTOSA ;;8113371
95IBTOSUM ;;9538577
96IBTOSUM1 ;;8816791
97IBTOSUM2 ;;9298424
98IBTOTR ;;5609897
99IBTOUA ;;6974196
100IBTOUR ;;10111309
101IBTOUR1 ;;7984547
102IBTOUR2 ;;6908472
103IBTOUR3 ;;8357145
104IBTOUR4 ;;8040075
105IBTOUR5 ;;4041626
106IBTOVS ;;1551317
107IBTRC ;;10516194
108IBTRC1 ;;5987611
109IBTRC2 ;;3262204
110IBTRC3 ;;3166666
111IBTRC4 ;;8767502
112IBTRCD ;;9107959
113IBTRCD0 ;;7861660
114IBTRCD1 ;;8922819
115IBTRD ;;7786538
116IBTRD1 ;;7381107
117IBTRDD ;;2526056
118IBTRDD1 ;;597735
119IBTRE ;;10429015
120IBTRE0 ;;598105
121IBTRE1 ;;8033144
122IBTRE2 ;;11012571
123IBTRE20 ;;5512238
124IBTRE3 ;;7554651
125IBTRE4 ;;6681407
126IBTRE5 ;;8002645
127IBTRE6 ;;4226128
128IBTRED ;;8017886
129IBTRED0 ;;8966982
130IBTRED01 ;;11523940
131IBTRED1 ;;3540207
132IBTRED2 ;;2529514
133IBTRKR ;;7275239
134IBTRKR1 ;;3200384
135IBTRKR2 ;;2075452
136IBTRKR3 ;;9828445
137IBTRKR31 ;;4093132
138IBTRKR4 ;;6029559
139IBTRKR41 ;;5933356
140IBTRKR5 ;;8668310
141IBTRP ;;2908119
142IBTRPR ;;9093794
143IBTRPR0 ;;9571992
144IBTRPR01 ;;9199268
145IBTRPR1 ;;6920311
146IBTRPR2 ;;1544197
147IBTRV ;;8563669
148IBTRV1 ;;5485789
149IBTRV2 ;;7873619
150IBTRV3 ;;8401862
151IBTRV31 ;;6699387
152IBTRVD ;;3563633
153IBTRVD0 ;;9150563
154IBTRVD1 ;;8867639
155IBTUTL ;;6486404
156IBTUTL1 ;;5474483
157IBTUTL2 ;;2288421
158IBTUTL3 ;;7164634
159IBTUTL4 ;;14424130
Note: See TracBrowser for help on using the repository browser.