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

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1DGNTEG ;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^DGNTEG0
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 ;;
12DG10 ;;3836495
13DG1010P ;;11459541
14DG1010P0 ;;1314346
15DG1010P1 ;;13799216
16DG1010P2 ;;8453869
17DG1010P3 ;;6164680
18DG1010P4 ;;7181713
19DG1010P5 ;;7501466
20DG1010P6 ;;10096482
21DG1010P7 ;;13314650
22DG1010PA ;;4613202
23DG1010PX ;;7715973
24DG1010S1 ;;23821127
25DG1010S2 ;;18364748
26DG3PR ;;3021030
27DG3PR0 ;;6620629
28DG3PR1 ;;4522534
29DG3PR2 ;;11690252
30DGA400 ;;12138168
31DGA4001 ;;16056644
32DGA4002 ;;9301892
33DGA4003 ;;7761246
34DGA4004 ;;11609708
35DGA4005 ;;17691249
36DGA4006 ;;5787106
37DGA4007 ;;2042305
38DGABUL ;;7538472
39DGAINP ;;3795864
40DGAINP0 ;;7178330
41DGAINP1 ;;9244036
42DGAINP2 ;;8100096
43DGAINP3 ;;2633278
44DGAINP4 ;;8344622
45DGANHD ;;3864476
46DGANHD1 ;;7585149
47DGANHD2 ;;4831283
48DGANHD3 ;;1806372
49DGANHD4 ;;6162588
50DGBLRV ;;14119050
51DGBT1 ;;7665616
52DGBT2 ;;13095836
53DGBTCD ;;13711638
54DGBTCE ;;14849061
55DGBTCE1 ;;5419607
56DGBTCR ;;12532420
57DGBTCR1 ;;8137574
58DGBTCR2 ;;12956592
59DGBTDIST ;;8481729
60DGBTDST1 ;;2237098
61DGBTE ;;8229618
62DGBTE1 ;;8595661
63DGBTE1A ;;6549070
64DGBTEE ;;8216263
65DGBTEE1 ;;11274715
66DGBTEE2 ;;8101499
67DGBTEF ;;15591466
68DGBTEF1 ;;9005391
69DGBTEND ;;12602292
70DGBTOA1 ;;14177005
71DGBTOA2 ;;11981540
72DGBTOA3 ;;15389059
73DGBTOA4 ;;15019918
74DGBTOA5 ;;3360676
75DGBTOA6 ;;9057573
76DGBTR ;;9324442
77DGBTSRCH ;;10574383
78DGBTUTL ;;1356611
79DGBUL ;;3656478
80DGCOL ;;16970132
81DGDDC ;;4818017
82DGDEATH ;;12272750
83DGDIS ;;14257393
84DGDIS1 ;;5675861
85DGDISPL ;;6977062
86DGDISS ;;9364260
87DGDIST ;;19344355
88DGDIST1 ;;10706514
89DGFI ;;3262670
90DGGECS ;;16847352
91DGGECSA ;;2782718
92DGGECSB ;;6164870
93DGGECSR ;;2816305
94DGHELP ;;3815305
95DGIN ;;50292
96DGINP ;;180432
97DGINPW ;;101051
98DGINS ;;6190318
99DGJBGJ ;;17066760
100DGJBGJ1 ;;1611260
101DGJOPRT ;;7505571
102DGJOPRT1 ;;17207598
103DGJOPRT2 ;;17870325
104DGJOPRT3 ;;12022896
105DGJOTP ;;12136251
106DGJOTP1 ;;21753407
107DGJOTP2 ;;12005300
108DGJOTP3 ;;16818289
109DGJOTPUL ;;9915514
110DGJPAR ;;186014
111DGJPAR1 ;;14281443
112DGJPDEF ;;13686744
113DGJPDEF1 ;;20529386
114DGJPDEF2 ;;17990744
115DGJPDEF3 ;;16274892
116DGJSUM ;;7945437
117DGJTADD ;;2567747
118DGJTDEL ;;4511597
119DGJTEE ;;19163376
120DGJTEE1 ;;12664333
121DGJTEE2 ;;12267113
122DGJTEE3 ;;14306643
123DGJTEVT ;;11368122
124DGJTHLP ;;8474910
125DGJTUDIS ;;4651950
126DGJTUTL ;;16684941
127DGJTVW ;;5612957
128DGJTVW1 ;;17594153
129DGJTVW2 ;;8809719
130DGJTVW3 ;;12907948
131DGL ;;133046
132DGLOCK ;;15547998
133DGLOCK1 ;;13313898
134DGLOCK2 ;;11670599
135DGLOCK3 ;;1575192
136DGMTA ;;9764937
137DGMTAUD ;;9480441
138DGMTAUD1 ;;188063
139DGMTCOM ;;1549753
140DGMTCOR ;;5288938
141DGMTCOST ;;985361
142DGMTCOU ;;2047092
143DGMTCOU1 ;;3669588
144DGMTDD ;;5296793
145DGMTDD1 ;;1993635
146DGMTDD2 ;;11706743
147DGMTDD3 ;;8997689
148DGMTDEL ;;9696857
149DGMTDOM ;;363545
150DGMTE ;;2602899
151DGMTEO ;;3308362
152DGMTEVT ;;390130
153DGMTLK ;;501521
154DGMTM ;;1630681
155DGMTO ;;1612143
156DGMTO1 ;;6287338
157DGMTOFA ;;8112978
158DGMTOFA1 ;;6841238
159DGMTOHD ;;2657432
160DGMTOPYT ;;3986408
161DGMTOREQ ;;7724748
162DGMTP ;;5245412
163DGMTP1 ;;10428870
164DGMTP2 ;;13975368
165DGMTP3 ;;15675663
166DGMTP4 ;;12233970
167DGMTR ;;4475685
168DGMTREQB ;;2563172
169DGMTSC ;;3182358
170DGMTSC1 ;;4640864
171DGMTSC11 ;;4595279
Note: See TracBrowser for help on using the repository browser.