source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTNTEG.m@ 719

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1XTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;;7.3;2950425.092013
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^XTNTEG0
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 ;;
12XDRCNT ;;7651887
13XDRDADD ;;8133407
14XDRDADJ ;;4509269
15XDRDCOMP ;;4431965
16XDRDFPD ;;7816795
17XDRDLIST ;;7786460
18XDRDMAIN ;;5700890
19XDRDOC ;;19083
20XDRDOC1 ;;13351
21XDRDOC2 ;;19767
22XDRDPDTI ;;2075925
23XDRDPRGE ;;3959904
24XDRDQUE ;;9275556
25XDRDSCOR ;;1855732
26XDRDSTAT ;;2676366
27XDRDUP ;;3547600
28XDREMSG ;;4302480
29XDRERR ;;127648
30XDRHLP ;;2681700
31XDRMADD ;;6382715
32XDRMAIN ;;7563507
33XDRMAINI ;;14611797
34XDRMPACK ;;2927651
35XDRMRG ;;14311248
36XDRMRG1 ;;1874512
37XDRMSG ;;1827956
38XDRMVFY ;;1318075
39XDRPREI ;;293004
40XDRU1 ;;1782236
41XINDEX ;;7227772
42XINDX1 ;;6096231
43XINDX10 ;;12585180
44XINDX11 ;;7471101
45XINDX2 ;;5054188
46XINDX3 ;;3897455
47XINDX4 ;;4711071
48XINDX5 ;;6259999
49XINDX51 ;;9529173
50XINDX52 ;;2298647
51XINDX53 ;;4122188
52XINDX6 ;;10179476
53XINDX7 ;;7575886
54XINDX8 ;;6101428
55XINDX9 ;;4045898
56XTBASE ;;2331979
57XTCMFILN ;;4125344
58XTEDTVXD ;;1542362
59XTFC0 ;;11055774
60XTFC1 ;;14547133
61XTFCE ;;5859522
62XTFCE1 ;;6311273
63XTFCR ;;5587602
64XTFCR1 ;;3692308
65XTINEND ;;5215462
66XTINI001 ;;5950864
67XTINI002 ;;4393549
68XTINI003 ;;6019987
69XTINI004 ;;4028880
70XTINI005 ;;3990558
71XTINI006 ;;9416677
72XTINI007 ;;9086371
73XTINI008 ;;8419298
74XTINI009 ;;8019911
75XTINI00A ;;9113926
76XTINI00B ;;11110278
77XTINI00C ;;11151493
78XTINI00D ;;9306443
79XTINI00E ;;8494510
80XTINI00F ;;8489467
81XTINI00G ;;7747693
82XTINI00H ;;7094018
83XTINI00I ;;7643278
84XTINI00J ;;8405097
85XTINI00K ;;7198108
86XTINI00L ;;6651500
87XTINI00M ;;8180768
88XTINI00N ;;7132260
89XTINI00O ;;2910462
90XTINI00P ;;7694041
91XTINI00Q ;;8160242
92XTINI00R ;;9440499
93XTINI00S ;;9016307
94XTINI00T ;;9491800
95XTINI00U ;;10283373
96XTINI00V ;;8766708
97XTINI00W ;;6509886
98XTINI00X ;;8595714
99XTINI00Y ;;7948819
100XTINI00Z ;;1773424
101XTINI010 ;;7071607
102XTINI011 ;;5531060
103XTINI012 ;;7968888
104XTINI013 ;;11142565
105XTINI014 ;;2687098
106XTINI015 ;;8767076
107XTINI016 ;;3859202
108XTINI017 ;;7490625
109XTINI018 ;;2613367
110XTINI019 ;;4541347
111XTINI01A ;;7350290
112XTINI01B ;;3719011
113XTINI01C ;;6289769
114XTINI01D ;;1212716
115XTINI01E ;;5998915
116XTINI01F ;;5482770
117XTINI01G ;;3469421
118XTINI01H ;;1876516
119XTINI01I ;;5948679
120XTINI01J ;;5624949
121XTINI01K ;;7118498
122XTINI01L ;;5020375
123XTINI01M ;;6515584
124XTINI01N ;;7612374
125XTINI01O ;;7804125
126XTINI01P ;;7864176
127XTINI01Q ;;7980433
128XTINI01R ;;7872517
129XTINI01S ;;7885668
130XTINI01T ;;8156338
131XTINI01U ;;5743708
132XTINI01V ;;8379152
133XTINI01W ;;7143097
134XTINI01X ;;6494785
135XTINI01Y ;;6468654
136XTINI01Z ;;6344717
137XTINI020 ;;6053332
138XTINI021 ;;6154942
139XTINI022 ;;6263758
140XTINI023 ;;6988435
141XTINI024 ;;7095170
142XTINI025 ;;5225531
143XTINI026 ;;6836611
144XTINI027 ;;7165347
145XTINI028 ;;7867999
146XTINI029 ;;5902113
147XTINI02A ;;7114778
148XTINI02B ;;6562588
149XTINI02C ;;5066519
150XTINI02D ;;4746121
151XTINI02E ;;3747162
152XTINI02F ;;1763576
153XTINIS ;;2134872
154XTINIT ;;11072830
155XTINIT1 ;;5762600
156XTINIT2 ;;5232093
157XTINIT3 ;;16090016
158XTINIT4 ;;3357263
159XTINIT5 ;;1525744
160XTINITY ;;15382450
161XTINOK ;;2394003
162XTKERM1 ;;5596187
163XTKERM2 ;;7359658
164XTKERM3 ;;2782884
165XTKERM4 ;;5378382
166XTKERMIT ;;2016322
167XTLATSET ;;6413686
168XTLKDICL ;;2562328
Note: See TracBrowser for help on using the repository browser.