source: FOIAVistA/tag/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBANTE0.m@ 628

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1DVBANTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;;7.2;APR 10, 1995@13:51:40
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^DVBANTE1
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 ;;
12DVBAPSYN ;;2378133
13DVBAPW1 ;;8347851
14DVBAPW2 ;;15046563
15DVBAPWKS ;;2574436
16DVBARAD1 ;;9779353
17DVBARADM ;;13766190
18DVBAREG1 ;;5604558
19DVBAREG2 ;;6796936
20DVBAREG3 ;;496700
21DVBAREN1 ;;5110486
22DVBAREQ1 ;;6046247
23DVBAREQ3 ;;11591429
24DVBAREQS ;;4101625
25DVBARL21 ;;9497644
26DVBARPUR ;;2109695
27DVBARQP ;;7408065
28DVBASCRP ;;10618584
29DVBASITE ;;432310
30DVBASPD2 ;;12609416
31DVBASPDC ;;1855839
32DVBASTAT ;;1731141
33DVBAUTIL ;;17077948
34DVBAUTL1 ;;671413
35DVBAUTL2 ;;11376979
36DVBAUTL3 ;;5126380
37DVBAUTL4 ;;1068079
38DVBAUTL5 ;;2400662
39DVBAUTL6 ;;1039958
40DVBAUTL7 ;;4947961
41DVBAUTL8 ;;2009228
42DVBAUTLH ;;1322144
43DVBAVDPT ;;6199074
44DVBCAACK ;;10697058
45DVBCADCK ;;16662513
46DVBCADE1 ;;12482920
47DVBCADE2 ;;12838391
48DVBCADEX ;;5964579
49DVBCADR ;;5562753
50DVBCAMC1 ;;16773745
51DVBCAMCK ;;24825901
52DVBCAMI1 ;;5901817
53DVBCAMI2 ;;12729591
54DVBCAMI3 ;;3088709
55DVBCAMIS ;;5835381
56DVBCAMR1 ;;2817493
57DVBCAMR2 ;;11670627
58DVBCAMRO ;;5648976
59DVBCAOC1 ;;15597069
60DVBCAOCK ;;16213615
61DVBCARC1 ;;11119260
62DVBCARC2 ;;3468613
63DVBCARCK ;;5894420
64DVBCATC1 ;;10433901
65DVBCATCK ;;3242113
66DVBCBNCK ;;9472567
67DVBCBRCK ;;9688091
68DVBCBUL1 ;;6490294
69DVBCBULL ;;11261928
70DVBCCECK ;;5348778
71DVBCCHKR ;;11985936
72DVBCCNC1 ;;10329224
73DVBCCNCL ;;14608393
74DVBCCNNS ;;6465570
75DVBCCRCK ;;10796464
76DVBCCUCK ;;9102724
77DVBCCYCK ;;8998698
78DVBCDACK ;;10981371
79DVBCDBCK ;;11708644
80DVBCDECK ;;5200660
81DVBCDHCK ;;9236029
82DVBCDICK ;;9010550
83DVBCDMCK ;;10183017
84DVBCDNCK ;;7857444
85DVBCEDCK ;;12782887
86DVBCEDIT ;;13356686
87DVBCEEXM ;;6444590
88DVBCENCK ;;11064281
89DVBCENQ ;;3137584
90DVBCENQ1 ;;17735634
91DVBCENQ2 ;;5360800
92DVBCESCK ;;8586267
93DVBCEXML ;;5745207
94DVBCFEE ;;4823842
95DVBCFSCK ;;8400570
96DVBCFTCK ;;11486991
97DVBCGECK ;;5329066
98DVBCGMC1 ;;11580608
99DVBCGMCK ;;19361685
100DVBCGNCK ;;16937132
101DVBCGOCK ;;14320767
102DVBCGSCK ;;5315275
103DVBCHACK ;;10806048
104DVBCHDCK ;;8836870
105DVBCHECK ;;5877095
106DVBCHLCK ;;15488784
107DVBCHLOR ;;984544
108DVBCHLQ ;;6640186
109DVBCHLR ;;11476557
110DVBCHLUT ;;3110204
111DVBCHMC1 ;;2272934
112DVBCHMCK ;;9509200
113DVBCHNCK ;;13792552
114DVBCHPCK ;;11448190
115DVBCHS0 ;;1790541
116DVBCHS1 ;;1496798
117DVBCHS2 ;;2433797
118DVBCHTCK ;;8302169
119DVBCHYCK ;;7996254
120DVBCIRP1 ;;11482024
121DVBCIRPT ;;4499283
122DVBCIUT1 ;;2146997
123DVBCIUTL ;;5639159
124DVBCJNCK ;;15001703
125DVBCLABR ;;4708883
126DVBCLKT2 ;;7808623
127DVBCLKTL ;;6998431
128DVBCLMHD ;;57210
129DVBCLMU2 ;;314744
130DVBCLMU5 ;;1478779
131DVBCLOG ;;11143383
132DVBCLOG2 ;;2684669
133DVBCLOGE ;;10765565
134DVBCLTR ;;2127008
135DVBCLTR2 ;;3092277
136DVBCLURN ;;1306910
137DVBCMDCK ;;9944806
138DVBCMECK ;;5385050
139DVBCMKL2 ;;9133939
140DVBCMKLK ;;6462243
141DVBCMLCK ;;9262268
142DVBCMMCK ;;10979579
143DVBCMNCK ;;14329368
144DVBCMOCK ;;5723689
145DVBCMSCK ;;10520804
146DVBCMTCK ;;9589187
147DVBCNHCK ;;8951617
148DVBCNICK ;;8854235
149DVBCNKCK ;;10172030
150DVBCNLCK ;;12481864
151DVBCNNCK ;;5288860
152DVBCNPCK ;;9891090
153DVBCNSCK ;;9764945
154DVBCNTCK ;;10392687
155DVBCNTSC ;;9266168
156DVBCNUCK ;;5317272
157DVBCOECK ;;5356538
158DVBCPATA ;;5360197
159DVBCPDCK ;;12898016
160DVBCPECK ;;5210166
161DVBCPG1 ;;511338
162DVBCPG2 ;;814756
Note: See TracBrowser for help on using the repository browser.