source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGNTEG02.m@ 1783

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1DGNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50
2 ;;5.3;Registration;;Aug 13, 1993
3 ;;7.0;AUG 13, 1993@12:48:50
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^DGNTEG03
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 ;;
12DGRP11 ;;8294458
13DGRP12 ;;3878224
14DGRP13 ;;4042382
15DGRP14 ;;3414357
16DGRP2 ;;5687059
17DGRP3 ;;6045190
18DGRP4 ;;6006447
19DGRP5 ;;3651248
20DGRP6 ;;12769961
21DGRP7 ;;10164416
22DGRP8 ;;9786787
23DGRP9 ;;8611620
24DGRPC ;;9490160
25DGRPC1 ;;7285440
26DGRPC2 ;;6788636
27DGRPCB ;;10032754
28DGRPCE ;;11950905
29DGRPCE1 ;;2359715
30DGRPCF ;;13054956
31DGRPCF1 ;;5322740
32DGRPCK ;;6781893
33DGRPCP ;;6629895
34DGRPCP1 ;;14708629
35DGRPCR ;;13370363
36DGRPCS ;;2207234
37DGRPCU ;;7025466
38DGRPD ;;18487072
39DGRPDB ;;9197926
40DGRPDD ;;180582
41DGRPDD1 ;;18478647
42DGRPE ;;17383383
43DGRPE1 ;;3344769
44DGRPEIS ;;8191344
45DGRPEIS1 ;;13556361
46DGRPEIS2 ;;11893137
47DGRPH ;;19829950
48DGRPP ;;9535796
49DGRPP1 ;;3192660
50DGRPU ;;5377007
51DGRPU1 ;;1362026
52DGRPV ;;8485976
53DGRUG ;;9023592
54DGRUG1 ;;16045481
55DGRUG16 ;;10306836
56DGRUGBGJ ;;11326839
57DGRUGC ;;17107357
58DGRUGC1 ;;9117879
59DGRUGDR ;;12152536
60DGRUGFY ;;5460196
61DGRUGGR ;;4446753
62DGRUGIX ;;19393192
63DGRUGIX1 ;;12080525
64DGRUGPI ;;8857351
65DGRUGPP ;;8636321
66DGRUGPP1 ;;16241252
67DGRUGS ;;16239323
68DGRUGSA ;;13168278
69DGRUGTG ;;12003480
70DGRUGV ;;16831058
71DGRUGV16 ;;11568959
72DGSCHAD ;;11855593
73DGSCHAD1 ;;5279203
74DGSCHAD2 ;;16582459
75DGSCHAD3 ;;12873967
76DGSEC ;;12027536
77DGSEC1 ;;12952990
78DGSEC2 ;;13301504
79DGSEC3 ;;10468567
80DGSILL ;;1170342
81DGSTAT ;;13540071
82DGSWITCH ;;4801176
83DGTEMP ;;5715204
84DGTSSET ;;5722826
85DGUTL ;;10278535
86DGUTL1 ;;4788876
87DGUTL2 ;;2435936
88DGUTQ ;;4355162
89DGV53PP ;;937945
90DGV53PP1 ;;10021088
91DGV53PR ;;1184081
92DGV53PT ;;7270084
93DGV53PT1 ;;6052658
94DGV53PT2 ;;4926374
95DGV53PT3 ;;5358303
96DGV53PT4 ;;7241372
97DGV53PT5 ;;5954146
98DGV53PT6 ;;5375205
99DGV53PTA ;;6451369
100DGV53PTB ;;12079323
101DGV53PTC ;;9394754
102DGV53PTE ;;3383899
103DGV53PTI ;;15424312
104DGV53PTS ;;7259153
105DGVLT ;;9312675
106DGVLT1 ;;9579567
107DGVLT2 ;;10096823
108DGVLT3 ;;18442
109DGVPP ;;10598050
110DGVPR ;;507647
111DGVPR1 ;;4783856
112DGVPT ;;7923401
113DGVPT1 ;;10229318
114DGVPT2 ;;5499296
115DGVPT3 ;;4699681
116DGVPTDV1 ;;5481697
117DGVPTDV2 ;;1601036
118DGVPTDV3 ;;4930494
119DGVPTDV4 ;;2618970
120DGVPTIB1 ;;7617714
121DGVPTIB2 ;;12087500
122DGVPTIB3 ;;2151696
123DGVPTIB4 ;;994872
124DGVPTIB5 ;;10220216
125DGVPTIB6 ;;3753373
126DGVREL ;;14267717
127DGVREL1 ;;7176319
128DGVREL2 ;;2872002
129DGVREL3 ;;12383165
130DGVREL4 ;;3695405
131DGWAIT ;;10508645
132DGWIN ;;2452439
133DGYPREG ;;6374984
134DGYPREG1 ;;10914894
135DGYPREG2 ;;1774181
136DGYPREG3 ;;1641824
137DGYPREG4 ;;5887865
138DGYPREG5 ;;3554814
139DGYZODS ;;3383352
140VACPT ;;638691
141VADATE ;;5884810
142VADPT ;;4275887
143VADPT0 ;;3340074
144VADPT1 ;;9482819
145VADPT2 ;;7164844
146VADPT3 ;;6362248
147VADPT30 ;;8052693
148VADPT31 ;;9090780
149VADPT32 ;;2789771
150VADPT4 ;;16234632
151VADPT5 ;;14707739
152VADPT6 ;;2486970
153VADPT60 ;;9468124
154VADPT61 ;;4347320
155VADPT62 ;;8230515
156VAFADDR ;;210594
157VAFEDCAP ;;6832003
158VAFEDG ;;9491142
159VAFEDG1 ;;17677648
160VAFEDOHL ;;5938878
161VAFEDUTL ;;1765234
162VAFHLFNC ;;2223766
163VAFHLPID ;;5343968
164VAFHLZCT ;;3460227
165VAFHLZDP ;;1252517
166VAFHLZEL ;;7009201
167VAFHLZEM ;;4243653
168VAFHLZGD ;;3072032
169VAFHLZIC ;;6868384
170VAFHLZMT ;;2818227
171VAFHLZPD ;;6061838
172VAFHLZTA ;;3013508
Note: See TracBrowser for help on using the repository browser.