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

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1DGNTEG0 ;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^DGNTEG01
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 ;;
12DGMTSC2 ;;5491279
13DGMTSC3 ;;2792118
14DGMTSC31 ;;4589113
15DGMTSC4 ;;5918350
16DGMTSCC ;;11200411
17DGMTSCR ;;7960982
18DGMTSCU ;;3843068
19DGMTSCU1 ;;390575
20DGMTSCU2 ;;3506131
21DGMTSCU3 ;;3657103
22DGMTU ;;5758769
23DGMTU1 ;;1509108
24DGMTU11 ;;4562009
25DGMTU2 ;;2157161
26DGMTU21 ;;988994
27DGMTU22 ;;5802580
28DGMTU23 ;;6257318
29DGMTUB ;;3480486
30DGMTUTL ;;4377319
31DGMTV ;;6491590
32DGNOTE ;;1675967
33DGOASIH ;;7905936
34DGODASK ;;6832837
35DGODCV ;;6455006
36DGODDEL ;;6521525
37DGODMT ;;6703636
38DGODNP1 ;;13382969
39DGODNP2 ;;17154391
40DGODNSM ;;10616515
41DGODNSM1 ;;6157652
42DGODOP1 ;;13382348
43DGODOP2 ;;14178312
44DGODOSM ;;10913759
45DGODOSM1 ;;5878965
46DGODTOT ;;12665233
47DGODUTL ;;11335841
48DGOERNOT ;;3639352
49DGOIL ;;14120935
50DGOIL1 ;;5434253
51DGOIL2 ;;9855146
52DGOIL3 ;;1864519
53DGOINPT ;;9811683
54DGOINPT1 ;;12046123
55DGOINS ;;9275780
56DGOINS1 ;;17284104
57DGONI001 ;;8955903
58DGONI002 ;;9117011
59DGONI003 ;;7330922
60DGONI004 ;;7270205
61DGONI005 ;;6744760
62DGONI006 ;;6851829
63DGONI007 ;;7400783
64DGONI008 ;;6681610
65DGONI009 ;;3184498
66DGONIT ;;974623
67DGONIT1 ;;1681972
68DGONIT2 ;;82261
69DGONIT3 ;;10576022
70DGOPATM ;;9163250
71DGOREL ;;12901865
72DGOREL1 ;;15725750
73DGOVBC ;;12222252
74DGOVBC1 ;;16856594
75DGOVBC2 ;;10667539
76DGPAR ;;12599208
77DGPAR1 ;;15140011
78DGPAR2 ;;1164900
79DGPASS ;;12948536
80DGPATN ;;3746887
81DGPATV ;;2775189
82DGPMBSAB ;;2469727
83DGPMBSAR ;;6455372
84DGPMBSG ;;5833205
85DGPMBSG1 ;;3093169
86DGPMBSG2 ;;12159995
87DGPMBSG3 ;;7575486
88DGPMBSP ;;2948851
89DGPMBSP1 ;;12290347
90DGPMBSP2 ;;12013509
91DGPMBSP3 ;;7070833
92DGPMBSP4 ;;4498379
93DGPMBSP5 ;;3236309
94DGPMBSP6 ;;3000471
95DGPMBSR ;;5326316
96DGPMBSR1 ;;7809978
97DGPMBSR2 ;;4498773
98DGPMBSR3 ;;9503294
99DGPMBSR4 ;;7335226
100DGPMDD ;;1371660
101DGPMDD1 ;;4163615
102DGPMDD2 ;;5117501
103DGPMDDCF ;;2709089
104DGPMDDCN ;;7510882
105DGPMDDLD ;;5897493
106DGPMDDOS ;;15227313
107DGPMDDRB ;;2515339
108DGPMDEF ;;13745743
109DGPMEVT ;;1318191
110DGPMEX ;;8735578
111DGPMGL ;;11885908
112DGPMGL1 ;;10850663
113DGPMGL2 ;;4802014
114DGPMGL5 ;;3750408
115DGPMGL51 ;;11000768
116DGPMGLC ;;12376747
117DGPMGLG ;;7786725
118DGPMGLG1 ;;2954608
119DGPMGLG2 ;;15832435
120DGPMGLG3 ;;12575149
121DGPMGLP ;;11310279
122DGPMGLP1 ;;8991521
123DGPMHST ;;3205848
124DGPMLOS ;;4210303
125DGPMOLD ;;3719927
126DGPMOLD1 ;;13905130
127DGPMRB ;;10705978
128DGPMRBA ;;14216646
129DGPMRBA1 ;;8190867
130DGPMSTAT ;;3902677
131DGPMTS ;;2013889
132DGPMTSI ;;7834777
133DGPMTSI1 ;;3193580
134DGPMTSI2 ;;8704798
135DGPMTSO ;;1679095
136DGPMTSO1 ;;12104367
137DGPMTSO2 ;;12264254
138DGPMTSO3 ;;10945522
139DGPMTSR ;;7428169
140DGPMTSR1 ;;5877231
141DGPMTSR2 ;;6231618
142DGPMUTL ;;2618336
143DGPMV ;;9721404
144DGPMV0 ;;1798732
145DGPMV1 ;;8563904
146DGPMV10 ;;15444384
147DGPMV2 ;;12450697
148DGPMV20 ;;10234963
149DGPMV21 ;;13594373
150DGPMV22 ;;4988232
151DGPMV3 ;;16912219
152DGPMV30 ;;17093330
153DGPMV300 ;;3098446
154DGPMV31 ;;12582313
155DGPMV32 ;;12615866
156DGPMV321 ;;12839930
157DGPMV322 ;;2401635
158DGPMV33 ;;9363079
159DGPMV331 ;;11471512
160DGPMV35 ;;1138781
161DGPMV36 ;;6369023
162DGPMVBM ;;6277394
163DGPMVBUL ;;8954409
164DGPMVBUR ;;6699911
165DGPMVDD ;;8266103
166DGPMVDL ;;11773733
167DGPMVDL1 ;;13419849
168DGPMVODS ;;3078835
Note: See TracBrowser for help on using the repository browser.