source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBANTEG.m

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1DVBANTEG ;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^DVBANTE0
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 ;;
12DVBAADM1 ;;638257
13DVBAADMR ;;3192270
14DVBAADRP ;;11281413
15DVBAALRT ;;969678
16DVBAAPLK ;;6762813
17DVBACERT ;;16541319
18DVBACMRP ;;14742419
19DVBACRMS ;;8195822
20DVBACRRP ;;6672179
21DVBACRRR ;;7192044
22DVBADSCK ;;11427543
23DVBADSNT ;;14580376
24DVBADSR1 ;;3955541
25DVBADSRP ;;14116837
26DVBADSRT ;;11545161
27DVBADXFR ;;5748263
28DVBAEDIT ;;9839591
29DVBAENVR ;;5167682
30DVBAERMK ;;822652
31DVBAFINL ;;5664221
32DVBAI001 ;;3984946
33DVBAI002 ;;7866078
34DVBAI003 ;;9465736
35DVBAI004 ;;9426448
36DVBAI005 ;;9168773
37DVBAI006 ;;9757793
38DVBAI007 ;;9844024
39DVBAI008 ;;9414143
40DVBAI009 ;;9305581
41DVBAI00A ;;9714050
42DVBAI00B ;;9020543
43DVBAI00C ;;9205465
44DVBAI00D ;;9275269
45DVBAI00E ;;10702094
46DVBAI00F ;;9264996
47DVBAI00G ;;9888686
48DVBAI00H ;;8631990
49DVBAI00I ;;2666346
50DVBAI00J ;;8624033
51DVBAI00K ;;11375562
52DVBAI00L ;;9023586
53DVBAI00M ;;3654681
54DVBAI00N ;;8288884
55DVBAI00O ;;1499139
56DVBAI00P ;;8500746
57DVBAI00Q ;;9547260
58DVBAI00R ;;11396004
59DVBAI00S ;;10868518
60DVBAI00T ;;9805564
61DVBAI00U ;;8802965
62DVBAI00V ;;7168357
63DVBAI00W ;;9596589
64DVBAI00X ;;10329148
65DVBAI00Y ;;8702207
66DVBAI00Z ;;9399915
67DVBAI010 ;;3326017
68DVBAI011 ;;3708388
69DVBAI012 ;;1579336
70DVBAI013 ;;8361562
71DVBAI014 ;;1684479
72DVBAI015 ;;7142274
73DVBAI016 ;;7573161
74DVBAI017 ;;4202819
75DVBAI018 ;;6043854
76DVBAI019 ;;1963020
77DVBAI01A ;;4682695
78DVBAI01B ;;8066247
79DVBAI01C ;;8472098
80DVBAI01D ;;6719976
81DVBAI01E ;;7549877
82DVBAI01F ;;6406205
83DVBAI01G ;;9927999
84DVBAI01H ;;11184873
85DVBAI01I ;;10454297
86DVBAI01J ;;11118349
87DVBAI01K ;;7304944
88DVBAI01L ;;7088947
89DVBAI01M ;;8609341
90DVBAI01N ;;23872670
91DVBAI01O ;;12878748
92DVBAI01P ;;16144162
93DVBAI01Q ;;15894662
94DVBAI01R ;;13555576
95DVBAI01S ;;10109941
96DVBAI01T ;;8315375
97DVBAI01U ;;7822572
98DVBAI01V ;;8807572
99DVBAI01W ;;8780467
100DVBAI01X ;;9786334
101DVBAI01Y ;;7073206
102DVBAI01Z ;;8706653
103DVBAI020 ;;8048446
104DVBAI021 ;;7564126
105DVBAI022 ;;9900450
106DVBAI023 ;;9894542
107DVBAI024 ;;5713031
108DVBAI025 ;;4951735
109DVBAI026 ;;3222134
110DVBAINI1 ;;5770759
111DVBAINI2 ;;5232529
112DVBAINI3 ;;16092457
113DVBAINI4 ;;3357701
114DVBAINI5 ;;1903353
115DVBAINIS ;;2207479
116DVBAINIT ;;11258137
117DVBAL ;;3279129
118DVBALD ;;1530456
119DVBALD1 ;;4391960
120DVBANT21 ;;698454
121DVBAO001 ;;6460949
122DVBAO002 ;;4296819
123DVBAONI1 ;;1696470
124DVBAONI2 ;;82755
125DVBAONI3 ;;10576517
126DVBAONIT ;;991575
127DVBAORPH ;;3955878
128DVBAPADD ;;3497529
129DVBAPB1 ;;17920740
130DVBAPBDY ;;2080048
131DVBAPCXR ;;54860
132DVBAPEND ;;6684165
133DVBAPK1 ;;8583019
134DVBAPK2 ;;6721462
135DVBAPK3 ;;9969058
136DVBAPK4 ;;7382410
137DVBAPK5 ;;20407396
138DVBAPK6 ;;3832227
139DVBAPK7 ;;13981008
140DVBAPK8 ;;6707125
141DVBAPK9 ;;14020154
142DVBAPKY ;;3837287
143DVBAPL1 ;;4046552
144DVBAPL10 ;;6712841
145DVBAPL2 ;;7267685
146DVBAPL3 ;;7327937
147DVBAPL4 ;;2566783
148DVBAPL5 ;;6525199
149DVBAPL6 ;;6047068
150DVBAPL7 ;;5890852
151DVBAPL8 ;;6021230
152DVBAPL9 ;;2474407
153DVBAPLL ;;7328205
154DVBAPLNG ;;3091129
155DVBAPND1 ;;10210532
156DVBAPOK1 ;;160506
157DVBAPOKY ;;3153890
158DVBAPOP2 ;;5414428
159DVBAPOPU ;;2122566
160DVBAPOST ;;7636342
161DVBAPRE ;;2020496
162DVBAPS1 ;;976623
163DVBAPST1 ;;821822
164DVBAPST3 ;;6045742
Note: See TracBrowser for help on using the repository browser.