source: FOIAVistA/tag/r/MAILMAN-XM/XMNTEG0.m@ 1424

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1XMNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;08/29/2002 09:16
2 ;;8.0;MailMan;;Jun 28, 2002
3 ;;7.3;Apr 19, 2002@07:52:43
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 ;
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 ;;
12XMUPIN ;;10484796
13XMUT1 ;;4713080
14XMUT1A ;;4119010
15XMUT2 ;;6124745
16XMUT4 ;;14014054
17XMUT41 ;;6742163
18XMUT4A ;;1491748
19XMUT4C ;;8776176
20XMUT5 ;;6643977
21XMUT5B ;;1726462
22XMUT5C ;;3073565
23XMUT5G ;;338629
24XMUT5Q ;;8506023
25XMUT5Q1 ;;4388458
26XMUT5R1 ;;2364051
27XMUT5R2 ;;3211915
28XMUT6 ;;2312993
29XMUT7 ;;411505
30XMUTCOM1 ;;2620897
31XMUTERM ;;7174403
32XMUTERM1 ;;17510874
33XMUTERM2 ;;10583278
34XMUTPUR0 ;;2780450
35XMVGROUP ;;13634422
36XMVGRP ;;11462353
37XMVSURR ;;3022444
38XMVVITA ;;7297401
39XMVVITAE ;;11577437
40XMXADDR ;;16602920
41XMXADDR1 ;;13510282
42XMXADDR2 ;;14695480
43XMXADDR3 ;;8833831
44XMXADDR4 ;;7884015
45XMXADDRD ;;10571405
46XMXADDRG ;;16118455
47XMXANSER ;;2014179
48XMXAPI ;;7362843
49XMXAPIB ;;3472533
50XMXAPIG ;;5257560
51XMXAPIU ;;596863
52XMXBSKT ;;12498784
53XMXBULL ;;5251831
54XMXEDIT ;;7275716
55XMXGRP ;;9498223
56XMXGRP1 ;;10875164
57XMXLIST ;;6277109
58XMXLIST1 ;;12801864
59XMXLIST2 ;;6802380
60XMXMBOX ;;1530327
61XMXMSGS ;;10893386
62XMXMSGS1 ;;7497318
63XMXMSGS2 ;;8470689
64XMXPARM ;;14944409
65XMXPARM1 ;;4016561
66XMXPARMB ;;3923435
67XMXPRT ;;3257492
68XMXREPLY ;;5837087
69XMXSEC ;;21878434
70XMXSEC1 ;;14620130
71XMXSEC2 ;;24844137
72XMXSEC3 ;;3540050
73XMXSEND ;;10773097
74XMXTO ;;1746429
75XMXUTIL ;;12300932
76XMXUTIL1 ;;6906795
77XMXUTIL2 ;;7664489
78XMXUTIL3 ;;5771323
79XMXUTIL4 ;;9367334
80XMYPRE ;;2625462
Note: See TracBrowser for help on using the repository browser.