source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDNTEG.m@ 623

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1XPDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52
2 ;;8.0;KERNEL;;JUL 10, 1995
3 ;;7.2;JUL 10, 1995@09:24:52
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 ;;
12XLFDT ;;2542000
13XLFDT1 ;;1537932
14XPDCOM ;;2213245
15XPDCOMG ;;8382178
16XPDCPU ;;6564663
17XPDDCS ;;3052685
18XPDDI ;;7059710
19XPDDP ;;11284516
20XPDE ;;12998234
21XPDET ;;3688528
22XPDGCDEL ;;2818026
23XPDH ;;2594827
24XPDI ;;13967703
25XPDIA ;;6914717
26XPDIA1 ;;4945908
27XPDID ;;2414499
28XPDIGP ;;6457099
29XPDIJ ;;14331384
30XPDIK ;;10629573
31XPDIL ;;10081002
32XPDIL1 ;;6175748
33XPDIN001 ;;8911225
34XPDIN002 ;;12264533
35XPDIN003 ;;8357402
36XPDIN004 ;;8061968
37XPDIN005 ;;10022912
38XPDIN006 ;;9558156
39XPDIN007 ;;8115613
40XPDIN008 ;;9140117
41XPDIN009 ;;3471847
42XPDIN00A ;;9058285
43XPDIN00B ;;7976280
44XPDIN00C ;;6944309
45XPDIN00D ;;6861764
46XPDIN00E ;;3155079
47XPDIN00F ;;921211
48XPDIN00G ;;6183213
49XPDIN00H ;;5691661
50XPDIN00I ;;6023617
51XPDIN00J ;;5774284
52XPDIN00K ;;5839595
53XPDIN00L ;;8152412
54XPDIN00M ;;7714345
55XPDIN00N ;;6424156
56XPDIN00O ;;5629359
57XPDIN00P ;;6001373
58XPDIN00Q ;;5487755
59XPDIN00R ;;5781258
60XPDIN00S ;;5743958
61XPDIN00T ;;3809597
62XPDINIT ;;10210170
63XPDINIT1 ;;4893932
64XPDINIT2 ;;5232647
65XPDINIT3 ;;16808120
66XPDINIT4 ;;3357819
67XPDINIT5 ;;460403
68XPDIP ;;7105579
69XPDIPM ;;1889333
70XPDIQ ;;6649770
71XPDIR ;;2209857
72XPDIST ;;2343711
73XPDIU ;;5987197
74XPDKEY ;;1267561
75XPDKRN ;;818184
76XPDMENU ;;1676349
77XPDPINIT ;;223513
78XPDR ;;12193352
79XPDRSUM ;;1331254
80XPDT ;;13681675
81XPDTA ;;5532717
82XPDTA1 ;;4346384
83XPDTC ;;8576205
84XPDTP ;;2581228
85XPDUTL ;;2317236
86XPDV ;;6960037
87XQDATE ;;1632193
88XQH ;;8451889
89XQOO ;;19407312
90XQOO1 ;;11594948
91XQOO2 ;;6850745
92XQOO3 ;;8090117
Note: See TracBrowser for help on using the repository browser.