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

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1DGNTEG01 ;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^DGNTEG02
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 ;;
12DGPT101 ;;5907818
13DGPT101P ;;3798684
14DGPT10CB ;;1729817
15DGPT10S1 ;;3094591
16DGPT401 ;;5591382
17DGPT501 ;;5260058
18DGPT501P ;;3264888
19DGPT50DI ;;2517717
20DGPT50MS ;;2873112
21DGPT535 ;;4142601
22DGPT601 ;;7292814
23DGPT60PR ;;1981670
24DGPT701 ;;5282484
25DGPT701P ;;2717219
26DGPT702 ;;2080928
27DGPT70DI ;;4404595
28DGPT70DX ;;1522145
29DGPTAE ;;7133682
30DGPTAE01 ;;2981200
31DGPTAE02 ;;5283812
32DGPTAE03 ;;4610359
33DGPTAE04 ;;2501495
34DGPTAEE ;;4527426
35DGPTAEE1 ;;10933098
36DGPTAEE2 ;;8130188
37DGPTAPA ;;3668483
38DGPTAPA1 ;;2058101
39DGPTAPA2 ;;3180242
40DGPTAPA3 ;;1924386
41DGPTAPA4 ;;7077869
42DGPTAPP ;;1806977
43DGPTAPP1 ;;1210249
44DGPTAPSL ;;4997510
45DGPTBE1 ;;19023447
46DGPTBE2 ;;1835542
47DGPTBEP ;;2267056
48DGPTC ;;4801976
49DGPTC1 ;;6075172
50DGPTC2 ;;4499759
51DGPTCO ;;882556
52DGPTCO1 ;;5235526
53DGPTCO2 ;;2096649
54DGPTCR ;;9155987
55DGPTCR1 ;;1454932
56DGPTDRG ;;16922377
57DGPTEXPR ;;411240
58DGPTF ;;11140333
59DGPTF099 ;;7885730
60DGPTF09X ;;5455949
61DGPTF1 ;;12620270
62DGPTF2 ;;9722630
63DGPTF4 ;;12842059
64DGPTF41 ;;5073903
65DGPTF5 ;;1141375
66DGPTFCR ;;2856214
67DGPTFD ;;7582771
68DGPTFDEL ;;9517561
69DGPTFFB ;;4903981
70DGPTFIC ;;16299987
71DGPTFJ ;;3694269
72DGPTFJC ;;14917912
73DGPTFM ;;15913403
74DGPTFM0 ;;7287940
75DGPTFM1 ;;10416822
76DGPTFM1A ;;6717226
77DGPTFM4 ;;14737446
78DGPTFM5 ;;9123774
79DGPTFM6 ;;13703468
80DGPTFM7 ;;10979946
81DGPTFM71 ;;3602514
82DGPTFM8 ;;6077252
83DGPTFMO ;;13407855
84DGPTFMO1 ;;2034296
85DGPTFOU ;;10424039
86DGPTFQWK ;;4488650
87DGPTFREL ;;5862675
88DGPTFTR ;;9360869
89DGPTFTR0 ;;8604225
90DGPTFTR1 ;;13978628
91DGPTFTR2 ;;9164992
92DGPTFTR3 ;;9189207
93DGPTFUP ;;9063283
94DGPTFVC ;;2899739
95DGPTFVC1 ;;15576437
96DGPTFVC2 ;;3752572
97DGPTFVC3 ;;5311979
98DGPTICD ;;2389303
99DGPTLMU1 ;;5302089
100DGPTLMU2 ;;2608185
101DGPTLMU3 ;;3024014
102DGPTLMU4 ;;6778410
103DGPTLMU5 ;;5680133
104DGPTLMU6 ;;3759937
105DGPTMOVE ;;18877814
106DGPTMSG ;;12017144
107DGPTMSG1 ;;3261790
108DGPTMSGD ;;9430949
109DGPTOD0 ;;19162109
110DGPTOD1 ;;11029540
111DGPTOD2 ;;14228151
112DGPTOD3 ;;2871705
113DGPTODA1 ;;14742631
114DGPTODA2 ;;16102699
115DGPTODB1 ;;14395071
116DGPTODB2 ;;15732396
117DGPTODF1 ;;14514216
118DGPTODF2 ;;11051070
119DGPTODI1 ;;17300458
120DGPTODI2 ;;12886426
121DGPTODI3 ;;16720767
122DGPTODI4 ;;9696951
123DGPTODR ;;4646557
124DGPTODT1 ;;16541531
125DGPTODT2 ;;11974266
126DGPTOLC1 ;;4324462
127DGPTOLC2 ;;17186117
128DGPTOM1 ;;7629724
129DGPTOM2 ;;15224903
130DGPTOOL ;;566787
131DGPTOTRL ;;13755835
132DGPTR0 ;;8651144
133DGPTR1 ;;15817363
134DGPTR2 ;;8727510
135DGPTR3 ;;2339687
136DGPTR4 ;;4549097
137DGPTRAM ;;1116833
138DGPTRPO ;;9666225
139DGPTRPP ;;7433732
140DGPTSC01 ;;4070681
141DGPTSCAN ;;6356675
142DGPTSPQ ;;1563488
143DGPTSUD1 ;;4459855
144DGPTSUDO ;;11745732
145DGPTTRIM ;;2747468
146DGPTTS ;;11059200
147DGPTTS0 ;;1798741
148DGPTTS1 ;;16571126
149DGPTTS2 ;;9851736
150DGPTTS3 ;;10800315
151DGPTUTL ;;7801401
152DGPTUTL1 ;;7565068
153DGQEMA ;;7098669
154DGQEMA1 ;;8356696
155DGQEMP ;;6074288
156DGQEMPS ;;978157
157DGREG ;;18978133
158DGREG0 ;;9179398
159DGREG00 ;;8411293
160DGREGDD ;;117402
161DGREGDD1 ;;2633914
162DGREGDEL ;;2900374
163DGREGE ;;10119241
164DGREGG ;;3864793
165DGRP ;;1060986
166DGRP1 ;;10291468
167DGRP10 ;;5397853
Note: See TracBrowser for help on using the repository browser.